diff --git a/AppKit/dune b/AppKit/dune index 4b39fcaf..a0248df6 100644 --- a/AppKit/dune +++ b/AppKit/dune @@ -4,6 +4,6 @@ (libraries camlkit-base.runtime camlkit-base.Foundation - camlkit-gui.CoreAnimation)) + camlkit-base.CoreAnimation)) (documentation (package camlkit-gui)) \ No newline at end of file diff --git a/AppKit_extra/dune b/AppKit_extra/dune index 881b07b0..1b382729 100644 --- a/AppKit_extra/dune +++ b/AppKit_extra/dune @@ -4,6 +4,6 @@ (libraries camlkit-base.runtime camlkit-base.Foundation - camlkit-gui.CoreAnimation)) + camlkit-base.CoreAnimation)) (documentation (package camlkit-gui)) \ No newline at end of file diff --git a/CoreAnimation/dune b/CoreAnimation/dune index 3d411bc4..3969250d 100644 --- a/CoreAnimation/dune +++ b/CoreAnimation/dune @@ -1,7 +1,7 @@ (library (name CoreAnimation) - (public_name camlkit-gui.CoreAnimation) + (public_name camlkit-base.CoreAnimation) (flags :standard -ccopt "-framework QuartzCore") - (libraries camlkit-base.runtime CoreFoundation CoreGraphics)) + (libraries CoreFoundation CoreGraphics)) -(documentation (package camlkit-gui)) \ No newline at end of file +(documentation (package camlkit-base)) \ No newline at end of file diff --git a/CoreVideo/dune b/CoreVideo/dune index fe558523..b109d621 100644 --- a/CoreVideo/dune +++ b/CoreVideo/dune @@ -6,6 +6,6 @@ camlkit-base.runtime camlkit-base.CoreFoundation camlkit-base.CoreGraphics - camlkit-gui.CoreAnimation)) + camlkit-base.CoreAnimation)) (documentation (package camlkit-gui)) \ No newline at end of file diff --git a/Foundation/NSObjectClass.ml b/Foundation/NSObjectClass.ml index 5ba492fe..d56c375c 100644 --- a/Foundation/NSObjectClass.ml +++ b/Foundation/NSObjectClass.ml @@ -7,6 +7,7 @@ open Objc let _SFSQLiteClassName self = msg_send ~self ~cmd:(selector "SFSQLiteClassName") ~typ:(returning id) let accessInstanceVariablesDirectly self = msg_send ~self ~cmd:(selector "accessInstanceVariablesDirectly") ~typ:(returning bool) +let alloc self = msg_send ~self ~cmd:(selector "alloc") ~typ:(returning id) let allowsWeakReference self = msg_send ~self ~cmd:(selector "allowsWeakReference") ~typ:(returning bool) let automaticallyNotifiesObserversForKey x self = msg_send ~self ~cmd:(selector "automaticallyNotifiesObserversForKey:") ~typ:(id @-> returning bool) x let autorelease self = msg_send ~self ~cmd:(selector "autorelease") ~typ:(returning id) @@ -49,6 +50,7 @@ let methodForSelector x self = msg_send ~self ~cmd:(selector "methodForSelector: let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning id) x let mutableCopy self = msg_send ~self ~cmd:(selector "mutableCopy") ~typ:(returning id) let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:((ptr void) @-> returning id) x +let new_ self = msg_send ~self ~cmd:(selector "new") ~typ:(returning id) let performSelector x self = msg_send ~self ~cmd:(selector "performSelector:") ~typ:(_SEL @-> returning id) x let performSelector1 x ~withObject self = msg_send ~self ~cmd:(selector "performSelector:withObject:") ~typ:(_SEL @-> id @-> returning id) x withObject let performSelector2 x ~withObject ~withObject_ self = msg_send ~self ~cmd:(selector "performSelector:withObject:withObject:") ~typ:(_SEL @-> id @-> id @-> returning id) x withObject withObject_ diff --git a/PhotosUI/PHEditingExtensionContext.ml b/PhotosUI/PHEditingExtensionContext.ml index 3561802c..571db8db 100644 --- a/PhotosUI/PHEditingExtensionContext.ml +++ b/PhotosUI/PHEditingExtensionContext.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pheditingextensioncontext?language=objc}PHEditingExtensionContext} *) +let self = get_class "PHEditingExtensionContext" + let attemptUndoManagerAutoSetup self = msg_send ~self ~cmd:(selector "attemptUndoManagerAutoSetup") ~typ:(returning bool) let beginContentEditingWithCompletionHandler x self = msg_send ~self ~cmd:(selector "beginContentEditingWithCompletionHandler:") ~typ:((ptr void) @-> returning void) x let cancelContentEditingWithResponseHandler x self = msg_send ~self ~cmd:(selector "cancelContentEditingWithResponseHandler:") ~typ:((ptr void) @-> returning void) x diff --git a/PhotosUI/PHEditingExtensionContextClass.ml b/PhotosUI/PHEditingExtensionContextClass.ml deleted file mode 100644 index 73d2267a..00000000 --- a/PhotosUI/PHEditingExtensionContextClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pheditingextensioncontext?language=objc}PHEditingExtensionContext} *) - -let self = get_class "PHEditingExtensionContext" diff --git a/PhotosUI/PHLivePhotoView.ml b/PhotosUI/PHLivePhotoView.ml index 60c3c1d4..68ebe09e 100644 --- a/PhotosUI/PHLivePhotoView.ml +++ b/PhotosUI/PHLivePhotoView.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/phlivephotoview?language=objc}PHLivePhotoView} *) +let self = get_class "PHLivePhotoView" + let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) let generateSnapshotImage self = msg_send ~self ~cmd:(selector "generateSnapshotImage") ~typ:(returning id) let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x diff --git a/PhotosUI/PHLivePhotoViewClass.ml b/PhotosUI/PHLivePhotoViewClass.ml index f0892a8d..3debf2ae 100644 --- a/PhotosUI/PHLivePhotoViewClass.ml +++ b/PhotosUI/PHLivePhotoViewClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/phlivephotoview?language=objc}PHLivePhotoView} *) -let self = get_class "PHLivePhotoView" - let livePhotoBadgeImageWithOptions x self = msg_send ~self ~cmd:(selector "livePhotoBadgeImageWithOptions:") ~typ:(ullong @-> returning id) (ULLong.of_int x) \ No newline at end of file diff --git a/PhotosUI/PHPhotosPickerOptions.ml b/PhotosUI/PHPhotosPickerOptions.ml index fcb511b9..382d9085 100644 --- a/PhotosUI/PHPhotosPickerOptions.ml +++ b/PhotosUI/PHPhotosPickerOptions.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/phphotospickeroptions?language=objc}PHPhotosPickerOptions} *) +let self = get_class "PHPhotosPickerOptions" + let excludedContentModes self = msg_send ~self ~cmd:(selector "excludedContentModes") ~typ:(returning id) let hideTabBar self = msg_send ~self ~cmd:(selector "hideTabBar") ~typ:(returning bool) let initialAssetsToSelect self = msg_send ~self ~cmd:(selector "initialAssetsToSelect") ~typ:(returning id) diff --git a/PhotosUI/PHPhotosPickerOptionsClass.ml b/PhotosUI/PHPhotosPickerOptionsClass.ml deleted file mode 100644 index 1f309bed..00000000 --- a/PhotosUI/PHPhotosPickerOptionsClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/phphotospickeroptions?language=objc}PHPhotosPickerOptions} *) - -let self = get_class "PHPhotosPickerOptions" diff --git a/PhotosUI/PHPickerConfiguration.ml b/PhotosUI/PHPickerConfiguration.ml index 8b52b483..a07f94f2 100644 --- a/PhotosUI/PHPickerConfiguration.ml +++ b/PhotosUI/PHPickerConfiguration.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/phpickerconfiguration?language=objc}PHPickerConfiguration} *) +let self = get_class "PHPickerConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let filter self = msg_send ~self ~cmd:(selector "filter") ~typ:(returning id) let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/PhotosUI/PHPickerConfigurationClass.ml b/PhotosUI/PHPickerConfigurationClass.ml deleted file mode 100644 index 89682176..00000000 --- a/PhotosUI/PHPickerConfigurationClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/phpickerconfiguration?language=objc}PHPickerConfiguration} *) - -let self = get_class "PHPickerConfiguration" diff --git a/PhotosUI/PHPickerFilter.ml b/PhotosUI/PHPickerFilter.ml index 1b769884..77055158 100644 --- a/PhotosUI/PHPickerFilter.ml +++ b/PhotosUI/PHPickerFilter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/phpickerfilter?language=objc}PHPickerFilter} *) +let self = get_class "PHPickerFilter" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) diff --git a/PhotosUI/PHPickerFilterClass.ml b/PhotosUI/PHPickerFilterClass.ml index 5eb0516b..dd534abd 100644 --- a/PhotosUI/PHPickerFilterClass.ml +++ b/PhotosUI/PHPickerFilterClass.ml @@ -4,16 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/phpickerfilter?language=objc}PHPickerFilter} *) -let self = get_class "PHPickerFilter" - let allFilterMatchingSubfilters x self = msg_send ~self ~cmd:(selector "allFilterMatchingSubfilters:") ~typ:(id @-> returning id) x let anyFilterMatchingSubfilters x self = msg_send ~self ~cmd:(selector "anyFilterMatchingSubfilters:") ~typ:(id @-> returning id) x let imagesFilter self = msg_send ~self ~cmd:(selector "imagesFilter") ~typ:(returning id) diff --git a/PhotosUI/PHPickerResult.ml b/PhotosUI/PHPickerResult.ml index 745e8396..a4a2c78e 100644 --- a/PhotosUI/PHPickerResult.ml +++ b/PhotosUI/PHPickerResult.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/phpickerresult?language=objc}PHPickerResult} *) +let self = get_class "PHPickerResult" + let assetIdentifier self = msg_send ~self ~cmd:(selector "assetIdentifier") ~typ:(returning id) let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) diff --git a/PhotosUI/PHPickerResultClass.ml b/PhotosUI/PHPickerResultClass.ml deleted file mode 100644 index 15690fe6..00000000 --- a/PhotosUI/PHPickerResultClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/phpickerresult?language=objc}PHPickerResult} *) - -let self = get_class "PHPickerResult" diff --git a/PhotosUI/PHPickerViewController.ml b/PhotosUI/PHPickerViewController.ml index 930420cb..7669660f 100644 --- a/PhotosUI/PHPickerViewController.ml +++ b/PhotosUI/PHPickerViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/phpickerviewcontroller?language=objc}PHPickerViewController} *) +let self = get_class "PHPickerViewController" + let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning id) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) diff --git a/PhotosUI/PHPickerViewControllerClass.ml b/PhotosUI/PHPickerViewControllerClass.ml deleted file mode 100644 index e138551d..00000000 --- a/PhotosUI/PHPickerViewControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/phpickerviewcontroller?language=objc}PHPickerViewController} *) - -let self = get_class "PHPickerViewController" diff --git a/PhotosUI/PHSwipeDownTracker.ml b/PhotosUI/PHSwipeDownTracker.ml index a6dd12ba..f359d6fa 100644 --- a/PhotosUI/PHSwipeDownTracker.ml +++ b/PhotosUI/PHSwipeDownTracker.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/phswipedowntracker?language=objc}PHSwipeDownTracker} *) +let self = get_class "PHSwipeDownTracker" + let dismissalProgress self = msg_send ~self ~cmd:(selector "dismissalProgress") ~typ:(returning double) let finalAnimationDuration self = msg_send ~self ~cmd:(selector "finalAnimationDuration") ~typ:(returning double) let finalAnimationSpringDamping self = msg_send ~self ~cmd:(selector "finalAnimationSpringDamping") ~typ:(returning double) @@ -23,4 +22,3 @@ let trackGestureTranslation x ~velocity self = msg_send ~self ~cmd:(selector "tr let trackedBounds self = msg_send ~self ~cmd:(selector "trackedBounds") ~typ:(returning CGRect.t) let trackedCenter self = msg_send ~self ~cmd:(selector "trackedCenter") ~typ:(returning CGPoint.t) let trackedTransform self = msg_send ~self ~cmd:(selector "trackedTransform") ~typ:(returning CGAffineTransform.t) -(* let trackedVelocity self = msg_send ~self ~cmd:(selector "trackedVelocity") ~typ:(returning PHDisplayVelocity.t) *) \ No newline at end of file diff --git a/PhotosUI/PHSwipeDownTrackerClass.ml b/PhotosUI/PHSwipeDownTrackerClass.ml deleted file mode 100644 index b2b61b0b..00000000 --- a/PhotosUI/PHSwipeDownTrackerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/phswipedowntracker?language=objc}PHSwipeDownTracker} *) - -let self = get_class "PHSwipeDownTracker" diff --git a/PhotosUI/PUAbstractNavigationBanner.ml b/PhotosUI/PUAbstractNavigationBanner.ml index 94085ed1..a9d959f2 100644 --- a/PhotosUI/PUAbstractNavigationBanner.ml +++ b/PhotosUI/PUAbstractNavigationBanner.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puabstractnavigationbanner?language=objc}PUAbstractNavigationBanner} *) +let self = get_class "PUAbstractNavigationBanner" + let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) let height self = msg_send ~self ~cmd:(selector "height") ~typ:(returning double) let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x diff --git a/PhotosUI/PUAbstractNavigationBannerClass.ml b/PhotosUI/PUAbstractNavigationBannerClass.ml deleted file mode 100644 index 8989c434..00000000 --- a/PhotosUI/PUAbstractNavigationBannerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puabstractnavigationbanner?language=objc}PUAbstractNavigationBanner} *) - -let self = get_class "PUAbstractNavigationBanner" diff --git a/PhotosUI/PUAggregateDictionaryBrowsingViewModelTracer.ml b/PhotosUI/PUAggregateDictionaryBrowsingViewModelTracer.ml index de90ba51..f33dc44e 100644 --- a/PhotosUI/PUAggregateDictionaryBrowsingViewModelTracer.ml +++ b/PhotosUI/PUAggregateDictionaryBrowsingViewModelTracer.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puaggregatedictionarybrowsingviewmodeltracer?language=objc}PUAggregateDictionaryBrowsingViewModelTracer} *) +let self = get_class "PUAggregateDictionaryBrowsingViewModelTracer" + let addViewingContext x self = msg_send ~self ~cmd:(selector "addViewingContext:") ~typ:(id @-> returning void) x let browsingViewModel self = msg_send ~self ~cmd:(selector "browsingViewModel") ~typ:(returning id) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) diff --git a/PhotosUI/PUAggregateDictionaryBrowsingViewModelTracerClass.ml b/PhotosUI/PUAggregateDictionaryBrowsingViewModelTracerClass.ml deleted file mode 100644 index c879738a..00000000 --- a/PhotosUI/PUAggregateDictionaryBrowsingViewModelTracerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puaggregatedictionarybrowsingviewmodeltracer?language=objc}PUAggregateDictionaryBrowsingViewModelTracer} *) - -let self = get_class "PUAggregateDictionaryBrowsingViewModelTracer" diff --git a/PhotosUI/PUAggregateDictionaryTracer.ml b/PhotosUI/PUAggregateDictionaryTracer.ml index 6be33240..d9be15b1 100644 --- a/PhotosUI/PUAggregateDictionaryTracer.ml +++ b/PhotosUI/PUAggregateDictionaryTracer.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puaggregatedictionarytracer?language=objc}PUAggregateDictionaryTracer} *) +let self = get_class "PUAggregateDictionaryTracer" + let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let invalidateContext x self = msg_send ~self ~cmd:(selector "invalidateContext:") ~typ:(id @-> returning void) x let streamedVideoPlaybackBegan x self = msg_send ~self ~cmd:(selector "streamedVideoPlaybackBegan:") ~typ:(id @-> returning void) x diff --git a/PhotosUI/PUAggregateDictionaryTracerClass.ml b/PhotosUI/PUAggregateDictionaryTracerClass.ml index 30fb4715..0658ecdc 100644 --- a/PhotosUI/PUAggregateDictionaryTracerClass.ml +++ b/PhotosUI/PUAggregateDictionaryTracerClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puaggregatedictionarytracer?language=objc}PUAggregateDictionaryTracer} *) -let self = get_class "PUAggregateDictionaryTracer" - let sharedTracer self = msg_send ~self ~cmd:(selector "sharedTracer") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUAlbumGadget.ml b/PhotosUI/PUAlbumGadget.ml index 3c8a30ec..8a2d6678 100644 --- a/PhotosUI/PUAlbumGadget.ml +++ b/PhotosUI/PUAlbumGadget.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumgadget?language=objc}PUAlbumGadget} *) +let self = get_class "PUAlbumGadget" + let albumGadgetDelegate self = msg_send ~self ~cmd:(selector "albumGadgetDelegate") ~typ:(returning id) let albumListCellContentView self = msg_send ~self ~cmd:(selector "albumListCellContentView") ~typ:(returning id) let albumListCellContentViewHelper self = msg_send ~self ~cmd:(selector "albumListCellContentViewHelper") ~typ:(returning id) diff --git a/PhotosUI/PUAlbumGadgetClass.ml b/PhotosUI/PUAlbumGadgetClass.ml deleted file mode 100644 index dd27456a..00000000 --- a/PhotosUI/PUAlbumGadgetClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumgadget?language=objc}PUAlbumGadget} *) - -let self = get_class "PUAlbumGadget" diff --git a/PhotosUI/PUAlbumListCell.ml b/PhotosUI/PUAlbumListCell.ml index 92c43043..15c6f39f 100644 --- a/PhotosUI/PUAlbumListCell.ml +++ b/PhotosUI/PUAlbumListCell.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistcell?language=objc}PUAlbumListCell} *) +let self = get_class "PUAlbumListCell" + let albumListCellContentView self = msg_send ~self ~cmd:(selector "albumListCellContentView") ~typ:(returning id) let didTransitionFromLayout x ~toLayout self = msg_send ~self ~cmd:(selector "didTransitionFromLayout:toLayout:") ~typ:(id @-> id @-> returning void) x toLayout let focusEffect self = msg_send ~self ~cmd:(selector "focusEffect") ~typ:(returning id) diff --git a/PhotosUI/PUAlbumListCellClass.ml b/PhotosUI/PUAlbumListCellClass.ml deleted file mode 100644 index bc6b8909..00000000 --- a/PhotosUI/PUAlbumListCellClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistcell?language=objc}PUAlbumListCell} *) - -let self = get_class "PUAlbumListCell" diff --git a/PhotosUI/PUAlbumListCellContentView.ml b/PhotosUI/PUAlbumListCellContentView.ml index 4bb650b9..58047ade 100644 --- a/PhotosUI/PUAlbumListCellContentView.ml +++ b/PhotosUI/PUAlbumListCellContentView.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistcellcontentview?language=objc}PUAlbumListCellContentView} *) +let self = get_class "PUAlbumListCellContentView" + let avatarView self = msg_send ~self ~cmd:(selector "avatarView") ~typ:(returning id) let cancelPerformRetitleAction self = msg_send ~self ~cmd:(selector "cancelPerformRetitleAction") ~typ:(returning void) let combinesPhotoDecorations self = msg_send ~self ~cmd:(selector "combinesPhotoDecorations") ~typ:(returning bool) diff --git a/PhotosUI/PUAlbumListCellContentViewClass.ml b/PhotosUI/PUAlbumListCellContentViewClass.ml deleted file mode 100644 index f368d9ae..00000000 --- a/PhotosUI/PUAlbumListCellContentViewClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistcellcontentview?language=objc}PUAlbumListCellContentView} *) - -let self = get_class "PUAlbumListCellContentView" diff --git a/PhotosUI/PUAlbumListCellContentViewHelper.ml b/PhotosUI/PUAlbumListCellContentViewHelper.ml index 8710b9d8..18d7cf26 100644 --- a/PhotosUI/PUAlbumListCellContentViewHelper.ml +++ b/PhotosUI/PUAlbumListCellContentViewHelper.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistcellcontentviewhelper?language=objc}PUAlbumListCellContentViewHelper} *) +let self = get_class "PUAlbumListCellContentViewHelper" + let addSharedAlbumPlaceholderImage self = msg_send ~self ~cmd:(selector "addSharedAlbumPlaceholderImage") ~typ:(returning id) let albumCellSize self = msg_send ~self ~cmd:(selector "albumCellSize") ~typ:(returning CGSize.t) let badgeManager self = msg_send ~self ~cmd:(selector "badgeManager") ~typ:(returning id) diff --git a/PhotosUI/PUAlbumListCellContentViewHelperClass.ml b/PhotosUI/PUAlbumListCellContentViewHelperClass.ml deleted file mode 100644 index 3e7591ac..00000000 --- a/PhotosUI/PUAlbumListCellContentViewHelperClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistcellcontentviewhelper?language=objc}PUAlbumListCellContentViewHelper} *) - -let self = get_class "PUAlbumListCellContentViewHelper" diff --git a/PhotosUI/PUAlbumListCellContentViewHelperConfiguration.ml b/PhotosUI/PUAlbumListCellContentViewHelperConfiguration.ml index 4b2f8ad5..4da389a8 100644 --- a/PhotosUI/PUAlbumListCellContentViewHelperConfiguration.ml +++ b/PhotosUI/PUAlbumListCellContentViewHelperConfiguration.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistcellcontentviewhelperconfiguration?language=objc}PUAlbumListCellContentViewHelperConfiguration} *) +let self = get_class "PUAlbumListCellContentViewHelperConfiguration" + let albumSubtitleFormat self = msg_send ~self ~cmd:(selector "albumSubtitleFormat") ~typ:(returning id) let allowsEmailInSubtitle self = msg_send ~self ~cmd:(selector "allowsEmailInSubtitle") ~typ:(returning bool) let cellContentViewLayout self = msg_send ~self ~cmd:(selector "cellContentViewLayout") ~typ:(returning llong) diff --git a/PhotosUI/PUAlbumListCellContentViewHelperConfigurationClass.ml b/PhotosUI/PUAlbumListCellContentViewHelperConfigurationClass.ml index d9accb5f..5086bcc3 100644 --- a/PhotosUI/PUAlbumListCellContentViewHelperConfigurationClass.ml +++ b/PhotosUI/PUAlbumListCellContentViewHelperConfigurationClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistcellcontentviewhelperconfiguration?language=objc}PUAlbumListCellContentViewHelperConfiguration} *) -let self = get_class "PUAlbumListCellContentViewHelperConfiguration" - let defaultConfiguration self = msg_send ~self ~cmd:(selector "defaultConfiguration") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUAlbumListSectionHeaderView.ml b/PhotosUI/PUAlbumListSectionHeaderView.ml index e39a93d6..258c601e 100644 --- a/PhotosUI/PUAlbumListSectionHeaderView.ml +++ b/PhotosUI/PUAlbumListSectionHeaderView.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistsectionheaderview?language=objc}PUAlbumListSectionHeaderView} *) +let self = get_class "PUAlbumListSectionHeaderView" + let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) let sectionHeaderInsets self = msg_send ~self ~cmd:(selector "sectionHeaderInsets") ~typ:(returning UIEdgeInsets.t) diff --git a/PhotosUI/PUAlbumListSectionHeaderViewClass.ml b/PhotosUI/PUAlbumListSectionHeaderViewClass.ml deleted file mode 100644 index 355f4d71..00000000 --- a/PhotosUI/PUAlbumListSectionHeaderViewClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistsectionheaderview?language=objc}PUAlbumListSectionHeaderView} *) - -let self = get_class "PUAlbumListSectionHeaderView" diff --git a/PhotosUI/PUAlbumListSeparatorView.ml b/PhotosUI/PUAlbumListSeparatorView.ml index 92a2b3ae..4a3145b1 100644 --- a/PhotosUI/PUAlbumListSeparatorView.ml +++ b/PhotosUI/PUAlbumListSeparatorView.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistseparatorview?language=objc}PUAlbumListSeparatorView} *) +let self = get_class "PUAlbumListSeparatorView" + let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) let lineColor self = msg_send ~self ~cmd:(selector "lineColor") ~typ:(returning id) diff --git a/PhotosUI/PUAlbumListSeparatorViewClass.ml b/PhotosUI/PUAlbumListSeparatorViewClass.ml deleted file mode 100644 index 65c44d3e..00000000 --- a/PhotosUI/PUAlbumListSeparatorViewClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistseparatorview?language=objc}PUAlbumListSeparatorView} *) - -let self = get_class "PUAlbumListSeparatorView" diff --git a/PhotosUI/PUAlbumListSettings.ml b/PhotosUI/PUAlbumListSettings.ml index f7614162..b1d1a677 100644 --- a/PhotosUI/PUAlbumListSettings.ml +++ b/PhotosUI/PUAlbumListSettings.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistsettings?language=objc}PUAlbumListSettings} *) +let self = get_class "PUAlbumListSettings" + let allowNavigationTitleEditing self = msg_send ~self ~cmd:(selector "allowNavigationTitleEditing") ~typ:(returning bool) let avatarSpacing self = msg_send ~self ~cmd:(selector "avatarSpacing") ~typ:(returning double) let combinePeoplePlacesAndMediaTypesOnIpad self = msg_send ~self ~cmd:(selector "combinePeoplePlacesAndMediaTypesOnIpad") ~typ:(returning bool) diff --git a/PhotosUI/PUAlbumListSettingsClass.ml b/PhotosUI/PUAlbumListSettingsClass.ml index 4d5567aa..9bef96d1 100644 --- a/PhotosUI/PUAlbumListSettingsClass.ml +++ b/PhotosUI/PUAlbumListSettingsClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistsettings?language=objc}PUAlbumListSettings} *) -let self = get_class "PUAlbumListSettings" - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUAlbumListTableViewCell.ml b/PhotosUI/PUAlbumListTableViewCell.ml index a84408df..783e7607 100644 --- a/PhotosUI/PUAlbumListTableViewCell.ml +++ b/PhotosUI/PUAlbumListTableViewCell.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlisttableviewcell?language=objc}PUAlbumListTableViewCell} *) +let self = get_class "PUAlbumListTableViewCell" + let setStateChangeDelegate x self = msg_send ~self ~cmd:(selector "setStateChangeDelegate:") ~typ:(id @-> returning void) x let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x let stateChangeDelegate self = msg_send ~self ~cmd:(selector "stateChangeDelegate") ~typ:(returning id) diff --git a/PhotosUI/PUAlbumListTableViewCellClass.ml b/PhotosUI/PUAlbumListTableViewCellClass.ml deleted file mode 100644 index b28265e4..00000000 --- a/PhotosUI/PUAlbumListTableViewCellClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlisttableviewcell?language=objc}PUAlbumListTableViewCell} *) - -let self = get_class "PUAlbumListTableViewCell" diff --git a/PhotosUI/PUAlbumListTransitionContext.ml b/PhotosUI/PUAlbumListTransitionContext.ml index 32f7d2e6..1a26bf4d 100644 --- a/PhotosUI/PUAlbumListTransitionContext.ml +++ b/PhotosUI/PUAlbumListTransitionContext.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlisttransitioncontext?language=objc}PUAlbumListTransitionContext} *) +let self = get_class "PUAlbumListTransitionContext" + let collection self = msg_send ~self ~cmd:(selector "collection") ~typ:(returning id) let keyItemIndexPath self = msg_send ~self ~cmd:(selector "keyItemIndexPath") ~typ:(returning id) let phCollection self = msg_send ~self ~cmd:(selector "phCollection") ~typ:(returning id) diff --git a/PhotosUI/PUAlbumListTransitionContextClass.ml b/PhotosUI/PUAlbumListTransitionContextClass.ml deleted file mode 100644 index 4465a84b..00000000 --- a/PhotosUI/PUAlbumListTransitionContextClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlisttransitioncontext?language=objc}PUAlbumListTransitionContext} *) - -let self = get_class "PUAlbumListTransitionContext" diff --git a/PhotosUI/PUAlbumListViewController.ml b/PhotosUI/PUAlbumListViewController.ml index 842a4e1f..0f0f3496 100644 --- a/PhotosUI/PUAlbumListViewController.ml +++ b/PhotosUI/PUAlbumListViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistviewcontroller?language=objc}PUAlbumListViewController} *) +let self = get_class "PUAlbumListViewController" + let albumListCellContentView x ~performDeleteAction self = msg_send ~self ~cmd:(selector "albumListCellContentView:performDeleteAction:") ~typ:(id @-> id @-> returning void) x performDeleteAction let albumListCellContentView' x ~didEndRetitlingFromTitle ~toTitle self = msg_send ~self ~cmd:(selector "albumListCellContentView:didEndRetitlingFromTitle:toTitle:") ~typ:(id @-> id @-> id @-> returning void) x didEndRetitlingFromTitle toTitle let albumListCellContentViewShouldBeginRetitling x self = msg_send ~self ~cmd:(selector "albumListCellContentViewShouldBeginRetitling:") ~typ:(id @-> returning bool) x diff --git a/PhotosUI/PUAlbumListViewControllerClass.ml b/PhotosUI/PUAlbumListViewControllerClass.ml index 6fa3cae2..828982db 100644 --- a/PhotosUI/PUAlbumListViewControllerClass.ml +++ b/PhotosUI/PUAlbumListViewControllerClass.ml @@ -4,16 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistviewcontroller?language=objc}PUAlbumListViewController} *) -let self = get_class "PUAlbumListViewController" - let newMyAlbumsViewControllerWithSpec x ~sessionInfo self = msg_send ~self ~cmd:(selector "newMyAlbumsViewControllerWithSpec:sessionInfo:") ~typ:(id @-> id @-> returning id) x sessionInfo let newMyAlbumsViewControllerWithSpec' x ~sessionInfo ~dataSourceManager self = msg_send ~self ~cmd:(selector "newMyAlbumsViewControllerWithSpec:sessionInfo:dataSourceManager:") ~typ:(id @-> id @-> id @-> returning id) x sessionInfo dataSourceManager let newSharedAlbumsViewControllerWithSpec x ~sessionInfo self = msg_send ~self ~cmd:(selector "newSharedAlbumsViewControllerWithSpec:sessionInfo:") ~typ:(id @-> id @-> returning id) x sessionInfo diff --git a/PhotosUI/PUAlbumListViewControllerCommonImagePickerSpec.ml b/PhotosUI/PUAlbumListViewControllerCommonImagePickerSpec.ml index 29692e82..5456fcfa 100644 --- a/PhotosUI/PUAlbumListViewControllerCommonImagePickerSpec.ml +++ b/PhotosUI/PUAlbumListViewControllerCommonImagePickerSpec.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistviewcontrollercommonimagepickerspec?language=objc}PUAlbumListViewControllerCommonImagePickerSpec} *) +let self = get_class "PUAlbumListViewControllerCommonImagePickerSpec" + let cellContentViewLayout self = msg_send ~self ~cmd:(selector "cellContentViewLayout") ~typ:(returning llong) let cellSizeForBounds x self = msg_send ~self ~cmd:(selector "cellSizeForBounds:") ~typ:(CGRect.t @-> returning CGSize.t) x let configureStackViewWithGridStyle x self = msg_send ~self ~cmd:(selector "configureStackViewWithGridStyle:") ~typ:(id @-> returning void) x diff --git a/PhotosUI/PUAlbumListViewControllerCommonImagePickerSpecClass.ml b/PhotosUI/PUAlbumListViewControllerCommonImagePickerSpecClass.ml deleted file mode 100644 index f193650f..00000000 --- a/PhotosUI/PUAlbumListViewControllerCommonImagePickerSpecClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistviewcontrollercommonimagepickerspec?language=objc}PUAlbumListViewControllerCommonImagePickerSpec} *) - -let self = get_class "PUAlbumListViewControllerCommonImagePickerSpec" diff --git a/PhotosUI/PUAlbumListViewControllerCommonPhoneSpec.ml b/PhotosUI/PUAlbumListViewControllerCommonPhoneSpec.ml index 6ba97790..7b04bac7 100644 --- a/PhotosUI/PUAlbumListViewControllerCommonPhoneSpec.ml +++ b/PhotosUI/PUAlbumListViewControllerCommonPhoneSpec.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistviewcontrollercommonphonespec?language=objc}PUAlbumListViewControllerCommonPhoneSpec} *) +let self = get_class "PUAlbumListViewControllerCommonPhoneSpec" + let albumDeletionConfirmationStyle self = msg_send ~self ~cmd:(selector "albumDeletionConfirmationStyle") ~typ:(returning llong) let albumViewControllerSpec self = msg_send ~self ~cmd:(selector "albumViewControllerSpec") ~typ:(returning id) let emptyStackPhotoDecoration self = msg_send ~self ~cmd:(selector "emptyStackPhotoDecoration") ~typ:(returning id) diff --git a/PhotosUI/PUAlbumListViewControllerCommonPhoneSpecClass.ml b/PhotosUI/PUAlbumListViewControllerCommonPhoneSpecClass.ml deleted file mode 100644 index 8b82478b..00000000 --- a/PhotosUI/PUAlbumListViewControllerCommonPhoneSpecClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistviewcontrollercommonphonespec?language=objc}PUAlbumListViewControllerCommonPhoneSpec} *) - -let self = get_class "PUAlbumListViewControllerCommonPhoneSpec" diff --git a/PhotosUI/PUAlbumListViewControllerPadImagePickerSpec.ml b/PhotosUI/PUAlbumListViewControllerPadImagePickerSpec.ml new file mode 100644 index 00000000..357b7129 --- /dev/null +++ b/PhotosUI/PUAlbumListViewControllerPadImagePickerSpec.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open UIKit + +(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistviewcontrollerpadimagepickerspec?language=objc}PUAlbumListViewControllerPadImagePickerSpec} *) + +let self = get_class "PUAlbumListViewControllerPadImagePickerSpec" + +let albumViewControllerSpec self = msg_send ~self ~cmd:(selector "albumViewControllerSpec") ~typ:(returning id) +let gridViewControllerSpec self = msg_send ~self ~cmd:(selector "gridViewControllerSpec") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUAlbumListViewControllerPadSpec.ml b/PhotosUI/PUAlbumListViewControllerPadSpec.ml index 2b1e17ca..fe8653a2 100644 --- a/PhotosUI/PUAlbumListViewControllerPadSpec.ml +++ b/PhotosUI/PUAlbumListViewControllerPadSpec.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistviewcontrollerpadspec?language=objc}PUAlbumListViewControllerPadSpec} *) +let self = get_class "PUAlbumListViewControllerPadSpec" + let albumDeletionConfirmationStyle self = msg_send ~self ~cmd:(selector "albumDeletionConfirmationStyle") ~typ:(returning llong) let albumViewControllerSpec self = msg_send ~self ~cmd:(selector "albumViewControllerSpec") ~typ:(returning id) let canShowVirtualCollections self = msg_send ~self ~cmd:(selector "canShowVirtualCollections") ~typ:(returning bool) diff --git a/PhotosUI/PUAlbumListViewControllerPadSpecClass.ml b/PhotosUI/PUAlbumListViewControllerPadSpecClass.ml deleted file mode 100644 index bf248c97..00000000 --- a/PhotosUI/PUAlbumListViewControllerPadSpecClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistviewcontrollerpadspec?language=objc}PUAlbumListViewControllerPadSpec} *) - -let self = get_class "PUAlbumListViewControllerPadSpec" diff --git a/PhotosUI/PUAlbumListViewControllerPhoneImagePickerSpec.ml b/PhotosUI/PUAlbumListViewControllerPhoneImagePickerSpec.ml new file mode 100644 index 00000000..3e6abc9e --- /dev/null +++ b/PhotosUI/PUAlbumListViewControllerPhoneImagePickerSpec.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open UIKit + +(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistviewcontrollerphoneimagepickerspec?language=objc}PUAlbumListViewControllerPhoneImagePickerSpec} *) + +let self = get_class "PUAlbumListViewControllerPhoneImagePickerSpec" + +let albumViewControllerSpec self = msg_send ~self ~cmd:(selector "albumViewControllerSpec") ~typ:(returning id) +let gridViewControllerSpec self = msg_send ~self ~cmd:(selector "gridViewControllerSpec") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUAlbumListViewControllerPhoneSpec.ml b/PhotosUI/PUAlbumListViewControllerPhoneSpec.ml index 2d8a19b0..fe2539c4 100644 --- a/PhotosUI/PUAlbumListViewControllerPhoneSpec.ml +++ b/PhotosUI/PUAlbumListViewControllerPhoneSpec.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistviewcontrollerphonespec?language=objc}PUAlbumListViewControllerPhoneSpec} *) +let self = get_class "PUAlbumListViewControllerPhoneSpec" + let cellContentViewLayout self = msg_send ~self ~cmd:(selector "cellContentViewLayout") ~typ:(returning llong) let cellSizeForStackSize x self = msg_send ~self ~cmd:(selector "cellSizeForStackSize:") ~typ:(CGSize.t @-> returning CGSize.t) x let configureGridLayout x ~forLayoutReferenceSize ~safeAreaInsets self = msg_send ~self ~cmd:(selector "configureGridLayout:forLayoutReferenceSize:safeAreaInsets:") ~typ:(id @-> CGSize.t @-> UIEdgeInsets.t @-> returning void) x forLayoutReferenceSize safeAreaInsets diff --git a/PhotosUI/PUAlbumListViewControllerPhoneSpecClass.ml b/PhotosUI/PUAlbumListViewControllerPhoneSpecClass.ml deleted file mode 100644 index 8ff2de4a..00000000 --- a/PhotosUI/PUAlbumListViewControllerPhoneSpecClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistviewcontrollerphonespec?language=objc}PUAlbumListViewControllerPhoneSpec} *) - -let self = get_class "PUAlbumListViewControllerPhoneSpec" diff --git a/PhotosUI/PUAlbumListViewControllerSpec.ml b/PhotosUI/PUAlbumListViewControllerSpec.ml index 82f3b3ac..0ea6f6b0 100644 --- a/PhotosUI/PUAlbumListViewControllerSpec.ml +++ b/PhotosUI/PUAlbumListViewControllerSpec.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistviewcontrollerspec?language=objc}PUAlbumListViewControllerSpec} *) +let self = get_class "PUAlbumListViewControllerSpec" + let addSharedAlbumPlaceholderImageForWindow x self = msg_send ~self ~cmd:(selector "addSharedAlbumPlaceholderImageForWindow:") ~typ:(id @-> returning id) x let albumDeletionConfirmationStyle self = msg_send ~self ~cmd:(selector "albumDeletionConfirmationStyle") ~typ:(returning llong) let albumViewControllerSpec self = msg_send ~self ~cmd:(selector "albumViewControllerSpec") ~typ:(returning id) diff --git a/PhotosUI/PUAlbumListViewControllerSpecClass.ml b/PhotosUI/PUAlbumListViewControllerSpecClass.ml index 6c6386a9..d1898c87 100644 --- a/PhotosUI/PUAlbumListViewControllerSpecClass.ml +++ b/PhotosUI/PUAlbumListViewControllerSpecClass.ml @@ -4,15 +4,10 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumlistviewcontrollerspec?language=objc}PUAlbumListViewControllerSpec} *) -let self = get_class "PUAlbumListViewControllerSpec" - let padSpec self = msg_send ~self ~cmd:(selector "padSpec") ~typ:(returning id) let phoneSpec self = msg_send ~self ~cmd:(selector "phoneSpec") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUAlbumNavigationHelperParams.ml b/PhotosUI/PUAlbumNavigationHelperParams.ml index 7badccb3..6a54867a 100644 --- a/PhotosUI/PUAlbumNavigationHelperParams.ml +++ b/PhotosUI/PUAlbumNavigationHelperParams.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumnavigationhelperparams?language=objc}PUAlbumNavigationHelperParams} *) +let self = get_class "PUAlbumNavigationHelperParams" + let dataSource self = msg_send ~self ~cmd:(selector "dataSource") ~typ:(returning id) let dataSourceManager self = msg_send ~self ~cmd:(selector "dataSourceManager") ~typ:(returning id) let gridPresentation self = msg_send ~self ~cmd:(selector "gridPresentation") ~typ:(returning id) diff --git a/PhotosUI/PUAlbumNavigationHelperParamsClass.ml b/PhotosUI/PUAlbumNavigationHelperParamsClass.ml deleted file mode 100644 index 05cd13f5..00000000 --- a/PhotosUI/PUAlbumNavigationHelperParamsClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumnavigationhelperparams?language=objc}PUAlbumNavigationHelperParams} *) - -let self = get_class "PUAlbumNavigationHelperParams" diff --git a/PhotosUI/PUAlbumPickerSessionInfo.ml b/PhotosUI/PUAlbumPickerSessionInfo.ml new file mode 100644 index 00000000..cbecdfe0 --- /dev/null +++ b/PhotosUI/PUAlbumPickerSessionInfo.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open UIKit + +(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumpickersessioninfo?language=objc}PUAlbumPickerSessionInfo} *) + +let self = get_class "PUAlbumPickerSessionInfo" + +let initWithSourceAlbum x ~transferredAssets self = msg_send ~self ~cmd:(selector "initWithSourceAlbum:transferredAssets:") ~typ:(id @-> id @-> returning id) x transferredAssets +let isSelectingTargetAlbum self = msg_send ~self ~cmd:(selector "isSelectingTargetAlbum") ~typ:(returning bool) \ No newline at end of file diff --git a/PhotosUI/PUAlbumPickerViewController.ml b/PhotosUI/PUAlbumPickerViewController.ml index 2eeea3ff..35c403f3 100644 --- a/PhotosUI/PUAlbumPickerViewController.ml +++ b/PhotosUI/PUAlbumPickerViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumpickerviewcontroller?language=objc}PUAlbumPickerViewController} *) +let self = get_class "PUAlbumPickerViewController" + let albumPickerSessionInfo self = msg_send ~self ~cmd:(selector "albumPickerSessionInfo") ~typ:(returning id) let collectionList self = msg_send ~self ~cmd:(selector "collectionList") ~typ:(returning id) let completionHandler self = msg_send ~self ~cmd:(selector "completionHandler") ~typ:(returning (ptr void)) diff --git a/PhotosUI/PUAlbumPickerViewControllerClass.ml b/PhotosUI/PUAlbumPickerViewControllerClass.ml deleted file mode 100644 index 0e116ada..00000000 --- a/PhotosUI/PUAlbumPickerViewControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumpickerviewcontroller?language=objc}PUAlbumPickerViewController} *) - -let self = get_class "PUAlbumPickerViewController" diff --git a/PhotosUI/PUAlbumPickerViewControllerPadSpec.ml b/PhotosUI/PUAlbumPickerViewControllerPadSpec.ml index f90a5552..93a94a0c 100644 --- a/PhotosUI/PUAlbumPickerViewControllerPadSpec.ml +++ b/PhotosUI/PUAlbumPickerViewControllerPadSpec.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumpickerviewcontrollerpadspec?language=objc}PUAlbumPickerViewControllerPadSpec} *) +let self = get_class "PUAlbumPickerViewControllerPadSpec" + let albumListViewControllerSpec self = msg_send ~self ~cmd:(selector "albumListViewControllerSpec") ~typ:(returning id) let configureSessionInfo x self = msg_send ~self ~cmd:(selector "configureSessionInfo:") ~typ:(id @-> returning void) x let newAlbumListViewController self = msg_send ~self ~cmd:(selector "newAlbumListViewController") ~typ:(returning id) diff --git a/PhotosUI/PUAlbumPickerViewControllerPadSpecClass.ml b/PhotosUI/PUAlbumPickerViewControllerPadSpecClass.ml deleted file mode 100644 index 5c8f4bce..00000000 --- a/PhotosUI/PUAlbumPickerViewControllerPadSpecClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumpickerviewcontrollerpadspec?language=objc}PUAlbumPickerViewControllerPadSpec} *) - -let self = get_class "PUAlbumPickerViewControllerPadSpec" diff --git a/PhotosUI/PUAlbumPickerViewControllerPhoneSpec.ml b/PhotosUI/PUAlbumPickerViewControllerPhoneSpec.ml index 20c27404..25d44282 100644 --- a/PhotosUI/PUAlbumPickerViewControllerPhoneSpec.ml +++ b/PhotosUI/PUAlbumPickerViewControllerPhoneSpec.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumpickerviewcontrollerphonespec?language=objc}PUAlbumPickerViewControllerPhoneSpec} *) +let self = get_class "PUAlbumPickerViewControllerPhoneSpec" + let albumListViewControllerSpec self = msg_send ~self ~cmd:(selector "albumListViewControllerSpec") ~typ:(returning id) let bannerViewStyle self = msg_send ~self ~cmd:(selector "bannerViewStyle") ~typ:(returning ullong) let configureSessionInfo x self = msg_send ~self ~cmd:(selector "configureSessionInfo:") ~typ:(id @-> returning void) x diff --git a/PhotosUI/PUAlbumPickerViewControllerPhoneSpecClass.ml b/PhotosUI/PUAlbumPickerViewControllerPhoneSpecClass.ml deleted file mode 100644 index ec7565ca..00000000 --- a/PhotosUI/PUAlbumPickerViewControllerPhoneSpecClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumpickerviewcontrollerphonespec?language=objc}PUAlbumPickerViewControllerPhoneSpec} *) - -let self = get_class "PUAlbumPickerViewControllerPhoneSpec" diff --git a/PhotosUI/PUAlbumPickerViewControllerSpec.ml b/PhotosUI/PUAlbumPickerViewControllerSpec.ml index 324b8f86..6e13f8bf 100644 --- a/PhotosUI/PUAlbumPickerViewControllerSpec.ml +++ b/PhotosUI/PUAlbumPickerViewControllerSpec.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumpickerviewcontrollerspec?language=objc}PUAlbumPickerViewControllerSpec} *) +let self = get_class "PUAlbumPickerViewControllerSpec" + let albumListViewControllerSpec self = msg_send ~self ~cmd:(selector "albumListViewControllerSpec") ~typ:(returning id) let configureSessionInfo x self = msg_send ~self ~cmd:(selector "configureSessionInfo:") ~typ:(id @-> returning void) x let newAlbumListViewController self = msg_send ~self ~cmd:(selector "newAlbumListViewController") ~typ:(returning id) diff --git a/PhotosUI/PUAlbumPickerViewControllerSpecClass.ml b/PhotosUI/PUAlbumPickerViewControllerSpecClass.ml deleted file mode 100644 index 33f479c7..00000000 --- a/PhotosUI/PUAlbumPickerViewControllerSpecClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumpickerviewcontrollerspec?language=objc}PUAlbumPickerViewControllerSpec} *) - -let self = get_class "PUAlbumPickerViewControllerSpec" diff --git a/PhotosUI/PUAlbumsGadgetDataSourceManager.ml b/PhotosUI/PUAlbumsGadgetDataSourceManager.ml index 475e07b2..60f77b36 100644 --- a/PhotosUI/PUAlbumsGadgetDataSourceManager.ml +++ b/PhotosUI/PUAlbumsGadgetDataSourceManager.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumsgadgetdatasourcemanager?language=objc}PUAlbumsGadgetDataSourceManager} *) +let self = get_class "PUAlbumsGadgetDataSourceManager" + let gadgetProviders self = msg_send ~self ~cmd:(selector "gadgetProviders") ~typ:(returning id) let initWithTraitCollection x ~sessionInfo self = msg_send ~self ~cmd:(selector "initWithTraitCollection:sessionInfo:") ~typ:(id @-> id @-> returning id) x sessionInfo let providers self = msg_send ~self ~cmd:(selector "providers") ~typ:(returning id) diff --git a/PhotosUI/PUAlbumsGadgetDataSourceManagerClass.ml b/PhotosUI/PUAlbumsGadgetDataSourceManagerClass.ml deleted file mode 100644 index 066f908a..00000000 --- a/PhotosUI/PUAlbumsGadgetDataSourceManagerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumsgadgetdatasourcemanager?language=objc}PUAlbumsGadgetDataSourceManager} *) - -let self = get_class "PUAlbumsGadgetDataSourceManager" diff --git a/PhotosUI/PUAlbumsGadgetProvider.ml b/PhotosUI/PUAlbumsGadgetProvider.ml index 5c5d2b16..0c82cfdd 100644 --- a/PhotosUI/PUAlbumsGadgetProvider.ml +++ b/PhotosUI/PUAlbumsGadgetProvider.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumsgadgetprovider?language=objc}PUAlbumsGadgetProvider} *) +let self = get_class "PUAlbumsGadgetProvider" + let albumListCellContentViewHelperForAlbum x self = msg_send ~self ~cmd:(selector "albumListCellContentViewHelperForAlbum:") ~typ:(id @-> returning id) x let albumListCellContentViewHelperForLayout x self = msg_send ~self ~cmd:(selector "albumListCellContentViewHelperForLayout:") ~typ:(id @-> returning id) x let albumListType self = msg_send ~self ~cmd:(selector "albumListType") ~typ:(returning ullong) diff --git a/PhotosUI/PUAlbumsGadgetProviderClass.ml b/PhotosUI/PUAlbumsGadgetProviderClass.ml deleted file mode 100644 index ff950c15..00000000 --- a/PhotosUI/PUAlbumsGadgetProviderClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumsgadgetprovider?language=objc}PUAlbumsGadgetProvider} *) - -let self = get_class "PUAlbumsGadgetProvider" diff --git a/PhotosUI/PUAlbumsGadgetViewController.ml b/PhotosUI/PUAlbumsGadgetViewController.ml index 58cb6c24..d5ed3217 100644 --- a/PhotosUI/PUAlbumsGadgetViewController.ml +++ b/PhotosUI/PUAlbumsGadgetViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumsgadgetviewcontroller?language=objc}PUAlbumsGadgetViewController} *) +let self = get_class "PUAlbumsGadgetViewController" + let allowsBarManagement self = msg_send ~self ~cmd:(selector "allowsBarManagement") ~typ:(returning bool) let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning bool) let canNavigateToCollection x self = msg_send ~self ~cmd:(selector "canNavigateToCollection:") ~typ:(id @-> returning bool) x diff --git a/PhotosUI/PUAlbumsGadgetViewControllerClass.ml b/PhotosUI/PUAlbumsGadgetViewControllerClass.ml deleted file mode 100644 index 7105c745..00000000 --- a/PhotosUI/PUAlbumsGadgetViewControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pualbumsgadgetviewcontroller?language=objc}PUAlbumsGadgetViewController} *) - -let self = get_class "PUAlbumsGadgetViewController" diff --git a/PhotosUI/PUAnimationGroup.ml b/PhotosUI/PUAnimationGroup.ml index e4a10333..ce385e3e 100644 --- a/PhotosUI/PUAnimationGroup.ml +++ b/PhotosUI/PUAnimationGroup.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puanimationgroup?language=objc}PUAnimationGroup} *) +let self = get_class "PUAnimationGroup" + let addSubAnimationGroup x self = msg_send ~self ~cmd:(selector "addSubAnimationGroup:") ~typ:(id @-> returning void) x let complete self = msg_send ~self ~cmd:(selector "complete") ~typ:(returning void) let completeIfNeeded self = msg_send ~self ~cmd:(selector "completeIfNeeded") ~typ:(returning void) diff --git a/PhotosUI/PUAnimationGroupClass.ml b/PhotosUI/PUAnimationGroupClass.ml index 33144463..a519d8ea 100644 --- a/PhotosUI/PUAnimationGroupClass.ml +++ b/PhotosUI/PUAnimationGroupClass.ml @@ -4,16 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puanimationgroup?language=objc}PUAnimationGroup} *) -let self = get_class "PUAnimationGroup" - let animationGroupWithAnimations x self = msg_send ~self ~cmd:(selector "animationGroupWithAnimations:") ~typ:((ptr void) @-> returning id) x let popAnimationGroup x self = msg_send ~self ~cmd:(selector "popAnimationGroup:") ~typ:(id @-> returning void) x let pushAnimationGroup x self = msg_send ~self ~cmd:(selector "pushAnimationGroup:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/PhotosUI/PUAssetPickerActivityProgressController.ml b/PhotosUI/PUAssetPickerActivityProgressController.ml index eb3d1de5..057387ef 100644 --- a/PhotosUI/PUAssetPickerActivityProgressController.ml +++ b/PhotosUI/PUAssetPickerActivityProgressController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetpickeractivityprogresscontroller?language=objc}PUAssetPickerActivityProgressController} *) +let self = get_class "PUAssetPickerActivityProgressController" + let cancellationHandler self = msg_send ~self ~cmd:(selector "cancellationHandler") ~typ:(returning (ptr void)) let hideWithCompletion x self = msg_send ~self ~cmd:(selector "hideWithCompletion:") ~typ:((ptr void) @-> returning void) x let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) diff --git a/PhotosUI/PUAssetPickerActivityProgressControllerClass.ml b/PhotosUI/PUAssetPickerActivityProgressControllerClass.ml deleted file mode 100644 index d76bca73..00000000 --- a/PhotosUI/PUAssetPickerActivityProgressControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetpickeractivityprogresscontroller?language=objc}PUAssetPickerActivityProgressController} *) - -let self = get_class "PUAssetPickerActivityProgressController" diff --git a/PhotosUI/PUAssetPickerActivityProgressViewController.ml b/PhotosUI/PUAssetPickerActivityProgressViewController.ml index 187d7145..1699b0d4 100644 --- a/PhotosUI/PUAssetPickerActivityProgressViewController.ml +++ b/PhotosUI/PUAssetPickerActivityProgressViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetpickeractivityprogressviewcontroller?language=objc}PUAssetPickerActivityProgressViewController} *) +let self = get_class "PUAssetPickerActivityProgressViewController" + let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(id @-> returning void) x let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) \ No newline at end of file diff --git a/PhotosUI/PUAssetPickerActivityProgressViewControllerClass.ml b/PhotosUI/PUAssetPickerActivityProgressViewControllerClass.ml deleted file mode 100644 index 5e0174ef..00000000 --- a/PhotosUI/PUAssetPickerActivityProgressViewControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetpickeractivityprogressviewcontroller?language=objc}PUAssetPickerActivityProgressViewController} *) - -let self = get_class "PUAssetPickerActivityProgressViewController" diff --git a/PhotosUI/PUAssetPickerContainerController.ml b/PhotosUI/PUAssetPickerContainerController.ml index e7641b33..36359697 100644 --- a/PhotosUI/PUAssetPickerContainerController.ml +++ b/PhotosUI/PUAssetPickerContainerController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetpickercontainercontroller?language=objc}PUAssetPickerContainerController} *) +let self = get_class "PUAssetPickerContainerController" + let allAlbumsGadgetViewController self = msg_send ~self ~cmd:(selector "allAlbumsGadgetViewController") ~typ:(returning id) let allowSafeAreaChangeAnchor self = msg_send ~self ~cmd:(selector "allowSafeAreaChangeAnchor") ~typ:(returning bool) let allowsContextMenuInteractionForPhotosViewController x self = msg_send ~self ~cmd:(selector "allowsContextMenuInteractionForPhotosViewController:") ~typ:(id @-> returning bool) x diff --git a/PhotosUI/PUAssetPickerContainerControllerClass.ml b/PhotosUI/PUAssetPickerContainerControllerClass.ml index 7c91c70e..aef40f77 100644 --- a/PhotosUI/PUAssetPickerContainerControllerClass.ml +++ b/PhotosUI/PUAssetPickerContainerControllerClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetpickercontainercontroller?language=objc}PUAssetPickerContainerController} *) -let self = get_class "PUAssetPickerContainerController" - let photosTabTitleForConfiguration x self = msg_send ~self ~cmd:(selector "photosTabTitleForConfiguration:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/PhotosUI/PUAssetPickerCoordinator.ml b/PhotosUI/PUAssetPickerCoordinator.ml index 22ff49ad..d9fd42f8 100644 --- a/PhotosUI/PUAssetPickerCoordinator.ml +++ b/PhotosUI/PUAssetPickerCoordinator.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetpickercoordinator?language=objc}PUAssetPickerCoordinator} *) +let self = get_class "PUAssetPickerCoordinator" + let activateSearchField self = msg_send ~self ~cmd:(selector "activateSearchField") ~typ:(returning void) let assetExplorerReviewScreenViewController x ~fileSizeMenuForSelectedUUIDs self = msg_send ~self ~cmd:(selector "assetExplorerReviewScreenViewController:fileSizeMenuForSelectedUUIDs:") ~typ:(id @-> id @-> returning id) x fileSizeMenuForSelectedUUIDs let assetExplorerReviewScreenViewController1 x ~canPerformActionType ~onAsset ~inAssetCollection self = msg_send ~self ~cmd:(selector "assetExplorerReviewScreenViewController:canPerformActionType:onAsset:inAssetCollection:") ~typ:(id @-> ullong @-> id @-> id @-> returning bool) x (ULLong.of_int canPerformActionType) onAsset inAssetCollection diff --git a/PhotosUI/PUAssetPickerCoordinatorClass.ml b/PhotosUI/PUAssetPickerCoordinatorClass.ml deleted file mode 100644 index 933e6516..00000000 --- a/PhotosUI/PUAssetPickerCoordinatorClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetpickercoordinator?language=objc}PUAssetPickerCoordinator} *) - -let self = get_class "PUAssetPickerCoordinator" diff --git a/PhotosUI/PUAssetPickerHeaderView.ml b/PhotosUI/PUAssetPickerHeaderView.ml index 48d323e1..a94d8e65 100644 --- a/PhotosUI/PUAssetPickerHeaderView.ml +++ b/PhotosUI/PUAssetPickerHeaderView.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetpickerheaderview?language=objc}PUAssetPickerHeaderView} *) +let self = get_class "PUAssetPickerHeaderView" + let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) let setLabel x self = msg_send ~self ~cmd:(selector "setLabel:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/PhotosUI/PUAssetPickerHeaderViewClass.ml b/PhotosUI/PUAssetPickerHeaderViewClass.ml deleted file mode 100644 index 0aec0d97..00000000 --- a/PhotosUI/PUAssetPickerHeaderViewClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetpickerheaderview?language=objc}PUAssetPickerHeaderView} *) - -let self = get_class "PUAssetPickerHeaderView" diff --git a/PhotosUI/PUAssetPickerSearchSuggestionsCollectionViewLayout.ml b/PhotosUI/PUAssetPickerSearchSuggestionsCollectionViewLayout.ml index b8183389..284d2bda 100644 --- a/PhotosUI/PUAssetPickerSearchSuggestionsCollectionViewLayout.ml +++ b/PhotosUI/PUAssetPickerSearchSuggestionsCollectionViewLayout.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetpickersearchsuggestionscollectionviewlayout?language=objc}PUAssetPickerSearchSuggestionsCollectionViewLayout} *) +let self = get_class "PUAssetPickerSearchSuggestionsCollectionViewLayout" + let invalidateLayout self = msg_send ~self ~cmd:(selector "invalidateLayout") ~typ:(returning void) let layoutUpdatesDelegate self = msg_send ~self ~cmd:(selector "layoutUpdatesDelegate") ~typ:(returning id) let setLayoutUpdatesDelegate x self = msg_send ~self ~cmd:(selector "setLayoutUpdatesDelegate:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/PhotosUI/PUAssetPickerSearchSuggestionsCollectionViewLayoutClass.ml b/PhotosUI/PUAssetPickerSearchSuggestionsCollectionViewLayoutClass.ml deleted file mode 100644 index 9c23b1c9..00000000 --- a/PhotosUI/PUAssetPickerSearchSuggestionsCollectionViewLayoutClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetpickersearchsuggestionscollectionviewlayout?language=objc}PUAssetPickerSearchSuggestionsCollectionViewLayout} *) - -let self = get_class "PUAssetPickerSearchSuggestionsCollectionViewLayout" diff --git a/PhotosUI/PUAssetPickerSearchSuggestionsHeaderView.ml b/PhotosUI/PUAssetPickerSearchSuggestionsHeaderView.ml index bc124ecd..7f96d130 100644 --- a/PhotosUI/PUAssetPickerSearchSuggestionsHeaderView.ml +++ b/PhotosUI/PUAssetPickerSearchSuggestionsHeaderView.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetpickersearchsuggestionsheaderview?language=objc}PUAssetPickerSearchSuggestionsHeaderView} *) +let self = get_class "PUAssetPickerSearchSuggestionsHeaderView" + let collectionView self = msg_send ~self ~cmd:(selector "collectionView") ~typ:(returning id) let collectionView' x ~didSelectItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:didSelectItemAtIndexPath:") ~typ:(id @-> id @-> returning void) x didSelectItemAtIndexPath let didInvalidateLayout x self = msg_send ~self ~cmd:(selector "didInvalidateLayout:") ~typ:(id @-> returning void) x diff --git a/PhotosUI/PUAssetPickerSearchSuggestionsHeaderViewClass.ml b/PhotosUI/PUAssetPickerSearchSuggestionsHeaderViewClass.ml deleted file mode 100644 index 1e8ad6d9..00000000 --- a/PhotosUI/PUAssetPickerSearchSuggestionsHeaderViewClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetpickersearchsuggestionsheaderview?language=objc}PUAssetPickerSearchSuggestionsHeaderView} *) - -let self = get_class "PUAssetPickerSearchSuggestionsHeaderView" diff --git a/PhotosUI/PUAssetReference.ml b/PhotosUI/PUAssetReference.ml index 22332021..29ee7ce9 100644 --- a/PhotosUI/PUAssetReference.ml +++ b/PhotosUI/PUAssetReference.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetreference?language=objc}PUAssetReference} *) +let self = get_class "PUAssetReference" + let asset self = msg_send ~self ~cmd:(selector "asset") ~typ:(returning id) let assetCollection self = msg_send ~self ~cmd:(selector "assetCollection") ~typ:(returning id) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x @@ -23,4 +22,3 @@ let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let initWithAsset x ~assetCollection ~indexPath ~dataSourceIdentifier self = msg_send ~self ~cmd:(selector "initWithAsset:assetCollection:indexPath:dataSourceIdentifier:") ~typ:(id @-> id @-> id @-> id @-> returning id) x assetCollection indexPath dataSourceIdentifier let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x let pxAssetReference self = msg_send ~self ~cmd:(selector "pxAssetReference") ~typ:(returning id) -(* let simpleIndexPath self = msg_send ~self ~cmd:(selector "simpleIndexPath") ~typ:(returning PXSimpleIndexPath.t) *) \ No newline at end of file diff --git a/PhotosUI/PUAssetReferenceClass.ml b/PhotosUI/PUAssetReferenceClass.ml deleted file mode 100644 index 19014ea5..00000000 --- a/PhotosUI/PUAssetReferenceClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetreference?language=objc}PUAssetReference} *) - -let self = get_class "PUAssetReference" diff --git a/PhotosUI/PUAssetSharedViewModel.ml b/PhotosUI/PUAssetSharedViewModel.ml index e2cfd79c..4c0f8e31 100644 --- a/PhotosUI/PUAssetSharedViewModel.ml +++ b/PhotosUI/PUAssetSharedViewModel.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetsharedviewmodel?language=objc}PUAssetSharedViewModel} *) +let self = get_class "PUAssetSharedViewModel" + let asset self = msg_send ~self ~cmd:(selector "asset") ~typ:(returning id) let currentChange self = msg_send ~self ~cmd:(selector "currentChange") ~typ:(returning id) let deferredProcessingNeeded self = msg_send ~self ~cmd:(selector "deferredProcessingNeeded") ~typ:(returning ushort) diff --git a/PhotosUI/PUAssetSharedViewModelChange.ml b/PhotosUI/PUAssetSharedViewModelChange.ml index 6ba3a8c8..04c418e7 100644 --- a/PhotosUI/PUAssetSharedViewModelChange.ml +++ b/PhotosUI/PUAssetSharedViewModelChange.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetsharedviewmodelchange?language=objc}PUAssetSharedViewModelChange} *) +let self = get_class "PUAssetSharedViewModelChange" + let deferredProcessingNeededChanged self = msg_send ~self ~cmd:(selector "deferredProcessingNeededChanged") ~typ:(returning bool) let flippingFullSizeRenderStateChanged self = msg_send ~self ~cmd:(selector "flippingFullSizeRenderStateChanged") ~typ:(returning bool) let hasChanges self = msg_send ~self ~cmd:(selector "hasChanges") ~typ:(returning bool) diff --git a/PhotosUI/PUAssetSharedViewModelChangeClass.ml b/PhotosUI/PUAssetSharedViewModelChangeClass.ml deleted file mode 100644 index 370e86e1..00000000 --- a/PhotosUI/PUAssetSharedViewModelChangeClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetsharedviewmodelchange?language=objc}PUAssetSharedViewModelChange} *) - -let self = get_class "PUAssetSharedViewModelChange" diff --git a/PhotosUI/PUAssetSharedViewModelClass.ml b/PhotosUI/PUAssetSharedViewModelClass.ml deleted file mode 100644 index 063e8076..00000000 --- a/PhotosUI/PUAssetSharedViewModelClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetsharedviewmodel?language=objc}PUAssetSharedViewModel} *) - -let self = get_class "PUAssetSharedViewModel" diff --git a/PhotosUI/PUAssetViewModel.ml b/PhotosUI/PUAssetViewModel.ml index c1f18f0e..6cd3799e 100644 --- a/PhotosUI/PUAssetViewModel.ml +++ b/PhotosUI/PUAssetViewModel.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetviewmodel?language=objc}PUAssetViewModel} *) +let self = get_class "PUAssetViewModel" + let animatedImagePlayer self = msg_send ~self ~cmd:(selector "animatedImagePlayer") ~typ:(returning id) let asset self = msg_send ~self ~cmd:(selector "asset") ~typ:(returning id) let assetReference self = msg_send ~self ~cmd:(selector "assetReference") ~typ:(returning id) diff --git a/PhotosUI/PUAssetViewModelChange.ml b/PhotosUI/PUAssetViewModelChange.ml index 3d359c48..95b25b0f 100644 --- a/PhotosUI/PUAssetViewModelChange.ml +++ b/PhotosUI/PUAssetViewModelChange.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetviewmodelchange?language=objc}PUAssetViewModelChange} *) +let self = get_class "PUAssetViewModelChange" + let accessoryViewVisibilityChanged self = msg_send ~self ~cmd:(selector "accessoryViewVisibilityChanged") ~typ:(returning bool) let animatedImageChange self = msg_send ~self ~cmd:(selector "animatedImageChange") ~typ:(returning id) let assetChanged self = msg_send ~self ~cmd:(selector "assetChanged") ~typ:(returning bool) diff --git a/PhotosUI/PUAssetViewModelChangeClass.ml b/PhotosUI/PUAssetViewModelChangeClass.ml deleted file mode 100644 index 5eba4297..00000000 --- a/PhotosUI/PUAssetViewModelChangeClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetviewmodelchange?language=objc}PUAssetViewModelChange} *) - -let self = get_class "PUAssetViewModelChange" diff --git a/PhotosUI/PUAssetViewModelClass.ml b/PhotosUI/PUAssetViewModelClass.ml deleted file mode 100644 index d5ea2e4a..00000000 --- a/PhotosUI/PUAssetViewModelClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetviewmodel?language=objc}PUAssetViewModel} *) - -let self = get_class "PUAssetViewModel" diff --git a/PhotosUI/PUAssetsDataSource.ml b/PhotosUI/PUAssetsDataSource.ml index 31c4b8b8..02ad8a09 100644 --- a/PhotosUI/PUAssetsDataSource.ml +++ b/PhotosUI/PUAssetsDataSource.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetsdatasource?language=objc}PUAssetsDataSource} *) +let self = get_class "PUAssetsDataSource" + let assetAtIndexPath x self = msg_send ~self ~cmd:(selector "assetAtIndexPath:") ~typ:(id @-> returning id) x let assetCollectionAtIndexPath x self = msg_send ~self ~cmd:(selector "assetCollectionAtIndexPath:") ~typ:(id @-> returning id) x let assetReferenceAtIndexPath x self = msg_send ~self ~cmd:(selector "assetReferenceAtIndexPath:") ~typ:(id @-> returning id) x diff --git a/PhotosUI/PUAssetsDataSourceClass.ml b/PhotosUI/PUAssetsDataSourceClass.ml index e0195b93..660d477a 100644 --- a/PhotosUI/PUAssetsDataSourceClass.ml +++ b/PhotosUI/PUAssetsDataSourceClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puassetsdatasource?language=objc}PUAssetsDataSource} *) -let self = get_class "PUAssetsDataSource" - let emptyDataSource self = msg_send ~self ~cmd:(selector "emptyDataSource") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUAvalancheStackView.ml b/PhotosUI/PUAvalancheStackView.ml index e067b126..1751e74e 100644 --- a/PhotosUI/PUAvalancheStackView.ml +++ b/PhotosUI/PUAvalancheStackView.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puavalanchestackview?language=objc}PUAvalancheStackView} *) +let self = get_class "PUAvalancheStackView" + let contentMode self = msg_send ~self ~cmd:(selector "contentMode") ~typ:(returning llong) let imageLayer self = msg_send ~self ~cmd:(selector "imageLayer") ~typ:(returning id) let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) diff --git a/PhotosUI/PUAvalancheStackViewClass.ml b/PhotosUI/PUAvalancheStackViewClass.ml deleted file mode 100644 index 7065460c..00000000 --- a/PhotosUI/PUAvalancheStackViewClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puavalanchestackview?language=objc}PUAvalancheStackView} *) - -let self = get_class "PUAvalancheStackView" diff --git a/PhotosUI/PUBackgroundColorView.ml b/PhotosUI/PUBackgroundColorView.ml new file mode 100644 index 00000000..c828519f --- /dev/null +++ b/PhotosUI/PUBackgroundColorView.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open UIKit + +(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pubackgroundcolorview?language=objc}PUBackgroundColorView} *) + +let self = get_class "PUBackgroundColorView" + +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setOpaque x self = msg_send ~self ~cmd:(selector "setOpaque:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/PhotosUI/PUBlackOneUpInterfaceTheme.ml b/PhotosUI/PUBlackOneUpInterfaceTheme.ml index eea8bc8d..8eb74bb0 100644 --- a/PhotosUI/PUBlackOneUpInterfaceTheme.ml +++ b/PhotosUI/PUBlackOneUpInterfaceTheme.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/publackoneupinterfacetheme?language=objc}PUBlackOneUpInterfaceTheme} *) +let self = get_class "PUBlackOneUpInterfaceTheme" + let photoBrowserBarStyle self = msg_send ~self ~cmd:(selector "photoBrowserBarStyle") ~typ:(returning llong) let photoBrowserChromeVisibleBackgroundColor self = msg_send ~self ~cmd:(selector "photoBrowserChromeVisibleBackgroundColor") ~typ:(returning id) let photoBrowserSpotlightThemeColor self = msg_send ~self ~cmd:(selector "photoBrowserSpotlightThemeColor") ~typ:(returning id) diff --git a/PhotosUI/PUBlackOneUpInterfaceThemeClass.ml b/PhotosUI/PUBlackOneUpInterfaceThemeClass.ml deleted file mode 100644 index 5c3f371e..00000000 --- a/PhotosUI/PUBlackOneUpInterfaceThemeClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/publackoneupinterfacetheme?language=objc}PUBlackOneUpInterfaceTheme} *) - -let self = get_class "PUBlackOneUpInterfaceTheme" diff --git a/PhotosUI/PUBlockValueFilter.ml b/PhotosUI/PUBlockValueFilter.ml index a415d3ed..e3244e76 100644 --- a/PhotosUI/PUBlockValueFilter.ml +++ b/PhotosUI/PUBlockValueFilter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/publockvaluefilter?language=objc}PUBlockValueFilter} *) +let self = get_class "PUBlockValueFilter" + let operationBlock self = msg_send ~self ~cmd:(selector "operationBlock") ~typ:(returning (ptr void)) let setOperationBlock x self = msg_send ~self ~cmd:(selector "setOperationBlock:") ~typ:((ptr void) @-> returning void) x let updatedValue x ~withTargetValue self = msg_send ~self ~cmd:(selector "updatedValue:withTargetValue:") ~typ:(double @-> double @-> returning double) x withTargetValue \ No newline at end of file diff --git a/PhotosUI/PUBlockValueFilterClass.ml b/PhotosUI/PUBlockValueFilterClass.ml deleted file mode 100644 index ecc50f5a..00000000 --- a/PhotosUI/PUBlockValueFilterClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/publockvaluefilter?language=objc}PUBlockValueFilter} *) - -let self = get_class "PUBlockValueFilter" diff --git a/PhotosUI/PUBrowsingAnimatedImagePlayer.ml b/PhotosUI/PUBrowsingAnimatedImagePlayer.ml index 88fad46c..d6c000f6 100644 --- a/PhotosUI/PUBrowsingAnimatedImagePlayer.ml +++ b/PhotosUI/PUBrowsingAnimatedImagePlayer.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pubrowsinganimatedimageplayer?language=objc}PUBrowsingAnimatedImagePlayer} *) +let self = get_class "PUBrowsingAnimatedImagePlayer" + let animatedImage self = msg_send ~self ~cmd:(selector "animatedImage") ~typ:(returning id) let asset self = msg_send ~self ~cmd:(selector "asset") ~typ:(returning id) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) diff --git a/PhotosUI/PUBrowsingAnimatedImagePlayerChange.ml b/PhotosUI/PUBrowsingAnimatedImagePlayerChange.ml index f2288690..79c04cb7 100644 --- a/PhotosUI/PUBrowsingAnimatedImagePlayerChange.ml +++ b/PhotosUI/PUBrowsingAnimatedImagePlayerChange.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pubrowsinganimatedimageplayerchange?language=objc}PUBrowsingAnimatedImagePlayerChange} *) +let self = get_class "PUBrowsingAnimatedImagePlayerChange" + let animatedImageDidChange self = msg_send ~self ~cmd:(selector "animatedImageDidChange") ~typ:(returning bool) let animatedImageLoadingAllowedDidChange self = msg_send ~self ~cmd:(selector "animatedImageLoadingAllowedDidChange") ~typ:(returning bool) let hasChanges self = msg_send ~self ~cmd:(selector "hasChanges") ~typ:(returning bool) \ No newline at end of file diff --git a/PhotosUI/PUBrowsingAnimatedImagePlayerChangeClass.ml b/PhotosUI/PUBrowsingAnimatedImagePlayerChangeClass.ml deleted file mode 100644 index 92100193..00000000 --- a/PhotosUI/PUBrowsingAnimatedImagePlayerChangeClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pubrowsinganimatedimageplayerchange?language=objc}PUBrowsingAnimatedImagePlayerChange} *) - -let self = get_class "PUBrowsingAnimatedImagePlayerChange" diff --git a/PhotosUI/PUBrowsingAnimatedImagePlayerClass.ml b/PhotosUI/PUBrowsingAnimatedImagePlayerClass.ml deleted file mode 100644 index 97fbd23d..00000000 --- a/PhotosUI/PUBrowsingAnimatedImagePlayerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pubrowsinganimatedimageplayer?language=objc}PUBrowsingAnimatedImagePlayer} *) - -let self = get_class "PUBrowsingAnimatedImagePlayer" diff --git a/PhotosUI/PUBrowsingIrisPlayer.ml b/PhotosUI/PUBrowsingIrisPlayer.ml index 9d4f8051..10a7dfa1 100644 --- a/PhotosUI/PUBrowsingIrisPlayer.ml +++ b/PhotosUI/PUBrowsingIrisPlayer.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pubrowsingirisplayer?language=objc}PUBrowsingIrisPlayer} *) +let self = get_class "PUBrowsingIrisPlayer" + let addPeriodicTimeObserverForInterval x ~queue ~usingBlock self = msg_send ~self ~cmd:(selector "addPeriodicTimeObserverForInterval:queue:usingBlock:") ~typ:(void @-> id @-> (ptr void) @-> returning id) x queue usingBlock let allowLargeVitalityInset self = msg_send ~self ~cmd:(selector "allowLargeVitalityInset") ~typ:(returning bool) let appIsInBackground self = msg_send ~self ~cmd:(selector "appIsInBackground") ~typ:(returning bool) diff --git a/PhotosUI/PUBrowsingIrisPlayerChange.ml b/PhotosUI/PUBrowsingIrisPlayerChange.ml index 08423412..3a7e9fdf 100644 --- a/PhotosUI/PUBrowsingIrisPlayerChange.ml +++ b/PhotosUI/PUBrowsingIrisPlayerChange.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pubrowsingirisplayerchange?language=objc}PUBrowsingIrisPlayerChange} *) +let self = get_class "PUBrowsingIrisPlayerChange" + let activatedDidChange self = msg_send ~self ~cmd:(selector "activatedDidChange") ~typ:(returning bool) let currentlyDisplayedTimesDidChange self = msg_send ~self ~cmd:(selector "currentlyDisplayedTimesDidChange") ~typ:(returning bool) let hasChanges self = msg_send ~self ~cmd:(selector "hasChanges") ~typ:(returning bool) diff --git a/PhotosUI/PUBrowsingIrisPlayerChangeClass.ml b/PhotosUI/PUBrowsingIrisPlayerChangeClass.ml deleted file mode 100644 index 2ef33aa5..00000000 --- a/PhotosUI/PUBrowsingIrisPlayerChangeClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pubrowsingirisplayerchange?language=objc}PUBrowsingIrisPlayerChange} *) - -let self = get_class "PUBrowsingIrisPlayerChange" diff --git a/PhotosUI/PUBrowsingIrisPlayerClass.ml b/PhotosUI/PUBrowsingIrisPlayerClass.ml deleted file mode 100644 index b325d055..00000000 --- a/PhotosUI/PUBrowsingIrisPlayerClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pubrowsingirisplayer?language=objc}PUBrowsingIrisPlayer} *) - -let self = get_class "PUBrowsingIrisPlayer" - -let new_ self = msg_send ~self ~cmd:(selector "new") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUBrowsingVideoPlayer.ml b/PhotosUI/PUBrowsingVideoPlayer.ml index 36a9db4c..345925f2 100644 --- a/PhotosUI/PUBrowsingVideoPlayer.ml +++ b/PhotosUI/PUBrowsingVideoPlayer.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pubrowsingvideoplayer?language=objc}PUBrowsingVideoPlayer} *) +let self = get_class "PUBrowsingVideoPlayer" + let activityCoordinatorQueuePosition self = msg_send ~self ~cmd:(selector "activityCoordinatorQueuePosition") ~typ:(returning ullong) let alwaysRespectsMuteSwitch self = msg_send ~self ~cmd:(selector "alwaysRespectsMuteSwitch") ~typ:(returning bool) let asset self = msg_send ~self ~cmd:(selector "asset") ~typ:(returning id) diff --git a/PhotosUI/PUBrowsingVideoPlayerChange.ml b/PhotosUI/PUBrowsingVideoPlayerChange.ml index a530ce54..1e30f2c0 100644 --- a/PhotosUI/PUBrowsingVideoPlayerChange.ml +++ b/PhotosUI/PUBrowsingVideoPlayerChange.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pubrowsingvideoplayerchange?language=objc}PUBrowsingVideoPlayerChange} *) +let self = get_class "PUBrowsingVideoPlayerChange" + let alwaysRespectsMuteSwitchDidChange self = msg_send ~self ~cmd:(selector "alwaysRespectsMuteSwitchDidChange") ~typ:(returning bool) let audioSessionVolumeIncreaseDidOccur self = msg_send ~self ~cmd:(selector "audioSessionVolumeIncreaseDidOccur") ~typ:(returning bool) let audioStatusDidChange self = msg_send ~self ~cmd:(selector "audioStatusDidChange") ~typ:(returning bool) diff --git a/PhotosUI/PUBrowsingVideoPlayerChangeClass.ml b/PhotosUI/PUBrowsingVideoPlayerChangeClass.ml deleted file mode 100644 index 75dac5d8..00000000 --- a/PhotosUI/PUBrowsingVideoPlayerChangeClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pubrowsingvideoplayerchange?language=objc}PUBrowsingVideoPlayerChange} *) - -let self = get_class "PUBrowsingVideoPlayerChange" diff --git a/PhotosUI/PUBrowsingVideoPlayerClass.ml b/PhotosUI/PUBrowsingVideoPlayerClass.ml deleted file mode 100644 index e21f305c..00000000 --- a/PhotosUI/PUBrowsingVideoPlayerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pubrowsingvideoplayer?language=objc}PUBrowsingVideoPlayer} *) - -let self = get_class "PUBrowsingVideoPlayer" diff --git a/PhotosUI/PUBrowsingViewModel.ml b/PhotosUI/PUBrowsingViewModel.ml index e274291c..4334d708 100644 --- a/PhotosUI/PUBrowsingViewModel.ml +++ b/PhotosUI/PUBrowsingViewModel.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pubrowsingviewmodel?language=objc}PUBrowsingViewModel} *) +let self = get_class "PUBrowsingViewModel" + let accessoryViewsDefaultVisibility self = msg_send ~self ~cmd:(selector "accessoryViewsDefaultVisibility") ~typ:(returning bool) let actionManager self = msg_send ~self ~cmd:(selector "actionManager") ~typ:(returning id) let activeAssetReferences self = msg_send ~self ~cmd:(selector "activeAssetReferences") ~typ:(returning id) diff --git a/PhotosUI/PUBrowsingViewModelChange.ml b/PhotosUI/PUBrowsingViewModelChange.ml index 70391e62..538d0352 100644 --- a/PhotosUI/PUBrowsingViewModelChange.ml +++ b/PhotosUI/PUBrowsingViewModelChange.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pubrowsingviewmodelchange?language=objc}PUBrowsingViewModelChange} *) +let self = get_class "PUBrowsingViewModelChange" + let assetSharedViewModelChangesByAsset self = msg_send ~self ~cmd:(selector "assetSharedViewModelChangesByAsset") ~typ:(returning id) let assetViewModelChangesByAssetReference self = msg_send ~self ~cmd:(selector "assetViewModelChangesByAssetReference") ~typ:(returning id) let assetsDataSourceDidChange self = msg_send ~self ~cmd:(selector "assetsDataSourceDidChange") ~typ:(returning bool) diff --git a/PhotosUI/PUBrowsingViewModelChangeClass.ml b/PhotosUI/PUBrowsingViewModelChangeClass.ml deleted file mode 100644 index 611aca2f..00000000 --- a/PhotosUI/PUBrowsingViewModelChangeClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pubrowsingviewmodelchange?language=objc}PUBrowsingViewModelChange} *) - -let self = get_class "PUBrowsingViewModelChange" diff --git a/PhotosUI/PUBrowsingViewModelClass.ml b/PhotosUI/PUBrowsingViewModelClass.ml index bf28ced0..9fa647f5 100644 --- a/PhotosUI/PUBrowsingViewModelClass.ml +++ b/PhotosUI/PUBrowsingViewModelClass.ml @@ -4,16 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pubrowsingviewmodel?language=objc}PUBrowsingViewModel} *) -let self = get_class "PUBrowsingViewModel" - let autoplayVideoMuted self = msg_send ~self ~cmd:(selector "autoplayVideoMuted") ~typ:(returning bool) let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) let setAutoplayVideoMuted x self = msg_send ~self ~cmd:(selector "setAutoplayVideoMuted:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/PhotosUI/PUCachedMapTable.ml b/PhotosUI/PUCachedMapTable.ml index 7457842c..9434f854 100644 --- a/PhotosUI/PUCachedMapTable.ml +++ b/PhotosUI/PUCachedMapTable.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pucachedmaptable?language=objc}PUCachedMapTable} *) +let self = get_class "PUCachedMapTable" + let accurateCount self = msg_send ~self ~cmd:(selector "accurateCount") ~typ:(returning ullong) let cacheCountLimit self = msg_send ~self ~cmd:(selector "cacheCountLimit") ~typ:(returning ullong) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x diff --git a/PhotosUI/PUCachedMapTableClass.ml b/PhotosUI/PUCachedMapTableClass.ml deleted file mode 100644 index 550ae5c5..00000000 --- a/PhotosUI/PUCachedMapTableClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pucachedmaptable?language=objc}PUCachedMapTable} *) - -let self = get_class "PUCachedMapTable" diff --git a/PhotosUI/PUChangeDirectionValueFilter.ml b/PhotosUI/PUChangeDirectionValueFilter.ml index 908e5585..1b086667 100644 --- a/PhotosUI/PUChangeDirectionValueFilter.ml +++ b/PhotosUI/PUChangeDirectionValueFilter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puchangedirectionvaluefilter?language=objc}PUChangeDirectionValueFilter} *) +let self = get_class "PUChangeDirectionValueFilter" + let minimumChangeValue self = msg_send ~self ~cmd:(selector "minimumChangeValue") ~typ:(returning double) let setMinimumChangeValue x self = msg_send ~self ~cmd:(selector "setMinimumChangeValue:") ~typ:(double @-> returning void) x let updatedValue x ~withTargetValue self = msg_send ~self ~cmd:(selector "updatedValue:withTargetValue:") ~typ:(double @-> double @-> returning double) x withTargetValue \ No newline at end of file diff --git a/PhotosUI/PUChangeDirectionValueFilterClass.ml b/PhotosUI/PUChangeDirectionValueFilterClass.ml deleted file mode 100644 index 52a372fb..00000000 --- a/PhotosUI/PUChangeDirectionValueFilterClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puchangedirectionvaluefilter?language=objc}PUChangeDirectionValueFilter} *) - -let self = get_class "PUChangeDirectionValueFilter" diff --git a/PhotosUI/PUClampValueFilter.ml b/PhotosUI/PUClampValueFilter.ml index c4034797..ff216770 100644 --- a/PhotosUI/PUClampValueFilter.ml +++ b/PhotosUI/PUClampValueFilter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puclampvaluefilter?language=objc}PUClampValueFilter} *) +let self = get_class "PUClampValueFilter" + let maximumValue self = msg_send ~self ~cmd:(selector "maximumValue") ~typ:(returning double) let minimumValue self = msg_send ~self ~cmd:(selector "minimumValue") ~typ:(returning double) let setMaximumValue x self = msg_send ~self ~cmd:(selector "setMaximumValue:") ~typ:(double @-> returning void) x diff --git a/PhotosUI/PUClampValueFilterClass.ml b/PhotosUI/PUClampValueFilterClass.ml deleted file mode 100644 index b0913832..00000000 --- a/PhotosUI/PUClampValueFilterClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puclampvaluefilter?language=objc}PUClampValueFilter} *) - -let self = get_class "PUClampValueFilter" diff --git a/PhotosUI/PUCollageView.ml b/PhotosUI/PUCollageView.ml index 1d1ae94a..0c75320f 100644 --- a/PhotosUI/PUCollageView.ml +++ b/PhotosUI/PUCollageView.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pucollageview?language=objc}PUCollageView} *) +let self = get_class "PUCollageView" + let collageSize self = msg_send ~self ~cmd:(selector "collageSize") ~typ:(returning CGSize.t) let cornerRadius self = msg_send ~self ~cmd:(selector "cornerRadius") ~typ:(returning double) let cornersBackgroundColor self = msg_send ~self ~cmd:(selector "cornersBackgroundColor") ~typ:(returning id) diff --git a/PhotosUI/PUCollageViewClass.ml b/PhotosUI/PUCollageViewClass.ml index c82840c8..2a0a68b4 100644 --- a/PhotosUI/PUCollageViewClass.ml +++ b/PhotosUI/PUCollageViewClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pucollageview?language=objc}PUCollageView} *) -let self = get_class "PUCollageView" - let maximumNumberOfItems self = msg_send ~self ~cmd:(selector "maximumNumberOfItems") ~typ:(returning llong) \ No newline at end of file diff --git a/PhotosUI/PUCollectionView.ml b/PhotosUI/PUCollectionView.ml index 0f9903a1..c0b7081f 100644 --- a/PhotosUI/PUCollectionView.ml +++ b/PhotosUI/PUCollectionView.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pucollectionview?language=objc}PUCollectionView} *) +let self = get_class "PUCollectionView" + let adjustedContentInsetDidChange self = msg_send ~self ~cmd:(selector "adjustedContentInsetDidChange") ~typ:(returning void) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let deleteItemsAtIndexPaths x self = msg_send ~self ~cmd:(selector "deleteItemsAtIndexPaths:") ~typ:(id @-> returning void) x diff --git a/PhotosUI/PUCollectionViewClass.ml b/PhotosUI/PUCollectionViewClass.ml deleted file mode 100644 index d730ab5e..00000000 --- a/PhotosUI/PUCollectionViewClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pucollectionview?language=objc}PUCollectionView} *) - -let self = get_class "PUCollectionView" diff --git a/PhotosUI/PUCollectionViewIntermediateDataSource.ml b/PhotosUI/PUCollectionViewIntermediateDataSource.ml index 333a4819..4c0dd84c 100644 --- a/PhotosUI/PUCollectionViewIntermediateDataSource.ml +++ b/PhotosUI/PUCollectionViewIntermediateDataSource.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pucollectionviewintermediatedatasource?language=objc}PUCollectionViewIntermediateDataSource} *) +let self = get_class "PUCollectionViewIntermediateDataSource" + let collectionView x ~cellForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:cellForItemAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForItemAtIndexPath let collectionView1 x ~numberOfItemsInSection self = msg_send ~self ~cmd:(selector "collectionView:numberOfItemsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfItemsInSection) let collectionView2 x ~viewForSupplementaryElementOfKind ~atIndexPath self = msg_send ~self ~cmd:(selector "collectionView:viewForSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> id @-> returning id) x viewForSupplementaryElementOfKind atIndexPath diff --git a/PhotosUI/PUCollectionViewIntermediateDataSourceClass.ml b/PhotosUI/PUCollectionViewIntermediateDataSourceClass.ml deleted file mode 100644 index dd0912c2..00000000 --- a/PhotosUI/PUCollectionViewIntermediateDataSourceClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pucollectionviewintermediatedatasource?language=objc}PUCollectionViewIntermediateDataSource} *) - -let self = get_class "PUCollectionViewIntermediateDataSource" diff --git a/PhotosUI/PUCollectionViewLayoutCache.ml b/PhotosUI/PUCollectionViewLayoutCache.ml index 97b34c39..18f60836 100644 --- a/PhotosUI/PUCollectionViewLayoutCache.ml +++ b/PhotosUI/PUCollectionViewLayoutCache.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pucollectionviewlayoutcache?language=objc}PUCollectionViewLayoutCache} *) +let self = get_class "PUCollectionViewLayoutCache" + let cachesResults self = msg_send ~self ~cmd:(selector "cachesResults") ~typ:(returning bool) let collectionViewContentSize self = msg_send ~self ~cmd:(selector "collectionViewContentSize") ~typ:(returning CGSize.t) let flipsHorizontallyInOppositeLayoutDirection self = msg_send ~self ~cmd:(selector "flipsHorizontallyInOppositeLayoutDirection") ~typ:(returning bool) diff --git a/PhotosUI/PUCollectionViewLayoutCacheClass.ml b/PhotosUI/PUCollectionViewLayoutCacheClass.ml deleted file mode 100644 index 1f30b468..00000000 --- a/PhotosUI/PUCollectionViewLayoutCacheClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pucollectionviewlayoutcache?language=objc}PUCollectionViewLayoutCache} *) - -let self = get_class "PUCollectionViewLayoutCache" diff --git a/PhotosUI/PUCroppedTileLayoutInfo.ml b/PhotosUI/PUCroppedTileLayoutInfo.ml index 952373bd..6732012f 100644 --- a/PhotosUI/PUCroppedTileLayoutInfo.ml +++ b/PhotosUI/PUCroppedTileLayoutInfo.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pucroppedtilelayoutinfo?language=objc}PUCroppedTileLayoutInfo} *) +let self = get_class "PUCroppedTileLayoutInfo" + let clone self = msg_send ~self ~cmd:(selector "clone") ~typ:(returning id) let cropInsets self = msg_send ~self ~cmd:(selector "cropInsets") ~typ:(returning UIEdgeInsets.t) let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) diff --git a/PhotosUI/PUCroppedTileLayoutInfoClass.ml b/PhotosUI/PUCroppedTileLayoutInfoClass.ml deleted file mode 100644 index fcbeb8a7..00000000 --- a/PhotosUI/PUCroppedTileLayoutInfoClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pucroppedtilelayoutinfo?language=objc}PUCroppedTileLayoutInfo} *) - -let self = get_class "PUCroppedTileLayoutInfo" diff --git a/PhotosUI/PUDisplayLink.ml b/PhotosUI/PUDisplayLink.ml index 4d90c7e1..808006c4 100644 --- a/PhotosUI/PUDisplayLink.ml +++ b/PhotosUI/PUDisplayLink.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pudisplaylink?language=objc}PUDisplayLink} *) +let self = get_class "PUDisplayLink" + let completionHandler self = msg_send ~self ~cmd:(selector "completionHandler") ~typ:(returning (ptr void)) let displayLink self = msg_send ~self ~cmd:(selector "displayLink") ~typ:(returning id) let initWithUpdateHandler x ~completionHandler self = msg_send ~self ~cmd:(selector "initWithUpdateHandler:completionHandler:") ~typ:((ptr void) @-> (ptr void) @-> returning id) x completionHandler diff --git a/PhotosUI/PUDisplayLinkClass.ml b/PhotosUI/PUDisplayLinkClass.ml deleted file mode 100644 index 9e4695f3..00000000 --- a/PhotosUI/PUDisplayLinkClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pudisplaylink?language=objc}PUDisplayLink} *) - -let self = get_class "PUDisplayLink" diff --git a/PhotosUI/PUDisplayLocationProvider.ml b/PhotosUI/PUDisplayLocationProvider.ml index cc5797f1..a106bef6 100644 --- a/PhotosUI/PUDisplayLocationProvider.ml +++ b/PhotosUI/PUDisplayLocationProvider.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pudisplaylocationprovider?language=objc}PUDisplayLocationProvider} *) +let self = get_class "PUDisplayLocationProvider" + let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let initWithPoint x ~inCoordinateSpace self = msg_send ~self ~cmd:(selector "initWithPoint:inCoordinateSpace:") ~typ:(CGPoint.t @-> id @-> returning id) x inCoordinateSpace let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x \ No newline at end of file diff --git a/PhotosUI/PUDisplayLocationProviderClass.ml b/PhotosUI/PUDisplayLocationProviderClass.ml deleted file mode 100644 index 1ea1654d..00000000 --- a/PhotosUI/PUDisplayLocationProviderClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pudisplaylocationprovider?language=objc}PUDisplayLocationProvider} *) - -let self = get_class "PUDisplayLocationProvider" diff --git a/PhotosUI/PUDoubleHeightHorizontalAlbumListGadgetLayout.ml b/PhotosUI/PUDoubleHeightHorizontalAlbumListGadgetLayout.ml index 5d0f6594..059cb914 100644 --- a/PhotosUI/PUDoubleHeightHorizontalAlbumListGadgetLayout.ml +++ b/PhotosUI/PUDoubleHeightHorizontalAlbumListGadgetLayout.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pudoubleheighthorizontalalbumlistgadgetlayout?language=objc}PUDoubleHeightHorizontalAlbumListGadgetLayout} *) +let self = get_class "PUDoubleHeightHorizontalAlbumListGadgetLayout" + let collectionViewContentSize self = msg_send ~self ~cmd:(selector "collectionViewContentSize") ~typ:(returning CGSize.t) let initWithHorizontalLayoutDelegate x ~showsHorizontalScrollIndicator self = msg_send ~self ~cmd:(selector "initWithHorizontalLayoutDelegate:showsHorizontalScrollIndicator:") ~typ:(id @-> bool @-> returning id) x showsHorizontalScrollIndicator let invalidateLayout self = msg_send ~self ~cmd:(selector "invalidateLayout") ~typ:(returning void) diff --git a/PhotosUI/PUDoubleHeightHorizontalAlbumListGadgetLayoutClass.ml b/PhotosUI/PUDoubleHeightHorizontalAlbumListGadgetLayoutClass.ml deleted file mode 100644 index 19b836f3..00000000 --- a/PhotosUI/PUDoubleHeightHorizontalAlbumListGadgetLayoutClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pudoubleheighthorizontalalbumlistgadgetlayout?language=objc}PUDoubleHeightHorizontalAlbumListGadgetLayout} *) - -let self = get_class "PUDoubleHeightHorizontalAlbumListGadgetLayout" diff --git a/PhotosUI/PUDynamicValueFilter.ml b/PhotosUI/PUDynamicValueFilter.ml index bfe32ba2..2c4ecccc 100644 --- a/PhotosUI/PUDynamicValueFilter.ml +++ b/PhotosUI/PUDynamicValueFilter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pudynamicvaluefilter?language=objc}PUDynamicValueFilter} *) +let self = get_class "PUDynamicValueFilter" + let currentTime self = msg_send ~self ~cmd:(selector "currentTime") ~typ:(returning double) let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let outputValue self = msg_send ~self ~cmd:(selector "outputValue") ~typ:(returning double) diff --git a/PhotosUI/PUDynamicValueFilterClass.ml b/PhotosUI/PUDynamicValueFilterClass.ml deleted file mode 100644 index c91d2975..00000000 --- a/PhotosUI/PUDynamicValueFilterClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pudynamicvaluefilter?language=objc}PUDynamicValueFilter} *) - -let self = get_class "PUDynamicValueFilter" diff --git a/PhotosUI/PUEditingExtensionHostContext.ml b/PhotosUI/PUEditingExtensionHostContext.ml index 897e6cd0..a9614894 100644 --- a/PhotosUI/PUEditingExtensionHostContext.ml +++ b/PhotosUI/PUEditingExtensionHostContext.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pueditingextensionhostcontext?language=objc}PUEditingExtensionHostContext} *) +let self = get_class "PUEditingExtensionHostContext" + let commitContentEditingOutput x ~withCompletionHandler self = msg_send ~self ~cmd:(selector "commitContentEditingOutput:withCompletionHandler:") ~typ:(id @-> (ptr void) @-> returning void) x withCompletionHandler let contentEditingOutputCommitHandler self = msg_send ~self ~cmd:(selector "contentEditingOutputCommitHandler") ~typ:(returning (ptr void)) let setContentEditingOutputCommitHandler x self = msg_send ~self ~cmd:(selector "setContentEditingOutputCommitHandler:") ~typ:((ptr void) @-> returning void) x \ No newline at end of file diff --git a/PhotosUI/PUEditingExtensionHostContextClass.ml b/PhotosUI/PUEditingExtensionHostContextClass.ml deleted file mode 100644 index ca36cfde..00000000 --- a/PhotosUI/PUEditingExtensionHostContextClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pueditingextensionhostcontext?language=objc}PUEditingExtensionHostContext} *) - -let self = get_class "PUEditingExtensionHostContext" diff --git a/PhotosUI/PUEditingExtensionUndoAdapter.ml b/PhotosUI/PUEditingExtensionUndoAdapter.ml index ec52df3d..8159114e 100644 --- a/PhotosUI/PUEditingExtensionUndoAdapter.ml +++ b/PhotosUI/PUEditingExtensionUndoAdapter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pueditingextensionundoadapter?language=objc}PUEditingExtensionUndoAdapter} *) +let self = get_class "PUEditingExtensionUndoAdapter" + let buttonHost self = msg_send ~self ~cmd:(selector "buttonHost") ~typ:(returning id) let initWithButtonHost x self = msg_send ~self ~cmd:(selector "initWithButtonHost:") ~typ:(id @-> returning id) x let performRedo self = msg_send ~self ~cmd:(selector "performRedo") ~typ:(returning void) diff --git a/PhotosUI/PUEditingExtensionUndoAdapterClass.ml b/PhotosUI/PUEditingExtensionUndoAdapterClass.ml deleted file mode 100644 index 8f60d5b5..00000000 --- a/PhotosUI/PUEditingExtensionUndoAdapterClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pueditingextensionundoadapter?language=objc}PUEditingExtensionUndoAdapter} *) - -let self = get_class "PUEditingExtensionUndoAdapter" diff --git a/PhotosUI/PUEditingExtensionUndoProxyExtensionSide.ml b/PhotosUI/PUEditingExtensionUndoProxyExtensionSide.ml index 913ef760..c373568f 100644 --- a/PhotosUI/PUEditingExtensionUndoProxyExtensionSide.ml +++ b/PhotosUI/PUEditingExtensionUndoProxyExtensionSide.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pueditingextensionundoproxyextensionside?language=objc}PUEditingExtensionUndoProxyExtensionSide} *) +let self = get_class "PUEditingExtensionUndoProxyExtensionSide" + let connection self = msg_send ~self ~cmd:(selector "connection") ~typ:(returning id) let initWithEndpoint x self = msg_send ~self ~cmd:(selector "initWithEndpoint:") ~typ:(id @-> returning id) x let performRedo self = msg_send ~self ~cmd:(selector "performRedo") ~typ:(returning void) diff --git a/PhotosUI/PUEditingExtensionUndoProxyExtensionSideClass.ml b/PhotosUI/PUEditingExtensionUndoProxyExtensionSideClass.ml deleted file mode 100644 index de98093f..00000000 --- a/PhotosUI/PUEditingExtensionUndoProxyExtensionSideClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pueditingextensionundoproxyextensionside?language=objc}PUEditingExtensionUndoProxyExtensionSide} *) - -let self = get_class "PUEditingExtensionUndoProxyExtensionSide" diff --git a/PhotosUI/PUEditingExtensionUndoProxyHostSide.ml b/PhotosUI/PUEditingExtensionUndoProxyHostSide.ml index 31c2d885..fa65317b 100644 --- a/PhotosUI/PUEditingExtensionUndoProxyHostSide.ml +++ b/PhotosUI/PUEditingExtensionUndoProxyHostSide.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pueditingextensionundoproxyhostside?language=objc}PUEditingExtensionUndoProxyHostSide} *) +let self = get_class "PUEditingExtensionUndoProxyHostSide" + let connection self = msg_send ~self ~cmd:(selector "connection") ~typ:(returning id) let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let listener self = msg_send ~self ~cmd:(selector "listener") ~typ:(returning id) diff --git a/PhotosUI/PUEditingExtensionUndoProxyHostSideClass.ml b/PhotosUI/PUEditingExtensionUndoProxyHostSideClass.ml deleted file mode 100644 index 2b8ed018..00000000 --- a/PhotosUI/PUEditingExtensionUndoProxyHostSideClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pueditingextensionundoproxyhostside?language=objc}PUEditingExtensionUndoProxyHostSide} *) - -let self = get_class "PUEditingExtensionUndoProxyHostSide" diff --git a/PhotosUI/PUEditingInitialPayload.ml b/PhotosUI/PUEditingInitialPayload.ml index 7bf43316..70cfe0b6 100644 --- a/PhotosUI/PUEditingInitialPayload.ml +++ b/PhotosUI/PUEditingInitialPayload.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pueditinginitialpayload?language=objc}PUEditingInitialPayload} *) +let self = get_class "PUEditingInitialPayload" + let accessibilityDescription self = msg_send ~self ~cmd:(selector "accessibilityDescription") ~typ:(returning id) let adjustmentBaseVersion self = msg_send ~self ~cmd:(selector "adjustmentBaseVersion") ~typ:(returning llong) let adjustmentData self = msg_send ~self ~cmd:(selector "adjustmentData") ~typ:(returning id) diff --git a/PhotosUI/PUEditingInitialPayloadClass.ml b/PhotosUI/PUEditingInitialPayloadClass.ml index 5e39d238..adf78670 100644 --- a/PhotosUI/PUEditingInitialPayloadClass.ml +++ b/PhotosUI/PUEditingInitialPayloadClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pueditinginitialpayload?language=objc}PUEditingInitialPayload} *) -let self = get_class "PUEditingInitialPayload" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/PhotosUI/PUErrorPresentationController.ml b/PhotosUI/PUErrorPresentationController.ml index 429999d8..7714decf 100644 --- a/PhotosUI/PUErrorPresentationController.ml +++ b/PhotosUI/PUErrorPresentationController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puerrorpresentationcontroller?language=objc}PUErrorPresentationController} *) +let self = get_class "PUErrorPresentationController" + let additionalAlertActions self = msg_send ~self ~cmd:(selector "additionalAlertActions") ~typ:(returning id) let additionalQuestionsInRadarDescription self = msg_send ~self ~cmd:(selector "additionalQuestionsInRadarDescription") ~typ:(returning id) let additionalRadarDescriptionLinesForAsset x self = msg_send ~self ~cmd:(selector "additionalRadarDescriptionLinesForAsset:") ~typ:(id @-> returning id) x diff --git a/PhotosUI/PUErrorPresentationControllerClass.ml b/PhotosUI/PUErrorPresentationControllerClass.ml index bbf8ffe8..496755cf 100644 --- a/PhotosUI/PUErrorPresentationControllerClass.ml +++ b/PhotosUI/PUErrorPresentationControllerClass.ml @@ -4,16 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puerrorpresentationcontroller?language=objc}PUErrorPresentationController} *) -let self = get_class "PUErrorPresentationController" - let alertActionForNavigatingToDestination x ~withTitle ~completion self = msg_send ~self ~cmd:(selector "alertActionForNavigatingToDestination:withTitle:completion:") ~typ:(llong @-> id @-> (ptr void) @-> returning id) (LLong.of_int x) withTitle completion let assetIsStandardVideo x self = msg_send ~self ~cmd:(selector "assetIsStandardVideo:") ~typ:(id @-> returning bool) x let errorIsAuthenticationRelatedCPLError x self = msg_send ~self ~cmd:(selector "errorIsAuthenticationRelatedCPLError:") ~typ:(id @-> returning bool) x diff --git a/PhotosUI/PUExtendedToolbar.ml b/PhotosUI/PUExtendedToolbar.ml index aa735aab..9897cbf4 100644 --- a/PhotosUI/PUExtendedToolbar.ml +++ b/PhotosUI/PUExtendedToolbar.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puextendedtoolbar?language=objc}PUExtendedToolbar} *) +let self = get_class "PUExtendedToolbar" + let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) diff --git a/PhotosUI/PUExtendedToolbarClass.ml b/PhotosUI/PUExtendedToolbarClass.ml deleted file mode 100644 index ef4624f9..00000000 --- a/PhotosUI/PUExtendedToolbarClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puextendedtoolbar?language=objc}PUExtendedToolbar} *) - -let self = get_class "PUExtendedToolbar" diff --git a/PhotosUI/PUFilteredMomentsDataSource.ml b/PhotosUI/PUFilteredMomentsDataSource.ml index 500b6e48..f2b837bb 100644 --- a/PhotosUI/PUFilteredMomentsDataSource.ml +++ b/PhotosUI/PUFilteredMomentsDataSource.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pufilteredmomentsdatasource?language=objc}PUFilteredMomentsDataSource} *) +let self = get_class "PUFilteredMomentsDataSource" + let assetUUIDs self = msg_send ~self ~cmd:(selector "assetUUIDs") ~typ:(returning id) let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) let fetchResult self = msg_send ~self ~cmd:(selector "fetchResult") ~typ:(returning id) diff --git a/PhotosUI/PUFilteredMomentsDataSourceClass.ml b/PhotosUI/PUFilteredMomentsDataSourceClass.ml deleted file mode 100644 index 3f28af67..00000000 --- a/PhotosUI/PUFilteredMomentsDataSourceClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pufilteredmomentsdatasource?language=objc}PUFilteredMomentsDataSource} *) - -let self = get_class "PUFilteredMomentsDataSource" diff --git a/PhotosUI/PUFilteredMomentsViewController.ml b/PhotosUI/PUFilteredMomentsViewController.ml index c587ecca..49199c61 100644 --- a/PhotosUI/PUFilteredMomentsViewController.ml +++ b/PhotosUI/PUFilteredMomentsViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pufilteredmomentsviewcontroller?language=objc}PUFilteredMomentsViewController} *) +let self = get_class "PUFilteredMomentsViewController" + let allowSlideshowButton self = msg_send ~self ~cmd:(selector "allowSlideshowButton") ~typ:(returning bool) let configureSupplementaryView x ~ofKind ~forIndexPath self = msg_send ~self ~cmd:(selector "configureSupplementaryView:ofKind:forIndexPath:") ~typ:(id @-> id @-> id @-> returning void) x ofKind forIndexPath let didTapHeaderView x self = msg_send ~self ~cmd:(selector "didTapHeaderView:") ~typ:(id @-> returning void) x diff --git a/PhotosUI/PUFilteredMomentsViewControllerClass.ml b/PhotosUI/PUFilteredMomentsViewControllerClass.ml deleted file mode 100644 index b8dd8773..00000000 --- a/PhotosUI/PUFilteredMomentsViewControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pufilteredmomentsviewcontroller?language=objc}PUFilteredMomentsViewController} *) - -let self = get_class "PUFilteredMomentsViewController" diff --git a/PhotosUI/PUFlatWhiteInterfaceTheme.ml b/PhotosUI/PUFlatWhiteInterfaceTheme.ml index cdb1682a..981234b9 100644 --- a/PhotosUI/PUFlatWhiteInterfaceTheme.ml +++ b/PhotosUI/PUFlatWhiteInterfaceTheme.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puflatwhiteinterfacetheme?language=objc}PUFlatWhiteInterfaceTheme} *) +let self = get_class "PUFlatWhiteInterfaceTheme" + let airPlayControllerBackgroundColor self = msg_send ~self ~cmd:(selector "airPlayControllerBackgroundColor") ~typ:(returning id) let airPlayVideoPlaceholderBackgroundColor self = msg_send ~self ~cmd:(selector "airPlayVideoPlaceholderBackgroundColor") ~typ:(returning id) let airPlayVideoPlaceholderIcon self = msg_send ~self ~cmd:(selector "airPlayVideoPlaceholderIcon") ~typ:(returning id) diff --git a/PhotosUI/PUFlatWhiteInterfaceThemeClass.ml b/PhotosUI/PUFlatWhiteInterfaceThemeClass.ml deleted file mode 100644 index 122145aa..00000000 --- a/PhotosUI/PUFlatWhiteInterfaceThemeClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puflatwhiteinterfacetheme?language=objc}PUFlatWhiteInterfaceTheme} *) - -let self = get_class "PUFlatWhiteInterfaceTheme" diff --git a/PhotosUI/PUFontManager.ml b/PhotosUI/PUFontManager.ml index 0e6c6098..a2618815 100644 --- a/PhotosUI/PUFontManager.ml +++ b/PhotosUI/PUFontManager.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pufontmanager?language=objc}PUFontManager} *) +let self = get_class "PUFontManager" + let albumListSectionTitleLabelFont self = msg_send ~self ~cmd:(selector "albumListSectionTitleLabelFont") ~typ:(returning id) let albumListSubtitleLabelFont self = msg_send ~self ~cmd:(selector "albumListSubtitleLabelFont") ~typ:(returning id) let albumListTitleLabelFont self = msg_send ~self ~cmd:(selector "albumListTitleLabelFont") ~typ:(returning id) diff --git a/PhotosUI/PUFontManagerClass.ml b/PhotosUI/PUFontManagerClass.ml deleted file mode 100644 index 934b0b8b..00000000 --- a/PhotosUI/PUFontManagerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pufontmanager?language=objc}PUFontManager} *) - -let self = get_class "PUFontManager" diff --git a/PhotosUI/PUGridCoordinates.ml b/PhotosUI/PUGridCoordinates.ml deleted file mode 100644 index d94cdd73..00000000 --- a/PhotosUI/PUGridCoordinates.ml +++ /dev/null @@ -1,3 +0,0 @@ -open Runtime - -let t = ptr void \ No newline at end of file diff --git a/PhotosUI/PUGridPinchGestureRecognizer.ml b/PhotosUI/PUGridPinchGestureRecognizer.ml index 3985c497..3f8005d4 100644 --- a/PhotosUI/PUGridPinchGestureRecognizer.ml +++ b/PhotosUI/PUGridPinchGestureRecognizer.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pugridpinchgesturerecognizer?language=objc}PUGridPinchGestureRecognizer} *) +let self = get_class "PUGridPinchGestureRecognizer" + let centerOffset self = msg_send ~self ~cmd:(selector "centerOffset") ~typ:(returning CGSize.t) let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning void) (LLong.of_int x) diff --git a/PhotosUI/PUGridPinchGestureRecognizerClass.ml b/PhotosUI/PUGridPinchGestureRecognizerClass.ml deleted file mode 100644 index 1bad2766..00000000 --- a/PhotosUI/PUGridPinchGestureRecognizerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pugridpinchgesturerecognizer?language=objc}PUGridPinchGestureRecognizer} *) - -let self = get_class "PUGridPinchGestureRecognizer" diff --git a/PhotosUI/PUGridRenderedStrip.ml b/PhotosUI/PUGridRenderedStrip.ml index 54317e39..c54a725d 100644 --- a/PhotosUI/PUGridRenderedStrip.ml +++ b/PhotosUI/PUGridRenderedStrip.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pugridrenderedstrip?language=objc}PUGridRenderedStrip} *) +let self = get_class "PUGridRenderedStrip" + let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning void) x let backgroundColorValue self = msg_send ~self ~cmd:(selector "backgroundColorValue") ~typ:(returning int) let contentExtenderType self = msg_send ~self ~cmd:(selector "contentExtenderType") ~typ:(returning ullong) diff --git a/PhotosUI/PUGridRenderedStripClass.ml b/PhotosUI/PUGridRenderedStripClass.ml deleted file mode 100644 index 9ead7528..00000000 --- a/PhotosUI/PUGridRenderedStripClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pugridrenderedstrip?language=objc}PUGridRenderedStrip} *) - -let self = get_class "PUGridRenderedStrip" diff --git a/PhotosUI/PUGroupValueFilter.ml b/PhotosUI/PUGroupValueFilter.ml index daf73ca2..a821fb2f 100644 --- a/PhotosUI/PUGroupValueFilter.ml +++ b/PhotosUI/PUGroupValueFilter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pugroupvaluefilter?language=objc}PUGroupValueFilter} *) +let self = get_class "PUGroupValueFilter" + let filters self = msg_send ~self ~cmd:(selector "filters") ~typ:(returning id) let outputValue self = msg_send ~self ~cmd:(selector "outputValue") ~typ:(returning double) let setFilters x self = msg_send ~self ~cmd:(selector "setFilters:") ~typ:(id @-> returning void) x diff --git a/PhotosUI/PUGroupValueFilterClass.ml b/PhotosUI/PUGroupValueFilterClass.ml deleted file mode 100644 index af104ead..00000000 --- a/PhotosUI/PUGroupValueFilterClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pugroupvaluefilter?language=objc}PUGroupValueFilter} *) - -let self = get_class "PUGroupValueFilter" diff --git a/PhotosUI/PUHorizontalAlbumListGadget.ml b/PhotosUI/PUHorizontalAlbumListGadget.ml index 39a0083e..06f6a318 100644 --- a/PhotosUI/PUHorizontalAlbumListGadget.ml +++ b/PhotosUI/PUHorizontalAlbumListGadget.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puhorizontalalbumlistgadget?language=objc}PUHorizontalAlbumListGadget} *) +let self = get_class "PUHorizontalAlbumListGadget" + let accessoryButtonTitle self = msg_send ~self ~cmd:(selector "accessoryButtonTitle") ~typ:(returning id) let accessoryButtonType self = msg_send ~self ~cmd:(selector "accessoryButtonType") ~typ:(returning ullong) let albumListViewControllerSpec self = msg_send ~self ~cmd:(selector "albumListViewControllerSpec") ~typ:(returning id) diff --git a/PhotosUI/PUHorizontalAlbumListGadgetClass.ml b/PhotosUI/PUHorizontalAlbumListGadgetClass.ml deleted file mode 100644 index 330780e6..00000000 --- a/PhotosUI/PUHorizontalAlbumListGadgetClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puhorizontalalbumlistgadget?language=objc}PUHorizontalAlbumListGadget} *) - -let self = get_class "PUHorizontalAlbumListGadget" diff --git a/PhotosUI/PUHorizontalAlbumListGadgetLayout.ml b/PhotosUI/PUHorizontalAlbumListGadgetLayout.ml index 93f01306..6dd85274 100644 --- a/PhotosUI/PUHorizontalAlbumListGadgetLayout.ml +++ b/PhotosUI/PUHorizontalAlbumListGadgetLayout.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puhorizontalalbumlistgadgetlayout?language=objc}PUHorizontalAlbumListGadgetLayout} *) +let self = get_class "PUHorizontalAlbumListGadgetLayout" + let albumCellSize self = msg_send ~self ~cmd:(selector "albumCellSize") ~typ:(returning CGSize.t) let collectionView x ~layout ~sizeForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:layout:sizeForItemAtIndexPath:") ~typ:(id @-> id @-> id @-> returning CGSize.t) x layout sizeForItemAtIndexPath let horizontalLayoutDelegate self = msg_send ~self ~cmd:(selector "horizontalLayoutDelegate") ~typ:(returning id) diff --git a/PhotosUI/PUHorizontalAlbumListGadgetLayoutClass.ml b/PhotosUI/PUHorizontalAlbumListGadgetLayoutClass.ml deleted file mode 100644 index c9ca05e8..00000000 --- a/PhotosUI/PUHorizontalAlbumListGadgetLayoutClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puhorizontalalbumlistgadgetlayout?language=objc}PUHorizontalAlbumListGadgetLayout} *) - -let self = get_class "PUHorizontalAlbumListGadgetLayout" diff --git a/PhotosUI/PUHorizontalAlbumListGadgetProvider.ml b/PhotosUI/PUHorizontalAlbumListGadgetProvider.ml index 4fdb4e02..4be0bbe6 100644 --- a/PhotosUI/PUHorizontalAlbumListGadgetProvider.ml +++ b/PhotosUI/PUHorizontalAlbumListGadgetProvider.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puhorizontalalbumlistgadgetprovider?language=objc}PUHorizontalAlbumListGadgetProvider} *) +let self = get_class "PUHorizontalAlbumListGadgetProvider" + let albumsGadgetProvider self = msg_send ~self ~cmd:(selector "albumsGadgetProvider") ~typ:(returning id) let dataSourceManager self = msg_send ~self ~cmd:(selector "dataSourceManager") ~typ:(returning id) let estimatedNumberOfGadgets self = msg_send ~self ~cmd:(selector "estimatedNumberOfGadgets") ~typ:(returning ullong) diff --git a/PhotosUI/PUHorizontalAlbumListGadgetProviderClass.ml b/PhotosUI/PUHorizontalAlbumListGadgetProviderClass.ml deleted file mode 100644 index aeac22da..00000000 --- a/PhotosUI/PUHorizontalAlbumListGadgetProviderClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puhorizontalalbumlistgadgetprovider?language=objc}PUHorizontalAlbumListGadgetProvider} *) - -let self = get_class "PUHorizontalAlbumListGadgetProvider" diff --git a/PhotosUI/PUImagePickerCameraPhotoCaptureDelegate.ml b/PhotosUI/PUImagePickerCameraPhotoCaptureDelegate.ml index 301d1b23..823b7072 100644 --- a/PhotosUI/PUImagePickerCameraPhotoCaptureDelegate.ml +++ b/PhotosUI/PUImagePickerCameraPhotoCaptureDelegate.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puimagepickercameraphotocapturedelegate?language=objc}PUImagePickerCameraPhotoCaptureDelegate} *) +let self = get_class "PUImagePickerCameraPhotoCaptureDelegate" + let captureOutput x ~didFinishProcessingPhoto ~error self = msg_send ~self ~cmd:(selector "captureOutput:didFinishProcessingPhoto:error:") ~typ:(id @-> id @-> id @-> returning void) x didFinishProcessingPhoto error let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let initWithCapturePhotoBlock x self = msg_send ~self ~cmd:(selector "initWithCapturePhotoBlock:") ~typ:((ptr void) @-> returning id) x \ No newline at end of file diff --git a/PhotosUI/PUImagePickerCameraPhotoCaptureDelegateClass.ml b/PhotosUI/PUImagePickerCameraPhotoCaptureDelegateClass.ml deleted file mode 100644 index e6e9e9d4..00000000 --- a/PhotosUI/PUImagePickerCameraPhotoCaptureDelegateClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puimagepickercameraphotocapturedelegate?language=objc}PUImagePickerCameraPhotoCaptureDelegate} *) - -let self = get_class "PUImagePickerCameraPhotoCaptureDelegate" diff --git a/PhotosUI/PUImagePickerCameraPreviewView.ml b/PhotosUI/PUImagePickerCameraPreviewView.ml index 22a785ed..f5262040 100644 --- a/PhotosUI/PUImagePickerCameraPreviewView.ml +++ b/PhotosUI/PUImagePickerCameraPreviewView.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puimagepickercamerapreviewview?language=objc}PUImagePickerCameraPreviewView} *) +let self = get_class "PUImagePickerCameraPreviewView" + let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x let session self = msg_send ~self ~cmd:(selector "session") ~typ:(returning id) let setSession x self = msg_send ~self ~cmd:(selector "setSession:") ~typ:(id @-> returning void) x diff --git a/PhotosUI/PUImagePickerCameraPreviewViewClass.ml b/PhotosUI/PUImagePickerCameraPreviewViewClass.ml index 3c4f5a6e..3879417b 100644 --- a/PhotosUI/PUImagePickerCameraPreviewViewClass.ml +++ b/PhotosUI/PUImagePickerCameraPreviewViewClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puimagepickercamerapreviewview?language=objc}PUImagePickerCameraPreviewView} *) -let self = get_class "PUImagePickerCameraPreviewView" - let layerClass self = msg_send ~self ~cmd:(selector "layerClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/PhotosUI/PUImagePickerCameraViewController.ml b/PhotosUI/PUImagePickerCameraViewController.ml index af8fa695..7477f4db 100644 --- a/PhotosUI/PUImagePickerCameraViewController.ml +++ b/PhotosUI/PUImagePickerCameraViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puimagepickercameraviewcontroller?language=objc}PUImagePickerCameraViewController} *) +let self = get_class "PUImagePickerCameraViewController" + let captureOutput x ~didStartRecordingToOutputFileAtURL ~fromConnections self = msg_send ~self ~cmd:(selector "captureOutput:didStartRecordingToOutputFileAtURL:fromConnections:") ~typ:(id @-> id @-> id @-> returning void) x didStartRecordingToOutputFileAtURL fromConnections let captureOutput' x ~didFinishRecordingToOutputFileAtURL ~fromConnections ~error self = msg_send ~self ~cmd:(selector "captureOutput:didFinishRecordingToOutputFileAtURL:fromConnections:error:") ~typ:(id @-> id @-> id @-> id @-> returning void) x didFinishRecordingToOutputFileAtURL fromConnections error let cropOverlay x ~didFinishSaving self = msg_send ~self ~cmd:(selector "cropOverlay:didFinishSaving:") ~typ:(id @-> id @-> returning void) x didFinishSaving diff --git a/PhotosUI/PUImagePickerCameraViewControllerClass.ml b/PhotosUI/PUImagePickerCameraViewControllerClass.ml deleted file mode 100644 index d34e22c9..00000000 --- a/PhotosUI/PUImagePickerCameraViewControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puimagepickercameraviewcontroller?language=objc}PUImagePickerCameraViewController} *) - -let self = get_class "PUImagePickerCameraViewController" diff --git a/PhotosUI/PUImagePickerSessionInfo.ml b/PhotosUI/PUImagePickerSessionInfo.ml index da15ab49..f9aebb45 100644 --- a/PhotosUI/PUImagePickerSessionInfo.ml +++ b/PhotosUI/PUImagePickerSessionInfo.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puimagepickersessioninfo?language=objc}PUImagePickerSessionInfo} *) +let self = get_class "PUImagePickerSessionInfo" + let initWithPhotoSelectionManager x self = msg_send ~self ~cmd:(selector "initWithPhotoSelectionManager:") ~typ:(id @-> returning id) x let initWithPhotosViewDelegate x ~loadingStatusManager ~allowMultipleSelection ~limitedLibrary self = msg_send ~self ~cmd:(selector "initWithPhotosViewDelegate:loadingStatusManager:allowMultipleSelection:limitedLibrary:") ~typ:(id @-> id @-> bool @-> bool @-> returning id) x loadingStatusManager allowMultipleSelection limitedLibrary let isForAssetPicker self = msg_send ~self ~cmd:(selector "isForAssetPicker") ~typ:(returning bool) diff --git a/PhotosUI/PUImagePickerSessionInfoClass.ml b/PhotosUI/PUImagePickerSessionInfoClass.ml deleted file mode 100644 index f3994480..00000000 --- a/PhotosUI/PUImagePickerSessionInfoClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puimagepickersessioninfo?language=objc}PUImagePickerSessionInfo} *) - -let self = get_class "PUImagePickerSessionInfo" diff --git a/PhotosUI/PUInitialHysteresisValueFilter.ml b/PhotosUI/PUInitialHysteresisValueFilter.ml index 7a09f8fb..9ffd8eb6 100644 --- a/PhotosUI/PUInitialHysteresisValueFilter.ml +++ b/PhotosUI/PUInitialHysteresisValueFilter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puinitialhysteresisvaluefilter?language=objc}PUInitialHysteresisValueFilter} *) +let self = get_class "PUInitialHysteresisValueFilter" + let outputValueDerivative self = msg_send ~self ~cmd:(selector "outputValueDerivative") ~typ:(returning double) let setThresholdValue x self = msg_send ~self ~cmd:(selector "setThresholdValue:") ~typ:(double @-> returning void) x let thresholdValue self = msg_send ~self ~cmd:(selector "thresholdValue") ~typ:(returning double) diff --git a/PhotosUI/PUInitialHysteresisValueFilterClass.ml b/PhotosUI/PUInitialHysteresisValueFilterClass.ml deleted file mode 100644 index 0b4f3a0f..00000000 --- a/PhotosUI/PUInitialHysteresisValueFilterClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puinitialhysteresisvaluefilter?language=objc}PUInitialHysteresisValueFilter} *) - -let self = get_class "PUInitialHysteresisValueFilter" diff --git a/PhotosUI/PUIrisSettings.ml b/PhotosUI/PUIrisSettings.ml index 95f49932..f63e859e 100644 --- a/PhotosUI/PUIrisSettings.ml +++ b/PhotosUI/PUIrisSettings.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puirissettings?language=objc}PUIrisSettings} *) +let self = get_class "PUIrisSettings" + let isVitalityAllowed self = msg_send ~self ~cmd:(selector "isVitalityAllowed") ~typ:(returning bool) let parentSettings self = msg_send ~self ~cmd:(selector "parentSettings") ~typ:(returning id) let performPostSaveActions self = msg_send ~self ~cmd:(selector "performPostSaveActions") ~typ:(returning void) diff --git a/PhotosUI/PUIrisSettingsClass.ml b/PhotosUI/PUIrisSettingsClass.ml index d57c1ccd..1569b849 100644 --- a/PhotosUI/PUIrisSettingsClass.ml +++ b/PhotosUI/PUIrisSettingsClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puirissettings?language=objc}PUIrisSettings} *) -let self = get_class "PUIrisSettings" - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PULayerAnimation.ml b/PhotosUI/PULayerAnimation.ml index 6dbc6c85..736fe8a9 100644 --- a/PhotosUI/PULayerAnimation.ml +++ b/PhotosUI/PULayerAnimation.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pulayeranimation?language=objc}PULayerAnimation} *) +let self = get_class "PULayerAnimation" + let animationDidStart x self = msg_send ~self ~cmd:(selector "animationDidStart:") ~typ:(id @-> returning void) x let animationDidStop x ~finished self = msg_send ~self ~cmd:(selector "animationDidStop:finished:") ~typ:(id @-> bool @-> returning void) x finished let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) diff --git a/PhotosUI/PULayerAnimationClass.ml b/PhotosUI/PULayerAnimationClass.ml deleted file mode 100644 index 735081fb..00000000 --- a/PhotosUI/PULayerAnimationClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pulayeranimation?language=objc}PULayerAnimation} *) - -let self = get_class "PULayerAnimation" diff --git a/PhotosUI/PULayerAnimationGroup.ml b/PhotosUI/PULayerAnimationGroup.ml index f0b4d5b6..2a265d24 100644 --- a/PhotosUI/PULayerAnimationGroup.ml +++ b/PhotosUI/PULayerAnimationGroup.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pulayeranimationgroup?language=objc}PULayerAnimationGroup} *) +let self = get_class "PULayerAnimationGroup" + let currentTime self = msg_send ~self ~cmd:(selector "currentTime") ~typ:(returning double) let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let initWithReferenceLayer x self = msg_send ~self ~cmd:(selector "initWithReferenceLayer:") ~typ:(id @-> returning id) x diff --git a/PhotosUI/PULayerAnimationGroupClass.ml b/PhotosUI/PULayerAnimationGroupClass.ml deleted file mode 100644 index 9ef6c774..00000000 --- a/PhotosUI/PULayerAnimationGroupClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pulayeranimationgroup?language=objc}PULayerAnimationGroup} *) - -let self = get_class "PULayerAnimationGroup" diff --git a/PhotosUI/PULayoutAnimationsHelper.ml b/PhotosUI/PULayoutAnimationsHelper.ml index a71547da..aa9b282b 100644 --- a/PhotosUI/PULayoutAnimationsHelper.ml +++ b/PhotosUI/PULayoutAnimationsHelper.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pulayoutanimationshelper?language=objc}PULayoutAnimationsHelper} *) +let self = get_class "PULayoutAnimationsHelper" + let animationsForReusableView x ~toLayoutAttributes self = msg_send ~self ~cmd:(selector "animationsForReusableView:toLayoutAttributes:") ~typ:(id @-> id @-> returning (ptr void)) x toLayoutAttributes let didFinishLayoutTransitionAnimations x ~transitionIsAppearing self = msg_send ~self ~cmd:(selector "didFinishLayoutTransitionAnimations:transitionIsAppearing:") ~typ:(bool @-> bool @-> returning void) x transitionIsAppearing let initWithSectionedGridLayout x self = msg_send ~self ~cmd:(selector "initWithSectionedGridLayout:") ~typ:(id @-> returning id) x diff --git a/PhotosUI/PULayoutAnimationsHelperClass.ml b/PhotosUI/PULayoutAnimationsHelperClass.ml index 644b2b1c..eab4976d 100644 --- a/PhotosUI/PULayoutAnimationsHelperClass.ml +++ b/PhotosUI/PULayoutAnimationsHelperClass.ml @@ -4,16 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pulayoutanimationshelper?language=objc}PULayoutAnimationsHelper} *) -let self = get_class "PULayoutAnimationsHelper" - let stackedTransitionAnimationPreferredDurationUsingSpringAnimations x self = msg_send ~self ~cmd:(selector "stackedTransitionAnimationPreferredDurationUsingSpringAnimations:") ~typ:(bool @-> returning double) x let stackedTransitionAnimationsForReusableView x ~toLayoutAttributes ~shouldUseSpringAnimations self = msg_send ~self ~cmd:(selector "stackedTransitionAnimationsForReusableView:toLayoutAttributes:shouldUseSpringAnimations:") ~typ:(id @-> id @-> bool @-> returning (ptr void)) x toLayoutAttributes shouldUseSpringAnimations let zoomTransitionAnimationPreferredDurationWhenZoomingIn x self = msg_send ~self ~cmd:(selector "zoomTransitionAnimationPreferredDurationWhenZoomingIn:") ~typ:(bool @-> returning double) x \ No newline at end of file diff --git a/PhotosUI/PULayoutSampledSectioning.ml b/PhotosUI/PULayoutSampledSectioning.ml index aa9714f8..28b15eb6 100644 --- a/PhotosUI/PULayoutSampledSectioning.ml +++ b/PhotosUI/PULayoutSampledSectioning.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pulayoutsampledsectioning?language=objc}PULayoutSampledSectioning} *) +let self = get_class "PULayoutSampledSectioning" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let enumerateRealMainItemIndexPathsForVisualSection x ~inVisualItemRange ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateRealMainItemIndexPathsForVisualSection:inVisualItemRange:usingBlock:") ~typ:(llong @-> NSRange.t @-> (ptr void) @-> returning void) (LLong.of_int x) inVisualItemRange usingBlock let enumerateRealSectionsForVisualSection x ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateRealSectionsForVisualSection:usingBlock:") ~typ:(llong @-> (ptr void) @-> returning void) (LLong.of_int x) usingBlock @@ -19,12 +18,10 @@ let hasSomeSampling self = msg_send ~self ~cmd:(selector "hasSomeSampling") ~typ let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let invalidateSampling self = msg_send ~self ~cmd:(selector "invalidateSampling") ~typ:(returning void) let invalidateSections self = msg_send ~self ~cmd:(selector "invalidateSections") ~typ:(returning void) -let mainRealItemIndexPathForVisualIndexPath x self = msg_send ~self ~cmd:(selector "mainRealItemIndexPathForVisualIndexPath:") ~typ:(PUSimpleIndexPath.t @-> returning PUSimpleIndexPath.t) x let mainRealSectionForVisualSection x self = msg_send ~self ~cmd:(selector "mainRealSectionForVisualSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) let numberOfRealItemsInVisualSection x self = msg_send ~self ~cmd:(selector "numberOfRealItemsInVisualSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) let numberOfVisualItemsInVisualSection x self = msg_send ~self ~cmd:(selector "numberOfVisualItemsInVisualSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) let setSupportsSamplingAndSectionGrouping x self = msg_send ~self ~cmd:(selector "setSupportsSamplingAndSectionGrouping:") ~typ:(bool @-> returning void) x let supportsSamplingAndSectionGrouping self = msg_send ~self ~cmd:(selector "supportsSamplingAndSectionGrouping") ~typ:(returning bool) let visibleUnsampledIndexesForCombinedRealSections x self = msg_send ~self ~cmd:(selector "visibleUnsampledIndexesForCombinedRealSections:") ~typ:(id @-> returning id) x -let visualIndexPathForRealIndexPath x ~isMainItem self = msg_send ~self ~cmd:(selector "visualIndexPathForRealIndexPath:isMainItem:") ~typ:(PUSimpleIndexPath.t @-> (ptr bool) @-> returning PUSimpleIndexPath.t) x isMainItem let visualSectionForRealSection x self = msg_send ~self ~cmd:(selector "visualSectionForRealSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) \ No newline at end of file diff --git a/PhotosUI/PULayoutSampledSectioningClass.ml b/PhotosUI/PULayoutSampledSectioningClass.ml deleted file mode 100644 index 6df62762..00000000 --- a/PhotosUI/PULayoutSampledSectioningClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pulayoutsampledsectioning?language=objc}PULayoutSampledSectioning} *) - -let self = get_class "PULayoutSampledSectioning" diff --git a/PhotosUI/PULayoutSectionListSampler.ml b/PhotosUI/PULayoutSectionListSampler.ml index fe8680c3..b0447691 100644 --- a/PhotosUI/PULayoutSectionListSampler.ml +++ b/PhotosUI/PULayoutSectionListSampler.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pulayoutsectionlistsampler?language=objc}PULayoutSectionListSampler} *) +let self = get_class "PULayoutSectionListSampler" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let dumpInternalMemory self = msg_send ~self ~cmd:(selector "dumpInternalMemory") ~typ:(returning void) let enumerateUnsampledIndexesForSampledIndexInRange x ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateUnsampledIndexesForSampledIndexInRange:usingBlock:") ~typ:(NSRange.t @-> (ptr void) @-> returning void) x usingBlock diff --git a/PhotosUI/PULayoutSectionListSamplerClass.ml b/PhotosUI/PULayoutSectionListSamplerClass.ml deleted file mode 100644 index dcfd6d93..00000000 --- a/PhotosUI/PULayoutSectionListSamplerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pulayoutsectionlistsampler?language=objc}PULayoutSectionListSampler} *) - -let self = get_class "PULayoutSectionListSampler" diff --git a/PhotosUI/PULayoutSectionSampler.ml b/PhotosUI/PULayoutSectionSampler.ml index f7fe29e9..b32ba5e8 100644 --- a/PhotosUI/PULayoutSectionSampler.ml +++ b/PhotosUI/PULayoutSectionSampler.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pulayoutsectionsampler?language=objc}PULayoutSectionSampler} *) +let self = get_class "PULayoutSectionSampler" + let dumpInternalMemory self = msg_send ~self ~cmd:(selector "dumpInternalMemory") ~typ:(returning void) let enumerateUnsampledIndexesForSampledIndexInRange x ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateUnsampledIndexesForSampledIndexInRange:usingBlock:") ~typ:(NSRange.t @-> (ptr void) @-> returning void) x usingBlock let indexForUnsampledIndex x ~isMainItem self = msg_send ~self ~cmd:(selector "indexForUnsampledIndex:isMainItem:") ~typ:(llong @-> (ptr bool) @-> returning llong) (LLong.of_int x) isMainItem diff --git a/PhotosUI/PULayoutSectionSamplerClass.ml b/PhotosUI/PULayoutSectionSamplerClass.ml deleted file mode 100644 index e4d503a4..00000000 --- a/PhotosUI/PULayoutSectionSamplerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pulayoutsectionsampler?language=objc}PULayoutSectionSampler} *) - -let self = get_class "PULayoutSectionSampler" diff --git a/PhotosUI/PULayoutSectionSimpleSampler.ml b/PhotosUI/PULayoutSectionSimpleSampler.ml index 67524fc0..ef8e8154 100644 --- a/PhotosUI/PULayoutSectionSimpleSampler.ml +++ b/PhotosUI/PULayoutSectionSimpleSampler.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pulayoutsectionsimplesampler?language=objc}PULayoutSectionSimpleSampler} *) +let self = get_class "PULayoutSectionSimpleSampler" + let dumpInternalMemory self = msg_send ~self ~cmd:(selector "dumpInternalMemory") ~typ:(returning void) let enumerateUnsampledIndexesForSampledIndexInRange x ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateUnsampledIndexesForSampledIndexInRange:usingBlock:") ~typ:(NSRange.t @-> (ptr void) @-> returning void) x usingBlock let indexForUnsampledIndex x ~isMainItem self = msg_send ~self ~cmd:(selector "indexForUnsampledIndex:isMainItem:") ~typ:(llong @-> (ptr bool) @-> returning llong) (LLong.of_int x) isMainItem diff --git a/PhotosUI/PULayoutSectionSimpleSamplerClass.ml b/PhotosUI/PULayoutSectionSimpleSamplerClass.ml deleted file mode 100644 index f43164ef..00000000 --- a/PhotosUI/PULayoutSectionSimpleSamplerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pulayoutsectionsimplesampler?language=objc}PULayoutSectionSimpleSampler} *) - -let self = get_class "PULayoutSectionSimpleSampler" diff --git a/PhotosUI/PULayoutSectioning.ml b/PhotosUI/PULayoutSectioning.ml index 46b54762..9eca1a69 100644 --- a/PhotosUI/PULayoutSectioning.ml +++ b/PhotosUI/PULayoutSectioning.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pulayoutsectioning?language=objc}PULayoutSectioning} *) +let self = get_class "PULayoutSectioning" + let baseSectioning self = msg_send ~self ~cmd:(selector "baseSectioning") ~typ:(returning id) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) @@ -21,7 +20,6 @@ let enumerateRealSectionsForVisualSection x ~usingBlock self = msg_send ~self ~c let hasSomeSampling self = msg_send ~self ~cmd:(selector "hasSomeSampling") ~typ:(returning bool) let invalidateSampling self = msg_send ~self ~cmd:(selector "invalidateSampling") ~typ:(returning void) let invalidateSections self = msg_send ~self ~cmd:(selector "invalidateSections") ~typ:(returning void) -let mainRealItemIndexPathForVisualIndexPath x self = msg_send ~self ~cmd:(selector "mainRealItemIndexPathForVisualIndexPath:") ~typ:(PUSimpleIndexPath.t @-> returning PUSimpleIndexPath.t) x let mainRealSectionForVisualSection x self = msg_send ~self ~cmd:(selector "mainRealSectionForVisualSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) let numberOfRealItemsInVisualSection x self = msg_send ~self ~cmd:(selector "numberOfRealItemsInVisualSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) let numberOfVisualItemsInVisualSection x self = msg_send ~self ~cmd:(selector "numberOfVisualItemsInVisualSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) @@ -31,6 +29,5 @@ let sectioningHashHasIncorrectSampling x ~hasInvisibleItemsInBaseSectioning self let setBaseSectioning x self = msg_send ~self ~cmd:(selector "setBaseSectioning:") ~typ:(id @-> returning void) x let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x let visibleUnsampledIndexesForCombinedRealSections x self = msg_send ~self ~cmd:(selector "visibleUnsampledIndexesForCombinedRealSections:") ~typ:(id @-> returning id) x -let visualIndexPathForRealIndexPath x ~isMainItem self = msg_send ~self ~cmd:(selector "visualIndexPathForRealIndexPath:isMainItem:") ~typ:(PUSimpleIndexPath.t @-> (ptr bool) @-> returning PUSimpleIndexPath.t) x isMainItem let visualSectionForRealSection x self = msg_send ~self ~cmd:(selector "visualSectionForRealSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) let writeToURL x ~error self = msg_send ~self ~cmd:(selector "writeToURL:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error \ No newline at end of file diff --git a/PhotosUI/PULayoutSectioningClass.ml b/PhotosUI/PULayoutSectioningClass.ml deleted file mode 100644 index 30b6c6d2..00000000 --- a/PhotosUI/PULayoutSectioningClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pulayoutsectioning?language=objc}PULayoutSectioning} *) - -let self = get_class "PULayoutSectioning" diff --git a/PhotosUI/PUMaximumChangeRateValueFilter.ml b/PhotosUI/PUMaximumChangeRateValueFilter.ml index 938f18f4..ec536327 100644 --- a/PhotosUI/PUMaximumChangeRateValueFilter.ml +++ b/PhotosUI/PUMaximumChangeRateValueFilter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pumaximumchangeratevaluefilter?language=objc}PUMaximumChangeRateValueFilter} *) +let self = get_class "PUMaximumChangeRateValueFilter" + let maximumChangeRate self = msg_send ~self ~cmd:(selector "maximumChangeRate") ~typ:(returning double) let setMaximumChangeRate x self = msg_send ~self ~cmd:(selector "setMaximumChangeRate:") ~typ:(double @-> returning void) x let updatedValue x ~withTargetValue ~timeInterval self = msg_send ~self ~cmd:(selector "updatedValue:withTargetValue:timeInterval:") ~typ:(double @-> double @-> double @-> returning double) x withTargetValue timeInterval \ No newline at end of file diff --git a/PhotosUI/PUMaximumChangeRateValueFilterClass.ml b/PhotosUI/PUMaximumChangeRateValueFilterClass.ml deleted file mode 100644 index 48278db6..00000000 --- a/PhotosUI/PUMaximumChangeRateValueFilterClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pumaximumchangeratevaluefilter?language=objc}PUMaximumChangeRateValueFilter} *) - -let self = get_class "PUMaximumChangeRateValueFilter" diff --git a/PhotosUI/PUMediaProvider.ml b/PhotosUI/PUMediaProvider.ml index cbb725c8..b939a48e 100644 --- a/PhotosUI/PUMediaProvider.ml +++ b/PhotosUI/PUMediaProvider.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pumediaprovider?language=objc}PUMediaProvider} *) +let self = get_class "PUMediaProvider" + let cancelImageRequest x self = msg_send ~self ~cmd:(selector "cancelImageRequest:") ~typ:(int @-> returning void) x let loadingStatusManager self = msg_send ~self ~cmd:(selector "loadingStatusManager") ~typ:(returning id) let requestAnimatedImageForAsset x ~options ~resultHandler self = msg_send ~self ~cmd:(selector "requestAnimatedImageForAsset:options:resultHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning int) x options resultHandler diff --git a/PhotosUI/PUMediaProviderClass.ml b/PhotosUI/PUMediaProviderClass.ml deleted file mode 100644 index 0e683089..00000000 --- a/PhotosUI/PUMediaProviderClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pumediaprovider?language=objc}PUMediaProvider} *) - -let self = get_class "PUMediaProvider" diff --git a/PhotosUI/PUModalTransition.ml b/PhotosUI/PUModalTransition.ml index 61126418..766b0c9a 100644 --- a/PhotosUI/PUModalTransition.ml +++ b/PhotosUI/PUModalTransition.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pumodaltransition?language=objc}PUModalTransition} *) +let self = get_class "PUModalTransition" + let animateTransition x self = msg_send ~self ~cmd:(selector "animateTransition:") ~typ:(id @-> returning void) x let animationControllerForDismissedController x self = msg_send ~self ~cmd:(selector "animationControllerForDismissedController:") ~typ:(id @-> returning id) x let animationControllerForPresentedController x ~presentingController ~sourceController self = msg_send ~self ~cmd:(selector "animationControllerForPresentedController:presentingController:sourceController:") ~typ:(id @-> id @-> id @-> returning id) x presentingController sourceController diff --git a/PhotosUI/PUModalTransitionClass.ml b/PhotosUI/PUModalTransitionClass.ml deleted file mode 100644 index e73acd88..00000000 --- a/PhotosUI/PUModalTransitionClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pumodaltransition?language=objc}PUModalTransition} *) - -let self = get_class "PUModalTransition" diff --git a/PhotosUI/PUModelTileTransform.ml b/PhotosUI/PUModelTileTransform.ml index 02492437..103142b3 100644 --- a/PhotosUI/PUModelTileTransform.ml +++ b/PhotosUI/PUModelTileTransform.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pumodeltiletransform?language=objc}PUModelTileTransform} *) +let self = get_class "PUModelTileTransform" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let hasUserInput self = msg_send ~self ~cmd:(selector "hasUserInput") ~typ:(returning bool) diff --git a/PhotosUI/PUModelTileTransformClass.ml b/PhotosUI/PUModelTileTransformClass.ml deleted file mode 100644 index 53a5399f..00000000 --- a/PhotosUI/PUModelTileTransformClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pumodeltiletransform?language=objc}PUModelTileTransform} *) - -let self = get_class "PUModelTileTransform" diff --git a/PhotosUI/PUNavigationController.ml b/PhotosUI/PUNavigationController.ml index 31f6c3e8..104c1ad4 100644 --- a/PhotosUI/PUNavigationController.ml +++ b/PhotosUI/PUNavigationController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/punavigationcontroller?language=objc}PUNavigationController} *) +let self = get_class "PUNavigationController" + let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender let childViewControllerForStatusBarHidden self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarHidden") ~typ:(returning id) let childViewControllerForStatusBarStyle self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarStyle") ~typ:(returning id) diff --git a/PhotosUI/PUNavigationControllerClass.ml b/PhotosUI/PUNavigationControllerClass.ml deleted file mode 100644 index de0c677f..00000000 --- a/PhotosUI/PUNavigationControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/punavigationcontroller?language=objc}PUNavigationController} *) - -let self = get_class "PUNavigationController" diff --git a/PhotosUI/PUNavigationTransition.ml b/PhotosUI/PUNavigationTransition.ml index deeac01e..5de72dda 100644 --- a/PhotosUI/PUNavigationTransition.ml +++ b/PhotosUI/PUNavigationTransition.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/punavigationtransition?language=objc}PUNavigationTransition} *) +let self = get_class "PUNavigationTransition" + let animateTransition x self = msg_send ~self ~cmd:(selector "animateTransition:") ~typ:(id @-> returning void) x let cancelInteractiveTransition self = msg_send ~self ~cmd:(selector "cancelInteractiveTransition") ~typ:(returning void) let completeInteractiveOperation x ~finished self = msg_send ~self ~cmd:(selector "completeInteractiveOperation:finished:") ~typ:(llong @-> bool @-> returning void) (LLong.of_int x) finished diff --git a/PhotosUI/PUNavigationTransitionClass.ml b/PhotosUI/PUNavigationTransitionClass.ml index f6d797e7..62800360 100644 --- a/PhotosUI/PUNavigationTransitionClass.ml +++ b/PhotosUI/PUNavigationTransitionClass.ml @@ -4,15 +4,10 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/punavigationtransition?language=objc}PUNavigationTransition} *) -let self = get_class "PUNavigationTransition" - let animationControllerForOperation x ~fromViewController ~toViewController ~inNavigationController self = msg_send ~self ~cmd:(selector "animationControllerForOperation:fromViewController:toViewController:inNavigationController:") ~typ:(llong @-> id @-> id @-> id @-> returning id) (LLong.of_int x) fromViewController toViewController inNavigationController let shouldCrossFadeBottomBarsForNavigationController x self = msg_send ~self ~cmd:(selector "shouldCrossFadeBottomBarsForNavigationController:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/PhotosUI/PUOneUpLoadingErrorPresentationController.ml b/PhotosUI/PUOneUpLoadingErrorPresentationController.ml index 8759f9ed..34932142 100644 --- a/PhotosUI/PUOneUpLoadingErrorPresentationController.ml +++ b/PhotosUI/PUOneUpLoadingErrorPresentationController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puoneuploadingerrorpresentationcontroller?language=objc}PUOneUpLoadingErrorPresentationController} *) +let self = get_class "PUOneUpLoadingErrorPresentationController" + let additionalRadarDescriptionLinesForAsset x self = msg_send ~self ~cmd:(selector "additionalRadarDescriptionLinesForAsset:") ~typ:(id @-> returning id) x let configureAlertPropertiesFromError x ~withAssets ~willShowFileRadarButton ~alertCompletion self = msg_send ~self ~cmd:(selector "configureAlertPropertiesFromError:withAssets:willShowFileRadarButton:alertCompletion:") ~typ:(id @-> id @-> bool @-> (ptr void) @-> returning void) x withAssets willShowFileRadarButton alertCompletion let configureRadarPropertiesFromError x ~withAssets self = msg_send ~self ~cmd:(selector "configureRadarPropertiesFromError:withAssets:") ~typ:(id @-> id @-> returning void) x withAssets diff --git a/PhotosUI/PUOneUpLoadingErrorPresentationControllerClass.ml b/PhotosUI/PUOneUpLoadingErrorPresentationControllerClass.ml index c485707f..535b21cc 100644 --- a/PhotosUI/PUOneUpLoadingErrorPresentationControllerClass.ml +++ b/PhotosUI/PUOneUpLoadingErrorPresentationControllerClass.ml @@ -4,15 +4,10 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puoneuploadingerrorpresentationcontroller?language=objc}PUOneUpLoadingErrorPresentationController} *) -let self = get_class "PUOneUpLoadingErrorPresentationController" - let errorIsDownloadError x self = msg_send ~self ~cmd:(selector "errorIsDownloadError:") ~typ:(id @-> returning bool) x let oneUpLoadingErrorTypeFromError x self = msg_send ~self ~cmd:(selector "oneUpLoadingErrorTypeFromError:") ~typ:(id @-> returning llong) x \ No newline at end of file diff --git a/PhotosUI/PUOneUpSettings.ml b/PhotosUI/PUOneUpSettings.ml index 3008ba8c..52200714 100644 --- a/PhotosUI/PUOneUpSettings.ml +++ b/PhotosUI/PUOneUpSettings.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puoneupsettings?language=objc}PUOneUpSettings} *) +let self = get_class "PUOneUpSettings" + let accessoryInitialTopPosition self = msg_send ~self ~cmd:(selector "accessoryInitialTopPosition") ~typ:(returning double) let allowAutoplayVideoForAsset x self = msg_send ~self ~cmd:(selector "allowAutoplayVideoForAsset:") ~typ:(id @-> returning bool) x let allowBadges self = msg_send ~self ~cmd:(selector "allowBadges") ~typ:(returning bool) diff --git a/PhotosUI/PUOneUpSettingsClass.ml b/PhotosUI/PUOneUpSettingsClass.ml index c7eb950e..3619242e 100644 --- a/PhotosUI/PUOneUpSettingsClass.ml +++ b/PhotosUI/PUOneUpSettingsClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puoneupsettings?language=objc}PUOneUpSettings} *) -let self = get_class "PUOneUpSettings" - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUOperationStatus.ml b/PhotosUI/PUOperationStatus.ml index 55a23c2d..cd93bdc4 100644 --- a/PhotosUI/PUOperationStatus.ml +++ b/PhotosUI/PUOperationStatus.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puoperationstatus?language=objc}PUOperationStatus} *) +let self = get_class "PUOperationStatus" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let error self = msg_send ~self ~cmd:(selector "error") ~typ:(returning id) diff --git a/PhotosUI/PUOperationStatusClass.ml b/PhotosUI/PUOperationStatusClass.ml deleted file mode 100644 index 7450064e..00000000 --- a/PhotosUI/PUOperationStatusClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puoperationstatus?language=objc}PUOperationStatus} *) - -let self = get_class "PUOperationStatus" diff --git a/PhotosUI/PUPXFilteredMomentsViewController.ml b/PhotosUI/PUPXFilteredMomentsViewController.ml index 01da683b..fd46361a 100644 --- a/PhotosUI/PUPXFilteredMomentsViewController.ml +++ b/PhotosUI/PUPXFilteredMomentsViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupxfilteredmomentsviewcontroller?language=objc}PUPXFilteredMomentsViewController} *) +let self = get_class "PUPXFilteredMomentsViewController" + let barsUpdateDelegate self = msg_send ~self ~cmd:(selector "barsUpdateDelegate") ~typ:(returning id) let containerViewController self = msg_send ~self ~cmd:(selector "containerViewController") ~typ:(returning id) let getEmptyPlaceholderViewTitle x ~message ~buttonTitle ~buttonAction self = msg_send ~self ~cmd:(selector "getEmptyPlaceholderViewTitle:message:buttonTitle:buttonAction:") ~typ:((ptr id) @-> (ptr id) @-> (ptr id) @-> (ptr (ptr void)) @-> returning void) x message buttonTitle buttonAction diff --git a/PhotosUI/PUPXFilteredMomentsViewControllerClass.ml b/PhotosUI/PUPXFilteredMomentsViewControllerClass.ml deleted file mode 100644 index a4eb573c..00000000 --- a/PhotosUI/PUPXFilteredMomentsViewControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupxfilteredmomentsviewcontroller?language=objc}PUPXFilteredMomentsViewController} *) - -let self = get_class "PUPXFilteredMomentsViewController" diff --git a/PhotosUI/PUPXGridPresentation.ml b/PhotosUI/PUPXGridPresentation.ml index 2bfcf173..20c37de4 100644 --- a/PhotosUI/PUPXGridPresentation.ml +++ b/PhotosUI/PUPXGridPresentation.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupxgridpresentation?language=objc}PUPXGridPresentation} *) +let self = get_class "PUPXGridPresentation" + let createAssetPickerPhotosAlbumViewControllerForAlbum x self = msg_send ~self ~cmd:(selector "createAssetPickerPhotosAlbumViewControllerForAlbum:") ~typ:(id @-> returning id) x let createGridViewControllerWithAssets x ~photoLibrary ~withTitle ~hideTabBar ~gridPresentationContext ~containerViewController ~barsUpdateDelegate ~andCompletion self = msg_send ~self ~cmd:(selector "createGridViewControllerWithAssets:photoLibrary:withTitle:hideTabBar:gridPresentationContext:containerViewController:barsUpdateDelegate:andCompletion:") ~typ:(id @-> id @-> id @-> bool @-> llong @-> id @-> id @-> (ptr void) @-> returning void) x photoLibrary withTitle hideTabBar (LLong.of_int gridPresentationContext) containerViewController barsUpdateDelegate andCompletion let createImportHistoryGridViewControllerWithCollection x self = msg_send ~self ~cmd:(selector "createImportHistoryGridViewControllerWithCollection:") ~typ:(id @-> returning id) x diff --git a/PhotosUI/PUPXGridPresentationClass.ml b/PhotosUI/PUPXGridPresentationClass.ml deleted file mode 100644 index 556b76d0..00000000 --- a/PhotosUI/PUPXGridPresentationClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupxgridpresentation?language=objc}PUPXGridPresentation} *) - -let self = get_class "PUPXGridPresentation" diff --git a/PhotosUI/PUParallaxComputer.ml b/PhotosUI/PUParallaxComputer.ml index 3a24c2b2..5d22c4f8 100644 --- a/PhotosUI/PUParallaxComputer.ml +++ b/PhotosUI/PUParallaxComputer.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puparallaxcomputer?language=objc}PUParallaxComputer} *) +let self = get_class "PUParallaxComputer" + let axis self = msg_send ~self ~cmd:(selector "axis") ~typ:(returning ullong) let contentParallaxOffsetForViewFrame x ~visibleRect self = msg_send ~self ~cmd:(selector "contentParallaxOffsetForViewFrame:visibleRect:") ~typ:(CGRect.t @-> CGRect.t @-> returning CGPoint.t) x visibleRect let model self = msg_send ~self ~cmd:(selector "model") ~typ:(returning llong) diff --git a/PhotosUI/PUParallaxComputerClass.ml b/PhotosUI/PUParallaxComputerClass.ml deleted file mode 100644 index bab4b92b..00000000 --- a/PhotosUI/PUParallaxComputerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puparallaxcomputer?language=objc}PUParallaxComputer} *) - -let self = get_class "PUParallaxComputer" diff --git a/PhotosUI/PUParallaxedTileLayoutInfo.ml b/PhotosUI/PUParallaxedTileLayoutInfo.ml index f42ed24e..402812b1 100644 --- a/PhotosUI/PUParallaxedTileLayoutInfo.ml +++ b/PhotosUI/PUParallaxedTileLayoutInfo.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puparallaxedtilelayoutinfo?language=objc}PUParallaxedTileLayoutInfo} *) +let self = get_class "PUParallaxedTileLayoutInfo" + let clone self = msg_send ~self ~cmd:(selector "clone") ~typ:(returning id) let initWithTileIdentifier x ~center ~size ~alpha ~transform ~zPosition ~coordinateSystem self = msg_send ~self ~cmd:(selector "initWithTileIdentifier:center:size:alpha:transform:zPosition:coordinateSystem:") ~typ:(id @-> CGPoint.t @-> CGSize.t @-> double @-> CGAffineTransform.t @-> double @-> id @-> returning id) x center size alpha transform zPosition coordinateSystem let initWithTileIdentifier1 x ~center ~size ~alpha ~transform ~zPosition ~parallaxOffset ~coordinateSystem self = msg_send ~self ~cmd:(selector "initWithTileIdentifier:center:size:alpha:transform:zPosition:parallaxOffset:coordinateSystem:") ~typ:(id @-> CGPoint.t @-> CGSize.t @-> double @-> CGAffineTransform.t @-> double @-> CGPoint.t @-> id @-> returning id) x center size alpha transform zPosition parallaxOffset coordinateSystem diff --git a/PhotosUI/PUParallaxedTileLayoutInfoClass.ml b/PhotosUI/PUParallaxedTileLayoutInfoClass.ml deleted file mode 100644 index 01db6108..00000000 --- a/PhotosUI/PUParallaxedTileLayoutInfoClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puparallaxedtilelayoutinfo?language=objc}PUParallaxedTileLayoutInfo} *) - -let self = get_class "PUParallaxedTileLayoutInfo" diff --git a/PhotosUI/PUPhotoDecoration.ml b/PhotosUI/PUPhotoDecoration.ml index 1e984601..d7328cdc 100644 --- a/PhotosUI/PUPhotoDecoration.ml +++ b/PhotosUI/PUPhotoDecoration.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotodecoration?language=objc}PUPhotoDecoration} *) +let self = get_class "PUPhotoDecoration" + let borderColor self = msg_send ~self ~cmd:(selector "borderColor") ~typ:(returning id) let borderWidth self = msg_send ~self ~cmd:(selector "borderWidth") ~typ:(returning double) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x diff --git a/PhotosUI/PUPhotoDecorationClass.ml b/PhotosUI/PUPhotoDecorationClass.ml index 45d6178c..d6194975 100644 --- a/PhotosUI/PUPhotoDecorationClass.ml +++ b/PhotosUI/PUPhotoDecorationClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotodecoration?language=objc}PUPhotoDecoration} *) -let self = get_class "PUPhotoDecoration" - let defaultDecoration self = msg_send ~self ~cmd:(selector "defaultDecoration") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUPhotoPickerAbstractExtensionContext.ml b/PhotosUI/PUPhotoPickerAbstractExtensionContext.ml index 4670a0c4..fad49f43 100644 --- a/PhotosUI/PUPhotoPickerAbstractExtensionContext.ml +++ b/PhotosUI/PUPhotoPickerAbstractExtensionContext.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerabstractextensioncontext?language=objc}PUPhotoPickerAbstractExtensionContext} *) +let self = get_class "PUPhotoPickerAbstractExtensionContext" + let firstPayloadFromExtensionItems x ~completion self = msg_send ~self ~cmd:(selector "firstPayloadFromExtensionItems:completion:") ~typ:(id @-> (ptr void) @-> returning void) x completion let invalidateContext self = msg_send ~self ~cmd:(selector "invalidateContext") ~typ:(returning void) let principalObject self = msg_send ~self ~cmd:(selector "principalObject") ~typ:(returning id) diff --git a/PhotosUI/PUPhotoPickerAbstractExtensionContextClass.ml b/PhotosUI/PUPhotoPickerAbstractExtensionContextClass.ml deleted file mode 100644 index 5e17833f..00000000 --- a/PhotosUI/PUPhotoPickerAbstractExtensionContextClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerabstractextensioncontext?language=objc}PUPhotoPickerAbstractExtensionContext} *) - -let self = get_class "PUPhotoPickerAbstractExtensionContext" diff --git a/PhotosUI/PUPhotoPickerExtensionContext.ml b/PhotosUI/PUPhotoPickerExtensionContext.ml index 2414a9e3..e3732a63 100644 --- a/PhotosUI/PUPhotoPickerExtensionContext.ml +++ b/PhotosUI/PUPhotoPickerExtensionContext.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerextensioncontext?language=objc}PUPhotoPickerExtensionContext} *) +let self = get_class "PUPhotoPickerExtensionContext" + let cancelPhotoPicker self = msg_send ~self ~cmd:(selector "cancelPhotoPicker") ~typ:(returning void) let didDisplayPhotoPickerPreview self = msg_send ~self ~cmd:(selector "didDisplayPhotoPickerPreview") ~typ:(returning void) let didDisplayPhotoPickerSourceType x self = msg_send ~self ~cmd:(selector "didDisplayPhotoPickerSourceType:") ~typ:(id @-> returning void) x diff --git a/PhotosUI/PUPhotoPickerExtensionContextClass.ml b/PhotosUI/PUPhotoPickerExtensionContextClass.ml index 92237eb6..d823d030 100644 --- a/PhotosUI/PUPhotoPickerExtensionContextClass.ml +++ b/PhotosUI/PUPhotoPickerExtensionContextClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerextensioncontext?language=objc}PUPhotoPickerExtensionContext} *) -let self = get_class "PUPhotoPickerExtensionContext" - let configureImageManagerLimit self = msg_send ~self ~cmd:(selector "configureImageManagerLimit") ~typ:(returning void) \ No newline at end of file diff --git a/PhotosUI/PUPhotoPickerExtensionHostContext.ml b/PhotosUI/PUPhotoPickerExtensionHostContext.ml index 9e68d8ea..29038b9e 100644 --- a/PhotosUI/PUPhotoPickerExtensionHostContext.ml +++ b/PhotosUI/PUPhotoPickerExtensionHostContext.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerextensionhostcontext?language=objc}PUPhotoPickerExtensionHostContext} *) +let self = get_class "PUPhotoPickerExtensionHostContext" + let cachedDidDisplayPhotoPickerPreview self = msg_send ~self ~cmd:(selector "cachedDidDisplayPhotoPickerPreview") ~typ:(returning bool) let cachedDidDisplayPhotoPickerSourceType self = msg_send ~self ~cmd:(selector "cachedDidDisplayPhotoPickerSourceType") ~typ:(returning id) let cancelPhotoPicker self = msg_send ~self ~cmd:(selector "cancelPhotoPicker") ~typ:(returning void) diff --git a/PhotosUI/PUPhotoPickerExtensionHostContextClass.ml b/PhotosUI/PUPhotoPickerExtensionHostContextClass.ml deleted file mode 100644 index e799f4de..00000000 --- a/PhotosUI/PUPhotoPickerExtensionHostContextClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerextensionhostcontext?language=objc}PUPhotoPickerExtensionHostContext} *) - -let self = get_class "PUPhotoPickerExtensionHostContext" diff --git a/PhotosUI/PUPhotoPickerFileSizeToolbarProvider.ml b/PhotosUI/PUPhotoPickerFileSizeToolbarProvider.ml index c97d12de..431608b2 100644 --- a/PhotosUI/PUPhotoPickerFileSizeToolbarProvider.ml +++ b/PhotosUI/PUPhotoPickerFileSizeToolbarProvider.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerfilesizetoolbarprovider?language=objc}PUPhotoPickerFileSizeToolbarProvider} *) +let self = get_class "PUPhotoPickerFileSizeToolbarProvider" + let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) let initWithDataSource x self = msg_send ~self ~cmd:(selector "initWithDataSource:") ~typ:(id @-> returning id) x let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x diff --git a/PhotosUI/PUPhotoPickerFileSizeToolbarProviderClass.ml b/PhotosUI/PUPhotoPickerFileSizeToolbarProviderClass.ml deleted file mode 100644 index d543d494..00000000 --- a/PhotosUI/PUPhotoPickerFileSizeToolbarProviderClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerfilesizetoolbarprovider?language=objc}PUPhotoPickerFileSizeToolbarProvider} *) - -let self = get_class "PUPhotoPickerFileSizeToolbarProvider" diff --git a/PhotosUI/PUPhotoPickerHostViewController.ml b/PhotosUI/PUPhotoPickerHostViewController.ml index 8a291da1..dd037225 100644 --- a/PhotosUI/PUPhotoPickerHostViewController.ml +++ b/PhotosUI/PUPhotoPickerHostViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerhostviewcontroller?language=objc}PUPhotoPickerHostViewController} *) +let self = get_class "PUPhotoPickerHostViewController" + let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) let hostExtensionContext self = msg_send ~self ~cmd:(selector "hostExtensionContext") ~typ:(returning id) let hostProxy self = msg_send ~self ~cmd:(selector "hostProxy") ~typ:(returning id) diff --git a/PhotosUI/PUPhotoPickerHostViewControllerClass.ml b/PhotosUI/PUPhotoPickerHostViewControllerClass.ml deleted file mode 100644 index e4ae0e62..00000000 --- a/PhotosUI/PUPhotoPickerHostViewControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerhostviewcontroller?language=objc}PUPhotoPickerHostViewController} *) - -let self = get_class "PUPhotoPickerHostViewController" diff --git a/PhotosUI/PUPhotoPickerRemoteNavigationController.ml b/PhotosUI/PUPhotoPickerRemoteNavigationController.ml index 32150177..944c9128 100644 --- a/PhotosUI/PUPhotoPickerRemoteNavigationController.ml +++ b/PhotosUI/PUPhotoPickerRemoteNavigationController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerremotenavigationcontroller?language=objc}PUPhotoPickerRemoteNavigationController} *) +let self = get_class "PUPhotoPickerRemoteNavigationController" + let popToRootViewControllerAnimated x self = msg_send ~self ~cmd:(selector "popToRootViewControllerAnimated:") ~typ:(bool @-> returning id) x let popToViewController x ~animated self = msg_send ~self ~cmd:(selector "popToViewController:animated:") ~typ:(id @-> bool @-> returning id) x animated let pushViewController x ~animated self = msg_send ~self ~cmd:(selector "pushViewController:animated:") ~typ:(id @-> bool @-> returning void) x animated diff --git a/PhotosUI/PUPhotoPickerRemoteNavigationControllerClass.ml b/PhotosUI/PUPhotoPickerRemoteNavigationControllerClass.ml deleted file mode 100644 index ec62beaf..00000000 --- a/PhotosUI/PUPhotoPickerRemoteNavigationControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerremotenavigationcontroller?language=objc}PUPhotoPickerRemoteNavigationController} *) - -let self = get_class "PUPhotoPickerRemoteNavigationController" diff --git a/PhotosUI/PUPhotoPickerRemoteViewController.ml b/PhotosUI/PUPhotoPickerRemoteViewController.ml index 8d528549..a560067d 100644 --- a/PhotosUI/PUPhotoPickerRemoteViewController.ml +++ b/PhotosUI/PUPhotoPickerRemoteViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerremoteviewcontroller?language=objc}PUPhotoPickerRemoteViewController} *) +let self = get_class "PUPhotoPickerRemoteViewController" + let allowsMultipleSelection self = msg_send ~self ~cmd:(selector "allowsMultipleSelection") ~typ:(returning bool) let assetPickerCoordinator self = msg_send ~self ~cmd:(selector "assetPickerCoordinator") ~typ:(returning id) let beginRequestWithExtensionContext x self = msg_send ~self ~cmd:(selector "beginRequestWithExtensionContext:") ~typ:(id @-> returning void) x diff --git a/PhotosUI/PUPhotoPickerRemoteViewControllerClass.ml b/PhotosUI/PUPhotoPickerRemoteViewControllerClass.ml index 7b4052a2..ddf118ce 100644 --- a/PhotosUI/PUPhotoPickerRemoteViewControllerClass.ml +++ b/PhotosUI/PUPhotoPickerRemoteViewControllerClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerremoteviewcontroller?language=objc}PUPhotoPickerRemoteViewController} *) -let self = get_class "PUPhotoPickerRemoteViewController" - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) \ No newline at end of file diff --git a/PhotosUI/PUPhotoPickerRemoteViewControllerRequestOptions.ml b/PhotosUI/PUPhotoPickerRemoteViewControllerRequestOptions.ml index 133bdc2e..5ee8245b 100644 --- a/PhotosUI/PUPhotoPickerRemoteViewControllerRequestOptions.ml +++ b/PhotosUI/PUPhotoPickerRemoteViewControllerRequestOptions.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerremoteviewcontrollerrequestoptions?language=objc}PUPhotoPickerRemoteViewControllerRequestOptions} *) +let self = get_class "PUPhotoPickerRemoteViewControllerRequestOptions" + let allowsMultipleSelection self = msg_send ~self ~cmd:(selector "allowsMultipleSelection") ~typ:(returning bool) let convertAutoloopsToGIF self = msg_send ~self ~cmd:(selector "convertAutoloopsToGIF") ~typ:(returning bool) let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) diff --git a/PhotosUI/PUPhotoPickerRemoteViewControllerRequestOptionsClass.ml b/PhotosUI/PUPhotoPickerRemoteViewControllerRequestOptionsClass.ml index 7047d2d9..b5cefc92 100644 --- a/PhotosUI/PUPhotoPickerRemoteViewControllerRequestOptionsClass.ml +++ b/PhotosUI/PUPhotoPickerRemoteViewControllerRequestOptionsClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerremoteviewcontrollerrequestoptions?language=objc}PUPhotoPickerRemoteViewControllerRequestOptions} *) -let self = get_class "PUPhotoPickerRemoteViewControllerRequestOptions" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/PhotosUI/PUPhotoPickerResizeTaskDescriptor.ml b/PhotosUI/PUPhotoPickerResizeTaskDescriptor.ml index 7088554a..a77a5173 100644 --- a/PhotosUI/PUPhotoPickerResizeTaskDescriptor.ml +++ b/PhotosUI/PUPhotoPickerResizeTaskDescriptor.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerresizetaskdescriptor?language=objc}PUPhotoPickerResizeTaskDescriptor} *) +let self = get_class "PUPhotoPickerResizeTaskDescriptor" + let appliesToAsset x self = msg_send ~self ~cmd:(selector "appliesToAsset:") ~typ:(id @-> returning bool) x let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let estimatedSizeForAssets x self = msg_send ~self ~cmd:(selector "estimatedSizeForAssets:") ~typ:(id @-> returning ullong) x diff --git a/PhotosUI/PUPhotoPickerResizeTaskDescriptorClass.ml b/PhotosUI/PUPhotoPickerResizeTaskDescriptorClass.ml index 82fdf2dd..d8944af5 100644 --- a/PhotosUI/PUPhotoPickerResizeTaskDescriptorClass.ml +++ b/PhotosUI/PUPhotoPickerResizeTaskDescriptorClass.ml @@ -4,16 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerresizetaskdescriptor?language=objc}PUPhotoPickerResizeTaskDescriptor} *) -let self = get_class "PUPhotoPickerResizeTaskDescriptor" - let defaultActualSizeDescriptor self = msg_send ~self ~cmd:(selector "defaultActualSizeDescriptor") ~typ:(returning id) let defaultLargeDescriptor self = msg_send ~self ~cmd:(selector "defaultLargeDescriptor") ~typ:(returning id) let defaultMediumDescriptor self = msg_send ~self ~cmd:(selector "defaultMediumDescriptor") ~typ:(returning id) diff --git a/PhotosUI/PUPhotoPickerResizeTaskDescriptorViewModel.ml b/PhotosUI/PUPhotoPickerResizeTaskDescriptorViewModel.ml index 6b7ccad3..11a6b0b0 100644 --- a/PhotosUI/PUPhotoPickerResizeTaskDescriptorViewModel.ml +++ b/PhotosUI/PUPhotoPickerResizeTaskDescriptorViewModel.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerresizetaskdescriptorviewmodel?language=objc}PUPhotoPickerResizeTaskDescriptorViewModel} *) +let self = get_class "PUPhotoPickerResizeTaskDescriptorViewModel" + let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let fileSizeMenu self = msg_send ~self ~cmd:(selector "fileSizeMenu") ~typ:(returning id) diff --git a/PhotosUI/PUPhotoPickerResizeTaskDescriptorViewModelClass.ml b/PhotosUI/PUPhotoPickerResizeTaskDescriptorViewModelClass.ml deleted file mode 100644 index 978b0bd5..00000000 --- a/PhotosUI/PUPhotoPickerResizeTaskDescriptorViewModelClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerresizetaskdescriptorviewmodel?language=objc}PUPhotoPickerResizeTaskDescriptorViewModel} *) - -let self = get_class "PUPhotoPickerResizeTaskDescriptorViewModel" diff --git a/PhotosUI/PUPhotoPickerScaledFileSizeEstimator.ml b/PhotosUI/PUPhotoPickerScaledFileSizeEstimator.ml index 120b3a13..c0c3a542 100644 --- a/PhotosUI/PUPhotoPickerScaledFileSizeEstimator.ml +++ b/PhotosUI/PUPhotoPickerScaledFileSizeEstimator.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerscaledfilesizeestimator?language=objc}PUPhotoPickerScaledFileSizeEstimator} *) +let self = get_class "PUPhotoPickerScaledFileSizeEstimator" + let asset self = msg_send ~self ~cmd:(selector "asset") ~typ:(returning id) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let estimatedSizeForResizeDescriptor x self = msg_send ~self ~cmd:(selector "estimatedSizeForResizeDescriptor:") ~typ:(id @-> returning ullong) x diff --git a/PhotosUI/PUPhotoPickerScaledFileSizeEstimatorClass.ml b/PhotosUI/PUPhotoPickerScaledFileSizeEstimatorClass.ml index 28697d35..19962356 100644 --- a/PhotosUI/PUPhotoPickerScaledFileSizeEstimatorClass.ml +++ b/PhotosUI/PUPhotoPickerScaledFileSizeEstimatorClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopickerscaledfilesizeestimator?language=objc}PUPhotoPickerScaledFileSizeEstimator} *) -let self = get_class "PUPhotoPickerScaledFileSizeEstimator" - let isAssetResizable x self = msg_send ~self ~cmd:(selector "isAssetResizable:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/PhotosUI/PUPhotoPinchGestureRecognizer.ml b/PhotosUI/PUPhotoPinchGestureRecognizer.ml index 059d8fc1..d7bbdb9b 100644 --- a/PhotosUI/PUPhotoPinchGestureRecognizer.ml +++ b/PhotosUI/PUPhotoPinchGestureRecognizer.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopinchgesturerecognizer?language=objc}PUPhotoPinchGestureRecognizer} *) +let self = get_class "PUPhotoPinchGestureRecognizer" + let adjustedInitialCenterInView x self = msg_send ~self ~cmd:(selector "adjustedInitialCenterInView:") ~typ:(id @-> returning CGPoint.t) x let adjustedRotationInView x self = msg_send ~self ~cmd:(selector "adjustedRotationInView:") ~typ:(id @-> returning double) x let adjustedRotationVelocityInView x self = msg_send ~self ~cmd:(selector "adjustedRotationVelocityInView:") ~typ:(id @-> returning double) x diff --git a/PhotosUI/PUPhotoPinchGestureRecognizerClass.ml b/PhotosUI/PUPhotoPinchGestureRecognizerClass.ml deleted file mode 100644 index 2d68de02..00000000 --- a/PhotosUI/PUPhotoPinchGestureRecognizerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotopinchgesturerecognizer?language=objc}PUPhotoPinchGestureRecognizer} *) - -let self = get_class "PUPhotoPinchGestureRecognizer" diff --git a/PhotosUI/PUPhotoSelectionEntry.ml b/PhotosUI/PUPhotoSelectionEntry.ml index 63b17515..b3405aca 100644 --- a/PhotosUI/PUPhotoSelectionEntry.ml +++ b/PhotosUI/PUPhotoSelectionEntry.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotoselectionentry?language=objc}PUPhotoSelectionEntry} *) +let self = get_class "PUPhotoSelectionEntry" + let assetCollection self = msg_send ~self ~cmd:(selector "assetCollection") ~typ:(returning id) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let deselectAssetsAtIndexes x self = msg_send ~self ~cmd:(selector "deselectAssetsAtIndexes:") ~typ:(id @-> returning void) x diff --git a/PhotosUI/PUPhotoSelectionEntryClass.ml b/PhotosUI/PUPhotoSelectionEntryClass.ml deleted file mode 100644 index d2c57ca2..00000000 --- a/PhotosUI/PUPhotoSelectionEntryClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotoselectionentry?language=objc}PUPhotoSelectionEntry} *) - -let self = get_class "PUPhotoSelectionEntry" diff --git a/PhotosUI/PUPhotoSelectionManager.ml b/PhotosUI/PUPhotoSelectionManager.ml index a95c409f..a99a048b 100644 --- a/PhotosUI/PUPhotoSelectionManager.ml +++ b/PhotosUI/PUPhotoSelectionManager.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotoselectionmanager?language=objc}PUPhotoSelectionManager} *) +let self = get_class "PUPhotoSelectionManager" + let areAllAssetsSelectedInAssetCollection x self = msg_send ~self ~cmd:(selector "areAllAssetsSelectedInAssetCollection:") ~typ:(id @-> returning bool) x let areAllAssetsSelectedInAssetCollections x self = msg_send ~self ~cmd:(selector "areAllAssetsSelectedInAssetCollections:") ~typ:(id @-> returning bool) x let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x @@ -33,7 +32,6 @@ let localizedSelectionString self = msg_send ~self ~cmd:(selector "localizedSele let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning llong) let orderedSelectedAssets self = msg_send ~self ~cmd:(selector "orderedSelectedAssets") ~typ:(returning id) let registerChangeObserver x self = msg_send ~self ~cmd:(selector "registerChangeObserver:") ~typ:(id @-> returning void) x -(* let requestAssetsMediaTypeCount self = msg_send ~self ~cmd:(selector "requestAssetsMediaTypeCount") ~typ:(returning PXAssetMediaTypeCount.t) *) let selectAllAssetsInAssetCollections x self = msg_send ~self ~cmd:(selector "selectAllAssetsInAssetCollections:") ~typ:(id @-> returning void) x let selectAssetAtIndex x ~inAssetCollection self = msg_send ~self ~cmd:(selector "selectAssetAtIndex:inAssetCollection:") ~typ:(ullong @-> id @-> returning void) (ULLong.of_int x) inAssetCollection let selectAssetsAtIndexes x ~inAssetCollection self = msg_send ~self ~cmd:(selector "selectAssetsAtIndexes:inAssetCollection:") ~typ:(id @-> id @-> returning void) x inAssetCollection diff --git a/PhotosUI/PUPhotoSelectionManagerClass.ml b/PhotosUI/PUPhotoSelectionManagerClass.ml deleted file mode 100644 index d1a1e4bc..00000000 --- a/PhotosUI/PUPhotoSelectionManagerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotoselectionmanager?language=objc}PUPhotoSelectionManager} *) - -let self = get_class "PUPhotoSelectionManager" diff --git a/PhotosUI/PUPhotoView.ml b/PhotosUI/PUPhotoView.ml index 838e8d96..3934a85b 100644 --- a/PhotosUI/PUPhotoView.ml +++ b/PhotosUI/PUPhotoView.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotoview?language=objc}PUPhotoView} *) +let self = get_class "PUPhotoView" + let contentHelper self = msg_send ~self ~cmd:(selector "contentHelper") ~typ:(returning id) let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) diff --git a/PhotosUI/PUPhotoViewClass.ml b/PhotosUI/PUPhotoViewClass.ml deleted file mode 100644 index 5fb0d082..00000000 --- a/PhotosUI/PUPhotoViewClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotoview?language=objc}PUPhotoView} *) - -let self = get_class "PUPhotoView" diff --git a/PhotosUI/PUPhotoViewContentHelper.ml b/PhotosUI/PUPhotoViewContentHelper.ml index 29e4ea44..cfd55aa3 100644 --- a/PhotosUI/PUPhotoViewContentHelper.ml +++ b/PhotosUI/PUPhotoViewContentHelper.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotoviewcontenthelper?language=objc}PUPhotoViewContentHelper} *) +let self = get_class "PUPhotoViewContentHelper" + let animateCrossfadeToImage x self = msg_send ~self ~cmd:(selector "animateCrossfadeToImage:") ~typ:(id @-> returning void) x let animatedImage self = msg_send ~self ~cmd:(selector "animatedImage") ~typ:(returning id) let avalancheStackBackgroundColor self = msg_send ~self ~cmd:(selector "avalancheStackBackgroundColor") ~typ:(returning (ptr CGColor.t)) @@ -20,7 +19,6 @@ let avoidsImageViewIfPossible self = msg_send ~self ~cmd:(selector "avoidsImageV let avoidsPhotoDecoration self = msg_send ~self ~cmd:(selector "avoidsPhotoDecoration") ~typ:(returning bool) let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) let badgeContainerView self = msg_send ~self ~cmd:(selector "badgeContainerView") ~typ:(returning id) -(* let badgeInfo self = msg_send ~self ~cmd:(selector "badgeInfo") ~typ:(returning PXAssetBadgeInfo.t) *) let badgeStyle self = msg_send ~self ~cmd:(selector "badgeStyle") ~typ:(returning llong) let collectionTileLayoutTemplate self = msg_send ~self ~cmd:(selector "collectionTileLayoutTemplate") ~typ:(returning id) let contentAlpha self = msg_send ~self ~cmd:(selector "contentAlpha") ~typ:(returning double) @@ -70,7 +68,6 @@ let setAvalancheStackView x self = msg_send ~self ~cmd:(selector "setAvalancheSt let setAvoidsImageViewIfPossible x self = msg_send ~self ~cmd:(selector "setAvoidsImageViewIfPossible:") ~typ:(bool @-> returning void) x let setAvoidsPhotoDecoration x self = msg_send ~self ~cmd:(selector "setAvoidsPhotoDecoration:") ~typ:(bool @-> returning void) x let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x -(* let setBadgeInfo x self = msg_send ~self ~cmd:(selector "setBadgeInfo:") ~typ:(PXAssetBadgeInfo.t @-> returning void) x *) let setBadgeStyle x self = msg_send ~self ~cmd:(selector "setBadgeStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) let setCollectionTileLayoutTemplate x self = msg_send ~self ~cmd:(selector "setCollectionTileLayoutTemplate:") ~typ:(id @-> returning void) x let setContentAlpha x self = msg_send ~self ~cmd:(selector "setContentAlpha:") ~typ:(double @-> returning void) x diff --git a/PhotosUI/PUPhotoViewContentHelperClass.ml b/PhotosUI/PUPhotoViewContentHelperClass.ml index b1a01e49..31d54671 100644 --- a/PhotosUI/PUPhotoViewContentHelperClass.ml +++ b/PhotosUI/PUPhotoViewContentHelperClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotoviewcontenthelper?language=objc}PUPhotoViewContentHelper} *) -let self = get_class "PUPhotoViewContentHelper" - let sizeThatFits x ~imageSize ~fillMode self = msg_send ~self ~cmd:(selector "sizeThatFits:imageSize:fillMode:") ~typ:(CGSize.t @-> CGSize.t @-> llong @-> returning CGSize.t) x imageSize (LLong.of_int fillMode) \ No newline at end of file diff --git a/PhotosUI/PUPhotosAlbumViewController.ml b/PhotosUI/PUPhotosAlbumViewController.ml index 96e62b22..bc62536f 100644 --- a/PhotosUI/PUPhotosAlbumViewController.ml +++ b/PhotosUI/PUPhotosAlbumViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosalbumviewcontroller?language=objc}PUPhotosAlbumViewController} *) +let self = get_class "PUPhotosAlbumViewController" + let album self = msg_send ~self ~cmd:(selector "album") ~typ:(returning id) let allowSelectAllButton self = msg_send ~self ~cmd:(selector "allowSelectAllButton") ~typ:(returning bool) let assetCollection self = msg_send ~self ~cmd:(selector "assetCollection") ~typ:(returning id) diff --git a/PhotosUI/PUPhotosAlbumViewControllerClass.ml b/PhotosUI/PUPhotosAlbumViewControllerClass.ml deleted file mode 100644 index 148b7cbc..00000000 --- a/PhotosUI/PUPhotosAlbumViewControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosalbumviewcontroller?language=objc}PUPhotosAlbumViewController} *) - -let self = get_class "PUPhotosAlbumViewController" diff --git a/PhotosUI/PUPhotosAlbumViewControllerPadSpec.ml b/PhotosUI/PUPhotosAlbumViewControllerPadSpec.ml index 250e2b02..414ec617 100644 --- a/PhotosUI/PUPhotosAlbumViewControllerPadSpec.ml +++ b/PhotosUI/PUPhotosAlbumViewControllerPadSpec.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosalbumviewcontrollerpadspec?language=objc}PUPhotosAlbumViewControllerPadSpec} *) +let self = get_class "PUPhotosAlbumViewControllerPadSpec" + let contentCornerRadius self = msg_send ~self ~cmd:(selector "contentCornerRadius") ~typ:(returning double) let fullMomentsSectionHeaderStyle self = msg_send ~self ~cmd:(selector "fullMomentsSectionHeaderStyle") ~typ:(returning llong) let gridSpec self = msg_send ~self ~cmd:(selector "gridSpec") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUPhotosAlbumViewControllerPadSpecClass.ml b/PhotosUI/PUPhotosAlbumViewControllerPadSpecClass.ml deleted file mode 100644 index b18df988..00000000 --- a/PhotosUI/PUPhotosAlbumViewControllerPadSpecClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosalbumviewcontrollerpadspec?language=objc}PUPhotosAlbumViewControllerPadSpec} *) - -let self = get_class "PUPhotosAlbumViewControllerPadSpec" diff --git a/PhotosUI/PUPhotosAlbumViewControllerPhoneSpec.ml b/PhotosUI/PUPhotosAlbumViewControllerPhoneSpec.ml new file mode 100644 index 00000000..d4885f58 --- /dev/null +++ b/PhotosUI/PUPhotosAlbumViewControllerPhoneSpec.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open UIKit + +(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosalbumviewcontrollerphonespec?language=objc}PUPhotosAlbumViewControllerPhoneSpec} *) + +let self = get_class "PUPhotosAlbumViewControllerPhoneSpec" + +let fullMomentsSectionHeaderStyle self = msg_send ~self ~cmd:(selector "fullMomentsSectionHeaderStyle") ~typ:(returning llong) +let gridSpec self = msg_send ~self ~cmd:(selector "gridSpec") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUPhotosAlbumViewControllerSpec.ml b/PhotosUI/PUPhotosAlbumViewControllerSpec.ml index b5bfdac1..2740fd77 100644 --- a/PhotosUI/PUPhotosAlbumViewControllerSpec.ml +++ b/PhotosUI/PUPhotosAlbumViewControllerSpec.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosalbumviewcontrollerspec?language=objc}PUPhotosAlbumViewControllerSpec} *) +let self = get_class "PUPhotosAlbumViewControllerSpec" + let cellFillMode self = msg_send ~self ~cmd:(selector "cellFillMode") ~typ:(returning llong) let configureCollectionViewGridLayout x self = msg_send ~self ~cmd:(selector "configureCollectionViewGridLayout:") ~typ:(id @-> returning void) x let contentCornerRadius self = msg_send ~self ~cmd:(selector "contentCornerRadius") ~typ:(returning double) diff --git a/PhotosUI/PUPhotosAlbumViewControllerSpecClass.ml b/PhotosUI/PUPhotosAlbumViewControllerSpecClass.ml index 4587b9db..766b4f0e 100644 --- a/PhotosUI/PUPhotosAlbumViewControllerSpecClass.ml +++ b/PhotosUI/PUPhotosAlbumViewControllerSpecClass.ml @@ -4,15 +4,10 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosalbumviewcontrollerspec?language=objc}PUPhotosAlbumViewControllerSpec} *) -let self = get_class "PUPhotosAlbumViewControllerSpec" - let padSpec self = msg_send ~self ~cmd:(selector "padSpec") ~typ:(returning id) let phoneSpec self = msg_send ~self ~cmd:(selector "phoneSpec") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUPhotosFileProviderItemProvider.ml b/PhotosUI/PUPhotosFileProviderItemProvider.ml index fd2f8ac0..ab2233cd 100644 --- a/PhotosUI/PUPhotosFileProviderItemProvider.ml +++ b/PhotosUI/PUPhotosFileProviderItemProvider.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosfileprovideritemprovider?language=objc}PUPhotosFileProviderItemProvider} *) +let self = get_class "PUPhotosFileProviderItemProvider" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let loadDataRepresentationForTypeIdentifier x ~completionHandler self = msg_send ~self ~cmd:(selector "loadDataRepresentationForTypeIdentifier:completionHandler:") ~typ:(id @-> (ptr void) @-> returning id) x completionHandler let loadFileRepresentationForTypeIdentifier x ~completionHandler self = msg_send ~self ~cmd:(selector "loadFileRepresentationForTypeIdentifier:completionHandler:") ~typ:(id @-> (ptr void) @-> returning id) x completionHandler diff --git a/PhotosUI/PUPhotosFileProviderItemProviderClass.ml b/PhotosUI/PUPhotosFileProviderItemProviderClass.ml deleted file mode 100644 index 5335c990..00000000 --- a/PhotosUI/PUPhotosFileProviderItemProviderClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosfileprovideritemprovider?language=objc}PUPhotosFileProviderItemProvider} *) - -let self = get_class "PUPhotosFileProviderItemProvider" diff --git a/PhotosUI/PUPhotosGridBarsHelper.ml b/PhotosUI/PUPhotosGridBarsHelper.ml index 357b6576..d77bbe17 100644 --- a/PhotosUI/PUPhotosGridBarsHelper.ml +++ b/PhotosUI/PUPhotosGridBarsHelper.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgridbarshelper?language=objc}PUPhotosGridBarsHelper} *) +let self = get_class "PUPhotosGridBarsHelper" + let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let invalidateNavigationBarItems self = msg_send ~self ~cmd:(selector "invalidateNavigationBarItems") ~typ:(returning void) diff --git a/PhotosUI/PUPhotosGridBarsHelperClass.ml b/PhotosUI/PUPhotosGridBarsHelperClass.ml deleted file mode 100644 index c06f700e..00000000 --- a/PhotosUI/PUPhotosGridBarsHelperClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgridbarshelper?language=objc}PUPhotosGridBarsHelper} *) - -let self = get_class "PUPhotosGridBarsHelper" diff --git a/PhotosUI/PUPhotosGridCell.ml b/PhotosUI/PUPhotosGridCell.ml index 8d06d18a..98764f94 100644 --- a/PhotosUI/PUPhotosGridCell.ml +++ b/PhotosUI/PUPhotosGridCell.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgridcell?language=objc}PUPhotosGridCell} *) +let self = get_class "PUPhotosGridCell" + let addTemporaryPhotoContentView self = msg_send ~self ~cmd:(selector "addTemporaryPhotoContentView") ~typ:(returning void) let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning void) x let currentImageRequestID self = msg_send ~self ~cmd:(selector "currentImageRequestID") ~typ:(returning int) diff --git a/PhotosUI/PUPhotosGridCellClass.ml b/PhotosUI/PUPhotosGridCellClass.ml deleted file mode 100644 index 201991ff..00000000 --- a/PhotosUI/PUPhotosGridCellClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgridcell?language=objc}PUPhotosGridCell} *) - -let self = get_class "PUPhotosGridCell" diff --git a/PhotosUI/PUPhotosGridDownloadHelpContext.ml b/PhotosUI/PUPhotosGridDownloadHelpContext.ml index 2901c3a7..22a93584 100644 --- a/PhotosUI/PUPhotosGridDownloadHelpContext.ml +++ b/PhotosUI/PUPhotosGridDownloadHelpContext.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgriddownloadhelpcontext?language=objc}PUPhotosGridDownloadHelpContext} *) +let self = get_class "PUPhotosGridDownloadHelpContext" + let downloadHandler self = msg_send ~self ~cmd:(selector "downloadHandler") ~typ:(returning (ptr void)) let gridProgressIdentifier self = msg_send ~self ~cmd:(selector "gridProgressIdentifier") ~typ:(returning id) let resourceLocalAvailabilityRequest self = msg_send ~self ~cmd:(selector "resourceLocalAvailabilityRequest") ~typ:(returning id) diff --git a/PhotosUI/PUPhotosGridDownloadHelpContextClass.ml b/PhotosUI/PUPhotosGridDownloadHelpContextClass.ml deleted file mode 100644 index bc87cc83..00000000 --- a/PhotosUI/PUPhotosGridDownloadHelpContextClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgriddownloadhelpcontext?language=objc}PUPhotosGridDownloadHelpContext} *) - -let self = get_class "PUPhotosGridDownloadHelpContext" diff --git a/PhotosUI/PUPhotosGridDownloadHelper.ml b/PhotosUI/PUPhotosGridDownloadHelper.ml index 8540639c..15ae3730 100644 --- a/PhotosUI/PUPhotosGridDownloadHelper.ml +++ b/PhotosUI/PUPhotosGridDownloadHelper.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgriddownloadhelper?language=objc}PUPhotosGridDownloadHelper} *) +let self = get_class "PUPhotosGridDownloadHelper" + let cancelAllDownloads self = msg_send ~self ~cmd:(selector "cancelAllDownloads") ~typ:(returning void) let cancelDownloadForIdentifier x self = msg_send ~self ~cmd:(selector "cancelDownloadForIdentifier:") ~typ:(id @-> returning void) x let handleDownloadOfAssetIfNeeded x ~inCollection ~withSuccessHandler self = msg_send ~self ~cmd:(selector "handleDownloadOfAssetIfNeeded:inCollection:withSuccessHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x inCollection withSuccessHandler diff --git a/PhotosUI/PUPhotosGridDownloadHelperClass.ml b/PhotosUI/PUPhotosGridDownloadHelperClass.ml index 5bc67249..1d9509ba 100644 --- a/PhotosUI/PUPhotosGridDownloadHelperClass.ml +++ b/PhotosUI/PUPhotosGridDownloadHelperClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgriddownloadhelper?language=objc}PUPhotosGridDownloadHelper} *) -let self = get_class "PUPhotosGridDownloadHelper" - let createAlertControllerForDownloadError x ~withAsset self = msg_send ~self ~cmd:(selector "createAlertControllerForDownloadError:withAsset:") ~typ:(id @-> id @-> returning id) x withAsset \ No newline at end of file diff --git a/PhotosUI/PUPhotosGridSettings.ml b/PhotosUI/PUPhotosGridSettings.ml index 68de31d7..f504db18 100644 --- a/PhotosUI/PUPhotosGridSettings.ml +++ b/PhotosUI/PUPhotosGridSettings.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgridsettings?language=objc}PUPhotosGridSettings} *) +let self = get_class "PUPhotosGridSettings" + let allowDynamicDetailsTitles self = msg_send ~self ~cmd:(selector "allowDynamicDetailsTitles") ~typ:(returning bool) let badgeAllItemsAsFavorites self = msg_send ~self ~cmd:(selector "badgeAllItemsAsFavorites") ~typ:(returning bool) let defaultItemSideSize self = msg_send ~self ~cmd:(selector "defaultItemSideSize") ~typ:(returning double) diff --git a/PhotosUI/PUPhotosGridSettingsClass.ml b/PhotosUI/PUPhotosGridSettingsClass.ml index 96e5a63c..a95189bf 100644 --- a/PhotosUI/PUPhotosGridSettingsClass.ml +++ b/PhotosUI/PUPhotosGridSettingsClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgridsettings?language=objc}PUPhotosGridSettings} *) -let self = get_class "PUPhotosGridSettings" - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUPhotosGridViewController.ml b/PhotosUI/PUPhotosGridViewController.ml index 85f32dd4..03a6c015 100644 --- a/PhotosUI/PUPhotosGridViewController.ml +++ b/PhotosUI/PUPhotosGridViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgridviewcontroller?language=objc}PUPhotosGridViewController} *) +let self = get_class "PUPhotosGridViewController" + let albumListTransitionContext self = msg_send ~self ~cmd:(selector "albumListTransitionContext") ~typ:(returning id) let allowSelectAllButton self = msg_send ~self ~cmd:(selector "allowSelectAllButton") ~typ:(returning bool) let allowSlideshowButton self = msg_send ~self ~cmd:(selector "allowSlideshowButton") ~typ:(returning bool) diff --git a/PhotosUI/PUPhotosGridViewControllerClass.ml b/PhotosUI/PUPhotosGridViewControllerClass.ml index a04cc1e6..a2d8fdfe 100644 --- a/PhotosUI/PUPhotosGridViewControllerClass.ml +++ b/PhotosUI/PUPhotosGridViewControllerClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgridviewcontroller?language=objc}PUPhotosGridViewController} *) -let self = get_class "PUPhotosGridViewController" - let transferPhotoBrowserFromGridViewController x ~toGridViewController self = msg_send ~self ~cmd:(selector "transferPhotoBrowserFromGridViewController:toGridViewController:") ~typ:(id @-> id @-> returning void) x toGridViewController \ No newline at end of file diff --git a/PhotosUI/PUPhotosGridViewControllerPadImagePickerSpec.ml b/PhotosUI/PUPhotosGridViewControllerPadImagePickerSpec.ml index a0f1f718..acd5396f 100644 --- a/PhotosUI/PUPhotosGridViewControllerPadImagePickerSpec.ml +++ b/PhotosUI/PUPhotosGridViewControllerPadImagePickerSpec.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgridviewcontrollerpadimagepickerspec?language=objc}PUPhotosGridViewControllerPadImagePickerSpec} *) +let self = get_class "PUPhotosGridViewControllerPadImagePickerSpec" + let canCommitPreview self = msg_send ~self ~cmd:(selector "canCommitPreview") ~typ:(returning bool) let displaysAvalancheStacks self = msg_send ~self ~cmd:(selector "displaysAvalancheStacks") ~typ:(returning bool) let thumbnailImageFormat self = msg_send ~self ~cmd:(selector "thumbnailImageFormat") ~typ:(returning ushort) \ No newline at end of file diff --git a/PhotosUI/PUPhotosGridViewControllerPadImagePickerSpecClass.ml b/PhotosUI/PUPhotosGridViewControllerPadImagePickerSpecClass.ml deleted file mode 100644 index 77bf96bf..00000000 --- a/PhotosUI/PUPhotosGridViewControllerPadImagePickerSpecClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgridviewcontrollerpadimagepickerspec?language=objc}PUPhotosGridViewControllerPadImagePickerSpec} *) - -let self = get_class "PUPhotosGridViewControllerPadImagePickerSpec" diff --git a/PhotosUI/PUPhotosGridViewControllerPadSpec.ml b/PhotosUI/PUPhotosGridViewControllerPadSpec.ml index dbc85885..4f3e4279 100644 --- a/PhotosUI/PUPhotosGridViewControllerPadSpec.ml +++ b/PhotosUI/PUPhotosGridViewControllerPadSpec.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgridviewcontrollerpadspec?language=objc}PUPhotosGridViewControllerPadSpec} *) +let self = get_class "PUPhotosGridViewControllerPadSpec" + let albumPickerViewControllerSpec self = msg_send ~self ~cmd:(selector "albumPickerViewControllerSpec") ~typ:(returning id) let baseInterItemSpacing self = msg_send ~self ~cmd:(selector "baseInterItemSpacing") ~typ:(returning CGSize.t) let canDisplayEditActionsInNavigationBar self = msg_send ~self ~cmd:(selector "canDisplayEditActionsInNavigationBar") ~typ:(returning bool) diff --git a/PhotosUI/PUPhotosGridViewControllerPadSpecClass.ml b/PhotosUI/PUPhotosGridViewControllerPadSpecClass.ml deleted file mode 100644 index a47612d4..00000000 --- a/PhotosUI/PUPhotosGridViewControllerPadSpecClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgridviewcontrollerpadspec?language=objc}PUPhotosGridViewControllerPadSpec} *) - -let self = get_class "PUPhotosGridViewControllerPadSpec" diff --git a/PhotosUI/PUPhotosGridViewControllerPhoneImagePickerSpec.ml b/PhotosUI/PUPhotosGridViewControllerPhoneImagePickerSpec.ml new file mode 100644 index 00000000..0bfad955 --- /dev/null +++ b/PhotosUI/PUPhotosGridViewControllerPhoneImagePickerSpec.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open UIKit + +(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgridviewcontrollerphoneimagepickerspec?language=objc}PUPhotosGridViewControllerPhoneImagePickerSpec} *) + +let self = get_class "PUPhotosGridViewControllerPhoneImagePickerSpec" + +let canCommitPreview self = msg_send ~self ~cmd:(selector "canCommitPreview") ~typ:(returning bool) +let displaysAvalancheStacks self = msg_send ~self ~cmd:(selector "displaysAvalancheStacks") ~typ:(returning bool) \ No newline at end of file diff --git a/PhotosUI/PUPhotosGridViewControllerPhoneSpec.ml b/PhotosUI/PUPhotosGridViewControllerPhoneSpec.ml index d51ee2c0..36353cdb 100644 --- a/PhotosUI/PUPhotosGridViewControllerPhoneSpec.ml +++ b/PhotosUI/PUPhotosGridViewControllerPhoneSpec.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgridviewcontrollerphonespec?language=objc}PUPhotosGridViewControllerPhoneSpec} *) +let self = get_class "PUPhotosGridViewControllerPhoneSpec" + let albumPickerViewControllerSpec self = msg_send ~self ~cmd:(selector "albumPickerViewControllerSpec") ~typ:(returning id) let baseInterItemSpacing self = msg_send ~self ~cmd:(selector "baseInterItemSpacing") ~typ:(returning CGSize.t) let canDisplayOptionsInPopover self = msg_send ~self ~cmd:(selector "canDisplayOptionsInPopover") ~typ:(returning bool) diff --git a/PhotosUI/PUPhotosGridViewControllerPhoneSpecClass.ml b/PhotosUI/PUPhotosGridViewControllerPhoneSpecClass.ml deleted file mode 100644 index cd1a4da0..00000000 --- a/PhotosUI/PUPhotosGridViewControllerPhoneSpecClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgridviewcontrollerphonespec?language=objc}PUPhotosGridViewControllerPhoneSpec} *) - -let self = get_class "PUPhotosGridViewControllerPhoneSpec" diff --git a/PhotosUI/PUPhotosGridViewControllerSpec.ml b/PhotosUI/PUPhotosGridViewControllerSpec.ml index 49fd1454..dff402a7 100644 --- a/PhotosUI/PUPhotosGridViewControllerSpec.ml +++ b/PhotosUI/PUPhotosGridViewControllerSpec.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgridviewcontrollerspec?language=objc}PUPhotosGridViewControllerSpec} *) +let self = get_class "PUPhotosGridViewControllerSpec" + let albumPickerViewControllerSpec self = msg_send ~self ~cmd:(selector "albumPickerViewControllerSpec") ~typ:(returning id) let baseInterItemSpacing self = msg_send ~self ~cmd:(selector "baseInterItemSpacing") ~typ:(returning CGSize.t) let canCommitPreview self = msg_send ~self ~cmd:(selector "canCommitPreview") ~typ:(returning bool) diff --git a/PhotosUI/PUPhotosGridViewControllerSpecClass.ml b/PhotosUI/PUPhotosGridViewControllerSpecClass.ml deleted file mode 100644 index de746300..00000000 --- a/PhotosUI/PUPhotosGridViewControllerSpecClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotosgridviewcontrollerspec?language=objc}PUPhotosGridViewControllerSpec} *) - -let self = get_class "PUPhotosGridViewControllerSpec" diff --git a/PhotosUI/PUPhotosPanoramaViewController.ml b/PhotosUI/PUPhotosPanoramaViewController.ml index 9b2cda73..65b5dd06 100644 --- a/PhotosUI/PUPhotosPanoramaViewController.ml +++ b/PhotosUI/PUPhotosPanoramaViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotospanoramaviewcontroller?language=objc}PUPhotosPanoramaViewController} *) +let self = get_class "PUPhotosPanoramaViewController" + let canBeginStackCollapseTransition self = msg_send ~self ~cmd:(selector "canBeginStackCollapseTransition") ~typ:(returning bool) let cellFillMode self = msg_send ~self ~cmd:(selector "cellFillMode") ~typ:(returning llong) let configureGlobalFooterView x self = msg_send ~self ~cmd:(selector "configureGlobalFooterView:") ~typ:(id @-> returning void) x diff --git a/PhotosUI/PUPhotosPanoramaViewControllerClass.ml b/PhotosUI/PUPhotosPanoramaViewControllerClass.ml deleted file mode 100644 index 3639760c..00000000 --- a/PhotosUI/PUPhotosPanoramaViewControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotospanoramaviewcontroller?language=objc}PUPhotosPanoramaViewController} *) - -let self = get_class "PUPhotosPanoramaViewController" diff --git a/PhotosUI/PUPhotosPanoramaViewControllerSpec.ml b/PhotosUI/PUPhotosPanoramaViewControllerSpec.ml index 88693266..eccb2792 100644 --- a/PhotosUI/PUPhotosPanoramaViewControllerSpec.ml +++ b/PhotosUI/PUPhotosPanoramaViewControllerSpec.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotospanoramaviewcontrollerspec?language=objc}PUPhotosPanoramaViewControllerSpec} *) +let self = get_class "PUPhotosPanoramaViewControllerSpec" + let cellFillMode self = msg_send ~self ~cmd:(selector "cellFillMode") ~typ:(returning llong) let configureCollectionViewGridLayout x ~referenceWidth ~safeAreaInsets self = msg_send ~self ~cmd:(selector "configureCollectionViewGridLayout:referenceWidth:safeAreaInsets:") ~typ:(id @-> double @-> UIEdgeInsets.t @-> returning void) x referenceWidth safeAreaInsets let fastThumbnailImageFormat self = msg_send ~self ~cmd:(selector "fastThumbnailImageFormat") ~typ:(returning ushort) diff --git a/PhotosUI/PUPhotosPanoramaViewControllerSpecClass.ml b/PhotosUI/PUPhotosPanoramaViewControllerSpecClass.ml index d3566317..24c1341d 100644 --- a/PhotosUI/PUPhotosPanoramaViewControllerSpecClass.ml +++ b/PhotosUI/PUPhotosPanoramaViewControllerSpecClass.ml @@ -4,15 +4,10 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puphotospanoramaviewcontrollerspec?language=objc}PUPhotosPanoramaViewControllerSpec} *) -let self = get_class "PUPhotosPanoramaViewControllerSpec" - let padSpec self = msg_send ~self ~cmd:(selector "padSpec") ~typ:(returning id) let phoneSpec self = msg_send ~self ~cmd:(selector "phoneSpec") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUPickerAssetMediaSubtypeFilter.ml b/PhotosUI/PUPickerAssetMediaSubtypeFilter.ml index 178b29dd..d71d99fe 100644 --- a/PhotosUI/PUPickerAssetMediaSubtypeFilter.ml +++ b/PhotosUI/PUPickerAssetMediaSubtypeFilter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickerassetmediasubtypefilter?language=objc}PUPickerAssetMediaSubtypeFilter} *) +let self = get_class "PUPickerAssetMediaSubtypeFilter" + let allowsAlbums self = msg_send ~self ~cmd:(selector "allowsAlbums") ~typ:(returning bool) let allowsSearch self = msg_send ~self ~cmd:(selector "allowsSearch") ~typ:(returning bool) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x diff --git a/PhotosUI/PUPickerAssetMediaSubtypeFilterClass.ml b/PhotosUI/PUPickerAssetMediaSubtypeFilterClass.ml index c15ac28b..9a4776af 100644 --- a/PhotosUI/PUPickerAssetMediaSubtypeFilterClass.ml +++ b/PhotosUI/PUPickerAssetMediaSubtypeFilterClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickerassetmediasubtypefilter?language=objc}PUPickerAssetMediaSubtypeFilter} *) -let self = get_class "PUPickerAssetMediaSubtypeFilter" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/PhotosUI/PUPickerAssetMediaTypeFilter.ml b/PhotosUI/PUPickerAssetMediaTypeFilter.ml index cc678a66..15944fee 100644 --- a/PhotosUI/PUPickerAssetMediaTypeFilter.ml +++ b/PhotosUI/PUPickerAssetMediaTypeFilter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickerassetmediatypefilter?language=objc}PUPickerAssetMediaTypeFilter} *) +let self = get_class "PUPickerAssetMediaTypeFilter" + let allowsAlbums self = msg_send ~self ~cmd:(selector "allowsAlbums") ~typ:(returning bool) let allowsSearch self = msg_send ~self ~cmd:(selector "allowsSearch") ~typ:(returning bool) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x diff --git a/PhotosUI/PUPickerAssetMediaTypeFilterClass.ml b/PhotosUI/PUPickerAssetMediaTypeFilterClass.ml index c80df6f8..f9388254 100644 --- a/PhotosUI/PUPickerAssetMediaTypeFilterClass.ml +++ b/PhotosUI/PUPickerAssetMediaTypeFilterClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickerassetmediatypefilter?language=objc}PUPickerAssetMediaTypeFilter} *) -let self = get_class "PUPickerAssetMediaTypeFilter" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/PhotosUI/PUPickerAssetPlaybackStyleFilter.ml b/PhotosUI/PUPickerAssetPlaybackStyleFilter.ml index fc3aebd9..3df4fcfc 100644 --- a/PhotosUI/PUPickerAssetPlaybackStyleFilter.ml +++ b/PhotosUI/PUPickerAssetPlaybackStyleFilter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickerassetplaybackstylefilter?language=objc}PUPickerAssetPlaybackStyleFilter} *) +let self = get_class "PUPickerAssetPlaybackStyleFilter" + let allowsAlbums self = msg_send ~self ~cmd:(selector "allowsAlbums") ~typ:(returning bool) let allowsSearch self = msg_send ~self ~cmd:(selector "allowsSearch") ~typ:(returning bool) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x diff --git a/PhotosUI/PUPickerAssetPlaybackStyleFilterClass.ml b/PhotosUI/PUPickerAssetPlaybackStyleFilterClass.ml index 5d29e7db..0ab743c9 100644 --- a/PhotosUI/PUPickerAssetPlaybackStyleFilterClass.ml +++ b/PhotosUI/PUPickerAssetPlaybackStyleFilterClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickerassetplaybackstylefilter?language=objc}PUPickerAssetPlaybackStyleFilter} *) -let self = get_class "PUPickerAssetPlaybackStyleFilter" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/PhotosUI/PUPickerBanner.ml b/PhotosUI/PUPickerBanner.ml index df28efde..7fa911ca 100644 --- a/PhotosUI/PUPickerBanner.ml +++ b/PhotosUI/PUPickerBanner.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickerbanner?language=objc}PUPickerBanner} *) +let self = get_class "PUPickerBanner" + let bannerView self = msg_send ~self ~cmd:(selector "bannerView") ~typ:(returning id) let height self = msg_send ~self ~cmd:(selector "height") ~typ:(returning double) let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUPickerBannerClass.ml b/PhotosUI/PUPickerBannerClass.ml deleted file mode 100644 index 2be43bde..00000000 --- a/PhotosUI/PUPickerBannerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickerbanner?language=objc}PUPickerBanner} *) - -let self = get_class "PUPickerBanner" diff --git a/PhotosUI/PUPickerBannerView.ml b/PhotosUI/PUPickerBannerView.ml index 5c336946..897ba78d 100644 --- a/PhotosUI/PUPickerBannerView.ml +++ b/PhotosUI/PUPickerBannerView.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickerbannerview?language=objc}PUPickerBannerView} *) +let self = get_class "PUPickerBannerView" + let animateImagesOntoView x ~inContainerView ~completionHandler self = msg_send ~self ~cmd:(selector "animateImagesOntoView:inContainerView:completionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x inContainerView completionHandler let animationDidStop x ~finished self = msg_send ~self ~cmd:(selector "animationDidStop:finished:") ~typ:(id @-> bool @-> returning void) x finished let images self = msg_send ~self ~cmd:(selector "images") ~typ:(returning id) diff --git a/PhotosUI/PUPickerBannerViewClass.ml b/PhotosUI/PUPickerBannerViewClass.ml deleted file mode 100644 index 5ae9a912..00000000 --- a/PhotosUI/PUPickerBannerViewClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickerbannerview?language=objc}PUPickerBannerView} *) - -let self = get_class "PUPickerBannerView" diff --git a/PhotosUI/PUPickerCompoundFilter.ml b/PhotosUI/PUPickerCompoundFilter.ml index 35fd8d9d..eb90ddb2 100644 --- a/PhotosUI/PUPickerCompoundFilter.ml +++ b/PhotosUI/PUPickerCompoundFilter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickercompoundfilter?language=objc}PUPickerCompoundFilter} *) +let self = get_class "PUPickerCompoundFilter" + let allowsAlbums self = msg_send ~self ~cmd:(selector "allowsAlbums") ~typ:(returning bool) let allowsSearch self = msg_send ~self ~cmd:(selector "allowsSearch") ~typ:(returning bool) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x diff --git a/PhotosUI/PUPickerCompoundFilterClass.ml b/PhotosUI/PUPickerCompoundFilterClass.ml index 18348f55..01c9eead 100644 --- a/PhotosUI/PUPickerCompoundFilterClass.ml +++ b/PhotosUI/PUPickerCompoundFilterClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickercompoundfilter?language=objc}PUPickerCompoundFilter} *) -let self = get_class "PUPickerCompoundFilter" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/PhotosUI/PUPickerConfiguration.ml b/PhotosUI/PUPickerConfiguration.ml index 1c581721..25bca707 100644 --- a/PhotosUI/PUPickerConfiguration.ml +++ b/PhotosUI/PUPickerConfiguration.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickerconfiguration?language=objc}PUPickerConfiguration} *) +let self = get_class "PUPickerConfiguration" + let allowsAssetData self = msg_send ~self ~cmd:(selector "allowsAssetData") ~typ:(returning bool) let allowsAssetIdentifiers self = msg_send ~self ~cmd:(selector "allowsAssetIdentifiers") ~typ:(returning bool) let allowsContextMenuInteraction self = msg_send ~self ~cmd:(selector "allowsContextMenuInteraction") ~typ:(returning bool) diff --git a/PhotosUI/PUPickerConfigurationClass.ml b/PhotosUI/PUPickerConfigurationClass.ml index 24c4842b..45b04060 100644 --- a/PhotosUI/PUPickerConfigurationClass.ml +++ b/PhotosUI/PUPickerConfigurationClass.ml @@ -4,16 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickerconfiguration?language=objc}PUPickerConfiguration} *) -let self = get_class "PUPickerConfiguration" - let objectWithItemProviderData x ~typeIdentifier ~error self = msg_send ~self ~cmd:(selector "objectWithItemProviderData:typeIdentifier:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x typeIdentifier error let readableTypeIdentifiersForItemProvider self = msg_send ~self ~cmd:(selector "readableTypeIdentifiersForItemProvider") ~typ:(returning id) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) diff --git a/PhotosUI/PUPickerGeneratedFilter.ml b/PhotosUI/PUPickerGeneratedFilter.ml index 4f068f15..36799130 100644 --- a/PhotosUI/PUPickerGeneratedFilter.ml +++ b/PhotosUI/PUPickerGeneratedFilter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickergeneratedfilter?language=objc}PUPickerGeneratedFilter} *) +let self = get_class "PUPickerGeneratedFilter" + let allowsAlbums self = msg_send ~self ~cmd:(selector "allowsAlbums") ~typ:(returning bool) let allowsSearch self = msg_send ~self ~cmd:(selector "allowsSearch") ~typ:(returning bool) let assetPredicate self = msg_send ~self ~cmd:(selector "assetPredicate") ~typ:(returning id) diff --git a/PhotosUI/PUPickerGeneratedFilterClass.ml b/PhotosUI/PUPickerGeneratedFilterClass.ml deleted file mode 100644 index ea23a863..00000000 --- a/PhotosUI/PUPickerGeneratedFilterClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickergeneratedfilter?language=objc}PUPickerGeneratedFilter} *) - -let self = get_class "PUPickerGeneratedFilter" diff --git a/PhotosUI/PUPickerPrincipalUIViewController.ml b/PhotosUI/PUPickerPrincipalUIViewController.ml index a691f563..41e87ba4 100644 --- a/PhotosUI/PUPickerPrincipalUIViewController.ml +++ b/PhotosUI/PUPickerPrincipalUIViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickerprincipaluiviewcontroller?language=objc}PUPickerPrincipalUIViewController} *) +let self = get_class "PUPickerPrincipalUIViewController" + let bottomConstraint self = msg_send ~self ~cmd:(selector "bottomConstraint") ~typ:(returning id) let confirmPicking x ~completionHandler self = msg_send ~self ~cmd:(selector "confirmPicking:completionHandler:") ~typ:(id @-> (ptr void) @-> returning void) x completionHandler let coordinator self = msg_send ~self ~cmd:(selector "coordinator") ~typ:(returning id) diff --git a/PhotosUI/PUPickerPrincipalUIViewControllerClass.ml b/PhotosUI/PUPickerPrincipalUIViewControllerClass.ml index 747e1d23..03598834 100644 --- a/PhotosUI/PUPickerPrincipalUIViewControllerClass.ml +++ b/PhotosUI/PUPickerPrincipalUIViewControllerClass.ml @@ -4,15 +4,10 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupickerprincipaluiviewcontroller?language=objc}PUPickerPrincipalUIViewController} *) -let self = get_class "PUPickerPrincipalUIViewController" - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) let shouldDebounceDidFinishPicking x ~previousSelectedObjectIDs ~previousSelectionDate self = msg_send ~self ~cmd:(selector "shouldDebounceDidFinishPicking:previousSelectedObjectIDs:previousSelectionDate:") ~typ:(id @-> id @-> id @-> returning bool) x previousSelectedObjectIDs previousSelectionDate \ No newline at end of file diff --git a/PhotosUI/PUPinchTracker.ml b/PhotosUI/PUPinchTracker.ml index d7030476..a6e24235 100644 --- a/PhotosUI/PUPinchTracker.ml +++ b/PhotosUI/PUPinchTracker.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupinchtracker?language=objc}PUPinchTracker} *) +let self = get_class "PUPinchTracker" + let allowTrackingOutside self = msg_send ~self ~cmd:(selector "allowTrackingOutside") ~typ:(returning bool) let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let initWithInitialCenter x ~initialSize ~initialTransform self = msg_send ~self ~cmd:(selector "initWithInitialCenter:initialSize:initialTransform:") ~typ:(CGPoint.t @-> CGSize.t @-> CGAffineTransform.t @-> returning id) x initialSize initialTransform diff --git a/PhotosUI/PUPinchTrackerClass.ml b/PhotosUI/PUPinchTrackerClass.ml deleted file mode 100644 index deb6c48f..00000000 --- a/PhotosUI/PUPinchTrackerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pupinchtracker?language=objc}PUPinchTracker} *) - -let self = get_class "PUPinchTracker" diff --git a/PhotosUI/PUProgressIndicatorView.ml b/PhotosUI/PUProgressIndicatorView.ml index eb1b6648..e3c3215e 100644 --- a/PhotosUI/PUProgressIndicatorView.ml +++ b/PhotosUI/PUProgressIndicatorView.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puprogressindicatorview?language=objc}PUProgressIndicatorView} *) +let self = get_class "PUProgressIndicatorView" + let beginShowingProgressImmediately x ~animated self = msg_send ~self ~cmd:(selector "beginShowingProgressImmediately:animated:") ~typ:(bool @-> bool @-> returning void) x animated let beginShowingProgressWithDelay x ~animated self = msg_send ~self ~cmd:(selector "beginShowingProgressWithDelay:animated:") ~typ:(double @-> bool @-> returning void) x animated let currentProgress self = msg_send ~self ~cmd:(selector "currentProgress") ~typ:(returning double) diff --git a/PhotosUI/PUProgressIndicatorViewClass.ml b/PhotosUI/PUProgressIndicatorViewClass.ml deleted file mode 100644 index 5b47c944..00000000 --- a/PhotosUI/PUProgressIndicatorViewClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puprogressindicatorview?language=objc}PUProgressIndicatorView} *) - -let self = get_class "PUProgressIndicatorView" diff --git a/PhotosUI/PUReuseQueue.ml b/PhotosUI/PUReuseQueue.ml index 17a3eeb3..ac463ee7 100644 --- a/PhotosUI/PUReuseQueue.ml +++ b/PhotosUI/PUReuseQueue.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pureusequeue?language=objc}PUReuseQueue} *) +let self = get_class "PUReuseQueue" + let dequeueObjectWithReuseIdentifier x ~isReused self = msg_send ~self ~cmd:(selector "dequeueObjectWithReuseIdentifier:isReused:") ~typ:(id @-> (ptr bool) @-> returning id) x isReused let enqueueObjectForReuse x ~withReuseIdentifier self = msg_send ~self ~cmd:(selector "enqueueObjectForReuse:withReuseIdentifier:") ~typ:(id @-> id @-> returning void) x withReuseIdentifier let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) diff --git a/PhotosUI/PUReuseQueueClass.ml b/PhotosUI/PUReuseQueueClass.ml deleted file mode 100644 index d912609f..00000000 --- a/PhotosUI/PUReuseQueueClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pureusequeue?language=objc}PUReuseQueue} *) - -let self = get_class "PUReuseQueue" diff --git a/PhotosUI/PURootSettings.ml b/PhotosUI/PURootSettings.ml index f3cb5fc3..3e1b42b3 100644 --- a/PhotosUI/PURootSettings.ml +++ b/PhotosUI/PURootSettings.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/purootsettings?language=objc}PURootSettings} *) +let self = get_class "PURootSettings" + let airPlaySettings self = msg_send ~self ~cmd:(selector "airPlaySettings") ~typ:(returning id) let albumListSettings self = msg_send ~self ~cmd:(selector "albumListSettings") ~typ:(returning id) let allowIrisUI self = msg_send ~self ~cmd:(selector "allowIrisUI") ~typ:(returning bool) diff --git a/PhotosUI/PURootSettingsClass.ml b/PhotosUI/PURootSettingsClass.ml index 702fb4c0..ea42afd9 100644 --- a/PhotosUI/PURootSettingsClass.ml +++ b/PhotosUI/PURootSettingsClass.ml @@ -4,15 +4,10 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/purootsettings?language=objc}PURootSettings} *) -let self = get_class "PURootSettings" - let currentAsset self = msg_send ~self ~cmd:(selector "currentAsset") ~typ:(returning id) let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUScrollViewSpeedometer.ml b/PhotosUI/PUScrollViewSpeedometer.ml index d8fa4859..01a6221f 100644 --- a/PhotosUI/PUScrollViewSpeedometer.ml +++ b/PhotosUI/PUScrollViewSpeedometer.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puscrollviewspeedometer?language=objc}PUScrollViewSpeedometer} *) +let self = get_class "PUScrollViewSpeedometer" + let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) let fastLowerThreshold self = msg_send ~self ~cmd:(selector "fastLowerThreshold") ~typ:(returning double) let fastUpperThreshold self = msg_send ~self ~cmd:(selector "fastUpperThreshold") ~typ:(returning double) diff --git a/PhotosUI/PUScrollViewSpeedometerClass.ml b/PhotosUI/PUScrollViewSpeedometerClass.ml deleted file mode 100644 index 4d10e212..00000000 --- a/PhotosUI/PUScrollViewSpeedometerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puscrollviewspeedometer?language=objc}PUScrollViewSpeedometer} *) - -let self = get_class "PUScrollViewSpeedometer" diff --git a/PhotosUI/PUSectionedGridLayout.ml b/PhotosUI/PUSectionedGridLayout.ml index 8722664d..5b4d4bf8 100644 --- a/PhotosUI/PUSectionedGridLayout.ml +++ b/PhotosUI/PUSectionedGridLayout.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusectionedgridlayout?language=objc}PUSectionedGridLayout} *) +let self = get_class "PUSectionedGridLayout" + let adjustEffectiveContentOriginForTransitionEndContentOffset x self = msg_send ~self ~cmd:(selector "adjustEffectiveContentOriginForTransitionEndContentOffset:") ~typ:(CGPoint.t @-> returning void) x let assetIndexPathsForElementsInRect x self = msg_send ~self ~cmd:(selector "assetIndexPathsForElementsInRect:") ~typ:(CGRect.t @-> returning id) x let beginInsertingItemAtIndexPath x self = msg_send ~self ~cmd:(selector "beginInsertingItemAtIndexPath:") ~typ:(id @-> returning void) x @@ -37,9 +36,6 @@ let finalizeLayoutTransition self = msg_send ~self ~cmd:(selector "finalizeLayou let finalizeViewTransitionToSize self = msg_send ~self ~cmd:(selector "finalizeViewTransitionToSize") ~typ:(returning void) let firstPreparedVisualSection self = msg_send ~self ~cmd:(selector "firstPreparedVisualSection") ~typ:(returning llong) let floatingSectionHeadersEnabled self = msg_send ~self ~cmd:(selector "floatingSectionHeadersEnabled") ~typ:(returning bool) -let frameForItemAtGridCoordinates x ~inTransitionSection self = msg_send ~self ~cmd:(selector "frameForItemAtGridCoordinates:inTransitionSection:") ~typ:(PUGridCoordinates.t @-> llong @-> returning CGRect.t) x (LLong.of_int inTransitionSection) -let frameForItemAtGridCoordinates1 x ~inVisualSection self = msg_send ~self ~cmd:(selector "frameForItemAtGridCoordinates:inVisualSection:") ~typ:(PUGridCoordinates.t @-> llong @-> returning CGRect.t) x (LLong.of_int inVisualSection) -let frameForItemAtGridCoordinates2 x ~inVisualSection ~indexPath self = msg_send ~self ~cmd:(selector "frameForItemAtGridCoordinates:inVisualSection:indexPath:") ~typ:(PUGridCoordinates.t @-> llong @-> id @-> returning CGRect.t) x (LLong.of_int inVisualSection) indexPath let frameForSectionHeaderAtVisualSection x self = msg_send ~self ~cmd:(selector "frameForSectionHeaderAtVisualSection:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) let frameForSectionHeaderOfRealItem x self = msg_send ~self ~cmd:(selector "frameForSectionHeaderOfRealItem:") ~typ:(id @-> returning CGRect.t) x let getVisualSectionIndex x ~visualItemRange ~forRenderStripAtIndexPath self = msg_send ~self ~cmd:(selector "getVisualSectionIndex:visualItemRange:forRenderStripAtIndexPath:") ~typ:((ptr llong) @-> (ptr NSRange.t) @-> id @-> returning void) x visualItemRange forRenderStripAtIndexPath @@ -50,10 +46,6 @@ let globalHeaderAttributes self = msg_send ~self ~cmd:(selector "globalHeaderAtt let globalHeaderHeight self = msg_send ~self ~cmd:(selector "globalHeaderHeight") ~typ:(returning double) let globalHeaderIndexPath self = msg_send ~self ~cmd:(selector "globalHeaderIndexPath") ~typ:(returning id) let globalTopPadding self = msg_send ~self ~cmd:(selector "globalTopPadding") ~typ:(returning double) -let gridCoordinatesInSectionForItemAtVisualIndex x self = msg_send ~self ~cmd:(selector "gridCoordinatesInSectionForItemAtVisualIndex:") ~typ:(llong @-> returning PUGridCoordinates.t) (LLong.of_int x) -let gridCoordinatesInTransitionSectionForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "gridCoordinatesInTransitionSectionForItemAtIndexPath:") ~typ:(id @-> returning PUGridCoordinates.t) x -let gridCoordinatesInVisualSectionForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "gridCoordinatesInVisualSectionForItemAtIndexPath:") ~typ:(id @-> returning PUGridCoordinates.t) x -let hasItemAtGridCoordinates x ~inTransitionSection self = msg_send ~self ~cmd:(selector "hasItemAtGridCoordinates:inTransitionSection:") ~typ:(PUGridCoordinates.t @-> llong @-> returning bool) x (LLong.of_int inTransitionSection) let hiddenItemIndexPaths self = msg_send ~self ~cmd:(selector "hiddenItemIndexPaths") ~typ:(returning id) let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let initialLayoutAttributesForAppearingItemAtIndexPath x self = msg_send ~self ~cmd:(selector "initialLayoutAttributesForAppearingItemAtIndexPath:") ~typ:(id @-> returning id) x @@ -74,7 +66,6 @@ let layoutAttributesForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "l let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath let layoutItemSizeForColumn x self = msg_send ~self ~cmd:(selector "layoutItemSizeForColumn:") ~typ:(llong @-> returning CGSize.t) (LLong.of_int x) let layoutSectioning self = msg_send ~self ~cmd:(selector "layoutSectioning") ~typ:(returning id) -let mainRealIndexPathAtGridCoordinates x ~inTransitionSection self = msg_send ~self ~cmd:(selector "mainRealIndexPathAtGridCoordinates:inTransitionSection:") ~typ:(PUGridCoordinates.t @-> llong @-> returning id) x (LLong.of_int inTransitionSection) let mainRealSectionForVisualSection x self = msg_send ~self ~cmd:(selector "mainRealSectionForVisualSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) let maxItemIndexPathAbovePoint x self = msg_send ~self ~cmd:(selector "maxItemIndexPathAbovePoint:") ~typ:(CGPoint.t @-> returning id) x let maxItemIndexPathLeftOfPoint x self = msg_send ~self ~cmd:(selector "maxItemIndexPathLeftOfPoint:") ~typ:(CGPoint.t @-> returning id) x @@ -139,7 +130,6 @@ let supplementaryViewIndexPathForVisualSection x ~supplementaryViewItemIndex sel let targetContentOffsetForProposedContentOffset x self = msg_send ~self ~cmd:(selector "targetContentOffsetForProposedContentOffset:") ~typ:(CGPoint.t @-> returning CGPoint.t) x let targetContentOffsetForTransitionFromGridLayout x self = msg_send ~self ~cmd:(selector "targetContentOffsetForTransitionFromGridLayout:") ~typ:(id @-> returning CGPoint.t) x let targetContentOffsetForViewSizeTransitionContext x self = msg_send ~self ~cmd:(selector "targetContentOffsetForViewSizeTransitionContext:") ~typ:(id @-> returning CGPoint.t) x -let targetTransitionGridCoordsForGridCoords x ~atVisualSection ~outTransitionSection self = msg_send ~self ~cmd:(selector "targetTransitionGridCoordsForGridCoords:atVisualSection:outTransitionSection:") ~typ:(PUGridCoordinates.t @-> llong @-> (ptr llong) @-> returning PUGridCoordinates.t) x (LLong.of_int atVisualSection) outTransitionSection let targetTransitionRealIndexPathForIndexPath x self = msg_send ~self ~cmd:(selector "targetTransitionRealIndexPathForIndexPath:") ~typ:(id @-> returning id) x let transitionActualContentSize self = msg_send ~self ~cmd:(selector "transitionActualContentSize") ~typ:(returning CGSize.t) let transitionAnchorColumnOffset self = msg_send ~self ~cmd:(selector "transitionAnchorColumnOffset") ~typ:(returning llong) @@ -160,8 +150,6 @@ let transitioningDelegate self = msg_send ~self ~cmd:(selector "transitioningDel let updateReorderingTargetIndexPath x self = msg_send ~self ~cmd:(selector "updateReorderingTargetIndexPath:") ~typ:(id @-> returning void) x let usesAspectItems self = msg_send ~self ~cmd:(selector "usesAspectItems") ~typ:(returning bool) let usesRenderedStripTopExtendersForTransitions self = msg_send ~self ~cmd:(selector "usesRenderedStripTopExtendersForTransitions") ~typ:(returning bool) -let visualGridCoordsForTransitionGridCoords x ~atTransitionSection ~outVisualSection self = msg_send ~self ~cmd:(selector "visualGridCoordsForTransitionGridCoords:atTransitionSection:outVisualSection:") ~typ:(PUGridCoordinates.t @-> llong @-> (ptr llong) @-> returning PUGridCoordinates.t) x (LLong.of_int atTransitionSection) outVisualSection -let visualIndexForItemAtGridCoordinates x self = msg_send ~self ~cmd:(selector "visualIndexForItemAtGridCoordinates:") ~typ:(PUGridCoordinates.t @-> returning llong) x let visualRowsInRect x ~inVisualSection ~totalVisualSectionRows self = msg_send ~self ~cmd:(selector "visualRowsInRect:inVisualSection:totalVisualSectionRows:") ~typ:(CGRect.t @-> llong @-> (ptr llong) @-> returning NSRange.t) x (LLong.of_int inVisualSection) totalVisualSectionRows let visualSectionForHeaderIndexPath x self = msg_send ~self ~cmd:(selector "visualSectionForHeaderIndexPath:") ~typ:(id @-> returning llong) x let visualSectionForRealSection x self = msg_send ~self ~cmd:(selector "visualSectionForRealSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) diff --git a/PhotosUI/PUSectionedGridLayoutAttributes.ml b/PhotosUI/PUSectionedGridLayoutAttributes.ml index 4a36ea0c..a97b1e8f 100644 --- a/PhotosUI/PUSectionedGridLayoutAttributes.ml +++ b/PhotosUI/PUSectionedGridLayoutAttributes.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusectionedgridlayoutattributes?language=objc}PUSectionedGridLayoutAttributes} *) +let self = get_class "PUSectionedGridLayoutAttributes" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let exists self = msg_send ~self ~cmd:(selector "exists") ~typ:(returning bool) diff --git a/PhotosUI/PUSectionedGridLayoutAttributesClass.ml b/PhotosUI/PUSectionedGridLayoutAttributesClass.ml deleted file mode 100644 index 8576eeb1..00000000 --- a/PhotosUI/PUSectionedGridLayoutAttributesClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusectionedgridlayoutattributes?language=objc}PUSectionedGridLayoutAttributes} *) - -let self = get_class "PUSectionedGridLayoutAttributes" diff --git a/PhotosUI/PUSectionedGridLayoutClass.ml b/PhotosUI/PUSectionedGridLayoutClass.ml index d62c7c6e..d12b2a1c 100644 --- a/PhotosUI/PUSectionedGridLayoutClass.ml +++ b/PhotosUI/PUSectionedGridLayoutClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusectionedgridlayout?language=objc}PUSectionedGridLayout} *) -let self = get_class "PUSectionedGridLayout" - let invalidationContextClass self = msg_send ~self ~cmd:(selector "invalidationContextClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/PhotosUI/PUSectionedGridLayoutData.ml b/PhotosUI/PUSectionedGridLayoutData.ml index ad7959d6..7760481e 100644 --- a/PhotosUI/PUSectionedGridLayoutData.ml +++ b/PhotosUI/PUSectionedGridLayoutData.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusectionedgridlayoutdata?language=objc}PUSectionedGridLayoutData} *) +let self = get_class "PUSectionedGridLayoutData" + let currentContentBounds self = msg_send ~self ~cmd:(selector "currentContentBounds") ~typ:(returning CGRect.t) let headerLayoutAttributes self = msg_send ~self ~cmd:(selector "headerLayoutAttributes") ~typ:(returning id) let headerLayoutAttributesByVisualSection self = msg_send ~self ~cmd:(selector "headerLayoutAttributesByVisualSection") ~typ:(returning id) diff --git a/PhotosUI/PUSectionedGridLayoutDataClass.ml b/PhotosUI/PUSectionedGridLayoutDataClass.ml deleted file mode 100644 index 6efa7ecf..00000000 --- a/PhotosUI/PUSectionedGridLayoutDataClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusectionedgridlayoutdata?language=objc}PUSectionedGridLayoutData} *) - -let self = get_class "PUSectionedGridLayoutData" diff --git a/PhotosUI/PUSectionedGridLayoutInvalidationContext.ml b/PhotosUI/PUSectionedGridLayoutInvalidationContext.ml index e560b7f9..f5cd217f 100644 --- a/PhotosUI/PUSectionedGridLayoutInvalidationContext.ml +++ b/PhotosUI/PUSectionedGridLayoutInvalidationContext.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusectionedgridlayoutinvalidationcontext?language=objc}PUSectionedGridLayoutInvalidationContext} *) +let self = get_class "PUSectionedGridLayoutInvalidationContext" + let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let invalidateForVerticalScroll self = msg_send ~self ~cmd:(selector "invalidateForVerticalScroll") ~typ:(returning bool) let invalidationHasBeenRedispatched self = msg_send ~self ~cmd:(selector "invalidationHasBeenRedispatched") ~typ:(returning bool) diff --git a/PhotosUI/PUSectionedGridLayoutInvalidationContextClass.ml b/PhotosUI/PUSectionedGridLayoutInvalidationContextClass.ml deleted file mode 100644 index 9180305d..00000000 --- a/PhotosUI/PUSectionedGridLayoutInvalidationContextClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusectionedgridlayoutinvalidationcontext?language=objc}PUSectionedGridLayoutInvalidationContext} *) - -let self = get_class "PUSectionedGridLayoutInvalidationContext" diff --git a/PhotosUI/PUSessionInfo.ml b/PhotosUI/PUSessionInfo.ml index 00539b97..a37caa78 100644 --- a/PhotosUI/PUSessionInfo.ml +++ b/PhotosUI/PUSessionInfo.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusessioninfo?language=objc}PUSessionInfo} *) +let self = get_class "PUSessionInfo" + let addSessionInfoObserver x self = msg_send ~self ~cmd:(selector "addSessionInfoObserver:") ~typ:(id @-> returning void) x let allowsMultipleSelection self = msg_send ~self ~cmd:(selector "allowsMultipleSelection") ~typ:(returning bool) let allowsSwipeToSelect self = msg_send ~self ~cmd:(selector "allowsSwipeToSelect") ~typ:(returning bool) diff --git a/PhotosUI/PUSessionInfoClass.ml b/PhotosUI/PUSessionInfoClass.ml deleted file mode 100644 index 18cbc210..00000000 --- a/PhotosUI/PUSessionInfoClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusessioninfo?language=objc}PUSessionInfo} *) - -let self = get_class "PUSessionInfo" diff --git a/PhotosUI/PUSharedAlbumGadget.ml b/PhotosUI/PUSharedAlbumGadget.ml index 4dfb7873..0c8f32d8 100644 --- a/PhotosUI/PUSharedAlbumGadget.ml +++ b/PhotosUI/PUSharedAlbumGadget.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusharedalbumgadget?language=objc}PUSharedAlbumGadget} *) +let self = get_class "PUSharedAlbumGadget" + let albumCellContentView self = msg_send ~self ~cmd:(selector "albumCellContentView") ~typ:(returning id) let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning id) let setAlbumCellContentView x self = msg_send ~self ~cmd:(selector "setAlbumCellContentView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/PhotosUI/PUSharedAlbumGadgetClass.ml b/PhotosUI/PUSharedAlbumGadgetClass.ml deleted file mode 100644 index d7862dc8..00000000 --- a/PhotosUI/PUSharedAlbumGadgetClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusharedalbumgadget?language=objc}PUSharedAlbumGadget} *) - -let self = get_class "PUSharedAlbumGadget" diff --git a/PhotosUI/PUSharingErrorPresentationController.ml b/PhotosUI/PUSharingErrorPresentationController.ml index 71f8fcc2..489956c2 100644 --- a/PhotosUI/PUSharingErrorPresentationController.ml +++ b/PhotosUI/PUSharingErrorPresentationController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusharingerrorpresentationcontroller?language=objc}PUSharingErrorPresentationController} *) +let self = get_class "PUSharingErrorPresentationController" + let additionalRadarDescriptionLinesForAsset x self = msg_send ~self ~cmd:(selector "additionalRadarDescriptionLinesForAsset:") ~typ:(id @-> returning id) x let configureAlertPropertiesFromError x ~withAssets ~willShowFileRadarButton ~alertCompletion self = msg_send ~self ~cmd:(selector "configureAlertPropertiesFromError:withAssets:willShowFileRadarButton:alertCompletion:") ~typ:(id @-> id @-> bool @-> (ptr void) @-> returning void) x withAssets willShowFileRadarButton alertCompletion let configureRadarPropertiesFromError x ~withAssets self = msg_send ~self ~cmd:(selector "configureRadarPropertiesFromError:withAssets:") ~typ:(id @-> id @-> returning void) x withAssets diff --git a/PhotosUI/PUSharingErrorPresentationControllerClass.ml b/PhotosUI/PUSharingErrorPresentationControllerClass.ml index f1ec0893..8bcb4635 100644 --- a/PhotosUI/PUSharingErrorPresentationControllerClass.ml +++ b/PhotosUI/PUSharingErrorPresentationControllerClass.ml @@ -4,16 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusharingerrorpresentationcontroller?language=objc}PUSharingErrorPresentationController} *) -let self = get_class "PUSharingErrorPresentationController" - let errorIsDownloadError x self = msg_send ~self ~cmd:(selector "errorIsDownloadError:") ~typ:(id @-> returning bool) x let errorIsLowDiskSpaceError x self = msg_send ~self ~cmd:(selector "errorIsLowDiskSpaceError:") ~typ:(id @-> returning bool) x let errorIsUserNeedsReviewCloudSettingsError x self = msg_send ~self ~cmd:(selector "errorIsUserNeedsReviewCloudSettingsError:") ~typ:(id @-> returning bool) x diff --git a/PhotosUI/PUSimpleIndexPath.ml b/PhotosUI/PUSimpleIndexPath.ml deleted file mode 100644 index d94cdd73..00000000 --- a/PhotosUI/PUSimpleIndexPath.ml +++ /dev/null @@ -1,3 +0,0 @@ -open Runtime - -let t = ptr void \ No newline at end of file diff --git a/PhotosUI/PUSingleHeightHorizontalAlbumListGadgetLayout.ml b/PhotosUI/PUSingleHeightHorizontalAlbumListGadgetLayout.ml index 01ef1bd2..5de94a94 100644 --- a/PhotosUI/PUSingleHeightHorizontalAlbumListGadgetLayout.ml +++ b/PhotosUI/PUSingleHeightHorizontalAlbumListGadgetLayout.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusingleheighthorizontalalbumlistgadgetlayout?language=objc}PUSingleHeightHorizontalAlbumListGadgetLayout} *) +let self = get_class "PUSingleHeightHorizontalAlbumListGadgetLayout" + let collectionViewContentSize self = msg_send ~self ~cmd:(selector "collectionViewContentSize") ~typ:(returning CGSize.t) let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning id) x let pagingEnabled self = msg_send ~self ~cmd:(selector "pagingEnabled") ~typ:(returning bool) \ No newline at end of file diff --git a/PhotosUI/PUSingleHeightHorizontalAlbumListGadgetLayoutClass.ml b/PhotosUI/PUSingleHeightHorizontalAlbumListGadgetLayoutClass.ml deleted file mode 100644 index 5811ba71..00000000 --- a/PhotosUI/PUSingleHeightHorizontalAlbumListGadgetLayoutClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusingleheighthorizontalalbumlistgadgetlayout?language=objc}PUSingleHeightHorizontalAlbumListGadgetLayout} *) - -let self = get_class "PUSingleHeightHorizontalAlbumListGadgetLayout" diff --git a/PhotosUI/PUSoftClampValueFilter.ml b/PhotosUI/PUSoftClampValueFilter.ml index ce8fb5a7..2f56dc7e 100644 --- a/PhotosUI/PUSoftClampValueFilter.ml +++ b/PhotosUI/PUSoftClampValueFilter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusoftclampvaluefilter?language=objc}PUSoftClampValueFilter} *) +let self = get_class "PUSoftClampValueFilter" + let resistance self = msg_send ~self ~cmd:(selector "resistance") ~typ:(returning double) let setResistance x self = msg_send ~self ~cmd:(selector "setResistance:") ~typ:(double @-> returning void) x let updatedValue x ~withTargetValue self = msg_send ~self ~cmd:(selector "updatedValue:withTargetValue:") ~typ:(double @-> double @-> returning double) x withTargetValue \ No newline at end of file diff --git a/PhotosUI/PUSoftClampValueFilterClass.ml b/PhotosUI/PUSoftClampValueFilterClass.ml index 12abbf1e..6e116f05 100644 --- a/PhotosUI/PUSoftClampValueFilterClass.ml +++ b/PhotosUI/PUSoftClampValueFilterClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pusoftclampvaluefilter?language=objc}PUSoftClampValueFilter} *) -let self = get_class "PUSoftClampValueFilter" - let scrollViewFilter self = msg_send ~self ~cmd:(selector "scrollViewFilter") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUStackView.ml b/PhotosUI/PUStackView.ml index 85743532..ac2d016d 100644 --- a/PhotosUI/PUStackView.ml +++ b/PhotosUI/PUStackView.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pustackview?language=objc}PUStackView} *) +let self = get_class "PUStackView" + let combinesPhotoDecorations self = msg_send ~self ~cmd:(selector "combinesPhotoDecorations") ~typ:(returning bool) let continuousCorners self = msg_send ~self ~cmd:(selector "continuousCorners") ~typ:(returning bool) let cornerOverlaysDisabled self = msg_send ~self ~cmd:(selector "cornerOverlaysDisabled") ~typ:(returning bool) @@ -36,8 +35,6 @@ let posterSquareCornerRadius self = msg_send ~self ~cmd:(selector "posterSquareC let posterSubitemCornerRadius self = msg_send ~self ~cmd:(selector "posterSubitemCornerRadius") ~typ:(returning double) let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning void) let rectOfStackItemAtIndex x ~inCoordinateSpace self = msg_send ~self ~cmd:(selector "rectOfStackItemAtIndex:inCoordinateSpace:") ~typ:(llong @-> id @-> returning CGRect.t) (LLong.of_int x) inCoordinateSpace -(* let setBadgeInfo x ~forItemAtIndex self = msg_send ~self ~cmd:(selector "setBadgeInfo:forItemAtIndex:") ~typ:(PXAssetBadgeInfo.t @-> llong @-> returning void) x (LLong.of_int forItemAtIndex) *) -(* let setBadgeInfo' x ~style ~forItemAtIndex self = msg_send ~self ~cmd:(selector "setBadgeInfo:style:forItemAtIndex:") ~typ:(PXAssetBadgeInfo.t @-> llong @-> llong @-> returning void) x (LLong.of_int style) (LLong.of_int forItemAtIndex) *) let setCollectionTileLayoutTemplate x ~forItemAtIndex self = msg_send ~self ~cmd:(selector "setCollectionTileLayoutTemplate:forItemAtIndex:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forItemAtIndex) let setCombinesPhotoDecorations x self = msg_send ~self ~cmd:(selector "setCombinesPhotoDecorations:") ~typ:(bool @-> returning void) x let setContinuousCorners x self = msg_send ~self ~cmd:(selector "setContinuousCorners:") ~typ:(bool @-> returning void) x diff --git a/PhotosUI/PUStackViewClass.ml b/PhotosUI/PUStackViewClass.ml index b91bb93a..e0097eb1 100644 --- a/PhotosUI/PUStackViewClass.ml +++ b/PhotosUI/PUStackViewClass.ml @@ -4,15 +4,10 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pustackview?language=objc}PUStackView} *) -let self = get_class "PUStackView" - let maximumNumberOfVisibleImagesForStyle x self = msg_send ~self ~cmd:(selector "maximumNumberOfVisibleImagesForStyle:") ~typ:(ullong @-> returning llong) (ULLong.of_int x) let maximumNumberOfVisibleItemsForStyle x self = msg_send ~self ~cmd:(selector "maximumNumberOfVisibleItemsForStyle:") ~typ:(ullong @-> returning llong) (ULLong.of_int x) \ No newline at end of file diff --git a/PhotosUI/PUStackedAlbumLayout.ml b/PhotosUI/PUStackedAlbumLayout.ml index 751cda69..f6232d50 100644 --- a/PhotosUI/PUStackedAlbumLayout.ml +++ b/PhotosUI/PUStackedAlbumLayout.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pustackedalbumlayout?language=objc}PUStackedAlbumLayout} *) +let self = get_class "PUStackedAlbumLayout" + let albumListTransitionContext self = msg_send ~self ~cmd:(selector "albumListTransitionContext") ~typ:(returning id) let collectionViewContentSize self = msg_send ~self ~cmd:(selector "collectionViewContentSize") ~typ:(returning CGSize.t) let contentSizeAdjust self = msg_send ~self ~cmd:(selector "contentSizeAdjust") ~typ:(returning CGSize.t) diff --git a/PhotosUI/PUStackedAlbumLayoutClass.ml b/PhotosUI/PUStackedAlbumLayoutClass.ml deleted file mode 100644 index 20898690..00000000 --- a/PhotosUI/PUStackedAlbumLayoutClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pustackedalbumlayout?language=objc}PUStackedAlbumLayout} *) - -let self = get_class "PUStackedAlbumLayout" diff --git a/PhotosUI/PUStackedAlbumTransition.ml b/PhotosUI/PUStackedAlbumTransition.ml index 6b2616ad..3a222572 100644 --- a/PhotosUI/PUStackedAlbumTransition.ml +++ b/PhotosUI/PUStackedAlbumTransition.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pustackedalbumtransition?language=objc}PUStackedAlbumTransition} *) +let self = get_class "PUStackedAlbumTransition" + let animatePopTransition self = msg_send ~self ~cmd:(selector "animatePopTransition") ~typ:(returning void) let animatePushTransition self = msg_send ~self ~cmd:(selector "animatePushTransition") ~typ:(returning void) let collectionViewLayout x ~willSupplyLayoutAttributes self = msg_send ~self ~cmd:(selector "collectionViewLayout:willSupplyLayoutAttributes:") ~typ:(id @-> id @-> returning void) x willSupplyLayoutAttributes diff --git a/PhotosUI/PUStackedAlbumTransitionClass.ml b/PhotosUI/PUStackedAlbumTransitionClass.ml deleted file mode 100644 index 4574fc1c..00000000 --- a/PhotosUI/PUStackedAlbumTransitionClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pustackedalbumtransition?language=objc}PUStackedAlbumTransition} *) - -let self = get_class "PUStackedAlbumTransition" diff --git a/PhotosUI/PUStackedAlbumTransitionLayout.ml b/PhotosUI/PUStackedAlbumTransitionLayout.ml index d0afbe41..9a57c803 100644 --- a/PhotosUI/PUStackedAlbumTransitionLayout.ml +++ b/PhotosUI/PUStackedAlbumTransitionLayout.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/pustackedalbumtransitionlayout?language=objc}PUStackedAlbumTransitionLayout} *) +let self = get_class "PUStackedAlbumTransitionLayout" + let currentCollapsedStackCenter self = msg_send ~self ~cmd:(selector "currentCollapsedStackCenter") ~typ:(returning CGPoint.t) let expandedStackFinalDelta self = msg_send ~self ~cmd:(selector "expandedStackFinalDelta") ~typ:(returning CGPoint.t) let finalCollapsedStackCenter self = msg_send ~self ~cmd:(selector "finalCollapsedStackCenter") ~typ:(returning CGPoint.t) diff --git a/PhotosUI/PUStackedAlbumTransitionLayoutClass.ml b/PhotosUI/PUStackedAlbumTransitionLayoutClass.ml deleted file mode 100644 index 9f50fe81..00000000 --- a/PhotosUI/PUStackedAlbumTransitionLayoutClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/pustackedalbumtransitionlayout?language=objc}PUStackedAlbumTransitionLayout} *) - -let self = get_class "PUStackedAlbumTransitionLayout" diff --git a/PhotosUI/PUSwipeSelectionManager.ml b/PhotosUI/PUSwipeSelectionManager.ml index bbd53b73..8375167a 100644 --- a/PhotosUI/PUSwipeSelectionManager.ml +++ b/PhotosUI/PUSwipeSelectionManager.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puswipeselectionmanager?language=objc}PUSwipeSelectionManager} *) +let self = get_class "PUSwipeSelectionManager" + let beginSelectionFromIndexPath x self = msg_send ~self ~cmd:(selector "beginSelectionFromIndexPath:") ~typ:(id @-> returning void) x let datasource self = msg_send ~self ~cmd:(selector "datasource") ~typ:(returning id) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) diff --git a/PhotosUI/PUSwipeSelectionManagerClass.ml b/PhotosUI/PUSwipeSelectionManagerClass.ml deleted file mode 100644 index 23246889..00000000 --- a/PhotosUI/PUSwipeSelectionManagerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puswipeselectionmanager?language=objc}PUSwipeSelectionManager} *) - -let self = get_class "PUSwipeSelectionManager" diff --git a/PhotosUI/PUThresholdCrossingCountValueFilter.ml b/PhotosUI/PUThresholdCrossingCountValueFilter.ml index f3bb8a7e..b785db19 100644 --- a/PhotosUI/PUThresholdCrossingCountValueFilter.ml +++ b/PhotosUI/PUThresholdCrossingCountValueFilter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puthresholdcrossingcountvaluefilter?language=objc}PUThresholdCrossingCountValueFilter} *) +let self = get_class "PUThresholdCrossingCountValueFilter" + let maximumCrossingCount self = msg_send ~self ~cmd:(selector "maximumCrossingCount") ~typ:(returning llong) let setMaximumCrossingCount x self = msg_send ~self ~cmd:(selector "setMaximumCrossingCount:") ~typ:(llong @-> returning void) (LLong.of_int x) let setThresholdValue x self = msg_send ~self ~cmd:(selector "setThresholdValue:") ~typ:(double @-> returning void) x diff --git a/PhotosUI/PUThresholdCrossingCountValueFilterClass.ml b/PhotosUI/PUThresholdCrossingCountValueFilterClass.ml deleted file mode 100644 index c07e017e..00000000 --- a/PhotosUI/PUThresholdCrossingCountValueFilterClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puthresholdcrossingcountvaluefilter?language=objc}PUThresholdCrossingCountValueFilter} *) - -let self = get_class "PUThresholdCrossingCountValueFilter" diff --git a/PhotosUI/PUTileAnimationOptions.ml b/PhotosUI/PUTileAnimationOptions.ml index d6b73fec..f08fa235 100644 --- a/PhotosUI/PUTileAnimationOptions.ml +++ b/PhotosUI/PUTileAnimationOptions.ml @@ -4,20 +4,18 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putileanimationoptions?language=objc}PUTileAnimationOptions} *) +let self = get_class "PUTileAnimationOptions" + let completionGroup self = msg_send ~self ~cmd:(selector "completionGroup") ~typ:(returning id) let customViewAnimatorBlock self = msg_send ~self ~cmd:(selector "customViewAnimatorBlock") ~typ:(returning (ptr void)) let delay self = msg_send ~self ~cmd:(selector "delay") ~typ:(returning double) let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning double) let highFrameRateReason self = msg_send ~self ~cmd:(selector "highFrameRateReason") ~typ:(returning uint) -(* let initialVelocity self = msg_send ~self ~cmd:(selector "initialVelocity") ~typ:(returning PUDisplayVelocity.t) *) let isSynchronizedWithTransition self = msg_send ~self ~cmd:(selector "isSynchronizedWithTransition") ~typ:(returning bool) let kind self = msg_send ~self ~cmd:(selector "kind") ~typ:(returning llong) let setCompletionGroup x self = msg_send ~self ~cmd:(selector "setCompletionGroup:") ~typ:(id @-> returning void) x @@ -25,7 +23,6 @@ let setCustomViewAnimatorBlock x self = msg_send ~self ~cmd:(selector "setCustom let setDelay x self = msg_send ~self ~cmd:(selector "setDelay:") ~typ:(double @-> returning void) x let setDuration x self = msg_send ~self ~cmd:(selector "setDuration:") ~typ:(double @-> returning void) x let setHighFrameRateReason x self = msg_send ~self ~cmd:(selector "setHighFrameRateReason:") ~typ:(uint @-> returning void) x -(* let setInitialVelocity x self = msg_send ~self ~cmd:(selector "setInitialVelocity:") ~typ:(PUDisplayVelocity.t @-> returning void) x *) let setKind x self = msg_send ~self ~cmd:(selector "setKind:") ~typ:(llong @-> returning void) (LLong.of_int x) let setShouldFadeOutSnapshotAfterCompletionGroup x self = msg_send ~self ~cmd:(selector "setShouldFadeOutSnapshotAfterCompletionGroup:") ~typ:(bool @-> returning void) x let setSpringDampingRatio x self = msg_send ~self ~cmd:(selector "setSpringDampingRatio:") ~typ:(double @-> returning void) x diff --git a/PhotosUI/PUTileAnimationOptionsClass.ml b/PhotosUI/PUTileAnimationOptionsClass.ml deleted file mode 100644 index b1298165..00000000 --- a/PhotosUI/PUTileAnimationOptionsClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putileanimationoptions?language=objc}PUTileAnimationOptions} *) - -let self = get_class "PUTileAnimationOptions" diff --git a/PhotosUI/PUTileAnimator.ml b/PhotosUI/PUTileAnimator.ml index ed69e7e5..eb95b9d9 100644 --- a/PhotosUI/PUTileAnimator.ml +++ b/PhotosUI/PUTileAnimator.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putileanimator?language=objc}PUTileAnimator} *) +let self = get_class "PUTileAnimator" + let animateTileController x ~toLayoutInfo ~withOptions ~completionHandler self = msg_send ~self ~cmd:(selector "animateTileController:toLayoutInfo:withOptions:completionHandler:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x toLayoutInfo withOptions completionHandler let currentTransition self = msg_send ~self ~cmd:(selector "currentTransition") ~typ:(returning id) let freezeTileController x self = msg_send ~self ~cmd:(selector "freezeTileController:") ~typ:(id @-> returning id) x diff --git a/PhotosUI/PUTileAnimatorClass.ml b/PhotosUI/PUTileAnimatorClass.ml deleted file mode 100644 index f8c941ca..00000000 --- a/PhotosUI/PUTileAnimatorClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putileanimator?language=objc}PUTileAnimator} *) - -let self = get_class "PUTileAnimator" diff --git a/PhotosUI/PUTileController.ml b/PhotosUI/PUTileController.ml index a491607a..475ecb73 100644 --- a/PhotosUI/PUTileController.ml +++ b/PhotosUI/PUTileController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilecontroller?language=objc}PUTileController} *) +let self = get_class "PUTileController" + let addToTilingView x self = msg_send ~self ~cmd:(selector "addToTilingView:") ~typ:(id @-> returning void) x let adoptAssetTransitionInfo x self = msg_send ~self ~cmd:(selector "adoptAssetTransitionInfo:") ~typ:(id @-> returning bool) x let animationCount self = msg_send ~self ~cmd:(selector "animationCount") ~typ:(returning llong) diff --git a/PhotosUI/PUTileControllerClass.ml b/PhotosUI/PUTileControllerClass.ml deleted file mode 100644 index 52ab8fd1..00000000 --- a/PhotosUI/PUTileControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilecontroller?language=objc}PUTileController} *) - -let self = get_class "PUTileController" diff --git a/PhotosUI/PUTileIdentifier.ml b/PhotosUI/PUTileIdentifier.ml index af5563b2..60fadc92 100644 --- a/PhotosUI/PUTileIdentifier.ml +++ b/PhotosUI/PUTileIdentifier.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putileidentifier?language=objc}PUTileIdentifier} *) +let self = get_class "PUTileIdentifier" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let dataSourceIdentifier self = msg_send ~self ~cmd:(selector "dataSourceIdentifier") ~typ:(returning id) let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) diff --git a/PhotosUI/PUTileIdentifierClass.ml b/PhotosUI/PUTileIdentifierClass.ml deleted file mode 100644 index 1564fd19..00000000 --- a/PhotosUI/PUTileIdentifierClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putileidentifier?language=objc}PUTileIdentifier} *) - -let self = get_class "PUTileIdentifier" diff --git a/PhotosUI/PUTileLayoutInfo.ml b/PhotosUI/PUTileLayoutInfo.ml index 7e2ed59c..ce5c2852 100644 --- a/PhotosUI/PUTileLayoutInfo.ml +++ b/PhotosUI/PUTileLayoutInfo.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilelayoutinfo?language=objc}PUTileLayoutInfo} *) +let self = get_class "PUTileLayoutInfo" + let alpha self = msg_send ~self ~cmd:(selector "alpha") ~typ:(returning double) let center self = msg_send ~self ~cmd:(selector "center") ~typ:(returning CGPoint.t) let clone self = msg_send ~self ~cmd:(selector "clone") ~typ:(returning id) diff --git a/PhotosUI/PUTileLayoutInfoClass.ml b/PhotosUI/PUTileLayoutInfoClass.ml deleted file mode 100644 index c9778486..00000000 --- a/PhotosUI/PUTileLayoutInfoClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilelayoutinfo?language=objc}PUTileLayoutInfo} *) - -let self = get_class "PUTileLayoutInfo" diff --git a/PhotosUI/PUTileTransitionCoordinator.ml b/PhotosUI/PUTileTransitionCoordinator.ml index f9874cee..84279538 100644 --- a/PhotosUI/PUTileTransitionCoordinator.ml +++ b/PhotosUI/PUTileTransitionCoordinator.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putiletransitioncoordinator?language=objc}PUTileTransitionCoordinator} *) +let self = get_class "PUTileTransitionCoordinator" + let finalLayoutInfoForDisappearingTileController x ~fromLayoutInfo self = msg_send ~self ~cmd:(selector "finalLayoutInfoForDisappearingTileController:fromLayoutInfo:") ~typ:(id @-> id @-> returning id) x fromLayoutInfo let initialLayoutInfoForAppearingTileController x ~toLayoutInfo self = msg_send ~self ~cmd:(selector "initialLayoutInfoForAppearingTileController:toLayoutInfo:") ~typ:(id @-> id @-> returning id) x toLayoutInfo let newTileAnimationOptions self = msg_send ~self ~cmd:(selector "newTileAnimationOptions") ~typ:(returning id) diff --git a/PhotosUI/PUTileTransitionCoordinatorClass.ml b/PhotosUI/PUTileTransitionCoordinatorClass.ml deleted file mode 100644 index d0d633c6..00000000 --- a/PhotosUI/PUTileTransitionCoordinatorClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putiletransitioncoordinator?language=objc}PUTileTransitionCoordinator} *) - -let self = get_class "PUTileTransitionCoordinator" diff --git a/PhotosUI/PUTileTree.ml b/PhotosUI/PUTileTree.ml index a5e7002a..46c9e993 100644 --- a/PhotosUI/PUTileTree.ml +++ b/PhotosUI/PUTileTree.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putiletree?language=objc}PUTileTree} *) +let self = get_class "PUTileTree" + let addObject x ~withTileIdentifier self = msg_send ~self ~cmd:(selector "addObject:withTileIdentifier:") ~typ:(id @-> id @-> returning void) x withTileIdentifier let containsObject x ~withTileIdentifier self = msg_send ~self ~cmd:(selector "containsObject:withTileIdentifier:") ~typ:(id @-> id @-> returning bool) x withTileIdentifier let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x diff --git a/PhotosUI/PUTileTreeClass.ml b/PhotosUI/PUTileTreeClass.ml deleted file mode 100644 index e0c5d25a..00000000 --- a/PhotosUI/PUTileTreeClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putiletree?language=objc}PUTileTree} *) - -let self = get_class "PUTileTree" diff --git a/PhotosUI/PUTileViewController.ml b/PhotosUI/PUTileViewController.ml index 00f84daa..e04acd7b 100644 --- a/PhotosUI/PUTileViewController.ml +++ b/PhotosUI/PUTileViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putileviewcontroller?language=objc}PUTileViewController} *) +let self = get_class "PUTileViewController" + let addToTilingView x self = msg_send ~self ~cmd:(selector "addToTilingView:") ~typ:(id @-> returning void) x let applyLayoutInfo x self = msg_send ~self ~cmd:(selector "applyLayoutInfo:") ~typ:(id @-> returning void) x let becomeReusable self = msg_send ~self ~cmd:(selector "becomeReusable") ~typ:(returning void) diff --git a/PhotosUI/PUTileViewControllerClass.ml b/PhotosUI/PUTileViewControllerClass.ml deleted file mode 100644 index 8e934d51..00000000 --- a/PhotosUI/PUTileViewControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putileviewcontroller?language=objc}PUTileViewController} *) - -let self = get_class "PUTileViewController" diff --git a/PhotosUI/PUTilingDataSource.ml b/PhotosUI/PUTilingDataSource.ml index 1777ec02..84b2d309 100644 --- a/PhotosUI/PUTilingDataSource.ml +++ b/PhotosUI/PUTilingDataSource.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilingdatasource?language=objc}PUTilingDataSource} *) +let self = get_class "PUTilingDataSource" + let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let enumerateIndexPathsStartingAtIndexPath x ~reverseDirection ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateIndexPathsStartingAtIndexPath:reverseDirection:usingBlock:") ~typ:(id @-> bool @-> (ptr void) @-> returning void) x reverseDirection usingBlock let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/PhotosUI/PUTilingDataSourceClass.ml b/PhotosUI/PUTilingDataSourceClass.ml deleted file mode 100644 index 963916d1..00000000 --- a/PhotosUI/PUTilingDataSourceClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilingdatasource?language=objc}PUTilingDataSource} *) - -let self = get_class "PUTilingDataSource" diff --git a/PhotosUI/PUTilingLayout.ml b/PhotosUI/PUTilingLayout.ml index a1683ca6..44b977a7 100644 --- a/PhotosUI/PUTilingLayout.ml +++ b/PhotosUI/PUTilingLayout.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilinglayout?language=objc}PUTilingLayout} *) +let self = get_class "PUTilingLayout" + let contentBounds self = msg_send ~self ~cmd:(selector "contentBounds") ~typ:(returning CGRect.t) let coordinateSystem self = msg_send ~self ~cmd:(selector "coordinateSystem") ~typ:(returning id) let coordinateSystemOrigin self = msg_send ~self ~cmd:(selector "coordinateSystemOrigin") ~typ:(returning CGPoint.t) diff --git a/PhotosUI/PUTilingLayoutClass.ml b/PhotosUI/PUTilingLayoutClass.ml deleted file mode 100644 index 6fa2a3e9..00000000 --- a/PhotosUI/PUTilingLayoutClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilinglayout?language=objc}PUTilingLayout} *) - -let self = get_class "PUTilingLayout" diff --git a/PhotosUI/PUTilingLayoutCoordinateSystem.ml b/PhotosUI/PUTilingLayoutCoordinateSystem.ml index 9cc62d12..fc6cebcb 100644 --- a/PhotosUI/PUTilingLayoutCoordinateSystem.ml +++ b/PhotosUI/PUTilingLayoutCoordinateSystem.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilinglayoutcoordinatesystem?language=objc}PUTilingLayoutCoordinateSystem} *) +let self = get_class "PUTilingLayoutCoordinateSystem" + let coordinateSystemOrigin self = msg_send ~self ~cmd:(selector "coordinateSystemOrigin") ~typ:(returning CGPoint.t) let parentCoordinateSystem self = msg_send ~self ~cmd:(selector "parentCoordinateSystem") ~typ:(returning id) let setCoordinateSystemOrigin x self = msg_send ~self ~cmd:(selector "setCoordinateSystemOrigin:") ~typ:(CGPoint.t @-> returning void) x diff --git a/PhotosUI/PUTilingLayoutCoordinateSystemClass.ml b/PhotosUI/PUTilingLayoutCoordinateSystemClass.ml deleted file mode 100644 index 3ea13fd8..00000000 --- a/PhotosUI/PUTilingLayoutCoordinateSystemClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilinglayoutcoordinatesystem?language=objc}PUTilingLayoutCoordinateSystem} *) - -let self = get_class "PUTilingLayoutCoordinateSystem" diff --git a/PhotosUI/PUTilingLayoutInvalidationContext.ml b/PhotosUI/PUTilingLayoutInvalidationContext.ml index ce8db6eb..42dc7477 100644 --- a/PhotosUI/PUTilingLayoutInvalidationContext.ml +++ b/PhotosUI/PUTilingLayoutInvalidationContext.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilinglayoutinvalidationcontext?language=objc}PUTilingLayoutInvalidationContext} *) +let self = get_class "PUTilingLayoutInvalidationContext" + let enumerateInvalidatedTilesUsingBlock x self = msg_send ~self ~cmd:(selector "enumerateInvalidatedTilesUsingBlock:") ~typ:((ptr void) @-> returning void) x let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let invalidateAllTiles self = msg_send ~self ~cmd:(selector "invalidateAllTiles") ~typ:(returning void) diff --git a/PhotosUI/PUTilingLayoutInvalidationContextClass.ml b/PhotosUI/PUTilingLayoutInvalidationContextClass.ml deleted file mode 100644 index 2a8f12f9..00000000 --- a/PhotosUI/PUTilingLayoutInvalidationContextClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilinglayoutinvalidationcontext?language=objc}PUTilingLayoutInvalidationContext} *) - -let self = get_class "PUTilingLayoutInvalidationContext" diff --git a/PhotosUI/PUTilingScrollInfo.ml b/PhotosUI/PUTilingScrollInfo.ml index e1e1f76a..a68918b9 100644 --- a/PhotosUI/PUTilingScrollInfo.ml +++ b/PhotosUI/PUTilingScrollInfo.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilingscrollinfo?language=objc}PUTilingScrollInfo} *) +let self = get_class "PUTilingScrollInfo" + let interpageSpacing self = msg_send ~self ~cmd:(selector "interpageSpacing") ~typ:(returning CGSize.t) let pagingFrictionAdjustment self = msg_send ~self ~cmd:(selector "pagingFrictionAdjustment") ~typ:(returning double) let pagingSpringPullAdjustment self = msg_send ~self ~cmd:(selector "pagingSpringPullAdjustment") ~typ:(returning double) diff --git a/PhotosUI/PUTilingScrollInfoClass.ml b/PhotosUI/PUTilingScrollInfoClass.ml index 9d1efe8e..b2592fda 100644 --- a/PhotosUI/PUTilingScrollInfoClass.ml +++ b/PhotosUI/PUTilingScrollInfoClass.ml @@ -4,16 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilingscrollinfo?language=objc}PUTilingScrollInfo} *) -let self = get_class "PUTilingScrollInfo" - let scrollInfoWithScrollDirections x self = msg_send ~self ~cmd:(selector "scrollInfoWithScrollDirections:") ~typ:(llong @-> returning id) (LLong.of_int x) let scrollInfoWithScrollDirections1 x ~enabledPagingWithInterpageSpacing self = msg_send ~self ~cmd:(selector "scrollInfoWithScrollDirections:enabledPagingWithInterpageSpacing:") ~typ:(llong @-> CGSize.t @-> returning id) (LLong.of_int x) enabledPagingWithInterpageSpacing let scrollInfoWithScrollDirections2 x ~enabledPagingWithInterpageSpacing ~pagingSpringPullAdjustment ~pagingFrictionAdjustment self = msg_send ~self ~cmd:(selector "scrollInfoWithScrollDirections:enabledPagingWithInterpageSpacing:pagingSpringPullAdjustment:pagingFrictionAdjustment:") ~typ:(llong @-> CGSize.t @-> double @-> double @-> returning id) (LLong.of_int x) enabledPagingWithInterpageSpacing pagingSpringPullAdjustment pagingFrictionAdjustment \ No newline at end of file diff --git a/PhotosUI/PUTilingView.ml b/PhotosUI/PUTilingView.ml index fe7f0183..2d3ee795 100644 --- a/PhotosUI/PUTilingView.ml +++ b/PhotosUI/PUTilingView.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilingview?language=objc}PUTilingView} *) +let self = get_class "PUTilingView" + let contentCoordinateSystem self = msg_send ~self ~cmd:(selector "contentCoordinateSystem") ~typ:(returning id) let deleteItemAtIndexPath x ~dataSource self = msg_send ~self ~cmd:(selector "deleteItemAtIndexPath:dataSource:") ~typ:(id @-> id @-> returning void) x dataSource let dequeueTileControllerWithReuseIdentifier x self = msg_send ~self ~cmd:(selector "dequeueTileControllerWithReuseIdentifier:") ~typ:(id @-> returning id) x diff --git a/PhotosUI/PUTilingViewClass.ml b/PhotosUI/PUTilingViewClass.ml deleted file mode 100644 index 03a3fed5..00000000 --- a/PhotosUI/PUTilingViewClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilingview?language=objc}PUTilingView} *) - -let self = get_class "PUTilingView" diff --git a/PhotosUI/PUTilingViewContentCoordinateSystem.ml b/PhotosUI/PUTilingViewContentCoordinateSystem.ml new file mode 100644 index 00000000..54166956 --- /dev/null +++ b/PhotosUI/PUTilingViewContentCoordinateSystem.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open UIKit + +(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilingviewcontentcoordinatesystem?language=objc}PUTilingViewContentCoordinateSystem} *) + +let self = get_class "PUTilingViewContentCoordinateSystem" + +let coordinateSystemOrigin self = msg_send ~self ~cmd:(selector "coordinateSystemOrigin") ~typ:(returning CGPoint.t) +let parentCoordinateSystem self = msg_send ~self ~cmd:(selector "parentCoordinateSystem") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUTilingViewCoordinateSystem.ml b/PhotosUI/PUTilingViewCoordinateSystem.ml index 952a8c4f..1cbe5f8a 100644 --- a/PhotosUI/PUTilingViewCoordinateSystem.ml +++ b/PhotosUI/PUTilingViewCoordinateSystem.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilingviewcoordinatesystem?language=objc}PUTilingViewCoordinateSystem} *) +let self = get_class "PUTilingViewCoordinateSystem" + let coordinateSystemOrigin self = msg_send ~self ~cmd:(selector "coordinateSystemOrigin") ~typ:(returning CGPoint.t) let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let initWithTilingView x self = msg_send ~self ~cmd:(selector "initWithTilingView:") ~typ:(id @-> returning id) x diff --git a/PhotosUI/PUTilingViewCoordinateSystemClass.ml b/PhotosUI/PUTilingViewCoordinateSystemClass.ml deleted file mode 100644 index d63f5cd1..00000000 --- a/PhotosUI/PUTilingViewCoordinateSystemClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilingviewcoordinatesystem?language=objc}PUTilingViewCoordinateSystem} *) - -let self = get_class "PUTilingViewCoordinateSystem" diff --git a/PhotosUI/PUTilingViewFixedCoordinateSystem.ml b/PhotosUI/PUTilingViewFixedCoordinateSystem.ml new file mode 100644 index 00000000..df3a4ad5 --- /dev/null +++ b/PhotosUI/PUTilingViewFixedCoordinateSystem.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open UIKit + +(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilingviewfixedcoordinatesystem?language=objc}PUTilingViewFixedCoordinateSystem} *) + +let self = get_class "PUTilingViewFixedCoordinateSystem" + +let coordinateSystemOrigin self = msg_send ~self ~cmd:(selector "coordinateSystemOrigin") ~typ:(returning CGPoint.t) +let parentCoordinateSystem self = msg_send ~self ~cmd:(selector "parentCoordinateSystem") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUTilingViewSettings.ml b/PhotosUI/PUTilingViewSettings.ml index 521f4eb1..c5effcfe 100644 --- a/PhotosUI/PUTilingViewSettings.ml +++ b/PhotosUI/PUTilingViewSettings.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilingviewsettings?language=objc}PUTilingViewSettings} *) +let self = get_class "PUTilingViewSettings" + let allowPaging self = msg_send ~self ~cmd:(selector "allowPaging") ~typ:(returning bool) let allowPreheating self = msg_send ~self ~cmd:(selector "allowPreheating") ~typ:(returning bool) let allowTileReuse self = msg_send ~self ~cmd:(selector "allowTileReuse") ~typ:(returning bool) diff --git a/PhotosUI/PUTilingViewSettingsClass.ml b/PhotosUI/PUTilingViewSettingsClass.ml index a8b396d0..8a466b89 100644 --- a/PhotosUI/PUTilingViewSettingsClass.ml +++ b/PhotosUI/PUTilingViewSettingsClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilingviewsettings?language=objc}PUTilingViewSettings} *) -let self = get_class "PUTilingViewSettings" - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUTilingViewTransitionHelper.ml b/PhotosUI/PUTilingViewTransitionHelper.ml index 65cd5bc8..4a621565 100644 --- a/PhotosUI/PUTilingViewTransitionHelper.ml +++ b/PhotosUI/PUTilingViewTransitionHelper.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilingviewtransitionhelper?language=objc}PUTilingViewTransitionHelper} *) +let self = get_class "PUTilingViewTransitionHelper" + let animateTransitionWithOperation x ~startedInteractively self = msg_send ~self ~cmd:(selector "animateTransitionWithOperation:startedInteractively:") ~typ:(llong @-> bool @-> returning void) (LLong.of_int x) startedInteractively let dismissalDuration self = msg_send ~self ~cmd:(selector "dismissalDuration") ~typ:(returning double) let hasStarted self = msg_send ~self ~cmd:(selector "hasStarted") ~typ:(returning bool) diff --git a/PhotosUI/PUTilingViewTransitionHelperClass.ml b/PhotosUI/PUTilingViewTransitionHelperClass.ml index abeb6893..362e2522 100644 --- a/PhotosUI/PUTilingViewTransitionHelperClass.ml +++ b/PhotosUI/PUTilingViewTransitionHelperClass.ml @@ -4,16 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilingviewtransitionhelper?language=objc}PUTilingViewTransitionHelper} *) -let self = get_class "PUTilingViewTransitionHelper" - let registerTransitionEndPoint x ~forViewController self = msg_send ~self ~cmd:(selector "registerTransitionEndPoint:forViewController:") ~typ:(id @-> id @-> returning void) x forViewController let transitionEndPointWithViewController x self = msg_send ~self ~cmd:(selector "transitionEndPointWithViewController:") ~typ:(id @-> returning id) x let unregisterTransitionEndPoint x ~forViewController self = msg_send ~self ~cmd:(selector "unregisterTransitionEndPoint:forViewController:") ~typ:(id @-> id @-> returning void) x forViewController \ No newline at end of file diff --git a/PhotosUI/PUTilingViewUpdateItem.ml b/PhotosUI/PUTilingViewUpdateItem.ml index 2054fe78..ad77d4d0 100644 --- a/PhotosUI/PUTilingViewUpdateItem.ml +++ b/PhotosUI/PUTilingViewUpdateItem.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilingviewupdateitem?language=objc}PUTilingViewUpdateItem} *) +let self = get_class "PUTilingViewUpdateItem" + let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning llong) let dataSource self = msg_send ~self ~cmd:(selector "dataSource") ~typ:(returning id) let indexPathAfterUpdate self = msg_send ~self ~cmd:(selector "indexPathAfterUpdate") ~typ:(returning id) diff --git a/PhotosUI/PUTilingViewUpdateItemClass.ml b/PhotosUI/PUTilingViewUpdateItemClass.ml deleted file mode 100644 index 42b7e99b..00000000 --- a/PhotosUI/PUTilingViewUpdateItemClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putilingviewupdateitem?language=objc}PUTilingViewUpdateItem} *) - -let self = get_class "PUTilingViewUpdateItem" diff --git a/PhotosUI/PUTimedAnimationGroup.ml b/PhotosUI/PUTimedAnimationGroup.ml index 97af4dd0..e3ce6629 100644 --- a/PhotosUI/PUTimedAnimationGroup.ml +++ b/PhotosUI/PUTimedAnimationGroup.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putimedanimationgroup?language=objc}PUTimedAnimationGroup} *) +let self = get_class "PUTimedAnimationGroup" + let beginTime self = msg_send ~self ~cmd:(selector "beginTime") ~typ:(returning double) let currentTime self = msg_send ~self ~cmd:(selector "currentTime") ~typ:(returning double) let elapsedTime self = msg_send ~self ~cmd:(selector "elapsedTime") ~typ:(returning double) diff --git a/PhotosUI/PUTimedAnimationGroupClass.ml b/PhotosUI/PUTimedAnimationGroupClass.ml deleted file mode 100644 index ecc11bf9..00000000 --- a/PhotosUI/PUTimedAnimationGroupClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putimedanimationgroup?language=objc}PUTimedAnimationGroup} *) - -let self = get_class "PUTimedAnimationGroup" diff --git a/PhotosUI/PUToolbarViewModel.ml b/PhotosUI/PUToolbarViewModel.ml index 5b6e331e..4aabf5ac 100644 --- a/PhotosUI/PUToolbarViewModel.ml +++ b/PhotosUI/PUToolbarViewModel.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putoolbarviewmodel?language=objc}PUToolbarViewModel} *) +let self = get_class "PUToolbarViewModel" + let accessoryView self = msg_send ~self ~cmd:(selector "accessoryView") ~typ:(returning id) let accessoryViewMaximumHeight self = msg_send ~self ~cmd:(selector "accessoryViewMaximumHeight") ~typ:(returning double) let accessoryViewTopOutset self = msg_send ~self ~cmd:(selector "accessoryViewTopOutset") ~typ:(returning double) diff --git a/PhotosUI/PUToolbarViewModelChange.ml b/PhotosUI/PUToolbarViewModelChange.ml index 9552ee33..393640e8 100644 --- a/PhotosUI/PUToolbarViewModelChange.ml +++ b/PhotosUI/PUToolbarViewModelChange.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putoolbarviewmodelchange?language=objc}PUToolbarViewModelChange} *) +let self = get_class "PUToolbarViewModelChange" + let accessoryViewChanged self = msg_send ~self ~cmd:(selector "accessoryViewChanged") ~typ:(returning bool) let accessoryViewMaximumHeightChanged self = msg_send ~self ~cmd:(selector "accessoryViewMaximumHeightChanged") ~typ:(returning bool) let accessoryViewTopOutsetChanged self = msg_send ~self ~cmd:(selector "accessoryViewTopOutsetChanged") ~typ:(returning bool) diff --git a/PhotosUI/PUToolbarViewModelChangeClass.ml b/PhotosUI/PUToolbarViewModelChangeClass.ml deleted file mode 100644 index 6c236fa6..00000000 --- a/PhotosUI/PUToolbarViewModelChangeClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putoolbarviewmodelchange?language=objc}PUToolbarViewModelChange} *) - -let self = get_class "PUToolbarViewModelChange" diff --git a/PhotosUI/PUToolbarViewModelClass.ml b/PhotosUI/PUToolbarViewModelClass.ml deleted file mode 100644 index 7caa6e5b..00000000 --- a/PhotosUI/PUToolbarViewModelClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putoolbarviewmodel?language=objc}PUToolbarViewModel} *) - -let self = get_class "PUToolbarViewModel" diff --git a/PhotosUI/PUTouchingGestureRecognizer.ml b/PhotosUI/PUTouchingGestureRecognizer.ml index 40b97802..3b0e0b04 100644 --- a/PhotosUI/PUTouchingGestureRecognizer.ml +++ b/PhotosUI/PUTouchingGestureRecognizer.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putouchinggesturerecognizer?language=objc}PUTouchingGestureRecognizer} *) +let self = get_class "PUTouchingGestureRecognizer" + let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent diff --git a/PhotosUI/PUTouchingGestureRecognizerClass.ml b/PhotosUI/PUTouchingGestureRecognizerClass.ml deleted file mode 100644 index e5e1d732..00000000 --- a/PhotosUI/PUTouchingGestureRecognizerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putouchinggesturerecognizer?language=objc}PUTouchingGestureRecognizer} *) - -let self = get_class "PUTouchingGestureRecognizer" diff --git a/PhotosUI/PUTransitionSectionInfo.ml b/PhotosUI/PUTransitionSectionInfo.ml index 6bfdbbe5..c298fad3 100644 --- a/PhotosUI/PUTransitionSectionInfo.ml +++ b/PhotosUI/PUTransitionSectionInfo.ml @@ -4,21 +4,18 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putransitionsectioninfo?language=objc}PUTransitionSectionInfo} *) +let self = get_class "PUTransitionSectionInfo" + let anchorRealPath self = msg_send ~self ~cmd:(selector "anchorRealPath") ~typ:(returning id) -let anchorShiftOffset self = msg_send ~self ~cmd:(selector "anchorShiftOffset") ~typ:(returning PUGridCoordinates.t) let contiguousRows self = msg_send ~self ~cmd:(selector "contiguousRows") ~typ:(returning llong) let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let setAnchorRealPath x self = msg_send ~self ~cmd:(selector "setAnchorRealPath:") ~typ:(id @-> returning void) x -let setAnchorShiftOffset x self = msg_send ~self ~cmd:(selector "setAnchorShiftOffset:") ~typ:(PUGridCoordinates.t @-> returning void) x let setContiguousRows x self = msg_send ~self ~cmd:(selector "setContiguousRows:") ~typ:(llong @-> returning void) (LLong.of_int x) let setTransitionSection x self = msg_send ~self ~cmd:(selector "setTransitionSection:") ~typ:(llong @-> returning void) (LLong.of_int x) let setVisualRowStartMarkers x self = msg_send ~self ~cmd:(selector "setVisualRowStartMarkers:") ~typ:(id @-> returning void) x diff --git a/PhotosUI/PUTransitionSectionInfoClass.ml b/PhotosUI/PUTransitionSectionInfoClass.ml deleted file mode 100644 index a3e2e181..00000000 --- a/PhotosUI/PUTransitionSectionInfoClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putransitionsectioninfo?language=objc}PUTransitionSectionInfo} *) - -let self = get_class "PUTransitionSectionInfo" diff --git a/PhotosUI/PUTransitionViewAnimator.ml b/PhotosUI/PUTransitionViewAnimator.ml index a4b7fe27..fe148b77 100644 --- a/PhotosUI/PUTransitionViewAnimator.ml +++ b/PhotosUI/PUTransitionViewAnimator.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/putransitionviewanimator?language=objc}PUTransitionViewAnimator} *) +let self = get_class "PUTransitionViewAnimator" + let anchorPoint self = msg_send ~self ~cmd:(selector "anchorPoint") ~typ:(returning CGPoint.t) let appliesScaleViaTransform self = msg_send ~self ~cmd:(selector "appliesScaleViaTransform") ~typ:(returning bool) let autoUpdates self = msg_send ~self ~cmd:(selector "autoUpdates") ~typ:(returning bool) diff --git a/PhotosUI/PUTransitionViewAnimatorClass.ml b/PhotosUI/PUTransitionViewAnimatorClass.ml deleted file mode 100644 index 4dfa4c83..00000000 --- a/PhotosUI/PUTransitionViewAnimatorClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/putransitionviewanimator?language=objc}PUTransitionViewAnimator} *) - -let self = get_class "PUTransitionViewAnimator" diff --git a/PhotosUI/PUUIAlbumListViewController.ml b/PhotosUI/PUUIAlbumListViewController.ml index a9c74b77..4d8c24f1 100644 --- a/PhotosUI/PUUIAlbumListViewController.ml +++ b/PhotosUI/PUUIAlbumListViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puuialbumlistviewcontroller?language=objc}PUUIAlbumListViewController} *) +let self = get_class "PUUIAlbumListViewController" + let assetsFilterPredicate self = msg_send ~self ~cmd:(selector "assetsFilterPredicate") ~typ:(returning id) let canShowAvatarViews self = msg_send ~self ~cmd:(selector "canShowAvatarViews") ~typ:(returning bool) let filteringAssetTypes self = msg_send ~self ~cmd:(selector "filteringAssetTypes") ~typ:(returning ullong) diff --git a/PhotosUI/PUUIAlbumListViewControllerClass.ml b/PhotosUI/PUUIAlbumListViewControllerClass.ml deleted file mode 100644 index b4135697..00000000 --- a/PhotosUI/PUUIAlbumListViewControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puuialbumlistviewcontroller?language=objc}PUUIAlbumListViewController} *) - -let self = get_class "PUUIAlbumListViewController" diff --git a/PhotosUI/PUUIImagePickerControllerHelper.ml b/PhotosUI/PUUIImagePickerControllerHelper.ml index 193b10b9..8d163c3b 100644 --- a/PhotosUI/PUUIImagePickerControllerHelper.ml +++ b/PhotosUI/PUUIImagePickerControllerHelper.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puuiimagepickercontrollerhelper?language=objc}PUUIImagePickerControllerHelper} *) +let self = get_class "PUUIImagePickerControllerHelper" + let albumListViewController self = msg_send ~self ~cmd:(selector "albumListViewController") ~typ:(returning id) let allowsMultipleSelection self = msg_send ~self ~cmd:(selector "allowsMultipleSelection") ~typ:(returning bool) let cancelPhotoPicker self = msg_send ~self ~cmd:(selector "cancelPhotoPicker") ~typ:(returning void) diff --git a/PhotosUI/PUUIImagePickerControllerHelperClass.ml b/PhotosUI/PUUIImagePickerControllerHelperClass.ml index 449c69ee..f0e1b85a 100644 --- a/PhotosUI/PUUIImagePickerControllerHelperClass.ml +++ b/PhotosUI/PUUIImagePickerControllerHelperClass.ml @@ -4,16 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puuiimagepickercontrollerhelper?language=objc}PUUIImagePickerControllerHelper} *) -let self = get_class "PUUIImagePickerControllerHelper" - let albumFilterForMediaTypes x self = msg_send ~self ~cmd:(selector "albumFilterForMediaTypes:") ~typ:(id @-> returning int) x let albumListViewControllerSpec self = msg_send ~self ~cmd:(selector "albumListViewControllerSpec") ~typ:(returning id) let assetsFilterPredicateForMediaTypes x self = msg_send ~self ~cmd:(selector "assetsFilterPredicateForMediaTypes:") ~typ:(id @-> returning id) x diff --git a/PhotosUI/PUUIImageViewController.ml b/PhotosUI/PUUIImageViewController.ml index fb98a66c..9602c297 100644 --- a/PhotosUI/PUUIImageViewController.ml +++ b/PhotosUI/PUUIImageViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puuiimageviewcontroller?language=objc}PUUIImageViewController} *) +let self = get_class "PUUIImageViewController" + let cancelButtonTitle self = msg_send ~self ~cmd:(selector "cancelButtonTitle") ~typ:(returning id) let chooseButtonTitle self = msg_send ~self ~cmd:(selector "chooseButtonTitle") ~typ:(returning id) let cropOverlayFileSizeMenuActions x self = msg_send ~self ~cmd:(selector "cropOverlayFileSizeMenuActions:") ~typ:(id @-> returning id) x diff --git a/PhotosUI/PUUIImageViewControllerClass.ml b/PhotosUI/PUUIImageViewControllerClass.ml deleted file mode 100644 index 363bed1f..00000000 --- a/PhotosUI/PUUIImageViewControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puuiimageviewcontroller?language=objc}PUUIImageViewController} *) - -let self = get_class "PUUIImageViewController" diff --git a/PhotosUI/PUUIMomentsGridViewController.ml b/PhotosUI/PUUIMomentsGridViewController.ml index 459dcd95..286885e1 100644 --- a/PhotosUI/PUUIMomentsGridViewController.ml +++ b/PhotosUI/PUUIMomentsGridViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puuimomentsgridviewcontroller?language=objc}PUUIMomentsGridViewController} *) +let self = get_class "PUUIMomentsGridViewController" + let canDragIn self = msg_send ~self ~cmd:(selector "canDragIn") ~typ:(returning bool) let canDragOut self = msg_send ~self ~cmd:(selector "canDragOut") ~typ:(returning bool) let canNavigateToPhotoInteractively x self = msg_send ~self ~cmd:(selector "canNavigateToPhotoInteractively:") ~typ:(bool @-> returning bool) x diff --git a/PhotosUI/PUUIMomentsGridViewControllerClass.ml b/PhotosUI/PUUIMomentsGridViewControllerClass.ml deleted file mode 100644 index 186f87ee..00000000 --- a/PhotosUI/PUUIMomentsGridViewControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puuimomentsgridviewcontroller?language=objc}PUUIMomentsGridViewController} *) - -let self = get_class "PUUIMomentsGridViewController" diff --git a/PhotosUI/PUUIPhotosAlbumViewController.ml b/PhotosUI/PUUIPhotosAlbumViewController.ml index 02d7e4c9..2d0fd12a 100644 --- a/PhotosUI/PUUIPhotosAlbumViewController.ml +++ b/PhotosUI/PUUIPhotosAlbumViewController.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puuiphotosalbumviewcontroller?language=objc}PUUIPhotosAlbumViewController} *) +let self = get_class "PUUIPhotosAlbumViewController" + let canBeginStackCollapseTransition self = msg_send ~self ~cmd:(selector "canBeginStackCollapseTransition") ~typ:(returning bool) let canDragIn self = msg_send ~self ~cmd:(selector "canDragIn") ~typ:(returning bool) let canDragOut self = msg_send ~self ~cmd:(selector "canDragOut") ~typ:(returning bool) diff --git a/PhotosUI/PUUIPhotosAlbumViewControllerClass.ml b/PhotosUI/PUUIPhotosAlbumViewControllerClass.ml deleted file mode 100644 index ed034ce8..00000000 --- a/PhotosUI/PUUIPhotosAlbumViewControllerClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puuiphotosalbumviewcontroller?language=objc}PUUIPhotosAlbumViewController} *) - -let self = get_class "PUUIPhotosAlbumViewController" diff --git a/PhotosUI/PUValueFilter.ml b/PhotosUI/PUValueFilter.ml index 54606c8a..f1a97fc4 100644 --- a/PhotosUI/PUValueFilter.ml +++ b/PhotosUI/PUValueFilter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puvaluefilter?language=objc}PUValueFilter} *) +let self = get_class "PUValueFilter" + let currentValue self = msg_send ~self ~cmd:(selector "currentValue") ~typ:(returning double) let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let initWithValue x self = msg_send ~self ~cmd:(selector "initWithValue:") ~typ:(double @-> returning id) x diff --git a/PhotosUI/PUValueFilterClass.ml b/PhotosUI/PUValueFilterClass.ml deleted file mode 100644 index 275a4051..00000000 --- a/PhotosUI/PUValueFilterClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puvaluefilter?language=objc}PUValueFilter} *) - -let self = get_class "PUValueFilter" diff --git a/PhotosUI/PUVelocityFilter.ml b/PhotosUI/PUVelocityFilter.ml index 77fdfb9b..568514db 100644 --- a/PhotosUI/PUVelocityFilter.ml +++ b/PhotosUI/PUVelocityFilter.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puvelocityfilter?language=objc}PUVelocityFilter} *) +let self = get_class "PUVelocityFilter" + let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let outputValue self = msg_send ~self ~cmd:(selector "outputValue") ~typ:(returning double) let setInputValue x self = msg_send ~self ~cmd:(selector "setInputValue:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/PhotosUI/PUVelocityFilterClass.ml b/PhotosUI/PUVelocityFilterClass.ml index 4e1ad3f6..e4687beb 100644 --- a/PhotosUI/PUVelocityFilterClass.ml +++ b/PhotosUI/PUVelocityFilterClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puvelocityfilter?language=objc}PUVelocityFilter} *) -let self = get_class "PUVelocityFilter" - let gestureVelocityFilter self = msg_send ~self ~cmd:(selector "gestureVelocityFilter") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/PUVideoPlayerView.ml b/PhotosUI/PUVideoPlayerView.ml index fffe1041..84493cf0 100644 --- a/PhotosUI/PUVideoPlayerView.ml +++ b/PhotosUI/PUVideoPlayerView.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puvideoplayerview?language=objc}PUVideoPlayerView} *) +let self = get_class "PUVideoPlayerView" + let allowsEdgeAntialiasing self = msg_send ~self ~cmd:(selector "allowsEdgeAntialiasing") ~typ:(returning bool) let configureWithAVPlayer x self = msg_send ~self ~cmd:(selector "configureWithAVPlayer:") ~typ:(id @-> returning void) x let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) diff --git a/PhotosUI/PUVideoPlayerViewClass.ml b/PhotosUI/PUVideoPlayerViewClass.ml deleted file mode 100644 index 6e646671..00000000 --- a/PhotosUI/PUVideoPlayerViewClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puvideoplayerview?language=objc}PUVideoPlayerView} *) - -let self = get_class "PUVideoPlayerView" diff --git a/PhotosUI/PUViewControllerSpec.ml b/PhotosUI/PUViewControllerSpec.ml index 643ec492..866ced39 100644 --- a/PhotosUI/PUViewControllerSpec.ml +++ b/PhotosUI/PUViewControllerSpec.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puviewcontrollerspec?language=objc}PUViewControllerSpec} *) +let self = get_class "PUViewControllerSpec" + let assertInsideChangesBlock self = msg_send ~self ~cmd:(selector "assertInsideChangesBlock") ~typ:(returning void) let currentChange self = msg_send ~self ~cmd:(selector "currentChange") ~typ:(returning id) let currentLayoutStyle self = msg_send ~self ~cmd:(selector "currentLayoutStyle") ~typ:(returning llong) diff --git a/PhotosUI/PUViewControllerSpecChange.ml b/PhotosUI/PUViewControllerSpecChange.ml index b12b3b0c..d45d5100 100644 --- a/PhotosUI/PUViewControllerSpecChange.ml +++ b/PhotosUI/PUViewControllerSpecChange.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puviewcontrollerspecchange?language=objc}PUViewControllerSpecChange} *) +let self = get_class "PUViewControllerSpecChange" + let changed self = msg_send ~self ~cmd:(selector "changed") ~typ:(returning bool) let layoutReferenceSizeChanged self = msg_send ~self ~cmd:(selector "layoutReferenceSizeChanged") ~typ:(returning bool) let layoutStyleChanged self = msg_send ~self ~cmd:(selector "layoutStyleChanged") ~typ:(returning bool) diff --git a/PhotosUI/PUViewControllerSpecChangeClass.ml b/PhotosUI/PUViewControllerSpecChangeClass.ml deleted file mode 100644 index c5c480f2..00000000 --- a/PhotosUI/PUViewControllerSpecChangeClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puviewcontrollerspecchange?language=objc}PUViewControllerSpecChange} *) - -let self = get_class "PUViewControllerSpecChange" diff --git a/PhotosUI/PUViewControllerSpecClass.ml b/PhotosUI/PUViewControllerSpecClass.ml deleted file mode 100644 index 62dcac35..00000000 --- a/PhotosUI/PUViewControllerSpecClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puviewcontrollerspec?language=objc}PUViewControllerSpec} *) - -let self = get_class "PUViewControllerSpec" diff --git a/PhotosUI/PUViewControllerTransition.ml b/PhotosUI/PUViewControllerTransition.ml index b5b49872..19491b14 100644 --- a/PhotosUI/PUViewControllerTransition.ml +++ b/PhotosUI/PUViewControllerTransition.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puviewcontrollertransition?language=objc}PUViewControllerTransition} *) +let self = get_class "PUViewControllerTransition" + let animateTransition x self = msg_send ~self ~cmd:(selector "animateTransition:") ~typ:(id @-> returning void) x let animationEnded x self = msg_send ~self ~cmd:(selector "animationEnded:") ~typ:(bool @-> returning void) x let cancelInteractiveTransition self = msg_send ~self ~cmd:(selector "cancelInteractiveTransition") ~typ:(returning void) diff --git a/PhotosUI/PUViewControllerTransitionClass.ml b/PhotosUI/PUViewControllerTransitionClass.ml index 18750403..ea93ebe2 100644 --- a/PhotosUI/PUViewControllerTransitionClass.ml +++ b/PhotosUI/PUViewControllerTransitionClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puviewcontrollertransition?language=objc}PUViewControllerTransition} *) -let self = get_class "PUViewControllerTransition" - let interactionControllerForAnimationController x self = msg_send ~self ~cmd:(selector "interactionControllerForAnimationController:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/PhotosUI/PUViewModel.ml b/PhotosUI/PUViewModel.ml index 4818a091..77ce2d5c 100644 --- a/PhotosUI/PUViewModel.ml +++ b/PhotosUI/PUViewModel.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puviewmodel?language=objc}PUViewModel} *) +let self = get_class "PUViewModel" + let assertInsideChangesBlock self = msg_send ~self ~cmd:(selector "assertInsideChangesBlock") ~typ:(returning void) let currentChange self = msg_send ~self ~cmd:(selector "currentChange") ~typ:(returning id) let currentChangeIfExists self = msg_send ~self ~cmd:(selector "currentChangeIfExists") ~typ:(returning id) diff --git a/PhotosUI/PUViewModelChange.ml b/PhotosUI/PUViewModelChange.ml new file mode 100644 index 00000000..0ebd6eea --- /dev/null +++ b/PhotosUI/PUViewModelChange.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open UIKit + +(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puviewmodelchange?language=objc}PUViewModelChange} *) + +let self = get_class "PUViewModelChange" + +let hasChanges self = msg_send ~self ~cmd:(selector "hasChanges") ~typ:(returning bool) +let setHasChanges self = msg_send ~self ~cmd:(selector "setHasChanges") ~typ:(returning void) \ No newline at end of file diff --git a/PhotosUI/PUViewModelClass.ml b/PhotosUI/PUViewModelClass.ml deleted file mode 100644 index 2f23c40a..00000000 --- a/PhotosUI/PUViewModelClass.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit - -(** Apple docs: {{:https://developer.apple.com/documentation/photosui/puviewmodel?language=objc}PUViewModel} *) - -let self = get_class "PUViewModel" diff --git a/PhotosUI/PUWorkaroundSettings.ml b/PhotosUI/PUWorkaroundSettings.ml index 0c0b1ecb..7511f4be 100644 --- a/PhotosUI/PUWorkaroundSettings.ml +++ b/PhotosUI/PUWorkaroundSettings.ml @@ -4,14 +4,13 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puworkaroundsettings?language=objc}PUWorkaroundSettings} *) +let self = get_class "PUWorkaroundSettings" + let addRemoveVideoLayer self = msg_send ~self ~cmd:(selector "addRemoveVideoLayer") ~typ:(returning bool) let parentSettings self = msg_send ~self ~cmd:(selector "parentSettings") ~typ:(returning id) let setAddRemoveVideoLayer x self = msg_send ~self ~cmd:(selector "setAddRemoveVideoLayer:") ~typ:(bool @-> returning void) x diff --git a/PhotosUI/PUWorkaroundSettingsClass.ml b/PhotosUI/PUWorkaroundSettingsClass.ml index 22eebf27..47813fd8 100644 --- a/PhotosUI/PUWorkaroundSettingsClass.ml +++ b/PhotosUI/PUWorkaroundSettingsClass.ml @@ -4,14 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open Uikit +open Foundation +open UIKit (** Apple docs: {{:https://developer.apple.com/documentation/photosui/puworkaroundsettings?language=objc}PUWorkaroundSettings} *) -let self = get_class "PUWorkaroundSettings" - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/PhotosUI/dune b/PhotosUI/dune index d4f826bc..dcaab831 100644 --- a/PhotosUI/dune +++ b/PhotosUI/dune @@ -12,6 +12,6 @@ camlkit-base.runtime camlkit-base.CoreFoundation camlkit-base.CoreGraphics - camlkit-gui.uikit)) + camlkit-gui.UIKit)) (documentation (package camlkit-gui)) \ No newline at end of file diff --git a/README.md b/README.md index 2daf8af1..91a4d9b8 100644 --- a/README.md +++ b/README.md @@ -52,27 +52,26 @@ application: ```ocaml open Foundation -open Uikit -open Uikit_globals +open UIKit open Runtime module AppDelegate = struct let show_hello _self _cmd _app _opts = let screen_bounds = - UIScreen._class_ |> UIScreen.C.mainScreen |> UIScreen.bounds + UIScreen.self |> UIScreenClass.mainScreen |> UIScreen.bounds in let win = - UIWindow._class_ |> NSObject.C.alloc + UIWindow.self |> NSObjectClass.alloc |> UIWindow.initWithFrame screen_bounds - and vc = UIViewController._class_ |> NSObject.C.new_ - and label = UILabel._class_ |> NSObject.C.new_ + and vc = UIViewController.self |> NSObjectClass.new_ + and label = UILabel.self |> NSObjectClass.new_ in let view = vc |> UIViewController.view in view |> UIView.setFrame screen_bounds; - view |> UIView.setBackgroundColor (UIColor._class_ |> UIColor.C.systemBackgroundColor); + view |> UIView.setBackgroundColor (UIColor.self |> UIColorClass.systemBackgroundColor); label |> UILabel.setText (new_string "Hello from OCaml!"); - label |> UILabel.setTextColor (UIColor._class_ |> UIColor.C.systemBlackColor); + label |> UILabel.setTextColor (UIColor.self |> UIColorClass.systemBlackColor); label |> UILabel.setTextAlignment _UITextAlignmentCenter; label |> UIView.setFrame screen_bounds; view |> UIView.addSubview label; @@ -81,10 +80,10 @@ module AppDelegate = struct win |> UIWindow.makeKeyAndVisible; true - let _class_ = Define._class_ "AppDelegate" - ~superclass: UIResponder._class_ + let _class_ = Class.define "AppDelegate" + ~superclass: UIResponder.self ~methods: - [ Define._method_ show_hello + [ Method.define show_hello ~cmd: (selector "application:didFinishLaunchingWithOptions:") ~args: Objc_t.[id; id] ~return: Objc_t.bool diff --git a/demo/dune b/demo/dune index 201c3770..2f8647de 100644 --- a/demo/dune +++ b/demo/dune @@ -5,7 +5,7 @@ (= %{context_name} simulator.ios) (= %{context_name} simulator-arm.ios) (= %{context_name} catalyst.ios))) - (libraries camlkit-base.Foundation camlkit-gui.uikit)) + (libraries camlkit-base.Foundation camlkit-gui.UIKit)) (subdir Demo.app (rule diff --git a/demo/main.ml b/demo/main.ml index a1735528..df89bc80 100644 --- a/demo/main.ml +++ b/demo/main.ml @@ -1,27 +1,26 @@ open Foundation -open Uikit -open Uikit_globals +open UIKit open Runtime module AppDelegate = struct let show_hello _self _cmd _app _opts = let screen_bounds = - UIScreen._class_ |> UIScreen.C.mainScreen |> UIScreen.bounds + UIScreen.self |> UIScreenClass.mainScreen |> UIScreen.bounds in let win = - UIWindow._class_ |> NSObject.C.alloc + UIWindow.self |> NSObjectClass.alloc |> UIWindow.initWithFrame screen_bounds - and vc = UIViewController._class_ |> NSObject.C.new_ - and label = UILabel._class_ |> NSObject.C.new_ + and vc = UIViewController.self |> NSObjectClass.new_ + and label = UILabel.self |> NSObjectClass.new_ in let view = vc |> UIViewController.view in view |> UIView.setFrame screen_bounds; view |> UIView.setBackgroundColor - (UIColor._class_ |> UIColor.C.systemBackgroundColor); + (UIColor.self |> UIColorClass.systemBackgroundColor); label |> UILabel.setText (new_string "Hello from OCaml!"); label |> UILabel.setTextColor - (UIColor._class_ |> UIColor.C.systemBlackColor); + (UIColor.self |> UIColorClass.systemBlackColor); label |> UILabel.setTextAlignment _UITextAlignmentCenter; label |> UIView.setFrame screen_bounds; view |> UIView.addSubview label; @@ -30,10 +29,10 @@ module AppDelegate = struct win |> UIWindow.makeKeyAndVisible; true - let _class_ = Define._class_ "AppDelegate" - ~superclass: UIResponder._class_ + let _class_ = Class.define "AppDelegate" + ~superclass: UIResponder.self ~methods: - [ Define._method_ show_hello + [ Method.define show_hello ~cmd: (selector "application:didFinishLaunchingWithOptions:") ~args: Objc_t.[id; id] ~return: Objc_t.bool @@ -41,7 +40,7 @@ module AppDelegate = struct end let main () = - let _ = NSObject.C.new_ NSAutoreleasePool._class_ + let _ = NSObjectClass.new_ NSAutoreleasePool.self and argc = Array.length Sys.argv and argv = Sys.argv diff --git a/uikit/NSDirectionalEdgeInsets.ml b/uikit/NSDirectionalEdgeInsets.ml index 9a7451eb..1e3698e0 100644 --- a/uikit/NSDirectionalEdgeInsets.ml +++ b/uikit/NSDirectionalEdgeInsets.ml @@ -3,6 +3,9 @@ open Runtime open Objc +[@@@ocaml.warning "-33"] +open Foundation + let t : [`NSDirectionalEdgeInsets] structure typ = structure "NSDirectionalEdgeInsets" (** Apple docs: {{:https://developer.apple.com/documentation/uikit/nsdirectionaledgeinsets?language=objc}NSDirectionalEdgeInsets} *) @@ -13,6 +16,18 @@ let trailing = field t "trailing" double let () = seal t +let init + ~top:top_v + ~leading:leading_v + ~bottom:bottom_v + ~trailing:trailing_v + = + let t = make t in + setf t top top_v; + setf t leading leading_v; + setf t bottom bottom_v; + setf t trailing trailing_v; + t let top t = getf t top let leading t = getf t leading let bottom t = getf t bottom diff --git a/uikit/UIAcceleration.ml b/uikit/UIAcceleration.ml index 4c8ccef3..6dacb349 100644 --- a/uikit/UIAcceleration.ml +++ b/uikit/UIAcceleration.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAcceleration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiacceleration?language=objc}UIAcceleration} *) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let setTimestamp x self = msg_send ~self ~cmd:(selector "setTimestamp:") ~typ:(double @-> returning (void)) x -let setX x self = msg_send ~self ~cmd:(selector "setX:") ~typ:(double @-> returning (void)) x -let setY x self = msg_send ~self ~cmd:(selector "setY:") ~typ:(double @-> returning (void)) x -let setZ x self = msg_send ~self ~cmd:(selector "setZ:") ~typ:(double @-> returning (void)) x -let timestamp self = msg_send ~self ~cmd:(selector "timestamp") ~typ:(returning (double)) -let x self = msg_send ~self ~cmd:(selector "x") ~typ:(returning (double)) -let y self = msg_send ~self ~cmd:(selector "y") ~typ:(returning (double)) -let z self = msg_send ~self ~cmd:(selector "z") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIAcceleration" + +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let setTimestamp x self = msg_send ~self ~cmd:(selector "setTimestamp:") ~typ:(double @-> returning void) x +let setX x self = msg_send ~self ~cmd:(selector "setX:") ~typ:(double @-> returning void) x +let setY x self = msg_send ~self ~cmd:(selector "setY:") ~typ:(double @-> returning void) x +let setZ x self = msg_send ~self ~cmd:(selector "setZ:") ~typ:(double @-> returning void) x +let timestamp self = msg_send ~self ~cmd:(selector "timestamp") ~typ:(returning double) +let x self = msg_send ~self ~cmd:(selector "x") ~typ:(returning double) +let y self = msg_send ~self ~cmd:(selector "y") ~typ:(returning double) +let z self = msg_send ~self ~cmd:(selector "z") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIAccelerometer.ml b/uikit/UIAccelerometer.ml index 779b7bcc..7723b307 100644 --- a/uikit/UIAccelerometer.ml +++ b/uikit/UIAccelerometer.ml @@ -5,16 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAccelerometer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccelerometer?language=objc}UIAccelerometer} *) -module C = struct - let sharedAccelerometer self = msg_send ~self ~cmd:(selector "sharedAccelerometer") ~typ:(returning (id)) -end +let self = get_class "UIAccelerometer" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setUpdateInterval x self = msg_send ~self ~cmd:(selector "setUpdateInterval:") ~typ:(double @-> returning (void)) x -let updateInterval self = msg_send ~self ~cmd:(selector "updateInterval") ~typ:(returning (double)) \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setUpdateInterval x self = msg_send ~self ~cmd:(selector "setUpdateInterval:") ~typ:(double @-> returning void) x +let updateInterval self = msg_send ~self ~cmd:(selector "updateInterval") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIAccelerometerClass.ml b/uikit/UIAccelerometerClass.ml new file mode 100644 index 00000000..15d96b93 --- /dev/null +++ b/uikit/UIAccelerometerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccelerometer?language=objc}UIAccelerometer} *) + +let sharedAccelerometer self = msg_send ~self ~cmd:(selector "sharedAccelerometer") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIAccessoryBackgroundTaskAction.ml b/uikit/UIAccessoryBackgroundTaskAction.ml deleted file mode 100644 index c5e4c021..00000000 --- a/uikit/UIAccessoryBackgroundTaskAction.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIAccessoryBackgroundTaskAction" - -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithInfo x ~timeout ~forResponseOnQueue ~withHandler self = msg_send ~self ~cmd:(selector "initWithInfo:timeout:forResponseOnQueue:withHandler:") ~typ:(id @-> double @-> id @-> ptr void @-> returning (id)) x timeout forResponseOnQueue withHandler \ No newline at end of file diff --git a/uikit/UIAction.ml b/uikit/UIAction.ml index bf959b39..2517a135 100644 --- a/uikit/UIAction.ml +++ b/uikit/UIAction.ml @@ -5,37 +5,34 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaction?language=objc}UIAction} *) -module C = struct - let actionWithHandler x self = msg_send ~self ~cmd:(selector "actionWithHandler:") ~typ:(ptr void @-> returning (id)) x - let actionWithTitle x ~image ~identifier ~handler self = msg_send ~self ~cmd:(selector "actionWithTitle:image:identifier:handler:") ~typ:(id @-> id @-> id @-> ptr void @-> returning (id)) x image identifier handler - let captureTextFromCameraActionForResponder x ~identifier self = msg_send ~self ~cmd:(selector "captureTextFromCameraActionForResponder:identifier:") ~typ:(id @-> id @-> returning (id)) x identifier - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIAction" -let attributes self = msg_send ~self ~cmd:(selector "attributes") ~typ:(returning (ullong)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let discoverabilityTitle self = msg_send ~self ~cmd:(selector "discoverabilityTitle") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x +let attributes self = msg_send ~self ~cmd:(selector "attributes") ~typ:(returning ullong) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let discoverabilityTitle self = msg_send ~self ~cmd:(selector "discoverabilityTitle") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let handler self = msg_send ~self ~cmd:(selector "handler") ~typ:(returning (ptr void)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let initWithAction x self = msg_send ~self ~cmd:(selector "initWithAction:") ~typ:(id @-> returning (id)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithTitle x ~image ~identifier ~discoverabilityTitle ~attributes ~state ~handler self = msg_send ~self ~cmd:(selector "initWithTitle:image:identifier:discoverabilityTitle:attributes:state:handler:") ~typ:(id @-> id @-> id @-> id @-> ullong @-> llong @-> ptr void @-> returning (id)) x image identifier discoverabilityTitle (ULLong.of_int attributes) (LLong.of_int state) handler -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isLeaf self = msg_send ~self ~cmd:(selector "isLeaf") ~typ:(returning (bool)) -let keepsMenuPresented self = msg_send ~self ~cmd:(selector "keepsMenuPresented") ~typ:(returning (bool)) -let requiresAuthenticatedInput self = msg_send ~self ~cmd:(selector "requiresAuthenticatedInput") ~typ:(returning (bool)) -let sender self = msg_send ~self ~cmd:(selector "sender") ~typ:(returning (id)) -let setAttributes x self = msg_send ~self ~cmd:(selector "setAttributes:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDiscoverabilityTitle x self = msg_send ~self ~cmd:(selector "setDiscoverabilityTitle:") ~typ:(id @-> returning (void)) x -let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:(ptr void @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSubtitle x self = msg_send ~self ~cmd:(selector "setSubtitle:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (llong)) \ No newline at end of file +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) +let initWithAction x self = msg_send ~self ~cmd:(selector "initWithAction:") ~typ:(id @-> returning id) x +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithTitle x ~image ~identifier ~discoverabilityTitle ~attributes ~state ~handler self = msg_send ~self ~cmd:(selector "initWithTitle:image:identifier:discoverabilityTitle:attributes:state:handler:") ~typ:(id @-> id @-> id @-> id @-> ullong @-> llong @-> (ptr void) @-> returning id) x image identifier discoverabilityTitle (ULLong.of_int attributes) (LLong.of_int state) handler +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isLeaf self = msg_send ~self ~cmd:(selector "isLeaf") ~typ:(returning bool) +let keepsMenuPresented self = msg_send ~self ~cmd:(selector "keepsMenuPresented") ~typ:(returning bool) +let requiresAuthenticatedInput self = msg_send ~self ~cmd:(selector "requiresAuthenticatedInput") ~typ:(returning bool) +let sender self = msg_send ~self ~cmd:(selector "sender") ~typ:(returning id) +let setAttributes x self = msg_send ~self ~cmd:(selector "setAttributes:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDiscoverabilityTitle x self = msg_send ~self ~cmd:(selector "setDiscoverabilityTitle:") ~typ:(id @-> returning void) x +let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:((ptr void) @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSubtitle x self = msg_send ~self ~cmd:(selector "setSubtitle:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIActionClass.ml b/uikit/UIActionClass.ml new file mode 100644 index 00000000..ee86275b --- /dev/null +++ b/uikit/UIActionClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaction?language=objc}UIAction} *) + +let actionWithHandler x self = msg_send ~self ~cmd:(selector "actionWithHandler:") ~typ:((ptr void) @-> returning id) x +let actionWithTitle x ~image ~identifier ~handler self = msg_send ~self ~cmd:(selector "actionWithTitle:image:identifier:handler:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning id) x image identifier handler +let captureTextFromCameraActionForResponder x ~identifier self = msg_send ~self ~cmd:(selector "captureTextFromCameraActionForResponder:identifier:") ~typ:(id @-> id @-> returning id) x identifier +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIActionSheet.ml b/uikit/UIActionSheet.ml index 5d898cad..efcc0582 100644 --- a/uikit/UIActionSheet.ml +++ b/uikit/UIActionSheet.ml @@ -5,43 +5,47 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIActionSheet" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiactionsheet?language=objc}UIActionSheet} *) -let actionSheetStyle self = msg_send ~self ~cmd:(selector "actionSheetStyle") ~typ:(returning (llong)) -let addButtonWithTitle x self = msg_send ~self ~cmd:(selector "addButtonWithTitle:") ~typ:(id @-> returning (llong)) x -let addButtonWithTitle' x ~label self = msg_send ~self ~cmd:(selector "addButtonWithTitle:label:") ~typ:(id @-> id @-> returning (id)) x label -let bodyText self = msg_send ~self ~cmd:(selector "bodyText") ~typ:(returning (id)) -let buttonTitleAtIndex x self = msg_send ~self ~cmd:(selector "buttonTitleAtIndex:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let cancelButtonIndex self = msg_send ~self ~cmd:(selector "cancelButtonIndex") ~typ:(returning (llong)) -let context self = msg_send ~self ~cmd:(selector "context") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let destructiveButtonIndex self = msg_send ~self ~cmd:(selector "destructiveButtonIndex") ~typ:(returning (llong)) -let dismissWithClickedButtonIndex x ~animated self = msg_send ~self ~cmd:(selector "dismissWithClickedButtonIndex:animated:") ~typ:(llong @-> bool @-> returning (void)) (LLong.of_int x) animated -let firstOtherButtonIndex self = msg_send ~self ~cmd:(selector "firstOtherButtonIndex") ~typ:(returning (llong)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithTitle x ~delegate ~cancelButtonTitle ~destructiveButtonTitle self = msg_send ~self ~cmd:(selector "initWithTitle:delegate:cancelButtonTitle:destructiveButtonTitle:") ~typ:(id @-> id @-> id @-> id @-> returning (id)) x delegate cancelButtonTitle destructiveButtonTitle -let initWithTitle' x ~delegate ~cancelButtonTitle ~destructiveButtonTitle ~otherButtonTitles self = msg_send ~self ~cmd:(selector "initWithTitle:delegate:cancelButtonTitle:destructiveButtonTitle:otherButtonTitles:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (id)) x delegate cancelButtonTitle destructiveButtonTitle otherButtonTitles -let isVisible self = msg_send ~self ~cmd:(selector "isVisible") ~typ:(returning (bool)) -let message self = msg_send ~self ~cmd:(selector "message") ~typ:(returning (id)) -let numberOfButtons self = msg_send ~self ~cmd:(selector "numberOfButtons") ~typ:(returning (llong)) -let popoverControllerDidDismissPopover x self = msg_send ~self ~cmd:(selector "popoverControllerDidDismissPopover:") ~typ:(id @-> returning (void)) x -let presentFromRect x ~inView ~direction ~allowInteractionWithViews ~backgroundStyle ~animated self = msg_send ~self ~cmd:(selector "presentFromRect:inView:direction:allowInteractionWithViews:backgroundStyle:animated:") ~typ:(CGRect.t @-> id @-> ullong @-> id @-> llong @-> bool @-> returning (void)) x inView (ULLong.of_int direction) allowInteractionWithViews (LLong.of_int backgroundStyle) animated -let setActionSheetStyle x self = msg_send ~self ~cmd:(selector "setActionSheetStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBodyText x self = msg_send ~self ~cmd:(selector "setBodyText:") ~typ:(id @-> returning (void)) x -let setCancelButtonIndex x self = msg_send ~self ~cmd:(selector "setCancelButtonIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContext x self = msg_send ~self ~cmd:(selector "setContext:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDestructiveButtonIndex x self = msg_send ~self ~cmd:(selector "setDestructiveButtonIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setMessage x self = msg_send ~self ~cmd:(selector "setMessage:") ~typ:(id @-> returning (void)) x -let setSubtitle x self = msg_send ~self ~cmd:(selector "setSubtitle:") ~typ:(id @-> returning (void)) x -let setTaglineText x self = msg_send ~self ~cmd:(selector "setTaglineText:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let showFromBarButtonItem x ~animated self = msg_send ~self ~cmd:(selector "showFromBarButtonItem:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let showFromRect x ~inView ~animated self = msg_send ~self ~cmd:(selector "showFromRect:inView:animated:") ~typ:(CGRect.t @-> id @-> bool @-> returning (void)) x inView animated -let showFromTabBar x self = msg_send ~self ~cmd:(selector "showFromTabBar:") ~typ:(id @-> returning (void)) x -let showFromToolbar x self = msg_send ~self ~cmd:(selector "showFromToolbar:") ~typ:(id @-> returning (void)) x -let showInView x self = msg_send ~self ~cmd:(selector "showInView:") ~typ:(id @-> returning (void)) x -let subtitle self = msg_send ~self ~cmd:(selector "subtitle") ~typ:(returning (id)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIActionSheet" + +let actionSheetStyle self = msg_send ~self ~cmd:(selector "actionSheetStyle") ~typ:(returning llong) +let addButtonWithTitle x self = msg_send ~self ~cmd:(selector "addButtonWithTitle:") ~typ:(id @-> returning llong) x +let addButtonWithTitle' x ~label self = msg_send ~self ~cmd:(selector "addButtonWithTitle:label:") ~typ:(id @-> id @-> returning id) x label +let bodyText self = msg_send ~self ~cmd:(selector "bodyText") ~typ:(returning id) +let buttonTitleAtIndex x self = msg_send ~self ~cmd:(selector "buttonTitleAtIndex:") ~typ:(llong @-> returning id) (LLong.of_int x) +let cancelButtonIndex self = msg_send ~self ~cmd:(selector "cancelButtonIndex") ~typ:(returning llong) +let context self = msg_send ~self ~cmd:(selector "context") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let destructiveButtonIndex self = msg_send ~self ~cmd:(selector "destructiveButtonIndex") ~typ:(returning llong) +let dismissWithClickedButtonIndex x ~animated self = msg_send ~self ~cmd:(selector "dismissWithClickedButtonIndex:animated:") ~typ:(llong @-> bool @-> returning void) (LLong.of_int x) animated +let firstOtherButtonIndex self = msg_send ~self ~cmd:(selector "firstOtherButtonIndex") ~typ:(returning llong) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithTitle x ~delegate ~cancelButtonTitle ~destructiveButtonTitle self = msg_send ~self ~cmd:(selector "initWithTitle:delegate:cancelButtonTitle:destructiveButtonTitle:") ~typ:(id @-> id @-> id @-> id @-> returning id) x delegate cancelButtonTitle destructiveButtonTitle +let initWithTitle' x ~delegate ~cancelButtonTitle ~destructiveButtonTitle ~otherButtonTitles self = msg_send ~self ~cmd:(selector "initWithTitle:delegate:cancelButtonTitle:destructiveButtonTitle:otherButtonTitles:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning id) x delegate cancelButtonTitle destructiveButtonTitle otherButtonTitles +let isVisible self = msg_send ~self ~cmd:(selector "isVisible") ~typ:(returning bool) +let message self = msg_send ~self ~cmd:(selector "message") ~typ:(returning id) +let numberOfButtons self = msg_send ~self ~cmd:(selector "numberOfButtons") ~typ:(returning llong) +let popoverControllerDidDismissPopover x self = msg_send ~self ~cmd:(selector "popoverControllerDidDismissPopover:") ~typ:(id @-> returning void) x +let presentFromRect x ~inView ~direction ~allowInteractionWithViews ~backgroundStyle ~animated self = msg_send ~self ~cmd:(selector "presentFromRect:inView:direction:allowInteractionWithViews:backgroundStyle:animated:") ~typ:(CGRect.t @-> id @-> ullong @-> id @-> llong @-> bool @-> returning void) x inView (ULLong.of_int direction) allowInteractionWithViews (LLong.of_int backgroundStyle) animated +let setActionSheetStyle x self = msg_send ~self ~cmd:(selector "setActionSheetStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBodyText x self = msg_send ~self ~cmd:(selector "setBodyText:") ~typ:(id @-> returning void) x +let setCancelButtonIndex x self = msg_send ~self ~cmd:(selector "setCancelButtonIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContext x self = msg_send ~self ~cmd:(selector "setContext:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDestructiveButtonIndex x self = msg_send ~self ~cmd:(selector "setDestructiveButtonIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setMessage x self = msg_send ~self ~cmd:(selector "setMessage:") ~typ:(id @-> returning void) x +let setSubtitle x self = msg_send ~self ~cmd:(selector "setSubtitle:") ~typ:(id @-> returning void) x +let setTaglineText x self = msg_send ~self ~cmd:(selector "setTaglineText:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let showFromBarButtonItem x ~animated self = msg_send ~self ~cmd:(selector "showFromBarButtonItem:animated:") ~typ:(id @-> bool @-> returning void) x animated +let showFromRect x ~inView ~animated self = msg_send ~self ~cmd:(selector "showFromRect:inView:animated:") ~typ:(CGRect.t @-> id @-> bool @-> returning void) x inView animated +let showFromTabBar x self = msg_send ~self ~cmd:(selector "showFromTabBar:") ~typ:(id @-> returning void) x +let showFromToolbar x self = msg_send ~self ~cmd:(selector "showFromToolbar:") ~typ:(id @-> returning void) x +let showInView x self = msg_send ~self ~cmd:(selector "showInView:") ~typ:(id @-> returning void) x +let subtitle self = msg_send ~self ~cmd:(selector "subtitle") ~typ:(returning id) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIActionSheetiOSDismissActionView.ml b/uikit/UIActionSheetiOSDismissActionView.ml deleted file mode 100644 index f2f04350..00000000 --- a/uikit/UIActionSheetiOSDismissActionView.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIActionSheetiOSDismissActionView" - -let dismissButton self = msg_send ~self ~cmd:(selector "dismissButton") ~typ:(returning (id)) -let initWithContinuousCornerRadius x self = msg_send ~self ~cmd:(selector "initWithContinuousCornerRadius:") ~typ:(double @-> returning (id)) x -let setDismissButton x self = msg_send ~self ~cmd:(selector "setDismissButton:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setUsesShortCompactVerticalLayout x self = msg_send ~self ~cmd:(selector "setUsesShortCompactVerticalLayout:") ~typ:(bool @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let usesShortCompactVerticalLayout self = msg_send ~self ~cmd:(selector "usesShortCompactVerticalLayout") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIActivityContinuationManager.ml b/uikit/UIActivityContinuationManager.ml index e134d64f..11c40124 100644 --- a/uikit/UIActivityContinuationManager.ml +++ b/uikit/UIActivityContinuationManager.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIActivityContinuationManager" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiactivitycontinuationmanager?language=objc}UIActivityContinuationManager} *) -let activityContinuationDictionaryWithAction x self = msg_send ~self ~cmd:(selector "activityContinuationDictionaryWithAction:") ~typ:(id @-> returning (id)) x -let activityContinuationDictionaryWithAction' x ~sourceApplication self = msg_send ~self ~cmd:(selector "activityContinuationDictionaryWithAction:sourceApplication:") ~typ:(id @-> id @-> returning (id)) x sourceApplication -let activityContinuationsAreBeingTracked self = msg_send ~self ~cmd:(selector "activityContinuationsAreBeingTracked") ~typ:(returning (bool)) -let addResponder x ~document ~forUserActivity self = msg_send ~self ~cmd:(selector "addResponder:document:forUserActivity:") ~typ:(id @-> id @-> id @-> returning (void)) x document forUserActivity -let handleActivityContinuation x ~isSuspended self = msg_send ~self ~cmd:(selector "handleActivityContinuation:isSuspended:") ~typ:(id @-> bool @-> returning (void)) x isSuspended -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithApplicationContext x self = msg_send ~self ~cmd:(selector "initWithApplicationContext:") ~typ:(id @-> returning (id)) x -let removeResponder x ~document ~forUserActivity self = msg_send ~self ~cmd:(selector "removeResponder:document:forUserActivity:") ~typ:(id @-> id @-> id @-> returning (void)) x document forUserActivity -let userActivityWillSave x self = msg_send ~self ~cmd:(selector "userActivityWillSave:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIActivityContinuationManager" + +let activityContinuationDictionaryWithAction x self = msg_send ~self ~cmd:(selector "activityContinuationDictionaryWithAction:") ~typ:(id @-> returning id) x +let activityContinuationDictionaryWithAction' x ~sourceApplication self = msg_send ~self ~cmd:(selector "activityContinuationDictionaryWithAction:sourceApplication:") ~typ:(id @-> id @-> returning id) x sourceApplication +let activityContinuationsAreBeingTracked self = msg_send ~self ~cmd:(selector "activityContinuationsAreBeingTracked") ~typ:(returning bool) +let addResponder x ~document ~forUserActivity self = msg_send ~self ~cmd:(selector "addResponder:document:forUserActivity:") ~typ:(id @-> id @-> id @-> returning void) x document forUserActivity +let handleActivityContinuation x ~isSuspended self = msg_send ~self ~cmd:(selector "handleActivityContinuation:isSuspended:") ~typ:(id @-> bool @-> returning void) x isSuspended +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithApplicationContext x self = msg_send ~self ~cmd:(selector "initWithApplicationContext:") ~typ:(id @-> returning id) x +let removeResponder x ~document ~forUserActivity self = msg_send ~self ~cmd:(selector "removeResponder:document:forUserActivity:") ~typ:(id @-> id @-> id @-> returning void) x document forUserActivity +let userActivityWillSave x self = msg_send ~self ~cmd:(selector "userActivityWillSave:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIActivityIndicatorView.ml b/uikit/UIActivityIndicatorView.ml index bf369987..a7612b95 100644 --- a/uikit/UIActivityIndicatorView.ml +++ b/uikit/UIActivityIndicatorView.ml @@ -5,49 +5,49 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIActivityIndicatorView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiactivityindicatorview?language=objc}UIActivityIndicatorView} *) -module C = struct - let defaultSizeForStyle x self = msg_send_stret ~self ~cmd:(selector "defaultSizeForStyle:") ~typ:(llong @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) -end +let self = get_class "UIActivityIndicatorView" -let activityIndicatorViewStyle self = msg_send ~self ~cmd:(selector "activityIndicatorViewStyle") ~typ:(returning (llong)) -let animationDuration self = msg_send ~self ~cmd:(selector "animationDuration") ~typ:(returning (double)) -let color self = msg_send ~self ~cmd:(selector "color") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hasShadow self = msg_send ~self ~cmd:(selector "hasShadow") ~typ:(returning (bool)) -let hidesWhenStopped self = msg_send ~self ~cmd:(selector "hidesWhenStopped") ~typ:(returning (bool)) -let initWithActivityIndicatorStyle x self = msg_send ~self ~cmd:(selector "initWithActivityIndicatorStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isAnimating self = msg_send ~self ~cmd:(selector "isAnimating") ~typ:(returning (bool)) -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setActivityIndicatorViewStyle x self = msg_send ~self ~cmd:(selector "setActivityIndicatorViewStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setAnimating x self = msg_send ~self ~cmd:(selector "setAnimating:") ~typ:(bool @-> returning (void)) x -let setAnimationDuration x self = msg_send ~self ~cmd:(selector "setAnimationDuration:") ~typ:(double @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setColor x self = msg_send ~self ~cmd:(selector "setColor:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHasShadow x self = msg_send ~self ~cmd:(selector "setHasShadow:") ~typ:(bool @-> returning (void)) x -let setHidesWhenStopped x self = msg_send ~self ~cmd:(selector "setHidesWhenStopped:") ~typ:(bool @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setShadowColor x self = msg_send ~self ~cmd:(selector "setShadowColor:") ~typ:(id @-> returning (void)) x -let setShadowOffset x self = msg_send ~self ~cmd:(selector "setShadowOffset:") ~typ:(CGSize.t @-> returning (void)) x -let setSpinning x self = msg_send ~self ~cmd:(selector "setSpinning:") ~typ:(bool @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setWidth x self = msg_send ~self ~cmd:(selector "setWidth:") ~typ:(double @-> returning (void)) x -let shadowColor self = msg_send ~self ~cmd:(selector "shadowColor") ~typ:(returning (id)) -let shadowOffset self = msg_send_stret ~self ~cmd:(selector "shadowOffset") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let spinning self = msg_send ~self ~cmd:(selector "spinning") ~typ:(returning (bool)) -let startAnimating self = msg_send ~self ~cmd:(selector "startAnimating") ~typ:(returning (void)) -let startAnimation self = msg_send ~self ~cmd:(selector "startAnimation") ~typ:(returning (void)) -let stopAnimating self = msg_send ~self ~cmd:(selector "stopAnimating") ~typ:(returning (void)) -let stopAnimation self = msg_send ~self ~cmd:(selector "stopAnimation") ~typ:(returning (void)) -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let width self = msg_send ~self ~cmd:(selector "width") ~typ:(returning (double)) \ No newline at end of file +let activityIndicatorViewStyle self = msg_send ~self ~cmd:(selector "activityIndicatorViewStyle") ~typ:(returning llong) +let animationDuration self = msg_send ~self ~cmd:(selector "animationDuration") ~typ:(returning double) +let color self = msg_send ~self ~cmd:(selector "color") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hasShadow self = msg_send ~self ~cmd:(selector "hasShadow") ~typ:(returning bool) +let hidesWhenStopped self = msg_send ~self ~cmd:(selector "hidesWhenStopped") ~typ:(returning bool) +let initWithActivityIndicatorStyle x self = msg_send ~self ~cmd:(selector "initWithActivityIndicatorStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isAnimating self = msg_send ~self ~cmd:(selector "isAnimating") ~typ:(returning bool) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setActivityIndicatorViewStyle x self = msg_send ~self ~cmd:(selector "setActivityIndicatorViewStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setAnimating x self = msg_send ~self ~cmd:(selector "setAnimating:") ~typ:(bool @-> returning void) x +let setAnimationDuration x self = msg_send ~self ~cmd:(selector "setAnimationDuration:") ~typ:(double @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setColor x self = msg_send ~self ~cmd:(selector "setColor:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHasShadow x self = msg_send ~self ~cmd:(selector "setHasShadow:") ~typ:(bool @-> returning void) x +let setHidesWhenStopped x self = msg_send ~self ~cmd:(selector "setHidesWhenStopped:") ~typ:(bool @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setShadowColor x self = msg_send ~self ~cmd:(selector "setShadowColor:") ~typ:(id @-> returning void) x +let setShadowOffset x self = msg_send ~self ~cmd:(selector "setShadowOffset:") ~typ:(CGSize.t @-> returning void) x +let setSpinning x self = msg_send ~self ~cmd:(selector "setSpinning:") ~typ:(bool @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setWidth x self = msg_send ~self ~cmd:(selector "setWidth:") ~typ:(double @-> returning void) x +let shadowColor self = msg_send ~self ~cmd:(selector "shadowColor") ~typ:(returning id) +let shadowOffset self = msg_send ~self ~cmd:(selector "shadowOffset") ~typ:(returning CGSize.t) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let spinning self = msg_send ~self ~cmd:(selector "spinning") ~typ:(returning bool) +let startAnimating self = msg_send ~self ~cmd:(selector "startAnimating") ~typ:(returning void) +let startAnimation self = msg_send ~self ~cmd:(selector "startAnimation") ~typ:(returning void) +let stopAnimating self = msg_send ~self ~cmd:(selector "stopAnimating") ~typ:(returning void) +let stopAnimation self = msg_send ~self ~cmd:(selector "stopAnimation") ~typ:(returning void) +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let width self = msg_send ~self ~cmd:(selector "width") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIActivityIndicatorViewClass.ml b/uikit/UIActivityIndicatorViewClass.ml new file mode 100644 index 00000000..8aa8619c --- /dev/null +++ b/uikit/UIActivityIndicatorViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiactivityindicatorview?language=objc}UIActivityIndicatorView} *) + +let defaultSizeForStyle x self = msg_send ~self ~cmd:(selector "defaultSizeForStyle:") ~typ:(llong @-> returning CGSize.t) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIActivityItemsConfiguration.ml b/uikit/UIActivityItemsConfiguration.ml index a5765766..465d6dd0 100644 --- a/uikit/UIActivityItemsConfiguration.ml +++ b/uikit/UIActivityItemsConfiguration.ml @@ -5,33 +5,32 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIActivityItemsConfiguration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiactivityitemsconfiguration?language=objc}UIActivityItemsConfiguration} *) -module C = struct - let activityItemsConfigurationWithItemProviders x self = msg_send ~self ~cmd:(selector "activityItemsConfigurationWithItemProviders:") ~typ:(id @-> returning (id)) x - let activityItemsConfigurationWithObjects x self = msg_send ~self ~cmd:(selector "activityItemsConfigurationWithObjects:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIActivityItemsConfiguration" -let activityItemsConfigurationMetadataForItemAtIndex x ~key self = msg_send ~self ~cmd:(selector "activityItemsConfigurationMetadataForItemAtIndex:key:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) key -let activityItemsConfigurationMetadataForKey x self = msg_send ~self ~cmd:(selector "activityItemsConfigurationMetadataForKey:") ~typ:(id @-> returning (id)) x -let activityItemsConfigurationPreviewForItemAtIndex x ~intent ~suggestedSize self = msg_send ~self ~cmd:(selector "activityItemsConfigurationPreviewForItemAtIndex:intent:suggestedSize:") ~typ:(llong @-> id @-> CGSize.t @-> returning (id)) (LLong.of_int x) intent suggestedSize -let activityItemsConfigurationSupportsInteraction x self = msg_send ~self ~cmd:(selector "activityItemsConfigurationSupportsInteraction:") ~typ:(id @-> returning (bool)) x -let activityItemsForSharing self = msg_send ~self ~cmd:(selector "activityItemsForSharing") ~typ:(returning (id)) -let applicationActivitiesForActivityItemsConfiguration self = msg_send ~self ~cmd:(selector "applicationActivitiesForActivityItemsConfiguration") ~typ:(returning (id)) +let activityItemsConfigurationMetadataForItemAtIndex x ~key self = msg_send ~self ~cmd:(selector "activityItemsConfigurationMetadataForItemAtIndex:key:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) key +let activityItemsConfigurationMetadataForKey x self = msg_send ~self ~cmd:(selector "activityItemsConfigurationMetadataForKey:") ~typ:(id @-> returning id) x +let activityItemsConfigurationPreviewForItemAtIndex x ~intent ~suggestedSize self = msg_send ~self ~cmd:(selector "activityItemsConfigurationPreviewForItemAtIndex:intent:suggestedSize:") ~typ:(llong @-> id @-> CGSize.t @-> returning id) (LLong.of_int x) intent suggestedSize +let activityItemsConfigurationSupportsInteraction x self = msg_send ~self ~cmd:(selector "activityItemsConfigurationSupportsInteraction:") ~typ:(id @-> returning bool) x +let activityItemsForSharing self = msg_send ~self ~cmd:(selector "activityItemsForSharing") ~typ:(returning id) +let applicationActivitiesForActivityItemsConfiguration self = msg_send ~self ~cmd:(selector "applicationActivitiesForActivityItemsConfiguration") ~typ:(returning id) let applicationActivitiesProvider self = msg_send ~self ~cmd:(selector "applicationActivitiesProvider") ~typ:(returning (ptr void)) -let initWithItemProviders x self = msg_send ~self ~cmd:(selector "initWithItemProviders:") ~typ:(id @-> returning (id)) x -let initWithObjects x self = msg_send ~self ~cmd:(selector "initWithObjects:") ~typ:(id @-> returning (id)) x -let itemProviders self = msg_send ~self ~cmd:(selector "itemProviders") ~typ:(returning (id)) -let itemProvidersForActivityItemsConfiguration self = msg_send ~self ~cmd:(selector "itemProvidersForActivityItemsConfiguration") ~typ:(returning (id)) -let localObject self = msg_send ~self ~cmd:(selector "localObject") ~typ:(returning (id)) +let initWithItemProviders x self = msg_send ~self ~cmd:(selector "initWithItemProviders:") ~typ:(id @-> returning id) x +let initWithObjects x self = msg_send ~self ~cmd:(selector "initWithObjects:") ~typ:(id @-> returning id) x +let itemProviders self = msg_send ~self ~cmd:(selector "itemProviders") ~typ:(returning id) +let itemProvidersForActivityItemsConfiguration self = msg_send ~self ~cmd:(selector "itemProvidersForActivityItemsConfiguration") ~typ:(returning id) +let localObject self = msg_send ~self ~cmd:(selector "localObject") ~typ:(returning id) let metadataProvider self = msg_send ~self ~cmd:(selector "metadataProvider") ~typ:(returning (ptr void)) let perItemMetadataProvider self = msg_send ~self ~cmd:(selector "perItemMetadataProvider") ~typ:(returning (ptr void)) let previewProvider self = msg_send ~self ~cmd:(selector "previewProvider") ~typ:(returning (ptr void)) -let setApplicationActivitiesProvider x self = msg_send ~self ~cmd:(selector "setApplicationActivitiesProvider:") ~typ:(ptr void @-> returning (void)) x -let setLocalObject x self = msg_send ~self ~cmd:(selector "setLocalObject:") ~typ:(id @-> returning (void)) x -let setMetadataProvider x self = msg_send ~self ~cmd:(selector "setMetadataProvider:") ~typ:(ptr void @-> returning (void)) x -let setPerItemMetadataProvider x self = msg_send ~self ~cmd:(selector "setPerItemMetadataProvider:") ~typ:(ptr void @-> returning (void)) x -let setPreviewProvider x self = msg_send ~self ~cmd:(selector "setPreviewProvider:") ~typ:(ptr void @-> returning (void)) x -let setSupportedInteractions x self = msg_send ~self ~cmd:(selector "setSupportedInteractions:") ~typ:(id @-> returning (void)) x -let supportedInteractions self = msg_send ~self ~cmd:(selector "supportedInteractions") ~typ:(returning (id)) \ No newline at end of file +let setApplicationActivitiesProvider x self = msg_send ~self ~cmd:(selector "setApplicationActivitiesProvider:") ~typ:((ptr void) @-> returning void) x +let setLocalObject x self = msg_send ~self ~cmd:(selector "setLocalObject:") ~typ:(id @-> returning void) x +let setMetadataProvider x self = msg_send ~self ~cmd:(selector "setMetadataProvider:") ~typ:((ptr void) @-> returning void) x +let setPerItemMetadataProvider x self = msg_send ~self ~cmd:(selector "setPerItemMetadataProvider:") ~typ:((ptr void) @-> returning void) x +let setPreviewProvider x self = msg_send ~self ~cmd:(selector "setPreviewProvider:") ~typ:((ptr void) @-> returning void) x +let setSupportedInteractions x self = msg_send ~self ~cmd:(selector "setSupportedInteractions:") ~typ:(id @-> returning void) x +let supportedInteractions self = msg_send ~self ~cmd:(selector "supportedInteractions") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIActivityItemsConfigurationClass.ml b/uikit/UIActivityItemsConfigurationClass.ml new file mode 100644 index 00000000..2486c34b --- /dev/null +++ b/uikit/UIActivityItemsConfigurationClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiactivityitemsconfiguration?language=objc}UIActivityItemsConfiguration} *) + +let activityItemsConfigurationWithItemProviders x self = msg_send ~self ~cmd:(selector "activityItemsConfigurationWithItemProviders:") ~typ:(id @-> returning id) x +let activityItemsConfigurationWithObjects x self = msg_send ~self ~cmd:(selector "activityItemsConfigurationWithObjects:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIAlertAction.ml b/uikit/UIAlertAction.ml index f5538807..d9243877 100644 --- a/uikit/UIAlertAction.ml +++ b/uikit/UIAlertAction.ml @@ -5,26 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAlertAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uialertaction?language=objc}UIAlertAction} *) -module C = struct - let actionWithTitle x ~style ~handler self = msg_send ~self ~cmd:(selector "actionWithTitle:style:handler:") ~typ:(id @-> llong @-> ptr void @-> returning (id)) x (LLong.of_int style) handler -end +let self = get_class "UIAlertAction" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let handler self = msg_send ~self ~cmd:(selector "handler") ~typ:(returning (ptr void)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:(ptr void @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setShouldDismissHandler x self = msg_send ~self ~cmd:(selector "setShouldDismissHandler:") ~typ:(ptr void @-> returning (void)) x -let setSimpleHandler x self = msg_send ~self ~cmd:(selector "setSimpleHandler:") ~typ:(ptr void @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:((ptr void) @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setShouldDismissHandler x self = msg_send ~self ~cmd:(selector "setShouldDismissHandler:") ~typ:((ptr void) @-> returning void) x +let setSimpleHandler x self = msg_send ~self ~cmd:(selector "setSimpleHandler:") ~typ:((ptr void) @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x let shouldDismissHandler self = msg_send ~self ~cmd:(selector "shouldDismissHandler") ~typ:(returning (ptr void)) let simpleHandler self = msg_send ~self ~cmd:(selector "simpleHandler") ~typ:(returning (ptr void)) -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIAlertActionClass.ml b/uikit/UIAlertActionClass.ml new file mode 100644 index 00000000..3eb66c86 --- /dev/null +++ b/uikit/UIAlertActionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uialertaction?language=objc}UIAlertAction} *) + +let actionWithTitle x ~style ~handler self = msg_send ~self ~cmd:(selector "actionWithTitle:style:handler:") ~typ:(id @-> llong @-> (ptr void) @-> returning id) x (LLong.of_int style) handler \ No newline at end of file diff --git a/uikit/UIAlertController.ml b/uikit/UIAlertController.ml index 171dea18..7e17a5ec 100644 --- a/uikit/UIAlertController.ml +++ b/uikit/UIAlertController.ml @@ -5,65 +5,65 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAlertController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uialertcontroller?language=objc}UIAlertController} *) -module C = struct - let alertControllerWithTitle x ~message ~preferredStyle self = msg_send ~self ~cmd:(selector "alertControllerWithTitle:message:preferredStyle:") ~typ:(id @-> id @-> llong @-> returning (id)) x message (LLong.of_int preferredStyle) -end +let self = get_class "UIAlertController" -let actions self = msg_send ~self ~cmd:(selector "actions") ~typ:(returning (id)) -let addAction x self = msg_send ~self ~cmd:(selector "addAction:") ~typ:(id @-> returning (void)) x -let addTextFieldWithConfigurationHandler x self = msg_send ~self ~cmd:(selector "addTextFieldWithConfigurationHandler:") ~typ:(ptr void @-> returning (void)) x -let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning (bool)) -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let cancelAction self = msg_send ~self ~cmd:(selector "cancelAction") ~typ:(returning (id)) -let contentViewController self = msg_send ~self ~cmd:(selector "contentViewController") ~typ:(returning (id)) -let coordinatedActionPerformingDelegate self = msg_send ~self ~cmd:(selector "coordinatedActionPerformingDelegate") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let dismissViewControllerWithTransition x ~completion self = msg_send ~self ~cmd:(selector "dismissViewControllerWithTransition:completion:") ~typ:(int @-> ptr void @-> returning (void)) x completion -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning (bool)) -let linkAlertController x self = msg_send ~self ~cmd:(selector "linkAlertController:") ~typ:(id @-> returning (void)) x -let linkedAlertControllers self = msg_send ~self ~cmd:(selector "linkedAlertControllers") ~typ:(returning (id)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let message self = msg_send ~self ~cmd:(selector "message") ~typ:(returning (id)) -let performsViewControllerCommitTransitionForPreviewInteractionController x self = msg_send ~self ~cmd:(selector "performsViewControllerCommitTransitionForPreviewInteractionController:") ~typ:(id @-> returning (bool)) x -let preferredAction self = msg_send ~self ~cmd:(selector "preferredAction") ~typ:(returning (id)) -let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning (void)) x -let preferredStyle self = msg_send ~self ~cmd:(selector "preferredStyle") ~typ:(returning (llong)) -let previewInteractionController x ~performCommitForPreviewViewController ~committedViewController self = msg_send ~self ~cmd:(selector "previewInteractionController:performCommitForPreviewViewController:committedViewController:") ~typ:(id @-> id @-> id @-> returning (void)) x performCommitForPreviewViewController committedViewController -let previewInteractionController1 x ~viewControllerForPreviewingAtPosition ~inView ~presentingViewController self = msg_send ~self ~cmd:(selector "previewInteractionController:viewControllerForPreviewingAtPosition:inView:presentingViewController:") ~typ:(id @-> CGPoint.t @-> id @-> ptr (id) @-> returning (id)) x viewControllerForPreviewingAtPosition inView presentingViewController -let previewInteractionController2 x ~willPresentViewController ~forPosition ~inSourceView self = msg_send ~self ~cmd:(selector "previewInteractionController:willPresentViewController:forPosition:inSourceView:") ~typ:(id @-> id @-> CGPoint.t @-> id @-> returning (void)) x willPresentViewController forPosition inSourceView -let setCancelAction x self = msg_send ~self ~cmd:(selector "setCancelAction:") ~typ:(id @-> returning (void)) x -let setContentViewController x self = msg_send ~self ~cmd:(selector "setContentViewController:") ~typ:(id @-> returning (void)) x -let setCoordinatedActionPerformingDelegate x self = msg_send ~self ~cmd:(selector "setCoordinatedActionPerformingDelegate:") ~typ:(id @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setMessage x self = msg_send ~self ~cmd:(selector "setMessage:") ~typ:(id @-> returning (void)) x -let setModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setModalPresentationStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPreferredAction x self = msg_send ~self ~cmd:(selector "setPreferredAction:") ~typ:(id @-> returning (void)) x -let setPreferredStyle x self = msg_send ~self ~cmd:(selector "setPreferredStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning (void)) x -let setTemporaryAnimationCoordinator x self = msg_send ~self ~cmd:(selector "setTemporaryAnimationCoordinator:") ~typ:(id @-> returning (void)) x -let setTextFieldsCanBecomeFirstResponder x self = msg_send ~self ~cmd:(selector "setTextFieldsCanBecomeFirstResponder:") ~typ:(bool @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let shouldAutorotate self = msg_send ~self ~cmd:(selector "shouldAutorotate") ~typ:(returning (bool)) -let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning (ullong)) -let targetHostWindow self = msg_send ~self ~cmd:(selector "targetHostWindow") ~typ:(returning (id)) -let temporaryAnimationCoordinator self = msg_send ~self ~cmd:(selector "temporaryAnimationCoordinator") ~typ:(returning (id)) -let textFields self = msg_send ~self ~cmd:(selector "textFields") ~typ:(returning (id)) -let touchBar self = msg_send ~self ~cmd:(selector "touchBar") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let unlinkAlertController x self = msg_send ~self ~cmd:(selector "unlinkAlertController:") ~typ:(id @-> returning (void)) x -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning (void)) -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "viewWillLayoutSubviews") ~typ:(returning (void)) -let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning (void)) x withTransitionCoordinator -let visualStyleForAlertControllerStyle x ~traitCollection ~descriptor self = msg_send ~self ~cmd:(selector "visualStyleForAlertControllerStyle:traitCollection:descriptor:") ~typ:(llong @-> id @-> id @-> returning (id)) (LLong.of_int x) traitCollection descriptor -let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning (void)) x withTransitionCoordinator \ No newline at end of file +let actions self = msg_send ~self ~cmd:(selector "actions") ~typ:(returning id) +let addAction x self = msg_send ~self ~cmd:(selector "addAction:") ~typ:(id @-> returning void) x +let addTextFieldWithConfigurationHandler x self = msg_send ~self ~cmd:(selector "addTextFieldWithConfigurationHandler:") ~typ:((ptr void) @-> returning void) x +let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning bool) +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let cancelAction self = msg_send ~self ~cmd:(selector "cancelAction") ~typ:(returning id) +let contentViewController self = msg_send ~self ~cmd:(selector "contentViewController") ~typ:(returning id) +let coordinatedActionPerformingDelegate self = msg_send ~self ~cmd:(selector "coordinatedActionPerformingDelegate") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let dismissViewControllerWithTransition x ~completion self = msg_send ~self ~cmd:(selector "dismissViewControllerWithTransition:completion:") ~typ:(int @-> (ptr void) @-> returning void) x completion +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning bool) +let linkAlertController x self = msg_send ~self ~cmd:(selector "linkAlertController:") ~typ:(id @-> returning void) x +let linkedAlertControllers self = msg_send ~self ~cmd:(selector "linkedAlertControllers") ~typ:(returning id) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let message self = msg_send ~self ~cmd:(selector "message") ~typ:(returning id) +let performsViewControllerCommitTransitionForPreviewInteractionController x self = msg_send ~self ~cmd:(selector "performsViewControllerCommitTransitionForPreviewInteractionController:") ~typ:(id @-> returning bool) x +let preferredAction self = msg_send ~self ~cmd:(selector "preferredAction") ~typ:(returning id) +let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning void) x +let preferredStyle self = msg_send ~self ~cmd:(selector "preferredStyle") ~typ:(returning llong) +let previewInteractionController x ~performCommitForPreviewViewController ~committedViewController self = msg_send ~self ~cmd:(selector "previewInteractionController:performCommitForPreviewViewController:committedViewController:") ~typ:(id @-> id @-> id @-> returning void) x performCommitForPreviewViewController committedViewController +let previewInteractionController1 x ~viewControllerForPreviewingAtPosition ~inView ~presentingViewController self = msg_send ~self ~cmd:(selector "previewInteractionController:viewControllerForPreviewingAtPosition:inView:presentingViewController:") ~typ:(id @-> CGPoint.t @-> id @-> (ptr id) @-> returning id) x viewControllerForPreviewingAtPosition inView presentingViewController +let previewInteractionController2 x ~willPresentViewController ~forPosition ~inSourceView self = msg_send ~self ~cmd:(selector "previewInteractionController:willPresentViewController:forPosition:inSourceView:") ~typ:(id @-> id @-> CGPoint.t @-> id @-> returning void) x willPresentViewController forPosition inSourceView +let setCancelAction x self = msg_send ~self ~cmd:(selector "setCancelAction:") ~typ:(id @-> returning void) x +let setContentViewController x self = msg_send ~self ~cmd:(selector "setContentViewController:") ~typ:(id @-> returning void) x +let setCoordinatedActionPerformingDelegate x self = msg_send ~self ~cmd:(selector "setCoordinatedActionPerformingDelegate:") ~typ:(id @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setMessage x self = msg_send ~self ~cmd:(selector "setMessage:") ~typ:(id @-> returning void) x +let setModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setModalPresentationStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPreferredAction x self = msg_send ~self ~cmd:(selector "setPreferredAction:") ~typ:(id @-> returning void) x +let setPreferredStyle x self = msg_send ~self ~cmd:(selector "setPreferredStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning void) x +let setTemporaryAnimationCoordinator x self = msg_send ~self ~cmd:(selector "setTemporaryAnimationCoordinator:") ~typ:(id @-> returning void) x +let setTextFieldsCanBecomeFirstResponder x self = msg_send ~self ~cmd:(selector "setTextFieldsCanBecomeFirstResponder:") ~typ:(bool @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let shouldAutorotate self = msg_send ~self ~cmd:(selector "shouldAutorotate") ~typ:(returning bool) +let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning ullong) +let targetHostWindow self = msg_send ~self ~cmd:(selector "targetHostWindow") ~typ:(returning id) +let temporaryAnimationCoordinator self = msg_send ~self ~cmd:(selector "temporaryAnimationCoordinator") ~typ:(returning id) +let textFields self = msg_send ~self ~cmd:(selector "textFields") ~typ:(returning id) +let touchBar self = msg_send ~self ~cmd:(selector "touchBar") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let unlinkAlertController x self = msg_send ~self ~cmd:(selector "unlinkAlertController:") ~typ:(id @-> returning void) x +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning void) +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let viewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "viewWillLayoutSubviews") ~typ:(returning void) +let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning void) x withTransitionCoordinator +let visualStyleForAlertControllerStyle x ~traitCollection ~descriptor self = msg_send ~self ~cmd:(selector "visualStyleForAlertControllerStyle:traitCollection:descriptor:") ~typ:(llong @-> id @-> id @-> returning id) (LLong.of_int x) traitCollection descriptor +let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning void) x withTransitionCoordinator \ No newline at end of file diff --git a/uikit/UIAlertControllerClass.ml b/uikit/UIAlertControllerClass.ml new file mode 100644 index 00000000..eedc72a6 --- /dev/null +++ b/uikit/UIAlertControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uialertcontroller?language=objc}UIAlertController} *) + +let alertControllerWithTitle x ~message ~preferredStyle self = msg_send ~self ~cmd:(selector "alertControllerWithTitle:message:preferredStyle:") ~typ:(id @-> id @-> llong @-> returning id) x message (LLong.of_int preferredStyle) \ No newline at end of file diff --git a/uikit/UIAlertControllerDescriptor.ml b/uikit/UIAlertControllerDescriptor.ml index ab64b7a9..30dfdba4 100644 --- a/uikit/UIAlertControllerDescriptor.ml +++ b/uikit/UIAlertControllerDescriptor.ml @@ -5,21 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAlertControllerDescriptor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uialertcontrollerdescriptor?language=objc}UIAlertControllerDescriptor} *) -let applicationIsFullscreen self = msg_send ~self ~cmd:(selector "applicationIsFullscreen") ~typ:(returning (bool)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let hasContentViewController self = msg_send ~self ~cmd:(selector "hasContentViewController") ~typ:(returning (bool)) -let hasHeaderContentViewController self = msg_send ~self ~cmd:(selector "hasHeaderContentViewController") ~typ:(returning (bool)) -let hasMessage self = msg_send ~self ~cmd:(selector "hasMessage") ~typ:(returning (bool)) -let hasTitle self = msg_send ~self ~cmd:(selector "hasTitle") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let numberOfActions self = msg_send ~self ~cmd:(selector "numberOfActions") ~typ:(returning (llong)) -let setApplicationIsFullscreen x self = msg_send ~self ~cmd:(selector "setApplicationIsFullscreen:") ~typ:(bool @-> returning (void)) x -let setContainerViewSafeAreaInsets x self = msg_send ~self ~cmd:(selector "setContainerViewSafeAreaInsets:") ~typ:(ptr void @-> returning (void)) x -let setHasContentViewController x self = msg_send ~self ~cmd:(selector "setHasContentViewController:") ~typ:(bool @-> returning (void)) x -let setHasHeaderContentViewController x self = msg_send ~self ~cmd:(selector "setHasHeaderContentViewController:") ~typ:(bool @-> returning (void)) x -let setHasMessage x self = msg_send ~self ~cmd:(selector "setHasMessage:") ~typ:(bool @-> returning (void)) x -let setHasTitle x self = msg_send ~self ~cmd:(selector "setHasTitle:") ~typ:(bool @-> returning (void)) x -let setNumberOfActions x self = msg_send ~self ~cmd:(selector "setNumberOfActions:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file +let self = get_class "UIAlertControllerDescriptor" + +let applicationIsFullscreen self = msg_send ~self ~cmd:(selector "applicationIsFullscreen") ~typ:(returning bool) +let containerViewSafeAreaInsets self = msg_send ~self ~cmd:(selector "containerViewSafeAreaInsets") ~typ:(returning UIEdgeInsets.t) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let hasContentViewController self = msg_send ~self ~cmd:(selector "hasContentViewController") ~typ:(returning bool) +let hasHeaderContentViewController self = msg_send ~self ~cmd:(selector "hasHeaderContentViewController") ~typ:(returning bool) +let hasMessage self = msg_send ~self ~cmd:(selector "hasMessage") ~typ:(returning bool) +let hasTitle self = msg_send ~self ~cmd:(selector "hasTitle") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let numberOfActions self = msg_send ~self ~cmd:(selector "numberOfActions") ~typ:(returning llong) +let setApplicationIsFullscreen x self = msg_send ~self ~cmd:(selector "setApplicationIsFullscreen:") ~typ:(bool @-> returning void) x +let setContainerViewSafeAreaInsets x self = msg_send ~self ~cmd:(selector "setContainerViewSafeAreaInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setHasContentViewController x self = msg_send ~self ~cmd:(selector "setHasContentViewController:") ~typ:(bool @-> returning void) x +let setHasHeaderContentViewController x self = msg_send ~self ~cmd:(selector "setHasHeaderContentViewController:") ~typ:(bool @-> returning void) x +let setHasMessage x self = msg_send ~self ~cmd:(selector "setHasMessage:") ~typ:(bool @-> returning void) x +let setHasTitle x self = msg_send ~self ~cmd:(selector "setHasTitle:") ~typ:(bool @-> returning void) x +let setNumberOfActions x self = msg_send ~self ~cmd:(selector "setNumberOfActions:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIAlertControllerVisualStyle.ml b/uikit/UIAlertControllerVisualStyle.ml deleted file mode 100644 index 99672ba9..00000000 --- a/uikit/UIAlertControllerVisualStyle.ml +++ /dev/null @@ -1,67 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIAlertControllerVisualStyle" - -module C = struct - let interfaceActionPresentationStyle self = msg_send ~self ~cmd:(selector "interfaceActionPresentationStyle") ~typ:(returning (llong)) - let positionContentsOfAlertController x ~alertContentView ~availableSpaceView ~visualStyle ~updatableConstraints self = msg_send ~self ~cmd:(selector "positionContentsOfAlertController:alertContentView:availableSpaceView:visualStyle:updatableConstraints:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (void)) x alertContentView availableSpaceView visualStyle updatableConstraints -end - -let actionWidthForMinimumActionWidth x self = msg_send ~self ~cmd:(selector "actionWidthForMinimumActionWidth:") ~typ:(double @-> returning (double)) x -let animateAlertControllerView x ~ofAlertController ~forPresentation ~inContainerView ~descendantOfContainerView ~duration ~completionBlock self = msg_send ~self ~cmd:(selector "animateAlertControllerView:ofAlertController:forPresentation:inContainerView:descendantOfContainerView:duration:completionBlock:") ~typ:(id @-> id @-> bool @-> id @-> id @-> double @-> ptr void @-> returning (void)) x ofAlertController forPresentation inContainerView descendantOfContainerView duration completionBlock -let animateRevealOfAlertControllerView x ~alertController ~inContainerView ~duration ~completionBlock self = msg_send ~self ~cmd:(selector "animateRevealOfAlertControllerView:alertController:inContainerView:duration:completionBlock:") ~typ:(id @-> id @-> id @-> double @-> ptr void @-> returning (void)) x alertController inContainerView duration completionBlock -let collectionViewOutsetSize self = msg_send_stret ~self ~cmd:(selector "collectionViewOutsetSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let configureAttributesForImageView x ~imageProperty ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForImageView:imageProperty:actionViewState:") ~typ:(id @-> id @-> id @-> returning (void)) x imageProperty actionViewState -let configureAttributesForTitleLabel x ~classificationLabel ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForTitleLabel:classificationLabel:actionViewState:") ~typ:(id @-> id @-> id @-> returning (void)) x classificationLabel actionViewState -let contentHorizontalMargin self = msg_send ~self ~cmd:(selector "contentHorizontalMargin") ~typ:(returning (double)) -let contentVerticalMargin self = msg_send ~self ~cmd:(selector "contentVerticalMargin") ~typ:(returning (double)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let defaultActionFont self = msg_send ~self ~cmd:(selector "defaultActionFont") ~typ:(returning (id)) -let descriptor self = msg_send ~self ~cmd:(selector "descriptor") ~typ:(returning (id)) -let dimmingViewForAlertController x self = msg_send ~self ~cmd:(selector "dimmingViewForAlertController:") ~typ:(id @-> returning (id)) x -let forcedInterfaceIdiom self = msg_send ~self ~cmd:(selector "forcedInterfaceIdiom") ~typ:(returning (llong)) -let hideCancelAction x ~inAlertController self = msg_send ~self ~cmd:(selector "hideCancelAction:inAlertController:") ~typ:(id @-> id @-> returning (bool)) x inAlertController -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let interactionProgressForTransitionOfType x ~forAlertController self = msg_send ~self ~cmd:(selector "interactionProgressForTransitionOfType:forAlertController:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) forAlertController -let interfaceActionVisualStyle self = msg_send ~self ~cmd:(selector "interfaceActionVisualStyle") ~typ:(returning (id)) -let interfaceActionVisualStyleClassForManagingConcreteVisualStyle self = msg_send ~self ~cmd:(selector "interfaceActionVisualStyleClassForManagingConcreteVisualStyle") ~typ:(returning (_Class)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let marginAboveMessageLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveMessageLabelFirstBaseline") ~typ:(returning (double)) -let marginAboveTitleLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveTitleLabelFirstBaseline") ~typ:(returning (double)) -let marginBelowLastLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowLastLabelLastBaseline") ~typ:(returning (double)) -let marginBelowMessageLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowMessageLabelLastBaseline") ~typ:(returning (double)) -let marginBelowTitleLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowTitleLabelLastBaseline") ~typ:(returning (double)) -let maximumHeightForDisplayOnScreen x self = msg_send ~self ~cmd:(selector "maximumHeightForDisplayOnScreen:") ~typ:(id @-> returning (double)) x -let maximumNumberOfLinesInMessageLabel self = msg_send ~self ~cmd:(selector "maximumNumberOfLinesInMessageLabel") ~typ:(returning (llong)) -let maximumNumberOfLinesInTitleLabel self = msg_send ~self ~cmd:(selector "maximumNumberOfLinesInTitleLabel") ~typ:(returning (llong)) -let maximumWidth self = msg_send ~self ~cmd:(selector "maximumWidth") ~typ:(returning (double)) -let maximumWidthForTitleAndMessageContentView self = msg_send ~self ~cmd:(selector "maximumWidthForTitleAndMessageContentView") ~typ:(returning (double)) -let messageLabelColor self = msg_send ~self ~cmd:(selector "messageLabelColor") ~typ:(returning (id)) -let messageLabelFont self = msg_send ~self ~cmd:(selector "messageLabelFont") ~typ:(returning (id)) -let minimumActionContentSize self = msg_send_stret ~self ~cmd:(selector "minimumActionContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let minimumWidth self = msg_send ~self ~cmd:(selector "minimumWidth") ~typ:(returning (double)) -let permittedActionLayoutDirection self = msg_send ~self ~cmd:(selector "permittedActionLayoutDirection") ~typ:(returning (llong)) -let placementAvoidsKeyboard self = msg_send ~self ~cmd:(selector "placementAvoidsKeyboard") ~typ:(returning (bool)) -let preferredActionFont self = msg_send ~self ~cmd:(selector "preferredActionFont") ~typ:(returning (id)) -let preferredActionForActions x ~suggestedPreferredAction self = msg_send ~self ~cmd:(selector "preferredActionForActions:suggestedPreferredAction:") ~typ:(id @-> id @-> returning (id)) x suggestedPreferredAction -let regularActionFont self = msg_send ~self ~cmd:(selector "regularActionFont") ~typ:(returning (id)) -let setDescriptor x self = msg_send ~self ~cmd:(selector "setDescriptor:") ~typ:(id @-> returning (void)) x -let setForcedInterfaceIdiom x self = msg_send ~self ~cmd:(selector "setForcedInterfaceIdiom:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTraitCollection x self = msg_send ~self ~cmd:(selector "setTraitCollection:") ~typ:(id @-> returning (void)) x -let shouldOccludeDuringPresentation self = msg_send ~self ~cmd:(selector "shouldOccludeDuringPresentation") ~typ:(returning (bool)) -let shouldPreserveRespondersAcrossWindows self = msg_send ~self ~cmd:(selector "shouldPreserveRespondersAcrossWindows") ~typ:(returning (bool)) -let textFieldContainingViewWithTextField x ~position self = msg_send ~self ~cmd:(selector "textFieldContainingViewWithTextField:position:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int position) -let textFieldHorizontalMargin self = msg_send ~self ~cmd:(selector "textFieldHorizontalMargin") ~typ:(returning (double)) -let tintColorForAlertController x self = msg_send ~self ~cmd:(selector "tintColorForAlertController:") ~typ:(id @-> returning (id)) x -let titleLabelColor self = msg_send ~self ~cmd:(selector "titleLabelColor") ~typ:(returning (id)) -let titleLabelFont self = msg_send ~self ~cmd:(selector "titleLabelFont") ~typ:(returning (id)) -let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning (id)) -let transitionDurationForPresentation x ~ofAlertController self = msg_send ~self ~cmd:(selector "transitionDurationForPresentation:ofAlertController:") ~typ:(bool @-> id @-> returning (double)) x ofAlertController -let transitionOfType x ~shouldBeInteractiveForAlertController self = msg_send ~self ~cmd:(selector "transitionOfType:shouldBeInteractiveForAlertController:") ~typ:(llong @-> id @-> returning (bool)) (LLong.of_int x) shouldBeInteractiveForAlertController -let vibrancyEffectForTitleAndMessageLabel self = msg_send ~self ~cmd:(selector "vibrancyEffectForTitleAndMessageLabel") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIAlertControllerVisualStyleActionSheet.ml b/uikit/UIAlertControllerVisualStyleActionSheet.ml deleted file mode 100644 index ee63130a..00000000 --- a/uikit/UIAlertControllerVisualStyleActionSheet.ml +++ /dev/null @@ -1,31 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIAlertControllerVisualStyleActionSheet" - -module C = struct - let interfaceActionPresentationStyle self = msg_send ~self ~cmd:(selector "interfaceActionPresentationStyle") ~typ:(returning (llong)) - let positionContentsOfAlertController x ~alertContentView ~availableSpaceView ~visualStyle ~updatableConstraints self = msg_send ~self ~cmd:(selector "positionContentsOfAlertController:alertContentView:availableSpaceView:visualStyle:updatableConstraints:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (void)) x alertContentView availableSpaceView visualStyle updatableConstraints -end - -let animateAlertControllerView x ~ofAlertController ~forPresentation ~inContainerView ~descendantOfContainerView ~duration ~completionBlock self = msg_send ~self ~cmd:(selector "animateAlertControllerView:ofAlertController:forPresentation:inContainerView:descendantOfContainerView:duration:completionBlock:") ~typ:(id @-> id @-> bool @-> id @-> id @-> double @-> ptr void @-> returning (void)) x ofAlertController forPresentation inContainerView descendantOfContainerView duration completionBlock -let hideCancelAction x ~inAlertController self = msg_send ~self ~cmd:(selector "hideCancelAction:inAlertController:") ~typ:(id @-> id @-> returning (bool)) x inAlertController -let marginAboveMessageLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveMessageLabelFirstBaseline") ~typ:(returning (double)) -let marginAboveTitleLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveTitleLabelFirstBaseline") ~typ:(returning (double)) -let marginBelowLastLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowLastLabelLastBaseline") ~typ:(returning (double)) -let marginBelowMessageLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowMessageLabelLastBaseline") ~typ:(returning (double)) -let marginBelowTitleLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowTitleLabelLastBaseline") ~typ:(returning (double)) -let maximumWidth self = msg_send ~self ~cmd:(selector "maximumWidth") ~typ:(returning (double)) -let messageLabelColor self = msg_send ~self ~cmd:(selector "messageLabelColor") ~typ:(returning (id)) -let messageLabelFont self = msg_send ~self ~cmd:(selector "messageLabelFont") ~typ:(returning (id)) -let permittedActionLayoutDirection self = msg_send ~self ~cmd:(selector "permittedActionLayoutDirection") ~typ:(returning (llong)) -let placementAvoidsKeyboard self = msg_send ~self ~cmd:(selector "placementAvoidsKeyboard") ~typ:(returning (bool)) -let titleLabelColor self = msg_send ~self ~cmd:(selector "titleLabelColor") ~typ:(returning (id)) -let titleLabelFont self = msg_send ~self ~cmd:(selector "titleLabelFont") ~typ:(returning (id)) -let transitionDurationForPresentation x ~ofAlertController self = msg_send ~self ~cmd:(selector "transitionDurationForPresentation:ofAlertController:") ~typ:(bool @-> id @-> returning (double)) x ofAlertController -let vibrancyEffectForTitleAndMessageLabel self = msg_send ~self ~cmd:(selector "vibrancyEffectForTitleAndMessageLabel") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIAlertControllerVisualStyleActionSheetCar.ml b/uikit/UIAlertControllerVisualStyleActionSheetCar.ml deleted file mode 100644 index e0ffcb6b..00000000 --- a/uikit/UIAlertControllerVisualStyleActionSheetCar.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIAlertControllerVisualStyleActionSheetCar" - -let marginAboveTitleLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveTitleLabelFirstBaseline") ~typ:(returning (double)) -let marginBelowLastLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowLastLabelLastBaseline") ~typ:(returning (double)) -let maximumNumberOfLinesInMessageLabel self = msg_send ~self ~cmd:(selector "maximumNumberOfLinesInMessageLabel") ~typ:(returning (llong)) -let maximumNumberOfLinesInTitleLabel self = msg_send ~self ~cmd:(selector "maximumNumberOfLinesInTitleLabel") ~typ:(returning (llong)) -let messageLabelColor self = msg_send ~self ~cmd:(selector "messageLabelColor") ~typ:(returning (id)) -let messageLabelFont self = msg_send ~self ~cmd:(selector "messageLabelFont") ~typ:(returning (id)) -let permittedActionLayoutDirection self = msg_send ~self ~cmd:(selector "permittedActionLayoutDirection") ~typ:(returning (llong)) -let placementAvoidsKeyboard self = msg_send ~self ~cmd:(selector "placementAvoidsKeyboard") ~typ:(returning (bool)) -let titleLabelColor self = msg_send ~self ~cmd:(selector "titleLabelColor") ~typ:(returning (id)) -let titleLabelFont self = msg_send ~self ~cmd:(selector "titleLabelFont") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIAlertControllerVisualStyleActionSheetInline.ml b/uikit/UIAlertControllerVisualStyleActionSheetInline.ml deleted file mode 100644 index a819b7a9..00000000 --- a/uikit/UIAlertControllerVisualStyleActionSheetInline.ml +++ /dev/null @@ -1,38 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIAlertControllerVisualStyleActionSheetInline" - -module C = struct - let interfaceActionPresentationStyle self = msg_send ~self ~cmd:(selector "interfaceActionPresentationStyle") ~typ:(returning (llong)) - let positionContentsOfAlertController x ~alertContentView ~availableSpaceView ~visualStyle ~updatableConstraints self = msg_send ~self ~cmd:(selector "positionContentsOfAlertController:alertContentView:availableSpaceView:visualStyle:updatableConstraints:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (void)) x alertContentView availableSpaceView visualStyle updatableConstraints -end - -let actionsReversed self = msg_send ~self ~cmd:(selector "actionsReversed") ~typ:(returning (bool)) -let animateAlertControllerView x ~ofAlertController ~forPresentation ~inContainerView ~descendantOfContainerView ~duration ~completionBlock self = msg_send ~self ~cmd:(selector "animateAlertControllerView:ofAlertController:forPresentation:inContainerView:descendantOfContainerView:duration:completionBlock:") ~typ:(id @-> id @-> bool @-> id @-> id @-> double @-> ptr void @-> returning (void)) x ofAlertController forPresentation inContainerView descendantOfContainerView duration completionBlock -let animateRevealOfAlertControllerView x ~alertController ~inContainerView ~duration ~completionBlock self = msg_send ~self ~cmd:(selector "animateRevealOfAlertControllerView:alertController:inContainerView:duration:completionBlock:") ~typ:(id @-> id @-> id @-> double @-> ptr void @-> returning (void)) x alertController inContainerView duration completionBlock -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dimmingViewForAlertController x self = msg_send ~self ~cmd:(selector "dimmingViewForAlertController:") ~typ:(id @-> returning (id)) x -let headerView self = msg_send ~self ~cmd:(selector "headerView") ~typ:(returning (id)) -let hideCancelAction x ~inAlertController self = msg_send ~self ~cmd:(selector "hideCancelAction:inAlertController:") ~typ:(id @-> id @-> returning (bool)) x inAlertController -let interactionProgressForTransitionOfType x ~forAlertController self = msg_send ~self ~cmd:(selector "interactionProgressForTransitionOfType:forAlertController:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) forAlertController -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let minimumWidth self = msg_send ~self ~cmd:(selector "minimumWidth") ~typ:(returning (double)) -let permittedActionLayoutDirection self = msg_send ~self ~cmd:(selector "permittedActionLayoutDirection") ~typ:(returning (llong)) -let placementAvoidsKeyboard self = msg_send ~self ~cmd:(selector "placementAvoidsKeyboard") ~typ:(returning (bool)) -let revealEffectView self = msg_send ~self ~cmd:(selector "revealEffectView") ~typ:(returning (id)) -let setActionsReversed x self = msg_send ~self ~cmd:(selector "setActionsReversed:") ~typ:(bool @-> returning (void)) x -let setHeaderView x self = msg_send ~self ~cmd:(selector "setHeaderView:") ~typ:(id @-> returning (void)) x -let setRevealEffectView x self = msg_send ~self ~cmd:(selector "setRevealEffectView:") ~typ:(id @-> returning (void)) x -let setSourceViewSnapshot x self = msg_send ~self ~cmd:(selector "setSourceViewSnapshot:") ~typ:(id @-> returning (void)) x -let shouldOccludeDuringPresentation self = msg_send ~self ~cmd:(selector "shouldOccludeDuringPresentation") ~typ:(returning (bool)) -let shouldPreserveRespondersAcrossWindows self = msg_send ~self ~cmd:(selector "shouldPreserveRespondersAcrossWindows") ~typ:(returning (bool)) -let sourceViewSnapshot self = msg_send ~self ~cmd:(selector "sourceViewSnapshot") ~typ:(returning (id)) -let tintColorForAlertController x self = msg_send ~self ~cmd:(selector "tintColorForAlertController:") ~typ:(id @-> returning (id)) x -let transitionDurationForPresentation x ~ofAlertController self = msg_send ~self ~cmd:(selector "transitionDurationForPresentation:ofAlertController:") ~typ:(bool @-> id @-> returning (double)) x ofAlertController -let transitionOfType x ~shouldBeInteractiveForAlertController self = msg_send ~self ~cmd:(selector "transitionOfType:shouldBeInteractiveForAlertController:") ~typ:(llong @-> id @-> returning (bool)) (LLong.of_int x) shouldBeInteractiveForAlertController \ No newline at end of file diff --git a/uikit/UIAlertControllerVisualStyleAlert.ml b/uikit/UIAlertControllerVisualStyleAlert.ml deleted file mode 100644 index 1f457d62..00000000 --- a/uikit/UIAlertControllerVisualStyleAlert.ml +++ /dev/null @@ -1,26 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIAlertControllerVisualStyleAlert" - -let animateAlertControllerView x ~ofAlertController ~forPresentation ~inContainerView ~descendantOfContainerView ~duration ~completionBlock self = msg_send ~self ~cmd:(selector "animateAlertControllerView:ofAlertController:forPresentation:inContainerView:descendantOfContainerView:duration:completionBlock:") ~typ:(id @-> id @-> bool @-> id @-> id @-> double @-> ptr void @-> returning (void)) x ofAlertController forPresentation inContainerView descendantOfContainerView duration completionBlock -let marginAboveMessageLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveMessageLabelFirstBaseline") ~typ:(returning (double)) -let marginAboveTitleLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveTitleLabelFirstBaseline") ~typ:(returning (double)) -let marginBelowLastLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowLastLabelLastBaseline") ~typ:(returning (double)) -let marginBelowMessageLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowMessageLabelLastBaseline") ~typ:(returning (double)) -let marginBelowTitleLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowTitleLabelLastBaseline") ~typ:(returning (double)) -let maximumWidth self = msg_send ~self ~cmd:(selector "maximumWidth") ~typ:(returning (double)) -let messageLabelColor self = msg_send ~self ~cmd:(selector "messageLabelColor") ~typ:(returning (id)) -let messageLabelFont self = msg_send ~self ~cmd:(selector "messageLabelFont") ~typ:(returning (id)) -let permittedActionLayoutDirection self = msg_send ~self ~cmd:(selector "permittedActionLayoutDirection") ~typ:(returning (llong)) -let placementAvoidsKeyboard self = msg_send ~self ~cmd:(selector "placementAvoidsKeyboard") ~typ:(returning (bool)) -let textFieldContainingViewWithTextField x ~position self = msg_send ~self ~cmd:(selector "textFieldContainingViewWithTextField:position:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int position) -let textFieldHorizontalMargin self = msg_send ~self ~cmd:(selector "textFieldHorizontalMargin") ~typ:(returning (double)) -let titleLabelColor self = msg_send ~self ~cmd:(selector "titleLabelColor") ~typ:(returning (id)) -let titleLabelFont self = msg_send ~self ~cmd:(selector "titleLabelFont") ~typ:(returning (id)) -let transitionDurationForPresentation x ~ofAlertController self = msg_send ~self ~cmd:(selector "transitionDurationForPresentation:ofAlertController:") ~typ:(bool @-> id @-> returning (double)) x ofAlertController \ No newline at end of file diff --git a/uikit/UIAlertControllerVisualStyleAlertCar.ml b/uikit/UIAlertControllerVisualStyleAlertCar.ml deleted file mode 100644 index 0335927f..00000000 --- a/uikit/UIAlertControllerVisualStyleAlertCar.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIAlertControllerVisualStyleAlertCar" - -let marginAboveTitleLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveTitleLabelFirstBaseline") ~typ:(returning (double)) -let marginBelowLastLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowLastLabelLastBaseline") ~typ:(returning (double)) -let marginBelowMessageLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowMessageLabelLastBaseline") ~typ:(returning (double)) -let maximumNumberOfLinesInMessageLabel self = msg_send ~self ~cmd:(selector "maximumNumberOfLinesInMessageLabel") ~typ:(returning (llong)) -let maximumNumberOfLinesInTitleLabel self = msg_send ~self ~cmd:(selector "maximumNumberOfLinesInTitleLabel") ~typ:(returning (llong)) -let maximumWidth self = msg_send ~self ~cmd:(selector "maximumWidth") ~typ:(returning (double)) -let messageLabelColor self = msg_send ~self ~cmd:(selector "messageLabelColor") ~typ:(returning (id)) -let messageLabelFont self = msg_send ~self ~cmd:(selector "messageLabelFont") ~typ:(returning (id)) -let placementAvoidsKeyboard self = msg_send ~self ~cmd:(selector "placementAvoidsKeyboard") ~typ:(returning (bool)) -let titleLabelColor self = msg_send ~self ~cmd:(selector "titleLabelColor") ~typ:(returning (id)) -let titleLabelFont self = msg_send ~self ~cmd:(selector "titleLabelFont") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIAlertControllerVisualStyleAlertTV.ml b/uikit/UIAlertControllerVisualStyleAlertTV.ml deleted file mode 100644 index 7963a491..00000000 --- a/uikit/UIAlertControllerVisualStyleAlertTV.ml +++ /dev/null @@ -1,33 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIAlertControllerVisualStyleAlertTV" - -let actionWidthForMinimumActionWidth x self = msg_send ~self ~cmd:(selector "actionWidthForMinimumActionWidth:") ~typ:(double @-> returning (double)) x -let animateAlertControllerView x ~ofAlertController ~forPresentation ~inContainerView ~descendantOfContainerView ~duration ~completionBlock self = msg_send ~self ~cmd:(selector "animateAlertControllerView:ofAlertController:forPresentation:inContainerView:descendantOfContainerView:duration:completionBlock:") ~typ:(id @-> id @-> bool @-> id @-> id @-> double @-> ptr void @-> returning (void)) x ofAlertController forPresentation inContainerView descendantOfContainerView duration completionBlock -let dimmingViewForAlertController x self = msg_send ~self ~cmd:(selector "dimmingViewForAlertController:") ~typ:(id @-> returning (id)) x -let hideCancelAction x ~inAlertController self = msg_send ~self ~cmd:(selector "hideCancelAction:inAlertController:") ~typ:(id @-> id @-> returning (bool)) x inAlertController -let marginAboveMessageLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveMessageLabelFirstBaseline") ~typ:(returning (double)) -let marginAboveTitleLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveTitleLabelFirstBaseline") ~typ:(returning (double)) -let marginBelowLastLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowLastLabelLastBaseline") ~typ:(returning (double)) -let marginBelowMessageLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowMessageLabelLastBaseline") ~typ:(returning (double)) -let marginBelowTitleLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowTitleLabelLastBaseline") ~typ:(returning (double)) -let maximumNumberOfLinesInMessageLabel self = msg_send ~self ~cmd:(selector "maximumNumberOfLinesInMessageLabel") ~typ:(returning (llong)) -let maximumNumberOfLinesInTitleLabel self = msg_send ~self ~cmd:(selector "maximumNumberOfLinesInTitleLabel") ~typ:(returning (llong)) -let maximumWidth self = msg_send ~self ~cmd:(selector "maximumWidth") ~typ:(returning (double)) -let maximumWidthForTitleAndMessageContentView self = msg_send ~self ~cmd:(selector "maximumWidthForTitleAndMessageContentView") ~typ:(returning (double)) -let messageLabelColor self = msg_send ~self ~cmd:(selector "messageLabelColor") ~typ:(returning (id)) -let messageLabelFont self = msg_send ~self ~cmd:(selector "messageLabelFont") ~typ:(returning (id)) -let permittedActionLayoutDirection self = msg_send ~self ~cmd:(selector "permittedActionLayoutDirection") ~typ:(returning (llong)) -let placementAvoidsKeyboard self = msg_send ~self ~cmd:(selector "placementAvoidsKeyboard") ~typ:(returning (bool)) -let preferredActionForActions x ~suggestedPreferredAction self = msg_send ~self ~cmd:(selector "preferredActionForActions:suggestedPreferredAction:") ~typ:(id @-> id @-> returning (id)) x suggestedPreferredAction -let textFieldContainingViewWithTextField x ~position self = msg_send ~self ~cmd:(selector "textFieldContainingViewWithTextField:position:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int position) -let textFieldHorizontalMargin self = msg_send ~self ~cmd:(selector "textFieldHorizontalMargin") ~typ:(returning (double)) -let titleLabelColor self = msg_send ~self ~cmd:(selector "titleLabelColor") ~typ:(returning (id)) -let titleLabelFont self = msg_send ~self ~cmd:(selector "titleLabelFont") ~typ:(returning (id)) -let transitionDurationForPresentation x ~ofAlertController self = msg_send ~self ~cmd:(selector "transitionDurationForPresentation:ofAlertController:") ~typ:(bool @-> id @-> returning (double)) x ofAlertController \ No newline at end of file diff --git a/uikit/UIAlertView.ml b/uikit/UIAlertView.ml index 26191b59..bf8eca2a 100644 --- a/uikit/UIAlertView.ml +++ b/uikit/UIAlertView.ml @@ -5,58 +5,62 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAlertView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uialertview?language=objc}UIAlertView} *) -let addButtonWithTitle x self = msg_send ~self ~cmd:(selector "addButtonWithTitle:") ~typ:(id @-> returning (llong)) x -let addButtonWithTitle1 x ~buttonClass self = msg_send ~self ~cmd:(selector "addButtonWithTitle:buttonClass:") ~typ:(id @-> _Class @-> returning (id)) x buttonClass -let addButtonWithTitle2 x ~label self = msg_send ~self ~cmd:(selector "addButtonWithTitle:label:") ~typ:(id @-> id @-> returning (id)) x label -let addTextFieldWithValue x ~label self = msg_send ~self ~cmd:(selector "addTextFieldWithValue:label:") ~typ:(id @-> id @-> returning (id)) x label -let alertViewStyle self = msg_send ~self ~cmd:(selector "alertViewStyle") ~typ:(returning (llong)) -let backgroundSize self = msg_send_stret ~self ~cmd:(selector "backgroundSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let bodyText self = msg_send ~self ~cmd:(selector "bodyText") ~typ:(returning (id)) -let buttonCount self = msg_send ~self ~cmd:(selector "buttonCount") ~typ:(returning (int)) -let buttonTitleAtIndex x self = msg_send ~self ~cmd:(selector "buttonTitleAtIndex:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let cancelButtonIndex self = msg_send ~self ~cmd:(selector "cancelButtonIndex") ~typ:(returning (llong)) -let context self = msg_send ~self ~cmd:(selector "context") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultButtonIndex self = msg_send ~self ~cmd:(selector "defaultButtonIndex") ~typ:(returning (llong)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let dismiss self = msg_send ~self ~cmd:(selector "dismiss") ~typ:(returning (void)) -let dismissAnimated x self = msg_send ~self ~cmd:(selector "dismissAnimated:") ~typ:(bool @-> returning (void)) x -let dismissWithClickedButtonIndex x ~animated self = msg_send ~self ~cmd:(selector "dismissWithClickedButtonIndex:animated:") ~typ:(llong @-> bool @-> returning (void)) (LLong.of_int x) animated -let firstOtherButtonIndex self = msg_send ~self ~cmd:(selector "firstOtherButtonIndex") ~typ:(returning (llong)) -let groupsTextFields self = msg_send ~self ~cmd:(selector "groupsTextFields") ~typ:(returning (bool)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithTitle x ~message ~delegate ~cancelButtonTitle self = msg_send ~self ~cmd:(selector "initWithTitle:message:delegate:cancelButtonTitle:") ~typ:(id @-> id @-> id @-> id @-> returning (id)) x message delegate cancelButtonTitle -let initWithTitle1 x ~buttons ~defaultButtonIndex ~delegate ~context self = msg_send ~self ~cmd:(selector "initWithTitle:buttons:defaultButtonIndex:delegate:context:") ~typ:(id @-> id @-> int @-> id @-> id @-> returning (id)) x buttons defaultButtonIndex delegate context -let initWithTitle2 x ~message ~delegate ~cancelButtonTitle ~otherButtonTitles self = msg_send ~self ~cmd:(selector "initWithTitle:message:delegate:cancelButtonTitle:otherButtonTitles:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (id)) x message delegate cancelButtonTitle otherButtonTitles -let initWithTitle3 x ~message ~delegate ~defaultButton ~cancelButton ~otherButtons self = msg_send ~self ~cmd:(selector "initWithTitle:message:delegate:defaultButton:cancelButton:otherButtons:") ~typ:(id @-> id @-> id @-> id @-> id @-> id @-> returning (id)) x message delegate defaultButton cancelButton otherButtons -let isVisible self = msg_send ~self ~cmd:(selector "isVisible") ~typ:(returning (bool)) -let keyboard self = msg_send ~self ~cmd:(selector "keyboard") ~typ:(returning (id)) -let layout self = msg_send ~self ~cmd:(selector "layout") ~typ:(returning (void)) -let message self = msg_send ~self ~cmd:(selector "message") ~typ:(returning (id)) -let numberOfButtons self = msg_send ~self ~cmd:(selector "numberOfButtons") ~typ:(returning (llong)) -let numberOfRows self = msg_send ~self ~cmd:(selector "numberOfRows") ~typ:(returning (llong)) -let setAlertViewStyle x self = msg_send ~self ~cmd:(selector "setAlertViewStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBodyText x self = msg_send ~self ~cmd:(selector "setBodyText:") ~typ:(id @-> returning (void)) x -let setCancelButtonIndex x self = msg_send ~self ~cmd:(selector "setCancelButtonIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContext x self = msg_send ~self ~cmd:(selector "setContext:") ~typ:(id @-> returning (void)) x -let setDefaultButtonIndex x self = msg_send ~self ~cmd:(selector "setDefaultButtonIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setGroupsTextFields x self = msg_send ~self ~cmd:(selector "setGroupsTextFields:") ~typ:(bool @-> returning (void)) x -let setMessage x self = msg_send ~self ~cmd:(selector "setMessage:") ~typ:(id @-> returning (void)) x -let setNumberOfRows x self = msg_send ~self ~cmd:(selector "setNumberOfRows:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSubtitle x self = msg_send ~self ~cmd:(selector "setSubtitle:") ~typ:(id @-> returning (void)) x -let setTableShouldShowMinimumContent x self = msg_send ~self ~cmd:(selector "setTableShouldShowMinimumContent:") ~typ:(bool @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let show self = msg_send ~self ~cmd:(selector "show") ~typ:(returning (void)) -let subtitle self = msg_send ~self ~cmd:(selector "subtitle") ~typ:(returning (id)) -let tableView self = msg_send ~self ~cmd:(selector "tableView") ~typ:(returning (id)) -let textField self = msg_send ~self ~cmd:(selector "textField") ~typ:(returning (id)) -let textFieldAtIndex x self = msg_send ~self ~cmd:(selector "textFieldAtIndex:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let textFieldCount self = msg_send ~self ~cmd:(selector "textFieldCount") ~typ:(returning (int)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let titleLabel self = msg_send ~self ~cmd:(selector "titleLabel") ~typ:(returning (id)) -let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIAlertView" + +let addButtonWithTitle x self = msg_send ~self ~cmd:(selector "addButtonWithTitle:") ~typ:(id @-> returning llong) x +let addButtonWithTitle1 x ~buttonClass self = msg_send ~self ~cmd:(selector "addButtonWithTitle:buttonClass:") ~typ:(id @-> _Class @-> returning id) x buttonClass +let addButtonWithTitle2 x ~label self = msg_send ~self ~cmd:(selector "addButtonWithTitle:label:") ~typ:(id @-> id @-> returning id) x label +let addTextFieldWithValue x ~label self = msg_send ~self ~cmd:(selector "addTextFieldWithValue:label:") ~typ:(id @-> id @-> returning id) x label +let alertViewStyle self = msg_send ~self ~cmd:(selector "alertViewStyle") ~typ:(returning llong) +let backgroundSize self = msg_send ~self ~cmd:(selector "backgroundSize") ~typ:(returning CGSize.t) +let bodyText self = msg_send ~self ~cmd:(selector "bodyText") ~typ:(returning id) +let buttonCount self = msg_send ~self ~cmd:(selector "buttonCount") ~typ:(returning int) +let buttonTitleAtIndex x self = msg_send ~self ~cmd:(selector "buttonTitleAtIndex:") ~typ:(llong @-> returning id) (LLong.of_int x) +let cancelButtonIndex self = msg_send ~self ~cmd:(selector "cancelButtonIndex") ~typ:(returning llong) +let context self = msg_send ~self ~cmd:(selector "context") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultButtonIndex self = msg_send ~self ~cmd:(selector "defaultButtonIndex") ~typ:(returning llong) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let dismiss self = msg_send ~self ~cmd:(selector "dismiss") ~typ:(returning void) +let dismissAnimated x self = msg_send ~self ~cmd:(selector "dismissAnimated:") ~typ:(bool @-> returning void) x +let dismissWithClickedButtonIndex x ~animated self = msg_send ~self ~cmd:(selector "dismissWithClickedButtonIndex:animated:") ~typ:(llong @-> bool @-> returning void) (LLong.of_int x) animated +let firstOtherButtonIndex self = msg_send ~self ~cmd:(selector "firstOtherButtonIndex") ~typ:(returning llong) +let groupsTextFields self = msg_send ~self ~cmd:(selector "groupsTextFields") ~typ:(returning bool) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithTitle x ~message ~delegate ~cancelButtonTitle self = msg_send ~self ~cmd:(selector "initWithTitle:message:delegate:cancelButtonTitle:") ~typ:(id @-> id @-> id @-> id @-> returning id) x message delegate cancelButtonTitle +let initWithTitle1 x ~buttons ~defaultButtonIndex ~delegate ~context self = msg_send ~self ~cmd:(selector "initWithTitle:buttons:defaultButtonIndex:delegate:context:") ~typ:(id @-> id @-> int @-> id @-> id @-> returning id) x buttons defaultButtonIndex delegate context +let initWithTitle2 x ~message ~delegate ~cancelButtonTitle ~otherButtonTitles self = msg_send ~self ~cmd:(selector "initWithTitle:message:delegate:cancelButtonTitle:otherButtonTitles:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning id) x message delegate cancelButtonTitle otherButtonTitles +let initWithTitle3 x ~message ~delegate ~defaultButton ~cancelButton ~otherButtons self = msg_send ~self ~cmd:(selector "initWithTitle:message:delegate:defaultButton:cancelButton:otherButtons:") ~typ:(id @-> id @-> id @-> id @-> id @-> id @-> returning id) x message delegate defaultButton cancelButton otherButtons +let isVisible self = msg_send ~self ~cmd:(selector "isVisible") ~typ:(returning bool) +let keyboard self = msg_send ~self ~cmd:(selector "keyboard") ~typ:(returning id) +let layout self = msg_send ~self ~cmd:(selector "layout") ~typ:(returning void) +let message self = msg_send ~self ~cmd:(selector "message") ~typ:(returning id) +let numberOfButtons self = msg_send ~self ~cmd:(selector "numberOfButtons") ~typ:(returning llong) +let numberOfRows self = msg_send ~self ~cmd:(selector "numberOfRows") ~typ:(returning llong) +let setAlertViewStyle x self = msg_send ~self ~cmd:(selector "setAlertViewStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBodyText x self = msg_send ~self ~cmd:(selector "setBodyText:") ~typ:(id @-> returning void) x +let setCancelButtonIndex x self = msg_send ~self ~cmd:(selector "setCancelButtonIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContext x self = msg_send ~self ~cmd:(selector "setContext:") ~typ:(id @-> returning void) x +let setDefaultButtonIndex x self = msg_send ~self ~cmd:(selector "setDefaultButtonIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setGroupsTextFields x self = msg_send ~self ~cmd:(selector "setGroupsTextFields:") ~typ:(bool @-> returning void) x +let setMessage x self = msg_send ~self ~cmd:(selector "setMessage:") ~typ:(id @-> returning void) x +let setNumberOfRows x self = msg_send ~self ~cmd:(selector "setNumberOfRows:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSubtitle x self = msg_send ~self ~cmd:(selector "setSubtitle:") ~typ:(id @-> returning void) x +let setTableShouldShowMinimumContent x self = msg_send ~self ~cmd:(selector "setTableShouldShowMinimumContent:") ~typ:(bool @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let show self = msg_send ~self ~cmd:(selector "show") ~typ:(returning void) +let subtitle self = msg_send ~self ~cmd:(selector "subtitle") ~typ:(returning id) +let tableView self = msg_send ~self ~cmd:(selector "tableView") ~typ:(returning id) +let textField self = msg_send ~self ~cmd:(selector "textField") ~typ:(returning id) +let textFieldAtIndex x self = msg_send ~self ~cmd:(selector "textFieldAtIndex:") ~typ:(llong @-> returning id) (LLong.of_int x) +let textFieldCount self = msg_send ~self ~cmd:(selector "textFieldCount") ~typ:(returning int) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let titleLabel self = msg_send ~self ~cmd:(selector "titleLabel") ~typ:(returning id) +let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIAlertVisualStyleUpdatableConstraints.ml b/uikit/UIAlertVisualStyleUpdatableConstraints.ml index fa09539b..1cf09ccf 100644 --- a/uikit/UIAlertVisualStyleUpdatableConstraints.ml +++ b/uikit/UIAlertVisualStyleUpdatableConstraints.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAlertVisualStyleUpdatableConstraints" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uialertvisualstyleupdatableconstraints?language=objc}UIAlertVisualStyleUpdatableConstraints} *) -let addConstraint x ~forKey self = msg_send ~self ~cmd:(selector "addConstraint:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let constraintForKey x self = msg_send ~self ~cmd:(selector "constraintForKey:") ~typ:(id @-> returning (id)) x -let hasUpdatableConstraints self = msg_send ~self ~cmd:(selector "hasUpdatableConstraints") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIAlertVisualStyleUpdatableConstraints" + +let addConstraint x ~forKey self = msg_send ~self ~cmd:(selector "addConstraint:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let constraintForKey x self = msg_send ~self ~cmd:(selector "constraintForKey:") ~typ:(id @-> returning id) x +let hasUpdatableConstraints self = msg_send ~self ~cmd:(selector "hasUpdatableConstraints") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIAnimatableProperty.ml b/uikit/UIAnimatableProperty.ml index d0c4576b..6225d38e 100644 --- a/uikit/UIAnimatableProperty.ml +++ b/uikit/UIAnimatableProperty.ml @@ -5,33 +5,35 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAnimatableProperty" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uianimatableproperty?language=objc}UIAnimatableProperty} *) -let animatePropertyWithCurrentValue x ~targetValue ~preTickShouldRemoveCallback ~newValueCallback ~removedCallback self = msg_send ~self ~cmd:(selector "animatePropertyWithCurrentValue:targetValue:preTickShouldRemoveCallback:newValueCallback:removedCallback:") ~typ:(id @-> id @-> ptr void @-> ptr void @-> ptr void @-> returning (bool)) x targetValue preTickShouldRemoveCallback newValueCallback removedCallback -let animationEntry self = msg_send ~self ~cmd:(selector "animationEntry") ~typ:(returning (id)) -let animationState self = msg_send ~self ~cmd:(selector "animationState") ~typ:(returning (id)) -let composer self = msg_send ~self ~cmd:(selector "composer") ~typ:(returning (id)) -let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning (id)) -let initWithInvalidationCallback x self = msg_send ~self ~cmd:(selector "initWithInvalidationCallback:") ~typ:(ptr void @-> returning (id)) x -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let invalidateAndStopImmediately x self = msg_send ~self ~cmd:(selector "invalidateAndStopImmediately:") ~typ:(bool @-> returning (void)) x -let invalidateIfPossible self = msg_send ~self ~cmd:(selector "invalidateIfPossible") ~typ:(returning (void)) +let self = get_class "UIAnimatableProperty" + +let animatePropertyWithCurrentValue x ~targetValue ~preTickShouldRemoveCallback ~newValueCallback ~removedCallback self = msg_send ~self ~cmd:(selector "animatePropertyWithCurrentValue:targetValue:preTickShouldRemoveCallback:newValueCallback:removedCallback:") ~typ:(id @-> id @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> returning bool) x targetValue preTickShouldRemoveCallback newValueCallback removedCallback +let animationEntry self = msg_send ~self ~cmd:(selector "animationEntry") ~typ:(returning id) +let animationState self = msg_send ~self ~cmd:(selector "animationState") ~typ:(returning id) +let composer self = msg_send ~self ~cmd:(selector "composer") ~typ:(returning id) +let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning id) +let initWithInvalidationCallback x self = msg_send ~self ~cmd:(selector "initWithInvalidationCallback:") ~typ:((ptr void) @-> returning id) x +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let invalidateAndStopImmediately x self = msg_send ~self ~cmd:(selector "invalidateAndStopImmediately:") ~typ:(bool @-> returning void) x +let invalidateIfPossible self = msg_send ~self ~cmd:(selector "invalidateIfPossible") ~typ:(returning void) let invalidationCallback self = msg_send ~self ~cmd:(selector "invalidationCallback") ~typ:(returning (ptr void)) -let isInvalidated self = msg_send ~self ~cmd:(selector "isInvalidated") ~typ:(returning (bool)) -let ownershipCount self = msg_send ~self ~cmd:(selector "ownershipCount") ~typ:(returning (int)) -let presentationValue self = msg_send ~self ~cmd:(selector "presentationValue") ~typ:(returning (id)) -let setAnimationEntry x self = msg_send ~self ~cmd:(selector "setAnimationEntry:") ~typ:(id @-> returning (void)) x -let setAnimationState x self = msg_send ~self ~cmd:(selector "setAnimationState:") ~typ:(id @-> returning (void)) x -let setComposer x self = msg_send ~self ~cmd:(selector "setComposer:") ~typ:(id @-> returning (void)) x -let setInvalidationCallback x self = msg_send ~self ~cmd:(selector "setInvalidationCallback:") ~typ:(ptr void @-> returning (void)) x -let setOwnershipCount x self = msg_send ~self ~cmd:(selector "setOwnershipCount:") ~typ:(int @-> returning (void)) x -let setPresentationValue x self = msg_send ~self ~cmd:(selector "setPresentationValue:") ~typ:(id @-> returning (void)) x -let setTransformer x self = msg_send ~self ~cmd:(selector "setTransformer:") ~typ:(id @-> returning (void)) x -let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(id @-> returning (void)) x -let setVelocity x self = msg_send ~self ~cmd:(selector "setVelocity:") ~typ:(id @-> returning (void)) x -let setVelocity' x ~target self = msg_send ~self ~cmd:(selector "setVelocity:target:") ~typ:(id @-> bool @-> returning (void)) x target -let transformer self = msg_send ~self ~cmd:(selector "transformer") ~typ:(returning (id)) -let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning (id)) -let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning (id)) -let velocityTarget x self = msg_send ~self ~cmd:(selector "velocityTarget:") ~typ:(bool @-> returning (id)) x \ No newline at end of file +let isInvalidated self = msg_send ~self ~cmd:(selector "isInvalidated") ~typ:(returning bool) +let ownershipCount self = msg_send ~self ~cmd:(selector "ownershipCount") ~typ:(returning int) +let presentationValue self = msg_send ~self ~cmd:(selector "presentationValue") ~typ:(returning id) +let setAnimationEntry x self = msg_send ~self ~cmd:(selector "setAnimationEntry:") ~typ:(id @-> returning void) x +let setAnimationState x self = msg_send ~self ~cmd:(selector "setAnimationState:") ~typ:(id @-> returning void) x +let setComposer x self = msg_send ~self ~cmd:(selector "setComposer:") ~typ:(id @-> returning void) x +let setInvalidationCallback x self = msg_send ~self ~cmd:(selector "setInvalidationCallback:") ~typ:((ptr void) @-> returning void) x +let setOwnershipCount x self = msg_send ~self ~cmd:(selector "setOwnershipCount:") ~typ:(int @-> returning void) x +let setPresentationValue x self = msg_send ~self ~cmd:(selector "setPresentationValue:") ~typ:(id @-> returning void) x +let setTransformer x self = msg_send ~self ~cmd:(selector "setTransformer:") ~typ:(id @-> returning void) x +let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(id @-> returning void) x +let transformer self = msg_send ~self ~cmd:(selector "transformer") ~typ:(returning id) +let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning id) +let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning id) +let velocityTarget x self = msg_send ~self ~cmd:(selector "velocityTarget:") ~typ:(bool @-> returning id) x \ No newline at end of file diff --git a/uikit/UIAnimatablePropertyBase.ml b/uikit/UIAnimatablePropertyBase.ml index 56f8315f..49520383 100644 --- a/uikit/UIAnimatablePropertyBase.ml +++ b/uikit/UIAnimatablePropertyBase.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAnimatablePropertyBase" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uianimatablepropertybase?language=objc}UIAnimatablePropertyBase} *) -let setTransformer x self = msg_send ~self ~cmd:(selector "setTransformer:") ~typ:(id @-> returning (void)) x -let transformer self = msg_send ~self ~cmd:(selector "transformer") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIAnimatablePropertyBase" + +let setTransformer x self = msg_send ~self ~cmd:(selector "setTransformer:") ~typ:(id @-> returning void) x +let transformer self = msg_send ~self ~cmd:(selector "transformer") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIAnimation.ml b/uikit/UIAnimation.ml index fcc9e44d..fdc2ad05 100644 --- a/uikit/UIAnimation.ml +++ b/uikit/UIAnimation.ml @@ -5,26 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAnimation" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uianimation?language=objc}UIAnimation} *) -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (_SEL)) +let self = get_class "UIAnimation" + +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning _SEL) let completion self = msg_send ~self ~cmd:(selector "completion") ~typ:(returning (ptr void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let fractionForTime x self = msg_send ~self ~cmd:(selector "fractionForTime:") ~typ:(double @-> returning (float)) x -let initWithTarget x self = msg_send ~self ~cmd:(selector "initWithTarget:") ~typ:(id @-> returning (id)) x -let markStart x self = msg_send ~self ~cmd:(selector "markStart:") ~typ:(double @-> returning (void)) x -let markStop self = msg_send ~self ~cmd:(selector "markStop") ~typ:(returning (void)) -let progressForFraction x self = msg_send ~self ~cmd:(selector "progressForFraction:") ~typ:(float @-> returning (float)) x -let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(_SEL @-> returning (void)) x -let setAnimationCurve x self = msg_send ~self ~cmd:(selector "setAnimationCurve:") ~typ:(int @-> returning (void)) x -let setCompletion x self = msg_send ~self ~cmd:(selector "setCompletion:") ~typ:(ptr void @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDuration x self = msg_send ~self ~cmd:(selector "setDuration:") ~typ:(double @-> returning (void)) x -let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(float @-> returning (void)) x -let setUsesNSTimer x self = msg_send ~self ~cmd:(selector "setUsesNSTimer:") ~typ:(bool @-> returning (void)) x -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (int)) -let stopAnimation self = msg_send ~self ~cmd:(selector "stopAnimation") ~typ:(returning (void)) -let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning (id)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (int)) -let usesNSTimer self = msg_send ~self ~cmd:(selector "usesNSTimer") ~typ:(returning (bool)) \ No newline at end of file +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let fractionForTime x self = msg_send ~self ~cmd:(selector "fractionForTime:") ~typ:(double @-> returning float) x +let initWithTarget x self = msg_send ~self ~cmd:(selector "initWithTarget:") ~typ:(id @-> returning id) x +let markStart x self = msg_send ~self ~cmd:(selector "markStart:") ~typ:(double @-> returning void) x +let markStop self = msg_send ~self ~cmd:(selector "markStop") ~typ:(returning void) +let progressForFraction x self = msg_send ~self ~cmd:(selector "progressForFraction:") ~typ:(float @-> returning float) x +let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(_SEL @-> returning void) x +let setAnimationCurve x self = msg_send ~self ~cmd:(selector "setAnimationCurve:") ~typ:(int @-> returning void) x +let setCompletion x self = msg_send ~self ~cmd:(selector "setCompletion:") ~typ:((ptr void) @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDuration x self = msg_send ~self ~cmd:(selector "setDuration:") ~typ:(double @-> returning void) x +let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(float @-> returning void) x +let setUsesNSTimer x self = msg_send ~self ~cmd:(selector "setUsesNSTimer:") ~typ:(bool @-> returning void) x +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning int) +let stopAnimation self = msg_send ~self ~cmd:(selector "stopAnimation") ~typ:(returning void) +let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning id) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning int) +let usesNSTimer self = msg_send ~self ~cmd:(selector "usesNSTimer") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIAnimator.ml b/uikit/UIAnimator.ml index ab6f7a3e..91279882 100644 --- a/uikit/UIAnimator.ml +++ b/uikit/UIAnimator.ml @@ -5,19 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAnimator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uianimator?language=objc}UIAnimator} *) -module C = struct - let disableAnimation self = msg_send ~self ~cmd:(selector "disableAnimation") ~typ:(returning (void)) - let enableAnimation self = msg_send ~self ~cmd:(selector "enableAnimation") ~typ:(returning (void)) - let sharedAnimator self = msg_send ~self ~cmd:(selector "sharedAnimator") ~typ:(returning (id)) -end +let self = get_class "UIAnimator" -let addAnimation x ~withDuration ~start self = msg_send ~self ~cmd:(selector "addAnimation:withDuration:start:") ~typ:(id @-> double @-> bool @-> returning (void)) x withDuration start -let addAnimations x ~withDuration ~start self = msg_send ~self ~cmd:(selector "addAnimations:withDuration:start:") ~typ:(id @-> double @-> bool @-> returning (void)) x withDuration start -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let removeAnimationsForTarget x self = msg_send ~self ~cmd:(selector "removeAnimationsForTarget:") ~typ:(id @-> returning (void)) x -let removeAnimationsForTarget' x ~ofKind self = msg_send ~self ~cmd:(selector "removeAnimationsForTarget:ofKind:") ~typ:(id @-> _Class @-> returning (void)) x ofKind -let startAnimation x self = msg_send ~self ~cmd:(selector "startAnimation:") ~typ:(id @-> returning (void)) x -let stopAnimation x self = msg_send ~self ~cmd:(selector "stopAnimation:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let addAnimation x ~withDuration ~start self = msg_send ~self ~cmd:(selector "addAnimation:withDuration:start:") ~typ:(id @-> double @-> bool @-> returning void) x withDuration start +let addAnimations x ~withDuration ~start self = msg_send ~self ~cmd:(selector "addAnimations:withDuration:start:") ~typ:(id @-> double @-> bool @-> returning void) x withDuration start +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let removeAnimationsForTarget x self = msg_send ~self ~cmd:(selector "removeAnimationsForTarget:") ~typ:(id @-> returning void) x +let removeAnimationsForTarget' x ~ofKind self = msg_send ~self ~cmd:(selector "removeAnimationsForTarget:ofKind:") ~typ:(id @-> _Class @-> returning void) x ofKind +let startAnimation x self = msg_send ~self ~cmd:(selector "startAnimation:") ~typ:(id @-> returning void) x +let stopAnimation x self = msg_send ~self ~cmd:(selector "stopAnimation:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIAnimatorClass.ml b/uikit/UIAnimatorClass.ml new file mode 100644 index 00000000..11e1d775 --- /dev/null +++ b/uikit/UIAnimatorClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uianimator?language=objc}UIAnimator} *) + +let disableAnimation self = msg_send ~self ~cmd:(selector "disableAnimation") ~typ:(returning void) +let enableAnimation self = msg_send ~self ~cmd:(selector "enableAnimation") ~typ:(returning void) +let sharedAnimator self = msg_send ~self ~cmd:(selector "sharedAnimator") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIApplication.ml b/uikit/UIApplication.ml index 59808f49..a92a6145 100644 --- a/uikit/UIApplication.ml +++ b/uikit/UIApplication.ml @@ -5,355 +5,339 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIApplication" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplication?language=objc}UIApplication} *) -module C = struct - let displayIdentifier self = msg_send ~self ~cmd:(selector "displayIdentifier") ~typ:(returning (id)) - let displayManagerObserver self = msg_send ~self ~cmd:(selector "displayManagerObserver") ~typ:(returning (id)) - let interfaceOrientationForString x self = msg_send ~self ~cmd:(selector "interfaceOrientationForString:") ~typ:(id @-> returning (llong)) x - let isRunningEventPump self = msg_send ~self ~cmd:(selector "isRunningEventPump") ~typ:(returning (bool)) - let isRunningInStoreDemoMode self = msg_send ~self ~cmd:(selector "isRunningInStoreDemoMode") ~typ:(returning (bool)) - let registerAsSystemApp self = msg_send ~self ~cmd:(selector "registerAsSystemApp") ~typ:(returning (bool)) - let registerObjectForStateRestoration x ~restorationIdentifier self = msg_send ~self ~cmd:(selector "registerObjectForStateRestoration:restorationIdentifier:") ~typ:(id @-> id @-> returning (void)) x restorationIdentifier - let rendersLocally self = msg_send ~self ~cmd:(selector "rendersLocally") ~typ:(returning (bool)) - let runStatusBarServer self = msg_send ~self ~cmd:(selector "runStatusBarServer") ~typ:(returning (bool)) - let runningInStoreDemoModeFProgramNumber self = msg_send ~self ~cmd:(selector "runningInStoreDemoModeFProgramNumber") ~typ:(returning (llong)) - let sharedApplication self = msg_send ~self ~cmd:(selector "sharedApplication") ~typ:(returning (id)) - let shouldBackgroundMainThreadOnSuspendedLaunch self = msg_send ~self ~cmd:(selector "shouldBackgroundMainThreadOnSuspendedLaunch") ~typ:(returning (bool)) - let shouldMakeUIForDefaultPNG self = msg_send ~self ~cmd:(selector "shouldMakeUIForDefaultPNG") ~typ:(returning (bool)) - let statusBarStyleForString x self = msg_send ~self ~cmd:(selector "statusBarStyleForString:") ~typ:(id @-> returning (llong)) x - let stringForInterfaceOrientation x self = msg_send ~self ~cmd:(selector "stringForInterfaceOrientation:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let stringForStatusBarStyle x self = msg_send ~self ~cmd:(selector "stringForStatusBarStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let stringForStatusBarStyleOverrides x self = msg_send ~self ~cmd:(selector "stringForStatusBarStyleOverrides:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -end +let self = get_class "UIApplication" let _GSKeyboardForHWLayout x ~forceRebuild self = msg_send ~self ~cmd:(selector "GSKeyboardForHWLayout:forceRebuild:") ~typ:(id @-> bool @-> returning (ptr void)) x forceRebuild let _GSKeyboardForHWLayout1 x ~forceRebuild ~createIfNeeded self = msg_send ~self ~cmd:(selector "GSKeyboardForHWLayout:forceRebuild:createIfNeeded:") ~typ:(id @-> bool @-> bool @-> returning (ptr void)) x forceRebuild createIfNeeded let _GSKeyboardForHWLayout2 x ~senderID ~forceRebuild ~createIfNeeded self = msg_send ~self ~cmd:(selector "GSKeyboardForHWLayout:senderID:forceRebuild:createIfNeeded:") ~typ:(id @-> ullong @-> bool @-> bool @-> returning (ptr void)) x (ULLong.of_int senderID) forceRebuild createIfNeeded -let acceleratedInX x ~_Y ~_Z self = msg_send ~self ~cmd:(selector "acceleratedInX:Y:Z:") ~typ:(float @-> float @-> float @-> returning (void)) x _Y _Z -let accessoryKeyStateChanged x self = msg_send ~self ~cmd:(selector "accessoryKeyStateChanged:") ~typ:(ptr void @-> returning (void)) x -let activeInterfaceOrientation self = msg_send ~self ~cmd:(selector "activeInterfaceOrientation") ~typ:(returning (llong)) -let activityContinuationManager x ~configureProgressUIWithError self = msg_send ~self ~cmd:(selector "activityContinuationManager:configureProgressUIWithError:") ~typ:(id @-> id @-> returning (void)) x configureProgressUIWithError -let activityContinuationManager1 x ~continueUserActivity self = msg_send ~self ~cmd:(selector "activityContinuationManager:continueUserActivity:") ~typ:(id @-> id @-> returning (bool)) x continueUserActivity -let activityContinuationManager2 x ~didUpdateUserActivity self = msg_send ~self ~cmd:(selector "activityContinuationManager:didUpdateUserActivity:") ~typ:(id @-> id @-> returning (void)) x didUpdateUserActivity -let activityContinuationManager3 x ~hideProgressUIWithCompletion self = msg_send ~self ~cmd:(selector "activityContinuationManager:hideProgressUIWithCompletion:") ~typ:(id @-> ptr void @-> returning (void)) x hideProgressUIWithCompletion -let activityContinuationManager4 x ~willContinueUserActivityWithType self = msg_send ~self ~cmd:(selector "activityContinuationManager:willContinueUserActivityWithType:") ~typ:(id @-> id @-> returning (bool)) x willContinueUserActivityWithType -let activityContinuationManager5 x ~didFailToContinueUserActivityWithType ~error self = msg_send ~self ~cmd:(selector "activityContinuationManager:didFailToContinueUserActivityWithType:error:") ~typ:(id @-> id @-> id @-> returning (void)) x didFailToContinueUserActivityWithType error -let activityContinuationManager6 x ~displayProgressUI ~dismissalHandler self = msg_send ~self ~cmd:(selector "activityContinuationManager:displayProgressUI:dismissalHandler:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x displayProgressUI dismissalHandler -let activityContinuationManagerHandleErrorsByConfiguringProgressUI x self = msg_send ~self ~cmd:(selector "activityContinuationManagerHandleErrorsByConfiguringProgressUI:") ~typ:(id @-> returning (bool)) x -let activityContinuationManagerUserCancelledError x self = msg_send ~self ~cmd:(selector "activityContinuationManagerUserCancelledError:") ~typ:(id @-> returning (id)) x -let addStatusBarItem x self = msg_send ~self ~cmd:(selector "addStatusBarItem:") ~typ:(int @-> returning (void)) x -let addStatusBarItem' x ~removeOnExit self = msg_send ~self ~cmd:(selector "addStatusBarItem:removeOnExit:") ~typ:(int @-> bool @-> returning (void)) x removeOnExit -let addWebClipToHomeScreen x self = msg_send ~self ~cmd:(selector "addWebClipToHomeScreen:") ~typ:(id @-> returning (void)) x -let alertInterfaceOrientation self = msg_send ~self ~cmd:(selector "alertInterfaceOrientation") ~typ:(returning (llong)) -let alternateIconName self = msg_send ~self ~cmd:(selector "alternateIconName") ~typ:(returning (id)) -let applicationDidBeginSuspendAnimation self = msg_send ~self ~cmd:(selector "applicationDidBeginSuspendAnimation") ~typ:(returning (void)) -let applicationDidEndResumeAnimation self = msg_send ~self ~cmd:(selector "applicationDidEndResumeAnimation") ~typ:(returning (void)) -let applicationDidResume self = msg_send ~self ~cmd:(selector "applicationDidResume") ~typ:(returning (void)) -let applicationDidResumeForEventsOnly self = msg_send ~self ~cmd:(selector "applicationDidResumeForEventsOnly") ~typ:(returning (void)) -let applicationDidResumeFromUnderLock self = msg_send ~self ~cmd:(selector "applicationDidResumeFromUnderLock") ~typ:(returning (void)) -let applicationIconBadgeNumber self = msg_send ~self ~cmd:(selector "applicationIconBadgeNumber") ~typ:(returning (llong)) -let applicationOpenToShortCut x self = msg_send ~self ~cmd:(selector "applicationOpenToShortCut:") ~typ:(id @-> returning (void)) x -let applicationOpenURL x self = msg_send ~self ~cmd:(selector "applicationOpenURL:") ~typ:(id @-> returning (void)) x -let applicationState self = msg_send ~self ~cmd:(selector "applicationState") ~typ:(returning (llong)) -let applicationSupportsShakeToEdit self = msg_send ~self ~cmd:(selector "applicationSupportsShakeToEdit") ~typ:(returning (bool)) -let applicationSuspend self = msg_send ~self ~cmd:(selector "applicationSuspend") ~typ:(returning (void)) -let applicationWillSuspend self = msg_send ~self ~cmd:(selector "applicationWillSuspend") ~typ:(returning (void)) -let applicationWillSuspendForEventsOnly self = msg_send ~self ~cmd:(selector "applicationWillSuspendForEventsOnly") ~typ:(returning (void)) -let applicationWillSuspendUnderLock self = msg_send ~self ~cmd:(selector "applicationWillSuspendUnderLock") ~typ:(returning (void)) -let applicationWillTerminate self = msg_send ~self ~cmd:(selector "applicationWillTerminate") ~typ:(returning (void)) -let backgroundRefreshStatus self = msg_send ~self ~cmd:(selector "backgroundRefreshStatus") ~typ:(returning (llong)) -let backgroundTimeRemaining self = msg_send ~self ~cmd:(selector "backgroundTimeRemaining") ~typ:(returning (double)) -let backlightLevel self = msg_send ~self ~cmd:(selector "backlightLevel") ~typ:(returning (float)) -let batteryStatusDidChange x self = msg_send ~self ~cmd:(selector "batteryStatusDidChange:") ~typ:(id @-> returning (void)) x -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let beginBackgroundTaskWithExpirationHandler x self = msg_send ~self ~cmd:(selector "beginBackgroundTaskWithExpirationHandler:") ~typ:(ptr void @-> returning (ullong)) x -let beginBackgroundTaskWithName x ~expirationHandler self = msg_send ~self ~cmd:(selector "beginBackgroundTaskWithName:expirationHandler:") ~typ:(id @-> ptr void @-> returning (ullong)) x expirationHandler -let beginIgnoringInteractionEvents self = msg_send ~self ~cmd:(selector "beginIgnoringInteractionEvents") ~typ:(returning (void)) -let beginReceivingRemoteControlEvents self = msg_send ~self ~cmd:(selector "beginReceivingRemoteControlEvents") ~typ:(returning (void)) -let beginRemoteSheetController x ~delegate ~didEndSelector ~contextInfo ~requireTopApplication ~opaque ~presentAnimated self = msg_send ~self ~cmd:(selector "beginRemoteSheetController:delegate:didEndSelector:contextInfo:requireTopApplication:opaque:presentAnimated:") ~typ:(id @-> id @-> _SEL @-> ptr (void) @-> bool @-> bool @-> bool @-> returning (void)) x delegate didEndSelector contextInfo requireTopApplication opaque presentAnimated -let blockInteractionEventsCount self = msg_send ~self ~cmd:(selector "blockInteractionEventsCount") ~typ:(returning (ullong)) -let buildMenuWithBuilder x self = msg_send ~self ~cmd:(selector "buildMenuWithBuilder:") ~typ:(id @-> returning (void)) x -let canOpenURL x self = msg_send ~self ~cmd:(selector "canOpenURL:") ~typ:(id @-> returning (bool)) x -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let cancelAllLocalNotifications self = msg_send ~self ~cmd:(selector "cancelAllLocalNotifications") ~typ:(returning (void)) -let cancelLocalNotification x self = msg_send ~self ~cmd:(selector "cancelLocalNotification:") ~typ:(id @-> returning (void)) x -let clearHardwareKeyboardState self = msg_send ~self ~cmd:(selector "clearHardwareKeyboardState") ~typ:(returning (void)) -let clearKeepAliveTimeout self = msg_send ~self ~cmd:(selector "clearKeepAliveTimeout") ~typ:(returning (void)) -let completeStateRestoration self = msg_send ~self ~cmd:(selector "completeStateRestoration") ~typ:(returning (void)) -let connectedScenes self = msg_send ~self ~cmd:(selector "connectedScenes") ~typ:(returning (id)) -let currentUserNotificationSettings self = msg_send ~self ~cmd:(selector "currentUserNotificationSettings") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultImageSnapshotExpiration self = msg_send ~self ~cmd:(selector "defaultImageSnapshotExpiration") ~typ:(returning (double)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didDismissMiniAlert self = msg_send ~self ~cmd:(selector "didDismissMiniAlert") ~typ:(returning (void)) -let didReceiveMemoryWarning self = msg_send ~self ~cmd:(selector "didReceiveMemoryWarning") ~typ:(returning (void)) -let disablesFrontBoardImplicitWindowScenes self = msg_send ~self ~cmd:(selector "disablesFrontBoardImplicitWindowScenes") ~typ:(returning (bool)) -let emitPPTEndTracePointForSubTestName x ~identifier self = msg_send ~self ~cmd:(selector "emitPPTEndTracePointForSubTestName:identifier:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int identifier) -let emitPPTEndTracePointForTestName x ~identifier self = msg_send ~self ~cmd:(selector "emitPPTEndTracePointForTestName:identifier:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int identifier) -let emitPPTStartTracePointForSubTestName x ~identifier ~testIdentifier self = msg_send ~self ~cmd:(selector "emitPPTStartTracePointForSubTestName:identifier:testIdentifier:") ~typ:(id @-> ullong @-> ullong @-> returning (void)) x (ULLong.of_int identifier) (ULLong.of_int testIdentifier) -let emitPPTStartTracePointForTestName x ~identifier self = msg_send ~self ~cmd:(selector "emitPPTStartTracePointForTestName:identifier:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int identifier) -let enabledRemoteNotificationTypes self = msg_send ~self ~cmd:(selector "enabledRemoteNotificationTypes") ~typ:(returning (ullong)) -let endBackgroundTask x self = msg_send ~self ~cmd:(selector "endBackgroundTask:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let endIgnoringInteractionEvents self = msg_send ~self ~cmd:(selector "endIgnoringInteractionEvents") ~typ:(returning (void)) -let endReceivingRemoteControlEvents self = msg_send ~self ~cmd:(selector "endReceivingRemoteControlEvents") ~typ:(returning (void)) -let endRemoteSheet x self = msg_send ~self ~cmd:(selector "endRemoteSheet:") ~typ:(id @-> returning (void)) x -let extendSnapshotContext x ~forSnapshotAction self = msg_send ~self ~cmd:(selector "extendSnapshotContext:forSnapshotAction:") ~typ:(id @-> id @-> returning (void)) x forSnapshotAction -let extendStateRestoration self = msg_send ~self ~cmd:(selector "extendStateRestoration") ~typ:(returning (void)) -let failedTest x self = msg_send ~self ~cmd:(selector "failedTest:") ~typ:(id @-> returning (void)) x -let failedTest1 x ~withFailure self = msg_send ~self ~cmd:(selector "failedTest:withFailure:") ~typ:(id @-> id @-> returning (void)) x withFailure -let failedTest2 x ~withResults self = msg_send ~self ~cmd:(selector "failedTest:withResults:") ~typ:(id @-> id @-> returning (void)) x withResults -let failedTest3 x ~withFailure ~withResults self = msg_send ~self ~cmd:(selector "failedTest:withFailure:withResults:") ~typ:(id @-> id @-> id @-> returning (void)) x withFailure withResults -let finishedIPTest x self = msg_send ~self ~cmd:(selector "finishedIPTest:") ~typ:(id @-> returning (void)) x -let finishedIPTest1 x ~extraResults self = msg_send ~self ~cmd:(selector "finishedIPTest:extraResults:") ~typ:(id @-> id @-> returning (void)) x extraResults -let finishedIPTest2 x ~extraResults ~withTeardownBlock self = msg_send ~self ~cmd:(selector "finishedIPTest:extraResults:withTeardownBlock:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x extraResults withTeardownBlock -let finishedIPTest3 x ~waitForCommit ~extraResults ~withTeardownBlock self = msg_send ~self ~cmd:(selector "finishedIPTest:waitForCommit:extraResults:withTeardownBlock:") ~typ:(id @-> bool @-> id @-> ptr void @-> returning (void)) x waitForCommit extraResults withTeardownBlock -let finishedSubTest x ~forTest self = msg_send ~self ~cmd:(selector "finishedSubTest:forTest:") ~typ:(id @-> id @-> returning (void)) x forTest -let finishedSubTest' x ~forTest ~waitForCommit self = msg_send ~self ~cmd:(selector "finishedSubTest:forTest:waitForCommit:") ~typ:(id @-> id @-> bool @-> returning (void)) x forTest waitForCommit -let finishedTest x self = msg_send ~self ~cmd:(selector "finishedTest:") ~typ:(id @-> returning (void)) x -let finishedTest1 x ~extraResults self = msg_send ~self ~cmd:(selector "finishedTest:extraResults:") ~typ:(id @-> id @-> returning (void)) x extraResults -let finishedTest2 x ~extraResults ~waitForNotification self = msg_send ~self ~cmd:(selector "finishedTest:extraResults:waitForNotification:") ~typ:(id @-> id @-> id @-> returning (void)) x extraResults waitForNotification -let finishedTest3 x ~extraResults ~withTeardownBlock self = msg_send ~self ~cmd:(selector "finishedTest:extraResults:withTeardownBlock:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x extraResults withTeardownBlock -let finishedTest4 x ~waitForCommit ~extraResults self = msg_send ~self ~cmd:(selector "finishedTest:waitForCommit:extraResults:") ~typ:(id @-> bool @-> id @-> returning (void)) x waitForCommit extraResults -let finishedTest5 x ~extraResults ~waitForNotification ~withTeardownBlock self = msg_send ~self ~cmd:(selector "finishedTest:extraResults:waitForNotification:withTeardownBlock:") ~typ:(id @-> id @-> id @-> ptr void @-> returning (void)) x extraResults waitForNotification withTeardownBlock -let finishedTest6 x ~waitForCommit ~extraResults ~withTeardownBlock self = msg_send ~self ~cmd:(selector "finishedTest:waitForCommit:extraResults:withTeardownBlock:") ~typ:(id @-> bool @-> id @-> ptr void @-> returning (void)) x waitForCommit extraResults withTeardownBlock -let handleDoubleHeightStatusBarTapWithStyleOverride x self = msg_send ~self ~cmd:(selector "handleDoubleHeightStatusBarTapWithStyleOverride:") ~typ:(ullong @-> returning (bool)) (ULLong.of_int x) -let handleEvent x self = msg_send ~self ~cmd:(selector "handleEvent:") ~typ:(ptr void @-> returning (bool)) x -let handleEvent' x ~withNewEvent self = msg_send ~self ~cmd:(selector "handleEvent:withNewEvent:") ~typ:(ptr void @-> id @-> returning (bool)) x withNewEvent -let handleKeyCommand x ~repeatable ~beforeKeyEvent self = msg_send ~self ~cmd:(selector "handleKeyCommand:repeatable:beforeKeyEvent:") ~typ:(id @-> bool @-> bool @-> returning (bool)) x repeatable beforeKeyEvent -let handleKeyEvent x self = msg_send ~self ~cmd:(selector "handleKeyEvent:") ~typ:(ptr void @-> returning (void)) x -let handleKeyHIDEvent x self = msg_send ~self ~cmd:(selector "handleKeyHIDEvent:") ~typ:(ptr void @-> returning (void)) x -let handleKeyUIEvent x self = msg_send ~self ~cmd:(selector "handleKeyUIEvent:") ~typ:(id @-> returning (void)) x -let handleKeyUpCommand x self = msg_send ~self ~cmd:(selector "handleKeyUpCommand:") ~typ:(id @-> returning (bool)) x -let handleStatusBarHoverActionForRegion x self = msg_send ~self ~cmd:(selector "handleStatusBarHoverActionForRegion:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let handleTestURL x self = msg_send ~self ~cmd:(selector "handleTestURL:") ~typ:(id @-> returning (bool)) x -let headsetAvailabilityChanged x self = msg_send ~self ~cmd:(selector "headsetAvailabilityChanged:") ~typ:(ptr void @-> returning (void)) x -let headsetButtonDown x self = msg_send ~self ~cmd:(selector "headsetButtonDown:") ~typ:(ptr void @-> returning (void)) x -let headsetButtonUp x self = msg_send ~self ~cmd:(selector "headsetButtonUp:") ~typ:(ptr void @-> returning (void)) x -let hidUsageFromUIKeyInput x self = msg_send ~self ~cmd:(selector "hidUsageFromUIKeyInput:") ~typ:(id @-> returning (llong)) x -let idleTimerDisabledReasons self = msg_send ~self ~cmd:(selector "idleTimerDisabledReasons") ~typ:(returning (id)) -let ignoreSnapshotOnNextApplicationLaunch self = msg_send ~self ~cmd:(selector "ignoreSnapshotOnNextApplicationLaunch") ~typ:(returning (void)) -let ignoresInteractionEvents self = msg_send ~self ~cmd:(selector "ignoresInteractionEvents") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let installCACommitCompletionBlock x self = msg_send ~self ~cmd:(selector "installCACommitCompletionBlock:") ~typ:(ptr void @-> returning (void)) x -let installNotificationObserverForNotificationName x ~forOneNotification ~usingBlock self = msg_send ~self ~cmd:(selector "installNotificationObserverForNotificationName:forOneNotification:usingBlock:") ~typ:(id @-> bool @-> ptr void @-> returning (void)) x forOneNotification usingBlock -let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning (llong)) -let isFrontBoard self = msg_send ~self ~cmd:(selector "isFrontBoard") ~typ:(returning (bool)) -let isHandlingOpenShortCut self = msg_send ~self ~cmd:(selector "isHandlingOpenShortCut") ~typ:(returning (bool)) -let isHandlingURL self = msg_send ~self ~cmd:(selector "isHandlingURL") ~typ:(returning (bool)) -let isIdleTimerDisabled self = msg_send ~self ~cmd:(selector "isIdleTimerDisabled") ~typ:(returning (bool)) -let isIgnoringInteractionEvents self = msg_send ~self ~cmd:(selector "isIgnoringInteractionEvents") ~typ:(returning (bool)) -let isKeyCommand x self = msg_send ~self ~cmd:(selector "isKeyCommand:") ~typ:(id @-> returning (bool)) x -let isLaunchTest x self = msg_send ~self ~cmd:(selector "isLaunchTest:") ~typ:(id @-> returning (bool)) x -let isLocked self = msg_send ~self ~cmd:(selector "isLocked") ~typ:(returning (bool)) -let isNetworkActivityIndicatorVisible self = msg_send ~self ~cmd:(selector "isNetworkActivityIndicatorVisible") ~typ:(returning (bool)) -let isPPTAvailable self = msg_send ~self ~cmd:(selector "isPPTAvailable") ~typ:(returning (bool)) -let isPasscodeRequiredToUnlock self = msg_send ~self ~cmd:(selector "isPasscodeRequiredToUnlock") ~typ:(returning (bool)) -let isProtectedDataAvailable self = msg_send ~self ~cmd:(selector "isProtectedDataAvailable") ~typ:(returning (bool)) -let isProximitySensingEnabled self = msg_send ~self ~cmd:(selector "isProximitySensingEnabled") ~typ:(returning (bool)) -let isRegisteredForRemoteNotifications self = msg_send ~self ~cmd:(selector "isRegisteredForRemoteNotifications") ~typ:(returning (bool)) -let isRunningInTaskSwitcher self = msg_send ~self ~cmd:(selector "isRunningInTaskSwitcher") ~typ:(returning (bool)) -let isRunningQuitTest self = msg_send ~self ~cmd:(selector "isRunningQuitTest") ~typ:(returning (bool)) -let isRunningSuspendTest self = msg_send ~self ~cmd:(selector "isRunningSuspendTest") ~typ:(returning (bool)) -let isRunningTest self = msg_send ~self ~cmd:(selector "isRunningTest") ~typ:(returning (bool)) -let isRunningTest' x self = msg_send ~self ~cmd:(selector "isRunningTest:") ~typ:(id @-> returning (bool)) x -let isStatusBarHidden self = msg_send ~self ~cmd:(selector "isStatusBarHidden") ~typ:(returning (bool)) -let isSuspended self = msg_send ~self ~cmd:(selector "isSuspended") ~typ:(returning (bool)) -let isSuspendedEventsOnly self = msg_send ~self ~cmd:(selector "isSuspendedEventsOnly") ~typ:(returning (bool)) -let isSuspendedUnderLock self = msg_send ~self ~cmd:(selector "isSuspendedUnderLock") ~typ:(returning (bool)) -let keyCommands self = msg_send ~self ~cmd:(selector "keyCommands") ~typ:(returning (id)) -let keyWindow self = msg_send ~self ~cmd:(selector "keyWindow") ~typ:(returning (id)) -let launchApplicationWithIdentifier x ~suspended self = msg_send ~self ~cmd:(selector "launchApplicationWithIdentifier:suspended:") ~typ:(id @-> bool @-> returning (bool)) x suspended -let launchedToTest self = msg_send ~self ~cmd:(selector "launchedToTest") ~typ:(returning (bool)) -let layoutMonitor x ~didUpdateDisplayLayout ~withContext self = msg_send ~self ~cmd:(selector "layoutMonitor:didUpdateDisplayLayout:withContext:") ~typ:(id @-> id @-> id @-> returning (void)) x didUpdateDisplayLayout withContext -let lockButtonDown x self = msg_send ~self ~cmd:(selector "lockButtonDown:") ~typ:(ptr void @-> returning (void)) x -let lockButtonUp x self = msg_send ~self ~cmd:(selector "lockButtonUp:") ~typ:(ptr void @-> returning (void)) x -let lockDevice x self = msg_send ~self ~cmd:(selector "lockDevice:") ~typ:(ptr void @-> returning (void)) x -let mediaKeyDown x self = msg_send ~self ~cmd:(selector "mediaKeyDown:") ~typ:(ptr void @-> returning (void)) x -let mediaKeyUp x self = msg_send ~self ~cmd:(selector "mediaKeyUp:") ~typ:(ptr void @-> returning (void)) x -let menuButtonDown x self = msg_send ~self ~cmd:(selector "menuButtonDown:") ~typ:(ptr void @-> returning (void)) x -let menuButtonUp x self = msg_send ~self ~cmd:(selector "menuButtonUp:") ~typ:(ptr void @-> returning (void)) x -let motionBegan x ~withEvent self = msg_send ~self ~cmd:(selector "motionBegan:withEvent:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) withEvent -let motionCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "motionCancelled:withEvent:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) withEvent -let motionEnded x ~withEvent self = msg_send ~self ~cmd:(selector "motionEnded:withEvent:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) withEvent -let nameOfDefaultImageToUpdateAtSuspension self = msg_send ~self ~cmd:(selector "nameOfDefaultImageToUpdateAtSuspension") ~typ:(returning (id)) -let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning (id)) -let noteActiveInterfaceOrientationDidChangeToOrientation x ~willAnimateWithSettings ~fromOrientation self = msg_send ~self ~cmd:(selector "noteActiveInterfaceOrientationDidChangeToOrientation:willAnimateWithSettings:fromOrientation:") ~typ:(llong @-> id @-> llong @-> returning (void)) (LLong.of_int x) willAnimateWithSettings (LLong.of_int fromOrientation) -let noteActiveInterfaceOrientationWillChangeToOrientation x self = msg_send ~self ~cmd:(selector "noteActiveInterfaceOrientationWillChangeToOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let noteNewRecentDocumentURL x self = msg_send ~self ~cmd:(selector "noteNewRecentDocumentURL:") ~typ:(id @-> returning (void)) x -let openSessions self = msg_send ~self ~cmd:(selector "openSessions") ~typ:(returning (id)) -let openURL x self = msg_send ~self ~cmd:(selector "openURL:") ~typ:(id @-> returning (bool)) x -let openURL1 x ~withCompletionHandler self = msg_send ~self ~cmd:(selector "openURL:withCompletionHandler:") ~typ:(id @-> ptr void @-> returning (void)) x withCompletionHandler -let openURL2 x ~options ~completionHandler self = msg_send ~self ~cmd:(selector "openURL:options:completionHandler:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x options completionHandler -let orderFrontCharacterPalette x self = msg_send ~self ~cmd:(selector "orderFrontCharacterPalette:") ~typ:(id @-> returning (void)) x -let overriddenRequestedStyleFromStyle x self = msg_send ~self ~cmd:(selector "overriddenRequestedStyleFromStyle:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let pathToDefaultImageNamed x ~forScreen self = msg_send ~self ~cmd:(selector "pathToDefaultImageNamed:forScreen:") ~typ:(id @-> id @-> returning (id)) x forScreen -let popRunLoopMode x self = msg_send ~self ~cmd:(selector "popRunLoopMode:") ~typ:(id @-> returning (void)) x -let popRunLoopMode' x ~requester self = msg_send ~self ~cmd:(selector "popRunLoopMode:requester:") ~typ:(id @-> id @-> returning (void)) x requester -let preferredContentSizeCategory self = msg_send ~self ~cmd:(selector "preferredContentSizeCategory") ~typ:(returning (id)) -let prepareForDefaultImageSnapshot self = msg_send ~self ~cmd:(selector "prepareForDefaultImageSnapshot") ~typ:(returning (void)) -let prepareForDefaultImageSnapshotForScreen x self = msg_send ~self ~cmd:(selector "prepareForDefaultImageSnapshotForScreen:") ~typ:(id @-> returning (void)) x -let prepareSnapshotsWithAction x ~forScene ~completion self = msg_send ~self ~cmd:(selector "prepareSnapshotsWithAction:forScene:completion:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x forScene completion -let presentLocalNotificationNow x self = msg_send ~self ~cmd:(selector "presentLocalNotificationNow:") ~typ:(id @-> returning (void)) x -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let proximityStateChanged x self = msg_send ~self ~cmd:(selector "proximityStateChanged:") ~typ:(bool @-> returning (void)) x -let pureUserInterfaceLayoutDirection self = msg_send ~self ~cmd:(selector "pureUserInterfaceLayoutDirection") ~typ:(returning (llong)) -let pushRegistry x ~didInvalidatePushTokenForType ~error self = msg_send ~self ~cmd:(selector "pushRegistry:didInvalidatePushTokenForType:error:") ~typ:(id @-> id @-> id @-> returning (void)) x didInvalidatePushTokenForType error -let pushRegistry1 x ~didUpdatePushCredentials ~forType self = msg_send ~self ~cmd:(selector "pushRegistry:didUpdatePushCredentials:forType:") ~typ:(id @-> id @-> id @-> returning (void)) x didUpdatePushCredentials forType -let pushRegistry2 x ~didReceiveIncomingPushWithPayload ~forType ~withCompletionHandler self = msg_send ~self ~cmd:(selector "pushRegistry:didReceiveIncomingPushWithPayload:forType:withCompletionHandler:") ~typ:(id @-> id @-> id @-> ptr void @-> returning (void)) x didReceiveIncomingPushWithPayload forType withCompletionHandler -let pushRunLoopMode x self = msg_send ~self ~cmd:(selector "pushRunLoopMode:") ~typ:(id @-> returning (void)) x -let pushRunLoopMode' x ~requester self = msg_send ~self ~cmd:(selector "pushRunLoopMode:requester:") ~typ:(id @-> id @-> returning (void)) x requester -let registerForRemoteNotificationTypes x self = msg_send ~self ~cmd:(selector "registerForRemoteNotificationTypes:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let registerForRemoteNotifications self = msg_send ~self ~cmd:(selector "registerForRemoteNotifications") ~typ:(returning (void)) -let registerPlatformSpecificLaunchOptions x ~transitionContext self = msg_send ~self ~cmd:(selector "registerPlatformSpecificLaunchOptions:transitionContext:") ~typ:(ptr void @-> id @-> returning (void)) x transitionContext -let registerUserNotificationSettings x self = msg_send ~self ~cmd:(selector "registerUserNotificationSettings:") ~typ:(id @-> returning (void)) x -let removeApplicationPreservationStateWithSessionIdentifier x self = msg_send ~self ~cmd:(selector "removeApplicationPreservationStateWithSessionIdentifier:") ~typ:(id @-> returning (void)) x -let removeDefaultImage x self = msg_send ~self ~cmd:(selector "removeDefaultImage:") ~typ:(id @-> returning (bool)) x -let removeDefaultImage' x ~forScreen self = msg_send ~self ~cmd:(selector "removeDefaultImage:forScreen:") ~typ:(id @-> id @-> returning (bool)) x forScreen -let removeStatusBarItem x self = msg_send ~self ~cmd:(selector "removeStatusBarItem:") ~typ:(int @-> returning (void)) x -let repeatedActionWillInvokeWithObject x ~forPhase self = msg_send ~self ~cmd:(selector "repeatedActionWillInvokeWithObject:forPhase:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int forPhase) -let reportApplicationSuspended self = msg_send ~self ~cmd:(selector "reportApplicationSuspended") ~typ:(returning (bool)) -let requestNewScene x self = msg_send ~self ~cmd:(selector "requestNewScene:") ~typ:(id @-> returning (void)) x -let requestSceneSessionActivation x ~userActivity ~options ~errorHandler self = msg_send ~self ~cmd:(selector "requestSceneSessionActivation:userActivity:options:errorHandler:") ~typ:(id @-> id @-> id @-> ptr void @-> returning (void)) x userActivity options errorHandler -let requestSceneSessionDestruction x ~options ~errorHandler self = msg_send ~self ~cmd:(selector "requestSceneSessionDestruction:options:errorHandler:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x options errorHandler -let requestSceneSessionRefresh x self = msg_send ~self ~cmd:(selector "requestSceneSessionRefresh:") ~typ:(id @-> returning (void)) x -let resetIdleTimerAndUndim self = msg_send ~self ~cmd:(selector "resetIdleTimerAndUndim") ~typ:(returning (void)) -let restoreApplicationPreservationStateWithSessionIdentifier x ~viewController ~beginHandler ~completionHandler self = msg_send ~self ~cmd:(selector "restoreApplicationPreservationStateWithSessionIdentifier:viewController:beginHandler:completionHandler:") ~typ:(id @-> id @-> ptr void @-> ptr void @-> returning (void)) x viewController beginHandler completionHandler -let resultsForTest x self = msg_send ~self ~cmd:(selector "resultsForTest:") ~typ:(id @-> returning (id)) x -let ringerChanged x self = msg_send ~self ~cmd:(selector "ringerChanged:") ~typ:(int @-> returning (void)) x -let rotateIfNeeded x self = msg_send ~self ~cmd:(selector "rotateIfNeeded:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let rotateIfNeeded1 x ~completion self = msg_send ~self ~cmd:(selector "rotateIfNeeded:completion:") ~typ:(llong @-> ptr void @-> returning (void)) (LLong.of_int x) completion -let rotateIfNeeded2 x ~before ~after self = msg_send ~self ~cmd:(selector "rotateIfNeeded:before:after:") ~typ:(llong @-> ptr void @-> ptr void @-> returning (void)) (LLong.of_int x) before after -let runModal x self = msg_send ~self ~cmd:(selector "runModal:") ~typ:(id @-> returning (void)) x -let runTest x ~forAnimation self = msg_send ~self ~cmd:(selector "runTest:forAnimation:") ~typ:(id @-> id @-> returning (void)) x forAnimation -let runTest1 x ~options self = msg_send ~self ~cmd:(selector "runTest:options:") ~typ:(id @-> id @-> returning (bool)) x options -let runTest2 x ~startingBeforeAnimation ~stoppingAfterAnimation self = msg_send ~self ~cmd:(selector "runTest:startingBeforeAnimation:stoppingAfterAnimation:") ~typ:(id @-> id @-> id @-> returning (void)) x startingBeforeAnimation stoppingAfterAnimation -let runTestForKeyboardBringupAndDismissalWithName x ~withShowKeyboardBlock ~withHideKeyboardBlock ~withExtraResultsBlock ~withCleanupBlock self = msg_send ~self ~cmd:(selector "runTestForKeyboardBringupAndDismissalWithName:withShowKeyboardBlock:withHideKeyboardBlock:withExtraResultsBlock:withCleanupBlock:") ~typ:(id @-> ptr void @-> ptr void @-> ptr void @-> ptr void @-> returning (void)) x withShowKeyboardBlock withHideKeyboardBlock withExtraResultsBlock withCleanupBlock -let runTestForKeyboardRotationWithName x ~fromOrientation ~withShowKeyboardBlock ~withExtraResultsBlock ~withCleanupBlock self = msg_send ~self ~cmd:(selector "runTestForKeyboardRotationWithName:fromOrientation:withShowKeyboardBlock:withExtraResultsBlock:withCleanupBlock:") ~typ:(id @-> llong @-> ptr void @-> ptr void @-> ptr void @-> returning (void)) x (LLong.of_int fromOrientation) withShowKeyboardBlock withExtraResultsBlock withCleanupBlock -let runTestForKeyboardSplitAndMergeWithName x ~withShowKeyboardBlock ~withExtraResultsBlock ~withCleanupBlock self = msg_send ~self ~cmd:(selector "runTestForKeyboardSplitAndMergeWithName:withShowKeyboardBlock:withExtraResultsBlock:withCleanupBlock:") ~typ:(id @-> ptr void @-> ptr void @-> ptr void @-> returning (void)) x withShowKeyboardBlock withExtraResultsBlock withCleanupBlock -let saveApplicationPreservationStateWithSessionIdentifier x ~viewController ~beginHandler ~completionHandler self = msg_send ~self ~cmd:(selector "saveApplicationPreservationStateWithSessionIdentifier:viewController:beginHandler:completionHandler:") ~typ:(id @-> id @-> ptr void @-> ptr void @-> returning (void)) x viewController beginHandler completionHandler -let scheduleLocalNotification x self = msg_send ~self ~cmd:(selector "scheduleLocalNotification:") ~typ:(id @-> returning (void)) x -let scheduledLocalNotifications self = msg_send ~self ~cmd:(selector "scheduledLocalNotifications") ~typ:(returning (id)) -let sendAction x ~to_ ~from ~forEvent self = msg_send ~self ~cmd:(selector "sendAction:to:from:forEvent:") ~typ:(_SEL @-> id @-> id @-> id @-> returning (bool)) x to_ from forEvent -let sendAction' x ~toTarget ~fromSender ~forEvent self = msg_send ~self ~cmd:(selector "sendAction:toTarget:fromSender:forEvent:") ~typ:(_SEL @-> id @-> id @-> id @-> returning (bool)) x toTarget fromSender forEvent -let sendEvent x self = msg_send ~self ~cmd:(selector "sendEvent:") ~typ:(id @-> returning (void)) x -let setAlternateIconName x ~completionHandler self = msg_send ~self ~cmd:(selector "setAlternateIconName:completionHandler:") ~typ:(id @-> ptr void @-> returning (void)) x completionHandler -let setApplicationBadgeString x self = msg_send ~self ~cmd:(selector "setApplicationBadgeString:") ~typ:(id @-> returning (void)) x -let setApplicationIconBadgeNumber x self = msg_send ~self ~cmd:(selector "setApplicationIconBadgeNumber:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setApplicationSupportsShakeToEdit x self = msg_send ~self ~cmd:(selector "setApplicationSupportsShakeToEdit:") ~typ:(bool @-> returning (void)) x -let setBacklightLevel x self = msg_send ~self ~cmd:(selector "setBacklightLevel:") ~typ:(float @-> returning (void)) x -let setCapsLockDelayOverride x self = msg_send ~self ~cmd:(selector "setCapsLockDelayOverride:") ~typ:(double @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDoubleHeightPrefixText x self = msg_send ~self ~cmd:(selector "setDoubleHeightPrefixText:") ~typ:(id @-> returning (void)) x -let setDoubleHeightStatusText x self = msg_send ~self ~cmd:(selector "setDoubleHeightStatusText:") ~typ:(id @-> returning (void)) x -let setDoubleHeightStatusText' x ~forStyle self = msg_send ~self ~cmd:(selector "setDoubleHeightStatusText:forStyle:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forStyle) -let setExpectsFaceContact x self = msg_send ~self ~cmd:(selector "setExpectsFaceContact:") ~typ:(bool @-> returning (void)) x -let setExpectsFaceContact' x ~inLandscape self = msg_send ~self ~cmd:(selector "setExpectsFaceContact:inLandscape:") ~typ:(bool @-> bool @-> returning (void)) x inLandscape -let setGlowAnimationEnabled x ~forStyle self = msg_send ~self ~cmd:(selector "setGlowAnimationEnabled:forStyle:") ~typ:(bool @-> llong @-> returning (void)) x (LLong.of_int forStyle) -let setHardwareKeyboardLayoutName x self = msg_send ~self ~cmd:(selector "setHardwareKeyboardLayoutName:") ~typ:(id @-> returning (void)) x -let setHardwareKeyboardLayoutName' x ~forceRebuild self = msg_send ~self ~cmd:(selector "setHardwareKeyboardLayoutName:forceRebuild:") ~typ:(id @-> bool @-> returning (void)) x forceRebuild -let setIdleTimerDisabled x self = msg_send ~self ~cmd:(selector "setIdleTimerDisabled:") ~typ:(bool @-> returning (void)) x -let setIgnoresInteractionEvents x self = msg_send ~self ~cmd:(selector "setIgnoresInteractionEvents:") ~typ:(bool @-> returning (void)) x -let setKeepAliveTimeout x ~handler self = msg_send ~self ~cmd:(selector "setKeepAliveTimeout:handler:") ~typ:(double @-> ptr void @-> returning (bool)) x handler -let setMinimumBackgroundFetchInterval x self = msg_send ~self ~cmd:(selector "setMinimumBackgroundFetchInterval:") ~typ:(double @-> returning (void)) x -let setNetworkActivityIndicatorVisible x self = msg_send ~self ~cmd:(selector "setNetworkActivityIndicatorVisible:") ~typ:(bool @-> returning (void)) x -let setNewsstandIconImage x self = msg_send ~self ~cmd:(selector "setNewsstandIconImage:") ~typ:(id @-> returning (void)) x -let setProximityEventsEnabled x self = msg_send ~self ~cmd:(selector "setProximityEventsEnabled:") ~typ:(bool @-> returning (void)) x -let setProximitySensingEnabled x self = msg_send ~self ~cmd:(selector "setProximitySensingEnabled:") ~typ:(bool @-> returning (void)) x -let setReceivesMemoryWarnings x self = msg_send ~self ~cmd:(selector "setReceivesMemoryWarnings:") ~typ:(bool @-> returning (void)) x -let setScheduledLocalNotifications x self = msg_send ~self ~cmd:(selector "setScheduledLocalNotifications:") ~typ:(id @-> returning (void)) x -let setShortcutItems x self = msg_send ~self ~cmd:(selector "setShortcutItems:") ~typ:(id @-> returning (void)) x -let setStatusBarHidden x self = msg_send ~self ~cmd:(selector "setStatusBarHidden:") ~typ:(bool @-> returning (void)) x -let setStatusBarHidden1 x ~animated self = msg_send ~self ~cmd:(selector "setStatusBarHidden:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setStatusBarHidden2 x ~animationParameters self = msg_send ~self ~cmd:(selector "setStatusBarHidden:animationParameters:") ~typ:(bool @-> id @-> returning (void)) x animationParameters -let setStatusBarHidden3 x ~duration self = msg_send ~self ~cmd:(selector "setStatusBarHidden:duration:") ~typ:(bool @-> double @-> returning (void)) x duration -let setStatusBarHidden4 x ~withAnimation self = msg_send ~self ~cmd:(selector "setStatusBarHidden:withAnimation:") ~typ:(bool @-> llong @-> returning (void)) x (LLong.of_int withAnimation) -let setStatusBarHidden5 x ~animationParameters ~changeApplicationFlag self = msg_send ~self ~cmd:(selector "setStatusBarHidden:animationParameters:changeApplicationFlag:") ~typ:(bool @-> id @-> bool @-> returning (void)) x animationParameters changeApplicationFlag -let setStatusBarHidden6 x ~duration ~changeApplicationFlag self = msg_send ~self ~cmd:(selector "setStatusBarHidden:duration:changeApplicationFlag:") ~typ:(bool @-> double @-> bool @-> returning (void)) x duration changeApplicationFlag -let setStatusBarOrientation x self = msg_send ~self ~cmd:(selector "setStatusBarOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setStatusBarOrientation1 x ~animated self = msg_send ~self ~cmd:(selector "setStatusBarOrientation:animated:") ~typ:(llong @-> bool @-> returning (void)) (LLong.of_int x) animated -let setStatusBarOrientation2 x ~animationParameters self = msg_send ~self ~cmd:(selector "setStatusBarOrientation:animationParameters:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) animationParameters -let setStatusBarOrientation3 x ~animation ~duration self = msg_send ~self ~cmd:(selector "setStatusBarOrientation:animation:duration:") ~typ:(llong @-> int @-> double @-> returning (void)) (LLong.of_int x) animation duration -let setStatusBarOrientation4 x ~fromOrientation ~windowScene ~animationParameters ~updateBlock self = msg_send ~self ~cmd:(selector "setStatusBarOrientation:fromOrientation:windowScene:animationParameters:updateBlock:") ~typ:(llong @-> llong @-> id @-> id @-> ptr void @-> returning (void)) (LLong.of_int x) (LLong.of_int fromOrientation) windowScene animationParameters updateBlock -let setStatusBarShowsProgress x self = msg_send ~self ~cmd:(selector "setStatusBarShowsProgress:") ~typ:(bool @-> returning (void)) x -let setStatusBarStyle x self = msg_send ~self ~cmd:(selector "setStatusBarStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setStatusBarStyle1 x ~animated self = msg_send ~self ~cmd:(selector "setStatusBarStyle:animated:") ~typ:(llong @-> bool @-> returning (void)) (LLong.of_int x) animated -let setStatusBarStyle2 x ~animation self = msg_send ~self ~cmd:(selector "setStatusBarStyle:animation:") ~typ:(llong @-> int @-> returning (void)) (LLong.of_int x) animation -let setStatusBarStyle3 x ~animationParameters self = msg_send ~self ~cmd:(selector "setStatusBarStyle:animationParameters:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) animationParameters -let setStatusBarStyle4 x ~duration self = msg_send ~self ~cmd:(selector "setStatusBarStyle:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let setStatusBarStyle5 x ~animation ~startTime ~duration ~curve self = msg_send ~self ~cmd:(selector "setStatusBarStyle:animation:startTime:duration:curve:") ~typ:(llong @-> int @-> double @-> double @-> llong @-> returning (void)) (LLong.of_int x) animation startTime duration (LLong.of_int curve) -let setSuspensionAnimationDelay x self = msg_send ~self ~cmd:(selector "setSuspensionAnimationDelay:") ~typ:(double @-> returning (void)) x -let setSystemVolumeHUDEnabled x self = msg_send ~self ~cmd:(selector "setSystemVolumeHUDEnabled:") ~typ:(bool @-> returning (void)) x -let setSystemVolumeHUDEnabled' x ~forAudioCategory self = msg_send ~self ~cmd:(selector "setSystemVolumeHUDEnabled:forAudioCategory:") ~typ:(bool @-> id @-> returning (void)) x forAudioCategory -let setUsesBackgroundNetwork x self = msg_send ~self ~cmd:(selector "setUsesBackgroundNetwork:") ~typ:(bool @-> returning (void)) x -let setWantsLockEvents x self = msg_send ~self ~cmd:(selector "setWantsLockEvents:") ~typ:(bool @-> returning (void)) x -let setWantsVolumeButtonEvents x self = msg_send ~self ~cmd:(selector "setWantsVolumeButtonEvents:") ~typ:(bool @-> returning (void)) x -let shortcutItems self = msg_send ~self ~cmd:(selector "shortcutItems") ~typ:(returning (id)) -let shouldFenceStatusBarRotation self = msg_send ~self ~cmd:(selector "shouldFenceStatusBarRotation") ~typ:(returning (bool)) -let shouldLaunchSafe self = msg_send ~self ~cmd:(selector "shouldLaunchSafe") ~typ:(returning (bool)) -let shouldRecordExtendedLaunchTime self = msg_send ~self ~cmd:(selector "shouldRecordExtendedLaunchTime") ~typ:(returning (bool)) -let showKeyboardUsingBlock x ~withCompletionBlock self = msg_send ~self ~cmd:(selector "showKeyboardUsingBlock:withCompletionBlock:") ~typ:(ptr void @-> ptr void @-> returning (void)) x withCompletionBlock -let showNetworkPromptsIfNecessary x self = msg_send ~self ~cmd:(selector "showNetworkPromptsIfNecessary:") ~typ:(bool @-> returning (void)) x -let significantTimeChange self = msg_send ~self ~cmd:(selector "significantTimeChange") ~typ:(returning (void)) -let startCHUDRecording x self = msg_send ~self ~cmd:(selector "startCHUDRecording:") ~typ:(id @-> returning (void)) x -let startDictation x self = msg_send ~self ~cmd:(selector "startDictation:") ~typ:(id @-> returning (void)) x -let startLeaking self = msg_send ~self ~cmd:(selector "startLeaking") ~typ:(returning (void)) -let startedAnimationTest x self = msg_send ~self ~cmd:(selector "startedAnimationTest:") ~typ:(id @-> returning (void)) x -let startedIPTest x self = msg_send ~self ~cmd:(selector "startedIPTest:") ~typ:(id @-> returning (void)) x -let startedSubTest x ~forTest self = msg_send ~self ~cmd:(selector "startedSubTest:forTest:") ~typ:(id @-> id @-> returning (void)) x forTest -let startedSubTest' x ~forTest ~withMetrics self = msg_send ~self ~cmd:(selector "startedSubTest:forTest:withMetrics:") ~typ:(id @-> id @-> id @-> returning (void)) x forTest withMetrics -let startedTest x self = msg_send ~self ~cmd:(selector "startedTest:") ~typ:(id @-> returning (void)) x -let statusBar self = msg_send ~self ~cmd:(selector "statusBar") ~typ:(returning (id)) -let statusBar1 x ~effectiveStyleOverridesForRequestedStyle ~overrides self = msg_send ~self ~cmd:(selector "statusBar:effectiveStyleOverridesForRequestedStyle:overrides:") ~typ:(id @-> llong @-> ullong @-> returning (ullong)) x (LLong.of_int effectiveStyleOverridesForRequestedStyle) (ULLong.of_int overrides) -let statusBar2 x ~styleForRequestedStyle ~overrides self = msg_send ~self ~cmd:(selector "statusBar:styleForRequestedStyle:overrides:") ~typ:(id @-> llong @-> ullong @-> returning (llong)) x (LLong.of_int styleForRequestedStyle) (ULLong.of_int overrides) -let statusBar3 x ~didAnimateFromHeight ~toHeight ~animation self = msg_send ~self ~cmd:(selector "statusBar:didAnimateFromHeight:toHeight:animation:") ~typ:(id @-> double @-> double @-> int @-> returning (void)) x didAnimateFromHeight toHeight animation -let statusBar4 x ~willAnimateFromHeight ~toHeight ~duration ~animation self = msg_send ~self ~cmd:(selector "statusBar:willAnimateFromHeight:toHeight:duration:animation:") ~typ:(id @-> double @-> double @-> double @-> int @-> returning (void)) x willAnimateFromHeight toHeight duration animation -let statusBarFrame self = msg_send_stret ~self ~cmd:(selector "statusBarFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let statusBarFrameForOrientation x self = msg_send_stret ~self ~cmd:(selector "statusBarFrameForOrientation:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) -let statusBarHeight self = msg_send ~self ~cmd:(selector "statusBarHeight") ~typ:(returning (double)) -let statusBarHeightForOrientation x self = msg_send ~self ~cmd:(selector "statusBarHeightForOrientation:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let statusBarHeightForOrientation' x ~ignoreHidden self = msg_send ~self ~cmd:(selector "statusBarHeightForOrientation:ignoreHidden:") ~typ:(llong @-> bool @-> returning (double)) (LLong.of_int x) ignoreHidden -let statusBarOrientation self = msg_send ~self ~cmd:(selector "statusBarOrientation") ~typ:(returning (llong)) -let statusBarOrientationAnimationDuration self = msg_send ~self ~cmd:(selector "statusBarOrientationAnimationDuration") ~typ:(returning (double)) -let statusBarStyle self = msg_send ~self ~cmd:(selector "statusBarStyle") ~typ:(returning (llong)) -let statusBarSystemNavigationAction x self = msg_send ~self ~cmd:(selector "statusBarSystemNavigationAction:") ~typ:(id @-> returning (id)) x -let statusBarWindow self = msg_send ~self ~cmd:(selector "statusBarWindow") ~typ:(returning (id)) -let statusBarWithWindow x self = msg_send ~self ~cmd:(selector "statusBarWithWindow:") ~typ:(id @-> returning (id)) x -let stopAndReportResultsForTest x ~extraResults ~waitForNotification ~withTeardownBlock self = msg_send ~self ~cmd:(selector "stopAndReportResultsForTest:extraResults:waitForNotification:withTeardownBlock:") ~typ:(id @-> id @-> id @-> ptr void @-> returning (void)) x extraResults waitForNotification withTeardownBlock -let stopCHUDRecording self = msg_send ~self ~cmd:(selector "stopCHUDRecording") ~typ:(returning (void)) -let stopLeaking self = msg_send ~self ~cmd:(selector "stopLeaking") ~typ:(returning (void)) -let stopModal self = msg_send ~self ~cmd:(selector "stopModal") ~typ:(returning (void)) -let subTest x ~_ForTest ~withMetrics self = msg_send ~self ~cmd:(selector "subTest:ForTest:withMetrics:") ~typ:(id @-> id @-> id @-> returning (id)) x _ForTest withMetrics -let supportedInterfaceOrientationsForWindow x self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientationsForWindow:") ~typ:(id @-> returning (ullong)) x -let supportsAlternateIcons self = msg_send ~self ~cmd:(selector "supportsAlternateIcons") ~typ:(returning (bool)) -let supportsMultipleScenes self = msg_send ~self ~cmd:(selector "supportsMultipleScenes") ~typ:(returning (bool)) -let suspend self = msg_send ~self ~cmd:(selector "suspend") ~typ:(returning (void)) -let suspendReturningToLastApp x self = msg_send ~self ~cmd:(selector "suspendReturningToLastApp:") ~typ:(bool @-> returning (void)) x -let systemIsAnimatingApplicationLifecycleEvent self = msg_send ~self ~cmd:(selector "systemIsAnimatingApplicationLifecycleEvent") ~typ:(returning (bool)) -let terminateWithSuccess self = msg_send ~self ~cmd:(selector "terminateWithSuccess") ~typ:(returning (void)) -let testPrep x ~options self = msg_send ~self ~cmd:(selector "testPrep:options:") ~typ:(id @-> id @-> returning (void)) x options -let textInputMode self = msg_send ~self ~cmd:(selector "textInputMode") ~typ:(returning (id)) -let toggleFontPanel x self = msg_send ~self ~cmd:(selector "toggleFontPanel:") ~typ:(id @-> returning (void)) x -let touchBarController self = msg_send ~self ~cmd:(selector "touchBarController") ~typ:(returning (id)) -let unregisterForRemoteNotifications self = msg_send ~self ~cmd:(selector "unregisterForRemoteNotifications") ~typ:(returning (void)) -let updateSuspendedSettings x self = msg_send ~self ~cmd:(selector "updateSuspendedSettings:") ~typ:(id @-> returning (void)) x -let userCachesDirectory self = msg_send ~self ~cmd:(selector "userCachesDirectory") ~typ:(returning (id)) -let userDefaultsDidChange x self = msg_send ~self ~cmd:(selector "userDefaultsDidChange:") ~typ:(id @-> returning (void)) x -let userHomeDirectory self = msg_send ~self ~cmd:(selector "userHomeDirectory") ~typ:(returning (id)) -let userInfoDictionaryForRunLoopMode x ~requester self = msg_send ~self ~cmd:(selector "userInfoDictionaryForRunLoopMode:requester:") ~typ:(id @-> id @-> returning (id)) x requester -let userInterfaceLayoutDirection self = msg_send ~self ~cmd:(selector "userInterfaceLayoutDirection") ~typ:(returning (llong)) -let userLibraryDirectory self = msg_send ~self ~cmd:(selector "userLibraryDirectory") ~typ:(returning (id)) -let usesBackgroundNetwork self = msg_send ~self ~cmd:(selector "usesBackgroundNetwork") ~typ:(returning (bool)) -let validateCommand x self = msg_send ~self ~cmd:(selector "validateCommand:") ~typ:(id @-> returning (void)) x -let vibrateForDuration x self = msg_send ~self ~cmd:(selector "vibrateForDuration:") ~typ:(int @-> returning (void)) x -let volumeChanged x self = msg_send ~self ~cmd:(selector "volumeChanged:") ~typ:(ptr void @-> returning (void)) x -let willDisplayMiniAlert self = msg_send ~self ~cmd:(selector "willDisplayMiniAlert") ~typ:(returning (void)) -let windowRotationDuration self = msg_send ~self ~cmd:(selector "windowRotationDuration") ~typ:(returning (double)) -let windows self = msg_send ~self ~cmd:(selector "windows") ~typ:(returning (id)) -let workspace x ~didReceiveActions self = msg_send ~self ~cmd:(selector "workspace:didReceiveActions:") ~typ:(id @-> id @-> returning (void)) x didReceiveActions -let workspace1 x ~didCreateScene ~withTransitionContext ~completion self = msg_send ~self ~cmd:(selector "workspace:didCreateScene:withTransitionContext:completion:") ~typ:(id @-> id @-> id @-> ptr void @-> returning (void)) x didCreateScene withTransitionContext completion -let workspace2 x ~willDestroyScene ~withTransitionContext ~completion self = msg_send ~self ~cmd:(selector "workspace:willDestroyScene:withTransitionContext:completion:") ~typ:(id @-> id @-> id @-> ptr void @-> returning (void)) x willDestroyScene withTransitionContext completion -let workspaceShouldExit x ~withTransitionContext self = msg_send ~self ~cmd:(selector "workspaceShouldExit:withTransitionContext:") ~typ:(id @-> id @-> returning (void)) x withTransitionContext \ No newline at end of file +let acceleratedInX x ~_Y ~_Z self = msg_send ~self ~cmd:(selector "acceleratedInX:Y:Z:") ~typ:(float @-> float @-> float @-> returning void) x _Y _Z +let accessoryKeyStateChanged x self = msg_send ~self ~cmd:(selector "accessoryKeyStateChanged:") ~typ:((ptr void) @-> returning void) x +let activeInterfaceOrientation self = msg_send ~self ~cmd:(selector "activeInterfaceOrientation") ~typ:(returning llong) +let activityContinuationManager x ~configureProgressUIWithError self = msg_send ~self ~cmd:(selector "activityContinuationManager:configureProgressUIWithError:") ~typ:(id @-> id @-> returning void) x configureProgressUIWithError +let activityContinuationManager1 x ~continueUserActivity self = msg_send ~self ~cmd:(selector "activityContinuationManager:continueUserActivity:") ~typ:(id @-> id @-> returning bool) x continueUserActivity +let activityContinuationManager2 x ~didUpdateUserActivity self = msg_send ~self ~cmd:(selector "activityContinuationManager:didUpdateUserActivity:") ~typ:(id @-> id @-> returning void) x didUpdateUserActivity +let activityContinuationManager3 x ~hideProgressUIWithCompletion self = msg_send ~self ~cmd:(selector "activityContinuationManager:hideProgressUIWithCompletion:") ~typ:(id @-> (ptr void) @-> returning void) x hideProgressUIWithCompletion +let activityContinuationManager4 x ~willContinueUserActivityWithType self = msg_send ~self ~cmd:(selector "activityContinuationManager:willContinueUserActivityWithType:") ~typ:(id @-> id @-> returning bool) x willContinueUserActivityWithType +let activityContinuationManager5 x ~didFailToContinueUserActivityWithType ~error self = msg_send ~self ~cmd:(selector "activityContinuationManager:didFailToContinueUserActivityWithType:error:") ~typ:(id @-> id @-> id @-> returning void) x didFailToContinueUserActivityWithType error +let activityContinuationManager6 x ~displayProgressUI ~dismissalHandler self = msg_send ~self ~cmd:(selector "activityContinuationManager:displayProgressUI:dismissalHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x displayProgressUI dismissalHandler +let activityContinuationManagerHandleErrorsByConfiguringProgressUI x self = msg_send ~self ~cmd:(selector "activityContinuationManagerHandleErrorsByConfiguringProgressUI:") ~typ:(id @-> returning bool) x +let activityContinuationManagerUserCancelledError x self = msg_send ~self ~cmd:(selector "activityContinuationManagerUserCancelledError:") ~typ:(id @-> returning id) x +let addStatusBarItem x self = msg_send ~self ~cmd:(selector "addStatusBarItem:") ~typ:(int @-> returning void) x +let addStatusBarItem' x ~removeOnExit self = msg_send ~self ~cmd:(selector "addStatusBarItem:removeOnExit:") ~typ:(int @-> bool @-> returning void) x removeOnExit +let addWebClipToHomeScreen x self = msg_send ~self ~cmd:(selector "addWebClipToHomeScreen:") ~typ:(id @-> returning void) x +let alertInterfaceOrientation self = msg_send ~self ~cmd:(selector "alertInterfaceOrientation") ~typ:(returning llong) +let alternateIconName self = msg_send ~self ~cmd:(selector "alternateIconName") ~typ:(returning id) +let applicationDidBeginSuspendAnimation self = msg_send ~self ~cmd:(selector "applicationDidBeginSuspendAnimation") ~typ:(returning void) +let applicationDidEndResumeAnimation self = msg_send ~self ~cmd:(selector "applicationDidEndResumeAnimation") ~typ:(returning void) +let applicationDidResume self = msg_send ~self ~cmd:(selector "applicationDidResume") ~typ:(returning void) +let applicationDidResumeForEventsOnly self = msg_send ~self ~cmd:(selector "applicationDidResumeForEventsOnly") ~typ:(returning void) +let applicationDidResumeFromUnderLock self = msg_send ~self ~cmd:(selector "applicationDidResumeFromUnderLock") ~typ:(returning void) +let applicationIconBadgeNumber self = msg_send ~self ~cmd:(selector "applicationIconBadgeNumber") ~typ:(returning llong) +let applicationOpenToShortCut x self = msg_send ~self ~cmd:(selector "applicationOpenToShortCut:") ~typ:(id @-> returning void) x +let applicationOpenURL x self = msg_send ~self ~cmd:(selector "applicationOpenURL:") ~typ:(id @-> returning void) x +let applicationState self = msg_send ~self ~cmd:(selector "applicationState") ~typ:(returning llong) +let applicationSupportsShakeToEdit self = msg_send ~self ~cmd:(selector "applicationSupportsShakeToEdit") ~typ:(returning bool) +let applicationSuspend self = msg_send ~self ~cmd:(selector "applicationSuspend") ~typ:(returning void) +let applicationWillSuspend self = msg_send ~self ~cmd:(selector "applicationWillSuspend") ~typ:(returning void) +let applicationWillSuspendForEventsOnly self = msg_send ~self ~cmd:(selector "applicationWillSuspendForEventsOnly") ~typ:(returning void) +let applicationWillSuspendUnderLock self = msg_send ~self ~cmd:(selector "applicationWillSuspendUnderLock") ~typ:(returning void) +let applicationWillTerminate self = msg_send ~self ~cmd:(selector "applicationWillTerminate") ~typ:(returning void) +let backgroundRefreshStatus self = msg_send ~self ~cmd:(selector "backgroundRefreshStatus") ~typ:(returning llong) +let backgroundTimeRemaining self = msg_send ~self ~cmd:(selector "backgroundTimeRemaining") ~typ:(returning double) +let backlightLevel self = msg_send ~self ~cmd:(selector "backlightLevel") ~typ:(returning float) +let batteryStatusDidChange x self = msg_send ~self ~cmd:(selector "batteryStatusDidChange:") ~typ:(id @-> returning void) x +let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning bool) +let beginBackgroundTaskWithExpirationHandler x self = msg_send ~self ~cmd:(selector "beginBackgroundTaskWithExpirationHandler:") ~typ:((ptr void) @-> returning ullong) x +let beginBackgroundTaskWithName x ~expirationHandler self = msg_send ~self ~cmd:(selector "beginBackgroundTaskWithName:expirationHandler:") ~typ:(id @-> (ptr void) @-> returning ullong) x expirationHandler +let beginIgnoringInteractionEvents self = msg_send ~self ~cmd:(selector "beginIgnoringInteractionEvents") ~typ:(returning void) +let beginReceivingRemoteControlEvents self = msg_send ~self ~cmd:(selector "beginReceivingRemoteControlEvents") ~typ:(returning void) +let beginRemoteSheetController x ~delegate ~didEndSelector ~contextInfo ~requireTopApplication ~opaque ~presentAnimated self = msg_send ~self ~cmd:(selector "beginRemoteSheetController:delegate:didEndSelector:contextInfo:requireTopApplication:opaque:presentAnimated:") ~typ:(id @-> id @-> _SEL @-> (ptr void) @-> bool @-> bool @-> bool @-> returning void) x delegate didEndSelector contextInfo requireTopApplication opaque presentAnimated +let blockInteractionEventsCount self = msg_send ~self ~cmd:(selector "blockInteractionEventsCount") ~typ:(returning ullong) +let buildMenuWithBuilder x self = msg_send ~self ~cmd:(selector "buildMenuWithBuilder:") ~typ:(id @-> returning void) x +let canOpenURL x self = msg_send ~self ~cmd:(selector "canOpenURL:") ~typ:(id @-> returning bool) x +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let cancelAllLocalNotifications self = msg_send ~self ~cmd:(selector "cancelAllLocalNotifications") ~typ:(returning void) +let cancelLocalNotification x self = msg_send ~self ~cmd:(selector "cancelLocalNotification:") ~typ:(id @-> returning void) x +let clearHardwareKeyboardState self = msg_send ~self ~cmd:(selector "clearHardwareKeyboardState") ~typ:(returning void) +let clearKeepAliveTimeout self = msg_send ~self ~cmd:(selector "clearKeepAliveTimeout") ~typ:(returning void) +let completeStateRestoration self = msg_send ~self ~cmd:(selector "completeStateRestoration") ~typ:(returning void) +let connectedScenes self = msg_send ~self ~cmd:(selector "connectedScenes") ~typ:(returning id) +let currentUserNotificationSettings self = msg_send ~self ~cmd:(selector "currentUserNotificationSettings") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultImageSnapshotExpiration self = msg_send ~self ~cmd:(selector "defaultImageSnapshotExpiration") ~typ:(returning double) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didDismissMiniAlert self = msg_send ~self ~cmd:(selector "didDismissMiniAlert") ~typ:(returning void) +let didReceiveMemoryWarning self = msg_send ~self ~cmd:(selector "didReceiveMemoryWarning") ~typ:(returning void) +let disablesFrontBoardImplicitWindowScenes self = msg_send ~self ~cmd:(selector "disablesFrontBoardImplicitWindowScenes") ~typ:(returning bool) +let emitPPTEndTracePointForSubTestName x ~identifier self = msg_send ~self ~cmd:(selector "emitPPTEndTracePointForSubTestName:identifier:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int identifier) +let emitPPTEndTracePointForTestName x ~identifier self = msg_send ~self ~cmd:(selector "emitPPTEndTracePointForTestName:identifier:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int identifier) +let emitPPTStartTracePointForSubTestName x ~identifier ~testIdentifier self = msg_send ~self ~cmd:(selector "emitPPTStartTracePointForSubTestName:identifier:testIdentifier:") ~typ:(id @-> ullong @-> ullong @-> returning void) x (ULLong.of_int identifier) (ULLong.of_int testIdentifier) +let emitPPTStartTracePointForTestName x ~identifier self = msg_send ~self ~cmd:(selector "emitPPTStartTracePointForTestName:identifier:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int identifier) +let enabledRemoteNotificationTypes self = msg_send ~self ~cmd:(selector "enabledRemoteNotificationTypes") ~typ:(returning ullong) +let endBackgroundTask x self = msg_send ~self ~cmd:(selector "endBackgroundTask:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let endIgnoringInteractionEvents self = msg_send ~self ~cmd:(selector "endIgnoringInteractionEvents") ~typ:(returning void) +let endReceivingRemoteControlEvents self = msg_send ~self ~cmd:(selector "endReceivingRemoteControlEvents") ~typ:(returning void) +let endRemoteSheet x self = msg_send ~self ~cmd:(selector "endRemoteSheet:") ~typ:(id @-> returning void) x +let extendSnapshotContext x ~forSnapshotAction self = msg_send ~self ~cmd:(selector "extendSnapshotContext:forSnapshotAction:") ~typ:(id @-> id @-> returning void) x forSnapshotAction +let extendStateRestoration self = msg_send ~self ~cmd:(selector "extendStateRestoration") ~typ:(returning void) +let failedTest x self = msg_send ~self ~cmd:(selector "failedTest:") ~typ:(id @-> returning void) x +let failedTest1 x ~withFailure self = msg_send ~self ~cmd:(selector "failedTest:withFailure:") ~typ:(id @-> id @-> returning void) x withFailure +let failedTest2 x ~withResults self = msg_send ~self ~cmd:(selector "failedTest:withResults:") ~typ:(id @-> id @-> returning void) x withResults +let failedTest3 x ~withFailure ~withResults self = msg_send ~self ~cmd:(selector "failedTest:withFailure:withResults:") ~typ:(id @-> id @-> id @-> returning void) x withFailure withResults +let finishedIPTest x self = msg_send ~self ~cmd:(selector "finishedIPTest:") ~typ:(id @-> returning void) x +let finishedIPTest1 x ~extraResults self = msg_send ~self ~cmd:(selector "finishedIPTest:extraResults:") ~typ:(id @-> id @-> returning void) x extraResults +let finishedIPTest2 x ~extraResults ~withTeardownBlock self = msg_send ~self ~cmd:(selector "finishedIPTest:extraResults:withTeardownBlock:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x extraResults withTeardownBlock +let finishedIPTest3 x ~waitForCommit ~extraResults ~withTeardownBlock self = msg_send ~self ~cmd:(selector "finishedIPTest:waitForCommit:extraResults:withTeardownBlock:") ~typ:(id @-> bool @-> id @-> (ptr void) @-> returning void) x waitForCommit extraResults withTeardownBlock +let finishedSubTest x ~forTest self = msg_send ~self ~cmd:(selector "finishedSubTest:forTest:") ~typ:(id @-> id @-> returning void) x forTest +let finishedSubTest' x ~forTest ~waitForCommit self = msg_send ~self ~cmd:(selector "finishedSubTest:forTest:waitForCommit:") ~typ:(id @-> id @-> bool @-> returning void) x forTest waitForCommit +let finishedTest x self = msg_send ~self ~cmd:(selector "finishedTest:") ~typ:(id @-> returning void) x +let finishedTest1 x ~extraResults self = msg_send ~self ~cmd:(selector "finishedTest:extraResults:") ~typ:(id @-> id @-> returning void) x extraResults +let finishedTest2 x ~extraResults ~waitForNotification self = msg_send ~self ~cmd:(selector "finishedTest:extraResults:waitForNotification:") ~typ:(id @-> id @-> id @-> returning void) x extraResults waitForNotification +let finishedTest3 x ~extraResults ~withTeardownBlock self = msg_send ~self ~cmd:(selector "finishedTest:extraResults:withTeardownBlock:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x extraResults withTeardownBlock +let finishedTest4 x ~waitForCommit ~extraResults self = msg_send ~self ~cmd:(selector "finishedTest:waitForCommit:extraResults:") ~typ:(id @-> bool @-> id @-> returning void) x waitForCommit extraResults +let finishedTest5 x ~extraResults ~waitForNotification ~withTeardownBlock self = msg_send ~self ~cmd:(selector "finishedTest:extraResults:waitForNotification:withTeardownBlock:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x extraResults waitForNotification withTeardownBlock +let finishedTest6 x ~waitForCommit ~extraResults ~withTeardownBlock self = msg_send ~self ~cmd:(selector "finishedTest:waitForCommit:extraResults:withTeardownBlock:") ~typ:(id @-> bool @-> id @-> (ptr void) @-> returning void) x waitForCommit extraResults withTeardownBlock +let handleDoubleHeightStatusBarTapWithStyleOverride x self = msg_send ~self ~cmd:(selector "handleDoubleHeightStatusBarTapWithStyleOverride:") ~typ:(ullong @-> returning bool) (ULLong.of_int x) +let handleEvent x self = msg_send ~self ~cmd:(selector "handleEvent:") ~typ:((ptr void) @-> returning bool) x +let handleEvent' x ~withNewEvent self = msg_send ~self ~cmd:(selector "handleEvent:withNewEvent:") ~typ:((ptr void) @-> id @-> returning bool) x withNewEvent +let handleKeyCommand x ~repeatable ~beforeKeyEvent self = msg_send ~self ~cmd:(selector "handleKeyCommand:repeatable:beforeKeyEvent:") ~typ:(id @-> bool @-> bool @-> returning bool) x repeatable beforeKeyEvent +let handleKeyEvent x self = msg_send ~self ~cmd:(selector "handleKeyEvent:") ~typ:((ptr void) @-> returning void) x +let handleKeyHIDEvent x self = msg_send ~self ~cmd:(selector "handleKeyHIDEvent:") ~typ:((ptr void) @-> returning void) x +let handleKeyUIEvent x self = msg_send ~self ~cmd:(selector "handleKeyUIEvent:") ~typ:(id @-> returning void) x +let handleKeyUpCommand x self = msg_send ~self ~cmd:(selector "handleKeyUpCommand:") ~typ:(id @-> returning bool) x +let handleStatusBarHoverActionForRegion x self = msg_send ~self ~cmd:(selector "handleStatusBarHoverActionForRegion:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let handleTestURL x self = msg_send ~self ~cmd:(selector "handleTestURL:") ~typ:(id @-> returning bool) x +let headsetAvailabilityChanged x self = msg_send ~self ~cmd:(selector "headsetAvailabilityChanged:") ~typ:((ptr void) @-> returning void) x +let headsetButtonDown x self = msg_send ~self ~cmd:(selector "headsetButtonDown:") ~typ:((ptr void) @-> returning void) x +let headsetButtonUp x self = msg_send ~self ~cmd:(selector "headsetButtonUp:") ~typ:((ptr void) @-> returning void) x +let hidUsageFromUIKeyInput x self = msg_send ~self ~cmd:(selector "hidUsageFromUIKeyInput:") ~typ:(id @-> returning llong) x +let idleTimerDisabledReasons self = msg_send ~self ~cmd:(selector "idleTimerDisabledReasons") ~typ:(returning id) +let ignoreSnapshotOnNextApplicationLaunch self = msg_send ~self ~cmd:(selector "ignoreSnapshotOnNextApplicationLaunch") ~typ:(returning void) +let ignoresInteractionEvents self = msg_send ~self ~cmd:(selector "ignoresInteractionEvents") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let installCACommitCompletionBlock x self = msg_send ~self ~cmd:(selector "installCACommitCompletionBlock:") ~typ:((ptr void) @-> returning void) x +let installNotificationObserverForNotificationName x ~forOneNotification ~usingBlock self = msg_send ~self ~cmd:(selector "installNotificationObserverForNotificationName:forOneNotification:usingBlock:") ~typ:(id @-> bool @-> (ptr void) @-> returning void) x forOneNotification usingBlock +let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning llong) +let isFrontBoard self = msg_send ~self ~cmd:(selector "isFrontBoard") ~typ:(returning bool) +let isHandlingOpenShortCut self = msg_send ~self ~cmd:(selector "isHandlingOpenShortCut") ~typ:(returning bool) +let isHandlingURL self = msg_send ~self ~cmd:(selector "isHandlingURL") ~typ:(returning bool) +let isIdleTimerDisabled self = msg_send ~self ~cmd:(selector "isIdleTimerDisabled") ~typ:(returning bool) +let isIgnoringInteractionEvents self = msg_send ~self ~cmd:(selector "isIgnoringInteractionEvents") ~typ:(returning bool) +let isKeyCommand x self = msg_send ~self ~cmd:(selector "isKeyCommand:") ~typ:(id @-> returning bool) x +let isLaunchTest x self = msg_send ~self ~cmd:(selector "isLaunchTest:") ~typ:(id @-> returning bool) x +let isLocked self = msg_send ~self ~cmd:(selector "isLocked") ~typ:(returning bool) +let isNetworkActivityIndicatorVisible self = msg_send ~self ~cmd:(selector "isNetworkActivityIndicatorVisible") ~typ:(returning bool) +let isPPTAvailable self = msg_send ~self ~cmd:(selector "isPPTAvailable") ~typ:(returning bool) +let isPasscodeRequiredToUnlock self = msg_send ~self ~cmd:(selector "isPasscodeRequiredToUnlock") ~typ:(returning bool) +let isProtectedDataAvailable self = msg_send ~self ~cmd:(selector "isProtectedDataAvailable") ~typ:(returning bool) +let isProximitySensingEnabled self = msg_send ~self ~cmd:(selector "isProximitySensingEnabled") ~typ:(returning bool) +let isRegisteredForRemoteNotifications self = msg_send ~self ~cmd:(selector "isRegisteredForRemoteNotifications") ~typ:(returning bool) +let isRunningInTaskSwitcher self = msg_send ~self ~cmd:(selector "isRunningInTaskSwitcher") ~typ:(returning bool) +let isRunningQuitTest self = msg_send ~self ~cmd:(selector "isRunningQuitTest") ~typ:(returning bool) +let isRunningSuspendTest self = msg_send ~self ~cmd:(selector "isRunningSuspendTest") ~typ:(returning bool) +let isRunningTest self = msg_send ~self ~cmd:(selector "isRunningTest") ~typ:(returning bool) +let isRunningTest' x self = msg_send ~self ~cmd:(selector "isRunningTest:") ~typ:(id @-> returning bool) x +let isStatusBarHidden self = msg_send ~self ~cmd:(selector "isStatusBarHidden") ~typ:(returning bool) +let isSuspended self = msg_send ~self ~cmd:(selector "isSuspended") ~typ:(returning bool) +let isSuspendedEventsOnly self = msg_send ~self ~cmd:(selector "isSuspendedEventsOnly") ~typ:(returning bool) +let isSuspendedUnderLock self = msg_send ~self ~cmd:(selector "isSuspendedUnderLock") ~typ:(returning bool) +let keyCommands self = msg_send ~self ~cmd:(selector "keyCommands") ~typ:(returning id) +let keyWindow self = msg_send ~self ~cmd:(selector "keyWindow") ~typ:(returning id) +let launchApplicationWithIdentifier x ~suspended self = msg_send ~self ~cmd:(selector "launchApplicationWithIdentifier:suspended:") ~typ:(id @-> bool @-> returning bool) x suspended +let launchedToTest self = msg_send ~self ~cmd:(selector "launchedToTest") ~typ:(returning bool) +let layoutMonitor x ~didUpdateDisplayLayout ~withContext self = msg_send ~self ~cmd:(selector "layoutMonitor:didUpdateDisplayLayout:withContext:") ~typ:(id @-> id @-> id @-> returning void) x didUpdateDisplayLayout withContext +let lockButtonDown x self = msg_send ~self ~cmd:(selector "lockButtonDown:") ~typ:((ptr void) @-> returning void) x +let lockButtonUp x self = msg_send ~self ~cmd:(selector "lockButtonUp:") ~typ:((ptr void) @-> returning void) x +let lockDevice x self = msg_send ~self ~cmd:(selector "lockDevice:") ~typ:((ptr void) @-> returning void) x +let mediaKeyDown x self = msg_send ~self ~cmd:(selector "mediaKeyDown:") ~typ:((ptr void) @-> returning void) x +let mediaKeyUp x self = msg_send ~self ~cmd:(selector "mediaKeyUp:") ~typ:((ptr void) @-> returning void) x +let menuButtonDown x self = msg_send ~self ~cmd:(selector "menuButtonDown:") ~typ:((ptr void) @-> returning void) x +let menuButtonUp x self = msg_send ~self ~cmd:(selector "menuButtonUp:") ~typ:((ptr void) @-> returning void) x +let motionBegan x ~withEvent self = msg_send ~self ~cmd:(selector "motionBegan:withEvent:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) withEvent +let motionCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "motionCancelled:withEvent:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) withEvent +let motionEnded x ~withEvent self = msg_send ~self ~cmd:(selector "motionEnded:withEvent:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) withEvent +let nameOfDefaultImageToUpdateAtSuspension self = msg_send ~self ~cmd:(selector "nameOfDefaultImageToUpdateAtSuspension") ~typ:(returning id) +let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning id) +let noteActiveInterfaceOrientationDidChangeToOrientation x ~willAnimateWithSettings ~fromOrientation self = msg_send ~self ~cmd:(selector "noteActiveInterfaceOrientationDidChangeToOrientation:willAnimateWithSettings:fromOrientation:") ~typ:(llong @-> id @-> llong @-> returning void) (LLong.of_int x) willAnimateWithSettings (LLong.of_int fromOrientation) +let noteActiveInterfaceOrientationWillChangeToOrientation x self = msg_send ~self ~cmd:(selector "noteActiveInterfaceOrientationWillChangeToOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let noteNewRecentDocumentURL x self = msg_send ~self ~cmd:(selector "noteNewRecentDocumentURL:") ~typ:(id @-> returning void) x +let openSessions self = msg_send ~self ~cmd:(selector "openSessions") ~typ:(returning id) +let openURL x self = msg_send ~self ~cmd:(selector "openURL:") ~typ:(id @-> returning bool) x +let openURL1 x ~withCompletionHandler self = msg_send ~self ~cmd:(selector "openURL:withCompletionHandler:") ~typ:(id @-> (ptr void) @-> returning void) x withCompletionHandler +let openURL2 x ~options ~completionHandler self = msg_send ~self ~cmd:(selector "openURL:options:completionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x options completionHandler +let orderFrontCharacterPalette x self = msg_send ~self ~cmd:(selector "orderFrontCharacterPalette:") ~typ:(id @-> returning void) x +let overriddenRequestedStyleFromStyle x self = msg_send ~self ~cmd:(selector "overriddenRequestedStyleFromStyle:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let pathToDefaultImageNamed x ~forScreen self = msg_send ~self ~cmd:(selector "pathToDefaultImageNamed:forScreen:") ~typ:(id @-> id @-> returning id) x forScreen +let popRunLoopMode x self = msg_send ~self ~cmd:(selector "popRunLoopMode:") ~typ:(id @-> returning void) x +let popRunLoopMode' x ~requester self = msg_send ~self ~cmd:(selector "popRunLoopMode:requester:") ~typ:(id @-> id @-> returning void) x requester +let preferredContentSizeCategory self = msg_send ~self ~cmd:(selector "preferredContentSizeCategory") ~typ:(returning id) +let prepareForDefaultImageSnapshot self = msg_send ~self ~cmd:(selector "prepareForDefaultImageSnapshot") ~typ:(returning void) +let prepareForDefaultImageSnapshotForScreen x self = msg_send ~self ~cmd:(selector "prepareForDefaultImageSnapshotForScreen:") ~typ:(id @-> returning void) x +let prepareSnapshotsWithAction x ~forScene ~completion self = msg_send ~self ~cmd:(selector "prepareSnapshotsWithAction:forScene:completion:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x forScene completion +let presentLocalNotificationNow x self = msg_send ~self ~cmd:(selector "presentLocalNotificationNow:") ~typ:(id @-> returning void) x +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let proximityStateChanged x self = msg_send ~self ~cmd:(selector "proximityStateChanged:") ~typ:(bool @-> returning void) x +let pureUserInterfaceLayoutDirection self = msg_send ~self ~cmd:(selector "pureUserInterfaceLayoutDirection") ~typ:(returning llong) +let pushRegistry x ~didInvalidatePushTokenForType ~error self = msg_send ~self ~cmd:(selector "pushRegistry:didInvalidatePushTokenForType:error:") ~typ:(id @-> id @-> id @-> returning void) x didInvalidatePushTokenForType error +let pushRegistry1 x ~didUpdatePushCredentials ~forType self = msg_send ~self ~cmd:(selector "pushRegistry:didUpdatePushCredentials:forType:") ~typ:(id @-> id @-> id @-> returning void) x didUpdatePushCredentials forType +let pushRegistry2 x ~didReceiveIncomingPushWithPayload ~forType ~withCompletionHandler self = msg_send ~self ~cmd:(selector "pushRegistry:didReceiveIncomingPushWithPayload:forType:withCompletionHandler:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x didReceiveIncomingPushWithPayload forType withCompletionHandler +let pushRunLoopMode x self = msg_send ~self ~cmd:(selector "pushRunLoopMode:") ~typ:(id @-> returning void) x +let pushRunLoopMode' x ~requester self = msg_send ~self ~cmd:(selector "pushRunLoopMode:requester:") ~typ:(id @-> id @-> returning void) x requester +let registerForRemoteNotificationTypes x self = msg_send ~self ~cmd:(selector "registerForRemoteNotificationTypes:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let registerForRemoteNotifications self = msg_send ~self ~cmd:(selector "registerForRemoteNotifications") ~typ:(returning void) +let registerPlatformSpecificLaunchOptions x ~transitionContext self = msg_send ~self ~cmd:(selector "registerPlatformSpecificLaunchOptions:transitionContext:") ~typ:((ptr void) @-> id @-> returning void) x transitionContext +let registerUserNotificationSettings x self = msg_send ~self ~cmd:(selector "registerUserNotificationSettings:") ~typ:(id @-> returning void) x +let removeApplicationPreservationStateWithSessionIdentifier x self = msg_send ~self ~cmd:(selector "removeApplicationPreservationStateWithSessionIdentifier:") ~typ:(id @-> returning void) x +let removeDefaultImage x self = msg_send ~self ~cmd:(selector "removeDefaultImage:") ~typ:(id @-> returning bool) x +let removeDefaultImage' x ~forScreen self = msg_send ~self ~cmd:(selector "removeDefaultImage:forScreen:") ~typ:(id @-> id @-> returning bool) x forScreen +let removeStatusBarItem x self = msg_send ~self ~cmd:(selector "removeStatusBarItem:") ~typ:(int @-> returning void) x +let repeatedActionWillInvokeWithObject x ~forPhase self = msg_send ~self ~cmd:(selector "repeatedActionWillInvokeWithObject:forPhase:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int forPhase) +let reportApplicationSuspended self = msg_send ~self ~cmd:(selector "reportApplicationSuspended") ~typ:(returning bool) +let requestNewScene x self = msg_send ~self ~cmd:(selector "requestNewScene:") ~typ:(id @-> returning void) x +let requestSceneSessionActivation x ~userActivity ~options ~errorHandler self = msg_send ~self ~cmd:(selector "requestSceneSessionActivation:userActivity:options:errorHandler:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x userActivity options errorHandler +let requestSceneSessionDestruction x ~options ~errorHandler self = msg_send ~self ~cmd:(selector "requestSceneSessionDestruction:options:errorHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x options errorHandler +let requestSceneSessionRefresh x self = msg_send ~self ~cmd:(selector "requestSceneSessionRefresh:") ~typ:(id @-> returning void) x +let resetIdleTimerAndUndim self = msg_send ~self ~cmd:(selector "resetIdleTimerAndUndim") ~typ:(returning void) +let restoreApplicationPreservationStateWithSessionIdentifier x ~viewController ~beginHandler ~completionHandler self = msg_send ~self ~cmd:(selector "restoreApplicationPreservationStateWithSessionIdentifier:viewController:beginHandler:completionHandler:") ~typ:(id @-> id @-> (ptr void) @-> (ptr void) @-> returning void) x viewController beginHandler completionHandler +let resultsForTest x self = msg_send ~self ~cmd:(selector "resultsForTest:") ~typ:(id @-> returning id) x +let ringerChanged x self = msg_send ~self ~cmd:(selector "ringerChanged:") ~typ:(int @-> returning void) x +let rotateIfNeeded x self = msg_send ~self ~cmd:(selector "rotateIfNeeded:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let rotateIfNeeded1 x ~completion self = msg_send ~self ~cmd:(selector "rotateIfNeeded:completion:") ~typ:(llong @-> (ptr void) @-> returning void) (LLong.of_int x) completion +let rotateIfNeeded2 x ~before ~after self = msg_send ~self ~cmd:(selector "rotateIfNeeded:before:after:") ~typ:(llong @-> (ptr void) @-> (ptr void) @-> returning void) (LLong.of_int x) before after +let runModal x self = msg_send ~self ~cmd:(selector "runModal:") ~typ:(id @-> returning void) x +let runTest x ~forAnimation self = msg_send ~self ~cmd:(selector "runTest:forAnimation:") ~typ:(id @-> id @-> returning void) x forAnimation +let runTest1 x ~options self = msg_send ~self ~cmd:(selector "runTest:options:") ~typ:(id @-> id @-> returning bool) x options +let runTest2 x ~startingBeforeAnimation ~stoppingAfterAnimation self = msg_send ~self ~cmd:(selector "runTest:startingBeforeAnimation:stoppingAfterAnimation:") ~typ:(id @-> id @-> id @-> returning void) x startingBeforeAnimation stoppingAfterAnimation +let runTestForKeyboardBringupAndDismissalWithName x ~withShowKeyboardBlock ~withHideKeyboardBlock ~withExtraResultsBlock ~withCleanupBlock self = msg_send ~self ~cmd:(selector "runTestForKeyboardBringupAndDismissalWithName:withShowKeyboardBlock:withHideKeyboardBlock:withExtraResultsBlock:withCleanupBlock:") ~typ:(id @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> returning void) x withShowKeyboardBlock withHideKeyboardBlock withExtraResultsBlock withCleanupBlock +let runTestForKeyboardRotationWithName x ~fromOrientation ~withShowKeyboardBlock ~withExtraResultsBlock ~withCleanupBlock self = msg_send ~self ~cmd:(selector "runTestForKeyboardRotationWithName:fromOrientation:withShowKeyboardBlock:withExtraResultsBlock:withCleanupBlock:") ~typ:(id @-> llong @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> returning void) x (LLong.of_int fromOrientation) withShowKeyboardBlock withExtraResultsBlock withCleanupBlock +let runTestForKeyboardSplitAndMergeWithName x ~withShowKeyboardBlock ~withExtraResultsBlock ~withCleanupBlock self = msg_send ~self ~cmd:(selector "runTestForKeyboardSplitAndMergeWithName:withShowKeyboardBlock:withExtraResultsBlock:withCleanupBlock:") ~typ:(id @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> returning void) x withShowKeyboardBlock withExtraResultsBlock withCleanupBlock +let saveApplicationPreservationStateWithSessionIdentifier x ~viewController ~beginHandler ~completionHandler self = msg_send ~self ~cmd:(selector "saveApplicationPreservationStateWithSessionIdentifier:viewController:beginHandler:completionHandler:") ~typ:(id @-> id @-> (ptr void) @-> (ptr void) @-> returning void) x viewController beginHandler completionHandler +let scheduleLocalNotification x self = msg_send ~self ~cmd:(selector "scheduleLocalNotification:") ~typ:(id @-> returning void) x +let scheduledLocalNotifications self = msg_send ~self ~cmd:(selector "scheduledLocalNotifications") ~typ:(returning id) +let sendAction x ~to_ ~from ~forEvent self = msg_send ~self ~cmd:(selector "sendAction:to:from:forEvent:") ~typ:(_SEL @-> id @-> id @-> id @-> returning bool) x to_ from forEvent +let sendAction' x ~toTarget ~fromSender ~forEvent self = msg_send ~self ~cmd:(selector "sendAction:toTarget:fromSender:forEvent:") ~typ:(_SEL @-> id @-> id @-> id @-> returning bool) x toTarget fromSender forEvent +let sendEvent x self = msg_send ~self ~cmd:(selector "sendEvent:") ~typ:(id @-> returning void) x +let setAlternateIconName x ~completionHandler self = msg_send ~self ~cmd:(selector "setAlternateIconName:completionHandler:") ~typ:(id @-> (ptr void) @-> returning void) x completionHandler +let setApplicationBadgeString x self = msg_send ~self ~cmd:(selector "setApplicationBadgeString:") ~typ:(id @-> returning void) x +let setApplicationIconBadgeNumber x self = msg_send ~self ~cmd:(selector "setApplicationIconBadgeNumber:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setApplicationSupportsShakeToEdit x self = msg_send ~self ~cmd:(selector "setApplicationSupportsShakeToEdit:") ~typ:(bool @-> returning void) x +let setBacklightLevel x self = msg_send ~self ~cmd:(selector "setBacklightLevel:") ~typ:(float @-> returning void) x +let setCapsLockDelayOverride x self = msg_send ~self ~cmd:(selector "setCapsLockDelayOverride:") ~typ:(double @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDoubleHeightPrefixText x self = msg_send ~self ~cmd:(selector "setDoubleHeightPrefixText:") ~typ:(id @-> returning void) x +let setDoubleHeightStatusText x self = msg_send ~self ~cmd:(selector "setDoubleHeightStatusText:") ~typ:(id @-> returning void) x +let setDoubleHeightStatusText' x ~forStyle self = msg_send ~self ~cmd:(selector "setDoubleHeightStatusText:forStyle:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forStyle) +let setExpectsFaceContact x self = msg_send ~self ~cmd:(selector "setExpectsFaceContact:") ~typ:(bool @-> returning void) x +let setExpectsFaceContact' x ~inLandscape self = msg_send ~self ~cmd:(selector "setExpectsFaceContact:inLandscape:") ~typ:(bool @-> bool @-> returning void) x inLandscape +let setGlowAnimationEnabled x ~forStyle self = msg_send ~self ~cmd:(selector "setGlowAnimationEnabled:forStyle:") ~typ:(bool @-> llong @-> returning void) x (LLong.of_int forStyle) +let setHardwareKeyboardLayoutName x self = msg_send ~self ~cmd:(selector "setHardwareKeyboardLayoutName:") ~typ:(id @-> returning void) x +let setHardwareKeyboardLayoutName' x ~forceRebuild self = msg_send ~self ~cmd:(selector "setHardwareKeyboardLayoutName:forceRebuild:") ~typ:(id @-> bool @-> returning void) x forceRebuild +let setIdleTimerDisabled x self = msg_send ~self ~cmd:(selector "setIdleTimerDisabled:") ~typ:(bool @-> returning void) x +let setIgnoresInteractionEvents x self = msg_send ~self ~cmd:(selector "setIgnoresInteractionEvents:") ~typ:(bool @-> returning void) x +let setKeepAliveTimeout x ~handler self = msg_send ~self ~cmd:(selector "setKeepAliveTimeout:handler:") ~typ:(double @-> (ptr void) @-> returning bool) x handler +let setMinimumBackgroundFetchInterval x self = msg_send ~self ~cmd:(selector "setMinimumBackgroundFetchInterval:") ~typ:(double @-> returning void) x +let setNetworkActivityIndicatorVisible x self = msg_send ~self ~cmd:(selector "setNetworkActivityIndicatorVisible:") ~typ:(bool @-> returning void) x +let setNewsstandIconImage x self = msg_send ~self ~cmd:(selector "setNewsstandIconImage:") ~typ:(id @-> returning void) x +let setProximityEventsEnabled x self = msg_send ~self ~cmd:(selector "setProximityEventsEnabled:") ~typ:(bool @-> returning void) x +let setProximitySensingEnabled x self = msg_send ~self ~cmd:(selector "setProximitySensingEnabled:") ~typ:(bool @-> returning void) x +let setReceivesMemoryWarnings x self = msg_send ~self ~cmd:(selector "setReceivesMemoryWarnings:") ~typ:(bool @-> returning void) x +let setScheduledLocalNotifications x self = msg_send ~self ~cmd:(selector "setScheduledLocalNotifications:") ~typ:(id @-> returning void) x +let setShortcutItems x self = msg_send ~self ~cmd:(selector "setShortcutItems:") ~typ:(id @-> returning void) x +let setStatusBarHidden x self = msg_send ~self ~cmd:(selector "setStatusBarHidden:") ~typ:(bool @-> returning void) x +let setStatusBarHidden1 x ~animated self = msg_send ~self ~cmd:(selector "setStatusBarHidden:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setStatusBarHidden2 x ~animationParameters self = msg_send ~self ~cmd:(selector "setStatusBarHidden:animationParameters:") ~typ:(bool @-> id @-> returning void) x animationParameters +let setStatusBarHidden3 x ~duration self = msg_send ~self ~cmd:(selector "setStatusBarHidden:duration:") ~typ:(bool @-> double @-> returning void) x duration +let setStatusBarHidden4 x ~withAnimation self = msg_send ~self ~cmd:(selector "setStatusBarHidden:withAnimation:") ~typ:(bool @-> llong @-> returning void) x (LLong.of_int withAnimation) +let setStatusBarHidden5 x ~animationParameters ~changeApplicationFlag self = msg_send ~self ~cmd:(selector "setStatusBarHidden:animationParameters:changeApplicationFlag:") ~typ:(bool @-> id @-> bool @-> returning void) x animationParameters changeApplicationFlag +let setStatusBarHidden6 x ~duration ~changeApplicationFlag self = msg_send ~self ~cmd:(selector "setStatusBarHidden:duration:changeApplicationFlag:") ~typ:(bool @-> double @-> bool @-> returning void) x duration changeApplicationFlag +let setStatusBarOrientation x self = msg_send ~self ~cmd:(selector "setStatusBarOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setStatusBarOrientation1 x ~animated self = msg_send ~self ~cmd:(selector "setStatusBarOrientation:animated:") ~typ:(llong @-> bool @-> returning void) (LLong.of_int x) animated +let setStatusBarOrientation2 x ~animationParameters self = msg_send ~self ~cmd:(selector "setStatusBarOrientation:animationParameters:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) animationParameters +let setStatusBarOrientation3 x ~animation ~duration self = msg_send ~self ~cmd:(selector "setStatusBarOrientation:animation:duration:") ~typ:(llong @-> int @-> double @-> returning void) (LLong.of_int x) animation duration +let setStatusBarOrientation4 x ~fromOrientation ~windowScene ~animationParameters ~updateBlock self = msg_send ~self ~cmd:(selector "setStatusBarOrientation:fromOrientation:windowScene:animationParameters:updateBlock:") ~typ:(llong @-> llong @-> id @-> id @-> (ptr void) @-> returning void) (LLong.of_int x) (LLong.of_int fromOrientation) windowScene animationParameters updateBlock +let setStatusBarShowsProgress x self = msg_send ~self ~cmd:(selector "setStatusBarShowsProgress:") ~typ:(bool @-> returning void) x +let setStatusBarStyle x self = msg_send ~self ~cmd:(selector "setStatusBarStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setStatusBarStyle1 x ~animated self = msg_send ~self ~cmd:(selector "setStatusBarStyle:animated:") ~typ:(llong @-> bool @-> returning void) (LLong.of_int x) animated +let setStatusBarStyle2 x ~animation self = msg_send ~self ~cmd:(selector "setStatusBarStyle:animation:") ~typ:(llong @-> int @-> returning void) (LLong.of_int x) animation +let setStatusBarStyle3 x ~animationParameters self = msg_send ~self ~cmd:(selector "setStatusBarStyle:animationParameters:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) animationParameters +let setStatusBarStyle4 x ~duration self = msg_send ~self ~cmd:(selector "setStatusBarStyle:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let setStatusBarStyle5 x ~animation ~startTime ~duration ~curve self = msg_send ~self ~cmd:(selector "setStatusBarStyle:animation:startTime:duration:curve:") ~typ:(llong @-> int @-> double @-> double @-> llong @-> returning void) (LLong.of_int x) animation startTime duration (LLong.of_int curve) +let setSuspensionAnimationDelay x self = msg_send ~self ~cmd:(selector "setSuspensionAnimationDelay:") ~typ:(double @-> returning void) x +let setSystemVolumeHUDEnabled x self = msg_send ~self ~cmd:(selector "setSystemVolumeHUDEnabled:") ~typ:(bool @-> returning void) x +let setSystemVolumeHUDEnabled' x ~forAudioCategory self = msg_send ~self ~cmd:(selector "setSystemVolumeHUDEnabled:forAudioCategory:") ~typ:(bool @-> id @-> returning void) x forAudioCategory +let setUsesBackgroundNetwork x self = msg_send ~self ~cmd:(selector "setUsesBackgroundNetwork:") ~typ:(bool @-> returning void) x +let setWantsLockEvents x self = msg_send ~self ~cmd:(selector "setWantsLockEvents:") ~typ:(bool @-> returning void) x +let setWantsVolumeButtonEvents x self = msg_send ~self ~cmd:(selector "setWantsVolumeButtonEvents:") ~typ:(bool @-> returning void) x +let shortcutItems self = msg_send ~self ~cmd:(selector "shortcutItems") ~typ:(returning id) +let shouldFenceStatusBarRotation self = msg_send ~self ~cmd:(selector "shouldFenceStatusBarRotation") ~typ:(returning bool) +let shouldLaunchSafe self = msg_send ~self ~cmd:(selector "shouldLaunchSafe") ~typ:(returning bool) +let shouldRecordExtendedLaunchTime self = msg_send ~self ~cmd:(selector "shouldRecordExtendedLaunchTime") ~typ:(returning bool) +let showKeyboardUsingBlock x ~withCompletionBlock self = msg_send ~self ~cmd:(selector "showKeyboardUsingBlock:withCompletionBlock:") ~typ:((ptr void) @-> (ptr void) @-> returning void) x withCompletionBlock +let showNetworkPromptsIfNecessary x self = msg_send ~self ~cmd:(selector "showNetworkPromptsIfNecessary:") ~typ:(bool @-> returning void) x +let significantTimeChange self = msg_send ~self ~cmd:(selector "significantTimeChange") ~typ:(returning void) +let startCHUDRecording x self = msg_send ~self ~cmd:(selector "startCHUDRecording:") ~typ:(id @-> returning void) x +let startDictation x self = msg_send ~self ~cmd:(selector "startDictation:") ~typ:(id @-> returning void) x +let startLeaking self = msg_send ~self ~cmd:(selector "startLeaking") ~typ:(returning void) +let startedAnimationTest x self = msg_send ~self ~cmd:(selector "startedAnimationTest:") ~typ:(id @-> returning void) x +let startedIPTest x self = msg_send ~self ~cmd:(selector "startedIPTest:") ~typ:(id @-> returning void) x +let startedSubTest x ~forTest self = msg_send ~self ~cmd:(selector "startedSubTest:forTest:") ~typ:(id @-> id @-> returning void) x forTest +let startedSubTest' x ~forTest ~withMetrics self = msg_send ~self ~cmd:(selector "startedSubTest:forTest:withMetrics:") ~typ:(id @-> id @-> id @-> returning void) x forTest withMetrics +let startedTest x self = msg_send ~self ~cmd:(selector "startedTest:") ~typ:(id @-> returning void) x +let statusBar self = msg_send ~self ~cmd:(selector "statusBar") ~typ:(returning id) +let statusBar1 x ~effectiveStyleOverridesForRequestedStyle ~overrides self = msg_send ~self ~cmd:(selector "statusBar:effectiveStyleOverridesForRequestedStyle:overrides:") ~typ:(id @-> llong @-> ullong @-> returning ullong) x (LLong.of_int effectiveStyleOverridesForRequestedStyle) (ULLong.of_int overrides) +let statusBar2 x ~styleForRequestedStyle ~overrides self = msg_send ~self ~cmd:(selector "statusBar:styleForRequestedStyle:overrides:") ~typ:(id @-> llong @-> ullong @-> returning llong) x (LLong.of_int styleForRequestedStyle) (ULLong.of_int overrides) +let statusBar3 x ~didAnimateFromHeight ~toHeight ~animation self = msg_send ~self ~cmd:(selector "statusBar:didAnimateFromHeight:toHeight:animation:") ~typ:(id @-> double @-> double @-> int @-> returning void) x didAnimateFromHeight toHeight animation +let statusBar4 x ~willAnimateFromHeight ~toHeight ~duration ~animation self = msg_send ~self ~cmd:(selector "statusBar:willAnimateFromHeight:toHeight:duration:animation:") ~typ:(id @-> double @-> double @-> double @-> int @-> returning void) x willAnimateFromHeight toHeight duration animation +let statusBarFrame self = msg_send ~self ~cmd:(selector "statusBarFrame") ~typ:(returning CGRect.t) +let statusBarFrameForOrientation x self = msg_send ~self ~cmd:(selector "statusBarFrameForOrientation:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) +let statusBarHeight self = msg_send ~self ~cmd:(selector "statusBarHeight") ~typ:(returning double) +let statusBarHeightForOrientation x self = msg_send ~self ~cmd:(selector "statusBarHeightForOrientation:") ~typ:(llong @-> returning double) (LLong.of_int x) +let statusBarHeightForOrientation' x ~ignoreHidden self = msg_send ~self ~cmd:(selector "statusBarHeightForOrientation:ignoreHidden:") ~typ:(llong @-> bool @-> returning double) (LLong.of_int x) ignoreHidden +let statusBarOrientation self = msg_send ~self ~cmd:(selector "statusBarOrientation") ~typ:(returning llong) +let statusBarOrientationAnimationDuration self = msg_send ~self ~cmd:(selector "statusBarOrientationAnimationDuration") ~typ:(returning double) +let statusBarStyle self = msg_send ~self ~cmd:(selector "statusBarStyle") ~typ:(returning llong) +let statusBarSystemNavigationAction x self = msg_send ~self ~cmd:(selector "statusBarSystemNavigationAction:") ~typ:(id @-> returning id) x +let statusBarWindow self = msg_send ~self ~cmd:(selector "statusBarWindow") ~typ:(returning id) +let statusBarWithWindow x self = msg_send ~self ~cmd:(selector "statusBarWithWindow:") ~typ:(id @-> returning id) x +let stopAndReportResultsForTest x ~extraResults ~waitForNotification ~withTeardownBlock self = msg_send ~self ~cmd:(selector "stopAndReportResultsForTest:extraResults:waitForNotification:withTeardownBlock:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x extraResults waitForNotification withTeardownBlock +let stopCHUDRecording self = msg_send ~self ~cmd:(selector "stopCHUDRecording") ~typ:(returning void) +let stopLeaking self = msg_send ~self ~cmd:(selector "stopLeaking") ~typ:(returning void) +let stopModal self = msg_send ~self ~cmd:(selector "stopModal") ~typ:(returning void) +let subTest x ~_ForTest ~withMetrics self = msg_send ~self ~cmd:(selector "subTest:ForTest:withMetrics:") ~typ:(id @-> id @-> id @-> returning id) x _ForTest withMetrics +let supportedInterfaceOrientationsForWindow x self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientationsForWindow:") ~typ:(id @-> returning ullong) x +let supportsAlternateIcons self = msg_send ~self ~cmd:(selector "supportsAlternateIcons") ~typ:(returning bool) +let supportsMultipleScenes self = msg_send ~self ~cmd:(selector "supportsMultipleScenes") ~typ:(returning bool) +let suspend self = msg_send ~self ~cmd:(selector "suspend") ~typ:(returning void) +let suspendReturningToLastApp x self = msg_send ~self ~cmd:(selector "suspendReturningToLastApp:") ~typ:(bool @-> returning void) x +let systemIsAnimatingApplicationLifecycleEvent self = msg_send ~self ~cmd:(selector "systemIsAnimatingApplicationLifecycleEvent") ~typ:(returning bool) +let terminateWithSuccess self = msg_send ~self ~cmd:(selector "terminateWithSuccess") ~typ:(returning void) +let testPrep x ~options self = msg_send ~self ~cmd:(selector "testPrep:options:") ~typ:(id @-> id @-> returning void) x options +let textInputMode self = msg_send ~self ~cmd:(selector "textInputMode") ~typ:(returning id) +let toggleFontPanel x self = msg_send ~self ~cmd:(selector "toggleFontPanel:") ~typ:(id @-> returning void) x +let touchBarController self = msg_send ~self ~cmd:(selector "touchBarController") ~typ:(returning id) +let unregisterForRemoteNotifications self = msg_send ~self ~cmd:(selector "unregisterForRemoteNotifications") ~typ:(returning void) +let updateSuspendedSettings x self = msg_send ~self ~cmd:(selector "updateSuspendedSettings:") ~typ:(id @-> returning void) x +let userCachesDirectory self = msg_send ~self ~cmd:(selector "userCachesDirectory") ~typ:(returning id) +let userDefaultsDidChange x self = msg_send ~self ~cmd:(selector "userDefaultsDidChange:") ~typ:(id @-> returning void) x +let userHomeDirectory self = msg_send ~self ~cmd:(selector "userHomeDirectory") ~typ:(returning id) +let userInfoDictionaryForRunLoopMode x ~requester self = msg_send ~self ~cmd:(selector "userInfoDictionaryForRunLoopMode:requester:") ~typ:(id @-> id @-> returning id) x requester +let userInterfaceLayoutDirection self = msg_send ~self ~cmd:(selector "userInterfaceLayoutDirection") ~typ:(returning llong) +let userLibraryDirectory self = msg_send ~self ~cmd:(selector "userLibraryDirectory") ~typ:(returning id) +let usesBackgroundNetwork self = msg_send ~self ~cmd:(selector "usesBackgroundNetwork") ~typ:(returning bool) +let validateCommand x self = msg_send ~self ~cmd:(selector "validateCommand:") ~typ:(id @-> returning void) x +let vibrateForDuration x self = msg_send ~self ~cmd:(selector "vibrateForDuration:") ~typ:(int @-> returning void) x +let volumeChanged x self = msg_send ~self ~cmd:(selector "volumeChanged:") ~typ:((ptr void) @-> returning void) x +let willDisplayMiniAlert self = msg_send ~self ~cmd:(selector "willDisplayMiniAlert") ~typ:(returning void) +let windowRotationDuration self = msg_send ~self ~cmd:(selector "windowRotationDuration") ~typ:(returning double) +let windows self = msg_send ~self ~cmd:(selector "windows") ~typ:(returning id) +let workspace x ~didReceiveActions self = msg_send ~self ~cmd:(selector "workspace:didReceiveActions:") ~typ:(id @-> id @-> returning void) x didReceiveActions +let workspace1 x ~didCreateScene ~withTransitionContext ~completion self = msg_send ~self ~cmd:(selector "workspace:didCreateScene:withTransitionContext:completion:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x didCreateScene withTransitionContext completion +let workspace2 x ~willDestroyScene ~withTransitionContext ~completion self = msg_send ~self ~cmd:(selector "workspace:willDestroyScene:withTransitionContext:completion:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x willDestroyScene withTransitionContext completion +let workspaceShouldExit x ~withTransitionContext self = msg_send ~self ~cmd:(selector "workspaceShouldExit:withTransitionContext:") ~typ:(id @-> id @-> returning void) x withTransitionContext \ No newline at end of file diff --git a/uikit/UIApplicationClass.ml b/uikit/UIApplicationClass.ml new file mode 100644 index 00000000..03141225 --- /dev/null +++ b/uikit/UIApplicationClass.ml @@ -0,0 +1,29 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplication?language=objc}UIApplication} *) + +let displayIdentifier self = msg_send ~self ~cmd:(selector "displayIdentifier") ~typ:(returning id) +let displayManagerObserver self = msg_send ~self ~cmd:(selector "displayManagerObserver") ~typ:(returning id) +let interfaceOrientationForString x self = msg_send ~self ~cmd:(selector "interfaceOrientationForString:") ~typ:(id @-> returning llong) x +let isRunningEventPump self = msg_send ~self ~cmd:(selector "isRunningEventPump") ~typ:(returning bool) +let isRunningInStoreDemoMode self = msg_send ~self ~cmd:(selector "isRunningInStoreDemoMode") ~typ:(returning bool) +let registerAsSystemApp self = msg_send ~self ~cmd:(selector "registerAsSystemApp") ~typ:(returning bool) +let registerObjectForStateRestoration x ~restorationIdentifier self = msg_send ~self ~cmd:(selector "registerObjectForStateRestoration:restorationIdentifier:") ~typ:(id @-> id @-> returning void) x restorationIdentifier +let rendersLocally self = msg_send ~self ~cmd:(selector "rendersLocally") ~typ:(returning bool) +let runStatusBarServer self = msg_send ~self ~cmd:(selector "runStatusBarServer") ~typ:(returning bool) +let runningInStoreDemoModeFProgramNumber self = msg_send ~self ~cmd:(selector "runningInStoreDemoModeFProgramNumber") ~typ:(returning llong) +let sharedApplication self = msg_send ~self ~cmd:(selector "sharedApplication") ~typ:(returning id) +let shouldBackgroundMainThreadOnSuspendedLaunch self = msg_send ~self ~cmd:(selector "shouldBackgroundMainThreadOnSuspendedLaunch") ~typ:(returning bool) +let shouldMakeUIForDefaultPNG self = msg_send ~self ~cmd:(selector "shouldMakeUIForDefaultPNG") ~typ:(returning bool) +let statusBarStyleForString x self = msg_send ~self ~cmd:(selector "statusBarStyleForString:") ~typ:(id @-> returning llong) x +let stringForInterfaceOrientation x self = msg_send ~self ~cmd:(selector "stringForInterfaceOrientation:") ~typ:(llong @-> returning id) (LLong.of_int x) +let stringForStatusBarStyle x self = msg_send ~self ~cmd:(selector "stringForStatusBarStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let stringForStatusBarStyleOverrides x self = msg_send ~self ~cmd:(selector "stringForStatusBarStyleOverrides:") ~typ:(ullong @-> returning id) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UIApplicationCoverSheetSceneSpecification.ml b/uikit/UIApplicationCoverSheetSceneSpecification.ml deleted file mode 100644 index d692f0ef..00000000 --- a/uikit/UIApplicationCoverSheetSceneSpecification.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIApplicationCoverSheetSceneSpecification" - -let baseSceneComponentClassDictionary self = msg_send ~self ~cmd:(selector "baseSceneComponentClassDictionary") ~typ:(returning (id)) -let connectionHandlers self = msg_send ~self ~cmd:(selector "connectionHandlers") ~typ:(returning (id)) -let disconnectionHandlers self = msg_send ~self ~cmd:(selector "disconnectionHandlers") ~typ:(returning (id)) -let uiSceneSessionRole self = msg_send ~self ~cmd:(selector "uiSceneSessionRole") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIApplicationExternalScreenSceneSpecification.ml b/uikit/UIApplicationExternalScreenSceneSpecification.ml deleted file mode 100644 index 8d36918c..00000000 --- a/uikit/UIApplicationExternalScreenSceneSpecification.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIApplicationExternalScreenSceneSpecification" - -let baseSceneComponentClassDictionary self = msg_send ~self ~cmd:(selector "baseSceneComponentClassDictionary") ~typ:(returning (id)) -let connectionHandlers self = msg_send ~self ~cmd:(selector "connectionHandlers") ~typ:(returning (id)) -let disconnectionHandlers self = msg_send ~self ~cmd:(selector "disconnectionHandlers") ~typ:(returning (id)) -let initialSettingsDiffActions self = msg_send ~self ~cmd:(selector "initialSettingsDiffActions") ~typ:(returning (id)) -let uiSceneSessionRole self = msg_send ~self ~cmd:(selector "uiSceneSessionRole") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIApplicationRotationFollowingController.ml b/uikit/UIApplicationRotationFollowingController.ml deleted file mode 100644 index 76d58f57..00000000 --- a/uikit/UIApplicationRotationFollowingController.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIApplicationRotationFollowingController" - -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let setSizesWindowToScene x self = msg_send ~self ~cmd:(selector "setSizesWindowToScene:") ~typ:(bool @-> returning (void)) x -let shouldAutorotate self = msg_send ~self ~cmd:(selector "shouldAutorotate") ~typ:(returning (bool)) -let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let sizesWindowToScene self = msg_send ~self ~cmd:(selector "sizesWindowToScene") ~typ:(returning (bool)) -let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning (ullong)) -let window x ~setupWithInterfaceOrientation self = msg_send ~self ~cmd:(selector "window:setupWithInterfaceOrientation:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int setupWithInterfaceOrientation) \ No newline at end of file diff --git a/uikit/UIApplicationRotationFollowingControllerView.ml b/uikit/UIApplicationRotationFollowingControllerView.ml deleted file mode 100644 index cd35d9c8..00000000 --- a/uikit/UIApplicationRotationFollowingControllerView.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIApplicationRotationFollowingControllerView" - -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIApplicationRotationFollowingWindow.ml b/uikit/UIApplicationRotationFollowingWindow.ml deleted file mode 100644 index 654d47f2..00000000 --- a/uikit/UIApplicationRotationFollowingWindow.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIApplicationRotationFollowingWindow" - -let applicationWindowRotated x self = msg_send ~self ~cmd:(selector "applicationWindowRotated:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithWindowScene x self = msg_send ~self ~cmd:(selector "initWithWindowScene:") ~typ:(id @-> returning (id)) x -let isInterfaceAutorotationDisabled self = msg_send ~self ~cmd:(selector "isInterfaceAutorotationDisabled") ~typ:(returning (bool)) -let limitToWindowLevel self = msg_send ~self ~cmd:(selector "limitToWindowLevel") ~typ:(returning (bool)) -let priorityLevel self = msg_send ~self ~cmd:(selector "priorityLevel") ~typ:(returning (llong)) -let setLimitToWindowLevel x self = msg_send ~self ~cmd:(selector "setLimitToWindowLevel:") ~typ:(bool @-> returning (void)) x -let setPriorityLevel x self = msg_send ~self ~cmd:(selector "setPriorityLevel:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIApplicationSceneClientAgent.ml b/uikit/UIApplicationSceneClientAgent.ml deleted file mode 100644 index 93313de4..00000000 --- a/uikit/UIApplicationSceneClientAgent.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIApplicationSceneClientAgent" - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let scene x ~didInitializeWithEvent ~completion self = msg_send ~self ~cmd:(selector "scene:didInitializeWithEvent:completion:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x didInitializeWithEvent completion -let scene1 x ~handleEvent ~withCompletion self = msg_send ~self ~cmd:(selector "scene:handleEvent:withCompletion:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x handleEvent withCompletion -let scene2 x ~willInvalidateWithEvent ~completion self = msg_send ~self ~cmd:(selector "scene:willInvalidateWithEvent:completion:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x willInvalidateWithEvent completion \ No newline at end of file diff --git a/uikit/UIApplicationSceneClientSettings.ml b/uikit/UIApplicationSceneClientSettings.ml deleted file mode 100644 index f3c0a581..00000000 --- a/uikit/UIApplicationSceneClientSettings.ml +++ /dev/null @@ -1,61 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIApplicationSceneClientSettings" - -let activationConditionsData self = msg_send ~self ~cmd:(selector "activationConditionsData") ~typ:(returning (id)) -let audioCategoriesDisablingVolumeHUD self = msg_send ~self ~cmd:(selector "audioCategoriesDisablingVolumeHUD") ~typ:(returning (id)) -let backgroundStyle self = msg_send ~self ~cmd:(selector "backgroundStyle") ~typ:(returning (llong)) -let brightnessLevel self = msg_send ~self ~cmd:(selector "brightnessLevel") ~typ:(returning (double)) -let canvasTitle self = msg_send ~self ~cmd:(selector "canvasTitle") ~typ:(returning (id)) -let compatibilityMode self = msg_send ~self ~cmd:(selector "compatibilityMode") ~typ:(returning (llong)) -let controlCenterAmbiguousActivationMargin self = msg_send ~self ~cmd:(selector "controlCenterAmbiguousActivationMargin") ~typ:(returning (double)) -let controlCenterRevealMode self = msg_send ~self ~cmd:(selector "controlCenterRevealMode") ~typ:(returning (llong)) -let defaultPNGExpirationTime self = msg_send ~self ~cmd:(selector "defaultPNGExpirationTime") ~typ:(returning (double)) -let defaultPNGName self = msg_send ~self ~cmd:(selector "defaultPNGName") ~typ:(returning (id)) -let defaultStatusBarHidden self = msg_send ~self ~cmd:(selector "defaultStatusBarHidden") ~typ:(returning (bool)) -let defaultStatusBarStyle self = msg_send ~self ~cmd:(selector "defaultStatusBarStyle") ~typ:(returning (llong)) -let deviceOrientationEventsEnabled self = msg_send ~self ~cmd:(selector "deviceOrientationEventsEnabled") ~typ:(returning (bool)) -let disablesMirroring self = msg_send ~self ~cmd:(selector "disablesMirroring") ~typ:(returning (bool)) -let discardSessionOnUserDisconnect self = msg_send ~self ~cmd:(selector "discardSessionOnUserDisconnect") ~typ:(returning (bool)) -let displayConfigurationRequest self = msg_send ~self ~cmd:(selector "displayConfigurationRequest") ~typ:(returning (id)) -let homeIndicatorAutoHidden self = msg_send ~self ~cmd:(selector "homeIndicatorAutoHidden") ~typ:(returning (bool)) -let idleModeVisualEffectsEnabled self = msg_send ~self ~cmd:(selector "idleModeVisualEffectsEnabled") ~typ:(returning (bool)) -let idleTimerDisabled self = msg_send ~self ~cmd:(selector "idleTimerDisabled") ~typ:(returning (bool)) -let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning (llong)) -let interfaceOrientationChangesDisabled self = msg_send ~self ~cmd:(selector "interfaceOrientationChangesDisabled") ~typ:(returning (bool)) -let isReachabilitySupported self = msg_send ~self ~cmd:(selector "isReachabilitySupported") ~typ:(returning (bool)) -let isStatusBarForegroundTransparent self = msg_send ~self ~cmd:(selector "isStatusBarForegroundTransparent") ~typ:(returning (bool)) -let isUISubclass self = msg_send ~self ~cmd:(selector "isUISubclass") ~typ:(returning (bool)) -let keyDescriptionForOtherSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForOtherSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let multitaskingDragExclusionRects self = msg_send ~self ~cmd:(selector "multitaskingDragExclusionRects") ~typ:(returning (id)) -let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:(id @-> returning (id)) x -let notificationCenterRevealMode self = msg_send ~self ~cmd:(selector "notificationCenterRevealMode") ~typ:(returning (llong)) -let playbackControlsState self = msg_send ~self ~cmd:(selector "playbackControlsState") ~typ:(returning (llong)) -let preferredPointerLockStatus self = msg_send ~self ~cmd:(selector "preferredPointerLockStatus") ~typ:(returning (llong)) -let proximityDetectionModes self = msg_send ~self ~cmd:(selector "proximityDetectionModes") ~typ:(returning (ullong)) -let requestedDisplayMode self = msg_send ~self ~cmd:(selector "requestedDisplayMode") ~typ:(returning (id)) -let sceneActivationBias self = msg_send ~self ~cmd:(selector "sceneActivationBias") ~typ:(returning (llong)) -let screenEdgesDeferringSystemGestures self = msg_send ~self ~cmd:(selector "screenEdgesDeferringSystemGestures") ~typ:(returning (ullong)) -let screenFocusedFrame self = msg_send_stret ~self ~cmd:(selector "screenFocusedFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let settings x ~appendDescriptionToBuilder ~forFlag ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "settings:appendDescriptionToBuilder:forFlag:object:ofSetting:") ~typ:(id @-> id @-> llong @-> id @-> ullong @-> returning (bool)) x appendDescriptionToBuilder (LLong.of_int forFlag) object_ (ULLong.of_int ofSetting) -let shouldHideHostWindow self = msg_send ~self ~cmd:(selector "shouldHideHostWindow") ~typ:(returning (bool)) -let statusBarAlpha self = msg_send ~self ~cmd:(selector "statusBarAlpha") ~typ:(returning (double)) -let statusBarContextID self = msg_send ~self ~cmd:(selector "statusBarContextID") ~typ:(returning (uint)) -let statusBarHidden self = msg_send ~self ~cmd:(selector "statusBarHidden") ~typ:(returning (bool)) -let statusBarModernStyle self = msg_send ~self ~cmd:(selector "statusBarModernStyle") ~typ:(returning (llong)) -let statusBarPartStyles self = msg_send ~self ~cmd:(selector "statusBarPartStyles") ~typ:(returning (id)) -let statusBarStyle self = msg_send ~self ~cmd:(selector "statusBarStyle") ~typ:(returning (llong)) -let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning (ullong)) -let userInterfaceStyle self = msg_send ~self ~cmd:(selector "userInterfaceStyle") ~typ:(returning (llong)) -let valueDescriptionForFlag x ~object_ ~ofOtherSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofOtherSetting:") ~typ:(llong @-> id @-> ullong @-> returning (id)) (LLong.of_int x) object_ (ULLong.of_int ofOtherSetting) -let valueDescriptionForFlag' x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning (id)) (LLong.of_int x) object_ (ULLong.of_int ofSetting) -let visibleMiniAlertCount self = msg_send ~self ~cmd:(selector "visibleMiniAlertCount") ~typ:(returning (ullong)) -let wantsExclusiveForeground self = msg_send ~self ~cmd:(selector "wantsExclusiveForeground") ~typ:(returning (bool)) -let whitePointAdaptivityStyle self = msg_send ~self ~cmd:(selector "whitePointAdaptivityStyle") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit/UIApplicationSceneClientSettingsDiffInspector.ml b/uikit/UIApplicationSceneClientSettingsDiffInspector.ml deleted file mode 100644 index c3f04cd0..00000000 --- a/uikit/UIApplicationSceneClientSettingsDiffInspector.ml +++ /dev/null @@ -1,48 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIApplicationSceneClientSettingsDiffInspector" - -let observeActivationConditionsDataWithBlock x self = msg_send ~self ~cmd:(selector "observeActivationConditionsDataWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeAudioCategoriesDisablingVolumeHUDWithBlock x self = msg_send ~self ~cmd:(selector "observeAudioCategoriesDisablingVolumeHUDWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeBackgroundStyleWithBlock x self = msg_send ~self ~cmd:(selector "observeBackgroundStyleWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeBrightnessLevelWithBlock x self = msg_send ~self ~cmd:(selector "observeBrightnessLevelWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeCanvasTitleWithBlock x self = msg_send ~self ~cmd:(selector "observeCanvasTitleWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeCompatibilityModeWithBlock x self = msg_send ~self ~cmd:(selector "observeCompatibilityModeWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeControlCenterAmbiguousActivationMargin x self = msg_send ~self ~cmd:(selector "observeControlCenterAmbiguousActivationMargin:") ~typ:(ptr void @-> returning (void)) x -let observeControlCenterRevealModeWithBlock x self = msg_send ~self ~cmd:(selector "observeControlCenterRevealModeWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeDefaultPNGExpirationTimeWithBlock x self = msg_send ~self ~cmd:(selector "observeDefaultPNGExpirationTimeWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeDefaultPNGNameWithBlock x self = msg_send ~self ~cmd:(selector "observeDefaultPNGNameWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeDefaultStatusBarHiddenWithBlock x self = msg_send ~self ~cmd:(selector "observeDefaultStatusBarHiddenWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeDefaultStatusBarStyleWithBlock x self = msg_send ~self ~cmd:(selector "observeDefaultStatusBarStyleWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeDeviceOrientationEventsEnabledWithBlock x self = msg_send ~self ~cmd:(selector "observeDeviceOrientationEventsEnabledWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeHomeIndicatorAutoHiddenWithBlock x self = msg_send ~self ~cmd:(selector "observeHomeIndicatorAutoHiddenWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeIdleModeVisualEffectsEnabledWithBlock x self = msg_send ~self ~cmd:(selector "observeIdleModeVisualEffectsEnabledWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeIdleTimerDisabledWithBlock x self = msg_send ~self ~cmd:(selector "observeIdleTimerDisabledWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeInterfaceOrientationChangesDisabledWithBlock x self = msg_send ~self ~cmd:(selector "observeInterfaceOrientationChangesDisabledWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeInterfaceOrientationWithBlock x self = msg_send ~self ~cmd:(selector "observeInterfaceOrientationWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeNotificationCenterRevealModeWithBlock x self = msg_send ~self ~cmd:(selector "observeNotificationCenterRevealModeWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observePreferredPointerLockStateWithBlock x self = msg_send ~self ~cmd:(selector "observePreferredPointerLockStateWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeProximityDetectionModesWithBlock x self = msg_send ~self ~cmd:(selector "observeProximityDetectionModesWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeReachabilitySupportedWithBlock x self = msg_send ~self ~cmd:(selector "observeReachabilitySupportedWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeSceneActivationBiasWithBlock x self = msg_send ~self ~cmd:(selector "observeSceneActivationBiasWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeScreenEdgesDeferringSystemGesturesWithBlock x self = msg_send ~self ~cmd:(selector "observeScreenEdgesDeferringSystemGesturesWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeShouldHideHostWindow x self = msg_send ~self ~cmd:(selector "observeShouldHideHostWindow:") ~typ:(ptr void @-> returning (void)) x -let observeStatusBarAlphaWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarAlphaWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeStatusBarContextIDWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarContextIDWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeStatusBarHiddenWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarHiddenWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeStatusBarModernStyleWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarModernStyleWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeStatusBarPartStylesWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarPartStylesWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeStatusBarStyleWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarStyleWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeSupportedInterfaceOrientationsWithBlock x self = msg_send ~self ~cmd:(selector "observeSupportedInterfaceOrientationsWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeUserInterfaceStyleWithBlock x self = msg_send ~self ~cmd:(selector "observeUserInterfaceStyleWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeVisibleMiniAlertCountWithBlock x self = msg_send ~self ~cmd:(selector "observeVisibleMiniAlertCountWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeWantsExclusiveForegroundWithBlock x self = msg_send ~self ~cmd:(selector "observeWantsExclusiveForegroundWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeWhitePointAdaptivityStyleWithBlock x self = msg_send ~self ~cmd:(selector "observeWhitePointAdaptivityStyleWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeWindowFocusedFrameWithBlock x self = msg_send ~self ~cmd:(selector "observeWindowFocusedFrameWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeWindowOverlayInsetsWithBlock x self = msg_send ~self ~cmd:(selector "observeWindowOverlayInsetsWithBlock:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIApplicationSceneDeactivationAssertion.ml b/uikit/UIApplicationSceneDeactivationAssertion.ml deleted file mode 100644 index 4e0d430f..00000000 --- a/uikit/UIApplicationSceneDeactivationAssertion.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIApplicationSceneDeactivationAssertion" - -let acquire self = msg_send ~self ~cmd:(selector "acquire") ~typ:(returning (void)) -let acquireWithPredicate x ~transitionContext self = msg_send ~self ~cmd:(selector "acquireWithPredicate:transitionContext:") ~typ:(ptr void @-> id @-> returning (void)) x transitionContext -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let descriptionWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let initWithReason x ~manager self = msg_send ~self ~cmd:(selector "initWithReason:manager:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) manager -let isAcquired self = msg_send ~self ~cmd:(selector "isAcquired") ~typ:(returning (bool)) -let manager self = msg_send ~self ~cmd:(selector "manager") ~typ:(returning (id)) -let predicate self = msg_send ~self ~cmd:(selector "predicate") ~typ:(returning (ptr void)) -let reason self = msg_send ~self ~cmd:(selector "reason") ~typ:(returning (llong)) -let relinquish self = msg_send ~self ~cmd:(selector "relinquish") ~typ:(returning (void)) -let succinctDescription self = msg_send ~self ~cmd:(selector "succinctDescription") ~typ:(returning (id)) -let succinctDescriptionBuilder self = msg_send ~self ~cmd:(selector "succinctDescriptionBuilder") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIApplicationSceneDeactivationManager.ml b/uikit/UIApplicationSceneDeactivationManager.ml deleted file mode 100644 index 685461c1..00000000 --- a/uikit/UIApplicationSceneDeactivationManager.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIApplicationSceneDeactivationManager" - -let addAssertion x ~withTransitionContext self = msg_send ~self ~cmd:(selector "addAssertion:withTransitionContext:") ~typ:(id @-> id @-> returning (void)) x withTransitionContext -let amendSceneSettings x ~forScene self = msg_send ~self ~cmd:(selector "amendSceneSettings:forScene:") ~typ:(id @-> id @-> returning (void)) x forScene -let assertions self = msg_send ~self ~cmd:(selector "assertions") ~typ:(returning (id)) -let beginTrackingScene x self = msg_send ~self ~cmd:(selector "beginTrackingScene:") ~typ:(id @-> returning (void)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let descriptionWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let eligibleScenes self = msg_send ~self ~cmd:(selector "eligibleScenes") ~typ:(returning (id)) -let endTrackingScene x self = msg_send ~self ~cmd:(selector "endTrackingScene:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let newAssertionWithReason x self = msg_send ~self ~cmd:(selector "newAssertionWithReason:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let removeAssertion x self = msg_send ~self ~cmd:(selector "removeAssertion:") ~typ:(id @-> returning (void)) x -let succinctDescription self = msg_send ~self ~cmd:(selector "succinctDescription") ~typ:(returning (id)) -let succinctDescriptionBuilder self = msg_send ~self ~cmd:(selector "succinctDescriptionBuilder") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIApplicationSceneHostAgent.ml b/uikit/UIApplicationSceneHostAgent.ml deleted file mode 100644 index 0acabcf9..00000000 --- a/uikit/UIApplicationSceneHostAgent.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIApplicationSceneHostAgent" - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIApplicationSceneSettings.ml b/uikit/UIApplicationSceneSettings.ml index a01d0554..7d0859f5 100644 --- a/uikit/UIApplicationSceneSettings.ml +++ b/uikit/UIApplicationSceneSettings.ml @@ -5,37 +5,46 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIApplicationSceneSettings" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationscenesettings?language=objc}UIApplicationSceneSettings} *) -let accessibilityContrast self = msg_send ~self ~cmd:(selector "accessibilityContrast") ~typ:(returning (llong)) -let artworkSubtype self = msg_send ~self ~cmd:(selector "artworkSubtype") ~typ:(returning (ullong)) -let canShowAlerts self = msg_send ~self ~cmd:(selector "canShowAlerts") ~typ:(returning (bool)) -let catalystHostWindowFrame self = msg_send_stret ~self ~cmd:(selector "catalystHostWindowFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let cornerRadiusConfiguration self = msg_send ~self ~cmd:(selector "cornerRadiusConfiguration") ~typ:(returning (id)) -let deactivationReasons self = msg_send ~self ~cmd:(selector "deactivationReasons") ~typ:(returning (ullong)) -let defaultStatusBarHeightForOrientation x self = msg_send ~self ~cmd:(selector "defaultStatusBarHeightForOrientation:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let deviceOrientation self = msg_send ~self ~cmd:(selector "deviceOrientation") ~typ:(returning (llong)) -let deviceOrientationEventsEnabled self = msg_send ~self ~cmd:(selector "deviceOrientationEventsEnabled") ~typ:(returning (bool)) -let forcedStatusBarForegroundTransparent self = msg_send ~self ~cmd:(selector "forcedStatusBarForegroundTransparent") ~typ:(returning (bool)) -let forcedStatusBarStyle self = msg_send ~self ~cmd:(selector "forcedStatusBarStyle") ~typ:(returning (id)) -let homeAffordanceOverlayAllowance self = msg_send ~self ~cmd:(selector "homeAffordanceOverlayAllowance") ~typ:(returning (double)) -let hostContextIdentifierForSnapshotting self = msg_send ~self ~cmd:(selector "hostContextIdentifierForSnapshotting") ~typ:(returning (uint)) -let idleModeEnabled self = msg_send ~self ~cmd:(selector "idleModeEnabled") ~typ:(returning (bool)) -let interfaceOrientationMode self = msg_send ~self ~cmd:(selector "interfaceOrientationMode") ~typ:(returning (llong)) -let isUISubclass self = msg_send ~self ~cmd:(selector "isUISubclass") ~typ:(returning (bool)) -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:(id @-> returning (id)) x -let persistenceIdentifier self = msg_send ~self ~cmd:(selector "persistenceIdentifier") ~typ:(returning (id)) -let pointerLockStatus self = msg_send ~self ~cmd:(selector "pointerLockStatus") ~typ:(returning (llong)) -let scenePresenterRenderIdentifierForSnapshotting self = msg_send ~self ~cmd:(selector "scenePresenterRenderIdentifierForSnapshotting") ~typ:(returning (ullong)) -let statusBarAvoidanceFrame self = msg_send_stret ~self ~cmd:(selector "statusBarAvoidanceFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let statusBarDisabled self = msg_send ~self ~cmd:(selector "statusBarDisabled") ~typ:(returning (bool)) -let statusBarHeight self = msg_send ~self ~cmd:(selector "statusBarHeight") ~typ:(returning (double)) -let statusBarParts self = msg_send ~self ~cmd:(selector "statusBarParts") ~typ:(returning (llong)) -let statusBarStyleOverridesToSuppress self = msg_send ~self ~cmd:(selector "statusBarStyleOverridesToSuppress") ~typ:(returning (ullong)) -let systemMinimumMargin self = msg_send ~self ~cmd:(selector "systemMinimumMargin") ~typ:(returning (double)) -let targetOfEventDeferringEnvironments self = msg_send ~self ~cmd:(selector "targetOfEventDeferringEnvironments") ~typ:(returning (id)) -let underLock self = msg_send ~self ~cmd:(selector "underLock") ~typ:(returning (bool)) -let userInterfaceStyle self = msg_send ~self ~cmd:(selector "userInterfaceStyle") ~typ:(returning (llong)) -let valueDescriptionForFlag x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning (id)) (LLong.of_int x) object_ (ULLong.of_int ofSetting) \ No newline at end of file +let self = get_class "UIApplicationSceneSettings" + +let accessibilityContrast self = msg_send ~self ~cmd:(selector "accessibilityContrast") ~typ:(returning llong) +let artworkSubtype self = msg_send ~self ~cmd:(selector "artworkSubtype") ~typ:(returning ullong) +let canShowAlerts self = msg_send ~self ~cmd:(selector "canShowAlerts") ~typ:(returning bool) +let catalystHostWindowFrame self = msg_send ~self ~cmd:(selector "catalystHostWindowFrame") ~typ:(returning CGRect.t) +let cornerRadiusConfiguration self = msg_send ~self ~cmd:(selector "cornerRadiusConfiguration") ~typ:(returning id) +let deactivationReasons self = msg_send ~self ~cmd:(selector "deactivationReasons") ~typ:(returning ullong) +let defaultStatusBarHeightForOrientation x self = msg_send ~self ~cmd:(selector "defaultStatusBarHeightForOrientation:") ~typ:(llong @-> returning double) (LLong.of_int x) +let deviceOrientation self = msg_send ~self ~cmd:(selector "deviceOrientation") ~typ:(returning llong) +let deviceOrientationEventsEnabled self = msg_send ~self ~cmd:(selector "deviceOrientationEventsEnabled") ~typ:(returning bool) +let forcedStatusBarForegroundTransparent self = msg_send ~self ~cmd:(selector "forcedStatusBarForegroundTransparent") ~typ:(returning bool) +let forcedStatusBarStyle self = msg_send ~self ~cmd:(selector "forcedStatusBarStyle") ~typ:(returning id) +let homeAffordanceOverlayAllowance self = msg_send ~self ~cmd:(selector "homeAffordanceOverlayAllowance") ~typ:(returning double) +let hostContextIdentifierForSnapshotting self = msg_send ~self ~cmd:(selector "hostContextIdentifierForSnapshotting") ~typ:(returning uint) +let idleModeEnabled self = msg_send ~self ~cmd:(selector "idleModeEnabled") ~typ:(returning bool) +let interfaceOrientationMode self = msg_send ~self ~cmd:(selector "interfaceOrientationMode") ~typ:(returning llong) +let isUISubclass self = msg_send ~self ~cmd:(selector "isUISubclass") ~typ:(returning bool) +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:((ptr void) @-> returning id) x +let peripheryInsets self = msg_send ~self ~cmd:(selector "peripheryInsets") ~typ:(returning UIEdgeInsets.t) +let persistenceIdentifier self = msg_send ~self ~cmd:(selector "persistenceIdentifier") ~typ:(returning id) +let pointerLockStatus self = msg_send ~self ~cmd:(selector "pointerLockStatus") ~typ:(returning llong) +let safeAreaInsetsLandscapeLeft self = msg_send ~self ~cmd:(selector "safeAreaInsetsLandscapeLeft") ~typ:(returning UIEdgeInsets.t) +let safeAreaInsetsLandscapeRight self = msg_send ~self ~cmd:(selector "safeAreaInsetsLandscapeRight") ~typ:(returning UIEdgeInsets.t) +let safeAreaInsetsPortrait self = msg_send ~self ~cmd:(selector "safeAreaInsetsPortrait") ~typ:(returning UIEdgeInsets.t) +let safeAreaInsetsPortraitUpsideDown self = msg_send ~self ~cmd:(selector "safeAreaInsetsPortraitUpsideDown") ~typ:(returning UIEdgeInsets.t) +let scenePresenterRenderIdentifierForSnapshotting self = msg_send ~self ~cmd:(selector "scenePresenterRenderIdentifierForSnapshotting") ~typ:(returning ullong) +let statusBarAvoidanceFrame self = msg_send ~self ~cmd:(selector "statusBarAvoidanceFrame") ~typ:(returning CGRect.t) +let statusBarDisabled self = msg_send ~self ~cmd:(selector "statusBarDisabled") ~typ:(returning bool) +let statusBarHeight self = msg_send ~self ~cmd:(selector "statusBarHeight") ~typ:(returning double) +let statusBarParts self = msg_send ~self ~cmd:(selector "statusBarParts") ~typ:(returning llong) +let statusBarStyleOverridesToSuppress self = msg_send ~self ~cmd:(selector "statusBarStyleOverridesToSuppress") ~typ:(returning ullong) +let systemMinimumMargin self = msg_send ~self ~cmd:(selector "systemMinimumMargin") ~typ:(returning double) +let targetOfEventDeferringEnvironments self = msg_send ~self ~cmd:(selector "targetOfEventDeferringEnvironments") ~typ:(returning id) +let underLock self = msg_send ~self ~cmd:(selector "underLock") ~typ:(returning bool) +let userInterfaceStyle self = msg_send ~self ~cmd:(selector "userInterfaceStyle") ~typ:(returning llong) +let valueDescriptionForFlag x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning id) (LLong.of_int x) object_ (ULLong.of_int ofSetting) \ No newline at end of file diff --git a/uikit/UIApplicationSceneSettingsDiffInspector.ml b/uikit/UIApplicationSceneSettingsDiffInspector.ml deleted file mode 100644 index 09804601..00000000 --- a/uikit/UIApplicationSceneSettingsDiffInspector.ml +++ /dev/null @@ -1,33 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIApplicationSceneSettingsDiffInspector" - -let observeAccessibilityContrastWithBlock x self = msg_send ~self ~cmd:(selector "observeAccessibilityContrastWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeCanShowAlertsWithBlock x self = msg_send ~self ~cmd:(selector "observeCanShowAlertsWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeCatalystHostWindowFrameWithBlock x self = msg_send ~self ~cmd:(selector "observeCatalystHostWindowFrameWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeDeactivationReasonsWithBlock x self = msg_send ~self ~cmd:(selector "observeDeactivationReasonsWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeDeviceOrientationEventsEnabledWithBlock x self = msg_send ~self ~cmd:(selector "observeDeviceOrientationEventsEnabledWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeDeviceOrientationWithBlock x self = msg_send ~self ~cmd:(selector "observeDeviceOrientationWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeForcedStatusBarForegroundTransparentWithBlock x self = msg_send ~self ~cmd:(selector "observeForcedStatusBarForegroundTransparentWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeForcedStatusBarStyleWithBlock x self = msg_send ~self ~cmd:(selector "observeForcedStatusBarStyleWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeIdleModeEnabledWithBlock x self = msg_send ~self ~cmd:(selector "observeIdleModeEnabledWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeInterfaceOrientationModeWithBlock x self = msg_send ~self ~cmd:(selector "observeInterfaceOrientationModeWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observePersistenceIdentifierWithBlock x self = msg_send ~self ~cmd:(selector "observePersistenceIdentifierWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observePointerLockStatusWithBlock x self = msg_send ~self ~cmd:(selector "observePointerLockStatusWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeSafeAreaInsetsLandscapeLeftWithBlock x self = msg_send ~self ~cmd:(selector "observeSafeAreaInsetsLandscapeLeftWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeSafeAreaInsetsLandscapeRightWithBlock x self = msg_send ~self ~cmd:(selector "observeSafeAreaInsetsLandscapeRightWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeSafeAreaInsetsPortraitUpsideDownWithBlock x self = msg_send ~self ~cmd:(selector "observeSafeAreaInsetsPortraitUpsideDownWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeSafeAreaInsetsPortraitWithBlock x self = msg_send ~self ~cmd:(selector "observeSafeAreaInsetsPortraitWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeStatusBarAvoidanceFrameWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarAvoidanceFrameWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeStatusBarHeightWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarHeightWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeStatusBarPartsWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarPartsWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeStatusBarStyleOverridesToSuppressWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarStyleOverridesToSuppressWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeTargetOfEventDeferringEnvironmentsWithBlock x self = msg_send ~self ~cmd:(selector "observeTargetOfEventDeferringEnvironmentsWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeUnderLockWithBlock x self = msg_send ~self ~cmd:(selector "observeUnderLockWithBlock:") ~typ:(ptr void @-> returning (void)) x -let observeUserInterfaceStyleWithBlock x self = msg_send ~self ~cmd:(selector "observeUserInterfaceStyleWithBlock:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIApplicationSceneSpecification.ml b/uikit/UIApplicationSceneSpecification.ml index f169eb6b..8952cdbd 100644 --- a/uikit/UIApplicationSceneSpecification.ml +++ b/uikit/UIApplicationSceneSpecification.ml @@ -5,26 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIApplicationSceneSpecification" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationscenespecification?language=objc}UIApplicationSceneSpecification} *) -let affectsAppLifecycleIfInternal self = msg_send ~self ~cmd:(selector "affectsAppLifecycleIfInternal") ~typ:(returning (bool)) -let affectsScreenOrientation self = msg_send ~self ~cmd:(selector "affectsScreenOrientation") ~typ:(returning (bool)) -let baseSceneComponentClassDictionary self = msg_send ~self ~cmd:(selector "baseSceneComponentClassDictionary") ~typ:(returning (id)) -let clientAgentClass self = msg_send ~self ~cmd:(selector "clientAgentClass") ~typ:(returning (_Class)) -let clientSettingsClass self = msg_send ~self ~cmd:(selector "clientSettingsClass") ~typ:(returning (_Class)) -let connectionHandlers self = msg_send ~self ~cmd:(selector "connectionHandlers") ~typ:(returning (id)) -let coreSceneComponentClassDictionary self = msg_send ~self ~cmd:(selector "coreSceneComponentClassDictionary") ~typ:(returning (id)) -let disconnectionHandlers self = msg_send ~self ~cmd:(selector "disconnectionHandlers") ~typ:(returning (id)) -let finalActionHandlers self = msg_send ~self ~cmd:(selector "finalActionHandlers") ~typ:(returning (id)) -let hostAgentClass self = msg_send ~self ~cmd:(selector "hostAgentClass") ~typ:(returning (_Class)) -let initialActionHandlers self = msg_send ~self ~cmd:(selector "initialActionHandlers") ~typ:(returning (id)) -let initialSettingsDiffActions self = msg_send ~self ~cmd:(selector "initialSettingsDiffActions") ~typ:(returning (id)) -let isInternal self = msg_send ~self ~cmd:(selector "isInternal") ~typ:(returning (bool)) -let isUIKitManaged self = msg_send ~self ~cmd:(selector "isUIKitManaged") ~typ:(returning (bool)) -let lifecycleMonitorClass self = msg_send ~self ~cmd:(selector "lifecycleMonitorClass") ~typ:(returning (_Class)) -let sceneSubstrateClass self = msg_send ~self ~cmd:(selector "sceneSubstrateClass") ~typ:(returning (_Class)) -let settingsClass self = msg_send ~self ~cmd:(selector "settingsClass") ~typ:(returning (_Class)) -let transitionContextClass self = msg_send ~self ~cmd:(selector "transitionContextClass") ~typ:(returning (_Class)) -let uiSceneMinimumClass self = msg_send ~self ~cmd:(selector "uiSceneMinimumClass") ~typ:(returning (_Class)) -let uiSceneSessionRole self = msg_send ~self ~cmd:(selector "uiSceneSessionRole") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIApplicationSceneSpecification" + +let affectsAppLifecycleIfInternal self = msg_send ~self ~cmd:(selector "affectsAppLifecycleIfInternal") ~typ:(returning bool) +let affectsScreenOrientation self = msg_send ~self ~cmd:(selector "affectsScreenOrientation") ~typ:(returning bool) +let baseSceneComponentClassDictionary self = msg_send ~self ~cmd:(selector "baseSceneComponentClassDictionary") ~typ:(returning id) +let clientAgentClass self = msg_send ~self ~cmd:(selector "clientAgentClass") ~typ:(returning _Class) +let clientSettingsClass self = msg_send ~self ~cmd:(selector "clientSettingsClass") ~typ:(returning _Class) +let connectionHandlers self = msg_send ~self ~cmd:(selector "connectionHandlers") ~typ:(returning id) +let coreSceneComponentClassDictionary self = msg_send ~self ~cmd:(selector "coreSceneComponentClassDictionary") ~typ:(returning id) +let disconnectionHandlers self = msg_send ~self ~cmd:(selector "disconnectionHandlers") ~typ:(returning id) +let finalActionHandlers self = msg_send ~self ~cmd:(selector "finalActionHandlers") ~typ:(returning id) +let hostAgentClass self = msg_send ~self ~cmd:(selector "hostAgentClass") ~typ:(returning _Class) +let initialActionHandlers self = msg_send ~self ~cmd:(selector "initialActionHandlers") ~typ:(returning id) +let initialSettingsDiffActions self = msg_send ~self ~cmd:(selector "initialSettingsDiffActions") ~typ:(returning id) +let isInternal self = msg_send ~self ~cmd:(selector "isInternal") ~typ:(returning bool) +let isUIKitManaged self = msg_send ~self ~cmd:(selector "isUIKitManaged") ~typ:(returning bool) +let lifecycleMonitorClass self = msg_send ~self ~cmd:(selector "lifecycleMonitorClass") ~typ:(returning _Class) +let sceneSubstrateClass self = msg_send ~self ~cmd:(selector "sceneSubstrateClass") ~typ:(returning _Class) +let settingsClass self = msg_send ~self ~cmd:(selector "settingsClass") ~typ:(returning _Class) +let transitionContextClass self = msg_send ~self ~cmd:(selector "transitionContextClass") ~typ:(returning _Class) +let uiSceneMinimumClass self = msg_send ~self ~cmd:(selector "uiSceneMinimumClass") ~typ:(returning _Class) +let uiSceneSessionRole self = msg_send ~self ~cmd:(selector "uiSceneSessionRole") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIApplicationSceneTransitionContext.ml b/uikit/UIApplicationSceneTransitionContext.ml deleted file mode 100644 index cf8f6907..00000000 --- a/uikit/UIApplicationSceneTransitionContext.ml +++ /dev/null @@ -1,39 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIApplicationSceneTransitionContext" - -let clickAttribution self = msg_send ~self ~cmd:(selector "clickAttribution") ~typ:(returning (id)) -let disableTouchCancellationOnRotation self = msg_send ~self ~cmd:(selector "disableTouchCancellationOnRotation") ~typ:(returning (bool)) -let execTime self = msg_send ~self ~cmd:(selector "execTime") ~typ:(returning (double)) -let forTesting self = msg_send ~self ~cmd:(selector "forTesting") ~typ:(returning (bool)) -let isUISubclass self = msg_send ~self ~cmd:(selector "isUISubclass") ~typ:(returning (bool)) -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let payload self = msg_send ~self ~cmd:(selector "payload") ~typ:(returning (id)) -let safeMode self = msg_send ~self ~cmd:(selector "safeMode") ~typ:(returning (bool)) -let sceneCollectionJoinBehavior self = msg_send ~self ~cmd:(selector "sceneCollectionJoinBehavior") ~typ:(returning (llong)) -let setClickAttribution x self = msg_send ~self ~cmd:(selector "setClickAttribution:") ~typ:(id @-> returning (void)) x -let setDisableTouchCancellationOnRotation x self = msg_send ~self ~cmd:(selector "setDisableTouchCancellationOnRotation:") ~typ:(bool @-> returning (void)) x -let setExecTime x self = msg_send ~self ~cmd:(selector "setExecTime:") ~typ:(double @-> returning (void)) x -let setForTesting x self = msg_send ~self ~cmd:(selector "setForTesting:") ~typ:(bool @-> returning (void)) x -let setPayload x self = msg_send ~self ~cmd:(selector "setPayload:") ~typ:(id @-> returning (void)) x -let setSafeMode x self = msg_send ~self ~cmd:(selector "setSafeMode:") ~typ:(bool @-> returning (void)) x -let setSceneCollectionJoinBehavior x self = msg_send ~self ~cmd:(selector "setSceneCollectionJoinBehavior:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShouldTakeKeyboardFocus x self = msg_send ~self ~cmd:(selector "setShouldTakeKeyboardFocus:") ~typ:(bool @-> returning (void)) x -let setSignpostID x self = msg_send ~self ~cmd:(selector "setSignpostID:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setSourceIdentifier x self = msg_send ~self ~cmd:(selector "setSourceIdentifier:") ~typ:(id @-> returning (void)) x -let setStatusBarAnimation x self = msg_send ~self ~cmd:(selector "setStatusBarAnimation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setUserLaunchEventTime x self = msg_send ~self ~cmd:(selector "setUserLaunchEventTime:") ~typ:(double @-> returning (void)) x -let setWaitForBackgroundTaskCompletion x self = msg_send ~self ~cmd:(selector "setWaitForBackgroundTaskCompletion:") ~typ:(bool @-> returning (void)) x -let shouldTakeKeyboardFocus self = msg_send ~self ~cmd:(selector "shouldTakeKeyboardFocus") ~typ:(returning (bool)) -let signpostID self = msg_send ~self ~cmd:(selector "signpostID") ~typ:(returning (ullong)) -let sourceIdentifier self = msg_send ~self ~cmd:(selector "sourceIdentifier") ~typ:(returning (id)) -let statusBarAnimation self = msg_send ~self ~cmd:(selector "statusBarAnimation") ~typ:(returning (llong)) -let userLaunchEventTime self = msg_send ~self ~cmd:(selector "userLaunchEventTime") ~typ:(returning (double)) -let valueDescriptionForFlag x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning (id)) (LLong.of_int x) object_ (ULLong.of_int ofSetting) -let waitForBackgroundTaskCompletion self = msg_send ~self ~cmd:(selector "waitForBackgroundTaskCompletion") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIApplicationShortcutIcon.ml b/uikit/UIApplicationShortcutIcon.ml index 537cbbf9..620f4a3a 100644 --- a/uikit/UIApplicationShortcutIcon.ml +++ b/uikit/UIApplicationShortcutIcon.ml @@ -5,18 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIApplicationShortcutIcon" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationshortcuticon?language=objc}UIApplicationShortcutIcon} *) -module C = struct - let iconWithContact x self = msg_send ~self ~cmd:(selector "iconWithContact:") ~typ:(id @-> returning (id)) x - let iconWithCustomImage x self = msg_send ~self ~cmd:(selector "iconWithCustomImage:") ~typ:(id @-> returning (id)) x - let iconWithCustomImage' x ~isTemplate self = msg_send ~self ~cmd:(selector "iconWithCustomImage:isTemplate:") ~typ:(id @-> bool @-> returning (id)) x isTemplate - let iconWithSystemImageName x self = msg_send ~self ~cmd:(selector "iconWithSystemImageName:") ~typ:(id @-> returning (id)) x - let iconWithTemplateImageName x self = msg_send ~self ~cmd:(selector "iconWithTemplateImageName:") ~typ:(id @-> returning (id)) x - let iconWithType x self = msg_send ~self ~cmd:(selector "iconWithType:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -end +let self = get_class "UIApplicationShortcutIcon" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let encodeWithXPCDictionary x self = msg_send ~self ~cmd:(selector "encodeWithXPCDictionary:") ~typ:(id @-> returning (void)) x -let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let encodeWithXPCDictionary x self = msg_send ~self ~cmd:(selector "encodeWithXPCDictionary:") ~typ:(id @-> returning void) x +let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIApplicationShortcutIconClass.ml b/uikit/UIApplicationShortcutIconClass.ml new file mode 100644 index 00000000..d567505a --- /dev/null +++ b/uikit/UIApplicationShortcutIconClass.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationshortcuticon?language=objc}UIApplicationShortcutIcon} *) + +let iconWithContact x self = msg_send ~self ~cmd:(selector "iconWithContact:") ~typ:(id @-> returning id) x +let iconWithCustomImage x self = msg_send ~self ~cmd:(selector "iconWithCustomImage:") ~typ:(id @-> returning id) x +let iconWithCustomImage' x ~isTemplate self = msg_send ~self ~cmd:(selector "iconWithCustomImage:isTemplate:") ~typ:(id @-> bool @-> returning id) x isTemplate +let iconWithSystemImageName x self = msg_send ~self ~cmd:(selector "iconWithSystemImageName:") ~typ:(id @-> returning id) x +let iconWithTemplateImageName x self = msg_send ~self ~cmd:(selector "iconWithTemplateImageName:") ~typ:(id @-> returning id) x +let iconWithType x self = msg_send ~self ~cmd:(selector "iconWithType:") ~typ:(llong @-> returning id) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIApplicationShortcutItem.ml b/uikit/UIApplicationShortcutItem.ml index 53c91070..ccab11c2 100644 --- a/uikit/UIApplicationShortcutItem.ml +++ b/uikit/UIApplicationShortcutItem.ml @@ -5,32 +5,36 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIApplicationShortcutItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationshortcutitem?language=objc}UIApplicationShortcutItem} *) -let activationMode self = msg_send ~self ~cmd:(selector "activationMode") ~typ:(returning (ullong)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithXPCDictionary x self = msg_send ~self ~cmd:(selector "encodeWithXPCDictionary:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let icon self = msg_send ~self ~cmd:(selector "icon") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithType x ~localizedTitle self = msg_send ~self ~cmd:(selector "initWithType:localizedTitle:") ~typ:(id @-> id @-> returning (id)) x localizedTitle -let initWithType' x ~localizedTitle ~localizedSubtitle ~icon ~userInfo self = msg_send ~self ~cmd:(selector "initWithType:localizedTitle:localizedSubtitle:icon:userInfo:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (id)) x localizedTitle localizedSubtitle icon userInfo -let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let localizedSubtitle self = msg_send ~self ~cmd:(selector "localizedSubtitle") ~typ:(returning (id)) -let localizedTitle self = msg_send ~self ~cmd:(selector "localizedTitle") ~typ:(returning (id)) -let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:(id @-> returning (id)) x -let representedObjectForMenuItem self = msg_send ~self ~cmd:(selector "representedObjectForMenuItem") ~typ:(returning (id)) -let setIcon x self = msg_send ~self ~cmd:(selector "setIcon:") ~typ:(id @-> returning (void)) x -let setLocalizedSubtitle x self = msg_send ~self ~cmd:(selector "setLocalizedSubtitle:") ~typ:(id @-> returning (void)) x -let setLocalizedTitle x self = msg_send ~self ~cmd:(selector "setLocalizedTitle:") ~typ:(id @-> returning (void)) x -let setTargetContentIdentifier x self = msg_send ~self ~cmd:(selector "setTargetContentIdentifier:") ~typ:(id @-> returning (void)) x -let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(id @-> returning (void)) x -let setUserInfo x self = msg_send ~self ~cmd:(selector "setUserInfo:") ~typ:(id @-> returning (void)) x -let setUserInfoData x self = msg_send ~self ~cmd:(selector "setUserInfoData:") ~typ:(id @-> returning (void)) x -let targetContentIdentifier self = msg_send ~self ~cmd:(selector "targetContentIdentifier") ~typ:(returning (id)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (id)) -let userInfo self = msg_send ~self ~cmd:(selector "userInfo") ~typ:(returning (id)) -let userInfoData self = msg_send ~self ~cmd:(selector "userInfoData") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIApplicationShortcutItem" + +let activationMode self = msg_send ~self ~cmd:(selector "activationMode") ~typ:(returning ullong) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithXPCDictionary x self = msg_send ~self ~cmd:(selector "encodeWithXPCDictionary:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let icon self = msg_send ~self ~cmd:(selector "icon") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithType x ~localizedTitle self = msg_send ~self ~cmd:(selector "initWithType:localizedTitle:") ~typ:(id @-> id @-> returning id) x localizedTitle +let initWithType' x ~localizedTitle ~localizedSubtitle ~icon ~userInfo self = msg_send ~self ~cmd:(selector "initWithType:localizedTitle:localizedSubtitle:icon:userInfo:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning id) x localizedTitle localizedSubtitle icon userInfo +let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let localizedSubtitle self = msg_send ~self ~cmd:(selector "localizedSubtitle") ~typ:(returning id) +let localizedTitle self = msg_send ~self ~cmd:(selector "localizedTitle") ~typ:(returning id) +let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:((ptr void) @-> returning id) x +let representedObjectForMenuItem self = msg_send ~self ~cmd:(selector "representedObjectForMenuItem") ~typ:(returning id) +let setIcon x self = msg_send ~self ~cmd:(selector "setIcon:") ~typ:(id @-> returning void) x +let setLocalizedSubtitle x self = msg_send ~self ~cmd:(selector "setLocalizedSubtitle:") ~typ:(id @-> returning void) x +let setLocalizedTitle x self = msg_send ~self ~cmd:(selector "setLocalizedTitle:") ~typ:(id @-> returning void) x +let setTargetContentIdentifier x self = msg_send ~self ~cmd:(selector "setTargetContentIdentifier:") ~typ:(id @-> returning void) x +let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(id @-> returning void) x +let setUserInfo x self = msg_send ~self ~cmd:(selector "setUserInfo:") ~typ:(id @-> returning void) x +let setUserInfoData x self = msg_send ~self ~cmd:(selector "setUserInfoData:") ~typ:(id @-> returning void) x +let targetContentIdentifier self = msg_send ~self ~cmd:(selector "targetContentIdentifier") ~typ:(returning id) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning id) +let userInfo self = msg_send ~self ~cmd:(selector "userInfo") ~typ:(returning id) +let userInfoData self = msg_send ~self ~cmd:(selector "userInfoData") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIApplicationStarkSceneSpecification.ml b/uikit/UIApplicationStarkSceneSpecification.ml deleted file mode 100644 index efaf4cb4..00000000 --- a/uikit/UIApplicationStarkSceneSpecification.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIApplicationStarkSceneSpecification" - -let baseSceneComponentClassDictionary self = msg_send ~self ~cmd:(selector "baseSceneComponentClassDictionary") ~typ:(returning (id)) -let connectionHandlers self = msg_send ~self ~cmd:(selector "connectionHandlers") ~typ:(returning (id)) -let disconnectionHandlers self = msg_send ~self ~cmd:(selector "disconnectionHandlers") ~typ:(returning (id)) -let finalActionHandlers self = msg_send ~self ~cmd:(selector "finalActionHandlers") ~typ:(returning (id)) -let initialSettingsDiffActions self = msg_send ~self ~cmd:(selector "initialSettingsDiffActions") ~typ:(returning (id)) -let settingsClass self = msg_send ~self ~cmd:(selector "settingsClass") ~typ:(returning (_Class)) -let uiSceneSessionRole self = msg_send ~self ~cmd:(selector "uiSceneSessionRole") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIAssistantBarRoundedButtonView.ml b/uikit/UIAssistantBarRoundedButtonView.ml index 7fa3393b..5c186982 100644 --- a/uikit/UIAssistantBarRoundedButtonView.ml +++ b/uikit/UIAssistantBarRoundedButtonView.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAssistantBarRoundedButtonView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiassistantbarroundedbuttonview?language=objc}UIAssistantBarRoundedButtonView} *) -let button self = msg_send ~self ~cmd:(selector "button") ~typ:(returning (id)) -let dropShadow self = msg_send ~self ~cmd:(selector "dropShadow") ~typ:(returning (bool)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setDropShadow x self = msg_send ~self ~cmd:(selector "setDropShadow:") ~typ:(bool @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x \ No newline at end of file +let self = get_class "UIAssistantBarRoundedButtonView" + +let button self = msg_send ~self ~cmd:(selector "button") ~typ:(returning id) +let dropShadow self = msg_send ~self ~cmd:(selector "dropShadow") ~typ:(returning bool) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setDropShadow x self = msg_send ~self ~cmd:(selector "setDropShadow:") ~typ:(bool @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x \ No newline at end of file diff --git a/uikit/UIAssistantBarRoundedButtonViewButton.ml b/uikit/UIAssistantBarRoundedButtonViewButton.ml deleted file mode 100644 index 49c23ea7..00000000 --- a/uikit/UIAssistantBarRoundedButtonViewButton.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIAssistantBarRoundedButtonViewButton" - -let highlightedBackgroundColor self = msg_send ~self ~cmd:(selector "highlightedBackgroundColor") ~typ:(returning (id)) -let highlightedTitleColor self = msg_send ~self ~cmd:(selector "highlightedTitleColor") ~typ:(returning (id)) -let normalBackgroundColor self = msg_send ~self ~cmd:(selector "normalBackgroundColor") ~typ:(returning (id)) -let normalTitleColor self = msg_send ~self ~cmd:(selector "normalTitleColor") ~typ:(returning (id)) -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setHighlightedBackgroundColor x self = msg_send ~self ~cmd:(selector "setHighlightedBackgroundColor:") ~typ:(id @-> returning (void)) x -let setHighlightedTitleColor x self = msg_send ~self ~cmd:(selector "setHighlightedTitleColor:") ~typ:(id @-> returning (void)) x -let setNormalBackgroundColor x self = msg_send ~self ~cmd:(selector "setNormalBackgroundColor:") ~typ:(id @-> returning (void)) x -let setNormalTitleColor x self = msg_send ~self ~cmd:(selector "setNormalTitleColor:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIAssistantBarSeparatorView.ml b/uikit/UIAssistantBarSeparatorView.ml index 54eb0739..c7634dab 100644 --- a/uikit/UIAssistantBarSeparatorView.ml +++ b/uikit/UIAssistantBarSeparatorView.ml @@ -5,16 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAssistantBarSeparatorView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiassistantbarseparatorview?language=objc}UIAssistantBarSeparatorView} *) -module C = struct - let preferredWidth self = msg_send ~self ~cmd:(selector "preferredWidth") ~typ:(returning (double)) -end +let self = get_class "UIAssistantBarSeparatorView" -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let innerSeparatorView self = msg_send ~self ~cmd:(selector "innerSeparatorView") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setInnerSeparatorView x self = msg_send ~self ~cmd:(selector "setInnerSeparatorView:") ~typ:(id @-> returning (void)) x -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let innerSeparatorView self = msg_send ~self ~cmd:(selector "innerSeparatorView") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setInnerSeparatorView x self = msg_send ~self ~cmd:(selector "setInnerSeparatorView:") ~typ:(id @-> returning void) x +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIAssistantBarSeparatorViewClass.ml b/uikit/UIAssistantBarSeparatorViewClass.ml new file mode 100644 index 00000000..45dfadcd --- /dev/null +++ b/uikit/UIAssistantBarSeparatorViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiassistantbarseparatorview?language=objc}UIAssistantBarSeparatorView} *) + +let preferredWidth self = msg_send ~self ~cmd:(selector "preferredWidth") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIAttachmentBehavior.ml b/uikit/UIAttachmentBehavior.ml index 2012b1f6..63abd124 100644 --- a/uikit/UIAttachmentBehavior.ml +++ b/uikit/UIAttachmentBehavior.ml @@ -5,36 +5,33 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAttachmentBehavior" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiattachmentbehavior?language=objc}UIAttachmentBehavior} *) -module C = struct - let fixedAttachmentWithItem x ~attachedToItem ~attachmentAnchor self = msg_send ~self ~cmd:(selector "fixedAttachmentWithItem:attachedToItem:attachmentAnchor:") ~typ:(id @-> id @-> CGPoint.t @-> returning (id)) x attachedToItem attachmentAnchor - let limitAttachmentWithItem x ~offsetFromCenter ~attachedToItem ~offsetFromCenter_ self = msg_send ~self ~cmd:(selector "limitAttachmentWithItem:offsetFromCenter:attachedToItem:offsetFromCenter:") ~typ:(id @-> ptr void @-> id @-> ptr void @-> returning (id)) x offsetFromCenter attachedToItem offsetFromCenter_ - let pinAttachmentWithItem x ~attachedToItem ~attachmentAnchor self = msg_send ~self ~cmd:(selector "pinAttachmentWithItem:attachedToItem:attachmentAnchor:") ~typ:(id @-> id @-> CGPoint.t @-> returning (id)) x attachedToItem attachmentAnchor - let slidingAttachmentWithItem x ~attachmentAnchor ~axisOfTranslation self = msg_send ~self ~cmd:(selector "slidingAttachmentWithItem:attachmentAnchor:axisOfTranslation:") ~typ:(id @-> CGPoint.t @-> ptr void @-> returning (id)) x attachmentAnchor axisOfTranslation - let slidingAttachmentWithItem' x ~attachedToItem ~attachmentAnchor ~axisOfTranslation self = msg_send ~self ~cmd:(selector "slidingAttachmentWithItem:attachedToItem:attachmentAnchor:axisOfTranslation:") ~typ:(id @-> id @-> CGPoint.t @-> ptr void @-> returning (id)) x attachedToItem attachmentAnchor axisOfTranslation -end +let self = get_class "UIAttachmentBehavior" -let anchorPoint self = msg_send_stret ~self ~cmd:(selector "anchorPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let attachedBehaviorType self = msg_send ~self ~cmd:(selector "attachedBehaviorType") ~typ:(returning (llong)) -let damping self = msg_send ~self ~cmd:(selector "damping") ~typ:(returning (double)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let frequency self = msg_send ~self ~cmd:(selector "frequency") ~typ:(returning (double)) -let frictionTorque self = msg_send ~self ~cmd:(selector "frictionTorque") ~typ:(returning (double)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithItem x ~attachedToAnchor self = msg_send ~self ~cmd:(selector "initWithItem:attachedToAnchor:") ~typ:(id @-> CGPoint.t @-> returning (id)) x attachedToAnchor -let initWithItem1 x ~attachedToItem self = msg_send ~self ~cmd:(selector "initWithItem:attachedToItem:") ~typ:(id @-> id @-> returning (id)) x attachedToItem -let initWithItem2 x ~offsetFromCenter ~attachedToAnchor self = msg_send ~self ~cmd:(selector "initWithItem:offsetFromCenter:attachedToAnchor:") ~typ:(id @-> ptr void @-> CGPoint.t @-> returning (id)) x offsetFromCenter attachedToAnchor -let initWithItem3 x ~point ~attachedToAnchor self = msg_send ~self ~cmd:(selector "initWithItem:point:attachedToAnchor:") ~typ:(id @-> CGPoint.t @-> CGPoint.t @-> returning (id)) x point attachedToAnchor -let initWithItem4 x ~offsetFromCenter ~attachedToItem ~offsetFromCenter_ self = msg_send ~self ~cmd:(selector "initWithItem:offsetFromCenter:attachedToItem:offsetFromCenter:") ~typ:(id @-> ptr void @-> id @-> ptr void @-> returning (id)) x offsetFromCenter attachedToItem offsetFromCenter_ -let initWithItem5 x ~point ~attachedToItem ~point_ self = msg_send ~self ~cmd:(selector "initWithItem:point:attachedToItem:point:") ~typ:(id @-> CGPoint.t @-> id @-> CGPoint.t @-> returning (id)) x point attachedToItem point_ -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let length self = msg_send ~self ~cmd:(selector "length") ~typ:(returning (double)) -let setAnchorPoint x self = msg_send ~self ~cmd:(selector "setAnchorPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setAttachmentRange x self = msg_send ~self ~cmd:(selector "setAttachmentRange:") ~typ:(ptr void @-> returning (void)) x -let setDamping x self = msg_send ~self ~cmd:(selector "setDamping:") ~typ:(double @-> returning (void)) x -let setFrequency x self = msg_send ~self ~cmd:(selector "setFrequency:") ~typ:(double @-> returning (void)) x -let setFrictionTorque x self = msg_send ~self ~cmd:(selector "setFrictionTorque:") ~typ:(double @-> returning (void)) x -let setLength x self = msg_send ~self ~cmd:(selector "setLength:") ~typ:(double @-> returning (void)) x -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file +let anchorPoint self = msg_send ~self ~cmd:(selector "anchorPoint") ~typ:(returning CGPoint.t) +let attachedBehaviorType self = msg_send ~self ~cmd:(selector "attachedBehaviorType") ~typ:(returning llong) +let attachmentRange self = msg_send ~self ~cmd:(selector "attachmentRange") ~typ:(returning void) +let damping self = msg_send ~self ~cmd:(selector "damping") ~typ:(returning double) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let frequency self = msg_send ~self ~cmd:(selector "frequency") ~typ:(returning double) +let frictionTorque self = msg_send ~self ~cmd:(selector "frictionTorque") ~typ:(returning double) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithItem x ~attachedToAnchor self = msg_send ~self ~cmd:(selector "initWithItem:attachedToAnchor:") ~typ:(id @-> CGPoint.t @-> returning id) x attachedToAnchor +let initWithItem1 x ~attachedToItem self = msg_send ~self ~cmd:(selector "initWithItem:attachedToItem:") ~typ:(id @-> id @-> returning id) x attachedToItem +let initWithItem2 x ~offsetFromCenter ~attachedToAnchor self = msg_send ~self ~cmd:(selector "initWithItem:offsetFromCenter:attachedToAnchor:") ~typ:(id @-> UIOffset.t @-> CGPoint.t @-> returning id) x offsetFromCenter attachedToAnchor +let initWithItem3 x ~point ~attachedToAnchor self = msg_send ~self ~cmd:(selector "initWithItem:point:attachedToAnchor:") ~typ:(id @-> CGPoint.t @-> CGPoint.t @-> returning id) x point attachedToAnchor +let initWithItem4 x ~offsetFromCenter ~attachedToItem ~offsetFromCenter_ self = msg_send ~self ~cmd:(selector "initWithItem:offsetFromCenter:attachedToItem:offsetFromCenter:") ~typ:(id @-> UIOffset.t @-> id @-> UIOffset.t @-> returning id) x offsetFromCenter attachedToItem offsetFromCenter_ +let initWithItem5 x ~point ~attachedToItem ~point_ self = msg_send ~self ~cmd:(selector "initWithItem:point:attachedToItem:point:") ~typ:(id @-> CGPoint.t @-> id @-> CGPoint.t @-> returning id) x point attachedToItem point_ +let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning id) +let length self = msg_send ~self ~cmd:(selector "length") ~typ:(returning double) +let setAnchorPoint x self = msg_send ~self ~cmd:(selector "setAnchorPoint:") ~typ:(CGPoint.t @-> returning void) x +let setAttachmentRange x self = msg_send ~self ~cmd:(selector "setAttachmentRange:") ~typ:(void @-> returning void) x +let setDamping x self = msg_send ~self ~cmd:(selector "setDamping:") ~typ:(double @-> returning void) x +let setFrequency x self = msg_send ~self ~cmd:(selector "setFrequency:") ~typ:(double @-> returning void) x +let setFrictionTorque x self = msg_send ~self ~cmd:(selector "setFrictionTorque:") ~typ:(double @-> returning void) x +let setLength x self = msg_send ~self ~cmd:(selector "setLength:") ~typ:(double @-> returning void) x +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIAttachmentBehaviorClass.ml b/uikit/UIAttachmentBehaviorClass.ml new file mode 100644 index 00000000..a0cba94d --- /dev/null +++ b/uikit/UIAttachmentBehaviorClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiattachmentbehavior?language=objc}UIAttachmentBehavior} *) + +let fixedAttachmentWithItem x ~attachedToItem ~attachmentAnchor self = msg_send ~self ~cmd:(selector "fixedAttachmentWithItem:attachedToItem:attachmentAnchor:") ~typ:(id @-> id @-> CGPoint.t @-> returning id) x attachedToItem attachmentAnchor +let limitAttachmentWithItem x ~offsetFromCenter ~attachedToItem ~offsetFromCenter_ self = msg_send ~self ~cmd:(selector "limitAttachmentWithItem:offsetFromCenter:attachedToItem:offsetFromCenter:") ~typ:(id @-> UIOffset.t @-> id @-> UIOffset.t @-> returning id) x offsetFromCenter attachedToItem offsetFromCenter_ +let pinAttachmentWithItem x ~attachedToItem ~attachmentAnchor self = msg_send ~self ~cmd:(selector "pinAttachmentWithItem:attachedToItem:attachmentAnchor:") ~typ:(id @-> id @-> CGPoint.t @-> returning id) x attachedToItem attachmentAnchor +let slidingAttachmentWithItem x ~attachmentAnchor ~axisOfTranslation self = msg_send ~self ~cmd:(selector "slidingAttachmentWithItem:attachmentAnchor:axisOfTranslation:") ~typ:(id @-> CGPoint.t @-> CGVector.t @-> returning id) x attachmentAnchor axisOfTranslation +let slidingAttachmentWithItem' x ~attachedToItem ~attachmentAnchor ~axisOfTranslation self = msg_send ~self ~cmd:(selector "slidingAttachmentWithItem:attachedToItem:attachmentAnchor:axisOfTranslation:") ~typ:(id @-> id @-> CGPoint.t @-> CGVector.t @-> returning id) x attachedToItem attachmentAnchor axisOfTranslation \ No newline at end of file diff --git a/uikit/UIAutoRespondingScrollViewControllerKeyboardSupport.ml b/uikit/UIAutoRespondingScrollViewControllerKeyboardSupport.ml deleted file mode 100644 index 09d7c0a7..00000000 --- a/uikit/UIAutoRespondingScrollViewControllerKeyboardSupport.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIAutoRespondingScrollViewControllerKeyboardSupport" - -let adjustmentForKeyboard self = msg_send ~self ~cmd:(selector "adjustmentForKeyboard") ~typ:(returning (double)) -let initWithViewController x self = msg_send ~self ~cmd:(selector "initWithViewController:") ~typ:(id @-> returning (id)) x -let registeredForNotifications self = msg_send ~self ~cmd:(selector "registeredForNotifications") ~typ:(returning (bool)) -let setAdjustmentForKeyboard x self = msg_send ~self ~cmd:(selector "setAdjustmentForKeyboard:") ~typ:(double @-> returning (void)) x -let setRegisteredForNotifications x self = msg_send ~self ~cmd:(selector "setRegisteredForNotifications:") ~typ:(bool @-> returning (void)) x -let setViewIsDisappearing x self = msg_send ~self ~cmd:(selector "setViewIsDisappearing:") ~typ:(bool @-> returning (void)) x -let viewIsDisappearing self = msg_send ~self ~cmd:(selector "viewIsDisappearing") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIAutoRotatingWindow.ml b/uikit/UIAutoRotatingWindow.ml index 33ffe419..0cbb3938 100644 --- a/uikit/UIAutoRotatingWindow.ml +++ b/uikit/UIAutoRotatingWindow.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAutoRotatingWindow" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiautorotatingwindow?language=objc}UIAutoRotatingWindow} *) -let commonInit self = msg_send ~self ~cmd:(selector "commonInit") ~typ:(returning (void)) -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let updateForOrientation x self = msg_send ~self ~cmd:(selector "updateForOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file +let self = get_class "UIAutoRotatingWindow" + +let commonInit self = msg_send ~self ~cmd:(selector "commonInit") ~typ:(returning void) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let updateForOrientation x self = msg_send ~self ~cmd:(selector "updateForOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIAutocorrectBubble.ml b/uikit/UIAutocorrectBubble.ml index 36749e3e..987020d3 100644 --- a/uikit/UIAutocorrectBubble.ml +++ b/uikit/UIAutocorrectBubble.ml @@ -5,11 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAutocorrectBubble" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiautocorrectbubble?language=objc}UIAutocorrectBubble} *) -let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let lastBaselineAnchor self = msg_send ~self ~cmd:(selector "lastBaselineAnchor") ~typ:(returning (id)) -let textLabel self = msg_send ~self ~cmd:(selector "textLabel") ~typ:(returning (id)) -let updateWithAutocorrectionText x self = msg_send ~self ~cmd:(selector "updateWithAutocorrectionText:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIAutocorrectBubble" + +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let lastBaselineAnchor self = msg_send ~self ~cmd:(selector "lastBaselineAnchor") ~typ:(returning id) +let textLabel self = msg_send ~self ~cmd:(selector "textLabel") ~typ:(returning id) +let updateWithAutocorrectionText x self = msg_send ~self ~cmd:(selector "updateWithAutocorrectionText:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIAutocorrectBubbleContainer.ml b/uikit/UIAutocorrectBubbleContainer.ml index 7f89e2d9..dc84ccab 100644 --- a/uikit/UIAutocorrectBubbleContainer.ml +++ b/uikit/UIAutocorrectBubbleContainer.ml @@ -5,40 +5,44 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAutocorrectBubbleContainer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiautocorrectbubblecontainer?language=objc}UIAutocorrectBubbleContainer} *) -let animateAutocorrectionAccepted self = msg_send ~self ~cmd:(selector "animateAutocorrectionAccepted") ~typ:(returning (void)) -let bubble self = msg_send ~self ~cmd:(selector "bubble") ~typ:(returning (id)) -let bubbleTopConstraint self = msg_send ~self ~cmd:(selector "bubbleTopConstraint") ~typ:(returning (id)) -let createTypedTextViewWithTypedText x self = msg_send ~self ~cmd:(selector "createTypedTextViewWithTypedText:") ~typ:(id @-> returning (id)) x -let didTapAutocorrectionBubble self = msg_send ~self ~cmd:(selector "didTapAutocorrectionBubble") ~typ:(returning (void)) -let dismissAutocorrectBubble self = msg_send ~self ~cmd:(selector "dismissAutocorrectBubble") ~typ:(returning (void)) -let fakeTextSelectionHighlight self = msg_send ~self ~cmd:(selector "fakeTextSelectionHighlight") ~typ:(returning (id)) -let heightConstraint self = msg_send ~self ~cmd:(selector "heightConstraint") ~typ:(returning (id)) -let highlightWidthConstraint self = msg_send ~self ~cmd:(selector "highlightWidthConstraint") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isViewAnimating self = msg_send ~self ~cmd:(selector "isViewAnimating") ~typ:(returning (bool)) -let performReset self = msg_send ~self ~cmd:(selector "performReset") ~typ:(returning (void)) -let referenceRect self = msg_send_stret ~self ~cmd:(selector "referenceRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let setBubble x self = msg_send ~self ~cmd:(selector "setBubble:") ~typ:(id @-> returning (void)) x -let setBubbleTopConstraint x self = msg_send ~self ~cmd:(selector "setBubbleTopConstraint:") ~typ:(id @-> returning (void)) x -let setFakeTextSelectionHighlight x self = msg_send ~self ~cmd:(selector "setFakeTextSelectionHighlight:") ~typ:(id @-> returning (void)) x -let setHeightConstraint x self = msg_send ~self ~cmd:(selector "setHeightConstraint:") ~typ:(id @-> returning (void)) x -let setHighlightWidthConstraint x self = msg_send ~self ~cmd:(selector "setHighlightWidthConstraint:") ~typ:(id @-> returning (void)) x -let setReferenceRect x self = msg_send ~self ~cmd:(selector "setReferenceRect:") ~typ:(CGRect.t @-> returning (void)) x -let setTypedText x self = msg_send ~self ~cmd:(selector "setTypedText:") ~typ:(id @-> returning (void)) x -let setTypedTextAnimationPlaceholder x self = msg_send ~self ~cmd:(selector "setTypedTextAnimationPlaceholder:") ~typ:(id @-> returning (void)) x -let setWidthConstraint x self = msg_send ~self ~cmd:(selector "setWidthConstraint:") ~typ:(id @-> returning (void)) x -let setXConstraint x self = msg_send ~self ~cmd:(selector "setXConstraint:") ~typ:(id @-> returning (void)) x -let setYConstraint x self = msg_send ~self ~cmd:(selector "setYConstraint:") ~typ:(id @-> returning (void)) x -let typedText self = msg_send ~self ~cmd:(selector "typedText") ~typ:(returning (id)) -let typedTextAnimationPlaceholder self = msg_send ~self ~cmd:(selector "typedTextAnimationPlaceholder") ~typ:(returning (id)) -let updateBubbleWithAutocorrectionText x ~referenceRect self = msg_send ~self ~cmd:(selector "updateBubbleWithAutocorrectionText:referenceRect:") ~typ:(id @-> CGRect.t @-> returning (void)) x referenceRect -let updateFakeTextSelectionHighlightForRect x self = msg_send ~self ~cmd:(selector "updateFakeTextSelectionHighlightForRect:") ~typ:(CGRect.t @-> returning (void)) x -let updateSelfWithRect x self = msg_send ~self ~cmd:(selector "updateSelfWithRect:") ~typ:(CGRect.t @-> returning (void)) x -let updateWithAutocorrectionText x ~typedText ~referenceTextView ~referenceRect self = msg_send ~self ~cmd:(selector "updateWithAutocorrectionText:typedText:referenceTextView:referenceRect:") ~typ:(id @-> id @-> id @-> CGRect.t @-> returning (void)) x typedText referenceTextView referenceRect -let widthConstraint self = msg_send ~self ~cmd:(selector "widthConstraint") ~typ:(returning (id)) -let xConstraint self = msg_send ~self ~cmd:(selector "xConstraint") ~typ:(returning (id)) -let yConstraint self = msg_send ~self ~cmd:(selector "yConstraint") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIAutocorrectBubbleContainer" + +let animateAutocorrectionAccepted self = msg_send ~self ~cmd:(selector "animateAutocorrectionAccepted") ~typ:(returning void) +let bubble self = msg_send ~self ~cmd:(selector "bubble") ~typ:(returning id) +let bubbleTopConstraint self = msg_send ~self ~cmd:(selector "bubbleTopConstraint") ~typ:(returning id) +let createTypedTextViewWithTypedText x self = msg_send ~self ~cmd:(selector "createTypedTextViewWithTypedText:") ~typ:(id @-> returning id) x +let didTapAutocorrectionBubble self = msg_send ~self ~cmd:(selector "didTapAutocorrectionBubble") ~typ:(returning void) +let dismissAutocorrectBubble self = msg_send ~self ~cmd:(selector "dismissAutocorrectBubble") ~typ:(returning void) +let fakeTextSelectionHighlight self = msg_send ~self ~cmd:(selector "fakeTextSelectionHighlight") ~typ:(returning id) +let heightConstraint self = msg_send ~self ~cmd:(selector "heightConstraint") ~typ:(returning id) +let highlightWidthConstraint self = msg_send ~self ~cmd:(selector "highlightWidthConstraint") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isViewAnimating self = msg_send ~self ~cmd:(selector "isViewAnimating") ~typ:(returning bool) +let performReset self = msg_send ~self ~cmd:(selector "performReset") ~typ:(returning void) +let referenceRect self = msg_send ~self ~cmd:(selector "referenceRect") ~typ:(returning CGRect.t) +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let setBubble x self = msg_send ~self ~cmd:(selector "setBubble:") ~typ:(id @-> returning void) x +let setBubbleTopConstraint x self = msg_send ~self ~cmd:(selector "setBubbleTopConstraint:") ~typ:(id @-> returning void) x +let setFakeTextSelectionHighlight x self = msg_send ~self ~cmd:(selector "setFakeTextSelectionHighlight:") ~typ:(id @-> returning void) x +let setHeightConstraint x self = msg_send ~self ~cmd:(selector "setHeightConstraint:") ~typ:(id @-> returning void) x +let setHighlightWidthConstraint x self = msg_send ~self ~cmd:(selector "setHighlightWidthConstraint:") ~typ:(id @-> returning void) x +let setReferenceRect x self = msg_send ~self ~cmd:(selector "setReferenceRect:") ~typ:(CGRect.t @-> returning void) x +let setTypedText x self = msg_send ~self ~cmd:(selector "setTypedText:") ~typ:(id @-> returning void) x +let setTypedTextAnimationPlaceholder x self = msg_send ~self ~cmd:(selector "setTypedTextAnimationPlaceholder:") ~typ:(id @-> returning void) x +let setWidthConstraint x self = msg_send ~self ~cmd:(selector "setWidthConstraint:") ~typ:(id @-> returning void) x +let setXConstraint x self = msg_send ~self ~cmd:(selector "setXConstraint:") ~typ:(id @-> returning void) x +let setYConstraint x self = msg_send ~self ~cmd:(selector "setYConstraint:") ~typ:(id @-> returning void) x +let typedText self = msg_send ~self ~cmd:(selector "typedText") ~typ:(returning id) +let typedTextAnimationPlaceholder self = msg_send ~self ~cmd:(selector "typedTextAnimationPlaceholder") ~typ:(returning id) +let updateBubbleWithAutocorrectionText x ~referenceRect self = msg_send ~self ~cmd:(selector "updateBubbleWithAutocorrectionText:referenceRect:") ~typ:(id @-> CGRect.t @-> returning void) x referenceRect +let updateFakeTextSelectionHighlightForRect x self = msg_send ~self ~cmd:(selector "updateFakeTextSelectionHighlightForRect:") ~typ:(CGRect.t @-> returning void) x +let updateSelfWithRect x self = msg_send ~self ~cmd:(selector "updateSelfWithRect:") ~typ:(CGRect.t @-> returning void) x +let updateWithAutocorrectionText x ~typedText ~referenceTextView ~referenceRect self = msg_send ~self ~cmd:(selector "updateWithAutocorrectionText:typedText:referenceTextView:referenceRect:") ~typ:(id @-> id @-> id @-> CGRect.t @-> returning void) x typedText referenceTextView referenceRect +let widthConstraint self = msg_send ~self ~cmd:(selector "widthConstraint") ~typ:(returning id) +let xConstraint self = msg_send ~self ~cmd:(selector "xConstraint") ~typ:(returning id) +let yConstraint self = msg_send ~self ~cmd:(selector "yConstraint") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIAutocorrectInlinePrompt.ml b/uikit/UIAutocorrectInlinePrompt.ml index 770b29ce..b833b92a 100644 --- a/uikit/UIAutocorrectInlinePrompt.ml +++ b/uikit/UIAutocorrectInlinePrompt.ml @@ -5,35 +5,39 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAutocorrectInlinePrompt" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiautocorrectinlineprompt?language=objc}UIAutocorrectInlinePrompt} *) -let addTypedTextRect x self = msg_send ~self ~cmd:(selector "addTypedTextRect:") ~typ:(CGRect.t @-> returning (void)) x -let correction self = msg_send ~self ~cmd:(selector "correction") ~typ:(returning (id)) -let correctionAnimationView self = msg_send ~self ~cmd:(selector "correctionAnimationView") ~typ:(returning (id)) -let correctionFrameFromDesiredFrame x ~textHeight ~withExtraGap self = msg_send_stret ~self ~cmd:(selector "correctionFrameFromDesiredFrame:textHeight:withExtraGap:") ~typ:(CGRect.t @-> int @-> double @-> returning (CGRect.t)) ~return_type:CGRect.t x textHeight withExtraGap -let correctionShadowView self = msg_send ~self ~cmd:(selector "correctionShadowView") ~typ:(returning (id)) -let correctionView self = msg_send ~self ~cmd:(selector "correctionView") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let dismiss self = msg_send ~self ~cmd:(selector "dismiss") ~typ:(returning (void)) -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let horizontallySquishedCorrectionFrame x self = msg_send_stret ~self ~cmd:(selector "horizontallySquishedCorrectionFrame:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isAcceptableTextEffectsFrame x ~afterScrollBy self = msg_send ~self ~cmd:(selector "isAcceptableTextEffectsFrame:afterScrollBy:") ~typ:(CGRect.t @-> double @-> returning (bool)) x afterScrollBy -let pointInside x ~forEvent self = msg_send ~self ~cmd:(selector "pointInside:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (bool)) x forEvent -let pointInside' x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let prepareForAnimation x self = msg_send ~self ~cmd:(selector "prepareForAnimation:") ~typ:(CGRect.t @-> returning (bool)) x -let removePromptSubviews self = msg_send ~self ~cmd:(selector "removePromptSubviews") ~typ:(returning (void)) -let setCorrection x ~typedText ~inRect ~maxX self = msg_send ~self ~cmd:(selector "setCorrection:typedText:inRect:maxX:") ~typ:(id @-> id @-> CGRect.t @-> double @-> returning (void)) x typedText inRect maxX -let setUsageTrackingMask x self = msg_send ~self ~cmd:(selector "setUsageTrackingMask:") ~typ:(uint @-> returning (void)) x -let shadowFrameForFrame x self = msg_send_stret ~self ~cmd:(selector "shadowFrameForFrame:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning (int)) -let textEffectsVisibilityLevelInKeyboardWindow self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevelInKeyboardWindow") ~typ:(returning (int)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let typedText self = msg_send ~self ~cmd:(selector "typedText") ~typ:(returning (id)) -let typedTextAnimationView self = msg_send ~self ~cmd:(selector "typedTextAnimationView") ~typ:(returning (id)) -let typedTextView self = msg_send ~self ~cmd:(selector "typedTextView") ~typ:(returning (id)) -let usageTrackingMask self = msg_send ~self ~cmd:(selector "usageTrackingMask") ~typ:(returning (uint)) \ No newline at end of file +let self = get_class "UIAutocorrectInlinePrompt" + +let addTypedTextRect x self = msg_send ~self ~cmd:(selector "addTypedTextRect:") ~typ:(CGRect.t @-> returning void) x +let correction self = msg_send ~self ~cmd:(selector "correction") ~typ:(returning id) +let correctionAnimationView self = msg_send ~self ~cmd:(selector "correctionAnimationView") ~typ:(returning id) +let correctionFrameFromDesiredFrame x ~textHeight ~withExtraGap self = msg_send ~self ~cmd:(selector "correctionFrameFromDesiredFrame:textHeight:withExtraGap:") ~typ:(CGRect.t @-> int @-> double @-> returning CGRect.t) x textHeight withExtraGap +let correctionShadowView self = msg_send ~self ~cmd:(selector "correctionShadowView") ~typ:(returning id) +let correctionView self = msg_send ~self ~cmd:(selector "correctionView") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let dismiss self = msg_send ~self ~cmd:(selector "dismiss") ~typ:(returning void) +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let horizontallySquishedCorrectionFrame x self = msg_send ~self ~cmd:(selector "horizontallySquishedCorrectionFrame:") ~typ:(CGRect.t @-> returning CGRect.t) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isAcceptableTextEffectsFrame x ~afterScrollBy self = msg_send ~self ~cmd:(selector "isAcceptableTextEffectsFrame:afterScrollBy:") ~typ:(CGRect.t @-> double @-> returning bool) x afterScrollBy +let pointInside x ~forEvent self = msg_send ~self ~cmd:(selector "pointInside:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning bool) x forEvent +let pointInside' x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let prepareForAnimation x self = msg_send ~self ~cmd:(selector "prepareForAnimation:") ~typ:(CGRect.t @-> returning bool) x +let removePromptSubviews self = msg_send ~self ~cmd:(selector "removePromptSubviews") ~typ:(returning void) +let setCorrection x ~typedText ~inRect ~maxX self = msg_send ~self ~cmd:(selector "setCorrection:typedText:inRect:maxX:") ~typ:(id @-> id @-> CGRect.t @-> double @-> returning void) x typedText inRect maxX +let setUsageTrackingMask x self = msg_send ~self ~cmd:(selector "setUsageTrackingMask:") ~typ:(uint @-> returning void) x +let shadowFrameForFrame x self = msg_send ~self ~cmd:(selector "shadowFrameForFrame:") ~typ:(CGRect.t @-> returning CGRect.t) x +let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning int) +let textEffectsVisibilityLevelInKeyboardWindow self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevelInKeyboardWindow") ~typ:(returning int) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let typedText self = msg_send ~self ~cmd:(selector "typedText") ~typ:(returning id) +let typedTextAnimationView self = msg_send ~self ~cmd:(selector "typedTextAnimationView") ~typ:(returning id) +let typedTextView self = msg_send ~self ~cmd:(selector "typedTextView") ~typ:(returning id) +let usageTrackingMask self = msg_send ~self ~cmd:(selector "usageTrackingMask") ~typ:(returning uint) \ No newline at end of file diff --git a/uikit/UIAutocorrectShadowView.ml b/uikit/UIAutocorrectShadowView.ml index 56a2996e..0b1da4d6 100644 --- a/uikit/UIAutocorrectShadowView.ml +++ b/uikit/UIAutocorrectShadowView.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAutocorrectShadowView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiautocorrectshadowview?language=objc}UIAutocorrectShadowView} *) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let setEdgeType x self = msg_send ~self ~cmd:(selector "setEdgeType:") ~typ:(int @-> returning (void)) x \ No newline at end of file +let self = get_class "UIAutocorrectShadowView" + +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let setEdgeType x self = msg_send ~self ~cmd:(selector "setEdgeType:") ~typ:(int @-> returning void) x \ No newline at end of file diff --git a/uikit/UIAutocorrectTextView.ml b/uikit/UIAutocorrectTextView.ml index fc2693f3..3acc94b4 100644 --- a/uikit/UIAutocorrectTextView.ml +++ b/uikit/UIAutocorrectTextView.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAutocorrectTextView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiautocorrecttextview?language=objc}UIAutocorrectTextView} *) -let animating self = msg_send ~self ~cmd:(selector "animating") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let initWithFrame x ~string_ ~type_ ~edgeType self = msg_send ~self ~cmd:(selector "initWithFrame:string:type:edgeType:") ~typ:(CGRect.t @-> id @-> int @-> int @-> returning (id)) x string_ type_ edgeType -let isLongString self = msg_send ~self ~cmd:(selector "isLongString") ~typ:(returning (bool)) -let pointInside x ~forEvent self = msg_send ~self ~cmd:(selector "pointInside:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (bool)) x forEvent -let pointInside' x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let setAnimating x self = msg_send ~self ~cmd:(selector "setAnimating:") ~typ:(bool @-> returning (void)) x -let setEdgeType x self = msg_send ~self ~cmd:(selector "setEdgeType:") ~typ:(int @-> returning (void)) x -let setIsLongString x self = msg_send ~self ~cmd:(selector "setIsLongString:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIAutocorrectTextView" + +let animating self = msg_send ~self ~cmd:(selector "animating") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let initWithFrame x ~string_ ~type_ ~edgeType self = msg_send ~self ~cmd:(selector "initWithFrame:string:type:edgeType:") ~typ:(CGRect.t @-> id @-> int @-> int @-> returning id) x string_ type_ edgeType +let isLongString self = msg_send ~self ~cmd:(selector "isLongString") ~typ:(returning bool) +let pointInside x ~forEvent self = msg_send ~self ~cmd:(selector "pointInside:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning bool) x forEvent +let pointInside' x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let setAnimating x self = msg_send ~self ~cmd:(selector "setAnimating:") ~typ:(bool @-> returning void) x +let setEdgeType x self = msg_send ~self ~cmd:(selector "setEdgeType:") ~typ:(int @-> returning void) x +let setIsLongString x self = msg_send ~self ~cmd:(selector "setIsLongString:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIAutonomousSingleAppModeConfiguration.ml b/uikit/UIAutonomousSingleAppModeConfiguration.ml deleted file mode 100644 index 5d316c41..00000000 --- a/uikit/UIAutonomousSingleAppModeConfiguration.ml +++ /dev/null @@ -1,27 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIAutonomousSingleAppModeConfiguration" - -module C = struct - let defaultConfiguration self = msg_send ~self ~cmd:(selector "defaultConfiguration") ~typ:(returning (id)) - let defaultConfigurationForStyle x self = msg_send ~self ~cmd:(selector "defaultConfigurationForStyle:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -end - -let allowsAutoLock self = msg_send ~self ~cmd:(selector "allowsAutoLock") ~typ:(returning (bool)) -let allowsLockButton self = msg_send ~self ~cmd:(selector "allowsLockButton") ~typ:(returning (bool)) -let automaticallyRelaunchesAfterAppCrash self = msg_send ~self ~cmd:(selector "automaticallyRelaunchesAfterAppCrash") ~typ:(returning (bool)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let managedConfigurationSettings self = msg_send ~self ~cmd:(selector "managedConfigurationSettings") ~typ:(returning (id)) -let propertiesAsDictionary self = msg_send ~self ~cmd:(selector "propertiesAsDictionary") ~typ:(returning (id)) -let setAllowsAutoLock x self = msg_send ~self ~cmd:(selector "setAllowsAutoLock:") ~typ:(bool @-> returning (void)) x -let setAllowsLockButton x self = msg_send ~self ~cmd:(selector "setAllowsLockButton:") ~typ:(bool @-> returning (void)) x -let setAutomaticallyRelaunchesAfterAppCrash x self = msg_send ~self ~cmd:(selector "setAutomaticallyRelaunchesAfterAppCrash:") ~typ:(bool @-> returning (void)) x -let setManagedConfigurationSettings x self = msg_send ~self ~cmd:(selector "setManagedConfigurationSettings:") ~typ:(id @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (ullong)) \ No newline at end of file diff --git a/uikit/UIAutonomousSingleAppModeSession.ml b/uikit/UIAutonomousSingleAppModeSession.ml deleted file mode 100644 index 81d003e0..00000000 --- a/uikit/UIAutonomousSingleAppModeSession.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIAutonomousSingleAppModeSession" - -module C = struct - let currentlyActiveSession self = msg_send ~self ~cmd:(selector "currentlyActiveSession") ~typ:(returning (id)) - let requestSessionWithConfiguration x ~completion self = msg_send ~self ~cmd:(selector "requestSessionWithConfiguration:completion:") ~typ:(id @-> ptr void @-> returning (void)) x completion -end - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let effectiveConfiguration self = msg_send ~self ~cmd:(selector "effectiveConfiguration") ~typ:(returning (id)) -let endWithCompletion x self = msg_send ~self ~cmd:(selector "endWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let initWithEffectiveConfiguration x self = msg_send ~self ~cmd:(selector "initWithEffectiveConfiguration:") ~typ:(id @-> returning (id)) x -let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning (bool)) -let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning (void)) x -let setEffectiveConfiguration x self = msg_send ~self ~cmd:(selector "setEffectiveConfiguration:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIAutoscroll.ml b/uikit/UIAutoscroll.ml index 040138b5..b9a0fa9f 100644 --- a/uikit/UIAutoscroll.ml +++ b/uikit/UIAutoscroll.ml @@ -5,26 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAutoscroll" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiautoscroll?language=objc}UIAutoscroll} *) -let active self = msg_send ~self ~cmd:(selector "active") ~typ:(returning (bool)) -let count self = msg_send ~self ~cmd:(selector "count") ~typ:(returning (ullong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let directions self = msg_send ~self ~cmd:(selector "directions") ~typ:(returning (int)) -let disabled self = msg_send ~self ~cmd:(selector "disabled") ~typ:(returning (bool)) -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let point self = msg_send_stret ~self ~cmd:(selector "point") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let repeatInterval self = msg_send ~self ~cmd:(selector "repeatInterval") ~typ:(returning (double)) -let scrollContainer self = msg_send ~self ~cmd:(selector "scrollContainer") ~typ:(returning (id)) -let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning (void)) x -let setCount x self = msg_send ~self ~cmd:(selector "setCount:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDirections x self = msg_send ~self ~cmd:(selector "setDirections:") ~typ:(int @-> returning (void)) x -let setDisabled x self = msg_send ~self ~cmd:(selector "setDisabled:") ~typ:(bool @-> returning (void)) x -let setPoint x self = msg_send ~self ~cmd:(selector "setPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setRepeatInterval x self = msg_send ~self ~cmd:(selector "setRepeatInterval:") ~typ:(double @-> returning (void)) x -let setScrollContainer x self = msg_send ~self ~cmd:(selector "setScrollContainer:") ~typ:(id @-> returning (void)) x -let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning (void)) x -let startAutoscroll x ~scrollContainer ~point ~directions ~repeatInterval self = msg_send ~self ~cmd:(selector "startAutoscroll:scrollContainer:point:directions:repeatInterval:") ~typ:(id @-> id @-> CGPoint.t @-> int @-> double @-> returning (bool)) x scrollContainer point directions repeatInterval -let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning (id)) -let timerFired x self = msg_send ~self ~cmd:(selector "timerFired:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIAutoscroll" + +let active self = msg_send ~self ~cmd:(selector "active") ~typ:(returning bool) +let count self = msg_send ~self ~cmd:(selector "count") ~typ:(returning ullong) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let directions self = msg_send ~self ~cmd:(selector "directions") ~typ:(returning int) +let disabled self = msg_send ~self ~cmd:(selector "disabled") ~typ:(returning bool) +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let point self = msg_send ~self ~cmd:(selector "point") ~typ:(returning CGPoint.t) +let repeatInterval self = msg_send ~self ~cmd:(selector "repeatInterval") ~typ:(returning double) +let scrollContainer self = msg_send ~self ~cmd:(selector "scrollContainer") ~typ:(returning id) +let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning void) x +let setCount x self = msg_send ~self ~cmd:(selector "setCount:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDirections x self = msg_send ~self ~cmd:(selector "setDirections:") ~typ:(int @-> returning void) x +let setDisabled x self = msg_send ~self ~cmd:(selector "setDisabled:") ~typ:(bool @-> returning void) x +let setPoint x self = msg_send ~self ~cmd:(selector "setPoint:") ~typ:(CGPoint.t @-> returning void) x +let setRepeatInterval x self = msg_send ~self ~cmd:(selector "setRepeatInterval:") ~typ:(double @-> returning void) x +let setScrollContainer x self = msg_send ~self ~cmd:(selector "setScrollContainer:") ~typ:(id @-> returning void) x +let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning void) x +let startAutoscroll x ~scrollContainer ~point ~directions ~repeatInterval self = msg_send ~self ~cmd:(selector "startAutoscroll:scrollContainer:point:directions:repeatInterval:") ~typ:(id @-> id @-> CGPoint.t @-> int @-> double @-> returning bool) x scrollContainer point directions repeatInterval +let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning id) +let timerFired x self = msg_send ~self ~cmd:(selector "timerFired:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIAvoidanceCoordinator.ml b/uikit/UIAvoidanceCoordinator.ml index 25234400..9ee1412e 100644 --- a/uikit/UIAvoidanceCoordinator.ml +++ b/uikit/UIAvoidanceCoordinator.ml @@ -5,19 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAvoidanceCoordinator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiavoidancecoordinator?language=objc}UIAvoidanceCoordinator} *) -let addAvoidanceObject x self = msg_send ~self ~cmd:(selector "addAvoidanceObject:") ~typ:(id @-> returning (void)) x -let avoidanceFrame self = msg_send_stret ~self ~cmd:(selector "avoidanceFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let findBlockadesForName x self = msg_send ~self ~cmd:(selector "findBlockadesForName:") ~typ:(id @-> returning (id)) x -let findClientsForBlockade x self = msg_send ~self ~cmd:(selector "findClientsForBlockade:") ~typ:(id @-> returning (id)) x -let findNamesForBlockade x self = msg_send ~self ~cmd:(selector "findNamesForBlockade:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let releaseAll x ~withType self = msg_send ~self ~cmd:(selector "releaseAll:withType:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int withType) -let removeAvoidanceObject x self = msg_send ~self ~cmd:(selector "removeAvoidanceObject:") ~typ:(id @-> returning (void)) x -let setAvoidanceFrame x self = msg_send ~self ~cmd:(selector "setAvoidanceFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setGroupOfBlockades x ~forBlockadeIdentifier self = msg_send ~self ~cmd:(selector "setGroupOfBlockades:forBlockadeIdentifier:") ~typ:(id @-> id @-> returning (void)) x forBlockadeIdentifier -let updateClients x self = msg_send ~self ~cmd:(selector "updateClients:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIAvoidanceCoordinator" + +let addAvoidanceObject x self = msg_send ~self ~cmd:(selector "addAvoidanceObject:") ~typ:(id @-> returning void) x +let avoidanceFrame self = msg_send ~self ~cmd:(selector "avoidanceFrame") ~typ:(returning CGRect.t) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let findBlockadesForName x self = msg_send ~self ~cmd:(selector "findBlockadesForName:") ~typ:(id @-> returning id) x +let findClientsForBlockade x self = msg_send ~self ~cmd:(selector "findClientsForBlockade:") ~typ:(id @-> returning id) x +let findNamesForBlockade x self = msg_send ~self ~cmd:(selector "findNamesForBlockade:") ~typ:(id @-> returning id) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x ofObject change context +let releaseAll x ~withType self = msg_send ~self ~cmd:(selector "releaseAll:withType:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int withType) +let removeAvoidanceObject x self = msg_send ~self ~cmd:(selector "removeAvoidanceObject:") ~typ:(id @-> returning void) x +let setAvoidanceFrame x self = msg_send ~self ~cmd:(selector "setAvoidanceFrame:") ~typ:(CGRect.t @-> returning void) x +let setGroupOfBlockades x ~forBlockadeIdentifier self = msg_send ~self ~cmd:(selector "setGroupOfBlockades:forBlockadeIdentifier:") ~typ:(id @-> id @-> returning void) x forBlockadeIdentifier +let updateClients x self = msg_send ~self ~cmd:(selector "updateClients:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIBackgroundConfiguration.ml b/uikit/UIBackgroundConfiguration.ml index 3387c465..251978b2 100644 --- a/uikit/UIBackgroundConfiguration.ml +++ b/uikit/UIBackgroundConfiguration.ml @@ -5,53 +5,46 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIBackgroundConfiguration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibackgroundconfiguration?language=objc}UIBackgroundConfiguration} *) -module C = struct - let clearConfiguration self = msg_send ~self ~cmd:(selector "clearConfiguration") ~typ:(returning (id)) - let listAccompaniedSidebarCellConfiguration self = msg_send ~self ~cmd:(selector "listAccompaniedSidebarCellConfiguration") ~typ:(returning (id)) - let listGroupedCellConfiguration self = msg_send ~self ~cmd:(selector "listGroupedCellConfiguration") ~typ:(returning (id)) - let listGroupedHeaderFooterConfiguration self = msg_send ~self ~cmd:(selector "listGroupedHeaderFooterConfiguration") ~typ:(returning (id)) - let listPlainCellConfiguration self = msg_send ~self ~cmd:(selector "listPlainCellConfiguration") ~typ:(returning (id)) - let listPlainHeaderFooterConfiguration self = msg_send ~self ~cmd:(selector "listPlainHeaderFooterConfiguration") ~typ:(returning (id)) - let listSidebarCellConfiguration self = msg_send ~self ~cmd:(selector "listSidebarCellConfiguration") ~typ:(returning (id)) - let listSidebarHeaderConfiguration self = msg_send ~self ~cmd:(selector "listSidebarHeaderConfiguration") ~typ:(returning (id)) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIBackgroundConfiguration" -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) let backgroundColorTransformer self = msg_send ~self ~cmd:(selector "backgroundColorTransformer") ~typ:(returning (ptr void)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let cornerRadius self = msg_send ~self ~cmd:(selector "cornerRadius") ~typ:(returning (double)) -let customView self = msg_send ~self ~cmd:(selector "customView") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let edgesAddingLayoutMarginsToBackgroundInsets self = msg_send ~self ~cmd:(selector "edgesAddingLayoutMarginsToBackgroundInsets") ~typ:(returning (ullong)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let imageContentMode self = msg_send ~self ~cmd:(selector "imageContentMode") ~typ:(returning (llong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isTintBackgroundColor self = msg_send ~self ~cmd:(selector "isTintBackgroundColor") ~typ:(returning (bool)) -let resolvedBackgroundColorForTintColor x self = msg_send ~self ~cmd:(selector "resolvedBackgroundColorForTintColor:") ~typ:(id @-> returning (id)) x -let resolvedStrokeColorForTintColor x self = msg_send ~self ~cmd:(selector "resolvedStrokeColorForTintColor:") ~typ:(id @-> returning (id)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBackgroundColorTransformer x self = msg_send ~self ~cmd:(selector "setBackgroundColorTransformer:") ~typ:(ptr void @-> returning (void)) x -let setBackgroundInsets x self = msg_send ~self ~cmd:(selector "setBackgroundInsets:") ~typ:(ptr void @-> returning (void)) x -let setCornerRadius x self = msg_send ~self ~cmd:(selector "setCornerRadius:") ~typ:(double @-> returning (void)) x -let setCustomView x self = msg_send ~self ~cmd:(selector "setCustomView:") ~typ:(id @-> returning (void)) x -let setEdgesAddingLayoutMarginsToBackgroundInsets x self = msg_send ~self ~cmd:(selector "setEdgesAddingLayoutMarginsToBackgroundInsets:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setImageContentMode x self = msg_send ~self ~cmd:(selector "setImageContentMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setStrokeColor x self = msg_send ~self ~cmd:(selector "setStrokeColor:") ~typ:(id @-> returning (void)) x -let setStrokeColorTransformer x self = msg_send ~self ~cmd:(selector "setStrokeColorTransformer:") ~typ:(ptr void @-> returning (void)) x -let setStrokeOutset x self = msg_send ~self ~cmd:(selector "setStrokeOutset:") ~typ:(double @-> returning (void)) x -let setStrokeWidth x self = msg_send ~self ~cmd:(selector "setStrokeWidth:") ~typ:(double @-> returning (void)) x -let setVisualEffect x self = msg_send ~self ~cmd:(selector "setVisualEffect:") ~typ:(id @-> returning (void)) x -let strokeColor self = msg_send ~self ~cmd:(selector "strokeColor") ~typ:(returning (id)) +let backgroundInsets self = msg_send ~self ~cmd:(selector "backgroundInsets") ~typ:(returning NSDirectionalEdgeInsets.t) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let cornerRadius self = msg_send ~self ~cmd:(selector "cornerRadius") ~typ:(returning double) +let customView self = msg_send ~self ~cmd:(selector "customView") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let edgesAddingLayoutMarginsToBackgroundInsets self = msg_send ~self ~cmd:(selector "edgesAddingLayoutMarginsToBackgroundInsets") ~typ:(returning ullong) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let imageContentMode self = msg_send ~self ~cmd:(selector "imageContentMode") ~typ:(returning llong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isTintBackgroundColor self = msg_send ~self ~cmd:(selector "isTintBackgroundColor") ~typ:(returning bool) +let resolvedBackgroundColorForTintColor x self = msg_send ~self ~cmd:(selector "resolvedBackgroundColorForTintColor:") ~typ:(id @-> returning id) x +let resolvedStrokeColorForTintColor x self = msg_send ~self ~cmd:(selector "resolvedStrokeColorForTintColor:") ~typ:(id @-> returning id) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBackgroundColorTransformer x self = msg_send ~self ~cmd:(selector "setBackgroundColorTransformer:") ~typ:((ptr void) @-> returning void) x +let setBackgroundInsets x self = msg_send ~self ~cmd:(selector "setBackgroundInsets:") ~typ:(NSDirectionalEdgeInsets.t @-> returning void) x +let setCornerRadius x self = msg_send ~self ~cmd:(selector "setCornerRadius:") ~typ:(double @-> returning void) x +let setCustomView x self = msg_send ~self ~cmd:(selector "setCustomView:") ~typ:(id @-> returning void) x +let setEdgesAddingLayoutMarginsToBackgroundInsets x self = msg_send ~self ~cmd:(selector "setEdgesAddingLayoutMarginsToBackgroundInsets:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setImageContentMode x self = msg_send ~self ~cmd:(selector "setImageContentMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setStrokeColor x self = msg_send ~self ~cmd:(selector "setStrokeColor:") ~typ:(id @-> returning void) x +let setStrokeColorTransformer x self = msg_send ~self ~cmd:(selector "setStrokeColorTransformer:") ~typ:((ptr void) @-> returning void) x +let setStrokeOutset x self = msg_send ~self ~cmd:(selector "setStrokeOutset:") ~typ:(double @-> returning void) x +let setStrokeWidth x self = msg_send ~self ~cmd:(selector "setStrokeWidth:") ~typ:(double @-> returning void) x +let setVisualEffect x self = msg_send ~self ~cmd:(selector "setVisualEffect:") ~typ:(id @-> returning void) x +let strokeColor self = msg_send ~self ~cmd:(selector "strokeColor") ~typ:(returning id) let strokeColorTransformer self = msg_send ~self ~cmd:(selector "strokeColorTransformer") ~typ:(returning (ptr void)) -let strokeOutset self = msg_send ~self ~cmd:(selector "strokeOutset") ~typ:(returning (double)) -let strokeWidth self = msg_send ~self ~cmd:(selector "strokeWidth") ~typ:(returning (double)) -let updatedConfigurationForState x self = msg_send ~self ~cmd:(selector "updatedConfigurationForState:") ~typ:(id @-> returning (id)) x -let visualEffect self = msg_send ~self ~cmd:(selector "visualEffect") ~typ:(returning (id)) \ No newline at end of file +let strokeOutset self = msg_send ~self ~cmd:(selector "strokeOutset") ~typ:(returning double) +let strokeWidth self = msg_send ~self ~cmd:(selector "strokeWidth") ~typ:(returning double) +let updatedConfigurationForState x self = msg_send ~self ~cmd:(selector "updatedConfigurationForState:") ~typ:(id @-> returning id) x +let visualEffect self = msg_send ~self ~cmd:(selector "visualEffect") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIBackgroundConfigurationClass.ml b/uikit/UIBackgroundConfigurationClass.ml new file mode 100644 index 00000000..d2d5cfc4 --- /dev/null +++ b/uikit/UIBackgroundConfigurationClass.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibackgroundconfiguration?language=objc}UIBackgroundConfiguration} *) + +let clearConfiguration self = msg_send ~self ~cmd:(selector "clearConfiguration") ~typ:(returning id) +let listAccompaniedSidebarCellConfiguration self = msg_send ~self ~cmd:(selector "listAccompaniedSidebarCellConfiguration") ~typ:(returning id) +let listGroupedCellConfiguration self = msg_send ~self ~cmd:(selector "listGroupedCellConfiguration") ~typ:(returning id) +let listGroupedHeaderFooterConfiguration self = msg_send ~self ~cmd:(selector "listGroupedHeaderFooterConfiguration") ~typ:(returning id) +let listPlainCellConfiguration self = msg_send ~self ~cmd:(selector "listPlainCellConfiguration") ~typ:(returning id) +let listPlainHeaderFooterConfiguration self = msg_send ~self ~cmd:(selector "listPlainHeaderFooterConfiguration") ~typ:(returning id) +let listSidebarCellConfiguration self = msg_send ~self ~cmd:(selector "listSidebarCellConfiguration") ~typ:(returning id) +let listSidebarHeaderConfiguration self = msg_send ~self ~cmd:(selector "listSidebarHeaderConfiguration") ~typ:(returning id) +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIBandSelectionInteraction.ml b/uikit/UIBandSelectionInteraction.ml index c00e435c..47993872 100644 --- a/uikit/UIBandSelectionInteraction.ml +++ b/uikit/UIBandSelectionInteraction.ml @@ -5,27 +5,31 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIBandSelectionInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibandselectioninteraction?language=objc}UIBandSelectionInteraction} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let gestureRecognizer x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning (bool)) x shouldReceiveTouch -let hoverGR self = msg_send ~self ~cmd:(selector "hoverGR") ~typ:(returning (id)) -let initWithSelectionHandler x self = msg_send ~self ~cmd:(selector "initWithSelectionHandler:") ~typ:(ptr void @-> returning (id)) x -let initialModifierFlags self = msg_send ~self ~cmd:(selector "initialModifierFlags") ~typ:(returning (llong)) -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let pressGR self = msg_send ~self ~cmd:(selector "pressGR") ~typ:(returning (id)) +let self = get_class "UIBandSelectionInteraction" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let gestureRecognizer x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning bool) x shouldReceiveTouch +let hoverGR self = msg_send ~self ~cmd:(selector "hoverGR") ~typ:(returning id) +let initWithSelectionHandler x self = msg_send ~self ~cmd:(selector "initWithSelectionHandler:") ~typ:((ptr void) @-> returning id) x +let initialModifierFlags self = msg_send ~self ~cmd:(selector "initialModifierFlags") ~typ:(returning llong) +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let pressGR self = msg_send ~self ~cmd:(selector "pressGR") ~typ:(returning id) let selectionHandler self = msg_send ~self ~cmd:(selector "selectionHandler") ~typ:(returning (ptr void)) -let selectionRect self = msg_send_stret ~self ~cmd:(selector "selectionRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setHoverGR x self = msg_send ~self ~cmd:(selector "setHoverGR:") ~typ:(id @-> returning (void)) x -let setPressGR x self = msg_send ~self ~cmd:(selector "setPressGR:") ~typ:(id @-> returning (void)) x -let setSelectionHandler x self = msg_send ~self ~cmd:(selector "setSelectionHandler:") ~typ:(ptr void @-> returning (void)) x -let setShouldBeginHandler x self = msg_send ~self ~cmd:(selector "setShouldBeginHandler:") ~typ:(ptr void @-> returning (void)) x -let setVisualProvider x self = msg_send ~self ~cmd:(selector "setVisualProvider:") ~typ:(id @-> returning (void)) x +let selectionRect self = msg_send ~self ~cmd:(selector "selectionRect") ~typ:(returning CGRect.t) +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setHoverGR x self = msg_send ~self ~cmd:(selector "setHoverGR:") ~typ:(id @-> returning void) x +let setPressGR x self = msg_send ~self ~cmd:(selector "setPressGR:") ~typ:(id @-> returning void) x +let setSelectionHandler x self = msg_send ~self ~cmd:(selector "setSelectionHandler:") ~typ:((ptr void) @-> returning void) x +let setShouldBeginHandler x self = msg_send ~self ~cmd:(selector "setShouldBeginHandler:") ~typ:((ptr void) @-> returning void) x +let setVisualProvider x self = msg_send ~self ~cmd:(selector "setVisualProvider:") ~typ:(id @-> returning void) x let shouldBeginHandler self = msg_send ~self ~cmd:(selector "shouldBeginHandler") ~typ:(returning (ptr void)) -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (llong)) -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let visualProvider self = msg_send ~self ~cmd:(selector "visualProvider") ~typ:(returning (id)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning llong) +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let visualProvider self = msg_send ~self ~cmd:(selector "visualProvider") ~typ:(returning id) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIBannerAction.ml b/uikit/UIBannerAction.ml index 330c2be6..4df26a9a 100644 --- a/uikit/UIBannerAction.ml +++ b/uikit/UIBannerAction.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIBannerAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibanneraction?language=objc}UIBannerAction} *) -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let bannerContent self = msg_send ~self ~cmd:(selector "bannerContent") ~typ:(returning (id)) -let bannerTapped self = msg_send ~self ~cmd:(selector "bannerTapped") ~typ:(returning (bool)) -let initWithBannerContent x self = msg_send ~self ~cmd:(selector "initWithBannerContent:") ~typ:(id @-> returning (id)) x -let initWithBannerContent' x ~responseHandler self = msg_send ~self ~cmd:(selector "initWithBannerContent:responseHandler:") ~typ:(id @-> ptr void @-> returning (id)) x responseHandler -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let tappable self = msg_send ~self ~cmd:(selector "tappable") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIBannerAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let bannerContent self = msg_send ~self ~cmd:(selector "bannerContent") ~typ:(returning id) +let bannerTapped self = msg_send ~self ~cmd:(selector "bannerTapped") ~typ:(returning bool) +let initWithBannerContent x self = msg_send ~self ~cmd:(selector "initWithBannerContent:") ~typ:(id @-> returning id) x +let initWithBannerContent' x ~responseHandler self = msg_send ~self ~cmd:(selector "initWithBannerContent:responseHandler:") ~typ:(id @-> (ptr void) @-> returning id) x responseHandler +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let tappable self = msg_send ~self ~cmd:(selector "tappable") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIBarAppearance.ml b/uikit/UIBarAppearance.ml index fd8e4a7f..fb7c193f 100644 --- a/uikit/UIBarAppearance.ml +++ b/uikit/UIBarAppearance.ml @@ -5,42 +5,42 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIBarAppearance" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibarappearance?language=objc}UIBarAppearance} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIBarAppearance" -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let backgroundEffect self = msg_send ~self ~cmd:(selector "backgroundEffect") ~typ:(returning (id)) -let backgroundEffects self = msg_send ~self ~cmd:(selector "backgroundEffects") ~typ:(returning (id)) -let backgroundImage self = msg_send ~self ~cmd:(selector "backgroundImage") ~typ:(returning (id)) -let backgroundImageContentMode self = msg_send ~self ~cmd:(selector "backgroundImageContentMode") ~typ:(returning (llong)) -let configureWithDefaultBackground self = msg_send ~self ~cmd:(selector "configureWithDefaultBackground") ~typ:(returning (void)) -let configureWithDefaultShadow self = msg_send ~self ~cmd:(selector "configureWithDefaultShadow") ~typ:(returning (void)) -let configureWithOpaqueBackground self = msg_send ~self ~cmd:(selector "configureWithOpaqueBackground") ~typ:(returning (void)) -let configureWithTransparentBackground self = msg_send ~self ~cmd:(selector "configureWithTransparentBackground") ~typ:(returning (void)) -let configureWithoutShadow self = msg_send ~self ~cmd:(selector "configureWithoutShadow") ~typ:(returning (void)) -let copy self = msg_send ~self ~cmd:(selector "copy") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let idiom self = msg_send ~self ~cmd:(selector "idiom") ~typ:(returning (llong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithBarAppearance x self = msg_send ~self ~cmd:(selector "initWithBarAppearance:") ~typ:(id @-> returning (id)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithIdiom x self = msg_send ~self ~cmd:(selector "initWithIdiom:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBackgroundEffect x self = msg_send ~self ~cmd:(selector "setBackgroundEffect:") ~typ:(id @-> returning (void)) x -let setBackgroundEffects x self = msg_send ~self ~cmd:(selector "setBackgroundEffects:") ~typ:(id @-> returning (void)) x -let setBackgroundImage x self = msg_send ~self ~cmd:(selector "setBackgroundImage:") ~typ:(id @-> returning (void)) x -let setBackgroundImageContentMode x self = msg_send ~self ~cmd:(selector "setBackgroundImageContentMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShadowColor x self = msg_send ~self ~cmd:(selector "setShadowColor:") ~typ:(id @-> returning (void)) x -let setShadowEffect x self = msg_send ~self ~cmd:(selector "setShadowEffect:") ~typ:(id @-> returning (void)) x -let setShadowImage x self = msg_send ~self ~cmd:(selector "setShadowImage:") ~typ:(id @-> returning (void)) x -let shadowColor self = msg_send ~self ~cmd:(selector "shadowColor") ~typ:(returning (id)) -let shadowEffect self = msg_send ~self ~cmd:(selector "shadowEffect") ~typ:(returning (id)) -let shadowImage self = msg_send ~self ~cmd:(selector "shadowImage") ~typ:(returning (id)) \ No newline at end of file +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let backgroundEffect self = msg_send ~self ~cmd:(selector "backgroundEffect") ~typ:(returning id) +let backgroundEffects self = msg_send ~self ~cmd:(selector "backgroundEffects") ~typ:(returning id) +let backgroundImage self = msg_send ~self ~cmd:(selector "backgroundImage") ~typ:(returning id) +let backgroundImageContentMode self = msg_send ~self ~cmd:(selector "backgroundImageContentMode") ~typ:(returning llong) +let configureWithDefaultBackground self = msg_send ~self ~cmd:(selector "configureWithDefaultBackground") ~typ:(returning void) +let configureWithDefaultShadow self = msg_send ~self ~cmd:(selector "configureWithDefaultShadow") ~typ:(returning void) +let configureWithOpaqueBackground self = msg_send ~self ~cmd:(selector "configureWithOpaqueBackground") ~typ:(returning void) +let configureWithTransparentBackground self = msg_send ~self ~cmd:(selector "configureWithTransparentBackground") ~typ:(returning void) +let configureWithoutShadow self = msg_send ~self ~cmd:(selector "configureWithoutShadow") ~typ:(returning void) +let copy self = msg_send ~self ~cmd:(selector "copy") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let idiom self = msg_send ~self ~cmd:(selector "idiom") ~typ:(returning llong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithBarAppearance x self = msg_send ~self ~cmd:(selector "initWithBarAppearance:") ~typ:(id @-> returning id) x +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithIdiom x self = msg_send ~self ~cmd:(selector "initWithIdiom:") ~typ:(llong @-> returning id) (LLong.of_int x) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBackgroundEffect x self = msg_send ~self ~cmd:(selector "setBackgroundEffect:") ~typ:(id @-> returning void) x +let setBackgroundEffects x self = msg_send ~self ~cmd:(selector "setBackgroundEffects:") ~typ:(id @-> returning void) x +let setBackgroundImage x self = msg_send ~self ~cmd:(selector "setBackgroundImage:") ~typ:(id @-> returning void) x +let setBackgroundImageContentMode x self = msg_send ~self ~cmd:(selector "setBackgroundImageContentMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setShadowColor x self = msg_send ~self ~cmd:(selector "setShadowColor:") ~typ:(id @-> returning void) x +let setShadowEffect x self = msg_send ~self ~cmd:(selector "setShadowEffect:") ~typ:(id @-> returning void) x +let setShadowImage x self = msg_send ~self ~cmd:(selector "setShadowImage:") ~typ:(id @-> returning void) x +let shadowColor self = msg_send ~self ~cmd:(selector "shadowColor") ~typ:(returning id) +let shadowEffect self = msg_send ~self ~cmd:(selector "shadowEffect") ~typ:(returning id) +let shadowImage self = msg_send ~self ~cmd:(selector "shadowImage") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIBarAppearanceClass.ml b/uikit/UIBarAppearanceClass.ml new file mode 100644 index 00000000..3ea33ed5 --- /dev/null +++ b/uikit/UIBarAppearanceClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibarappearance?language=objc}UIBarAppearance} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIBarButtonAction.ml b/uikit/UIBarButtonAction.ml index 0d3d5994..7d2df172 100644 --- a/uikit/UIBarButtonAction.ml +++ b/uikit/UIBarButtonAction.ml @@ -5,21 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIBarButtonAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibarbuttonaction?language=objc}UIBarButtonAction} *) -module C = struct - let actionWithImage x ~handler self = msg_send ~self ~cmd:(selector "actionWithImage:handler:") ~typ:(id @-> ptr void @-> returning (id)) x handler - let actionWithTitle x ~handler self = msg_send ~self ~cmd:(selector "actionWithTitle:handler:") ~typ:(id @-> ptr void @-> returning (id)) x handler -end +let self = get_class "UIBarButtonAction" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let handler self = msg_send ~self ~cmd:(selector "handler") ~typ:(returning (ptr void)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let isChecked self = msg_send ~self ~cmd:(selector "isChecked") ~typ:(returning (bool)) -let propertyObserver self = msg_send ~self ~cmd:(selector "propertyObserver") ~typ:(returning (id)) -let setChecked x self = msg_send ~self ~cmd:(selector "setChecked:") ~typ:(bool @-> returning (void)) x -let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:(ptr void @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let isChecked self = msg_send ~self ~cmd:(selector "isChecked") ~typ:(returning bool) +let propertyObserver self = msg_send ~self ~cmd:(selector "propertyObserver") ~typ:(returning id) +let setChecked x self = msg_send ~self ~cmd:(selector "setChecked:") ~typ:(bool @-> returning void) x +let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:((ptr void) @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIBarButtonActionClass.ml b/uikit/UIBarButtonActionClass.ml new file mode 100644 index 00000000..67d423c3 --- /dev/null +++ b/uikit/UIBarButtonActionClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibarbuttonaction?language=objc}UIBarButtonAction} *) + +let actionWithImage x ~handler self = msg_send ~self ~cmd:(selector "actionWithImage:handler:") ~typ:(id @-> (ptr void) @-> returning id) x handler +let actionWithTitle x ~handler self = msg_send ~self ~cmd:(selector "actionWithTitle:handler:") ~typ:(id @-> (ptr void) @-> returning id) x handler \ No newline at end of file diff --git a/uikit/UIBarButtonItem.ml b/uikit/UIBarButtonItem.ml index a90c7ac1..539c0bde 100644 --- a/uikit/UIBarButtonItem.ml +++ b/uikit/UIBarButtonItem.ml @@ -5,108 +5,110 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIBarButtonItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibarbuttonitem?language=objc}UIBarButtonItem} *) -module C = struct - let classForNavigationButton self = msg_send ~self ~cmd:(selector "classForNavigationButton") ~typ:(returning (_Class)) - let classForToolbarButton self = msg_send ~self ~cmd:(selector "classForToolbarButton") ~typ:(returning (_Class)) - let fixedSpaceItemOfWidth x self = msg_send ~self ~cmd:(selector "fixedSpaceItemOfWidth:") ~typ:(double @-> returning (id)) x - let flexibleSpaceItem self = msg_send ~self ~cmd:(selector "flexibleSpaceItem") ~typ:(returning (id)) -end +let self = get_class "UIBarButtonItem" -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (_SEL)) -let backButtonBackgroundImageForState x ~barMetrics self = msg_send ~self ~cmd:(selector "backButtonBackgroundImageForState:barMetrics:") ~typ:(ullong @-> llong @-> returning (id)) (ULLong.of_int x) (LLong.of_int barMetrics) -let backButtonBackgroundVerticalPositionAdjustmentForBarMetrics x self = msg_send ~self ~cmd:(selector "backButtonBackgroundVerticalPositionAdjustmentForBarMetrics:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let backgroundImageForState x ~barMetrics self = msg_send ~self ~cmd:(selector "backgroundImageForState:barMetrics:") ~typ:(ullong @-> llong @-> returning (id)) (ULLong.of_int x) (LLong.of_int barMetrics) -let backgroundImageForState' x ~style ~barMetrics self = msg_send ~self ~cmd:(selector "backgroundImageForState:style:barMetrics:") ~typ:(ullong @-> llong @-> llong @-> returning (id)) (ULLong.of_int x) (LLong.of_int style) (LLong.of_int barMetrics) -let backgroundVerticalPositionAdjustmentForBarMetrics x self = msg_send ~self ~cmd:(selector "backgroundVerticalPositionAdjustmentForBarMetrics:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let buttonGroup self = msg_send ~self ~cmd:(selector "buttonGroup") ~typ:(returning (id)) -let changesSelectionAsPrimaryAction self = msg_send ~self ~cmd:(selector "changesSelectionAsPrimaryAction") ~typ:(returning (bool)) -let createViewForNavigationItem x self = msg_send ~self ~cmd:(selector "createViewForNavigationItem:") ~typ:(id @-> returning (id)) x -let createViewForToolbar x self = msg_send ~self ~cmd:(selector "createViewForToolbar:") ~typ:(id @-> returning (id)) x -let customView self = msg_send ~self ~cmd:(selector "customView") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let forcedSelectionOfMenu x ~willChangeTo self = msg_send ~self ~cmd:(selector "forcedSelectionOfMenu:willChangeTo:") ~typ:(id @-> id @-> returning (void)) x willChangeTo -let groupRepresentative self = msg_send ~self ~cmd:(selector "groupRepresentative") ~typ:(returning (bool)) -let hasImage self = msg_send ~self ~cmd:(selector "hasImage") ~typ:(returning (bool)) -let hasTitle self = msg_send ~self ~cmd:(selector "hasTitle") ~typ:(returning (bool)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithBarButtonSystemItem x ~menu self = msg_send ~self ~cmd:(selector "initWithBarButtonSystemItem:menu:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) menu -let initWithBarButtonSystemItem1 x ~primaryAction self = msg_send ~self ~cmd:(selector "initWithBarButtonSystemItem:primaryAction:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) primaryAction -let initWithBarButtonSystemItem2 x ~target ~action self = msg_send ~self ~cmd:(selector "initWithBarButtonSystemItem:target:action:") ~typ:(llong @-> id @-> _SEL @-> returning (id)) (LLong.of_int x) target action -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithCustomView x self = msg_send ~self ~cmd:(selector "initWithCustomView:") ~typ:(id @-> returning (id)) x -let initWithImage x ~menu self = msg_send ~self ~cmd:(selector "initWithImage:menu:") ~typ:(id @-> id @-> returning (id)) x menu -let initWithImage1 x ~style ~target ~action self = msg_send ~self ~cmd:(selector "initWithImage:style:target:action:") ~typ:(id @-> llong @-> id @-> _SEL @-> returning (id)) x (LLong.of_int style) target action -let initWithImage2 x ~landscapeImagePhone ~style ~target ~action self = msg_send ~self ~cmd:(selector "initWithImage:landscapeImagePhone:style:target:action:") ~typ:(id @-> id @-> llong @-> id @-> _SEL @-> returning (id)) x landscapeImagePhone (LLong.of_int style) target action -let initWithPrimaryAction x self = msg_send ~self ~cmd:(selector "initWithPrimaryAction:") ~typ:(id @-> returning (id)) x -let initWithTitle x ~menu self = msg_send ~self ~cmd:(selector "initWithTitle:menu:") ~typ:(id @-> id @-> returning (id)) x menu -let initWithTitle' x ~style ~target ~action self = msg_send ~self ~cmd:(selector "initWithTitle:style:target:action:") ~typ:(id @-> llong @-> id @-> _SEL @-> returning (id)) x (LLong.of_int style) target action -let isCustomViewItem self = msg_send ~self ~cmd:(selector "isCustomViewItem") ~typ:(returning (bool)) -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isKeyboardItem self = msg_send ~self ~cmd:(selector "isKeyboardItem") ~typ:(returning (bool)) -let isMinibarView self = msg_send ~self ~cmd:(selector "isMinibarView") ~typ:(returning (bool)) -let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning (bool)) -let isSpaceItem self = msg_send ~self ~cmd:(selector "isSpaceItem") ~typ:(returning (bool)) -let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning (bool)) -let isSystemItem self = msg_send ~self ~cmd:(selector "isSystemItem") ~typ:(returning (bool)) -let itemVariation self = msg_send ~self ~cmd:(selector "itemVariation") ~typ:(returning (id)) -let landscapeImagePhone self = msg_send ~self ~cmd:(selector "landscapeImagePhone") ~typ:(returning (id)) -let largeContentSizeImage self = msg_send ~self ~cmd:(selector "largeContentSizeImage") ~typ:(returning (id)) -let menu self = msg_send ~self ~cmd:(selector "menu") ~typ:(returning (id)) -let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning (id)) -let possibleTitles self = msg_send ~self ~cmd:(selector "possibleTitles") ~typ:(returning (id)) -let primaryAction self = msg_send ~self ~cmd:(selector "primaryAction") ~typ:(returning (id)) -let resolvedTitle self = msg_send ~self ~cmd:(selector "resolvedTitle") ~typ:(returning (id)) -let secondaryActions self = msg_send ~self ~cmd:(selector "secondaryActions") ~typ:(returning (id)) -let secondaryActionsArePrimary self = msg_send ~self ~cmd:(selector "secondaryActionsArePrimary") ~typ:(returning (bool)) -let selected self = msg_send ~self ~cmd:(selector "selected") ~typ:(returning (bool)) -let selectedIndexDidChange x self = msg_send ~self ~cmd:(selector "selectedIndexDidChange:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(_SEL @-> returning (void)) x -let setBackButtonBackgroundImage x ~forState ~barMetrics self = msg_send ~self ~cmd:(selector "setBackButtonBackgroundImage:forState:barMetrics:") ~typ:(id @-> ullong @-> llong @-> returning (void)) x (ULLong.of_int forState) (LLong.of_int barMetrics) -let setBackButtonBackgroundVerticalPositionAdjustment x ~forBarMetrics self = msg_send ~self ~cmd:(selector "setBackButtonBackgroundVerticalPositionAdjustment:forBarMetrics:") ~typ:(double @-> llong @-> returning (void)) x (LLong.of_int forBarMetrics) -let setBackButtonTitlePositionAdjustment x ~forBarMetrics self = msg_send ~self ~cmd:(selector "setBackButtonTitlePositionAdjustment:forBarMetrics:") ~typ:(ptr void @-> llong @-> returning (void)) x (LLong.of_int forBarMetrics) -let setBackgroundImage x ~forState ~barMetrics self = msg_send ~self ~cmd:(selector "setBackgroundImage:forState:barMetrics:") ~typ:(id @-> ullong @-> llong @-> returning (void)) x (ULLong.of_int forState) (LLong.of_int barMetrics) -let setBackgroundImage' x ~forState ~style ~barMetrics self = msg_send ~self ~cmd:(selector "setBackgroundImage:forState:style:barMetrics:") ~typ:(id @-> ullong @-> llong @-> llong @-> returning (void)) x (ULLong.of_int forState) (LLong.of_int style) (LLong.of_int barMetrics) -let setBackgroundVerticalPositionAdjustment x ~forBarMetrics self = msg_send ~self ~cmd:(selector "setBackgroundVerticalPositionAdjustment:forBarMetrics:") ~typ:(double @-> llong @-> returning (void)) x (LLong.of_int forBarMetrics) -let setChangesSelectionAsPrimaryAction x self = msg_send ~self ~cmd:(selector "setChangesSelectionAsPrimaryAction:") ~typ:(bool @-> returning (void)) x -let setCustomView x self = msg_send ~self ~cmd:(selector "setCustomView:") ~typ:(id @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setImageInsets x self = msg_send ~self ~cmd:(selector "setImageInsets:") ~typ:(ptr void @-> returning (void)) x -let setIsKeyboardItem x self = msg_send ~self ~cmd:(selector "setIsKeyboardItem:") ~typ:(bool @-> returning (void)) x -let setIsMinibarView x self = msg_send ~self ~cmd:(selector "setIsMinibarView:") ~typ:(bool @-> returning (void)) x -let setLandscapeImagePhone x self = msg_send ~self ~cmd:(selector "setLandscapeImagePhone:") ~typ:(id @-> returning (void)) x -let setLandscapeImagePhoneInsets x self = msg_send ~self ~cmd:(selector "setLandscapeImagePhoneInsets:") ~typ:(ptr void @-> returning (void)) x -let setLargeContentSizeImage x self = msg_send ~self ~cmd:(selector "setLargeContentSizeImage:") ~typ:(id @-> returning (void)) x -let setLargeContentSizeImageInsets x self = msg_send ~self ~cmd:(selector "setLargeContentSizeImageInsets:") ~typ:(ptr void @-> returning (void)) x -let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning (void)) x -let setPossibleTitles x self = msg_send ~self ~cmd:(selector "setPossibleTitles:") ~typ:(id @-> returning (void)) x -let setPrimaryAction x self = msg_send ~self ~cmd:(selector "setPrimaryAction:") ~typ:(id @-> returning (void)) x -let setSecondaryActions x self = msg_send ~self ~cmd:(selector "setSecondaryActions:") ~typ:(id @-> returning (void)) x -let setSecondaryActionsArePrimary x self = msg_send ~self ~cmd:(selector "setSecondaryActionsArePrimary:") ~typ:(bool @-> returning (void)) x -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setTitlePositionAdjustment x ~forBarMetrics self = msg_send ~self ~cmd:(selector "setTitlePositionAdjustment:forBarMetrics:") ~typ:(ptr void @-> llong @-> returning (void)) x (LLong.of_int forBarMetrics) -let setTitleTextAttributes x ~forState self = msg_send ~self ~cmd:(selector "setTitleTextAttributes:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let setWidth x self = msg_send ~self ~cmd:(selector "setWidth:") ~typ:(double @-> returning (void)) x -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let systemItem self = msg_send ~self ~cmd:(selector "systemItem") ~typ:(returning (llong)) -let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning (id)) -let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning (id)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let titleTextAttributesForState x self = msg_send ~self ~cmd:(selector "titleTextAttributesForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let width self = msg_send ~self ~cmd:(selector "width") ~typ:(returning (double)) -let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning (id)) \ No newline at end of file +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning _SEL) +let backButtonBackgroundImageForState x ~barMetrics self = msg_send ~self ~cmd:(selector "backButtonBackgroundImageForState:barMetrics:") ~typ:(ullong @-> llong @-> returning id) (ULLong.of_int x) (LLong.of_int barMetrics) +let backButtonBackgroundVerticalPositionAdjustmentForBarMetrics x self = msg_send ~self ~cmd:(selector "backButtonBackgroundVerticalPositionAdjustmentForBarMetrics:") ~typ:(llong @-> returning double) (LLong.of_int x) +let backButtonTitlePositionAdjustmentForBarMetrics x self = msg_send ~self ~cmd:(selector "backButtonTitlePositionAdjustmentForBarMetrics:") ~typ:(llong @-> returning UIOffset.t) (LLong.of_int x) +let backgroundImageForState x ~barMetrics self = msg_send ~self ~cmd:(selector "backgroundImageForState:barMetrics:") ~typ:(ullong @-> llong @-> returning id) (ULLong.of_int x) (LLong.of_int barMetrics) +let backgroundImageForState' x ~style ~barMetrics self = msg_send ~self ~cmd:(selector "backgroundImageForState:style:barMetrics:") ~typ:(ullong @-> llong @-> llong @-> returning id) (ULLong.of_int x) (LLong.of_int style) (LLong.of_int barMetrics) +let backgroundVerticalPositionAdjustmentForBarMetrics x self = msg_send ~self ~cmd:(selector "backgroundVerticalPositionAdjustmentForBarMetrics:") ~typ:(llong @-> returning double) (LLong.of_int x) +let buttonGroup self = msg_send ~self ~cmd:(selector "buttonGroup") ~typ:(returning id) +let changesSelectionAsPrimaryAction self = msg_send ~self ~cmd:(selector "changesSelectionAsPrimaryAction") ~typ:(returning bool) +let createViewForNavigationItem x self = msg_send ~self ~cmd:(selector "createViewForNavigationItem:") ~typ:(id @-> returning id) x +let createViewForToolbar x self = msg_send ~self ~cmd:(selector "createViewForToolbar:") ~typ:(id @-> returning id) x +let customView self = msg_send ~self ~cmd:(selector "customView") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let forcedSelectionOfMenu x ~willChangeTo self = msg_send ~self ~cmd:(selector "forcedSelectionOfMenu:willChangeTo:") ~typ:(id @-> id @-> returning void) x willChangeTo +let groupRepresentative self = msg_send ~self ~cmd:(selector "groupRepresentative") ~typ:(returning bool) +let hasImage self = msg_send ~self ~cmd:(selector "hasImage") ~typ:(returning bool) +let hasTitle self = msg_send ~self ~cmd:(selector "hasTitle") ~typ:(returning bool) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let imageInsets self = msg_send ~self ~cmd:(selector "imageInsets") ~typ:(returning UIEdgeInsets.t) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithBarButtonSystemItem x ~menu self = msg_send ~self ~cmd:(selector "initWithBarButtonSystemItem:menu:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) menu +let initWithBarButtonSystemItem1 x ~primaryAction self = msg_send ~self ~cmd:(selector "initWithBarButtonSystemItem:primaryAction:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) primaryAction +let initWithBarButtonSystemItem2 x ~target ~action self = msg_send ~self ~cmd:(selector "initWithBarButtonSystemItem:target:action:") ~typ:(llong @-> id @-> _SEL @-> returning id) (LLong.of_int x) target action +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithCustomView x self = msg_send ~self ~cmd:(selector "initWithCustomView:") ~typ:(id @-> returning id) x +let initWithImage x ~menu self = msg_send ~self ~cmd:(selector "initWithImage:menu:") ~typ:(id @-> id @-> returning id) x menu +let initWithImage1 x ~style ~target ~action self = msg_send ~self ~cmd:(selector "initWithImage:style:target:action:") ~typ:(id @-> llong @-> id @-> _SEL @-> returning id) x (LLong.of_int style) target action +let initWithImage2 x ~landscapeImagePhone ~style ~target ~action self = msg_send ~self ~cmd:(selector "initWithImage:landscapeImagePhone:style:target:action:") ~typ:(id @-> id @-> llong @-> id @-> _SEL @-> returning id) x landscapeImagePhone (LLong.of_int style) target action +let initWithPrimaryAction x self = msg_send ~self ~cmd:(selector "initWithPrimaryAction:") ~typ:(id @-> returning id) x +let initWithTitle x ~menu self = msg_send ~self ~cmd:(selector "initWithTitle:menu:") ~typ:(id @-> id @-> returning id) x menu +let initWithTitle' x ~style ~target ~action self = msg_send ~self ~cmd:(selector "initWithTitle:style:target:action:") ~typ:(id @-> llong @-> id @-> _SEL @-> returning id) x (LLong.of_int style) target action +let isCustomViewItem self = msg_send ~self ~cmd:(selector "isCustomViewItem") ~typ:(returning bool) +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isKeyboardItem self = msg_send ~self ~cmd:(selector "isKeyboardItem") ~typ:(returning bool) +let isMinibarView self = msg_send ~self ~cmd:(selector "isMinibarView") ~typ:(returning bool) +let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning bool) +let isSpaceItem self = msg_send ~self ~cmd:(selector "isSpaceItem") ~typ:(returning bool) +let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning bool) +let isSystemItem self = msg_send ~self ~cmd:(selector "isSystemItem") ~typ:(returning bool) +let itemVariation self = msg_send ~self ~cmd:(selector "itemVariation") ~typ:(returning id) +let landscapeImagePhone self = msg_send ~self ~cmd:(selector "landscapeImagePhone") ~typ:(returning id) +let landscapeImagePhoneInsets self = msg_send ~self ~cmd:(selector "landscapeImagePhoneInsets") ~typ:(returning UIEdgeInsets.t) +let largeContentSizeImage self = msg_send ~self ~cmd:(selector "largeContentSizeImage") ~typ:(returning id) +let largeContentSizeImageInsets self = msg_send ~self ~cmd:(selector "largeContentSizeImageInsets") ~typ:(returning UIEdgeInsets.t) +let menu self = msg_send ~self ~cmd:(selector "menu") ~typ:(returning id) +let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning id) +let possibleTitles self = msg_send ~self ~cmd:(selector "possibleTitles") ~typ:(returning id) +let primaryAction self = msg_send ~self ~cmd:(selector "primaryAction") ~typ:(returning id) +let resolvedTitle self = msg_send ~self ~cmd:(selector "resolvedTitle") ~typ:(returning id) +let secondaryActions self = msg_send ~self ~cmd:(selector "secondaryActions") ~typ:(returning id) +let secondaryActionsArePrimary self = msg_send ~self ~cmd:(selector "secondaryActionsArePrimary") ~typ:(returning bool) +let selected self = msg_send ~self ~cmd:(selector "selected") ~typ:(returning bool) +let selectedIndexDidChange x self = msg_send ~self ~cmd:(selector "selectedIndexDidChange:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(_SEL @-> returning void) x +let setBackButtonBackgroundImage x ~forState ~barMetrics self = msg_send ~self ~cmd:(selector "setBackButtonBackgroundImage:forState:barMetrics:") ~typ:(id @-> ullong @-> llong @-> returning void) x (ULLong.of_int forState) (LLong.of_int barMetrics) +let setBackButtonBackgroundVerticalPositionAdjustment x ~forBarMetrics self = msg_send ~self ~cmd:(selector "setBackButtonBackgroundVerticalPositionAdjustment:forBarMetrics:") ~typ:(double @-> llong @-> returning void) x (LLong.of_int forBarMetrics) +let setBackButtonTitlePositionAdjustment x ~forBarMetrics self = msg_send ~self ~cmd:(selector "setBackButtonTitlePositionAdjustment:forBarMetrics:") ~typ:(UIOffset.t @-> llong @-> returning void) x (LLong.of_int forBarMetrics) +let setBackgroundImage x ~forState ~barMetrics self = msg_send ~self ~cmd:(selector "setBackgroundImage:forState:barMetrics:") ~typ:(id @-> ullong @-> llong @-> returning void) x (ULLong.of_int forState) (LLong.of_int barMetrics) +let setBackgroundImage' x ~forState ~style ~barMetrics self = msg_send ~self ~cmd:(selector "setBackgroundImage:forState:style:barMetrics:") ~typ:(id @-> ullong @-> llong @-> llong @-> returning void) x (ULLong.of_int forState) (LLong.of_int style) (LLong.of_int barMetrics) +let setBackgroundVerticalPositionAdjustment x ~forBarMetrics self = msg_send ~self ~cmd:(selector "setBackgroundVerticalPositionAdjustment:forBarMetrics:") ~typ:(double @-> llong @-> returning void) x (LLong.of_int forBarMetrics) +let setChangesSelectionAsPrimaryAction x self = msg_send ~self ~cmd:(selector "setChangesSelectionAsPrimaryAction:") ~typ:(bool @-> returning void) x +let setCustomView x self = msg_send ~self ~cmd:(selector "setCustomView:") ~typ:(id @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setImageInsets x self = msg_send ~self ~cmd:(selector "setImageInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setIsKeyboardItem x self = msg_send ~self ~cmd:(selector "setIsKeyboardItem:") ~typ:(bool @-> returning void) x +let setIsMinibarView x self = msg_send ~self ~cmd:(selector "setIsMinibarView:") ~typ:(bool @-> returning void) x +let setLandscapeImagePhone x self = msg_send ~self ~cmd:(selector "setLandscapeImagePhone:") ~typ:(id @-> returning void) x +let setLandscapeImagePhoneInsets x self = msg_send ~self ~cmd:(selector "setLandscapeImagePhoneInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setLargeContentSizeImage x self = msg_send ~self ~cmd:(selector "setLargeContentSizeImage:") ~typ:(id @-> returning void) x +let setLargeContentSizeImageInsets x self = msg_send ~self ~cmd:(selector "setLargeContentSizeImageInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning void) x +let setPossibleTitles x self = msg_send ~self ~cmd:(selector "setPossibleTitles:") ~typ:(id @-> returning void) x +let setPrimaryAction x self = msg_send ~self ~cmd:(selector "setPrimaryAction:") ~typ:(id @-> returning void) x +let setSecondaryActions x self = msg_send ~self ~cmd:(selector "setSecondaryActions:") ~typ:(id @-> returning void) x +let setSecondaryActionsArePrimary x self = msg_send ~self ~cmd:(selector "setSecondaryActionsArePrimary:") ~typ:(bool @-> returning void) x +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let setTitlePositionAdjustment x ~forBarMetrics self = msg_send ~self ~cmd:(selector "setTitlePositionAdjustment:forBarMetrics:") ~typ:(UIOffset.t @-> llong @-> returning void) x (LLong.of_int forBarMetrics) +let setTitleTextAttributes x ~forState self = msg_send ~self ~cmd:(selector "setTitleTextAttributes:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let setWidth x self = msg_send ~self ~cmd:(selector "setWidth:") ~typ:(double @-> returning void) x +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let systemItem self = msg_send ~self ~cmd:(selector "systemItem") ~typ:(returning llong) +let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning id) +let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning id) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let titlePositionAdjustmentForBarMetrics x self = msg_send ~self ~cmd:(selector "titlePositionAdjustmentForBarMetrics:") ~typ:(llong @-> returning UIOffset.t) (LLong.of_int x) +let titleTextAttributesForState x self = msg_send ~self ~cmd:(selector "titleTextAttributesForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let width self = msg_send ~self ~cmd:(selector "width") ~typ:(returning double) +let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIBarButtonItemAppearance.ml b/uikit/UIBarButtonItemAppearance.ml index 23f5f3c0..315b02a1 100644 --- a/uikit/UIBarButtonItemAppearance.ml +++ b/uikit/UIBarButtonItemAppearance.ml @@ -5,26 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIBarButtonItemAppearance" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibarbuttonitemappearance?language=objc}UIBarButtonItemAppearance} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIBarButtonItemAppearance" -let configureWithDefaultForStyle x self = msg_send ~self ~cmd:(selector "configureWithDefaultForStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let copy self = msg_send ~self ~cmd:(selector "copy") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let disabled self = msg_send ~self ~cmd:(selector "disabled") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let focused self = msg_send ~self ~cmd:(selector "focused") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let highlighted self = msg_send ~self ~cmd:(selector "highlighted") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithBarButtonItemAppearance x self = msg_send ~self ~cmd:(selector "initWithBarButtonItemAppearance:") ~typ:(id @-> returning (id)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithStyle x self = msg_send ~self ~cmd:(selector "initWithStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let normal self = msg_send ~self ~cmd:(selector "normal") ~typ:(returning (id)) \ No newline at end of file +let configureWithDefaultForStyle x self = msg_send ~self ~cmd:(selector "configureWithDefaultForStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let copy self = msg_send ~self ~cmd:(selector "copy") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let disabled self = msg_send ~self ~cmd:(selector "disabled") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let focused self = msg_send ~self ~cmd:(selector "focused") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let highlighted self = msg_send ~self ~cmd:(selector "highlighted") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithBarButtonItemAppearance x self = msg_send ~self ~cmd:(selector "initWithBarButtonItemAppearance:") ~typ:(id @-> returning id) x +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithStyle x self = msg_send ~self ~cmd:(selector "initWithStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let normal self = msg_send ~self ~cmd:(selector "normal") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIBarButtonItemAppearanceClass.ml b/uikit/UIBarButtonItemAppearanceClass.ml new file mode 100644 index 00000000..a90f1708 --- /dev/null +++ b/uikit/UIBarButtonItemAppearanceClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibarbuttonitemappearance?language=objc}UIBarButtonItemAppearance} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIBarButtonItemClass.ml b/uikit/UIBarButtonItemClass.ml new file mode 100644 index 00000000..bd20ecfe --- /dev/null +++ b/uikit/UIBarButtonItemClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibarbuttonitem?language=objc}UIBarButtonItem} *) + +let classForNavigationButton self = msg_send ~self ~cmd:(selector "classForNavigationButton") ~typ:(returning _Class) +let classForToolbarButton self = msg_send ~self ~cmd:(selector "classForToolbarButton") ~typ:(returning _Class) +let fixedSpaceItemOfWidth x self = msg_send ~self ~cmd:(selector "fixedSpaceItemOfWidth:") ~typ:(double @-> returning id) x +let flexibleSpaceItem self = msg_send ~self ~cmd:(selector "flexibleSpaceItem") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIBarButtonItemGroup.ml b/uikit/UIBarButtonItemGroup.ml index 4ccacb69..cc3355b0 100644 --- a/uikit/UIBarButtonItemGroup.ml +++ b/uikit/UIBarButtonItemGroup.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIBarButtonItemGroup" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibarbuttonitemgroup?language=objc}UIBarButtonItemGroup} *) -let barButtonItems self = msg_send ~self ~cmd:(selector "barButtonItems") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithBarButtonItems x ~representativeItem self = msg_send ~self ~cmd:(selector "initWithBarButtonItems:representativeItem:") ~typ:(id @-> id @-> returning (id)) x representativeItem -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isDisplayingRepresentativeItem self = msg_send ~self ~cmd:(selector "isDisplayingRepresentativeItem") ~typ:(returning (bool)) -let representativeItem self = msg_send ~self ~cmd:(selector "representativeItem") ~typ:(returning (id)) -let setBarButtonItems x self = msg_send ~self ~cmd:(selector "setBarButtonItems:") ~typ:(id @-> returning (void)) x -let setRepresentativeItem x self = msg_send ~self ~cmd:(selector "setRepresentativeItem:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIBarButtonItemGroup" + +let barButtonItems self = msg_send ~self ~cmd:(selector "barButtonItems") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithBarButtonItems x ~representativeItem self = msg_send ~self ~cmd:(selector "initWithBarButtonItems:representativeItem:") ~typ:(id @-> id @-> returning id) x representativeItem +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isDisplayingRepresentativeItem self = msg_send ~self ~cmd:(selector "isDisplayingRepresentativeItem") ~typ:(returning bool) +let representativeItem self = msg_send ~self ~cmd:(selector "representativeItem") ~typ:(returning id) +let setBarButtonItems x self = msg_send ~self ~cmd:(selector "setBarButtonItems:") ~typ:(id @-> returning void) x +let setRepresentativeItem x self = msg_send ~self ~cmd:(selector "setRepresentativeItem:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIBarButtonItemStateAppearance.ml b/uikit/UIBarButtonItemStateAppearance.ml deleted file mode 100644 index bb2fc4bc..00000000 --- a/uikit/UIBarButtonItemStateAppearance.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIBarButtonItemStateAppearance" - -let backgroundImage self = msg_send ~self ~cmd:(selector "backgroundImage") ~typ:(returning (id)) -let data self = msg_send ~self ~cmd:(selector "data") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let itemEffects self = msg_send ~self ~cmd:(selector "itemEffects") ~typ:(returning (id)) -let setBackgroundImage x self = msg_send ~self ~cmd:(selector "setBackgroundImage:") ~typ:(id @-> returning (void)) x -let setBackgroundImagePositionAdjustment x self = msg_send ~self ~cmd:(selector "setBackgroundImagePositionAdjustment:") ~typ:(ptr void @-> returning (void)) x -let setData x self = msg_send ~self ~cmd:(selector "setData:") ~typ:(id @-> returning (void)) x -let setItemEffects x self = msg_send ~self ~cmd:(selector "setItemEffects:") ~typ:(id @-> returning (void)) x -let setTitlePositionAdjustment x self = msg_send ~self ~cmd:(selector "setTitlePositionAdjustment:") ~typ:(ptr void @-> returning (void)) x -let setTitleTextAttributes x self = msg_send ~self ~cmd:(selector "setTitleTextAttributes:") ~typ:(id @-> returning (void)) x -let titleTextAttributes self = msg_send ~self ~cmd:(selector "titleTextAttributes") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIBarItem.ml b/uikit/UIBarItem.ml index 4c83a3aa..3cbe7894 100644 --- a/uikit/UIBarItem.ml +++ b/uikit/UIBarItem.ml @@ -5,29 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIBarItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibaritem?language=objc}UIBarItem} *) -module C = struct - let appearance self = msg_send ~self ~cmd:(selector "appearance") ~typ:(returning (id)) - let appearanceForTraitCollection x self = msg_send ~self ~cmd:(selector "appearanceForTraitCollection:") ~typ:(id @-> returning (id)) x - let appearanceForTraitCollection1 x ~whenContainedIn self = msg_send ~self ~cmd:(selector "appearanceForTraitCollection:whenContainedIn:") ~typ:(id @-> _Class @-> returning (id)) x whenContainedIn - let appearanceForTraitCollection2 x ~whenContainedInInstancesOfClasses self = msg_send ~self ~cmd:(selector "appearanceForTraitCollection:whenContainedInInstancesOfClasses:") ~typ:(id @-> id @-> returning (id)) x whenContainedInInstancesOfClasses - let appearanceWhenContainedIn x self = msg_send ~self ~cmd:(selector "appearanceWhenContainedIn:") ~typ:(_Class @-> returning (id)) x - let appearanceWhenContainedInInstancesOfClasses x self = msg_send ~self ~cmd:(selector "appearanceWhenContainedInInstancesOfClasses:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIBarItem" -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hasImage self = msg_send ~self ~cmd:(selector "hasImage") ~typ:(returning (bool)) -let hasTitle self = msg_send ~self ~cmd:(selector "hasTitle") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let largeContentSizeImage self = msg_send ~self ~cmd:(selector "largeContentSizeImage") ~typ:(returning (id)) -let resolvedTitle self = msg_send ~self ~cmd:(selector "resolvedTitle") ~typ:(returning (id)) -let selected self = msg_send ~self ~cmd:(selector "selected") ~typ:(returning (bool)) -let setLargeContentSizeImage x self = msg_send ~self ~cmd:(selector "setLargeContentSizeImage:") ~typ:(id @-> returning (void)) x -let setLargeContentSizeImageInsets x self = msg_send ~self ~cmd:(selector "setLargeContentSizeImageInsets:") ~typ:(ptr void @-> returning (void)) x -let setTag x self = msg_send ~self ~cmd:(selector "setTag:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTitleTextAttributes x ~forState self = msg_send ~self ~cmd:(selector "setTitleTextAttributes:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let tag self = msg_send ~self ~cmd:(selector "tag") ~typ:(returning (llong)) -let titleTextAttributesForState x self = msg_send ~self ~cmd:(selector "titleTextAttributesForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) \ No newline at end of file +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hasImage self = msg_send ~self ~cmd:(selector "hasImage") ~typ:(returning bool) +let hasTitle self = msg_send ~self ~cmd:(selector "hasTitle") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let largeContentSizeImage self = msg_send ~self ~cmd:(selector "largeContentSizeImage") ~typ:(returning id) +let largeContentSizeImageInsets self = msg_send ~self ~cmd:(selector "largeContentSizeImageInsets") ~typ:(returning UIEdgeInsets.t) +let resolvedTitle self = msg_send ~self ~cmd:(selector "resolvedTitle") ~typ:(returning id) +let selected self = msg_send ~self ~cmd:(selector "selected") ~typ:(returning bool) +let setLargeContentSizeImage x self = msg_send ~self ~cmd:(selector "setLargeContentSizeImage:") ~typ:(id @-> returning void) x +let setLargeContentSizeImageInsets x self = msg_send ~self ~cmd:(selector "setLargeContentSizeImageInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setTag x self = msg_send ~self ~cmd:(selector "setTag:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTitleTextAttributes x ~forState self = msg_send ~self ~cmd:(selector "setTitleTextAttributes:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let tag self = msg_send ~self ~cmd:(selector "tag") ~typ:(returning llong) +let titleTextAttributesForState x self = msg_send ~self ~cmd:(selector "titleTextAttributesForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UIBarItemClass.ml b/uikit/UIBarItemClass.ml new file mode 100644 index 00000000..71dbb712 --- /dev/null +++ b/uikit/UIBarItemClass.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibaritem?language=objc}UIBarItem} *) + +let appearance self = msg_send ~self ~cmd:(selector "appearance") ~typ:(returning id) +let appearanceForTraitCollection x self = msg_send ~self ~cmd:(selector "appearanceForTraitCollection:") ~typ:(id @-> returning id) x +let appearanceForTraitCollection1 x ~whenContainedIn self = msg_send ~self ~cmd:(selector "appearanceForTraitCollection:whenContainedIn:") ~typ:(id @-> _Class @-> returning id) x whenContainedIn +let appearanceForTraitCollection2 x ~whenContainedInInstancesOfClasses self = msg_send ~self ~cmd:(selector "appearanceForTraitCollection:whenContainedInInstancesOfClasses:") ~typ:(id @-> id @-> returning id) x whenContainedInInstancesOfClasses +let appearanceWhenContainedIn x self = msg_send ~self ~cmd:(selector "appearanceWhenContainedIn:") ~typ:(_Class @-> returning id) x +let appearanceWhenContainedInInstancesOfClasses x self = msg_send ~self ~cmd:(selector "appearanceWhenContainedInInstancesOfClasses:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIBezierPath.ml b/uikit/UIBezierPath.ml index 54e2881b..4b4b0489 100644 --- a/uikit/UIBezierPath.ml +++ b/uikit/UIBezierPath.ml @@ -5,73 +5,61 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIBezierPath" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibezierpath?language=objc}UIBezierPath} *) -module C = struct - let bezierPath self = msg_send ~self ~cmd:(selector "bezierPath") ~typ:(returning (id)) - let bezierPathWithArcCenter x ~radius ~startAngle ~endAngle ~clockwise self = msg_send ~self ~cmd:(selector "bezierPathWithArcCenter:radius:startAngle:endAngle:clockwise:") ~typ:(CGPoint.t @-> double @-> double @-> double @-> bool @-> returning (id)) x radius startAngle endAngle clockwise - let bezierPathWithCGPath x self = msg_send ~self ~cmd:(selector "bezierPathWithCGPath:") ~typ:(ptr void @-> returning (id)) x - let bezierPathWithOvalInRect x self = msg_send ~self ~cmd:(selector "bezierPathWithOvalInRect:") ~typ:(CGRect.t @-> returning (id)) x - let bezierPathWithRect x self = msg_send ~self ~cmd:(selector "bezierPathWithRect:") ~typ:(CGRect.t @-> returning (id)) x - let bezierPathWithRoundedRect x ~cornerRadius self = msg_send ~self ~cmd:(selector "bezierPathWithRoundedRect:cornerRadius:") ~typ:(CGRect.t @-> double @-> returning (id)) x cornerRadius - let bezierPathWithRoundedRect' x ~byRoundingCorners ~cornerRadii self = msg_send ~self ~cmd:(selector "bezierPathWithRoundedRect:byRoundingCorners:cornerRadii:") ~typ:(CGRect.t @-> ullong @-> CGSize.t @-> returning (id)) x (ULLong.of_int byRoundingCorners) cornerRadii - let roundedRectBezierPath x ~withRoundedEdges self = msg_send ~self ~cmd:(selector "roundedRectBezierPath:withRoundedEdges:") ~typ:(CGRect.t @-> ullong @-> returning (id)) x (ULLong.of_int withRoundedEdges) - let roundedRectBezierPath1 x ~withRoundedCorners ~withCornerRadii self = msg_send ~self ~cmd:(selector "roundedRectBezierPath:withRoundedCorners:withCornerRadii:") ~typ:(CGRect.t @-> ullong @-> id @-> returning (id)) x (ULLong.of_int withRoundedCorners) withCornerRadii - let roundedRectBezierPath2 x ~withRoundedCorners ~withCornerRadius self = msg_send ~self ~cmd:(selector "roundedRectBezierPath:withRoundedCorners:withCornerRadius:") ~typ:(CGRect.t @-> ullong @-> double @-> returning (id)) x (ULLong.of_int withRoundedCorners) withCornerRadius - let roundedRectBezierPath3 x ~withTopCornerRadius ~withBottomCornerRadius self = msg_send ~self ~cmd:(selector "roundedRectBezierPath:withTopCornerRadius:withBottomCornerRadius:") ~typ:(CGRect.t @-> double @-> double @-> returning (id)) x withTopCornerRadius withBottomCornerRadius - let shadowBezierPath x ~withRoundedEdges self = msg_send ~self ~cmd:(selector "shadowBezierPath:withRoundedEdges:") ~typ:(CGRect.t @-> ullong @-> returning (id)) x (ULLong.of_int withRoundedEdges) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIBezierPath" -let _CGPath self = msg_send ~self ~cmd:(selector "CGPath") ~typ:(returning (ptr void)) -let addArcWithCenter x ~radius ~startAngle ~endAngle ~clockwise self = msg_send ~self ~cmd:(selector "addArcWithCenter:radius:startAngle:endAngle:clockwise:") ~typ:(CGPoint.t @-> double @-> double @-> double @-> bool @-> returning (void)) x radius startAngle endAngle clockwise -let addClip self = msg_send ~self ~cmd:(selector "addClip") ~typ:(returning (void)) -let addCurveToPoint x ~controlPoint1 ~controlPoint2 self = msg_send ~self ~cmd:(selector "addCurveToPoint:controlPoint1:controlPoint2:") ~typ:(CGPoint.t @-> CGPoint.t @-> CGPoint.t @-> returning (void)) x controlPoint1 controlPoint2 -let addLineToPoint x self = msg_send ~self ~cmd:(selector "addLineToPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let addQuadCurveToPoint x ~controlPoint self = msg_send ~self ~cmd:(selector "addQuadCurveToPoint:controlPoint:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (void)) x controlPoint -let akAppendPath x self = msg_send ~self ~cmd:(selector "akAppendPath:") ~typ:(id @-> returning (void)) x -let appendBezierPath x self = msg_send ~self ~cmd:(selector "appendBezierPath:") ~typ:(id @-> returning (void)) x -let appendBezierPathWithArcWithCenter x ~radius ~startAngle ~endAngle ~clockwise self = msg_send ~self ~cmd:(selector "appendBezierPathWithArcWithCenter:radius:startAngle:endAngle:clockwise:") ~typ:(CGPoint.t @-> double @-> double @-> double @-> bool @-> returning (void)) x radius startAngle endAngle clockwise -let appendBezierPathWithOvalInRect x self = msg_send ~self ~cmd:(selector "appendBezierPathWithOvalInRect:") ~typ:(CGRect.t @-> returning (void)) x -let appendBezierPathWithOvalInRect' x ~transform self = msg_send ~self ~cmd:(selector "appendBezierPathWithOvalInRect:transform:") ~typ:(CGRect.t @-> ptr void @-> returning (void)) x transform -let appendBezierPathWithRect x self = msg_send ~self ~cmd:(selector "appendBezierPathWithRect:") ~typ:(CGRect.t @-> returning (void)) x -let appendPath x self = msg_send ~self ~cmd:(selector "appendPath:") ~typ:(id @-> returning (void)) x -let applyTransform x self = msg_send ~self ~cmd:(selector "applyTransform:") ~typ:(ptr void @-> returning (void)) x -let bezierPathByReversingPath self = msg_send ~self ~cmd:(selector "bezierPathByReversingPath") ~typ:(returning (id)) -let bounds self = msg_send_stret ~self ~cmd:(selector "bounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let clip self = msg_send ~self ~cmd:(selector "clip") ~typ:(returning (void)) -let closePath self = msg_send ~self ~cmd:(selector "closePath") ~typ:(returning (void)) -let containsPoint x self = msg_send ~self ~cmd:(selector "containsPoint:") ~typ:(CGPoint.t @-> returning (bool)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let currentPoint self = msg_send_stret ~self ~cmd:(selector "currentPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let fill self = msg_send ~self ~cmd:(selector "fill") ~typ:(returning (void)) -let fillWithBlendMode x ~alpha self = msg_send ~self ~cmd:(selector "fillWithBlendMode:alpha:") ~typ:(int @-> double @-> returning (void)) x alpha -let flatness self = msg_send ~self ~cmd:(selector "flatness") ~typ:(returning (double)) -let getLineDash x ~count ~phase self = msg_send ~self ~cmd:(selector "getLineDash:count:phase:") ~typ:(ptr (double) @-> ptr (llong) @-> ptr (double) @-> returning (void)) x count phase -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEmpty self = msg_send ~self ~cmd:(selector "isEmpty") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let lineCapStyle self = msg_send ~self ~cmd:(selector "lineCapStyle") ~typ:(returning (int)) -let lineJoinStyle self = msg_send ~self ~cmd:(selector "lineJoinStyle") ~typ:(returning (int)) -let lineToPoint x self = msg_send ~self ~cmd:(selector "lineToPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let lineWidth self = msg_send ~self ~cmd:(selector "lineWidth") ~typ:(returning (double)) -let miterLimit self = msg_send ~self ~cmd:(selector "miterLimit") ~typ:(returning (double)) -let moveToPoint x self = msg_send ~self ~cmd:(selector "moveToPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let newCGPathForPlatformBezierPath self = msg_send ~self ~cmd:(selector "newCGPathForPlatformBezierPath") ~typ:(returning (ptr void)) -let removeAllPoints self = msg_send ~self ~cmd:(selector "removeAllPoints") ~typ:(returning (void)) -let setCGPath x self = msg_send ~self ~cmd:(selector "setCGPath:") ~typ:(ptr void @-> returning (void)) x -let setFlatness x self = msg_send ~self ~cmd:(selector "setFlatness:") ~typ:(double @-> returning (void)) x -let setLineCapStyle x self = msg_send ~self ~cmd:(selector "setLineCapStyle:") ~typ:(int @-> returning (void)) x -let setLineDash x ~count ~phase self = msg_send ~self ~cmd:(selector "setLineDash:count:phase:") ~typ:(ptr (double) @-> llong @-> double @-> returning (void)) x (LLong.of_int count) phase -let setLineJoinStyle x self = msg_send ~self ~cmd:(selector "setLineJoinStyle:") ~typ:(int @-> returning (void)) x -let setLineWidth x self = msg_send ~self ~cmd:(selector "setLineWidth:") ~typ:(double @-> returning (void)) x -let setMiterLimit x self = msg_send ~self ~cmd:(selector "setMiterLimit:") ~typ:(double @-> returning (void)) x -let setUsesEvenOddFillRule x self = msg_send ~self ~cmd:(selector "setUsesEvenOddFillRule:") ~typ:(bool @-> returning (void)) x -let stroke self = msg_send ~self ~cmd:(selector "stroke") ~typ:(returning (void)) -let strokeWithBlendMode x ~alpha self = msg_send ~self ~cmd:(selector "strokeWithBlendMode:alpha:") ~typ:(int @-> double @-> returning (void)) x alpha -let usesEvenOddFillRule self = msg_send ~self ~cmd:(selector "usesEvenOddFillRule") ~typ:(returning (bool)) \ No newline at end of file +let _CGPath self = msg_send ~self ~cmd:(selector "CGPath") ~typ:(returning (ptr CGPath.t)) +let addArcWithCenter x ~radius ~startAngle ~endAngle ~clockwise self = msg_send ~self ~cmd:(selector "addArcWithCenter:radius:startAngle:endAngle:clockwise:") ~typ:(CGPoint.t @-> double @-> double @-> double @-> bool @-> returning void) x radius startAngle endAngle clockwise +let addClip self = msg_send ~self ~cmd:(selector "addClip") ~typ:(returning void) +let addCurveToPoint x ~controlPoint1 ~controlPoint2 self = msg_send ~self ~cmd:(selector "addCurveToPoint:controlPoint1:controlPoint2:") ~typ:(CGPoint.t @-> CGPoint.t @-> CGPoint.t @-> returning void) x controlPoint1 controlPoint2 +let addLineToPoint x self = msg_send ~self ~cmd:(selector "addLineToPoint:") ~typ:(CGPoint.t @-> returning void) x +let addQuadCurveToPoint x ~controlPoint self = msg_send ~self ~cmd:(selector "addQuadCurveToPoint:controlPoint:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning void) x controlPoint +let akAppendPath x self = msg_send ~self ~cmd:(selector "akAppendPath:") ~typ:(id @-> returning void) x +let appendBezierPath x self = msg_send ~self ~cmd:(selector "appendBezierPath:") ~typ:(id @-> returning void) x +let appendBezierPathWithArcWithCenter x ~radius ~startAngle ~endAngle ~clockwise self = msg_send ~self ~cmd:(selector "appendBezierPathWithArcWithCenter:radius:startAngle:endAngle:clockwise:") ~typ:(CGPoint.t @-> double @-> double @-> double @-> bool @-> returning void) x radius startAngle endAngle clockwise +let appendBezierPathWithOvalInRect x self = msg_send ~self ~cmd:(selector "appendBezierPathWithOvalInRect:") ~typ:(CGRect.t @-> returning void) x +let appendBezierPathWithOvalInRect' x ~transform self = msg_send ~self ~cmd:(selector "appendBezierPathWithOvalInRect:transform:") ~typ:(CGRect.t @-> CGAffineTransform.t @-> returning void) x transform +let appendBezierPathWithRect x self = msg_send ~self ~cmd:(selector "appendBezierPathWithRect:") ~typ:(CGRect.t @-> returning void) x +let appendPath x self = msg_send ~self ~cmd:(selector "appendPath:") ~typ:(id @-> returning void) x +let applyTransform x self = msg_send ~self ~cmd:(selector "applyTransform:") ~typ:(CGAffineTransform.t @-> returning void) x +let bezierPathByReversingPath self = msg_send ~self ~cmd:(selector "bezierPathByReversingPath") ~typ:(returning id) +let bounds self = msg_send ~self ~cmd:(selector "bounds") ~typ:(returning CGRect.t) +let clip self = msg_send ~self ~cmd:(selector "clip") ~typ:(returning void) +let closePath self = msg_send ~self ~cmd:(selector "closePath") ~typ:(returning void) +let containsPoint x self = msg_send ~self ~cmd:(selector "containsPoint:") ~typ:(CGPoint.t @-> returning bool) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let currentPoint self = msg_send ~self ~cmd:(selector "currentPoint") ~typ:(returning CGPoint.t) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let fill self = msg_send ~self ~cmd:(selector "fill") ~typ:(returning void) +let fillWithBlendMode x ~alpha self = msg_send ~self ~cmd:(selector "fillWithBlendMode:alpha:") ~typ:(int @-> double @-> returning void) x alpha +let flatness self = msg_send ~self ~cmd:(selector "flatness") ~typ:(returning double) +let getLineDash x ~count ~phase self = msg_send ~self ~cmd:(selector "getLineDash:count:phase:") ~typ:((ptr double) @-> (ptr llong) @-> (ptr double) @-> returning void) x count phase +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEmpty self = msg_send ~self ~cmd:(selector "isEmpty") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let lineCapStyle self = msg_send ~self ~cmd:(selector "lineCapStyle") ~typ:(returning int) +let lineJoinStyle self = msg_send ~self ~cmd:(selector "lineJoinStyle") ~typ:(returning int) +let lineToPoint x self = msg_send ~self ~cmd:(selector "lineToPoint:") ~typ:(CGPoint.t @-> returning void) x +let lineWidth self = msg_send ~self ~cmd:(selector "lineWidth") ~typ:(returning double) +let miterLimit self = msg_send ~self ~cmd:(selector "miterLimit") ~typ:(returning double) +let moveToPoint x self = msg_send ~self ~cmd:(selector "moveToPoint:") ~typ:(CGPoint.t @-> returning void) x +let newCGPathForPlatformBezierPath self = msg_send ~self ~cmd:(selector "newCGPathForPlatformBezierPath") ~typ:(returning (ptr CGPath.t)) +let removeAllPoints self = msg_send ~self ~cmd:(selector "removeAllPoints") ~typ:(returning void) +let setCGPath x self = msg_send ~self ~cmd:(selector "setCGPath:") ~typ:((ptr CGPath.t) @-> returning void) x +let setFlatness x self = msg_send ~self ~cmd:(selector "setFlatness:") ~typ:(double @-> returning void) x +let setLineCapStyle x self = msg_send ~self ~cmd:(selector "setLineCapStyle:") ~typ:(int @-> returning void) x +let setLineDash x ~count ~phase self = msg_send ~self ~cmd:(selector "setLineDash:count:phase:") ~typ:((ptr double) @-> llong @-> double @-> returning void) x (LLong.of_int count) phase +let setLineJoinStyle x self = msg_send ~self ~cmd:(selector "setLineJoinStyle:") ~typ:(int @-> returning void) x +let setLineWidth x self = msg_send ~self ~cmd:(selector "setLineWidth:") ~typ:(double @-> returning void) x +let setMiterLimit x self = msg_send ~self ~cmd:(selector "setMiterLimit:") ~typ:(double @-> returning void) x +let setUsesEvenOddFillRule x self = msg_send ~self ~cmd:(selector "setUsesEvenOddFillRule:") ~typ:(bool @-> returning void) x +let stroke self = msg_send ~self ~cmd:(selector "stroke") ~typ:(returning void) +let strokeWithBlendMode x ~alpha self = msg_send ~self ~cmd:(selector "strokeWithBlendMode:alpha:") ~typ:(int @-> double @-> returning void) x alpha +let usesEvenOddFillRule self = msg_send ~self ~cmd:(selector "usesEvenOddFillRule") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIBezierPathClass.ml b/uikit/UIBezierPathClass.ml new file mode 100644 index 00000000..7392fdf7 --- /dev/null +++ b/uikit/UIBezierPathClass.ml @@ -0,0 +1,25 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibezierpath?language=objc}UIBezierPath} *) + +let bezierPath self = msg_send ~self ~cmd:(selector "bezierPath") ~typ:(returning id) +let bezierPathWithArcCenter x ~radius ~startAngle ~endAngle ~clockwise self = msg_send ~self ~cmd:(selector "bezierPathWithArcCenter:radius:startAngle:endAngle:clockwise:") ~typ:(CGPoint.t @-> double @-> double @-> double @-> bool @-> returning id) x radius startAngle endAngle clockwise +let bezierPathWithCGPath x self = msg_send ~self ~cmd:(selector "bezierPathWithCGPath:") ~typ:((ptr CGPath.t) @-> returning id) x +let bezierPathWithOvalInRect x self = msg_send ~self ~cmd:(selector "bezierPathWithOvalInRect:") ~typ:(CGRect.t @-> returning id) x +let bezierPathWithRect x self = msg_send ~self ~cmd:(selector "bezierPathWithRect:") ~typ:(CGRect.t @-> returning id) x +let bezierPathWithRoundedRect x ~cornerRadius self = msg_send ~self ~cmd:(selector "bezierPathWithRoundedRect:cornerRadius:") ~typ:(CGRect.t @-> double @-> returning id) x cornerRadius +let bezierPathWithRoundedRect' x ~byRoundingCorners ~cornerRadii self = msg_send ~self ~cmd:(selector "bezierPathWithRoundedRect:byRoundingCorners:cornerRadii:") ~typ:(CGRect.t @-> ullong @-> CGSize.t @-> returning id) x (ULLong.of_int byRoundingCorners) cornerRadii +let roundedRectBezierPath x ~withRoundedEdges self = msg_send ~self ~cmd:(selector "roundedRectBezierPath:withRoundedEdges:") ~typ:(CGRect.t @-> ullong @-> returning id) x (ULLong.of_int withRoundedEdges) +let roundedRectBezierPath1 x ~withRoundedCorners ~withCornerRadii self = msg_send ~self ~cmd:(selector "roundedRectBezierPath:withRoundedCorners:withCornerRadii:") ~typ:(CGRect.t @-> ullong @-> id @-> returning id) x (ULLong.of_int withRoundedCorners) withCornerRadii +let roundedRectBezierPath2 x ~withRoundedCorners ~withCornerRadius self = msg_send ~self ~cmd:(selector "roundedRectBezierPath:withRoundedCorners:withCornerRadius:") ~typ:(CGRect.t @-> ullong @-> double @-> returning id) x (ULLong.of_int withRoundedCorners) withCornerRadius +let roundedRectBezierPath3 x ~withTopCornerRadius ~withBottomCornerRadius self = msg_send ~self ~cmd:(selector "roundedRectBezierPath:withTopCornerRadius:withBottomCornerRadius:") ~typ:(CGRect.t @-> double @-> double @-> returning id) x withTopCornerRadius withBottomCornerRadius +let shadowBezierPath x ~withRoundedEdges self = msg_send ~self ~cmd:(selector "shadowBezierPath:withRoundedEdges:") ~typ:(CGRect.t @-> ullong @-> returning id) x (ULLong.of_int withRoundedEdges) +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIBlurEffect.ml b/uikit/UIBlurEffect.ml index d7fee5cf..7fea0b4e 100644 --- a/uikit/UIBlurEffect.ml +++ b/uikit/UIBlurEffect.ml @@ -5,21 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIBlurEffect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiblureffect?language=objc}UIBlurEffect} *) -module C = struct - let effectWithBlurRadius x self = msg_send ~self ~cmd:(selector "effectWithBlurRadius:") ~typ:(double @-> returning (id)) x - let effectWithStyle x self = msg_send ~self ~cmd:(selector "effectWithStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIBlurEffect" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let effectForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "effectForUserInterfaceStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let effectSettings self = msg_send ~self ~cmd:(selector "effectSettings") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let effectForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "effectForUserInterfaceStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let effectSettings self = msg_send ~self ~cmd:(selector "effectSettings") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIBlurEffectClass.ml b/uikit/UIBlurEffectClass.ml new file mode 100644 index 00000000..0f5183a8 --- /dev/null +++ b/uikit/UIBlurEffectClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiblureffect?language=objc}UIBlurEffect} *) + +let effectWithBlurRadius x self = msg_send ~self ~cmd:(selector "effectWithBlurRadius:") ~typ:(double @-> returning id) x +let effectWithStyle x self = msg_send ~self ~cmd:(selector "effectWithStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIButton.ml b/uikit/UIButton.ml index 30548e8a..d523fc68 100644 --- a/uikit/UIButton.ml +++ b/uikit/UIButton.ml @@ -5,152 +5,152 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIButton" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibutton?language=objc}UIButton} *) -module C = struct - let buttonWithConfiguration x ~primaryAction self = msg_send ~self ~cmd:(selector "buttonWithConfiguration:primaryAction:") ~typ:(id @-> id @-> returning (id)) x primaryAction - let buttonWithType x self = msg_send ~self ~cmd:(selector "buttonWithType:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let buttonWithType' x ~primaryAction self = msg_send ~self ~cmd:(selector "buttonWithType:primaryAction:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) primaryAction - let systemButtonWithImage x ~target ~action self = msg_send ~self ~cmd:(selector "systemButtonWithImage:target:action:") ~typ:(id @-> id @-> _SEL @-> returning (id)) x target action - let systemButtonWithPrimaryAction x self = msg_send ~self ~cmd:(selector "systemButtonWithPrimaryAction:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIButton" -let adjustsImageSizeForAccessibilityContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsImageSizeForAccessibilityContentSizeCategory") ~typ:(returning (bool)) -let adjustsImageWhenDisabled self = msg_send ~self ~cmd:(selector "adjustsImageWhenDisabled") ~typ:(returning (bool)) -let adjustsImageWhenHighlighted self = msg_send ~self ~cmd:(selector "adjustsImageWhenHighlighted") ~typ:(returning (bool)) -let attributedTitleForState x self = msg_send ~self ~cmd:(selector "attributedTitleForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let automaticallyUpdatesConfiguration self = msg_send ~self ~cmd:(selector "automaticallyUpdatesConfiguration") ~typ:(returning (bool)) -let autosizesToFit self = msg_send ~self ~cmd:(selector "autosizesToFit") ~typ:(returning (bool)) -let backgroundImageForState x self = msg_send ~self ~cmd:(selector "backgroundImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let backgroundRectForBounds x self = msg_send_stret ~self ~cmd:(selector "backgroundRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let behavioralStyle self = msg_send ~self ~cmd:(selector "behavioralStyle") ~typ:(returning (ullong)) -let buttonType self = msg_send ~self ~cmd:(selector "buttonType") ~typ:(returning (llong)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let changesSelectionAsPrimaryAction self = msg_send ~self ~cmd:(selector "changesSelectionAsPrimaryAction") ~typ:(returning (bool)) -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) +let adjustsImageSizeForAccessibilityContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsImageSizeForAccessibilityContentSizeCategory") ~typ:(returning bool) +let adjustsImageWhenDisabled self = msg_send ~self ~cmd:(selector "adjustsImageWhenDisabled") ~typ:(returning bool) +let adjustsImageWhenHighlighted self = msg_send ~self ~cmd:(selector "adjustsImageWhenHighlighted") ~typ:(returning bool) +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let attributedTitleForState x self = msg_send ~self ~cmd:(selector "attributedTitleForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let automaticallyUpdatesConfiguration self = msg_send ~self ~cmd:(selector "automaticallyUpdatesConfiguration") ~typ:(returning bool) +let autosizesToFit self = msg_send ~self ~cmd:(selector "autosizesToFit") ~typ:(returning bool) +let backgroundImageForState x self = msg_send ~self ~cmd:(selector "backgroundImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let backgroundRectForBounds x self = msg_send ~self ~cmd:(selector "backgroundRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let behavioralStyle self = msg_send ~self ~cmd:(selector "behavioralStyle") ~typ:(returning ullong) +let buttonType self = msg_send ~self ~cmd:(selector "buttonType") ~typ:(returning llong) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let changesSelectionAsPrimaryAction self = msg_send ~self ~cmd:(selector "changesSelectionAsPrimaryAction") ~typ:(returning bool) +let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning id) let configurationUpdateHandler self = msg_send ~self ~cmd:(selector "configurationUpdateHandler") ~typ:(returning (ptr void)) -let contentRectForBounds x self = msg_send_stret ~self ~cmd:(selector "contentRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let contextMenuInteraction x ~configurationForMenuAtLocation self = msg_send ~self ~cmd:(selector "contextMenuInteraction:configurationForMenuAtLocation:") ~typ:(id @-> CGPoint.t @-> returning (id)) x configurationForMenuAtLocation -let contextMenuInteraction1 x ~previewForDismissingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForDismissingMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) x previewForDismissingMenuWithConfiguration -let contextMenuInteraction2 x ~previewForHighlightingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForHighlightingMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) x previewForHighlightingMenuWithConfiguration -let crossfadeToImage x ~forState self = msg_send ~self ~cmd:(selector "crossfadeToImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let currentAttributedTitle self = msg_send ~self ~cmd:(selector "currentAttributedTitle") ~typ:(returning (id)) -let currentBackgroundImage self = msg_send ~self ~cmd:(selector "currentBackgroundImage") ~typ:(returning (id)) -let currentImage self = msg_send ~self ~cmd:(selector "currentImage") ~typ:(returning (id)) -let currentPreferredSymbolConfiguration self = msg_send ~self ~cmd:(selector "currentPreferredSymbolConfiguration") ~typ:(returning (id)) -let currentTitle self = msg_send ~self ~cmd:(selector "currentTitle") ~typ:(returning (id)) -let currentTitleColor self = msg_send ~self ~cmd:(selector "currentTitleColor") ~typ:(returning (id)) -let currentTitleShadowColor self = msg_send ~self ~cmd:(selector "currentTitleShadowColor") ~typ:(returning (id)) -let cursorInteraction x ~regionForLocation ~defaultRegion self = msg_send ~self ~cmd:(selector "cursorInteraction:regionForLocation:defaultRegion:") ~typ:(id @-> CGPoint.t @-> id @-> returning (id)) x regionForLocation defaultRegion +let contentEdgeInsets self = msg_send ~self ~cmd:(selector "contentEdgeInsets") ~typ:(returning UIEdgeInsets.t) +let contentRectForBounds x self = msg_send ~self ~cmd:(selector "contentRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let contextMenuInteraction x ~configurationForMenuAtLocation self = msg_send ~self ~cmd:(selector "contextMenuInteraction:configurationForMenuAtLocation:") ~typ:(id @-> CGPoint.t @-> returning id) x configurationForMenuAtLocation +let contextMenuInteraction1 x ~previewForDismissingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForDismissingMenuWithConfiguration:") ~typ:(id @-> id @-> returning id) x previewForDismissingMenuWithConfiguration +let contextMenuInteraction2 x ~previewForHighlightingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForHighlightingMenuWithConfiguration:") ~typ:(id @-> id @-> returning id) x previewForHighlightingMenuWithConfiguration +let crossfadeToImage x ~forState self = msg_send ~self ~cmd:(selector "crossfadeToImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let currentAttributedTitle self = msg_send ~self ~cmd:(selector "currentAttributedTitle") ~typ:(returning id) +let currentBackgroundImage self = msg_send ~self ~cmd:(selector "currentBackgroundImage") ~typ:(returning id) +let currentImage self = msg_send ~self ~cmd:(selector "currentImage") ~typ:(returning id) +let currentPreferredSymbolConfiguration self = msg_send ~self ~cmd:(selector "currentPreferredSymbolConfiguration") ~typ:(returning id) +let currentTitle self = msg_send ~self ~cmd:(selector "currentTitle") ~typ:(returning id) +let currentTitleColor self = msg_send ~self ~cmd:(selector "currentTitleColor") ~typ:(returning id) +let currentTitleShadowColor self = msg_send ~self ~cmd:(selector "currentTitleShadowColor") ~typ:(returning id) +let cursorInteraction x ~regionForLocation ~defaultRegion self = msg_send ~self ~cmd:(selector "cursorInteraction:regionForLocation:defaultRegion:") ~typ:(id @-> CGPoint.t @-> id @-> returning id) x regionForLocation defaultRegion let cursorStyleProvider self = msg_send ~self ~cmd:(selector "cursorStyleProvider") ~typ:(returning (ptr void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultAccessibilityTraits self = msg_send ~self ~cmd:(selector "defaultAccessibilityTraits") ~typ:(returning (ullong)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let fontForStyle x ~maxSizeCategory self = msg_send ~self ~cmd:(selector "fontForStyle:maxSizeCategory:") ~typ:(id @-> id @-> returning (id)) x maxSizeCategory -let fontForStyle' x ~currentSizeCategory ~maxSizeCategory self = msg_send ~self ~cmd:(selector "fontForStyle:currentSizeCategory:maxSizeCategory:") ~typ:(id @-> id @-> id @-> returning (id)) x currentSizeCategory maxSizeCategory -let forcedSelectionOfMenu x ~willChangeTo self = msg_send ~self ~cmd:(selector "forcedSelectionOfMenu:willChangeTo:") ~typ:(id @-> id @-> returning (void)) x willChangeTo -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let imageForState x self = msg_send ~self ~cmd:(selector "imageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let imageRectForContentRect x self = msg_send_stret ~self ~cmd:(selector "imageRectForContentRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let imageView self = msg_send ~self ~cmd:(selector "imageView") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithFrame' x ~primaryAction self = msg_send ~self ~cmd:(selector "initWithFrame:primaryAction:") ~typ:(CGRect.t @-> id @-> returning (id)) x primaryAction -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning (bool)) -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isHeld self = msg_send ~self ~cmd:(selector "isHeld") ~typ:(returning (bool)) -let isHovered self = msg_send ~self ~cmd:(selector "isHovered") ~typ:(returning (bool)) -let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning (bool)) -let largeContentImage self = msg_send ~self ~cmd:(selector "largeContentImage") ~typ:(returning (id)) -let largeContentTitle self = msg_send ~self ~cmd:(selector "largeContentTitle") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let lineBreakMode self = msg_send ~self ~cmd:(selector "lineBreakMode") ~typ:(returning (llong)) -let menu self = msg_send ~self ~cmd:(selector "menu") ~typ:(returning (id)) -let menuAttachmentPointForConfiguration x self = msg_send_stret ~self ~cmd:(selector "menuAttachmentPointForConfiguration:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning (id)) x styleForRegion -let pointerInteraction1 x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning (id)) x regionForRequest defaultRegion -let pointerInteraction2 x ~willEnterRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willEnterRegion:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willEnterRegion animator -let pointerInteraction3 x ~willExitRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willExitRegion:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willExitRegion animator +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultAccessibilityTraits self = msg_send ~self ~cmd:(selector "defaultAccessibilityTraits") ~typ:(returning ullong) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let fontForStyle x ~maxSizeCategory self = msg_send ~self ~cmd:(selector "fontForStyle:maxSizeCategory:") ~typ:(id @-> id @-> returning id) x maxSizeCategory +let fontForStyle' x ~currentSizeCategory ~maxSizeCategory self = msg_send ~self ~cmd:(selector "fontForStyle:currentSizeCategory:maxSizeCategory:") ~typ:(id @-> id @-> id @-> returning id) x currentSizeCategory maxSizeCategory +let forcedSelectionOfMenu x ~willChangeTo self = msg_send ~self ~cmd:(selector "forcedSelectionOfMenu:willChangeTo:") ~typ:(id @-> id @-> returning void) x willChangeTo +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let imageEdgeInsets self = msg_send ~self ~cmd:(selector "imageEdgeInsets") ~typ:(returning UIEdgeInsets.t) +let imageForState x self = msg_send ~self ~cmd:(selector "imageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let imageRectForContentRect x self = msg_send ~self ~cmd:(selector "imageRectForContentRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let imageView self = msg_send ~self ~cmd:(selector "imageView") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithFrame' x ~primaryAction self = msg_send ~self ~cmd:(selector "initWithFrame:primaryAction:") ~typ:(CGRect.t @-> id @-> returning id) x primaryAction +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning bool) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isHeld self = msg_send ~self ~cmd:(selector "isHeld") ~typ:(returning bool) +let isHovered self = msg_send ~self ~cmd:(selector "isHovered") ~typ:(returning bool) +let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning bool) +let largeContentImage self = msg_send ~self ~cmd:(selector "largeContentImage") ~typ:(returning id) +let largeContentTitle self = msg_send ~self ~cmd:(selector "largeContentTitle") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let lineBreakMode self = msg_send ~self ~cmd:(selector "lineBreakMode") ~typ:(returning llong) +let menu self = msg_send ~self ~cmd:(selector "menu") ~typ:(returning id) +let menuAttachmentPointForConfiguration x self = msg_send ~self ~cmd:(selector "menuAttachmentPointForConfiguration:") ~typ:(id @-> returning CGPoint.t) x +let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning id) x styleForRegion +let pointerInteraction1 x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning id) x regionForRequest defaultRegion +let pointerInteraction2 x ~willEnterRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willEnterRegion:animator:") ~typ:(id @-> id @-> id @-> returning void) x willEnterRegion animator +let pointerInteraction3 x ~willExitRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willExitRegion:animator:") ~typ:(id @-> id @-> id @-> returning void) x willExitRegion animator let pointerStyleProvider self = msg_send ~self ~cmd:(selector "pointerStyleProvider") ~typ:(returning (ptr void)) -let preferredBehavioralStyle self = msg_send ~self ~cmd:(selector "preferredBehavioralStyle") ~typ:(returning (ullong)) -let preferredSymbolConfigurationForImageInState x self = msg_send ~self ~cmd:(selector "preferredSymbolConfigurationForImageInState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let pressFeedbackPosition self = msg_send_stret ~self ~cmd:(selector "pressFeedbackPosition") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let reversesTitleShadowWhenHighlighted self = msg_send ~self ~cmd:(selector "reversesTitleShadowWhenHighlighted") ~typ:(returning (bool)) -let role self = msg_send ~self ~cmd:(selector "role") ~typ:(returning (llong)) -let scalesLargeContentImage self = msg_send ~self ~cmd:(selector "scalesLargeContentImage") ~typ:(returning (bool)) -let setAdjustsImageSizeForAccessibilityContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsImageSizeForAccessibilityContentSizeCategory:") ~typ:(bool @-> returning (void)) x -let setAdjustsImageWhenDisabled x self = msg_send ~self ~cmd:(selector "setAdjustsImageWhenDisabled:") ~typ:(bool @-> returning (void)) x -let setAdjustsImageWhenHighlighted x self = msg_send ~self ~cmd:(selector "setAdjustsImageWhenHighlighted:") ~typ:(bool @-> returning (void)) x -let setAttributedTitle x ~forState self = msg_send ~self ~cmd:(selector "setAttributedTitle:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setAutomaticallyUpdatesConfiguration x self = msg_send ~self ~cmd:(selector "setAutomaticallyUpdatesConfiguration:") ~typ:(bool @-> returning (void)) x -let setAutosizesToFit x self = msg_send ~self ~cmd:(selector "setAutosizesToFit:") ~typ:(bool @-> returning (void)) x -let setBackgroundImage x ~forState self = msg_send ~self ~cmd:(selector "setBackgroundImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setBackgroundImage' x ~forStates self = msg_send ~self ~cmd:(selector "setBackgroundImage:forStates:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forStates) -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setChangesSelectionAsPrimaryAction x self = msg_send ~self ~cmd:(selector "setChangesSelectionAsPrimaryAction:") ~typ:(bool @-> returning (void)) x -let setConfiguration x self = msg_send ~self ~cmd:(selector "setConfiguration:") ~typ:(id @-> returning (void)) x -let setConfigurationUpdateHandler x self = msg_send ~self ~cmd:(selector "setConfigurationUpdateHandler:") ~typ:(ptr void @-> returning (void)) x -let setContentEdgeInsets x self = msg_send ~self ~cmd:(selector "setContentEdgeInsets:") ~typ:(ptr void @-> returning (void)) x -let setContentHorizontalAlignment x self = msg_send ~self ~cmd:(selector "setContentHorizontalAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContentVerticalAlignment x self = msg_send ~self ~cmd:(selector "setContentVerticalAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCursorStyleProvider x self = msg_send ~self ~cmd:(selector "setCursorStyleProvider:") ~typ:(ptr void @-> returning (void)) x -let setDisabledDimsImage x self = msg_send ~self ~cmd:(selector "setDisabledDimsImage:") ~typ:(bool @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setImage x ~forState self = msg_send ~self ~cmd:(selector "setImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setImage' x ~forStates self = msg_send ~self ~cmd:(selector "setImage:forStates:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forStates) -let setImageEdgeInsets x self = msg_send ~self ~cmd:(selector "setImageEdgeInsets:") ~typ:(ptr void @-> returning (void)) x -let setLineBreakMode x self = msg_send ~self ~cmd:(selector "setLineBreakMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning (void)) x -let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning (void)) -let setNeedsUpdateConfiguration self = msg_send ~self ~cmd:(selector "setNeedsUpdateConfiguration") ~typ:(returning (void)) -let setPointerStyleProvider x self = msg_send ~self ~cmd:(selector "setPointerStyleProvider:") ~typ:(ptr void @-> returning (void)) x -let setPreferredBehavioralStyle x self = msg_send ~self ~cmd:(selector "setPreferredBehavioralStyle:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setPreferredSymbolConfiguration x ~forImageInState self = msg_send ~self ~cmd:(selector "setPreferredSymbolConfiguration:forImageInState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forImageInState) -let setReversesTitleShadowWhenHighlighted x self = msg_send ~self ~cmd:(selector "setReversesTitleShadowWhenHighlighted:") ~typ:(bool @-> returning (void)) x -let setRole x self = msg_send ~self ~cmd:(selector "setRole:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShowPressFeedback x self = msg_send ~self ~cmd:(selector "setShowPressFeedback:") ~typ:(bool @-> returning (void)) x -let setShowsMenuAsPrimaryAction x self = msg_send ~self ~cmd:(selector "setShowsMenuAsPrimaryAction:") ~typ:(bool @-> returning (void)) x -let setShowsTouchWhenHighlighted x self = msg_send ~self ~cmd:(selector "setShowsTouchWhenHighlighted:") ~typ:(bool @-> returning (void)) x -let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setTitle1 x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setTitle2 x ~forStates self = msg_send ~self ~cmd:(selector "setTitle:forStates:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forStates) -let setTitleColor x ~forState self = msg_send ~self ~cmd:(selector "setTitleColor:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setTitleColor' x ~forStates self = msg_send ~self ~cmd:(selector "setTitleColor:forStates:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forStates) -let setTitleEdgeInsets x self = msg_send ~self ~cmd:(selector "setTitleEdgeInsets:") ~typ:(ptr void @-> returning (void)) x -let setTitleShadowColor x ~forState self = msg_send ~self ~cmd:(selector "setTitleShadowColor:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setTitleShadowColor' x ~forStates self = msg_send ~self ~cmd:(selector "setTitleShadowColor:forStates:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forStates) -let setTitleShadowOffset x self = msg_send ~self ~cmd:(selector "setTitleShadowOffset:") ~typ:(CGSize.t @-> returning (void)) x -let showsTouchWhenHighlighted self = msg_send ~self ~cmd:(selector "showsTouchWhenHighlighted") ~typ:(returning (bool)) -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let subtitleLabel self = msg_send ~self ~cmd:(selector "subtitleLabel") ~typ:(returning (id)) -let systemLayoutSizeFittingSize x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send_stret ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning (CGSize.t)) ~return_type:CGSize.t x withHorizontalFittingPriority verticalFittingPriority -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let titleColorForState x self = msg_send ~self ~cmd:(selector "titleColorForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let titleForState x self = msg_send ~self ~cmd:(selector "titleForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let titleLabel self = msg_send ~self ~cmd:(selector "titleLabel") ~typ:(returning (id)) -let titleRectForContentRect x self = msg_send_stret ~self ~cmd:(selector "titleRectForContentRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let titleShadowColorForState x self = msg_send ~self ~cmd:(selector "titleShadowColorForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let titleShadowOffset self = msg_send_stret ~self ~cmd:(selector "titleShadowOffset") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateConfiguration self = msg_send ~self ~cmd:(selector "updateConfiguration") ~typ:(returning (void)) -let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning (void)) -let viewForFirstBaselineLayout self = msg_send ~self ~cmd:(selector "viewForFirstBaselineLayout") ~typ:(returning (id)) -let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning (id)) -let visualProviderClassForTraitCollection x self = msg_send ~self ~cmd:(selector "visualProviderClassForTraitCollection:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let preferredBehavioralStyle self = msg_send ~self ~cmd:(selector "preferredBehavioralStyle") ~typ:(returning ullong) +let preferredSymbolConfigurationForImageInState x self = msg_send ~self ~cmd:(selector "preferredSymbolConfigurationForImageInState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let pressFeedbackPosition self = msg_send ~self ~cmd:(selector "pressFeedbackPosition") ~typ:(returning CGPoint.t) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let reversesTitleShadowWhenHighlighted self = msg_send ~self ~cmd:(selector "reversesTitleShadowWhenHighlighted") ~typ:(returning bool) +let role self = msg_send ~self ~cmd:(selector "role") ~typ:(returning llong) +let scalesLargeContentImage self = msg_send ~self ~cmd:(selector "scalesLargeContentImage") ~typ:(returning bool) +let setAdjustsImageSizeForAccessibilityContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsImageSizeForAccessibilityContentSizeCategory:") ~typ:(bool @-> returning void) x +let setAdjustsImageWhenDisabled x self = msg_send ~self ~cmd:(selector "setAdjustsImageWhenDisabled:") ~typ:(bool @-> returning void) x +let setAdjustsImageWhenHighlighted x self = msg_send ~self ~cmd:(selector "setAdjustsImageWhenHighlighted:") ~typ:(bool @-> returning void) x +let setAttributedTitle x ~forState self = msg_send ~self ~cmd:(selector "setAttributedTitle:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setAutomaticallyUpdatesConfiguration x self = msg_send ~self ~cmd:(selector "setAutomaticallyUpdatesConfiguration:") ~typ:(bool @-> returning void) x +let setAutosizesToFit x self = msg_send ~self ~cmd:(selector "setAutosizesToFit:") ~typ:(bool @-> returning void) x +let setBackgroundImage x ~forState self = msg_send ~self ~cmd:(selector "setBackgroundImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setBackgroundImage' x ~forStates self = msg_send ~self ~cmd:(selector "setBackgroundImage:forStates:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forStates) +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setChangesSelectionAsPrimaryAction x self = msg_send ~self ~cmd:(selector "setChangesSelectionAsPrimaryAction:") ~typ:(bool @-> returning void) x +let setConfiguration x self = msg_send ~self ~cmd:(selector "setConfiguration:") ~typ:(id @-> returning void) x +let setConfigurationUpdateHandler x self = msg_send ~self ~cmd:(selector "setConfigurationUpdateHandler:") ~typ:((ptr void) @-> returning void) x +let setContentEdgeInsets x self = msg_send ~self ~cmd:(selector "setContentEdgeInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setContentHorizontalAlignment x self = msg_send ~self ~cmd:(selector "setContentHorizontalAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContentVerticalAlignment x self = msg_send ~self ~cmd:(selector "setContentVerticalAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCursorStyleProvider x self = msg_send ~self ~cmd:(selector "setCursorStyleProvider:") ~typ:((ptr void) @-> returning void) x +let setDisabledDimsImage x self = msg_send ~self ~cmd:(selector "setDisabledDimsImage:") ~typ:(bool @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setImage x ~forState self = msg_send ~self ~cmd:(selector "setImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setImage' x ~forStates self = msg_send ~self ~cmd:(selector "setImage:forStates:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forStates) +let setImageEdgeInsets x self = msg_send ~self ~cmd:(selector "setImageEdgeInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setLineBreakMode x self = msg_send ~self ~cmd:(selector "setLineBreakMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning void) x +let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning void) +let setNeedsUpdateConfiguration self = msg_send ~self ~cmd:(selector "setNeedsUpdateConfiguration") ~typ:(returning void) +let setPointerStyleProvider x self = msg_send ~self ~cmd:(selector "setPointerStyleProvider:") ~typ:((ptr void) @-> returning void) x +let setPreferredBehavioralStyle x self = msg_send ~self ~cmd:(selector "setPreferredBehavioralStyle:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setPreferredSymbolConfiguration x ~forImageInState self = msg_send ~self ~cmd:(selector "setPreferredSymbolConfiguration:forImageInState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forImageInState) +let setReversesTitleShadowWhenHighlighted x self = msg_send ~self ~cmd:(selector "setReversesTitleShadowWhenHighlighted:") ~typ:(bool @-> returning void) x +let setRole x self = msg_send ~self ~cmd:(selector "setRole:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setShowPressFeedback x self = msg_send ~self ~cmd:(selector "setShowPressFeedback:") ~typ:(bool @-> returning void) x +let setShowsMenuAsPrimaryAction x self = msg_send ~self ~cmd:(selector "setShowsMenuAsPrimaryAction:") ~typ:(bool @-> returning void) x +let setShowsTouchWhenHighlighted x self = msg_send ~self ~cmd:(selector "setShowsTouchWhenHighlighted:") ~typ:(bool @-> returning void) x +let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let setTitle1 x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setTitle2 x ~forStates self = msg_send ~self ~cmd:(selector "setTitle:forStates:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forStates) +let setTitleColor x ~forState self = msg_send ~self ~cmd:(selector "setTitleColor:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setTitleColor' x ~forStates self = msg_send ~self ~cmd:(selector "setTitleColor:forStates:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forStates) +let setTitleEdgeInsets x self = msg_send ~self ~cmd:(selector "setTitleEdgeInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setTitleShadowColor x ~forState self = msg_send ~self ~cmd:(selector "setTitleShadowColor:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setTitleShadowColor' x ~forStates self = msg_send ~self ~cmd:(selector "setTitleShadowColor:forStates:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forStates) +let setTitleShadowOffset x self = msg_send ~self ~cmd:(selector "setTitleShadowOffset:") ~typ:(CGSize.t @-> returning void) x +let showsTouchWhenHighlighted self = msg_send ~self ~cmd:(selector "showsTouchWhenHighlighted") ~typ:(returning bool) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let subtitleLabel self = msg_send ~self ~cmd:(selector "subtitleLabel") ~typ:(returning id) +let systemLayoutSizeFittingSize x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning CGSize.t) x withHorizontalFittingPriority verticalFittingPriority +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let titleColorForState x self = msg_send ~self ~cmd:(selector "titleColorForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let titleEdgeInsets self = msg_send ~self ~cmd:(selector "titleEdgeInsets") ~typ:(returning UIEdgeInsets.t) +let titleForState x self = msg_send ~self ~cmd:(selector "titleForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let titleLabel self = msg_send ~self ~cmd:(selector "titleLabel") ~typ:(returning id) +let titleRectForContentRect x self = msg_send ~self ~cmd:(selector "titleRectForContentRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let titleShadowColorForState x self = msg_send ~self ~cmd:(selector "titleShadowColorForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let titleShadowOffset self = msg_send ~self ~cmd:(selector "titleShadowOffset") ~typ:(returning CGSize.t) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let updateConfiguration self = msg_send ~self ~cmd:(selector "updateConfiguration") ~typ:(returning void) +let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning void) +let viewForFirstBaselineLayout self = msg_send ~self ~cmd:(selector "viewForFirstBaselineLayout") ~typ:(returning id) +let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning id) +let visualProviderClassForTraitCollection x self = msg_send ~self ~cmd:(selector "visualProviderClassForTraitCollection:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIButtonClass.ml b/uikit/UIButtonClass.ml new file mode 100644 index 00000000..6c432be0 --- /dev/null +++ b/uikit/UIButtonClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibutton?language=objc}UIButton} *) + +let buttonWithConfiguration x ~primaryAction self = msg_send ~self ~cmd:(selector "buttonWithConfiguration:primaryAction:") ~typ:(id @-> id @-> returning id) x primaryAction +let buttonWithType x self = msg_send ~self ~cmd:(selector "buttonWithType:") ~typ:(llong @-> returning id) (LLong.of_int x) +let buttonWithType' x ~primaryAction self = msg_send ~self ~cmd:(selector "buttonWithType:primaryAction:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) primaryAction +let systemButtonWithImage x ~target ~action self = msg_send ~self ~cmd:(selector "systemButtonWithImage:target:action:") ~typ:(id @-> id @-> _SEL @-> returning id) x target action +let systemButtonWithPrimaryAction x self = msg_send ~self ~cmd:(selector "systemButtonWithPrimaryAction:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIButtonConfiguration.ml b/uikit/UIButtonConfiguration.ml index cde5f622..e6a99d5e 100644 --- a/uikit/UIButtonConfiguration.ml +++ b/uikit/UIButtonConfiguration.ml @@ -5,77 +5,70 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIButtonConfiguration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibuttonconfiguration?language=objc}UIButtonConfiguration} *) -module C = struct - let borderedButtonConfiguration self = msg_send ~self ~cmd:(selector "borderedButtonConfiguration") ~typ:(returning (id)) - let borderedProminentButtonConfiguration self = msg_send ~self ~cmd:(selector "borderedProminentButtonConfiguration") ~typ:(returning (id)) - let borderedTintedButtonConfiguration self = msg_send ~self ~cmd:(selector "borderedTintedButtonConfiguration") ~typ:(returning (id)) - let borderlessButtonConfiguration self = msg_send ~self ~cmd:(selector "borderlessButtonConfiguration") ~typ:(returning (id)) - let filledButtonConfiguration self = msg_send ~self ~cmd:(selector "filledButtonConfiguration") ~typ:(returning (id)) - let grayButtonConfiguration self = msg_send ~self ~cmd:(selector "grayButtonConfiguration") ~typ:(returning (id)) - let plainButtonConfiguration self = msg_send ~self ~cmd:(selector "plainButtonConfiguration") ~typ:(returning (id)) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) - let tintedButtonConfiguration self = msg_send ~self ~cmd:(selector "tintedButtonConfiguration") ~typ:(returning (id)) -end +let self = get_class "UIButtonConfiguration" let activityIndicatorColorTransformer self = msg_send ~self ~cmd:(selector "activityIndicatorColorTransformer") ~typ:(returning (ptr void)) -let attributedSubtitle self = msg_send ~self ~cmd:(selector "attributedSubtitle") ~typ:(returning (id)) -let attributedTitle self = msg_send ~self ~cmd:(selector "attributedTitle") ~typ:(returning (id)) -let automaticallyUpdateForSelection self = msg_send ~self ~cmd:(selector "automaticallyUpdateForSelection") ~typ:(returning (bool)) -let background self = msg_send ~self ~cmd:(selector "background") ~typ:(returning (id)) -let baseBackgroundColor self = msg_send ~self ~cmd:(selector "baseBackgroundColor") ~typ:(returning (id)) -let baseForegroundColor self = msg_send ~self ~cmd:(selector "baseForegroundColor") ~typ:(returning (id)) -let buttonSize self = msg_send ~self ~cmd:(selector "buttonSize") ~typ:(returning (llong)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let cornerStyle self = msg_send ~self ~cmd:(selector "cornerStyle") ~typ:(returning (llong)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) +let attributedSubtitle self = msg_send ~self ~cmd:(selector "attributedSubtitle") ~typ:(returning id) +let attributedTitle self = msg_send ~self ~cmd:(selector "attributedTitle") ~typ:(returning id) +let automaticallyUpdateForSelection self = msg_send ~self ~cmd:(selector "automaticallyUpdateForSelection") ~typ:(returning bool) +let background self = msg_send ~self ~cmd:(selector "background") ~typ:(returning id) +let baseBackgroundColor self = msg_send ~self ~cmd:(selector "baseBackgroundColor") ~typ:(returning id) +let baseForegroundColor self = msg_send ~self ~cmd:(selector "baseForegroundColor") ~typ:(returning id) +let buttonSize self = msg_send ~self ~cmd:(selector "buttonSize") ~typ:(returning llong) +let contentInsets self = msg_send ~self ~cmd:(selector "contentInsets") ~typ:(returning NSDirectionalEdgeInsets.t) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let cornerStyle self = msg_send ~self ~cmd:(selector "cornerStyle") ~typ:(returning llong) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) let imageColorTransformer self = msg_send ~self ~cmd:(selector "imageColorTransformer") ~typ:(returning (ptr void)) -let imagePadding self = msg_send ~self ~cmd:(selector "imagePadding") ~typ:(returning (double)) -let imagePlacement self = msg_send ~self ~cmd:(selector "imagePlacement") ~typ:(returning (ullong)) -let imageReservation self = msg_send ~self ~cmd:(selector "imageReservation") ~typ:(returning (double)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let macIdiomStyle self = msg_send ~self ~cmd:(selector "macIdiomStyle") ~typ:(returning (llong)) -let preferredSymbolConfigurationForImage self = msg_send ~self ~cmd:(selector "preferredSymbolConfigurationForImage") ~typ:(returning (id)) -let setActivityIndicatorColorTransformer x self = msg_send ~self ~cmd:(selector "setActivityIndicatorColorTransformer:") ~typ:(ptr void @-> returning (void)) x -let setAttributedSubtitle x self = msg_send ~self ~cmd:(selector "setAttributedSubtitle:") ~typ:(id @-> returning (void)) x -let setAttributedTitle x self = msg_send ~self ~cmd:(selector "setAttributedTitle:") ~typ:(id @-> returning (void)) x -let setAutomaticallyUpdateForSelection x self = msg_send ~self ~cmd:(selector "setAutomaticallyUpdateForSelection:") ~typ:(bool @-> returning (void)) x -let setBackground x self = msg_send ~self ~cmd:(selector "setBackground:") ~typ:(id @-> returning (void)) x -let setBaseBackgroundColor x self = msg_send ~self ~cmd:(selector "setBaseBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBaseForegroundColor x self = msg_send ~self ~cmd:(selector "setBaseForegroundColor:") ~typ:(id @-> returning (void)) x -let setButtonSize x self = msg_send ~self ~cmd:(selector "setButtonSize:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContentInsets x self = msg_send ~self ~cmd:(selector "setContentInsets:") ~typ:(ptr void @-> returning (void)) x -let setCornerStyle x self = msg_send ~self ~cmd:(selector "setCornerStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setDefaultContentInsets self = msg_send ~self ~cmd:(selector "setDefaultContentInsets") ~typ:(returning (void)) -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setImageColorTransformer x self = msg_send ~self ~cmd:(selector "setImageColorTransformer:") ~typ:(ptr void @-> returning (void)) x -let setImagePadding x self = msg_send ~self ~cmd:(selector "setImagePadding:") ~typ:(double @-> returning (void)) x -let setImagePlacement x self = msg_send ~self ~cmd:(selector "setImagePlacement:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setImageReservation x self = msg_send ~self ~cmd:(selector "setImageReservation:") ~typ:(double @-> returning (void)) x -let setMacIdiomStyle x self = msg_send ~self ~cmd:(selector "setMacIdiomStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPreferredSymbolConfigurationForImage x self = msg_send ~self ~cmd:(selector "setPreferredSymbolConfigurationForImage:") ~typ:(id @-> returning (void)) x -let setShowsActivityIndicator x self = msg_send ~self ~cmd:(selector "setShowsActivityIndicator:") ~typ:(bool @-> returning (void)) x -let setSubtitle x self = msg_send ~self ~cmd:(selector "setSubtitle:") ~typ:(id @-> returning (void)) x -let setSubtitleLineBreakMode x self = msg_send ~self ~cmd:(selector "setSubtitleLineBreakMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSubtitleTextAttributesTransformer x self = msg_send ~self ~cmd:(selector "setSubtitleTextAttributesTransformer:") ~typ:(ptr void @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setTitleAlignment x self = msg_send ~self ~cmd:(selector "setTitleAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTitleLineBreakMode x self = msg_send ~self ~cmd:(selector "setTitleLineBreakMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTitlePadding x self = msg_send ~self ~cmd:(selector "setTitlePadding:") ~typ:(double @-> returning (void)) x -let setTitleTextAttributesTransformer x self = msg_send ~self ~cmd:(selector "setTitleTextAttributesTransformer:") ~typ:(ptr void @-> returning (void)) x -let showsActivityIndicator self = msg_send ~self ~cmd:(selector "showsActivityIndicator") ~typ:(returning (bool)) -let subtitle self = msg_send ~self ~cmd:(selector "subtitle") ~typ:(returning (id)) -let subtitleLineBreakMode self = msg_send ~self ~cmd:(selector "subtitleLineBreakMode") ~typ:(returning (llong)) +let imagePadding self = msg_send ~self ~cmd:(selector "imagePadding") ~typ:(returning double) +let imagePlacement self = msg_send ~self ~cmd:(selector "imagePlacement") ~typ:(returning ullong) +let imageReservation self = msg_send ~self ~cmd:(selector "imageReservation") ~typ:(returning double) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let macIdiomStyle self = msg_send ~self ~cmd:(selector "macIdiomStyle") ~typ:(returning llong) +let preferredSymbolConfigurationForImage self = msg_send ~self ~cmd:(selector "preferredSymbolConfigurationForImage") ~typ:(returning id) +let setActivityIndicatorColorTransformer x self = msg_send ~self ~cmd:(selector "setActivityIndicatorColorTransformer:") ~typ:((ptr void) @-> returning void) x +let setAttributedSubtitle x self = msg_send ~self ~cmd:(selector "setAttributedSubtitle:") ~typ:(id @-> returning void) x +let setAttributedTitle x self = msg_send ~self ~cmd:(selector "setAttributedTitle:") ~typ:(id @-> returning void) x +let setAutomaticallyUpdateForSelection x self = msg_send ~self ~cmd:(selector "setAutomaticallyUpdateForSelection:") ~typ:(bool @-> returning void) x +let setBackground x self = msg_send ~self ~cmd:(selector "setBackground:") ~typ:(id @-> returning void) x +let setBaseBackgroundColor x self = msg_send ~self ~cmd:(selector "setBaseBackgroundColor:") ~typ:(id @-> returning void) x +let setBaseForegroundColor x self = msg_send ~self ~cmd:(selector "setBaseForegroundColor:") ~typ:(id @-> returning void) x +let setButtonSize x self = msg_send ~self ~cmd:(selector "setButtonSize:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContentInsets x self = msg_send ~self ~cmd:(selector "setContentInsets:") ~typ:(NSDirectionalEdgeInsets.t @-> returning void) x +let setCornerStyle x self = msg_send ~self ~cmd:(selector "setCornerStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setDefaultContentInsets self = msg_send ~self ~cmd:(selector "setDefaultContentInsets") ~typ:(returning void) +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setImageColorTransformer x self = msg_send ~self ~cmd:(selector "setImageColorTransformer:") ~typ:((ptr void) @-> returning void) x +let setImagePadding x self = msg_send ~self ~cmd:(selector "setImagePadding:") ~typ:(double @-> returning void) x +let setImagePlacement x self = msg_send ~self ~cmd:(selector "setImagePlacement:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setImageReservation x self = msg_send ~self ~cmd:(selector "setImageReservation:") ~typ:(double @-> returning void) x +let setMacIdiomStyle x self = msg_send ~self ~cmd:(selector "setMacIdiomStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPreferredSymbolConfigurationForImage x self = msg_send ~self ~cmd:(selector "setPreferredSymbolConfigurationForImage:") ~typ:(id @-> returning void) x +let setShowsActivityIndicator x self = msg_send ~self ~cmd:(selector "setShowsActivityIndicator:") ~typ:(bool @-> returning void) x +let setSubtitle x self = msg_send ~self ~cmd:(selector "setSubtitle:") ~typ:(id @-> returning void) x +let setSubtitleLineBreakMode x self = msg_send ~self ~cmd:(selector "setSubtitleLineBreakMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSubtitleTextAttributesTransformer x self = msg_send ~self ~cmd:(selector "setSubtitleTextAttributesTransformer:") ~typ:((ptr void) @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let setTitleAlignment x self = msg_send ~self ~cmd:(selector "setTitleAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTitleLineBreakMode x self = msg_send ~self ~cmd:(selector "setTitleLineBreakMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTitlePadding x self = msg_send ~self ~cmd:(selector "setTitlePadding:") ~typ:(double @-> returning void) x +let setTitleTextAttributesTransformer x self = msg_send ~self ~cmd:(selector "setTitleTextAttributesTransformer:") ~typ:((ptr void) @-> returning void) x +let showsActivityIndicator self = msg_send ~self ~cmd:(selector "showsActivityIndicator") ~typ:(returning bool) +let subtitle self = msg_send ~self ~cmd:(selector "subtitle") ~typ:(returning id) +let subtitleLineBreakMode self = msg_send ~self ~cmd:(selector "subtitleLineBreakMode") ~typ:(returning llong) let subtitleTextAttributesTransformer self = msg_send ~self ~cmd:(selector "subtitleTextAttributesTransformer") ~typ:(returning (ptr void)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let titleAlignment self = msg_send ~self ~cmd:(selector "titleAlignment") ~typ:(returning (llong)) -let titleLineBreakMode self = msg_send ~self ~cmd:(selector "titleLineBreakMode") ~typ:(returning (llong)) -let titlePadding self = msg_send ~self ~cmd:(selector "titlePadding") ~typ:(returning (double)) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let titleAlignment self = msg_send ~self ~cmd:(selector "titleAlignment") ~typ:(returning llong) +let titleLineBreakMode self = msg_send ~self ~cmd:(selector "titleLineBreakMode") ~typ:(returning llong) +let titlePadding self = msg_send ~self ~cmd:(selector "titlePadding") ~typ:(returning double) let titleTextAttributesTransformer self = msg_send ~self ~cmd:(selector "titleTextAttributesTransformer") ~typ:(returning (ptr void)) -let updatedConfigurationForButton x self = msg_send ~self ~cmd:(selector "updatedConfigurationForButton:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let updatedConfigurationForButton x self = msg_send ~self ~cmd:(selector "updatedConfigurationForButton:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIButtonConfigurationClass.ml b/uikit/UIButtonConfigurationClass.ml new file mode 100644 index 00000000..99388fbc --- /dev/null +++ b/uikit/UIButtonConfigurationClass.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibuttonconfiguration?language=objc}UIButtonConfiguration} *) + +let borderedButtonConfiguration self = msg_send ~self ~cmd:(selector "borderedButtonConfiguration") ~typ:(returning id) +let borderedProminentButtonConfiguration self = msg_send ~self ~cmd:(selector "borderedProminentButtonConfiguration") ~typ:(returning id) +let borderedTintedButtonConfiguration self = msg_send ~self ~cmd:(selector "borderedTintedButtonConfiguration") ~typ:(returning id) +let borderlessButtonConfiguration self = msg_send ~self ~cmd:(selector "borderlessButtonConfiguration") ~typ:(returning id) +let filledButtonConfiguration self = msg_send ~self ~cmd:(selector "filledButtonConfiguration") ~typ:(returning id) +let grayButtonConfiguration self = msg_send ~self ~cmd:(selector "grayButtonConfiguration") ~typ:(returning id) +let plainButtonConfiguration self = msg_send ~self ~cmd:(selector "plainButtonConfiguration") ~typ:(returning id) +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) +let tintedButtonConfiguration self = msg_send ~self ~cmd:(selector "tintedButtonConfiguration") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIButtonConfigurationVisualProvider.ml b/uikit/UIButtonConfigurationVisualProvider.ml deleted file mode 100644 index 768b59d5..00000000 --- a/uikit/UIButtonConfigurationVisualProvider.ml +++ /dev/null @@ -1,95 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIButtonConfigurationVisualProvider" - -module C = struct - let requiresNewVisualProviderForChanges self = msg_send ~self ~cmd:(selector "requiresNewVisualProviderForChanges") ~typ:(returning (bool)) - let shouldUpdateContextMenuEnabledOnMenuChanges self = msg_send ~self ~cmd:(selector "shouldUpdateContextMenuEnabledOnMenuChanges") ~typ:(returning (bool)) - let visualProviderForButton x self = msg_send ~self ~cmd:(selector "visualProviderForButton:") ~typ:(id @-> returning (id)) x - let wantsConfigurationUpdateForButtonShapes self = msg_send ~self ~cmd:(selector "wantsConfigurationUpdateForButtonShapes") ~typ:(returning (bool)) -end - -let adjustsFontForContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsFontForContentSizeCategory") ~typ:(returning (bool)) -let applyConfiguration self = msg_send ~self ~cmd:(selector "applyConfiguration") ~typ:(returning (void)) -let automaticallyUpdateConfigurationIfNecessary x self = msg_send ~self ~cmd:(selector "automaticallyUpdateConfigurationIfNecessary:") ~typ:(id @-> returning (void)) x -let backgroundViewCreateIfNeeded x self = msg_send ~self ~cmd:(selector "backgroundViewCreateIfNeeded:") ~typ:(bool @-> returning (id)) x -let button self = msg_send ~self ~cmd:(selector "button") ~typ:(returning (id)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let cleanupForVisualProvider x self = msg_send ~self ~cmd:(selector "cleanupForVisualProvider:") ~typ:(id @-> returning (void)) x -let contentBackdropView self = msg_send ~self ~cmd:(selector "contentBackdropView") ~typ:(returning (id)) -let contentRectForBounds x self = msg_send_stret ~self ~cmd:(selector "contentRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let contextMenuInteraction x ~configurationForMenuAtLocation self = msg_send ~self ~cmd:(selector "contextMenuInteraction:configurationForMenuAtLocation:") ~typ:(id @-> CGPoint.t @-> returning (id)) x configurationForMenuAtLocation -let contextMenuInteraction1 x ~previewForDismissingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForDismissingMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) x previewForDismissingMenuWithConfiguration -let contextMenuInteraction2 x ~previewForHighlightingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForHighlightingMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) x previewForHighlightingMenuWithConfiguration -let contextMenuInteraction3 x ~updateStyleForMenuWithConfiguration ~style self = msg_send ~self ~cmd:(selector "contextMenuInteraction:updateStyleForMenuWithConfiguration:style:") ~typ:(id @-> id @-> id @-> returning (void)) x updateStyleForMenuWithConfiguration style -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultFocusEffect self = msg_send ~self ~cmd:(selector "defaultFocusEffect") ~typ:(returning (id)) -let didChangeFromIdiom x ~onScreen ~traverseHierarchy self = msg_send ~self ~cmd:(selector "didChangeFromIdiom:onScreen:traverseHierarchy:") ~typ:(llong @-> id @-> bool @-> returning (void)) (LLong.of_int x) onScreen traverseHierarchy -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let effectiveContentView self = msg_send ~self ~cmd:(selector "effectiveContentView") ~typ:(returning (id)) -let hasBaseline self = msg_send ~self ~cmd:(selector "hasBaseline") ~typ:(returning (bool)) -let hasMultilineText self = msg_send ~self ~cmd:(selector "hasMultilineText") ~typ:(returning (bool)) -let imageRectForContentRect x self = msg_send_stret ~self ~cmd:(selector "imageRectForContentRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let imageViewCreateIfNeeded x self = msg_send ~self ~cmd:(selector "imageViewCreateIfNeeded:") ~typ:(bool @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let intrinsicContentSizeInvalidatedForChildView x self = msg_send ~self ~cmd:(selector "intrinsicContentSizeInvalidatedForChildView:") ~typ:(id @-> returning (void)) x -let intrinsicSizeWithinSize x self = msg_send_stret ~self ~cmd:(selector "intrinsicSizeWithinSize:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let invalidateLayoutData self = msg_send ~self ~cmd:(selector "invalidateLayoutData") ~typ:(returning (void)) -let isOn self = msg_send ~self ~cmd:(selector "isOn") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let menuAttachmentPointForConfiguration x self = msg_send_stret ~self ~cmd:(selector "menuAttachmentPointForConfiguration:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let pointerEffectPreviewParameters self = msg_send ~self ~cmd:(selector "pointerEffectPreviewParameters") ~typ:(returning (id)) -let pointerEffectWithPreview x self = msg_send ~self ~cmd:(selector "pointerEffectWithPreview:") ~typ:(id @-> returning (id)) x -let pointerShapeInContainer x ~proposal self = msg_send ~self ~cmd:(selector "pointerShapeInContainer:proposal:") ~typ:(id @-> ptr void @-> returning (id)) x proposal -let pointerWillEnter x self = msg_send ~self ~cmd:(selector "pointerWillEnter:") ~typ:(id @-> returning (void)) x -let pointerWillExit x self = msg_send ~self ~cmd:(selector "pointerWillExit:") ~typ:(id @-> returning (void)) x -let preferredConfigurationForFocusAnimation x ~inContext self = msg_send ~self ~cmd:(selector "preferredConfigurationForFocusAnimation:inContext:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) inContext -let previousFirstBaselineOffsetForAttributeLowering self = msg_send ~self ~cmd:(selector "previousFirstBaselineOffsetForAttributeLowering") ~typ:(returning (double)) -let previousLastBaselineOffsetForAttributeLowering self = msg_send ~self ~cmd:(selector "previousLastBaselineOffsetForAttributeLowering") ~typ:(returning (double)) -let selectionIndicatorView self = msg_send ~self ~cmd:(selector "selectionIndicatorView") ~typ:(returning (id)) -let setAttributedTitle x ~forState self = msg_send ~self ~cmd:(selector "setAttributedTitle:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setButton x self = msg_send ~self ~cmd:(selector "setButton:") ~typ:(id @-> returning (void)) x -let setContentHorizontalAlignment x self = msg_send ~self ~cmd:(selector "setContentHorizontalAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContentHuggingPriorities x self = msg_send ~self ~cmd:(selector "setContentHuggingPriorities:") ~typ:(CGSize.t @-> returning (void)) x -let setContentVerticalAlignment x self = msg_send ~self ~cmd:(selector "setContentVerticalAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContextMenuIsPrimary x self = msg_send ~self ~cmd:(selector "setContextMenuIsPrimary:") ~typ:(bool @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setHighlighted x ~animated self = msg_send ~self ~cmd:(selector "setHighlighted:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setImage x ~forState self = msg_send ~self ~cmd:(selector "setImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning (void)) x -let setMenuProvider x self = msg_send ~self ~cmd:(selector "setMenuProvider:") ~typ:(ptr void @-> returning (void)) x -let setNeedsUpdateConfiguration self = msg_send ~self ~cmd:(selector "setNeedsUpdateConfiguration") ~typ:(returning (void)) -let setOn x self = msg_send ~self ~cmd:(selector "setOn:") ~typ:(bool @-> returning (void)) x -let setPreferredSymbolConfiguration x ~forImageInState self = msg_send ~self ~cmd:(selector "setPreferredSymbolConfiguration:forImageInState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forImageInState) -let setPreviousFirstBaselineOffsetForAttributeLowering x self = msg_send ~self ~cmd:(selector "setPreviousFirstBaselineOffsetForAttributeLowering:") ~typ:(double @-> returning (void)) x -let setPreviousLastBaselineOffsetForAttributeLowering x self = msg_send ~self ~cmd:(selector "setPreviousLastBaselineOffsetForAttributeLowering:") ~typ:(double @-> returning (void)) x -let setReversesTitleShadowWhenHighlighted x self = msg_send ~self ~cmd:(selector "setReversesTitleShadowWhenHighlighted:") ~typ:(bool @-> returning (void)) x -let setRole x self = msg_send ~self ~cmd:(selector "setRole:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShowsTouchWhenHighlighted x self = msg_send ~self ~cmd:(selector "setShowsTouchWhenHighlighted:") ~typ:(bool @-> returning (void)) x -let setTitle x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setVendsBaselineInformationToAutoLayout x self = msg_send ~self ~cmd:(selector "setVendsBaselineInformationToAutoLayout:") ~typ:(bool @-> returning (void)) x -let setWidthForMultilineTextLayout x self = msg_send ~self ~cmd:(selector "setWidthForMultilineTextLayout:") ~typ:(double @-> returning (void)) x -let subtitleViewCreateIfNeeded x self = msg_send ~self ~cmd:(selector "subtitleViewCreateIfNeeded:") ~typ:(bool @-> returning (id)) x -let systemLayoutSizeFittingSize x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send_stret ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning (CGSize.t)) ~return_type:CGSize.t x withHorizontalFittingPriority verticalFittingPriority -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let titleRectForContentRect x self = msg_send_stret ~self ~cmd:(selector "titleRectForContentRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let titleViewCreateIfNeeded x self = msg_send ~self ~cmd:(selector "titleViewCreateIfNeeded:") ~typ:(bool @-> returning (id)) x -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateBaselineInformationDependentOnBounds self = msg_send ~self ~cmd:(selector "updateBaselineInformationDependentOnBounds") ~typ:(returning (void)) -let updateConfigurationIfNecessary self = msg_send ~self ~cmd:(selector "updateConfigurationIfNecessary") ~typ:(returning (void)) -let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning (void)) -let useTitleForSelectedIndicatorBounds self = msg_send ~self ~cmd:(selector "useTitleForSelectedIndicatorBounds") ~typ:(returning (bool)) -let vendsBaselineInformationToAutoLayout self = msg_send ~self ~cmd:(selector "vendsBaselineInformationToAutoLayout") ~typ:(returning (bool)) -let viewForFirstBaselineLayout self = msg_send ~self ~cmd:(selector "viewForFirstBaselineLayout") ~typ:(returning (id)) -let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning (id)) -let widthForMultilineTextLayout self = msg_send ~self ~cmd:(selector "widthForMultilineTextLayout") ~typ:(returning (double)) -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIButtonConfigurationVisualProviderTVOS.ml b/uikit/UIButtonConfigurationVisualProviderTVOS.ml deleted file mode 100644 index 6b5c5c30..00000000 --- a/uikit/UIButtonConfigurationVisualProviderTVOS.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIButtonConfigurationVisualProviderTVOS" - -let cleanupForVisualProvider x self = msg_send ~self ~cmd:(selector "cleanupForVisualProvider:") ~typ:(id @-> returning (void)) x -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let effectiveContentView self = msg_send ~self ~cmd:(selector "effectiveContentView") ~typ:(returning (id)) -let floatingContentView x ~isTransitioningFromState ~toState self = msg_send ~self ~cmd:(selector "floatingContentView:isTransitioningFromState:toState:") ~typ:(id @-> ullong @-> ullong @-> returning (void)) x (ULLong.of_int isTransitioningFromState) (ULLong.of_int toState) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setHighlighted x ~animated self = msg_send ~self ~cmd:(selector "setHighlighted:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIButtonContent.ml b/uikit/UIButtonContent.ml index 5aae7181..79f59443 100644 --- a/uikit/UIButtonContent.ml +++ b/uikit/UIButtonContent.ml @@ -5,32 +5,36 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIButtonContent" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibuttoncontent?language=objc}UIButtonContent} *) -let attributedTitle self = msg_send ~self ~cmd:(selector "attributedTitle") ~typ:(returning (id)) -let background self = msg_send ~self ~cmd:(selector "background") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let drawingStroke self = msg_send ~self ~cmd:(selector "drawingStroke") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let imageColor self = msg_send ~self ~cmd:(selector "imageColor") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEmpty self = msg_send ~self ~cmd:(selector "isEmpty") ~typ:(returning (bool)) -let letterpressStyle self = msg_send ~self ~cmd:(selector "letterpressStyle") ~typ:(returning (id)) -let preferredSymbolConfiguration self = msg_send ~self ~cmd:(selector "preferredSymbolConfiguration") ~typ:(returning (id)) -let setAttributedTitle x self = msg_send ~self ~cmd:(selector "setAttributedTitle:") ~typ:(id @-> returning (void)) x -let setBackground x self = msg_send ~self ~cmd:(selector "setBackground:") ~typ:(id @-> returning (void)) x -let setDrawingStroke x self = msg_send ~self ~cmd:(selector "setDrawingStroke:") ~typ:(id @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setImageColor x self = msg_send ~self ~cmd:(selector "setImageColor:") ~typ:(id @-> returning (void)) x -let setLetterpressStyle x self = msg_send ~self ~cmd:(selector "setLetterpressStyle:") ~typ:(id @-> returning (void)) x -let setPreferredSymbolConfiguration x self = msg_send ~self ~cmd:(selector "setPreferredSymbolConfiguration:") ~typ:(id @-> returning (void)) x -let setShadowColor x self = msg_send ~self ~cmd:(selector "setShadowColor:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setTitleColor x self = msg_send ~self ~cmd:(selector "setTitleColor:") ~typ:(id @-> returning (void)) x -let shadowColor self = msg_send ~self ~cmd:(selector "shadowColor") ~typ:(returning (id)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let titleColor self = msg_send ~self ~cmd:(selector "titleColor") ~typ:(returning (id)) -let updateVariableLengthStringForView x self = msg_send ~self ~cmd:(selector "updateVariableLengthStringForView:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let self = get_class "UIButtonContent" + +let attributedTitle self = msg_send ~self ~cmd:(selector "attributedTitle") ~typ:(returning id) +let background self = msg_send ~self ~cmd:(selector "background") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let drawingStroke self = msg_send ~self ~cmd:(selector "drawingStroke") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let imageColor self = msg_send ~self ~cmd:(selector "imageColor") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEmpty self = msg_send ~self ~cmd:(selector "isEmpty") ~typ:(returning bool) +let letterpressStyle self = msg_send ~self ~cmd:(selector "letterpressStyle") ~typ:(returning id) +let preferredSymbolConfiguration self = msg_send ~self ~cmd:(selector "preferredSymbolConfiguration") ~typ:(returning id) +let setAttributedTitle x self = msg_send ~self ~cmd:(selector "setAttributedTitle:") ~typ:(id @-> returning void) x +let setBackground x self = msg_send ~self ~cmd:(selector "setBackground:") ~typ:(id @-> returning void) x +let setDrawingStroke x self = msg_send ~self ~cmd:(selector "setDrawingStroke:") ~typ:(id @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setImageColor x self = msg_send ~self ~cmd:(selector "setImageColor:") ~typ:(id @-> returning void) x +let setLetterpressStyle x self = msg_send ~self ~cmd:(selector "setLetterpressStyle:") ~typ:(id @-> returning void) x +let setPreferredSymbolConfiguration x self = msg_send ~self ~cmd:(selector "setPreferredSymbolConfiguration:") ~typ:(id @-> returning void) x +let setShadowColor x self = msg_send ~self ~cmd:(selector "setShadowColor:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let setTitleColor x self = msg_send ~self ~cmd:(selector "setTitleColor:") ~typ:(id @-> returning void) x +let shadowColor self = msg_send ~self ~cmd:(selector "shadowColor") ~typ:(returning id) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let titleColor self = msg_send ~self ~cmd:(selector "titleColor") ~typ:(returning id) +let updateVariableLengthStringForView x self = msg_send ~self ~cmd:(selector "updateVariableLengthStringForView:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIButtonLabel.ml b/uikit/UIButtonLabel.ml index e5f753c3..15ada75f 100644 --- a/uikit/UIButtonLabel.ml +++ b/uikit/UIButtonLabel.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIButtonLabel" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibuttonlabel?language=objc}UIButtonLabel} *) -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning (void)) x -let setNumberOfLines x self = msg_send ~self ~cmd:(selector "setNumberOfLines:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setReverseShadow x self = msg_send ~self ~cmd:(selector "setReverseShadow:") ~typ:(bool @-> returning (void)) x -let setShadowOffset x self = msg_send ~self ~cmd:(selector "setShadowOffset:") ~typ:(CGSize.t @-> returning (void)) x -let shadowOffset self = msg_send_stret ~self ~cmd:(selector "shadowOffset") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t \ No newline at end of file +let self = get_class "UIButtonLabel" + +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning void) x +let setNumberOfLines x self = msg_send ~self ~cmd:(selector "setNumberOfLines:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setReverseShadow x self = msg_send ~self ~cmd:(selector "setReverseShadow:") ~typ:(bool @-> returning void) x +let setShadowOffset x self = msg_send ~self ~cmd:(selector "setShadowOffset:") ~typ:(CGSize.t @-> returning void) x +let shadowOffset self = msg_send ~self ~cmd:(selector "shadowOffset") ~typ:(returning CGSize.t) \ No newline at end of file diff --git a/uikit/UIButtonLegacyVisualProvider.ml b/uikit/UIButtonLegacyVisualProvider.ml deleted file mode 100644 index e096fd27..00000000 --- a/uikit/UIButtonLegacyVisualProvider.ml +++ /dev/null @@ -1,94 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIButtonLegacyVisualProvider" - -module C = struct - let requiresNewVisualProviderForChanges self = msg_send ~self ~cmd:(selector "requiresNewVisualProviderForChanges") ~typ:(returning (bool)) - let shouldUpdateContextMenuEnabledOnMenuChanges self = msg_send ~self ~cmd:(selector "shouldUpdateContextMenuEnabledOnMenuChanges") ~typ:(returning (bool)) - let visualProviderForButton x self = msg_send ~self ~cmd:(selector "visualProviderForButton:") ~typ:(id @-> returning (id)) x -end - -let adjustsFontForContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsFontForContentSizeCategory") ~typ:(returning (bool)) -let backgroundRectForBounds x self = msg_send_stret ~self ~cmd:(selector "backgroundRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let backgroundViewCreateIfNeeded x self = msg_send ~self ~cmd:(selector "backgroundViewCreateIfNeeded:") ~typ:(bool @-> returning (id)) x -let button self = msg_send ~self ~cmd:(selector "button") ~typ:(returning (id)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let cleanupForVisualProvider x self = msg_send ~self ~cmd:(selector "cleanupForVisualProvider:") ~typ:(id @-> returning (void)) x -let contentBackdropView self = msg_send ~self ~cmd:(selector "contentBackdropView") ~typ:(returning (id)) -let contentRectForBounds x self = msg_send_stret ~self ~cmd:(selector "contentRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let contextMenuInteraction x ~configurationForMenuAtLocation self = msg_send ~self ~cmd:(selector "contextMenuInteraction:configurationForMenuAtLocation:") ~typ:(id @-> CGPoint.t @-> returning (id)) x configurationForMenuAtLocation -let contextMenuInteraction1 x ~previewForDismissingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForDismissingMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) x previewForDismissingMenuWithConfiguration -let contextMenuInteraction2 x ~previewForHighlightingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForHighlightingMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) x previewForHighlightingMenuWithConfiguration -let contextMenuInteraction3 x ~updateStyleForMenuWithConfiguration ~style self = msg_send ~self ~cmd:(selector "contextMenuInteraction:updateStyleForMenuWithConfiguration:style:") ~typ:(id @-> id @-> id @-> returning (void)) x updateStyleForMenuWithConfiguration style -let currentImageWithResolvedConfiguration self = msg_send ~self ~cmd:(selector "currentImageWithResolvedConfiguration") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultFocusEffect self = msg_send ~self ~cmd:(selector "defaultFocusEffect") ~typ:(returning (id)) -let deferToLazyTitleFont self = msg_send ~self ~cmd:(selector "deferToLazyTitleFont") ~typ:(returning (bool)) -let didChangeFromIdiom x ~onScreen ~traverseHierarchy self = msg_send ~self ~cmd:(selector "didChangeFromIdiom:onScreen:traverseHierarchy:") ~typ:(llong @-> id @-> bool @-> returning (void)) (LLong.of_int x) onScreen traverseHierarchy -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let effectiveContentView self = msg_send ~self ~cmd:(selector "effectiveContentView") ~typ:(returning (id)) -let encodableSubviews self = msg_send ~self ~cmd:(selector "encodableSubviews") ~typ:(returning (id)) -let floatingContentView x ~isTransitioningFromState ~toState self = msg_send ~self ~cmd:(selector "floatingContentView:isTransitioningFromState:toState:") ~typ:(id @-> ullong @-> ullong @-> returning (void)) x (ULLong.of_int isTransitioningFromState) (ULLong.of_int toState) -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let fontIsDefaultForIdiom self = msg_send ~self ~cmd:(selector "fontIsDefaultForIdiom") ~typ:(returning (bool)) -let highlightBounds self = msg_send_stret ~self ~cmd:(selector "highlightBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let imageRectForContentRect x self = msg_send_stret ~self ~cmd:(selector "imageRectForContentRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let imageViewCreateIfNeeded x self = msg_send ~self ~cmd:(selector "imageViewCreateIfNeeded:") ~typ:(bool @-> returning (id)) x -let intrinsicContentSizeInvalidatedForChildView x self = msg_send ~self ~cmd:(selector "intrinsicContentSizeInvalidatedForChildView:") ~typ:(id @-> returning (void)) x -let intrinsicSizeWithinSize x self = msg_send_stret ~self ~cmd:(selector "intrinsicSizeWithinSize:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let isOn self = msg_send ~self ~cmd:(selector "isOn") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let lineBreakMode self = msg_send ~self ~cmd:(selector "lineBreakMode") ~typ:(returning (llong)) -let menuAttachmentPointForConfiguration x self = msg_send_stret ~self ~cmd:(selector "menuAttachmentPointForConfiguration:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let pointerEffectPreviewParameters self = msg_send ~self ~cmd:(selector "pointerEffectPreviewParameters") ~typ:(returning (id)) -let pointerEffectWithPreview x self = msg_send ~self ~cmd:(selector "pointerEffectWithPreview:") ~typ:(id @-> returning (id)) x -let pointerShapeInContainer x ~proposal self = msg_send ~self ~cmd:(selector "pointerShapeInContainer:proposal:") ~typ:(id @-> ptr void @-> returning (id)) x proposal -let pointerWillEnter x self = msg_send ~self ~cmd:(selector "pointerWillEnter:") ~typ:(id @-> returning (void)) x -let pointerWillExit x self = msg_send ~self ~cmd:(selector "pointerWillExit:") ~typ:(id @-> returning (void)) x -let populateArchivedSubviews x self = msg_send ~self ~cmd:(selector "populateArchivedSubviews:") ~typ:(id @-> returning (void)) x -let preferredConfigurationForFocusAnimation x ~inContext self = msg_send ~self ~cmd:(selector "preferredConfigurationForFocusAnimation:inContext:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) inContext -let selectionIndicatorView self = msg_send ~self ~cmd:(selector "selectionIndicatorView") ~typ:(returning (id)) -let setAttributedTitle x ~forState self = msg_send ~self ~cmd:(selector "setAttributedTitle:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setBlurEnabled x self = msg_send ~self ~cmd:(selector "setBlurEnabled:") ~typ:(bool @-> returning (void)) x -let setButton x self = msg_send ~self ~cmd:(selector "setButton:") ~typ:(id @-> returning (void)) x -let setContentHorizontalAlignment x self = msg_send ~self ~cmd:(selector "setContentHorizontalAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContentHuggingPriorities x self = msg_send ~self ~cmd:(selector "setContentHuggingPriorities:") ~typ:(CGSize.t @-> returning (void)) x -let setContentVerticalAlignment x self = msg_send ~self ~cmd:(selector "setContentVerticalAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContextMenuIsPrimary x self = msg_send ~self ~cmd:(selector "setContextMenuIsPrimary:") ~typ:(bool @-> returning (void)) x -let setDrawingStroke x ~forState self = msg_send ~self ~cmd:(selector "setDrawingStroke:forState:") ~typ:(double @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setExternalFlatEdge x self = msg_send ~self ~cmd:(selector "setExternalFlatEdge:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setFont x ~isDefaultForIdiom self = msg_send ~self ~cmd:(selector "setFont:isDefaultForIdiom:") ~typ:(id @-> bool @-> returning (void)) x isDefaultForIdiom -let setHighlighted x ~animated self = msg_send ~self ~cmd:(selector "setHighlighted:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setImage x ~forState self = msg_send ~self ~cmd:(selector "setImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setImageContentMode x self = msg_send ~self ~cmd:(selector "setImageContentMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setLineBreakMode x self = msg_send ~self ~cmd:(selector "setLineBreakMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning (void)) x -let setMenuProvider x self = msg_send ~self ~cmd:(selector "setMenuProvider:") ~typ:(ptr void @-> returning (void)) x -let setOn x self = msg_send ~self ~cmd:(selector "setOn:") ~typ:(bool @-> returning (void)) x -let setPreferredSymbolConfiguration x ~forImageInState self = msg_send ~self ~cmd:(selector "setPreferredSymbolConfiguration:forImageInState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forImageInState) -let setReversesTitleShadowWhenHighlighted x self = msg_send ~self ~cmd:(selector "setReversesTitleShadowWhenHighlighted:") ~typ:(bool @-> returning (void)) x -let setRole x self = msg_send ~self ~cmd:(selector "setRole:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShowsTouchWhenHighlighted x self = msg_send ~self ~cmd:(selector "setShowsTouchWhenHighlighted:") ~typ:(bool @-> returning (void)) x -let setTitle x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setTitleShadowOffset x self = msg_send ~self ~cmd:(selector "setTitleShadowOffset:") ~typ:(CGSize.t @-> returning (void)) x -let setVisualEffectViewEnabled x ~backgroundColor self = msg_send ~self ~cmd:(selector "setVisualEffectViewEnabled:backgroundColor:") ~typ:(bool @-> id @-> returning (void)) x backgroundColor -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let titleRectForContentRect x self = msg_send_stret ~self ~cmd:(selector "titleRectForContentRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let titleShadowOffset self = msg_send_stret ~self ~cmd:(selector "titleShadowOffset") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let titleViewCreateIfNeeded x self = msg_send ~self ~cmd:(selector "titleViewCreateIfNeeded:") ~typ:(bool @-> returning (id)) x -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning (void)) -let useTitleForSelectedIndicatorBounds self = msg_send ~self ~cmd:(selector "useTitleForSelectedIndicatorBounds") ~typ:(returning (bool)) -let viewForFirstBaselineLayout self = msg_send ~self ~cmd:(selector "viewForFirstBaselineLayout") ~typ:(returning (id)) -let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning (id)) -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIButtonMacLegacyVisualProvider.ml b/uikit/UIButtonMacLegacyVisualProvider.ml deleted file mode 100644 index 0ec97366..00000000 --- a/uikit/UIButtonMacLegacyVisualProvider.ml +++ /dev/null @@ -1,43 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIButtonMacLegacyVisualProvider" - -module C = struct - let requiresNewVisualProviderForChanges self = msg_send ~self ~cmd:(selector "requiresNewVisualProviderForChanges") ~typ:(returning (bool)) - let shouldUpdateContextMenuEnabledOnMenuChanges self = msg_send ~self ~cmd:(selector "shouldUpdateContextMenuEnabledOnMenuChanges") ~typ:(returning (bool)) - let visualProviderForButton x self = msg_send ~self ~cmd:(selector "visualProviderForButton:") ~typ:(id @-> returning (id)) x -end - -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let cleanupForVisualProvider x self = msg_send ~self ~cmd:(selector "cleanupForVisualProvider:") ~typ:(id @-> returning (void)) x -let contextMenuInteraction x ~configurationForMenuAtLocation self = msg_send ~self ~cmd:(selector "contextMenuInteraction:configurationForMenuAtLocation:") ~typ:(id @-> CGPoint.t @-> returning (id)) x configurationForMenuAtLocation -let contextMenuInteraction1 x ~previewForDismissingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForDismissingMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) x previewForDismissingMenuWithConfiguration -let contextMenuInteraction2 x ~previewForHighlightingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForHighlightingMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) x previewForHighlightingMenuWithConfiguration -let contextMenuInteraction3 x ~updateStyleForMenuWithConfiguration ~style self = msg_send ~self ~cmd:(selector "contextMenuInteraction:updateStyleForMenuWithConfiguration:style:") ~typ:(id @-> id @-> id @-> returning (void)) x updateStyleForMenuWithConfiguration style -let effectiveContentView self = msg_send ~self ~cmd:(selector "effectiveContentView") ~typ:(returning (id)) -let initWithVisualElement x ~button self = msg_send ~self ~cmd:(selector "initWithVisualElement:button:") ~typ:(id @-> id @-> returning (id)) x button -let intrinsicSizeWithinSize x self = msg_send_stret ~self ~cmd:(selector "intrinsicSizeWithinSize:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let menuAttachmentPointForConfiguration x self = msg_send_stret ~self ~cmd:(selector "menuAttachmentPointForConfiguration:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let preferredConfigurationForFocusAnimation x ~inContext self = msg_send ~self ~cmd:(selector "preferredConfigurationForFocusAnimation:inContext:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) inContext -let setAttributedTitle x ~forState self = msg_send ~self ~cmd:(selector "setAttributedTitle:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setContextMenuIsPrimary x self = msg_send ~self ~cmd:(selector "setContextMenuIsPrimary:") ~typ:(bool @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setImage x ~forState self = msg_send ~self ~cmd:(selector "setImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning (void)) x -let setMenuProvider x self = msg_send ~self ~cmd:(selector "setMenuProvider:") ~typ:(ptr void @-> returning (void)) x -let setPreferredSymbolConfiguration x ~forImageInState self = msg_send ~self ~cmd:(selector "setPreferredSymbolConfiguration:forImageInState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forImageInState) -let setRole x self = msg_send ~self ~cmd:(selector "setRole:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setTitle x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let useTitleForSelectedIndicatorBounds self = msg_send ~self ~cmd:(selector "useTitleForSelectedIndicatorBounds") ~typ:(returning (bool)) -let viewForFirstBaselineLayout self = msg_send ~self ~cmd:(selector "viewForFirstBaselineLayout") ~typ:(returning (id)) -let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIButtonMacVisualElement.ml b/uikit/UIButtonMacVisualElement.ml deleted file mode 100644 index aa618728..00000000 --- a/uikit/UIButtonMacVisualElement.ml +++ /dev/null @@ -1,45 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIButtonMacVisualElement" - -module C = struct - let nsControlForMenuAndNonConfigurationButtons x self = msg_send ~self ~cmd:(selector "nsControlForMenuAndNonConfigurationButtons:") ~typ:(id @-> returning (id)) x - let visualElementForUIButton x self = msg_send ~self ~cmd:(selector "visualElementForUIButton:") ~typ:(id @-> returning (id)) x -end - -let bridge self = msg_send ~self ~cmd:(selector "bridge") ~typ:(returning (id)) -let button self = msg_send ~self ~cmd:(selector "button") ~typ:(returning (id)) -let buttonControl self = msg_send ~self ~cmd:(selector "buttonControl") ~typ:(returning (id)) -let contentTintColor self = msg_send ~self ~cmd:(selector "contentTintColor") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithUIButtonRepesentable x self = msg_send ~self ~cmd:(selector "initWithUIButtonRepesentable:") ~typ:(id @-> returning (id)) x -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let setAttributedTitle x ~forState self = msg_send ~self ~cmd:(selector "setAttributedTitle:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBridge x self = msg_send ~self ~cmd:(selector "setBridge:") ~typ:(id @-> returning (void)) x -let setButton x self = msg_send ~self ~cmd:(selector "setButton:") ~typ:(id @-> returning (void)) x -let setButtonControl x self = msg_send ~self ~cmd:(selector "setButtonControl:") ~typ:(id @-> returning (void)) x -let setButtonRole x self = msg_send ~self ~cmd:(selector "setButtonRole:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContentTintColor x self = msg_send ~self ~cmd:(selector "setContentTintColor:") ~typ:(id @-> returning (void)) x -let setContextMenuIsPrimary x self = msg_send ~self ~cmd:(selector "setContextMenuIsPrimary:") ~typ:(bool @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setImage x ~forState self = msg_send ~self ~cmd:(selector "setImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setSymbolConfiguration x self = msg_send ~self ~cmd:(selector "setSymbolConfiguration:") ~typ:(id @-> returning (void)) x -let setTitle x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setTitle' x ~orAttributedTitle ~forState self = msg_send ~self ~cmd:(selector "setTitle:orAttributedTitle:forState:") ~typ:(id @-> id @-> ullong @-> returning (void)) x orAttributedTitle (ULLong.of_int forState) -let setUIImageSymbolConfiguration x self = msg_send ~self ~cmd:(selector "setUIImageSymbolConfiguration:") ~typ:(id @-> returning (void)) x -let setUIMenu x self = msg_send ~self ~cmd:(selector "setUIMenu:") ~typ:(id @-> returning (void)) x -let trackingBeganAction x self = msg_send ~self ~cmd:(selector "trackingBeganAction:") ~typ:(id @-> returning (void)) x -let trackingDraggingEnterAction x self = msg_send ~self ~cmd:(selector "trackingDraggingEnterAction:") ~typ:(id @-> returning (void)) x -let trackingDraggingExitedAction x self = msg_send ~self ~cmd:(selector "trackingDraggingExitedAction:") ~typ:(id @-> returning (void)) x -let trackingEndedInsideAction x self = msg_send ~self ~cmd:(selector "trackingEndedInsideAction:") ~typ:(id @-> returning (void)) x -let trackingEndedOutsideAction x self = msg_send ~self ~cmd:(selector "trackingEndedOutsideAction:") ~typ:(id @-> returning (void)) x -let trackingInsideAction x self = msg_send ~self ~cmd:(selector "trackingInsideAction:") ~typ:(id @-> returning (void)) x -let trackingOutsideAction x self = msg_send ~self ~cmd:(selector "trackingOutsideAction:") ~typ:(id @-> returning (void)) x -let willPopUpNotification x self = msg_send ~self ~cmd:(selector "willPopUpNotification:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIButtonMacVisualProvider.ml b/uikit/UIButtonMacVisualProvider.ml deleted file mode 100644 index 616c3d51..00000000 --- a/uikit/UIButtonMacVisualProvider.ml +++ /dev/null @@ -1,40 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIButtonMacVisualProvider" - -module C = struct - let visualProviderForButton x self = msg_send ~self ~cmd:(selector "visualProviderForButton:") ~typ:(id @-> returning (id)) x -end - -let applyConfiguration self = msg_send ~self ~cmd:(selector "applyConfiguration") ~typ:(returning (void)) -let automaticallyUpdateConfigurationIfNecessary x self = msg_send ~self ~cmd:(selector "automaticallyUpdateConfigurationIfNecessary:") ~typ:(id @-> returning (void)) x -let hasBaseline self = msg_send ~self ~cmd:(selector "hasBaseline") ~typ:(returning (bool)) -let hasMultilineText self = msg_send ~self ~cmd:(selector "hasMultilineText") ~typ:(returning (bool)) -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let intrinsicSizeWithinSize x self = msg_send_stret ~self ~cmd:(selector "intrinsicSizeWithinSize:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let invalidateLayoutData self = msg_send ~self ~cmd:(selector "invalidateLayoutData") ~typ:(returning (void)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let previousFirstBaselineOffsetForAttributeLowering self = msg_send ~self ~cmd:(selector "previousFirstBaselineOffsetForAttributeLowering") ~typ:(returning (double)) -let previousLastBaselineOffsetForAttributeLowering self = msg_send ~self ~cmd:(selector "previousLastBaselineOffsetForAttributeLowering") ~typ:(returning (double)) -let resetSavedCornerPadding self = msg_send ~self ~cmd:(selector "resetSavedCornerPadding") ~typ:(returning (void)) -let setAttributedTitle x ~forState self = msg_send ~self ~cmd:(selector "setAttributedTitle:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setNeedsUpdateConfiguration self = msg_send ~self ~cmd:(selector "setNeedsUpdateConfiguration") ~typ:(returning (void)) -let setPreviousFirstBaselineOffsetForAttributeLowering x self = msg_send ~self ~cmd:(selector "setPreviousFirstBaselineOffsetForAttributeLowering:") ~typ:(double @-> returning (void)) x -let setPreviousLastBaselineOffsetForAttributeLowering x self = msg_send ~self ~cmd:(selector "setPreviousLastBaselineOffsetForAttributeLowering:") ~typ:(double @-> returning (void)) x -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setTitle x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setVendsBaselineInformationToAutoLayout x self = msg_send ~self ~cmd:(selector "setVendsBaselineInformationToAutoLayout:") ~typ:(bool @-> returning (void)) x -let setWidthForMultilineTextLayout x self = msg_send ~self ~cmd:(selector "setWidthForMultilineTextLayout:") ~typ:(double @-> returning (void)) x -let subtitleViewCreateIfNeeded x self = msg_send ~self ~cmd:(selector "subtitleViewCreateIfNeeded:") ~typ:(bool @-> returning (id)) x -let systemLayoutSizeFittingSize x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send_stret ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning (CGSize.t)) ~return_type:CGSize.t x withHorizontalFittingPriority verticalFittingPriority -let updateBaselineInformationDependentOnBounds self = msg_send ~self ~cmd:(selector "updateBaselineInformationDependentOnBounds") ~typ:(returning (void)) -let updateConfigurationIfNecessary self = msg_send ~self ~cmd:(selector "updateConfigurationIfNecessary") ~typ:(returning (void)) -let vendsBaselineInformationToAutoLayout self = msg_send ~self ~cmd:(selector "vendsBaselineInformationToAutoLayout") ~typ:(returning (bool)) -let widthForMultilineTextLayout self = msg_send ~self ~cmd:(selector "widthForMultilineTextLayout") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit/UICGColor.ml b/uikit/UICGColor.ml index 53b607e3..ade10c03 100644 --- a/uikit/UICGColor.ml +++ b/uikit/UICGColor.ml @@ -5,34 +5,38 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICGColor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicgcolor?language=objc}UICGColor} *) -let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr void)) -let alphaComponent self = msg_send ~self ~cmd:(selector "alphaComponent") ~typ:(returning (double)) -let blueComponent self = msg_send ~self ~cmd:(selector "blueComponent") ~typ:(returning (double)) -let brightnessComponent self = msg_send ~self ~cmd:(selector "brightnessComponent") ~typ:(returning (double)) -let colorSpace self = msg_send ~self ~cmd:(selector "colorSpace") ~typ:(returning (id)) -let colorSpaceName self = msg_send ~self ~cmd:(selector "colorSpaceName") ~typ:(returning (id)) -let colorUsingColorSpace x self = msg_send ~self ~cmd:(selector "colorUsingColorSpace:") ~typ:(id @-> returning (id)) x -let colorUsingType x self = msg_send ~self ~cmd:(selector "colorUsingType:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let colorWithAlphaComponent x self = msg_send ~self ~cmd:(selector "colorWithAlphaComponent:") ~typ:(double @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let getComponents x self = msg_send ~self ~cmd:(selector "getComponents:") ~typ:(ptr (double) @-> returning (void)) x -let getHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "getHue:saturation:brightness:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (bool)) x saturation brightness alpha -let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (bool)) x green blue alpha -let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> returning (bool)) x alpha -let greenComponent self = msg_send ~self ~cmd:(selector "greenComponent") ~typ:(returning (double)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let hueComponent self = msg_send ~self ~cmd:(selector "hueComponent") ~typ:(returning (double)) -let initWithCGColor x self = msg_send ~self ~cmd:(selector "initWithCGColor:") ~typ:(ptr void @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isPatternColor self = msg_send ~self ~cmd:(selector "isPatternColor") ~typ:(returning (bool)) -let numberOfComponents self = msg_send ~self ~cmd:(selector "numberOfComponents") ~typ:(returning (llong)) -let redComponent self = msg_send ~self ~cmd:(selector "redComponent") ~typ:(returning (double)) -let saturationComponent self = msg_send ~self ~cmd:(selector "saturationComponent") ~typ:(returning (double)) -let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning (void)) -let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning (void)) -let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UICGColor" + +let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr CGColor.t)) +let alphaComponent self = msg_send ~self ~cmd:(selector "alphaComponent") ~typ:(returning double) +let blueComponent self = msg_send ~self ~cmd:(selector "blueComponent") ~typ:(returning double) +let brightnessComponent self = msg_send ~self ~cmd:(selector "brightnessComponent") ~typ:(returning double) +let colorSpace self = msg_send ~self ~cmd:(selector "colorSpace") ~typ:(returning id) +let colorSpaceName self = msg_send ~self ~cmd:(selector "colorSpaceName") ~typ:(returning id) +let colorUsingColorSpace x self = msg_send ~self ~cmd:(selector "colorUsingColorSpace:") ~typ:(id @-> returning id) x +let colorUsingType x self = msg_send ~self ~cmd:(selector "colorUsingType:") ~typ:(llong @-> returning id) (LLong.of_int x) +let colorWithAlphaComponent x self = msg_send ~self ~cmd:(selector "colorWithAlphaComponent:") ~typ:(double @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let getComponents x self = msg_send ~self ~cmd:(selector "getComponents:") ~typ:((ptr double) @-> returning void) x +let getHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "getHue:saturation:brightness:alpha:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> (ptr double) @-> returning bool) x saturation brightness alpha +let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> (ptr double) @-> returning bool) x green blue alpha +let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:((ptr double) @-> (ptr double) @-> returning bool) x alpha +let greenComponent self = msg_send ~self ~cmd:(selector "greenComponent") ~typ:(returning double) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let hueComponent self = msg_send ~self ~cmd:(selector "hueComponent") ~typ:(returning double) +let initWithCGColor x self = msg_send ~self ~cmd:(selector "initWithCGColor:") ~typ:((ptr CGColor.t) @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isPatternColor self = msg_send ~self ~cmd:(selector "isPatternColor") ~typ:(returning bool) +let numberOfComponents self = msg_send ~self ~cmd:(selector "numberOfComponents") ~typ:(returning llong) +let redComponent self = msg_send ~self ~cmd:(selector "redComponent") ~typ:(returning double) +let saturationComponent self = msg_send ~self ~cmd:(selector "saturationComponent") ~typ:(returning double) +let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning void) +let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning void) +let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UICIColor.ml b/uikit/UICIColor.ml index edffbf6f..5079a155 100644 --- a/uikit/UICIColor.ml +++ b/uikit/UICIColor.ml @@ -5,19 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICIColor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicicolor?language=objc}UICIColor} *) -let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr void)) -let _CIColor self = msg_send ~self ~cmd:(selector "CIColor") ~typ:(returning (id)) -let colorWithAlphaComponent x self = msg_send ~self ~cmd:(selector "colorWithAlphaComponent:") ~typ:(double @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (bool)) x green blue alpha -let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> returning (bool)) x alpha -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCIColor x self = msg_send ~self ~cmd:(selector "initWithCIColor:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning (void)) -let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning (void)) -let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UICIColor" + +let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr CGColor.t)) +let _CIColor self = msg_send ~self ~cmd:(selector "CIColor") ~typ:(returning id) +let colorWithAlphaComponent x self = msg_send ~self ~cmd:(selector "colorWithAlphaComponent:") ~typ:(double @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> (ptr double) @-> returning bool) x green blue alpha +let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:((ptr double) @-> (ptr double) @-> returning bool) x alpha +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithCIColor x self = msg_send ~self ~cmd:(selector "initWithCIColor:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning void) +let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning void) +let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UICachedDeviceRGBColor.ml b/uikit/UICachedDeviceRGBColor.ml deleted file mode 100644 index 42d04d80..00000000 --- a/uikit/UICachedDeviceRGBColor.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICachedDeviceRGBColor" - -let allowsWeakReference self = msg_send ~self ~cmd:(selector "allowsWeakReference") ~typ:(returning (bool)) -let autorelease self = msg_send ~self ~cmd:(selector "autorelease") ~typ:(returning (id)) -let copy self = msg_send ~self ~cmd:(selector "copy") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let release self = msg_send ~self ~cmd:(selector "release") ~typ:(returning (void)) -let retain self = msg_send ~self ~cmd:(selector "retain") ~typ:(returning (id)) -let retainCount self = msg_send ~self ~cmd:(selector "retainCount") ~typ:(returning (ullong)) -let retainWeakReference self = msg_send ~self ~cmd:(selector "retainWeakReference") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UICachedDeviceWhiteColor.ml b/uikit/UICachedDeviceWhiteColor.ml deleted file mode 100644 index 016b8c7b..00000000 --- a/uikit/UICachedDeviceWhiteColor.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICachedDeviceWhiteColor" - -let allowsWeakReference self = msg_send ~self ~cmd:(selector "allowsWeakReference") ~typ:(returning (bool)) -let autorelease self = msg_send ~self ~cmd:(selector "autorelease") ~typ:(returning (id)) -let copy self = msg_send ~self ~cmd:(selector "copy") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let release self = msg_send ~self ~cmd:(selector "release") ~typ:(returning (void)) -let retain self = msg_send ~self ~cmd:(selector "retain") ~typ:(returning (id)) -let retainCount self = msg_send ~self ~cmd:(selector "retainCount") ~typ:(returning (ullong)) -let retainWeakReference self = msg_send ~self ~cmd:(selector "retainWeakReference") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UICachedPatternCGColor.ml b/uikit/UICachedPatternCGColor.ml deleted file mode 100644 index 2450c84e..00000000 --- a/uikit/UICachedPatternCGColor.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICachedPatternCGColor" - -let allowsWeakReference self = msg_send ~self ~cmd:(selector "allowsWeakReference") ~typ:(returning (bool)) -let autorelease self = msg_send ~self ~cmd:(selector "autorelease") ~typ:(returning (id)) -let copy self = msg_send ~self ~cmd:(selector "copy") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let release self = msg_send ~self ~cmd:(selector "release") ~typ:(returning (void)) -let retain self = msg_send ~self ~cmd:(selector "retain") ~typ:(returning (id)) -let retainCount self = msg_send ~self ~cmd:(selector "retainCount") ~typ:(returning (ullong)) -let retainWeakReference self = msg_send ~self ~cmd:(selector "retainWeakReference") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UICalloutBar.ml b/uikit/UICalloutBar.ml index 1b004e82..f77cf994 100644 --- a/uikit/UICalloutBar.ml +++ b/uikit/UICalloutBar.ml @@ -5,118 +5,111 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICalloutBar" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicalloutbar?language=objc}UICalloutBar} *) -module C = struct - let activeCalloutBar self = msg_send ~self ~cmd:(selector "activeCalloutBar") ~typ:(returning (id)) - let fadeSharedCalloutBar self = msg_send ~self ~cmd:(selector "fadeSharedCalloutBar") ~typ:(returning (void)) - let fadeSharedCalloutBarFromTargetView x self = msg_send ~self ~cmd:(selector "fadeSharedCalloutBarFromTargetView:") ~typ:(id @-> returning (void)) x - let hideSharedCalloutBar self = msg_send ~self ~cmd:(selector "hideSharedCalloutBar") ~typ:(returning (void)) - let hideSharedCalloutBarFromTargetView x self = msg_send ~self ~cmd:(selector "hideSharedCalloutBarFromTargetView:") ~typ:(id @-> returning (void)) x - let performWithoutAffectingSharedCalloutBar x self = msg_send ~self ~cmd:(selector "performWithoutAffectingSharedCalloutBar:") ~typ:(ptr void @-> returning (void)) x - let sharedCalloutBar self = msg_send ~self ~cmd:(selector "sharedCalloutBar") ~typ:(returning (id)) - let sharedCalloutBarIsVisible self = msg_send ~self ~cmd:(selector "sharedCalloutBarIsVisible") ~typ:(returning (bool)) -end +let self = get_class "UICalloutBar" -let addRectToEvade x self = msg_send ~self ~cmd:(selector "addRectToEvade:") ~typ:(CGRect.t @-> returning (void)) x -let addVerticalSeparatorAfterButton x ~usingLargeText self = msg_send ~self ~cmd:(selector "addVerticalSeparatorAfterButton:usingLargeText:") ~typ:(id @-> bool @-> returning (void)) x usingLargeText -let adjustFrameToAvoidDividerOnArrow self = msg_send ~self ~cmd:(selector "adjustFrameToAvoidDividerOnArrow") ~typ:(returning (void)) -let appear self = msg_send ~self ~cmd:(selector "appear") ~typ:(returning (void)) -let appearAnimationDidStopWithContext x self = msg_send ~self ~cmd:(selector "appearAnimationDidStopWithContext:") ~typ:(id @-> returning (void)) x -let applicationDidAddDeactivationReason x self = msg_send ~self ~cmd:(selector "applicationDidAddDeactivationReason:") ~typ:(id @-> returning (void)) x -let arrowDirection self = msg_send ~self ~cmd:(selector "arrowDirection") ~typ:(returning (int)) -let buttonHighlighted x ~highlighted self = msg_send ~self ~cmd:(selector "buttonHighlighted:highlighted:") ~typ:(id @-> bool @-> returning (void)) x highlighted -let buttonHovered x ~index ~hovered self = msg_send ~self ~cmd:(selector "buttonHovered:index:hovered:") ~typ:(id @-> llong @-> bool @-> returning (void)) x (LLong.of_int index) hovered -let buttonPressed x self = msg_send ~self ~cmd:(selector "buttonPressed:") ~typ:(id @-> returning (void)) x -let calculateControlFrameForCalloutSize x ~below self = msg_send ~self ~cmd:(selector "calculateControlFrameForCalloutSize:below:") ~typ:(CGSize.t @-> bool @-> returning (bool)) x below -let calculateControlFrameForCalloutSize' x ~right self = msg_send ~self ~cmd:(selector "calculateControlFrameForCalloutSize:right:") ~typ:(CGSize.t @-> bool @-> returning (bool)) x right -let calculateControlFrameInsideTargetRect x self = msg_send ~self ~cmd:(selector "calculateControlFrameInsideTargetRect:") ~typ:(CGSize.t @-> returning (bool)) x -let clearEvadeRects self = msg_send ~self ~cmd:(selector "clearEvadeRects") ~typ:(returning (void)) -let clearReplacements self = msg_send ~self ~cmd:(selector "clearReplacements") ~typ:(returning (void)) -let clearSupressesHorizontalMovementFrame self = msg_send ~self ~cmd:(selector "clearSupressesHorizontalMovementFrame") ~typ:(returning (void)) -let configureButtons x self = msg_send ~self ~cmd:(selector "configureButtons:") ~typ:(double @-> returning (void)) x -let configureButtonsForVerticalView x self = msg_send ~self ~cmd:(selector "configureButtonsForVerticalView:") ~typ:(double @-> returning (void)) x -let containsButtonForAction x self = msg_send ~self ~cmd:(selector "containsButtonForAction:") ~typ:(_SEL @-> returning (bool)) x -let controlFrame self = msg_send_stret ~self ~cmd:(selector "controlFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let currentAppearOrFadeContext self = msg_send ~self ~cmd:(selector "currentAppearOrFadeContext") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let extraItems self = msg_send ~self ~cmd:(selector "extraItems") ~typ:(returning (id)) -let fade self = msg_send ~self ~cmd:(selector "fade") ~typ:(returning (void)) -let fadeAnimationDidStopWithContext x ~finished self = msg_send ~self ~cmd:(selector "fadeAnimationDidStopWithContext:finished:") ~typ:(id @-> bool @-> returning (void)) x finished -let fadeFromTargetView x self = msg_send ~self ~cmd:(selector "fadeFromTargetView:") ~typ:(id @-> returning (void)) x -let fadedDueToCommand self = msg_send ~self ~cmd:(selector "fadedDueToCommand") ~typ:(returning (bool)) -let hasReplacements self = msg_send ~self ~cmd:(selector "hasReplacements") ~typ:(returning (bool)) -let hide self = msg_send ~self ~cmd:(selector "hide") ~typ:(returning (void)) -let hideFromTargetView x self = msg_send ~self ~cmd:(selector "hideFromTargetView:") ~typ:(id @-> returning (void)) x -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let indexOfButton x self = msg_send ~self ~cmd:(selector "indexOfButton:") ~typ:(id @-> returning (llong)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isDisplayingVertically self = msg_send ~self ~cmd:(selector "isDisplayingVertically") ~typ:(returning (bool)) -let isUsingVerticalFallbackPosition self = msg_send ~self ~cmd:(selector "isUsingVerticalFallbackPosition") ~typ:(returning (bool)) -let keyboardAnalyticsDispatchWithSelector x self = msg_send ~self ~cmd:(selector "keyboardAnalyticsDispatchWithSelector:") ~typ:(_SEL @-> returning (void)) x -let maxVerticalCalloutHeightForMinButtonHeight x self = msg_send ~self ~cmd:(selector "maxVerticalCalloutHeightForMinButtonHeight:") ~typ:(double @-> returning (double)) x -let pointAboveControls self = msg_send_stret ~self ~cmd:(selector "pointAboveControls") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let pointBelowControls self = msg_send_stret ~self ~cmd:(selector "pointBelowControls") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let pointLeftOfControls self = msg_send_stret ~self ~cmd:(selector "pointLeftOfControls") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let pointRightOfControls self = msg_send_stret ~self ~cmd:(selector "pointRightOfControls") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let recentlyFaded self = msg_send ~self ~cmd:(selector "recentlyFaded") ~typ:(returning (bool)) -let rectClear x self = msg_send ~self ~cmd:(selector "rectClear:") ~typ:(CGRect.t @-> returning (bool)) x -let rectsToEvade self = msg_send ~self ~cmd:(selector "rectsToEvade") ~typ:(returning (id)) -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let replacements self = msg_send ~self ~cmd:(selector "replacements") ~typ:(returning (id)) -let resetPage self = msg_send ~self ~cmd:(selector "resetPage") ~typ:(returning (void)) -let responderTarget self = msg_send ~self ~cmd:(selector "responderTarget") ~typ:(returning (id)) -let rvItem self = msg_send ~self ~cmd:(selector "rvItem") ~typ:(returning (id)) -let scrollViewWillEndDragging x ~withVelocity ~targetContentOffset self = msg_send ~self ~cmd:(selector "scrollViewWillEndDragging:withVelocity:targetContentOffset:") ~typ:(id @-> CGPoint.t @-> ptr (CGPoint.t) @-> returning (void)) x withVelocity targetContentOffset -let scrollableButtonTouchDown x self = msg_send ~self ~cmd:(selector "scrollableButtonTouchDown:") ~typ:(id @-> returning (void)) x -let setArrowDirection x self = msg_send ~self ~cmd:(selector "setArrowDirection:") ~typ:(int @-> returning (void)) x -let setControlFrame x self = msg_send ~self ~cmd:(selector "setControlFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setCurrentAppearOrFadeContext x self = msg_send ~self ~cmd:(selector "setCurrentAppearOrFadeContext:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setExtraItems x self = msg_send ~self ~cmd:(selector "setExtraItems:") ~typ:(id @-> returning (void)) x -let setFrameForSize x self = msg_send ~self ~cmd:(selector "setFrameForSize:") ~typ:(CGSize.t @-> returning (bool)) x -let setPointAboveControls x self = msg_send ~self ~cmd:(selector "setPointAboveControls:") ~typ:(CGPoint.t @-> returning (void)) x -let setPointBelowControls x self = msg_send ~self ~cmd:(selector "setPointBelowControls:") ~typ:(CGPoint.t @-> returning (void)) x -let setPointLeftOfControls x self = msg_send ~self ~cmd:(selector "setPointLeftOfControls:") ~typ:(CGPoint.t @-> returning (void)) x -let setPointRightOfControls x self = msg_send ~self ~cmd:(selector "setPointRightOfControls:") ~typ:(CGPoint.t @-> returning (void)) x -let setReplacements x self = msg_send ~self ~cmd:(selector "setReplacements:") ~typ:(id @-> returning (void)) x -let setResponderTarget x self = msg_send ~self ~cmd:(selector "setResponderTarget:") ~typ:(id @-> returning (void)) x -let setResponderTarget' x ~completion self = msg_send ~self ~cmd:(selector "setResponderTarget:completion:") ~typ:(id @-> ptr void @-> returning (void)) x completion -let setRvItem x self = msg_send ~self ~cmd:(selector "setRvItem:") ~typ:(id @-> returning (void)) x -let setShowAllReplacements x self = msg_send ~self ~cmd:(selector "setShowAllReplacements:") ~typ:(bool @-> returning (void)) x -let setSuppressesAppearance x self = msg_send ~self ~cmd:(selector "setSuppressesAppearance:") ~typ:(bool @-> returning (void)) x -let setSupressesHorizontalMovement x self = msg_send ~self ~cmd:(selector "setSupressesHorizontalMovement:") ~typ:(bool @-> returning (void)) x -let setTargetDirection x self = msg_send ~self ~cmd:(selector "setTargetDirection:") ~typ:(int @-> returning (void)) x -let setTargetHorizontal x self = msg_send ~self ~cmd:(selector "setTargetHorizontal:") ~typ:(bool @-> returning (void)) x -let setTargetPoint x self = msg_send ~self ~cmd:(selector "setTargetPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setTargetRect x self = msg_send ~self ~cmd:(selector "setTargetRect:") ~typ:(CGRect.t @-> returning (void)) x -let setTargetRect1 x ~view ~arrowDirection self = msg_send ~self ~cmd:(selector "setTargetRect:view:arrowDirection:") ~typ:(CGRect.t @-> id @-> int @-> returning (void)) x view arrowDirection -let setTargetRect2 x ~view ~pointBelowControls ~pointAboveControls self = msg_send ~self ~cmd:(selector "setTargetRect:view:pointBelowControls:pointAboveControls:") ~typ:(CGRect.t @-> id @-> CGPoint.t @-> CGPoint.t @-> returning (void)) x view pointBelowControls pointAboveControls -let setTargetRect3 x ~view ~pointLeftOfControls ~pointRightOfControls self = msg_send ~self ~cmd:(selector "setTargetRect:view:pointLeftOfControls:pointRightOfControls:") ~typ:(CGRect.t @-> id @-> CGPoint.t @-> CGPoint.t @-> returning (void)) x view pointLeftOfControls pointRightOfControls -let setTargetView x self = msg_send ~self ~cmd:(selector "setTargetView:") ~typ:(id @-> returning (void)) x -let setUntruncatedString x self = msg_send ~self ~cmd:(selector "setUntruncatedString:") ~typ:(id @-> returning (void)) x -let show self = msg_send ~self ~cmd:(selector "show") ~typ:(returning (void)) -let showAllReplacements self = msg_send ~self ~cmd:(selector "showAllReplacements") ~typ:(returning (bool)) -let suppressesAppearance self = msg_send ~self ~cmd:(selector "suppressesAppearance") ~typ:(returning (bool)) -let supressHorizontalXMovementIfNeededForPoint x ~proposedX self = msg_send ~self ~cmd:(selector "supressHorizontalXMovementIfNeededForPoint:proposedX:") ~typ:(CGPoint.t @-> double @-> returning (double)) x proposedX -let supressesHorizontalMovement self = msg_send ~self ~cmd:(selector "supressesHorizontalMovement") ~typ:(returning (bool)) -let targetDirection self = msg_send ~self ~cmd:(selector "targetDirection") ~typ:(returning (int)) -let targetHorizontal self = msg_send ~self ~cmd:(selector "targetHorizontal") ~typ:(returning (bool)) -let targetPoint self = msg_send_stret ~self ~cmd:(selector "targetPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let targetRect self = msg_send_stret ~self ~cmd:(selector "targetRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let targetView self = msg_send ~self ~cmd:(selector "targetView") ~typ:(returning (id)) -let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning (int)) -let textEffectsWindowSafeArea self = msg_send_stret ~self ~cmd:(selector "textEffectsWindowSafeArea") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let untruncatedString self = msg_send ~self ~cmd:(selector "untruncatedString") ~typ:(returning (id)) -let update self = msg_send ~self ~cmd:(selector "update") ~typ:(returning (void)) -let updateAnimated x self = msg_send ~self ~cmd:(selector "updateAnimated:") ~typ:(bool @-> returning (void)) x -let updateAvailableButtons self = msg_send ~self ~cmd:(selector "updateAvailableButtons") ~typ:(returning (void)) -let updateForCurrentHorizontalPage self = msg_send ~self ~cmd:(selector "updateForCurrentHorizontalPage") ~typ:(returning (void)) -let updateForCurrentPage self = msg_send ~self ~cmd:(selector "updateForCurrentPage") ~typ:(returning (void)) -let updateForCurrentVerticalPage self = msg_send ~self ~cmd:(selector "updateForCurrentVerticalPage") ~typ:(returning (void)) -let verticalScrollView self = msg_send ~self ~cmd:(selector "verticalScrollView") ~typ:(returning (id)) -let verticalStackView self = msg_send ~self ~cmd:(selector "verticalStackView") ~typ:(returning (id)) -let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning (bool)) \ No newline at end of file +let addRectToEvade x self = msg_send ~self ~cmd:(selector "addRectToEvade:") ~typ:(CGRect.t @-> returning void) x +let addVerticalSeparatorAfterButton x ~usingLargeText self = msg_send ~self ~cmd:(selector "addVerticalSeparatorAfterButton:usingLargeText:") ~typ:(id @-> bool @-> returning void) x usingLargeText +let adjustFrameToAvoidDividerOnArrow self = msg_send ~self ~cmd:(selector "adjustFrameToAvoidDividerOnArrow") ~typ:(returning void) +let appear self = msg_send ~self ~cmd:(selector "appear") ~typ:(returning void) +let appearAnimationDidStopWithContext x self = msg_send ~self ~cmd:(selector "appearAnimationDidStopWithContext:") ~typ:(id @-> returning void) x +let applicationDidAddDeactivationReason x self = msg_send ~self ~cmd:(selector "applicationDidAddDeactivationReason:") ~typ:(id @-> returning void) x +let arrowDirection self = msg_send ~self ~cmd:(selector "arrowDirection") ~typ:(returning int) +let buttonHighlighted x ~highlighted self = msg_send ~self ~cmd:(selector "buttonHighlighted:highlighted:") ~typ:(id @-> bool @-> returning void) x highlighted +let buttonHovered x ~index ~hovered self = msg_send ~self ~cmd:(selector "buttonHovered:index:hovered:") ~typ:(id @-> llong @-> bool @-> returning void) x (LLong.of_int index) hovered +let buttonPressed x self = msg_send ~self ~cmd:(selector "buttonPressed:") ~typ:(id @-> returning void) x +let calculateControlFrameForCalloutSize x ~below self = msg_send ~self ~cmd:(selector "calculateControlFrameForCalloutSize:below:") ~typ:(CGSize.t @-> bool @-> returning bool) x below +let calculateControlFrameForCalloutSize' x ~right self = msg_send ~self ~cmd:(selector "calculateControlFrameForCalloutSize:right:") ~typ:(CGSize.t @-> bool @-> returning bool) x right +let calculateControlFrameInsideTargetRect x self = msg_send ~self ~cmd:(selector "calculateControlFrameInsideTargetRect:") ~typ:(CGSize.t @-> returning bool) x +let clearEvadeRects self = msg_send ~self ~cmd:(selector "clearEvadeRects") ~typ:(returning void) +let clearReplacements self = msg_send ~self ~cmd:(selector "clearReplacements") ~typ:(returning void) +let clearSupressesHorizontalMovementFrame self = msg_send ~self ~cmd:(selector "clearSupressesHorizontalMovementFrame") ~typ:(returning void) +let configureButtons x self = msg_send ~self ~cmd:(selector "configureButtons:") ~typ:(double @-> returning void) x +let configureButtonsForVerticalView x self = msg_send ~self ~cmd:(selector "configureButtonsForVerticalView:") ~typ:(double @-> returning void) x +let containsButtonForAction x self = msg_send ~self ~cmd:(selector "containsButtonForAction:") ~typ:(_SEL @-> returning bool) x +let controlFrame self = msg_send ~self ~cmd:(selector "controlFrame") ~typ:(returning CGRect.t) +let currentAppearOrFadeContext self = msg_send ~self ~cmd:(selector "currentAppearOrFadeContext") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let extraItems self = msg_send ~self ~cmd:(selector "extraItems") ~typ:(returning id) +let fade self = msg_send ~self ~cmd:(selector "fade") ~typ:(returning void) +let fadeAnimationDidStopWithContext x ~finished self = msg_send ~self ~cmd:(selector "fadeAnimationDidStopWithContext:finished:") ~typ:(id @-> bool @-> returning void) x finished +let fadeFromTargetView x self = msg_send ~self ~cmd:(selector "fadeFromTargetView:") ~typ:(id @-> returning void) x +let fadedDueToCommand self = msg_send ~self ~cmd:(selector "fadedDueToCommand") ~typ:(returning bool) +let hasReplacements self = msg_send ~self ~cmd:(selector "hasReplacements") ~typ:(returning bool) +let hide self = msg_send ~self ~cmd:(selector "hide") ~typ:(returning void) +let hideFromTargetView x self = msg_send ~self ~cmd:(selector "hideFromTargetView:") ~typ:(id @-> returning void) x +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let indexOfButton x self = msg_send ~self ~cmd:(selector "indexOfButton:") ~typ:(id @-> returning llong) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isDisplayingVertically self = msg_send ~self ~cmd:(selector "isDisplayingVertically") ~typ:(returning bool) +let isUsingVerticalFallbackPosition self = msg_send ~self ~cmd:(selector "isUsingVerticalFallbackPosition") ~typ:(returning bool) +let keyboardAnalyticsDispatchWithSelector x self = msg_send ~self ~cmd:(selector "keyboardAnalyticsDispatchWithSelector:") ~typ:(_SEL @-> returning void) x +let maxVerticalCalloutHeightForMinButtonHeight x self = msg_send ~self ~cmd:(selector "maxVerticalCalloutHeightForMinButtonHeight:") ~typ:(double @-> returning double) x +let pointAboveControls self = msg_send ~self ~cmd:(selector "pointAboveControls") ~typ:(returning CGPoint.t) +let pointBelowControls self = msg_send ~self ~cmd:(selector "pointBelowControls") ~typ:(returning CGPoint.t) +let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let pointLeftOfControls self = msg_send ~self ~cmd:(selector "pointLeftOfControls") ~typ:(returning CGPoint.t) +let pointRightOfControls self = msg_send ~self ~cmd:(selector "pointRightOfControls") ~typ:(returning CGPoint.t) +let recentlyFaded self = msg_send ~self ~cmd:(selector "recentlyFaded") ~typ:(returning bool) +let rectClear x self = msg_send ~self ~cmd:(selector "rectClear:") ~typ:(CGRect.t @-> returning bool) x +let rectsToEvade self = msg_send ~self ~cmd:(selector "rectsToEvade") ~typ:(returning id) +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let replacements self = msg_send ~self ~cmd:(selector "replacements") ~typ:(returning id) +let resetPage self = msg_send ~self ~cmd:(selector "resetPage") ~typ:(returning void) +let responderTarget self = msg_send ~self ~cmd:(selector "responderTarget") ~typ:(returning id) +let rvItem self = msg_send ~self ~cmd:(selector "rvItem") ~typ:(returning id) +let scrollViewWillEndDragging x ~withVelocity ~targetContentOffset self = msg_send ~self ~cmd:(selector "scrollViewWillEndDragging:withVelocity:targetContentOffset:") ~typ:(id @-> CGPoint.t @-> (ptr CGPoint.t) @-> returning void) x withVelocity targetContentOffset +let scrollableButtonTouchDown x self = msg_send ~self ~cmd:(selector "scrollableButtonTouchDown:") ~typ:(id @-> returning void) x +let setArrowDirection x self = msg_send ~self ~cmd:(selector "setArrowDirection:") ~typ:(int @-> returning void) x +let setControlFrame x self = msg_send ~self ~cmd:(selector "setControlFrame:") ~typ:(CGRect.t @-> returning void) x +let setCurrentAppearOrFadeContext x self = msg_send ~self ~cmd:(selector "setCurrentAppearOrFadeContext:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setExtraItems x self = msg_send ~self ~cmd:(selector "setExtraItems:") ~typ:(id @-> returning void) x +let setFrameForSize x self = msg_send ~self ~cmd:(selector "setFrameForSize:") ~typ:(CGSize.t @-> returning bool) x +let setPointAboveControls x self = msg_send ~self ~cmd:(selector "setPointAboveControls:") ~typ:(CGPoint.t @-> returning void) x +let setPointBelowControls x self = msg_send ~self ~cmd:(selector "setPointBelowControls:") ~typ:(CGPoint.t @-> returning void) x +let setPointLeftOfControls x self = msg_send ~self ~cmd:(selector "setPointLeftOfControls:") ~typ:(CGPoint.t @-> returning void) x +let setPointRightOfControls x self = msg_send ~self ~cmd:(selector "setPointRightOfControls:") ~typ:(CGPoint.t @-> returning void) x +let setReplacements x self = msg_send ~self ~cmd:(selector "setReplacements:") ~typ:(id @-> returning void) x +let setResponderTarget x self = msg_send ~self ~cmd:(selector "setResponderTarget:") ~typ:(id @-> returning void) x +let setResponderTarget' x ~completion self = msg_send ~self ~cmd:(selector "setResponderTarget:completion:") ~typ:(id @-> (ptr void) @-> returning void) x completion +let setRvItem x self = msg_send ~self ~cmd:(selector "setRvItem:") ~typ:(id @-> returning void) x +let setShowAllReplacements x self = msg_send ~self ~cmd:(selector "setShowAllReplacements:") ~typ:(bool @-> returning void) x +let setSuppressesAppearance x self = msg_send ~self ~cmd:(selector "setSuppressesAppearance:") ~typ:(bool @-> returning void) x +let setSupressesHorizontalMovement x self = msg_send ~self ~cmd:(selector "setSupressesHorizontalMovement:") ~typ:(bool @-> returning void) x +let setTargetDirection x self = msg_send ~self ~cmd:(selector "setTargetDirection:") ~typ:(int @-> returning void) x +let setTargetHorizontal x self = msg_send ~self ~cmd:(selector "setTargetHorizontal:") ~typ:(bool @-> returning void) x +let setTargetPoint x self = msg_send ~self ~cmd:(selector "setTargetPoint:") ~typ:(CGPoint.t @-> returning void) x +let setTargetRect x self = msg_send ~self ~cmd:(selector "setTargetRect:") ~typ:(CGRect.t @-> returning void) x +let setTargetRect1 x ~view ~arrowDirection self = msg_send ~self ~cmd:(selector "setTargetRect:view:arrowDirection:") ~typ:(CGRect.t @-> id @-> int @-> returning void) x view arrowDirection +let setTargetRect2 x ~view ~pointBelowControls ~pointAboveControls self = msg_send ~self ~cmd:(selector "setTargetRect:view:pointBelowControls:pointAboveControls:") ~typ:(CGRect.t @-> id @-> CGPoint.t @-> CGPoint.t @-> returning void) x view pointBelowControls pointAboveControls +let setTargetRect3 x ~view ~pointLeftOfControls ~pointRightOfControls self = msg_send ~self ~cmd:(selector "setTargetRect:view:pointLeftOfControls:pointRightOfControls:") ~typ:(CGRect.t @-> id @-> CGPoint.t @-> CGPoint.t @-> returning void) x view pointLeftOfControls pointRightOfControls +let setTargetView x self = msg_send ~self ~cmd:(selector "setTargetView:") ~typ:(id @-> returning void) x +let setUntruncatedString x self = msg_send ~self ~cmd:(selector "setUntruncatedString:") ~typ:(id @-> returning void) x +let show self = msg_send ~self ~cmd:(selector "show") ~typ:(returning void) +let showAllReplacements self = msg_send ~self ~cmd:(selector "showAllReplacements") ~typ:(returning bool) +let suppressesAppearance self = msg_send ~self ~cmd:(selector "suppressesAppearance") ~typ:(returning bool) +let supressHorizontalXMovementIfNeededForPoint x ~proposedX self = msg_send ~self ~cmd:(selector "supressHorizontalXMovementIfNeededForPoint:proposedX:") ~typ:(CGPoint.t @-> double @-> returning double) x proposedX +let supressesHorizontalMovement self = msg_send ~self ~cmd:(selector "supressesHorizontalMovement") ~typ:(returning bool) +let targetDirection self = msg_send ~self ~cmd:(selector "targetDirection") ~typ:(returning int) +let targetHorizontal self = msg_send ~self ~cmd:(selector "targetHorizontal") ~typ:(returning bool) +let targetPoint self = msg_send ~self ~cmd:(selector "targetPoint") ~typ:(returning CGPoint.t) +let targetRect self = msg_send ~self ~cmd:(selector "targetRect") ~typ:(returning CGRect.t) +let targetView self = msg_send ~self ~cmd:(selector "targetView") ~typ:(returning id) +let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning int) +let textEffectsWindowSafeArea self = msg_send ~self ~cmd:(selector "textEffectsWindowSafeArea") ~typ:(returning CGRect.t) +let untruncatedString self = msg_send ~self ~cmd:(selector "untruncatedString") ~typ:(returning id) +let update self = msg_send ~self ~cmd:(selector "update") ~typ:(returning void) +let updateAnimated x self = msg_send ~self ~cmd:(selector "updateAnimated:") ~typ:(bool @-> returning void) x +let updateAvailableButtons self = msg_send ~self ~cmd:(selector "updateAvailableButtons") ~typ:(returning void) +let updateForCurrentHorizontalPage self = msg_send ~self ~cmd:(selector "updateForCurrentHorizontalPage") ~typ:(returning void) +let updateForCurrentPage self = msg_send ~self ~cmd:(selector "updateForCurrentPage") ~typ:(returning void) +let updateForCurrentVerticalPage self = msg_send ~self ~cmd:(selector "updateForCurrentVerticalPage") ~typ:(returning void) +let verticalScrollView self = msg_send ~self ~cmd:(selector "verticalScrollView") ~typ:(returning id) +let verticalStackView self = msg_send ~self ~cmd:(selector "verticalStackView") ~typ:(returning id) +let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UICalloutBarBackground.ml b/uikit/UICalloutBarBackground.ml index 4c6b5065..bec99e37 100644 --- a/uikit/UICalloutBarBackground.ml +++ b/uikit/UICalloutBarBackground.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICalloutBarBackground" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicalloutbarbackground?language=objc}UICalloutBarBackground} *) -let highlightRect self = msg_send_stret ~self ~cmd:(selector "highlightRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setHighlightRect x self = msg_send ~self ~cmd:(selector "setHighlightRect:") ~typ:(CGRect.t @-> returning (void)) x -let setHighlighted x ~forFrame self = msg_send ~self ~cmd:(selector "setHighlighted:forFrame:") ~typ:(bool @-> CGRect.t @-> returning (void)) x forFrame \ No newline at end of file +let self = get_class "UICalloutBarBackground" + +let highlightRect self = msg_send ~self ~cmd:(selector "highlightRect") ~typ:(returning CGRect.t) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setHighlightRect x self = msg_send ~self ~cmd:(selector "setHighlightRect:") ~typ:(CGRect.t @-> returning void) x +let setHighlighted x ~forFrame self = msg_send ~self ~cmd:(selector "setHighlighted:forFrame:") ~typ:(bool @-> CGRect.t @-> returning void) x forFrame \ No newline at end of file diff --git a/uikit/UICalloutBarButton.ml b/uikit/UICalloutBarButton.ml index 824d7da8..cd195746 100644 --- a/uikit/UICalloutBarButton.ml +++ b/uikit/UICalloutBarButton.ml @@ -5,57 +5,53 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICalloutBarButton" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicalloutbarbutton?language=objc}UICalloutBarButton} *) -module C = struct - let buttonWithImage x ~action ~type_ ~inView self = msg_send ~self ~cmd:(selector "buttonWithImage:action:type:inView:") ~typ:(id @-> _SEL @-> int @-> id @-> returning (id)) x action type_ inView - let buttonWithTitle x ~action ~type_ ~inView self = msg_send ~self ~cmd:(selector "buttonWithTitle:action:type:inView:") ~typ:(id @-> _SEL @-> int @-> id @-> returning (id)) x action type_ inView - let buttonWithTitle1 x ~image ~action ~type_ ~inView self = msg_send ~self ~cmd:(selector "buttonWithTitle:image:action:type:inView:") ~typ:(id @-> id @-> _SEL @-> int @-> id @-> returning (id)) x image action type_ inView - let buttonWithTitle2 x ~subtitle ~maxWidth ~action ~type_ ~inView self = msg_send ~self ~cmd:(selector "buttonWithTitle:subtitle:maxWidth:action:type:inView:") ~typ:(id @-> id @-> double @-> _SEL @-> int @-> id @-> returning (id)) x subtitle maxWidth action type_ inView - let symbolConfigurationForScale x self = msg_send ~self ~cmd:(selector "symbolConfigurationForScale:") ~typ:(double @-> returning (id)) x -end +let self = get_class "UICalloutBarButton" -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (_SEL)) -let additionalContentHeight self = msg_send ~self ~cmd:(selector "additionalContentHeight") ~typ:(returning (double)) -let adjustRectForPosition x self = msg_send_stret ~self ~cmd:(selector "adjustRectForPosition:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let cancelFlash self = msg_send ~self ~cmd:(selector "cancelFlash") ~typ:(returning (void)) -let configureForLeftPosition x self = msg_send ~self ~cmd:(selector "configureForLeftPosition:") ~typ:(int @-> returning (void)) x -let configureForMiddlePosition self = msg_send ~self ~cmd:(selector "configureForMiddlePosition") ~typ:(returning (void)) -let configureForRightPosition x self = msg_send ~self ~cmd:(selector "configureForRightPosition:") ~typ:(int @-> returning (void)) x -let configureForSingle x self = msg_send ~self ~cmd:(selector "configureForSingle:") ~typ:(int @-> returning (void)) x -let configureForVerticalPosition x self = msg_send ~self ~cmd:(selector "configureForVerticalPosition:") ~typ:(int @-> returning (void)) x -let configureSecurePasteButtonWithWidth x ~height self = msg_send ~self ~cmd:(selector "configureSecurePasteButtonWithWidth:height:") ~typ:(double @-> double @-> returning (void)) x height -let contentScale self = msg_send ~self ~cmd:(selector "contentScale") ~typ:(returning (double)) -let contentWidth self = msg_send ~self ~cmd:(selector "contentWidth") ~typ:(returning (double)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let dividerOffset self = msg_send ~self ~cmd:(selector "dividerOffset") ~typ:(returning (double)) -let dontDismiss self = msg_send ~self ~cmd:(selector "dontDismiss") ~typ:(returning (bool)) -let fadeAndSendActionWithAuthenticationMessage x self = msg_send ~self ~cmd:(selector "fadeAndSendActionWithAuthenticationMessage:") ~typ:(id @-> returning (void)) x -let flash x ~forEvent self = msg_send ~self ~cmd:(selector "flash:forEvent:") ~typ:(id @-> id @-> returning (void)) x forEvent -let forceFlash self = msg_send ~self ~cmd:(selector "forceFlash") ~typ:(returning (bool)) -let imageRectForContentRect x self = msg_send_stret ~self ~cmd:(selector "imageRectForContentRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let imageVerticalAdjust self = msg_send ~self ~cmd:(selector "imageVerticalAdjust") ~typ:(returning (double)) -let isSecurePasteButton self = msg_send ~self ~cmd:(selector "isSecurePasteButton") ~typ:(returning (bool)) -let page self = msg_send ~self ~cmd:(selector "page") ~typ:(returning (llong)) -let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning (id)) x styleForRegion -let pointerInteraction1 x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning (id)) x regionForRequest defaultRegion -let pointerInteraction2 x ~willEnterRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willEnterRegion:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willEnterRegion animator -let pointerInteraction3 x ~willExitRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willExitRegion:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willExitRegion animator -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let setContentScale x self = msg_send ~self ~cmd:(selector "setContentScale:") ~typ:(double @-> returning (void)) x -let setDividerOffset x self = msg_send ~self ~cmd:(selector "setDividerOffset:") ~typ:(double @-> returning (void)) x -let setDontDismiss x self = msg_send ~self ~cmd:(selector "setDontDismiss:") ~typ:(bool @-> returning (void)) x -let setForceFlash x self = msg_send ~self ~cmd:(selector "setForceFlash:") ~typ:(bool @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setImageVerticalAdjust x self = msg_send ~self ~cmd:(selector "setImageVerticalAdjust:") ~typ:(double @-> returning (void)) x -let setPage x self = msg_send ~self ~cmd:(selector "setPage:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTextReplacement x self = msg_send ~self ~cmd:(selector "setTextReplacement:") ~typ:(id @-> returning (void)) x -let setupWithImage x ~action ~type_ self = msg_send ~self ~cmd:(selector "setupWithImage:action:type:") ~typ:(id @-> _SEL @-> int @-> returning (void)) x action type_ -let setupWithTitle x ~action ~type_ self = msg_send ~self ~cmd:(selector "setupWithTitle:action:type:") ~typ:(id @-> _SEL @-> int @-> returning (void)) x action type_ -let setupWithTitle1 x ~image ~action ~type_ self = msg_send ~self ~cmd:(selector "setupWithTitle:image:action:type:") ~typ:(id @-> id @-> _SEL @-> int @-> returning (void)) x image action type_ -let setupWithTitle2 x ~subtitle ~maxWidth ~action ~type_ self = msg_send ~self ~cmd:(selector "setupWithTitle:subtitle:maxWidth:action:type:") ~typ:(id @-> id @-> double @-> _SEL @-> int @-> returning (void)) x subtitle maxWidth action type_ -let textReplacement self = msg_send ~self ~cmd:(selector "textReplacement") ~typ:(returning (id)) -let titleRectForContentRect x self = msg_send_stret ~self ~cmd:(selector "titleRectForContentRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let touchDown self = msg_send ~self ~cmd:(selector "touchDown") ~typ:(returning (void)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (int)) \ No newline at end of file +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning _SEL) +let additionalContentHeight self = msg_send ~self ~cmd:(selector "additionalContentHeight") ~typ:(returning double) +let adjustRectForPosition x self = msg_send ~self ~cmd:(selector "adjustRectForPosition:") ~typ:(CGRect.t @-> returning CGRect.t) x +let cancelFlash self = msg_send ~self ~cmd:(selector "cancelFlash") ~typ:(returning void) +let configureForLeftPosition x self = msg_send ~self ~cmd:(selector "configureForLeftPosition:") ~typ:(int @-> returning void) x +let configureForMiddlePosition self = msg_send ~self ~cmd:(selector "configureForMiddlePosition") ~typ:(returning void) +let configureForRightPosition x self = msg_send ~self ~cmd:(selector "configureForRightPosition:") ~typ:(int @-> returning void) x +let configureForSingle x self = msg_send ~self ~cmd:(selector "configureForSingle:") ~typ:(int @-> returning void) x +let configureForVerticalPosition x self = msg_send ~self ~cmd:(selector "configureForVerticalPosition:") ~typ:(int @-> returning void) x +let configureSecurePasteButtonWithWidth x ~height self = msg_send ~self ~cmd:(selector "configureSecurePasteButtonWithWidth:height:") ~typ:(double @-> double @-> returning void) x height +let contentScale self = msg_send ~self ~cmd:(selector "contentScale") ~typ:(returning double) +let contentWidth self = msg_send ~self ~cmd:(selector "contentWidth") ~typ:(returning double) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let dividerOffset self = msg_send ~self ~cmd:(selector "dividerOffset") ~typ:(returning double) +let dontDismiss self = msg_send ~self ~cmd:(selector "dontDismiss") ~typ:(returning bool) +let fadeAndSendActionWithAuthenticationMessage x self = msg_send ~self ~cmd:(selector "fadeAndSendActionWithAuthenticationMessage:") ~typ:(id @-> returning void) x +let flash x ~forEvent self = msg_send ~self ~cmd:(selector "flash:forEvent:") ~typ:(id @-> id @-> returning void) x forEvent +let forceFlash self = msg_send ~self ~cmd:(selector "forceFlash") ~typ:(returning bool) +let imageRectForContentRect x self = msg_send ~self ~cmd:(selector "imageRectForContentRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let imageVerticalAdjust self = msg_send ~self ~cmd:(selector "imageVerticalAdjust") ~typ:(returning double) +let isSecurePasteButton self = msg_send ~self ~cmd:(selector "isSecurePasteButton") ~typ:(returning bool) +let page self = msg_send ~self ~cmd:(selector "page") ~typ:(returning llong) +let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning id) x styleForRegion +let pointerInteraction1 x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning id) x regionForRequest defaultRegion +let pointerInteraction2 x ~willEnterRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willEnterRegion:animator:") ~typ:(id @-> id @-> id @-> returning void) x willEnterRegion animator +let pointerInteraction3 x ~willExitRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willExitRegion:animator:") ~typ:(id @-> id @-> id @-> returning void) x willExitRegion animator +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let setContentScale x self = msg_send ~self ~cmd:(selector "setContentScale:") ~typ:(double @-> returning void) x +let setDividerOffset x self = msg_send ~self ~cmd:(selector "setDividerOffset:") ~typ:(double @-> returning void) x +let setDontDismiss x self = msg_send ~self ~cmd:(selector "setDontDismiss:") ~typ:(bool @-> returning void) x +let setForceFlash x self = msg_send ~self ~cmd:(selector "setForceFlash:") ~typ:(bool @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setImageVerticalAdjust x self = msg_send ~self ~cmd:(selector "setImageVerticalAdjust:") ~typ:(double @-> returning void) x +let setPage x self = msg_send ~self ~cmd:(selector "setPage:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTextReplacement x self = msg_send ~self ~cmd:(selector "setTextReplacement:") ~typ:(id @-> returning void) x +let setupWithImage x ~action ~type_ self = msg_send ~self ~cmd:(selector "setupWithImage:action:type:") ~typ:(id @-> _SEL @-> int @-> returning void) x action type_ +let setupWithTitle x ~action ~type_ self = msg_send ~self ~cmd:(selector "setupWithTitle:action:type:") ~typ:(id @-> _SEL @-> int @-> returning void) x action type_ +let setupWithTitle1 x ~image ~action ~type_ self = msg_send ~self ~cmd:(selector "setupWithTitle:image:action:type:") ~typ:(id @-> id @-> _SEL @-> int @-> returning void) x image action type_ +let setupWithTitle2 x ~subtitle ~maxWidth ~action ~type_ self = msg_send ~self ~cmd:(selector "setupWithTitle:subtitle:maxWidth:action:type:") ~typ:(id @-> id @-> double @-> _SEL @-> int @-> returning void) x subtitle maxWidth action type_ +let textReplacement self = msg_send ~self ~cmd:(selector "textReplacement") ~typ:(returning id) +let titleRectForContentRect x self = msg_send ~self ~cmd:(selector "titleRectForContentRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let touchDown self = msg_send ~self ~cmd:(selector "touchDown") ~typ:(returning void) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning int) \ No newline at end of file diff --git a/uikit/UICalloutBarButtonClass.ml b/uikit/UICalloutBarButtonClass.ml new file mode 100644 index 00000000..6a1121b8 --- /dev/null +++ b/uikit/UICalloutBarButtonClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicalloutbarbutton?language=objc}UICalloutBarButton} *) + +let buttonWithImage x ~action ~type_ ~inView self = msg_send ~self ~cmd:(selector "buttonWithImage:action:type:inView:") ~typ:(id @-> _SEL @-> int @-> id @-> returning id) x action type_ inView +let buttonWithTitle x ~action ~type_ ~inView self = msg_send ~self ~cmd:(selector "buttonWithTitle:action:type:inView:") ~typ:(id @-> _SEL @-> int @-> id @-> returning id) x action type_ inView +let buttonWithTitle1 x ~image ~action ~type_ ~inView self = msg_send ~self ~cmd:(selector "buttonWithTitle:image:action:type:inView:") ~typ:(id @-> id @-> _SEL @-> int @-> id @-> returning id) x image action type_ inView +let buttonWithTitle2 x ~subtitle ~maxWidth ~action ~type_ ~inView self = msg_send ~self ~cmd:(selector "buttonWithTitle:subtitle:maxWidth:action:type:inView:") ~typ:(id @-> id @-> double @-> _SEL @-> int @-> id @-> returning id) x subtitle maxWidth action type_ inView +let symbolConfigurationForScale x self = msg_send ~self ~cmd:(selector "symbolConfigurationForScale:") ~typ:(double @-> returning id) x \ No newline at end of file diff --git a/uikit/UICalloutBarClass.ml b/uikit/UICalloutBarClass.ml new file mode 100644 index 00000000..718a0bbe --- /dev/null +++ b/uikit/UICalloutBarClass.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicalloutbar?language=objc}UICalloutBar} *) + +let activeCalloutBar self = msg_send ~self ~cmd:(selector "activeCalloutBar") ~typ:(returning id) +let fadeSharedCalloutBar self = msg_send ~self ~cmd:(selector "fadeSharedCalloutBar") ~typ:(returning void) +let fadeSharedCalloutBarFromTargetView x self = msg_send ~self ~cmd:(selector "fadeSharedCalloutBarFromTargetView:") ~typ:(id @-> returning void) x +let hideSharedCalloutBar self = msg_send ~self ~cmd:(selector "hideSharedCalloutBar") ~typ:(returning void) +let hideSharedCalloutBarFromTargetView x self = msg_send ~self ~cmd:(selector "hideSharedCalloutBarFromTargetView:") ~typ:(id @-> returning void) x +let performWithoutAffectingSharedCalloutBar x self = msg_send ~self ~cmd:(selector "performWithoutAffectingSharedCalloutBar:") ~typ:((ptr void) @-> returning void) x +let sharedCalloutBar self = msg_send ~self ~cmd:(selector "sharedCalloutBar") ~typ:(returning id) +let sharedCalloutBarIsVisible self = msg_send ~self ~cmd:(selector "sharedCalloutBarIsVisible") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UICandidateViewController.ml b/uikit/UICandidateViewController.ml index 6207cdef..12ef8d73 100644 --- a/uikit/UICandidateViewController.ml +++ b/uikit/UICandidateViewController.ml @@ -5,20 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICandidateViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicandidateviewcontroller?language=objc}UICandidateViewController} *) -module C = struct - let preferredCandidateBarHeightForTraitCollection x self = msg_send ~self ~cmd:(selector "preferredCandidateBarHeightForTraitCollection:") ~typ:(id @-> returning (double)) x -end +let self = get_class "UICandidateViewController" -let candidateView self = msg_send ~self ~cmd:(selector "candidateView") ~typ:(returning (id)) -let displayedCandidates self = msg_send ~self ~cmd:(selector "displayedCandidates") ~typ:(returning (id)) -let hidesExpandableButton self = msg_send ~self ~cmd:(selector "hidesExpandableButton") ~typ:(returning (bool)) -let isVisibleForInputDelegate x ~inputViews self = msg_send ~self ~cmd:(selector "isVisibleForInputDelegate:inputViews:") ~typ:(id @-> id @-> returning (bool)) x inputViews -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let overrideUserInterfaceStyle self = msg_send ~self ~cmd:(selector "overrideUserInterfaceStyle") ~typ:(returning (llong)) -let preferredHeightForTraitCollection x self = msg_send ~self ~cmd:(selector "preferredHeightForTraitCollection:") ~typ:(id @-> returning (double)) x -let setCandidateView x self = msg_send ~self ~cmd:(selector "setCandidateView:") ~typ:(id @-> returning (void)) x -let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let candidateView self = msg_send ~self ~cmd:(selector "candidateView") ~typ:(returning id) +let displayedCandidates self = msg_send ~self ~cmd:(selector "displayedCandidates") ~typ:(returning id) +let hidesExpandableButton self = msg_send ~self ~cmd:(selector "hidesExpandableButton") ~typ:(returning bool) +let isVisibleForInputDelegate x ~inputViews self = msg_send ~self ~cmd:(selector "isVisibleForInputDelegate:inputViews:") ~typ:(id @-> id @-> returning bool) x inputViews +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let overrideUserInterfaceStyle self = msg_send ~self ~cmd:(selector "overrideUserInterfaceStyle") ~typ:(returning llong) +let preferredHeightForTraitCollection x self = msg_send ~self ~cmd:(selector "preferredHeightForTraitCollection:") ~typ:(id @-> returning double) x +let setCandidateView x self = msg_send ~self ~cmd:(selector "setCandidateView:") ~typ:(id @-> returning void) x +let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UICandidateViewControllerClass.ml b/uikit/UICandidateViewControllerClass.ml new file mode 100644 index 00000000..cba1f209 --- /dev/null +++ b/uikit/UICandidateViewControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicandidateviewcontroller?language=objc}UICandidateViewController} *) + +let preferredCandidateBarHeightForTraitCollection x self = msg_send ~self ~cmd:(selector "preferredCandidateBarHeightForTraitCollection:") ~typ:(id @-> returning double) x \ No newline at end of file diff --git a/uikit/UICarPlayApplicationSceneSettings.ml b/uikit/UICarPlayApplicationSceneSettings.ml new file mode 100644 index 00000000..fe2a6ac1 --- /dev/null +++ b/uikit/UICarPlayApplicationSceneSettings.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicarplayapplicationscenesettings?language=objc}UICarPlayApplicationSceneSettings} *) + +let self = get_class "UICarPlayApplicationSceneSettings" + +let disableFiveRowKeyboards self = msg_send ~self ~cmd:(selector "disableFiveRowKeyboards") ~typ:(returning bool) +let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:((ptr void) @-> returning id) x \ No newline at end of file diff --git a/uikit/UICellAccessory.ml b/uikit/UICellAccessory.ml index 40e0ff03..3cbf2602 100644 --- a/uikit/UICellAccessory.ml +++ b/uikit/UICellAccessory.ml @@ -5,24 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICellAccessory" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessory?language=objc}UICellAccessory} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UICellAccessory" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let displayedState self = msg_send ~self ~cmd:(selector "displayedState") ~typ:(returning (llong)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isHidden self = msg_send ~self ~cmd:(selector "isHidden") ~typ:(returning (bool)) -let reservedLayoutWidth self = msg_send ~self ~cmd:(selector "reservedLayoutWidth") ~typ:(returning (double)) -let setDisplayedState x self = msg_send ~self ~cmd:(selector "setDisplayedState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning (void)) x -let setReservedLayoutWidth x self = msg_send ~self ~cmd:(selector "setReservedLayoutWidth:") ~typ:(double @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning (id)) \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let displayedState self = msg_send ~self ~cmd:(selector "displayedState") ~typ:(returning llong) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isHidden self = msg_send ~self ~cmd:(selector "isHidden") ~typ:(returning bool) +let reservedLayoutWidth self = msg_send ~self ~cmd:(selector "reservedLayoutWidth") ~typ:(returning double) +let setDisplayedState x self = msg_send ~self ~cmd:(selector "setDisplayedState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning void) x +let setReservedLayoutWidth x self = msg_send ~self ~cmd:(selector "setReservedLayoutWidth:") ~typ:(double @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UICellAccessoryClass.ml b/uikit/UICellAccessoryClass.ml new file mode 100644 index 00000000..c735a4e3 --- /dev/null +++ b/uikit/UICellAccessoryClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessory?language=objc}UICellAccessory} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UICellAccessoryConfiguration.ml b/uikit/UICellAccessoryConfiguration.ml index 6c79b1ef..5c3b52eb 100644 --- a/uikit/UICellAccessoryConfiguration.ml +++ b/uikit/UICellAccessoryConfiguration.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICellAccessoryConfiguration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessoryconfiguration?language=objc}UICellAccessoryConfiguration} *) -let alwaysNeedsLayout self = msg_send ~self ~cmd:(selector "alwaysNeedsLayout") ~typ:(returning (bool)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let leadingAccessories self = msg_send ~self ~cmd:(selector "leadingAccessories") ~typ:(returning (id)) -let setLeadingAccessories x self = msg_send ~self ~cmd:(selector "setLeadingAccessories:") ~typ:(id @-> returning (void)) x -let setTrailingAccessories x self = msg_send ~self ~cmd:(selector "setTrailingAccessories:") ~typ:(id @-> returning (void)) x -let trailingAccessories self = msg_send ~self ~cmd:(selector "trailingAccessories") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UICellAccessoryConfiguration" + +let alwaysNeedsLayout self = msg_send ~self ~cmd:(selector "alwaysNeedsLayout") ~typ:(returning bool) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let leadingAccessories self = msg_send ~self ~cmd:(selector "leadingAccessories") ~typ:(returning id) +let setLeadingAccessories x self = msg_send ~self ~cmd:(selector "setLeadingAccessories:") ~typ:(id @-> returning void) x +let setTrailingAccessories x self = msg_send ~self ~cmd:(selector "setTrailingAccessories:") ~typ:(id @-> returning void) x +let trailingAccessories self = msg_send ~self ~cmd:(selector "trailingAccessories") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UICellAccessoryCustomView.ml b/uikit/UICellAccessoryCustomView.ml deleted file mode 100644 index 0779921e..00000000 --- a/uikit/UICellAccessoryCustomView.ml +++ /dev/null @@ -1,26 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICellAccessoryCustomView" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let customView self = msg_send ~self ~cmd:(selector "customView") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithCustomView x ~placement self = msg_send ~self ~cmd:(selector "initWithCustomView:placement:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int placement) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let maintainsFixedSize self = msg_send ~self ~cmd:(selector "maintainsFixedSize") ~typ:(returning (bool)) -let placement self = msg_send ~self ~cmd:(selector "placement") ~typ:(returning (llong)) -let position self = msg_send ~self ~cmd:(selector "position") ~typ:(returning (ptr void)) -let setMaintainsFixedSize x self = msg_send ~self ~cmd:(selector "setMaintainsFixedSize:") ~typ:(bool @-> returning (void)) x -let setPosition x self = msg_send ~self ~cmd:(selector "setPosition:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UICellAccessoryDelete.ml b/uikit/UICellAccessoryDelete.ml deleted file mode 100644 index bad5c6ff..00000000 --- a/uikit/UICellAccessoryDelete.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICellAccessoryDelete" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let actionHandler self = msg_send ~self ~cmd:(selector "actionHandler") ~typ:(returning (ptr void)) -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let setActionHandler x self = msg_send ~self ~cmd:(selector "setActionHandler:") ~typ:(ptr void @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UICellAccessoryDetail.ml b/uikit/UICellAccessoryDetail.ml deleted file mode 100644 index b03196c8..00000000 --- a/uikit/UICellAccessoryDetail.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICellAccessoryDetail" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let actionHandler self = msg_send ~self ~cmd:(selector "actionHandler") ~typ:(returning (ptr void)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let setActionHandler x self = msg_send ~self ~cmd:(selector "setActionHandler:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UICellAccessoryInsert.ml b/uikit/UICellAccessoryInsert.ml deleted file mode 100644 index 4ed8054d..00000000 --- a/uikit/UICellAccessoryInsert.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICellAccessoryInsert" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let actionHandler self = msg_send ~self ~cmd:(selector "actionHandler") ~typ:(returning (ptr void)) -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let setActionHandler x self = msg_send ~self ~cmd:(selector "setActionHandler:") ~typ:(ptr void @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UICellAccessoryLabel.ml b/uikit/UICellAccessoryLabel.ml deleted file mode 100644 index d89ed9e7..00000000 --- a/uikit/UICellAccessoryLabel.ml +++ /dev/null @@ -1,25 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICellAccessoryLabel" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let adjustsFontForContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsFontForContentSizeCategory") ~typ:(returning (bool)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithText x self = msg_send ~self ~cmd:(selector "initWithText:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let setAdjustsFontForContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsFontForContentSizeCategory:") ~typ:(bool @-> returning (void)) x -let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning (void)) x -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UICellAccessoryManager.ml b/uikit/UICellAccessoryManager.ml deleted file mode 100644 index e2192ddd..00000000 --- a/uikit/UICellAccessoryManager.ml +++ /dev/null @@ -1,43 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICellAccessoryManager" - -let accessoryViews self = msg_send ~self ~cmd:(selector "accessoryViews") ~typ:(returning (id)) -let configurations self = msg_send ~self ~cmd:(selector "configurations") ~typ:(returning (id)) -let containerBounds self = msg_send_stret ~self ~cmd:(selector "containerBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let containerSize self = msg_send_stret ~self ~cmd:(selector "containerSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning (id)) -let contentFrame self = msg_send_stret ~self ~cmd:(selector "contentFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let currentConfiguration self = msg_send ~self ~cmd:(selector "currentConfiguration") ~typ:(returning (id)) -let currentConfigurationIdentifier self = msg_send ~self ~cmd:(selector "currentConfigurationIdentifier") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let disclosureLayoutWidthProvider self = msg_send ~self ~cmd:(selector "disclosureLayoutWidthProvider") ~typ:(returning (ptr void)) -let initWithContainerView x self = msg_send ~self ~cmd:(selector "initWithContainerView:") ~typ:(id @-> returning (id)) x -let layoutIfNeeded self = msg_send ~self ~cmd:(selector "layoutIfNeeded") ~typ:(returning (void)) -let leadingLayout self = msg_send ~self ~cmd:(selector "leadingLayout") ~typ:(returning (id)) -let needsLayout self = msg_send ~self ~cmd:(selector "needsLayout") ~typ:(returning (bool)) -let performWithEnforcedContainerSize x ~block self = msg_send ~self ~cmd:(selector "performWithEnforcedContainerSize:block:") ~typ:(CGSize.t @-> ptr void @-> returning (void)) x block -let previousConfiguration self = msg_send ~self ~cmd:(selector "previousConfiguration") ~typ:(returning (id)) -let previousContainerSize self = msg_send_stret ~self ~cmd:(selector "previousContainerSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let setAccessoryViews x self = msg_send ~self ~cmd:(selector "setAccessoryViews:") ~typ:(id @-> returning (void)) x -let setConfigurations x self = msg_send ~self ~cmd:(selector "setConfigurations:") ~typ:(id @-> returning (void)) x -let setContainerView x self = msg_send ~self ~cmd:(selector "setContainerView:") ~typ:(id @-> returning (void)) x -let setCurrentConfigurationIdentifier x self = msg_send ~self ~cmd:(selector "setCurrentConfigurationIdentifier:") ~typ:(id @-> returning (void)) x -let setDisclosureLayoutWidthProvider x self = msg_send ~self ~cmd:(selector "setDisclosureLayoutWidthProvider:") ~typ:(ptr void @-> returning (void)) x -let setLeadingLayout x self = msg_send ~self ~cmd:(selector "setLeadingLayout:") ~typ:(id @-> returning (void)) x -let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning (void)) -let setNeedsLayout' x self = msg_send ~self ~cmd:(selector "setNeedsLayout:") ~typ:(bool @-> returning (void)) x -let setPreviousConfiguration x self = msg_send ~self ~cmd:(selector "setPreviousConfiguration:") ~typ:(id @-> returning (void)) x -let setPreviousContainerSize x self = msg_send ~self ~cmd:(selector "setPreviousContainerSize:") ~typ:(CGSize.t @-> returning (void)) x -let setSafeAreaInsets x self = msg_send ~self ~cmd:(selector "setSafeAreaInsets:") ~typ:(ptr void @-> returning (void)) x -let setStandardLayoutWidthProvider x self = msg_send ~self ~cmd:(selector "setStandardLayoutWidthProvider:") ~typ:(ptr void @-> returning (void)) x -let setTrailingLayout x self = msg_send ~self ~cmd:(selector "setTrailingLayout:") ~typ:(id @-> returning (void)) x -let standardLayoutWidthProvider self = msg_send ~self ~cmd:(selector "standardLayoutWidthProvider") ~typ:(returning (ptr void)) -let trailingLayout self = msg_send ~self ~cmd:(selector "trailingLayout") ~typ:(returning (id)) -let updateContainerView x self = msg_send ~self ~cmd:(selector "updateContainerView:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UICellAccessoryMultiselect.ml b/uikit/UICellAccessoryMultiselect.ml deleted file mode 100644 index b6baf61e..00000000 --- a/uikit/UICellAccessoryMultiselect.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICellAccessoryMultiselect" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UICellAccessoryOutlineDisclosure.ml b/uikit/UICellAccessoryOutlineDisclosure.ml deleted file mode 100644 index 4d468fc9..00000000 --- a/uikit/UICellAccessoryOutlineDisclosure.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICellAccessoryOutlineDisclosure" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let actionHandler self = msg_send ~self ~cmd:(selector "actionHandler") ~typ:(returning (ptr void)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let rotationAngle self = msg_send ~self ~cmd:(selector "rotationAngle") ~typ:(returning (double)) -let setActionHandler x self = msg_send ~self ~cmd:(selector "setActionHandler:") ~typ:(ptr void @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit/UICellAccessoryReorder.ml b/uikit/UICellAccessoryReorder.ml deleted file mode 100644 index 332588ec..00000000 --- a/uikit/UICellAccessoryReorder.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICellAccessoryReorder" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let setShowsVerticalSeparator x self = msg_send ~self ~cmd:(selector "setShowsVerticalSeparator:") ~typ:(bool @-> returning (void)) x -let showsVerticalSeparator self = msg_send ~self ~cmd:(selector "showsVerticalSeparator") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UICellConfigurationState.ml b/uikit/UICellConfigurationState.ml deleted file mode 100644 index c459771c..00000000 --- a/uikit/UICellConfigurationState.ml +++ /dev/null @@ -1,30 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICellConfigurationState" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let cellDragState self = msg_send ~self ~cmd:(selector "cellDragState") ~typ:(returning (llong)) -let cellDropState self = msg_send ~self ~cmd:(selector "cellDropState") ~typ:(returning (llong)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isExpanded self = msg_send ~self ~cmd:(selector "isExpanded") ~typ:(returning (bool)) -let isReordering self = msg_send ~self ~cmd:(selector "isReordering") ~typ:(returning (bool)) -let isSwiped self = msg_send ~self ~cmd:(selector "isSwiped") ~typ:(returning (bool)) -let setCellDragState x self = msg_send ~self ~cmd:(selector "setCellDragState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCellDropState x self = msg_send ~self ~cmd:(selector "setCellDropState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning (void)) x -let setExpanded x self = msg_send ~self ~cmd:(selector "setExpanded:") ~typ:(bool @-> returning (void)) x -let setReordering x self = msg_send ~self ~cmd:(selector "setReordering:") ~typ:(bool @-> returning (void)) x -let setSwiped x self = msg_send ~self ~cmd:(selector "setSwiped:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UICellHighlightingSupport.ml b/uikit/UICellHighlightingSupport.ml deleted file mode 100644 index 472783f1..00000000 --- a/uikit/UICellHighlightingSupport.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICellHighlightingSupport" - -let applyState x ~toView self = msg_send ~self ~cmd:(selector "applyState:toView:") ~typ:(ullong @-> id @-> returning (void)) (ULLong.of_int x) toView -let cacheState x ~forView self = msg_send ~self ~cmd:(selector "cacheState:forView:") ~typ:(ullong @-> id @-> returning (void)) (ULLong.of_int x) forView -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let highlightView x self = msg_send ~self ~cmd:(selector "highlightView:") ~typ:(id @-> returning (void)) x -let initWithCell x self = msg_send ~self ~cmd:(selector "initWithCell:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit/UICheckeredPatternView.ml b/uikit/UICheckeredPatternView.ml index 595f2930..5d1aa0d1 100644 --- a/uikit/UICheckeredPatternView.ml +++ b/uikit/UICheckeredPatternView.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICheckeredPatternView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicheckeredpatternview?language=objc}UICheckeredPatternView} *) -let checkerColor self = msg_send ~self ~cmd:(selector "checkerColor") ~typ:(returning (id)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let setCheckerColor x self = msg_send ~self ~cmd:(selector "setCheckerColor:") ~typ:(id @-> returning (void)) x -let updatePatternColor self = msg_send ~self ~cmd:(selector "updatePatternColor") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UICheckeredPatternView" + +let checkerColor self = msg_send ~self ~cmd:(selector "checkerColor") ~typ:(returning id) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let setCheckerColor x self = msg_send ~self ~cmd:(selector "setCheckerColor:") ~typ:(id @-> returning void) x +let updatePatternColor self = msg_send ~self ~cmd:(selector "updatePatternColor") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIClassSwapper.ml b/uikit/UIClassSwapper.ml index 46e29aa4..814390c3 100644 --- a/uikit/UIClassSwapper.ml +++ b/uikit/UIClassSwapper.ml @@ -5,16 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIClassSwapper" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiclassswapper?language=objc}UIClassSwapper} *) -module C = struct - let swapperForObject x ~withClassName self = msg_send ~self ~cmd:(selector "swapperForObject:withClassName:") ~typ:(id @-> id @-> returning (id)) x withClassName -end +let self = get_class "UIClassSwapper" -let className self = msg_send ~self ~cmd:(selector "className") ~typ:(returning (id)) -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 initWithObject x ~andClassName self = msg_send ~self ~cmd:(selector "initWithObject:andClassName:") ~typ:(id @-> id @-> returning (id)) x andClassName -let object_ self = msg_send ~self ~cmd:(selector "object") ~typ:(returning (id)) -let performSelectorForObject x ~selector_ ~withObject ~withObject_ ~withObject__ self = msg_send ~self ~cmd:(selector "performSelectorForObject:selector:withObject:withObject:withObject:") ~typ:(id @-> _SEL @-> id @-> id @-> id @-> returning (id)) x selector_ withObject withObject_ withObject__ \ No newline at end of file +let className self = msg_send ~self ~cmd:(selector "className") ~typ:(returning id) +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 initWithObject x ~andClassName self = msg_send ~self ~cmd:(selector "initWithObject:andClassName:") ~typ:(id @-> id @-> returning id) x andClassName +let object_ self = msg_send ~self ~cmd:(selector "object") ~typ:(returning id) +let performSelectorForObject x ~selector_ ~withObject ~withObject_ ~withObject__ self = msg_send ~self ~cmd:(selector "performSelectorForObject:selector:withObject:withObject:withObject:") ~typ:(id @-> _SEL @-> id @-> id @-> id @-> returning id) x selector_ withObject withObject_ withObject__ \ No newline at end of file diff --git a/uikit/UIClassSwapperClass.ml b/uikit/UIClassSwapperClass.ml new file mode 100644 index 00000000..f5dbf54b --- /dev/null +++ b/uikit/UIClassSwapperClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiclassswapper?language=objc}UIClassSwapper} *) + +let swapperForObject x ~withClassName self = msg_send ~self ~cmd:(selector "swapperForObject:withClassName:") ~typ:(id @-> id @-> returning id) x withClassName \ No newline at end of file diff --git a/uikit/UIClientRotationContext.ml b/uikit/UIClientRotationContext.ml index 496d3757..63f70d7d 100644 --- a/uikit/UIClientRotationContext.ml +++ b/uikit/UIClientRotationContext.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIClientRotationContext" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiclientrotationcontext?language=objc}UIClientRotationContext} *) -let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning (double)) -let finishFirstHalfRotation self = msg_send ~self ~cmd:(selector "finishFirstHalfRotation") ~typ:(returning (void)) -let finishFullRotateUsingOnePartAnimation x self = msg_send ~self ~cmd:(selector "finishFullRotateUsingOnePartAnimation:") ~typ:(bool @-> returning (void)) x -let fromOrientation self = msg_send ~self ~cmd:(selector "fromOrientation") ~typ:(returning (llong)) -let initWithClient x ~toOrientation ~duration ~andWindow self = msg_send ~self ~cmd:(selector "initWithClient:toOrientation:duration:andWindow:") ~typ:(id @-> llong @-> double @-> id @-> returning (id)) x (LLong.of_int toOrientation) duration andWindow -let rotateSnapshots self = msg_send ~self ~cmd:(selector "rotateSnapshots") ~typ:(returning (void)) -let rotatingClient self = msg_send ~self ~cmd:(selector "rotatingClient") ~typ:(returning (id)) -let setSkipClientRotationCallbacks x self = msg_send ~self ~cmd:(selector "setSkipClientRotationCallbacks:") ~typ:(bool @-> returning (void)) x -let setupRotationOrderingKeyboardInAfterRotation x self = msg_send ~self ~cmd:(selector "setupRotationOrderingKeyboardInAfterRotation:") ~typ:(bool @-> returning (void)) x -let skipClientRotationCallbacks self = msg_send ~self ~cmd:(selector "skipClientRotationCallbacks") ~typ:(returning (bool)) -let slideHeaderViewAndFooterViewOffScreen x ~forInterfaceOrientation self = msg_send ~self ~cmd:(selector "slideHeaderViewAndFooterViewOffScreen:forInterfaceOrientation:") ~typ:(bool @-> llong @-> returning (void)) x (LLong.of_int forInterfaceOrientation) -let toOrientation self = msg_send ~self ~cmd:(selector "toOrientation") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIClientRotationContext" + +let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning double) +let finishFirstHalfRotation self = msg_send ~self ~cmd:(selector "finishFirstHalfRotation") ~typ:(returning void) +let finishFullRotateUsingOnePartAnimation x self = msg_send ~self ~cmd:(selector "finishFullRotateUsingOnePartAnimation:") ~typ:(bool @-> returning void) x +let fromOrientation self = msg_send ~self ~cmd:(selector "fromOrientation") ~typ:(returning llong) +let initWithClient x ~toOrientation ~duration ~andWindow self = msg_send ~self ~cmd:(selector "initWithClient:toOrientation:duration:andWindow:") ~typ:(id @-> llong @-> double @-> id @-> returning id) x (LLong.of_int toOrientation) duration andWindow +let rotateSnapshots self = msg_send ~self ~cmd:(selector "rotateSnapshots") ~typ:(returning void) +let rotatingClient self = msg_send ~self ~cmd:(selector "rotatingClient") ~typ:(returning id) +let setSkipClientRotationCallbacks x self = msg_send ~self ~cmd:(selector "setSkipClientRotationCallbacks:") ~typ:(bool @-> returning void) x +let setupRotationOrderingKeyboardInAfterRotation x self = msg_send ~self ~cmd:(selector "setupRotationOrderingKeyboardInAfterRotation:") ~typ:(bool @-> returning void) x +let skipClientRotationCallbacks self = msg_send ~self ~cmd:(selector "skipClientRotationCallbacks") ~typ:(returning bool) +let slideHeaderViewAndFooterViewOffScreen x ~forInterfaceOrientation self = msg_send ~self ~cmd:(selector "slideHeaderViewAndFooterViewOffScreen:forInterfaceOrientation:") ~typ:(bool @-> llong @-> returning void) x (LLong.of_int forInterfaceOrientation) +let toOrientation self = msg_send ~self ~cmd:(selector "toOrientation") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UICloudSharingController.ml b/uikit/UICloudSharingController.ml index 8d515939..4fe355e5 100644 --- a/uikit/UICloudSharingController.ml +++ b/uikit/UICloudSharingController.ml @@ -5,37 +5,41 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICloudSharingController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicloudsharingcontroller?language=objc}UICloudSharingController} *) -let activityItemSource self = msg_send ~self ~cmd:(selector "activityItemSource") ~typ:(returning (id)) -let availablePermissions self = msg_send ~self ~cmd:(selector "availablePermissions") ~typ:(returning (ullong)) -let bridgedCloudSharingController self = msg_send ~self ~cmd:(selector "bridgedCloudSharingController") ~typ:(returning (id)) -let cloudSharingController x ~failedToSaveShareWithError self = msg_send ~self ~cmd:(selector "cloudSharingController:failedToSaveShareWithError:") ~typ:(id @-> id @-> returning (void)) x failedToSaveShareWithError -let cloudSharingControllerDidCompleteShare x self = msg_send ~self ~cmd:(selector "cloudSharingControllerDidCompleteShare:") ~typ:(id @-> returning (void)) x -let cloudSharingControllerDidSaveShare x self = msg_send ~self ~cmd:(selector "cloudSharingControllerDidSaveShare:") ~typ:(id @-> returning (void)) x -let cloudSharingControllerDidStopSharing x self = msg_send ~self ~cmd:(selector "cloudSharingControllerDidStopSharing:") ~typ:(id @-> returning (void)) x -let container self = msg_send ~self ~cmd:(selector "container") ~typ:(returning (id)) -let containerSetupInfo self = msg_send ~self ~cmd:(selector "containerSetupInfo") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let dismissalTransitionWillBeginNotification x self = msg_send ~self ~cmd:(selector "dismissalTransitionWillBeginNotification:") ~typ:(id @-> returning (void)) x -let initWithPreparationHandler x self = msg_send ~self ~cmd:(selector "initWithPreparationHandler:") ~typ:(ptr void @-> returning (id)) x -let initWithShare x ~container self = msg_send ~self ~cmd:(selector "initWithShare:container:") ~typ:(id @-> id @-> returning (id)) x container -let initWithShare' x ~preparationHandler self = msg_send ~self ~cmd:(selector "initWithShare:preparationHandler:") ~typ:(id @-> ptr void @-> returning (id)) x preparationHandler -let internalDelegate self = msg_send ~self ~cmd:(selector "internalDelegate") ~typ:(returning (id)) -let itemThumbnailDataForCloudSharingController x self = msg_send ~self ~cmd:(selector "itemThumbnailDataForCloudSharingController:") ~typ:(id @-> returning (id)) x -let itemTitleForCloudSharingController x self = msg_send ~self ~cmd:(selector "itemTitleForCloudSharingController:") ~typ:(id @-> returning (id)) x -let itemTypeForCloudSharingController x self = msg_send ~self ~cmd:(selector "itemTypeForCloudSharingController:") ~typ:(id @-> returning (id)) x -let modalPresentationStyle self = msg_send ~self ~cmd:(selector "modalPresentationStyle") ~typ:(returning (llong)) +let self = get_class "UICloudSharingController" + +let activityItemSource self = msg_send ~self ~cmd:(selector "activityItemSource") ~typ:(returning id) +let availablePermissions self = msg_send ~self ~cmd:(selector "availablePermissions") ~typ:(returning ullong) +let bridgedCloudSharingController self = msg_send ~self ~cmd:(selector "bridgedCloudSharingController") ~typ:(returning id) +let cloudSharingController x ~failedToSaveShareWithError self = msg_send ~self ~cmd:(selector "cloudSharingController:failedToSaveShareWithError:") ~typ:(id @-> id @-> returning void) x failedToSaveShareWithError +let cloudSharingControllerDidCompleteShare x self = msg_send ~self ~cmd:(selector "cloudSharingControllerDidCompleteShare:") ~typ:(id @-> returning void) x +let cloudSharingControllerDidSaveShare x self = msg_send ~self ~cmd:(selector "cloudSharingControllerDidSaveShare:") ~typ:(id @-> returning void) x +let cloudSharingControllerDidStopSharing x self = msg_send ~self ~cmd:(selector "cloudSharingControllerDidStopSharing:") ~typ:(id @-> returning void) x +let container self = msg_send ~self ~cmd:(selector "container") ~typ:(returning id) +let containerSetupInfo self = msg_send ~self ~cmd:(selector "containerSetupInfo") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let dismissalTransitionWillBeginNotification x self = msg_send ~self ~cmd:(selector "dismissalTransitionWillBeginNotification:") ~typ:(id @-> returning void) x +let initWithPreparationHandler x self = msg_send ~self ~cmd:(selector "initWithPreparationHandler:") ~typ:((ptr void) @-> returning id) x +let initWithShare x ~container self = msg_send ~self ~cmd:(selector "initWithShare:container:") ~typ:(id @-> id @-> returning id) x container +let initWithShare' x ~preparationHandler self = msg_send ~self ~cmd:(selector "initWithShare:preparationHandler:") ~typ:(id @-> (ptr void) @-> returning id) x preparationHandler +let internalDelegate self = msg_send ~self ~cmd:(selector "internalDelegate") ~typ:(returning id) +let itemThumbnailDataForCloudSharingController x self = msg_send ~self ~cmd:(selector "itemThumbnailDataForCloudSharingController:") ~typ:(id @-> returning id) x +let itemTitleForCloudSharingController x self = msg_send ~self ~cmd:(selector "itemTitleForCloudSharingController:") ~typ:(id @-> returning id) x +let itemTypeForCloudSharingController x self = msg_send ~self ~cmd:(selector "itemTypeForCloudSharingController:") ~typ:(id @-> returning id) x +let modalPresentationStyle self = msg_send ~self ~cmd:(selector "modalPresentationStyle") ~typ:(returning llong) let preparationHandler self = msg_send ~self ~cmd:(selector "preparationHandler") ~typ:(returning (ptr void)) -let presentationTransitionWillBeginNotification x self = msg_send ~self ~cmd:(selector "presentationTransitionWillBeginNotification:") ~typ:(id @-> returning (void)) x -let setAvailablePermissions x self = msg_send ~self ~cmd:(selector "setAvailablePermissions:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setBridgedCloudSharingController x self = msg_send ~self ~cmd:(selector "setBridgedCloudSharingController:") ~typ:(id @-> returning (void)) x -let setContainer x self = msg_send ~self ~cmd:(selector "setContainer:") ~typ:(id @-> returning (void)) x -let setContainerSetupInfo x self = msg_send ~self ~cmd:(selector "setContainerSetupInfo:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setInternalDelegate x self = msg_send ~self ~cmd:(selector "setInternalDelegate:") ~typ:(id @-> returning (void)) x -let setPreparationHandler x self = msg_send ~self ~cmd:(selector "setPreparationHandler:") ~typ:(ptr void @-> returning (void)) x -let setShare x self = msg_send ~self ~cmd:(selector "setShare:") ~typ:(id @-> returning (void)) x -let share self = msg_send ~self ~cmd:(selector "share") ~typ:(returning (id)) \ No newline at end of file +let presentationTransitionWillBeginNotification x self = msg_send ~self ~cmd:(selector "presentationTransitionWillBeginNotification:") ~typ:(id @-> returning void) x +let setAvailablePermissions x self = msg_send ~self ~cmd:(selector "setAvailablePermissions:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setBridgedCloudSharingController x self = msg_send ~self ~cmd:(selector "setBridgedCloudSharingController:") ~typ:(id @-> returning void) x +let setContainer x self = msg_send ~self ~cmd:(selector "setContainer:") ~typ:(id @-> returning void) x +let setContainerSetupInfo x self = msg_send ~self ~cmd:(selector "setContainerSetupInfo:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setInternalDelegate x self = msg_send ~self ~cmd:(selector "setInternalDelegate:") ~typ:(id @-> returning void) x +let setPreparationHandler x self = msg_send ~self ~cmd:(selector "setPreparationHandler:") ~typ:((ptr void) @-> returning void) x +let setShare x self = msg_send ~self ~cmd:(selector "setShare:") ~typ:(id @-> returning void) x +let share self = msg_send ~self ~cmd:(selector "share") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UICollectionLayoutListConfiguration.ml b/uikit/UICollectionLayoutListConfiguration.ml index 68f2b356..2106eae5 100644 --- a/uikit/UICollectionLayoutListConfiguration.ml +++ b/uikit/UICollectionLayoutListConfiguration.ml @@ -5,28 +5,32 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionLayoutListConfiguration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionlayoutlistconfiguration?language=objc}UICollectionLayoutListConfiguration} *) -let appearance self = msg_send ~self ~cmd:(selector "appearance") ~typ:(returning (llong)) -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let footerMode self = msg_send ~self ~cmd:(selector "footerMode") ~typ:(returning (llong)) -let headerMode self = msg_send ~self ~cmd:(selector "headerMode") ~typ:(returning (llong)) -let headerTopPadding self = msg_send ~self ~cmd:(selector "headerTopPadding") ~typ:(returning (double)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithAppearance x self = msg_send ~self ~cmd:(selector "initWithAppearance:") ~typ:(llong @-> returning (id)) (LLong.of_int x) +let self = get_class "UICollectionLayoutListConfiguration" + +let appearance self = msg_send ~self ~cmd:(selector "appearance") ~typ:(returning llong) +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let footerMode self = msg_send ~self ~cmd:(selector "footerMode") ~typ:(returning llong) +let headerMode self = msg_send ~self ~cmd:(selector "headerMode") ~typ:(returning llong) +let headerTopPadding self = msg_send ~self ~cmd:(selector "headerTopPadding") ~typ:(returning double) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithAppearance x self = msg_send ~self ~cmd:(selector "initWithAppearance:") ~typ:(llong @-> returning id) (LLong.of_int x) let itemSeparatorHandler self = msg_send ~self ~cmd:(selector "itemSeparatorHandler") ~typ:(returning (ptr void)) let leadingSwipeActionsConfigurationProvider self = msg_send ~self ~cmd:(selector "leadingSwipeActionsConfigurationProvider") ~typ:(returning (ptr void)) -let separatorConfiguration self = msg_send ~self ~cmd:(selector "separatorConfiguration") ~typ:(returning (id)) -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setFooterMode x self = msg_send ~self ~cmd:(selector "setFooterMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setHeaderMode x self = msg_send ~self ~cmd:(selector "setHeaderMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setHeaderTopPadding x self = msg_send ~self ~cmd:(selector "setHeaderTopPadding:") ~typ:(double @-> returning (void)) x -let setItemSeparatorHandler x self = msg_send ~self ~cmd:(selector "setItemSeparatorHandler:") ~typ:(ptr void @-> returning (void)) x -let setLeadingSwipeActionsConfigurationProvider x self = msg_send ~self ~cmd:(selector "setLeadingSwipeActionsConfigurationProvider:") ~typ:(ptr void @-> returning (void)) x -let setSeparatorConfiguration x self = msg_send ~self ~cmd:(selector "setSeparatorConfiguration:") ~typ:(id @-> returning (void)) x -let setShowsSeparators x self = msg_send ~self ~cmd:(selector "setShowsSeparators:") ~typ:(bool @-> returning (void)) x -let setTrailingSwipeActionsConfigurationProvider x self = msg_send ~self ~cmd:(selector "setTrailingSwipeActionsConfigurationProvider:") ~typ:(ptr void @-> returning (void)) x -let showsSeparators self = msg_send ~self ~cmd:(selector "showsSeparators") ~typ:(returning (bool)) +let separatorConfiguration self = msg_send ~self ~cmd:(selector "separatorConfiguration") ~typ:(returning id) +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setFooterMode x self = msg_send ~self ~cmd:(selector "setFooterMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setHeaderMode x self = msg_send ~self ~cmd:(selector "setHeaderMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setHeaderTopPadding x self = msg_send ~self ~cmd:(selector "setHeaderTopPadding:") ~typ:(double @-> returning void) x +let setItemSeparatorHandler x self = msg_send ~self ~cmd:(selector "setItemSeparatorHandler:") ~typ:((ptr void) @-> returning void) x +let setLeadingSwipeActionsConfigurationProvider x self = msg_send ~self ~cmd:(selector "setLeadingSwipeActionsConfigurationProvider:") ~typ:((ptr void) @-> returning void) x +let setSeparatorConfiguration x self = msg_send ~self ~cmd:(selector "setSeparatorConfiguration:") ~typ:(id @-> returning void) x +let setShowsSeparators x self = msg_send ~self ~cmd:(selector "setShowsSeparators:") ~typ:(bool @-> returning void) x +let setTrailingSwipeActionsConfigurationProvider x self = msg_send ~self ~cmd:(selector "setTrailingSwipeActionsConfigurationProvider:") ~typ:((ptr void) @-> returning void) x +let showsSeparators self = msg_send ~self ~cmd:(selector "showsSeparators") ~typ:(returning bool) let trailingSwipeActionsConfigurationProvider self = msg_send ~self ~cmd:(selector "trailingSwipeActionsConfigurationProvider") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/uikit/UICollectionReusableView.ml b/uikit/UICollectionReusableView.ml index ed81aa2e..bb9d6d77 100644 --- a/uikit/UICollectionReusableView.ml +++ b/uikit/UICollectionReusableView.ml @@ -5,21 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionReusableView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionreusableview?language=objc}UICollectionReusableView} *) -let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning (void)) x -let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning (bool)) -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let didTransitionFromLayout x ~toLayout self = msg_send ~self ~cmd:(selector "didTransitionFromLayout:toLayout:") ~typ:(id @-> id @-> returning (void)) x toLayout -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 initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let preferredLayoutAttributesFittingAttributes x self = msg_send ~self ~cmd:(selector "preferredLayoutAttributesFittingAttributes:") ~typ:(id @-> returning (id)) x -let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning (void)) -let reuseIdentifier self = msg_send ~self ~cmd:(selector "reuseIdentifier") ~typ:(returning (id)) -let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning (void)) x -let setPreferredAttributesValid x self = msg_send ~self ~cmd:(selector "setPreferredAttributesValid:") ~typ:(bool @-> returning (void)) x -let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning (void)) x -let willTransitionFromLayout x ~toLayout self = msg_send ~self ~cmd:(selector "willTransitionFromLayout:toLayout:") ~typ:(id @-> id @-> returning (void)) x toLayout \ No newline at end of file +let self = get_class "UICollectionReusableView" + +let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning void) x +let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning bool) +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let didTransitionFromLayout x ~toLayout self = msg_send ~self ~cmd:(selector "didTransitionFromLayout:toLayout:") ~typ:(id @-> id @-> returning void) x toLayout +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 initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let preferredLayoutAttributesFittingAttributes x self = msg_send ~self ~cmd:(selector "preferredLayoutAttributesFittingAttributes:") ~typ:(id @-> returning id) x +let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning void) +let reuseIdentifier self = msg_send ~self ~cmd:(selector "reuseIdentifier") ~typ:(returning id) +let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning void) x +let setPreferredAttributesValid x self = msg_send ~self ~cmd:(selector "setPreferredAttributesValid:") ~typ:(bool @-> returning void) x +let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning void) x +let willTransitionFromLayout x ~toLayout self = msg_send ~self ~cmd:(selector "willTransitionFromLayout:toLayout:") ~typ:(id @-> id @-> returning void) x toLayout \ No newline at end of file diff --git a/uikit/UICollectionView.ml b/uikit/UICollectionView.ml index f3930bcb..d12e60cf 100644 --- a/uikit/UICollectionView.ml +++ b/uikit/UICollectionView.ml @@ -5,171 +5,175 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionview?language=objc}UICollectionView} *) -let allowsFocus self = msg_send ~self ~cmd:(selector "allowsFocus") ~typ:(returning (bool)) -let allowsFocusDuringEditing self = msg_send ~self ~cmd:(selector "allowsFocusDuringEditing") ~typ:(returning (bool)) -let allowsMultipleSelection self = msg_send ~self ~cmd:(selector "allowsMultipleSelection") ~typ:(returning (bool)) -let allowsMultipleSelectionDuringEditing self = msg_send ~self ~cmd:(selector "allowsMultipleSelectionDuringEditing") ~typ:(returning (bool)) -let allowsSelection self = msg_send ~self ~cmd:(selector "allowsSelection") ~typ:(returning (bool)) -let allowsSelectionDuringEditing self = msg_send ~self ~cmd:(selector "allowsSelectionDuringEditing") ~typ:(returning (bool)) -let allowsUserInitiatedMultipleSelection self = msg_send ~self ~cmd:(selector "allowsUserInitiatedMultipleSelection") ~typ:(returning (bool)) -let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning (id)) -let beginInteractiveMovementForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "beginInteractiveMovementForItemAtIndexPath:") ~typ:(id @-> returning (bool)) x -let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning (bool)) -let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning (bool)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let cancelInteractiveMovement self = msg_send ~self ~cmd:(selector "cancelInteractiveMovement") ~typ:(returning (void)) -let cancelInteractiveTransition self = msg_send ~self ~cmd:(selector "cancelInteractiveTransition") ~typ:(returning (void)) -let cellForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "cellForItemAtIndexPath:") ~typ:(id @-> returning (id)) x -let collectionViewLayout self = msg_send ~self ~cmd:(selector "collectionViewLayout") ~typ:(returning (id)) -let contextMenuInteraction self = msg_send ~self ~cmd:(selector "contextMenuInteraction") ~typ:(returning (id)) -let contextMenuInteraction1 x ~configurationForMenuAtLocation self = msg_send ~self ~cmd:(selector "contextMenuInteraction:configurationForMenuAtLocation:") ~typ:(id @-> CGPoint.t @-> returning (id)) x configurationForMenuAtLocation -let contextMenuInteraction2 x ~previewForDismissingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForDismissingMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) x previewForDismissingMenuWithConfiguration -let contextMenuInteraction3 x ~previewForHighlightingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForHighlightingMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) x previewForHighlightingMenuWithConfiguration -let contextMenuInteraction4 x ~willDisplayMenuForConfiguration ~animator self = msg_send ~self ~cmd:(selector "contextMenuInteraction:willDisplayMenuForConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willDisplayMenuForConfiguration animator -let contextMenuInteraction5 x ~willEndForConfiguration ~animator self = msg_send ~self ~cmd:(selector "contextMenuInteraction:willEndForConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willEndForConfiguration animator -let contextMenuInteraction6 x ~willPerformPreviewActionForMenuWithConfiguration ~animator self = msg_send ~self ~cmd:(selector "contextMenuInteraction:willPerformPreviewActionForMenuWithConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willPerformPreviewActionForMenuWithConfiguration animator -let dataSource self = msg_send ~self ~cmd:(selector "dataSource") ~typ:(returning (id)) -let dataSourceIndexPathForPresentationIndexPath x self = msg_send ~self ~cmd:(selector "dataSourceIndexPathForPresentationIndexPath:") ~typ:(id @-> returning (id)) x -let dataSourceSectionIndexForPresentationSectionIndex x self = msg_send ~self ~cmd:(selector "dataSourceSectionIndexForPresentationSectionIndex:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let deleteItemsAtIndexPaths x self = msg_send ~self ~cmd:(selector "deleteItemsAtIndexPaths:") ~typ:(id @-> returning (void)) x -let deleteSections x self = msg_send ~self ~cmd:(selector "deleteSections:") ~typ:(id @-> returning (void)) x -let dequeueConfiguredReusableCellWithRegistration x ~forIndexPath ~item self = msg_send ~self ~cmd:(selector "dequeueConfiguredReusableCellWithRegistration:forIndexPath:item:") ~typ:(id @-> id @-> id @-> returning (id)) x forIndexPath item -let dequeueConfiguredReusableSupplementaryViewWithRegistration x ~forIndexPath self = msg_send ~self ~cmd:(selector "dequeueConfiguredReusableSupplementaryViewWithRegistration:forIndexPath:") ~typ:(id @-> id @-> returning (id)) x forIndexPath -let dequeueReusableCellWithReuseIdentifier x ~forIndexPath self = msg_send ~self ~cmd:(selector "dequeueReusableCellWithReuseIdentifier:forIndexPath:") ~typ:(id @-> id @-> returning (id)) x forIndexPath -let dequeueReusableSupplementaryViewOfKind x ~withReuseIdentifier ~forIndexPath self = msg_send ~self ~cmd:(selector "dequeueReusableSupplementaryViewOfKind:withReuseIdentifier:forIndexPath:") ~typ:(id @-> id @-> id @-> returning (id)) x withReuseIdentifier forIndexPath -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let deselectItemAtIndexPath x ~animated self = msg_send ~self ~cmd:(selector "deselectItemAtIndexPath:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let dragDelegate self = msg_send ~self ~cmd:(selector "dragDelegate") ~typ:(returning (id)) -let dragDestinationDelegate self = msg_send ~self ~cmd:(selector "dragDestinationDelegate") ~typ:(returning (id)) -let dragInteractionEnabled self = msg_send ~self ~cmd:(selector "dragInteractionEnabled") ~typ:(returning (bool)) -let dragSourceDelegate self = msg_send ~self ~cmd:(selector "dragSourceDelegate") ~typ:(returning (id)) -let dropDelegate self = msg_send ~self ~cmd:(selector "dropDelegate") ~typ:(returning (id)) -let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let endInteractiveMovement self = msg_send ~self ~cmd:(selector "endInteractiveMovement") ~typ:(returning (void)) -let finishInteractiveTransition self = msg_send ~self ~cmd:(selector "finishInteractiveTransition") ~typ:(returning (void)) -let hasActiveDrag self = msg_send ~self ~cmd:(selector "hasActiveDrag") ~typ:(returning (bool)) -let hasActiveDrop self = msg_send ~self ~cmd:(selector "hasActiveDrop") ~typ:(returning (bool)) -let hasUncommittedUpdates self = msg_send ~self ~cmd:(selector "hasUncommittedUpdates") ~typ:(returning (bool)) -let highlightedGlobalItem self = msg_send ~self ~cmd:(selector "highlightedGlobalItem") ~typ:(returning (llong)) -let horizontalIndexBar x ~selectedEntry self = msg_send ~self ~cmd:(selector "horizontalIndexBar:selectedEntry:") ~typ:(id @-> id @-> returning (void)) x selectedEntry -let indexBarAccessoryView x ~contentOffsetForEntry ~atIndex self = msg_send_stret ~self ~cmd:(selector "indexBarAccessoryView:contentOffsetForEntry:atIndex:") ~typ:(id @-> id @-> llong @-> returning (CGPoint.t)) ~return_type:CGPoint.t x contentOffsetForEntry (LLong.of_int atIndex) -let indexPathForCell x self = msg_send ~self ~cmd:(selector "indexPathForCell:") ~typ:(id @-> returning (id)) x -let indexPathForItemAtPoint x self = msg_send ~self ~cmd:(selector "indexPathForItemAtPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let indexPathForSupplementaryView x self = msg_send ~self ~cmd:(selector "indexPathForSupplementaryView:") ~typ:(id @-> returning (id)) x -let indexPathOfFocusedCellBeforeFocusingOnHorizontalIndexTitleBar self = msg_send ~self ~cmd:(selector "indexPathOfFocusedCellBeforeFocusingOnHorizontalIndexTitleBar") ~typ:(returning (id)) -let indexPathsForSelectedItems self = msg_send ~self ~cmd:(selector "indexPathsForSelectedItems") ~typ:(returning (id)) -let indexPathsForVisibleItems self = msg_send ~self ~cmd:(selector "indexPathsForVisibleItems") ~typ:(returning (id)) -let indexPathsForVisibleSupplementaryElementsOfKind x self = msg_send ~self ~cmd:(selector "indexPathsForVisibleSupplementaryElementsOfKind:") ~typ:(id @-> returning (id)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithFrame' x ~collectionViewLayout self = msg_send ~self ~cmd:(selector "initWithFrame:collectionViewLayout:") ~typ:(CGRect.t @-> id @-> returning (id)) x collectionViewLayout -let insertItemsAtIndexPaths x self = msg_send ~self ~cmd:(selector "insertItemsAtIndexPaths:") ~typ:(id @-> returning (void)) x -let insertSections x self = msg_send ~self ~cmd:(selector "insertSections:") ~typ:(id @-> returning (void)) x -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let isDragSessionActive self = msg_send ~self ~cmd:(selector "isDragSessionActive") ~typ:(returning (bool)) -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let isMovingFocusFromHorizontalIndexTitleBarToContent self = msg_send ~self ~cmd:(selector "isMovingFocusFromHorizontalIndexTitleBarToContent") ~typ:(returning (bool)) -let isPrefetchingEnabled self = msg_send ~self ~cmd:(selector "isPrefetchingEnabled") ~typ:(returning (bool)) -let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning (bool)) -let keyCommands self = msg_send ~self ~cmd:(selector "keyCommands") ~typ:(returning (id)) -let layoutAttributesForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:") ~typ:(id @-> returning (id)) x -let layoutAttributesForSupplementaryElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let layoutHorizontalIndexTitleBar self = msg_send ~self ~cmd:(selector "layoutHorizontalIndexTitleBar") ~typ:(returning (void)) -let layoutMarginsDidChange self = msg_send ~self ~cmd:(selector "layoutMarginsDidChange") ~typ:(returning (void)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let maximumGlobalItemIndex self = msg_send ~self ~cmd:(selector "maximumGlobalItemIndex") ~typ:(returning (llong)) -let moveItemAtIndexPath x ~toIndexPath self = msg_send ~self ~cmd:(selector "moveItemAtIndexPath:toIndexPath:") ~typ:(id @-> id @-> returning (void)) x toIndexPath -let moveSection x ~toSection self = msg_send ~self ~cmd:(selector "moveSection:toSection:") ~typ:(llong @-> llong @-> returning (void)) (LLong.of_int x) (LLong.of_int toSection) -let numberOfItemsInSection x self = msg_send ~self ~cmd:(selector "numberOfItemsInSection:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let numberOfSections self = msg_send ~self ~cmd:(selector "numberOfSections") ~typ:(returning (llong)) -let performBatchUpdates x ~completion self = msg_send ~self ~cmd:(selector "performBatchUpdates:completion:") ~typ:(ptr void @-> ptr void @-> returning (void)) x completion -let performBatchUpdates' x ~withAnimator self = msg_send ~self ~cmd:(selector "performBatchUpdates:withAnimator:") ~typ:(ptr void @-> id @-> returning (void)) x withAnimator -let performUsingPresentationValues x self = msg_send ~self ~cmd:(selector "performUsingPresentationValues:") ~typ:(ptr void @-> returning (void)) x -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let prefetchCompleteForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "prefetchCompleteForItemAtIndexPath:") ~typ:(id @-> returning (void)) x -let prefetchDataSource self = msg_send ~self ~cmd:(selector "prefetchDataSource") ~typ:(returning (id)) -let preparedCells self = msg_send ~self ~cmd:(selector "preparedCells") ~typ:(returning (id)) -let presentationIndexPathForDataSourceIndexPath x self = msg_send ~self ~cmd:(selector "presentationIndexPathForDataSourceIndexPath:") ~typ:(id @-> returning (id)) x -let presentationSectionIndexForDataSourceSectionIndex x self = msg_send ~self ~cmd:(selector "presentationSectionIndexForDataSourceSectionIndex:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let reconfigureItemsAtIndexPaths x self = msg_send ~self ~cmd:(selector "reconfigureItemsAtIndexPaths:") ~typ:(id @-> returning (void)) x -let registerClass x ~forCellWithReuseIdentifier self = msg_send ~self ~cmd:(selector "registerClass:forCellWithReuseIdentifier:") ~typ:(_Class @-> id @-> returning (void)) x forCellWithReuseIdentifier -let registerClass' x ~forSupplementaryViewOfKind ~withReuseIdentifier self = msg_send ~self ~cmd:(selector "registerClass:forSupplementaryViewOfKind:withReuseIdentifier:") ~typ:(_Class @-> id @-> id @-> returning (void)) x forSupplementaryViewOfKind withReuseIdentifier -let registerNib x ~forCellWithReuseIdentifier self = msg_send ~self ~cmd:(selector "registerNib:forCellWithReuseIdentifier:") ~typ:(id @-> id @-> returning (void)) x forCellWithReuseIdentifier -let registerNib' x ~forSupplementaryViewOfKind ~withReuseIdentifier self = msg_send ~self ~cmd:(selector "registerNib:forSupplementaryViewOfKind:withReuseIdentifier:") ~typ:(id @-> id @-> id @-> returning (void)) x forSupplementaryViewOfKind withReuseIdentifier -let reloadData self = msg_send ~self ~cmd:(selector "reloadData") ~typ:(returning (void)) -let reloadItemsAtIndexPaths x self = msg_send ~self ~cmd:(selector "reloadItemsAtIndexPaths:") ~typ:(id @-> returning (void)) x -let reloadSections x self = msg_send ~self ~cmd:(selector "reloadSections:") ~typ:(id @-> returning (void)) x -let remembersLastFocusedIndexPath self = msg_send ~self ~cmd:(selector "remembersLastFocusedIndexPath") ~typ:(returning (bool)) -let reorderingCadence self = msg_send ~self ~cmd:(selector "reorderingCadence") ~typ:(returning (llong)) -let safeAreaInsetsDidChange self = msg_send ~self ~cmd:(selector "safeAreaInsetsDidChange") ~typ:(returning (void)) -let scrollToItemAtIndexPath x ~atScrollPosition ~animated self = msg_send ~self ~cmd:(selector "scrollToItemAtIndexPath:atScrollPosition:animated:") ~typ:(id @-> ullong @-> bool @-> returning (void)) x (ULLong.of_int atScrollPosition) animated -let selectItemAtIndexPath x ~animated ~scrollPosition self = msg_send ~self ~cmd:(selector "selectItemAtIndexPath:animated:scrollPosition:") ~typ:(id @-> bool @-> ullong @-> returning (void)) x animated (ULLong.of_int scrollPosition) -let selectedIndexTitleEntry self = msg_send ~self ~cmd:(selector "selectedIndexTitleEntry") ~typ:(returning (id)) -let selectionFollowsFocus self = msg_send ~self ~cmd:(selector "selectionFollowsFocus") ~typ:(returning (bool)) -let setAllowsFocus x self = msg_send ~self ~cmd:(selector "setAllowsFocus:") ~typ:(bool @-> returning (void)) x -let setAllowsFocusDuringEditing x self = msg_send ~self ~cmd:(selector "setAllowsFocusDuringEditing:") ~typ:(bool @-> returning (void)) x -let setAllowsMultipleSelection x self = msg_send ~self ~cmd:(selector "setAllowsMultipleSelection:") ~typ:(bool @-> returning (void)) x -let setAllowsMultipleSelectionDuringEditing x self = msg_send ~self ~cmd:(selector "setAllowsMultipleSelectionDuringEditing:") ~typ:(bool @-> returning (void)) x -let setAllowsSelection x self = msg_send ~self ~cmd:(selector "setAllowsSelection:") ~typ:(bool @-> returning (void)) x -let setAllowsSelectionDuringEditing x self = msg_send ~self ~cmd:(selector "setAllowsSelectionDuringEditing:") ~typ:(bool @-> returning (void)) x -let setAllowsUserInitiatedMultipleSelection x self = msg_send ~self ~cmd:(selector "setAllowsUserInitiatedMultipleSelection:") ~typ:(bool @-> returning (void)) x -let setAlwaysBounceHorizontal x self = msg_send ~self ~cmd:(selector "setAlwaysBounceHorizontal:") ~typ:(bool @-> returning (void)) x -let setAlwaysBounceVertical x self = msg_send ~self ~cmd:(selector "setAlwaysBounceVertical:") ~typ:(bool @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setCollectionViewLayout x self = msg_send ~self ~cmd:(selector "setCollectionViewLayout:") ~typ:(id @-> returning (void)) x -let setCollectionViewLayout1 x ~animated self = msg_send ~self ~cmd:(selector "setCollectionViewLayout:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setCollectionViewLayout2 x ~withAnimator self = msg_send ~self ~cmd:(selector "setCollectionViewLayout:withAnimator:") ~typ:(id @-> id @-> returning (void)) x withAnimator -let setCollectionViewLayout3 x ~animated ~completion self = msg_send ~self ~cmd:(selector "setCollectionViewLayout:animated:completion:") ~typ:(id @-> bool @-> ptr void @-> returning (void)) x animated completion -let setContentInset x self = msg_send ~self ~cmd:(selector "setContentInset:") ~typ:(ptr void @-> returning (void)) x -let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let setContentOffset' x ~animated self = msg_send ~self ~cmd:(selector "setContentOffset:animated:") ~typ:(CGPoint.t @-> bool @-> returning (void)) x animated -let setContentSize x self = msg_send ~self ~cmd:(selector "setContentSize:") ~typ:(CGSize.t @-> returning (void)) x -let setDataSource x self = msg_send ~self ~cmd:(selector "setDataSource:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDirectionalLayoutMargins x self = msg_send ~self ~cmd:(selector "setDirectionalLayoutMargins:") ~typ:(ptr void @-> returning (void)) x -let setDragDelegate x self = msg_send ~self ~cmd:(selector "setDragDelegate:") ~typ:(id @-> returning (void)) x -let setDragDestinationDelegate x self = msg_send ~self ~cmd:(selector "setDragDestinationDelegate:") ~typ:(id @-> returning (void)) x -let setDragInteractionEnabled x self = msg_send ~self ~cmd:(selector "setDragInteractionEnabled:") ~typ:(bool @-> returning (void)) x -let setDragSourceDelegate x self = msg_send ~self ~cmd:(selector "setDragSourceDelegate:") ~typ:(id @-> returning (void)) x -let setDropDelegate x self = msg_send ~self ~cmd:(selector "setDropDelegate:") ~typ:(id @-> returning (void)) x -let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning (void)) x -let setExpectedDiffableUpdateItem x self = msg_send ~self ~cmd:(selector "setExpectedDiffableUpdateItem:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setIndexPathOfFocusedCellBeforeFocusingOnHorizontalIndexTitleBar x self = msg_send ~self ~cmd:(selector "setIndexPathOfFocusedCellBeforeFocusingOnHorizontalIndexTitleBar:") ~typ:(id @-> returning (void)) x -let setIsMovingFocusFromHorizontalIndexTitleBarToContent x self = msg_send ~self ~cmd:(selector "setIsMovingFocusFromHorizontalIndexTitleBarToContent:") ~typ:(bool @-> returning (void)) x -let setLayoutMargins x self = msg_send ~self ~cmd:(selector "setLayoutMargins:") ~typ:(ptr void @-> returning (void)) x -let setPrefetchDataSource x self = msg_send ~self ~cmd:(selector "setPrefetchDataSource:") ~typ:(id @-> returning (void)) x -let setPrefetchingEnabled x self = msg_send ~self ~cmd:(selector "setPrefetchingEnabled:") ~typ:(bool @-> returning (void)) x -let setRemembersLastFocusedIndexPath x self = msg_send ~self ~cmd:(selector "setRemembersLastFocusedIndexPath:") ~typ:(bool @-> returning (void)) x -let setReorderingCadence x self = msg_send ~self ~cmd:(selector "setReorderingCadence:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setScrollEnabled x self = msg_send ~self ~cmd:(selector "setScrollEnabled:") ~typ:(bool @-> returning (void)) x -let setSelectedIndexTitleEntry x self = msg_send ~self ~cmd:(selector "setSelectedIndexTitleEntry:") ~typ:(id @-> returning (void)) x -let setSelectionFollowsFocus x self = msg_send ~self ~cmd:(selector "setSelectionFollowsFocus:") ~typ:(bool @-> returning (void)) x -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning (void)) x -let setupHorizontalIndexTitleBar self = msg_send ~self ~cmd:(selector "setupHorizontalIndexTitleBar") ~typ:(returning (void)) -let startInteractiveTransitionToCollectionViewLayout x ~completion self = msg_send ~self ~cmd:(selector "startInteractiveTransitionToCollectionViewLayout:completion:") ~typ:(id @-> ptr void @-> returning (id)) x completion -let supplementaryViewForElementKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "supplementaryViewForElementKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let targetForAction x ~withSender self = msg_send ~self ~cmd:(selector "targetForAction:withSender:") ~typ:(_SEL @-> id @-> returning (id)) x withSender -let teardownHorizontalIndexTitleBar self = msg_send ~self ~cmd:(selector "teardownHorizontalIndexTitleBar") ~typ:(returning (void)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateInteractiveMovementTargetPosition x self = msg_send ~self ~cmd:(selector "updateInteractiveMovementTargetPosition:") ~typ:(CGPoint.t @-> returning (void)) x -let visibleCells self = msg_send ~self ~cmd:(selector "visibleCells") ~typ:(returning (id)) -let visibleSupplementaryViewsOfKind x self = msg_send ~self ~cmd:(selector "visibleSupplementaryViewsOfKind:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let self = get_class "UICollectionView" + +let allowsFocus self = msg_send ~self ~cmd:(selector "allowsFocus") ~typ:(returning bool) +let allowsFocusDuringEditing self = msg_send ~self ~cmd:(selector "allowsFocusDuringEditing") ~typ:(returning bool) +let allowsMultipleSelection self = msg_send ~self ~cmd:(selector "allowsMultipleSelection") ~typ:(returning bool) +let allowsMultipleSelectionDuringEditing self = msg_send ~self ~cmd:(selector "allowsMultipleSelectionDuringEditing") ~typ:(returning bool) +let allowsSelection self = msg_send ~self ~cmd:(selector "allowsSelection") ~typ:(returning bool) +let allowsSelectionDuringEditing self = msg_send ~self ~cmd:(selector "allowsSelectionDuringEditing") ~typ:(returning bool) +let allowsUserInitiatedMultipleSelection self = msg_send ~self ~cmd:(selector "allowsUserInitiatedMultipleSelection") ~typ:(returning bool) +let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning id) +let beginInteractiveMovementForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "beginInteractiveMovementForItemAtIndexPath:") ~typ:(id @-> returning bool) x +let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning bool) +let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning bool) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let cancelInteractiveMovement self = msg_send ~self ~cmd:(selector "cancelInteractiveMovement") ~typ:(returning void) +let cancelInteractiveTransition self = msg_send ~self ~cmd:(selector "cancelInteractiveTransition") ~typ:(returning void) +let cellForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "cellForItemAtIndexPath:") ~typ:(id @-> returning id) x +let collectionViewLayout self = msg_send ~self ~cmd:(selector "collectionViewLayout") ~typ:(returning id) +let contextMenuInteraction self = msg_send ~self ~cmd:(selector "contextMenuInteraction") ~typ:(returning id) +let contextMenuInteraction1 x ~configurationForMenuAtLocation self = msg_send ~self ~cmd:(selector "contextMenuInteraction:configurationForMenuAtLocation:") ~typ:(id @-> CGPoint.t @-> returning id) x configurationForMenuAtLocation +let contextMenuInteraction2 x ~previewForDismissingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForDismissingMenuWithConfiguration:") ~typ:(id @-> id @-> returning id) x previewForDismissingMenuWithConfiguration +let contextMenuInteraction3 x ~previewForHighlightingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForHighlightingMenuWithConfiguration:") ~typ:(id @-> id @-> returning id) x previewForHighlightingMenuWithConfiguration +let contextMenuInteraction4 x ~willDisplayMenuForConfiguration ~animator self = msg_send ~self ~cmd:(selector "contextMenuInteraction:willDisplayMenuForConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning void) x willDisplayMenuForConfiguration animator +let contextMenuInteraction5 x ~willEndForConfiguration ~animator self = msg_send ~self ~cmd:(selector "contextMenuInteraction:willEndForConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning void) x willEndForConfiguration animator +let contextMenuInteraction6 x ~willPerformPreviewActionForMenuWithConfiguration ~animator self = msg_send ~self ~cmd:(selector "contextMenuInteraction:willPerformPreviewActionForMenuWithConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning void) x willPerformPreviewActionForMenuWithConfiguration animator +let dataSource self = msg_send ~self ~cmd:(selector "dataSource") ~typ:(returning id) +let dataSourceIndexPathForPresentationIndexPath x self = msg_send ~self ~cmd:(selector "dataSourceIndexPathForPresentationIndexPath:") ~typ:(id @-> returning id) x +let dataSourceSectionIndexForPresentationSectionIndex x self = msg_send ~self ~cmd:(selector "dataSourceSectionIndexForPresentationSectionIndex:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let deleteItemsAtIndexPaths x self = msg_send ~self ~cmd:(selector "deleteItemsAtIndexPaths:") ~typ:(id @-> returning void) x +let deleteSections x self = msg_send ~self ~cmd:(selector "deleteSections:") ~typ:(id @-> returning void) x +let dequeueConfiguredReusableCellWithRegistration x ~forIndexPath ~item self = msg_send ~self ~cmd:(selector "dequeueConfiguredReusableCellWithRegistration:forIndexPath:item:") ~typ:(id @-> id @-> id @-> returning id) x forIndexPath item +let dequeueConfiguredReusableSupplementaryViewWithRegistration x ~forIndexPath self = msg_send ~self ~cmd:(selector "dequeueConfiguredReusableSupplementaryViewWithRegistration:forIndexPath:") ~typ:(id @-> id @-> returning id) x forIndexPath +let dequeueReusableCellWithReuseIdentifier x ~forIndexPath self = msg_send ~self ~cmd:(selector "dequeueReusableCellWithReuseIdentifier:forIndexPath:") ~typ:(id @-> id @-> returning id) x forIndexPath +let dequeueReusableSupplementaryViewOfKind x ~withReuseIdentifier ~forIndexPath self = msg_send ~self ~cmd:(selector "dequeueReusableSupplementaryViewOfKind:withReuseIdentifier:forIndexPath:") ~typ:(id @-> id @-> id @-> returning id) x withReuseIdentifier forIndexPath +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let deselectItemAtIndexPath x ~animated self = msg_send ~self ~cmd:(selector "deselectItemAtIndexPath:animated:") ~typ:(id @-> bool @-> returning void) x animated +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let dragDelegate self = msg_send ~self ~cmd:(selector "dragDelegate") ~typ:(returning id) +let dragDestinationDelegate self = msg_send ~self ~cmd:(selector "dragDestinationDelegate") ~typ:(returning id) +let dragInteractionEnabled self = msg_send ~self ~cmd:(selector "dragInteractionEnabled") ~typ:(returning bool) +let dragSourceDelegate self = msg_send ~self ~cmd:(selector "dragSourceDelegate") ~typ:(returning id) +let dropDelegate self = msg_send ~self ~cmd:(selector "dropDelegate") ~typ:(returning id) +let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let endInteractiveMovement self = msg_send ~self ~cmd:(selector "endInteractiveMovement") ~typ:(returning void) +let finishInteractiveTransition self = msg_send ~self ~cmd:(selector "finishInteractiveTransition") ~typ:(returning void) +let hasActiveDrag self = msg_send ~self ~cmd:(selector "hasActiveDrag") ~typ:(returning bool) +let hasActiveDrop self = msg_send ~self ~cmd:(selector "hasActiveDrop") ~typ:(returning bool) +let hasUncommittedUpdates self = msg_send ~self ~cmd:(selector "hasUncommittedUpdates") ~typ:(returning bool) +let highlightedGlobalItem self = msg_send ~self ~cmd:(selector "highlightedGlobalItem") ~typ:(returning llong) +let horizontalIndexBar x ~selectedEntry self = msg_send ~self ~cmd:(selector "horizontalIndexBar:selectedEntry:") ~typ:(id @-> id @-> returning void) x selectedEntry +let indexBarAccessoryView x ~contentOffsetForEntry ~atIndex self = msg_send ~self ~cmd:(selector "indexBarAccessoryView:contentOffsetForEntry:atIndex:") ~typ:(id @-> id @-> llong @-> returning CGPoint.t) x contentOffsetForEntry (LLong.of_int atIndex) +let indexPathForCell x self = msg_send ~self ~cmd:(selector "indexPathForCell:") ~typ:(id @-> returning id) x +let indexPathForItemAtPoint x self = msg_send ~self ~cmd:(selector "indexPathForItemAtPoint:") ~typ:(CGPoint.t @-> returning id) x +let indexPathForSupplementaryView x self = msg_send ~self ~cmd:(selector "indexPathForSupplementaryView:") ~typ:(id @-> returning id) x +let indexPathOfFocusedCellBeforeFocusingOnHorizontalIndexTitleBar self = msg_send ~self ~cmd:(selector "indexPathOfFocusedCellBeforeFocusingOnHorizontalIndexTitleBar") ~typ:(returning id) +let indexPathsForSelectedItems self = msg_send ~self ~cmd:(selector "indexPathsForSelectedItems") ~typ:(returning id) +let indexPathsForVisibleItems self = msg_send ~self ~cmd:(selector "indexPathsForVisibleItems") ~typ:(returning id) +let indexPathsForVisibleSupplementaryElementsOfKind x self = msg_send ~self ~cmd:(selector "indexPathsForVisibleSupplementaryElementsOfKind:") ~typ:(id @-> returning id) x +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithFrame' x ~collectionViewLayout self = msg_send ~self ~cmd:(selector "initWithFrame:collectionViewLayout:") ~typ:(CGRect.t @-> id @-> returning id) x collectionViewLayout +let insertItemsAtIndexPaths x self = msg_send ~self ~cmd:(selector "insertItemsAtIndexPaths:") ~typ:(id @-> returning void) x +let insertSections x self = msg_send ~self ~cmd:(selector "insertSections:") ~typ:(id @-> returning void) x +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let isDragSessionActive self = msg_send ~self ~cmd:(selector "isDragSessionActive") ~typ:(returning bool) +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let isMovingFocusFromHorizontalIndexTitleBarToContent self = msg_send ~self ~cmd:(selector "isMovingFocusFromHorizontalIndexTitleBarToContent") ~typ:(returning bool) +let isPrefetchingEnabled self = msg_send ~self ~cmd:(selector "isPrefetchingEnabled") ~typ:(returning bool) +let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning bool) +let keyCommands self = msg_send ~self ~cmd:(selector "keyCommands") ~typ:(returning id) +let layoutAttributesForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:") ~typ:(id @-> returning id) x +let layoutAttributesForSupplementaryElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let layoutHorizontalIndexTitleBar self = msg_send ~self ~cmd:(selector "layoutHorizontalIndexTitleBar") ~typ:(returning void) +let layoutMarginsDidChange self = msg_send ~self ~cmd:(selector "layoutMarginsDidChange") ~typ:(returning void) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let maximumGlobalItemIndex self = msg_send ~self ~cmd:(selector "maximumGlobalItemIndex") ~typ:(returning llong) +let moveItemAtIndexPath x ~toIndexPath self = msg_send ~self ~cmd:(selector "moveItemAtIndexPath:toIndexPath:") ~typ:(id @-> id @-> returning void) x toIndexPath +let moveSection x ~toSection self = msg_send ~self ~cmd:(selector "moveSection:toSection:") ~typ:(llong @-> llong @-> returning void) (LLong.of_int x) (LLong.of_int toSection) +let numberOfItemsInSection x self = msg_send ~self ~cmd:(selector "numberOfItemsInSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let numberOfSections self = msg_send ~self ~cmd:(selector "numberOfSections") ~typ:(returning llong) +let performBatchUpdates x ~completion self = msg_send ~self ~cmd:(selector "performBatchUpdates:completion:") ~typ:((ptr void) @-> (ptr void) @-> returning void) x completion +let performBatchUpdates' x ~withAnimator self = msg_send ~self ~cmd:(selector "performBatchUpdates:withAnimator:") ~typ:((ptr void) @-> id @-> returning void) x withAnimator +let performUsingPresentationValues x self = msg_send ~self ~cmd:(selector "performUsingPresentationValues:") ~typ:((ptr void) @-> returning void) x +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let prefetchCompleteForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "prefetchCompleteForItemAtIndexPath:") ~typ:(id @-> returning void) x +let prefetchDataSource self = msg_send ~self ~cmd:(selector "prefetchDataSource") ~typ:(returning id) +let preparedCells self = msg_send ~self ~cmd:(selector "preparedCells") ~typ:(returning id) +let presentationIndexPathForDataSourceIndexPath x self = msg_send ~self ~cmd:(selector "presentationIndexPathForDataSourceIndexPath:") ~typ:(id @-> returning id) x +let presentationSectionIndexForDataSourceSectionIndex x self = msg_send ~self ~cmd:(selector "presentationSectionIndexForDataSourceSectionIndex:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let reconfigureItemsAtIndexPaths x self = msg_send ~self ~cmd:(selector "reconfigureItemsAtIndexPaths:") ~typ:(id @-> returning void) x +let registerClass x ~forCellWithReuseIdentifier self = msg_send ~self ~cmd:(selector "registerClass:forCellWithReuseIdentifier:") ~typ:(_Class @-> id @-> returning void) x forCellWithReuseIdentifier +let registerClass' x ~forSupplementaryViewOfKind ~withReuseIdentifier self = msg_send ~self ~cmd:(selector "registerClass:forSupplementaryViewOfKind:withReuseIdentifier:") ~typ:(_Class @-> id @-> id @-> returning void) x forSupplementaryViewOfKind withReuseIdentifier +let registerNib x ~forCellWithReuseIdentifier self = msg_send ~self ~cmd:(selector "registerNib:forCellWithReuseIdentifier:") ~typ:(id @-> id @-> returning void) x forCellWithReuseIdentifier +let registerNib' x ~forSupplementaryViewOfKind ~withReuseIdentifier self = msg_send ~self ~cmd:(selector "registerNib:forSupplementaryViewOfKind:withReuseIdentifier:") ~typ:(id @-> id @-> id @-> returning void) x forSupplementaryViewOfKind withReuseIdentifier +let reloadData self = msg_send ~self ~cmd:(selector "reloadData") ~typ:(returning void) +let reloadItemsAtIndexPaths x self = msg_send ~self ~cmd:(selector "reloadItemsAtIndexPaths:") ~typ:(id @-> returning void) x +let reloadSections x self = msg_send ~self ~cmd:(selector "reloadSections:") ~typ:(id @-> returning void) x +let remembersLastFocusedIndexPath self = msg_send ~self ~cmd:(selector "remembersLastFocusedIndexPath") ~typ:(returning bool) +let reorderingCadence self = msg_send ~self ~cmd:(selector "reorderingCadence") ~typ:(returning llong) +let safeAreaInsetsDidChange self = msg_send ~self ~cmd:(selector "safeAreaInsetsDidChange") ~typ:(returning void) +let scrollToItemAtIndexPath x ~atScrollPosition ~animated self = msg_send ~self ~cmd:(selector "scrollToItemAtIndexPath:atScrollPosition:animated:") ~typ:(id @-> ullong @-> bool @-> returning void) x (ULLong.of_int atScrollPosition) animated +let selectItemAtIndexPath x ~animated ~scrollPosition self = msg_send ~self ~cmd:(selector "selectItemAtIndexPath:animated:scrollPosition:") ~typ:(id @-> bool @-> ullong @-> returning void) x animated (ULLong.of_int scrollPosition) +let selectedIndexTitleEntry self = msg_send ~self ~cmd:(selector "selectedIndexTitleEntry") ~typ:(returning id) +let selectionFollowsFocus self = msg_send ~self ~cmd:(selector "selectionFollowsFocus") ~typ:(returning bool) +let setAllowsFocus x self = msg_send ~self ~cmd:(selector "setAllowsFocus:") ~typ:(bool @-> returning void) x +let setAllowsFocusDuringEditing x self = msg_send ~self ~cmd:(selector "setAllowsFocusDuringEditing:") ~typ:(bool @-> returning void) x +let setAllowsMultipleSelection x self = msg_send ~self ~cmd:(selector "setAllowsMultipleSelection:") ~typ:(bool @-> returning void) x +let setAllowsMultipleSelectionDuringEditing x self = msg_send ~self ~cmd:(selector "setAllowsMultipleSelectionDuringEditing:") ~typ:(bool @-> returning void) x +let setAllowsSelection x self = msg_send ~self ~cmd:(selector "setAllowsSelection:") ~typ:(bool @-> returning void) x +let setAllowsSelectionDuringEditing x self = msg_send ~self ~cmd:(selector "setAllowsSelectionDuringEditing:") ~typ:(bool @-> returning void) x +let setAllowsUserInitiatedMultipleSelection x self = msg_send ~self ~cmd:(selector "setAllowsUserInitiatedMultipleSelection:") ~typ:(bool @-> returning void) x +let setAlwaysBounceHorizontal x self = msg_send ~self ~cmd:(selector "setAlwaysBounceHorizontal:") ~typ:(bool @-> returning void) x +let setAlwaysBounceVertical x self = msg_send ~self ~cmd:(selector "setAlwaysBounceVertical:") ~typ:(bool @-> returning void) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setCollectionViewLayout x self = msg_send ~self ~cmd:(selector "setCollectionViewLayout:") ~typ:(id @-> returning void) x +let setCollectionViewLayout1 x ~animated self = msg_send ~self ~cmd:(selector "setCollectionViewLayout:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setCollectionViewLayout2 x ~withAnimator self = msg_send ~self ~cmd:(selector "setCollectionViewLayout:withAnimator:") ~typ:(id @-> id @-> returning void) x withAnimator +let setCollectionViewLayout3 x ~animated ~completion self = msg_send ~self ~cmd:(selector "setCollectionViewLayout:animated:completion:") ~typ:(id @-> bool @-> (ptr void) @-> returning void) x animated completion +let setContentInset x self = msg_send ~self ~cmd:(selector "setContentInset:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGPoint.t @-> returning void) x +let setContentOffset' x ~animated self = msg_send ~self ~cmd:(selector "setContentOffset:animated:") ~typ:(CGPoint.t @-> bool @-> returning void) x animated +let setContentSize x self = msg_send ~self ~cmd:(selector "setContentSize:") ~typ:(CGSize.t @-> returning void) x +let setDataSource x self = msg_send ~self ~cmd:(selector "setDataSource:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDirectionalLayoutMargins x self = msg_send ~self ~cmd:(selector "setDirectionalLayoutMargins:") ~typ:(NSDirectionalEdgeInsets.t @-> returning void) x +let setDragDelegate x self = msg_send ~self ~cmd:(selector "setDragDelegate:") ~typ:(id @-> returning void) x +let setDragDestinationDelegate x self = msg_send ~self ~cmd:(selector "setDragDestinationDelegate:") ~typ:(id @-> returning void) x +let setDragInteractionEnabled x self = msg_send ~self ~cmd:(selector "setDragInteractionEnabled:") ~typ:(bool @-> returning void) x +let setDragSourceDelegate x self = msg_send ~self ~cmd:(selector "setDragSourceDelegate:") ~typ:(id @-> returning void) x +let setDropDelegate x self = msg_send ~self ~cmd:(selector "setDropDelegate:") ~typ:(id @-> returning void) x +let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning void) x +let setExpectedDiffableUpdateItem x self = msg_send ~self ~cmd:(selector "setExpectedDiffableUpdateItem:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setIndexPathOfFocusedCellBeforeFocusingOnHorizontalIndexTitleBar x self = msg_send ~self ~cmd:(selector "setIndexPathOfFocusedCellBeforeFocusingOnHorizontalIndexTitleBar:") ~typ:(id @-> returning void) x +let setIsMovingFocusFromHorizontalIndexTitleBarToContent x self = msg_send ~self ~cmd:(selector "setIsMovingFocusFromHorizontalIndexTitleBarToContent:") ~typ:(bool @-> returning void) x +let setLayoutMargins x self = msg_send ~self ~cmd:(selector "setLayoutMargins:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setPrefetchDataSource x self = msg_send ~self ~cmd:(selector "setPrefetchDataSource:") ~typ:(id @-> returning void) x +let setPrefetchingEnabled x self = msg_send ~self ~cmd:(selector "setPrefetchingEnabled:") ~typ:(bool @-> returning void) x +let setRemembersLastFocusedIndexPath x self = msg_send ~self ~cmd:(selector "setRemembersLastFocusedIndexPath:") ~typ:(bool @-> returning void) x +let setReorderingCadence x self = msg_send ~self ~cmd:(selector "setReorderingCadence:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setScrollEnabled x self = msg_send ~self ~cmd:(selector "setScrollEnabled:") ~typ:(bool @-> returning void) x +let setSelectedIndexTitleEntry x self = msg_send ~self ~cmd:(selector "setSelectedIndexTitleEntry:") ~typ:(id @-> returning void) x +let setSelectionFollowsFocus x self = msg_send ~self ~cmd:(selector "setSelectionFollowsFocus:") ~typ:(bool @-> returning void) x +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning void) x +let setupHorizontalIndexTitleBar self = msg_send ~self ~cmd:(selector "setupHorizontalIndexTitleBar") ~typ:(returning void) +let startInteractiveTransitionToCollectionViewLayout x ~completion self = msg_send ~self ~cmd:(selector "startInteractiveTransitionToCollectionViewLayout:completion:") ~typ:(id @-> (ptr void) @-> returning id) x completion +let supplementaryViewForElementKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "supplementaryViewForElementKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let targetForAction x ~withSender self = msg_send ~self ~cmd:(selector "targetForAction:withSender:") ~typ:(_SEL @-> id @-> returning id) x withSender +let teardownHorizontalIndexTitleBar self = msg_send ~self ~cmd:(selector "teardownHorizontalIndexTitleBar") ~typ:(returning void) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let updateInteractiveMovementTargetPosition x self = msg_send ~self ~cmd:(selector "updateInteractiveMovementTargetPosition:") ~typ:(CGPoint.t @-> returning void) x +let visibleCells self = msg_send ~self ~cmd:(selector "visibleCells") ~typ:(returning id) +let visibleSupplementaryViewsOfKind x self = msg_send ~self ~cmd:(selector "visibleSupplementaryViewsOfKind:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UICollectionViewAnimation.ml b/uikit/UICollectionViewAnimation.ml index b7ddf65f..8fd20622 100644 --- a/uikit/UICollectionViewAnimation.ml +++ b/uikit/UICollectionViewAnimation.ml @@ -5,24 +5,28 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewAnimation" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewanimation?language=objc}UICollectionViewAnimation} *) -let addCompletionHandler x self = msg_send ~self ~cmd:(selector "addCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let addStartupHandler x self = msg_send ~self ~cmd:(selector "addStartupHandler:") ~typ:(ptr void @-> returning (void)) x -let animateFromCurrentPosition self = msg_send ~self ~cmd:(selector "animateFromCurrentPosition") ~typ:(returning (bool)) -let deleteAfterAnimation self = msg_send ~self ~cmd:(selector "deleteAfterAnimation") ~typ:(returning (bool)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let endFraction self = msg_send ~self ~cmd:(selector "endFraction") ~typ:(returning (double)) -let finalLayoutAttributes self = msg_send ~self ~cmd:(selector "finalLayoutAttributes") ~typ:(returning (id)) -let initWithView x ~viewType ~finalLayoutAttributes ~startFraction ~endFraction ~animateFromCurrentPostion ~deleteAfterAnimation ~customAnimations self = msg_send ~self ~cmd:(selector "initWithView:viewType:finalLayoutAttributes:startFraction:endFraction:animateFromCurrentPostion:deleteAfterAnimation:customAnimations:") ~typ:(id @-> llong @-> id @-> double @-> double @-> bool @-> bool @-> ptr void @-> returning (id)) x (LLong.of_int viewType) finalLayoutAttributes startFraction endFraction animateFromCurrentPostion deleteAfterAnimation customAnimations -let rasterizeAfterAnimation self = msg_send ~self ~cmd:(selector "rasterizeAfterAnimation") ~typ:(returning (bool)) -let resetRasterizationAfterAnimation self = msg_send ~self ~cmd:(selector "resetRasterizationAfterAnimation") ~typ:(returning (bool)) -let setRasterizeAfterAnimation x self = msg_send ~self ~cmd:(selector "setRasterizeAfterAnimation:") ~typ:(bool @-> returning (void)) x -let setResetRasterizationAfterAnimation x self = msg_send ~self ~cmd:(selector "setResetRasterizationAfterAnimation:") ~typ:(bool @-> returning (void)) x -let start self = msg_send ~self ~cmd:(selector "start") ~typ:(returning (void)) -let startFraction self = msg_send ~self ~cmd:(selector "startFraction") ~typ:(returning (double)) -let startWithAnimator x self = msg_send ~self ~cmd:(selector "startWithAnimator:") ~typ:(id @-> returning (void)) x -let updateZIndexAfterAnimation self = msg_send ~self ~cmd:(selector "updateZIndexAfterAnimation") ~typ:(returning (bool)) -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let viewType self = msg_send ~self ~cmd:(selector "viewType") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UICollectionViewAnimation" + +let addCompletionHandler x self = msg_send ~self ~cmd:(selector "addCompletionHandler:") ~typ:((ptr void) @-> returning void) x +let addStartupHandler x self = msg_send ~self ~cmd:(selector "addStartupHandler:") ~typ:((ptr void) @-> returning void) x +let animateFromCurrentPosition self = msg_send ~self ~cmd:(selector "animateFromCurrentPosition") ~typ:(returning bool) +let deleteAfterAnimation self = msg_send ~self ~cmd:(selector "deleteAfterAnimation") ~typ:(returning bool) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let endFraction self = msg_send ~self ~cmd:(selector "endFraction") ~typ:(returning double) +let finalLayoutAttributes self = msg_send ~self ~cmd:(selector "finalLayoutAttributes") ~typ:(returning id) +let initWithView x ~viewType ~finalLayoutAttributes ~startFraction ~endFraction ~animateFromCurrentPostion ~deleteAfterAnimation ~customAnimations self = msg_send ~self ~cmd:(selector "initWithView:viewType:finalLayoutAttributes:startFraction:endFraction:animateFromCurrentPostion:deleteAfterAnimation:customAnimations:") ~typ:(id @-> llong @-> id @-> double @-> double @-> bool @-> bool @-> (ptr void) @-> returning id) x (LLong.of_int viewType) finalLayoutAttributes startFraction endFraction animateFromCurrentPostion deleteAfterAnimation customAnimations +let rasterizeAfterAnimation self = msg_send ~self ~cmd:(selector "rasterizeAfterAnimation") ~typ:(returning bool) +let resetRasterizationAfterAnimation self = msg_send ~self ~cmd:(selector "resetRasterizationAfterAnimation") ~typ:(returning bool) +let setRasterizeAfterAnimation x self = msg_send ~self ~cmd:(selector "setRasterizeAfterAnimation:") ~typ:(bool @-> returning void) x +let setResetRasterizationAfterAnimation x self = msg_send ~self ~cmd:(selector "setResetRasterizationAfterAnimation:") ~typ:(bool @-> returning void) x +let start self = msg_send ~self ~cmd:(selector "start") ~typ:(returning void) +let startFraction self = msg_send ~self ~cmd:(selector "startFraction") ~typ:(returning double) +let startWithAnimator x self = msg_send ~self ~cmd:(selector "startWithAnimator:") ~typ:(id @-> returning void) x +let updateZIndexAfterAnimation self = msg_send ~self ~cmd:(selector "updateZIndexAfterAnimation") ~typ:(returning bool) +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let viewType self = msg_send ~self ~cmd:(selector "viewType") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UICollectionViewCell.ml b/uikit/UICollectionViewCell.ml index 0e0f84bd..dfc15d3c 100644 --- a/uikit/UICollectionViewCell.ml +++ b/uikit/UICollectionViewCell.ml @@ -5,52 +5,56 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewcell?language=objc}UICollectionViewCell} *) -let automaticallyUpdatesBackgroundConfiguration self = msg_send ~self ~cmd:(selector "automaticallyUpdatesBackgroundConfiguration") ~typ:(returning (bool)) -let automaticallyUpdatesContentConfiguration self = msg_send ~self ~cmd:(selector "automaticallyUpdatesContentConfiguration") ~typ:(returning (bool)) -let backgroundConfiguration self = msg_send ~self ~cmd:(selector "backgroundConfiguration") ~typ:(returning (id)) -let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning (id)) -let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning (bool)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let configurationState self = msg_send ~self ~cmd:(selector "configurationState") ~typ:(returning (id)) +let self = get_class "UICollectionViewCell" + +let automaticallyUpdatesBackgroundConfiguration self = msg_send ~self ~cmd:(selector "automaticallyUpdatesBackgroundConfiguration") ~typ:(returning bool) +let automaticallyUpdatesContentConfiguration self = msg_send ~self ~cmd:(selector "automaticallyUpdatesContentConfiguration") ~typ:(returning bool) +let backgroundConfiguration self = msg_send ~self ~cmd:(selector "backgroundConfiguration") ~typ:(returning id) +let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning id) +let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning bool) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let configurationState self = msg_send ~self ~cmd:(selector "configurationState") ~typ:(returning id) let configurationUpdateHandler self = msg_send ~self ~cmd:(selector "configurationUpdateHandler") ~typ:(returning (ptr void)) -let contentConfiguration self = msg_send ~self ~cmd:(selector "contentConfiguration") ~typ:(returning (id)) -let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning (id)) -let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning (void)) x -let cut x self = msg_send ~self ~cmd:(selector "cut:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let dragStateDidChange x self = msg_send ~self ~cmd:(selector "dragStateDidChange:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -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 initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isDragging self = msg_send ~self ~cmd:(selector "isDragging") ~typ:(returning (bool)) -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning (bool)) -let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let paste x self = msg_send ~self ~cmd:(selector "paste:") ~typ:(id @-> returning (void)) x -let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning (void)) -let selectedBackgroundView self = msg_send ~self ~cmd:(selector "selectedBackgroundView") ~typ:(returning (id)) -let setAutomaticallyUpdatesBackgroundConfiguration x self = msg_send ~self ~cmd:(selector "setAutomaticallyUpdatesBackgroundConfiguration:") ~typ:(bool @-> returning (void)) x -let setAutomaticallyUpdatesContentConfiguration x self = msg_send ~self ~cmd:(selector "setAutomaticallyUpdatesContentConfiguration:") ~typ:(bool @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBackgroundConfiguration x self = msg_send ~self ~cmd:(selector "setBackgroundConfiguration:") ~typ:(id @-> returning (void)) x -let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning (void)) x -let setConfigurationUpdateHandler x self = msg_send ~self ~cmd:(selector "setConfigurationUpdateHandler:") ~typ:(ptr void @-> returning (void)) x -let setContentConfiguration x self = msg_send ~self ~cmd:(selector "setContentConfiguration:") ~typ:(id @-> returning (void)) x -let setContentView x self = msg_send ~self ~cmd:(selector "setContentView:") ~typ:(id @-> returning (void)) x -let setDragging x self = msg_send ~self ~cmd:(selector "setDragging:") ~typ:(bool @-> returning (void)) x -let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setNeedsUpdateConfiguration self = msg_send ~self ~cmd:(selector "setNeedsUpdateConfiguration") ~typ:(returning (void)) -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setSelectedBackgroundView x self = msg_send ~self ~cmd:(selector "setSelectedBackgroundView:") ~typ:(id @-> returning (void)) x -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabled:") ~typ:(bool @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let systemLayoutSizeFittingSize x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send_stret ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning (CGSize.t)) ~return_type:CGSize.t x withHorizontalFittingPriority verticalFittingPriority -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateConfigurationUsingState x self = msg_send ~self ~cmd:(selector "updateConfigurationUsingState:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let contentConfiguration self = msg_send ~self ~cmd:(selector "contentConfiguration") ~typ:(returning id) +let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning id) +let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning void) x +let cut x self = msg_send ~self ~cmd:(selector "cut:") ~typ:(id @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let dragStateDidChange x self = msg_send ~self ~cmd:(selector "dragStateDidChange:") ~typ:(llong @-> returning void) (LLong.of_int x) +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 initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isDragging self = msg_send ~self ~cmd:(selector "isDragging") ~typ:(returning bool) +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning bool) +let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let paste x self = msg_send ~self ~cmd:(selector "paste:") ~typ:(id @-> returning void) x +let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning void) +let selectedBackgroundView self = msg_send ~self ~cmd:(selector "selectedBackgroundView") ~typ:(returning id) +let setAutomaticallyUpdatesBackgroundConfiguration x self = msg_send ~self ~cmd:(selector "setAutomaticallyUpdatesBackgroundConfiguration:") ~typ:(bool @-> returning void) x +let setAutomaticallyUpdatesContentConfiguration x self = msg_send ~self ~cmd:(selector "setAutomaticallyUpdatesContentConfiguration:") ~typ:(bool @-> returning void) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBackgroundConfiguration x self = msg_send ~self ~cmd:(selector "setBackgroundConfiguration:") ~typ:(id @-> returning void) x +let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning void) x +let setConfigurationUpdateHandler x self = msg_send ~self ~cmd:(selector "setConfigurationUpdateHandler:") ~typ:((ptr void) @-> returning void) x +let setContentConfiguration x self = msg_send ~self ~cmd:(selector "setContentConfiguration:") ~typ:(id @-> returning void) x +let setContentView x self = msg_send ~self ~cmd:(selector "setContentView:") ~typ:(id @-> returning void) x +let setDragging x self = msg_send ~self ~cmd:(selector "setDragging:") ~typ:(bool @-> returning void) x +let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setNeedsUpdateConfiguration self = msg_send ~self ~cmd:(selector "setNeedsUpdateConfiguration") ~typ:(returning void) +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setSelectedBackgroundView x self = msg_send ~self ~cmd:(selector "setSelectedBackgroundView:") ~typ:(id @-> returning void) x +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabled:") ~typ:(bool @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let systemLayoutSizeFittingSize x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning CGSize.t) x withHorizontalFittingPriority verticalFittingPriority +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let updateConfigurationUsingState x self = msg_send ~self ~cmd:(selector "updateConfigurationUsingState:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UICollectionViewCellRegistration.ml b/uikit/UICollectionViewCellRegistration.ml index 97e4ef65..0783ddcf 100644 --- a/uikit/UICollectionViewCellRegistration.ml +++ b/uikit/UICollectionViewCellRegistration.ml @@ -5,18 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewCellRegistration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewcellregistration?language=objc}UICollectionViewCellRegistration} *) -module C = struct - let registrationWithCellClass x ~configurationHandler self = msg_send ~self ~cmd:(selector "registrationWithCellClass:configurationHandler:") ~typ:(_Class @-> ptr void @-> returning (id)) x configurationHandler - let registrationWithCellNib x ~configurationHandler self = msg_send ~self ~cmd:(selector "registrationWithCellNib:configurationHandler:") ~typ:(id @-> ptr void @-> returning (id)) x configurationHandler -end +let self = get_class "UICollectionViewCellRegistration" -let cellClass self = msg_send ~self ~cmd:(selector "cellClass") ~typ:(returning (_Class)) -let cellNib self = msg_send ~self ~cmd:(selector "cellNib") ~typ:(returning (id)) +let cellClass self = msg_send ~self ~cmd:(selector "cellClass") ~typ:(returning _Class) +let cellNib self = msg_send ~self ~cmd:(selector "cellNib") ~typ:(returning id) let configurationHandler self = msg_send ~self ~cmd:(selector "configurationHandler") ~typ:(returning (ptr void)) -let hasCellClass self = msg_send ~self ~cmd:(selector "hasCellClass") ~typ:(returning (bool)) -let hasCellNib self = msg_send ~self ~cmd:(selector "hasCellNib") ~typ:(returning (bool)) -let initWithCellClass x ~cellNib ~configurationHandler ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithCellClass:cellNib:configurationHandler:reuseIdentifier:") ~typ:(_Class @-> id @-> ptr void @-> id @-> returning (id)) x cellNib configurationHandler reuseIdentifier -let reuseIdentifier self = msg_send ~self ~cmd:(selector "reuseIdentifier") ~typ:(returning (id)) \ No newline at end of file +let hasCellClass self = msg_send ~self ~cmd:(selector "hasCellClass") ~typ:(returning bool) +let hasCellNib self = msg_send ~self ~cmd:(selector "hasCellNib") ~typ:(returning bool) +let initWithCellClass x ~cellNib ~configurationHandler ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithCellClass:cellNib:configurationHandler:reuseIdentifier:") ~typ:(_Class @-> id @-> (ptr void) @-> id @-> returning id) x cellNib configurationHandler reuseIdentifier +let reuseIdentifier self = msg_send ~self ~cmd:(selector "reuseIdentifier") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UICollectionViewCellRegistrationClass.ml b/uikit/UICollectionViewCellRegistrationClass.ml new file mode 100644 index 00000000..7fdb5588 --- /dev/null +++ b/uikit/UICollectionViewCellRegistrationClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewcellregistration?language=objc}UICollectionViewCellRegistration} *) + +let registrationWithCellClass x ~configurationHandler self = msg_send ~self ~cmd:(selector "registrationWithCellClass:configurationHandler:") ~typ:(_Class @-> (ptr void) @-> returning id) x configurationHandler +let registrationWithCellNib x ~configurationHandler self = msg_send ~self ~cmd:(selector "registrationWithCellNib:configurationHandler:") ~typ:(id @-> (ptr void) @-> returning id) x configurationHandler \ No newline at end of file diff --git a/uikit/UICollectionViewCompositionalLayout.ml b/uikit/UICollectionViewCompositionalLayout.ml deleted file mode 100644 index f2a86a37..00000000 --- a/uikit/UICollectionViewCompositionalLayout.ml +++ /dev/null @@ -1,83 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICollectionViewCompositionalLayout" - -module C = struct - let layoutWithListConfiguration x self = msg_send ~self ~cmd:(selector "layoutWithListConfiguration:") ~typ:(id @-> returning (id)) x -end - -let boundarySupplementaryItems self = msg_send ~self ~cmd:(selector "boundarySupplementaryItems") ~typ:(returning (id)) -let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning (bool)) -let collectionViewContentSize self = msg_send_stret ~self ~cmd:(selector "collectionViewContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) -let contentFrame self = msg_send_stret ~self ~cmd:(selector "contentFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let currentResolveResult self = msg_send ~self ~cmd:(selector "currentResolveResult") ~typ:(returning (id)) -let currentUpdate self = msg_send ~self ~cmd:(selector "currentUpdate") ~typ:(returning (id)) -let dataSourceSnapshotter self = msg_send ~self ~cmd:(selector "dataSourceSnapshotter") ~typ:(returning (id)) -let deferredLastInvalidationNextInvalidationRequiresFullResolve self = msg_send ~self ~cmd:(selector "deferredLastInvalidationNextInvalidationRequiresFullResolve") ~typ:(returning (bool)) -let defersInitialSolveUntilPrepare self = msg_send ~self ~cmd:(selector "defersInitialSolveUntilPrepare") ~typ:(returning (bool)) -let dynamicsConfigurationHandler self = msg_send ~self ~cmd:(selector "dynamicsConfigurationHandler") ~typ:(returning (ptr void)) -let edgesForSafeAreaPropagation self = msg_send ~self ~cmd:(selector "edgesForSafeAreaPropagation") ~typ:(returning (ullong)) -let finalLayoutAttributesForDisappearingDecorationElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForDisappearingDecorationElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let finalLayoutAttributesForDisappearingItemAtIndexPath x self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForDisappearingItemAtIndexPath:") ~typ:(id @-> returning (id)) x -let indexPathsToDeleteForDecorationViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToDeleteForDecorationViewOfKind:") ~typ:(id @-> returning (id)) x -let indexPathsToDeleteForSupplementaryViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToDeleteForSupplementaryViewOfKind:") ~typ:(id @-> returning (id)) x -let indexPathsToInsertForDecorationViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToInsertForDecorationViewOfKind:") ~typ:(id @-> returning (id)) x -let indexPathsToInsertForSupplementaryViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToInsertForSupplementaryViewOfKind:") ~typ:(id @-> returning (id)) x -let initWithLayoutSection x self = msg_send ~self ~cmd:(selector "initWithLayoutSection:") ~typ:(id @-> returning (id)) x -let initWithLayoutSection' x ~scrollDirection self = msg_send ~self ~cmd:(selector "initWithLayoutSection:scrollDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int scrollDirection) -let initWithSection x self = msg_send ~self ~cmd:(selector "initWithSection:") ~typ:(id @-> returning (id)) x -let initWithSection1 x ~configuration self = msg_send ~self ~cmd:(selector "initWithSection:configuration:") ~typ:(id @-> id @-> returning (id)) x configuration -let initWithSection2 x ~sectionProvider ~configuration self = msg_send ~self ~cmd:(selector "initWithSection:sectionProvider:configuration:") ~typ:(id @-> ptr void @-> id @-> returning (id)) x sectionProvider configuration -let initWithSectionProvider x self = msg_send ~self ~cmd:(selector "initWithSectionProvider:") ~typ:(ptr void @-> returning (id)) x -let initWithSectionProvider' x ~configuration self = msg_send ~self ~cmd:(selector "initWithSectionProvider:configuration:") ~typ:(ptr void @-> id @-> returning (id)) x configuration -let invalidateLayoutWithContext x self = msg_send ~self ~cmd:(selector "invalidateLayoutWithContext:") ~typ:(id @-> returning (void)) x -let invalidationContextForBoundsChange x self = msg_send ~self ~cmd:(selector "invalidationContextForBoundsChange:") ~typ:(CGRect.t @-> returning (id)) x -let invalidationContextForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "invalidationContextForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning (id)) x withOriginalAttributes -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let isInUpdateVisibleCellsPass self = msg_send ~self ~cmd:(selector "isInUpdateVisibleCellsPass") ~typ:(returning (bool)) -let layoutAttributesForDecorationViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForDecorationViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning (id)) x -let layoutAttributesForInteractivelyMovingItemAtIndexPath x ~withTargetPosition self = msg_send ~self ~cmd:(selector "layoutAttributesForInteractivelyMovingItemAtIndexPath:withTargetPosition:") ~typ:(id @-> CGPoint.t @-> returning (id)) x withTargetPosition -let layoutAttributesForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:") ~typ:(id @-> returning (id)) x -let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let layoutRTL self = msg_send ~self ~cmd:(selector "layoutRTL") ~typ:(returning (bool)) -let layoutSectionProvider self = msg_send ~self ~cmd:(selector "layoutSectionProvider") ~typ:(returning (ptr void)) -let layoutSectionTemplate self = msg_send ~self ~cmd:(selector "layoutSectionTemplate") ~typ:(returning (id)) -let memoizedPreviousSolvedViewBoundsSize self = msg_send_stret ~self ~cmd:(selector "memoizedPreviousSolvedViewBoundsSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let prepareLayout self = msg_send ~self ~cmd:(selector "prepareLayout") ~typ:(returning (void)) -let roundsToScreenScale self = msg_send ~self ~cmd:(selector "roundsToScreenScale") ~typ:(returning (bool)) -let scrollDirection self = msg_send ~self ~cmd:(selector "scrollDirection") ~typ:(returning (llong)) -let setBoundarySupplementaryItems x self = msg_send ~self ~cmd:(selector "setBoundarySupplementaryItems:") ~typ:(id @-> returning (void)) x -let setConfiguration x self = msg_send ~self ~cmd:(selector "setConfiguration:") ~typ:(id @-> returning (void)) x -let setContentFrame x self = msg_send ~self ~cmd:(selector "setContentFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setCurrentResolveResult x self = msg_send ~self ~cmd:(selector "setCurrentResolveResult:") ~typ:(id @-> returning (void)) x -let setCurrentUpdate x self = msg_send ~self ~cmd:(selector "setCurrentUpdate:") ~typ:(id @-> returning (void)) x -let setDataSourceSnapshotter x self = msg_send ~self ~cmd:(selector "setDataSourceSnapshotter:") ~typ:(id @-> returning (void)) x -let setDeferredLastInvalidationNextInvalidationRequiresFullResolve x self = msg_send ~self ~cmd:(selector "setDeferredLastInvalidationNextInvalidationRequiresFullResolve:") ~typ:(bool @-> returning (void)) x -let setDefersInitialSolveUntilPrepare x self = msg_send ~self ~cmd:(selector "setDefersInitialSolveUntilPrepare:") ~typ:(bool @-> returning (void)) x -let setDynamicsConfigurationHandler x self = msg_send ~self ~cmd:(selector "setDynamicsConfigurationHandler:") ~typ:(ptr void @-> returning (void)) x -let setEdgesForSafeAreaPropagation x self = msg_send ~self ~cmd:(selector "setEdgesForSafeAreaPropagation:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning (void)) x -let setIsInUpdateVisibleCellsPass x self = msg_send ~self ~cmd:(selector "setIsInUpdateVisibleCellsPass:") ~typ:(bool @-> returning (void)) x -let setLayoutRTL x self = msg_send ~self ~cmd:(selector "setLayoutRTL:") ~typ:(bool @-> returning (void)) x -let setLayoutSectionProvider x self = msg_send ~self ~cmd:(selector "setLayoutSectionProvider:") ~typ:(ptr void @-> returning (void)) x -let setLayoutSectionTemplate x self = msg_send ~self ~cmd:(selector "setLayoutSectionTemplate:") ~typ:(id @-> returning (void)) x -let setMemoizedDynamicAnimatorWorldAdjustingInsets x self = msg_send ~self ~cmd:(selector "setMemoizedDynamicAnimatorWorldAdjustingInsets:") ~typ:(ptr void @-> returning (void)) x -let setMemoizedPreviousLayoutMargins x self = msg_send ~self ~cmd:(selector "setMemoizedPreviousLayoutMargins:") ~typ:(ptr void @-> returning (void)) x -let setMemoizedPreviousSolvedViewBoundsSize x self = msg_send ~self ~cmd:(selector "setMemoizedPreviousSolvedViewBoundsSize:") ~typ:(CGSize.t @-> returning (void)) x -let setRoundsToScreenScale x self = msg_send ~self ~cmd:(selector "setRoundsToScreenScale:") ~typ:(bool @-> returning (void)) x -let setShouldAdjustContentInsetModeForCollectionViewNeverMode x self = msg_send ~self ~cmd:(selector "setShouldAdjustContentInsetModeForCollectionViewNeverMode:") ~typ:(bool @-> returning (void)) x -let setSolver x self = msg_send ~self ~cmd:(selector "setSolver:") ~typ:(id @-> returning (void)) x -let setUpdateVisibleCellsContext x self = msg_send ~self ~cmd:(selector "setUpdateVisibleCellsContext:") ~typ:(id @-> returning (void)) x -let shouldAdjustContentInsetModeForCollectionViewNeverMode self = msg_send ~self ~cmd:(selector "shouldAdjustContentInsetModeForCollectionViewNeverMode") ~typ:(returning (bool)) -let shouldInvalidateLayoutForBoundsChange x self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForBoundsChange:") ~typ:(CGRect.t @-> returning (bool)) x -let shouldInvalidateLayoutForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning (bool)) x withOriginalAttributes -let solver self = msg_send ~self ~cmd:(selector "solver") ~typ:(returning (id)) -let updateVisibleCellsContext self = msg_send ~self ~cmd:(selector "updateVisibleCellsContext") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UICollectionViewCompositionalLayoutConfiguration.ml b/uikit/UICollectionViewCompositionalLayoutConfiguration.ml deleted file mode 100644 index 5563b28a..00000000 --- a/uikit/UICollectionViewCompositionalLayoutConfiguration.ml +++ /dev/null @@ -1,26 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICollectionViewCompositionalLayoutConfiguration" - -module C = struct - let defaultConfiguration self = msg_send ~self ~cmd:(selector "defaultConfiguration") ~typ:(returning (id)) -end - -let boundarySupplementaryItems self = msg_send ~self ~cmd:(selector "boundarySupplementaryItems") ~typ:(returning (id)) -let contentInsetsReference self = msg_send ~self ~cmd:(selector "contentInsetsReference") ~typ:(returning (llong)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let differencesFromConfiguration x self = msg_send ~self ~cmd:(selector "differencesFromConfiguration:") ~typ:(id @-> returning (ullong)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithScrollDirection x ~interSectionSpacing ~boundarySupplememtaryItems ~contentInsetsReference self = msg_send ~self ~cmd:(selector "initWithScrollDirection:interSectionSpacing:boundarySupplememtaryItems:contentInsetsReference:") ~typ:(llong @-> double @-> id @-> llong @-> returning (id)) (LLong.of_int x) interSectionSpacing boundarySupplememtaryItems (LLong.of_int contentInsetsReference) -let interSectionSpacing self = msg_send ~self ~cmd:(selector "interSectionSpacing") ~typ:(returning (double)) -let scrollDirection self = msg_send ~self ~cmd:(selector "scrollDirection") ~typ:(returning (llong)) -let setBoundarySupplementaryItems x self = msg_send ~self ~cmd:(selector "setBoundarySupplementaryItems:") ~typ:(id @-> returning (void)) x -let setContentInsetsReference x self = msg_send ~self ~cmd:(selector "setContentInsetsReference:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setInterSectionSpacing x self = msg_send ~self ~cmd:(selector "setInterSectionSpacing:") ~typ:(double @-> returning (void)) x -let setScrollDirection x self = msg_send ~self ~cmd:(selector "setScrollDirection:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UICollectionViewController.ml b/uikit/UICollectionViewController.ml index 5a04aabe..2eee9ef6 100644 --- a/uikit/UICollectionViewController.ml +++ b/uikit/UICollectionViewController.ml @@ -5,41 +5,45 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewcontroller?language=objc}UICollectionViewController} *) -let clearsSelectionOnViewWillAppear self = msg_send ~self ~cmd:(selector "clearsSelectionOnViewWillAppear") ~typ:(returning (bool)) -let collectionView self = msg_send ~self ~cmd:(selector "collectionView") ~typ:(returning (id)) -let collectionView1 x ~cellForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:cellForItemAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForItemAtIndexPath -let collectionView2 x ~numberOfItemsInSection self = msg_send ~self ~cmd:(selector "collectionView:numberOfItemsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfItemsInSection) -let collectionViewLayout self = msg_send ~self ~cmd:(selector "collectionViewLayout") ~typ:(returning (id)) -let contentScrollViewForEdge x self = msg_send ~self ~cmd:(selector "contentScrollViewForEdge:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let dataSource self = msg_send ~self ~cmd:(selector "dataSource") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -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 initWithCollectionViewLayout x self = msg_send ~self ~cmd:(selector "initWithCollectionViewLayout:") ~typ:(id @-> returning (id)) x -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let installsStandardGestureForInteractiveMovement self = msg_send ~self ~cmd:(selector "installsStandardGestureForInteractiveMovement") ~typ:(returning (bool)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let previewViewControllerForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "previewViewControllerForItemAtIndexPath:") ~typ:(id @-> returning (id)) x -let previewViewControllerForLocation x ~inSourceView self = msg_send ~self ~cmd:(selector "previewViewControllerForLocation:inSourceView:") ~typ:(CGPoint.t @-> id @-> returning (id)) x inSourceView -let previewingContext x ~commitViewController self = msg_send ~self ~cmd:(selector "previewingContext:commitViewController:") ~typ:(id @-> id @-> returning (void)) x commitViewController -let previewingContext' x ~viewControllerForLocation self = msg_send ~self ~cmd:(selector "previewingContext:viewControllerForLocation:") ~typ:(id @-> CGPoint.t @-> returning (id)) x viewControllerForLocation -let setClearsSelectionOnViewWillAppear x self = msg_send ~self ~cmd:(selector "setClearsSelectionOnViewWillAppear:") ~typ:(bool @-> returning (void)) x -let setCollectionView x self = msg_send ~self ~cmd:(selector "setCollectionView:") ~typ:(id @-> returning (void)) x -let setEditing x ~animated self = msg_send ~self ~cmd:(selector "setEditing:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setInstallsStandardGestureForInteractiveMovement x self = msg_send ~self ~cmd:(selector "setInstallsStandardGestureForInteractiveMovement:") ~typ:(bool @-> returning (void)) x -let setUseLayoutToLayoutNavigationTransitions x self = msg_send ~self ~cmd:(selector "setUseLayoutToLayoutNavigationTransitions:") ~typ:(bool @-> returning (void)) x -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let shouldCrossFadeBottomBars self = msg_send ~self ~cmd:(selector "shouldCrossFadeBottomBars") ~typ:(returning (bool)) -let shouldCrossFadeNavigationBar self = msg_send ~self ~cmd:(selector "shouldCrossFadeNavigationBar") ~typ:(returning (bool)) -let useLayoutToLayoutNavigationTransitions self = msg_send ~self ~cmd:(selector "useLayoutToLayoutNavigationTransitions") ~typ:(returning (bool)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillUnload self = msg_send ~self ~cmd:(selector "viewWillUnload") ~typ:(returning (void)) -let willPresentPreviewViewController x ~forItemAtIndexPath self = msg_send ~self ~cmd:(selector "willPresentPreviewViewController:forItemAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x forItemAtIndexPath -let willPresentPreviewViewController1 x ~forLocation ~inSourceView self = msg_send ~self ~cmd:(selector "willPresentPreviewViewController:forLocation:inSourceView:") ~typ:(id @-> CGPoint.t @-> id @-> returning (void)) x forLocation inSourceView -let willPresentPreviewViewController2 x ~forPosition ~inSourceView self = msg_send ~self ~cmd:(selector "willPresentPreviewViewController:forPosition:inSourceView:") ~typ:(id @-> CGPoint.t @-> id @-> returning (void)) x forPosition inSourceView \ No newline at end of file +let self = get_class "UICollectionViewController" + +let clearsSelectionOnViewWillAppear self = msg_send ~self ~cmd:(selector "clearsSelectionOnViewWillAppear") ~typ:(returning bool) +let collectionView self = msg_send ~self ~cmd:(selector "collectionView") ~typ:(returning id) +let collectionView1 x ~cellForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:cellForItemAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForItemAtIndexPath +let collectionView2 x ~numberOfItemsInSection self = msg_send ~self ~cmd:(selector "collectionView:numberOfItemsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfItemsInSection) +let collectionViewLayout self = msg_send ~self ~cmd:(selector "collectionViewLayout") ~typ:(returning id) +let contentScrollViewForEdge x self = msg_send ~self ~cmd:(selector "contentScrollViewForEdge:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let dataSource self = msg_send ~self ~cmd:(selector "dataSource") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +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 initWithCollectionViewLayout x self = msg_send ~self ~cmd:(selector "initWithCollectionViewLayout:") ~typ:(id @-> returning id) x +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let installsStandardGestureForInteractiveMovement self = msg_send ~self ~cmd:(selector "installsStandardGestureForInteractiveMovement") ~typ:(returning bool) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let previewViewControllerForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "previewViewControllerForItemAtIndexPath:") ~typ:(id @-> returning id) x +let previewViewControllerForLocation x ~inSourceView self = msg_send ~self ~cmd:(selector "previewViewControllerForLocation:inSourceView:") ~typ:(CGPoint.t @-> id @-> returning id) x inSourceView +let previewingContext x ~commitViewController self = msg_send ~self ~cmd:(selector "previewingContext:commitViewController:") ~typ:(id @-> id @-> returning void) x commitViewController +let previewingContext' x ~viewControllerForLocation self = msg_send ~self ~cmd:(selector "previewingContext:viewControllerForLocation:") ~typ:(id @-> CGPoint.t @-> returning id) x viewControllerForLocation +let setClearsSelectionOnViewWillAppear x self = msg_send ~self ~cmd:(selector "setClearsSelectionOnViewWillAppear:") ~typ:(bool @-> returning void) x +let setCollectionView x self = msg_send ~self ~cmd:(selector "setCollectionView:") ~typ:(id @-> returning void) x +let setEditing x ~animated self = msg_send ~self ~cmd:(selector "setEditing:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setInstallsStandardGestureForInteractiveMovement x self = msg_send ~self ~cmd:(selector "setInstallsStandardGestureForInteractiveMovement:") ~typ:(bool @-> returning void) x +let setUseLayoutToLayoutNavigationTransitions x self = msg_send ~self ~cmd:(selector "setUseLayoutToLayoutNavigationTransitions:") ~typ:(bool @-> returning void) x +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let shouldCrossFadeBottomBars self = msg_send ~self ~cmd:(selector "shouldCrossFadeBottomBars") ~typ:(returning bool) +let shouldCrossFadeNavigationBar self = msg_send ~self ~cmd:(selector "shouldCrossFadeNavigationBar") ~typ:(returning bool) +let useLayoutToLayoutNavigationTransitions self = msg_send ~self ~cmd:(selector "useLayoutToLayoutNavigationTransitions") ~typ:(returning bool) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let viewWillUnload self = msg_send ~self ~cmd:(selector "viewWillUnload") ~typ:(returning void) +let willPresentPreviewViewController x ~forItemAtIndexPath self = msg_send ~self ~cmd:(selector "willPresentPreviewViewController:forItemAtIndexPath:") ~typ:(id @-> id @-> returning void) x forItemAtIndexPath +let willPresentPreviewViewController1 x ~forLocation ~inSourceView self = msg_send ~self ~cmd:(selector "willPresentPreviewViewController:forLocation:inSourceView:") ~typ:(id @-> CGPoint.t @-> id @-> returning void) x forLocation inSourceView +let willPresentPreviewViewController2 x ~forPosition ~inSourceView self = msg_send ~self ~cmd:(selector "willPresentPreviewViewController:forPosition:inSourceView:") ~typ:(id @-> CGPoint.t @-> id @-> returning void) x forPosition inSourceView \ No newline at end of file diff --git a/uikit/UICollectionViewControllerWrapperView.ml b/uikit/UICollectionViewControllerWrapperView.ml deleted file mode 100644 index 8a04e592..00000000 --- a/uikit/UICollectionViewControllerWrapperView.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICollectionViewControllerWrapperView" - -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UICollectionViewData.ml b/uikit/UICollectionViewData.ml index 24ffcedd..72be2168 100644 --- a/uikit/UICollectionViewData.ml +++ b/uikit/UICollectionViewData.ml @@ -5,55 +5,55 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewData" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewdata?language=objc}UICollectionViewData} *) -module C = struct - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) -end +let self = get_class "UICollectionViewData" -let clonedCellAttributes self = msg_send ~self ~cmd:(selector "clonedCellAttributes") ~typ:(returning (id)) -let clonedDecorationAttributes self = msg_send ~self ~cmd:(selector "clonedDecorationAttributes") ~typ:(returning (id)) -let clonedSupplementaryAttributes self = msg_send ~self ~cmd:(selector "clonedSupplementaryAttributes") ~typ:(returning (id)) -let collectionViewContentRect self = msg_send_stret ~self ~cmd:(selector "collectionViewContentRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let contentSize self = msg_send_stret ~self ~cmd:(selector "contentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let dataSourceMatchesCurrentCounts self = msg_send ~self ~cmd:(selector "dataSourceMatchesCurrentCounts") ~typ:(returning (bool)) -let existingSupplementaryLayoutAttributes self = msg_send ~self ~cmd:(selector "existingSupplementaryLayoutAttributes") ~typ:(returning (id)) -let existingSupplementaryLayoutAttributesInSection x self = msg_send ~self ~cmd:(selector "existingSupplementaryLayoutAttributesInSection:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let globalIndexForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "globalIndexForItemAtIndexPath:") ~typ:(id @-> returning (llong)) x -let indexPathForItemAtGlobalIndex x self = msg_send ~self ~cmd:(selector "indexPathForItemAtGlobalIndex:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let initWithCollectionView x ~layout self = msg_send ~self ~cmd:(selector "initWithCollectionView:layout:") ~typ:(id @-> id @-> returning (id)) x layout -let invalidate x self = msg_send ~self ~cmd:(selector "invalidate:") ~typ:(bool @-> returning (void)) x -let invalidateDecorationIndexPaths x self = msg_send ~self ~cmd:(selector "invalidateDecorationIndexPaths:") ~typ:(id @-> returning (void)) x -let invalidateItemsAtIndexPaths x self = msg_send ~self ~cmd:(selector "invalidateItemsAtIndexPaths:") ~typ:(id @-> returning (void)) x -let invalidateSupplementaryIndexPaths x self = msg_send ~self ~cmd:(selector "invalidateSupplementaryIndexPaths:") ~typ:(id @-> returning (void)) x -let isGlobalIndexValid x self = msg_send ~self ~cmd:(selector "isGlobalIndexValid:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let isIndexPathValid x self = msg_send ~self ~cmd:(selector "isIndexPathValid:") ~typ:(id @-> returning (bool)) x -let isIndexPathValid' x ~validateItemCounts self = msg_send ~self ~cmd:(selector "isIndexPathValid:validateItemCounts:") ~typ:(id @-> bool @-> returning (bool)) x validateItemCounts -let isLayoutLocked self = msg_send ~self ~cmd:(selector "isLayoutLocked") ~typ:(returning (bool)) -let knownDecorationElementKinds self = msg_send ~self ~cmd:(selector "knownDecorationElementKinds") ~typ:(returning (id)) -let knownSupplementaryElementKinds self = msg_send ~self ~cmd:(selector "knownSupplementaryElementKinds") ~typ:(returning (id)) -let layoutAttributesForCellsInRect x ~validateLayout self = msg_send ~self ~cmd:(selector "layoutAttributesForCellsInRect:validateLayout:") ~typ:(CGRect.t @-> bool @-> returning (id)) x validateLayout -let layoutAttributesForDecorationViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForDecorationViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let layoutAttributesForDecorationViewOfKind' x ~atIndexPath ~nilAttributesArePermitted self = msg_send ~self ~cmd:(selector "layoutAttributesForDecorationViewOfKind:atIndexPath:nilAttributesArePermitted:") ~typ:(id @-> id @-> bool @-> returning (id)) x atIndexPath nilAttributesArePermitted -let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning (id)) x -let layoutAttributesForElementsInSection x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInSection:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let layoutAttributesForGlobalItemIndex x self = msg_send ~self ~cmd:(selector "layoutAttributesForGlobalItemIndex:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let layoutAttributesForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:") ~typ:(id @-> returning (id)) x -let layoutAttributesForSupplementaryElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let layoutIsPrepared self = msg_send ~self ~cmd:(selector "layoutIsPrepared") ~typ:(returning (bool)) -let numberOfItems self = msg_send ~self ~cmd:(selector "numberOfItems") ~typ:(returning (llong)) -let numberOfItemsBeforeSection x self = msg_send ~self ~cmd:(selector "numberOfItemsBeforeSection:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let numberOfItemsInSection x self = msg_send ~self ~cmd:(selector "numberOfItemsInSection:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let numberOfSections self = msg_send ~self ~cmd:(selector "numberOfSections") ~typ:(returning (llong)) -let rectForDecorationElementOfKind x ~atIndexPath self = msg_send_stret ~self ~cmd:(selector "rectForDecorationElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x atIndexPath -let rectForGlobalItemIndex x self = msg_send_stret ~self ~cmd:(selector "rectForGlobalItemIndex:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) -let rectForItemAtIndexPath x self = msg_send_stret ~self ~cmd:(selector "rectForItemAtIndexPath:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let rectForSupplementaryElementOfKind x ~atIndexPath self = msg_send_stret ~self ~cmd:(selector "rectForSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x atIndexPath -let setContentSize x self = msg_send ~self ~cmd:(selector "setContentSize:") ~typ:(CGSize.t @-> returning (void)) x -let setLayoutLocked x self = msg_send ~self ~cmd:(selector "setLayoutLocked:") ~typ:(bool @-> returning (void)) x -let validateDecorationViews self = msg_send ~self ~cmd:(selector "validateDecorationViews") ~typ:(returning (void)) -let validateLayoutInRect x self = msg_send ~self ~cmd:(selector "validateLayoutInRect:") ~typ:(CGRect.t @-> returning (void)) x -let validateSupplementaryViews self = msg_send ~self ~cmd:(selector "validateSupplementaryViews") ~typ:(returning (void)) -let validatedGlobalIndexForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "validatedGlobalIndexForItemAtIndexPath:") ~typ:(id @-> returning (llong)) x -let validatedIndexPathForItemAtGlobalIndex x self = msg_send ~self ~cmd:(selector "validatedIndexPathForItemAtGlobalIndex:") ~typ:(llong @-> returning (id)) (LLong.of_int x) \ No newline at end of file +let clonedCellAttributes self = msg_send ~self ~cmd:(selector "clonedCellAttributes") ~typ:(returning id) +let clonedDecorationAttributes self = msg_send ~self ~cmd:(selector "clonedDecorationAttributes") ~typ:(returning id) +let clonedSupplementaryAttributes self = msg_send ~self ~cmd:(selector "clonedSupplementaryAttributes") ~typ:(returning id) +let collectionViewContentRect self = msg_send ~self ~cmd:(selector "collectionViewContentRect") ~typ:(returning CGRect.t) +let contentSize self = msg_send ~self ~cmd:(selector "contentSize") ~typ:(returning CGSize.t) +let dataSourceMatchesCurrentCounts self = msg_send ~self ~cmd:(selector "dataSourceMatchesCurrentCounts") ~typ:(returning bool) +let existingSupplementaryLayoutAttributes self = msg_send ~self ~cmd:(selector "existingSupplementaryLayoutAttributes") ~typ:(returning id) +let existingSupplementaryLayoutAttributesInSection x self = msg_send ~self ~cmd:(selector "existingSupplementaryLayoutAttributesInSection:") ~typ:(llong @-> returning id) (LLong.of_int x) +let globalIndexForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "globalIndexForItemAtIndexPath:") ~typ:(id @-> returning llong) x +let indexPathForItemAtGlobalIndex x self = msg_send ~self ~cmd:(selector "indexPathForItemAtGlobalIndex:") ~typ:(llong @-> returning id) (LLong.of_int x) +let initWithCollectionView x ~layout self = msg_send ~self ~cmd:(selector "initWithCollectionView:layout:") ~typ:(id @-> id @-> returning id) x layout +let invalidate x self = msg_send ~self ~cmd:(selector "invalidate:") ~typ:(bool @-> returning void) x +let invalidateDecorationIndexPaths x self = msg_send ~self ~cmd:(selector "invalidateDecorationIndexPaths:") ~typ:(id @-> returning void) x +let invalidateItemsAtIndexPaths x self = msg_send ~self ~cmd:(selector "invalidateItemsAtIndexPaths:") ~typ:(id @-> returning void) x +let invalidateSupplementaryIndexPaths x self = msg_send ~self ~cmd:(selector "invalidateSupplementaryIndexPaths:") ~typ:(id @-> returning void) x +let isGlobalIndexValid x self = msg_send ~self ~cmd:(selector "isGlobalIndexValid:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let isIndexPathValid x self = msg_send ~self ~cmd:(selector "isIndexPathValid:") ~typ:(id @-> returning bool) x +let isIndexPathValid' x ~validateItemCounts self = msg_send ~self ~cmd:(selector "isIndexPathValid:validateItemCounts:") ~typ:(id @-> bool @-> returning bool) x validateItemCounts +let isLayoutLocked self = msg_send ~self ~cmd:(selector "isLayoutLocked") ~typ:(returning bool) +let knownDecorationElementKinds self = msg_send ~self ~cmd:(selector "knownDecorationElementKinds") ~typ:(returning id) +let knownSupplementaryElementKinds self = msg_send ~self ~cmd:(selector "knownSupplementaryElementKinds") ~typ:(returning id) +let layoutAttributesForCellsInRect x ~validateLayout self = msg_send ~self ~cmd:(selector "layoutAttributesForCellsInRect:validateLayout:") ~typ:(CGRect.t @-> bool @-> returning id) x validateLayout +let layoutAttributesForDecorationViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForDecorationViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let layoutAttributesForDecorationViewOfKind' x ~atIndexPath ~nilAttributesArePermitted self = msg_send ~self ~cmd:(selector "layoutAttributesForDecorationViewOfKind:atIndexPath:nilAttributesArePermitted:") ~typ:(id @-> id @-> bool @-> returning id) x atIndexPath nilAttributesArePermitted +let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning id) x +let layoutAttributesForElementsInSection x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInSection:") ~typ:(llong @-> returning id) (LLong.of_int x) +let layoutAttributesForGlobalItemIndex x self = msg_send ~self ~cmd:(selector "layoutAttributesForGlobalItemIndex:") ~typ:(llong @-> returning id) (LLong.of_int x) +let layoutAttributesForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:") ~typ:(id @-> returning id) x +let layoutAttributesForSupplementaryElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let layoutIsPrepared self = msg_send ~self ~cmd:(selector "layoutIsPrepared") ~typ:(returning bool) +let numberOfItems self = msg_send ~self ~cmd:(selector "numberOfItems") ~typ:(returning llong) +let numberOfItemsBeforeSection x self = msg_send ~self ~cmd:(selector "numberOfItemsBeforeSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let numberOfItemsInSection x self = msg_send ~self ~cmd:(selector "numberOfItemsInSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let numberOfSections self = msg_send ~self ~cmd:(selector "numberOfSections") ~typ:(returning llong) +let rectForDecorationElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "rectForDecorationElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning CGRect.t) x atIndexPath +let rectForGlobalItemIndex x self = msg_send ~self ~cmd:(selector "rectForGlobalItemIndex:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) +let rectForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "rectForItemAtIndexPath:") ~typ:(id @-> returning CGRect.t) x +let rectForSupplementaryElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "rectForSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning CGRect.t) x atIndexPath +let setContentSize x self = msg_send ~self ~cmd:(selector "setContentSize:") ~typ:(CGSize.t @-> returning void) x +let setLayoutLocked x self = msg_send ~self ~cmd:(selector "setLayoutLocked:") ~typ:(bool @-> returning void) x +let validateDecorationViews self = msg_send ~self ~cmd:(selector "validateDecorationViews") ~typ:(returning void) +let validateLayoutInRect x self = msg_send ~self ~cmd:(selector "validateLayoutInRect:") ~typ:(CGRect.t @-> returning void) x +let validateSupplementaryViews self = msg_send ~self ~cmd:(selector "validateSupplementaryViews") ~typ:(returning void) +let validatedGlobalIndexForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "validatedGlobalIndexForItemAtIndexPath:") ~typ:(id @-> returning llong) x +let validatedIndexPathForItemAtGlobalIndex x self = msg_send ~self ~cmd:(selector "validatedIndexPathForItemAtGlobalIndex:") ~typ:(llong @-> returning id) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UICollectionViewDataClass.ml b/uikit/UICollectionViewDataClass.ml new file mode 100644 index 00000000..d0da059e --- /dev/null +++ b/uikit/UICollectionViewDataClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewdata?language=objc}UICollectionViewData} *) + +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UICollectionViewDiffableDataSource.ml b/uikit/UICollectionViewDiffableDataSource.ml index 16665cca..6558586e 100644 --- a/uikit/UICollectionViewDiffableDataSource.ml +++ b/uikit/UICollectionViewDiffableDataSource.ml @@ -5,40 +5,44 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewDiffableDataSource" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewdiffabledatasource?language=objc}UICollectionViewDiffableDataSource} *) -let applySnapshot x ~animatingDifferences self = msg_send ~self ~cmd:(selector "applySnapshot:animatingDifferences:") ~typ:(id @-> bool @-> returning (void)) x animatingDifferences -let applySnapshot1 x ~animatingDifferences ~completion self = msg_send ~self ~cmd:(selector "applySnapshot:animatingDifferences:completion:") ~typ:(id @-> bool @-> ptr void @-> returning (void)) x animatingDifferences completion -let applySnapshot2 x ~toSection ~animatingDifferences self = msg_send ~self ~cmd:(selector "applySnapshot:toSection:animatingDifferences:") ~typ:(id @-> id @-> bool @-> returning (void)) x toSection animatingDifferences -let applySnapshot3 x ~toSection ~animatingDifferences ~completion self = msg_send ~self ~cmd:(selector "applySnapshot:toSection:animatingDifferences:completion:") ~typ:(id @-> id @-> bool @-> ptr void @-> returning (void)) x toSection animatingDifferences completion -let applySnapshotUsingReloadData x self = msg_send ~self ~cmd:(selector "applySnapshotUsingReloadData:") ~typ:(id @-> returning (void)) x -let applySnapshotUsingReloadData' x ~completion self = msg_send ~self ~cmd:(selector "applySnapshotUsingReloadData:completion:") ~typ:(id @-> ptr void @-> returning (void)) x completion -let collectionView self = msg_send ~self ~cmd:(selector "collectionView") ~typ:(returning (id)) -let collectionView1 x ~canMoveItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:canMoveItemAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) x canMoveItemAtIndexPath -let collectionView2 x ~cellForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:cellForItemAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForItemAtIndexPath -let collectionView3 x ~numberOfItemsInSection self = msg_send ~self ~cmd:(selector "collectionView:numberOfItemsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfItemsInSection) -let collectionView4 x ~moveItemAtIndexPath ~toIndexPath self = msg_send ~self ~cmd:(selector "collectionView:moveItemAtIndexPath:toIndexPath:") ~typ:(id @-> id @-> id @-> returning (void)) x moveItemAtIndexPath toIndexPath -let collectionView5 x ~viewForSupplementaryElementOfKind ~atIndexPath self = msg_send ~self ~cmd:(selector "collectionView:viewForSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> id @-> returning (id)) x viewForSupplementaryElementOfKind atIndexPath -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let impl self = msg_send ~self ~cmd:(selector "impl") ~typ:(returning (id)) -let indexForSectionIdentifier x self = msg_send ~self ~cmd:(selector "indexForSectionIdentifier:") ~typ:(id @-> returning (llong)) x -let indexPathForItemIdentifier x self = msg_send ~self ~cmd:(selector "indexPathForItemIdentifier:") ~typ:(id @-> returning (id)) x -let initWithCollectionView x ~cellProvider self = msg_send ~self ~cmd:(selector "initWithCollectionView:cellProvider:") ~typ:(id @-> ptr void @-> returning (id)) x cellProvider -let initWithCollectionView1 x ~itemRenderer self = msg_send ~self ~cmd:(selector "initWithCollectionView:itemRenderer:") ~typ:(id @-> id @-> returning (id)) x itemRenderer -let initWithCollectionView2 x ~itemRenderers ~rendererIdentifierProvider self = msg_send ~self ~cmd:(selector "initWithCollectionView:itemRenderers:rendererIdentifierProvider:") ~typ:(id @-> id @-> ptr void @-> returning (id)) x itemRenderers rendererIdentifierProvider -let initWithCollectionView3 x ~sectionControllers ~rendererIdentifierProvider self = msg_send ~self ~cmd:(selector "initWithCollectionView:sectionControllers:rendererIdentifierProvider:") ~typ:(id @-> id @-> ptr void @-> returning (id)) x sectionControllers rendererIdentifierProvider -let initWithViewUpdatesSink x self = msg_send ~self ~cmd:(selector "initWithViewUpdatesSink:") ~typ:(id @-> returning (id)) x -let itemIdentifierForIndexPath x self = msg_send ~self ~cmd:(selector "itemIdentifierForIndexPath:") ~typ:(id @-> returning (id)) x -let numberOfSectionsInCollectionView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInCollectionView:") ~typ:(id @-> returning (llong)) x -let reorderingHandlers self = msg_send ~self ~cmd:(selector "reorderingHandlers") ~typ:(returning (id)) -let sectionIdentifierForIndex x self = msg_send ~self ~cmd:(selector "sectionIdentifierForIndex:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let sectionSnapshotHandlers self = msg_send ~self ~cmd:(selector "sectionSnapshotHandlers") ~typ:(returning (id)) -let setImpl x self = msg_send ~self ~cmd:(selector "setImpl:") ~typ:(id @-> returning (void)) x -let setReorderingHandlers x self = msg_send ~self ~cmd:(selector "setReorderingHandlers:") ~typ:(id @-> returning (void)) x -let setSectionSnapshotHandlers x self = msg_send ~self ~cmd:(selector "setSectionSnapshotHandlers:") ~typ:(id @-> returning (void)) x -let setSupplementaryViewProvider x self = msg_send ~self ~cmd:(selector "setSupplementaryViewProvider:") ~typ:(ptr void @-> returning (void)) x -let snapshot self = msg_send ~self ~cmd:(selector "snapshot") ~typ:(returning (id)) -let snapshotForSection x self = msg_send ~self ~cmd:(selector "snapshotForSection:") ~typ:(id @-> returning (id)) x +let self = get_class "UICollectionViewDiffableDataSource" + +let applySnapshot x ~animatingDifferences self = msg_send ~self ~cmd:(selector "applySnapshot:animatingDifferences:") ~typ:(id @-> bool @-> returning void) x animatingDifferences +let applySnapshot1 x ~animatingDifferences ~completion self = msg_send ~self ~cmd:(selector "applySnapshot:animatingDifferences:completion:") ~typ:(id @-> bool @-> (ptr void) @-> returning void) x animatingDifferences completion +let applySnapshot2 x ~toSection ~animatingDifferences self = msg_send ~self ~cmd:(selector "applySnapshot:toSection:animatingDifferences:") ~typ:(id @-> id @-> bool @-> returning void) x toSection animatingDifferences +let applySnapshot3 x ~toSection ~animatingDifferences ~completion self = msg_send ~self ~cmd:(selector "applySnapshot:toSection:animatingDifferences:completion:") ~typ:(id @-> id @-> bool @-> (ptr void) @-> returning void) x toSection animatingDifferences completion +let applySnapshotUsingReloadData x self = msg_send ~self ~cmd:(selector "applySnapshotUsingReloadData:") ~typ:(id @-> returning void) x +let applySnapshotUsingReloadData' x ~completion self = msg_send ~self ~cmd:(selector "applySnapshotUsingReloadData:completion:") ~typ:(id @-> (ptr void) @-> returning void) x completion +let collectionView self = msg_send ~self ~cmd:(selector "collectionView") ~typ:(returning id) +let collectionView1 x ~canMoveItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:canMoveItemAtIndexPath:") ~typ:(id @-> id @-> returning bool) x canMoveItemAtIndexPath +let collectionView2 x ~cellForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:cellForItemAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForItemAtIndexPath +let collectionView3 x ~numberOfItemsInSection self = msg_send ~self ~cmd:(selector "collectionView:numberOfItemsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfItemsInSection) +let collectionView4 x ~moveItemAtIndexPath ~toIndexPath self = msg_send ~self ~cmd:(selector "collectionView:moveItemAtIndexPath:toIndexPath:") ~typ:(id @-> id @-> id @-> returning void) x moveItemAtIndexPath toIndexPath +let collectionView5 x ~viewForSupplementaryElementOfKind ~atIndexPath self = msg_send ~self ~cmd:(selector "collectionView:viewForSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> id @-> returning id) x viewForSupplementaryElementOfKind atIndexPath +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let impl self = msg_send ~self ~cmd:(selector "impl") ~typ:(returning id) +let indexForSectionIdentifier x self = msg_send ~self ~cmd:(selector "indexForSectionIdentifier:") ~typ:(id @-> returning llong) x +let indexPathForItemIdentifier x self = msg_send ~self ~cmd:(selector "indexPathForItemIdentifier:") ~typ:(id @-> returning id) x +let initWithCollectionView x ~cellProvider self = msg_send ~self ~cmd:(selector "initWithCollectionView:cellProvider:") ~typ:(id @-> (ptr void) @-> returning id) x cellProvider +let initWithCollectionView1 x ~itemRenderer self = msg_send ~self ~cmd:(selector "initWithCollectionView:itemRenderer:") ~typ:(id @-> id @-> returning id) x itemRenderer +let initWithCollectionView2 x ~itemRenderers ~rendererIdentifierProvider self = msg_send ~self ~cmd:(selector "initWithCollectionView:itemRenderers:rendererIdentifierProvider:") ~typ:(id @-> id @-> (ptr void) @-> returning id) x itemRenderers rendererIdentifierProvider +let initWithCollectionView3 x ~sectionControllers ~rendererIdentifierProvider self = msg_send ~self ~cmd:(selector "initWithCollectionView:sectionControllers:rendererIdentifierProvider:") ~typ:(id @-> id @-> (ptr void) @-> returning id) x sectionControllers rendererIdentifierProvider +let initWithViewUpdatesSink x self = msg_send ~self ~cmd:(selector "initWithViewUpdatesSink:") ~typ:(id @-> returning id) x +let itemIdentifierForIndexPath x self = msg_send ~self ~cmd:(selector "itemIdentifierForIndexPath:") ~typ:(id @-> returning id) x +let numberOfSectionsInCollectionView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInCollectionView:") ~typ:(id @-> returning llong) x +let reorderingHandlers self = msg_send ~self ~cmd:(selector "reorderingHandlers") ~typ:(returning id) +let sectionIdentifierForIndex x self = msg_send ~self ~cmd:(selector "sectionIdentifierForIndex:") ~typ:(llong @-> returning id) (LLong.of_int x) +let sectionSnapshotHandlers self = msg_send ~self ~cmd:(selector "sectionSnapshotHandlers") ~typ:(returning id) +let setImpl x self = msg_send ~self ~cmd:(selector "setImpl:") ~typ:(id @-> returning void) x +let setReorderingHandlers x self = msg_send ~self ~cmd:(selector "setReorderingHandlers:") ~typ:(id @-> returning void) x +let setSectionSnapshotHandlers x self = msg_send ~self ~cmd:(selector "setSectionSnapshotHandlers:") ~typ:(id @-> returning void) x +let setSupplementaryViewProvider x self = msg_send ~self ~cmd:(selector "setSupplementaryViewProvider:") ~typ:((ptr void) @-> returning void) x +let snapshot self = msg_send ~self ~cmd:(selector "snapshot") ~typ:(returning id) +let snapshotForSection x self = msg_send ~self ~cmd:(selector "snapshotForSection:") ~typ:(id @-> returning id) x let supplementaryViewProvider self = msg_send ~self ~cmd:(selector "supplementaryViewProvider") ~typ:(returning (ptr void)) -let validateIdentifiers self = msg_send ~self ~cmd:(selector "validateIdentifiers") ~typ:(returning (void)) \ No newline at end of file +let validateIdentifiers self = msg_send ~self ~cmd:(selector "validateIdentifiers") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UICollectionViewDiffableDataSourceReorderingHandlers.ml b/uikit/UICollectionViewDiffableDataSourceReorderingHandlers.ml deleted file mode 100644 index 4d3d7b80..00000000 --- a/uikit/UICollectionViewDiffableDataSourceReorderingHandlers.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICollectionViewDiffableDataSourceReorderingHandlers" - -let canReorderItemHandler self = msg_send ~self ~cmd:(selector "canReorderItemHandler") ~typ:(returning (ptr void)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let didReorderHandler self = msg_send ~self ~cmd:(selector "didReorderHandler") ~typ:(returning (ptr void)) -let initWithCanReorderItemHandler x ~willReorderItemHandler ~didReorderItemHandler self = msg_send ~self ~cmd:(selector "initWithCanReorderItemHandler:willReorderItemHandler:didReorderItemHandler:") ~typ:(ptr void @-> ptr void @-> ptr void @-> returning (id)) x willReorderItemHandler didReorderItemHandler -let setCanReorderItemHandler x self = msg_send ~self ~cmd:(selector "setCanReorderItemHandler:") ~typ:(ptr void @-> returning (void)) x -let setDidReorderHandler x self = msg_send ~self ~cmd:(selector "setDidReorderHandler:") ~typ:(ptr void @-> returning (void)) x -let setWillReorderHandler x self = msg_send ~self ~cmd:(selector "setWillReorderHandler:") ~typ:(ptr void @-> returning (void)) x -let willReorderHandler self = msg_send ~self ~cmd:(selector "willReorderHandler") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/uikit/UICollectionViewDiffableDataSourceSectionSnapshotHandlers.ml b/uikit/UICollectionViewDiffableDataSourceSectionSnapshotHandlers.ml deleted file mode 100644 index 63709d90..00000000 --- a/uikit/UICollectionViewDiffableDataSourceSectionSnapshotHandlers.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICollectionViewDiffableDataSourceSectionSnapshotHandlers" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithShouldExpandItemHandler x ~willExpandItemHandler ~shouldCollapseItemHandler ~willCollapseItemHandler ~snapshotForExpandingParentItemHandler self = msg_send ~self ~cmd:(selector "initWithShouldExpandItemHandler:willExpandItemHandler:shouldCollapseItemHandler:willCollapseItemHandler:snapshotForExpandingParentItemHandler:") ~typ:(ptr void @-> ptr void @-> ptr void @-> ptr void @-> ptr void @-> returning (id)) x willExpandItemHandler shouldCollapseItemHandler willCollapseItemHandler snapshotForExpandingParentItemHandler -let setShouldCollapseItemHandler x self = msg_send ~self ~cmd:(selector "setShouldCollapseItemHandler:") ~typ:(ptr void @-> returning (void)) x -let setShouldExpandItemHandler x self = msg_send ~self ~cmd:(selector "setShouldExpandItemHandler:") ~typ:(ptr void @-> returning (void)) x -let setSnapshotForExpandingParentItemHandler x self = msg_send ~self ~cmd:(selector "setSnapshotForExpandingParentItemHandler:") ~typ:(ptr void @-> returning (void)) x -let setWillCollapseItemHandler x self = msg_send ~self ~cmd:(selector "setWillCollapseItemHandler:") ~typ:(ptr void @-> returning (void)) x -let setWillExpandItemHandler x self = msg_send ~self ~cmd:(selector "setWillExpandItemHandler:") ~typ:(ptr void @-> returning (void)) x -let shouldCollapseItemHandler self = msg_send ~self ~cmd:(selector "shouldCollapseItemHandler") ~typ:(returning (ptr void)) -let shouldExpandItemHandler self = msg_send ~self ~cmd:(selector "shouldExpandItemHandler") ~typ:(returning (ptr void)) -let snapshotForExpandingParentItemHandler self = msg_send ~self ~cmd:(selector "snapshotForExpandingParentItemHandler") ~typ:(returning (ptr void)) -let willCollapseItemHandler self = msg_send ~self ~cmd:(selector "willCollapseItemHandler") ~typ:(returning (ptr void)) -let willExpandItemHandler self = msg_send ~self ~cmd:(selector "willExpandItemHandler") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/uikit/UICollectionViewDropPlaceholder.ml b/uikit/UICollectionViewDropPlaceholder.ml index 61f04f73..45c0b936 100644 --- a/uikit/UICollectionViewDropPlaceholder.ml +++ b/uikit/UICollectionViewDropPlaceholder.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewDropPlaceholder" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewdropplaceholder?language=objc}UICollectionViewDropPlaceholder} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x +let self = get_class "UICollectionViewDropPlaceholder" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let previewParametersProvider self = msg_send ~self ~cmd:(selector "previewParametersProvider") ~typ:(returning (ptr void)) -let setPreviewParametersProvider x self = msg_send ~self ~cmd:(selector "setPreviewParametersProvider:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file +let setPreviewParametersProvider x self = msg_send ~self ~cmd:(selector "setPreviewParametersProvider:") ~typ:((ptr void) @-> returning void) x \ No newline at end of file diff --git a/uikit/UICollectionViewDropProposal.ml b/uikit/UICollectionViewDropProposal.ml index 20de017a..9f8a1ebe 100644 --- a/uikit/UICollectionViewDropProposal.ml +++ b/uikit/UICollectionViewDropProposal.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewDropProposal" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewdropproposal?language=objc}UICollectionViewDropProposal} *) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let dropLocation self = msg_send ~self ~cmd:(selector "dropLocation") ~typ:(returning (llong)) -let initWithDropOperation x self = msg_send ~self ~cmd:(selector "initWithDropOperation:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let initWithDropOperation1 x ~dropLocation self = msg_send ~self ~cmd:(selector "initWithDropOperation:dropLocation:") ~typ:(ullong @-> llong @-> returning (id)) (ULLong.of_int x) (LLong.of_int dropLocation) -let initWithDropOperation2 x ~intent self = msg_send ~self ~cmd:(selector "initWithDropOperation:intent:") ~typ:(ullong @-> llong @-> returning (id)) (ULLong.of_int x) (LLong.of_int intent) -let intent self = msg_send ~self ~cmd:(selector "intent") ~typ:(returning (llong)) -let setIntent x self = msg_send ~self ~cmd:(selector "setIntent:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file +let self = get_class "UICollectionViewDropProposal" + +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let dropLocation self = msg_send ~self ~cmd:(selector "dropLocation") ~typ:(returning llong) +let initWithDropOperation x self = msg_send ~self ~cmd:(selector "initWithDropOperation:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let initWithDropOperation1 x ~dropLocation self = msg_send ~self ~cmd:(selector "initWithDropOperation:dropLocation:") ~typ:(ullong @-> llong @-> returning id) (ULLong.of_int x) (LLong.of_int dropLocation) +let initWithDropOperation2 x ~intent self = msg_send ~self ~cmd:(selector "initWithDropOperation:intent:") ~typ:(ullong @-> llong @-> returning id) (ULLong.of_int x) (LLong.of_int intent) +let intent self = msg_send ~self ~cmd:(selector "intent") ~typ:(returning llong) +let setIntent x self = msg_send ~self ~cmd:(selector "setIntent:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UICollectionViewFlowLayout.ml b/uikit/UICollectionViewFlowLayout.ml index b3312880..bfdbda3a 100644 --- a/uikit/UICollectionViewFlowLayout.ml +++ b/uikit/UICollectionViewFlowLayout.ml @@ -5,62 +5,63 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewFlowLayout" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewflowlayout?language=objc}UICollectionViewFlowLayout} *) -module C = struct - let invalidationContextClass self = msg_send ~self ~cmd:(selector "invalidationContextClass") ~typ:(returning (_Class)) -end +let self = get_class "UICollectionViewFlowLayout" -let collectionViewContentSize self = msg_send_stret ~self ~cmd:(selector "collectionViewContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let developmentLayoutDirection self = msg_send ~self ~cmd:(selector "developmentLayoutDirection") ~typ:(returning (llong)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let estimatedItemSize self = msg_send_stret ~self ~cmd:(selector "estimatedItemSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let finalLayoutAttributesForDeletedItemAtIndexPath x self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForDeletedItemAtIndexPath:") ~typ:(id @-> returning (id)) x -let finalLayoutAttributesForFooterInDeletedSection x self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForFooterInDeletedSection:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let finalLayoutAttributesForHeaderInDeletedSection x self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForHeaderInDeletedSection:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let footerReferenceSize self = msg_send_stret ~self ~cmd:(selector "footerReferenceSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let headerReferenceSize self = msg_send_stret ~self ~cmd:(selector "headerReferenceSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let indexPathForItemAtPoint x self = msg_send ~self ~cmd:(selector "indexPathForItemAtPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let indexesForSectionFootersInRect x self = msg_send ~self ~cmd:(selector "indexesForSectionFootersInRect:") ~typ:(CGRect.t @-> returning (id)) x -let indexesForSectionFootersInRect' x ~usingData self = msg_send ~self ~cmd:(selector "indexesForSectionFootersInRect:usingData:") ~typ:(CGRect.t @-> id @-> returning (id)) x usingData -let indexesForSectionHeadersInRect x self = msg_send ~self ~cmd:(selector "indexesForSectionHeadersInRect:") ~typ:(CGRect.t @-> returning (id)) x -let indexesForSectionHeadersInRect' x ~usingData self = msg_send ~self ~cmd:(selector "indexesForSectionHeadersInRect:usingData:") ~typ:(CGRect.t @-> id @-> returning (id)) x usingData -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initialLayoutAttributesForFooterInInsertedSection x self = msg_send ~self ~cmd:(selector "initialLayoutAttributesForFooterInInsertedSection:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let initialLayoutAttributesForHeaderInInsertedSection x self = msg_send ~self ~cmd:(selector "initialLayoutAttributesForHeaderInInsertedSection:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let initialLayoutAttributesForInsertedItemAtIndexPath x self = msg_send ~self ~cmd:(selector "initialLayoutAttributesForInsertedItemAtIndexPath:") ~typ:(id @-> returning (id)) x -let invalidateLayoutWithContext x self = msg_send ~self ~cmd:(selector "invalidateLayoutWithContext:") ~typ:(id @-> returning (void)) x -let invalidationContextForBoundsChange x self = msg_send ~self ~cmd:(selector "invalidationContextForBoundsChange:") ~typ:(CGRect.t @-> returning (id)) x -let invalidationContextForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "invalidationContextForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning (id)) x withOriginalAttributes -let itemSize self = msg_send_stret ~self ~cmd:(selector "itemSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning (id)) x -let layoutAttributesForFooterInSection x self = msg_send ~self ~cmd:(selector "layoutAttributesForFooterInSection:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let layoutAttributesForFooterInSection' x ~usingData self = msg_send ~self ~cmd:(selector "layoutAttributesForFooterInSection:usingData:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) usingData -let layoutAttributesForHeaderInSection x self = msg_send ~self ~cmd:(selector "layoutAttributesForHeaderInSection:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let layoutAttributesForHeaderInSection' x ~usingData self = msg_send ~self ~cmd:(selector "layoutAttributesForHeaderInSection:usingData:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) usingData -let layoutAttributesForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:") ~typ:(id @-> returning (id)) x -let layoutAttributesForItemAtIndexPath' x ~usingData self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:usingData:") ~typ:(id @-> id @-> returning (id)) x usingData -let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let minimumInteritemSpacing self = msg_send ~self ~cmd:(selector "minimumInteritemSpacing") ~typ:(returning (double)) -let minimumLineSpacing self = msg_send ~self ~cmd:(selector "minimumLineSpacing") ~typ:(returning (double)) -let prepareLayout self = msg_send ~self ~cmd:(selector "prepareLayout") ~typ:(returning (void)) -let scrollDirection self = msg_send ~self ~cmd:(selector "scrollDirection") ~typ:(returning (llong)) -let sectionFootersPinToVisibleBounds self = msg_send ~self ~cmd:(selector "sectionFootersPinToVisibleBounds") ~typ:(returning (bool)) -let sectionHeadersPinToVisibleBounds self = msg_send ~self ~cmd:(selector "sectionHeadersPinToVisibleBounds") ~typ:(returning (bool)) -let sectionInsetReference self = msg_send ~self ~cmd:(selector "sectionInsetReference") ~typ:(returning (llong)) -let setEstimatedItemSize x self = msg_send ~self ~cmd:(selector "setEstimatedItemSize:") ~typ:(CGSize.t @-> returning (void)) x -let setFooterReferenceSize x self = msg_send ~self ~cmd:(selector "setFooterReferenceSize:") ~typ:(CGSize.t @-> returning (void)) x -let setHeaderReferenceSize x self = msg_send ~self ~cmd:(selector "setHeaderReferenceSize:") ~typ:(CGSize.t @-> returning (void)) x -let setItemSize x self = msg_send ~self ~cmd:(selector "setItemSize:") ~typ:(CGSize.t @-> returning (void)) x -let setMinimumInteritemSpacing x self = msg_send ~self ~cmd:(selector "setMinimumInteritemSpacing:") ~typ:(double @-> returning (void)) x -let setMinimumLineSpacing x self = msg_send ~self ~cmd:(selector "setMinimumLineSpacing:") ~typ:(double @-> returning (void)) x -let setScrollDirection x self = msg_send ~self ~cmd:(selector "setScrollDirection:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSectionFootersPinToVisibleBounds x self = msg_send ~self ~cmd:(selector "setSectionFootersPinToVisibleBounds:") ~typ:(bool @-> returning (void)) x -let setSectionHeadersPinToVisibleBounds x self = msg_send ~self ~cmd:(selector "setSectionHeadersPinToVisibleBounds:") ~typ:(bool @-> returning (void)) x -let setSectionInset x self = msg_send ~self ~cmd:(selector "setSectionInset:") ~typ:(ptr void @-> returning (void)) x -let setSectionInsetReference x self = msg_send ~self ~cmd:(selector "setSectionInsetReference:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let shouldInvalidateLayoutForBoundsChange x self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForBoundsChange:") ~typ:(CGRect.t @-> returning (bool)) x -let shouldInvalidateLayoutForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning (bool)) x withOriginalAttributes -let synchronizeLayout self = msg_send_stret ~self ~cmd:(selector "synchronizeLayout") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t \ No newline at end of file +let collectionViewContentSize self = msg_send ~self ~cmd:(selector "collectionViewContentSize") ~typ:(returning CGSize.t) +let developmentLayoutDirection self = msg_send ~self ~cmd:(selector "developmentLayoutDirection") ~typ:(returning llong) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let estimatedItemSize self = msg_send ~self ~cmd:(selector "estimatedItemSize") ~typ:(returning CGSize.t) +let finalLayoutAttributesForDeletedItemAtIndexPath x self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForDeletedItemAtIndexPath:") ~typ:(id @-> returning id) x +let finalLayoutAttributesForFooterInDeletedSection x self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForFooterInDeletedSection:") ~typ:(llong @-> returning id) (LLong.of_int x) +let finalLayoutAttributesForHeaderInDeletedSection x self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForHeaderInDeletedSection:") ~typ:(llong @-> returning id) (LLong.of_int x) +let footerReferenceSize self = msg_send ~self ~cmd:(selector "footerReferenceSize") ~typ:(returning CGSize.t) +let headerReferenceSize self = msg_send ~self ~cmd:(selector "headerReferenceSize") ~typ:(returning CGSize.t) +let indexPathForItemAtPoint x self = msg_send ~self ~cmd:(selector "indexPathForItemAtPoint:") ~typ:(CGPoint.t @-> returning id) x +let indexesForSectionFootersInRect x self = msg_send ~self ~cmd:(selector "indexesForSectionFootersInRect:") ~typ:(CGRect.t @-> returning id) x +let indexesForSectionFootersInRect' x ~usingData self = msg_send ~self ~cmd:(selector "indexesForSectionFootersInRect:usingData:") ~typ:(CGRect.t @-> id @-> returning id) x usingData +let indexesForSectionHeadersInRect x self = msg_send ~self ~cmd:(selector "indexesForSectionHeadersInRect:") ~typ:(CGRect.t @-> returning id) x +let indexesForSectionHeadersInRect' x ~usingData self = msg_send ~self ~cmd:(selector "indexesForSectionHeadersInRect:usingData:") ~typ:(CGRect.t @-> id @-> returning id) x usingData +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initialLayoutAttributesForFooterInInsertedSection x self = msg_send ~self ~cmd:(selector "initialLayoutAttributesForFooterInInsertedSection:") ~typ:(llong @-> returning id) (LLong.of_int x) +let initialLayoutAttributesForHeaderInInsertedSection x self = msg_send ~self ~cmd:(selector "initialLayoutAttributesForHeaderInInsertedSection:") ~typ:(llong @-> returning id) (LLong.of_int x) +let initialLayoutAttributesForInsertedItemAtIndexPath x self = msg_send ~self ~cmd:(selector "initialLayoutAttributesForInsertedItemAtIndexPath:") ~typ:(id @-> returning id) x +let invalidateLayoutWithContext x self = msg_send ~self ~cmd:(selector "invalidateLayoutWithContext:") ~typ:(id @-> returning void) x +let invalidationContextForBoundsChange x self = msg_send ~self ~cmd:(selector "invalidationContextForBoundsChange:") ~typ:(CGRect.t @-> returning id) x +let invalidationContextForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "invalidationContextForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning id) x withOriginalAttributes +let itemSize self = msg_send ~self ~cmd:(selector "itemSize") ~typ:(returning CGSize.t) +let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning id) x +let layoutAttributesForFooterInSection x self = msg_send ~self ~cmd:(selector "layoutAttributesForFooterInSection:") ~typ:(llong @-> returning id) (LLong.of_int x) +let layoutAttributesForFooterInSection' x ~usingData self = msg_send ~self ~cmd:(selector "layoutAttributesForFooterInSection:usingData:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) usingData +let layoutAttributesForHeaderInSection x self = msg_send ~self ~cmd:(selector "layoutAttributesForHeaderInSection:") ~typ:(llong @-> returning id) (LLong.of_int x) +let layoutAttributesForHeaderInSection' x ~usingData self = msg_send ~self ~cmd:(selector "layoutAttributesForHeaderInSection:usingData:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) usingData +let layoutAttributesForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:") ~typ:(id @-> returning id) x +let layoutAttributesForItemAtIndexPath' x ~usingData self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:usingData:") ~typ:(id @-> id @-> returning id) x usingData +let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let minimumInteritemSpacing self = msg_send ~self ~cmd:(selector "minimumInteritemSpacing") ~typ:(returning double) +let minimumLineSpacing self = msg_send ~self ~cmd:(selector "minimumLineSpacing") ~typ:(returning double) +let prepareLayout self = msg_send ~self ~cmd:(selector "prepareLayout") ~typ:(returning void) +let scrollDirection self = msg_send ~self ~cmd:(selector "scrollDirection") ~typ:(returning llong) +let sectionFootersPinToVisibleBounds self = msg_send ~self ~cmd:(selector "sectionFootersPinToVisibleBounds") ~typ:(returning bool) +let sectionHeadersPinToVisibleBounds self = msg_send ~self ~cmd:(selector "sectionHeadersPinToVisibleBounds") ~typ:(returning bool) +let sectionInset self = msg_send ~self ~cmd:(selector "sectionInset") ~typ:(returning UIEdgeInsets.t) +let sectionInsetReference self = msg_send ~self ~cmd:(selector "sectionInsetReference") ~typ:(returning llong) +let setEstimatedItemSize x self = msg_send ~self ~cmd:(selector "setEstimatedItemSize:") ~typ:(CGSize.t @-> returning void) x +let setFooterReferenceSize x self = msg_send ~self ~cmd:(selector "setFooterReferenceSize:") ~typ:(CGSize.t @-> returning void) x +let setHeaderReferenceSize x self = msg_send ~self ~cmd:(selector "setHeaderReferenceSize:") ~typ:(CGSize.t @-> returning void) x +let setItemSize x self = msg_send ~self ~cmd:(selector "setItemSize:") ~typ:(CGSize.t @-> returning void) x +let setMinimumInteritemSpacing x self = msg_send ~self ~cmd:(selector "setMinimumInteritemSpacing:") ~typ:(double @-> returning void) x +let setMinimumLineSpacing x self = msg_send ~self ~cmd:(selector "setMinimumLineSpacing:") ~typ:(double @-> returning void) x +let setScrollDirection x self = msg_send ~self ~cmd:(selector "setScrollDirection:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSectionFootersPinToVisibleBounds x self = msg_send ~self ~cmd:(selector "setSectionFootersPinToVisibleBounds:") ~typ:(bool @-> returning void) x +let setSectionHeadersPinToVisibleBounds x self = msg_send ~self ~cmd:(selector "setSectionHeadersPinToVisibleBounds:") ~typ:(bool @-> returning void) x +let setSectionInset x self = msg_send ~self ~cmd:(selector "setSectionInset:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setSectionInsetReference x self = msg_send ~self ~cmd:(selector "setSectionInsetReference:") ~typ:(llong @-> returning void) (LLong.of_int x) +let shouldInvalidateLayoutForBoundsChange x self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForBoundsChange:") ~typ:(CGRect.t @-> returning bool) x +let shouldInvalidateLayoutForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning bool) x withOriginalAttributes +let synchronizeLayout self = msg_send ~self ~cmd:(selector "synchronizeLayout") ~typ:(returning CGSize.t) \ No newline at end of file diff --git a/uikit/UICollectionViewFlowLayoutClass.ml b/uikit/UICollectionViewFlowLayoutClass.ml new file mode 100644 index 00000000..95eef03b --- /dev/null +++ b/uikit/UICollectionViewFlowLayoutClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewflowlayout?language=objc}UICollectionViewFlowLayout} *) + +let invalidationContextClass self = msg_send ~self ~cmd:(selector "invalidationContextClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit/UICollectionViewFlowLayoutInvalidationContext.ml b/uikit/UICollectionViewFlowLayoutInvalidationContext.ml deleted file mode 100644 index 925c027a..00000000 --- a/uikit/UICollectionViewFlowLayoutInvalidationContext.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICollectionViewFlowLayoutInvalidationContext" - -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let invalidateFlowLayoutAttributes self = msg_send ~self ~cmd:(selector "invalidateFlowLayoutAttributes") ~typ:(returning (bool)) -let invalidateFlowLayoutDelegateMetrics self = msg_send ~self ~cmd:(selector "invalidateFlowLayoutDelegateMetrics") ~typ:(returning (bool)) -let setInvalidateFlowLayoutAttributes x self = msg_send ~self ~cmd:(selector "setInvalidateFlowLayoutAttributes:") ~typ:(bool @-> returning (void)) x -let setInvalidateFlowLayoutDelegateMetrics x self = msg_send ~self ~cmd:(selector "setInvalidateFlowLayoutDelegateMetrics:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UICollectionViewFocusUpdateContext.ml b/uikit/UICollectionViewFocusUpdateContext.ml index 73bfd6c0..7e3373a5 100644 --- a/uikit/UICollectionViewFocusUpdateContext.ml +++ b/uikit/UICollectionViewFocusUpdateContext.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewFocusUpdateContext" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewfocusupdatecontext?language=objc}UICollectionViewFocusUpdateContext} *) -let collectionView self = msg_send ~self ~cmd:(selector "collectionView") ~typ:(returning (id)) -let nextFocusedIndexPath self = msg_send ~self ~cmd:(selector "nextFocusedIndexPath") ~typ:(returning (id)) -let previouslyFocusedIndexPath self = msg_send ~self ~cmd:(selector "previouslyFocusedIndexPath") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UICollectionViewFocusUpdateContext" + +let collectionView self = msg_send ~self ~cmd:(selector "collectionView") ~typ:(returning id) +let nextFocusedIndexPath self = msg_send ~self ~cmd:(selector "nextFocusedIndexPath") ~typ:(returning id) +let previouslyFocusedIndexPath self = msg_send ~self ~cmd:(selector "previouslyFocusedIndexPath") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UICollectionViewLayout.ml b/uikit/UICollectionViewLayout.ml index 796403ba..d9b5b2b0 100644 --- a/uikit/UICollectionViewLayout.ml +++ b/uikit/UICollectionViewLayout.ml @@ -5,62 +5,61 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewLayout" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewlayout?language=objc}UICollectionViewLayout} *) -module C = struct - let invalidationContextClass self = msg_send ~self ~cmd:(selector "invalidationContextClass") ~typ:(returning (_Class)) - let layoutAttributesClass self = msg_send ~self ~cmd:(selector "layoutAttributesClass") ~typ:(returning (_Class)) -end +let self = get_class "UICollectionViewLayout" -let bounds self = msg_send_stret ~self ~cmd:(selector "bounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning (bool)) -let collectionView self = msg_send ~self ~cmd:(selector "collectionView") ~typ:(returning (id)) -let collectionViewContentSize self = msg_send_stret ~self ~cmd:(selector "collectionViewContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let convertRect x ~fromLayout self = msg_send_stret ~self ~cmd:(selector "convertRect:fromLayout:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x fromLayout -let convertRect' x ~toLayout self = msg_send_stret ~self ~cmd:(selector "convertRect:toLayout:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x toLayout -let developmentLayoutDirection self = msg_send ~self ~cmd:(selector "developmentLayoutDirection") ~typ:(returning (llong)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let finalLayoutAttributesForDisappearingDecorationElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForDisappearingDecorationElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let finalLayoutAttributesForDisappearingItemAtIndexPath x self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForDisappearingItemAtIndexPath:") ~typ:(id @-> returning (id)) x -let finalLayoutAttributesForDisappearingSupplementaryElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForDisappearingSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let finalizeAnimatedBoundsChange self = msg_send ~self ~cmd:(selector "finalizeAnimatedBoundsChange") ~typ:(returning (void)) -let finalizeCollectionViewUpdates self = msg_send ~self ~cmd:(selector "finalizeCollectionViewUpdates") ~typ:(returning (void)) -let finalizeLayoutTransition self = msg_send ~self ~cmd:(selector "finalizeLayoutTransition") ~typ:(returning (void)) -let flipsHorizontallyInOppositeLayoutDirection self = msg_send ~self ~cmd:(selector "flipsHorizontallyInOppositeLayoutDirection") ~typ:(returning (bool)) -let indexPathsToDeleteForDecorationViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToDeleteForDecorationViewOfKind:") ~typ:(id @-> returning (id)) x -let indexPathsToDeleteForSupplementaryViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToDeleteForSupplementaryViewOfKind:") ~typ:(id @-> returning (id)) x -let indexPathsToInsertForDecorationViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToInsertForDecorationViewOfKind:") ~typ:(id @-> returning (id)) x -let indexPathsToInsertForSupplementaryViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToInsertForSupplementaryViewOfKind:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initialLayoutAttributesForAppearingDecorationElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "initialLayoutAttributesForAppearingDecorationElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let initialLayoutAttributesForAppearingItemAtIndexPath x self = msg_send ~self ~cmd:(selector "initialLayoutAttributesForAppearingItemAtIndexPath:") ~typ:(id @-> returning (id)) x -let initialLayoutAttributesForAppearingSupplementaryElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "initialLayoutAttributesForAppearingSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let invalidateLayout self = msg_send ~self ~cmd:(selector "invalidateLayout") ~typ:(returning (void)) -let invalidateLayoutWithContext x self = msg_send ~self ~cmd:(selector "invalidateLayoutWithContext:") ~typ:(id @-> returning (void)) x -let invalidationContextForBoundsChange x self = msg_send ~self ~cmd:(selector "invalidationContextForBoundsChange:") ~typ:(CGRect.t @-> returning (id)) x -let invalidationContextForEndingInteractiveMovementOfItemsToFinalIndexPaths x ~previousIndexPaths ~movementCancelled self = msg_send ~self ~cmd:(selector "invalidationContextForEndingInteractiveMovementOfItemsToFinalIndexPaths:previousIndexPaths:movementCancelled:") ~typ:(id @-> id @-> bool @-> returning (id)) x previousIndexPaths movementCancelled -let invalidationContextForInteractivelyMovingItems x ~withTargetPosition ~previousIndexPaths ~previousPosition self = msg_send ~self ~cmd:(selector "invalidationContextForInteractivelyMovingItems:withTargetPosition:previousIndexPaths:previousPosition:") ~typ:(id @-> CGPoint.t @-> id @-> CGPoint.t @-> returning (id)) x withTargetPosition previousIndexPaths previousPosition -let invalidationContextForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "invalidationContextForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning (id)) x withOriginalAttributes -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let layoutAttributesForDecorationViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForDecorationViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning (id)) x -let layoutAttributesForInteractivelyMovingItemAtIndexPath x ~withTargetPosition self = msg_send ~self ~cmd:(selector "layoutAttributesForInteractivelyMovingItemAtIndexPath:withTargetPosition:") ~typ:(id @-> CGPoint.t @-> returning (id)) x withTargetPosition -let layoutAttributesForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:") ~typ:(id @-> returning (id)) x -let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let prepareForAnimatedBoundsChange x self = msg_send ~self ~cmd:(selector "prepareForAnimatedBoundsChange:") ~typ:(CGRect.t @-> returning (void)) x -let prepareForCollectionViewUpdates x self = msg_send ~self ~cmd:(selector "prepareForCollectionViewUpdates:") ~typ:(id @-> returning (void)) x -let prepareForTransitionFromLayout x self = msg_send ~self ~cmd:(selector "prepareForTransitionFromLayout:") ~typ:(id @-> returning (void)) x -let prepareForTransitionToLayout x self = msg_send ~self ~cmd:(selector "prepareForTransitionToLayout:") ~typ:(id @-> returning (void)) x -let prepareLayout self = msg_send ~self ~cmd:(selector "prepareLayout") ~typ:(returning (void)) -let registerClass x ~forDecorationViewOfKind self = msg_send ~self ~cmd:(selector "registerClass:forDecorationViewOfKind:") ~typ:(_Class @-> id @-> returning (void)) x forDecorationViewOfKind -let registerNib x ~forDecorationViewOfKind self = msg_send ~self ~cmd:(selector "registerNib:forDecorationViewOfKind:") ~typ:(id @-> id @-> returning (void)) x forDecorationViewOfKind -let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning (void)) x -let shouldInvalidateLayoutForBoundsChange x self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForBoundsChange:") ~typ:(CGRect.t @-> returning (bool)) x -let shouldInvalidateLayoutForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning (bool)) x withOriginalAttributes -let snapshottedLayoutAttributeForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "snapshottedLayoutAttributeForItemAtIndexPath:") ~typ:(id @-> returning (id)) x -let targetContentOffsetForProposedContentOffset x self = msg_send_stret ~self ~cmd:(selector "targetContentOffsetForProposedContentOffset:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let targetContentOffsetForProposedContentOffset' x ~withScrollingVelocity self = msg_send_stret ~self ~cmd:(selector "targetContentOffsetForProposedContentOffset:withScrollingVelocity:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x withScrollingVelocity -let targetIndexPathForInteractivelyMovingItem x ~withPosition self = msg_send ~self ~cmd:(selector "targetIndexPathForInteractivelyMovingItem:withPosition:") ~typ:(id @-> CGPoint.t @-> returning (id)) x withPosition -let transitionContentOffsetForProposedContentOffset x ~keyItemIndexPath self = msg_send_stret ~self ~cmd:(selector "transitionContentOffsetForProposedContentOffset:keyItemIndexPath:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x keyItemIndexPath \ No newline at end of file +let bounds self = msg_send ~self ~cmd:(selector "bounds") ~typ:(returning CGRect.t) +let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning bool) +let collectionView self = msg_send ~self ~cmd:(selector "collectionView") ~typ:(returning id) +let collectionViewContentSize self = msg_send ~self ~cmd:(selector "collectionViewContentSize") ~typ:(returning CGSize.t) +let convertRect x ~fromLayout self = msg_send ~self ~cmd:(selector "convertRect:fromLayout:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x fromLayout +let convertRect' x ~toLayout self = msg_send ~self ~cmd:(selector "convertRect:toLayout:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x toLayout +let developmentLayoutDirection self = msg_send ~self ~cmd:(selector "developmentLayoutDirection") ~typ:(returning llong) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let finalLayoutAttributesForDisappearingDecorationElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForDisappearingDecorationElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let finalLayoutAttributesForDisappearingItemAtIndexPath x self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForDisappearingItemAtIndexPath:") ~typ:(id @-> returning id) x +let finalLayoutAttributesForDisappearingSupplementaryElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForDisappearingSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let finalizeAnimatedBoundsChange self = msg_send ~self ~cmd:(selector "finalizeAnimatedBoundsChange") ~typ:(returning void) +let finalizeCollectionViewUpdates self = msg_send ~self ~cmd:(selector "finalizeCollectionViewUpdates") ~typ:(returning void) +let finalizeLayoutTransition self = msg_send ~self ~cmd:(selector "finalizeLayoutTransition") ~typ:(returning void) +let flipsHorizontallyInOppositeLayoutDirection self = msg_send ~self ~cmd:(selector "flipsHorizontallyInOppositeLayoutDirection") ~typ:(returning bool) +let indexPathsToDeleteForDecorationViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToDeleteForDecorationViewOfKind:") ~typ:(id @-> returning id) x +let indexPathsToDeleteForSupplementaryViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToDeleteForSupplementaryViewOfKind:") ~typ:(id @-> returning id) x +let indexPathsToInsertForDecorationViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToInsertForDecorationViewOfKind:") ~typ:(id @-> returning id) x +let indexPathsToInsertForSupplementaryViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToInsertForSupplementaryViewOfKind:") ~typ:(id @-> returning id) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initialLayoutAttributesForAppearingDecorationElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "initialLayoutAttributesForAppearingDecorationElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let initialLayoutAttributesForAppearingItemAtIndexPath x self = msg_send ~self ~cmd:(selector "initialLayoutAttributesForAppearingItemAtIndexPath:") ~typ:(id @-> returning id) x +let initialLayoutAttributesForAppearingSupplementaryElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "initialLayoutAttributesForAppearingSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let invalidateLayout self = msg_send ~self ~cmd:(selector "invalidateLayout") ~typ:(returning void) +let invalidateLayoutWithContext x self = msg_send ~self ~cmd:(selector "invalidateLayoutWithContext:") ~typ:(id @-> returning void) x +let invalidationContextForBoundsChange x self = msg_send ~self ~cmd:(selector "invalidationContextForBoundsChange:") ~typ:(CGRect.t @-> returning id) x +let invalidationContextForEndingInteractiveMovementOfItemsToFinalIndexPaths x ~previousIndexPaths ~movementCancelled self = msg_send ~self ~cmd:(selector "invalidationContextForEndingInteractiveMovementOfItemsToFinalIndexPaths:previousIndexPaths:movementCancelled:") ~typ:(id @-> id @-> bool @-> returning id) x previousIndexPaths movementCancelled +let invalidationContextForInteractivelyMovingItems x ~withTargetPosition ~previousIndexPaths ~previousPosition self = msg_send ~self ~cmd:(selector "invalidationContextForInteractivelyMovingItems:withTargetPosition:previousIndexPaths:previousPosition:") ~typ:(id @-> CGPoint.t @-> id @-> CGPoint.t @-> returning id) x withTargetPosition previousIndexPaths previousPosition +let invalidationContextForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "invalidationContextForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning id) x withOriginalAttributes +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let layoutAttributesForDecorationViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForDecorationViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning id) x +let layoutAttributesForInteractivelyMovingItemAtIndexPath x ~withTargetPosition self = msg_send ~self ~cmd:(selector "layoutAttributesForInteractivelyMovingItemAtIndexPath:withTargetPosition:") ~typ:(id @-> CGPoint.t @-> returning id) x withTargetPosition +let layoutAttributesForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:") ~typ:(id @-> returning id) x +let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let prepareForAnimatedBoundsChange x self = msg_send ~self ~cmd:(selector "prepareForAnimatedBoundsChange:") ~typ:(CGRect.t @-> returning void) x +let prepareForCollectionViewUpdates x self = msg_send ~self ~cmd:(selector "prepareForCollectionViewUpdates:") ~typ:(id @-> returning void) x +let prepareForTransitionFromLayout x self = msg_send ~self ~cmd:(selector "prepareForTransitionFromLayout:") ~typ:(id @-> returning void) x +let prepareForTransitionToLayout x self = msg_send ~self ~cmd:(selector "prepareForTransitionToLayout:") ~typ:(id @-> returning void) x +let prepareLayout self = msg_send ~self ~cmd:(selector "prepareLayout") ~typ:(returning void) +let registerClass x ~forDecorationViewOfKind self = msg_send ~self ~cmd:(selector "registerClass:forDecorationViewOfKind:") ~typ:(_Class @-> id @-> returning void) x forDecorationViewOfKind +let registerNib x ~forDecorationViewOfKind self = msg_send ~self ~cmd:(selector "registerNib:forDecorationViewOfKind:") ~typ:(id @-> id @-> returning void) x forDecorationViewOfKind +let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning void) x +let shouldInvalidateLayoutForBoundsChange x self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForBoundsChange:") ~typ:(CGRect.t @-> returning bool) x +let shouldInvalidateLayoutForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning bool) x withOriginalAttributes +let snapshottedLayoutAttributeForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "snapshottedLayoutAttributeForItemAtIndexPath:") ~typ:(id @-> returning id) x +let targetContentOffsetForProposedContentOffset x self = msg_send ~self ~cmd:(selector "targetContentOffsetForProposedContentOffset:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let targetContentOffsetForProposedContentOffset' x ~withScrollingVelocity self = msg_send ~self ~cmd:(selector "targetContentOffsetForProposedContentOffset:withScrollingVelocity:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning CGPoint.t) x withScrollingVelocity +let targetIndexPathForInteractivelyMovingItem x ~withPosition self = msg_send ~self ~cmd:(selector "targetIndexPathForInteractivelyMovingItem:withPosition:") ~typ:(id @-> CGPoint.t @-> returning id) x withPosition +let transitionContentOffsetForProposedContentOffset x ~keyItemIndexPath self = msg_send ~self ~cmd:(selector "transitionContentOffsetForProposedContentOffset:keyItemIndexPath:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x keyItemIndexPath \ No newline at end of file diff --git a/uikit/UICollectionViewLayoutAttributes.ml b/uikit/UICollectionViewLayoutAttributes.ml index 3a5f5c51..ca52935b 100644 --- a/uikit/UICollectionViewLayoutAttributes.ml +++ b/uikit/UICollectionViewLayoutAttributes.ml @@ -5,40 +5,40 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewLayoutAttributes" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewlayoutattributes?language=objc}UICollectionViewLayoutAttributes} *) -module C = struct - let layoutAttributesForCellWithIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForCellWithIndexPath:") ~typ:(id @-> returning (id)) x - let layoutAttributesForDecorationViewOfKind x ~withIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForDecorationViewOfKind:withIndexPath:") ~typ:(id @-> id @-> returning (id)) x withIndexPath - let layoutAttributesForSupplementaryViewOfKind x ~withIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:withIndexPath:") ~typ:(id @-> id @-> returning (id)) x withIndexPath -end +let self = get_class "UICollectionViewLayoutAttributes" -let alpha self = msg_send ~self ~cmd:(selector "alpha") ~typ:(returning (double)) -let bounds self = msg_send_stret ~self ~cmd:(selector "bounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let center self = msg_send_stret ~self ~cmd:(selector "center") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let frame self = msg_send_stret ~self ~cmd:(selector "frame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let indexPath self = msg_send ~self ~cmd:(selector "indexPath") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initialLayoutAttributesForInsertedDecorationElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "initialLayoutAttributesForInsertedDecorationElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isHidden self = msg_send ~self ~cmd:(selector "isHidden") ~typ:(returning (bool)) -let isSizeEqualForPreferredFittingAttributes x self = msg_send ~self ~cmd:(selector "isSizeEqualForPreferredFittingAttributes:") ~typ:(id @-> returning (bool)) x -let representedElementCategory self = msg_send ~self ~cmd:(selector "representedElementCategory") ~typ:(returning (ullong)) -let representedElementKind self = msg_send ~self ~cmd:(selector "representedElementKind") ~typ:(returning (id)) -let setAlpha x self = msg_send ~self ~cmd:(selector "setAlpha:") ~typ:(double @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHasMaskViewFrame x self = msg_send ~self ~cmd:(selector "setHasMaskViewFrame:") ~typ:(bool @-> returning (void)) x -let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning (void)) x -let setIndexPath x self = msg_send ~self ~cmd:(selector "setIndexPath:") ~typ:(id @-> returning (void)) x -let setSize x self = msg_send ~self ~cmd:(selector "setSize:") ~typ:(CGSize.t @-> returning (void)) x -let setTransform3D x self = msg_send ~self ~cmd:(selector "setTransform3D:") ~typ:(ptr void @-> returning (void)) x -let setTransform x self = msg_send ~self ~cmd:(selector "setTransform:") ~typ:(ptr void @-> returning (void)) x -let setZIndex x self = msg_send ~self ~cmd:(selector "setZIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let size self = msg_send_stret ~self ~cmd:(selector "size") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let zIndex self = msg_send ~self ~cmd:(selector "zIndex") ~typ:(returning (llong)) \ No newline at end of file +let alpha self = msg_send ~self ~cmd:(selector "alpha") ~typ:(returning double) +let bounds self = msg_send ~self ~cmd:(selector "bounds") ~typ:(returning CGRect.t) +let center self = msg_send ~self ~cmd:(selector "center") ~typ:(returning CGPoint.t) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let frame self = msg_send ~self ~cmd:(selector "frame") ~typ:(returning CGRect.t) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let indexPath self = msg_send ~self ~cmd:(selector "indexPath") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initialLayoutAttributesForInsertedDecorationElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "initialLayoutAttributesForInsertedDecorationElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isHidden self = msg_send ~self ~cmd:(selector "isHidden") ~typ:(returning bool) +let isSizeEqualForPreferredFittingAttributes x self = msg_send ~self ~cmd:(selector "isSizeEqualForPreferredFittingAttributes:") ~typ:(id @-> returning bool) x +let representedElementCategory self = msg_send ~self ~cmd:(selector "representedElementCategory") ~typ:(returning ullong) +let representedElementKind self = msg_send ~self ~cmd:(selector "representedElementKind") ~typ:(returning id) +let setAlpha x self = msg_send ~self ~cmd:(selector "setAlpha:") ~typ:(double @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHasMaskViewFrame x self = msg_send ~self ~cmd:(selector "setHasMaskViewFrame:") ~typ:(bool @-> returning void) x +let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning void) x +let setIndexPath x self = msg_send ~self ~cmd:(selector "setIndexPath:") ~typ:(id @-> returning void) x +let setSize x self = msg_send ~self ~cmd:(selector "setSize:") ~typ:(CGSize.t @-> returning void) x +let setTransform3D x self = msg_send ~self ~cmd:(selector "setTransform3D:") ~typ:(CATransform3D.t @-> returning void) x +let setTransform x self = msg_send ~self ~cmd:(selector "setTransform:") ~typ:(CGAffineTransform.t @-> returning void) x +let setZIndex x self = msg_send ~self ~cmd:(selector "setZIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let size self = msg_send ~self ~cmd:(selector "size") ~typ:(returning CGSize.t) +let transform self = msg_send ~self ~cmd:(selector "transform") ~typ:(returning CGAffineTransform.t) +let transform3D self = msg_send ~self ~cmd:(selector "transform3D") ~typ:(returning CATransform3D.t) +let zIndex self = msg_send ~self ~cmd:(selector "zIndex") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UICollectionViewLayoutAttributesClass.ml b/uikit/UICollectionViewLayoutAttributesClass.ml new file mode 100644 index 00000000..8df4c2e4 --- /dev/null +++ b/uikit/UICollectionViewLayoutAttributesClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewlayoutattributes?language=objc}UICollectionViewLayoutAttributes} *) + +let layoutAttributesForCellWithIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForCellWithIndexPath:") ~typ:(id @-> returning id) x +let layoutAttributesForDecorationViewOfKind x ~withIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForDecorationViewOfKind:withIndexPath:") ~typ:(id @-> id @-> returning id) x withIndexPath +let layoutAttributesForSupplementaryViewOfKind x ~withIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:withIndexPath:") ~typ:(id @-> id @-> returning id) x withIndexPath \ No newline at end of file diff --git a/uikit/UICollectionViewLayoutClass.ml b/uikit/UICollectionViewLayoutClass.ml new file mode 100644 index 00000000..da139596 --- /dev/null +++ b/uikit/UICollectionViewLayoutClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewlayout?language=objc}UICollectionViewLayout} *) + +let invalidationContextClass self = msg_send ~self ~cmd:(selector "invalidationContextClass") ~typ:(returning _Class) +let layoutAttributesClass self = msg_send ~self ~cmd:(selector "layoutAttributesClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit/UICollectionViewLayoutInvalidationContext.ml b/uikit/UICollectionViewLayoutInvalidationContext.ml deleted file mode 100644 index 76329359..00000000 --- a/uikit/UICollectionViewLayoutInvalidationContext.ml +++ /dev/null @@ -1,25 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICollectionViewLayoutInvalidationContext" - -let contentOffsetAdjustment self = msg_send_stret ~self ~cmd:(selector "contentOffsetAdjustment") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let contentSizeAdjustment self = msg_send_stret ~self ~cmd:(selector "contentSizeAdjustment") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let interactiveMovementTarget self = msg_send_stret ~self ~cmd:(selector "interactiveMovementTarget") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let invalidateDataSourceCounts self = msg_send ~self ~cmd:(selector "invalidateDataSourceCounts") ~typ:(returning (bool)) -let invalidateDecorationElementsOfKind x ~atIndexPaths self = msg_send ~self ~cmd:(selector "invalidateDecorationElementsOfKind:atIndexPaths:") ~typ:(id @-> id @-> returning (void)) x atIndexPaths -let invalidateEverything self = msg_send ~self ~cmd:(selector "invalidateEverything") ~typ:(returning (bool)) -let invalidateItemsAtIndexPaths x self = msg_send ~self ~cmd:(selector "invalidateItemsAtIndexPaths:") ~typ:(id @-> returning (void)) x -let invalidateSupplementaryElementsOfKind x ~atIndexPaths self = msg_send ~self ~cmd:(selector "invalidateSupplementaryElementsOfKind:atIndexPaths:") ~typ:(id @-> id @-> returning (void)) x atIndexPaths -let invalidatedDecorationIndexPaths self = msg_send ~self ~cmd:(selector "invalidatedDecorationIndexPaths") ~typ:(returning (id)) -let invalidatedItemIndexPaths self = msg_send ~self ~cmd:(selector "invalidatedItemIndexPaths") ~typ:(returning (id)) -let invalidatedSupplementaryIndexPaths self = msg_send ~self ~cmd:(selector "invalidatedSupplementaryIndexPaths") ~typ:(returning (id)) -let previousIndexPathsForInteractivelyMovingItems self = msg_send ~self ~cmd:(selector "previousIndexPathsForInteractivelyMovingItems") ~typ:(returning (id)) -let setContentOffsetAdjustment x self = msg_send ~self ~cmd:(selector "setContentOffsetAdjustment:") ~typ:(CGPoint.t @-> returning (void)) x -let setContentSizeAdjustment x self = msg_send ~self ~cmd:(selector "setContentSizeAdjustment:") ~typ:(CGSize.t @-> returning (void)) x -let targetIndexPathsForInteractivelyMovingItems self = msg_send ~self ~cmd:(selector "targetIndexPathsForInteractivelyMovingItems") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UICollectionViewListCell.ml b/uikit/UICollectionViewListCell.ml index 24d69d34..f5c8549d 100644 --- a/uikit/UICollectionViewListCell.ml +++ b/uikit/UICollectionViewListCell.ml @@ -5,36 +5,40 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewListCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewlistcell?language=objc}UICollectionViewListCell} *) -let accessories self = msg_send ~self ~cmd:(selector "accessories") ~typ:(returning (id)) -let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning (bool)) -let configurationState self = msg_send ~self ~cmd:(selector "configurationState") ~typ:(returning (id)) -let defaultContentConfiguration self = msg_send ~self ~cmd:(selector "defaultContentConfiguration") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let indentationLevel self = msg_send ~self ~cmd:(selector "indentationLevel") ~typ:(returning (llong)) -let indentationWidth self = msg_send ~self ~cmd:(selector "indentationWidth") ~typ:(returning (double)) -let indentsAccessories self = msg_send ~self ~cmd:(selector "indentsAccessories") ~typ:(returning (bool)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let leadingAccessoryConfigurations self = msg_send ~self ~cmd:(selector "leadingAccessoryConfigurations") ~typ:(returning (id)) -let leadingEditingAccessoryConfigurations self = msg_send ~self ~cmd:(selector "leadingEditingAccessoryConfigurations") ~typ:(returning (id)) -let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning (void)) -let safeAreaInsetsDidChange self = msg_send ~self ~cmd:(selector "safeAreaInsetsDidChange") ~typ:(returning (void)) -let selectionStyle self = msg_send ~self ~cmd:(selector "selectionStyle") ~typ:(returning (llong)) -let separatorLayoutGuide self = msg_send ~self ~cmd:(selector "separatorLayoutGuide") ~typ:(returning (id)) -let setAccessories x self = msg_send ~self ~cmd:(selector "setAccessories:") ~typ:(id @-> returning (void)) x -let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning (void)) x -let setIndentationLevel x self = msg_send ~self ~cmd:(selector "setIndentationLevel:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setIndentationWidth x self = msg_send ~self ~cmd:(selector "setIndentationWidth:") ~typ:(double @-> returning (void)) x -let setIndentsAccessories x self = msg_send ~self ~cmd:(selector "setIndentsAccessories:") ~typ:(bool @-> returning (void)) x -let setLeadingAccessoryConfigurations x self = msg_send ~self ~cmd:(selector "setLeadingAccessoryConfigurations:") ~typ:(id @-> returning (void)) x -let setLeadingEditingAccessoryConfigurations x self = msg_send ~self ~cmd:(selector "setLeadingEditingAccessoryConfigurations:") ~typ:(id @-> returning (void)) x -let setSelectionStyle x self = msg_send ~self ~cmd:(selector "setSelectionStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTrailingAccessoryConfigurations x self = msg_send ~self ~cmd:(selector "setTrailingAccessoryConfigurations:") ~typ:(id @-> returning (void)) x -let setTrailingEditingAccessoryConfigurations x self = msg_send ~self ~cmd:(selector "setTrailingEditingAccessoryConfigurations:") ~typ:(id @-> returning (void)) x -let trailingAccessoryConfigurations self = msg_send ~self ~cmd:(selector "trailingAccessoryConfigurations") ~typ:(returning (id)) -let trailingEditingAccessoryConfigurations self = msg_send ~self ~cmd:(selector "trailingEditingAccessoryConfigurations") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UICollectionViewListCell" + +let accessories self = msg_send ~self ~cmd:(selector "accessories") ~typ:(returning id) +let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning bool) +let configurationState self = msg_send ~self ~cmd:(selector "configurationState") ~typ:(returning id) +let defaultContentConfiguration self = msg_send ~self ~cmd:(selector "defaultContentConfiguration") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let indentationLevel self = msg_send ~self ~cmd:(selector "indentationLevel") ~typ:(returning llong) +let indentationWidth self = msg_send ~self ~cmd:(selector "indentationWidth") ~typ:(returning double) +let indentsAccessories self = msg_send ~self ~cmd:(selector "indentsAccessories") ~typ:(returning bool) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let leadingAccessoryConfigurations self = msg_send ~self ~cmd:(selector "leadingAccessoryConfigurations") ~typ:(returning id) +let leadingEditingAccessoryConfigurations self = msg_send ~self ~cmd:(selector "leadingEditingAccessoryConfigurations") ~typ:(returning id) +let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning void) +let safeAreaInsetsDidChange self = msg_send ~self ~cmd:(selector "safeAreaInsetsDidChange") ~typ:(returning void) +let selectionStyle self = msg_send ~self ~cmd:(selector "selectionStyle") ~typ:(returning llong) +let separatorLayoutGuide self = msg_send ~self ~cmd:(selector "separatorLayoutGuide") ~typ:(returning id) +let setAccessories x self = msg_send ~self ~cmd:(selector "setAccessories:") ~typ:(id @-> returning void) x +let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning void) x +let setIndentationLevel x self = msg_send ~self ~cmd:(selector "setIndentationLevel:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setIndentationWidth x self = msg_send ~self ~cmd:(selector "setIndentationWidth:") ~typ:(double @-> returning void) x +let setIndentsAccessories x self = msg_send ~self ~cmd:(selector "setIndentsAccessories:") ~typ:(bool @-> returning void) x +let setLeadingAccessoryConfigurations x self = msg_send ~self ~cmd:(selector "setLeadingAccessoryConfigurations:") ~typ:(id @-> returning void) x +let setLeadingEditingAccessoryConfigurations x self = msg_send ~self ~cmd:(selector "setLeadingEditingAccessoryConfigurations:") ~typ:(id @-> returning void) x +let setSelectionStyle x self = msg_send ~self ~cmd:(selector "setSelectionStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTrailingAccessoryConfigurations x self = msg_send ~self ~cmd:(selector "setTrailingAccessoryConfigurations:") ~typ:(id @-> returning void) x +let setTrailingEditingAccessoryConfigurations x self = msg_send ~self ~cmd:(selector "setTrailingEditingAccessoryConfigurations:") ~typ:(id @-> returning void) x +let trailingAccessoryConfigurations self = msg_send ~self ~cmd:(selector "trailingAccessoryConfigurations") ~typ:(returning id) +let trailingEditingAccessoryConfigurations self = msg_send ~self ~cmd:(selector "trailingEditingAccessoryConfigurations") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UICollectionViewPlaceholder.ml b/uikit/UICollectionViewPlaceholder.ml index c3771d7c..b0147adb 100644 --- a/uikit/UICollectionViewPlaceholder.ml +++ b/uikit/UICollectionViewPlaceholder.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewPlaceholder" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewplaceholder?language=objc}UICollectionViewPlaceholder} *) -let cellReuseIdentifier self = msg_send ~self ~cmd:(selector "cellReuseIdentifier") ~typ:(returning (id)) +let self = get_class "UICollectionViewPlaceholder" + +let cellReuseIdentifier self = msg_send ~self ~cmd:(selector "cellReuseIdentifier") ~typ:(returning id) let cellUpdateHandler self = msg_send ~self ~cmd:(selector "cellUpdateHandler") ~typ:(returning (ptr void)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithInsertionIndexPath x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithInsertionIndexPath:reuseIdentifier:") ~typ:(id @-> id @-> returning (id)) x reuseIdentifier -let insertionIndexPath self = msg_send ~self ~cmd:(selector "insertionIndexPath") ~typ:(returning (id)) -let setCellReuseIdentifier x self = msg_send ~self ~cmd:(selector "setCellReuseIdentifier:") ~typ:(id @-> returning (void)) x -let setCellUpdateHandler x self = msg_send ~self ~cmd:(selector "setCellUpdateHandler:") ~typ:(ptr void @-> returning (void)) x -let setInsertionIndexPath x self = msg_send ~self ~cmd:(selector "setInsertionIndexPath:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let initWithInsertionIndexPath x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithInsertionIndexPath:reuseIdentifier:") ~typ:(id @-> id @-> returning id) x reuseIdentifier +let insertionIndexPath self = msg_send ~self ~cmd:(selector "insertionIndexPath") ~typ:(returning id) +let setCellReuseIdentifier x self = msg_send ~self ~cmd:(selector "setCellReuseIdentifier:") ~typ:(id @-> returning void) x +let setCellUpdateHandler x self = msg_send ~self ~cmd:(selector "setCellUpdateHandler:") ~typ:((ptr void) @-> returning void) x +let setInsertionIndexPath x self = msg_send ~self ~cmd:(selector "setInsertionIndexPath:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UICollectionViewReorderedItem.ml b/uikit/UICollectionViewReorderedItem.ml index e0e9fc46..f54b1cae 100644 --- a/uikit/UICollectionViewReorderedItem.ml +++ b/uikit/UICollectionViewReorderedItem.ml @@ -5,24 +5,28 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewReorderedItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewreordereditem?language=objc}UICollectionViewReorderedItem} *) -let cell self = msg_send ~self ~cmd:(selector "cell") ~typ:(returning (id)) -let commitTargetIndexPath self = msg_send ~self ~cmd:(selector "commitTargetIndexPath") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let expectedCellIndexPath self = msg_send ~self ~cmd:(selector "expectedCellIndexPath") ~typ:(returning (id)) -let initWithCell x ~indexPath self = msg_send ~self ~cmd:(selector "initWithCell:indexPath:") ~typ:(id @-> id @-> returning (id)) x indexPath -let isNOOP self = msg_send ~self ~cmd:(selector "isNOOP") ~typ:(returning (bool)) -let isUncommitted self = msg_send ~self ~cmd:(selector "isUncommitted") ~typ:(returning (bool)) -let lastCommittedIndexPath self = msg_send ~self ~cmd:(selector "lastCommittedIndexPath") ~typ:(returning (id)) -let originalIndexPath self = msg_send ~self ~cmd:(selector "originalIndexPath") ~typ:(returning (id)) -let pinned self = msg_send ~self ~cmd:(selector "pinned") ~typ:(returning (bool)) -let pinnedPreviousContentOffset self = msg_send_stret ~self ~cmd:(selector "pinnedPreviousContentOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t +let self = get_class "UICollectionViewReorderedItem" + +let cell self = msg_send ~self ~cmd:(selector "cell") ~typ:(returning id) +let commitTargetIndexPath self = msg_send ~self ~cmd:(selector "commitTargetIndexPath") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let expectedCellIndexPath self = msg_send ~self ~cmd:(selector "expectedCellIndexPath") ~typ:(returning id) +let initWithCell x ~indexPath self = msg_send ~self ~cmd:(selector "initWithCell:indexPath:") ~typ:(id @-> id @-> returning id) x indexPath +let isNOOP self = msg_send ~self ~cmd:(selector "isNOOP") ~typ:(returning bool) +let isUncommitted self = msg_send ~self ~cmd:(selector "isUncommitted") ~typ:(returning bool) +let lastCommittedIndexPath self = msg_send ~self ~cmd:(selector "lastCommittedIndexPath") ~typ:(returning id) +let originalIndexPath self = msg_send ~self ~cmd:(selector "originalIndexPath") ~typ:(returning id) +let pinned self = msg_send ~self ~cmd:(selector "pinned") ~typ:(returning bool) +let pinnedPreviousContentOffset self = msg_send ~self ~cmd:(selector "pinnedPreviousContentOffset") ~typ:(returning CGPoint.t) let pinningTest self = msg_send ~self ~cmd:(selector "pinningTest") ~typ:(returning (ptr void)) -let setOriginalIndexPath x self = msg_send ~self ~cmd:(selector "setOriginalIndexPath:") ~typ:(id @-> returning (void)) x -let setPinned x self = msg_send ~self ~cmd:(selector "setPinned:") ~typ:(bool @-> returning (void)) x -let setPinnedPreviousContentOffset x self = msg_send ~self ~cmd:(selector "setPinnedPreviousContentOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let setPinningTest x self = msg_send ~self ~cmd:(selector "setPinningTest:") ~typ:(ptr void @-> returning (void)) x -let setTargetIndexPath x self = msg_send ~self ~cmd:(selector "setTargetIndexPath:") ~typ:(id @-> returning (void)) x -let targetIndexPath self = msg_send ~self ~cmd:(selector "targetIndexPath") ~typ:(returning (id)) \ No newline at end of file +let setOriginalIndexPath x self = msg_send ~self ~cmd:(selector "setOriginalIndexPath:") ~typ:(id @-> returning void) x +let setPinned x self = msg_send ~self ~cmd:(selector "setPinned:") ~typ:(bool @-> returning void) x +let setPinnedPreviousContentOffset x self = msg_send ~self ~cmd:(selector "setPinnedPreviousContentOffset:") ~typ:(CGPoint.t @-> returning void) x +let setPinningTest x self = msg_send ~self ~cmd:(selector "setPinningTest:") ~typ:((ptr void) @-> returning void) x +let setTargetIndexPath x self = msg_send ~self ~cmd:(selector "setTargetIndexPath:") ~typ:(id @-> returning void) x +let targetIndexPath self = msg_send ~self ~cmd:(selector "targetIndexPath") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UICollectionViewSupplementaryRegistration.ml b/uikit/UICollectionViewSupplementaryRegistration.ml deleted file mode 100644 index 2799f785..00000000 --- a/uikit/UICollectionViewSupplementaryRegistration.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICollectionViewSupplementaryRegistration" - -module C = struct - let registrationWithSupplementaryClass x ~elementKind ~configurationHandler self = msg_send ~self ~cmd:(selector "registrationWithSupplementaryClass:elementKind:configurationHandler:") ~typ:(_Class @-> id @-> ptr void @-> returning (id)) x elementKind configurationHandler - let registrationWithSupplementaryNib x ~elementKind ~configurationHandler self = msg_send ~self ~cmd:(selector "registrationWithSupplementaryNib:elementKind:configurationHandler:") ~typ:(id @-> id @-> ptr void @-> returning (id)) x elementKind configurationHandler -end - -let configurationHandler self = msg_send ~self ~cmd:(selector "configurationHandler") ~typ:(returning (ptr void)) -let elementKind self = msg_send ~self ~cmd:(selector "elementKind") ~typ:(returning (id)) -let hasSupplementaryClass self = msg_send ~self ~cmd:(selector "hasSupplementaryClass") ~typ:(returning (bool)) -let hasSupplementaryNib self = msg_send ~self ~cmd:(selector "hasSupplementaryNib") ~typ:(returning (bool)) -let initWithSupplementaryClass x ~supplementaryNib ~elementKind ~configurationHandler ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithSupplementaryClass:supplementaryNib:elementKind:configurationHandler:reuseIdentifier:") ~typ:(_Class @-> id @-> id @-> ptr void @-> id @-> returning (id)) x supplementaryNib elementKind configurationHandler reuseIdentifier -let reuseIdentifier self = msg_send ~self ~cmd:(selector "reuseIdentifier") ~typ:(returning (id)) -let supplementaryClass self = msg_send ~self ~cmd:(selector "supplementaryClass") ~typ:(returning (_Class)) -let supplementaryNib self = msg_send ~self ~cmd:(selector "supplementaryNib") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UICollectionViewTableCell.ml b/uikit/UICollectionViewTableCell.ml index 80377dea..728d944c 100644 --- a/uikit/UICollectionViewTableCell.ml +++ b/uikit/UICollectionViewTableCell.ml @@ -5,84 +5,89 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewTableCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewtablecell?language=objc}UICollectionViewTableCell} *) -let accessoryType self = msg_send ~self ~cmd:(selector "accessoryType") ~typ:(returning (llong)) -let accessoryView self = msg_send ~self ~cmd:(selector "accessoryView") ~typ:(returning (id)) -let allowsMultipleSelection self = msg_send ~self ~cmd:(selector "allowsMultipleSelection") ~typ:(returning (bool)) -let allowsMultipleSelectionDuringEditing self = msg_send ~self ~cmd:(selector "allowsMultipleSelectionDuringEditing") ~typ:(returning (bool)) -let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning (void)) x -let awakeFromNib self = msg_send ~self ~cmd:(selector "awakeFromNib") ~typ:(returning (void)) -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning (id)) -let borderShadowVisible self = msg_send ~self ~cmd:(selector "borderShadowVisible") ~typ:(returning (bool)) -let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning (bool)) -let cellLayoutMarginsFollowReadableWidth self = msg_send ~self ~cmd:(selector "cellLayoutMarginsFollowReadableWidth") ~typ:(returning (bool)) -let currentLayout self = msg_send ~self ~cmd:(selector "currentLayout") ~typ:(returning (id)) -let detailTextLabel self = msg_send ~self ~cmd:(selector "detailTextLabel") ~typ:(returning (id)) -let didTransitionFromLayout x ~toLayout self = msg_send ~self ~cmd:(selector "didTransitionFromLayout:toLayout:") ~typ:(id @-> id @-> returning (void)) x toLayout -let didTransitionToState x self = msg_send ~self ~cmd:(selector "didTransitionToState:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let editingAccessoryType self = msg_send ~self ~cmd:(selector "editingAccessoryType") ~typ:(returning (llong)) -let editingAccessoryView self = msg_send ~self ~cmd:(selector "editingAccessoryView") ~typ:(returning (id)) -let editingStyle self = msg_send ~self ~cmd:(selector "editingStyle") ~typ:(returning (llong)) -let estimatedRowHeight self = msg_send ~self ~cmd:(selector "estimatedRowHeight") ~typ:(returning (double)) -let estimatedSectionFooterHeight self = msg_send ~self ~cmd:(selector "estimatedSectionFooterHeight") ~typ:(returning (double)) -let estimatedSectionHeaderHeight self = msg_send ~self ~cmd:(selector "estimatedSectionHeaderHeight") ~typ:(returning (double)) -let focusStyle self = msg_send ~self ~cmd:(selector "focusStyle") ~typ:(returning (llong)) -let imageView self = msg_send ~self ~cmd:(selector "imageView") ~typ:(returning (id)) -let indentationLevel self = msg_send ~self ~cmd:(selector "indentationLevel") ~typ:(returning (llong)) -let indentationWidth self = msg_send ~self ~cmd:(selector "indentationWidth") ~typ:(returning (double)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let insetsContentViewsToSafeArea self = msg_send ~self ~cmd:(selector "insetsContentViewsToSafeArea") ~typ:(returning (bool)) -let interactiveMoveEffectsVisible self = msg_send ~self ~cmd:(selector "interactiveMoveEffectsVisible") ~typ:(returning (bool)) -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning (bool)) -let isInTableLayout self = msg_send ~self ~cmd:(selector "isInTableLayout") ~typ:(returning (bool)) -let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let multipleSelectionBackgroundView self = msg_send ~self ~cmd:(selector "multipleSelectionBackgroundView") ~typ:(returning (id)) -let overlapsSectionHeaderViews self = msg_send ~self ~cmd:(selector "overlapsSectionHeaderViews") ~typ:(returning (bool)) -let preferredLayoutAttributesFittingAttributes x self = msg_send ~self ~cmd:(selector "preferredLayoutAttributesFittingAttributes:") ~typ:(id @-> returning (id)) x -let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning (void)) -let rowHeight self = msg_send ~self ~cmd:(selector "rowHeight") ~typ:(returning (double)) -let sectionFooterHeight self = msg_send ~self ~cmd:(selector "sectionFooterHeight") ~typ:(returning (double)) -let sectionHeaderHeight self = msg_send ~self ~cmd:(selector "sectionHeaderHeight") ~typ:(returning (double)) -let selectedBackgroundView self = msg_send ~self ~cmd:(selector "selectedBackgroundView") ~typ:(returning (id)) -let selectionFollowsFocus self = msg_send ~self ~cmd:(selector "selectionFollowsFocus") ~typ:(returning (bool)) -let selectionStyle self = msg_send ~self ~cmd:(selector "selectionStyle") ~typ:(returning (llong)) -let setAccessoryType x self = msg_send ~self ~cmd:(selector "setAccessoryType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setAccessoryView x self = msg_send ~self ~cmd:(selector "setAccessoryView:") ~typ:(id @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning (void)) x -let setBorderShadowVisible x self = msg_send ~self ~cmd:(selector "setBorderShadowVisible:") ~typ:(bool @-> returning (void)) x -let setCurrentLayout x self = msg_send ~self ~cmd:(selector "setCurrentLayout:") ~typ:(id @-> returning (void)) x -let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning (void)) x -let setEditing' x ~animated self = msg_send ~self ~cmd:(selector "setEditing:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setEditingAccessoryType x self = msg_send ~self ~cmd:(selector "setEditingAccessoryType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setEditingAccessoryView x self = msg_send ~self ~cmd:(selector "setEditingAccessoryView:") ~typ:(id @-> returning (void)) x -let setFocusStyle x self = msg_send ~self ~cmd:(selector "setFocusStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setIndentationLevel x self = msg_send ~self ~cmd:(selector "setIndentationLevel:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setIndentationWidth x self = msg_send ~self ~cmd:(selector "setIndentationWidth:") ~typ:(double @-> returning (void)) x -let setInteractiveMoveEffectsVisible x self = msg_send ~self ~cmd:(selector "setInteractiveMoveEffectsVisible:") ~typ:(bool @-> returning (void)) x -let setMultipleSelectionBackgroundView x self = msg_send ~self ~cmd:(selector "setMultipleSelectionBackgroundView:") ~typ:(id @-> returning (void)) x -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setSelectedBackgroundView x self = msg_send ~self ~cmd:(selector "setSelectedBackgroundView:") ~typ:(id @-> returning (void)) x -let setSelectionStyle x self = msg_send ~self ~cmd:(selector "setSelectionStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSeparatorInset x self = msg_send ~self ~cmd:(selector "setSeparatorInset:") ~typ:(ptr void @-> returning (void)) x -let setShouldIndentWhileEditing x self = msg_send ~self ~cmd:(selector "setShouldIndentWhileEditing:") ~typ:(bool @-> returning (void)) x -let setShowsReorderControl x self = msg_send ~self ~cmd:(selector "setShowsReorderControl:") ~typ:(bool @-> returning (void)) x -let setTableViewCell x self = msg_send ~self ~cmd:(selector "setTableViewCell:") ~typ:(id @-> returning (void)) x -let setTransitioningLayouts x self = msg_send ~self ~cmd:(selector "setTransitioningLayouts:") ~typ:(bool @-> returning (void)) x -let shouldIndentWhileEditing self = msg_send ~self ~cmd:(selector "shouldIndentWhileEditing") ~typ:(returning (bool)) -let showingDeleteConfirmation self = msg_send ~self ~cmd:(selector "showingDeleteConfirmation") ~typ:(returning (bool)) -let showsReorderControl self = msg_send ~self ~cmd:(selector "showsReorderControl") ~typ:(returning (bool)) -let swipeableView self = msg_send ~self ~cmd:(selector "swipeableView") ~typ:(returning (id)) -let tableViewCell self = msg_send ~self ~cmd:(selector "tableViewCell") ~typ:(returning (id)) -let textLabel self = msg_send ~self ~cmd:(selector "textLabel") ~typ:(returning (id)) -let transitioningLayouts self = msg_send ~self ~cmd:(selector "transitioningLayouts") ~typ:(returning (bool)) -let updateCellForTableLayout x self = msg_send ~self ~cmd:(selector "updateCellForTableLayout:") ~typ:(bool @-> returning (void)) x -let usesVariableMargins self = msg_send ~self ~cmd:(selector "usesVariableMargins") ~typ:(returning (bool)) -let willTransitionFromLayout x ~toLayout self = msg_send ~self ~cmd:(selector "willTransitionFromLayout:toLayout:") ~typ:(id @-> id @-> returning (void)) x toLayout -let willTransitionToState x self = msg_send ~self ~cmd:(selector "willTransitionToState:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) \ No newline at end of file +let self = get_class "UICollectionViewTableCell" + +let accessoryType self = msg_send ~self ~cmd:(selector "accessoryType") ~typ:(returning llong) +let accessoryView self = msg_send ~self ~cmd:(selector "accessoryView") ~typ:(returning id) +let allowsMultipleSelection self = msg_send ~self ~cmd:(selector "allowsMultipleSelection") ~typ:(returning bool) +let allowsMultipleSelectionDuringEditing self = msg_send ~self ~cmd:(selector "allowsMultipleSelectionDuringEditing") ~typ:(returning bool) +let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning void) x +let awakeFromNib self = msg_send ~self ~cmd:(selector "awakeFromNib") ~typ:(returning void) +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning id) +let borderShadowVisible self = msg_send ~self ~cmd:(selector "borderShadowVisible") ~typ:(returning bool) +let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning bool) +let cellLayoutMarginsFollowReadableWidth self = msg_send ~self ~cmd:(selector "cellLayoutMarginsFollowReadableWidth") ~typ:(returning bool) +let currentLayout self = msg_send ~self ~cmd:(selector "currentLayout") ~typ:(returning id) +let detailTextLabel self = msg_send ~self ~cmd:(selector "detailTextLabel") ~typ:(returning id) +let didTransitionFromLayout x ~toLayout self = msg_send ~self ~cmd:(selector "didTransitionFromLayout:toLayout:") ~typ:(id @-> id @-> returning void) x toLayout +let didTransitionToState x self = msg_send ~self ~cmd:(selector "didTransitionToState:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let editingAccessoryType self = msg_send ~self ~cmd:(selector "editingAccessoryType") ~typ:(returning llong) +let editingAccessoryView self = msg_send ~self ~cmd:(selector "editingAccessoryView") ~typ:(returning id) +let editingStyle self = msg_send ~self ~cmd:(selector "editingStyle") ~typ:(returning llong) +let estimatedRowHeight self = msg_send ~self ~cmd:(selector "estimatedRowHeight") ~typ:(returning double) +let estimatedSectionFooterHeight self = msg_send ~self ~cmd:(selector "estimatedSectionFooterHeight") ~typ:(returning double) +let estimatedSectionHeaderHeight self = msg_send ~self ~cmd:(selector "estimatedSectionHeaderHeight") ~typ:(returning double) +let focusStyle self = msg_send ~self ~cmd:(selector "focusStyle") ~typ:(returning llong) +let imageView self = msg_send ~self ~cmd:(selector "imageView") ~typ:(returning id) +let indentationLevel self = msg_send ~self ~cmd:(selector "indentationLevel") ~typ:(returning llong) +let indentationWidth self = msg_send ~self ~cmd:(selector "indentationWidth") ~typ:(returning double) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let insetsContentViewsToSafeArea self = msg_send ~self ~cmd:(selector "insetsContentViewsToSafeArea") ~typ:(returning bool) +let interactiveMoveEffectsVisible self = msg_send ~self ~cmd:(selector "interactiveMoveEffectsVisible") ~typ:(returning bool) +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning bool) +let isInTableLayout self = msg_send ~self ~cmd:(selector "isInTableLayout") ~typ:(returning bool) +let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let multipleSelectionBackgroundView self = msg_send ~self ~cmd:(selector "multipleSelectionBackgroundView") ~typ:(returning id) +let overlapsSectionHeaderViews self = msg_send ~self ~cmd:(selector "overlapsSectionHeaderViews") ~typ:(returning bool) +let preferredLayoutAttributesFittingAttributes x self = msg_send ~self ~cmd:(selector "preferredLayoutAttributesFittingAttributes:") ~typ:(id @-> returning id) x +let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning void) +let rowHeight self = msg_send ~self ~cmd:(selector "rowHeight") ~typ:(returning double) +let sectionFooterHeight self = msg_send ~self ~cmd:(selector "sectionFooterHeight") ~typ:(returning double) +let sectionHeaderHeight self = msg_send ~self ~cmd:(selector "sectionHeaderHeight") ~typ:(returning double) +let selectedBackgroundView self = msg_send ~self ~cmd:(selector "selectedBackgroundView") ~typ:(returning id) +let selectionFollowsFocus self = msg_send ~self ~cmd:(selector "selectionFollowsFocus") ~typ:(returning bool) +let selectionStyle self = msg_send ~self ~cmd:(selector "selectionStyle") ~typ:(returning llong) +let separatorInset self = msg_send ~self ~cmd:(selector "separatorInset") ~typ:(returning UIEdgeInsets.t) +let setAccessoryType x self = msg_send ~self ~cmd:(selector "setAccessoryType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setAccessoryView x self = msg_send ~self ~cmd:(selector "setAccessoryView:") ~typ:(id @-> returning void) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning void) x +let setBorderShadowVisible x self = msg_send ~self ~cmd:(selector "setBorderShadowVisible:") ~typ:(bool @-> returning void) x +let setCurrentLayout x self = msg_send ~self ~cmd:(selector "setCurrentLayout:") ~typ:(id @-> returning void) x +let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning void) x +let setEditing' x ~animated self = msg_send ~self ~cmd:(selector "setEditing:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setEditingAccessoryType x self = msg_send ~self ~cmd:(selector "setEditingAccessoryType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setEditingAccessoryView x self = msg_send ~self ~cmd:(selector "setEditingAccessoryView:") ~typ:(id @-> returning void) x +let setFocusStyle x self = msg_send ~self ~cmd:(selector "setFocusStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setIndentationLevel x self = msg_send ~self ~cmd:(selector "setIndentationLevel:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setIndentationWidth x self = msg_send ~self ~cmd:(selector "setIndentationWidth:") ~typ:(double @-> returning void) x +let setInteractiveMoveEffectsVisible x self = msg_send ~self ~cmd:(selector "setInteractiveMoveEffectsVisible:") ~typ:(bool @-> returning void) x +let setMultipleSelectionBackgroundView x self = msg_send ~self ~cmd:(selector "setMultipleSelectionBackgroundView:") ~typ:(id @-> returning void) x +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setSelectedBackgroundView x self = msg_send ~self ~cmd:(selector "setSelectedBackgroundView:") ~typ:(id @-> returning void) x +let setSelectionStyle x self = msg_send ~self ~cmd:(selector "setSelectionStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSeparatorInset x self = msg_send ~self ~cmd:(selector "setSeparatorInset:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setShouldIndentWhileEditing x self = msg_send ~self ~cmd:(selector "setShouldIndentWhileEditing:") ~typ:(bool @-> returning void) x +let setShowsReorderControl x self = msg_send ~self ~cmd:(selector "setShowsReorderControl:") ~typ:(bool @-> returning void) x +let setTableViewCell x self = msg_send ~self ~cmd:(selector "setTableViewCell:") ~typ:(id @-> returning void) x +let setTransitioningLayouts x self = msg_send ~self ~cmd:(selector "setTransitioningLayouts:") ~typ:(bool @-> returning void) x +let shouldIndentWhileEditing self = msg_send ~self ~cmd:(selector "shouldIndentWhileEditing") ~typ:(returning bool) +let showingDeleteConfirmation self = msg_send ~self ~cmd:(selector "showingDeleteConfirmation") ~typ:(returning bool) +let showsReorderControl self = msg_send ~self ~cmd:(selector "showsReorderControl") ~typ:(returning bool) +let swipeableView self = msg_send ~self ~cmd:(selector "swipeableView") ~typ:(returning id) +let tableViewCell self = msg_send ~self ~cmd:(selector "tableViewCell") ~typ:(returning id) +let textLabel self = msg_send ~self ~cmd:(selector "textLabel") ~typ:(returning id) +let transitioningLayouts self = msg_send ~self ~cmd:(selector "transitioningLayouts") ~typ:(returning bool) +let updateCellForTableLayout x self = msg_send ~self ~cmd:(selector "updateCellForTableLayout:") ~typ:(bool @-> returning void) x +let usesVariableMargins self = msg_send ~self ~cmd:(selector "usesVariableMargins") ~typ:(returning bool) +let willTransitionFromLayout x ~toLayout self = msg_send ~self ~cmd:(selector "willTransitionFromLayout:toLayout:") ~typ:(id @-> id @-> returning void) x toLayout +let willTransitionToState x self = msg_send ~self ~cmd:(selector "willTransitionToState:") ~typ:(ullong @-> returning void) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UICollectionViewTableHeaderFooterView.ml b/uikit/UICollectionViewTableHeaderFooterView.ml deleted file mode 100644 index d4af5f7c..00000000 --- a/uikit/UICollectionViewTableHeaderFooterView.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICollectionViewTableHeaderFooterView" - -let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning (void)) x -let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning (id)) -let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning (id)) -let detailTextLabel self = msg_send ~self ~cmd:(selector "detailTextLabel") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let floating self = msg_send ~self ~cmd:(selector "floating") ~typ:(returning (bool)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithReuseIdentifier x self = msg_send ~self ~cmd:(selector "initWithReuseIdentifier:") ~typ:(id @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let preferredLayoutAttributesFittingAttributes x self = msg_send ~self ~cmd:(selector "preferredLayoutAttributesFittingAttributes:") ~typ:(id @-> returning (id)) x -let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning (void)) -let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning (void)) x -let setFloating x self = msg_send ~self ~cmd:(selector "setFloating:") ~typ:(bool @-> returning (void)) x -let setTableViewHeaderFooterView x self = msg_send ~self ~cmd:(selector "setTableViewHeaderFooterView:") ~typ:(id @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let tableViewHeaderFooterView self = msg_send ~self ~cmd:(selector "tableViewHeaderFooterView") ~typ:(returning (id)) -let textLabel self = msg_send ~self ~cmd:(selector "textLabel") ~typ:(returning (id)) -let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UICollectionViewTableLayout.ml b/uikit/UICollectionViewTableLayout.ml index 5e5ba55c..50803995 100644 --- a/uikit/UICollectionViewTableLayout.ml +++ b/uikit/UICollectionViewTableLayout.ml @@ -5,90 +5,90 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewTableLayout" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewtablelayout?language=objc}UICollectionViewTableLayout} *) -module C = struct - let invalidationContextClass self = msg_send ~self ~cmd:(selector "invalidationContextClass") ~typ:(returning (_Class)) - let layoutAttributesClass self = msg_send ~self ~cmd:(selector "layoutAttributesClass") ~typ:(returning (_Class)) -end +let self = get_class "UICollectionViewTableLayout" -let allowsMultipleSelection self = msg_send ~self ~cmd:(selector "allowsMultipleSelection") ~typ:(returning (bool)) -let allowsMultipleSelectionDuringEditing self = msg_send ~self ~cmd:(selector "allowsMultipleSelectionDuringEditing") ~typ:(returning (bool)) -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning (bool)) -let cellLayoutMarginsFollowReadableWidth self = msg_send ~self ~cmd:(selector "cellLayoutMarginsFollowReadableWidth") ~typ:(returning (bool)) -let collectionViewContentSize self = msg_send_stret ~self ~cmd:(selector "collectionViewContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let contextualActionForDeletingRowAtIndexPath x self = msg_send ~self ~cmd:(selector "contextualActionForDeletingRowAtIndexPath:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deleteIndexPaths self = msg_send ~self ~cmd:(selector "deleteIndexPaths") ~typ:(returning (id)) -let deletedIndexPath self = msg_send ~self ~cmd:(selector "deletedIndexPath") ~typ:(returning (id)) -let estimatedRowHeight self = msg_send ~self ~cmd:(selector "estimatedRowHeight") ~typ:(returning (double)) -let estimatedSectionFooterHeight self = msg_send ~self ~cmd:(selector "estimatedSectionFooterHeight") ~typ:(returning (double)) -let estimatedSectionHeaderHeight self = msg_send ~self ~cmd:(selector "estimatedSectionHeaderHeight") ~typ:(returning (double)) -let finalLayoutAttributesForDisappearingItemAtIndexPath x self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForDisappearingItemAtIndexPath:") ~typ:(id @-> returning (id)) x -let finalizeCollectionViewUpdates self = msg_send ~self ~cmd:(selector "finalizeCollectionViewUpdates") ~typ:(returning (void)) -let gestureRecognizerViewForSwipeActionController x self = msg_send ~self ~cmd:(selector "gestureRecognizerViewForSwipeActionController:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let insertIndexPaths self = msg_send ~self ~cmd:(selector "insertIndexPaths") ~typ:(returning (id)) -let insetsContentViewsToSafeArea self = msg_send ~self ~cmd:(selector "insetsContentViewsToSafeArea") ~typ:(returning (bool)) -let invalidateLayoutWithContext x self = msg_send ~self ~cmd:(selector "invalidateLayoutWithContext:") ~typ:(id @-> returning (void)) x -let invalidationContextForBoundsChange x self = msg_send ~self ~cmd:(selector "invalidationContextForBoundsChange:") ~typ:(CGRect.t @-> returning (id)) x -let invalidationContextForInteractivelyMovingItems x ~withTargetPosition ~previousIndexPaths ~previousPosition self = msg_send ~self ~cmd:(selector "invalidationContextForInteractivelyMovingItems:withTargetPosition:previousIndexPaths:previousPosition:") ~typ:(id @-> CGPoint.t @-> id @-> CGPoint.t @-> returning (id)) x withTargetPosition previousIndexPaths previousPosition -let invalidationContextForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "invalidationContextForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning (id)) x withOriginalAttributes -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let itemContainerViewForSwipeActionController x self = msg_send ~self ~cmd:(selector "itemContainerViewForSwipeActionController:") ~typ:(id @-> returning (id)) x -let layoutAttributesForDecorationViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForDecorationViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning (id)) x -let layoutAttributesForInteractivelyMovingItemAtIndexPath x ~withTargetPosition self = msg_send ~self ~cmd:(selector "layoutAttributesForInteractivelyMovingItemAtIndexPath:withTargetPosition:") ~typ:(id @-> CGPoint.t @-> returning (id)) x withTargetPosition -let layoutAttributesForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:") ~typ:(id @-> returning (id)) x -let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let layoutDirectionForSwipeActionController x self = msg_send ~self ~cmd:(selector "layoutDirectionForSwipeActionController:") ~typ:(id @-> returning (llong)) x -let overlapsSectionHeaderViews self = msg_send ~self ~cmd:(selector "overlapsSectionHeaderViews") ~typ:(returning (bool)) -let prepareForCollectionViewUpdates x self = msg_send ~self ~cmd:(selector "prepareForCollectionViewUpdates:") ~typ:(id @-> returning (void)) x -let prepareForTransitionFromLayout x self = msg_send ~self ~cmd:(selector "prepareForTransitionFromLayout:") ~typ:(id @-> returning (void)) x -let prepareForTransitionToLayout x self = msg_send ~self ~cmd:(selector "prepareForTransitionToLayout:") ~typ:(id @-> returning (void)) x -let prepareLayout self = msg_send ~self ~cmd:(selector "prepareLayout") ~typ:(returning (void)) -let resetSwipedRowWithCompletion x self = msg_send ~self ~cmd:(selector "resetSwipedRowWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let rowData self = msg_send ~self ~cmd:(selector "rowData") ~typ:(returning (id)) -let rowHeight self = msg_send ~self ~cmd:(selector "rowHeight") ~typ:(returning (double)) -let sectionFooterHeight self = msg_send ~self ~cmd:(selector "sectionFooterHeight") ~typ:(returning (double)) -let sectionHeaderHeight self = msg_send ~self ~cmd:(selector "sectionHeaderHeight") ~typ:(returning (double)) -let separatorColor self = msg_send ~self ~cmd:(selector "separatorColor") ~typ:(returning (id)) -let separatorEffect self = msg_send ~self ~cmd:(selector "separatorEffect") ~typ:(returning (id)) -let separatorInsetIsRelativeToCellEdges self = msg_send ~self ~cmd:(selector "separatorInsetIsRelativeToCellEdges") ~typ:(returning (bool)) -let separatorStyle self = msg_send ~self ~cmd:(selector "separatorStyle") ~typ:(returning (llong)) -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setCellLayoutMarginsFollowReadableWidth x self = msg_send ~self ~cmd:(selector "setCellLayoutMarginsFollowReadableWidth:") ~typ:(bool @-> returning (void)) x -let setConstants x self = msg_send ~self ~cmd:(selector "setConstants:") ~typ:(id @-> returning (void)) x -let setDeleteIndexPaths x self = msg_send ~self ~cmd:(selector "setDeleteIndexPaths:") ~typ:(id @-> returning (void)) x -let setDeletedIndexPath x self = msg_send ~self ~cmd:(selector "setDeletedIndexPath:") ~typ:(id @-> returning (void)) x -let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning (void)) x -let setEstimatedRowHeight x self = msg_send ~self ~cmd:(selector "setEstimatedRowHeight:") ~typ:(double @-> returning (void)) x -let setEstimatedSectionFooterHeight x self = msg_send ~self ~cmd:(selector "setEstimatedSectionFooterHeight:") ~typ:(double @-> returning (void)) x -let setEstimatedSectionHeaderHeight x self = msg_send ~self ~cmd:(selector "setEstimatedSectionHeaderHeight:") ~typ:(double @-> returning (void)) x -let setInsertIndexPaths x self = msg_send ~self ~cmd:(selector "setInsertIndexPaths:") ~typ:(id @-> returning (void)) x -let setInsetsContentViewsToSafeArea x self = msg_send ~self ~cmd:(selector "setInsetsContentViewsToSafeArea:") ~typ:(bool @-> returning (void)) x -let setRowData x self = msg_send ~self ~cmd:(selector "setRowData:") ~typ:(id @-> returning (void)) x -let setRowHeight x self = msg_send ~self ~cmd:(selector "setRowHeight:") ~typ:(double @-> returning (void)) x -let setSectionFooterHeight x self = msg_send ~self ~cmd:(selector "setSectionFooterHeight:") ~typ:(double @-> returning (void)) x -let setSectionHeaderHeight x self = msg_send ~self ~cmd:(selector "setSectionHeaderHeight:") ~typ:(double @-> returning (void)) x -let setSeparatorColor x self = msg_send ~self ~cmd:(selector "setSeparatorColor:") ~typ:(id @-> returning (void)) x -let setSeparatorEffect x self = msg_send ~self ~cmd:(selector "setSeparatorEffect:") ~typ:(id @-> returning (void)) x -let setSeparatorInset x self = msg_send ~self ~cmd:(selector "setSeparatorInset:") ~typ:(ptr void @-> returning (void)) x -let setSeparatorInsetIsRelativeToCellEdges x self = msg_send ~self ~cmd:(selector "setSeparatorInsetIsRelativeToCellEdges:") ~typ:(bool @-> returning (void)) x -let setSeparatorStyle x self = msg_send ~self ~cmd:(selector "setSeparatorStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let shouldInvalidateLayoutForBoundsChange x self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForBoundsChange:") ~typ:(CGRect.t @-> returning (bool)) x -let shouldInvalidateLayoutForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning (bool)) x withOriginalAttributes -let swipeActionController x ~didEndSwipeForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:didEndSwipeForItemAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didEndSwipeForItemAtIndexPath -let swipeActionController1 x ~indexPathForTouchLocation self = msg_send ~self ~cmd:(selector "swipeActionController:indexPathForTouchLocation:") ~typ:(id @-> CGPoint.t @-> returning (id)) x indexPathForTouchLocation -let swipeActionController2 x ~leadingSwipeConfigurationForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:leadingSwipeConfigurationForItemAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x leadingSwipeConfigurationForItemAtIndexPath -let swipeActionController3 x ~mayBeginSwipeForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:mayBeginSwipeForItemAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) x mayBeginSwipeForItemAtIndexPath -let swipeActionController4 x ~trailingSwipeConfigurationForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:trailingSwipeConfigurationForItemAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x trailingSwipeConfigurationForItemAtIndexPath -let swipeActionController5 x ~viewForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:viewForItemAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x viewForItemAtIndexPath -let swipeActionController6 x ~willBeginSwipeForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:willBeginSwipeForItemAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x willBeginSwipeForItemAtIndexPath -let swipeActionController7 x ~willPerformAction ~atIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:willPerformAction:atIndexPath:") ~typ:(id @-> id @-> id @-> returning (void)) x willPerformAction atIndexPath -let swipeActionController8 x ~didCompleteAction ~cancelled ~atIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:didCompleteAction:cancelled:atIndexPath:") ~typ:(id @-> id @-> bool @-> id @-> returning (void)) x didCompleteAction cancelled atIndexPath -let swipeActionController9 x ~animateView ~actionsView ~forDestructiveAction ~atIndexPath ~withSwipeInfo ~completion self = msg_send ~self ~cmd:(selector "swipeActionController:animateView:actionsView:forDestructiveAction:atIndexPath:withSwipeInfo:completion:") ~typ:(id @-> id @-> id @-> id @-> id @-> ptr void @-> ptr void @-> returning (void)) x animateView actionsView forDestructiveAction atIndexPath withSwipeInfo completion -let swipeActionForDeletingRowAtIndexPath x self = msg_send ~self ~cmd:(selector "swipeActionForDeletingRowAtIndexPath:") ~typ:(id @-> returning (id)) x -let usesVariableMargins self = msg_send ~self ~cmd:(selector "usesVariableMargins") ~typ:(returning (bool)) \ No newline at end of file +let allowsMultipleSelection self = msg_send ~self ~cmd:(selector "allowsMultipleSelection") ~typ:(returning bool) +let allowsMultipleSelectionDuringEditing self = msg_send ~self ~cmd:(selector "allowsMultipleSelectionDuringEditing") ~typ:(returning bool) +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning bool) +let cellLayoutMarginsFollowReadableWidth self = msg_send ~self ~cmd:(selector "cellLayoutMarginsFollowReadableWidth") ~typ:(returning bool) +let collectionViewContentSize self = msg_send ~self ~cmd:(selector "collectionViewContentSize") ~typ:(returning CGSize.t) +let contextualActionForDeletingRowAtIndexPath x self = msg_send ~self ~cmd:(selector "contextualActionForDeletingRowAtIndexPath:") ~typ:(id @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let deleteIndexPaths self = msg_send ~self ~cmd:(selector "deleteIndexPaths") ~typ:(returning id) +let deletedIndexPath self = msg_send ~self ~cmd:(selector "deletedIndexPath") ~typ:(returning id) +let estimatedRowHeight self = msg_send ~self ~cmd:(selector "estimatedRowHeight") ~typ:(returning double) +let estimatedSectionFooterHeight self = msg_send ~self ~cmd:(selector "estimatedSectionFooterHeight") ~typ:(returning double) +let estimatedSectionHeaderHeight self = msg_send ~self ~cmd:(selector "estimatedSectionHeaderHeight") ~typ:(returning double) +let finalLayoutAttributesForDisappearingItemAtIndexPath x self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForDisappearingItemAtIndexPath:") ~typ:(id @-> returning id) x +let finalizeCollectionViewUpdates self = msg_send ~self ~cmd:(selector "finalizeCollectionViewUpdates") ~typ:(returning void) +let gestureRecognizerViewForSwipeActionController x self = msg_send ~self ~cmd:(selector "gestureRecognizerViewForSwipeActionController:") ~typ:(id @-> returning id) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let insertIndexPaths self = msg_send ~self ~cmd:(selector "insertIndexPaths") ~typ:(returning id) +let insetsContentViewsToSafeArea self = msg_send ~self ~cmd:(selector "insetsContentViewsToSafeArea") ~typ:(returning bool) +let invalidateLayoutWithContext x self = msg_send ~self ~cmd:(selector "invalidateLayoutWithContext:") ~typ:(id @-> returning void) x +let invalidationContextForBoundsChange x self = msg_send ~self ~cmd:(selector "invalidationContextForBoundsChange:") ~typ:(CGRect.t @-> returning id) x +let invalidationContextForInteractivelyMovingItems x ~withTargetPosition ~previousIndexPaths ~previousPosition self = msg_send ~self ~cmd:(selector "invalidationContextForInteractivelyMovingItems:withTargetPosition:previousIndexPaths:previousPosition:") ~typ:(id @-> CGPoint.t @-> id @-> CGPoint.t @-> returning id) x withTargetPosition previousIndexPaths previousPosition +let invalidationContextForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "invalidationContextForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning id) x withOriginalAttributes +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let itemContainerViewForSwipeActionController x self = msg_send ~self ~cmd:(selector "itemContainerViewForSwipeActionController:") ~typ:(id @-> returning id) x +let layoutAttributesForDecorationViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForDecorationViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning id) x +let layoutAttributesForInteractivelyMovingItemAtIndexPath x ~withTargetPosition self = msg_send ~self ~cmd:(selector "layoutAttributesForInteractivelyMovingItemAtIndexPath:withTargetPosition:") ~typ:(id @-> CGPoint.t @-> returning id) x withTargetPosition +let layoutAttributesForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:") ~typ:(id @-> returning id) x +let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let layoutDirectionForSwipeActionController x self = msg_send ~self ~cmd:(selector "layoutDirectionForSwipeActionController:") ~typ:(id @-> returning llong) x +let overlapsSectionHeaderViews self = msg_send ~self ~cmd:(selector "overlapsSectionHeaderViews") ~typ:(returning bool) +let prepareForCollectionViewUpdates x self = msg_send ~self ~cmd:(selector "prepareForCollectionViewUpdates:") ~typ:(id @-> returning void) x +let prepareForTransitionFromLayout x self = msg_send ~self ~cmd:(selector "prepareForTransitionFromLayout:") ~typ:(id @-> returning void) x +let prepareForTransitionToLayout x self = msg_send ~self ~cmd:(selector "prepareForTransitionToLayout:") ~typ:(id @-> returning void) x +let prepareLayout self = msg_send ~self ~cmd:(selector "prepareLayout") ~typ:(returning void) +let resetSwipedRowWithCompletion x self = msg_send ~self ~cmd:(selector "resetSwipedRowWithCompletion:") ~typ:((ptr void) @-> returning void) x +let rowData self = msg_send ~self ~cmd:(selector "rowData") ~typ:(returning id) +let rowHeight self = msg_send ~self ~cmd:(selector "rowHeight") ~typ:(returning double) +let sectionFooterHeight self = msg_send ~self ~cmd:(selector "sectionFooterHeight") ~typ:(returning double) +let sectionHeaderHeight self = msg_send ~self ~cmd:(selector "sectionHeaderHeight") ~typ:(returning double) +let separatorColor self = msg_send ~self ~cmd:(selector "separatorColor") ~typ:(returning id) +let separatorEffect self = msg_send ~self ~cmd:(selector "separatorEffect") ~typ:(returning id) +let separatorInset self = msg_send ~self ~cmd:(selector "separatorInset") ~typ:(returning UIEdgeInsets.t) +let separatorInsetIsRelativeToCellEdges self = msg_send ~self ~cmd:(selector "separatorInsetIsRelativeToCellEdges") ~typ:(returning bool) +let separatorStyle self = msg_send ~self ~cmd:(selector "separatorStyle") ~typ:(returning llong) +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setCellLayoutMarginsFollowReadableWidth x self = msg_send ~self ~cmd:(selector "setCellLayoutMarginsFollowReadableWidth:") ~typ:(bool @-> returning void) x +let setConstants x self = msg_send ~self ~cmd:(selector "setConstants:") ~typ:(id @-> returning void) x +let setDeleteIndexPaths x self = msg_send ~self ~cmd:(selector "setDeleteIndexPaths:") ~typ:(id @-> returning void) x +let setDeletedIndexPath x self = msg_send ~self ~cmd:(selector "setDeletedIndexPath:") ~typ:(id @-> returning void) x +let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning void) x +let setEstimatedRowHeight x self = msg_send ~self ~cmd:(selector "setEstimatedRowHeight:") ~typ:(double @-> returning void) x +let setEstimatedSectionFooterHeight x self = msg_send ~self ~cmd:(selector "setEstimatedSectionFooterHeight:") ~typ:(double @-> returning void) x +let setEstimatedSectionHeaderHeight x self = msg_send ~self ~cmd:(selector "setEstimatedSectionHeaderHeight:") ~typ:(double @-> returning void) x +let setInsertIndexPaths x self = msg_send ~self ~cmd:(selector "setInsertIndexPaths:") ~typ:(id @-> returning void) x +let setInsetsContentViewsToSafeArea x self = msg_send ~self ~cmd:(selector "setInsetsContentViewsToSafeArea:") ~typ:(bool @-> returning void) x +let setRowData x self = msg_send ~self ~cmd:(selector "setRowData:") ~typ:(id @-> returning void) x +let setRowHeight x self = msg_send ~self ~cmd:(selector "setRowHeight:") ~typ:(double @-> returning void) x +let setSectionFooterHeight x self = msg_send ~self ~cmd:(selector "setSectionFooterHeight:") ~typ:(double @-> returning void) x +let setSectionHeaderHeight x self = msg_send ~self ~cmd:(selector "setSectionHeaderHeight:") ~typ:(double @-> returning void) x +let setSeparatorColor x self = msg_send ~self ~cmd:(selector "setSeparatorColor:") ~typ:(id @-> returning void) x +let setSeparatorEffect x self = msg_send ~self ~cmd:(selector "setSeparatorEffect:") ~typ:(id @-> returning void) x +let setSeparatorInset x self = msg_send ~self ~cmd:(selector "setSeparatorInset:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setSeparatorInsetIsRelativeToCellEdges x self = msg_send ~self ~cmd:(selector "setSeparatorInsetIsRelativeToCellEdges:") ~typ:(bool @-> returning void) x +let setSeparatorStyle x self = msg_send ~self ~cmd:(selector "setSeparatorStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let shouldInvalidateLayoutForBoundsChange x self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForBoundsChange:") ~typ:(CGRect.t @-> returning bool) x +let shouldInvalidateLayoutForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning bool) x withOriginalAttributes +let swipeActionController x ~didEndSwipeForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:didEndSwipeForItemAtIndexPath:") ~typ:(id @-> id @-> returning void) x didEndSwipeForItemAtIndexPath +let swipeActionController1 x ~indexPathForTouchLocation self = msg_send ~self ~cmd:(selector "swipeActionController:indexPathForTouchLocation:") ~typ:(id @-> CGPoint.t @-> returning id) x indexPathForTouchLocation +let swipeActionController2 x ~leadingSwipeConfigurationForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:leadingSwipeConfigurationForItemAtIndexPath:") ~typ:(id @-> id @-> returning id) x leadingSwipeConfigurationForItemAtIndexPath +let swipeActionController3 x ~mayBeginSwipeForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:mayBeginSwipeForItemAtIndexPath:") ~typ:(id @-> id @-> returning bool) x mayBeginSwipeForItemAtIndexPath +let swipeActionController4 x ~trailingSwipeConfigurationForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:trailingSwipeConfigurationForItemAtIndexPath:") ~typ:(id @-> id @-> returning id) x trailingSwipeConfigurationForItemAtIndexPath +let swipeActionController5 x ~viewForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:viewForItemAtIndexPath:") ~typ:(id @-> id @-> returning id) x viewForItemAtIndexPath +let swipeActionController6 x ~willBeginSwipeForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:willBeginSwipeForItemAtIndexPath:") ~typ:(id @-> id @-> returning void) x willBeginSwipeForItemAtIndexPath +let swipeActionController7 x ~willPerformAction ~atIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:willPerformAction:atIndexPath:") ~typ:(id @-> id @-> id @-> returning void) x willPerformAction atIndexPath +let swipeActionController8 x ~didCompleteAction ~cancelled ~atIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:didCompleteAction:cancelled:atIndexPath:") ~typ:(id @-> id @-> bool @-> id @-> returning void) x didCompleteAction cancelled atIndexPath +let swipeActionController9 x ~animateView ~actionsView ~forDestructiveAction ~atIndexPath ~withSwipeInfo ~completion self = msg_send ~self ~cmd:(selector "swipeActionController:animateView:actionsView:forDestructiveAction:atIndexPath:withSwipeInfo:completion:") ~typ:(id @-> id @-> id @-> id @-> id @-> void @-> (ptr void) @-> returning void) x animateView actionsView forDestructiveAction atIndexPath withSwipeInfo completion +let swipeActionForDeletingRowAtIndexPath x self = msg_send ~self ~cmd:(selector "swipeActionForDeletingRowAtIndexPath:") ~typ:(id @-> returning id) x +let usesVariableMargins self = msg_send ~self ~cmd:(selector "usesVariableMargins") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UICollectionViewTableLayoutAttributes.ml b/uikit/UICollectionViewTableLayoutAttributes.ml index dfffe01e..e70ce612 100644 --- a/uikit/UICollectionViewTableLayoutAttributes.ml +++ b/uikit/UICollectionViewTableLayoutAttributes.ml @@ -5,62 +5,64 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewTableLayoutAttributes" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewtablelayoutattributes?language=objc}UICollectionViewTableLayoutAttributes} *) -module C = struct - let applyValuesFromAttributes x ~toAttributes ~valueOptions self = msg_send ~self ~cmd:(selector "applyValuesFromAttributes:toAttributes:valueOptions:") ~typ:(id @-> id @-> llong @-> returning (void)) x toAttributes (LLong.of_int valueOptions) - let automaticValueOptionsForRepresentedElementCategory x self = msg_send ~self ~cmd:(selector "automaticValueOptionsForRepresentedElementCategory:") ~typ:(ullong @-> returning (llong)) (ULLong.of_int x) -end +let self = get_class "UICollectionViewTableLayoutAttributes" -let accessoryType self = msg_send ~self ~cmd:(selector "accessoryType") ~typ:(returning (llong)) -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let defaultLeadingCellMarginWidth self = msg_send ~self ~cmd:(selector "defaultLeadingCellMarginWidth") ~typ:(returning (double)) -let defaultTrailingCellMarginWidth self = msg_send ~self ~cmd:(selector "defaultTrailingCellMarginWidth") ~typ:(returning (double)) -let drawsSeparatorAtBottomOfSection self = msg_send ~self ~cmd:(selector "drawsSeparatorAtBottomOfSection") ~typ:(returning (bool)) -let drawsSeparatorAtTopOfSection self = msg_send ~self ~cmd:(selector "drawsSeparatorAtTopOfSection") ~typ:(returning (bool)) -let editingStyle self = msg_send ~self ~cmd:(selector "editingStyle") ~typ:(returning (llong)) -let floating self = msg_send ~self ~cmd:(selector "floating") ~typ:(returning (bool)) -let indentationLevel self = msg_send ~self ~cmd:(selector "indentationLevel") ~typ:(returning (llong)) -let indexBarExtentFromEdge self = msg_send ~self ~cmd:(selector "indexBarExtentFromEdge") ~typ:(returning (double)) -let insetsContentViewsToSafeArea self = msg_send ~self ~cmd:(selector "insetsContentViewsToSafeArea") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isHeader self = msg_send ~self ~cmd:(selector "isHeader") ~typ:(returning (bool)) -let layoutMarginsFollowReadableWidth self = msg_send ~self ~cmd:(selector "layoutMarginsFollowReadableWidth") ~typ:(returning (bool)) -let maxTitleWidth self = msg_send ~self ~cmd:(selector "maxTitleWidth") ~typ:(returning (double)) -let preferredAttributesCached self = msg_send ~self ~cmd:(selector "preferredAttributesCached") ~typ:(returning (bool)) -let sectionLocation self = msg_send ~self ~cmd:(selector "sectionLocation") ~typ:(returning (int)) -let separatorColor self = msg_send ~self ~cmd:(selector "separatorColor") ~typ:(returning (id)) -let separatorEffect self = msg_send ~self ~cmd:(selector "separatorEffect") ~typ:(returning (id)) -let separatorInsetIsRelativeToCellEdges self = msg_send ~self ~cmd:(selector "separatorInsetIsRelativeToCellEdges") ~typ:(returning (bool)) -let separatorStyle self = msg_send ~self ~cmd:(selector "separatorStyle") ~typ:(returning (llong)) -let setAccessoryType x self = msg_send ~self ~cmd:(selector "setAccessoryType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBackgroundInset x self = msg_send ~self ~cmd:(selector "setBackgroundInset:") ~typ:(ptr void @-> returning (void)) x -let setDefaultLeadingCellMarginWidth x self = msg_send ~self ~cmd:(selector "setDefaultLeadingCellMarginWidth:") ~typ:(double @-> returning (void)) x -let setDefaultTrailingCellMarginWidth x self = msg_send ~self ~cmd:(selector "setDefaultTrailingCellMarginWidth:") ~typ:(double @-> returning (void)) x -let setDrawsSeparatorAtBottomOfSection x self = msg_send ~self ~cmd:(selector "setDrawsSeparatorAtBottomOfSection:") ~typ:(bool @-> returning (void)) x -let setDrawsSeparatorAtTopOfSection x self = msg_send ~self ~cmd:(selector "setDrawsSeparatorAtTopOfSection:") ~typ:(bool @-> returning (void)) x -let setEditingStyle x self = msg_send ~self ~cmd:(selector "setEditingStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setFloating x self = msg_send ~self ~cmd:(selector "setFloating:") ~typ:(bool @-> returning (void)) x -let setIndentationLevel x self = msg_send ~self ~cmd:(selector "setIndentationLevel:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setIndexBarExtentFromEdge x self = msg_send ~self ~cmd:(selector "setIndexBarExtentFromEdge:") ~typ:(double @-> returning (void)) x -let setInsetsContentViewsToSafeArea x self = msg_send ~self ~cmd:(selector "setInsetsContentViewsToSafeArea:") ~typ:(bool @-> returning (void)) x -let setIsHeader x self = msg_send ~self ~cmd:(selector "setIsHeader:") ~typ:(bool @-> returning (void)) x -let setLayoutMarginsFollowReadableWidth x self = msg_send ~self ~cmd:(selector "setLayoutMarginsFollowReadableWidth:") ~typ:(bool @-> returning (void)) x -let setMargins x self = msg_send ~self ~cmd:(selector "setMargins:") ~typ:(ptr void @-> returning (void)) x -let setMaxTitleWidth x self = msg_send ~self ~cmd:(selector "setMaxTitleWidth:") ~typ:(double @-> returning (void)) x -let setPreferredAttributesCached x self = msg_send ~self ~cmd:(selector "setPreferredAttributesCached:") ~typ:(bool @-> returning (void)) x -let setSectionLocation x self = msg_send ~self ~cmd:(selector "setSectionLocation:") ~typ:(int @-> returning (void)) x -let setSeparatorColor x self = msg_send ~self ~cmd:(selector "setSeparatorColor:") ~typ:(id @-> returning (void)) x -let setSeparatorEffect x self = msg_send ~self ~cmd:(selector "setSeparatorEffect:") ~typ:(id @-> returning (void)) x -let setSeparatorInset x self = msg_send ~self ~cmd:(selector "setSeparatorInset:") ~typ:(ptr void @-> returning (void)) x -let setSeparatorInsetIsRelativeToCellEdges x self = msg_send ~self ~cmd:(selector "setSeparatorInsetIsRelativeToCellEdges:") ~typ:(bool @-> returning (void)) x -let setSeparatorStyle x self = msg_send ~self ~cmd:(selector "setSeparatorStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShouldIndentWhileEditing x self = msg_send ~self ~cmd:(selector "setShouldIndentWhileEditing:") ~typ:(bool @-> returning (void)) x -let setShowsReorderControl x self = msg_send ~self ~cmd:(selector "setShowsReorderControl:") ~typ:(bool @-> returning (void)) x -let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let shouldIndentWhileEditing self = msg_send ~self ~cmd:(selector "shouldIndentWhileEditing") ~typ:(returning (bool)) -let showsReorderControl self = msg_send ~self ~cmd:(selector "showsReorderControl") ~typ:(returning (bool)) -let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning (llong)) \ No newline at end of file +let accessoryType self = msg_send ~self ~cmd:(selector "accessoryType") ~typ:(returning llong) +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let backgroundInset self = msg_send ~self ~cmd:(selector "backgroundInset") ~typ:(returning UIEdgeInsets.t) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let defaultLeadingCellMarginWidth self = msg_send ~self ~cmd:(selector "defaultLeadingCellMarginWidth") ~typ:(returning double) +let defaultTrailingCellMarginWidth self = msg_send ~self ~cmd:(selector "defaultTrailingCellMarginWidth") ~typ:(returning double) +let drawsSeparatorAtBottomOfSection self = msg_send ~self ~cmd:(selector "drawsSeparatorAtBottomOfSection") ~typ:(returning bool) +let drawsSeparatorAtTopOfSection self = msg_send ~self ~cmd:(selector "drawsSeparatorAtTopOfSection") ~typ:(returning bool) +let editingStyle self = msg_send ~self ~cmd:(selector "editingStyle") ~typ:(returning llong) +let floating self = msg_send ~self ~cmd:(selector "floating") ~typ:(returning bool) +let indentationLevel self = msg_send ~self ~cmd:(selector "indentationLevel") ~typ:(returning llong) +let indexBarExtentFromEdge self = msg_send ~self ~cmd:(selector "indexBarExtentFromEdge") ~typ:(returning double) +let insetsContentViewsToSafeArea self = msg_send ~self ~cmd:(selector "insetsContentViewsToSafeArea") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isHeader self = msg_send ~self ~cmd:(selector "isHeader") ~typ:(returning bool) +let layoutMarginsFollowReadableWidth self = msg_send ~self ~cmd:(selector "layoutMarginsFollowReadableWidth") ~typ:(returning bool) +let margins self = msg_send ~self ~cmd:(selector "margins") ~typ:(returning UIEdgeInsets.t) +let maxTitleWidth self = msg_send ~self ~cmd:(selector "maxTitleWidth") ~typ:(returning double) +let preferredAttributesCached self = msg_send ~self ~cmd:(selector "preferredAttributesCached") ~typ:(returning bool) +let sectionLocation self = msg_send ~self ~cmd:(selector "sectionLocation") ~typ:(returning int) +let separatorColor self = msg_send ~self ~cmd:(selector "separatorColor") ~typ:(returning id) +let separatorEffect self = msg_send ~self ~cmd:(selector "separatorEffect") ~typ:(returning id) +let separatorInset self = msg_send ~self ~cmd:(selector "separatorInset") ~typ:(returning UIEdgeInsets.t) +let separatorInsetIsRelativeToCellEdges self = msg_send ~self ~cmd:(selector "separatorInsetIsRelativeToCellEdges") ~typ:(returning bool) +let separatorStyle self = msg_send ~self ~cmd:(selector "separatorStyle") ~typ:(returning llong) +let setAccessoryType x self = msg_send ~self ~cmd:(selector "setAccessoryType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBackgroundInset x self = msg_send ~self ~cmd:(selector "setBackgroundInset:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setDefaultLeadingCellMarginWidth x self = msg_send ~self ~cmd:(selector "setDefaultLeadingCellMarginWidth:") ~typ:(double @-> returning void) x +let setDefaultTrailingCellMarginWidth x self = msg_send ~self ~cmd:(selector "setDefaultTrailingCellMarginWidth:") ~typ:(double @-> returning void) x +let setDrawsSeparatorAtBottomOfSection x self = msg_send ~self ~cmd:(selector "setDrawsSeparatorAtBottomOfSection:") ~typ:(bool @-> returning void) x +let setDrawsSeparatorAtTopOfSection x self = msg_send ~self ~cmd:(selector "setDrawsSeparatorAtTopOfSection:") ~typ:(bool @-> returning void) x +let setEditingStyle x self = msg_send ~self ~cmd:(selector "setEditingStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setFloating x self = msg_send ~self ~cmd:(selector "setFloating:") ~typ:(bool @-> returning void) x +let setIndentationLevel x self = msg_send ~self ~cmd:(selector "setIndentationLevel:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setIndexBarExtentFromEdge x self = msg_send ~self ~cmd:(selector "setIndexBarExtentFromEdge:") ~typ:(double @-> returning void) x +let setInsetsContentViewsToSafeArea x self = msg_send ~self ~cmd:(selector "setInsetsContentViewsToSafeArea:") ~typ:(bool @-> returning void) x +let setIsHeader x self = msg_send ~self ~cmd:(selector "setIsHeader:") ~typ:(bool @-> returning void) x +let setLayoutMarginsFollowReadableWidth x self = msg_send ~self ~cmd:(selector "setLayoutMarginsFollowReadableWidth:") ~typ:(bool @-> returning void) x +let setMargins x self = msg_send ~self ~cmd:(selector "setMargins:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setMaxTitleWidth x self = msg_send ~self ~cmd:(selector "setMaxTitleWidth:") ~typ:(double @-> returning void) x +let setPreferredAttributesCached x self = msg_send ~self ~cmd:(selector "setPreferredAttributesCached:") ~typ:(bool @-> returning void) x +let setSectionLocation x self = msg_send ~self ~cmd:(selector "setSectionLocation:") ~typ:(int @-> returning void) x +let setSeparatorColor x self = msg_send ~self ~cmd:(selector "setSeparatorColor:") ~typ:(id @-> returning void) x +let setSeparatorEffect x self = msg_send ~self ~cmd:(selector "setSeparatorEffect:") ~typ:(id @-> returning void) x +let setSeparatorInset x self = msg_send ~self ~cmd:(selector "setSeparatorInset:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setSeparatorInsetIsRelativeToCellEdges x self = msg_send ~self ~cmd:(selector "setSeparatorInsetIsRelativeToCellEdges:") ~typ:(bool @-> returning void) x +let setSeparatorStyle x self = msg_send ~self ~cmd:(selector "setSeparatorStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setShouldIndentWhileEditing x self = msg_send ~self ~cmd:(selector "setShouldIndentWhileEditing:") ~typ:(bool @-> returning void) x +let setShowsReorderControl x self = msg_send ~self ~cmd:(selector "setShowsReorderControl:") ~typ:(bool @-> returning void) x +let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let shouldIndentWhileEditing self = msg_send ~self ~cmd:(selector "shouldIndentWhileEditing") ~typ:(returning bool) +let showsReorderControl self = msg_send ~self ~cmd:(selector "showsReorderControl") ~typ:(returning bool) +let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UICollectionViewTableLayoutAttributesClass.ml b/uikit/UICollectionViewTableLayoutAttributesClass.ml new file mode 100644 index 00000000..315cdceb --- /dev/null +++ b/uikit/UICollectionViewTableLayoutAttributesClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewtablelayoutattributes?language=objc}UICollectionViewTableLayoutAttributes} *) + +let applyValuesFromAttributes x ~toAttributes ~valueOptions self = msg_send ~self ~cmd:(selector "applyValuesFromAttributes:toAttributes:valueOptions:") ~typ:(id @-> id @-> llong @-> returning void) x toAttributes (LLong.of_int valueOptions) +let automaticValueOptionsForRepresentedElementCategory x self = msg_send ~self ~cmd:(selector "automaticValueOptionsForRepresentedElementCategory:") ~typ:(ullong @-> returning llong) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UICollectionViewTableLayoutClass.ml b/uikit/UICollectionViewTableLayoutClass.ml new file mode 100644 index 00000000..35d4fca8 --- /dev/null +++ b/uikit/UICollectionViewTableLayoutClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewtablelayout?language=objc}UICollectionViewTableLayout} *) + +let invalidationContextClass self = msg_send ~self ~cmd:(selector "invalidationContextClass") ~typ:(returning _Class) +let layoutAttributesClass self = msg_send ~self ~cmd:(selector "layoutAttributesClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit/UICollectionViewTableLayoutInvalidationContext.ml b/uikit/UICollectionViewTableLayoutInvalidationContext.ml deleted file mode 100644 index ddccd66f..00000000 --- a/uikit/UICollectionViewTableLayoutInvalidationContext.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICollectionViewTableLayoutInvalidationContext" - -let invalidateTableLayoutDelegateMetrics self = msg_send ~self ~cmd:(selector "invalidateTableLayoutDelegateMetrics") ~typ:(returning (bool)) -let setInvalidateTableLayoutDelegateMetrics x self = msg_send ~self ~cmd:(selector "setInvalidateTableLayoutDelegateMetrics:") ~typ:(bool @-> returning (void)) x -let setSkipSectionInvalidation x self = msg_send ~self ~cmd:(selector "setSkipSectionInvalidation:") ~typ:(bool @-> returning (void)) x -let skipSectionInvalidation self = msg_send ~self ~cmd:(selector "skipSectionInvalidation") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UICollectionViewTableSeparatorView.ml b/uikit/UICollectionViewTableSeparatorView.ml index 2b45c9d0..ba60551d 100644 --- a/uikit/UICollectionViewTableSeparatorView.ml +++ b/uikit/UICollectionViewTableSeparatorView.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewTableSeparatorView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewtableseparatorview?language=objc}UICollectionViewTableSeparatorView} *) -let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning (void)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let separatorView self = msg_send ~self ~cmd:(selector "separatorView") ~typ:(returning (id)) -let setSeparatorView x self = msg_send ~self ~cmd:(selector "setSeparatorView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UICollectionViewTableSeparatorView" + +let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning void) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let separatorView self = msg_send ~self ~cmd:(selector "separatorView") ~typ:(returning id) +let setSeparatorView x self = msg_send ~self ~cmd:(selector "setSeparatorView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UICollectionViewTransitionLayout.ml b/uikit/UICollectionViewTransitionLayout.ml index 7b6be5a5..e8b8500f 100644 --- a/uikit/UICollectionViewTransitionLayout.ml +++ b/uikit/UICollectionViewTransitionLayout.ml @@ -5,24 +5,28 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewTransitionLayout" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewtransitionlayout?language=objc}UICollectionViewTransitionLayout} *) -let collectionViewContentSize self = msg_send_stret ~self ~cmd:(selector "collectionViewContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let currentLayout self = msg_send ~self ~cmd:(selector "currentLayout") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithCurrentLayout x ~nextLayout self = msg_send ~self ~cmd:(selector "initWithCurrentLayout:nextLayout:") ~typ:(id @-> id @-> returning (id)) x nextLayout -let interpolatedLayoutAttributesFromLayoutAttributes x ~toLayoutAttributes ~progress self = msg_send ~self ~cmd:(selector "interpolatedLayoutAttributesFromLayoutAttributes:toLayoutAttributes:progress:") ~typ:(id @-> id @-> double @-> returning (id)) x toLayoutAttributes progress -let invalidateLayout self = msg_send ~self ~cmd:(selector "invalidateLayout") ~typ:(returning (void)) -let layoutAttributesForDecorationViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForDecorationViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning (id)) x -let layoutAttributesForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:") ~typ:(id @-> returning (id)) x -let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let nextLayout self = msg_send ~self ~cmd:(selector "nextLayout") ~typ:(returning (id)) -let prepareLayout self = msg_send ~self ~cmd:(selector "prepareLayout") ~typ:(returning (void)) -let setTransitionProgress x self = msg_send ~self ~cmd:(selector "setTransitionProgress:") ~typ:(double @-> returning (void)) x -let targetContentOffsetForProposedContentOffset x self = msg_send_stret ~self ~cmd:(selector "targetContentOffsetForProposedContentOffset:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let transitionProgress self = msg_send ~self ~cmd:(selector "transitionProgress") ~typ:(returning (double)) -let updateValue x ~forAnimatedKey self = msg_send ~self ~cmd:(selector "updateValue:forAnimatedKey:") ~typ:(double @-> id @-> returning (void)) x forAnimatedKey -let valueForAnimatedKey x self = msg_send ~self ~cmd:(selector "valueForAnimatedKey:") ~typ:(id @-> returning (double)) x \ No newline at end of file +let self = get_class "UICollectionViewTransitionLayout" + +let collectionViewContentSize self = msg_send ~self ~cmd:(selector "collectionViewContentSize") ~typ:(returning CGSize.t) +let currentLayout self = msg_send ~self ~cmd:(selector "currentLayout") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithCurrentLayout x ~nextLayout self = msg_send ~self ~cmd:(selector "initWithCurrentLayout:nextLayout:") ~typ:(id @-> id @-> returning id) x nextLayout +let interpolatedLayoutAttributesFromLayoutAttributes x ~toLayoutAttributes ~progress self = msg_send ~self ~cmd:(selector "interpolatedLayoutAttributesFromLayoutAttributes:toLayoutAttributes:progress:") ~typ:(id @-> id @-> double @-> returning id) x toLayoutAttributes progress +let invalidateLayout self = msg_send ~self ~cmd:(selector "invalidateLayout") ~typ:(returning void) +let layoutAttributesForDecorationViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForDecorationViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning id) x +let layoutAttributesForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:") ~typ:(id @-> returning id) x +let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let nextLayout self = msg_send ~self ~cmd:(selector "nextLayout") ~typ:(returning id) +let prepareLayout self = msg_send ~self ~cmd:(selector "prepareLayout") ~typ:(returning void) +let setTransitionProgress x self = msg_send ~self ~cmd:(selector "setTransitionProgress:") ~typ:(double @-> returning void) x +let targetContentOffsetForProposedContentOffset x self = msg_send ~self ~cmd:(selector "targetContentOffsetForProposedContentOffset:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let transitionProgress self = msg_send ~self ~cmd:(selector "transitionProgress") ~typ:(returning double) +let updateValue x ~forAnimatedKey self = msg_send ~self ~cmd:(selector "updateValue:forAnimatedKey:") ~typ:(double @-> id @-> returning void) x forAnimatedKey +let valueForAnimatedKey x self = msg_send ~self ~cmd:(selector "valueForAnimatedKey:") ~typ:(id @-> returning double) x \ No newline at end of file diff --git a/uikit/UICollectionViewUpdate.ml b/uikit/UICollectionViewUpdate.ml index 79f6c2ec..d8dfd813 100644 --- a/uikit/UICollectionViewUpdate.ml +++ b/uikit/UICollectionViewUpdate.ml @@ -5,29 +5,33 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewUpdate" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewupdate?language=objc}UICollectionViewUpdate} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let finalGlobalIndexForInitialGlobalIndex x self = msg_send ~self ~cmd:(selector "finalGlobalIndexForInitialGlobalIndex:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let finalIndexPathForInitialIndexPath x self = msg_send ~self ~cmd:(selector "finalIndexPathForInitialIndexPath:") ~typ:(id @-> returning (id)) x -let finalIndexPathForSupplementaryElementOfKind x ~forInitialIndexPath self = msg_send ~self ~cmd:(selector "finalIndexPathForSupplementaryElementOfKind:forInitialIndexPath:") ~typ:(id @-> id @-> returning (id)) x forInitialIndexPath -let finalSectionCount self = msg_send ~self ~cmd:(selector "finalSectionCount") ~typ:(returning (llong)) -let finalSectionGlobalItemRangeForSection x self = msg_send_stret ~self ~cmd:(selector "finalSectionGlobalItemRangeForSection:") ~typ:(llong @-> returning (NSRange.t)) ~return_type:NSRange.t (LLong.of_int x) -let finalSectionIndexForInitialSectionIndex x self = msg_send ~self ~cmd:(selector "finalSectionIndexForInitialSectionIndex:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let hasDeletedAuxiliaryElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "hasDeletedAuxiliaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (bool)) x atIndexPath -let hasInsertedAuxiliaryElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "hasInsertedAuxiliaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (bool)) x atIndexPath -let hasMovedItemAtOldIndexPath x self = msg_send ~self ~cmd:(selector "hasMovedItemAtOldIndexPath:") ~typ:(id @-> returning (bool)) x -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let initWithCollectionView x ~updateItems ~moveItemSourceIndexPaths ~oldModel ~newModel ~oldVisibleBounds ~newVisibleBounds self = msg_send ~self ~cmd:(selector "initWithCollectionView:updateItems:moveItemSourceIndexPaths:oldModel:newModel:oldVisibleBounds:newVisibleBounds:") ~typ:(id @-> id @-> id @-> id @-> id @-> CGRect.t @-> CGRect.t @-> returning (id)) x updateItems moveItemSourceIndexPaths oldModel newModel oldVisibleBounds newVisibleBounds -let initalSectionGlobalItemRangeForSection x self = msg_send_stret ~self ~cmd:(selector "initalSectionGlobalItemRangeForSection:") ~typ:(llong @-> returning (NSRange.t)) ~return_type:NSRange.t (LLong.of_int x) -let initialGlobalIndexForFinalGlobalIndex x self = msg_send ~self ~cmd:(selector "initialGlobalIndexForFinalGlobalIndex:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let initialIndexPathForFinalIndexPath x self = msg_send ~self ~cmd:(selector "initialIndexPathForFinalIndexPath:") ~typ:(id @-> returning (id)) x -let initialIndexPathForSupplementaryElementOfKind x ~forFinalIndexPath self = msg_send ~self ~cmd:(selector "initialIndexPathForSupplementaryElementOfKind:forFinalIndexPath:") ~typ:(id @-> id @-> returning (id)) x forFinalIndexPath -let initialSectionCount self = msg_send ~self ~cmd:(selector "initialSectionCount") ~typ:(returning (llong)) -let initialSectionIndexForFinalSectionIndex x self = msg_send ~self ~cmd:(selector "initialSectionIndexForFinalSectionIndex:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let newIndexPathForSupplementaryElementOfKind x ~oldIndexPath self = msg_send ~self ~cmd:(selector "newIndexPathForSupplementaryElementOfKind:oldIndexPath:") ~typ:(id @-> id @-> returning (id)) x oldIndexPath -let oldIndexPathForSupplementaryElementOfKind x ~newIndexPath self = msg_send ~self ~cmd:(selector "oldIndexPathForSupplementaryElementOfKind:newIndexPath:") ~typ:(id @-> id @-> returning (id)) x newIndexPath -let validatedNewIndexPathForSupplementaryElementOfKind x ~oldIndexPath self = msg_send ~self ~cmd:(selector "validatedNewIndexPathForSupplementaryElementOfKind:oldIndexPath:") ~typ:(id @-> id @-> returning (id)) x oldIndexPath -let validatedOldIndexPathForSupplementaryElementOfKind x ~newIndexPath self = msg_send ~self ~cmd:(selector "validatedOldIndexPathForSupplementaryElementOfKind:newIndexPath:") ~typ:(id @-> id @-> returning (id)) x newIndexPath \ No newline at end of file +let self = get_class "UICollectionViewUpdate" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let finalGlobalIndexForInitialGlobalIndex x self = msg_send ~self ~cmd:(selector "finalGlobalIndexForInitialGlobalIndex:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let finalIndexPathForInitialIndexPath x self = msg_send ~self ~cmd:(selector "finalIndexPathForInitialIndexPath:") ~typ:(id @-> returning id) x +let finalIndexPathForSupplementaryElementOfKind x ~forInitialIndexPath self = msg_send ~self ~cmd:(selector "finalIndexPathForSupplementaryElementOfKind:forInitialIndexPath:") ~typ:(id @-> id @-> returning id) x forInitialIndexPath +let finalSectionCount self = msg_send ~self ~cmd:(selector "finalSectionCount") ~typ:(returning llong) +let finalSectionGlobalItemRangeForSection x self = msg_send ~self ~cmd:(selector "finalSectionGlobalItemRangeForSection:") ~typ:(llong @-> returning NSRange.t) (LLong.of_int x) +let finalSectionIndexForInitialSectionIndex x self = msg_send ~self ~cmd:(selector "finalSectionIndexForInitialSectionIndex:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let hasDeletedAuxiliaryElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "hasDeletedAuxiliaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning bool) x atIndexPath +let hasInsertedAuxiliaryElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "hasInsertedAuxiliaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning bool) x atIndexPath +let hasMovedItemAtOldIndexPath x self = msg_send ~self ~cmd:(selector "hasMovedItemAtOldIndexPath:") ~typ:(id @-> returning bool) x +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) +let initWithCollectionView x ~updateItems ~moveItemSourceIndexPaths ~oldModel ~newModel ~oldVisibleBounds ~newVisibleBounds self = msg_send ~self ~cmd:(selector "initWithCollectionView:updateItems:moveItemSourceIndexPaths:oldModel:newModel:oldVisibleBounds:newVisibleBounds:") ~typ:(id @-> id @-> id @-> id @-> id @-> CGRect.t @-> CGRect.t @-> returning id) x updateItems moveItemSourceIndexPaths oldModel newModel oldVisibleBounds newVisibleBounds +let initalSectionGlobalItemRangeForSection x self = msg_send ~self ~cmd:(selector "initalSectionGlobalItemRangeForSection:") ~typ:(llong @-> returning NSRange.t) (LLong.of_int x) +let initialGlobalIndexForFinalGlobalIndex x self = msg_send ~self ~cmd:(selector "initialGlobalIndexForFinalGlobalIndex:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let initialIndexPathForFinalIndexPath x self = msg_send ~self ~cmd:(selector "initialIndexPathForFinalIndexPath:") ~typ:(id @-> returning id) x +let initialIndexPathForSupplementaryElementOfKind x ~forFinalIndexPath self = msg_send ~self ~cmd:(selector "initialIndexPathForSupplementaryElementOfKind:forFinalIndexPath:") ~typ:(id @-> id @-> returning id) x forFinalIndexPath +let initialSectionCount self = msg_send ~self ~cmd:(selector "initialSectionCount") ~typ:(returning llong) +let initialSectionIndexForFinalSectionIndex x self = msg_send ~self ~cmd:(selector "initialSectionIndexForFinalSectionIndex:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let newIndexPathForSupplementaryElementOfKind x ~oldIndexPath self = msg_send ~self ~cmd:(selector "newIndexPathForSupplementaryElementOfKind:oldIndexPath:") ~typ:(id @-> id @-> returning id) x oldIndexPath +let oldIndexPathForSupplementaryElementOfKind x ~newIndexPath self = msg_send ~self ~cmd:(selector "oldIndexPathForSupplementaryElementOfKind:newIndexPath:") ~typ:(id @-> id @-> returning id) x newIndexPath +let validatedNewIndexPathForSupplementaryElementOfKind x ~oldIndexPath self = msg_send ~self ~cmd:(selector "validatedNewIndexPathForSupplementaryElementOfKind:oldIndexPath:") ~typ:(id @-> id @-> returning id) x oldIndexPath +let validatedOldIndexPathForSupplementaryElementOfKind x ~newIndexPath self = msg_send ~self ~cmd:(selector "validatedOldIndexPathForSupplementaryElementOfKind:newIndexPath:") ~typ:(id @-> id @-> returning id) x newIndexPath \ No newline at end of file diff --git a/uikit/UICollectionViewUpdateItem.ml b/uikit/UICollectionViewUpdateItem.ml index 5de4beb4..30e437c1 100644 --- a/uikit/UICollectionViewUpdateItem.ml +++ b/uikit/UICollectionViewUpdateItem.ml @@ -5,25 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollectionViewUpdateItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewupdateitem?language=objc}UICollectionViewUpdateItem} *) -let compareIndexPaths x self = msg_send ~self ~cmd:(selector "compareIndexPaths:") ~typ:(id @-> returning (llong)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let indexPathAfterUpdate self = msg_send ~self ~cmd:(selector "indexPathAfterUpdate") ~typ:(returning (id)) -let indexPathBeforeUpdate self = msg_send ~self ~cmd:(selector "indexPathBeforeUpdate") ~typ:(returning (id)) -let initWithAction x ~forIndexPath self = msg_send ~self ~cmd:(selector "initWithAction:forIndexPath:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) forIndexPath -let initWithInitialIndexPath x ~finalIndexPath ~updateAction self = msg_send ~self ~cmd:(selector "initWithInitialIndexPath:finalIndexPath:updateAction:") ~typ:(id @-> id @-> llong @-> returning (id)) x finalIndexPath (LLong.of_int updateAction) -let initWithOldIndexPath x ~newIndexPath self = msg_send ~self ~cmd:(selector "initWithOldIndexPath:newIndexPath:") ~typ:(id @-> id @-> returning (id)) x newIndexPath -let inverseCompareIndexPaths x self = msg_send ~self ~cmd:(selector "inverseCompareIndexPaths:") ~typ:(id @-> returning (llong)) x -let isAppendingSectionInsert self = msg_send ~self ~cmd:(selector "isAppendingSectionInsert") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isEqualToUpdate x self = msg_send ~self ~cmd:(selector "isEqualToUpdate:") ~typ:(id @-> returning (bool)) x -let isNOOP self = msg_send ~self ~cmd:(selector "isNOOP") ~typ:(returning (bool)) -let isRevertedUpdateOf x self = msg_send ~self ~cmd:(selector "isRevertedUpdateOf:") ~typ:(id @-> returning (bool)) x -let revertedUpdate self = msg_send ~self ~cmd:(selector "revertedUpdate") ~typ:(returning (id)) -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let setIsAppendingSectionInsert x self = msg_send ~self ~cmd:(selector "setIsAppendingSectionInsert:") ~typ:(bool @-> returning (void)) x -let updateAction self = msg_send ~self ~cmd:(selector "updateAction") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UICollectionViewUpdateItem" + +let compareIndexPaths x self = msg_send ~self ~cmd:(selector "compareIndexPaths:") ~typ:(id @-> returning llong) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) +let indexPathAfterUpdate self = msg_send ~self ~cmd:(selector "indexPathAfterUpdate") ~typ:(returning id) +let indexPathBeforeUpdate self = msg_send ~self ~cmd:(selector "indexPathBeforeUpdate") ~typ:(returning id) +let initWithAction x ~forIndexPath self = msg_send ~self ~cmd:(selector "initWithAction:forIndexPath:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) forIndexPath +let initWithInitialIndexPath x ~finalIndexPath ~updateAction self = msg_send ~self ~cmd:(selector "initWithInitialIndexPath:finalIndexPath:updateAction:") ~typ:(id @-> id @-> llong @-> returning id) x finalIndexPath (LLong.of_int updateAction) +let initWithOldIndexPath x ~newIndexPath self = msg_send ~self ~cmd:(selector "initWithOldIndexPath:newIndexPath:") ~typ:(id @-> id @-> returning id) x newIndexPath +let inverseCompareIndexPaths x self = msg_send ~self ~cmd:(selector "inverseCompareIndexPaths:") ~typ:(id @-> returning llong) x +let isAppendingSectionInsert self = msg_send ~self ~cmd:(selector "isAppendingSectionInsert") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isEqualToUpdate x self = msg_send ~self ~cmd:(selector "isEqualToUpdate:") ~typ:(id @-> returning bool) x +let isNOOP self = msg_send ~self ~cmd:(selector "isNOOP") ~typ:(returning bool) +let isRevertedUpdateOf x self = msg_send ~self ~cmd:(selector "isRevertedUpdateOf:") ~typ:(id @-> returning bool) x +let revertedUpdate self = msg_send ~self ~cmd:(selector "revertedUpdate") ~typ:(returning id) +let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning void) x +let setIsAppendingSectionInsert x self = msg_send ~self ~cmd:(selector "setIsAppendingSectionInsert:") ~typ:(bool @-> returning void) x +let updateAction self = msg_send ~self ~cmd:(selector "updateAction") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UICollisionBehavior.ml b/uikit/UICollisionBehavior.ml index 181f1d3b..e886e6a9 100644 --- a/uikit/UICollisionBehavior.ml +++ b/uikit/UICollisionBehavior.ml @@ -5,25 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICollisionBehavior" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollisionbehavior?language=objc}UICollisionBehavior} *) -let addBoundaryWithIdentifier x ~forPath self = msg_send ~self ~cmd:(selector "addBoundaryWithIdentifier:forPath:") ~typ:(id @-> id @-> returning (void)) x forPath -let addBoundaryWithIdentifier' x ~fromPoint ~toPoint self = msg_send ~self ~cmd:(selector "addBoundaryWithIdentifier:fromPoint:toPoint:") ~typ:(id @-> CGPoint.t @-> CGPoint.t @-> returning (void)) x fromPoint toPoint -let addItem x self = msg_send ~self ~cmd:(selector "addItem:") ~typ:(id @-> returning (void)) x -let boundaryIdentifiers self = msg_send ~self ~cmd:(selector "boundaryIdentifiers") ~typ:(returning (id)) -let boundaryWithIdentifier x self = msg_send ~self ~cmd:(selector "boundaryWithIdentifier:") ~typ:(id @-> returning (id)) x -let collisionDelegate self = msg_send ~self ~cmd:(selector "collisionDelegate") ~typ:(returning (id)) -let collisionMode self = msg_send ~self ~cmd:(selector "collisionMode") ~typ:(returning (ullong)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithItems x self = msg_send ~self ~cmd:(selector "initWithItems:") ~typ:(id @-> returning (id)) x -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let removeAllBoundaries self = msg_send ~self ~cmd:(selector "removeAllBoundaries") ~typ:(returning (void)) -let removeBoundaryWithIdentifier x self = msg_send ~self ~cmd:(selector "removeBoundaryWithIdentifier:") ~typ:(id @-> returning (void)) x -let removeItem x self = msg_send ~self ~cmd:(selector "removeItem:") ~typ:(id @-> returning (void)) x -let setCollisionDelegate x self = msg_send ~self ~cmd:(selector "setCollisionDelegate:") ~typ:(id @-> returning (void)) x -let setCollisionMode x self = msg_send ~self ~cmd:(selector "setCollisionMode:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setTranslatesReferenceBoundsIntoBoundary x self = msg_send ~self ~cmd:(selector "setTranslatesReferenceBoundsIntoBoundary:") ~typ:(bool @-> returning (void)) x -let setTranslatesReferenceBoundsIntoBoundaryWithInsets x self = msg_send ~self ~cmd:(selector "setTranslatesReferenceBoundsIntoBoundaryWithInsets:") ~typ:(ptr void @-> returning (void)) x -let translatesReferenceBoundsIntoBoundary self = msg_send ~self ~cmd:(selector "translatesReferenceBoundsIntoBoundary") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UICollisionBehavior" + +let addBoundaryWithIdentifier x ~forPath self = msg_send ~self ~cmd:(selector "addBoundaryWithIdentifier:forPath:") ~typ:(id @-> id @-> returning void) x forPath +let addBoundaryWithIdentifier' x ~fromPoint ~toPoint self = msg_send ~self ~cmd:(selector "addBoundaryWithIdentifier:fromPoint:toPoint:") ~typ:(id @-> CGPoint.t @-> CGPoint.t @-> returning void) x fromPoint toPoint +let addItem x self = msg_send ~self ~cmd:(selector "addItem:") ~typ:(id @-> returning void) x +let boundaryIdentifiers self = msg_send ~self ~cmd:(selector "boundaryIdentifiers") ~typ:(returning id) +let boundaryWithIdentifier x self = msg_send ~self ~cmd:(selector "boundaryWithIdentifier:") ~typ:(id @-> returning id) x +let collisionDelegate self = msg_send ~self ~cmd:(selector "collisionDelegate") ~typ:(returning id) +let collisionMode self = msg_send ~self ~cmd:(selector "collisionMode") ~typ:(returning ullong) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithItems x self = msg_send ~self ~cmd:(selector "initWithItems:") ~typ:(id @-> returning id) x +let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning id) +let removeAllBoundaries self = msg_send ~self ~cmd:(selector "removeAllBoundaries") ~typ:(returning void) +let removeBoundaryWithIdentifier x self = msg_send ~self ~cmd:(selector "removeBoundaryWithIdentifier:") ~typ:(id @-> returning void) x +let removeItem x self = msg_send ~self ~cmd:(selector "removeItem:") ~typ:(id @-> returning void) x +let setCollisionDelegate x self = msg_send ~self ~cmd:(selector "setCollisionDelegate:") ~typ:(id @-> returning void) x +let setCollisionMode x self = msg_send ~self ~cmd:(selector "setCollisionMode:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setTranslatesReferenceBoundsIntoBoundary x self = msg_send ~self ~cmd:(selector "setTranslatesReferenceBoundsIntoBoundary:") ~typ:(bool @-> returning void) x +let setTranslatesReferenceBoundsIntoBoundaryWithInsets x self = msg_send ~self ~cmd:(selector "setTranslatesReferenceBoundsIntoBoundaryWithInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let translatesReferenceBoundsIntoBoundary self = msg_send ~self ~cmd:(selector "translatesReferenceBoundsIntoBoundary") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIColor.ml b/uikit/UIColor.ml index f0cb672f..38ca8be2 100644 --- a/uikit/UIColor.ml +++ b/uikit/UIColor.ml @@ -5,249 +5,58 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIColor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicolor?language=objc}UIColor} *) -module C = struct - let akBoxBorderColor self = msg_send ~self ~cmd:(selector "akBoxBorderColor") ~typ:(returning (id)) - let akBubbleFillColor self = msg_send ~self ~cmd:(selector "akBubbleFillColor") ~typ:(returning (id)) - let akButtonHoverStateColor self = msg_send ~self ~cmd:(selector "akButtonHoverStateColor") ~typ:(returning (id)) - let akColorPickerBlue self = msg_send ~self ~cmd:(selector "akColorPickerBlue") ~typ:(returning (id)) - let akColorPickerGreen self = msg_send ~self ~cmd:(selector "akColorPickerGreen") ~typ:(returning (id)) - let akColorPickerOrange self = msg_send ~self ~cmd:(selector "akColorPickerOrange") ~typ:(returning (id)) - let akColorPickerPurple self = msg_send ~self ~cmd:(selector "akColorPickerPurple") ~typ:(returning (id)) - let akColorPickerRed self = msg_send ~self ~cmd:(selector "akColorPickerRed") ~typ:(returning (id)) - let akColorPickerYellow self = msg_send ~self ~cmd:(selector "akColorPickerYellow") ~typ:(returning (id)) - let akColorWithCIColor x self = msg_send ~self ~cmd:(selector "akColorWithCIColor:") ~typ:(id @-> returning (id)) x - let akColorWithSRGBRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "akColorWithSRGBRed:green:blue:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning (id)) x green blue alpha - let akColorWithWhite x ~alpha self = msg_send ~self ~cmd:(selector "akColorWithWhite:alpha:") ~typ:(double @-> double @-> returning (id)) x alpha - let akRowSeparatorColor self = msg_send ~self ~cmd:(selector "akRowSeparatorColor") ~typ:(returning (id)) - let akSystemBlueColor self = msg_send ~self ~cmd:(selector "akSystemBlueColor") ~typ:(returning (id)) - let akSystemGreenColor self = msg_send ~self ~cmd:(selector "akSystemGreenColor") ~typ:(returning (id)) - let akSystemPinkColor self = msg_send ~self ~cmd:(selector "akSystemPinkColor") ~typ:(returning (id)) - let akSystemPurpleColor self = msg_send ~self ~cmd:(selector "akSystemPurpleColor") ~typ:(returning (id)) - let akSystemRedColor self = msg_send ~self ~cmd:(selector "akSystemRedColor") ~typ:(returning (id)) - let akSystemYellowColor self = msg_send ~self ~cmd:(selector "akSystemYellowColor") ~typ:(returning (id)) - let allocWithZone x self = msg_send ~self ~cmd:(selector "allocWithZone:") ~typ:(id @-> returning (id)) x - let blackColor self = msg_send ~self ~cmd:(selector "blackColor") ~typ:(returning (id)) - let blueColor self = msg_send ~self ~cmd:(selector "blueColor") ~typ:(returning (id)) - let brownColor self = msg_send ~self ~cmd:(selector "brownColor") ~typ:(returning (id)) - let classFallbacksForKeyedArchiver self = msg_send ~self ~cmd:(selector "classFallbacksForKeyedArchiver") ~typ:(returning (id)) - let clearColor self = msg_send ~self ~cmd:(selector "clearColor") ~typ:(returning (id)) - let colorNamed x self = msg_send ~self ~cmd:(selector "colorNamed:") ~typ:(id @-> returning (id)) x - let colorNamed' x ~inBundle ~compatibleWithTraitCollection self = msg_send ~self ~cmd:(selector "colorNamed:inBundle:compatibleWithTraitCollection:") ~typ:(id @-> id @-> id @-> returning (id)) x inBundle compatibleWithTraitCollection - let colorWithCGColor x self = msg_send ~self ~cmd:(selector "colorWithCGColor:") ~typ:(ptr void @-> returning (id)) x - let colorWithCIColor x self = msg_send ~self ~cmd:(selector "colorWithCIColor:") ~typ:(id @-> returning (id)) x - let colorWithDisplayP3Red x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "colorWithDisplayP3Red:green:blue:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning (id)) x green blue alpha - let colorWithDynamicProvider x self = msg_send ~self ~cmd:(selector "colorWithDynamicProvider:") ~typ:(ptr void @-> returning (id)) x - let colorWithHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "colorWithHue:saturation:brightness:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning (id)) x saturation brightness alpha - let colorWithITColor x self = msg_send ~self ~cmd:(selector "colorWithITColor:") ~typ:(ptr void @-> returning (id)) x - let colorWithPatternImage x self = msg_send ~self ~cmd:(selector "colorWithPatternImage:") ~typ:(id @-> returning (id)) x - let colorWithRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "colorWithRed:green:blue:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning (id)) x green blue alpha - let colorWithWhite x ~alpha self = msg_send ~self ~cmd:(selector "colorWithWhite:alpha:") ~typ:(double @-> double @-> returning (id)) x alpha - let cyanColor self = msg_send ~self ~cmd:(selector "cyanColor") ~typ:(returning (id)) - let darkDisabledSelectionHighlightColor self = msg_send ~self ~cmd:(selector "darkDisabledSelectionHighlightColor") ~typ:(returning (id)) - let darkGrayColor self = msg_send ~self ~cmd:(selector "darkGrayColor") ~typ:(returning (id)) - let darkInactiveSidebarBackgroundColor self = msg_send ~self ~cmd:(selector "darkInactiveSidebarBackgroundColor") ~typ:(returning (id)) - let darkInactiveSidebarHighlightColor self = msg_send ~self ~cmd:(selector "darkInactiveSidebarHighlightColor") ~typ:(returning (id)) - let darkInsertionPointColor self = msg_send ~self ~cmd:(selector "darkInsertionPointColor") ~typ:(returning (id)) - let darkOpaqueDisabledSelectionHighlightColor self = msg_send ~self ~cmd:(selector "darkOpaqueDisabledSelectionHighlightColor") ~typ:(returning (id)) - let darkOpaqueSelectionHighlightColor self = msg_send ~self ~cmd:(selector "darkOpaqueSelectionHighlightColor") ~typ:(returning (id)) - let darkSelectionHighlightColor self = msg_send ~self ~cmd:(selector "darkSelectionHighlightColor") ~typ:(returning (id)) - let darkSelectionMaterialTintColor self = msg_send ~self ~cmd:(selector "darkSelectionMaterialTintColor") ~typ:(returning (id)) - let darkTableHighlightColor self = msg_send ~self ~cmd:(selector "darkTableHighlightColor") ~typ:(returning (id)) - let darkTextColor self = msg_send ~self ~cmd:(selector "darkTextColor") ~typ:(returning (id)) - let disabledSelectionHighlightColor self = msg_send ~self ~cmd:(selector "disabledSelectionHighlightColor") ~typ:(returning (id)) - let externalSystemGreenColor self = msg_send ~self ~cmd:(selector "externalSystemGreenColor") ~typ:(returning (id)) - let externalSystemRedColor self = msg_send ~self ~cmd:(selector "externalSystemRedColor") ~typ:(returning (id)) - let externalSystemTealColor self = msg_send ~self ~cmd:(selector "externalSystemTealColor") ~typ:(returning (id)) - let grayColor self = msg_send ~self ~cmd:(selector "grayColor") ~typ:(returning (id)) - let greenColor self = msg_send ~self ~cmd:(selector "greenColor") ~typ:(returning (id)) - let groupTableViewBackgroundColor self = msg_send ~self ~cmd:(selector "groupTableViewBackgroundColor") ~typ:(returning (id)) - let inactiveSidebarBackgroundColor self = msg_send ~self ~cmd:(selector "inactiveSidebarBackgroundColor") ~typ:(returning (id)) - let inactiveSidebarHighlightColor self = msg_send ~self ~cmd:(selector "inactiveSidebarHighlightColor") ~typ:(returning (id)) - let infoTextOverPinStripeTextColor self = msg_send ~self ~cmd:(selector "infoTextOverPinStripeTextColor") ~typ:(returning (id)) - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let insertionPointColor self = msg_send ~self ~cmd:(selector "insertionPointColor") ~typ:(returning (id)) - let keyboardFocusIndicatorColor self = msg_send ~self ~cmd:(selector "keyboardFocusIndicatorColor") ~typ:(returning (id)) - let labelColor self = msg_send ~self ~cmd:(selector "labelColor") ~typ:(returning (id)) - let lightGrayColor self = msg_send ~self ~cmd:(selector "lightGrayColor") ~typ:(returning (id)) - let lightTextColor self = msg_send ~self ~cmd:(selector "lightTextColor") ~typ:(returning (id)) - let linkColor self = msg_send ~self ~cmd:(selector "linkColor") ~typ:(returning (id)) - let magentaColor self = msg_send ~self ~cmd:(selector "magentaColor") ~typ:(returning (id)) - let noContentDarkGradientBackgroundColor self = msg_send ~self ~cmd:(selector "noContentDarkGradientBackgroundColor") ~typ:(returning (id)) - let noContentLightGradientBackgroundColor self = msg_send ~self ~cmd:(selector "noContentLightGradientBackgroundColor") ~typ:(returning (id)) - let objectWithItemProviderData x ~typeIdentifier ~error self = msg_send ~self ~cmd:(selector "objectWithItemProviderData:typeIdentifier:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (id)) x typeIdentifier error - let opaqueDisabledSelectionHighlightColor self = msg_send ~self ~cmd:(selector "opaqueDisabledSelectionHighlightColor") ~typ:(returning (id)) - let opaqueSelectionHighlightColor self = msg_send ~self ~cmd:(selector "opaqueSelectionHighlightColor") ~typ:(returning (id)) - let opaqueSeparatorColor self = msg_send ~self ~cmd:(selector "opaqueSeparatorColor") ~typ:(returning (id)) - let orangeColor self = msg_send ~self ~cmd:(selector "orangeColor") ~typ:(returning (id)) - let pinStripeColor self = msg_send ~self ~cmd:(selector "pinStripeColor") ~typ:(returning (id)) - let pkaxHueNameForValue x self = msg_send ~self ~cmd:(selector "pkaxHueNameForValue:") ~typ:(double @-> returning (id)) x - let placeholderTextColor self = msg_send ~self ~cmd:(selector "placeholderTextColor") ~typ:(returning (id)) - let purpleColor self = msg_send ~self ~cmd:(selector "purpleColor") ~typ:(returning (id)) - let quaternaryLabelColor self = msg_send ~self ~cmd:(selector "quaternaryLabelColor") ~typ:(returning (id)) - let quaternarySystemFillColor self = msg_send ~self ~cmd:(selector "quaternarySystemFillColor") ~typ:(returning (id)) - let readableTypeIdentifiersForItemProvider self = msg_send ~self ~cmd:(selector "readableTypeIdentifiersForItemProvider") ~typ:(returning (id)) - let redColor self = msg_send ~self ~cmd:(selector "redColor") ~typ:(returning (id)) - let scrollViewTexturedBackgroundColor self = msg_send ~self ~cmd:(selector "scrollViewTexturedBackgroundColor") ~typ:(returning (id)) - let secondaryLabelColor self = msg_send ~self ~cmd:(selector "secondaryLabelColor") ~typ:(returning (id)) - let secondarySystemBackgroundColor self = msg_send ~self ~cmd:(selector "secondarySystemBackgroundColor") ~typ:(returning (id)) - let secondarySystemFillColor self = msg_send ~self ~cmd:(selector "secondarySystemFillColor") ~typ:(returning (id)) - let secondarySystemGroupedBackgroundColor self = msg_send ~self ~cmd:(selector "secondarySystemGroupedBackgroundColor") ~typ:(returning (id)) - let sectionHeaderBackgroundColor self = msg_send ~self ~cmd:(selector "sectionHeaderBackgroundColor") ~typ:(returning (id)) - let sectionHeaderBorderColor self = msg_send ~self ~cmd:(selector "sectionHeaderBorderColor") ~typ:(returning (id)) - let sectionHeaderOpaqueBackgroundColor self = msg_send ~self ~cmd:(selector "sectionHeaderOpaqueBackgroundColor") ~typ:(returning (id)) - let sectionListBorderColor self = msg_send ~self ~cmd:(selector "sectionListBorderColor") ~typ:(returning (id)) - let selectionGrabberColor self = msg_send ~self ~cmd:(selector "selectionGrabberColor") ~typ:(returning (id)) - let selectionHighlightColor self = msg_send ~self ~cmd:(selector "selectionHighlightColor") ~typ:(returning (id)) - let selectionMaterialTintColor self = msg_send ~self ~cmd:(selector "selectionMaterialTintColor") ~typ:(returning (id)) - let separatorColor self = msg_send ~self ~cmd:(selector "separatorColor") ~typ:(returning (id)) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) - let systemBackgroundColor self = msg_send ~self ~cmd:(selector "systemBackgroundColor") ~typ:(returning (id)) - let systemBlackColor self = msg_send ~self ~cmd:(selector "systemBlackColor") ~typ:(returning (id)) - let systemBlueColor self = msg_send ~self ~cmd:(selector "systemBlueColor") ~typ:(returning (id)) - let systemBrownColor self = msg_send ~self ~cmd:(selector "systemBrownColor") ~typ:(returning (id)) - let systemCyanColor self = msg_send ~self ~cmd:(selector "systemCyanColor") ~typ:(returning (id)) - let systemDarkBlueColor self = msg_send ~self ~cmd:(selector "systemDarkBlueColor") ~typ:(returning (id)) - let systemDarkExtraLightGrayColor self = msg_send ~self ~cmd:(selector "systemDarkExtraLightGrayColor") ~typ:(returning (id)) - let systemDarkExtraLightGrayTintColor self = msg_send ~self ~cmd:(selector "systemDarkExtraLightGrayTintColor") ~typ:(returning (id)) - let systemDarkGrayColor self = msg_send ~self ~cmd:(selector "systemDarkGrayColor") ~typ:(returning (id)) - let systemDarkGrayTintColor self = msg_send ~self ~cmd:(selector "systemDarkGrayTintColor") ~typ:(returning (id)) - let systemDarkGreenColor self = msg_send ~self ~cmd:(selector "systemDarkGreenColor") ~typ:(returning (id)) - let systemDarkLightGrayColor self = msg_send ~self ~cmd:(selector "systemDarkLightGrayColor") ~typ:(returning (id)) - let systemDarkLightGrayTintColor self = msg_send ~self ~cmd:(selector "systemDarkLightGrayTintColor") ~typ:(returning (id)) - let systemDarkLightMidGrayColor self = msg_send ~self ~cmd:(selector "systemDarkLightMidGrayColor") ~typ:(returning (id)) - let systemDarkLightMidGrayTintColor self = msg_send ~self ~cmd:(selector "systemDarkLightMidGrayTintColor") ~typ:(returning (id)) - let systemDarkMidGrayColor self = msg_send ~self ~cmd:(selector "systemDarkMidGrayColor") ~typ:(returning (id)) - let systemDarkMidGrayTintColor self = msg_send ~self ~cmd:(selector "systemDarkMidGrayTintColor") ~typ:(returning (id)) - let systemDarkOrangeColor self = msg_send ~self ~cmd:(selector "systemDarkOrangeColor") ~typ:(returning (id)) - let systemDarkPinkColor self = msg_send ~self ~cmd:(selector "systemDarkPinkColor") ~typ:(returning (id)) - let systemDarkPurpleColor self = msg_send ~self ~cmd:(selector "systemDarkPurpleColor") ~typ:(returning (id)) - let systemDarkRedColor self = msg_send ~self ~cmd:(selector "systemDarkRedColor") ~typ:(returning (id)) - let systemDarkTealColor self = msg_send ~self ~cmd:(selector "systemDarkTealColor") ~typ:(returning (id)) - let systemDarkUserInterfaceStyleDarkPrimaryTextColor self = msg_send ~self ~cmd:(selector "systemDarkUserInterfaceStyleDarkPrimaryTextColor") ~typ:(returning (id)) - let systemDarkUserInterfaceStyleDarkSecondaryTextColor self = msg_send ~self ~cmd:(selector "systemDarkUserInterfaceStyleDarkSecondaryTextColor") ~typ:(returning (id)) - let systemDarkYellowColor self = msg_send ~self ~cmd:(selector "systemDarkYellowColor") ~typ:(returning (id)) - let systemExtraLightGrayColor self = msg_send ~self ~cmd:(selector "systemExtraLightGrayColor") ~typ:(returning (id)) - let systemExtraLightGrayTintColor self = msg_send ~self ~cmd:(selector "systemExtraLightGrayTintColor") ~typ:(returning (id)) - let systemFillColor self = msg_send ~self ~cmd:(selector "systemFillColor") ~typ:(returning (id)) - let systemGray2Color self = msg_send ~self ~cmd:(selector "systemGray2Color") ~typ:(returning (id)) - let systemGray3Color self = msg_send ~self ~cmd:(selector "systemGray3Color") ~typ:(returning (id)) - let systemGray4Color self = msg_send ~self ~cmd:(selector "systemGray4Color") ~typ:(returning (id)) - let systemGray5Color self = msg_send ~self ~cmd:(selector "systemGray5Color") ~typ:(returning (id)) - let systemGray6Color self = msg_send ~self ~cmd:(selector "systemGray6Color") ~typ:(returning (id)) - let systemGrayColor self = msg_send ~self ~cmd:(selector "systemGrayColor") ~typ:(returning (id)) - let systemGrayTintColor self = msg_send ~self ~cmd:(selector "systemGrayTintColor") ~typ:(returning (id)) - let systemGreenColor self = msg_send ~self ~cmd:(selector "systemGreenColor") ~typ:(returning (id)) - let systemGroupedBackgroundColor self = msg_send ~self ~cmd:(selector "systemGroupedBackgroundColor") ~typ:(returning (id)) - let systemIndigoColor self = msg_send ~self ~cmd:(selector "systemIndigoColor") ~typ:(returning (id)) - let systemLightGrayColor self = msg_send ~self ~cmd:(selector "systemLightGrayColor") ~typ:(returning (id)) - let systemLightGrayTintColor self = msg_send ~self ~cmd:(selector "systemLightGrayTintColor") ~typ:(returning (id)) - let systemLightMidGrayColor self = msg_send ~self ~cmd:(selector "systemLightMidGrayColor") ~typ:(returning (id)) - let systemLightMidGrayTintColor self = msg_send ~self ~cmd:(selector "systemLightMidGrayTintColor") ~typ:(returning (id)) - let systemMidGrayColor self = msg_send ~self ~cmd:(selector "systemMidGrayColor") ~typ:(returning (id)) - let systemMidGrayTintColor self = msg_send ~self ~cmd:(selector "systemMidGrayTintColor") ~typ:(returning (id)) - let systemMintColor self = msg_send ~self ~cmd:(selector "systemMintColor") ~typ:(returning (id)) - let systemOrangeColor self = msg_send ~self ~cmd:(selector "systemOrangeColor") ~typ:(returning (id)) - let systemPinkColor self = msg_send ~self ~cmd:(selector "systemPinkColor") ~typ:(returning (id)) - let systemPurpleColor self = msg_send ~self ~cmd:(selector "systemPurpleColor") ~typ:(returning (id)) - let systemRedColor self = msg_send ~self ~cmd:(selector "systemRedColor") ~typ:(returning (id)) - let systemTealColor self = msg_send ~self ~cmd:(selector "systemTealColor") ~typ:(returning (id)) - let systemUserInterfaceStyleDarkPrimaryTextColor self = msg_send ~self ~cmd:(selector "systemUserInterfaceStyleDarkPrimaryTextColor") ~typ:(returning (id)) - let systemUserInterfaceStyleDarkSecondaryTextColor self = msg_send ~self ~cmd:(selector "systemUserInterfaceStyleDarkSecondaryTextColor") ~typ:(returning (id)) - let systemWhiteColor self = msg_send ~self ~cmd:(selector "systemWhiteColor") ~typ:(returning (id)) - let systemYellowColor self = msg_send ~self ~cmd:(selector "systemYellowColor") ~typ:(returning (id)) - let tableBackgroundColor self = msg_send ~self ~cmd:(selector "tableBackgroundColor") ~typ:(returning (id)) - let tableCellBackgroundColor self = msg_send ~self ~cmd:(selector "tableCellBackgroundColor") ~typ:(returning (id)) - let tableCellBlueTextColor self = msg_send ~self ~cmd:(selector "tableCellBlueTextColor") ~typ:(returning (id)) - let tableCellDefaultSelectionTintColor self = msg_send ~self ~cmd:(selector "tableCellDefaultSelectionTintColor") ~typ:(returning (id)) - let tableCellDisabledBackgroundColor self = msg_send ~self ~cmd:(selector "tableCellDisabledBackgroundColor") ~typ:(returning (id)) - let tableCellFocusedBackgroundColor self = msg_send ~self ~cmd:(selector "tableCellFocusedBackgroundColor") ~typ:(returning (id)) - let tableCellGrayTextColor self = msg_send ~self ~cmd:(selector "tableCellGrayTextColor") ~typ:(returning (id)) - let tableCellGroupedBackgroundColor self = msg_send ~self ~cmd:(selector "tableCellGroupedBackgroundColor") ~typ:(returning (id)) - let tableCellGroupedBackgroundColorLegacyWhite self = msg_send ~self ~cmd:(selector "tableCellGroupedBackgroundColorLegacyWhite") ~typ:(returning (id)) - let tableCellGroupedSelectedBackgroundColor self = msg_send ~self ~cmd:(selector "tableCellGroupedSelectedBackgroundColor") ~typ:(returning (id)) - let tableCellHighlightedBackgroundColor self = msg_send ~self ~cmd:(selector "tableCellHighlightedBackgroundColor") ~typ:(returning (id)) - let tableCellPlainBackgroundColor self = msg_send ~self ~cmd:(selector "tableCellPlainBackgroundColor") ~typ:(returning (id)) - let tableCellPlainSelectedBackgroundColor self = msg_send ~self ~cmd:(selector "tableCellPlainSelectedBackgroundColor") ~typ:(returning (id)) - let tableCellValue1BlueColor self = msg_send ~self ~cmd:(selector "tableCellValue1BlueColor") ~typ:(returning (id)) - let tableCellValue2BlueColor self = msg_send ~self ~cmd:(selector "tableCellValue2BlueColor") ~typ:(returning (id)) - let tableCellbackgroundColorCarPlay self = msg_send ~self ~cmd:(selector "tableCellbackgroundColorCarPlay") ~typ:(returning (id)) - let tableGroupedSeparatorLightColor self = msg_send ~self ~cmd:(selector "tableGroupedSeparatorLightColor") ~typ:(returning (id)) - let tableGroupedTopShadowColor self = msg_send ~self ~cmd:(selector "tableGroupedTopShadowColor") ~typ:(returning (id)) - let tableHighlightColor self = msg_send ~self ~cmd:(selector "tableHighlightColor") ~typ:(returning (id)) - let tablePlainHeaderFooterBackgroundColor self = msg_send ~self ~cmd:(selector "tablePlainHeaderFooterBackgroundColor") ~typ:(returning (id)) - let tablePlainHeaderFooterFloatingBackgroundColor self = msg_send ~self ~cmd:(selector "tablePlainHeaderFooterFloatingBackgroundColor") ~typ:(returning (id)) - let tableSelectionColor self = msg_send ~self ~cmd:(selector "tableSelectionColor") ~typ:(returning (id)) - let tableSelectionGradientEndColor self = msg_send ~self ~cmd:(selector "tableSelectionGradientEndColor") ~typ:(returning (id)) - let tableSelectionGradientStartColor self = msg_send ~self ~cmd:(selector "tableSelectionGradientStartColor") ~typ:(returning (id)) - let tableSeparatorColor self = msg_send ~self ~cmd:(selector "tableSeparatorColor") ~typ:(returning (id)) - let tableSeparatorDarkColor self = msg_send ~self ~cmd:(selector "tableSeparatorDarkColor") ~typ:(returning (id)) - let tableSeparatorLightColor self = msg_send ~self ~cmd:(selector "tableSeparatorLightColor") ~typ:(returning (id)) - let tableShadowColor self = msg_send ~self ~cmd:(selector "tableShadowColor") ~typ:(returning (id)) - let tertiaryLabelColor self = msg_send ~self ~cmd:(selector "tertiaryLabelColor") ~typ:(returning (id)) - let tertiarySystemBackgroundColor self = msg_send ~self ~cmd:(selector "tertiarySystemBackgroundColor") ~typ:(returning (id)) - let tertiarySystemFillColor self = msg_send ~self ~cmd:(selector "tertiarySystemFillColor") ~typ:(returning (id)) - let tertiarySystemGroupedBackgroundColor self = msg_send ~self ~cmd:(selector "tertiarySystemGroupedBackgroundColor") ~typ:(returning (id)) - let textCorrectionIndicatorColorSR self = msg_send ~self ~cmd:(selector "textCorrectionIndicatorColorSR") ~typ:(returning (id)) - let textFieldAtomBlueColor self = msg_send ~self ~cmd:(selector "textFieldAtomBlueColor") ~typ:(returning (id)) - let textFieldAtomPurpleColor self = msg_send ~self ~cmd:(selector "textFieldAtomPurpleColor") ~typ:(returning (id)) - let textGrammarIndicatorColor self = msg_send ~self ~cmd:(selector "textGrammarIndicatorColor") ~typ:(returning (id)) - let textSpellingIndicatorColor self = msg_send ~self ~cmd:(selector "textSpellingIndicatorColor") ~typ:(returning (id)) - let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning (id)) - let underPageBackgroundColor self = msg_send ~self ~cmd:(selector "underPageBackgroundColor") ~typ:(returning (id)) - let viewFlipsideBackgroundColor self = msg_send ~self ~cmd:(selector "viewFlipsideBackgroundColor") ~typ:(returning (id)) - let whiteColor self = msg_send ~self ~cmd:(selector "whiteColor") ~typ:(returning (id)) - let writableTypeIdentifiersForItemProvider self = msg_send ~self ~cmd:(selector "writableTypeIdentifiersForItemProvider") ~typ:(returning (id)) - let yellowColor self = msg_send ~self ~cmd:(selector "yellowColor") ~typ:(returning (id)) -end +let self = get_class "UIColor" -let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr void)) -let _CIColor self = msg_send ~self ~cmd:(selector "CIColor") ~typ:(returning (id)) -let accessibilityName self = msg_send ~self ~cmd:(selector "accessibilityName") ~typ:(returning (id)) -let akAlphaComponent self = msg_send ~self ~cmd:(selector "akAlphaComponent") ~typ:(returning (double)) -let akBlendedColorWithFraction x ~ofColor self = msg_send ~self ~cmd:(selector "akBlendedColorWithFraction:ofColor:") ~typ:(double @-> id @-> returning (id)) x ofColor -let akDistanceFromColor x self = msg_send ~self ~cmd:(selector "akDistanceFromColor:") ~typ:(id @-> returning (double)) x -let akHasHueEqualToColor x ~withTolerance self = msg_send ~self ~cmd:(selector "akHasHueEqualToColor:withTolerance:") ~typ:(id @-> double @-> returning (bool)) x withTolerance -let akIsEqualToColor x self = msg_send ~self ~cmd:(selector "akIsEqualToColor:") ~typ:(id @-> returning (bool)) x -let alphaComponent self = msg_send ~self ~cmd:(selector "alphaComponent") ~typ:(returning (double)) -let cgColor self = msg_send ~self ~cmd:(selector "cgColor") ~typ:(returning (ptr void)) -let classForCoder self = msg_send ~self ~cmd:(selector "classForCoder") ~typ:(returning (_Class)) -let colorSpaceName self = msg_send ~self ~cmd:(selector "colorSpaceName") ~typ:(returning (id)) -let colorUsingSRGBColorSpace self = msg_send ~self ~cmd:(selector "colorUsingSRGBColorSpace") ~typ:(returning (id)) -let colorWithAlphaComponent x self = msg_send ~self ~cmd:(selector "colorWithAlphaComponent:") ~typ:(double @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let getHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "getHue:saturation:brightness:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (bool)) x saturation brightness alpha -let getL x ~a ~b self = msg_send ~self ~cmd:(selector "getL:a:b:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (void)) x a b -let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (bool)) x green blue alpha -let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> returning (bool)) x alpha -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCGColor x self = msg_send ~self ~cmd:(selector "initWithCGColor:") ~typ:(ptr void @-> returning (id)) x -let initWithCIColor x self = msg_send ~self ~cmd:(selector "initWithCIColor:") ~typ:(id @-> returning (id)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithDisplayP3Red x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "initWithDisplayP3Red:green:blue:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning (id)) x green blue alpha -let initWithDynamicProvider x self = msg_send ~self ~cmd:(selector "initWithDynamicProvider:") ~typ:(ptr void @-> returning (id)) x -let initWithHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "initWithHue:saturation:brightness:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning (id)) x saturation brightness alpha -let initWithItemProviderData x ~typeIdentifier ~error self = msg_send ~self ~cmd:(selector "initWithItemProviderData:typeIdentifier:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (id)) x typeIdentifier error -let initWithPatternImage x self = msg_send ~self ~cmd:(selector "initWithPatternImage:") ~typ:(id @-> returning (id)) x -let initWithRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "initWithRed:green:blue:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning (id)) x green blue alpha -let initWithWhite x ~alpha self = msg_send ~self ~cmd:(selector "initWithWhite:alpha:") ~typ:(double @-> double @-> returning (id)) x alpha -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isPatternColor self = msg_send ~self ~cmd:(selector "isPatternColor") ~typ:(returning (bool)) -let loadDataWithTypeIdentifier x ~forItemProviderCompletionHandler self = msg_send ~self ~cmd:(selector "loadDataWithTypeIdentifier:forItemProviderCompletionHandler:") ~typ:(id @-> ptr void @-> returning (id)) x forItemProviderCompletionHandler -let pkaxApproximateColorDescription self = msg_send ~self ~cmd:(selector "pkaxApproximateColorDescription") ~typ:(returning (id)) -let pkaxDescriptionWithLuma self = msg_send ~self ~cmd:(selector "pkaxDescriptionWithLuma") ~typ:(returning (id)) -let pkaxHue self = msg_send ~self ~cmd:(selector "pkaxHue") ~typ:(returning (double)) -let pkaxHueName self = msg_send ~self ~cmd:(selector "pkaxHueName") ~typ:(returning (id)) -let pkaxLightnessModifier self = msg_send ~self ~cmd:(selector "pkaxLightnessModifier") ~typ:(returning (id)) -let pkaxLuma self = msg_send ~self ~cmd:(selector "pkaxLuma") ~typ:(returning (double)) -let pkaxSaturation self = msg_send ~self ~cmd:(selector "pkaxSaturation") ~typ:(returning (double)) -let pkaxSaturationModifier self = msg_send ~self ~cmd:(selector "pkaxSaturationModifier") ~typ:(returning (id)) -let resolvedColorWithTraitCollection x self = msg_send ~self ~cmd:(selector "resolvedColorWithTraitCollection:") ~typ:(id @-> returning (id)) x -let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning (void)) -let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning (void)) -let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning (void)) -let styleString self = msg_send ~self ~cmd:(selector "styleString") ~typ:(returning (id)) -let writableTypeIdentifiersForItemProvider self = msg_send ~self ~cmd:(selector "writableTypeIdentifiersForItemProvider") ~typ:(returning (id)) \ No newline at end of file +let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr CGColor.t)) +let _CIColor self = msg_send ~self ~cmd:(selector "CIColor") ~typ:(returning id) +let accessibilityName self = msg_send ~self ~cmd:(selector "accessibilityName") ~typ:(returning id) +let akAlphaComponent self = msg_send ~self ~cmd:(selector "akAlphaComponent") ~typ:(returning double) +let akBlendedColorWithFraction x ~ofColor self = msg_send ~self ~cmd:(selector "akBlendedColorWithFraction:ofColor:") ~typ:(double @-> id @-> returning id) x ofColor +let akDistanceFromColor x self = msg_send ~self ~cmd:(selector "akDistanceFromColor:") ~typ:(id @-> returning double) x +let akHasHueEqualToColor x ~withTolerance self = msg_send ~self ~cmd:(selector "akHasHueEqualToColor:withTolerance:") ~typ:(id @-> double @-> returning bool) x withTolerance +let akIsEqualToColor x self = msg_send ~self ~cmd:(selector "akIsEqualToColor:") ~typ:(id @-> returning bool) x +let alphaComponent self = msg_send ~self ~cmd:(selector "alphaComponent") ~typ:(returning double) +let cgColor self = msg_send ~self ~cmd:(selector "cgColor") ~typ:(returning (ptr CGColor.t)) +let classForCoder self = msg_send ~self ~cmd:(selector "classForCoder") ~typ:(returning _Class) +let colorSpaceName self = msg_send ~self ~cmd:(selector "colorSpaceName") ~typ:(returning id) +let colorUsingSRGBColorSpace self = msg_send ~self ~cmd:(selector "colorUsingSRGBColorSpace") ~typ:(returning id) +let colorWithAlphaComponent x self = msg_send ~self ~cmd:(selector "colorWithAlphaComponent:") ~typ:(double @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let getHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "getHue:saturation:brightness:alpha:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> (ptr double) @-> returning bool) x saturation brightness alpha +let getL x ~a ~b self = msg_send ~self ~cmd:(selector "getL:a:b:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> returning void) x a b +let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> (ptr double) @-> returning bool) x green blue alpha +let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:((ptr double) @-> (ptr double) @-> returning bool) x alpha +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithCGColor x self = msg_send ~self ~cmd:(selector "initWithCGColor:") ~typ:((ptr CGColor.t) @-> returning id) x +let initWithCIColor x self = msg_send ~self ~cmd:(selector "initWithCIColor:") ~typ:(id @-> returning id) x +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithDisplayP3Red x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "initWithDisplayP3Red:green:blue:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning id) x green blue alpha +let initWithDynamicProvider x self = msg_send ~self ~cmd:(selector "initWithDynamicProvider:") ~typ:((ptr void) @-> returning id) x +let initWithHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "initWithHue:saturation:brightness:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning id) x saturation brightness alpha +let initWithItemProviderData x ~typeIdentifier ~error self = msg_send ~self ~cmd:(selector "initWithItemProviderData:typeIdentifier:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x typeIdentifier error +let initWithPatternImage x self = msg_send ~self ~cmd:(selector "initWithPatternImage:") ~typ:(id @-> returning id) x +let initWithRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "initWithRed:green:blue:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning id) x green blue alpha +let initWithWhite x ~alpha self = msg_send ~self ~cmd:(selector "initWithWhite:alpha:") ~typ:(double @-> double @-> returning id) x alpha +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isPatternColor self = msg_send ~self ~cmd:(selector "isPatternColor") ~typ:(returning bool) +let loadDataWithTypeIdentifier x ~forItemProviderCompletionHandler self = msg_send ~self ~cmd:(selector "loadDataWithTypeIdentifier:forItemProviderCompletionHandler:") ~typ:(id @-> (ptr void) @-> returning id) x forItemProviderCompletionHandler +let pkaxApproximateColorDescription self = msg_send ~self ~cmd:(selector "pkaxApproximateColorDescription") ~typ:(returning id) +let pkaxDescriptionWithLuma self = msg_send ~self ~cmd:(selector "pkaxDescriptionWithLuma") ~typ:(returning id) +let pkaxHue self = msg_send ~self ~cmd:(selector "pkaxHue") ~typ:(returning double) +let pkaxHueName self = msg_send ~self ~cmd:(selector "pkaxHueName") ~typ:(returning id) +let pkaxLightnessModifier self = msg_send ~self ~cmd:(selector "pkaxLightnessModifier") ~typ:(returning id) +let pkaxLuma self = msg_send ~self ~cmd:(selector "pkaxLuma") ~typ:(returning double) +let pkaxSaturation self = msg_send ~self ~cmd:(selector "pkaxSaturation") ~typ:(returning double) +let pkaxSaturationModifier self = msg_send ~self ~cmd:(selector "pkaxSaturationModifier") ~typ:(returning id) +let resolvedColorWithTraitCollection x self = msg_send ~self ~cmd:(selector "resolvedColorWithTraitCollection:") ~typ:(id @-> returning id) x +let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning void) +let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning void) +let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning void) +let styleString self = msg_send ~self ~cmd:(selector "styleString") ~typ:(returning id) +let writableTypeIdentifiersForItemProvider self = msg_send ~self ~cmd:(selector "writableTypeIdentifiersForItemProvider") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIColorClass.ml b/uikit/UIColorClass.ml new file mode 100644 index 00000000..e377e182 --- /dev/null +++ b/uikit/UIColorClass.ml @@ -0,0 +1,203 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicolor?language=objc}UIColor} *) + +let akBoxBorderColor self = msg_send ~self ~cmd:(selector "akBoxBorderColor") ~typ:(returning id) +let akBubbleFillColor self = msg_send ~self ~cmd:(selector "akBubbleFillColor") ~typ:(returning id) +let akButtonHoverStateColor self = msg_send ~self ~cmd:(selector "akButtonHoverStateColor") ~typ:(returning id) +let akColorPickerBlue self = msg_send ~self ~cmd:(selector "akColorPickerBlue") ~typ:(returning id) +let akColorPickerGreen self = msg_send ~self ~cmd:(selector "akColorPickerGreen") ~typ:(returning id) +let akColorPickerOrange self = msg_send ~self ~cmd:(selector "akColorPickerOrange") ~typ:(returning id) +let akColorPickerPurple self = msg_send ~self ~cmd:(selector "akColorPickerPurple") ~typ:(returning id) +let akColorPickerRed self = msg_send ~self ~cmd:(selector "akColorPickerRed") ~typ:(returning id) +let akColorPickerYellow self = msg_send ~self ~cmd:(selector "akColorPickerYellow") ~typ:(returning id) +let akColorWithCIColor x self = msg_send ~self ~cmd:(selector "akColorWithCIColor:") ~typ:(id @-> returning id) x +let akColorWithSRGBRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "akColorWithSRGBRed:green:blue:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning id) x green blue alpha +let akColorWithWhite x ~alpha self = msg_send ~self ~cmd:(selector "akColorWithWhite:alpha:") ~typ:(double @-> double @-> returning id) x alpha +let akRowSeparatorColor self = msg_send ~self ~cmd:(selector "akRowSeparatorColor") ~typ:(returning id) +let akSystemBlueColor self = msg_send ~self ~cmd:(selector "akSystemBlueColor") ~typ:(returning id) +let akSystemGreenColor self = msg_send ~self ~cmd:(selector "akSystemGreenColor") ~typ:(returning id) +let akSystemPinkColor self = msg_send ~self ~cmd:(selector "akSystemPinkColor") ~typ:(returning id) +let akSystemPurpleColor self = msg_send ~self ~cmd:(selector "akSystemPurpleColor") ~typ:(returning id) +let akSystemRedColor self = msg_send ~self ~cmd:(selector "akSystemRedColor") ~typ:(returning id) +let akSystemYellowColor self = msg_send ~self ~cmd:(selector "akSystemYellowColor") ~typ:(returning id) +let blackColor self = msg_send ~self ~cmd:(selector "blackColor") ~typ:(returning id) +let blueColor self = msg_send ~self ~cmd:(selector "blueColor") ~typ:(returning id) +let brownColor self = msg_send ~self ~cmd:(selector "brownColor") ~typ:(returning id) +let classFallbacksForKeyedArchiver self = msg_send ~self ~cmd:(selector "classFallbacksForKeyedArchiver") ~typ:(returning id) +let clearColor self = msg_send ~self ~cmd:(selector "clearColor") ~typ:(returning id) +let colorNamed x self = msg_send ~self ~cmd:(selector "colorNamed:") ~typ:(id @-> returning id) x +let colorNamed' x ~inBundle ~compatibleWithTraitCollection self = msg_send ~self ~cmd:(selector "colorNamed:inBundle:compatibleWithTraitCollection:") ~typ:(id @-> id @-> id @-> returning id) x inBundle compatibleWithTraitCollection +let colorWithCGColor x self = msg_send ~self ~cmd:(selector "colorWithCGColor:") ~typ:((ptr CGColor.t) @-> returning id) x +let colorWithCIColor x self = msg_send ~self ~cmd:(selector "colorWithCIColor:") ~typ:(id @-> returning id) x +let colorWithDisplayP3Red x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "colorWithDisplayP3Red:green:blue:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning id) x green blue alpha +let colorWithDynamicProvider x self = msg_send ~self ~cmd:(selector "colorWithDynamicProvider:") ~typ:((ptr void) @-> returning id) x +let colorWithHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "colorWithHue:saturation:brightness:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning id) x saturation brightness alpha +let colorWithITColor x self = msg_send ~self ~cmd:(selector "colorWithITColor:") ~typ:(ptr void @-> returning id) x +let colorWithPatternImage x self = msg_send ~self ~cmd:(selector "colorWithPatternImage:") ~typ:(id @-> returning id) x +let colorWithRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "colorWithRed:green:blue:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning id) x green blue alpha +let colorWithWhite x ~alpha self = msg_send ~self ~cmd:(selector "colorWithWhite:alpha:") ~typ:(double @-> double @-> returning id) x alpha +let cyanColor self = msg_send ~self ~cmd:(selector "cyanColor") ~typ:(returning id) +let darkDisabledSelectionHighlightColor self = msg_send ~self ~cmd:(selector "darkDisabledSelectionHighlightColor") ~typ:(returning id) +let darkGrayColor self = msg_send ~self ~cmd:(selector "darkGrayColor") ~typ:(returning id) +let darkInactiveSidebarBackgroundColor self = msg_send ~self ~cmd:(selector "darkInactiveSidebarBackgroundColor") ~typ:(returning id) +let darkInactiveSidebarHighlightColor self = msg_send ~self ~cmd:(selector "darkInactiveSidebarHighlightColor") ~typ:(returning id) +let darkInsertionPointColor self = msg_send ~self ~cmd:(selector "darkInsertionPointColor") ~typ:(returning id) +let darkOpaqueDisabledSelectionHighlightColor self = msg_send ~self ~cmd:(selector "darkOpaqueDisabledSelectionHighlightColor") ~typ:(returning id) +let darkOpaqueSelectionHighlightColor self = msg_send ~self ~cmd:(selector "darkOpaqueSelectionHighlightColor") ~typ:(returning id) +let darkSelectionHighlightColor self = msg_send ~self ~cmd:(selector "darkSelectionHighlightColor") ~typ:(returning id) +let darkSelectionMaterialTintColor self = msg_send ~self ~cmd:(selector "darkSelectionMaterialTintColor") ~typ:(returning id) +let darkTableHighlightColor self = msg_send ~self ~cmd:(selector "darkTableHighlightColor") ~typ:(returning id) +let darkTextColor self = msg_send ~self ~cmd:(selector "darkTextColor") ~typ:(returning id) +let disabledSelectionHighlightColor self = msg_send ~self ~cmd:(selector "disabledSelectionHighlightColor") ~typ:(returning id) +let externalSystemGreenColor self = msg_send ~self ~cmd:(selector "externalSystemGreenColor") ~typ:(returning id) +let externalSystemRedColor self = msg_send ~self ~cmd:(selector "externalSystemRedColor") ~typ:(returning id) +let externalSystemTealColor self = msg_send ~self ~cmd:(selector "externalSystemTealColor") ~typ:(returning id) +let grayColor self = msg_send ~self ~cmd:(selector "grayColor") ~typ:(returning id) +let greenColor self = msg_send ~self ~cmd:(selector "greenColor") ~typ:(returning id) +let groupTableViewBackgroundColor self = msg_send ~self ~cmd:(selector "groupTableViewBackgroundColor") ~typ:(returning id) +let inactiveSidebarBackgroundColor self = msg_send ~self ~cmd:(selector "inactiveSidebarBackgroundColor") ~typ:(returning id) +let inactiveSidebarHighlightColor self = msg_send ~self ~cmd:(selector "inactiveSidebarHighlightColor") ~typ:(returning id) +let infoTextOverPinStripeTextColor self = msg_send ~self ~cmd:(selector "infoTextOverPinStripeTextColor") ~typ:(returning id) +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) +let insertionPointColor self = msg_send ~self ~cmd:(selector "insertionPointColor") ~typ:(returning id) +let keyboardFocusIndicatorColor self = msg_send ~self ~cmd:(selector "keyboardFocusIndicatorColor") ~typ:(returning id) +let labelColor self = msg_send ~self ~cmd:(selector "labelColor") ~typ:(returning id) +let lightGrayColor self = msg_send ~self ~cmd:(selector "lightGrayColor") ~typ:(returning id) +let lightTextColor self = msg_send ~self ~cmd:(selector "lightTextColor") ~typ:(returning id) +let linkColor self = msg_send ~self ~cmd:(selector "linkColor") ~typ:(returning id) +let magentaColor self = msg_send ~self ~cmd:(selector "magentaColor") ~typ:(returning id) +let noContentDarkGradientBackgroundColor self = msg_send ~self ~cmd:(selector "noContentDarkGradientBackgroundColor") ~typ:(returning id) +let noContentLightGradientBackgroundColor self = msg_send ~self ~cmd:(selector "noContentLightGradientBackgroundColor") ~typ:(returning id) +let objectWithItemProviderData x ~typeIdentifier ~error self = msg_send ~self ~cmd:(selector "objectWithItemProviderData:typeIdentifier:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x typeIdentifier error +let opaqueDisabledSelectionHighlightColor self = msg_send ~self ~cmd:(selector "opaqueDisabledSelectionHighlightColor") ~typ:(returning id) +let opaqueSelectionHighlightColor self = msg_send ~self ~cmd:(selector "opaqueSelectionHighlightColor") ~typ:(returning id) +let opaqueSeparatorColor self = msg_send ~self ~cmd:(selector "opaqueSeparatorColor") ~typ:(returning id) +let orangeColor self = msg_send ~self ~cmd:(selector "orangeColor") ~typ:(returning id) +let pinStripeColor self = msg_send ~self ~cmd:(selector "pinStripeColor") ~typ:(returning id) +let pkaxHueNameForValue x self = msg_send ~self ~cmd:(selector "pkaxHueNameForValue:") ~typ:(double @-> returning id) x +let placeholderTextColor self = msg_send ~self ~cmd:(selector "placeholderTextColor") ~typ:(returning id) +let purpleColor self = msg_send ~self ~cmd:(selector "purpleColor") ~typ:(returning id) +let quaternaryLabelColor self = msg_send ~self ~cmd:(selector "quaternaryLabelColor") ~typ:(returning id) +let quaternarySystemFillColor self = msg_send ~self ~cmd:(selector "quaternarySystemFillColor") ~typ:(returning id) +let readableTypeIdentifiersForItemProvider self = msg_send ~self ~cmd:(selector "readableTypeIdentifiersForItemProvider") ~typ:(returning id) +let redColor self = msg_send ~self ~cmd:(selector "redColor") ~typ:(returning id) +let scrollViewTexturedBackgroundColor self = msg_send ~self ~cmd:(selector "scrollViewTexturedBackgroundColor") ~typ:(returning id) +let secondaryLabelColor self = msg_send ~self ~cmd:(selector "secondaryLabelColor") ~typ:(returning id) +let secondarySystemBackgroundColor self = msg_send ~self ~cmd:(selector "secondarySystemBackgroundColor") ~typ:(returning id) +let secondarySystemFillColor self = msg_send ~self ~cmd:(selector "secondarySystemFillColor") ~typ:(returning id) +let secondarySystemGroupedBackgroundColor self = msg_send ~self ~cmd:(selector "secondarySystemGroupedBackgroundColor") ~typ:(returning id) +let sectionHeaderBackgroundColor self = msg_send ~self ~cmd:(selector "sectionHeaderBackgroundColor") ~typ:(returning id) +let sectionHeaderBorderColor self = msg_send ~self ~cmd:(selector "sectionHeaderBorderColor") ~typ:(returning id) +let sectionHeaderOpaqueBackgroundColor self = msg_send ~self ~cmd:(selector "sectionHeaderOpaqueBackgroundColor") ~typ:(returning id) +let sectionListBorderColor self = msg_send ~self ~cmd:(selector "sectionListBorderColor") ~typ:(returning id) +let selectionGrabberColor self = msg_send ~self ~cmd:(selector "selectionGrabberColor") ~typ:(returning id) +let selectionHighlightColor self = msg_send ~self ~cmd:(selector "selectionHighlightColor") ~typ:(returning id) +let selectionMaterialTintColor self = msg_send ~self ~cmd:(selector "selectionMaterialTintColor") ~typ:(returning id) +let separatorColor self = msg_send ~self ~cmd:(selector "separatorColor") ~typ:(returning id) +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) +let systemBackgroundColor self = msg_send ~self ~cmd:(selector "systemBackgroundColor") ~typ:(returning id) +let systemBlackColor self = msg_send ~self ~cmd:(selector "systemBlackColor") ~typ:(returning id) +let systemBlueColor self = msg_send ~self ~cmd:(selector "systemBlueColor") ~typ:(returning id) +let systemBrownColor self = msg_send ~self ~cmd:(selector "systemBrownColor") ~typ:(returning id) +let systemCyanColor self = msg_send ~self ~cmd:(selector "systemCyanColor") ~typ:(returning id) +let systemDarkBlueColor self = msg_send ~self ~cmd:(selector "systemDarkBlueColor") ~typ:(returning id) +let systemDarkExtraLightGrayColor self = msg_send ~self ~cmd:(selector "systemDarkExtraLightGrayColor") ~typ:(returning id) +let systemDarkExtraLightGrayTintColor self = msg_send ~self ~cmd:(selector "systemDarkExtraLightGrayTintColor") ~typ:(returning id) +let systemDarkGrayColor self = msg_send ~self ~cmd:(selector "systemDarkGrayColor") ~typ:(returning id) +let systemDarkGrayTintColor self = msg_send ~self ~cmd:(selector "systemDarkGrayTintColor") ~typ:(returning id) +let systemDarkGreenColor self = msg_send ~self ~cmd:(selector "systemDarkGreenColor") ~typ:(returning id) +let systemDarkLightGrayColor self = msg_send ~self ~cmd:(selector "systemDarkLightGrayColor") ~typ:(returning id) +let systemDarkLightGrayTintColor self = msg_send ~self ~cmd:(selector "systemDarkLightGrayTintColor") ~typ:(returning id) +let systemDarkLightMidGrayColor self = msg_send ~self ~cmd:(selector "systemDarkLightMidGrayColor") ~typ:(returning id) +let systemDarkLightMidGrayTintColor self = msg_send ~self ~cmd:(selector "systemDarkLightMidGrayTintColor") ~typ:(returning id) +let systemDarkMidGrayColor self = msg_send ~self ~cmd:(selector "systemDarkMidGrayColor") ~typ:(returning id) +let systemDarkMidGrayTintColor self = msg_send ~self ~cmd:(selector "systemDarkMidGrayTintColor") ~typ:(returning id) +let systemDarkOrangeColor self = msg_send ~self ~cmd:(selector "systemDarkOrangeColor") ~typ:(returning id) +let systemDarkPinkColor self = msg_send ~self ~cmd:(selector "systemDarkPinkColor") ~typ:(returning id) +let systemDarkPurpleColor self = msg_send ~self ~cmd:(selector "systemDarkPurpleColor") ~typ:(returning id) +let systemDarkRedColor self = msg_send ~self ~cmd:(selector "systemDarkRedColor") ~typ:(returning id) +let systemDarkTealColor self = msg_send ~self ~cmd:(selector "systemDarkTealColor") ~typ:(returning id) +let systemDarkUserInterfaceStyleDarkPrimaryTextColor self = msg_send ~self ~cmd:(selector "systemDarkUserInterfaceStyleDarkPrimaryTextColor") ~typ:(returning id) +let systemDarkUserInterfaceStyleDarkSecondaryTextColor self = msg_send ~self ~cmd:(selector "systemDarkUserInterfaceStyleDarkSecondaryTextColor") ~typ:(returning id) +let systemDarkYellowColor self = msg_send ~self ~cmd:(selector "systemDarkYellowColor") ~typ:(returning id) +let systemExtraLightGrayColor self = msg_send ~self ~cmd:(selector "systemExtraLightGrayColor") ~typ:(returning id) +let systemExtraLightGrayTintColor self = msg_send ~self ~cmd:(selector "systemExtraLightGrayTintColor") ~typ:(returning id) +let systemFillColor self = msg_send ~self ~cmd:(selector "systemFillColor") ~typ:(returning id) +let systemGray2Color self = msg_send ~self ~cmd:(selector "systemGray2Color") ~typ:(returning id) +let systemGray3Color self = msg_send ~self ~cmd:(selector "systemGray3Color") ~typ:(returning id) +let systemGray4Color self = msg_send ~self ~cmd:(selector "systemGray4Color") ~typ:(returning id) +let systemGray5Color self = msg_send ~self ~cmd:(selector "systemGray5Color") ~typ:(returning id) +let systemGray6Color self = msg_send ~self ~cmd:(selector "systemGray6Color") ~typ:(returning id) +let systemGrayColor self = msg_send ~self ~cmd:(selector "systemGrayColor") ~typ:(returning id) +let systemGrayTintColor self = msg_send ~self ~cmd:(selector "systemGrayTintColor") ~typ:(returning id) +let systemGreenColor self = msg_send ~self ~cmd:(selector "systemGreenColor") ~typ:(returning id) +let systemGroupedBackgroundColor self = msg_send ~self ~cmd:(selector "systemGroupedBackgroundColor") ~typ:(returning id) +let systemIndigoColor self = msg_send ~self ~cmd:(selector "systemIndigoColor") ~typ:(returning id) +let systemLightGrayColor self = msg_send ~self ~cmd:(selector "systemLightGrayColor") ~typ:(returning id) +let systemLightGrayTintColor self = msg_send ~self ~cmd:(selector "systemLightGrayTintColor") ~typ:(returning id) +let systemLightMidGrayColor self = msg_send ~self ~cmd:(selector "systemLightMidGrayColor") ~typ:(returning id) +let systemLightMidGrayTintColor self = msg_send ~self ~cmd:(selector "systemLightMidGrayTintColor") ~typ:(returning id) +let systemMidGrayColor self = msg_send ~self ~cmd:(selector "systemMidGrayColor") ~typ:(returning id) +let systemMidGrayTintColor self = msg_send ~self ~cmd:(selector "systemMidGrayTintColor") ~typ:(returning id) +let systemMintColor self = msg_send ~self ~cmd:(selector "systemMintColor") ~typ:(returning id) +let systemOrangeColor self = msg_send ~self ~cmd:(selector "systemOrangeColor") ~typ:(returning id) +let systemPinkColor self = msg_send ~self ~cmd:(selector "systemPinkColor") ~typ:(returning id) +let systemPurpleColor self = msg_send ~self ~cmd:(selector "systemPurpleColor") ~typ:(returning id) +let systemRedColor self = msg_send ~self ~cmd:(selector "systemRedColor") ~typ:(returning id) +let systemTealColor self = msg_send ~self ~cmd:(selector "systemTealColor") ~typ:(returning id) +let systemUserInterfaceStyleDarkPrimaryTextColor self = msg_send ~self ~cmd:(selector "systemUserInterfaceStyleDarkPrimaryTextColor") ~typ:(returning id) +let systemUserInterfaceStyleDarkSecondaryTextColor self = msg_send ~self ~cmd:(selector "systemUserInterfaceStyleDarkSecondaryTextColor") ~typ:(returning id) +let systemWhiteColor self = msg_send ~self ~cmd:(selector "systemWhiteColor") ~typ:(returning id) +let systemYellowColor self = msg_send ~self ~cmd:(selector "systemYellowColor") ~typ:(returning id) +let tableBackgroundColor self = msg_send ~self ~cmd:(selector "tableBackgroundColor") ~typ:(returning id) +let tableCellBackgroundColor self = msg_send ~self ~cmd:(selector "tableCellBackgroundColor") ~typ:(returning id) +let tableCellBlueTextColor self = msg_send ~self ~cmd:(selector "tableCellBlueTextColor") ~typ:(returning id) +let tableCellDefaultSelectionTintColor self = msg_send ~self ~cmd:(selector "tableCellDefaultSelectionTintColor") ~typ:(returning id) +let tableCellDisabledBackgroundColor self = msg_send ~self ~cmd:(selector "tableCellDisabledBackgroundColor") ~typ:(returning id) +let tableCellFocusedBackgroundColor self = msg_send ~self ~cmd:(selector "tableCellFocusedBackgroundColor") ~typ:(returning id) +let tableCellGrayTextColor self = msg_send ~self ~cmd:(selector "tableCellGrayTextColor") ~typ:(returning id) +let tableCellGroupedBackgroundColor self = msg_send ~self ~cmd:(selector "tableCellGroupedBackgroundColor") ~typ:(returning id) +let tableCellGroupedBackgroundColorLegacyWhite self = msg_send ~self ~cmd:(selector "tableCellGroupedBackgroundColorLegacyWhite") ~typ:(returning id) +let tableCellGroupedSelectedBackgroundColor self = msg_send ~self ~cmd:(selector "tableCellGroupedSelectedBackgroundColor") ~typ:(returning id) +let tableCellHighlightedBackgroundColor self = msg_send ~self ~cmd:(selector "tableCellHighlightedBackgroundColor") ~typ:(returning id) +let tableCellPlainBackgroundColor self = msg_send ~self ~cmd:(selector "tableCellPlainBackgroundColor") ~typ:(returning id) +let tableCellPlainSelectedBackgroundColor self = msg_send ~self ~cmd:(selector "tableCellPlainSelectedBackgroundColor") ~typ:(returning id) +let tableCellValue1BlueColor self = msg_send ~self ~cmd:(selector "tableCellValue1BlueColor") ~typ:(returning id) +let tableCellValue2BlueColor self = msg_send ~self ~cmd:(selector "tableCellValue2BlueColor") ~typ:(returning id) +let tableCellbackgroundColorCarPlay self = msg_send ~self ~cmd:(selector "tableCellbackgroundColorCarPlay") ~typ:(returning id) +let tableGroupedSeparatorLightColor self = msg_send ~self ~cmd:(selector "tableGroupedSeparatorLightColor") ~typ:(returning id) +let tableGroupedTopShadowColor self = msg_send ~self ~cmd:(selector "tableGroupedTopShadowColor") ~typ:(returning id) +let tableHighlightColor self = msg_send ~self ~cmd:(selector "tableHighlightColor") ~typ:(returning id) +let tablePlainHeaderFooterBackgroundColor self = msg_send ~self ~cmd:(selector "tablePlainHeaderFooterBackgroundColor") ~typ:(returning id) +let tablePlainHeaderFooterFloatingBackgroundColor self = msg_send ~self ~cmd:(selector "tablePlainHeaderFooterFloatingBackgroundColor") ~typ:(returning id) +let tableSelectionColor self = msg_send ~self ~cmd:(selector "tableSelectionColor") ~typ:(returning id) +let tableSelectionGradientEndColor self = msg_send ~self ~cmd:(selector "tableSelectionGradientEndColor") ~typ:(returning id) +let tableSelectionGradientStartColor self = msg_send ~self ~cmd:(selector "tableSelectionGradientStartColor") ~typ:(returning id) +let tableSeparatorColor self = msg_send ~self ~cmd:(selector "tableSeparatorColor") ~typ:(returning id) +let tableSeparatorDarkColor self = msg_send ~self ~cmd:(selector "tableSeparatorDarkColor") ~typ:(returning id) +let tableSeparatorLightColor self = msg_send ~self ~cmd:(selector "tableSeparatorLightColor") ~typ:(returning id) +let tableShadowColor self = msg_send ~self ~cmd:(selector "tableShadowColor") ~typ:(returning id) +let tertiaryLabelColor self = msg_send ~self ~cmd:(selector "tertiaryLabelColor") ~typ:(returning id) +let tertiarySystemBackgroundColor self = msg_send ~self ~cmd:(selector "tertiarySystemBackgroundColor") ~typ:(returning id) +let tertiarySystemFillColor self = msg_send ~self ~cmd:(selector "tertiarySystemFillColor") ~typ:(returning id) +let tertiarySystemGroupedBackgroundColor self = msg_send ~self ~cmd:(selector "tertiarySystemGroupedBackgroundColor") ~typ:(returning id) +let textCorrectionIndicatorColorSR self = msg_send ~self ~cmd:(selector "textCorrectionIndicatorColorSR") ~typ:(returning id) +let textFieldAtomBlueColor self = msg_send ~self ~cmd:(selector "textFieldAtomBlueColor") ~typ:(returning id) +let textFieldAtomPurpleColor self = msg_send ~self ~cmd:(selector "textFieldAtomPurpleColor") ~typ:(returning id) +let textGrammarIndicatorColor self = msg_send ~self ~cmd:(selector "textGrammarIndicatorColor") ~typ:(returning id) +let textSpellingIndicatorColor self = msg_send ~self ~cmd:(selector "textSpellingIndicatorColor") ~typ:(returning id) +let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning id) +let underPageBackgroundColor self = msg_send ~self ~cmd:(selector "underPageBackgroundColor") ~typ:(returning id) +let viewFlipsideBackgroundColor self = msg_send ~self ~cmd:(selector "viewFlipsideBackgroundColor") ~typ:(returning id) +let whiteColor self = msg_send ~self ~cmd:(selector "whiteColor") ~typ:(returning id) +let writableTypeIdentifiersForItemProvider self = msg_send ~self ~cmd:(selector "writableTypeIdentifiersForItemProvider") ~typ:(returning id) +let yellowColor self = msg_send ~self ~cmd:(selector "yellowColor") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIColorEffect.ml b/uikit/UIColorEffect.ml index b741908a..2242952a 100644 --- a/uikit/UIColorEffect.ml +++ b/uikit/UIColorEffect.ml @@ -5,30 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIColorEffect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicoloreffect?language=objc}UIColorEffect} *) -module C = struct - let colorEffectAdd x self = msg_send ~self ~cmd:(selector "colorEffectAdd:") ~typ:(id @-> returning (id)) x - let colorEffectBrightness x self = msg_send ~self ~cmd:(selector "colorEffectBrightness:") ~typ:(double @-> returning (id)) x - let colorEffectColor x self = msg_send ~self ~cmd:(selector "colorEffectColor:") ~typ:(id @-> returning (id)) x - let colorEffectContrast x self = msg_send ~self ~cmd:(selector "colorEffectContrast:") ~typ:(double @-> returning (id)) x - let colorEffectCurvesRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "colorEffectCurvesRed:green:blue:alpha:") ~typ:(id @-> id @-> id @-> id @-> returning (id)) x green blue alpha - let colorEffectInvert self = msg_send ~self ~cmd:(selector "colorEffectInvert") ~typ:(returning (id)) - let colorEffectLuminanceCurveMap x ~blendingAmount self = msg_send ~self ~cmd:(selector "colorEffectLuminanceCurveMap:blendingAmount:") ~typ:(id @-> double @-> returning (id)) x blendingAmount - let colorEffectLuminanceMap x ~blendingAmount self = msg_send ~self ~cmd:(selector "colorEffectLuminanceMap:blendingAmount:") ~typ:(id @-> double @-> returning (id)) x blendingAmount - let colorEffectMatrix x self = msg_send ~self ~cmd:(selector "colorEffectMatrix:") ~typ:(ptr void @-> returning (id)) x - let colorEffectMonochromeTint x ~blendingAmount ~brightnessAdjustment self = msg_send ~self ~cmd:(selector "colorEffectMonochromeTint:blendingAmount:brightnessAdjustment:") ~typ:(id @-> double @-> double @-> returning (id)) x blendingAmount brightnessAdjustment - let colorEffectMultiply x self = msg_send ~self ~cmd:(selector "colorEffectMultiply:") ~typ:(id @-> returning (id)) x - let colorEffectSaturate x self = msg_send ~self ~cmd:(selector "colorEffectSaturate:") ~typ:(double @-> returning (id)) x - let colorEffectSubtract x self = msg_send ~self ~cmd:(selector "colorEffectSubtract:") ~typ:(id @-> returning (id)) x - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIColorEffect" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIColorEffectClass.ml b/uikit/UIColorEffectClass.ml new file mode 100644 index 00000000..327037c3 --- /dev/null +++ b/uikit/UIColorEffectClass.ml @@ -0,0 +1,26 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicoloreffect?language=objc}UIColorEffect} *) + +let colorEffectAdd x self = msg_send ~self ~cmd:(selector "colorEffectAdd:") ~typ:(id @-> returning id) x +let colorEffectBrightness x self = msg_send ~self ~cmd:(selector "colorEffectBrightness:") ~typ:(double @-> returning id) x +let colorEffectColor x self = msg_send ~self ~cmd:(selector "colorEffectColor:") ~typ:(id @-> returning id) x +let colorEffectContrast x self = msg_send ~self ~cmd:(selector "colorEffectContrast:") ~typ:(double @-> returning id) x +let colorEffectCurvesRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "colorEffectCurvesRed:green:blue:alpha:") ~typ:(id @-> id @-> id @-> id @-> returning id) x green blue alpha +let colorEffectInvert self = msg_send ~self ~cmd:(selector "colorEffectInvert") ~typ:(returning id) +let colorEffectLuminanceCurveMap x ~blendingAmount self = msg_send ~self ~cmd:(selector "colorEffectLuminanceCurveMap:blendingAmount:") ~typ:(id @-> double @-> returning id) x blendingAmount +let colorEffectLuminanceMap x ~blendingAmount self = msg_send ~self ~cmd:(selector "colorEffectLuminanceMap:blendingAmount:") ~typ:(id @-> double @-> returning id) x blendingAmount +let colorEffectMatrix x self = msg_send ~self ~cmd:(selector "colorEffectMatrix:") ~typ:(void @-> returning id) x +let colorEffectMonochromeTint x ~blendingAmount ~brightnessAdjustment self = msg_send ~self ~cmd:(selector "colorEffectMonochromeTint:blendingAmount:brightnessAdjustment:") ~typ:(id @-> double @-> double @-> returning id) x blendingAmount brightnessAdjustment +let colorEffectMultiply x self = msg_send ~self ~cmd:(selector "colorEffectMultiply:") ~typ:(id @-> returning id) x +let colorEffectSaturate x self = msg_send ~self ~cmd:(selector "colorEffectSaturate:") ~typ:(double @-> returning id) x +let colorEffectSubtract x self = msg_send ~self ~cmd:(selector "colorEffectSubtract:") ~typ:(id @-> returning id) x +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIColorPickerViewController.ml b/uikit/UIColorPickerViewController.ml index 4431076d..369eb621 100644 --- a/uikit/UIColorPickerViewController.ml +++ b/uikit/UIColorPickerViewController.ml @@ -5,43 +5,43 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIColorPickerViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicolorpickerviewcontroller?language=objc}UIColorPickerViewController} *) -module C = struct - let automaticallyNotifiesObserversOfSelectedColor self = msg_send ~self ~cmd:(selector "automaticallyNotifiesObserversOfSelectedColor") ~typ:(returning (bool)) -end +let self = get_class "UIColorPickerViewController" -let bottomConstraint self = msg_send ~self ~cmd:(selector "bottomConstraint") ~typ:(returning (id)) -let colorQueue self = msg_send ~self ~cmd:(selector "colorQueue") ~typ:(returning (id)) -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didMoveToParentViewController x self = msg_send ~self ~cmd:(selector "didMoveToParentViewController:") ~typ:(id @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let extension self = msg_send ~self ~cmd:(selector "extension") ~typ:(returning (id)) -let extensionRequestIdentifier self = msg_send ~self ~cmd:(selector "extensionRequestIdentifier") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithConfiguration x self = msg_send ~self ~cmd:(selector "initWithConfiguration:") ~typ:(id @-> returning (id)) x -let keyboardDidHide x self = msg_send ~self ~cmd:(selector "keyboardDidHide:") ~typ:(id @-> returning (void)) x -let keyboardFrameDidChange x self = msg_send ~self ~cmd:(selector "keyboardFrameDidChange:") ~typ:(id @-> returning (void)) x -let keyboardWillHide x self = msg_send ~self ~cmd:(selector "keyboardWillHide:") ~typ:(id @-> returning (void)) x -let keyboardWillShow x self = msg_send ~self ~cmd:(selector "keyboardWillShow:") ~typ:(id @-> returning (void)) x -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning (void)) x -let remoteViewController self = msg_send ~self ~cmd:(selector "remoteViewController") ~typ:(returning (id)) -let repositionChildViewControllerAnimated x self = msg_send ~self ~cmd:(selector "repositionChildViewControllerAnimated:") ~typ:(bool @-> returning (void)) x -let selectedColor self = msg_send ~self ~cmd:(selector "selectedColor") ~typ:(returning (id)) -let setBottomConstraint x self = msg_send ~self ~cmd:(selector "setBottomConstraint:") ~typ:(id @-> returning (void)) x -let setColorQueue x self = msg_send ~self ~cmd:(selector "setColorQueue:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setExtension x self = msg_send ~self ~cmd:(selector "setExtension:") ~typ:(id @-> returning (void)) x -let setExtensionRequestIdentifier x self = msg_send ~self ~cmd:(selector "setExtensionRequestIdentifier:") ~typ:(id @-> returning (void)) x -let setSelectedColor x self = msg_send ~self ~cmd:(selector "setSelectedColor:") ~typ:(id @-> returning (void)) x -let setSupportsAlpha x self = msg_send ~self ~cmd:(selector "setSupportsAlpha:") ~typ:(bool @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let supportsAlpha self = msg_send ~self ~cmd:(selector "supportsAlpha") ~typ:(returning (bool)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning (void)) x withTransitionCoordinator -let willMoveToParentViewController x self = msg_send ~self ~cmd:(selector "willMoveToParentViewController:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let bottomConstraint self = msg_send ~self ~cmd:(selector "bottomConstraint") ~typ:(returning id) +let colorQueue self = msg_send ~self ~cmd:(selector "colorQueue") ~typ:(returning id) +let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didMoveToParentViewController x self = msg_send ~self ~cmd:(selector "didMoveToParentViewController:") ~typ:(id @-> returning void) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let extension self = msg_send ~self ~cmd:(selector "extension") ~typ:(returning id) +let extensionRequestIdentifier self = msg_send ~self ~cmd:(selector "extensionRequestIdentifier") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithConfiguration x self = msg_send ~self ~cmd:(selector "initWithConfiguration:") ~typ:(id @-> returning id) x +let keyboardDidHide x self = msg_send ~self ~cmd:(selector "keyboardDidHide:") ~typ:(id @-> returning void) x +let keyboardFrameDidChange x self = msg_send ~self ~cmd:(selector "keyboardFrameDidChange:") ~typ:(id @-> returning void) x +let keyboardWillHide x self = msg_send ~self ~cmd:(selector "keyboardWillHide:") ~typ:(id @-> returning void) x +let keyboardWillShow x self = msg_send ~self ~cmd:(selector "keyboardWillShow:") ~typ:(id @-> returning void) x +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning void) x +let remoteViewController self = msg_send ~self ~cmd:(selector "remoteViewController") ~typ:(returning id) +let repositionChildViewControllerAnimated x self = msg_send ~self ~cmd:(selector "repositionChildViewControllerAnimated:") ~typ:(bool @-> returning void) x +let selectedColor self = msg_send ~self ~cmd:(selector "selectedColor") ~typ:(returning id) +let setBottomConstraint x self = msg_send ~self ~cmd:(selector "setBottomConstraint:") ~typ:(id @-> returning void) x +let setColorQueue x self = msg_send ~self ~cmd:(selector "setColorQueue:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setExtension x self = msg_send ~self ~cmd:(selector "setExtension:") ~typ:(id @-> returning void) x +let setExtensionRequestIdentifier x self = msg_send ~self ~cmd:(selector "setExtensionRequestIdentifier:") ~typ:(id @-> returning void) x +let setSelectedColor x self = msg_send ~self ~cmd:(selector "setSelectedColor:") ~typ:(id @-> returning void) x +let setSupportsAlpha x self = msg_send ~self ~cmd:(selector "setSupportsAlpha:") ~typ:(bool @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let supportsAlpha self = msg_send ~self ~cmd:(selector "supportsAlpha") ~typ:(returning bool) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning void) x withTransitionCoordinator +let willMoveToParentViewController x self = msg_send ~self ~cmd:(selector "willMoveToParentViewController:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIColorPickerViewControllerClass.ml b/uikit/UIColorPickerViewControllerClass.ml new file mode 100644 index 00000000..f7c68b7c --- /dev/null +++ b/uikit/UIColorPickerViewControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicolorpickerviewcontroller?language=objc}UIColorPickerViewController} *) + +let automaticallyNotifiesObserversOfSelectedColor self = msg_send ~self ~cmd:(selector "automaticallyNotifiesObserversOfSelectedColor") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIColorWell.ml b/uikit/UIColorWell.ml index 2d61bd4f..08c1271d 100644 --- a/uikit/UIColorWell.ml +++ b/uikit/UIColorWell.ml @@ -5,29 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIColorWell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicolorwell?language=objc}UIColorWell} *) -module C = struct - let styleForColorWell x self = msg_send ~self ~cmd:(selector "styleForColorWell:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIColorWell" -let dragInteraction x ~itemsForBeginningSession self = msg_send ~self ~cmd:(selector "dragInteraction:itemsForBeginningSession:") ~typ:(id @-> id @-> returning (id)) x itemsForBeginningSession -let dragInteraction' x ~previewForLiftingItem ~session self = msg_send ~self ~cmd:(selector "dragInteraction:previewForLiftingItem:session:") ~typ:(id @-> id @-> id @-> returning (id)) x previewForLiftingItem session -let dropInteraction x ~canHandleSession self = msg_send ~self ~cmd:(selector "dropInteraction:canHandleSession:") ~typ:(id @-> id @-> returning (bool)) x canHandleSession -let dropInteraction1 x ~performDrop self = msg_send ~self ~cmd:(selector "dropInteraction:performDrop:") ~typ:(id @-> id @-> returning (void)) x performDrop -let dropInteraction2 x ~sessionDidUpdate self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidUpdate:") ~typ:(id @-> id @-> returning (id)) x sessionDidUpdate -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 initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let selectedColor self = msg_send ~self ~cmd:(selector "selectedColor") ~typ:(returning (id)) -let setPickerTitle x self = msg_send ~self ~cmd:(selector "setPickerTitle:") ~typ:(id @-> returning (void)) x -let setSelectedColor x self = msg_send ~self ~cmd:(selector "setSelectedColor:") ~typ:(id @-> returning (void)) x -let setSupportsAlpha x self = msg_send ~self ~cmd:(selector "setSupportsAlpha:") ~typ:(bool @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let styleDidSelectColor x self = msg_send ~self ~cmd:(selector "styleDidSelectColor:") ~typ:(id @-> returning (void)) x -let styleRequestedColorPickerPresentation self = msg_send ~self ~cmd:(selector "styleRequestedColorPickerPresentation") ~typ:(returning (void)) -let supportsAlpha self = msg_send ~self ~cmd:(selector "supportsAlpha") ~typ:(returning (bool)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let dragInteraction x ~itemsForBeginningSession self = msg_send ~self ~cmd:(selector "dragInteraction:itemsForBeginningSession:") ~typ:(id @-> id @-> returning id) x itemsForBeginningSession +let dragInteraction' x ~previewForLiftingItem ~session self = msg_send ~self ~cmd:(selector "dragInteraction:previewForLiftingItem:session:") ~typ:(id @-> id @-> id @-> returning id) x previewForLiftingItem session +let dropInteraction x ~canHandleSession self = msg_send ~self ~cmd:(selector "dropInteraction:canHandleSession:") ~typ:(id @-> id @-> returning bool) x canHandleSession +let dropInteraction1 x ~performDrop self = msg_send ~self ~cmd:(selector "dropInteraction:performDrop:") ~typ:(id @-> id @-> returning void) x performDrop +let dropInteraction2 x ~sessionDidUpdate self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidUpdate:") ~typ:(id @-> id @-> returning id) x sessionDidUpdate +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 initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let selectedColor self = msg_send ~self ~cmd:(selector "selectedColor") ~typ:(returning id) +let setPickerTitle x self = msg_send ~self ~cmd:(selector "setPickerTitle:") ~typ:(id @-> returning void) x +let setSelectedColor x self = msg_send ~self ~cmd:(selector "setSelectedColor:") ~typ:(id @-> returning void) x +let setSupportsAlpha x self = msg_send ~self ~cmd:(selector "setSupportsAlpha:") ~typ:(bool @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let styleDidSelectColor x self = msg_send ~self ~cmd:(selector "styleDidSelectColor:") ~typ:(id @-> returning void) x +let styleRequestedColorPickerPresentation self = msg_send ~self ~cmd:(selector "styleRequestedColorPickerPresentation") ~typ:(returning void) +let supportsAlpha self = msg_send ~self ~cmd:(selector "supportsAlpha") ~typ:(returning bool) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIColorWellClass.ml b/uikit/UIColorWellClass.ml new file mode 100644 index 00000000..0296987c --- /dev/null +++ b/uikit/UIColorWellClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicolorwell?language=objc}UIColorWell} *) + +let styleForColorWell x self = msg_send ~self ~cmd:(selector "styleForColorWell:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UICommand.ml b/uikit/UICommand.ml index 3e31e200..f3f1d7ed 100644 --- a/uikit/UICommand.ml +++ b/uikit/UICommand.ml @@ -5,36 +5,33 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICommand" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicommand?language=objc}UICommand} *) -module C = struct - let commandWithTitle x ~imageName ~action self = msg_send ~self ~cmd:(selector "commandWithTitle:imageName:action:") ~typ:(id @-> id @-> _SEL @-> returning (id)) x imageName action - let commandWithTitle1 x ~image ~action ~propertyList self = msg_send ~self ~cmd:(selector "commandWithTitle:image:action:propertyList:") ~typ:(id @-> id @-> _SEL @-> id @-> returning (id)) x image action propertyList - let commandWithTitle2 x ~image ~action ~propertyList ~alternates self = msg_send ~self ~cmd:(selector "commandWithTitle:image:action:propertyList:alternates:") ~typ:(id @-> id @-> _SEL @-> id @-> id @-> returning (id)) x image action propertyList alternates - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UICommand" -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (_SEL)) -let alternates self = msg_send ~self ~cmd:(selector "alternates") ~typ:(returning (id)) -let attributes self = msg_send ~self ~cmd:(selector "attributes") ~typ:(returning (ullong)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let discoverabilityTitle self = msg_send ~self ~cmd:(selector "discoverabilityTitle") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithCommand x self = msg_send ~self ~cmd:(selector "initWithCommand:") ~typ:(id @-> returning (id)) x -let initWithTitle x ~image ~imageName ~action ~propertyList ~alternates ~discoverabilityTitle ~attributes ~state self = msg_send ~self ~cmd:(selector "initWithTitle:image:imageName:action:propertyList:alternates:discoverabilityTitle:attributes:state:") ~typ:(id @-> id @-> id @-> _SEL @-> id @-> id @-> id @-> ullong @-> llong @-> returning (id)) x image imageName action propertyList alternates discoverabilityTitle (ULLong.of_int attributes) (LLong.of_int state) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isLeaf self = msg_send ~self ~cmd:(selector "isLeaf") ~typ:(returning (bool)) -let keepsMenuPresented self = msg_send ~self ~cmd:(selector "keepsMenuPresented") ~typ:(returning (bool)) -let propertyList self = msg_send ~self ~cmd:(selector "propertyList") ~typ:(returning (id)) -let requiresAuthenticatedInput self = msg_send ~self ~cmd:(selector "requiresAuthenticatedInput") ~typ:(returning (bool)) -let setAttributes x self = msg_send ~self ~cmd:(selector "setAttributes:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDiscoverabilityTitle x self = msg_send ~self ~cmd:(selector "setDiscoverabilityTitle:") ~typ:(id @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSubtitle x self = msg_send ~self ~cmd:(selector "setSubtitle:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (llong)) \ No newline at end of file +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning _SEL) +let alternates self = msg_send ~self ~cmd:(selector "alternates") ~typ:(returning id) +let attributes self = msg_send ~self ~cmd:(selector "attributes") ~typ:(returning ullong) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let discoverabilityTitle self = msg_send ~self ~cmd:(selector "discoverabilityTitle") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithCommand x self = msg_send ~self ~cmd:(selector "initWithCommand:") ~typ:(id @-> returning id) x +let initWithTitle x ~image ~imageName ~action ~propertyList ~alternates ~discoverabilityTitle ~attributes ~state self = msg_send ~self ~cmd:(selector "initWithTitle:image:imageName:action:propertyList:alternates:discoverabilityTitle:attributes:state:") ~typ:(id @-> id @-> id @-> _SEL @-> id @-> id @-> id @-> ullong @-> llong @-> returning id) x image imageName action propertyList alternates discoverabilityTitle (ULLong.of_int attributes) (LLong.of_int state) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isLeaf self = msg_send ~self ~cmd:(selector "isLeaf") ~typ:(returning bool) +let keepsMenuPresented self = msg_send ~self ~cmd:(selector "keepsMenuPresented") ~typ:(returning bool) +let propertyList self = msg_send ~self ~cmd:(selector "propertyList") ~typ:(returning id) +let requiresAuthenticatedInput self = msg_send ~self ~cmd:(selector "requiresAuthenticatedInput") ~typ:(returning bool) +let setAttributes x self = msg_send ~self ~cmd:(selector "setAttributes:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDiscoverabilityTitle x self = msg_send ~self ~cmd:(selector "setDiscoverabilityTitle:") ~typ:(id @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSubtitle x self = msg_send ~self ~cmd:(selector "setSubtitle:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UICommandAlternate.ml b/uikit/UICommandAlternate.ml index f026ca06..c00f22e4 100644 --- a/uikit/UICommandAlternate.ml +++ b/uikit/UICommandAlternate.ml @@ -5,21 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICommandAlternate" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicommandalternate?language=objc}UICommandAlternate} *) -module C = struct - let alternateWithTitle x ~action ~modifierFlags self = msg_send ~self ~cmd:(selector "alternateWithTitle:action:modifierFlags:") ~typ:(id @-> _SEL @-> llong @-> returning (id)) x action (LLong.of_int modifierFlags) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UICommandAlternate" -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (_SEL)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithModifierFlags x self = msg_send ~self ~cmd:(selector "initWithModifierFlags:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let initWithTitle x ~action ~modifierFlags self = msg_send ~self ~cmd:(selector "initWithTitle:action:modifierFlags:") ~typ:(id @-> _SEL @-> llong @-> returning (id)) x action (LLong.of_int modifierFlags) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let modifierFlags self = msg_send ~self ~cmd:(selector "modifierFlags") ~typ:(returning (llong)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning _SEL) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithModifierFlags x self = msg_send ~self ~cmd:(selector "initWithModifierFlags:") ~typ:(llong @-> returning id) (LLong.of_int x) +let initWithTitle x ~action ~modifierFlags self = msg_send ~self ~cmd:(selector "initWithTitle:action:modifierFlags:") ~typ:(id @-> _SEL @-> llong @-> returning id) x action (LLong.of_int modifierFlags) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let modifierFlags self = msg_send ~self ~cmd:(selector "modifierFlags") ~typ:(returning llong) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UICommandAlternateClass.ml b/uikit/UICommandAlternateClass.ml new file mode 100644 index 00000000..0d197ce7 --- /dev/null +++ b/uikit/UICommandAlternateClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicommandalternate?language=objc}UICommandAlternate} *) + +let alternateWithTitle x ~action ~modifierFlags self = msg_send ~self ~cmd:(selector "alternateWithTitle:action:modifierFlags:") ~typ:(id @-> _SEL @-> llong @-> returning id) x action (LLong.of_int modifierFlags) +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UICommandClass.ml b/uikit/UICommandClass.ml new file mode 100644 index 00000000..35524f30 --- /dev/null +++ b/uikit/UICommandClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicommand?language=objc}UICommand} *) + +let commandWithTitle x ~imageName ~action self = msg_send ~self ~cmd:(selector "commandWithTitle:imageName:action:") ~typ:(id @-> id @-> _SEL @-> returning id) x imageName action +let commandWithTitle1 x ~image ~action ~propertyList self = msg_send ~self ~cmd:(selector "commandWithTitle:image:action:propertyList:") ~typ:(id @-> id @-> _SEL @-> id @-> returning id) x image action propertyList +let commandWithTitle2 x ~image ~action ~propertyList ~alternates self = msg_send ~self ~cmd:(selector "commandWithTitle:image:action:propertyList:alternates:") ~typ:(id @-> id @-> _SEL @-> id @-> id @-> returning id) x image action propertyList alternates +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UICompatibilityInputViewController.ml b/uikit/UICompatibilityInputViewController.ml deleted file mode 100644 index 5e1f19db..00000000 --- a/uikit/UICompatibilityInputViewController.ml +++ /dev/null @@ -1,59 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICompatibilityInputViewController" - -module C = struct - let applicationDidReceiveMemoryWarning x self = msg_send ~self ~cmd:(selector "applicationDidReceiveMemoryWarning:") ~typ:(id @-> returning (void)) x - let deferredInputModeControllerWithKeyboard x self = msg_send ~self ~cmd:(selector "deferredInputModeControllerWithKeyboard:") ~typ:(id @-> returning (id)) x - let inputSnapshotViewForInputMode x ~orientation self = msg_send ~self ~cmd:(selector "inputSnapshotViewForInputMode:orientation:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int orientation) - let inputViewControllerWithView x self = msg_send ~self ~cmd:(selector "inputViewControllerWithView:") ~typ:(id @-> returning (id)) x -end - -let addSnapshotViewForInputMode x self = msg_send ~self ~cmd:(selector "addSnapshotViewForInputMode:") ~typ:(id @-> returning (void)) x -let assertCurrentInputModeIfNecessary self = msg_send ~self ~cmd:(selector "assertCurrentInputModeIfNecessary") ~typ:(returning (void)) -let blinkAssertion self = msg_send ~self ~cmd:(selector "blinkAssertion") ~typ:(returning (id)) -let childCompatibilityController self = msg_send ~self ~cmd:(selector "childCompatibilityController") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didFinishTranslation self = msg_send ~self ~cmd:(selector "didFinishTranslation") ~typ:(returning (void)) -let didMoveToParentViewController x self = msg_send ~self ~cmd:(selector "didMoveToParentViewController:") ~typ:(id @-> returning (void)) x -let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let didSuspend x self = msg_send ~self ~cmd:(selector "didSuspend:") ~typ:(id @-> returning (void)) x -let finishSplitTransition x self = msg_send ~self ~cmd:(selector "finishSplitTransition:") ~typ:(bool @-> returning (void)) x -let focusSafeAreaLayoutGuide self = msg_send ~self ~cmd:(selector "focusSafeAreaLayoutGuide") ~typ:(returning (id)) -let generateCompatibleSizeConstraintsIfNecessary self = msg_send ~self ~cmd:(selector "generateCompatibleSizeConstraintsIfNecessary") ~typ:(returning (void)) -let inputController self = msg_send ~self ~cmd:(selector "inputController") ~typ:(returning (id)) -let internalEdgeMatchConstraints self = msg_send ~self ~cmd:(selector "internalEdgeMatchConstraints") ~typ:(returning (id)) -let isHosted x self = msg_send ~self ~cmd:(selector "isHosted:") ~typ:(id @-> returning (void)) x -let keyboardWillChangeFromDelegate x ~toDelegate self = msg_send ~self ~cmd:(selector "keyboardWillChangeFromDelegate:toDelegate:") ~typ:(id @-> id @-> returning (void)) x toDelegate -let killIncomingExtension self = msg_send ~self ~cmd:(selector "killIncomingExtension") ~typ:(returning (void)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let rebuildChildConstraints self = msg_send ~self ~cmd:(selector "rebuildChildConstraints") ~typ:(returning (void)) -let removeSnapshotView self = msg_send ~self ~cmd:(selector "removeSnapshotView") ~typ:(returning (void)) -let resetInputMode self = msg_send ~self ~cmd:(selector "resetInputMode") ~typ:(returning (void)) -let resetInputModeInMainThread self = msg_send ~self ~cmd:(selector "resetInputModeInMainThread") ~typ:(returning (void)) -let setBlinkAssertion x self = msg_send ~self ~cmd:(selector "setBlinkAssertion:") ~typ:(id @-> returning (void)) x -let setDeferredSystemView x self = msg_send ~self ~cmd:(selector "setDeferredSystemView:") ~typ:(id @-> returning (void)) x -let setInputController x self = msg_send ~self ~cmd:(selector "setInputController:") ~typ:(id @-> returning (void)) x -let setInputMode x self = msg_send ~self ~cmd:(selector "setInputMode:") ~typ:(id @-> returning (void)) x -let setInternalEdgeMatchConstraints x self = msg_send ~self ~cmd:(selector "setInternalEdgeMatchConstraints:") ~typ:(id @-> returning (void)) x -let setTearingDownInputController self = msg_send ~self ~cmd:(selector "setTearingDownInputController") ~typ:(returning (void)) -let shouldAutomaticallyForwardAppearanceMethods self = msg_send ~self ~cmd:(selector "shouldAutomaticallyForwardAppearanceMethods") ~typ:(returning (bool)) -let shouldAutomaticallyForwardRotationMethods self = msg_send ~self ~cmd:(selector "shouldAutomaticallyForwardRotationMethods") ~typ:(returning (bool)) -let shouldUpdateInputMode x self = msg_send ~self ~cmd:(selector "shouldUpdateInputMode:") ~typ:(id @-> returning (void)) x -let takeSnapshotView self = msg_send ~self ~cmd:(selector "takeSnapshotView") ~typ:(returning (void)) -let tearDownInputController self = msg_send ~self ~cmd:(selector "tearDownInputController") ~typ:(returning (void)) -let validateInputModeIsDisplayed self = msg_send ~self ~cmd:(selector "validateInputModeIsDisplayed") ~typ:(returning (void)) -let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willBeginTranslation self = msg_send ~self ~cmd:(selector "willBeginTranslation") ~typ:(returning (void)) -let willResume x self = msg_send ~self ~cmd:(selector "willResume:") ~typ:(id @-> returning (void)) x -let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration \ No newline at end of file diff --git a/uikit/UICompatibilityPredictiveViewController.ml b/uikit/UICompatibilityPredictiveViewController.ml deleted file mode 100644 index 456345b3..00000000 --- a/uikit/UICompatibilityPredictiveViewController.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICompatibilityPredictiveViewController" - -let customView self = msg_send ~self ~cmd:(selector "customView") ~typ:(returning (id)) -let displayedCandidates self = msg_send ~self ~cmd:(selector "displayedCandidates") ~typ:(returning (id)) -let hidesExpandableButton self = msg_send ~self ~cmd:(selector "hidesExpandableButton") ~typ:(returning (bool)) -let isVisibleForInputDelegate x ~inputViews self = msg_send ~self ~cmd:(selector "isVisibleForInputDelegate:inputViews:") ~typ:(id @-> id @-> returning (bool)) x inputViews -let preferredHeightForTraitCollection x self = msg_send ~self ~cmd:(selector "preferredHeightForTraitCollection:") ~typ:(id @-> returning (double)) x -let setCustomView x self = msg_send ~self ~cmd:(selector "setCustomView:") ~typ:(id @-> returning (void)) x -let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit/UIConcreteLocalNotification.ml b/uikit/UIConcreteLocalNotification.ml index 51cf3353..ce978de6 100644 --- a/uikit/UIConcreteLocalNotification.ml +++ b/uikit/UIConcreteLocalNotification.ml @@ -5,54 +5,54 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIConcreteLocalNotification" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiconcretelocalnotification?language=objc}UIConcreteLocalNotification} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIConcreteLocalNotification" -let alertAction self = msg_send ~self ~cmd:(selector "alertAction") ~typ:(returning (id)) -let alertBody self = msg_send ~self ~cmd:(selector "alertBody") ~typ:(returning (id)) -let alertLaunchImage self = msg_send ~self ~cmd:(selector "alertLaunchImage") ~typ:(returning (id)) -let alertTitle self = msg_send ~self ~cmd:(selector "alertTitle") ~typ:(returning (id)) -let applicationIconBadgeNumber self = msg_send ~self ~cmd:(selector "applicationIconBadgeNumber") ~typ:(returning (llong)) -let category self = msg_send ~self ~cmd:(selector "category") ~typ:(returning (id)) -let compareFireDates x self = msg_send ~self ~cmd:(selector "compareFireDates:") ~typ:(id @-> returning (llong)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let fireDate self = msg_send ~self ~cmd:(selector "fireDate") ~typ:(returning (id)) -let hasAction self = msg_send ~self ~cmd:(selector "hasAction") ~typ:(returning (bool)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isTriggeredByDate self = msg_send ~self ~cmd:(selector "isTriggeredByDate") ~typ:(returning (bool)) -let isTriggeredByRegion self = msg_send ~self ~cmd:(selector "isTriggeredByRegion") ~typ:(returning (bool)) -let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning (bool)) -let nextFireDateAfterDate x ~localTimeZone self = msg_send ~self ~cmd:(selector "nextFireDateAfterDate:localTimeZone:") ~typ:(id @-> id @-> returning (id)) x localTimeZone -let nextFireDateForLastFireDate x self = msg_send ~self ~cmd:(selector "nextFireDateForLastFireDate:") ~typ:(id @-> returning (id)) x -let region self = msg_send ~self ~cmd:(selector "region") ~typ:(returning (id)) -let regionTriggersOnce self = msg_send ~self ~cmd:(selector "regionTriggersOnce") ~typ:(returning (bool)) -let repeatCalendar self = msg_send ~self ~cmd:(selector "repeatCalendar") ~typ:(returning (id)) -let repeatInterval self = msg_send ~self ~cmd:(selector "repeatInterval") ~typ:(returning (ullong)) -let setAlertAction x self = msg_send ~self ~cmd:(selector "setAlertAction:") ~typ:(id @-> returning (void)) x -let setAlertBody x self = msg_send ~self ~cmd:(selector "setAlertBody:") ~typ:(id @-> returning (void)) x -let setAlertLaunchImage x self = msg_send ~self ~cmd:(selector "setAlertLaunchImage:") ~typ:(id @-> returning (void)) x -let setAlertTitle x self = msg_send ~self ~cmd:(selector "setAlertTitle:") ~typ:(id @-> returning (void)) x -let setApplicationIconBadgeNumber x self = msg_send ~self ~cmd:(selector "setApplicationIconBadgeNumber:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCategory x self = msg_send ~self ~cmd:(selector "setCategory:") ~typ:(id @-> returning (void)) x -let setFireDate x self = msg_send ~self ~cmd:(selector "setFireDate:") ~typ:(id @-> returning (void)) x -let setHasAction x self = msg_send ~self ~cmd:(selector "setHasAction:") ~typ:(bool @-> returning (void)) x -let setRegion x self = msg_send ~self ~cmd:(selector "setRegion:") ~typ:(id @-> returning (void)) x -let setRegionTriggersOnce x self = msg_send ~self ~cmd:(selector "setRegionTriggersOnce:") ~typ:(bool @-> returning (void)) x -let setRepeatCalendar x self = msg_send ~self ~cmd:(selector "setRepeatCalendar:") ~typ:(id @-> returning (void)) x -let setRepeatInterval x self = msg_send ~self ~cmd:(selector "setRepeatInterval:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setSoundName x self = msg_send ~self ~cmd:(selector "setSoundName:") ~typ:(id @-> returning (void)) x -let setTimeZone x self = msg_send ~self ~cmd:(selector "setTimeZone:") ~typ:(id @-> returning (void)) x -let setUserInfo x self = msg_send ~self ~cmd:(selector "setUserInfo:") ~typ:(id @-> returning (void)) x -let soundName self = msg_send ~self ~cmd:(selector "soundName") ~typ:(returning (id)) -let timeZone self = msg_send ~self ~cmd:(selector "timeZone") ~typ:(returning (id)) -let userInfo self = msg_send ~self ~cmd:(selector "userInfo") ~typ:(returning (id)) -let validate self = msg_send ~self ~cmd:(selector "validate") ~typ:(returning (void)) \ No newline at end of file +let alertAction self = msg_send ~self ~cmd:(selector "alertAction") ~typ:(returning id) +let alertBody self = msg_send ~self ~cmd:(selector "alertBody") ~typ:(returning id) +let alertLaunchImage self = msg_send ~self ~cmd:(selector "alertLaunchImage") ~typ:(returning id) +let alertTitle self = msg_send ~self ~cmd:(selector "alertTitle") ~typ:(returning id) +let applicationIconBadgeNumber self = msg_send ~self ~cmd:(selector "applicationIconBadgeNumber") ~typ:(returning llong) +let category self = msg_send ~self ~cmd:(selector "category") ~typ:(returning id) +let compareFireDates x self = msg_send ~self ~cmd:(selector "compareFireDates:") ~typ:(id @-> returning llong) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let fireDate self = msg_send ~self ~cmd:(selector "fireDate") ~typ:(returning id) +let hasAction self = msg_send ~self ~cmd:(selector "hasAction") ~typ:(returning bool) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isTriggeredByDate self = msg_send ~self ~cmd:(selector "isTriggeredByDate") ~typ:(returning bool) +let isTriggeredByRegion self = msg_send ~self ~cmd:(selector "isTriggeredByRegion") ~typ:(returning bool) +let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning bool) +let nextFireDateAfterDate x ~localTimeZone self = msg_send ~self ~cmd:(selector "nextFireDateAfterDate:localTimeZone:") ~typ:(id @-> id @-> returning id) x localTimeZone +let nextFireDateForLastFireDate x self = msg_send ~self ~cmd:(selector "nextFireDateForLastFireDate:") ~typ:(id @-> returning id) x +let region self = msg_send ~self ~cmd:(selector "region") ~typ:(returning id) +let regionTriggersOnce self = msg_send ~self ~cmd:(selector "regionTriggersOnce") ~typ:(returning bool) +let repeatCalendar self = msg_send ~self ~cmd:(selector "repeatCalendar") ~typ:(returning id) +let repeatInterval self = msg_send ~self ~cmd:(selector "repeatInterval") ~typ:(returning ullong) +let setAlertAction x self = msg_send ~self ~cmd:(selector "setAlertAction:") ~typ:(id @-> returning void) x +let setAlertBody x self = msg_send ~self ~cmd:(selector "setAlertBody:") ~typ:(id @-> returning void) x +let setAlertLaunchImage x self = msg_send ~self ~cmd:(selector "setAlertLaunchImage:") ~typ:(id @-> returning void) x +let setAlertTitle x self = msg_send ~self ~cmd:(selector "setAlertTitle:") ~typ:(id @-> returning void) x +let setApplicationIconBadgeNumber x self = msg_send ~self ~cmd:(selector "setApplicationIconBadgeNumber:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCategory x self = msg_send ~self ~cmd:(selector "setCategory:") ~typ:(id @-> returning void) x +let setFireDate x self = msg_send ~self ~cmd:(selector "setFireDate:") ~typ:(id @-> returning void) x +let setHasAction x self = msg_send ~self ~cmd:(selector "setHasAction:") ~typ:(bool @-> returning void) x +let setRegion x self = msg_send ~self ~cmd:(selector "setRegion:") ~typ:(id @-> returning void) x +let setRegionTriggersOnce x self = msg_send ~self ~cmd:(selector "setRegionTriggersOnce:") ~typ:(bool @-> returning void) x +let setRepeatCalendar x self = msg_send ~self ~cmd:(selector "setRepeatCalendar:") ~typ:(id @-> returning void) x +let setRepeatInterval x self = msg_send ~self ~cmd:(selector "setRepeatInterval:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setSoundName x self = msg_send ~self ~cmd:(selector "setSoundName:") ~typ:(id @-> returning void) x +let setTimeZone x self = msg_send ~self ~cmd:(selector "setTimeZone:") ~typ:(id @-> returning void) x +let setUserInfo x self = msg_send ~self ~cmd:(selector "setUserInfo:") ~typ:(id @-> returning void) x +let soundName self = msg_send ~self ~cmd:(selector "soundName") ~typ:(returning id) +let timeZone self = msg_send ~self ~cmd:(selector "timeZone") ~typ:(returning id) +let userInfo self = msg_send ~self ~cmd:(selector "userInfo") ~typ:(returning id) +let validate self = msg_send ~self ~cmd:(selector "validate") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIConcreteLocalNotificationClass.ml b/uikit/UIConcreteLocalNotificationClass.ml new file mode 100644 index 00000000..20df7f8d --- /dev/null +++ b/uikit/UIConcreteLocalNotificationClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiconcretelocalnotification?language=objc}UIConcreteLocalNotification} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIContentSizeCategoryPreference.ml b/uikit/UIContentSizeCategoryPreference.ml deleted file mode 100644 index 8fa4375d..00000000 --- a/uikit/UIContentSizeCategoryPreference.ml +++ /dev/null @@ -1,31 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIContentSizeCategoryPreference" - -module C = struct - let asyncOverrideSystemWithPreference x self = msg_send ~self ~cmd:(selector "asyncOverrideSystemWithPreference:") ~typ:(id @-> returning (void)) x - let asyncResetSystemPreferenceOverride self = msg_send ~self ~cmd:(selector "asyncResetSystemPreferenceOverride") ~typ:(returning (void)) - let overrideSystemWithPreference x self = msg_send ~self ~cmd:(selector "overrideSystemWithPreference:") ~typ:(id @-> returning (void)) x - let overrideSystemWithPreference' x ~forBlock self = msg_send ~self ~cmd:(selector "overrideSystemWithPreference:forBlock:") ~typ:(id @-> ptr void @-> returning (void)) x forBlock - let resetSystemPreferenceOverride self = msg_send ~self ~cmd:(selector "resetSystemPreferenceOverride") ~typ:(returning (void)) - let system self = msg_send ~self ~cmd:(selector "system") ~typ:(returning (id)) -end - -let checkForChanges self = msg_send ~self ~cmd:(selector "checkForChanges") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithContentSizeCategory x self = msg_send ~self ~cmd:(selector "initWithContentSizeCategory:") ~typ:(id @-> returning (id)) x -let initWithContentSizeCategory' x ~carPlay self = msg_send ~self ~cmd:(selector "initWithContentSizeCategory:carPlay:") ~typ:(id @-> id @-> returning (id)) x carPlay -let initWithRawUserDefaults self = msg_send ~self ~cmd:(selector "initWithRawUserDefaults") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let preferredContentSizeCategory self = msg_send ~self ~cmd:(selector "preferredContentSizeCategory") ~typ:(returning (id)) -let preferredContentSizeCategoryCarPlay self = msg_send ~self ~cmd:(selector "preferredContentSizeCategoryCarPlay") ~typ:(returning (id)) -let setPreferredContentSizeCategory x self = msg_send ~self ~cmd:(selector "setPreferredContentSizeCategory:") ~typ:(id @-> returning (void)) x -let setPreferredContentSizeCategoryCarPlay x self = msg_send ~self ~cmd:(selector "setPreferredContentSizeCategoryCarPlay:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIContextMenuConfiguration.ml b/uikit/UIContextMenuConfiguration.ml index 27d05656..f7302e2e 100644 --- a/uikit/UIContextMenuConfiguration.ml +++ b/uikit/UIContextMenuConfiguration.ml @@ -5,20 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIContextMenuConfiguration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicontextmenuconfiguration?language=objc}UIContextMenuConfiguration} *) -module C = struct - let configurationWithIdentifier x ~previewProvider ~actionProvider self = msg_send ~self ~cmd:(selector "configurationWithIdentifier:previewProvider:actionProvider:") ~typ:(id @-> ptr void @-> ptr void @-> returning (id)) x previewProvider actionProvider -end +let self = get_class "UIContextMenuConfiguration" let actionProvider self = msg_send ~self ~cmd:(selector "actionProvider") ~typ:(returning (ptr void)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) let previewProvider self = msg_send ~self ~cmd:(selector "previewProvider") ~typ:(returning (ptr void)) -let setActionProvider x self = msg_send ~self ~cmd:(selector "setActionProvider:") ~typ:(ptr void @-> returning (void)) x -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let setPreviewProvider x self = msg_send ~self ~cmd:(selector "setPreviewProvider:") ~typ:(ptr void @-> returning (void)) x -let setStashedClientProvidedPreview x self = msg_send ~self ~cmd:(selector "setStashedClientProvidedPreview:") ~typ:(id @-> returning (void)) x -let setStashedSourcePreview x self = msg_send ~self ~cmd:(selector "setStashedSourcePreview:") ~typ:(id @-> returning (void)) x -let stashedClientProvidedPreview self = msg_send ~self ~cmd:(selector "stashedClientProvidedPreview") ~typ:(returning (id)) -let stashedSourcePreview self = msg_send ~self ~cmd:(selector "stashedSourcePreview") ~typ:(returning (id)) \ No newline at end of file +let setActionProvider x self = msg_send ~self ~cmd:(selector "setActionProvider:") ~typ:((ptr void) @-> returning void) x +let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning void) x +let setPreviewProvider x self = msg_send ~self ~cmd:(selector "setPreviewProvider:") ~typ:((ptr void) @-> returning void) x +let setStashedClientProvidedPreview x self = msg_send ~self ~cmd:(selector "setStashedClientProvidedPreview:") ~typ:(id @-> returning void) x +let setStashedSourcePreview x self = msg_send ~self ~cmd:(selector "setStashedSourcePreview:") ~typ:(id @-> returning void) x +let stashedClientProvidedPreview self = msg_send ~self ~cmd:(selector "stashedClientProvidedPreview") ~typ:(returning id) +let stashedSourcePreview self = msg_send ~self ~cmd:(selector "stashedSourcePreview") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIContextMenuConfigurationClass.ml b/uikit/UIContextMenuConfigurationClass.ml new file mode 100644 index 00000000..14b62cb4 --- /dev/null +++ b/uikit/UIContextMenuConfigurationClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicontextmenuconfiguration?language=objc}UIContextMenuConfiguration} *) + +let configurationWithIdentifier x ~previewProvider ~actionProvider self = msg_send ~self ~cmd:(selector "configurationWithIdentifier:previewProvider:actionProvider:") ~typ:(id @-> (ptr void) @-> (ptr void) @-> returning id) x previewProvider actionProvider \ No newline at end of file diff --git a/uikit/UIContextMenuInteraction.ml b/uikit/UIContextMenuInteraction.ml index 577db0dc..c2cbd87a 100644 --- a/uikit/UIContextMenuInteraction.ml +++ b/uikit/UIContextMenuInteraction.ml @@ -5,42 +5,46 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIContextMenuInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicontextmenuinteraction?language=objc}UIContextMenuInteraction} *) -let activationStyleForClickPresentationInteraction x self = msg_send ~self ~cmd:(selector "activationStyleForClickPresentationInteraction:") ~typ:(id @-> returning (ullong)) x -let actualPlatterContainerViewForPresentationController x self = msg_send ~self ~cmd:(selector "actualPlatterContainerViewForPresentationController:") ~typ:(id @-> returning (id)) x -let allowSimultaneousRecognition self = msg_send ~self ~cmd:(selector "allowSimultaneousRecognition") ~typ:(returning (bool)) -let clickPresentationInteraction x ~presentationForPresentingViewController self = msg_send ~self ~cmd:(selector "clickPresentationInteraction:presentationForPresentingViewController:") ~typ:(id @-> id @-> returning (id)) x presentationForPresentingViewController -let clickPresentationInteraction' x ~previewForHighlightingAtLocation self = msg_send ~self ~cmd:(selector "clickPresentationInteraction:previewForHighlightingAtLocation:") ~typ:(id @-> CGPoint.t @-> returning (id)) x previewForHighlightingAtLocation -let configurationsByIdentifier self = msg_send ~self ~cmd:(selector "configurationsByIdentifier") ~typ:(returning (id)) -let currentlyVisibleMenu self = msg_send ~self ~cmd:(selector "currentlyVisibleMenu") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deferredMenuElementWasFulfilled x self = msg_send ~self ~cmd:(selector "deferredMenuElementWasFulfilled:") ~typ:(id @-> returning (void)) x -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let dismissMenu self = msg_send ~self ~cmd:(selector "dismissMenu") ~typ:(returning (void)) -let gestureRecognizerForExclusionRelationships self = msg_send ~self ~cmd:(selector "gestureRecognizerForExclusionRelationships") ~typ:(returning (id)) -let gestureRecognizerForFailureRelationships self = msg_send ~self ~cmd:(selector "gestureRecognizerForFailureRelationships") ~typ:(returning (id)) -let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning (id)) x -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let menuAppearance self = msg_send ~self ~cmd:(selector "menuAppearance") ~typ:(returning (llong)) -let pendingCommitAnimator self = msg_send ~self ~cmd:(selector "pendingCommitAnimator") ~typ:(returning (id)) -let pendingConfiguration self = msg_send ~self ~cmd:(selector "pendingConfiguration") ~typ:(returning (id)) -let presentationInteraction self = msg_send ~self ~cmd:(selector "presentationInteraction") ~typ:(returning (id)) -let presentationsByIdentifier self = msg_send ~self ~cmd:(selector "presentationsByIdentifier") ~typ:(returning (id)) -let setAllowSimultaneousRecognition x self = msg_send ~self ~cmd:(selector "setAllowSimultaneousRecognition:") ~typ:(bool @-> returning (void)) x -let setConfigurationsByIdentifier x self = msg_send ~self ~cmd:(selector "setConfigurationsByIdentifier:") ~typ:(id @-> returning (void)) x -let setCurrentlyVisibleMenu x self = msg_send ~self ~cmd:(selector "setCurrentlyVisibleMenu:") ~typ:(id @-> returning (void)) x -let setPendingCommitAnimator x self = msg_send ~self ~cmd:(selector "setPendingCommitAnimator:") ~typ:(id @-> returning (void)) x -let setPendingConfiguration x self = msg_send ~self ~cmd:(selector "setPendingConfiguration:") ~typ:(id @-> returning (void)) x -let setPresentationInteraction x self = msg_send ~self ~cmd:(selector "setPresentationInteraction:") ~typ:(id @-> returning (void)) x -let setPresentationsByIdentifier x self = msg_send ~self ~cmd:(selector "setPresentationsByIdentifier:") ~typ:(id @-> returning (void)) x -let setStashedLocation x self = msg_send ~self ~cmd:(selector "setStashedLocation:") ~typ:(CGPoint.t @-> returning (void)) x -let setWindowSceneActivationAnimator x self = msg_send ~self ~cmd:(selector "setWindowSceneActivationAnimator:") ~typ:(id @-> returning (void)) x -let stashedLocation self = msg_send_stret ~self ~cmd:(selector "stashedLocation") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let targetedPreviewForAnimator x ~dismissingWithStyle ~clientReturnedPreview self = msg_send ~self ~cmd:(selector "targetedPreviewForAnimator:dismissingWithStyle:clientReturnedPreview:") ~typ:(id @-> ullong @-> ptr (bool) @-> returning (id)) x (ULLong.of_int dismissingWithStyle) clientReturnedPreview -let updateVisibleMenuWithBlock x self = msg_send ~self ~cmd:(selector "updateVisibleMenuWithBlock:") ~typ:(ptr void @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x -let windowSceneActivationAnimator self = msg_send ~self ~cmd:(selector "windowSceneActivationAnimator") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIContextMenuInteraction" + +let activationStyleForClickPresentationInteraction x self = msg_send ~self ~cmd:(selector "activationStyleForClickPresentationInteraction:") ~typ:(id @-> returning ullong) x +let actualPlatterContainerViewForPresentationController x self = msg_send ~self ~cmd:(selector "actualPlatterContainerViewForPresentationController:") ~typ:(id @-> returning id) x +let allowSimultaneousRecognition self = msg_send ~self ~cmd:(selector "allowSimultaneousRecognition") ~typ:(returning bool) +let clickPresentationInteraction x ~presentationForPresentingViewController self = msg_send ~self ~cmd:(selector "clickPresentationInteraction:presentationForPresentingViewController:") ~typ:(id @-> id @-> returning id) x presentationForPresentingViewController +let clickPresentationInteraction' x ~previewForHighlightingAtLocation self = msg_send ~self ~cmd:(selector "clickPresentationInteraction:previewForHighlightingAtLocation:") ~typ:(id @-> CGPoint.t @-> returning id) x previewForHighlightingAtLocation +let configurationsByIdentifier self = msg_send ~self ~cmd:(selector "configurationsByIdentifier") ~typ:(returning id) +let currentlyVisibleMenu self = msg_send ~self ~cmd:(selector "currentlyVisibleMenu") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let deferredMenuElementWasFulfilled x self = msg_send ~self ~cmd:(selector "deferredMenuElementWasFulfilled:") ~typ:(id @-> returning void) x +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let dismissMenu self = msg_send ~self ~cmd:(selector "dismissMenu") ~typ:(returning void) +let gestureRecognizerForExclusionRelationships self = msg_send ~self ~cmd:(selector "gestureRecognizerForExclusionRelationships") ~typ:(returning id) +let gestureRecognizerForFailureRelationships self = msg_send ~self ~cmd:(selector "gestureRecognizerForFailureRelationships") ~typ:(returning id) +let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning id) x +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let menuAppearance self = msg_send ~self ~cmd:(selector "menuAppearance") ~typ:(returning llong) +let pendingCommitAnimator self = msg_send ~self ~cmd:(selector "pendingCommitAnimator") ~typ:(returning id) +let pendingConfiguration self = msg_send ~self ~cmd:(selector "pendingConfiguration") ~typ:(returning id) +let presentationInteraction self = msg_send ~self ~cmd:(selector "presentationInteraction") ~typ:(returning id) +let presentationsByIdentifier self = msg_send ~self ~cmd:(selector "presentationsByIdentifier") ~typ:(returning id) +let setAllowSimultaneousRecognition x self = msg_send ~self ~cmd:(selector "setAllowSimultaneousRecognition:") ~typ:(bool @-> returning void) x +let setConfigurationsByIdentifier x self = msg_send ~self ~cmd:(selector "setConfigurationsByIdentifier:") ~typ:(id @-> returning void) x +let setCurrentlyVisibleMenu x self = msg_send ~self ~cmd:(selector "setCurrentlyVisibleMenu:") ~typ:(id @-> returning void) x +let setPendingCommitAnimator x self = msg_send ~self ~cmd:(selector "setPendingCommitAnimator:") ~typ:(id @-> returning void) x +let setPendingConfiguration x self = msg_send ~self ~cmd:(selector "setPendingConfiguration:") ~typ:(id @-> returning void) x +let setPresentationInteraction x self = msg_send ~self ~cmd:(selector "setPresentationInteraction:") ~typ:(id @-> returning void) x +let setPresentationsByIdentifier x self = msg_send ~self ~cmd:(selector "setPresentationsByIdentifier:") ~typ:(id @-> returning void) x +let setStashedLocation x self = msg_send ~self ~cmd:(selector "setStashedLocation:") ~typ:(CGPoint.t @-> returning void) x +let setWindowSceneActivationAnimator x self = msg_send ~self ~cmd:(selector "setWindowSceneActivationAnimator:") ~typ:(id @-> returning void) x +let stashedLocation self = msg_send ~self ~cmd:(selector "stashedLocation") ~typ:(returning CGPoint.t) +let targetedPreviewForAnimator x ~dismissingWithStyle ~clientReturnedPreview self = msg_send ~self ~cmd:(selector "targetedPreviewForAnimator:dismissingWithStyle:clientReturnedPreview:") ~typ:(id @-> ullong @-> (ptr bool) @-> returning id) x (ULLong.of_int dismissingWithStyle) clientReturnedPreview +let updateVisibleMenuWithBlock x self = msg_send ~self ~cmd:(selector "updateVisibleMenuWithBlock:") ~typ:((ptr void) @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x +let windowSceneActivationAnimator self = msg_send ~self ~cmd:(selector "windowSceneActivationAnimator") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIContextualAction.ml b/uikit/UIContextualAction.ml index 26896cd4..8b54c28c 100644 --- a/uikit/UIContextualAction.ml +++ b/uikit/UIContextualAction.ml @@ -5,30 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIContextualAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicontextualaction?language=objc}UIContextualAction} *) -module C = struct - let contextualActionWithStyle x ~title ~handler self = msg_send ~self ~cmd:(selector "contextualActionWithStyle:title:handler:") ~typ:(llong @-> id @-> ptr void @-> returning (id)) (LLong.of_int x) title handler -end +let self = get_class "UIContextualAction" -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning (void)) +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning void) let completionHandler self = msg_send ~self ~cmd:(selector "completionHandler") ~typ:(returning (ptr void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let executeHandlerWithView x ~completionHandler self = msg_send ~self ~cmd:(selector "executeHandlerWithView:completionHandler:") ~typ:(id @-> ptr void @-> returning (void)) x completionHandler -let executePreHandlerWithView x self = msg_send ~self ~cmd:(selector "executePreHandlerWithView:") ~typ:(id @-> returning (void)) x -let forcesFallbackBackgroundColor self = msg_send ~self ~cmd:(selector "forcesFallbackBackgroundColor") ~typ:(returning (bool)) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let executeHandlerWithView x ~completionHandler self = msg_send ~self ~cmd:(selector "executeHandlerWithView:completionHandler:") ~typ:(id @-> (ptr void) @-> returning void) x completionHandler +let executePreHandlerWithView x self = msg_send ~self ~cmd:(selector "executePreHandlerWithView:") ~typ:(id @-> returning void) x +let forcesFallbackBackgroundColor self = msg_send ~self ~cmd:(selector "forcesFallbackBackgroundColor") ~typ:(returning bool) let handler self = msg_send ~self ~cmd:(selector "handler") ~typ:(returning (ptr void)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let isDestructive self = msg_send ~self ~cmd:(selector "isDestructive") ~typ:(returning (bool)) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let isDestructive self = msg_send ~self ~cmd:(selector "isDestructive") ~typ:(returning bool) let preHandler self = msg_send ~self ~cmd:(selector "preHandler") ~typ:(returning (ptr void)) -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setCompletionHandler x self = msg_send ~self ~cmd:(selector "setCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let setForcesFallbackBackgroundColor x self = msg_send ~self ~cmd:(selector "setForcesFallbackBackgroundColor:") ~typ:(bool @-> returning (void)) x -let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:(ptr void @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setPreHandler x self = msg_send ~self ~cmd:(selector "setPreHandler:") ~typ:(ptr void @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setCompletionHandler x self = msg_send ~self ~cmd:(selector "setCompletionHandler:") ~typ:((ptr void) @-> returning void) x +let setForcesFallbackBackgroundColor x self = msg_send ~self ~cmd:(selector "setForcesFallbackBackgroundColor:") ~typ:(bool @-> returning void) x +let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:((ptr void) @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setPreHandler x self = msg_send ~self ~cmd:(selector "setPreHandler:") ~typ:((ptr void) @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIContextualActionClass.ml b/uikit/UIContextualActionClass.ml new file mode 100644 index 00000000..858526df --- /dev/null +++ b/uikit/UIContextualActionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicontextualaction?language=objc}UIContextualAction} *) + +let contextualActionWithStyle x ~title ~handler self = msg_send ~self ~cmd:(selector "contextualActionWithStyle:title:handler:") ~typ:(llong @-> id @-> (ptr void) @-> returning id) (LLong.of_int x) title handler \ No newline at end of file diff --git a/uikit/UIContinuousPathIntroductionView.ml b/uikit/UIContinuousPathIntroductionView.ml index f6049171..6e8f5a90 100644 --- a/uikit/UIContinuousPathIntroductionView.ml +++ b/uikit/UIContinuousPathIntroductionView.ml @@ -5,35 +5,39 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIContinuousPathIntroductionView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicontinuouspathintroductionview?language=objc}UIContinuousPathIntroductionView} *) -let extraButtonTapAction self = msg_send ~self ~cmd:(selector "extraButtonTapAction") ~typ:(returning (void)) -let initWithKeyboardAppearance x self = msg_send ~self ~cmd:(selector "initWithKeyboardAppearance:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let keyboardView self = msg_send ~self ~cmd:(selector "keyboardView") ~typ:(returning (id)) -let landscapeButton self = msg_send ~self ~cmd:(selector "landscapeButton") ~typ:(returning (id)) -let landscapeConstraints self = msg_send ~self ~cmd:(selector "landscapeConstraints") ~typ:(returning (id)) -let landscapeTextBody self = msg_send ~self ~cmd:(selector "landscapeTextBody") ~typ:(returning (id)) -let mediaContents self = msg_send ~self ~cmd:(selector "mediaContents") ~typ:(returning (id)) -let mediaLayoutWidthAdjustment self = msg_send ~self ~cmd:(selector "mediaLayoutWidthAdjustment") ~typ:(returning (double)) -let portraitConstraints self = msg_send ~self ~cmd:(selector "portraitConstraints") ~typ:(returning (id)) -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let setKeyboardView x self = msg_send ~self ~cmd:(selector "setKeyboardView:") ~typ:(id @-> returning (void)) x -let setLandscapeButton x self = msg_send ~self ~cmd:(selector "setLandscapeButton:") ~typ:(id @-> returning (void)) x -let setLandscapeConstraints x self = msg_send ~self ~cmd:(selector "setLandscapeConstraints:") ~typ:(id @-> returning (void)) x -let setLandscapeTextBody x self = msg_send ~self ~cmd:(selector "setLandscapeTextBody:") ~typ:(id @-> returning (void)) x -let setPortraitConstraints x self = msg_send ~self ~cmd:(selector "setPortraitConstraints:") ~typ:(id @-> returning (void)) x -let setTextVideoContainer x self = msg_send ~self ~cmd:(selector "setTextVideoContainer:") ~typ:(id @-> returning (void)) x -let setVideoHeight x self = msg_send ~self ~cmd:(selector "setVideoHeight:") ~typ:(id @-> returning (void)) x -let setVideoLayer x self = msg_send ~self ~cmd:(selector "setVideoLayer:") ~typ:(id @-> returning (void)) x -let setVideoWidth x self = msg_send ~self ~cmd:(selector "setVideoWidth:") ~typ:(id @-> returning (void)) x -let setupConstraintData self = msg_send ~self ~cmd:(selector "setupConstraintData") ~typ:(returning (void)) -let textBodyDescriptions self = msg_send ~self ~cmd:(selector "textBodyDescriptions") ~typ:(returning (id)) -let textBodyMaxLines self = msg_send ~self ~cmd:(selector "textBodyMaxLines") ~typ:(returning (llong)) -let textTitleDescriptions self = msg_send ~self ~cmd:(selector "textTitleDescriptions") ~typ:(returning (id)) -let textVideoContainer self = msg_send ~self ~cmd:(selector "textVideoContainer") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateVideoLayerWithNewVideo x self = msg_send ~self ~cmd:(selector "updateVideoLayerWithNewVideo:") ~typ:(bool @-> returning (void)) x -let videoHeight self = msg_send ~self ~cmd:(selector "videoHeight") ~typ:(returning (id)) -let videoLayer self = msg_send ~self ~cmd:(selector "videoLayer") ~typ:(returning (id)) -let videoWidth self = msg_send ~self ~cmd:(selector "videoWidth") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIContinuousPathIntroductionView" + +let extraButtonTapAction self = msg_send ~self ~cmd:(selector "extraButtonTapAction") ~typ:(returning void) +let initWithKeyboardAppearance x self = msg_send ~self ~cmd:(selector "initWithKeyboardAppearance:") ~typ:(llong @-> returning id) (LLong.of_int x) +let keyboardView self = msg_send ~self ~cmd:(selector "keyboardView") ~typ:(returning id) +let landscapeButton self = msg_send ~self ~cmd:(selector "landscapeButton") ~typ:(returning id) +let landscapeConstraints self = msg_send ~self ~cmd:(selector "landscapeConstraints") ~typ:(returning id) +let landscapeTextBody self = msg_send ~self ~cmd:(selector "landscapeTextBody") ~typ:(returning id) +let mediaContents self = msg_send ~self ~cmd:(selector "mediaContents") ~typ:(returning id) +let mediaLayoutWidthAdjustment self = msg_send ~self ~cmd:(selector "mediaLayoutWidthAdjustment") ~typ:(returning double) +let portraitConstraints self = msg_send ~self ~cmd:(selector "portraitConstraints") ~typ:(returning id) +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let setKeyboardView x self = msg_send ~self ~cmd:(selector "setKeyboardView:") ~typ:(id @-> returning void) x +let setLandscapeButton x self = msg_send ~self ~cmd:(selector "setLandscapeButton:") ~typ:(id @-> returning void) x +let setLandscapeConstraints x self = msg_send ~self ~cmd:(selector "setLandscapeConstraints:") ~typ:(id @-> returning void) x +let setLandscapeTextBody x self = msg_send ~self ~cmd:(selector "setLandscapeTextBody:") ~typ:(id @-> returning void) x +let setPortraitConstraints x self = msg_send ~self ~cmd:(selector "setPortraitConstraints:") ~typ:(id @-> returning void) x +let setTextVideoContainer x self = msg_send ~self ~cmd:(selector "setTextVideoContainer:") ~typ:(id @-> returning void) x +let setVideoHeight x self = msg_send ~self ~cmd:(selector "setVideoHeight:") ~typ:(id @-> returning void) x +let setVideoLayer x self = msg_send ~self ~cmd:(selector "setVideoLayer:") ~typ:(id @-> returning void) x +let setVideoWidth x self = msg_send ~self ~cmd:(selector "setVideoWidth:") ~typ:(id @-> returning void) x +let setupConstraintData self = msg_send ~self ~cmd:(selector "setupConstraintData") ~typ:(returning void) +let textBodyDescriptions self = msg_send ~self ~cmd:(selector "textBodyDescriptions") ~typ:(returning id) +let textBodyMaxLines self = msg_send ~self ~cmd:(selector "textBodyMaxLines") ~typ:(returning llong) +let textTitleDescriptions self = msg_send ~self ~cmd:(selector "textTitleDescriptions") ~typ:(returning id) +let textVideoContainer self = msg_send ~self ~cmd:(selector "textVideoContainer") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let updateVideoLayerWithNewVideo x self = msg_send ~self ~cmd:(selector "updateVideoLayerWithNewVideo:") ~typ:(bool @-> returning void) x +let videoHeight self = msg_send ~self ~cmd:(selector "videoHeight") ~typ:(returning id) +let videoLayer self = msg_send ~self ~cmd:(selector "videoLayer") ~typ:(returning id) +let videoWidth self = msg_send ~self ~cmd:(selector "videoWidth") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIControl.ml b/uikit/UIControl.ml index e60d51e9..8635cb39 100644 --- a/uikit/UIControl.ml +++ b/uikit/UIControl.ml @@ -5,84 +5,88 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIControl" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicontrol?language=objc}UIControl} *) -let actionsForTarget x ~forControlEvent self = msg_send ~self ~cmd:(selector "actionsForTarget:forControlEvent:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int forControlEvent) -let addAction x ~forControlEvents self = msg_send ~self ~cmd:(selector "addAction:forControlEvents:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forControlEvents) -let addTarget x ~action ~forControlEvents self = msg_send ~self ~cmd:(selector "addTarget:action:forControlEvents:") ~typ:(id @-> _SEL @-> ullong @-> returning (void)) x action (ULLong.of_int forControlEvents) -let addTarget' x ~action ~forEvents self = msg_send ~self ~cmd:(selector "addTarget:action:forEvents:") ~typ:(id @-> _SEL @-> int @-> returning (void)) x action forEvents -let allControlEvents self = msg_send ~self ~cmd:(selector "allControlEvents") ~typ:(returning (ullong)) -let allTargets self = msg_send ~self ~cmd:(selector "allTargets") ~typ:(returning (id)) -let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning (bool)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let cancelMouseTracking self = msg_send ~self ~cmd:(selector "cancelMouseTracking") ~typ:(returning (bool)) -let cancelTouchTracking self = msg_send ~self ~cmd:(selector "cancelTouchTracking") ~typ:(returning (bool)) -let cancelTrackingWithEvent x self = msg_send ~self ~cmd:(selector "cancelTrackingWithEvent:") ~typ:(id @-> returning (void)) x -let contentHorizontalAlignment self = msg_send ~self ~cmd:(selector "contentHorizontalAlignment") ~typ:(returning (llong)) -let contentVerticalAlignment self = msg_send ~self ~cmd:(selector "contentVerticalAlignment") ~typ:(returning (llong)) -let contextMenuInteraction self = msg_send ~self ~cmd:(selector "contextMenuInteraction") ~typ:(returning (id)) -let contextMenuInteraction1 x ~configurationForMenuAtLocation self = msg_send ~self ~cmd:(selector "contextMenuInteraction:configurationForMenuAtLocation:") ~typ:(id @-> CGPoint.t @-> returning (id)) x configurationForMenuAtLocation -let contextMenuInteraction2 x ~previewForDismissingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForDismissingMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) x previewForDismissingMenuWithConfiguration -let contextMenuInteraction3 x ~previewForHighlightingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForHighlightingMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) x previewForHighlightingMenuWithConfiguration -let contextMenuInteraction4 x ~willDisplayMenuForConfiguration ~animator self = msg_send ~self ~cmd:(selector "contextMenuInteraction:willDisplayMenuForConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willDisplayMenuForConfiguration animator -let contextMenuInteraction5 x ~willEndForConfiguration ~animator self = msg_send ~self ~cmd:(selector "contextMenuInteraction:willEndForConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willEndForConfiguration animator -let contextMenuIsPrimary self = msg_send ~self ~cmd:(selector "contextMenuIsPrimary") ~typ:(returning (bool)) -let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let cursorInteraction self = msg_send ~self ~cmd:(selector "cursorInteraction") ~typ:(returning (id)) -let effectiveContentHorizontalAlignment self = msg_send ~self ~cmd:(selector "effectiveContentHorizontalAlignment") ~typ:(returning (llong)) -let effectiveContentVerticalAlignment self = msg_send ~self ~cmd:(selector "effectiveContentVerticalAlignment") ~typ:(returning (llong)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let enumerateEventHandlers x self = msg_send ~self ~cmd:(selector "enumerateEventHandlers:") ~typ:(ptr void @-> returning (void)) x -let hasOneOrMoreTargets self = msg_send ~self ~cmd:(selector "hasOneOrMoreTargets") ~typ:(returning (bool)) -let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (id)) x forEvent -let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithFrame' x ~primaryAction self = msg_send ~self ~cmd:(selector "initWithFrame:primaryAction:") ~typ:(CGRect.t @-> id @-> returning (id)) x primaryAction -let isContextMenuEnabled self = msg_send ~self ~cmd:(selector "isContextMenuEnabled") ~typ:(returning (bool)) -let isContextMenuInteractionEnabled self = msg_send ~self ~cmd:(selector "isContextMenuInteractionEnabled") ~typ:(returning (bool)) -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning (bool)) -let isPointerInteractionEnabled self = msg_send ~self ~cmd:(selector "isPointerInteractionEnabled") ~typ:(returning (bool)) -let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning (bool)) -let isTouchInside self = msg_send ~self ~cmd:(selector "isTouchInside") ~typ:(returning (bool)) -let isTracking self = msg_send ~self ~cmd:(selector "isTracking") ~typ:(returning (bool)) -let menuAttachmentPointForConfiguration x self = msg_send_stret ~self ~cmd:(selector "menuAttachmentPointForConfiguration:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let pointMostlyInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointMostlyInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let pointerInteraction self = msg_send ~self ~cmd:(selector "pointerInteraction") ~typ:(returning (id)) -let pointerInteraction' x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning (id)) x regionForRequest defaultRegion -let removeAction x ~forControlEvents self = msg_send ~self ~cmd:(selector "removeAction:forControlEvents:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forControlEvents) -let removeActionForIdentifier x ~forControlEvents self = msg_send ~self ~cmd:(selector "removeActionForIdentifier:forControlEvents:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forControlEvents) -let removeTarget x ~forEvents self = msg_send ~self ~cmd:(selector "removeTarget:forEvents:") ~typ:(id @-> int @-> returning (void)) x forEvents -let removeTarget' x ~action ~forControlEvents self = msg_send ~self ~cmd:(selector "removeTarget:action:forControlEvents:") ~typ:(id @-> _SEL @-> ullong @-> returning (void)) x action (ULLong.of_int forControlEvents) -let requiresDisplayOnTracking self = msg_send ~self ~cmd:(selector "requiresDisplayOnTracking") ~typ:(returning (bool)) -let sendAction x self = msg_send ~self ~cmd:(selector "sendAction:") ~typ:(id @-> returning (void)) x -let sendAction' x ~to_ ~forEvent self = msg_send ~self ~cmd:(selector "sendAction:to:forEvent:") ~typ:(_SEL @-> id @-> id @-> returning (void)) x to_ forEvent -let sendActionsForControlEvents x self = msg_send ~self ~cmd:(selector "sendActionsForControlEvents:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setContentHorizontalAlignment x self = msg_send ~self ~cmd:(selector "setContentHorizontalAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContentVerticalAlignment x self = msg_send ~self ~cmd:(selector "setContentVerticalAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContextMenuEnabled x self = msg_send ~self ~cmd:(selector "setContextMenuEnabled:") ~typ:(bool @-> returning (void)) x -let setContextMenuInteractionEnabled x self = msg_send ~self ~cmd:(selector "setContextMenuInteractionEnabled:") ~typ:(bool @-> returning (void)) x -let setContextMenuIsPrimary x self = msg_send ~self ~cmd:(selector "setContextMenuIsPrimary:") ~typ:(bool @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setPointerInteractionEnabled x self = msg_send ~self ~cmd:(selector "setPointerInteractionEnabled:") ~typ:(bool @-> returning (void)) x -let setRequiresDisplayOnTracking x self = msg_send ~self ~cmd:(selector "setRequiresDisplayOnTracking:") ~typ:(bool @-> returning (void)) x -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setShowsMenuAsPrimaryAction x self = msg_send ~self ~cmd:(selector "setShowsMenuAsPrimaryAction:") ~typ:(bool @-> returning (void)) x -let setToolTip x self = msg_send ~self ~cmd:(selector "setToolTip:") ~typ:(id @-> returning (void)) x -let setTracking x self = msg_send ~self ~cmd:(selector "setTracking:") ~typ:(bool @-> returning (void)) x -let shouldTrack self = msg_send ~self ~cmd:(selector "shouldTrack") ~typ:(returning (bool)) -let showsMenuAsPrimaryAction self = msg_send ~self ~cmd:(selector "showsMenuAsPrimaryAction") ~typ:(returning (bool)) -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (ullong)) -let toolTip self = msg_send ~self ~cmd:(selector "toolTip") ~typ:(returning (id)) -let toolTipInteraction self = msg_send ~self ~cmd:(selector "toolTipInteraction") ~typ:(returning (id)) -let touchDragged self = msg_send ~self ~cmd:(selector "touchDragged") ~typ:(returning (bool)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEstimatedPropertiesUpdated x self = msg_send ~self ~cmd:(selector "touchesEstimatedPropertiesUpdated:") ~typ:(id @-> returning (void)) x -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let self = get_class "UIControl" + +let actionsForTarget x ~forControlEvent self = msg_send ~self ~cmd:(selector "actionsForTarget:forControlEvent:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int forControlEvent) +let addAction x ~forControlEvents self = msg_send ~self ~cmd:(selector "addAction:forControlEvents:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forControlEvents) +let addTarget x ~action ~forControlEvents self = msg_send ~self ~cmd:(selector "addTarget:action:forControlEvents:") ~typ:(id @-> _SEL @-> ullong @-> returning void) x action (ULLong.of_int forControlEvents) +let addTarget' x ~action ~forEvents self = msg_send ~self ~cmd:(selector "addTarget:action:forEvents:") ~typ:(id @-> _SEL @-> int @-> returning void) x action forEvents +let allControlEvents self = msg_send ~self ~cmd:(selector "allControlEvents") ~typ:(returning ullong) +let allTargets self = msg_send ~self ~cmd:(selector "allTargets") ~typ:(returning id) +let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning bool) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let cancelMouseTracking self = msg_send ~self ~cmd:(selector "cancelMouseTracking") ~typ:(returning bool) +let cancelTouchTracking self = msg_send ~self ~cmd:(selector "cancelTouchTracking") ~typ:(returning bool) +let cancelTrackingWithEvent x self = msg_send ~self ~cmd:(selector "cancelTrackingWithEvent:") ~typ:(id @-> returning void) x +let contentHorizontalAlignment self = msg_send ~self ~cmd:(selector "contentHorizontalAlignment") ~typ:(returning llong) +let contentVerticalAlignment self = msg_send ~self ~cmd:(selector "contentVerticalAlignment") ~typ:(returning llong) +let contextMenuInteraction self = msg_send ~self ~cmd:(selector "contextMenuInteraction") ~typ:(returning id) +let contextMenuInteraction1 x ~configurationForMenuAtLocation self = msg_send ~self ~cmd:(selector "contextMenuInteraction:configurationForMenuAtLocation:") ~typ:(id @-> CGPoint.t @-> returning id) x configurationForMenuAtLocation +let contextMenuInteraction2 x ~previewForDismissingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForDismissingMenuWithConfiguration:") ~typ:(id @-> id @-> returning id) x previewForDismissingMenuWithConfiguration +let contextMenuInteraction3 x ~previewForHighlightingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForHighlightingMenuWithConfiguration:") ~typ:(id @-> id @-> returning id) x previewForHighlightingMenuWithConfiguration +let contextMenuInteraction4 x ~willDisplayMenuForConfiguration ~animator self = msg_send ~self ~cmd:(selector "contextMenuInteraction:willDisplayMenuForConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning void) x willDisplayMenuForConfiguration animator +let contextMenuInteraction5 x ~willEndForConfiguration ~animator self = msg_send ~self ~cmd:(selector "contextMenuInteraction:willEndForConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning void) x willEndForConfiguration animator +let contextMenuIsPrimary self = msg_send ~self ~cmd:(selector "contextMenuIsPrimary") ~typ:(returning bool) +let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let cursorInteraction self = msg_send ~self ~cmd:(selector "cursorInteraction") ~typ:(returning id) +let effectiveContentHorizontalAlignment self = msg_send ~self ~cmd:(selector "effectiveContentHorizontalAlignment") ~typ:(returning llong) +let effectiveContentVerticalAlignment self = msg_send ~self ~cmd:(selector "effectiveContentVerticalAlignment") ~typ:(returning llong) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let enumerateEventHandlers x self = msg_send ~self ~cmd:(selector "enumerateEventHandlers:") ~typ:((ptr void) @-> returning void) x +let hasOneOrMoreTargets self = msg_send ~self ~cmd:(selector "hasOneOrMoreTargets") ~typ:(returning bool) +let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning id) x forEvent +let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithFrame' x ~primaryAction self = msg_send ~self ~cmd:(selector "initWithFrame:primaryAction:") ~typ:(CGRect.t @-> id @-> returning id) x primaryAction +let isContextMenuEnabled self = msg_send ~self ~cmd:(selector "isContextMenuEnabled") ~typ:(returning bool) +let isContextMenuInteractionEnabled self = msg_send ~self ~cmd:(selector "isContextMenuInteractionEnabled") ~typ:(returning bool) +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning bool) +let isPointerInteractionEnabled self = msg_send ~self ~cmd:(selector "isPointerInteractionEnabled") ~typ:(returning bool) +let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning bool) +let isTouchInside self = msg_send ~self ~cmd:(selector "isTouchInside") ~typ:(returning bool) +let isTracking self = msg_send ~self ~cmd:(selector "isTracking") ~typ:(returning bool) +let menuAttachmentPointForConfiguration x self = msg_send ~self ~cmd:(selector "menuAttachmentPointForConfiguration:") ~typ:(id @-> returning CGPoint.t) x +let pointMostlyInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointMostlyInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let pointerInteraction self = msg_send ~self ~cmd:(selector "pointerInteraction") ~typ:(returning id) +let pointerInteraction' x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning id) x regionForRequest defaultRegion +let removeAction x ~forControlEvents self = msg_send ~self ~cmd:(selector "removeAction:forControlEvents:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forControlEvents) +let removeActionForIdentifier x ~forControlEvents self = msg_send ~self ~cmd:(selector "removeActionForIdentifier:forControlEvents:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forControlEvents) +let removeTarget x ~forEvents self = msg_send ~self ~cmd:(selector "removeTarget:forEvents:") ~typ:(id @-> int @-> returning void) x forEvents +let removeTarget' x ~action ~forControlEvents self = msg_send ~self ~cmd:(selector "removeTarget:action:forControlEvents:") ~typ:(id @-> _SEL @-> ullong @-> returning void) x action (ULLong.of_int forControlEvents) +let requiresDisplayOnTracking self = msg_send ~self ~cmd:(selector "requiresDisplayOnTracking") ~typ:(returning bool) +let sendAction x self = msg_send ~self ~cmd:(selector "sendAction:") ~typ:(id @-> returning void) x +let sendAction' x ~to_ ~forEvent self = msg_send ~self ~cmd:(selector "sendAction:to:forEvent:") ~typ:(_SEL @-> id @-> id @-> returning void) x to_ forEvent +let sendActionsForControlEvents x self = msg_send ~self ~cmd:(selector "sendActionsForControlEvents:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setContentHorizontalAlignment x self = msg_send ~self ~cmd:(selector "setContentHorizontalAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContentVerticalAlignment x self = msg_send ~self ~cmd:(selector "setContentVerticalAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContextMenuEnabled x self = msg_send ~self ~cmd:(selector "setContextMenuEnabled:") ~typ:(bool @-> returning void) x +let setContextMenuInteractionEnabled x self = msg_send ~self ~cmd:(selector "setContextMenuInteractionEnabled:") ~typ:(bool @-> returning void) x +let setContextMenuIsPrimary x self = msg_send ~self ~cmd:(selector "setContextMenuIsPrimary:") ~typ:(bool @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setPointerInteractionEnabled x self = msg_send ~self ~cmd:(selector "setPointerInteractionEnabled:") ~typ:(bool @-> returning void) x +let setRequiresDisplayOnTracking x self = msg_send ~self ~cmd:(selector "setRequiresDisplayOnTracking:") ~typ:(bool @-> returning void) x +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setShowsMenuAsPrimaryAction x self = msg_send ~self ~cmd:(selector "setShowsMenuAsPrimaryAction:") ~typ:(bool @-> returning void) x +let setToolTip x self = msg_send ~self ~cmd:(selector "setToolTip:") ~typ:(id @-> returning void) x +let setTracking x self = msg_send ~self ~cmd:(selector "setTracking:") ~typ:(bool @-> returning void) x +let shouldTrack self = msg_send ~self ~cmd:(selector "shouldTrack") ~typ:(returning bool) +let showsMenuAsPrimaryAction self = msg_send ~self ~cmd:(selector "showsMenuAsPrimaryAction") ~typ:(returning bool) +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning ullong) +let toolTip self = msg_send ~self ~cmd:(selector "toolTip") ~typ:(returning id) +let toolTipInteraction self = msg_send ~self ~cmd:(selector "toolTipInteraction") ~typ:(returning id) +let touchDragged self = msg_send ~self ~cmd:(selector "touchDragged") ~typ:(returning bool) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEstimatedPropertiesUpdated x self = msg_send ~self ~cmd:(selector "touchesEstimatedPropertiesUpdated:") ~typ:(id @-> returning void) x +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UIControlTargetAction.ml b/uikit/UIControlTargetAction.ml index aae98736..ea76eaeb 100644 --- a/uikit/UIControlTargetAction.ml +++ b/uikit/UIControlTargetAction.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIControlTargetAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicontroltargetaction?language=objc}UIControlTargetAction} *) -let cancelled self = msg_send ~self ~cmd:(selector "cancelled") ~typ:(returning (bool)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let setCancelled x self = msg_send ~self ~cmd:(selector "setCancelled:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIControlTargetAction" + +let cancelled self = msg_send ~self ~cmd:(selector "cancelled") ~typ:(returning bool) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let setCancelled x self = msg_send ~self ~cmd:(selector "setCancelled:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UICoverSheetButton.ml b/uikit/UICoverSheetButton.ml index a3058391..545e4c88 100644 --- a/uikit/UICoverSheetButton.ml +++ b/uikit/UICoverSheetButton.ml @@ -5,37 +5,42 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICoverSheetButton" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicoversheetbutton?language=objc}UICoverSheetButton} *) -let backgroundEffectViewGroupName self = msg_send ~self ~cmd:(selector "backgroundEffectViewGroupName") ~typ:(returning (id)) -let clickInteraction x ~didObserveForce self = msg_send ~self ~cmd:(selector "clickInteraction:didObserveForce:") ~typ:(id @-> double @-> returning (void)) x didObserveForce -let clickInteractionDidClickUp x self = msg_send ~self ~cmd:(selector "clickInteractionDidClickUp:") ~typ:(id @-> returning (void)) x -let clickInteractionDidEnd x self = msg_send ~self ~cmd:(selector "clickInteractionDidEnd:") ~typ:(id @-> returning (void)) x -let clickInteractionShouldBegin x self = msg_send ~self ~cmd:(selector "clickInteractionShouldBegin:") ~typ:(id @-> returning (bool)) x -let highlightEffectForClickInteraction x self = msg_send ~self ~cmd:(selector "highlightEffectForClickInteraction:") ~typ:(id @-> returning (id)) x -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let imageContentMode self = msg_send ~self ~cmd:(selector "imageContentMode") ~typ:(returning (llong)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isLatching self = msg_send ~self ~cmd:(selector "isLatching") ~typ:(returning (bool)) -let isPronounced self = msg_send ~self ~cmd:(selector "isPronounced") ~typ:(returning (bool)) -let layoutIfNeededAnimated self = msg_send ~self ~cmd:(selector "layoutIfNeededAnimated") ~typ:(returning (void)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let localizedAccessoryTitle self = msg_send ~self ~cmd:(selector "localizedAccessoryTitle") ~typ:(returning (id)) -let selectedImage self = msg_send ~self ~cmd:(selector "selectedImage") ~typ:(returning (id)) -let selectedTintColor self = msg_send ~self ~cmd:(selector "selectedTintColor") ~typ:(returning (id)) -let setBackgroundEffectViewGroupName x self = msg_send ~self ~cmd:(selector "setBackgroundEffectViewGroupName:") ~typ:(id @-> returning (void)) x -let setEdgeInsets x self = msg_send ~self ~cmd:(selector "setEdgeInsets:") ~typ:(ptr void @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setImageContentMode x self = msg_send ~self ~cmd:(selector "setImageContentMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setLatching x self = msg_send ~self ~cmd:(selector "setLatching:") ~typ:(bool @-> returning (void)) x -let setLocalizedAccessoryTitle x self = msg_send ~self ~cmd:(selector "setLocalizedAccessoryTitle:") ~typ:(id @-> returning (void)) x -let setPronounced x self = msg_send ~self ~cmd:(selector "setPronounced:") ~typ:(bool @-> returning (void)) x -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setSelectedImage x self = msg_send ~self ~cmd:(selector "setSelectedImage:") ~typ:(id @-> returning (void)) x -let setSelectedTintColor x self = msg_send ~self ~cmd:(selector "setSelectedTintColor:") ~typ:(id @-> returning (void)) x -let setShouldUseContinuousCorners x self = msg_send ~self ~cmd:(selector "setShouldUseContinuousCorners:") ~typ:(bool @-> returning (void)) x -let setStatisticsIdentifier x self = msg_send ~self ~cmd:(selector "setStatisticsIdentifier:") ~typ:(id @-> returning (void)) x -let shouldUseContinuousCorners self = msg_send ~self ~cmd:(selector "shouldUseContinuousCorners") ~typ:(returning (bool)) -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let statisticsIdentifier self = msg_send ~self ~cmd:(selector "statisticsIdentifier") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UICoverSheetButton" + +let backgroundEffectViewGroupName self = msg_send ~self ~cmd:(selector "backgroundEffectViewGroupName") ~typ:(returning id) +let clickInteraction x ~didObserveForce self = msg_send ~self ~cmd:(selector "clickInteraction:didObserveForce:") ~typ:(id @-> double @-> returning void) x didObserveForce +let clickInteractionDidClickUp x self = msg_send ~self ~cmd:(selector "clickInteractionDidClickUp:") ~typ:(id @-> returning void) x +let clickInteractionDidEnd x self = msg_send ~self ~cmd:(selector "clickInteractionDidEnd:") ~typ:(id @-> returning void) x +let clickInteractionShouldBegin x self = msg_send ~self ~cmd:(selector "clickInteractionShouldBegin:") ~typ:(id @-> returning bool) x +let edgeInsets self = msg_send ~self ~cmd:(selector "edgeInsets") ~typ:(returning UIEdgeInsets.t) +let highlightEffectForClickInteraction x self = msg_send ~self ~cmd:(selector "highlightEffectForClickInteraction:") ~typ:(id @-> returning id) x +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let imageContentMode self = msg_send ~self ~cmd:(selector "imageContentMode") ~typ:(returning llong) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isLatching self = msg_send ~self ~cmd:(selector "isLatching") ~typ:(returning bool) +let isPronounced self = msg_send ~self ~cmd:(selector "isPronounced") ~typ:(returning bool) +let layoutIfNeededAnimated self = msg_send ~self ~cmd:(selector "layoutIfNeededAnimated") ~typ:(returning void) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let localizedAccessoryTitle self = msg_send ~self ~cmd:(selector "localizedAccessoryTitle") ~typ:(returning id) +let selectedImage self = msg_send ~self ~cmd:(selector "selectedImage") ~typ:(returning id) +let selectedTintColor self = msg_send ~self ~cmd:(selector "selectedTintColor") ~typ:(returning id) +let setBackgroundEffectViewGroupName x self = msg_send ~self ~cmd:(selector "setBackgroundEffectViewGroupName:") ~typ:(id @-> returning void) x +let setEdgeInsets x self = msg_send ~self ~cmd:(selector "setEdgeInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setImageContentMode x self = msg_send ~self ~cmd:(selector "setImageContentMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setLatching x self = msg_send ~self ~cmd:(selector "setLatching:") ~typ:(bool @-> returning void) x +let setLocalizedAccessoryTitle x self = msg_send ~self ~cmd:(selector "setLocalizedAccessoryTitle:") ~typ:(id @-> returning void) x +let setPronounced x self = msg_send ~self ~cmd:(selector "setPronounced:") ~typ:(bool @-> returning void) x +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setSelectedImage x self = msg_send ~self ~cmd:(selector "setSelectedImage:") ~typ:(id @-> returning void) x +let setSelectedTintColor x self = msg_send ~self ~cmd:(selector "setSelectedTintColor:") ~typ:(id @-> returning void) x +let setShouldUseContinuousCorners x self = msg_send ~self ~cmd:(selector "setShouldUseContinuousCorners:") ~typ:(bool @-> returning void) x +let setStatisticsIdentifier x self = msg_send ~self ~cmd:(selector "setStatisticsIdentifier:") ~typ:(id @-> returning void) x +let shouldUseContinuousCorners self = msg_send ~self ~cmd:(selector "shouldUseContinuousCorners") ~typ:(returning bool) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let statisticsIdentifier self = msg_send ~self ~cmd:(selector "statisticsIdentifier") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UICubicTimingParameters.ml b/uikit/UICubicTimingParameters.ml index 98d131c6..161e2895 100644 --- a/uikit/UICubicTimingParameters.ml +++ b/uikit/UICubicTimingParameters.ml @@ -5,24 +5,28 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICubicTimingParameters" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicubictimingparameters?language=objc}UICubicTimingParameters} *) -let animationCurve self = msg_send ~self ~cmd:(selector "animationCurve") ~typ:(returning (llong)) -let controlPoint1 self = msg_send_stret ~self ~cmd:(selector "controlPoint1") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let controlPoint2 self = msg_send_stret ~self ~cmd:(selector "controlPoint2") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let cubicTimingParameters self = msg_send ~self ~cmd:(selector "cubicTimingParameters") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let effectiveTimingFunction self = msg_send ~self ~cmd:(selector "effectiveTimingFunction") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithAnimationCurve x self = msg_send ~self ~cmd:(selector "initWithAnimationCurve:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithControlPoint1 x ~controlPoint2 self = msg_send ~self ~cmd:(selector "initWithControlPoint1:controlPoint2:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (id)) x controlPoint2 -let initWithCustomCurve x self = msg_send ~self ~cmd:(selector "initWithCustomCurve:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let setSpringTimingParameters x self = msg_send ~self ~cmd:(selector "setSpringTimingParameters:") ~typ:(id @-> returning (void)) x -let springTimingParameters self = msg_send ~self ~cmd:(selector "springTimingParameters") ~typ:(returning (id)) -let timingCurveType self = msg_send ~self ~cmd:(selector "timingCurveType") ~typ:(returning (llong)) -let timingFunction self = msg_send ~self ~cmd:(selector "timingFunction") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UICubicTimingParameters" + +let animationCurve self = msg_send ~self ~cmd:(selector "animationCurve") ~typ:(returning llong) +let controlPoint1 self = msg_send ~self ~cmd:(selector "controlPoint1") ~typ:(returning CGPoint.t) +let controlPoint2 self = msg_send ~self ~cmd:(selector "controlPoint2") ~typ:(returning CGPoint.t) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let cubicTimingParameters self = msg_send ~self ~cmd:(selector "cubicTimingParameters") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let effectiveTimingFunction self = msg_send ~self ~cmd:(selector "effectiveTimingFunction") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithAnimationCurve x self = msg_send ~self ~cmd:(selector "initWithAnimationCurve:") ~typ:(llong @-> returning id) (LLong.of_int x) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithControlPoint1 x ~controlPoint2 self = msg_send ~self ~cmd:(selector "initWithControlPoint1:controlPoint2:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning id) x controlPoint2 +let initWithCustomCurve x self = msg_send ~self ~cmd:(selector "initWithCustomCurve:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let setSpringTimingParameters x self = msg_send ~self ~cmd:(selector "setSpringTimingParameters:") ~typ:(id @-> returning void) x +let springTimingParameters self = msg_send ~self ~cmd:(selector "springTimingParameters") ~typ:(returning id) +let timingCurveType self = msg_send ~self ~cmd:(selector "timingCurveType") ~typ:(returning llong) +let timingFunction self = msg_send ~self ~cmd:(selector "timingFunction") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UICursorInteraction.ml b/uikit/UICursorInteraction.ml index 43149d73..b969e686 100644 --- a/uikit/UICursorInteraction.ml +++ b/uikit/UICursorInteraction.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICursorInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicursorinteraction?language=objc}UICursorInteraction} *) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let gestureRecognizer x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRecognizeSimultaneouslyWithGestureRecognizer -let hoverGestureRecognizer self = msg_send ~self ~cmd:(selector "hoverGestureRecognizer") ~typ:(returning (id)) -let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning (id)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setHoverGestureRecognizer x self = msg_send ~self ~cmd:(selector "setHoverGestureRecognizer:") ~typ:(id @-> returning (void)) x -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UICursorInteraction" + +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let gestureRecognizer x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldRecognizeSimultaneouslyWithGestureRecognizer +let hoverGestureRecognizer self = msg_send ~self ~cmd:(selector "hoverGestureRecognizer") ~typ:(returning id) +let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning id) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setHoverGestureRecognizer x self = msg_send ~self ~cmd:(selector "setHoverGestureRecognizer:") ~typ:(id @-> returning void) x +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UICustomObject.ml b/uikit/UICustomObject.ml index 6fe03055..a3f8a88d 100644 --- a/uikit/UICustomObject.ml +++ b/uikit/UICustomObject.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICustomObject" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicustomobject?language=objc}UICustomObject} *) -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 \ No newline at end of file +let self = get_class "UICustomObject" + +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 \ No newline at end of file diff --git a/uikit/UICustomViewMenuElement.ml b/uikit/UICustomViewMenuElement.ml index 4028c83d..3c5d8974 100644 --- a/uikit/UICustomViewMenuElement.ml +++ b/uikit/UICustomViewMenuElement.ml @@ -5,24 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UICustomViewMenuElement" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicustomviewmenuelement?language=objc}UICustomViewMenuElement} *) -module C = struct - let elementWithViewProvider x self = msg_send ~self ~cmd:(selector "elementWithViewProvider:") ~typ:(ptr void @-> returning (id)) x -end +let self = get_class "UICustomViewMenuElement" -let attributes self = msg_send ~self ~cmd:(selector "attributes") ~typ:(returning (ullong)) -let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning (id)) -let discoverabilityTitle self = msg_send ~self ~cmd:(selector "discoverabilityTitle") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let isLeaf self = msg_send ~self ~cmd:(selector "isLeaf") ~typ:(returning (bool)) -let isLoadingPlaceholder self = msg_send ~self ~cmd:(selector "isLoadingPlaceholder") ~typ:(returning (bool)) -let keepsMenuPresented self = msg_send ~self ~cmd:(selector "keepsMenuPresented") ~typ:(returning (bool)) -let requiresAuthenticatedInput self = msg_send ~self ~cmd:(selector "requiresAuthenticatedInput") ~typ:(returning (bool)) -let setAttributes x self = msg_send ~self ~cmd:(selector "setAttributes:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDiscoverabilityTitle x self = msg_send ~self ~cmd:(selector "setDiscoverabilityTitle:") ~typ:(id @-> returning (void)) x -let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setViewProvider x self = msg_send ~self ~cmd:(selector "setViewProvider:") ~typ:(ptr void @-> returning (void)) x -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (llong)) +let attributes self = msg_send ~self ~cmd:(selector "attributes") ~typ:(returning ullong) +let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning id) +let discoverabilityTitle self = msg_send ~self ~cmd:(selector "discoverabilityTitle") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let isLeaf self = msg_send ~self ~cmd:(selector "isLeaf") ~typ:(returning bool) +let isLoadingPlaceholder self = msg_send ~self ~cmd:(selector "isLoadingPlaceholder") ~typ:(returning bool) +let keepsMenuPresented self = msg_send ~self ~cmd:(selector "keepsMenuPresented") ~typ:(returning bool) +let requiresAuthenticatedInput self = msg_send ~self ~cmd:(selector "requiresAuthenticatedInput") ~typ:(returning bool) +let setAttributes x self = msg_send ~self ~cmd:(selector "setAttributes:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDiscoverabilityTitle x self = msg_send ~self ~cmd:(selector "setDiscoverabilityTitle:") ~typ:(id @-> returning void) x +let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setViewProvider x self = msg_send ~self ~cmd:(selector "setViewProvider:") ~typ:((ptr void) @-> returning void) x +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning llong) let viewProvider self = msg_send ~self ~cmd:(selector "viewProvider") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/uikit/UICustomViewMenuElementClass.ml b/uikit/UICustomViewMenuElementClass.ml new file mode 100644 index 00000000..6d843f26 --- /dev/null +++ b/uikit/UICustomViewMenuElementClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicustomviewmenuelement?language=objc}UICustomViewMenuElement} *) + +let elementWithViewProvider x self = msg_send ~self ~cmd:(selector "elementWithViewProvider:") ~typ:((ptr void) @-> returning id) x \ No newline at end of file diff --git a/uikit/UIDateLabel.ml b/uikit/UIDateLabel.ml index 604cd61b..5f677d1e 100644 --- a/uikit/UIDateLabel.ml +++ b/uikit/UIDateLabel.ml @@ -5,37 +5,35 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDateLabel" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidatelabel?language=objc}UIDateLabel} *) -module C = struct - let amString self = msg_send ~self ~cmd:(selector "amString") ~typ:(returning (id)) - let defaultFont self = msg_send ~self ~cmd:(selector "defaultFont") ~typ:(returning (id)) - let pmString self = msg_send ~self ~cmd:(selector "pmString") ~typ:(returning (id)) -end +let self = get_class "UIDateLabel" -let boldForAllLocales self = msg_send ~self ~cmd:(selector "boldForAllLocales") ~typ:(returning (bool)) -let date self = msg_send ~self ~cmd:(selector "date") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let drawTextInRect x self = msg_send ~self ~cmd:(selector "drawTextInRect:") ~typ:(CGRect.t @-> returning (void)) x -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let forceTimeOnly self = msg_send ~self ~cmd:(selector "forceTimeOnly") ~typ:(returning (bool)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let paddingFromTimeToDesignator self = msg_send ~self ~cmd:(selector "paddingFromTimeToDesignator") ~typ:(returning (double)) -let setBoldForAllLocales x self = msg_send ~self ~cmd:(selector "setBoldForAllLocales:") ~typ:(bool @-> returning (void)) x -let setDate x self = msg_send ~self ~cmd:(selector "setDate:") ~typ:(id @-> returning (void)) x -let setForceTimeOnly x self = msg_send ~self ~cmd:(selector "setForceTimeOnly:") ~typ:(bool @-> returning (void)) x -let setPaddingFromTimeToDesignator x self = msg_send ~self ~cmd:(selector "setPaddingFromTimeToDesignator:") ~typ:(double @-> returning (void)) x -let setShouldRecomputeText x self = msg_send ~self ~cmd:(selector "setShouldRecomputeText:") ~typ:(bool @-> returning (void)) x -let setTimeInterval x self = msg_send ~self ~cmd:(selector "setTimeInterval:") ~typ:(double @-> returning (void)) x -let shouldRecomputeText self = msg_send ~self ~cmd:(selector "shouldRecomputeText") ~typ:(returning (bool)) -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let timeDesignator self = msg_send ~self ~cmd:(selector "timeDesignator") ~typ:(returning (id)) -let timeDesignatorAppearsBeforeTime self = msg_send ~self ~cmd:(selector "timeDesignatorAppearsBeforeTime") ~typ:(returning (bool)) -let timeDesignatorFont self = msg_send ~self ~cmd:(selector "timeDesignatorFont") ~typ:(returning (id)) -let timeDesignatorSize self = msg_send_stret ~self ~cmd:(selector "timeDesignatorSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let timeInterval self = msg_send ~self ~cmd:(selector "timeInterval") ~typ:(returning (double)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let use24HourTime self = msg_send ~self ~cmd:(selector "use24HourTime") ~typ:(returning (bool)) \ No newline at end of file +let boldForAllLocales self = msg_send ~self ~cmd:(selector "boldForAllLocales") ~typ:(returning bool) +let date self = msg_send ~self ~cmd:(selector "date") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let drawTextInRect x self = msg_send ~self ~cmd:(selector "drawTextInRect:") ~typ:(CGRect.t @-> returning void) x +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let forceTimeOnly self = msg_send ~self ~cmd:(selector "forceTimeOnly") ~typ:(returning bool) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let paddingFromTimeToDesignator self = msg_send ~self ~cmd:(selector "paddingFromTimeToDesignator") ~typ:(returning double) +let setBoldForAllLocales x self = msg_send ~self ~cmd:(selector "setBoldForAllLocales:") ~typ:(bool @-> returning void) x +let setDate x self = msg_send ~self ~cmd:(selector "setDate:") ~typ:(id @-> returning void) x +let setForceTimeOnly x self = msg_send ~self ~cmd:(selector "setForceTimeOnly:") ~typ:(bool @-> returning void) x +let setPaddingFromTimeToDesignator x self = msg_send ~self ~cmd:(selector "setPaddingFromTimeToDesignator:") ~typ:(double @-> returning void) x +let setShouldRecomputeText x self = msg_send ~self ~cmd:(selector "setShouldRecomputeText:") ~typ:(bool @-> returning void) x +let setTimeInterval x self = msg_send ~self ~cmd:(selector "setTimeInterval:") ~typ:(double @-> returning void) x +let shouldRecomputeText self = msg_send ~self ~cmd:(selector "shouldRecomputeText") ~typ:(returning bool) +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let timeDesignator self = msg_send ~self ~cmd:(selector "timeDesignator") ~typ:(returning id) +let timeDesignatorAppearsBeforeTime self = msg_send ~self ~cmd:(selector "timeDesignatorAppearsBeforeTime") ~typ:(returning bool) +let timeDesignatorFont self = msg_send ~self ~cmd:(selector "timeDesignatorFont") ~typ:(returning id) +let timeDesignatorSize self = msg_send ~self ~cmd:(selector "timeDesignatorSize") ~typ:(returning CGSize.t) +let timeInterval self = msg_send ~self ~cmd:(selector "timeInterval") ~typ:(returning double) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let use24HourTime self = msg_send ~self ~cmd:(selector "use24HourTime") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIDateLabelClass.ml b/uikit/UIDateLabelClass.ml new file mode 100644 index 00000000..0f799042 --- /dev/null +++ b/uikit/UIDateLabelClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidatelabel?language=objc}UIDateLabel} *) + +let amString self = msg_send ~self ~cmd:(selector "amString") ~typ:(returning id) +let defaultFont self = msg_send ~self ~cmd:(selector "defaultFont") ~typ:(returning id) +let pmString self = msg_send ~self ~cmd:(selector "pmString") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIDatePicker.ml b/uikit/UIDatePicker.ml index ca9e6136..f10b8cb0 100644 --- a/uikit/UIDatePicker.ml +++ b/uikit/UIDatePicker.ml @@ -5,57 +5,61 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDatePicker" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidatepicker?language=objc}UIDatePicker} *) -let awakeFromNib self = msg_send ~self ~cmd:(selector "awakeFromNib") ~typ:(returning (void)) -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let calendar self = msg_send ~self ~cmd:(selector "calendar") ~typ:(returning (id)) -let countDownDuration self = msg_send ~self ~cmd:(selector "countDownDuration") ~typ:(returning (double)) -let date self = msg_send ~self ~cmd:(selector "date") ~typ:(returning (id)) -let dateComponents self = msg_send ~self ~cmd:(selector "dateComponents") ~typ:(returning (id)) -let datePickerMode self = msg_send ~self ~cmd:(selector "datePickerMode") ~typ:(returning (llong)) -let datePickerStyle self = msg_send ~self ~cmd:(selector "datePickerStyle") ~typ:(returning (llong)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let hour self = msg_send ~self ~cmd:(selector "hour") ~typ:(returning (int)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let invalidateIntrinsicContentSize self = msg_send ~self ~cmd:(selector "invalidateIntrinsicContentSize") ~typ:(returning (void)) -let layoutMarginsDidChange self = msg_send ~self ~cmd:(selector "layoutMarginsDidChange") ~typ:(returning (void)) -let locale self = msg_send ~self ~cmd:(selector "locale") ~typ:(returning (id)) -let maximumDate self = msg_send ~self ~cmd:(selector "maximumDate") ~typ:(returning (id)) -let minimumDate self = msg_send ~self ~cmd:(selector "minimumDate") ~typ:(returning (id)) -let minute self = msg_send ~self ~cmd:(selector "minute") ~typ:(returning (int)) -let minuteInterval self = msg_send ~self ~cmd:(selector "minuteInterval") ~typ:(returning (llong)) -let preferredDatePickerStyle self = msg_send ~self ~cmd:(selector "preferredDatePickerStyle") ~typ:(returning (llong)) -let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning (bool)) -let roundsToMinuteInterval self = msg_send ~self ~cmd:(selector "roundsToMinuteInterval") ~typ:(returning (bool)) -let second self = msg_send ~self ~cmd:(selector "second") ~typ:(returning (int)) -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setCalendar x self = msg_send ~self ~cmd:(selector "setCalendar:") ~typ:(id @-> returning (void)) x -let setContentHorizontalAlignment x self = msg_send ~self ~cmd:(selector "setContentHorizontalAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCountDownDuration x self = msg_send ~self ~cmd:(selector "setCountDownDuration:") ~typ:(double @-> returning (void)) x -let setDate x self = msg_send ~self ~cmd:(selector "setDate:") ~typ:(id @-> returning (void)) x -let setDate1 x ~animate self = msg_send ~self ~cmd:(selector "setDate:animate:") ~typ:(id @-> bool @-> returning (void)) x animate -let setDate2 x ~animated self = msg_send ~self ~cmd:(selector "setDate:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setDateComponents x self = msg_send ~self ~cmd:(selector "setDateComponents:") ~typ:(id @-> returning (void)) x -let setDatePickerMode x self = msg_send ~self ~cmd:(selector "setDatePickerMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHighlightsToday x self = msg_send ~self ~cmd:(selector "setHighlightsToday:") ~typ:(bool @-> returning (void)) x -let setLocale x self = msg_send ~self ~cmd:(selector "setLocale:") ~typ:(id @-> returning (void)) x -let setMaximumDate x self = msg_send ~self ~cmd:(selector "setMaximumDate:") ~typ:(id @-> returning (void)) x -let setMinimumDate x self = msg_send ~self ~cmd:(selector "setMinimumDate:") ~typ:(id @-> returning (void)) x -let setMinuteInterval x self = msg_send ~self ~cmd:(selector "setMinuteInterval:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPreferredDatePickerStyle x self = msg_send ~self ~cmd:(selector "setPreferredDatePickerStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setRoundsToMinuteInterval x self = msg_send ~self ~cmd:(selector "setRoundsToMinuteInterval:") ~typ:(bool @-> returning (void)) x -let setStaggerTimeIntervals x self = msg_send ~self ~cmd:(selector "setStaggerTimeIntervals:") ~typ:(bool @-> returning (void)) x -let setTimeInterval x self = msg_send ~self ~cmd:(selector "setTimeInterval:") ~typ:(double @-> returning (void)) x -let setTimeZone x self = msg_send ~self ~cmd:(selector "setTimeZone:") ~typ:(id @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let timeInterval self = msg_send ~self ~cmd:(selector "timeInterval") ~typ:(returning (double)) -let timeZone self = msg_send ~self ~cmd:(selector "timeZone") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIDatePicker" + +let awakeFromNib self = msg_send ~self ~cmd:(selector "awakeFromNib") ~typ:(returning void) +let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning bool) +let calendar self = msg_send ~self ~cmd:(selector "calendar") ~typ:(returning id) +let countDownDuration self = msg_send ~self ~cmd:(selector "countDownDuration") ~typ:(returning double) +let date self = msg_send ~self ~cmd:(selector "date") ~typ:(returning id) +let dateComponents self = msg_send ~self ~cmd:(selector "dateComponents") ~typ:(returning id) +let datePickerMode self = msg_send ~self ~cmd:(selector "datePickerMode") ~typ:(returning llong) +let datePickerStyle self = msg_send ~self ~cmd:(selector "datePickerStyle") ~typ:(returning llong) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let hour self = msg_send ~self ~cmd:(selector "hour") ~typ:(returning int) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let invalidateIntrinsicContentSize self = msg_send ~self ~cmd:(selector "invalidateIntrinsicContentSize") ~typ:(returning void) +let layoutMarginsDidChange self = msg_send ~self ~cmd:(selector "layoutMarginsDidChange") ~typ:(returning void) +let locale self = msg_send ~self ~cmd:(selector "locale") ~typ:(returning id) +let maximumDate self = msg_send ~self ~cmd:(selector "maximumDate") ~typ:(returning id) +let minimumDate self = msg_send ~self ~cmd:(selector "minimumDate") ~typ:(returning id) +let minute self = msg_send ~self ~cmd:(selector "minute") ~typ:(returning int) +let minuteInterval self = msg_send ~self ~cmd:(selector "minuteInterval") ~typ:(returning llong) +let preferredDatePickerStyle self = msg_send ~self ~cmd:(selector "preferredDatePickerStyle") ~typ:(returning llong) +let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning bool) +let roundsToMinuteInterval self = msg_send ~self ~cmd:(selector "roundsToMinuteInterval") ~typ:(returning bool) +let second self = msg_send ~self ~cmd:(selector "second") ~typ:(returning int) +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setCalendar x self = msg_send ~self ~cmd:(selector "setCalendar:") ~typ:(id @-> returning void) x +let setContentHorizontalAlignment x self = msg_send ~self ~cmd:(selector "setContentHorizontalAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCountDownDuration x self = msg_send ~self ~cmd:(selector "setCountDownDuration:") ~typ:(double @-> returning void) x +let setDate x self = msg_send ~self ~cmd:(selector "setDate:") ~typ:(id @-> returning void) x +let setDate1 x ~animate self = msg_send ~self ~cmd:(selector "setDate:animate:") ~typ:(id @-> bool @-> returning void) x animate +let setDate2 x ~animated self = msg_send ~self ~cmd:(selector "setDate:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setDateComponents x self = msg_send ~self ~cmd:(selector "setDateComponents:") ~typ:(id @-> returning void) x +let setDatePickerMode x self = msg_send ~self ~cmd:(selector "setDatePickerMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHighlightsToday x self = msg_send ~self ~cmd:(selector "setHighlightsToday:") ~typ:(bool @-> returning void) x +let setLocale x self = msg_send ~self ~cmd:(selector "setLocale:") ~typ:(id @-> returning void) x +let setMaximumDate x self = msg_send ~self ~cmd:(selector "setMaximumDate:") ~typ:(id @-> returning void) x +let setMinimumDate x self = msg_send ~self ~cmd:(selector "setMinimumDate:") ~typ:(id @-> returning void) x +let setMinuteInterval x self = msg_send ~self ~cmd:(selector "setMinuteInterval:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPreferredDatePickerStyle x self = msg_send ~self ~cmd:(selector "setPreferredDatePickerStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setRoundsToMinuteInterval x self = msg_send ~self ~cmd:(selector "setRoundsToMinuteInterval:") ~typ:(bool @-> returning void) x +let setStaggerTimeIntervals x self = msg_send ~self ~cmd:(selector "setStaggerTimeIntervals:") ~typ:(bool @-> returning void) x +let setTimeInterval x self = msg_send ~self ~cmd:(selector "setTimeInterval:") ~typ:(double @-> returning void) x +let setTimeZone x self = msg_send ~self ~cmd:(selector "setTimeZone:") ~typ:(id @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let timeInterval self = msg_send ~self ~cmd:(selector "timeInterval") ~typ:(returning double) +let timeZone self = msg_send ~self ~cmd:(selector "timeZone") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIDatePickerContentView.ml b/uikit/UIDatePickerContentView.ml index f6650175..4688515f 100644 --- a/uikit/UIDatePickerContentView.ml +++ b/uikit/UIDatePickerContentView.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDatePickerContentView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidatepickercontentview?language=objc}UIDatePickerContentView} *) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithMode x self = msg_send ~self ~cmd:(selector "initWithMode:") ~typ:(id @-> returning (id)) x -let isAmPm self = msg_send ~self ~cmd:(selector "isAmPm") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let mode self = msg_send ~self ~cmd:(selector "mode") ~typ:(returning (id)) -let setIsAmPm x self = msg_send ~self ~cmd:(selector "setIsAmPm:") ~typ:(bool @-> returning (void)) x -let setMode x self = msg_send ~self ~cmd:(selector "setMode:") ~typ:(id @-> returning (void)) x -let setTitleAlignment x self = msg_send ~self ~cmd:(selector "setTitleAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTitleLabelMaxX x self = msg_send ~self ~cmd:(selector "setTitleLabelMaxX:") ~typ:(double @-> returning (void)) x -let setUseDigitFont x self = msg_send ~self ~cmd:(selector "setUseDigitFont:") ~typ:(bool @-> returning (void)) x -let titleAlignment self = msg_send ~self ~cmd:(selector "titleAlignment") ~typ:(returning (llong)) -let titleLabel self = msg_send ~self ~cmd:(selector "titleLabel") ~typ:(returning (id)) -let titleLabelMaxX self = msg_send ~self ~cmd:(selector "titleLabelMaxX") ~typ:(returning (double)) -let useDigitFont self = msg_send ~self ~cmd:(selector "useDigitFont") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIDatePickerContentView" + +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithMode x self = msg_send ~self ~cmd:(selector "initWithMode:") ~typ:(id @-> returning id) x +let isAmPm self = msg_send ~self ~cmd:(selector "isAmPm") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let mode self = msg_send ~self ~cmd:(selector "mode") ~typ:(returning id) +let setIsAmPm x self = msg_send ~self ~cmd:(selector "setIsAmPm:") ~typ:(bool @-> returning void) x +let setMode x self = msg_send ~self ~cmd:(selector "setMode:") ~typ:(id @-> returning void) x +let setTitleAlignment x self = msg_send ~self ~cmd:(selector "setTitleAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTitleLabelMaxX x self = msg_send ~self ~cmd:(selector "setTitleLabelMaxX:") ~typ:(double @-> returning void) x +let setUseDigitFont x self = msg_send ~self ~cmd:(selector "setUseDigitFont:") ~typ:(bool @-> returning void) x +let titleAlignment self = msg_send ~self ~cmd:(selector "titleAlignment") ~typ:(returning llong) +let titleLabel self = msg_send ~self ~cmd:(selector "titleLabel") ~typ:(returning id) +let titleLabelMaxX self = msg_send ~self ~cmd:(selector "titleLabelMaxX") ~typ:(returning double) +let useDigitFont self = msg_send ~self ~cmd:(selector "useDigitFont") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIDatePickerWeekMonthDayView.ml b/uikit/UIDatePickerWeekMonthDayView.ml index b7d4faf7..1da10971 100644 --- a/uikit/UIDatePickerWeekMonthDayView.ml +++ b/uikit/UIDatePickerWeekMonthDayView.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDatePickerWeekMonthDayView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidatepickerweekmonthdayview?language=objc}UIDatePickerWeekMonthDayView} *) -let dateLabel self = msg_send ~self ~cmd:(selector "dateLabel") ~typ:(returning (id)) -let formattedDateString self = msg_send ~self ~cmd:(selector "formattedDateString") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setFormattedDateString x self = msg_send ~self ~cmd:(selector "setFormattedDateString:") ~typ:(id @-> returning (void)) x -let setWeekdayLast x self = msg_send ~self ~cmd:(selector "setWeekdayLast:") ~typ:(bool @-> returning (void)) x -let setWeekdayWidth x self = msg_send ~self ~cmd:(selector "setWeekdayWidth:") ~typ:(double @-> returning (void)) x -let weekdayLabel self = msg_send ~self ~cmd:(selector "weekdayLabel") ~typ:(returning (id)) -let weekdayLast self = msg_send ~self ~cmd:(selector "weekdayLast") ~typ:(returning (bool)) -let weekdayWidth self = msg_send ~self ~cmd:(selector "weekdayWidth") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIDatePickerWeekMonthDayView" + +let dateLabel self = msg_send ~self ~cmd:(selector "dateLabel") ~typ:(returning id) +let formattedDateString self = msg_send ~self ~cmd:(selector "formattedDateString") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setFormattedDateString x self = msg_send ~self ~cmd:(selector "setFormattedDateString:") ~typ:(id @-> returning void) x +let setWeekdayLast x self = msg_send ~self ~cmd:(selector "setWeekdayLast:") ~typ:(bool @-> returning void) x +let setWeekdayWidth x self = msg_send ~self ~cmd:(selector "setWeekdayWidth:") ~typ:(double @-> returning void) x +let weekdayLabel self = msg_send ~self ~cmd:(selector "weekdayLabel") ~typ:(returning id) +let weekdayLast self = msg_send ~self ~cmd:(selector "weekdayLast") ~typ:(returning bool) +let weekdayWidth self = msg_send ~self ~cmd:(selector "weekdayWidth") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIDecomposedReloadUpdateItem.ml b/uikit/UIDecomposedReloadUpdateItem.ml deleted file mode 100644 index eaf10ea4..00000000 --- a/uikit/UIDecomposedReloadUpdateItem.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDecomposedReloadUpdateItem" - -let isDecomposedFromReload self = msg_send ~self ~cmd:(selector "isDecomposedFromReload") ~typ:(returning (bool)) -let pairedItem self = msg_send ~self ~cmd:(selector "pairedItem") ~typ:(returning (id)) -let setPairedItem x self = msg_send ~self ~cmd:(selector "setPairedItem:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIDefaultKeyboardInput.ml b/uikit/UIDefaultKeyboardInput.ml index 03aae177..04b17348 100644 --- a/uikit/UIDefaultKeyboardInput.ml +++ b/uikit/UIDefaultKeyboardInput.ml @@ -5,90 +5,94 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDefaultKeyboardInput" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidefaultkeyboardinput?language=objc}UIDefaultKeyboardInput} *) -let acceptsEmoji self = msg_send ~self ~cmd:(selector "acceptsEmoji") ~typ:(returning (bool)) -let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int inDirection) -let becomesEditableWithGestures self = msg_send ~self ~cmd:(selector "becomesEditableWithGestures") ~typ:(returning (bool)) -let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning (id)) -let caretRect self = msg_send_stret ~self ~cmd:(selector "caretRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let caretRectForPosition x self = msg_send_stret ~self ~cmd:(selector "caretRectForPosition:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let characterAfterCaretSelection self = msg_send ~self ~cmd:(selector "characterAfterCaretSelection") ~typ:(returning (ushort)) -let characterBeforeCaretSelection self = msg_send ~self ~cmd:(selector "characterBeforeCaretSelection") ~typ:(returning (ushort)) -let characterInRelationToCaretSelection x self = msg_send ~self ~cmd:(selector "characterInRelationToCaretSelection:") ~typ:(int @-> returning (ushort)) x -let characterRangeAtPoint x self = msg_send ~self ~cmd:(selector "characterRangeAtPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let characterRangeByExtendingPosition x ~inDirection self = msg_send ~self ~cmd:(selector "characterRangeByExtendingPosition:inDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int inDirection) -let closestPositionToPoint x self = msg_send ~self ~cmd:(selector "closestPositionToPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let closestPositionToPoint' x ~withinRange self = msg_send ~self ~cmd:(selector "closestPositionToPoint:withinRange:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withinRange -let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning (llong)) x toPosition -let confirmMarkedText x self = msg_send ~self ~cmd:(selector "confirmMarkedText:") ~typ:(id @-> returning (void)) x -let convertCaretRect x self = msg_send_stret ~self ~cmd:(selector "convertCaretRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning (void)) -let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning (id)) -let extendCurrentSelection x self = msg_send ~self ~cmd:(selector "extendCurrentSelection:") ~typ:(int @-> returning (void)) x -let firstRectForRange x self = msg_send_stret ~self ~cmd:(selector "firstRectForRange:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let fontForCaretSelection self = msg_send ~self ~cmd:(selector "fontForCaretSelection") ~typ:(returning (id)) -let forceDisableDictation self = msg_send ~self ~cmd:(selector "forceDisableDictation") ~typ:(returning (bool)) -let forceEnableDictation self = msg_send ~self ~cmd:(selector "forceEnableDictation") ~typ:(returning (bool)) -let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning (void)) x -let hasContent self = msg_send ~self ~cmd:(selector "hasContent") ~typ:(returning (bool)) -let hasSelection self = msg_send ~self ~cmd:(selector "hasSelection") ~typ:(returning (bool)) -let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning (bool)) -let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning (id)) -let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning (void)) x -let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning (id)) -let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning (bool)) -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let isPosition x ~atBoundary ~inDirection self = msg_send ~self ~cmd:(selector "isPosition:atBoundary:inDirection:") ~typ:(id @-> llong @-> llong @-> returning (bool)) x (LLong.of_int atBoundary) (LLong.of_int inDirection) -let isPosition' x ~withinTextUnit ~inDirection self = msg_send ~self ~cmd:(selector "isPosition:withinTextUnit:inDirection:") ~typ:(id @-> llong @-> llong @-> returning (bool)) x (LLong.of_int withinTextUnit) (LLong.of_int inDirection) -let isSecure self = msg_send ~self ~cmd:(selector "isSecure") ~typ:(returning (bool)) -let isShowingPlaceholder self = msg_send ~self ~cmd:(selector "isShowingPlaceholder") ~typ:(returning (bool)) -let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning (id)) -let markedTextStyle self = msg_send ~self ~cmd:(selector "markedTextStyle") ~typ:(returning (id)) -let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning (id)) x -let offsetFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "offsetFromPosition:toPosition:") ~typ:(id @-> id @-> returning (llong)) x toPosition -let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int offset) -let positionFromPosition1 x ~inDirection ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:inDirection:offset:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int inDirection) (LLong.of_int offset) -let positionFromPosition2 x ~toBoundary ~inDirection self = msg_send ~self ~cmd:(selector "positionFromPosition:toBoundary:inDirection:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int toBoundary) (LLong.of_int inDirection) -let positionWithinRange x ~farthestInDirection self = msg_send ~self ~cmd:(selector "positionWithinRange:farthestInDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int farthestInDirection) -let rangeByExtendingCurrentSelection x self = msg_send ~self ~cmd:(selector "rangeByExtendingCurrentSelection:") ~typ:(int @-> returning (id)) x -let rangeByMovingCurrentSelection x self = msg_send ~self ~cmd:(selector "rangeByMovingCurrentSelection:") ~typ:(int @-> returning (id)) x -let rangeEnclosingPosition x ~withGranularity ~inDirection self = msg_send ~self ~cmd:(selector "rangeEnclosingPosition:withGranularity:inDirection:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int withGranularity) (LLong.of_int inDirection) -let rectsForNSRange x self = msg_send ~self ~cmd:(selector "rectsForNSRange:") ~typ:(NSRange.t @-> returning (id)) x -let replaceCurrentWordWithText x self = msg_send ~self ~cmd:(selector "replaceCurrentWordWithText:") ~typ:(id @-> returning (void)) x -let replaceRange x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning (void)) x withText -let selectAll self = msg_send ~self ~cmd:(selector "selectAll") ~typ:(returning (void)) -let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning (id)) -let selectionAtDocumentStart self = msg_send ~self ~cmd:(selector "selectionAtDocumentStart") ~typ:(returning (bool)) -let selectionAtWordStart self = msg_send ~self ~cmd:(selector "selectionAtWordStart") ~typ:(returning (bool)) -let selectionRange self = msg_send_stret ~self ~cmd:(selector "selectionRange") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let selectionRectsForRange x self = msg_send ~self ~cmd:(selector "selectionRectsForRange:") ~typ:(id @-> returning (id)) x -let selectionState self = msg_send ~self ~cmd:(selector "selectionState") ~typ:(returning (int)) -let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning (id)) -let setAcceptsEmoji x self = msg_send ~self ~cmd:(selector "setAcceptsEmoji:") ~typ:(bool @-> returning (void)) x -let setBaseWritingDirection x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) forRange -let setBecomesEditableWithGestures x self = msg_send ~self ~cmd:(selector "setBecomesEditableWithGestures:") ~typ:(bool @-> returning (void)) x -let setForceDisableDictation x self = msg_send ~self ~cmd:(selector "setForceDisableDictation:") ~typ:(bool @-> returning (void)) x -let setForceEnableDictation x self = msg_send ~self ~cmd:(selector "setForceEnableDictation:") ~typ:(bool @-> returning (void)) x -let setInputDelegate x self = msg_send ~self ~cmd:(selector "setInputDelegate:") ~typ:(id @-> returning (void)) x -let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning (void)) x selectedRange -let setMarkedTextStyle x self = msg_send ~self ~cmd:(selector "setMarkedTextStyle:") ~typ:(id @-> returning (void)) x -let setSecure x self = msg_send ~self ~cmd:(selector "setSecure:") ~typ:(bool @-> returning (void)) x -let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning (void)) x -let setSelectionWithPoint x self = msg_send ~self ~cmd:(selector "setSelectionWithPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let setupPlaceholderTextIfNeeded self = msg_send ~self ~cmd:(selector "setupPlaceholderTextIfNeeded") ~typ:(returning (void)) -let takeTraitsFrom x self = msg_send ~self ~cmd:(selector "takeTraitsFrom:") ~typ:(id @-> returning (void)) x -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let textColorForCaretSelection self = msg_send ~self ~cmd:(selector "textColorForCaretSelection") ~typ:(returning (id)) -let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning (id)) x -let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning (id)) -let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning (id)) x toPosition -let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning (id)) -let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning (void)) -let updateSelection self = msg_send ~self ~cmd:(selector "updateSelection") ~typ:(returning (void)) -let visibleBounds self = msg_send_stret ~self ~cmd:(selector "visibleBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let wordOffsetInRange x self = msg_send ~self ~cmd:(selector "wordOffsetInRange:") ~typ:(id @-> returning (int)) x \ No newline at end of file +let self = get_class "UIDefaultKeyboardInput" + +let acceptsEmoji self = msg_send ~self ~cmd:(selector "acceptsEmoji") ~typ:(returning bool) +let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int inDirection) +let becomesEditableWithGestures self = msg_send ~self ~cmd:(selector "becomesEditableWithGestures") ~typ:(returning bool) +let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning id) +let caretRect self = msg_send ~self ~cmd:(selector "caretRect") ~typ:(returning CGRect.t) +let caretRectForPosition x self = msg_send ~self ~cmd:(selector "caretRectForPosition:") ~typ:(id @-> returning CGRect.t) x +let characterAfterCaretSelection self = msg_send ~self ~cmd:(selector "characterAfterCaretSelection") ~typ:(returning ushort) +let characterBeforeCaretSelection self = msg_send ~self ~cmd:(selector "characterBeforeCaretSelection") ~typ:(returning ushort) +let characterInRelationToCaretSelection x self = msg_send ~self ~cmd:(selector "characterInRelationToCaretSelection:") ~typ:(int @-> returning ushort) x +let characterRangeAtPoint x self = msg_send ~self ~cmd:(selector "characterRangeAtPoint:") ~typ:(CGPoint.t @-> returning id) x +let characterRangeByExtendingPosition x ~inDirection self = msg_send ~self ~cmd:(selector "characterRangeByExtendingPosition:inDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int inDirection) +let closestPositionToPoint x self = msg_send ~self ~cmd:(selector "closestPositionToPoint:") ~typ:(CGPoint.t @-> returning id) x +let closestPositionToPoint' x ~withinRange self = msg_send ~self ~cmd:(selector "closestPositionToPoint:withinRange:") ~typ:(CGPoint.t @-> id @-> returning id) x withinRange +let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning llong) x toPosition +let confirmMarkedText x self = msg_send ~self ~cmd:(selector "confirmMarkedText:") ~typ:(id @-> returning void) x +let convertCaretRect x self = msg_send ~self ~cmd:(selector "convertCaretRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning void) +let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning id) +let extendCurrentSelection x self = msg_send ~self ~cmd:(selector "extendCurrentSelection:") ~typ:(int @-> returning void) x +let firstRectForRange x self = msg_send ~self ~cmd:(selector "firstRectForRange:") ~typ:(id @-> returning CGRect.t) x +let fontForCaretSelection self = msg_send ~self ~cmd:(selector "fontForCaretSelection") ~typ:(returning id) +let forceDisableDictation self = msg_send ~self ~cmd:(selector "forceDisableDictation") ~typ:(returning bool) +let forceEnableDictation self = msg_send ~self ~cmd:(selector "forceEnableDictation") ~typ:(returning bool) +let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning void) x +let hasContent self = msg_send ~self ~cmd:(selector "hasContent") ~typ:(returning bool) +let hasSelection self = msg_send ~self ~cmd:(selector "hasSelection") ~typ:(returning bool) +let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning bool) +let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning id) +let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning void) x +let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning id) +let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning bool) +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let isPosition x ~atBoundary ~inDirection self = msg_send ~self ~cmd:(selector "isPosition:atBoundary:inDirection:") ~typ:(id @-> llong @-> llong @-> returning bool) x (LLong.of_int atBoundary) (LLong.of_int inDirection) +let isPosition' x ~withinTextUnit ~inDirection self = msg_send ~self ~cmd:(selector "isPosition:withinTextUnit:inDirection:") ~typ:(id @-> llong @-> llong @-> returning bool) x (LLong.of_int withinTextUnit) (LLong.of_int inDirection) +let isSecure self = msg_send ~self ~cmd:(selector "isSecure") ~typ:(returning bool) +let isShowingPlaceholder self = msg_send ~self ~cmd:(selector "isShowingPlaceholder") ~typ:(returning bool) +let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning id) +let markedTextStyle self = msg_send ~self ~cmd:(selector "markedTextStyle") ~typ:(returning id) +let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning id) x +let offsetFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "offsetFromPosition:toPosition:") ~typ:(id @-> id @-> returning llong) x toPosition +let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int offset) +let positionFromPosition1 x ~inDirection ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:inDirection:offset:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int inDirection) (LLong.of_int offset) +let positionFromPosition2 x ~toBoundary ~inDirection self = msg_send ~self ~cmd:(selector "positionFromPosition:toBoundary:inDirection:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int toBoundary) (LLong.of_int inDirection) +let positionWithinRange x ~farthestInDirection self = msg_send ~self ~cmd:(selector "positionWithinRange:farthestInDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int farthestInDirection) +let rangeByExtendingCurrentSelection x self = msg_send ~self ~cmd:(selector "rangeByExtendingCurrentSelection:") ~typ:(int @-> returning id) x +let rangeByMovingCurrentSelection x self = msg_send ~self ~cmd:(selector "rangeByMovingCurrentSelection:") ~typ:(int @-> returning id) x +let rangeEnclosingPosition x ~withGranularity ~inDirection self = msg_send ~self ~cmd:(selector "rangeEnclosingPosition:withGranularity:inDirection:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int withGranularity) (LLong.of_int inDirection) +let rectsForNSRange x self = msg_send ~self ~cmd:(selector "rectsForNSRange:") ~typ:(NSRange.t @-> returning id) x +let replaceCurrentWordWithText x self = msg_send ~self ~cmd:(selector "replaceCurrentWordWithText:") ~typ:(id @-> returning void) x +let replaceRange x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning void) x withText +let selectAll self = msg_send ~self ~cmd:(selector "selectAll") ~typ:(returning void) +let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning id) +let selectionAtDocumentStart self = msg_send ~self ~cmd:(selector "selectionAtDocumentStart") ~typ:(returning bool) +let selectionAtWordStart self = msg_send ~self ~cmd:(selector "selectionAtWordStart") ~typ:(returning bool) +let selectionRange self = msg_send ~self ~cmd:(selector "selectionRange") ~typ:(returning NSRange.t) +let selectionRectsForRange x self = msg_send ~self ~cmd:(selector "selectionRectsForRange:") ~typ:(id @-> returning id) x +let selectionState self = msg_send ~self ~cmd:(selector "selectionState") ~typ:(returning int) +let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning id) +let setAcceptsEmoji x self = msg_send ~self ~cmd:(selector "setAcceptsEmoji:") ~typ:(bool @-> returning void) x +let setBaseWritingDirection x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) forRange +let setBecomesEditableWithGestures x self = msg_send ~self ~cmd:(selector "setBecomesEditableWithGestures:") ~typ:(bool @-> returning void) x +let setForceDisableDictation x self = msg_send ~self ~cmd:(selector "setForceDisableDictation:") ~typ:(bool @-> returning void) x +let setForceEnableDictation x self = msg_send ~self ~cmd:(selector "setForceEnableDictation:") ~typ:(bool @-> returning void) x +let setInputDelegate x self = msg_send ~self ~cmd:(selector "setInputDelegate:") ~typ:(id @-> returning void) x +let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning void) x selectedRange +let setMarkedTextStyle x self = msg_send ~self ~cmd:(selector "setMarkedTextStyle:") ~typ:(id @-> returning void) x +let setSecure x self = msg_send ~self ~cmd:(selector "setSecure:") ~typ:(bool @-> returning void) x +let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning void) x +let setSelectionWithPoint x self = msg_send ~self ~cmd:(selector "setSelectionWithPoint:") ~typ:(CGPoint.t @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let setupPlaceholderTextIfNeeded self = msg_send ~self ~cmd:(selector "setupPlaceholderTextIfNeeded") ~typ:(returning void) +let takeTraitsFrom x self = msg_send ~self ~cmd:(selector "takeTraitsFrom:") ~typ:(id @-> returning void) x +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let textColorForCaretSelection self = msg_send ~self ~cmd:(selector "textColorForCaretSelection") ~typ:(returning id) +let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning id) x +let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning id) +let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning id) x toPosition +let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning id) +let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning void) +let updateSelection self = msg_send ~self ~cmd:(selector "updateSelection") ~typ:(returning void) +let visibleBounds self = msg_send ~self ~cmd:(selector "visibleBounds") ~typ:(returning CGRect.t) +let wordOffsetInRange x self = msg_send ~self ~cmd:(selector "wordOffsetInRange:") ~typ:(id @-> returning int) x \ No newline at end of file diff --git a/uikit/UIDeferredMenuElement.ml b/uikit/UIDeferredMenuElement.ml index a8d866e5..2737cbca 100644 --- a/uikit/UIDeferredMenuElement.ml +++ b/uikit/UIDeferredMenuElement.ml @@ -5,32 +5,31 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDeferredMenuElement" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uideferredmenuelement?language=objc}UIDeferredMenuElement} *) -module C = struct - let elementWithProvider x self = msg_send ~self ~cmd:(selector "elementWithProvider:") ~typ:(ptr void @-> returning (id)) x - let elementWithUncachedProvider x self = msg_send ~self ~cmd:(selector "elementWithUncachedProvider:") ~typ:(ptr void @-> returning (id)) x -end +let self = get_class "UIDeferredMenuElement" -let attributes self = msg_send ~self ~cmd:(selector "attributes") ~typ:(returning (ullong)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let discoverabilityTitle self = msg_send ~self ~cmd:(selector "discoverabilityTitle") ~typ:(returning (id)) +let attributes self = msg_send ~self ~cmd:(selector "attributes") ~typ:(returning ullong) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let discoverabilityTitle self = msg_send ~self ~cmd:(selector "discoverabilityTitle") ~typ:(returning id) let elementProvider self = msg_send ~self ~cmd:(selector "elementProvider") ~typ:(returning (ptr void)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let fulfilled self = msg_send ~self ~cmd:(selector "fulfilled") ~typ:(returning (bool)) -let fulfilledElements self = msg_send ~self ~cmd:(selector "fulfilledElements") ~typ:(returning (id)) -let isLeaf self = msg_send ~self ~cmd:(selector "isLeaf") ~typ:(returning (bool)) -let isLoadingPlaceholder self = msg_send ~self ~cmd:(selector "isLoadingPlaceholder") ~typ:(returning (bool)) -let keepsMenuPresented self = msg_send ~self ~cmd:(selector "keepsMenuPresented") ~typ:(returning (bool)) -let metadata self = msg_send ~self ~cmd:(selector "metadata") ~typ:(returning (id)) -let requiresAuthenticatedInput self = msg_send ~self ~cmd:(selector "requiresAuthenticatedInput") ~typ:(returning (bool)) -let setAttributes x self = msg_send ~self ~cmd:(selector "setAttributes:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDiscoverabilityTitle x self = msg_send ~self ~cmd:(selector "setDiscoverabilityTitle:") ~typ:(id @-> returning (void)) x -let setElementProvider x self = msg_send ~self ~cmd:(selector "setElementProvider:") ~typ:(ptr void @-> returning (void)) x -let setMetadata x self = msg_send ~self ~cmd:(selector "setMetadata:") ~typ:(id @-> returning (void)) x -let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (llong)) \ No newline at end of file +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let fulfilled self = msg_send ~self ~cmd:(selector "fulfilled") ~typ:(returning bool) +let fulfilledElements self = msg_send ~self ~cmd:(selector "fulfilledElements") ~typ:(returning id) +let isLeaf self = msg_send ~self ~cmd:(selector "isLeaf") ~typ:(returning bool) +let isLoadingPlaceholder self = msg_send ~self ~cmd:(selector "isLoadingPlaceholder") ~typ:(returning bool) +let keepsMenuPresented self = msg_send ~self ~cmd:(selector "keepsMenuPresented") ~typ:(returning bool) +let metadata self = msg_send ~self ~cmd:(selector "metadata") ~typ:(returning id) +let requiresAuthenticatedInput self = msg_send ~self ~cmd:(selector "requiresAuthenticatedInput") ~typ:(returning bool) +let setAttributes x self = msg_send ~self ~cmd:(selector "setAttributes:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDiscoverabilityTitle x self = msg_send ~self ~cmd:(selector "setDiscoverabilityTitle:") ~typ:(id @-> returning void) x +let setElementProvider x self = msg_send ~self ~cmd:(selector "setElementProvider:") ~typ:((ptr void) @-> returning void) x +let setMetadata x self = msg_send ~self ~cmd:(selector "setMetadata:") ~typ:(id @-> returning void) x +let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIDeferredMenuElementClass.ml b/uikit/UIDeferredMenuElementClass.ml new file mode 100644 index 00000000..a407b2e9 --- /dev/null +++ b/uikit/UIDeferredMenuElementClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uideferredmenuelement?language=objc}UIDeferredMenuElement} *) + +let elementWithProvider x self = msg_send ~self ~cmd:(selector "elementWithProvider:") ~typ:((ptr void) @-> returning id) x +let elementWithUncachedProvider x self = msg_send ~self ~cmd:(selector "elementWithUncachedProvider:") ~typ:((ptr void) @-> returning id) x \ No newline at end of file diff --git a/uikit/UIDelayedAction.ml b/uikit/UIDelayedAction.ml index 8bcbfc1d..1c11a0b3 100644 --- a/uikit/UIDelayedAction.ml +++ b/uikit/UIDelayedAction.ml @@ -5,21 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDelayedAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidelayedaction?language=objc}UIDelayedAction} *) -let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delay self = msg_send ~self ~cmd:(selector "delay") ~typ:(returning (double)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithTarget x ~action ~userInfo ~delay self = msg_send ~self ~cmd:(selector "initWithTarget:action:userInfo:delay:") ~typ:(id @-> _SEL @-> id @-> double @-> returning (id)) x action userInfo delay -let initWithTarget' x ~action ~userInfo ~delay ~mode self = msg_send ~self ~cmd:(selector "initWithTarget:action:userInfo:delay:mode:") ~typ:(id @-> _SEL @-> id @-> double @-> id @-> returning (id)) x action userInfo delay mode -let scheduled self = msg_send ~self ~cmd:(selector "scheduled") ~typ:(returning (bool)) -let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning (void)) x -let setUserInfo x self = msg_send ~self ~cmd:(selector "setUserInfo:") ~typ:(id @-> returning (void)) x -let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning (id)) -let timerFired x self = msg_send ~self ~cmd:(selector "timerFired:") ~typ:(id @-> returning (void)) x -let touch self = msg_send ~self ~cmd:(selector "touch") ~typ:(returning (void)) -let touchWithDelay x self = msg_send ~self ~cmd:(selector "touchWithDelay:") ~typ:(double @-> returning (void)) x -let unschedule self = msg_send ~self ~cmd:(selector "unschedule") ~typ:(returning (void)) -let userInfo self = msg_send ~self ~cmd:(selector "userInfo") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIDelayedAction" + +let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delay self = msg_send ~self ~cmd:(selector "delay") ~typ:(returning double) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithTarget x ~action ~userInfo ~delay self = msg_send ~self ~cmd:(selector "initWithTarget:action:userInfo:delay:") ~typ:(id @-> _SEL @-> id @-> double @-> returning id) x action userInfo delay +let initWithTarget' x ~action ~userInfo ~delay ~mode self = msg_send ~self ~cmd:(selector "initWithTarget:action:userInfo:delay:mode:") ~typ:(id @-> _SEL @-> id @-> double @-> id @-> returning id) x action userInfo delay mode +let scheduled self = msg_send ~self ~cmd:(selector "scheduled") ~typ:(returning bool) +let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning void) x +let setUserInfo x self = msg_send ~self ~cmd:(selector "setUserInfo:") ~typ:(id @-> returning void) x +let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning id) +let timerFired x self = msg_send ~self ~cmd:(selector "timerFired:") ~typ:(id @-> returning void) x +let touch self = msg_send ~self ~cmd:(selector "touch") ~typ:(returning void) +let touchWithDelay x self = msg_send ~self ~cmd:(selector "touchWithDelay:") ~typ:(double @-> returning void) x +let unschedule self = msg_send ~self ~cmd:(selector "unschedule") ~typ:(returning void) +let userInfo self = msg_send ~self ~cmd:(selector "userInfo") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIDescriptionBuilder.ml b/uikit/UIDescriptionBuilder.ml index 0437815e..3de28c7a 100644 --- a/uikit/UIDescriptionBuilder.ml +++ b/uikit/UIDescriptionBuilder.ml @@ -5,34 +5,32 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDescriptionBuilder" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidescriptionbuilder?language=objc}UIDescriptionBuilder} *) -module C = struct - let descriptionBuilderWithObject x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithObject:") ~typ:(id @-> returning (id)) x - let descriptionForObject x ~keys self = msg_send ~self ~cmd:(selector "descriptionForObject:keys:") ~typ:(id @-> id @-> returning (id)) x keys - let descriptionForObject' x ~namesAndObjects self = msg_send ~self ~cmd:(selector "descriptionForObject:namesAndObjects:") ~typ:(id @-> id @-> returning (id)) x namesAndObjects -end +let self = get_class "UIDescriptionBuilder" -let appendKey x self = msg_send ~self ~cmd:(selector "appendKey:") ~typ:(id @-> returning (id)) x -let appendKeys x self = msg_send ~self ~cmd:(selector "appendKeys:") ~typ:(id @-> returning (id)) x -let appendName x ~boolValue self = msg_send ~self ~cmd:(selector "appendName:boolValue:") ~typ:(id @-> bool @-> returning (id)) x boolValue -let appendName1 x ~doubleValue self = msg_send ~self ~cmd:(selector "appendName:doubleValue:") ~typ:(id @-> double @-> returning (id)) x doubleValue -let appendName2 x ~intValue self = msg_send ~self ~cmd:(selector "appendName:intValue:") ~typ:(id @-> int @-> returning (id)) x intValue -let appendName3 x ~integerValue self = msg_send ~self ~cmd:(selector "appendName:integerValue:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int integerValue) -let appendName4 x ~object_ self = msg_send ~self ~cmd:(selector "appendName:object:") ~typ:(id @-> id @-> returning (id)) x object_ -let appendName5 x ~pointerValue self = msg_send ~self ~cmd:(selector "appendName:pointerValue:") ~typ:(id @-> ptr (void) @-> returning (id)) x pointerValue -let appendName6 x ~selector_ self = msg_send ~self ~cmd:(selector "appendName:selector:") ~typ:(id @-> _SEL @-> returning (id)) x selector_ -let appendName7 x ~unsignedInteger self = msg_send ~self ~cmd:(selector "appendName:unsignedInteger:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int unsignedInteger) -let appendName8 x ~object_ ~usingLightweightDescription self = msg_send ~self ~cmd:(selector "appendName:object:usingLightweightDescription:") ~typ:(id @-> id @-> bool @-> returning (id)) x object_ usingLightweightDescription -let appendNamesAndObjects x self = msg_send ~self ~cmd:(selector "appendNamesAndObjects:") ~typ:(id @-> returning (id)) x -let appendObject x ~withName self = msg_send ~self ~cmd:(selector "appendObject:withName:") ~typ:(id @-> id @-> returning (id)) x withName -let descriptionString self = msg_send ~self ~cmd:(selector "descriptionString") ~typ:(returning (id)) -let initWithObject x self = msg_send ~self ~cmd:(selector "initWithObject:") ~typ:(id @-> returning (id)) x -let object_ self = msg_send ~self ~cmd:(selector "object") ~typ:(returning (id)) -let separator self = msg_send ~self ~cmd:(selector "separator") ~typ:(returning (id)) -let setDescriptionString x self = msg_send ~self ~cmd:(selector "setDescriptionString:") ~typ:(id @-> returning (void)) x -let setObject x self = msg_send ~self ~cmd:(selector "setObject:") ~typ:(id @-> returning (void)) x -let setSeparator x self = msg_send ~self ~cmd:(selector "setSeparator:") ~typ:(id @-> returning (void)) x -let string_ self = msg_send ~self ~cmd:(selector "string") ~typ:(returning (id)) -let tryAppendKey x self = msg_send ~self ~cmd:(selector "tryAppendKey:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let appendKey x self = msg_send ~self ~cmd:(selector "appendKey:") ~typ:(id @-> returning id) x +let appendKeys x self = msg_send ~self ~cmd:(selector "appendKeys:") ~typ:(id @-> returning id) x +let appendName x ~boolValue self = msg_send ~self ~cmd:(selector "appendName:boolValue:") ~typ:(id @-> bool @-> returning id) x boolValue +let appendName1 x ~doubleValue self = msg_send ~self ~cmd:(selector "appendName:doubleValue:") ~typ:(id @-> double @-> returning id) x doubleValue +let appendName2 x ~intValue self = msg_send ~self ~cmd:(selector "appendName:intValue:") ~typ:(id @-> int @-> returning id) x intValue +let appendName3 x ~integerValue self = msg_send ~self ~cmd:(selector "appendName:integerValue:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int integerValue) +let appendName4 x ~object_ self = msg_send ~self ~cmd:(selector "appendName:object:") ~typ:(id @-> id @-> returning id) x object_ +let appendName5 x ~pointerValue self = msg_send ~self ~cmd:(selector "appendName:pointerValue:") ~typ:(id @-> (ptr void) @-> returning id) x pointerValue +let appendName6 x ~selector_ self = msg_send ~self ~cmd:(selector "appendName:selector:") ~typ:(id @-> _SEL @-> returning id) x selector_ +let appendName7 x ~unsignedInteger self = msg_send ~self ~cmd:(selector "appendName:unsignedInteger:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int unsignedInteger) +let appendName8 x ~object_ ~usingLightweightDescription self = msg_send ~self ~cmd:(selector "appendName:object:usingLightweightDescription:") ~typ:(id @-> id @-> bool @-> returning id) x object_ usingLightweightDescription +let appendNamesAndObjects x self = msg_send ~self ~cmd:(selector "appendNamesAndObjects:") ~typ:(id @-> returning id) x +let appendObject x ~withName self = msg_send ~self ~cmd:(selector "appendObject:withName:") ~typ:(id @-> id @-> returning id) x withName +let descriptionString self = msg_send ~self ~cmd:(selector "descriptionString") ~typ:(returning id) +let initWithObject x self = msg_send ~self ~cmd:(selector "initWithObject:") ~typ:(id @-> returning id) x +let object_ self = msg_send ~self ~cmd:(selector "object") ~typ:(returning id) +let separator self = msg_send ~self ~cmd:(selector "separator") ~typ:(returning id) +let setDescriptionString x self = msg_send ~self ~cmd:(selector "setDescriptionString:") ~typ:(id @-> returning void) x +let setObject x self = msg_send ~self ~cmd:(selector "setObject:") ~typ:(id @-> returning void) x +let setSeparator x self = msg_send ~self ~cmd:(selector "setSeparator:") ~typ:(id @-> returning void) x +let string_ self = msg_send ~self ~cmd:(selector "string") ~typ:(returning id) +let tryAppendKey x self = msg_send ~self ~cmd:(selector "tryAppendKey:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIDescriptionBuilderClass.ml b/uikit/UIDescriptionBuilderClass.ml new file mode 100644 index 00000000..22c3f6ca --- /dev/null +++ b/uikit/UIDescriptionBuilderClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidescriptionbuilder?language=objc}UIDescriptionBuilder} *) + +let descriptionBuilderWithObject x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithObject:") ~typ:(id @-> returning id) x +let descriptionForObject x ~keys self = msg_send ~self ~cmd:(selector "descriptionForObject:keys:") ~typ:(id @-> id @-> returning id) x keys +let descriptionForObject' x ~namesAndObjects self = msg_send ~self ~cmd:(selector "descriptionForObject:namesAndObjects:") ~typ:(id @-> id @-> returning id) x namesAndObjects \ No newline at end of file diff --git a/uikit/UIDestroySceneAction.ml b/uikit/UIDestroySceneAction.ml index 785247c8..3c61669f 100644 --- a/uikit/UIDestroySceneAction.ml +++ b/uikit/UIDestroySceneAction.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDestroySceneAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidestroysceneaction?language=objc}UIDestroySceneAction} *) -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let destroySceneSession self = msg_send ~self ~cmd:(selector "destroySceneSession") ~typ:(returning (bool)) -let initWithPersistedIdentifiers x ~preferredAnimationType ~callbackQueue ~completion self = msg_send ~self ~cmd:(selector "initWithPersistedIdentifiers:preferredAnimationType:callbackQueue:completion:") ~typ:(id @-> ullong @-> id @-> ptr void @-> returning (id)) x (ULLong.of_int preferredAnimationType) callbackQueue completion -let initWithPersistedIdentifiers' x ~preferredAnimationType ~forDestroyingSession ~callbackQueue ~completion self = msg_send ~self ~cmd:(selector "initWithPersistedIdentifiers:preferredAnimationType:forDestroyingSession:callbackQueue:completion:") ~typ:(id @-> ullong @-> bool @-> id @-> ptr void @-> returning (id)) x (ULLong.of_int preferredAnimationType) forDestroyingSession callbackQueue completion -let initWithPreferredAnimationType x ~callbackQueue ~completion self = msg_send ~self ~cmd:(selector "initWithPreferredAnimationType:callbackQueue:completion:") ~typ:(ullong @-> id @-> ptr void @-> returning (id)) (ULLong.of_int x) callbackQueue completion -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let persistedIdentifiers self = msg_send ~self ~cmd:(selector "persistedIdentifiers") ~typ:(returning (id)) -let preferredAnimationType self = msg_send ~self ~cmd:(selector "preferredAnimationType") ~typ:(returning (ullong)) \ No newline at end of file +let self = get_class "UIDestroySceneAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let destroySceneSession self = msg_send ~self ~cmd:(selector "destroySceneSession") ~typ:(returning bool) +let initWithPersistedIdentifiers x ~preferredAnimationType ~callbackQueue ~completion self = msg_send ~self ~cmd:(selector "initWithPersistedIdentifiers:preferredAnimationType:callbackQueue:completion:") ~typ:(id @-> ullong @-> id @-> (ptr void) @-> returning id) x (ULLong.of_int preferredAnimationType) callbackQueue completion +let initWithPersistedIdentifiers' x ~preferredAnimationType ~forDestroyingSession ~callbackQueue ~completion self = msg_send ~self ~cmd:(selector "initWithPersistedIdentifiers:preferredAnimationType:forDestroyingSession:callbackQueue:completion:") ~typ:(id @-> ullong @-> bool @-> id @-> (ptr void) @-> returning id) x (ULLong.of_int preferredAnimationType) forDestroyingSession callbackQueue completion +let initWithPreferredAnimationType x ~callbackQueue ~completion self = msg_send ~self ~cmd:(selector "initWithPreferredAnimationType:callbackQueue:completion:") ~typ:(ullong @-> id @-> (ptr void) @-> returning id) (ULLong.of_int x) callbackQueue completion +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let persistedIdentifiers self = msg_send ~self ~cmd:(selector "persistedIdentifiers") ~typ:(returning id) +let preferredAnimationType self = msg_send ~self ~cmd:(selector "preferredAnimationType") ~typ:(returning ullong) \ No newline at end of file diff --git a/uikit/UIDevice.ml b/uikit/UIDevice.ml index fac419ab..e0fe26d5 100644 --- a/uikit/UIDevice.ml +++ b/uikit/UIDevice.ml @@ -5,37 +5,35 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDevice" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidevice?language=objc}UIDevice} *) -module C = struct - let currentDevice self = msg_send ~self ~cmd:(selector "currentDevice") ~typ:(returning (id)) - let currentDeviceOrientationAllowingAmbiguous x self = msg_send ~self ~cmd:(selector "currentDeviceOrientationAllowingAmbiguous:") ~typ:(bool @-> returning (llong)) x - let modelSpecificLocalizedStringKeyForKey x self = msg_send ~self ~cmd:(selector "modelSpecificLocalizedStringKeyForKey:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIDevice" -let batteryLevel self = msg_send ~self ~cmd:(selector "batteryLevel") ~typ:(returning (float)) -let batteryState self = msg_send ~self ~cmd:(selector "batteryState") ~typ:(returning (llong)) -let beginGeneratingDeviceOrientationNotifications self = msg_send ~self ~cmd:(selector "beginGeneratingDeviceOrientationNotifications") ~typ:(returning (void)) -let buildVersion self = msg_send ~self ~cmd:(selector "buildVersion") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let endGeneratingDeviceOrientationNotifications self = msg_send ~self ~cmd:(selector "endGeneratingDeviceOrientationNotifications") ~typ:(returning (void)) -let identifierForVendor self = msg_send ~self ~cmd:(selector "identifierForVendor") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isBatteryMonitoringEnabled self = msg_send ~self ~cmd:(selector "isBatteryMonitoringEnabled") ~typ:(returning (bool)) -let isGeneratingDeviceOrientationNotifications self = msg_send ~self ~cmd:(selector "isGeneratingDeviceOrientationNotifications") ~typ:(returning (bool)) -let isMultitaskingSupported self = msg_send ~self ~cmd:(selector "isMultitaskingSupported") ~typ:(returning (bool)) -let isProximityMonitoringEnabled self = msg_send ~self ~cmd:(selector "isProximityMonitoringEnabled") ~typ:(returning (bool)) -let localizedModel self = msg_send ~self ~cmd:(selector "localizedModel") ~typ:(returning (id)) -let model self = msg_send ~self ~cmd:(selector "model") ~typ:(returning (id)) -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let orientation self = msg_send ~self ~cmd:(selector "orientation") ~typ:(returning (llong)) -let playInputClick self = msg_send ~self ~cmd:(selector "playInputClick") ~typ:(returning (void)) -let proximityState self = msg_send ~self ~cmd:(selector "proximityState") ~typ:(returning (bool)) -let setBatteryMonitoringEnabled x self = msg_send ~self ~cmd:(selector "setBatteryMonitoringEnabled:") ~typ:(bool @-> returning (void)) x -let setOrientation x self = msg_send ~self ~cmd:(selector "setOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setOrientation' x ~animated self = msg_send ~self ~cmd:(selector "setOrientation:animated:") ~typ:(llong @-> bool @-> returning (void)) (LLong.of_int x) animated -let setProximityMonitoringEnabled x self = msg_send ~self ~cmd:(selector "setProximityMonitoringEnabled:") ~typ:(bool @-> returning (void)) x -let systemName self = msg_send ~self ~cmd:(selector "systemName") ~typ:(returning (id)) -let systemVersion self = msg_send ~self ~cmd:(selector "systemVersion") ~typ:(returning (id)) -let userInterfaceIdiom self = msg_send ~self ~cmd:(selector "userInterfaceIdiom") ~typ:(returning (llong)) \ No newline at end of file +let batteryLevel self = msg_send ~self ~cmd:(selector "batteryLevel") ~typ:(returning float) +let batteryState self = msg_send ~self ~cmd:(selector "batteryState") ~typ:(returning llong) +let beginGeneratingDeviceOrientationNotifications self = msg_send ~self ~cmd:(selector "beginGeneratingDeviceOrientationNotifications") ~typ:(returning void) +let buildVersion self = msg_send ~self ~cmd:(selector "buildVersion") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let endGeneratingDeviceOrientationNotifications self = msg_send ~self ~cmd:(selector "endGeneratingDeviceOrientationNotifications") ~typ:(returning void) +let identifierForVendor self = msg_send ~self ~cmd:(selector "identifierForVendor") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isBatteryMonitoringEnabled self = msg_send ~self ~cmd:(selector "isBatteryMonitoringEnabled") ~typ:(returning bool) +let isGeneratingDeviceOrientationNotifications self = msg_send ~self ~cmd:(selector "isGeneratingDeviceOrientationNotifications") ~typ:(returning bool) +let isMultitaskingSupported self = msg_send ~self ~cmd:(selector "isMultitaskingSupported") ~typ:(returning bool) +let isProximityMonitoringEnabled self = msg_send ~self ~cmd:(selector "isProximityMonitoringEnabled") ~typ:(returning bool) +let localizedModel self = msg_send ~self ~cmd:(selector "localizedModel") ~typ:(returning id) +let model self = msg_send ~self ~cmd:(selector "model") ~typ:(returning id) +let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) +let orientation self = msg_send ~self ~cmd:(selector "orientation") ~typ:(returning llong) +let playInputClick self = msg_send ~self ~cmd:(selector "playInputClick") ~typ:(returning void) +let proximityState self = msg_send ~self ~cmd:(selector "proximityState") ~typ:(returning bool) +let setBatteryMonitoringEnabled x self = msg_send ~self ~cmd:(selector "setBatteryMonitoringEnabled:") ~typ:(bool @-> returning void) x +let setOrientation x self = msg_send ~self ~cmd:(selector "setOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setOrientation' x ~animated self = msg_send ~self ~cmd:(selector "setOrientation:animated:") ~typ:(llong @-> bool @-> returning void) (LLong.of_int x) animated +let setProximityMonitoringEnabled x self = msg_send ~self ~cmd:(selector "setProximityMonitoringEnabled:") ~typ:(bool @-> returning void) x +let systemName self = msg_send ~self ~cmd:(selector "systemName") ~typ:(returning id) +let systemVersion self = msg_send ~self ~cmd:(selector "systemVersion") ~typ:(returning id) +let userInterfaceIdiom self = msg_send ~self ~cmd:(selector "userInterfaceIdiom") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIDeviceClass.ml b/uikit/UIDeviceClass.ml new file mode 100644 index 00000000..fa6f80b2 --- /dev/null +++ b/uikit/UIDeviceClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidevice?language=objc}UIDevice} *) + +let currentDevice self = msg_send ~self ~cmd:(selector "currentDevice") ~typ:(returning id) +let currentDeviceOrientationAllowingAmbiguous x self = msg_send ~self ~cmd:(selector "currentDeviceOrientationAllowingAmbiguous:") ~typ:(bool @-> returning llong) x +let modelSpecificLocalizedStringKeyForKey x self = msg_send ~self ~cmd:(selector "modelSpecificLocalizedStringKeyForKey:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIDeviceRGBColor.ml b/uikit/UIDeviceRGBColor.ml index f4800981..99485476 100644 --- a/uikit/UIDeviceRGBColor.ml +++ b/uikit/UIDeviceRGBColor.ml @@ -5,35 +5,39 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDeviceRGBColor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidevicergbcolor?language=objc}UIDeviceRGBColor} *) -let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr void)) -let alphaComponent self = msg_send ~self ~cmd:(selector "alphaComponent") ~typ:(returning (double)) -let blueComponent self = msg_send ~self ~cmd:(selector "blueComponent") ~typ:(returning (double)) -let brightnessComponent self = msg_send ~self ~cmd:(selector "brightnessComponent") ~typ:(returning (double)) -let colorSpace self = msg_send ~self ~cmd:(selector "colorSpace") ~typ:(returning (id)) -let colorSpaceName self = msg_send ~self ~cmd:(selector "colorSpaceName") ~typ:(returning (id)) -let colorUsingColorSpace x self = msg_send ~self ~cmd:(selector "colorUsingColorSpace:") ~typ:(id @-> returning (id)) x -let colorUsingType x self = msg_send ~self ~cmd:(selector "colorUsingType:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let colorWithAlphaComponent x self = msg_send ~self ~cmd:(selector "colorWithAlphaComponent:") ~typ:(double @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let getComponents x self = msg_send ~self ~cmd:(selector "getComponents:") ~typ:(ptr (double) @-> returning (void)) x -let getHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "getHue:saturation:brightness:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (bool)) x saturation brightness alpha -let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (bool)) x green blue alpha -let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> returning (bool)) x alpha -let greenComponent self = msg_send ~self ~cmd:(selector "greenComponent") ~typ:(returning (double)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let hueComponent self = msg_send ~self ~cmd:(selector "hueComponent") ~typ:(returning (double)) -let initWithCGColor x self = msg_send ~self ~cmd:(selector "initWithCGColor:") ~typ:(ptr void @-> returning (id)) x -let initWithHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "initWithHue:saturation:brightness:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning (id)) x saturation brightness alpha -let initWithRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "initWithRed:green:blue:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning (id)) x green blue alpha -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let numberOfComponents self = msg_send ~self ~cmd:(selector "numberOfComponents") ~typ:(returning (llong)) -let redComponent self = msg_send ~self ~cmd:(selector "redComponent") ~typ:(returning (double)) -let saturationComponent self = msg_send ~self ~cmd:(selector "saturationComponent") ~typ:(returning (double)) -let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning (void)) -let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning (void)) -let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIDeviceRGBColor" + +let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr CGColor.t)) +let alphaComponent self = msg_send ~self ~cmd:(selector "alphaComponent") ~typ:(returning double) +let blueComponent self = msg_send ~self ~cmd:(selector "blueComponent") ~typ:(returning double) +let brightnessComponent self = msg_send ~self ~cmd:(selector "brightnessComponent") ~typ:(returning double) +let colorSpace self = msg_send ~self ~cmd:(selector "colorSpace") ~typ:(returning id) +let colorSpaceName self = msg_send ~self ~cmd:(selector "colorSpaceName") ~typ:(returning id) +let colorUsingColorSpace x self = msg_send ~self ~cmd:(selector "colorUsingColorSpace:") ~typ:(id @-> returning id) x +let colorUsingType x self = msg_send ~self ~cmd:(selector "colorUsingType:") ~typ:(llong @-> returning id) (LLong.of_int x) +let colorWithAlphaComponent x self = msg_send ~self ~cmd:(selector "colorWithAlphaComponent:") ~typ:(double @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let getComponents x self = msg_send ~self ~cmd:(selector "getComponents:") ~typ:((ptr double) @-> returning void) x +let getHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "getHue:saturation:brightness:alpha:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> (ptr double) @-> returning bool) x saturation brightness alpha +let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> (ptr double) @-> returning bool) x green blue alpha +let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:((ptr double) @-> (ptr double) @-> returning bool) x alpha +let greenComponent self = msg_send ~self ~cmd:(selector "greenComponent") ~typ:(returning double) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let hueComponent self = msg_send ~self ~cmd:(selector "hueComponent") ~typ:(returning double) +let initWithCGColor x self = msg_send ~self ~cmd:(selector "initWithCGColor:") ~typ:((ptr CGColor.t) @-> returning id) x +let initWithHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "initWithHue:saturation:brightness:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning id) x saturation brightness alpha +let initWithRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "initWithRed:green:blue:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning id) x green blue alpha +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let numberOfComponents self = msg_send ~self ~cmd:(selector "numberOfComponents") ~typ:(returning llong) +let redComponent self = msg_send ~self ~cmd:(selector "redComponent") ~typ:(returning double) +let saturationComponent self = msg_send ~self ~cmd:(selector "saturationComponent") ~typ:(returning double) +let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning void) +let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning void) +let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIDeviceWhiteColor.ml b/uikit/UIDeviceWhiteColor.ml index 941db7e5..997e5a55 100644 --- a/uikit/UIDeviceWhiteColor.ml +++ b/uikit/UIDeviceWhiteColor.ml @@ -5,34 +5,38 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDeviceWhiteColor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidevicewhitecolor?language=objc}UIDeviceWhiteColor} *) -let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr void)) -let alphaComponent self = msg_send ~self ~cmd:(selector "alphaComponent") ~typ:(returning (double)) -let blueComponent self = msg_send ~self ~cmd:(selector "blueComponent") ~typ:(returning (double)) -let brightnessComponent self = msg_send ~self ~cmd:(selector "brightnessComponent") ~typ:(returning (double)) -let colorSpace self = msg_send ~self ~cmd:(selector "colorSpace") ~typ:(returning (id)) -let colorSpaceName self = msg_send ~self ~cmd:(selector "colorSpaceName") ~typ:(returning (id)) -let colorUsingColorSpace x self = msg_send ~self ~cmd:(selector "colorUsingColorSpace:") ~typ:(id @-> returning (id)) x -let colorUsingType x self = msg_send ~self ~cmd:(selector "colorUsingType:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let colorWithAlphaComponent x self = msg_send ~self ~cmd:(selector "colorWithAlphaComponent:") ~typ:(double @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let getComponents x self = msg_send ~self ~cmd:(selector "getComponents:") ~typ:(ptr (double) @-> returning (void)) x -let getHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "getHue:saturation:brightness:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (bool)) x saturation brightness alpha -let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (bool)) x green blue alpha -let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> returning (bool)) x alpha -let greenComponent self = msg_send ~self ~cmd:(selector "greenComponent") ~typ:(returning (double)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let hueComponent self = msg_send ~self ~cmd:(selector "hueComponent") ~typ:(returning (double)) -let initWithCGColor x self = msg_send ~self ~cmd:(selector "initWithCGColor:") ~typ:(ptr void @-> returning (id)) x -let initWithWhite x ~alpha self = msg_send ~self ~cmd:(selector "initWithWhite:alpha:") ~typ:(double @-> double @-> returning (id)) x alpha -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let numberOfComponents self = msg_send ~self ~cmd:(selector "numberOfComponents") ~typ:(returning (llong)) -let redComponent self = msg_send ~self ~cmd:(selector "redComponent") ~typ:(returning (double)) -let saturationComponent self = msg_send ~self ~cmd:(selector "saturationComponent") ~typ:(returning (double)) -let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning (void)) -let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning (void)) -let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIDeviceWhiteColor" + +let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr CGColor.t)) +let alphaComponent self = msg_send ~self ~cmd:(selector "alphaComponent") ~typ:(returning double) +let blueComponent self = msg_send ~self ~cmd:(selector "blueComponent") ~typ:(returning double) +let brightnessComponent self = msg_send ~self ~cmd:(selector "brightnessComponent") ~typ:(returning double) +let colorSpace self = msg_send ~self ~cmd:(selector "colorSpace") ~typ:(returning id) +let colorSpaceName self = msg_send ~self ~cmd:(selector "colorSpaceName") ~typ:(returning id) +let colorUsingColorSpace x self = msg_send ~self ~cmd:(selector "colorUsingColorSpace:") ~typ:(id @-> returning id) x +let colorUsingType x self = msg_send ~self ~cmd:(selector "colorUsingType:") ~typ:(llong @-> returning id) (LLong.of_int x) +let colorWithAlphaComponent x self = msg_send ~self ~cmd:(selector "colorWithAlphaComponent:") ~typ:(double @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let getComponents x self = msg_send ~self ~cmd:(selector "getComponents:") ~typ:((ptr double) @-> returning void) x +let getHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "getHue:saturation:brightness:alpha:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> (ptr double) @-> returning bool) x saturation brightness alpha +let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> (ptr double) @-> returning bool) x green blue alpha +let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:((ptr double) @-> (ptr double) @-> returning bool) x alpha +let greenComponent self = msg_send ~self ~cmd:(selector "greenComponent") ~typ:(returning double) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let hueComponent self = msg_send ~self ~cmd:(selector "hueComponent") ~typ:(returning double) +let initWithCGColor x self = msg_send ~self ~cmd:(selector "initWithCGColor:") ~typ:((ptr CGColor.t) @-> returning id) x +let initWithWhite x ~alpha self = msg_send ~self ~cmd:(selector "initWithWhite:alpha:") ~typ:(double @-> double @-> returning id) x alpha +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let numberOfComponents self = msg_send ~self ~cmd:(selector "numberOfComponents") ~typ:(returning llong) +let redComponent self = msg_send ~self ~cmd:(selector "redComponent") ~typ:(returning double) +let saturationComponent self = msg_send ~self ~cmd:(selector "saturationComponent") ~typ:(returning double) +let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning void) +let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning void) +let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIDictationInputMode.ml b/uikit/UIDictationInputMode.ml index 635376e5..5d97624e 100644 --- a/uikit/UIDictationInputMode.ml +++ b/uikit/UIDictationInputMode.ml @@ -5,17 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDictationInputMode" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidictationinputmode?language=objc}UIDictationInputMode} *) -module C = struct - let currentInputModeSupportsDictation self = msg_send ~self ~cmd:(selector "currentInputModeSupportsDictation") ~typ:(returning (bool)) -end +let self = get_class "UIDictationInputMode" -let currentInputModeForDictation self = msg_send ~self ~cmd:(selector "currentInputModeForDictation") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let includeBarHeight self = msg_send ~self ~cmd:(selector "includeBarHeight") ~typ:(returning (bool)) -let setCurrentInputModeForDictation x self = msg_send ~self ~cmd:(selector "setCurrentInputModeForDictation:") ~typ:(id @-> returning (void)) x -let setTriggeringTouch x self = msg_send ~self ~cmd:(selector "setTriggeringTouch:") ~typ:(id @-> returning (void)) x -let triggeringTouch self = msg_send ~self ~cmd:(selector "triggeringTouch") ~typ:(returning (id)) -let viewControllerClass self = msg_send ~self ~cmd:(selector "viewControllerClass") ~typ:(returning (_Class)) \ No newline at end of file +let currentInputModeForDictation self = msg_send ~self ~cmd:(selector "currentInputModeForDictation") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let includeBarHeight self = msg_send ~self ~cmd:(selector "includeBarHeight") ~typ:(returning bool) +let setCurrentInputModeForDictation x self = msg_send ~self ~cmd:(selector "setCurrentInputModeForDictation:") ~typ:(id @-> returning void) x +let setTriggeringTouch x self = msg_send ~self ~cmd:(selector "setTriggeringTouch:") ~typ:(id @-> returning void) x +let triggeringTouch self = msg_send ~self ~cmd:(selector "triggeringTouch") ~typ:(returning id) +let viewControllerClass self = msg_send ~self ~cmd:(selector "viewControllerClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit/UIDictationInputModeClass.ml b/uikit/UIDictationInputModeClass.ml new file mode 100644 index 00000000..6edfa509 --- /dev/null +++ b/uikit/UIDictationInputModeClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidictationinputmode?language=objc}UIDictationInputMode} *) + +let currentInputModeSupportsDictation self = msg_send ~self ~cmd:(selector "currentInputModeSupportsDictation") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIDictationPhrase.ml b/uikit/UIDictationPhrase.ml index fc8756c6..a8c83edf 100644 --- a/uikit/UIDictationPhrase.ml +++ b/uikit/UIDictationPhrase.ml @@ -5,18 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDictationPhrase" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidictationphrase?language=objc}UIDictationPhrase} *) -module C = struct - let phraseWithText x ~alternativeInterpretations self = msg_send ~self ~cmd:(selector "phraseWithText:alternativeInterpretations:") ~typ:(id @-> id @-> returning (id)) x alternativeInterpretations - let phraseWithText' x ~alternativeInterpretations ~style self = msg_send ~self ~cmd:(selector "phraseWithText:alternativeInterpretations:style:") ~typ:(id @-> id @-> llong @-> returning (id)) x alternativeInterpretations (LLong.of_int style) -end +let self = get_class "UIDictationPhrase" -let alternativeInterpretations self = msg_send ~self ~cmd:(selector "alternativeInterpretations") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let initWithText x ~alternativeInterpretations ~style self = msg_send ~self ~cmd:(selector "initWithText:alternativeInterpretations:style:") ~typ:(id @-> id @-> llong @-> returning (id)) x alternativeInterpretations (LLong.of_int style) -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) \ No newline at end of file +let alternativeInterpretations self = msg_send ~self ~cmd:(selector "alternativeInterpretations") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let initWithText x ~alternativeInterpretations ~style self = msg_send ~self ~cmd:(selector "initWithText:alternativeInterpretations:style:") ~typ:(id @-> id @-> llong @-> returning id) x alternativeInterpretations (LLong.of_int style) +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIDictationPhraseClass.ml b/uikit/UIDictationPhraseClass.ml new file mode 100644 index 00000000..4fc585ff --- /dev/null +++ b/uikit/UIDictationPhraseClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidictationphrase?language=objc}UIDictationPhrase} *) + +let phraseWithText x ~alternativeInterpretations self = msg_send ~self ~cmd:(selector "phraseWithText:alternativeInterpretations:") ~typ:(id @-> id @-> returning id) x alternativeInterpretations +let phraseWithText' x ~alternativeInterpretations ~style self = msg_send ~self ~cmd:(selector "phraseWithText:alternativeInterpretations:style:") ~typ:(id @-> id @-> llong @-> returning id) x alternativeInterpretations (LLong.of_int style) \ No newline at end of file diff --git a/uikit/UIDigitizerLongPressGestureRecognizer.ml b/uikit/UIDigitizerLongPressGestureRecognizer.ml index dcf61143..21dd82bd 100644 --- a/uikit/UIDigitizerLongPressGestureRecognizer.ml +++ b/uikit/UIDigitizerLongPressGestureRecognizer.ml @@ -5,26 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDigitizerLongPressGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidigitizerlongpressgesturerecognizer?language=objc}UIDigitizerLongPressGestureRecognizer} *) -let digitizerLocation self = msg_send_stret ~self ~cmd:(selector "digitizerLocation") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let minimumPressDuration self = msg_send ~self ~cmd:(selector "minimumPressDuration") ~typ:(returning (double)) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEndedSuccessfully x self = msg_send ~self ~cmd:(selector "pressesEndedSuccessfully:") ~typ:(id @-> returning (void)) x -let pressesHeldForMinimum x self = msg_send ~self ~cmd:(selector "pressesHeldForMinimum:") ~typ:(id @-> returning (void)) x -let pressesHeldOverMaximum x self = msg_send ~self ~cmd:(selector "pressesHeldOverMaximum:") ~typ:(id @-> returning (void)) x -let pressesNotHeldLongEnough x self = msg_send ~self ~cmd:(selector "pressesNotHeldLongEnough:") ~typ:(id @-> returning (void)) x -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let setAllowedPressTypes x self = msg_send ~self ~cmd:(selector "setAllowedPressTypes:") ~typ:(id @-> returning (void)) x -let setAllowedTouchTypes x self = msg_send ~self ~cmd:(selector "setAllowedTouchTypes:") ~typ:(id @-> returning (void)) x -let setMinimumPressDuration x self = msg_send ~self ~cmd:(selector "setMinimumPressDuration:") ~typ:(double @-> returning (void)) x -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesBeganSuccessfully x self = msg_send ~self ~cmd:(selector "touchesBeganSuccessfully:") ~typ:(id @-> returning (void)) x -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let self = get_class "UIDigitizerLongPressGestureRecognizer" + +let digitizerLocation self = msg_send ~self ~cmd:(selector "digitizerLocation") ~typ:(returning CGPoint.t) +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let minimumPressDuration self = msg_send ~self ~cmd:(selector "minimumPressDuration") ~typ:(returning double) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEndedSuccessfully x self = msg_send ~self ~cmd:(selector "pressesEndedSuccessfully:") ~typ:(id @-> returning void) x +let pressesHeldForMinimum x self = msg_send ~self ~cmd:(selector "pressesHeldForMinimum:") ~typ:(id @-> returning void) x +let pressesHeldOverMaximum x self = msg_send ~self ~cmd:(selector "pressesHeldOverMaximum:") ~typ:(id @-> returning void) x +let pressesNotHeldLongEnough x self = msg_send ~self ~cmd:(selector "pressesNotHeldLongEnough:") ~typ:(id @-> returning void) x +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let setAllowedPressTypes x self = msg_send ~self ~cmd:(selector "setAllowedPressTypes:") ~typ:(id @-> returning void) x +let setAllowedTouchTypes x self = msg_send ~self ~cmd:(selector "setAllowedTouchTypes:") ~typ:(id @-> returning void) x +let setMinimumPressDuration x self = msg_send ~self ~cmd:(selector "setMinimumPressDuration:") ~typ:(double @-> returning void) x +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesBeganSuccessfully x self = msg_send ~self ~cmd:(selector "touchesBeganSuccessfully:") ~typ:(id @-> returning void) x +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UIDigitizerTapGestureRecognizer.ml b/uikit/UIDigitizerTapGestureRecognizer.ml index 143f73e5..92bfed60 100644 --- a/uikit/UIDigitizerTapGestureRecognizer.ml +++ b/uikit/UIDigitizerTapGestureRecognizer.ml @@ -5,26 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDigitizerTapGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidigitizertapgesturerecognizer?language=objc}UIDigitizerTapGestureRecognizer} *) -let digitizerLocation self = msg_send_stret ~self ~cmd:(selector "digitizerLocation") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let maximumPressDuration self = msg_send ~self ~cmd:(selector "maximumPressDuration") ~typ:(returning (double)) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEndedSuccessfully x self = msg_send ~self ~cmd:(selector "pressesEndedSuccessfully:") ~typ:(id @-> returning (void)) x -let pressesHeldForMinimum x self = msg_send ~self ~cmd:(selector "pressesHeldForMinimum:") ~typ:(id @-> returning (void)) x -let pressesHeldOverMaximum x self = msg_send ~self ~cmd:(selector "pressesHeldOverMaximum:") ~typ:(id @-> returning (void)) x -let pressesNotHeldLongEnough x self = msg_send ~self ~cmd:(selector "pressesNotHeldLongEnough:") ~typ:(id @-> returning (void)) x -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let setAllowedPressTypes x self = msg_send ~self ~cmd:(selector "setAllowedPressTypes:") ~typ:(id @-> returning (void)) x -let setAllowedTouchTypes x self = msg_send ~self ~cmd:(selector "setAllowedTouchTypes:") ~typ:(id @-> returning (void)) x -let setMaximumPressDuration x self = msg_send ~self ~cmd:(selector "setMaximumPressDuration:") ~typ:(double @-> returning (void)) x -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesBeganSuccessfully x self = msg_send ~self ~cmd:(selector "touchesBeganSuccessfully:") ~typ:(id @-> returning (void)) x -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let self = get_class "UIDigitizerTapGestureRecognizer" + +let digitizerLocation self = msg_send ~self ~cmd:(selector "digitizerLocation") ~typ:(returning CGPoint.t) +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let maximumPressDuration self = msg_send ~self ~cmd:(selector "maximumPressDuration") ~typ:(returning double) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEndedSuccessfully x self = msg_send ~self ~cmd:(selector "pressesEndedSuccessfully:") ~typ:(id @-> returning void) x +let pressesHeldForMinimum x self = msg_send ~self ~cmd:(selector "pressesHeldForMinimum:") ~typ:(id @-> returning void) x +let pressesHeldOverMaximum x self = msg_send ~self ~cmd:(selector "pressesHeldOverMaximum:") ~typ:(id @-> returning void) x +let pressesNotHeldLongEnough x self = msg_send ~self ~cmd:(selector "pressesNotHeldLongEnough:") ~typ:(id @-> returning void) x +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let setAllowedPressTypes x self = msg_send ~self ~cmd:(selector "setAllowedPressTypes:") ~typ:(id @-> returning void) x +let setAllowedTouchTypes x self = msg_send ~self ~cmd:(selector "setAllowedTouchTypes:") ~typ:(id @-> returning void) x +let setMaximumPressDuration x self = msg_send ~self ~cmd:(selector "setMaximumPressDuration:") ~typ:(double @-> returning void) x +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesBeganSuccessfully x self = msg_send ~self ~cmd:(selector "touchesBeganSuccessfully:") ~typ:(id @-> returning void) x +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UIDimmingView.ml b/uikit/UIDimmingView.ml index a21dfb7b..217ced35 100644 --- a/uikit/UIDimmingView.ml +++ b/uikit/UIDimmingView.ml @@ -5,45 +5,45 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDimmingView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidimmingview?language=objc}UIDimmingView} *) -module C = struct - let defaultDimmingColor self = msg_send ~self ~cmd:(selector "defaultDimmingColor") ~typ:(returning (id)) -end +let self = get_class "UIDimmingView" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let dimmingColor self = msg_send ~self ~cmd:(selector "dimmingColor") ~typ:(returning (id)) -let dimmingRemovalAnimationDidStop self = msg_send ~self ~cmd:(selector "dimmingRemovalAnimationDidStop") ~typ:(returning (void)) -let display x self = msg_send ~self ~cmd:(selector "display:") ~typ:(bool @-> returning (void)) x -let display' x ~withAnimationDuration ~afterDelay self = msg_send ~self ~cmd:(selector "display:withAnimationDuration:afterDelay:") ~typ:(bool @-> double @-> double @-> returning (void)) x withAnimationDuration afterDelay -let displayed self = msg_send ~self ~cmd:(selector "displayed") ~typ:(returning (bool)) -let gestureRecognizer x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning (bool)) x shouldReceiveTouch -let handleSingleTap x self = msg_send ~self ~cmd:(selector "handleSingleTap:") ~typ:(id @-> returning (void)) x -let highlightedBarButtonItem self = msg_send ~self ~cmd:(selector "highlightedBarButtonItem") ~typ:(returning (id)) -let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (id)) x forEvent -let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let ignoresTouches self = msg_send ~self ~cmd:(selector "ignoresTouches") ~typ:(returning (bool)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isTransparentFocusItem self = msg_send ~self ~cmd:(selector "isTransparentFocusItem") ~typ:(returning (bool)) -let lowerWindowDismissalGestureViews self = msg_send ~self ~cmd:(selector "lowerWindowDismissalGestureViews") ~typ:(returning (id)) -let mouseUp x self = msg_send ~self ~cmd:(selector "mouseUp:") ~typ:(ptr void @-> returning (void)) x -let passthroughViews self = msg_send ~self ~cmd:(selector "passthroughViews") ~typ:(returning (id)) -let percentDisplayed self = msg_send ~self ~cmd:(selector "percentDisplayed") ~typ:(returning (double)) -let percentLightened self = msg_send ~self ~cmd:(selector "percentLightened") ~typ:(returning (double)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDimmingColor x self = msg_send ~self ~cmd:(selector "setDimmingColor:") ~typ:(id @-> returning (void)) x -let setHighlightedBarButtonItem x self = msg_send ~self ~cmd:(selector "setHighlightedBarButtonItem:") ~typ:(id @-> returning (void)) x -let setIgnoresTouches x self = msg_send ~self ~cmd:(selector "setIgnoresTouches:") ~typ:(bool @-> returning (void)) x -let setLowerWindowDismissalGestureViews x self = msg_send ~self ~cmd:(selector "setLowerWindowDismissalGestureViews:") ~typ:(id @-> returning (void)) x -let setPassthroughViews x self = msg_send ~self ~cmd:(selector "setPassthroughViews:") ~typ:(id @-> returning (void)) x -let setPercentDisplayed x self = msg_send ~self ~cmd:(selector "setPercentDisplayed:") ~typ:(double @-> returning (void)) x -let setPercentLightened x self = msg_send ~self ~cmd:(selector "setPercentLightened:") ~typ:(double @-> returning (void)) x -let setSuppressesBackdrops x self = msg_send ~self ~cmd:(selector "setSuppressesBackdrops:") ~typ:(bool @-> returning (void)) x -let suppressesBackdrops self = msg_send ~self ~cmd:(selector "suppressesBackdrops") ~typ:(returning (bool)) -let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning (int)) -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateBackgroundColor self = msg_send ~self ~cmd:(selector "updateBackgroundColor") ~typ:(returning (void)) -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let dimmingColor self = msg_send ~self ~cmd:(selector "dimmingColor") ~typ:(returning id) +let dimmingRemovalAnimationDidStop self = msg_send ~self ~cmd:(selector "dimmingRemovalAnimationDidStop") ~typ:(returning void) +let display x self = msg_send ~self ~cmd:(selector "display:") ~typ:(bool @-> returning void) x +let display' x ~withAnimationDuration ~afterDelay self = msg_send ~self ~cmd:(selector "display:withAnimationDuration:afterDelay:") ~typ:(bool @-> double @-> double @-> returning void) x withAnimationDuration afterDelay +let displayed self = msg_send ~self ~cmd:(selector "displayed") ~typ:(returning bool) +let gestureRecognizer x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning bool) x shouldReceiveTouch +let handleSingleTap x self = msg_send ~self ~cmd:(selector "handleSingleTap:") ~typ:(id @-> returning void) x +let highlightedBarButtonItem self = msg_send ~self ~cmd:(selector "highlightedBarButtonItem") ~typ:(returning id) +let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning id) x forEvent +let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let ignoresTouches self = msg_send ~self ~cmd:(selector "ignoresTouches") ~typ:(returning bool) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isTransparentFocusItem self = msg_send ~self ~cmd:(selector "isTransparentFocusItem") ~typ:(returning bool) +let lowerWindowDismissalGestureViews self = msg_send ~self ~cmd:(selector "lowerWindowDismissalGestureViews") ~typ:(returning id) +let mouseUp x self = msg_send ~self ~cmd:(selector "mouseUp:") ~typ:((ptr void) @-> returning void) x +let passthroughViews self = msg_send ~self ~cmd:(selector "passthroughViews") ~typ:(returning id) +let percentDisplayed self = msg_send ~self ~cmd:(selector "percentDisplayed") ~typ:(returning double) +let percentLightened self = msg_send ~self ~cmd:(selector "percentLightened") ~typ:(returning double) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDimmingColor x self = msg_send ~self ~cmd:(selector "setDimmingColor:") ~typ:(id @-> returning void) x +let setHighlightedBarButtonItem x self = msg_send ~self ~cmd:(selector "setHighlightedBarButtonItem:") ~typ:(id @-> returning void) x +let setIgnoresTouches x self = msg_send ~self ~cmd:(selector "setIgnoresTouches:") ~typ:(bool @-> returning void) x +let setLowerWindowDismissalGestureViews x self = msg_send ~self ~cmd:(selector "setLowerWindowDismissalGestureViews:") ~typ:(id @-> returning void) x +let setPassthroughViews x self = msg_send ~self ~cmd:(selector "setPassthroughViews:") ~typ:(id @-> returning void) x +let setPercentDisplayed x self = msg_send ~self ~cmd:(selector "setPercentDisplayed:") ~typ:(double @-> returning void) x +let setPercentLightened x self = msg_send ~self ~cmd:(selector "setPercentLightened:") ~typ:(double @-> returning void) x +let setSuppressesBackdrops x self = msg_send ~self ~cmd:(selector "setSuppressesBackdrops:") ~typ:(bool @-> returning void) x +let suppressesBackdrops self = msg_send ~self ~cmd:(selector "suppressesBackdrops") ~typ:(returning bool) +let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning int) +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let updateBackgroundColor self = msg_send ~self ~cmd:(selector "updateBackgroundColor") ~typ:(returning void) +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIDimmingViewClass.ml b/uikit/UIDimmingViewClass.ml new file mode 100644 index 00000000..906f7d32 --- /dev/null +++ b/uikit/UIDimmingViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidimmingview?language=objc}UIDimmingView} *) + +let defaultDimmingColor self = msg_send ~self ~cmd:(selector "defaultDimmingColor") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIDismissSceneAction.ml b/uikit/UIDismissSceneAction.ml index cd701173..9bae4e38 100644 --- a/uikit/UIDismissSceneAction.ml +++ b/uikit/UIDismissSceneAction.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDismissSceneAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidismisssceneaction?language=objc}UIDismissSceneAction} *) -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIDismissSceneAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIDisplayP3Color.ml b/uikit/UIDisplayP3Color.ml index 4ba6cc72..1c65ee17 100644 --- a/uikit/UIDisplayP3Color.ml +++ b/uikit/UIDisplayP3Color.ml @@ -5,33 +5,37 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDisplayP3Color" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidisplayp3color?language=objc}UIDisplayP3Color} *) -let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr void)) -let alphaComponent self = msg_send ~self ~cmd:(selector "alphaComponent") ~typ:(returning (double)) -let blueComponent self = msg_send ~self ~cmd:(selector "blueComponent") ~typ:(returning (double)) -let brightnessComponent self = msg_send ~self ~cmd:(selector "brightnessComponent") ~typ:(returning (double)) -let colorSpace self = msg_send ~self ~cmd:(selector "colorSpace") ~typ:(returning (id)) -let colorSpaceName self = msg_send ~self ~cmd:(selector "colorSpaceName") ~typ:(returning (id)) -let colorUsingColorSpace x self = msg_send ~self ~cmd:(selector "colorUsingColorSpace:") ~typ:(id @-> returning (id)) x -let colorUsingType x self = msg_send ~self ~cmd:(selector "colorUsingType:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let colorWithAlphaComponent x self = msg_send ~self ~cmd:(selector "colorWithAlphaComponent:") ~typ:(double @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let getComponents x self = msg_send ~self ~cmd:(selector "getComponents:") ~typ:(ptr (double) @-> returning (void)) x -let getHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "getHue:saturation:brightness:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (bool)) x saturation brightness alpha -let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (bool)) x green blue alpha -let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> returning (bool)) x alpha -let greenComponent self = msg_send ~self ~cmd:(selector "greenComponent") ~typ:(returning (double)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let hueComponent self = msg_send ~self ~cmd:(selector "hueComponent") ~typ:(returning (double)) -let initWithDisplayP3Red x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "initWithDisplayP3Red:green:blue:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning (id)) x green blue alpha -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let numberOfComponents self = msg_send ~self ~cmd:(selector "numberOfComponents") ~typ:(returning (llong)) -let redComponent self = msg_send ~self ~cmd:(selector "redComponent") ~typ:(returning (double)) -let saturationComponent self = msg_send ~self ~cmd:(selector "saturationComponent") ~typ:(returning (double)) -let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning (void)) -let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning (void)) -let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIDisplayP3Color" + +let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr CGColor.t)) +let alphaComponent self = msg_send ~self ~cmd:(selector "alphaComponent") ~typ:(returning double) +let blueComponent self = msg_send ~self ~cmd:(selector "blueComponent") ~typ:(returning double) +let brightnessComponent self = msg_send ~self ~cmd:(selector "brightnessComponent") ~typ:(returning double) +let colorSpace self = msg_send ~self ~cmd:(selector "colorSpace") ~typ:(returning id) +let colorSpaceName self = msg_send ~self ~cmd:(selector "colorSpaceName") ~typ:(returning id) +let colorUsingColorSpace x self = msg_send ~self ~cmd:(selector "colorUsingColorSpace:") ~typ:(id @-> returning id) x +let colorUsingType x self = msg_send ~self ~cmd:(selector "colorUsingType:") ~typ:(llong @-> returning id) (LLong.of_int x) +let colorWithAlphaComponent x self = msg_send ~self ~cmd:(selector "colorWithAlphaComponent:") ~typ:(double @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let getComponents x self = msg_send ~self ~cmd:(selector "getComponents:") ~typ:((ptr double) @-> returning void) x +let getHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "getHue:saturation:brightness:alpha:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> (ptr double) @-> returning bool) x saturation brightness alpha +let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> (ptr double) @-> returning bool) x green blue alpha +let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:((ptr double) @-> (ptr double) @-> returning bool) x alpha +let greenComponent self = msg_send ~self ~cmd:(selector "greenComponent") ~typ:(returning double) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let hueComponent self = msg_send ~self ~cmd:(selector "hueComponent") ~typ:(returning double) +let initWithDisplayP3Red x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "initWithDisplayP3Red:green:blue:alpha:") ~typ:(double @-> double @-> double @-> double @-> returning id) x green blue alpha +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let numberOfComponents self = msg_send ~self ~cmd:(selector "numberOfComponents") ~typ:(returning llong) +let redComponent self = msg_send ~self ~cmd:(selector "redComponent") ~typ:(returning double) +let saturationComponent self = msg_send ~self ~cmd:(selector "saturationComponent") ~typ:(returning double) +let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning void) +let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning void) +let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIDocument.ml b/uikit/UIDocument.ml index 4e96522a..8d23f8a5 100644 --- a/uikit/UIDocument.ml +++ b/uikit/UIDocument.ml @@ -5,69 +5,73 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDocument" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidocument?language=objc}UIDocument} *) -let accommodatePresentedItemDeletionWithCompletionHandler x self = msg_send ~self ~cmd:(selector "accommodatePresentedItemDeletionWithCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let accommodatePresentedSubitemDeletionAtURL x ~completionHandler self = msg_send ~self ~cmd:(selector "accommodatePresentedSubitemDeletionAtURL:completionHandler:") ~typ:(id @-> ptr void @-> returning (void)) x completionHandler -let autosaveWithCompletionHandler x self = msg_send ~self ~cmd:(selector "autosaveWithCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let changeCountTokenForSaveOperation x self = msg_send ~self ~cmd:(selector "changeCountTokenForSaveOperation:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let closeWithCompletionHandler x self = msg_send ~self ~cmd:(selector "closeWithCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let contentsForType x ~error self = msg_send ~self ~cmd:(selector "contentsForType:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let differenceDueToRecentChanges self = msg_send ~self ~cmd:(selector "differenceDueToRecentChanges") ~typ:(returning (id)) -let differenceSincePreservingPreviousVersion self = msg_send ~self ~cmd:(selector "differenceSincePreservingPreviousVersion") ~typ:(returning (id)) -let differenceSinceSaving self = msg_send ~self ~cmd:(selector "differenceSinceSaving") ~typ:(returning (id)) -let disableEditing self = msg_send ~self ~cmd:(selector "disableEditing") ~typ:(returning (void)) -let documentState self = msg_send ~self ~cmd:(selector "documentState") ~typ:(returning (ullong)) -let enableEditing self = msg_send ~self ~cmd:(selector "enableEditing") ~typ:(returning (void)) -let fileAttributesToWriteToURL x ~forSaveOperation ~error self = msg_send ~self ~cmd:(selector "fileAttributesToWriteToURL:forSaveOperation:error:") ~typ:(id @-> llong @-> ptr (id) @-> returning (id)) x (LLong.of_int forSaveOperation) error -let fileModificationDate self = msg_send ~self ~cmd:(selector "fileModificationDate") ~typ:(returning (id)) -let fileNameExtensionForType x ~saveOperation self = msg_send ~self ~cmd:(selector "fileNameExtensionForType:saveOperation:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int saveOperation) -let fileType self = msg_send ~self ~cmd:(selector "fileType") ~typ:(returning (id)) -let fileURL self = msg_send ~self ~cmd:(selector "fileURL") ~typ:(returning (id)) -let finishedHandlingError x ~recovered self = msg_send ~self ~cmd:(selector "finishedHandlingError:recovered:") ~typ:(id @-> bool @-> returning (void)) x recovered -let handleError x ~userInteractionPermitted self = msg_send ~self ~cmd:(selector "handleError:userInteractionPermitted:") ~typ:(id @-> bool @-> returning (void)) x userInteractionPermitted -let hasUnsavedChanges self = msg_send ~self ~cmd:(selector "hasUnsavedChanges") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithFileURL x self = msg_send ~self ~cmd:(selector "initWithFileURL:") ~typ:(id @-> returning (id)) x -let loadFromContents x ~ofType ~error self = msg_send ~self ~cmd:(selector "loadFromContents:ofType:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (bool)) x ofType error -let localizedName self = msg_send ~self ~cmd:(selector "localizedName") ~typ:(returning (id)) -let openWithCompletionHandler x self = msg_send ~self ~cmd:(selector "openWithCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let performAsynchronousFileAccessUsingBlock x self = msg_send ~self ~cmd:(selector "performAsynchronousFileAccessUsingBlock:") ~typ:(ptr void @-> returning (void)) x -let presentedItemDidChange self = msg_send ~self ~cmd:(selector "presentedItemDidChange") ~typ:(returning (void)) -let presentedItemDidGainVersion x self = msg_send ~self ~cmd:(selector "presentedItemDidGainVersion:") ~typ:(id @-> returning (void)) x -let presentedItemDidLoseVersion x self = msg_send ~self ~cmd:(selector "presentedItemDidLoseVersion:") ~typ:(id @-> returning (void)) x -let presentedItemDidMoveToURL x self = msg_send ~self ~cmd:(selector "presentedItemDidMoveToURL:") ~typ:(id @-> returning (void)) x -let presentedItemDidResolveConflictVersion x self = msg_send ~self ~cmd:(selector "presentedItemDidResolveConflictVersion:") ~typ:(id @-> returning (void)) x -let presentedItemHasUnsavedChangesWithCompletionHandler x self = msg_send ~self ~cmd:(selector "presentedItemHasUnsavedChangesWithCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let presentedItemOperationQueue self = msg_send ~self ~cmd:(selector "presentedItemOperationQueue") ~typ:(returning (id)) -let presentedItemURL self = msg_send ~self ~cmd:(selector "presentedItemURL") ~typ:(returning (id)) -let presentedSubitemAtURL x ~didGainVersion self = msg_send ~self ~cmd:(selector "presentedSubitemAtURL:didGainVersion:") ~typ:(id @-> id @-> returning (void)) x didGainVersion -let presentedSubitemAtURL1 x ~didLoseVersion self = msg_send ~self ~cmd:(selector "presentedSubitemAtURL:didLoseVersion:") ~typ:(id @-> id @-> returning (void)) x didLoseVersion -let presentedSubitemAtURL2 x ~didMoveToURL self = msg_send ~self ~cmd:(selector "presentedSubitemAtURL:didMoveToURL:") ~typ:(id @-> id @-> returning (void)) x didMoveToURL -let presentedSubitemAtURL3 x ~didResolveConflictVersion self = msg_send ~self ~cmd:(selector "presentedSubitemAtURL:didResolveConflictVersion:") ~typ:(id @-> id @-> returning (void)) x didResolveConflictVersion -let presentedSubitemDidAppearAtURL x self = msg_send ~self ~cmd:(selector "presentedSubitemDidAppearAtURL:") ~typ:(id @-> returning (void)) x -let presentedSubitemDidChangeAtURL x self = msg_send ~self ~cmd:(selector "presentedSubitemDidChangeAtURL:") ~typ:(id @-> returning (void)) x -let progress self = msg_send ~self ~cmd:(selector "progress") ~typ:(returning (id)) -let readFromURL x ~error self = msg_send ~self ~cmd:(selector "readFromURL:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let relinquishPresentedItemToReader x self = msg_send ~self ~cmd:(selector "relinquishPresentedItemToReader:") ~typ:(ptr void @-> returning (void)) x -let relinquishPresentedItemToWriter x self = msg_send ~self ~cmd:(selector "relinquishPresentedItemToWriter:") ~typ:(ptr void @-> returning (void)) x -let restoreUserActivityState x self = msg_send ~self ~cmd:(selector "restoreUserActivityState:") ~typ:(id @-> returning (void)) x -let revertToContentsOfURL x ~completionHandler self = msg_send ~self ~cmd:(selector "revertToContentsOfURL:completionHandler:") ~typ:(id @-> ptr void @-> returning (void)) x completionHandler -let savePresentedItemChangesWithCompletionHandler x self = msg_send ~self ~cmd:(selector "savePresentedItemChangesWithCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let saveToURL x ~forSaveOperation ~completionHandler self = msg_send ~self ~cmd:(selector "saveToURL:forSaveOperation:completionHandler:") ~typ:(id @-> llong @-> ptr void @-> returning (void)) x (LLong.of_int forSaveOperation) completionHandler -let savingFileType self = msg_send ~self ~cmd:(selector "savingFileType") ~typ:(returning (id)) -let setFileModificationDate x self = msg_send ~self ~cmd:(selector "setFileModificationDate:") ~typ:(id @-> returning (void)) x -let setFileType x self = msg_send ~self ~cmd:(selector "setFileType:") ~typ:(id @-> returning (void)) x -let setUndoManager x self = msg_send ~self ~cmd:(selector "setUndoManager:") ~typ:(id @-> returning (void)) x -let setUserActivity x self = msg_send ~self ~cmd:(selector "setUserActivity:") ~typ:(id @-> returning (void)) x -let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning (id)) -let updateChangeCount x self = msg_send ~self ~cmd:(selector "updateChangeCount:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let updateChangeCountWithToken x ~forSaveOperation self = msg_send ~self ~cmd:(selector "updateChangeCountWithToken:forSaveOperation:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forSaveOperation) -let updateUserActivityState x self = msg_send ~self ~cmd:(selector "updateUserActivityState:") ~typ:(id @-> returning (void)) x -let userActivity self = msg_send ~self ~cmd:(selector "userActivity") ~typ:(returning (id)) -let userInteractionNoLongerPermittedForError x self = msg_send ~self ~cmd:(selector "userInteractionNoLongerPermittedForError:") ~typ:(id @-> returning (void)) x -let writeContents x ~andAttributes ~safelyToURL ~forSaveOperation ~error self = msg_send ~self ~cmd:(selector "writeContents:andAttributes:safelyToURL:forSaveOperation:error:") ~typ:(id @-> id @-> id @-> llong @-> ptr (id) @-> returning (bool)) x andAttributes safelyToURL (LLong.of_int forSaveOperation) error -let writeContents' x ~toURL ~forSaveOperation ~originalContentsURL ~error self = msg_send ~self ~cmd:(selector "writeContents:toURL:forSaveOperation:originalContentsURL:error:") ~typ:(id @-> id @-> llong @-> id @-> ptr (id) @-> returning (bool)) x toURL (LLong.of_int forSaveOperation) originalContentsURL error \ No newline at end of file +let self = get_class "UIDocument" + +let accommodatePresentedItemDeletionWithCompletionHandler x self = msg_send ~self ~cmd:(selector "accommodatePresentedItemDeletionWithCompletionHandler:") ~typ:((ptr void) @-> returning void) x +let accommodatePresentedSubitemDeletionAtURL x ~completionHandler self = msg_send ~self ~cmd:(selector "accommodatePresentedSubitemDeletionAtURL:completionHandler:") ~typ:(id @-> (ptr void) @-> returning void) x completionHandler +let autosaveWithCompletionHandler x self = msg_send ~self ~cmd:(selector "autosaveWithCompletionHandler:") ~typ:((ptr void) @-> returning void) x +let changeCountTokenForSaveOperation x self = msg_send ~self ~cmd:(selector "changeCountTokenForSaveOperation:") ~typ:(llong @-> returning id) (LLong.of_int x) +let closeWithCompletionHandler x self = msg_send ~self ~cmd:(selector "closeWithCompletionHandler:") ~typ:((ptr void) @-> returning void) x +let contentsForType x ~error self = msg_send ~self ~cmd:(selector "contentsForType:error:") ~typ:(id @-> (ptr id) @-> returning id) x error +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let differenceDueToRecentChanges self = msg_send ~self ~cmd:(selector "differenceDueToRecentChanges") ~typ:(returning id) +let differenceSincePreservingPreviousVersion self = msg_send ~self ~cmd:(selector "differenceSincePreservingPreviousVersion") ~typ:(returning id) +let differenceSinceSaving self = msg_send ~self ~cmd:(selector "differenceSinceSaving") ~typ:(returning id) +let disableEditing self = msg_send ~self ~cmd:(selector "disableEditing") ~typ:(returning void) +let documentState self = msg_send ~self ~cmd:(selector "documentState") ~typ:(returning ullong) +let enableEditing self = msg_send ~self ~cmd:(selector "enableEditing") ~typ:(returning void) +let fileAttributesToWriteToURL x ~forSaveOperation ~error self = msg_send ~self ~cmd:(selector "fileAttributesToWriteToURL:forSaveOperation:error:") ~typ:(id @-> llong @-> (ptr id) @-> returning id) x (LLong.of_int forSaveOperation) error +let fileModificationDate self = msg_send ~self ~cmd:(selector "fileModificationDate") ~typ:(returning id) +let fileNameExtensionForType x ~saveOperation self = msg_send ~self ~cmd:(selector "fileNameExtensionForType:saveOperation:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int saveOperation) +let fileType self = msg_send ~self ~cmd:(selector "fileType") ~typ:(returning id) +let fileURL self = msg_send ~self ~cmd:(selector "fileURL") ~typ:(returning id) +let finishedHandlingError x ~recovered self = msg_send ~self ~cmd:(selector "finishedHandlingError:recovered:") ~typ:(id @-> bool @-> returning void) x recovered +let handleError x ~userInteractionPermitted self = msg_send ~self ~cmd:(selector "handleError:userInteractionPermitted:") ~typ:(id @-> bool @-> returning void) x userInteractionPermitted +let hasUnsavedChanges self = msg_send ~self ~cmd:(selector "hasUnsavedChanges") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithFileURL x self = msg_send ~self ~cmd:(selector "initWithFileURL:") ~typ:(id @-> returning id) x +let loadFromContents x ~ofType ~error self = msg_send ~self ~cmd:(selector "loadFromContents:ofType:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x ofType error +let localizedName self = msg_send ~self ~cmd:(selector "localizedName") ~typ:(returning id) +let openWithCompletionHandler x self = msg_send ~self ~cmd:(selector "openWithCompletionHandler:") ~typ:((ptr void) @-> returning void) x +let performAsynchronousFileAccessUsingBlock x self = msg_send ~self ~cmd:(selector "performAsynchronousFileAccessUsingBlock:") ~typ:((ptr void) @-> returning void) x +let presentedItemDidChange self = msg_send ~self ~cmd:(selector "presentedItemDidChange") ~typ:(returning void) +let presentedItemDidGainVersion x self = msg_send ~self ~cmd:(selector "presentedItemDidGainVersion:") ~typ:(id @-> returning void) x +let presentedItemDidLoseVersion x self = msg_send ~self ~cmd:(selector "presentedItemDidLoseVersion:") ~typ:(id @-> returning void) x +let presentedItemDidMoveToURL x self = msg_send ~self ~cmd:(selector "presentedItemDidMoveToURL:") ~typ:(id @-> returning void) x +let presentedItemDidResolveConflictVersion x self = msg_send ~self ~cmd:(selector "presentedItemDidResolveConflictVersion:") ~typ:(id @-> returning void) x +let presentedItemHasUnsavedChangesWithCompletionHandler x self = msg_send ~self ~cmd:(selector "presentedItemHasUnsavedChangesWithCompletionHandler:") ~typ:((ptr void) @-> returning void) x +let presentedItemOperationQueue self = msg_send ~self ~cmd:(selector "presentedItemOperationQueue") ~typ:(returning id) +let presentedItemURL self = msg_send ~self ~cmd:(selector "presentedItemURL") ~typ:(returning id) +let presentedSubitemAtURL x ~didGainVersion self = msg_send ~self ~cmd:(selector "presentedSubitemAtURL:didGainVersion:") ~typ:(id @-> id @-> returning void) x didGainVersion +let presentedSubitemAtURL1 x ~didLoseVersion self = msg_send ~self ~cmd:(selector "presentedSubitemAtURL:didLoseVersion:") ~typ:(id @-> id @-> returning void) x didLoseVersion +let presentedSubitemAtURL2 x ~didMoveToURL self = msg_send ~self ~cmd:(selector "presentedSubitemAtURL:didMoveToURL:") ~typ:(id @-> id @-> returning void) x didMoveToURL +let presentedSubitemAtURL3 x ~didResolveConflictVersion self = msg_send ~self ~cmd:(selector "presentedSubitemAtURL:didResolveConflictVersion:") ~typ:(id @-> id @-> returning void) x didResolveConflictVersion +let presentedSubitemDidAppearAtURL x self = msg_send ~self ~cmd:(selector "presentedSubitemDidAppearAtURL:") ~typ:(id @-> returning void) x +let presentedSubitemDidChangeAtURL x self = msg_send ~self ~cmd:(selector "presentedSubitemDidChangeAtURL:") ~typ:(id @-> returning void) x +let progress self = msg_send ~self ~cmd:(selector "progress") ~typ:(returning id) +let readFromURL x ~error self = msg_send ~self ~cmd:(selector "readFromURL:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let relinquishPresentedItemToReader x self = msg_send ~self ~cmd:(selector "relinquishPresentedItemToReader:") ~typ:((ptr void) @-> returning void) x +let relinquishPresentedItemToWriter x self = msg_send ~self ~cmd:(selector "relinquishPresentedItemToWriter:") ~typ:((ptr void) @-> returning void) x +let restoreUserActivityState x self = msg_send ~self ~cmd:(selector "restoreUserActivityState:") ~typ:(id @-> returning void) x +let revertToContentsOfURL x ~completionHandler self = msg_send ~self ~cmd:(selector "revertToContentsOfURL:completionHandler:") ~typ:(id @-> (ptr void) @-> returning void) x completionHandler +let savePresentedItemChangesWithCompletionHandler x self = msg_send ~self ~cmd:(selector "savePresentedItemChangesWithCompletionHandler:") ~typ:((ptr void) @-> returning void) x +let saveToURL x ~forSaveOperation ~completionHandler self = msg_send ~self ~cmd:(selector "saveToURL:forSaveOperation:completionHandler:") ~typ:(id @-> llong @-> (ptr void) @-> returning void) x (LLong.of_int forSaveOperation) completionHandler +let savingFileType self = msg_send ~self ~cmd:(selector "savingFileType") ~typ:(returning id) +let setFileModificationDate x self = msg_send ~self ~cmd:(selector "setFileModificationDate:") ~typ:(id @-> returning void) x +let setFileType x self = msg_send ~self ~cmd:(selector "setFileType:") ~typ:(id @-> returning void) x +let setUndoManager x self = msg_send ~self ~cmd:(selector "setUndoManager:") ~typ:(id @-> returning void) x +let setUserActivity x self = msg_send ~self ~cmd:(selector "setUserActivity:") ~typ:(id @-> returning void) x +let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning id) +let updateChangeCount x self = msg_send ~self ~cmd:(selector "updateChangeCount:") ~typ:(llong @-> returning void) (LLong.of_int x) +let updateChangeCountWithToken x ~forSaveOperation self = msg_send ~self ~cmd:(selector "updateChangeCountWithToken:forSaveOperation:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forSaveOperation) +let updateUserActivityState x self = msg_send ~self ~cmd:(selector "updateUserActivityState:") ~typ:(id @-> returning void) x +let userActivity self = msg_send ~self ~cmd:(selector "userActivity") ~typ:(returning id) +let userInteractionNoLongerPermittedForError x self = msg_send ~self ~cmd:(selector "userInteractionNoLongerPermittedForError:") ~typ:(id @-> returning void) x +let writeContents x ~andAttributes ~safelyToURL ~forSaveOperation ~error self = msg_send ~self ~cmd:(selector "writeContents:andAttributes:safelyToURL:forSaveOperation:error:") ~typ:(id @-> id @-> id @-> llong @-> (ptr id) @-> returning bool) x andAttributes safelyToURL (LLong.of_int forSaveOperation) error +let writeContents' x ~toURL ~forSaveOperation ~originalContentsURL ~error self = msg_send ~self ~cmd:(selector "writeContents:toURL:forSaveOperation:originalContentsURL:error:") ~typ:(id @-> id @-> llong @-> id @-> (ptr id) @-> returning bool) x toURL (LLong.of_int forSaveOperation) originalContentsURL error \ No newline at end of file diff --git a/uikit/UIDocumentAlertPresenter.ml b/uikit/UIDocumentAlertPresenter.ml index d46f58cc..4664106a 100644 --- a/uikit/UIDocumentAlertPresenter.ml +++ b/uikit/UIDocumentAlertPresenter.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDocumentAlertPresenter" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidocumentalertpresenter?language=objc}UIDocumentAlertPresenter} *) -let alertView x ~clickedButtonAtIndex self = msg_send ~self ~cmd:(selector "alertView:clickedButtonAtIndex:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int clickedButtonAtIndex) -let alertViewCancel x self = msg_send ~self ~cmd:(selector "alertViewCancel:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithError x ~completionHandler self = msg_send ~self ~cmd:(selector "initWithError:completionHandler:") ~typ:(id @-> ptr void @-> returning (id)) x completionHandler \ No newline at end of file +let self = get_class "UIDocumentAlertPresenter" + +let alertView x ~clickedButtonAtIndex self = msg_send ~self ~cmd:(selector "alertView:clickedButtonAtIndex:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int clickedButtonAtIndex) +let alertViewCancel x self = msg_send ~self ~cmd:(selector "alertViewCancel:") ~typ:(id @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithError x ~completionHandler self = msg_send ~self ~cmd:(selector "initWithError:completionHandler:") ~typ:(id @-> (ptr void) @-> returning id) x completionHandler \ No newline at end of file diff --git a/uikit/UIDocumentErrorRecoveryAttempter.ml b/uikit/UIDocumentErrorRecoveryAttempter.ml deleted file mode 100644 index f9ff9908..00000000 --- a/uikit/UIDocumentErrorRecoveryAttempter.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDocumentErrorRecoveryAttempter" - -let attemptRecoveryFromError x ~optionIndex self = msg_send ~self ~cmd:(selector "attemptRecoveryFromError:optionIndex:") ~typ:(id @-> ullong @-> returning (bool)) x (ULLong.of_int optionIndex) -let attemptSilentRecoveryFromError x ~error self = msg_send ~self ~cmd:(selector "attemptSilentRecoveryFromError:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let cancelRecovery self = msg_send ~self ~cmd:(selector "cancelRecovery") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithDocument x ~wrappedRecoveryAttempter self = msg_send ~self ~cmd:(selector "initWithDocument:wrappedRecoveryAttempter:") ~typ:(id @-> id @-> returning (id)) x wrappedRecoveryAttempter -let initWithDocument' x ~silentRecoveryOptionIndex ~appModalRecoveryAttempter ~recoveryCanceler self = msg_send ~self ~cmd:(selector "initWithDocument:silentRecoveryOptionIndex:appModalRecoveryAttempter:recoveryCanceler:") ~typ:(id @-> ullong @-> ptr void @-> ptr void @-> returning (id)) x (ULLong.of_int silentRecoveryOptionIndex) appModalRecoveryAttempter recoveryCanceler \ No newline at end of file diff --git a/uikit/UIDocumentMenuViewController.ml b/uikit/UIDocumentMenuViewController.ml index 9f03c943..c84f0840 100644 --- a/uikit/UIDocumentMenuViewController.ml +++ b/uikit/UIDocumentMenuViewController.ml @@ -5,26 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDocumentMenuViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidocumentmenuviewcontroller?language=objc}UIDocumentMenuViewController} *) -let actionSheetPresentationControllerDidDismissActionSheet x self = msg_send ~self ~cmd:(selector "actionSheetPresentationControllerDidDismissActionSheet:") ~typ:(id @-> returning (void)) x -let addOptionWithTitle x ~image ~order ~handler self = msg_send ~self ~cmd:(selector "addOptionWithTitle:image:order:handler:") ~typ:(id @-> id @-> ullong @-> ptr void @-> returning (void)) x image (ULLong.of_int order) handler -let allowedUTIs self = msg_send ~self ~cmd:(selector "allowedUTIs") ~typ:(returning (id)) -let auxiliaryOptions self = msg_send ~self ~cmd:(selector "auxiliaryOptions") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let dismissDelegateCalled self = msg_send ~self ~cmd:(selector "dismissDelegateCalled") ~typ:(returning (bool)) -let documentPickerMode self = msg_send ~self ~cmd:(selector "documentPickerMode") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithDocumentTypes x ~inMode self = msg_send ~self ~cmd:(selector "initWithDocumentTypes:inMode:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int inMode) -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let initWithURL x ~inMode self = msg_send ~self ~cmd:(selector "initWithURL:inMode:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int inMode) -let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning (void)) x -let setAllowedUTIs x self = msg_send ~self ~cmd:(selector "setAllowedUTIs:") ~typ:(id @-> returning (void)) x -let setAuxiliaryOptions x self = msg_send ~self ~cmd:(selector "setAuxiliaryOptions:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDismissDelegateCalled x self = msg_send ~self ~cmd:(selector "setDismissDelegateCalled:") ~typ:(bool @-> returning (void)) x -let setDocumentPickerMode x self = msg_send ~self ~cmd:(selector "setDocumentPickerMode:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setModalPresentationStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setUploadURL x self = msg_send ~self ~cmd:(selector "setUploadURL:") ~typ:(id @-> returning (void)) x -let uploadURL self = msg_send ~self ~cmd:(selector "uploadURL") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIDocumentMenuViewController" + +let actionSheetPresentationControllerDidDismissActionSheet x self = msg_send ~self ~cmd:(selector "actionSheetPresentationControllerDidDismissActionSheet:") ~typ:(id @-> returning void) x +let addOptionWithTitle x ~image ~order ~handler self = msg_send ~self ~cmd:(selector "addOptionWithTitle:image:order:handler:") ~typ:(id @-> id @-> ullong @-> (ptr void) @-> returning void) x image (ULLong.of_int order) handler +let allowedUTIs self = msg_send ~self ~cmd:(selector "allowedUTIs") ~typ:(returning id) +let auxiliaryOptions self = msg_send ~self ~cmd:(selector "auxiliaryOptions") ~typ:(returning id) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let dismissDelegateCalled self = msg_send ~self ~cmd:(selector "dismissDelegateCalled") ~typ:(returning bool) +let documentPickerMode self = msg_send ~self ~cmd:(selector "documentPickerMode") ~typ:(returning ullong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithDocumentTypes x ~inMode self = msg_send ~self ~cmd:(selector "initWithDocumentTypes:inMode:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int inMode) +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let initWithURL x ~inMode self = msg_send ~self ~cmd:(selector "initWithURL:inMode:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int inMode) +let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning void) x +let setAllowedUTIs x self = msg_send ~self ~cmd:(selector "setAllowedUTIs:") ~typ:(id @-> returning void) x +let setAuxiliaryOptions x self = msg_send ~self ~cmd:(selector "setAuxiliaryOptions:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDismissDelegateCalled x self = msg_send ~self ~cmd:(selector "setDismissDelegateCalled:") ~typ:(bool @-> returning void) x +let setDocumentPickerMode x self = msg_send ~self ~cmd:(selector "setDocumentPickerMode:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setModalPresentationStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setUploadURL x self = msg_send ~self ~cmd:(selector "setUploadURL:") ~typ:(id @-> returning void) x +let uploadURL self = msg_send ~self ~cmd:(selector "uploadURL") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIDocumentPasswordView.ml b/uikit/UIDocumentPasswordView.ml index 4a9640c2..cb51e073 100644 --- a/uikit/UIDocumentPasswordView.ml +++ b/uikit/UIDocumentPasswordView.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDocumentPasswordView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidocumentpasswordview?language=objc}UIDocumentPasswordView} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let initWithDocumentName x self = msg_send ~self ~cmd:(selector "initWithDocumentName:") ~typ:(id @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let passwordDelegate self = msg_send ~self ~cmd:(selector "passwordDelegate") ~typ:(returning (id)) -let passwordField self = msg_send ~self ~cmd:(selector "passwordField") ~typ:(returning (id)) -let setPasswordDelegate x self = msg_send ~self ~cmd:(selector "setPasswordDelegate:") ~typ:(id @-> returning (void)) x -let textFieldDidBeginEditing x self = msg_send ~self ~cmd:(selector "textFieldDidBeginEditing:") ~typ:(id @-> returning (void)) x -let textFieldDidEndEditing x self = msg_send ~self ~cmd:(selector "textFieldDidEndEditing:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIDocumentPasswordView" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let initWithDocumentName x self = msg_send ~self ~cmd:(selector "initWithDocumentName:") ~typ:(id @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let passwordDelegate self = msg_send ~self ~cmd:(selector "passwordDelegate") ~typ:(returning id) +let passwordField self = msg_send ~self ~cmd:(selector "passwordField") ~typ:(returning id) +let setPasswordDelegate x self = msg_send ~self ~cmd:(selector "setPasswordDelegate:") ~typ:(id @-> returning void) x +let textFieldDidBeginEditing x self = msg_send ~self ~cmd:(selector "textFieldDidBeginEditing:") ~typ:(id @-> returning void) x +let textFieldDidEndEditing x self = msg_send ~self ~cmd:(selector "textFieldDidEndEditing:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIDocumentPickerExtensionViewController.ml b/uikit/UIDocumentPickerExtensionViewController.ml deleted file mode 100644 index 13e50d8f..00000000 --- a/uikit/UIDocumentPickerExtensionViewController.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDocumentPickerExtensionViewController" - -let dismissGrantingAccessToURL x self = msg_send ~self ~cmd:(selector "dismissGrantingAccessToURL:") ~typ:(id @-> returning (void)) x -let documentPickerMode self = msg_send ~self ~cmd:(selector "documentPickerMode") ~typ:(returning (ullong)) -let documentStorageURL self = msg_send ~self ~cmd:(selector "documentStorageURL") ~typ:(returning (id)) -let originalURL self = msg_send ~self ~cmd:(selector "originalURL") ~typ:(returning (id)) -let prepareForDocumentSelectionInMode x self = msg_send ~self ~cmd:(selector "prepareForDocumentSelectionInMode:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let prepareForPresentationInMode x self = msg_send ~self ~cmd:(selector "prepareForPresentationInMode:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let providerIdentifier self = msg_send ~self ~cmd:(selector "providerIdentifier") ~typ:(returning (id)) -let validTypes self = msg_send ~self ~cmd:(selector "validTypes") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIDocumentPickerViewController.ml b/uikit/UIDocumentPickerViewController.ml index cd8757a5..2fb8ff00 100644 --- a/uikit/UIDocumentPickerViewController.ml +++ b/uikit/UIDocumentPickerViewController.ml @@ -5,38 +5,42 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDocumentPickerViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidocumentpickerviewcontroller?language=objc}UIDocumentPickerViewController} *) -let allowsMultipleSelection self = msg_send ~self ~cmd:(selector "allowsMultipleSelection") ~typ:(returning (bool)) -let copyURLsToInbox x ~completion self = msg_send ~self ~cmd:(selector "copyURLsToInbox:completion:") ~typ:(id @-> ptr void @-> returning (void)) x completion -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let directoryURL self = msg_send ~self ~cmd:(selector "directoryURL") ~typ:(returning (id)) -let dismissViewControllerAnimated x ~completion self = msg_send ~self ~cmd:(selector "dismissViewControllerAnimated:completion:") ~typ:(bool @-> ptr void @-> returning (void)) x completion -let documentPickerMode self = msg_send ~self ~cmd:(selector "documentPickerMode") ~typ:(returning (ullong)) -let documentTypes self = msg_send ~self ~cmd:(selector "documentTypes") ~typ:(returning (id)) -let initForExportingURLs x self = msg_send ~self ~cmd:(selector "initForExportingURLs:") ~typ:(id @-> returning (id)) x -let initForExportingURLs' x ~asCopy self = msg_send ~self ~cmd:(selector "initForExportingURLs:asCopy:") ~typ:(id @-> bool @-> returning (id)) x asCopy -let initForOpeningContentTypes x self = msg_send ~self ~cmd:(selector "initForOpeningContentTypes:") ~typ:(id @-> returning (id)) x -let initForOpeningContentTypes' x ~asCopy self = msg_send ~self ~cmd:(selector "initForOpeningContentTypes:asCopy:") ~typ:(id @-> bool @-> returning (id)) x asCopy -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithDocumentTypes x ~inMode self = msg_send ~self ~cmd:(selector "initWithDocumentTypes:inMode:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int inMode) -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let initWithURL x ~inMode self = msg_send ~self ~cmd:(selector "initWithURL:inMode:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int inMode) -let initWithURLs x ~inMode self = msg_send ~self ~cmd:(selector "initWithURLs:inMode:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int inMode) -let modalPresentationStyle self = msg_send ~self ~cmd:(selector "modalPresentationStyle") ~typ:(returning (llong)) -let pickerUserInterfaceStyle self = msg_send ~self ~cmd:(selector "pickerUserInterfaceStyle") ~typ:(returning (ullong)) -let setAllowsMultipleSelection x self = msg_send ~self ~cmd:(selector "setAllowsMultipleSelection:") ~typ:(bool @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDirectoryURL x self = msg_send ~self ~cmd:(selector "setDirectoryURL:") ~typ:(id @-> returning (void)) x -let setDocumentPickerMode x self = msg_send ~self ~cmd:(selector "setDocumentPickerMode:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDocumentTypes x self = msg_send ~self ~cmd:(selector "setDocumentTypes:") ~typ:(id @-> returning (void)) x -let setPickerUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setPickerUserInterfaceStyle:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setShouldShowFileExtensions x self = msg_send ~self ~cmd:(selector "setShouldShowFileExtensions:") ~typ:(bool @-> returning (void)) x -let setUploadURLs x self = msg_send ~self ~cmd:(selector "setUploadURLs:") ~typ:(id @-> returning (void)) x -let shouldShowFileExtensions self = msg_send ~self ~cmd:(selector "shouldShowFileExtensions") ~typ:(returning (bool)) -let uploadURLs self = msg_send ~self ~cmd:(selector "uploadURLs") ~typ:(returning (id)) -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIDocumentPickerViewController" + +let allowsMultipleSelection self = msg_send ~self ~cmd:(selector "allowsMultipleSelection") ~typ:(returning bool) +let copyURLsToInbox x ~completion self = msg_send ~self ~cmd:(selector "copyURLsToInbox:completion:") ~typ:(id @-> (ptr void) @-> returning void) x completion +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let directoryURL self = msg_send ~self ~cmd:(selector "directoryURL") ~typ:(returning id) +let dismissViewControllerAnimated x ~completion self = msg_send ~self ~cmd:(selector "dismissViewControllerAnimated:completion:") ~typ:(bool @-> (ptr void) @-> returning void) x completion +let documentPickerMode self = msg_send ~self ~cmd:(selector "documentPickerMode") ~typ:(returning ullong) +let documentTypes self = msg_send ~self ~cmd:(selector "documentTypes") ~typ:(returning id) +let initForExportingURLs x self = msg_send ~self ~cmd:(selector "initForExportingURLs:") ~typ:(id @-> returning id) x +let initForExportingURLs' x ~asCopy self = msg_send ~self ~cmd:(selector "initForExportingURLs:asCopy:") ~typ:(id @-> bool @-> returning id) x asCopy +let initForOpeningContentTypes x self = msg_send ~self ~cmd:(selector "initForOpeningContentTypes:") ~typ:(id @-> returning id) x +let initForOpeningContentTypes' x ~asCopy self = msg_send ~self ~cmd:(selector "initForOpeningContentTypes:asCopy:") ~typ:(id @-> bool @-> returning id) x asCopy +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithDocumentTypes x ~inMode self = msg_send ~self ~cmd:(selector "initWithDocumentTypes:inMode:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int inMode) +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let initWithURL x ~inMode self = msg_send ~self ~cmd:(selector "initWithURL:inMode:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int inMode) +let initWithURLs x ~inMode self = msg_send ~self ~cmd:(selector "initWithURLs:inMode:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int inMode) +let modalPresentationStyle self = msg_send ~self ~cmd:(selector "modalPresentationStyle") ~typ:(returning llong) +let pickerUserInterfaceStyle self = msg_send ~self ~cmd:(selector "pickerUserInterfaceStyle") ~typ:(returning ullong) +let setAllowsMultipleSelection x self = msg_send ~self ~cmd:(selector "setAllowsMultipleSelection:") ~typ:(bool @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDirectoryURL x self = msg_send ~self ~cmd:(selector "setDirectoryURL:") ~typ:(id @-> returning void) x +let setDocumentPickerMode x self = msg_send ~self ~cmd:(selector "setDocumentPickerMode:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDocumentTypes x self = msg_send ~self ~cmd:(selector "setDocumentTypes:") ~typ:(id @-> returning void) x +let setPickerUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setPickerUserInterfaceStyle:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setShouldShowFileExtensions x self = msg_send ~self ~cmd:(selector "setShouldShowFileExtensions:") ~typ:(bool @-> returning void) x +let setUploadURLs x self = msg_send ~self ~cmd:(selector "setUploadURLs:") ~typ:(id @-> returning void) x +let shouldShowFileExtensions self = msg_send ~self ~cmd:(selector "shouldShowFileExtensions") ~typ:(returning bool) +let uploadURLs self = msg_send ~self ~cmd:(selector "uploadURLs") ~typ:(returning id) +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIDocumentSharingController.ml b/uikit/UIDocumentSharingController.ml index e7270b82..8858a035 100644 --- a/uikit/UIDocumentSharingController.ml +++ b/uikit/UIDocumentSharingController.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDocumentSharingController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidocumentsharingcontroller?language=objc}UIDocumentSharingController} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let initWithFileURL x self = msg_send ~self ~cmd:(selector "initWithFileURL:") ~typ:(id @-> returning (id)) x -let initWithFileURL' x ~error self = msg_send ~self ~cmd:(selector "initWithFileURL:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIDocumentSharingController" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let initWithFileURL x self = msg_send ~self ~cmd:(selector "initWithFileURL:") ~typ:(id @-> returning id) x +let initWithFileURL' x ~error self = msg_send ~self ~cmd:(selector "initWithFileURL:error:") ~typ:(id @-> (ptr id) @-> returning id) x error +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIDragEvent.ml b/uikit/UIDragEvent.ml index fa45b6ca..e5b8b24c 100644 --- a/uikit/UIDragEvent.ml +++ b/uikit/UIDragEvent.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDragEvent" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidragevent?language=objc}UIDragEvent} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let dragSessionID self = msg_send ~self ~cmd:(selector "dragSessionID") ~typ:(returning (uint)) -let eventWindow self = msg_send ~self ~cmd:(selector "eventWindow") ~typ:(returning (id)) -let hasActiveGestureRecognizers self = msg_send ~self ~cmd:(selector "hasActiveGestureRecognizers") ~typ:(returning (bool)) -let initWithDragSessionID x ~environment self = msg_send ~self ~cmd:(selector "initWithDragSessionID:environment:") ~typ:(uint @-> id @-> returning (id)) x environment -let isFromAccessibilitySession self = msg_send ~self ~cmd:(selector "isFromAccessibilitySession") ~typ:(returning (bool)) -let isPolicyDriven self = msg_send ~self ~cmd:(selector "isPolicyDriven") ~typ:(returning (bool)) -let locationInSceneReferenceSpace self = msg_send_stret ~self ~cmd:(selector "locationInSceneReferenceSpace") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIDragEvent" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let dragSessionID self = msg_send ~self ~cmd:(selector "dragSessionID") ~typ:(returning uint) +let eventWindow self = msg_send ~self ~cmd:(selector "eventWindow") ~typ:(returning id) +let hasActiveGestureRecognizers self = msg_send ~self ~cmd:(selector "hasActiveGestureRecognizers") ~typ:(returning bool) +let initWithDragSessionID x ~environment self = msg_send ~self ~cmd:(selector "initWithDragSessionID:environment:") ~typ:(uint @-> id @-> returning id) x environment +let isFromAccessibilitySession self = msg_send ~self ~cmd:(selector "isFromAccessibilitySession") ~typ:(returning bool) +let isPolicyDriven self = msg_send ~self ~cmd:(selector "isPolicyDriven") ~typ:(returning bool) +let locationInSceneReferenceSpace self = msg_send ~self ~cmd:(selector "locationInSceneReferenceSpace") ~typ:(returning CGPoint.t) +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIDragGestureRecognizer.ml b/uikit/UIDragGestureRecognizer.ml index e1fa1290..bfc2d94d 100644 --- a/uikit/UIDragGestureRecognizer.ml +++ b/uikit/UIDragGestureRecognizer.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDragGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidraggesturerecognizer?language=objc}UIDragGestureRecognizer} *) -let canBePreventedByGestureRecognizer x self = msg_send ~self ~cmd:(selector "canBePreventedByGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let dropSession self = msg_send ~self ~cmd:(selector "dropSession") ~typ:(returning (id)) -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let sessionDestination self = msg_send ~self ~cmd:(selector "sessionDestination") ~typ:(returning (id)) -let shouldReceiveEvent x self = msg_send ~self ~cmd:(selector "shouldReceiveEvent:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let self = get_class "UIDragGestureRecognizer" + +let canBePreventedByGestureRecognizer x self = msg_send ~self ~cmd:(selector "canBePreventedByGestureRecognizer:") ~typ:(id @-> returning bool) x +let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning bool) x +let dropSession self = msg_send ~self ~cmd:(selector "dropSession") ~typ:(returning id) +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let sessionDestination self = msg_send ~self ~cmd:(selector "sessionDestination") ~typ:(returning id) +let shouldReceiveEvent x self = msg_send ~self ~cmd:(selector "shouldReceiveEvent:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIDragInteraction.ml b/uikit/UIDragInteraction.ml index e8947bca..907b702f 100644 --- a/uikit/UIDragInteraction.ml +++ b/uikit/UIDragInteraction.ml @@ -5,40 +5,40 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDragInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidraginteraction?language=objc}UIDragInteraction} *) -module C = struct - let isEnabledByDefault self = msg_send ~self ~cmd:(selector "isEnabledByDefault") ~typ:(returning (bool)) -end +let self = get_class "UIDragInteraction" -let allowsSimultaneousRecognitionDuringLift self = msg_send ~self ~cmd:(selector "allowsSimultaneousRecognitionDuringLift") ~typ:(returning (bool)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let dragDriver x ~canExcludeCompetingGestureRecognizer self = msg_send ~self ~cmd:(selector "dragDriver:canExcludeCompetingGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x canExcludeCompetingGestureRecognizer -let dragDriver1 x ~competingGestureRecognizerShouldDelayLift self = msg_send ~self ~cmd:(selector "dragDriver:competingGestureRecognizerShouldDelayLift:") ~typ:(id @-> id @-> returning (bool)) x competingGestureRecognizerShouldDelayLift -let dragDriver2 x ~prepareToLiftWithCompletion self = msg_send ~self ~cmd:(selector "dragDriver:prepareToLiftWithCompletion:") ~typ:(id @-> ptr void @-> returning (bool)) x prepareToLiftWithCompletion -let dragDriver3 x ~shouldBeginAtLocation self = msg_send ~self ~cmd:(selector "dragDriver:shouldBeginAtLocation:") ~typ:(id @-> CGPoint.t @-> returning (bool)) x shouldBeginAtLocation -let dragDriver4 x ~shouldDelayCompetingGestureRecognizer self = msg_send ~self ~cmd:(selector "dragDriver:shouldDelayCompetingGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldDelayCompetingGestureRecognizer -let dragDriver5 x ~beginDragWithTouches ~itemUpdater ~beginningSessionHandler self = msg_send ~self ~cmd:(selector "dragDriver:beginDragWithTouches:itemUpdater:beginningSessionHandler:") ~typ:(id @-> id @-> ptr void @-> ptr void @-> returning (void)) x beginDragWithTouches itemUpdater beginningSessionHandler -let dragDriverBeginLift x self = msg_send ~self ~cmd:(selector "dragDriverBeginLift:") ~typ:(id @-> returning (bool)) x -let dragDriverCancelAddItemsGesture x self = msg_send ~self ~cmd:(selector "dragDriverCancelAddItemsGesture:") ~typ:(id @-> returning (void)) x -let dragDriverCancelLift x self = msg_send ~self ~cmd:(selector "dragDriverCancelLift:") ~typ:(id @-> returning (void)) x -let dragDriverWantsExclusionOverride x self = msg_send ~self ~cmd:(selector "dragDriverWantsExclusionOverride:") ~typ:(id @-> returning (bool)) x -let gestureRecognizer x ~shouldBeRequiredToFailByGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldBeRequiredToFailByGestureRecognizer -let gestureRecognizer1 x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning (bool)) x shouldReceiveTouch -let gestureRecognizer2 x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRecognizeSimultaneouslyWithGestureRecognizer -let gestureRecognizer3 x ~shouldRequireFailureOfGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRequireFailureOfGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRequireFailureOfGestureRecognizer -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning (id)) x -let interactionEffect self = msg_send ~self ~cmd:(selector "interactionEffect") ~typ:(returning (id)) -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let liftDelay self = msg_send ~self ~cmd:(selector "liftDelay") ~typ:(returning (double)) -let setAllowsSimultaneousRecognitionDuringLift x self = msg_send ~self ~cmd:(selector "setAllowsSimultaneousRecognitionDuringLift:") ~typ:(bool @-> returning (void)) x -let setDragCancellationDelay x self = msg_send ~self ~cmd:(selector "setDragCancellationDelay:") ~typ:(double @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setInteractionEffect x self = msg_send ~self ~cmd:(selector "setInteractionEffect:") ~typ:(id @-> returning (void)) x -let setLiftDelay x self = msg_send ~self ~cmd:(selector "setLiftDelay:") ~typ:(double @-> returning (void)) x -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let allowsSimultaneousRecognitionDuringLift self = msg_send ~self ~cmd:(selector "allowsSimultaneousRecognitionDuringLift") ~typ:(returning bool) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let dragDriver x ~canExcludeCompetingGestureRecognizer self = msg_send ~self ~cmd:(selector "dragDriver:canExcludeCompetingGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x canExcludeCompetingGestureRecognizer +let dragDriver1 x ~competingGestureRecognizerShouldDelayLift self = msg_send ~self ~cmd:(selector "dragDriver:competingGestureRecognizerShouldDelayLift:") ~typ:(id @-> id @-> returning bool) x competingGestureRecognizerShouldDelayLift +let dragDriver2 x ~prepareToLiftWithCompletion self = msg_send ~self ~cmd:(selector "dragDriver:prepareToLiftWithCompletion:") ~typ:(id @-> (ptr void) @-> returning bool) x prepareToLiftWithCompletion +let dragDriver3 x ~shouldBeginAtLocation self = msg_send ~self ~cmd:(selector "dragDriver:shouldBeginAtLocation:") ~typ:(id @-> CGPoint.t @-> returning bool) x shouldBeginAtLocation +let dragDriver4 x ~shouldDelayCompetingGestureRecognizer self = msg_send ~self ~cmd:(selector "dragDriver:shouldDelayCompetingGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldDelayCompetingGestureRecognizer +let dragDriver5 x ~beginDragWithTouches ~itemUpdater ~beginningSessionHandler self = msg_send ~self ~cmd:(selector "dragDriver:beginDragWithTouches:itemUpdater:beginningSessionHandler:") ~typ:(id @-> id @-> (ptr void) @-> (ptr void) @-> returning void) x beginDragWithTouches itemUpdater beginningSessionHandler +let dragDriverBeginLift x self = msg_send ~self ~cmd:(selector "dragDriverBeginLift:") ~typ:(id @-> returning bool) x +let dragDriverCancelAddItemsGesture x self = msg_send ~self ~cmd:(selector "dragDriverCancelAddItemsGesture:") ~typ:(id @-> returning void) x +let dragDriverCancelLift x self = msg_send ~self ~cmd:(selector "dragDriverCancelLift:") ~typ:(id @-> returning void) x +let dragDriverWantsExclusionOverride x self = msg_send ~self ~cmd:(selector "dragDriverWantsExclusionOverride:") ~typ:(id @-> returning bool) x +let gestureRecognizer x ~shouldBeRequiredToFailByGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldBeRequiredToFailByGestureRecognizer +let gestureRecognizer1 x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning bool) x shouldReceiveTouch +let gestureRecognizer2 x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldRecognizeSimultaneouslyWithGestureRecognizer +let gestureRecognizer3 x ~shouldRequireFailureOfGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRequireFailureOfGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldRequireFailureOfGestureRecognizer +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning id) x +let interactionEffect self = msg_send ~self ~cmd:(selector "interactionEffect") ~typ:(returning id) +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let liftDelay self = msg_send ~self ~cmd:(selector "liftDelay") ~typ:(returning double) +let setAllowsSimultaneousRecognitionDuringLift x self = msg_send ~self ~cmd:(selector "setAllowsSimultaneousRecognitionDuringLift:") ~typ:(bool @-> returning void) x +let setDragCancellationDelay x self = msg_send ~self ~cmd:(selector "setDragCancellationDelay:") ~typ:(double @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setInteractionEffect x self = msg_send ~self ~cmd:(selector "setInteractionEffect:") ~typ:(id @-> returning void) x +let setLiftDelay x self = msg_send ~self ~cmd:(selector "setLiftDelay:") ~typ:(double @-> returning void) x +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIDragInteractionClass.ml b/uikit/UIDragInteractionClass.ml new file mode 100644 index 00000000..b6dc1ec3 --- /dev/null +++ b/uikit/UIDragInteractionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidraginteraction?language=objc}UIDragInteraction} *) + +let isEnabledByDefault self = msg_send ~self ~cmd:(selector "isEnabledByDefault") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIDragInteractionContextImpl.ml b/uikit/UIDragInteractionContextImpl.ml deleted file mode 100644 index 3018ee8d..00000000 --- a/uikit/UIDragInteractionContextImpl.ml +++ /dev/null @@ -1,34 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDragInteractionContextImpl" - -let addAnimations x self = msg_send ~self ~cmd:(selector "addAnimations:") ~typ:(ptr void @-> returning (void)) x -let addCompletion x self = msg_send ~self ~cmd:(selector "addCompletion:") ~typ:(ptr void @-> returning (void)) x -let animationBlocks self = msg_send ~self ~cmd:(selector "animationBlocks") ~typ:(returning (id)) -let animations self = msg_send ~self ~cmd:(selector "animations") ~typ:(returning (ptr void)) -let completion self = msg_send ~self ~cmd:(selector "completion") ~typ:(returning (ptr void)) -let completionBlocks self = msg_send ~self ~cmd:(selector "completionBlocks") ~typ:(returning (id)) -let hasBegunDrag self = msg_send ~self ~cmd:(selector "hasBegunDrag") ~typ:(returning (bool)) -let initialLocation self = msg_send_stret ~self ~cmd:(selector "initialLocation") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let initiationTouch self = msg_send ~self ~cmd:(selector "initiationTouch") ~typ:(returning (id)) -let invocationType self = msg_send ~self ~cmd:(selector "invocationType") ~typ:(returning (llong)) -let isPreparedForLift self = msg_send ~self ~cmd:(selector "isPreparedForLift") ~typ:(returning (bool)) -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let setAnimations x self = msg_send ~self ~cmd:(selector "setAnimations:") ~typ:(ptr void @-> returning (void)) x -let setCompletion x self = msg_send ~self ~cmd:(selector "setCompletion:") ~typ:(ptr void @-> returning (void)) x -let setHasBegunDrag x self = msg_send ~self ~cmd:(selector "setHasBegunDrag:") ~typ:(bool @-> returning (void)) x -let setInitialLocation x self = msg_send ~self ~cmd:(selector "setInitialLocation:") ~typ:(CGPoint.t @-> returning (void)) x -let setInitiationTouch x self = msg_send ~self ~cmd:(selector "setInitiationTouch:") ~typ:(id @-> returning (void)) x -let setInvocationType x self = msg_send ~self ~cmd:(selector "setInvocationType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setItems x self = msg_send ~self ~cmd:(selector "setItems:") ~typ:(id @-> returning (void)) x -let setPreparedForLift x self = msg_send ~self ~cmd:(selector "setPreparedForLift:") ~typ:(bool @-> returning (void)) x -let setShouldAnimateLift x self = msg_send ~self ~cmd:(selector "setShouldAnimateLift:") ~typ:(bool @-> returning (void)) x -let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let shouldAnimateLift self = msg_send ~self ~cmd:(selector "shouldAnimateLift") ~typ:(returning (bool)) -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit/UIDragItem.ml b/uikit/UIDragItem.ml index 6ccb2af9..506d99a8 100644 --- a/uikit/UIDragItem.ml +++ b/uikit/UIDragItem.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDragItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidragitem?language=objc}UIDragItem} *) -let dragPreviewBlockProvider self = msg_send ~self ~cmd:(selector "dragPreviewBlockProvider") ~typ:(returning (id)) -let initWithItemProvider x self = msg_send ~self ~cmd:(selector "initWithItemProvider:") ~typ:(id @-> returning (id)) x -let itemProvider self = msg_send ~self ~cmd:(selector "itemProvider") ~typ:(returning (id)) -let localObject self = msg_send ~self ~cmd:(selector "localObject") ~typ:(returning (id)) -let preferredPreviewType self = msg_send ~self ~cmd:(selector "preferredPreviewType") ~typ:(returning (ullong)) +let self = get_class "UIDragItem" + +let dragPreviewBlockProvider self = msg_send ~self ~cmd:(selector "dragPreviewBlockProvider") ~typ:(returning id) +let initWithItemProvider x self = msg_send ~self ~cmd:(selector "initWithItemProvider:") ~typ:(id @-> returning id) x +let itemProvider self = msg_send ~self ~cmd:(selector "itemProvider") ~typ:(returning id) +let localObject self = msg_send ~self ~cmd:(selector "localObject") ~typ:(returning id) +let preferredPreviewType self = msg_send ~self ~cmd:(selector "preferredPreviewType") ~typ:(returning ullong) let previewProvider self = msg_send ~self ~cmd:(selector "previewProvider") ~typ:(returning (ptr void)) -let setDragPreviewBlockProvider x self = msg_send ~self ~cmd:(selector "setDragPreviewBlockProvider:") ~typ:(id @-> returning (void)) x -let setItemProvider x self = msg_send ~self ~cmd:(selector "setItemProvider:") ~typ:(id @-> returning (void)) x -let setLocalObject x self = msg_send ~self ~cmd:(selector "setLocalObject:") ~typ:(id @-> returning (void)) x -let setPreferredPreviewType x self = msg_send ~self ~cmd:(selector "setPreferredPreviewType:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setPreviewProvider x self = msg_send ~self ~cmd:(selector "setPreviewProvider:") ~typ:(ptr void @-> returning (void)) x -let setTargetedLiftPreview x self = msg_send ~self ~cmd:(selector "setTargetedLiftPreview:") ~typ:(id @-> returning (void)) x -let setUpdatedPreviewType x self = msg_send ~self ~cmd:(selector "setUpdatedPreviewType:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let updatedPreviewType self = msg_send ~self ~cmd:(selector "updatedPreviewType") ~typ:(returning (ullong)) \ No newline at end of file +let setDragPreviewBlockProvider x self = msg_send ~self ~cmd:(selector "setDragPreviewBlockProvider:") ~typ:(id @-> returning void) x +let setItemProvider x self = msg_send ~self ~cmd:(selector "setItemProvider:") ~typ:(id @-> returning void) x +let setLocalObject x self = msg_send ~self ~cmd:(selector "setLocalObject:") ~typ:(id @-> returning void) x +let setPreferredPreviewType x self = msg_send ~self ~cmd:(selector "setPreferredPreviewType:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setPreviewProvider x self = msg_send ~self ~cmd:(selector "setPreviewProvider:") ~typ:((ptr void) @-> returning void) x +let setTargetedLiftPreview x self = msg_send ~self ~cmd:(selector "setTargetedLiftPreview:") ~typ:(id @-> returning void) x +let setUpdatedPreviewType x self = msg_send ~self ~cmd:(selector "setUpdatedPreviewType:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let updatedPreviewType self = msg_send ~self ~cmd:(selector "updatedPreviewType") ~typ:(returning ullong) \ No newline at end of file diff --git a/uikit/UIDragPreview.ml b/uikit/UIDragPreview.ml index a7946c93..3134e528 100644 --- a/uikit/UIDragPreview.ml +++ b/uikit/UIDragPreview.ml @@ -5,22 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDragPreview" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidragpreview?language=objc}UIDragPreview} *) -module C = struct - let defaultBoundingSize self = msg_send_stret ~self ~cmd:(selector "defaultBoundingSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t - let previewForURL x self = msg_send ~self ~cmd:(selector "previewForURL:") ~typ:(id @-> returning (id)) x - let previewForURL' x ~title self = msg_send ~self ~cmd:(selector "previewForURL:title:") ~typ:(id @-> id @-> returning (id)) x title - let textBoundingSize self = msg_send_stret ~self ~cmd:(selector "textBoundingSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -end +let self = get_class "UIDragPreview" -let avoidAnimation self = msg_send ~self ~cmd:(selector "avoidAnimation") ~typ:(returning (bool)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning (id)) x -let initWithView' x ~parameters self = msg_send ~self ~cmd:(selector "initWithView:parameters:") ~typ:(id @-> id @-> returning (id)) x parameters -let parameters self = msg_send ~self ~cmd:(selector "parameters") ~typ:(returning (id)) -let preferredAnchorPoint self = msg_send_stret ~self ~cmd:(selector "preferredAnchorPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let setAvoidAnimation x self = msg_send ~self ~cmd:(selector "setAvoidAnimation:") ~typ:(bool @-> returning (void)) x -let setPreferredAnchorPoint x self = msg_send ~self ~cmd:(selector "setPreferredAnchorPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) \ No newline at end of file +let avoidAnimation self = msg_send ~self ~cmd:(selector "avoidAnimation") ~typ:(returning bool) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning id) x +let initWithView' x ~parameters self = msg_send ~self ~cmd:(selector "initWithView:parameters:") ~typ:(id @-> id @-> returning id) x parameters +let parameters self = msg_send ~self ~cmd:(selector "parameters") ~typ:(returning id) +let preferredAnchorPoint self = msg_send ~self ~cmd:(selector "preferredAnchorPoint") ~typ:(returning CGPoint.t) +let setAvoidAnimation x self = msg_send ~self ~cmd:(selector "setAvoidAnimation:") ~typ:(bool @-> returning void) x +let setPreferredAnchorPoint x self = msg_send ~self ~cmd:(selector "setPreferredAnchorPoint:") ~typ:(CGPoint.t @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIDragPreviewClass.ml b/uikit/UIDragPreviewClass.ml new file mode 100644 index 00000000..8a41dd90 --- /dev/null +++ b/uikit/UIDragPreviewClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidragpreview?language=objc}UIDragPreview} *) + +let defaultBoundingSize self = msg_send ~self ~cmd:(selector "defaultBoundingSize") ~typ:(returning CGSize.t) +let previewForURL x self = msg_send ~self ~cmd:(selector "previewForURL:") ~typ:(id @-> returning id) x +let previewForURL' x ~title self = msg_send ~self ~cmd:(selector "previewForURL:title:") ~typ:(id @-> id @-> returning id) x title +let textBoundingSize self = msg_send ~self ~cmd:(selector "textBoundingSize") ~typ:(returning CGSize.t) \ No newline at end of file diff --git a/uikit/UIDragRecognizer.ml b/uikit/UIDragRecognizer.ml index f0b26eea..96dcc39e 100644 --- a/uikit/UIDragRecognizer.ml +++ b/uikit/UIDragRecognizer.ml @@ -5,37 +5,41 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDragRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidragrecognizer?language=objc}UIDragRecognizer} *) -let angle self = msg_send ~self ~cmd:(selector "angle") ~typ:(returning (double)) -let canBeginDrag self = msg_send ~self ~cmd:(selector "canBeginDrag") ~typ:(returning (bool)) -let checkCanBeginDrag self = msg_send ~self ~cmd:(selector "checkCanBeginDrag") ~typ:(returning (_SEL)) -let clearIgnoreTouch self = msg_send ~self ~cmd:(selector "clearIgnoreTouch") ~typ:(returning (void)) -let clearTimer self = msg_send ~self ~cmd:(selector "clearTimer") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let ignoreTouch self = msg_send ~self ~cmd:(selector "ignoreTouch") ~typ:(returning (id)) -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let maximumDeviation self = msg_send ~self ~cmd:(selector "maximumDeviation") ~typ:(returning (double)) -let minimumDistance self = msg_send ~self ~cmd:(selector "minimumDistance") ~typ:(returning (double)) -let quietPeriod self = msg_send ~self ~cmd:(selector "quietPeriod") ~typ:(returning (double)) -let restrictsToAngle self = msg_send ~self ~cmd:(selector "restrictsToAngle") ~typ:(returning (bool)) -let setAngle x self = msg_send ~self ~cmd:(selector "setAngle:") ~typ:(double @-> returning (void)) x -let setCanBeginDrag x self = msg_send ~self ~cmd:(selector "setCanBeginDrag:") ~typ:(bool @-> returning (void)) x -let setCheckCanBeginDrag x self = msg_send ~self ~cmd:(selector "setCheckCanBeginDrag:") ~typ:(_SEL @-> returning (void)) x -let setIgnoreTouch x self = msg_send ~self ~cmd:(selector "setIgnoreTouch:") ~typ:(id @-> returning (void)) x -let setMaximumDeviation x self = msg_send ~self ~cmd:(selector "setMaximumDeviation:") ~typ:(double @-> returning (void)) x -let setMinimumDistance x self = msg_send ~self ~cmd:(selector "setMinimumDistance:") ~typ:(double @-> returning (void)) x -let setQuietPeriod x self = msg_send ~self ~cmd:(selector "setQuietPeriod:") ~typ:(double @-> returning (void)) x -let setRestrictsToAngle x self = msg_send ~self ~cmd:(selector "setRestrictsToAngle:") ~typ:(bool @-> returning (void)) x -let setStartAngle x self = msg_send ~self ~cmd:(selector "setStartAngle:") ~typ:(double @-> returning (void)) x -let setStartPosition x self = msg_send ~self ~cmd:(selector "setStartPosition:") ~typ:(CGPoint.t @-> returning (void)) x -let setTouch x self = msg_send ~self ~cmd:(selector "setTouch:") ~typ:(id @-> returning (void)) x -let startAngle self = msg_send ~self ~cmd:(selector "startAngle") ~typ:(returning (double)) -let startPosition self = msg_send_stret ~self ~cmd:(selector "startPosition") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let tooSlow x self = msg_send ~self ~cmd:(selector "tooSlow:") ~typ:(id @-> returning (void)) x -let touch self = msg_send ~self ~cmd:(selector "touch") ~typ:(returning (id)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let self = get_class "UIDragRecognizer" + +let angle self = msg_send ~self ~cmd:(selector "angle") ~typ:(returning double) +let canBeginDrag self = msg_send ~self ~cmd:(selector "canBeginDrag") ~typ:(returning bool) +let checkCanBeginDrag self = msg_send ~self ~cmd:(selector "checkCanBeginDrag") ~typ:(returning _SEL) +let clearIgnoreTouch self = msg_send ~self ~cmd:(selector "clearIgnoreTouch") ~typ:(returning void) +let clearTimer self = msg_send ~self ~cmd:(selector "clearTimer") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let ignoreTouch self = msg_send ~self ~cmd:(selector "ignoreTouch") ~typ:(returning id) +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let maximumDeviation self = msg_send ~self ~cmd:(selector "maximumDeviation") ~typ:(returning double) +let minimumDistance self = msg_send ~self ~cmd:(selector "minimumDistance") ~typ:(returning double) +let quietPeriod self = msg_send ~self ~cmd:(selector "quietPeriod") ~typ:(returning double) +let restrictsToAngle self = msg_send ~self ~cmd:(selector "restrictsToAngle") ~typ:(returning bool) +let setAngle x self = msg_send ~self ~cmd:(selector "setAngle:") ~typ:(double @-> returning void) x +let setCanBeginDrag x self = msg_send ~self ~cmd:(selector "setCanBeginDrag:") ~typ:(bool @-> returning void) x +let setCheckCanBeginDrag x self = msg_send ~self ~cmd:(selector "setCheckCanBeginDrag:") ~typ:(_SEL @-> returning void) x +let setIgnoreTouch x self = msg_send ~self ~cmd:(selector "setIgnoreTouch:") ~typ:(id @-> returning void) x +let setMaximumDeviation x self = msg_send ~self ~cmd:(selector "setMaximumDeviation:") ~typ:(double @-> returning void) x +let setMinimumDistance x self = msg_send ~self ~cmd:(selector "setMinimumDistance:") ~typ:(double @-> returning void) x +let setQuietPeriod x self = msg_send ~self ~cmd:(selector "setQuietPeriod:") ~typ:(double @-> returning void) x +let setRestrictsToAngle x self = msg_send ~self ~cmd:(selector "setRestrictsToAngle:") ~typ:(bool @-> returning void) x +let setStartAngle x self = msg_send ~self ~cmd:(selector "setStartAngle:") ~typ:(double @-> returning void) x +let setStartPosition x self = msg_send ~self ~cmd:(selector "setStartPosition:") ~typ:(CGPoint.t @-> returning void) x +let setTouch x self = msg_send ~self ~cmd:(selector "setTouch:") ~typ:(id @-> returning void) x +let startAngle self = msg_send ~self ~cmd:(selector "startAngle") ~typ:(returning double) +let startPosition self = msg_send ~self ~cmd:(selector "startPosition") ~typ:(returning CGPoint.t) +let tooSlow x self = msg_send ~self ~cmd:(selector "tooSlow:") ~typ:(id @-> returning void) x +let touch self = msg_send ~self ~cmd:(selector "touch") ~typ:(returning id) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UIDraggingBeginningSessionConfiguration.ml b/uikit/UIDraggingBeginningSessionConfiguration.ml deleted file mode 100644 index 84c2dc30..00000000 --- a/uikit/UIDraggingBeginningSessionConfiguration.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDraggingBeginningSessionConfiguration" - -module C = struct - let configurationWithItems x ~dataOwner ~pointerTouch ~requiredContextIds ~sourceView self = msg_send ~self ~cmd:(selector "configurationWithItems:dataOwner:pointerTouch:requiredContextIds:sourceView:") ~typ:(id @-> llong @-> id @-> id @-> id @-> returning (id)) x (LLong.of_int dataOwner) pointerTouch requiredContextIds sourceView - let configurationWithItems1 x ~dataOwner ~touches ~requiredContextIds ~sourceView self = msg_send ~self ~cmd:(selector "configurationWithItems:dataOwner:touches:requiredContextIds:sourceView:") ~typ:(id @-> llong @-> id @-> id @-> id @-> returning (id)) x (LLong.of_int dataOwner) touches requiredContextIds sourceView - let configurationWithItems2 x ~dataOwner ~initialCentroidInSourceWindow ~requiredContextIds ~sourceView ~accessibilityEndpoint self = msg_send ~self ~cmd:(selector "configurationWithItems:dataOwner:initialCentroidInSourceWindow:requiredContextIds:sourceView:accessibilityEndpoint:") ~typ:(id @-> llong @-> CGPoint.t @-> id @-> id @-> id @-> returning (id)) x (LLong.of_int dataOwner) initialCentroidInSourceWindow requiredContextIds sourceView accessibilityEndpoint -end - -let dataOwner self = msg_send ~self ~cmd:(selector "dataOwner") ~typ:(returning (llong)) -let initWithItems x ~dataOwner ~requiredContextIds ~sourceView self = msg_send ~self ~cmd:(selector "initWithItems:dataOwner:requiredContextIds:sourceView:") ~typ:(id @-> llong @-> id @-> id @-> returning (id)) x (LLong.of_int dataOwner) requiredContextIds sourceView -let initialCentroidInSourceWindow self = msg_send_stret ~self ~cmd:(selector "initialCentroidInSourceWindow") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let setInitialCentroidInSourceWindow x self = msg_send ~self ~cmd:(selector "setInitialCentroidInSourceWindow:") ~typ:(CGPoint.t @-> returning (void)) x -let sourceView self = msg_send ~self ~cmd:(selector "sourceView") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIDraggingSessionConfiguration.ml b/uikit/UIDraggingSessionConfiguration.ml deleted file mode 100644 index 1962c332..00000000 --- a/uikit/UIDraggingSessionConfiguration.ml +++ /dev/null @@ -1,38 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDraggingSessionConfiguration" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let axEndpoint self = msg_send ~self ~cmd:(selector "axEndpoint") ~typ:(returning (id)) -let coordinateSpaceSourceContextID self = msg_send ~self ~cmd:(selector "coordinateSpaceSourceContextID") ~typ:(returning (uint)) -let coordinateSpaceSourceLayerRenderID self = msg_send ~self ~cmd:(selector "coordinateSpaceSourceLayerRenderID") ~typ:(returning (ullong)) -let dataProviderEndpoint self = msg_send ~self ~cmd:(selector "dataProviderEndpoint") ~typ:(returning (id)) -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 initialCentroid self = msg_send_stret ~self ~cmd:(selector "initialCentroid") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let initiatedWithPointer self = msg_send ~self ~cmd:(selector "initiatedWithPointer") ~typ:(returning (bool)) -let itemCollection self = msg_send ~self ~cmd:(selector "itemCollection") ~typ:(returning (id)) -let routingPolicy self = msg_send ~self ~cmd:(selector "routingPolicy") ~typ:(returning (id)) -let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning (id)) -let setAxEndpoint x self = msg_send ~self ~cmd:(selector "setAxEndpoint:") ~typ:(id @-> returning (void)) x -let setCoordinateSpaceSourceContextID x self = msg_send ~self ~cmd:(selector "setCoordinateSpaceSourceContextID:") ~typ:(uint @-> returning (void)) x -let setCoordinateSpaceSourceLayerRenderID x self = msg_send ~self ~cmd:(selector "setCoordinateSpaceSourceLayerRenderID:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDataProviderEndpoint x self = msg_send ~self ~cmd:(selector "setDataProviderEndpoint:") ~typ:(id @-> returning (void)) x -let setInitialCentroid x self = msg_send ~self ~cmd:(selector "setInitialCentroid:") ~typ:(CGPoint.t @-> returning (void)) x -let setInitiatedWithPointer x self = msg_send ~self ~cmd:(selector "setInitiatedWithPointer:") ~typ:(bool @-> returning (void)) x -let setItemCollection x self = msg_send ~self ~cmd:(selector "setItemCollection:") ~typ:(id @-> returning (void)) x -let setRoutingPolicy x self = msg_send ~self ~cmd:(selector "setRoutingPolicy:") ~typ:(id @-> returning (void)) x -let setSceneIdentifier x self = msg_send ~self ~cmd:(selector "setSceneIdentifier:") ~typ:(id @-> returning (void)) x -let setSupportsSystemDrag x self = msg_send ~self ~cmd:(selector "setSupportsSystemDrag:") ~typ:(bool @-> returning (void)) x -let setTouchIDs x self = msg_send ~self ~cmd:(selector "setTouchIDs:") ~typ:(id @-> returning (void)) x -let supportsSystemDrag self = msg_send ~self ~cmd:(selector "supportsSystemDrag") ~typ:(returning (bool)) -let touchIDs self = msg_send ~self ~cmd:(selector "touchIDs") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIDraggingSystemMonitor.ml b/uikit/UIDraggingSystemMonitor.ml deleted file mode 100644 index 15d5bd8e..00000000 --- a/uikit/UIDraggingSystemMonitor.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDraggingSystemMonitor" - -module C = struct - let new_ self = msg_send ~self ~cmd:(selector "new") ~typ:(returning (id)) - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end - -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let dragDidBeginWithSystemSession x ~info ~reply self = msg_send ~self ~cmd:(selector "dragDidBeginWithSystemSession:info:reply:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x info reply -let dragDidEndWithSystemSession x self = msg_send ~self ~cmd:(selector "dragDidEndWithSystemSession:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let listener x ~shouldAcceptNewConnection self = msg_send ~self ~cmd:(selector "listener:shouldAcceptNewConnection:") ~typ:(id @-> id @-> returning (bool)) x shouldAcceptNewConnection -let sessionForDropSession x self = msg_send ~self ~cmd:(selector "sessionForDropSession:") ~typ:(id @-> returning (id)) x -let sessions self = msg_send ~self ~cmd:(selector "sessions") ~typ:(returning (id)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIDraggingSystemSceneMetadata.ml b/uikit/UIDraggingSystemSceneMetadata.ml deleted file mode 100644 index 117cf78d..00000000 --- a/uikit/UIDraggingSystemSceneMetadata.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDraggingSystemSceneMetadata" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let activityType self = msg_send ~self ~cmd:(selector "activityType") ~typ:(returning (id)) -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 sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning (id)) -let setActivityType x self = msg_send ~self ~cmd:(selector "setActivityType:") ~typ:(id @-> returning (void)) x -let setSceneIdentifier x self = msg_send ~self ~cmd:(selector "setSceneIdentifier:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIDraggingSystemSession.ml b/uikit/UIDraggingSystemSession.ml deleted file mode 100644 index a62a1ff4..00000000 --- a/uikit/UIDraggingSystemSession.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDraggingSystemSession" - -let commandeerImmediately self = msg_send ~self ~cmd:(selector "commandeerImmediately") ~typ:(returning (void)) -let info self = msg_send ~self ~cmd:(selector "info") ~typ:(returning (id)) -let isCommandeered self = msg_send ~self ~cmd:(selector "isCommandeered") ~typ:(returning (bool)) -let loadURLForItem x ~completion self = msg_send ~self ~cmd:(selector "loadURLForItem:completion:") ~typ:(id @-> ptr void @-> returning (void)) x completion -let loadUserActivityForItem x ~completion self = msg_send ~self ~cmd:(selector "loadUserActivityForItem:completion:") ~typ:(id @-> ptr void @-> returning (void)) x completion -let routingPolicy self = msg_send ~self ~cmd:(selector "routingPolicy") ~typ:(returning (id)) -let setCommandeered x self = msg_send ~self ~cmd:(selector "setCommandeered:") ~typ:(bool @-> returning (void)) x -let setInfo x self = msg_send ~self ~cmd:(selector "setInfo:") ~typ:(id @-> returning (void)) x -let setRoutingPolicy x self = msg_send ~self ~cmd:(selector "setRoutingPolicy:") ~typ:(id @-> returning (void)) x -let setServerSession x self = msg_send ~self ~cmd:(selector "setServerSession:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIDraggingSystemSessionInfo.ml b/uikit/UIDraggingSystemSessionInfo.ml deleted file mode 100644 index aaa09780..00000000 --- a/uikit/UIDraggingSystemSessionInfo.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDraggingSystemSessionInfo" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let processIdentifier self = msg_send ~self ~cmd:(selector "processIdentifier") ~typ:(returning (int)) -let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning (id)) -let sessionIdentifier self = msg_send ~self ~cmd:(selector "sessionIdentifier") ~typ:(returning (uint)) -let setAuditToken x self = msg_send ~self ~cmd:(selector "setAuditToken:") ~typ:(ptr void @-> returning (void)) x -let setProcessIdentifier x self = msg_send ~self ~cmd:(selector "setProcessIdentifier:") ~typ:(int @-> returning (void)) x -let setSceneIdentifier x self = msg_send ~self ~cmd:(selector "setSceneIdentifier:") ~typ:(id @-> returning (void)) x -let setSessionIdentifier x self = msg_send ~self ~cmd:(selector "setSessionIdentifier:") ~typ:(uint @-> returning (void)) x -let setSupportsSystemDrag x self = msg_send ~self ~cmd:(selector "setSupportsSystemDrag:") ~typ:(bool @-> returning (void)) x -let supportsSystemDrag self = msg_send ~self ~cmd:(selector "supportsSystemDrag") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIDraggingSystemTouchRoutingPolicy.ml b/uikit/UIDraggingSystemTouchRoutingPolicy.ml deleted file mode 100644 index dd836120..00000000 --- a/uikit/UIDraggingSystemTouchRoutingPolicy.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDraggingSystemTouchRoutingPolicy" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let contextIDsToAlwaysSendTouches self = msg_send ~self ~cmd:(selector "contextIDsToAlwaysSendTouches") ~typ:(returning (id)) -let contextIDsToExcludeFromHitTesting self = msg_send ~self ~cmd:(selector "contextIDsToExcludeFromHitTesting") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -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 isHitTestingDisabled self = msg_send ~self ~cmd:(selector "isHitTestingDisabled") ~typ:(returning (bool)) -let setContextIDsToAlwaysSendTouches x self = msg_send ~self ~cmd:(selector "setContextIDsToAlwaysSendTouches:") ~typ:(id @-> returning (void)) x -let setContextIDsToExcludeFromHitTesting x self = msg_send ~self ~cmd:(selector "setContextIDsToExcludeFromHitTesting:") ~typ:(id @-> returning (void)) x -let setHitTestingDisabled x self = msg_send ~self ~cmd:(selector "setHitTestingDisabled:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIDropInteraction.ml b/uikit/UIDropInteraction.ml index c482ed13..757697dd 100644 --- a/uikit/UIDropInteraction.ml +++ b/uikit/UIDropInteraction.ml @@ -5,22 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDropInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidropinteraction?language=objc}UIDropInteraction} *) -let allowsSimultaneousDropSessions self = msg_send ~self ~cmd:(selector "allowsSimultaneousDropSessions") ~typ:(returning (bool)) -let context self = msg_send ~self ~cmd:(selector "context") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didMoveToOwner x self = msg_send ~self ~cmd:(selector "didMoveToOwner:") ~typ:(id @-> returning (void)) x -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning (id)) x -let interactionEffect self = msg_send ~self ~cmd:(selector "interactionEffect") ~typ:(returning (id)) -let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning (bool)) -let owner self = msg_send ~self ~cmd:(selector "owner") ~typ:(returning (id)) -let setAllowsSimultaneousDropSessions x self = msg_send ~self ~cmd:(selector "setAllowsSimultaneousDropSessions:") ~typ:(bool @-> returning (void)) x -let setContext x self = msg_send ~self ~cmd:(selector "setContext:") ~typ:(id @-> returning (void)) x -let setInteractionEffect x self = msg_send ~self ~cmd:(selector "setInteractionEffect:") ~typ:(id @-> returning (void)) x -let setOwner x self = msg_send ~self ~cmd:(selector "setOwner:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let willMoveToOwner x self = msg_send ~self ~cmd:(selector "willMoveToOwner:") ~typ:(id @-> returning (void)) x -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIDropInteraction" + +let allowsSimultaneousDropSessions self = msg_send ~self ~cmd:(selector "allowsSimultaneousDropSessions") ~typ:(returning bool) +let context self = msg_send ~self ~cmd:(selector "context") ~typ:(returning id) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didMoveToOwner x self = msg_send ~self ~cmd:(selector "didMoveToOwner:") ~typ:(id @-> returning void) x +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning id) x +let interactionEffect self = msg_send ~self ~cmd:(selector "interactionEffect") ~typ:(returning id) +let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning bool) +let owner self = msg_send ~self ~cmd:(selector "owner") ~typ:(returning id) +let setAllowsSimultaneousDropSessions x self = msg_send ~self ~cmd:(selector "setAllowsSimultaneousDropSessions:") ~typ:(bool @-> returning void) x +let setContext x self = msg_send ~self ~cmd:(selector "setContext:") ~typ:(id @-> returning void) x +let setInteractionEffect x self = msg_send ~self ~cmd:(selector "setInteractionEffect:") ~typ:(id @-> returning void) x +let setOwner x self = msg_send ~self ~cmd:(selector "setOwner:") ~typ:(id @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let willMoveToOwner x self = msg_send ~self ~cmd:(selector "willMoveToOwner:") ~typ:(id @-> returning void) x +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIDropInteractionContextImpl.ml b/uikit/UIDropInteractionContextImpl.ml deleted file mode 100644 index 4c525159..00000000 --- a/uikit/UIDropInteractionContextImpl.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDropInteractionContextImpl" - -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let setItems x self = msg_send ~self ~cmd:(selector "setItems:") ~typ:(id @-> returning (void)) x -let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit/UIDropInteractionGestureRecognizer.ml b/uikit/UIDropInteractionGestureRecognizer.ml index b28d30cf..57b2e56d 100644 --- a/uikit/UIDropInteractionGestureRecognizer.ml +++ b/uikit/UIDropInteractionGestureRecognizer.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDropInteractionGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidropinteractiongesturerecognizer?language=objc}UIDropInteractionGestureRecognizer} *) -let canBePreventedByGestureRecognizer x self = msg_send ~self ~cmd:(selector "canBePreventedByGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let self = get_class "UIDropInteractionGestureRecognizer" + +let canBePreventedByGestureRecognizer x self = msg_send ~self ~cmd:(selector "canBePreventedByGestureRecognizer:") ~typ:(id @-> returning bool) x +let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIDropProposal.ml b/uikit/UIDropProposal.ml index d84fe627..ea9bdca1 100644 --- a/uikit/UIDropProposal.ml +++ b/uikit/UIDropProposal.ml @@ -5,19 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDropProposal" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidropproposal?language=objc}UIDropProposal} *) -module C = struct - let new_ self = msg_send ~self ~cmd:(selector "new") ~typ:(returning (id)) -end +let self = get_class "UIDropProposal" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithDropOperation x self = msg_send ~self ~cmd:(selector "initWithDropOperation:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let isPrecise self = msg_send ~self ~cmd:(selector "isPrecise") ~typ:(returning (bool)) -let operation self = msg_send ~self ~cmd:(selector "operation") ~typ:(returning (ullong)) -let prefersFullSizePreview self = msg_send ~self ~cmd:(selector "prefersFullSizePreview") ~typ:(returning (bool)) -let setOperation x self = msg_send ~self ~cmd:(selector "setOperation:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setPrecise x self = msg_send ~self ~cmd:(selector "setPrecise:") ~typ:(bool @-> returning (void)) x -let setPrefersFullSizePreview x self = msg_send ~self ~cmd:(selector "setPrefersFullSizePreview:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithDropOperation x self = msg_send ~self ~cmd:(selector "initWithDropOperation:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let isPrecise self = msg_send ~self ~cmd:(selector "isPrecise") ~typ:(returning bool) +let operation self = msg_send ~self ~cmd:(selector "operation") ~typ:(returning ullong) +let prefersFullSizePreview self = msg_send ~self ~cmd:(selector "prefersFullSizePreview") ~typ:(returning bool) +let setOperation x self = msg_send ~self ~cmd:(selector "setOperation:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setPrecise x self = msg_send ~self ~cmd:(selector "setPrecise:") ~typ:(bool @-> returning void) x +let setPrefersFullSizePreview x self = msg_send ~self ~cmd:(selector "setPrefersFullSizePreview:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIDropShadowRimPartView.ml b/uikit/UIDropShadowRimPartView.ml index c09684c1..54dc2b31 100644 --- a/uikit/UIDropShadowRimPartView.ml +++ b/uikit/UIDropShadowRimPartView.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDropShadowRimPartView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidropshadowrimpartview?language=objc}UIDropShadowRimPartView} *) -let adjustFrames self = msg_send ~self ~cmd:(selector "adjustFrames") ~typ:(returning (void)) -let initWithImage x ~part self = msg_send ~self ~cmd:(selector "initWithImage:part:") ~typ:(id @-> llong @-> returning (id)) x part \ No newline at end of file +let self = get_class "UIDropShadowRimPartView" + +let adjustFrames self = msg_send ~self ~cmd:(selector "adjustFrames") ~typ:(returning void) +let initWithImage x ~part self = msg_send ~self ~cmd:(selector "initWithImage:part:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int part) \ No newline at end of file diff --git a/uikit/UIDropShadowView.ml b/uikit/UIDropShadowView.ml index e58ea79a..4e762ccd 100644 --- a/uikit/UIDropShadowView.ml +++ b/uikit/UIDropShadowView.ml @@ -5,48 +5,53 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDropShadowView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidropshadowview?language=objc}UIDropShadowView} *) -let bottomEdge self = msg_send ~self ~cmd:(selector "bottomEdge") ~typ:(returning (id)) -let bottomLeft self = msg_send ~self ~cmd:(selector "bottomLeft") ~typ:(returning (id)) -let bottomRight self = msg_send ~self ~cmd:(selector "bottomRight") ~typ:(returning (id)) -let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning (id)) -let cornerClippingDescendants self = msg_send ~self ~cmd:(selector "cornerClippingDescendants") ~typ:(returning (id)) -let deepestClippingView self = msg_send ~self ~cmd:(selector "deepestClippingView") ~typ:(returning (id)) -let didFinishRotation self = msg_send ~self ~cmd:(selector "didFinishRotation") ~typ:(returning (void)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let firstCornerClippingDescendant self = msg_send ~self ~cmd:(selector "firstCornerClippingDescendant") ~typ:(returning (id)) -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let independentCorners self = msg_send ~self ~cmd:(selector "independentCorners") ~typ:(returning (llong)) -let initWithFrame x ~independentCorners ~supportsShadow ~stylesSheetsAsCards self = msg_send ~self ~cmd:(selector "initWithFrame:independentCorners:supportsShadow:stylesSheetsAsCards:") ~typ:(CGRect.t @-> llong @-> bool @-> bool @-> returning (id)) x (LLong.of_int independentCorners) supportsShadow stylesSheetsAsCards -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let leftEdge self = msg_send ~self ~cmd:(selector "leftEdge") ~typ:(returning (id)) -let magicShadowView self = msg_send ~self ~cmd:(selector "magicShadowView") ~typ:(returning (id)) -let masksTopCornersOnly self = msg_send ~self ~cmd:(selector "masksTopCornersOnly") ~typ:(returning (bool)) -let overlayView self = msg_send ~self ~cmd:(selector "overlayView") ~typ:(returning (id)) -let rightEdge self = msg_send ~self ~cmd:(selector "rightEdge") ~typ:(returning (id)) -let rimTreatmentAlpha self = msg_send ~self ~cmd:(selector "rimTreatmentAlpha") ~typ:(returning (double)) -let setBottomEdge x self = msg_send ~self ~cmd:(selector "setBottomEdge:") ~typ:(id @-> returning (void)) x -let setBottomLeft x self = msg_send ~self ~cmd:(selector "setBottomLeft:") ~typ:(id @-> returning (void)) x -let setBottomRight x self = msg_send ~self ~cmd:(selector "setBottomRight:") ~typ:(id @-> returning (void)) x -let setContentTouchInsets x self = msg_send ~self ~cmd:(selector "setContentTouchInsets:") ~typ:(ptr void @-> returning (void)) x -let setContentView x self = msg_send ~self ~cmd:(selector "setContentView:") ~typ:(id @-> returning (void)) x -let setEnvironmentMatchingCornerRadii x self = msg_send ~self ~cmd:(selector "setEnvironmentMatchingCornerRadii:") ~typ:(ptr void @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setLeftEdge x self = msg_send ~self ~cmd:(selector "setLeftEdge:") ~typ:(id @-> returning (void)) x -let setMagicShadowAlpha x self = msg_send ~self ~cmd:(selector "setMagicShadowAlpha:") ~typ:(double @-> returning (void)) x -let setMasksTopCornersOnly x self = msg_send ~self ~cmd:(selector "setMasksTopCornersOnly:") ~typ:(bool @-> returning (void)) x -let setOverlayView x self = msg_send ~self ~cmd:(selector "setOverlayView:") ~typ:(id @-> returning (void)) x -let setRightEdge x self = msg_send ~self ~cmd:(selector "setRightEdge:") ~typ:(id @-> returning (void)) x -let setRimTreatmentAlpha x self = msg_send ~self ~cmd:(selector "setRimTreatmentAlpha:") ~typ:(double @-> returning (void)) x -let setTopEdge x self = msg_send ~self ~cmd:(selector "setTopEdge:") ~typ:(id @-> returning (void)) x -let setTopLeft x self = msg_send ~self ~cmd:(selector "setTopLeft:") ~typ:(id @-> returning (void)) x -let setTopRight x self = msg_send ~self ~cmd:(selector "setTopRight:") ~typ:(id @-> returning (void)) x -let supportsShadow self = msg_send ~self ~cmd:(selector "supportsShadow") ~typ:(returning (bool)) -let topEdge self = msg_send ~self ~cmd:(selector "topEdge") ~typ:(returning (id)) -let topLeft self = msg_send ~self ~cmd:(selector "topLeft") ~typ:(returning (id)) -let topRight self = msg_send ~self ~cmd:(selector "topRight") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateCornerClippingViews self = msg_send ~self ~cmd:(selector "updateCornerClippingViews") ~typ:(returning (void)) -let willBeginRotationWithOriginalBounds x ~newBounds self = msg_send ~self ~cmd:(selector "willBeginRotationWithOriginalBounds:newBounds:") ~typ:(CGRect.t @-> CGRect.t @-> returning (void)) x newBounds \ No newline at end of file +let self = get_class "UIDropShadowView" + +let bottomEdge self = msg_send ~self ~cmd:(selector "bottomEdge") ~typ:(returning id) +let bottomLeft self = msg_send ~self ~cmd:(selector "bottomLeft") ~typ:(returning id) +let bottomRight self = msg_send ~self ~cmd:(selector "bottomRight") ~typ:(returning id) +let contentTouchInsets self = msg_send ~self ~cmd:(selector "contentTouchInsets") ~typ:(returning UIEdgeInsets.t) +let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning id) +let cornerClippingDescendants self = msg_send ~self ~cmd:(selector "cornerClippingDescendants") ~typ:(returning id) +let deepestClippingView self = msg_send ~self ~cmd:(selector "deepestClippingView") ~typ:(returning id) +let didFinishRotation self = msg_send ~self ~cmd:(selector "didFinishRotation") ~typ:(returning void) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let firstCornerClippingDescendant self = msg_send ~self ~cmd:(selector "firstCornerClippingDescendant") ~typ:(returning id) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let independentCorners self = msg_send ~self ~cmd:(selector "independentCorners") ~typ:(returning llong) +let initWithFrame x ~independentCorners ~supportsShadow ~stylesSheetsAsCards self = msg_send ~self ~cmd:(selector "initWithFrame:independentCorners:supportsShadow:stylesSheetsAsCards:") ~typ:(CGRect.t @-> llong @-> bool @-> bool @-> returning id) x (LLong.of_int independentCorners) supportsShadow stylesSheetsAsCards +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let leftEdge self = msg_send ~self ~cmd:(selector "leftEdge") ~typ:(returning id) +let magicShadowView self = msg_send ~self ~cmd:(selector "magicShadowView") ~typ:(returning id) +let masksTopCornersOnly self = msg_send ~self ~cmd:(selector "masksTopCornersOnly") ~typ:(returning bool) +let overlayView self = msg_send ~self ~cmd:(selector "overlayView") ~typ:(returning id) +let rightEdge self = msg_send ~self ~cmd:(selector "rightEdge") ~typ:(returning id) +let rimTreatmentAlpha self = msg_send ~self ~cmd:(selector "rimTreatmentAlpha") ~typ:(returning double) +let setBottomEdge x self = msg_send ~self ~cmd:(selector "setBottomEdge:") ~typ:(id @-> returning void) x +let setBottomLeft x self = msg_send ~self ~cmd:(selector "setBottomLeft:") ~typ:(id @-> returning void) x +let setBottomRight x self = msg_send ~self ~cmd:(selector "setBottomRight:") ~typ:(id @-> returning void) x +let setContentTouchInsets x self = msg_send ~self ~cmd:(selector "setContentTouchInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setContentView x self = msg_send ~self ~cmd:(selector "setContentView:") ~typ:(id @-> returning void) x +let setEnvironmentMatchingCornerRadii x self = msg_send ~self ~cmd:(selector "setEnvironmentMatchingCornerRadii:") ~typ:(ptr void @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setLeftEdge x self = msg_send ~self ~cmd:(selector "setLeftEdge:") ~typ:(id @-> returning void) x +let setMagicShadowAlpha x self = msg_send ~self ~cmd:(selector "setMagicShadowAlpha:") ~typ:(double @-> returning void) x +let setMasksTopCornersOnly x self = msg_send ~self ~cmd:(selector "setMasksTopCornersOnly:") ~typ:(bool @-> returning void) x +let setOverlayView x self = msg_send ~self ~cmd:(selector "setOverlayView:") ~typ:(id @-> returning void) x +let setRightEdge x self = msg_send ~self ~cmd:(selector "setRightEdge:") ~typ:(id @-> returning void) x +let setRimTreatmentAlpha x self = msg_send ~self ~cmd:(selector "setRimTreatmentAlpha:") ~typ:(double @-> returning void) x +let setTopEdge x self = msg_send ~self ~cmd:(selector "setTopEdge:") ~typ:(id @-> returning void) x +let setTopLeft x self = msg_send ~self ~cmd:(selector "setTopLeft:") ~typ:(id @-> returning void) x +let setTopRight x self = msg_send ~self ~cmd:(selector "setTopRight:") ~typ:(id @-> returning void) x +let supportsShadow self = msg_send ~self ~cmd:(selector "supportsShadow") ~typ:(returning bool) +let topEdge self = msg_send ~self ~cmd:(selector "topEdge") ~typ:(returning id) +let topLeft self = msg_send ~self ~cmd:(selector "topLeft") ~typ:(returning id) +let topRight self = msg_send ~self ~cmd:(selector "topRight") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let updateCornerClippingViews self = msg_send ~self ~cmd:(selector "updateCornerClippingViews") ~typ:(returning void) +let willBeginRotationWithOriginalBounds x ~newBounds self = msg_send ~self ~cmd:(selector "willBeginRotationWithOriginalBounds:newBounds:") ~typ:(CGRect.t @-> CGRect.t @-> returning void) x newBounds \ No newline at end of file diff --git a/uikit/UIDynamicAnimator.ml b/uikit/UIDynamicAnimator.ml index 70486567..9ddb8d03 100644 --- a/uikit/UIDynamicAnimator.ml +++ b/uikit/UIDynamicAnimator.ml @@ -5,43 +5,43 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDynamicAnimator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamicanimator?language=objc}UIDynamicAnimator} *) -module C = struct - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) -end +let self = get_class "UIDynamicAnimator" -let addBehavior x self = msg_send ~self ~cmd:(selector "addBehavior:") ~typ:(id @-> returning (void)) x -let behaviors self = msg_send ~self ~cmd:(selector "behaviors") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let debugAnimationSpeed self = msg_send ~self ~cmd:(selector "debugAnimationSpeed") ~typ:(returning (double)) -let debugFrameInterval self = msg_send ~self ~cmd:(selector "debugFrameInterval") ~typ:(returning (ullong)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let didBeginContact x self = msg_send ~self ~cmd:(selector "didBeginContact:") ~typ:(id @-> returning (void)) x -let didEndContact x self = msg_send ~self ~cmd:(selector "didEndContact:") ~typ:(id @-> returning (void)) x -let elapsedTime self = msg_send ~self ~cmd:(selector "elapsedTime") ~typ:(returning (double)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCollectionViewLayout x self = msg_send ~self ~cmd:(selector "initWithCollectionViewLayout:") ~typ:(id @-> returning (id)) x -let initWithReferenceSystem x self = msg_send ~self ~cmd:(selector "initWithReferenceSystem:") ~typ:(id @-> returning (id)) x -let initWithReferenceView x self = msg_send ~self ~cmd:(selector "initWithReferenceView:") ~typ:(id @-> returning (id)) x -let isDebugEnabled self = msg_send ~self ~cmd:(selector "isDebugEnabled") ~typ:(returning (bool)) -let isRunning self = msg_send ~self ~cmd:(selector "isRunning") ~typ:(returning (bool)) -let itemsInRect x self = msg_send ~self ~cmd:(selector "itemsInRect:") ~typ:(CGRect.t @-> returning (id)) x -let layoutAttributesForCellAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForCellAtIndexPath:") ~typ:(id @-> returning (id)) x -let layoutAttributesForDecorationViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForDecorationViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let recursiveDescription self = msg_send ~self ~cmd:(selector "recursiveDescription") ~typ:(returning (id)) -let referenceView self = msg_send ~self ~cmd:(selector "referenceView") ~typ:(returning (id)) -let removeAllBehaviors self = msg_send ~self ~cmd:(selector "removeAllBehaviors") ~typ:(returning (void)) -let removeBehavior x self = msg_send ~self ~cmd:(selector "removeBehavior:") ~typ:(id @-> returning (void)) x -let setDebugAnimationSpeed x self = msg_send ~self ~cmd:(selector "setDebugAnimationSpeed:") ~typ:(double @-> returning (void)) x -let setDebugEnabled x self = msg_send ~self ~cmd:(selector "setDebugEnabled:") ~typ:(bool @-> returning (void)) x -let setDebugFrameInterval x self = msg_send ~self ~cmd:(selector "setDebugFrameInterval:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setReferenceView x self = msg_send ~self ~cmd:(selector "setReferenceView:") ~typ:(id @-> returning (void)) x -let setTicker x self = msg_send ~self ~cmd:(selector "setTicker:") ~typ:(id @-> returning (void)) x -let ticker self = msg_send ~self ~cmd:(selector "ticker") ~typ:(returning (id)) -let updateItemFromCurrentState x self = msg_send ~self ~cmd:(selector "updateItemFromCurrentState:") ~typ:(id @-> returning (void)) x -let updateItemUsingCurrentState x self = msg_send ~self ~cmd:(selector "updateItemUsingCurrentState:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let addBehavior x self = msg_send ~self ~cmd:(selector "addBehavior:") ~typ:(id @-> returning void) x +let behaviors self = msg_send ~self ~cmd:(selector "behaviors") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let debugAnimationSpeed self = msg_send ~self ~cmd:(selector "debugAnimationSpeed") ~typ:(returning double) +let debugFrameInterval self = msg_send ~self ~cmd:(selector "debugFrameInterval") ~typ:(returning ullong) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let didBeginContact x self = msg_send ~self ~cmd:(selector "didBeginContact:") ~typ:(id @-> returning void) x +let didEndContact x self = msg_send ~self ~cmd:(selector "didEndContact:") ~typ:(id @-> returning void) x +let elapsedTime self = msg_send ~self ~cmd:(selector "elapsedTime") ~typ:(returning double) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCollectionViewLayout x self = msg_send ~self ~cmd:(selector "initWithCollectionViewLayout:") ~typ:(id @-> returning id) x +let initWithReferenceSystem x self = msg_send ~self ~cmd:(selector "initWithReferenceSystem:") ~typ:(id @-> returning id) x +let initWithReferenceView x self = msg_send ~self ~cmd:(selector "initWithReferenceView:") ~typ:(id @-> returning id) x +let isDebugEnabled self = msg_send ~self ~cmd:(selector "isDebugEnabled") ~typ:(returning bool) +let isRunning self = msg_send ~self ~cmd:(selector "isRunning") ~typ:(returning bool) +let itemsInRect x self = msg_send ~self ~cmd:(selector "itemsInRect:") ~typ:(CGRect.t @-> returning id) x +let layoutAttributesForCellAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForCellAtIndexPath:") ~typ:(id @-> returning id) x +let layoutAttributesForDecorationViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForDecorationViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let recursiveDescription self = msg_send ~self ~cmd:(selector "recursiveDescription") ~typ:(returning id) +let referenceView self = msg_send ~self ~cmd:(selector "referenceView") ~typ:(returning id) +let removeAllBehaviors self = msg_send ~self ~cmd:(selector "removeAllBehaviors") ~typ:(returning void) +let removeBehavior x self = msg_send ~self ~cmd:(selector "removeBehavior:") ~typ:(id @-> returning void) x +let setDebugAnimationSpeed x self = msg_send ~self ~cmd:(selector "setDebugAnimationSpeed:") ~typ:(double @-> returning void) x +let setDebugEnabled x self = msg_send ~self ~cmd:(selector "setDebugEnabled:") ~typ:(bool @-> returning void) x +let setDebugFrameInterval x self = msg_send ~self ~cmd:(selector "setDebugFrameInterval:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setReferenceView x self = msg_send ~self ~cmd:(selector "setReferenceView:") ~typ:(id @-> returning void) x +let setTicker x self = msg_send ~self ~cmd:(selector "setTicker:") ~typ:(id @-> returning void) x +let ticker self = msg_send ~self ~cmd:(selector "ticker") ~typ:(returning id) +let updateItemFromCurrentState x self = msg_send ~self ~cmd:(selector "updateItemFromCurrentState:") ~typ:(id @-> returning void) x +let updateItemUsingCurrentState x self = msg_send ~self ~cmd:(selector "updateItemUsingCurrentState:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIDynamicAnimatorClass.ml b/uikit/UIDynamicAnimatorClass.ml new file mode 100644 index 00000000..5896716e --- /dev/null +++ b/uikit/UIDynamicAnimatorClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamicanimator?language=objc}UIDynamicAnimator} *) + +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIDynamicAnimatorTicker.ml b/uikit/UIDynamicAnimatorTicker.ml index 8572b553..f51af045 100644 --- a/uikit/UIDynamicAnimatorTicker.ml +++ b/uikit/UIDynamicAnimatorTicker.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDynamicAnimatorTicker" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamicanimatorticker?language=objc}UIDynamicAnimatorTicker} *) -let animator self = msg_send ~self ~cmd:(selector "animator") ~typ:(returning (id)) -let setAnimator x self = msg_send ~self ~cmd:(selector "setAnimator:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIDynamicAnimatorTicker" + +let animator self = msg_send ~self ~cmd:(selector "animator") ~typ:(returning id) +let setAnimator x self = msg_send ~self ~cmd:(selector "setAnimator:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIDynamicAppDefinedColor.ml b/uikit/UIDynamicAppDefinedColor.ml index e7dba0ce..92445031 100644 --- a/uikit/UIDynamicAppDefinedColor.ml +++ b/uikit/UIDynamicAppDefinedColor.ml @@ -5,16 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDynamicAppDefinedColor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamicappdefinedcolor?language=objc}UIDynamicAppDefinedColor} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIDynamicAppDefinedColor" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithColorsByTraitCollection x self = msg_send ~self ~cmd:(selector "initWithColorsByTraitCollection:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithColorsByTraitCollection x self = msg_send ~self ~cmd:(selector "initWithColorsByTraitCollection:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIDynamicAppDefinedColorClass.ml b/uikit/UIDynamicAppDefinedColorClass.ml new file mode 100644 index 00000000..6ff068ec --- /dev/null +++ b/uikit/UIDynamicAppDefinedColorClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamicappdefinedcolor?language=objc}UIDynamicAppDefinedColor} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIDynamicBehavior.ml b/uikit/UIDynamicBehavior.ml index 416b46ce..aad685b6 100644 --- a/uikit/UIDynamicBehavior.ml +++ b/uikit/UIDynamicBehavior.ml @@ -5,21 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDynamicBehavior" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamicbehavior?language=objc}UIDynamicBehavior} *) -module C = struct - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) -end +let self = get_class "UIDynamicBehavior" let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (ptr void)) -let addChildBehavior x self = msg_send ~self ~cmd:(selector "addChildBehavior:") ~typ:(id @-> returning (void)) x -let allowsAnimatorToStop self = msg_send ~self ~cmd:(selector "allowsAnimatorToStop") ~typ:(returning (bool)) -let childBehaviors self = msg_send ~self ~cmd:(selector "childBehaviors") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let dynamicAnimator self = msg_send ~self ~cmd:(selector "dynamicAnimator") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let removeChildBehavior x self = msg_send ~self ~cmd:(selector "removeChildBehavior:") ~typ:(id @-> returning (void)) x -let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(ptr void @-> returning (void)) x -let willMoveToAnimator x self = msg_send ~self ~cmd:(selector "willMoveToAnimator:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let addChildBehavior x self = msg_send ~self ~cmd:(selector "addChildBehavior:") ~typ:(id @-> returning void) x +let allowsAnimatorToStop self = msg_send ~self ~cmd:(selector "allowsAnimatorToStop") ~typ:(returning bool) +let childBehaviors self = msg_send ~self ~cmd:(selector "childBehaviors") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let dynamicAnimator self = msg_send ~self ~cmd:(selector "dynamicAnimator") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning id) +let removeChildBehavior x self = msg_send ~self ~cmd:(selector "removeChildBehavior:") ~typ:(id @-> returning void) x +let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:((ptr void) @-> returning void) x +let willMoveToAnimator x self = msg_send ~self ~cmd:(selector "willMoveToAnimator:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIDynamicBehaviorClass.ml b/uikit/UIDynamicBehaviorClass.ml new file mode 100644 index 00000000..cee33796 --- /dev/null +++ b/uikit/UIDynamicBehaviorClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamicbehavior?language=objc}UIDynamicBehavior} *) + +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIDynamicCaret.ml b/uikit/UIDynamicCaret.ml index d9da8aa3..fa78f2ed 100644 --- a/uikit/UIDynamicCaret.ml +++ b/uikit/UIDynamicCaret.ml @@ -5,45 +5,49 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDynamicCaret" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamiccaret?language=objc}UIDynamicCaret} *) -let alternativeTappedAtIndex x self = msg_send ~self ~cmd:(selector "alternativeTappedAtIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let alternativesView self = msg_send ~self ~cmd:(selector "alternativesView") ~typ:(returning (id)) -let backgroundImage self = msg_send ~self ~cmd:(selector "backgroundImage") ~typ:(returning (id)) -let candidateAcceptedAtIndex x self = msg_send ~self ~cmd:(selector "candidateAcceptedAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let candidateSet self = msg_send ~self ~cmd:(selector "candidateSet") ~typ:(returning (id)) -let currentCandidate self = msg_send ~self ~cmd:(selector "currentCandidate") ~typ:(returning (id)) -let currentIndex self = msg_send ~self ~cmd:(selector "currentIndex") ~typ:(returning (ullong)) -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let displayAlternatives x self = msg_send ~self ~cmd:(selector "displayAlternatives:") ~typ:(bool @-> returning (void)) x -let hasCandidates self = msg_send ~self ~cmd:(selector "hasCandidates") ~typ:(returning (bool)) -let helpLabel self = msg_send ~self ~cmd:(selector "helpLabel") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning (id)) -let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning (bool)) -let isDeleteCandidate x self = msg_send ~self ~cmd:(selector "isDeleteCandidate:") ~typ:(id @-> returning (bool)) x -let isExtendedList self = msg_send ~self ~cmd:(selector "isExtendedList") ~typ:(returning (bool)) -let isFloatingList self = msg_send ~self ~cmd:(selector "isFloatingList") ~typ:(returning (bool)) -let keyboardBehaviors self = msg_send ~self ~cmd:(selector "keyboardBehaviors") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let noContentView self = msg_send ~self ~cmd:(selector "noContentView") ~typ:(returning (id)) -let selectedSortIndex self = msg_send ~self ~cmd:(selector "selectedSortIndex") ~typ:(returning (ullong)) -let setAlternativesView x self = msg_send ~self ~cmd:(selector "setAlternativesView:") ~typ:(id @-> returning (void)) x -let setCandidateSet x self = msg_send ~self ~cmd:(selector "setCandidateSet:") ~typ:(id @-> returning (void)) x -let setCandidates x ~inlineText ~inlineRect ~maxX ~layout self = msg_send ~self ~cmd:(selector "setCandidates:inlineText:inlineRect:maxX:layout:") ~typ:(id @-> id @-> CGRect.t @-> double @-> bool @-> returning (void)) x inlineText inlineRect maxX layout -let setDocumentHasContent x self = msg_send ~self ~cmd:(selector "setDocumentHasContent:") ~typ:(bool @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHelpLabel x self = msg_send ~self ~cmd:(selector "setHelpLabel:") ~typ:(id @-> returning (void)) x -let setInputView x self = msg_send ~self ~cmd:(selector "setInputView:") ~typ:(id @-> returning (void)) x -let setIsActive x self = msg_send ~self ~cmd:(selector "setIsActive:") ~typ:(bool @-> returning (void)) x -let setNoContentView x self = msg_send ~self ~cmd:(selector "setNoContentView:") ~typ:(id @-> returning (void)) x -let setUIKeyboardCandidateListDelegate x self = msg_send ~self ~cmd:(selector "setUIKeyboardCandidateListDelegate:") ~typ:(id @-> returning (void)) x -let showCandidate x self = msg_send ~self ~cmd:(selector "showCandidate:") ~typ:(id @-> returning (bool)) x -let showCandidateAtIndex x self = msg_send ~self ~cmd:(selector "showCandidateAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let showCandidateInForwardDirection x ~granularity self = msg_send ~self ~cmd:(selector "showCandidateInForwardDirection:granularity:") ~typ:(bool @-> int @-> returning (void)) x granularity -let statisticsIdentifier self = msg_send ~self ~cmd:(selector "statisticsIdentifier") ~typ:(returning (id)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let self = get_class "UIDynamicCaret" + +let alternativeTappedAtIndex x self = msg_send ~self ~cmd:(selector "alternativeTappedAtIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let alternativesView self = msg_send ~self ~cmd:(selector "alternativesView") ~typ:(returning id) +let backgroundImage self = msg_send ~self ~cmd:(selector "backgroundImage") ~typ:(returning id) +let candidateAcceptedAtIndex x self = msg_send ~self ~cmd:(selector "candidateAcceptedAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let candidateSet self = msg_send ~self ~cmd:(selector "candidateSet") ~typ:(returning id) +let currentCandidate self = msg_send ~self ~cmd:(selector "currentCandidate") ~typ:(returning id) +let currentIndex self = msg_send ~self ~cmd:(selector "currentIndex") ~typ:(returning ullong) +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let displayAlternatives x self = msg_send ~self ~cmd:(selector "displayAlternatives:") ~typ:(bool @-> returning void) x +let hasCandidates self = msg_send ~self ~cmd:(selector "hasCandidates") ~typ:(returning bool) +let helpLabel self = msg_send ~self ~cmd:(selector "helpLabel") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning id) +let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning bool) +let isDeleteCandidate x self = msg_send ~self ~cmd:(selector "isDeleteCandidate:") ~typ:(id @-> returning bool) x +let isExtendedList self = msg_send ~self ~cmd:(selector "isExtendedList") ~typ:(returning bool) +let isFloatingList self = msg_send ~self ~cmd:(selector "isFloatingList") ~typ:(returning bool) +let keyboardBehaviors self = msg_send ~self ~cmd:(selector "keyboardBehaviors") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let noContentView self = msg_send ~self ~cmd:(selector "noContentView") ~typ:(returning id) +let selectedSortIndex self = msg_send ~self ~cmd:(selector "selectedSortIndex") ~typ:(returning ullong) +let setAlternativesView x self = msg_send ~self ~cmd:(selector "setAlternativesView:") ~typ:(id @-> returning void) x +let setCandidateSet x self = msg_send ~self ~cmd:(selector "setCandidateSet:") ~typ:(id @-> returning void) x +let setCandidates x ~inlineText ~inlineRect ~maxX ~layout self = msg_send ~self ~cmd:(selector "setCandidates:inlineText:inlineRect:maxX:layout:") ~typ:(id @-> id @-> CGRect.t @-> double @-> bool @-> returning void) x inlineText inlineRect maxX layout +let setDocumentHasContent x self = msg_send ~self ~cmd:(selector "setDocumentHasContent:") ~typ:(bool @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHelpLabel x self = msg_send ~self ~cmd:(selector "setHelpLabel:") ~typ:(id @-> returning void) x +let setInputView x self = msg_send ~self ~cmd:(selector "setInputView:") ~typ:(id @-> returning void) x +let setIsActive x self = msg_send ~self ~cmd:(selector "setIsActive:") ~typ:(bool @-> returning void) x +let setNoContentView x self = msg_send ~self ~cmd:(selector "setNoContentView:") ~typ:(id @-> returning void) x +let setUIKeyboardCandidateListDelegate x self = msg_send ~self ~cmd:(selector "setUIKeyboardCandidateListDelegate:") ~typ:(id @-> returning void) x +let showCandidate x self = msg_send ~self ~cmd:(selector "showCandidate:") ~typ:(id @-> returning bool) x +let showCandidateAtIndex x self = msg_send ~self ~cmd:(selector "showCandidateAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let showCandidateInForwardDirection x ~granularity self = msg_send ~self ~cmd:(selector "showCandidateInForwardDirection:granularity:") ~typ:(bool @-> int @-> returning void) x granularity +let statisticsIdentifier self = msg_send ~self ~cmd:(selector "statisticsIdentifier") ~typ:(returning id) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UIDynamicCatalogColor.ml b/uikit/UIDynamicCatalogColor.ml index 3ee4db8d..df779f9f 100644 --- a/uikit/UIDynamicCatalogColor.ml +++ b/uikit/UIDynamicCatalogColor.ml @@ -5,16 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDynamicCatalogColor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamiccatalogcolor?language=objc}UIDynamicCatalogColor} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIDynamicCatalogColor" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithName x ~assetManager ~genericColor self = msg_send ~self ~cmd:(selector "initWithName:assetManager:genericColor:") ~typ:(id @-> id @-> id @-> returning (id)) x assetManager genericColor -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithName x ~assetManager ~genericColor self = msg_send ~self ~cmd:(selector "initWithName:assetManager:genericColor:") ~typ:(id @-> id @-> id @-> returning id) x assetManager genericColor +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIDynamicCatalogColorClass.ml b/uikit/UIDynamicCatalogColorClass.ml new file mode 100644 index 00000000..7fedc23f --- /dev/null +++ b/uikit/UIDynamicCatalogColorClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamiccatalogcolor?language=objc}UIDynamicCatalogColor} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIDynamicColor.ml b/uikit/UIDynamicColor.ml index 0a0d7f49..b9f646e1 100644 --- a/uikit/UIDynamicColor.ml +++ b/uikit/UIDynamicColor.ml @@ -5,26 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDynamicColor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamiccolor?language=objc}UIDynamicColor} *) -let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr void)) -let alphaComponent self = msg_send ~self ~cmd:(selector "alphaComponent") ~typ:(returning (double)) -let blueComponent self = msg_send ~self ~cmd:(selector "blueComponent") ~typ:(returning (double)) -let brightnessComponent self = msg_send ~self ~cmd:(selector "brightnessComponent") ~typ:(returning (double)) -let colorSpace self = msg_send ~self ~cmd:(selector "colorSpace") ~typ:(returning (id)) -let colorSpaceName self = msg_send ~self ~cmd:(selector "colorSpaceName") ~typ:(returning (id)) -let colorUsingColorSpace x self = msg_send ~self ~cmd:(selector "colorUsingColorSpace:") ~typ:(id @-> returning (id)) x -let colorWithAlphaComponent x self = msg_send ~self ~cmd:(selector "colorWithAlphaComponent:") ~typ:(double @-> returning (id)) x -let getHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "getHue:saturation:brightness:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (bool)) x saturation brightness alpha -let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (bool)) x green blue alpha -let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> returning (bool)) x alpha -let greenComponent self = msg_send ~self ~cmd:(selector "greenComponent") ~typ:(returning (double)) -let hueComponent self = msg_send ~self ~cmd:(selector "hueComponent") ~typ:(returning (double)) -let isPatternColor self = msg_send ~self ~cmd:(selector "isPatternColor") ~typ:(returning (bool)) -let redComponent self = msg_send ~self ~cmd:(selector "redComponent") ~typ:(returning (double)) -let resolvedColorWithTraitCollection x self = msg_send ~self ~cmd:(selector "resolvedColorWithTraitCollection:") ~typ:(id @-> returning (id)) x -let saturationComponent self = msg_send ~self ~cmd:(selector "saturationComponent") ~typ:(returning (double)) -let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning (void)) -let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning (void)) -let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIDynamicColor" + +let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr CGColor.t)) +let alphaComponent self = msg_send ~self ~cmd:(selector "alphaComponent") ~typ:(returning double) +let blueComponent self = msg_send ~self ~cmd:(selector "blueComponent") ~typ:(returning double) +let brightnessComponent self = msg_send ~self ~cmd:(selector "brightnessComponent") ~typ:(returning double) +let colorSpace self = msg_send ~self ~cmd:(selector "colorSpace") ~typ:(returning id) +let colorSpaceName self = msg_send ~self ~cmd:(selector "colorSpaceName") ~typ:(returning id) +let colorUsingColorSpace x self = msg_send ~self ~cmd:(selector "colorUsingColorSpace:") ~typ:(id @-> returning id) x +let colorWithAlphaComponent x self = msg_send ~self ~cmd:(selector "colorWithAlphaComponent:") ~typ:(double @-> returning id) x +let getHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "getHue:saturation:brightness:alpha:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> (ptr double) @-> returning bool) x saturation brightness alpha +let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> (ptr double) @-> returning bool) x green blue alpha +let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:((ptr double) @-> (ptr double) @-> returning bool) x alpha +let greenComponent self = msg_send ~self ~cmd:(selector "greenComponent") ~typ:(returning double) +let hueComponent self = msg_send ~self ~cmd:(selector "hueComponent") ~typ:(returning double) +let isPatternColor self = msg_send ~self ~cmd:(selector "isPatternColor") ~typ:(returning bool) +let redComponent self = msg_send ~self ~cmd:(selector "redComponent") ~typ:(returning double) +let resolvedColorWithTraitCollection x self = msg_send ~self ~cmd:(selector "resolvedColorWithTraitCollection:") ~typ:(id @-> returning id) x +let saturationComponent self = msg_send ~self ~cmd:(selector "saturationComponent") ~typ:(returning double) +let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning void) +let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning void) +let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIDynamicItemBehavior.ml b/uikit/UIDynamicItemBehavior.ml index 8630ef4b..2a1ea543 100644 --- a/uikit/UIDynamicItemBehavior.ml +++ b/uikit/UIDynamicItemBehavior.ml @@ -5,35 +5,39 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDynamicItemBehavior" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamicitembehavior?language=objc}UIDynamicItemBehavior} *) -let addAngularVelocity x ~forItem self = msg_send ~self ~cmd:(selector "addAngularVelocity:forItem:") ~typ:(double @-> id @-> returning (void)) x forItem -let addItem x self = msg_send ~self ~cmd:(selector "addItem:") ~typ:(id @-> returning (void)) x -let addLinearVelocity x ~forItem self = msg_send ~self ~cmd:(selector "addLinearVelocity:forItem:") ~typ:(CGPoint.t @-> id @-> returning (void)) x forItem -let allowsRotation self = msg_send ~self ~cmd:(selector "allowsRotation") ~typ:(returning (bool)) -let angularResistance self = msg_send ~self ~cmd:(selector "angularResistance") ~typ:(returning (double)) -let angularVelocityForItem x self = msg_send ~self ~cmd:(selector "angularVelocityForItem:") ~typ:(id @-> returning (double)) x -let applyImpulse x ~toItem self = msg_send ~self ~cmd:(selector "applyImpulse:toItem:") ~typ:(CGPoint.t @-> id @-> returning (void)) x toItem -let charge self = msg_send ~self ~cmd:(selector "charge") ~typ:(returning (double)) -let density self = msg_send ~self ~cmd:(selector "density") ~typ:(returning (double)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let elasticity self = msg_send ~self ~cmd:(selector "elasticity") ~typ:(returning (double)) -let friction self = msg_send ~self ~cmd:(selector "friction") ~typ:(returning (double)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithItems x self = msg_send ~self ~cmd:(selector "initWithItems:") ~typ:(id @-> returning (id)) x -let isAnchored self = msg_send ~self ~cmd:(selector "isAnchored") ~typ:(returning (bool)) -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let linearVelocityForItem x self = msg_send_stret ~self ~cmd:(selector "linearVelocityForItem:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let removeItem x self = msg_send ~self ~cmd:(selector "removeItem:") ~typ:(id @-> returning (void)) x -let resistance self = msg_send ~self ~cmd:(selector "resistance") ~typ:(returning (double)) -let setAllowsRotation x self = msg_send ~self ~cmd:(selector "setAllowsRotation:") ~typ:(bool @-> returning (void)) x -let setAnchored x self = msg_send ~self ~cmd:(selector "setAnchored:") ~typ:(bool @-> returning (void)) x -let setAngularResistance x self = msg_send ~self ~cmd:(selector "setAngularResistance:") ~typ:(double @-> returning (void)) x -let setCharge x self = msg_send ~self ~cmd:(selector "setCharge:") ~typ:(double @-> returning (void)) x -let setDensity x self = msg_send ~self ~cmd:(selector "setDensity:") ~typ:(double @-> returning (void)) x -let setElasticity x self = msg_send ~self ~cmd:(selector "setElasticity:") ~typ:(double @-> returning (void)) x -let setFriction x self = msg_send ~self ~cmd:(selector "setFriction:") ~typ:(double @-> returning (void)) x -let setResistance x self = msg_send ~self ~cmd:(selector "setResistance:") ~typ:(double @-> returning (void)) x -let setUseDefaultViewPropertiesApplier x self = msg_send ~self ~cmd:(selector "setUseDefaultViewPropertiesApplier:") ~typ:(bool @-> returning (void)) x -let useDefaultViewPropertiesApplier self = msg_send ~self ~cmd:(selector "useDefaultViewPropertiesApplier") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIDynamicItemBehavior" + +let addAngularVelocity x ~forItem self = msg_send ~self ~cmd:(selector "addAngularVelocity:forItem:") ~typ:(double @-> id @-> returning void) x forItem +let addItem x self = msg_send ~self ~cmd:(selector "addItem:") ~typ:(id @-> returning void) x +let addLinearVelocity x ~forItem self = msg_send ~self ~cmd:(selector "addLinearVelocity:forItem:") ~typ:(CGPoint.t @-> id @-> returning void) x forItem +let allowsRotation self = msg_send ~self ~cmd:(selector "allowsRotation") ~typ:(returning bool) +let angularResistance self = msg_send ~self ~cmd:(selector "angularResistance") ~typ:(returning double) +let angularVelocityForItem x self = msg_send ~self ~cmd:(selector "angularVelocityForItem:") ~typ:(id @-> returning double) x +let applyImpulse x ~toItem self = msg_send ~self ~cmd:(selector "applyImpulse:toItem:") ~typ:(CGPoint.t @-> id @-> returning void) x toItem +let charge self = msg_send ~self ~cmd:(selector "charge") ~typ:(returning double) +let density self = msg_send ~self ~cmd:(selector "density") ~typ:(returning double) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let elasticity self = msg_send ~self ~cmd:(selector "elasticity") ~typ:(returning double) +let friction self = msg_send ~self ~cmd:(selector "friction") ~typ:(returning double) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithItems x self = msg_send ~self ~cmd:(selector "initWithItems:") ~typ:(id @-> returning id) x +let isAnchored self = msg_send ~self ~cmd:(selector "isAnchored") ~typ:(returning bool) +let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning id) +let linearVelocityForItem x self = msg_send ~self ~cmd:(selector "linearVelocityForItem:") ~typ:(id @-> returning CGPoint.t) x +let removeItem x self = msg_send ~self ~cmd:(selector "removeItem:") ~typ:(id @-> returning void) x +let resistance self = msg_send ~self ~cmd:(selector "resistance") ~typ:(returning double) +let setAllowsRotation x self = msg_send ~self ~cmd:(selector "setAllowsRotation:") ~typ:(bool @-> returning void) x +let setAnchored x self = msg_send ~self ~cmd:(selector "setAnchored:") ~typ:(bool @-> returning void) x +let setAngularResistance x self = msg_send ~self ~cmd:(selector "setAngularResistance:") ~typ:(double @-> returning void) x +let setCharge x self = msg_send ~self ~cmd:(selector "setCharge:") ~typ:(double @-> returning void) x +let setDensity x self = msg_send ~self ~cmd:(selector "setDensity:") ~typ:(double @-> returning void) x +let setElasticity x self = msg_send ~self ~cmd:(selector "setElasticity:") ~typ:(double @-> returning void) x +let setFriction x self = msg_send ~self ~cmd:(selector "setFriction:") ~typ:(double @-> returning void) x +let setResistance x self = msg_send ~self ~cmd:(selector "setResistance:") ~typ:(double @-> returning void) x +let setUseDefaultViewPropertiesApplier x self = msg_send ~self ~cmd:(selector "setUseDefaultViewPropertiesApplier:") ~typ:(bool @-> returning void) x +let useDefaultViewPropertiesApplier self = msg_send ~self ~cmd:(selector "useDefaultViewPropertiesApplier") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIDynamicItemGroup.ml b/uikit/UIDynamicItemGroup.ml index 56b5445e..423f2761 100644 --- a/uikit/UIDynamicItemGroup.ml +++ b/uikit/UIDynamicItemGroup.ml @@ -5,12 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDynamicItemGroup" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamicitemgroup?language=objc}UIDynamicItemGroup} *) -let bounds self = msg_send_stret ~self ~cmd:(selector "bounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let center self = msg_send_stret ~self ~cmd:(selector "center") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let initWithItems x self = msg_send ~self ~cmd:(selector "initWithItems:") ~typ:(id @-> returning (id)) x -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning (void)) x -let setTransform x self = msg_send ~self ~cmd:(selector "setTransform:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file +let self = get_class "UIDynamicItemGroup" + +let bounds self = msg_send ~self ~cmd:(selector "bounds") ~typ:(returning CGRect.t) +let center self = msg_send ~self ~cmd:(selector "center") ~typ:(returning CGPoint.t) +let initWithItems x self = msg_send ~self ~cmd:(selector "initWithItems:") ~typ:(id @-> returning id) x +let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning id) +let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning void) x +let setTransform x self = msg_send ~self ~cmd:(selector "setTransform:") ~typ:(CGAffineTransform.t @-> returning void) x +let transform self = msg_send ~self ~cmd:(selector "transform") ~typ:(returning CGAffineTransform.t) \ No newline at end of file diff --git a/uikit/UIDynamicModifiedColor.ml b/uikit/UIDynamicModifiedColor.ml index 0ad749bf..32b0217d 100644 --- a/uikit/UIDynamicModifiedColor.ml +++ b/uikit/UIDynamicModifiedColor.ml @@ -5,17 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDynamicModifiedColor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamicmodifiedcolor?language=objc}UIDynamicModifiedColor} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIDynamicModifiedColor" -let colorWithAlphaComponent x self = msg_send ~self ~cmd:(selector "colorWithAlphaComponent:") ~typ:(double @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithBaseColor x ~alphaComponent ~contrast self = msg_send ~self ~cmd:(selector "initWithBaseColor:alphaComponent:contrast:") ~typ:(id @-> double @-> llong @-> returning (id)) x alphaComponent (LLong.of_int contrast) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let colorWithAlphaComponent x self = msg_send ~self ~cmd:(selector "colorWithAlphaComponent:") ~typ:(double @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithBaseColor x ~alphaComponent ~contrast self = msg_send ~self ~cmd:(selector "initWithBaseColor:alphaComponent:contrast:") ~typ:(id @-> double @-> llong @-> returning id) x alphaComponent (LLong.of_int contrast) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIDynamicModifiedColorClass.ml b/uikit/UIDynamicModifiedColorClass.ml new file mode 100644 index 00000000..afbaafe1 --- /dev/null +++ b/uikit/UIDynamicModifiedColorClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamicmodifiedcolor?language=objc}UIDynamicModifiedColor} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIDynamicPatternColor.ml b/uikit/UIDynamicPatternColor.ml index 2dd8f8da..03df2a2f 100644 --- a/uikit/UIDynamicPatternColor.ml +++ b/uikit/UIDynamicPatternColor.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDynamicPatternColor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamicpatterncolor?language=objc}UIDynamicPatternColor} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithPatternImage x self = msg_send ~self ~cmd:(selector "initWithPatternImage:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let self = get_class "UIDynamicPatternColor" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithPatternImage x self = msg_send ~self ~cmd:(selector "initWithPatternImage:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIDynamicProviderColor.ml b/uikit/UIDynamicProviderColor.ml index 9a21ca4a..9972d01a 100644 --- a/uikit/UIDynamicProviderColor.ml +++ b/uikit/UIDynamicProviderColor.ml @@ -5,16 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDynamicProviderColor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamicprovidercolor?language=objc}UIDynamicProviderColor} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIDynamicProviderColor" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithProvider x self = msg_send ~self ~cmd:(selector "initWithProvider:") ~typ:(ptr void @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let replacementObjectForCoder x self = msg_send ~self ~cmd:(selector "replacementObjectForCoder:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithProvider x self = msg_send ~self ~cmd:(selector "initWithProvider:") ~typ:((ptr void) @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let replacementObjectForCoder x self = msg_send ~self ~cmd:(selector "replacementObjectForCoder:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIDynamicProviderColorClass.ml b/uikit/UIDynamicProviderColorClass.ml new file mode 100644 index 00000000..0a64f298 --- /dev/null +++ b/uikit/UIDynamicProviderColorClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamicprovidercolor?language=objc}UIDynamicProviderColor} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIDynamicSystemColor.ml b/uikit/UIDynamicSystemColor.ml index 0a321ed8..f9307513 100644 --- a/uikit/UIDynamicSystemColor.ml +++ b/uikit/UIDynamicSystemColor.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDynamicSystemColor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidynamicsystemcolor?language=objc}UIDynamicSystemColor} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithName x ~colorsByThemeKey self = msg_send ~self ~cmd:(selector "initWithName:colorsByThemeKey:") ~typ:(id @-> id @-> returning (id)) x colorsByThemeKey -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let self = get_class "UIDynamicSystemColor" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithName x ~colorsByThemeKey self = msg_send ~self ~cmd:(selector "initWithName:colorsByThemeKey:") ~typ:(id @-> id @-> returning id) x colorsByThemeKey +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIEdgeInsets.ml b/uikit/UIEdgeInsets.ml index e6128eaa..97dcb580 100644 --- a/uikit/UIEdgeInsets.ml +++ b/uikit/UIEdgeInsets.ml @@ -3,6 +3,9 @@ open Runtime open Objc +[@@@ocaml.warning "-33"] +open Foundation + let t : [`UIEdgeInsets] structure typ = structure "UIEdgeInsets" (** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiedgeinsets?language=objc}UIEdgeInsets} *) @@ -13,6 +16,18 @@ let right = field t "right" double let () = seal t +let init + ~top:top_v + ~left:left_v + ~bottom:bottom_v + ~right:right_v + = + let t = make t in + setf t top top_v; + setf t left left_v; + setf t bottom bottom_v; + setf t right right_v; + t let top t = getf t top let left t = getf t left let bottom t = getf t bottom diff --git a/uikit/UIEditingOverlayGestureView.ml b/uikit/UIEditingOverlayGestureView.ml index 9b826acb..0a8c988b 100644 --- a/uikit/UIEditingOverlayGestureView.ml +++ b/uikit/UIEditingOverlayGestureView.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIEditingOverlayGestureView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uieditingoverlaygestureview?language=objc}UIEditingOverlayGestureView} *) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let previousWindow self = msg_send ~self ~cmd:(selector "previousWindow") ~typ:(returning (id)) -let setPreviousWindow x self = msg_send ~self ~cmd:(selector "setPreviousWindow:") ~typ:(id @-> returning (void)) x -let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning (int)) \ No newline at end of file +let self = get_class "UIEditingOverlayGestureView" + +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let previousWindow self = msg_send ~self ~cmd:(selector "previousWindow") ~typ:(returning id) +let setPreviousWindow x self = msg_send ~self ~cmd:(selector "setPreviousWindow:") ~typ:(id @-> returning void) x +let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning int) \ No newline at end of file diff --git a/uikit/UIEditingOverlayViewController.ml b/uikit/UIEditingOverlayViewController.ml index dd5fa425..4738745e 100644 --- a/uikit/UIEditingOverlayViewController.ml +++ b/uikit/UIEditingOverlayViewController.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIEditingOverlayViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uieditingoverlayviewcontroller?language=objc}UIEditingOverlayViewController} *) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let updateEditingOverlayContainer self = msg_send ~self ~cmd:(selector "updateEditingOverlayContainer") ~typ:(returning (void)) -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIEditingOverlayViewController" + +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let updateEditingOverlayContainer self = msg_send ~self ~cmd:(selector "updateEditingOverlayContainer") ~typ:(returning void) +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIEvent.ml b/uikit/UIEvent.ml index ccc3ef13..cc2fc4f2 100644 --- a/uikit/UIEvent.ml +++ b/uikit/UIEvent.ml @@ -5,21 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIEvent" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uievent?language=objc}UIEvent} *) -let allTouches self = msg_send ~self ~cmd:(selector "allTouches") ~typ:(returning (id)) -let buttonMask self = msg_send ~self ~cmd:(selector "buttonMask") ~typ:(returning (llong)) -let coalescedTouchesForTouch x self = msg_send ~self ~cmd:(selector "coalescedTouchesForTouch:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let eventEnvironment self = msg_send ~self ~cmd:(selector "eventEnvironment") ~typ:(returning (id)) -let isKeyDown self = msg_send ~self ~cmd:(selector "isKeyDown") ~typ:(returning (bool)) -let modifierFlags self = msg_send ~self ~cmd:(selector "modifierFlags") ~typ:(returning (llong)) -let predictedTouchesForTouch x self = msg_send ~self ~cmd:(selector "predictedTouchesForTouch:") ~typ:(id @-> returning (id)) x -let setEventEnvironment x self = msg_send ~self ~cmd:(selector "setEventEnvironment:") ~typ:(id @-> returning (void)) x -let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning (llong)) -let timestamp self = msg_send ~self ~cmd:(selector "timestamp") ~typ:(returning (double)) -let touchesForGestureRecognizer x self = msg_send ~self ~cmd:(selector "touchesForGestureRecognizer:") ~typ:(id @-> returning (id)) x -let touchesForView x self = msg_send ~self ~cmd:(selector "touchesForView:") ~typ:(id @-> returning (id)) x -let touchesForWindow x self = msg_send ~self ~cmd:(selector "touchesForWindow:") ~typ:(id @-> returning (id)) x -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIEvent" + +let allTouches self = msg_send ~self ~cmd:(selector "allTouches") ~typ:(returning id) +let buttonMask self = msg_send ~self ~cmd:(selector "buttonMask") ~typ:(returning llong) +let coalescedTouchesForTouch x self = msg_send ~self ~cmd:(selector "coalescedTouchesForTouch:") ~typ:(id @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let eventEnvironment self = msg_send ~self ~cmd:(selector "eventEnvironment") ~typ:(returning id) +let isKeyDown self = msg_send ~self ~cmd:(selector "isKeyDown") ~typ:(returning bool) +let modifierFlags self = msg_send ~self ~cmd:(selector "modifierFlags") ~typ:(returning llong) +let predictedTouchesForTouch x self = msg_send ~self ~cmd:(selector "predictedTouchesForTouch:") ~typ:(id @-> returning id) x +let setEventEnvironment x self = msg_send ~self ~cmd:(selector "setEventEnvironment:") ~typ:(id @-> returning void) x +let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning llong) +let timestamp self = msg_send ~self ~cmd:(selector "timestamp") ~typ:(returning double) +let touchesForGestureRecognizer x self = msg_send ~self ~cmd:(selector "touchesForGestureRecognizer:") ~typ:(id @-> returning id) x +let touchesForView x self = msg_send ~self ~cmd:(selector "touchesForView:") ~typ:(id @-> returning id) x +let touchesForWindow x self = msg_send ~self ~cmd:(selector "touchesForWindow:") ~typ:(id @-> returning id) x +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIEventAttribution.ml b/uikit/UIEventAttribution.ml index e818c0cd..6bebba50 100644 --- a/uikit/UIEventAttribution.ml +++ b/uikit/UIEventAttribution.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIEventAttribution" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uieventattribution?language=objc}UIEventAttribution} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let destinationURL self = msg_send ~self ~cmd:(selector "destinationURL") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithSourceIdentifier x ~destinationURL ~sourceDescription ~purchaser self = msg_send ~self ~cmd:(selector "initWithSourceIdentifier:destinationURL:sourceDescription:purchaser:") ~typ:(bool @-> id @-> id @-> id @-> returning (id)) x destinationURL sourceDescription purchaser -let initWithSourceIdentifier' x ~destinationURL ~reportEndpoint ~sourceDescription ~purchaser self = msg_send ~self ~cmd:(selector "initWithSourceIdentifier:destinationURL:reportEndpoint:sourceDescription:purchaser:") ~typ:(bool @-> id @-> id @-> id @-> id @-> returning (id)) x destinationURL reportEndpoint sourceDescription purchaser -let initWithUISClickAttribution x self = msg_send ~self ~cmd:(selector "initWithUISClickAttribution:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let purchaser self = msg_send ~self ~cmd:(selector "purchaser") ~typ:(returning (id)) -let reportEndpoint self = msg_send ~self ~cmd:(selector "reportEndpoint") ~typ:(returning (id)) -let sourceDescription self = msg_send ~self ~cmd:(selector "sourceDescription") ~typ:(returning (id)) -let sourceIdentifier self = msg_send ~self ~cmd:(selector "sourceIdentifier") ~typ:(returning (bool)) -let toUISClickAttribution self = msg_send ~self ~cmd:(selector "toUISClickAttribution") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIEventAttribution" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let destinationURL self = msg_send ~self ~cmd:(selector "destinationURL") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithSourceIdentifier x ~destinationURL ~sourceDescription ~purchaser self = msg_send ~self ~cmd:(selector "initWithSourceIdentifier:destinationURL:sourceDescription:purchaser:") ~typ:(uchar @-> id @-> id @-> id @-> returning id) x destinationURL sourceDescription purchaser +let initWithSourceIdentifier' x ~destinationURL ~reportEndpoint ~sourceDescription ~purchaser self = msg_send ~self ~cmd:(selector "initWithSourceIdentifier:destinationURL:reportEndpoint:sourceDescription:purchaser:") ~typ:(uchar @-> id @-> id @-> id @-> id @-> returning id) x destinationURL reportEndpoint sourceDescription purchaser +let initWithUISClickAttribution x self = msg_send ~self ~cmd:(selector "initWithUISClickAttribution:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let purchaser self = msg_send ~self ~cmd:(selector "purchaser") ~typ:(returning id) +let reportEndpoint self = msg_send ~self ~cmd:(selector "reportEndpoint") ~typ:(returning id) +let sourceDescription self = msg_send ~self ~cmd:(selector "sourceDescription") ~typ:(returning id) +let sourceIdentifier self = msg_send ~self ~cmd:(selector "sourceIdentifier") ~typ:(returning uchar) +let toUISClickAttribution self = msg_send ~self ~cmd:(selector "toUISClickAttribution") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIEventAttributionView.ml b/uikit/UIEventAttributionView.ml index dc86dcc0..d668041e 100644 --- a/uikit/UIEventAttributionView.ml +++ b/uikit/UIEventAttributionView.ml @@ -5,16 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIEventAttributionView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uieventattributionview?language=objc}UIEventAttributionView} *) -module C = struct - let lastEventMessage self = msg_send ~self ~cmd:(selector "lastEventMessage") ~typ:(returning (id)) - let setLastEventMessage x self = msg_send ~self ~cmd:(selector "setLastEventMessage:") ~typ:(id @-> returning (void)) x -end +let self = get_class "UIEventAttributionView" -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIEventAttributionViewClass.ml b/uikit/UIEventAttributionViewClass.ml new file mode 100644 index 00000000..d768f459 --- /dev/null +++ b/uikit/UIEventAttributionViewClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uieventattributionview?language=objc}UIEventAttributionView} *) + +let lastEventMessage self = msg_send ~self ~cmd:(selector "lastEventMessage") ~typ:(returning id) +let setLastEventMessage x self = msg_send ~self ~cmd:(selector "setLastEventMessage:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIEventDispatcher.ml b/uikit/UIEventDispatcher.ml index 785aedfc..71435e77 100644 --- a/uikit/UIEventDispatcher.ml +++ b/uikit/UIEventDispatcher.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIEventDispatcher" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uieventdispatcher?language=objc}UIEventDispatcher} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let eventFetcherDidReceiveEvents x self = msg_send ~self ~cmd:(selector "eventFetcherDidReceiveEvents:") ~typ:(id @-> returning (void)) x -let initWithApplication x self = msg_send ~self ~cmd:(selector "initWithApplication:") ~typ:(id @-> returning (id)) x -let mainEnvironment self = msg_send ~self ~cmd:(selector "mainEnvironment") ~typ:(returning (id)) -let setMainEnvironment x self = msg_send ~self ~cmd:(selector "setMainEnvironment:") ~typ:(id @-> returning (void)) x -let signalNextDelivery self = msg_send ~self ~cmd:(selector "signalNextDelivery") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIEventDispatcher" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let eventFetcherDidReceiveEvents x self = msg_send ~self ~cmd:(selector "eventFetcherDidReceiveEvents:") ~typ:(id @-> returning void) x +let initWithApplication x self = msg_send ~self ~cmd:(selector "initWithApplication:") ~typ:(id @-> returning id) x +let mainEnvironment self = msg_send ~self ~cmd:(selector "mainEnvironment") ~typ:(returning id) +let setMainEnvironment x self = msg_send ~self ~cmd:(selector "setMainEnvironment:") ~typ:(id @-> returning void) x +let signalNextDelivery self = msg_send ~self ~cmd:(selector "signalNextDelivery") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIEventEnvironment.ml b/uikit/UIEventEnvironment.ml index 1d3bd042..0951c4c8 100644 --- a/uikit/UIEventEnvironment.ml +++ b/uikit/UIEventEnvironment.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIEventEnvironment" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uieventenvironment?language=objc}UIEventEnvironment} *) -let _UIKitEventForHIDEvent x self = msg_send ~self ~cmd:(selector "UIKitEventForHIDEvent:") ~typ:(ptr void @-> returning (id)) x -let application self = msg_send ~self ~cmd:(selector "application") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let eventQueue self = msg_send ~self ~cmd:(selector "eventQueue") ~typ:(returning (id)) -let eventWantsLowLatency x self = msg_send ~self ~cmd:(selector "eventWantsLowLatency:") ~typ:(id @-> returning (bool)) x -let initWithApplication x self = msg_send ~self ~cmd:(selector "initWithApplication:") ~typ:(id @-> returning (id)) x -let pencilEventForHIDEvent x self = msg_send ~self ~cmd:(selector "pencilEventForHIDEvent:") ~typ:(ptr void @-> returning (id)) x -let pointerLockStateDidChange x self = msg_send ~self ~cmd:(selector "pointerLockStateDidChange:") ~typ:(id @-> returning (void)) x -let sceneDidDisconnect x self = msg_send ~self ~cmd:(selector "sceneDidDisconnect:") ~typ:(id @-> returning (void)) x -let setApplication x self = msg_send ~self ~cmd:(selector "setApplication:") ~typ:(id @-> returning (void)) x -let setEventQueue x self = msg_send ~self ~cmd:(selector "setEventQueue:") ~typ:(id @-> returning (void)) x -let windowsWithActiveTouchMaps self = msg_send ~self ~cmd:(selector "windowsWithActiveTouchMaps") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIEventEnvironment" + +let _UIKitEventForHIDEvent x self = msg_send ~self ~cmd:(selector "UIKitEventForHIDEvent:") ~typ:((ptr void) @-> returning id) x +let application self = msg_send ~self ~cmd:(selector "application") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let eventQueue self = msg_send ~self ~cmd:(selector "eventQueue") ~typ:(returning id) +let eventWantsLowLatency x self = msg_send ~self ~cmd:(selector "eventWantsLowLatency:") ~typ:(id @-> returning bool) x +let initWithApplication x self = msg_send ~self ~cmd:(selector "initWithApplication:") ~typ:(id @-> returning id) x +let pencilEventForHIDEvent x self = msg_send ~self ~cmd:(selector "pencilEventForHIDEvent:") ~typ:((ptr void) @-> returning id) x +let pointerLockStateDidChange x self = msg_send ~self ~cmd:(selector "pointerLockStateDidChange:") ~typ:(id @-> returning void) x +let sceneDidDisconnect x self = msg_send ~self ~cmd:(selector "sceneDidDisconnect:") ~typ:(id @-> returning void) x +let setApplication x self = msg_send ~self ~cmd:(selector "setApplication:") ~typ:(id @-> returning void) x +let setEventQueue x self = msg_send ~self ~cmd:(selector "setEventQueue:") ~typ:(id @-> returning void) x +let windowsWithActiveTouchMaps self = msg_send ~self ~cmd:(selector "windowsWithActiveTouchMaps") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIEventFetcher.ml b/uikit/UIEventFetcher.ml index 7eb577b9..2853e5fa 100644 --- a/uikit/UIEventFetcher.ml +++ b/uikit/UIEventFetcher.ml @@ -5,34 +5,38 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIEventFetcher" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uieventfetcher?language=objc}UIEventFetcher} *) -let beginTimeForTouchEvents self = msg_send ~self ~cmd:(selector "beginTimeForTouchEvents") ~typ:(returning (double)) -let commitTimeForTouchEvents self = msg_send ~self ~cmd:(selector "commitTimeForTouchEvents") ~typ:(returning (double)) -let contextIDsNeedingHoverEventResend self = msg_send ~self ~cmd:(selector "contextIDsNeedingHoverEventResend") ~typ:(returning (id)) -let deadlineTimeForTouchEvents self = msg_send ~self ~cmd:(selector "deadlineTimeForTouchEvents") ~typ:(returning (double)) -let displayLinkDidFire x self = msg_send ~self ~cmd:(selector "displayLinkDidFire:") ~typ:(id @-> returning (void)) x -let drainEventsIntoEnvironment x self = msg_send ~self ~cmd:(selector "drainEventsIntoEnvironment:") ~typ:(id @-> returning (void)) x -let eventFetcherSink self = msg_send ~self ~cmd:(selector "eventFetcherSink") ~typ:(returning (id)) -let filterEvent x self = msg_send ~self ~cmd:(selector "filterEvent:") ~typ:(ptr void @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let latestHoverEventsByContextID self = msg_send ~self ~cmd:(selector "latestHoverEventsByContextID") ~typ:(returning (id)) -let latestMoveDragEventResendTimestamp self = msg_send ~self ~cmd:(selector "latestMoveDragEventResendTimestamp") ~typ:(returning (double)) -let latestMoveDragEventTimestamp self = msg_send ~self ~cmd:(selector "latestMoveDragEventTimestamp") ~typ:(returning (double)) -let latestMoveDragEventsBySessionID self = msg_send ~self ~cmd:(selector "latestMoveDragEventsBySessionID") ~typ:(returning (id)) -let needsSignalOnDisplayLink self = msg_send ~self ~cmd:(selector "needsSignalOnDisplayLink") ~typ:(returning (bool)) -let setBeginTimeForTouchEvents x self = msg_send ~self ~cmd:(selector "setBeginTimeForTouchEvents:") ~typ:(double @-> returning (void)) x -let setCommitTimeForTouchEvents x self = msg_send ~self ~cmd:(selector "setCommitTimeForTouchEvents:") ~typ:(double @-> returning (void)) x -let setContextIDsNeedingHoverEventResend x self = msg_send ~self ~cmd:(selector "setContextIDsNeedingHoverEventResend:") ~typ:(id @-> returning (void)) x -let setDeadlineTimeForTouchEvents x self = msg_send ~self ~cmd:(selector "setDeadlineTimeForTouchEvents:") ~typ:(double @-> returning (void)) x -let setEventFetcherSink x self = msg_send ~self ~cmd:(selector "setEventFetcherSink:") ~typ:(id @-> returning (void)) x -let setLatestHoverEventsByContextID x self = msg_send ~self ~cmd:(selector "setLatestHoverEventsByContextID:") ~typ:(id @-> returning (void)) x -let setLatestMoveDragEventResendTimestamp x self = msg_send ~self ~cmd:(selector "setLatestMoveDragEventResendTimestamp:") ~typ:(double @-> returning (void)) x -let setLatestMoveDragEventTimestamp x self = msg_send ~self ~cmd:(selector "setLatestMoveDragEventTimestamp:") ~typ:(double @-> returning (void)) x -let setLatestMoveDragEventsBySessionID x self = msg_send ~self ~cmd:(selector "setLatestMoveDragEventsBySessionID:") ~typ:(id @-> returning (void)) x -let setNeedsSignalOnDisplayLink x self = msg_send ~self ~cmd:(selector "setNeedsSignalOnDisplayLink:") ~typ:(bool @-> returning (void)) x -let setupForRunLoop x self = msg_send ~self ~cmd:(selector "setupForRunLoop:") ~typ:(id @-> returning (void)) x -let setupThreadAndRun self = msg_send ~self ~cmd:(selector "setupThreadAndRun") ~typ:(returning (void)) -let signalEventsAvailableWithReason x ~filteredEventCount self = msg_send ~self ~cmd:(selector "signalEventsAvailableWithReason:filteredEventCount:") ~typ:(ullong @-> llong @-> returning (void)) (ULLong.of_int x) (LLong.of_int filteredEventCount) -let threadMain self = msg_send ~self ~cmd:(selector "threadMain") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIEventFetcher" + +let beginTimeForTouchEvents self = msg_send ~self ~cmd:(selector "beginTimeForTouchEvents") ~typ:(returning double) +let commitTimeForTouchEvents self = msg_send ~self ~cmd:(selector "commitTimeForTouchEvents") ~typ:(returning double) +let contextIDsNeedingHoverEventResend self = msg_send ~self ~cmd:(selector "contextIDsNeedingHoverEventResend") ~typ:(returning id) +let deadlineTimeForTouchEvents self = msg_send ~self ~cmd:(selector "deadlineTimeForTouchEvents") ~typ:(returning double) +let displayLinkDidFire x self = msg_send ~self ~cmd:(selector "displayLinkDidFire:") ~typ:(id @-> returning void) x +let drainEventsIntoEnvironment x self = msg_send ~self ~cmd:(selector "drainEventsIntoEnvironment:") ~typ:(id @-> returning void) x +let eventFetcherSink self = msg_send ~self ~cmd:(selector "eventFetcherSink") ~typ:(returning id) +let filterEvent x self = msg_send ~self ~cmd:(selector "filterEvent:") ~typ:((ptr void) @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let latestHoverEventsByContextID self = msg_send ~self ~cmd:(selector "latestHoverEventsByContextID") ~typ:(returning id) +let latestMoveDragEventResendTimestamp self = msg_send ~self ~cmd:(selector "latestMoveDragEventResendTimestamp") ~typ:(returning double) +let latestMoveDragEventTimestamp self = msg_send ~self ~cmd:(selector "latestMoveDragEventTimestamp") ~typ:(returning double) +let latestMoveDragEventsBySessionID self = msg_send ~self ~cmd:(selector "latestMoveDragEventsBySessionID") ~typ:(returning id) +let needsSignalOnDisplayLink self = msg_send ~self ~cmd:(selector "needsSignalOnDisplayLink") ~typ:(returning bool) +let setBeginTimeForTouchEvents x self = msg_send ~self ~cmd:(selector "setBeginTimeForTouchEvents:") ~typ:(double @-> returning void) x +let setCommitTimeForTouchEvents x self = msg_send ~self ~cmd:(selector "setCommitTimeForTouchEvents:") ~typ:(double @-> returning void) x +let setContextIDsNeedingHoverEventResend x self = msg_send ~self ~cmd:(selector "setContextIDsNeedingHoverEventResend:") ~typ:(id @-> returning void) x +let setDeadlineTimeForTouchEvents x self = msg_send ~self ~cmd:(selector "setDeadlineTimeForTouchEvents:") ~typ:(double @-> returning void) x +let setEventFetcherSink x self = msg_send ~self ~cmd:(selector "setEventFetcherSink:") ~typ:(id @-> returning void) x +let setLatestHoverEventsByContextID x self = msg_send ~self ~cmd:(selector "setLatestHoverEventsByContextID:") ~typ:(id @-> returning void) x +let setLatestMoveDragEventResendTimestamp x self = msg_send ~self ~cmd:(selector "setLatestMoveDragEventResendTimestamp:") ~typ:(double @-> returning void) x +let setLatestMoveDragEventTimestamp x self = msg_send ~self ~cmd:(selector "setLatestMoveDragEventTimestamp:") ~typ:(double @-> returning void) x +let setLatestMoveDragEventsBySessionID x self = msg_send ~self ~cmd:(selector "setLatestMoveDragEventsBySessionID:") ~typ:(id @-> returning void) x +let setNeedsSignalOnDisplayLink x self = msg_send ~self ~cmd:(selector "setNeedsSignalOnDisplayLink:") ~typ:(bool @-> returning void) x +let setupForRunLoop x self = msg_send ~self ~cmd:(selector "setupForRunLoop:") ~typ:(id @-> returning void) x +let setupThreadAndRun self = msg_send ~self ~cmd:(selector "setupThreadAndRun") ~typ:(returning void) +let signalEventsAvailableWithReason x ~filteredEventCount self = msg_send ~self ~cmd:(selector "signalEventsAvailableWithReason:filteredEventCount:") ~typ:(ullong @-> llong @-> returning void) (ULLong.of_int x) (LLong.of_int filteredEventCount) +let threadMain self = msg_send ~self ~cmd:(selector "threadMain") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIExpandedBarItemsTableViewController.ml b/uikit/UIExpandedBarItemsTableViewController.ml deleted file mode 100644 index 02c5bf47..00000000 --- a/uikit/UIExpandedBarItemsTableViewController.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIExpandedBarItemsTableViewController" - -let barButtonGroup self = msg_send ~self ~cmd:(selector "barButtonGroup") ~typ:(returning (id)) -let initWithBarButtonGroup x self = msg_send ~self ~cmd:(selector "initWithBarButtonGroup:") ~typ:(id @-> returning (id)) x -let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning (llong)) x -let preferredContentSize self = msg_send_stret ~self ~cmd:(selector "preferredContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didSelectRowAtIndexPath -let tableView2 x ~heightForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:heightForRowAtIndexPath:") ~typ:(id @-> id @-> returning (double)) x heightForRowAtIndexPath -let tableView3 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIExternalScenePairingObserver.ml b/uikit/UIExternalScenePairingObserver.ml index 76be9ed1..99111d6d 100644 --- a/uikit/UIExternalScenePairingObserver.ml +++ b/uikit/UIExternalScenePairingObserver.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIExternalScenePairingObserver" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiexternalscenepairingobserver?language=objc}UIExternalScenePairingObserver} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithScene x ~delegate self = msg_send ~self ~cmd:(selector "initWithScene:delegate:") ~typ:(id @-> id @-> returning (id)) x delegate -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let isPairedWithExternalSceneID x self = msg_send ~self ~cmd:(selector "isPairedWithExternalSceneID:") ~typ:(id @-> returning (bool)) x -let scene self = msg_send ~self ~cmd:(selector "scene") ~typ:(returning (id)) -let scene' x ~didUpdateClientSettingsWithDiff ~oldClientSettings ~transitionContext self = msg_send ~self ~cmd:(selector "scene:didUpdateClientSettingsWithDiff:oldClientSettings:transitionContext:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x didUpdateClientSettingsWithDiff oldClientSettings transitionContext -let sceneLayerManagerDidUpdateLayers x self = msg_send ~self ~cmd:(selector "sceneLayerManagerDidUpdateLayers:") ~typ:(id @-> returning (void)) x -let sceneManager x ~didCreateScene self = msg_send ~self ~cmd:(selector "sceneManager:didCreateScene:") ~typ:(id @-> id @-> returning (void)) x didCreateScene -let sceneManager1 x ~didDestroyScene self = msg_send ~self ~cmd:(selector "sceneManager:didDestroyScene:") ~typ:(id @-> id @-> returning (void)) x didDestroyScene -let sceneManager2 x ~willDestroyScene self = msg_send ~self ~cmd:(selector "sceneManager:willDestroyScene:") ~typ:(id @-> id @-> returning (void)) x willDestroyScene -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIExternalScenePairingObserver" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithScene x ~delegate self = msg_send ~self ~cmd:(selector "initWithScene:delegate:") ~typ:(id @-> id @-> returning id) x delegate +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let isPairedWithExternalSceneID x self = msg_send ~self ~cmd:(selector "isPairedWithExternalSceneID:") ~typ:(id @-> returning bool) x +let scene self = msg_send ~self ~cmd:(selector "scene") ~typ:(returning id) +let scene' x ~didUpdateClientSettingsWithDiff ~oldClientSettings ~transitionContext self = msg_send ~self ~cmd:(selector "scene:didUpdateClientSettingsWithDiff:oldClientSettings:transitionContext:") ~typ:(id @-> id @-> id @-> id @-> returning void) x didUpdateClientSettingsWithDiff oldClientSettings transitionContext +let sceneLayerManagerDidUpdateLayers x self = msg_send ~self ~cmd:(selector "sceneLayerManagerDidUpdateLayers:") ~typ:(id @-> returning void) x +let sceneManager x ~didCreateScene self = msg_send ~self ~cmd:(selector "sceneManager:didCreateScene:") ~typ:(id @-> id @-> returning void) x didCreateScene +let sceneManager1 x ~didDestroyScene self = msg_send ~self ~cmd:(selector "sceneManager:didDestroyScene:") ~typ:(id @-> id @-> returning void) x didDestroyScene +let sceneManager2 x ~willDestroyScene self = msg_send ~self ~cmd:(selector "sceneManager:willDestroyScene:") ~typ:(id @-> id @-> returning void) x willDestroyScene +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIFeedbackGenerator.ml b/uikit/UIFeedbackGenerator.ml index 1d7d4301..d2cedfda 100644 --- a/uikit/UIFeedbackGenerator.ml +++ b/uikit/UIFeedbackGenerator.ml @@ -5,31 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIFeedbackGenerator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifeedbackgenerator?language=objc}UIFeedbackGenerator} *) -module C = struct - let behaviorWithConfiguration x ~coordinateSpace self = msg_send ~self ~cmd:(selector "behaviorWithConfiguration:coordinateSpace:") ~typ:(id @-> id @-> returning (id)) x coordinateSpace - let behaviorWithCoordinateSpace x self = msg_send ~self ~cmd:(selector "behaviorWithCoordinateSpace:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIFeedbackGenerator" -let activateWithCompletionBlock x self = msg_send ~self ~cmd:(selector "activateWithCompletionBlock:") ~typ:(ptr void @-> returning (void)) x -let activationCount self = msg_send ~self ~cmd:(selector "activationCount") ~typ:(returning (llong)) -let coordinateSpace self = msg_send ~self ~cmd:(selector "coordinateSpace") ~typ:(returning (id)) -let deactivate self = msg_send ~self ~cmd:(selector "deactivate") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let engines self = msg_send ~self ~cmd:(selector "engines") ~typ:(returning (id)) -let externalActivationCount self = msg_send ~self ~cmd:(selector "externalActivationCount") ~typ:(returning (llong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithConfiguration x self = msg_send ~self ~cmd:(selector "initWithConfiguration:") ~typ:(id @-> returning (id)) x -let initWithConfiguration' x ~coordinateSpace self = msg_send ~self ~cmd:(selector "initWithConfiguration:coordinateSpace:") ~typ:(id @-> id @-> returning (id)) x coordinateSpace -let initWithCoordinateSpace x self = msg_send ~self ~cmd:(selector "initWithCoordinateSpace:") ~typ:(id @-> returning (id)) x -let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning (bool)) -let performFeedbackWithDelay x ~insideBlock self = msg_send ~self ~cmd:(selector "performFeedbackWithDelay:insideBlock:") ~typ:(double @-> ptr void @-> returning (void)) x insideBlock -let prepare self = msg_send ~self ~cmd:(selector "prepare") ~typ:(returning (void)) -let setActivationCount x self = msg_send ~self ~cmd:(selector "setActivationCount:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCoordinateSpace x self = msg_send ~self ~cmd:(selector "setCoordinateSpace:") ~typ:(id @-> returning (void)) x -let setExternalActivationCount x self = msg_send ~self ~cmd:(selector "setExternalActivationCount:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setUsesCustomActivation x self = msg_send ~self ~cmd:(selector "setUsesCustomActivation:") ~typ:(bool @-> returning (void)) x -let usesCustomActivation self = msg_send ~self ~cmd:(selector "usesCustomActivation") ~typ:(returning (bool)) \ No newline at end of file +let activateWithCompletionBlock x self = msg_send ~self ~cmd:(selector "activateWithCompletionBlock:") ~typ:((ptr void) @-> returning void) x +let activationCount self = msg_send ~self ~cmd:(selector "activationCount") ~typ:(returning llong) +let coordinateSpace self = msg_send ~self ~cmd:(selector "coordinateSpace") ~typ:(returning id) +let deactivate self = msg_send ~self ~cmd:(selector "deactivate") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let engines self = msg_send ~self ~cmd:(selector "engines") ~typ:(returning id) +let externalActivationCount self = msg_send ~self ~cmd:(selector "externalActivationCount") ~typ:(returning llong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithConfiguration x self = msg_send ~self ~cmd:(selector "initWithConfiguration:") ~typ:(id @-> returning id) x +let initWithConfiguration' x ~coordinateSpace self = msg_send ~self ~cmd:(selector "initWithConfiguration:coordinateSpace:") ~typ:(id @-> id @-> returning id) x coordinateSpace +let initWithCoordinateSpace x self = msg_send ~self ~cmd:(selector "initWithCoordinateSpace:") ~typ:(id @-> returning id) x +let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning bool) +let performFeedbackWithDelay x ~insideBlock self = msg_send ~self ~cmd:(selector "performFeedbackWithDelay:insideBlock:") ~typ:(double @-> (ptr void) @-> returning void) x insideBlock +let prepare self = msg_send ~self ~cmd:(selector "prepare") ~typ:(returning void) +let setActivationCount x self = msg_send ~self ~cmd:(selector "setActivationCount:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCoordinateSpace x self = msg_send ~self ~cmd:(selector "setCoordinateSpace:") ~typ:(id @-> returning void) x +let setExternalActivationCount x self = msg_send ~self ~cmd:(selector "setExternalActivationCount:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setUsesCustomActivation x self = msg_send ~self ~cmd:(selector "setUsesCustomActivation:") ~typ:(bool @-> returning void) x +let usesCustomActivation self = msg_send ~self ~cmd:(selector "usesCustomActivation") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIFeedbackGeneratorClass.ml b/uikit/UIFeedbackGeneratorClass.ml new file mode 100644 index 00000000..de333c42 --- /dev/null +++ b/uikit/UIFeedbackGeneratorClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifeedbackgenerator?language=objc}UIFeedbackGenerator} *) + +let behaviorWithConfiguration x ~coordinateSpace self = msg_send ~self ~cmd:(selector "behaviorWithConfiguration:coordinateSpace:") ~typ:(id @-> id @-> returning id) x coordinateSpace +let behaviorWithCoordinateSpace x self = msg_send ~self ~cmd:(selector "behaviorWithCoordinateSpace:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIFieldBehavior.ml b/uikit/UIFieldBehavior.ml index e728ca05..2f9771a7 100644 --- a/uikit/UIFieldBehavior.ml +++ b/uikit/UIFieldBehavior.ml @@ -5,41 +5,31 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIFieldBehavior" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifieldbehavior?language=objc}UIFieldBehavior} *) -module C = struct - let dragField self = msg_send ~self ~cmd:(selector "dragField") ~typ:(returning (id)) - let electricField self = msg_send ~self ~cmd:(selector "electricField") ~typ:(returning (id)) - let fieldWithEvaluationBlock x self = msg_send ~self ~cmd:(selector "fieldWithEvaluationBlock:") ~typ:(ptr void @-> returning (id)) x - let linearGravityFieldWithVector x self = msg_send ~self ~cmd:(selector "linearGravityFieldWithVector:") ~typ:(ptr void @-> returning (id)) x - let magneticField self = msg_send ~self ~cmd:(selector "magneticField") ~typ:(returning (id)) - let noiseFieldWithSmoothness x ~animationSpeed self = msg_send ~self ~cmd:(selector "noiseFieldWithSmoothness:animationSpeed:") ~typ:(double @-> double @-> returning (id)) x animationSpeed - let radialGravityFieldWithPosition x self = msg_send ~self ~cmd:(selector "radialGravityFieldWithPosition:") ~typ:(CGPoint.t @-> returning (id)) x - let springField self = msg_send ~self ~cmd:(selector "springField") ~typ:(returning (id)) - let turbulenceFieldWithSmoothness x ~animationSpeed self = msg_send ~self ~cmd:(selector "turbulenceFieldWithSmoothness:animationSpeed:") ~typ:(double @-> double @-> returning (id)) x animationSpeed - let velocityFieldWithVector x self = msg_send ~self ~cmd:(selector "velocityFieldWithVector:") ~typ:(ptr void @-> returning (id)) x - let vortexField self = msg_send ~self ~cmd:(selector "vortexField") ~typ:(returning (id)) -end +let self = get_class "UIFieldBehavior" -let addItem x self = msg_send ~self ~cmd:(selector "addItem:") ~typ:(id @-> returning (void)) x -let animationSpeed self = msg_send ~self ~cmd:(selector "animationSpeed") ~typ:(returning (double)) -let falloff self = msg_send ~self ~cmd:(selector "falloff") ~typ:(returning (double)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let minimumRadius self = msg_send ~self ~cmd:(selector "minimumRadius") ~typ:(returning (double)) -let position self = msg_send_stret ~self ~cmd:(selector "position") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let region self = msg_send ~self ~cmd:(selector "region") ~typ:(returning (id)) -let removeItem x self = msg_send ~self ~cmd:(selector "removeItem:") ~typ:(id @-> returning (void)) x -let setAnimationSpeed x self = msg_send ~self ~cmd:(selector "setAnimationSpeed:") ~typ:(double @-> returning (void)) x -let setDirection x self = msg_send ~self ~cmd:(selector "setDirection:") ~typ:(ptr void @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setFalloff x self = msg_send ~self ~cmd:(selector "setFalloff:") ~typ:(double @-> returning (void)) x -let setMinimumRadius x self = msg_send ~self ~cmd:(selector "setMinimumRadius:") ~typ:(double @-> returning (void)) x -let setPosition x self = msg_send ~self ~cmd:(selector "setPosition:") ~typ:(CGPoint.t @-> returning (void)) x -let setRegion x self = msg_send ~self ~cmd:(selector "setRegion:") ~typ:(id @-> returning (void)) x -let setSmoothness x self = msg_send ~self ~cmd:(selector "setSmoothness:") ~typ:(double @-> returning (void)) x -let setStrength x self = msg_send ~self ~cmd:(selector "setStrength:") ~typ:(double @-> returning (void)) x -let smoothness self = msg_send ~self ~cmd:(selector "smoothness") ~typ:(returning (double)) -let strength self = msg_send ~self ~cmd:(selector "strength") ~typ:(returning (double)) \ No newline at end of file +let addItem x self = msg_send ~self ~cmd:(selector "addItem:") ~typ:(id @-> returning void) x +let animationSpeed self = msg_send ~self ~cmd:(selector "animationSpeed") ~typ:(returning double) +let direction self = msg_send ~self ~cmd:(selector "direction") ~typ:(returning CGVector.t) +let falloff self = msg_send ~self ~cmd:(selector "falloff") ~typ:(returning double) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning id) +let minimumRadius self = msg_send ~self ~cmd:(selector "minimumRadius") ~typ:(returning double) +let position self = msg_send ~self ~cmd:(selector "position") ~typ:(returning CGPoint.t) +let region self = msg_send ~self ~cmd:(selector "region") ~typ:(returning id) +let removeItem x self = msg_send ~self ~cmd:(selector "removeItem:") ~typ:(id @-> returning void) x +let setAnimationSpeed x self = msg_send ~self ~cmd:(selector "setAnimationSpeed:") ~typ:(double @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setFalloff x self = msg_send ~self ~cmd:(selector "setFalloff:") ~typ:(double @-> returning void) x +let setMinimumRadius x self = msg_send ~self ~cmd:(selector "setMinimumRadius:") ~typ:(double @-> returning void) x +let setPosition x self = msg_send ~self ~cmd:(selector "setPosition:") ~typ:(CGPoint.t @-> returning void) x +let setRegion x self = msg_send ~self ~cmd:(selector "setRegion:") ~typ:(id @-> returning void) x +let setSmoothness x self = msg_send ~self ~cmd:(selector "setSmoothness:") ~typ:(double @-> returning void) x +let setStrength x self = msg_send ~self ~cmd:(selector "setStrength:") ~typ:(double @-> returning void) x +let smoothness self = msg_send ~self ~cmd:(selector "smoothness") ~typ:(returning double) +let strength self = msg_send ~self ~cmd:(selector "strength") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIFieldBehaviorClass.ml b/uikit/UIFieldBehaviorClass.ml new file mode 100644 index 00000000..bfd5d46a --- /dev/null +++ b/uikit/UIFieldBehaviorClass.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifieldbehavior?language=objc}UIFieldBehavior} *) + +let dragField self = msg_send ~self ~cmd:(selector "dragField") ~typ:(returning id) +let electricField self = msg_send ~self ~cmd:(selector "electricField") ~typ:(returning id) +let fieldWithEvaluationBlock x self = msg_send ~self ~cmd:(selector "fieldWithEvaluationBlock:") ~typ:((ptr void) @-> returning id) x +let magneticField self = msg_send ~self ~cmd:(selector "magneticField") ~typ:(returning id) +let noiseFieldWithSmoothness x ~animationSpeed self = msg_send ~self ~cmd:(selector "noiseFieldWithSmoothness:animationSpeed:") ~typ:(double @-> double @-> returning id) x animationSpeed +let radialGravityFieldWithPosition x self = msg_send ~self ~cmd:(selector "radialGravityFieldWithPosition:") ~typ:(CGPoint.t @-> returning id) x +let springField self = msg_send ~self ~cmd:(selector "springField") ~typ:(returning id) +let turbulenceFieldWithSmoothness x ~animationSpeed self = msg_send ~self ~cmd:(selector "turbulenceFieldWithSmoothness:animationSpeed:") ~typ:(double @-> double @-> returning id) x animationSpeed +let vortexField self = msg_send ~self ~cmd:(selector "vortexField") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIFieldEditor.ml b/uikit/UIFieldEditor.ml index 03cfe1bc..50652a5a 100644 --- a/uikit/UIFieldEditor.ml +++ b/uikit/UIFieldEditor.ml @@ -5,161 +5,161 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIFieldEditor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifieldeditor?language=objc}UIFieldEditor} *) -module C = struct - let activeFieldEditor self = msg_send ~self ~cmd:(selector "activeFieldEditor") ~typ:(returning (id)) - let excludedElementsForHTML self = msg_send ~self ~cmd:(selector "excludedElementsForHTML") ~typ:(returning (id)) - let sharedFieldEditor self = msg_send ~self ~cmd:(selector "sharedFieldEditor") ~typ:(returning (id)) -end +let self = get_class "UIFieldEditor" -let activateEditor self = msg_send ~self ~cmd:(selector "activateEditor") ~typ:(returning (void)) -let addTextAlternativesDisplayStyle x ~toRange self = msg_send ~self ~cmd:(selector "addTextAlternativesDisplayStyle:toRange:") ~typ:(llong @-> NSRange.t @-> returning (void)) (LLong.of_int x) toRange -let allowsAttachments self = msg_send ~self ~cmd:(selector "allowsAttachments") ~typ:(returning (bool)) -let attributedSubstringForMarkedRange self = msg_send ~self ~cmd:(selector "attributedSubstringForMarkedRange") ~typ:(returning (id)) -let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning (id)) -let attributedTextInRange x self = msg_send ~self ~cmd:(selector "attributedTextInRange:") ~typ:(id @-> returning (id)) x -let autoscrollContentOffset self = msg_send_stret ~self ~cmd:(selector "autoscrollContentOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int inDirection) -let beginSelectionChange self = msg_send ~self ~cmd:(selector "beginSelectionChange") ~typ:(returning (void)) -let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning (id)) -let cancelAutoscroll self = msg_send ~self ~cmd:(selector "cancelAutoscroll") ~typ:(returning (void)) -let caretRectForPosition x self = msg_send_stret ~self ~cmd:(selector "caretRectForPosition:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let characterRangeAtPoint x self = msg_send ~self ~cmd:(selector "characterRangeAtPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let characterRangeByExtendingPosition x ~inDirection self = msg_send ~self ~cmd:(selector "characterRangeByExtendingPosition:inDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int inDirection) -let clearText self = msg_send ~self ~cmd:(selector "clearText") ~typ:(returning (void)) -let closestPositionToPoint x self = msg_send ~self ~cmd:(selector "closestPositionToPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let closestPositionToPoint' x ~withinRange self = msg_send ~self ~cmd:(selector "closestPositionToPoint:withinRange:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withinRange -let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning (llong)) x toPosition -let contentFrameForView x self = msg_send_stret ~self ~cmd:(selector "contentFrameForView:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let deactivateEditorDiscardingEdits x self = msg_send ~self ~cmd:(selector "deactivateEditorDiscardingEdits:") ~typ:(bool @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning (void)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning (id)) -let endSelectionChange self = msg_send ~self ~cmd:(selector "endSelectionChange") ~typ:(returning (void)) -let firstRectForRange x self = msg_send_stret ~self ~cmd:(selector "firstRectForRange:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let forwardingTargetForSelector x self = msg_send ~self ~cmd:(selector "forwardingTargetForSelector:") ~typ:(_SEL @-> returning (id)) x -let frameForDictationResultPlaceholder x self = msg_send_stret ~self ~cmd:(selector "frameForDictationResultPlaceholder:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let hasMarkedText self = msg_send ~self ~cmd:(selector "hasMarkedText") ~typ:(returning (bool)) -let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning (bool)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithTextField x self = msg_send ~self ~cmd:(selector "initWithTextField:") ~typ:(id @-> returning (id)) x -let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning (id)) -let insertAttributedText x self = msg_send ~self ~cmd:(selector "insertAttributedText:") ~typ:(id @-> returning (void)) x -let insertDictationResult x ~withCorrectionIdentifier self = msg_send ~self ~cmd:(selector "insertDictationResult:withCorrectionIdentifier:") ~typ:(id @-> id @-> returning (void)) x withCorrectionIdentifier -let insertDictationResultPlaceholder self = msg_send ~self ~cmd:(selector "insertDictationResultPlaceholder") ~typ:(returning (id)) -let insertFilteredText x self = msg_send_stret ~self ~cmd:(selector "insertFilteredText:") ~typ:(id @-> returning (NSRange.t)) ~return_type:NSRange.t x -let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning (void)) x -let insertTextPlaceholderWithSize x self = msg_send ~self ~cmd:(selector "insertTextPlaceholderWithSize:") ~typ:(CGSize.t @-> returning (id)) x -let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning (id)) -let invalidateTextContainerOrigin self = msg_send ~self ~cmd:(selector "invalidateTextContainerOrigin") ~typ:(returning (void)) -let isDrawingFindIndicator self = msg_send ~self ~cmd:(selector "isDrawingFindIndicator") ~typ:(returning (bool)) -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let isFirstResponder self = msg_send ~self ~cmd:(selector "isFirstResponder") ~typ:(returning (bool)) -let isHorizontallyResizable self = msg_send ~self ~cmd:(selector "isHorizontallyResizable") ~typ:(returning (bool)) -let keyboardInput x ~shouldInsertText ~isMarkedText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldInsertText:isMarkedText:") ~typ:(id @-> id @-> bool @-> returning (bool)) x shouldInsertText isMarkedText -let keyboardInput' x ~shouldReplaceTextInRange ~replacementText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldReplaceTextInRange:replacementText:") ~typ:(id @-> NSRange.t @-> id @-> returning (bool)) x shouldReplaceTextInRange replacementText -let keyboardInputChanged x self = msg_send ~self ~cmd:(selector "keyboardInputChanged:") ~typ:(id @-> returning (bool)) x -let keyboardInputChangedSelection x self = msg_send ~self ~cmd:(selector "keyboardInputChangedSelection:") ~typ:(id @-> returning (void)) x -let keyboardInputShouldDelete x self = msg_send ~self ~cmd:(selector "keyboardInputShouldDelete:") ~typ:(id @-> returning (bool)) x -let layoutManager self = msg_send ~self ~cmd:(selector "layoutManager") ~typ:(returning (id)) -let layoutManager1 x ~effectiveCUICatalogForTextEffect self = msg_send ~self ~cmd:(selector "layoutManager:effectiveCUICatalogForTextEffect:") ~typ:(id @-> id @-> returning (id)) x effectiveCUICatalogForTextEffect -let layoutManager2 x ~didCompleteLayoutForTextContainer ~atEnd self = msg_send ~self ~cmd:(selector "layoutManager:didCompleteLayoutForTextContainer:atEnd:") ~typ:(id @-> id @-> bool @-> returning (void)) x didCompleteLayoutForTextContainer atEnd -let layoutManager3 x ~shouldUseAction ~forControlCharacterAtIndex self = msg_send ~self ~cmd:(selector "layoutManager:shouldUseAction:forControlCharacterAtIndex:") ~typ:(id @-> llong @-> ullong @-> returning (llong)) x (LLong.of_int shouldUseAction) (ULLong.of_int forControlCharacterAtIndex) -let layoutManager4 x ~boundingBoxForControlGlyphAtIndex ~forTextContainer ~proposedLineFragment ~glyphPosition ~characterIndex self = msg_send_stret ~self ~cmd:(selector "layoutManager:boundingBoxForControlGlyphAtIndex:forTextContainer:proposedLineFragment:glyphPosition:characterIndex:") ~typ:(id @-> ullong @-> id @-> CGRect.t @-> CGPoint.t @-> ullong @-> returning (CGRect.t)) ~return_type:CGRect.t x (ULLong.of_int boundingBoxForControlGlyphAtIndex) forTextContainer proposedLineFragment glyphPosition (ULLong.of_int characterIndex) -let layoutManager5 x ~shouldGenerateGlyphs ~properties ~characterIndexes ~font ~forGlyphRange self = msg_send ~self ~cmd:(selector "layoutManager:shouldGenerateGlyphs:properties:characterIndexes:font:forGlyphRange:") ~typ:(id @-> ptr (ushort) @-> ptr (llong) @-> ptr (ullong) @-> id @-> NSRange.t @-> returning (ullong)) x shouldGenerateGlyphs properties characterIndexes font forGlyphRange -let layoutOrientation self = msg_send ~self ~cmd:(selector "layoutOrientation") ~typ:(returning (llong)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let linkTextAttributes self = msg_send ~self ~cmd:(selector "linkTextAttributes") ~typ:(returning (id)) -let markedRange self = msg_send_stret ~self ~cmd:(selector "markedRange") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let markedTextAttributes self = msg_send ~self ~cmd:(selector "markedTextAttributes") ~typ:(returning (id)) -let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning (id)) -let markedTextStyle self = msg_send ~self ~cmd:(selector "markedTextStyle") ~typ:(returning (id)) -let metadataDictionariesForDictationResults self = msg_send ~self ~cmd:(selector "metadataDictionariesForDictationResults") ~typ:(returning (id)) -let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning (id)) x -let minSize self = msg_send_stret ~self ~cmd:(selector "minSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let nonEditingLinebreakMode self = msg_send ~self ~cmd:(selector "nonEditingLinebreakMode") ~typ:(returning (llong)) -let offsetFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "offsetFromPosition:toPosition:") ~typ:(id @-> id @-> returning (llong)) x toPosition -let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int offset) -let positionFromPosition' x ~inDirection ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:inDirection:offset:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int inDirection) (LLong.of_int offset) -let positionWithinRange x ~farthestInDirection self = msg_send ~self ~cmd:(selector "positionWithinRange:farthestInDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int farthestInDirection) -let rangeWithTextAlternatives x ~atPosition self = msg_send ~self ~cmd:(selector "rangeWithTextAlternatives:atPosition:") ~typ:(ptr (id) @-> id @-> returning (id)) x atPosition -let removeDictationResultPlaceholder x ~willInsertResult self = msg_send ~self ~cmd:(selector "removeDictationResultPlaceholder:willInsertResult:") ~typ:(id @-> bool @-> returning (void)) x willInsertResult -let removeTextPlaceholder x self = msg_send ~self ~cmd:(selector "removeTextPlaceholder:") ~typ:(id @-> returning (void)) x -let replaceRange x ~withAttributedText self = msg_send ~self ~cmd:(selector "replaceRange:withAttributedText:") ~typ:(id @-> id @-> returning (void)) x withAttributedText -let replaceRange' x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning (void)) x withText -let replaceRangeWithTextWithoutClosingTyping x ~replacementText self = msg_send ~self ~cmd:(selector "replaceRangeWithTextWithoutClosingTyping:replacementText:") ~typ:(id @-> id @-> returning (void)) x replacementText -let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning (bool)) x -let scrollSelectionToVisible x self = msg_send ~self ~cmd:(selector "scrollSelectionToVisible:") ~typ:(bool @-> returning (void)) x -let scrollXOffset self = msg_send ~self ~cmd:(selector "scrollXOffset") ~typ:(returning (int)) -let scrollYOffset self = msg_send ~self ~cmd:(selector "scrollYOffset") ~typ:(returning (int)) -let selectAll self = msg_send ~self ~cmd:(selector "selectAll") ~typ:(returning (void)) -let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning (id)) -let selectionRange self = msg_send_stret ~self ~cmd:(selector "selectionRange") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let selectionRectsForRange x self = msg_send ~self ~cmd:(selector "selectionRectsForRange:") ~typ:(id @-> returning (id)) x -let setAllowsAttachments x self = msg_send ~self ~cmd:(selector "setAllowsAttachments:") ~typ:(bool @-> returning (void)) x -let setAttributedMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setAttributedMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning (void)) x selectedRange -let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning (void)) x -let setAttributedText' x ~andSetCaretSelectionAfterText self = msg_send ~self ~cmd:(selector "setAttributedText:andSetCaretSelectionAfterText:") ~typ:(id @-> bool @-> returning (void)) x andSetCaretSelectionAfterText -let setAttributedTextInRange x ~replacementText self = msg_send ~self ~cmd:(selector "setAttributedTextInRange:replacementText:") ~typ:(NSRange.t @-> id @-> returning (void)) x replacementText -let setAutoscrollContentOffset x self = msg_send ~self ~cmd:(selector "setAutoscrollContentOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let setBaseWritingDirection x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) forRange -let setConstrainedFrameSize x self = msg_send ~self ~cmd:(selector "setConstrainedFrameSize:") ~typ:(CGSize.t @-> returning (void)) x -let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let setContentOffset' x ~animated self = msg_send ~self ~cmd:(selector "setContentOffset:animated:") ~typ:(CGPoint.t @-> bool @-> returning (void)) x animated -let setDisplaySecureEditsUsingPlainText x self = msg_send ~self ~cmd:(selector "setDisplaySecureEditsUsingPlainText:") ~typ:(bool @-> returning (void)) x -let setDrawingFindIndicator x self = msg_send ~self ~cmd:(selector "setDrawingFindIndicator:") ~typ:(bool @-> returning (void)) x -let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning (void)) x -let setInputDelegate x self = msg_send ~self ~cmd:(selector "setInputDelegate:") ~typ:(id @-> returning (void)) x -let setLayoutOrientation x self = msg_send ~self ~cmd:(selector "setLayoutOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning (void)) x selectedRange -let setMarkedTextStyle x self = msg_send ~self ~cmd:(selector "setMarkedTextStyle:") ~typ:(id @-> returning (void)) x -let setNeedsDisplayInRect x ~avoidAdditionalLayout self = msg_send ~self ~cmd:(selector "setNeedsDisplayInRect:avoidAdditionalLayout:") ~typ:(CGRect.t @-> bool @-> returning (void)) x avoidAdditionalLayout -let setNonEditingLinebreakMode x self = msg_send ~self ~cmd:(selector "setNonEditingLinebreakMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPadding x self = msg_send ~self ~cmd:(selector "setPadding:") ~typ:(ptr void @-> returning (void)) x -let setScrollXOffset x ~scrollYOffset self = msg_send ~self ~cmd:(selector "setScrollXOffset:scrollYOffset:") ~typ:(int @-> int @-> returning (void)) x scrollYOffset -let setScrollXOffset' x ~scrollYOffset ~adjustForPurpleCaret self = msg_send ~self ~cmd:(selector "setScrollXOffset:scrollYOffset:adjustForPurpleCaret:") ~typ:(int @-> int @-> bool @-> returning (void)) x scrollYOffset adjustForPurpleCaret -let setSecureTextEntry x self = msg_send ~self ~cmd:(selector "setSecureTextEntry:") ~typ:(bool @-> returning (void)) x -let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning (void)) x -let setSelection x self = msg_send ~self ~cmd:(selector "setSelection:") ~typ:(NSRange.t @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let setText' x ~andSetCaretSelectionAfterText self = msg_send ~self ~cmd:(selector "setText:andSetCaretSelectionAfterText:") ~typ:(id @-> bool @-> returning (void)) x andSetCaretSelectionAfterText -let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning (void)) x -let setTextContainer x self = msg_send ~self ~cmd:(selector "setTextContainer:") ~typ:(id @-> returning (void)) x -let setTextInRange x ~replacementText self = msg_send ~self ~cmd:(selector "setTextInRange:replacementText:") ~typ:(NSRange.t @-> id @-> returning (void)) x replacementText -let setTypingAttributes x self = msg_send ~self ~cmd:(selector "setTypingAttributes:") ~typ:(id @-> returning (void)) x -let setUpClippingWithMaskForBounds x ~contentFrame self = msg_send ~self ~cmd:(selector "setUpClippingWithMaskForBounds:contentFrame:") ~typ:(CGRect.t @-> CGRect.t @-> returning (bool)) x contentFrame -let startAutoscroll x self = msg_send ~self ~cmd:(selector "startAutoscroll:") ~typ:(CGPoint.t @-> returning (void)) x -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning (id)) -let textColorForCaretSelection self = msg_send ~self ~cmd:(selector "textColorForCaretSelection") ~typ:(returning (id)) -let textContainer self = msg_send ~self ~cmd:(selector "textContainer") ~typ:(returning (id)) -let textContainerOrigin self = msg_send_stret ~self ~cmd:(selector "textContainerOrigin") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let textContainerOriginForTextAlignment x self = msg_send_stret ~self ~cmd:(selector "textContainerOriginForTextAlignment:") ~typ:(llong @-> returning (CGPoint.t)) ~return_type:CGPoint.t (LLong.of_int x) -let textContainerUsageDidChangeToBounds x self = msg_send ~self ~cmd:(selector "textContainerUsageDidChangeToBounds:") ~typ:(CGRect.t @-> returning (void)) x -let textField self = msg_send ~self ~cmd:(selector "textField") ~typ:(returning (id)) -let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning (id)) x -let textInput x ~prepareAttributedTextForInsertion self = msg_send ~self ~cmd:(selector "textInput:prepareAttributedTextForInsertion:") ~typ:(id @-> id @-> returning (void)) x prepareAttributedTextForInsertion -let textInput1 x ~shouldChangeCharactersInRange ~replacementText self = msg_send ~self ~cmd:(selector "textInput:shouldChangeCharactersInRange:replacementText:") ~typ:(id @-> NSRange.t @-> id @-> returning (bool)) x shouldChangeCharactersInRange replacementText -let textInput2 x ~willChangeSelectionFromCharacterRange ~toCharacterRange self = msg_send_stret ~self ~cmd:(selector "textInput:willChangeSelectionFromCharacterRange:toCharacterRange:") ~typ:(id @-> NSRange.t @-> NSRange.t @-> returning (NSRange.t)) ~return_type:NSRange.t x willChangeSelectionFromCharacterRange toCharacterRange -let textInputDidAnimatePaste x self = msg_send ~self ~cmd:(selector "textInputDidAnimatePaste:") ~typ:(id @-> returning (void)) x -let textInputDidChange x self = msg_send ~self ~cmd:(selector "textInputDidChange:") ~typ:(id @-> returning (void)) x -let textInputDidChangeSelection x self = msg_send ~self ~cmd:(selector "textInputDidChangeSelection:") ~typ:(id @-> returning (void)) x -let textInputShouldExtendCaretHeight x self = msg_send ~self ~cmd:(selector "textInputShouldExtendCaretHeight:") ~typ:(id @-> returning (bool)) x -let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning (id)) -let textInputView self = msg_send ~self ~cmd:(selector "textInputView") ~typ:(returning (id)) -let textInputWillAnimatePaste x self = msg_send ~self ~cmd:(selector "textInputWillAnimatePaste:") ~typ:(id @-> returning (void)) x -let textLayoutController self = msg_send ~self ~cmd:(selector "textLayoutController") ~typ:(returning (id)) -let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning (id)) x toPosition -let textStorage self = msg_send ~self ~cmd:(selector "textStorage") ~typ:(returning (id)) -let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let typingAttributes self = msg_send ~self ~cmd:(selector "typingAttributes") ~typ:(returning (id)) -let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning (id)) -let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning (void)) -let updateAutoscroll x self = msg_send ~self ~cmd:(selector "updateAutoscroll:") ~typ:(id @-> returning (void)) x -let updateInsertionPointStateAndRestartTimer x self = msg_send ~self ~cmd:(selector "updateInsertionPointStateAndRestartTimer:") ~typ:(bool @-> returning (void)) x -let visibleRect self = msg_send_stret ~self ~cmd:(selector "visibleRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t \ No newline at end of file +let activateEditor self = msg_send ~self ~cmd:(selector "activateEditor") ~typ:(returning void) +let addTextAlternativesDisplayStyle x ~toRange self = msg_send ~self ~cmd:(selector "addTextAlternativesDisplayStyle:toRange:") ~typ:(llong @-> NSRange.t @-> returning void) (LLong.of_int x) toRange +let allowsAttachments self = msg_send ~self ~cmd:(selector "allowsAttachments") ~typ:(returning bool) +let attributedSubstringForMarkedRange self = msg_send ~self ~cmd:(selector "attributedSubstringForMarkedRange") ~typ:(returning id) +let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning id) +let attributedTextInRange x self = msg_send ~self ~cmd:(selector "attributedTextInRange:") ~typ:(id @-> returning id) x +let autoscrollContentOffset self = msg_send ~self ~cmd:(selector "autoscrollContentOffset") ~typ:(returning CGPoint.t) +let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int inDirection) +let beginSelectionChange self = msg_send ~self ~cmd:(selector "beginSelectionChange") ~typ:(returning void) +let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning id) +let cancelAutoscroll self = msg_send ~self ~cmd:(selector "cancelAutoscroll") ~typ:(returning void) +let caretRectForPosition x self = msg_send ~self ~cmd:(selector "caretRectForPosition:") ~typ:(id @-> returning CGRect.t) x +let characterRangeAtPoint x self = msg_send ~self ~cmd:(selector "characterRangeAtPoint:") ~typ:(CGPoint.t @-> returning id) x +let characterRangeByExtendingPosition x ~inDirection self = msg_send ~self ~cmd:(selector "characterRangeByExtendingPosition:inDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int inDirection) +let clearText self = msg_send ~self ~cmd:(selector "clearText") ~typ:(returning void) +let closestPositionToPoint x self = msg_send ~self ~cmd:(selector "closestPositionToPoint:") ~typ:(CGPoint.t @-> returning id) x +let closestPositionToPoint' x ~withinRange self = msg_send ~self ~cmd:(selector "closestPositionToPoint:withinRange:") ~typ:(CGPoint.t @-> id @-> returning id) x withinRange +let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning llong) x toPosition +let contentFrameForView x self = msg_send ~self ~cmd:(selector "contentFrameForView:") ~typ:(id @-> returning CGRect.t) x +let deactivateEditorDiscardingEdits x self = msg_send ~self ~cmd:(selector "deactivateEditorDiscardingEdits:") ~typ:(bool @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning void) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning id) +let endSelectionChange self = msg_send ~self ~cmd:(selector "endSelectionChange") ~typ:(returning void) +let firstRectForRange x self = msg_send ~self ~cmd:(selector "firstRectForRange:") ~typ:(id @-> returning CGRect.t) x +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let forwardingTargetForSelector x self = msg_send ~self ~cmd:(selector "forwardingTargetForSelector:") ~typ:(_SEL @-> returning id) x +let frameForDictationResultPlaceholder x self = msg_send ~self ~cmd:(selector "frameForDictationResultPlaceholder:") ~typ:(id @-> returning CGRect.t) x +let hasMarkedText self = msg_send ~self ~cmd:(selector "hasMarkedText") ~typ:(returning bool) +let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning bool) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithTextField x self = msg_send ~self ~cmd:(selector "initWithTextField:") ~typ:(id @-> returning id) x +let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning id) +let insertAttributedText x self = msg_send ~self ~cmd:(selector "insertAttributedText:") ~typ:(id @-> returning void) x +let insertDictationResult x ~withCorrectionIdentifier self = msg_send ~self ~cmd:(selector "insertDictationResult:withCorrectionIdentifier:") ~typ:(id @-> id @-> returning void) x withCorrectionIdentifier +let insertDictationResultPlaceholder self = msg_send ~self ~cmd:(selector "insertDictationResultPlaceholder") ~typ:(returning id) +let insertFilteredText x self = msg_send ~self ~cmd:(selector "insertFilteredText:") ~typ:(id @-> returning NSRange.t) x +let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning void) x +let insertTextPlaceholderWithSize x self = msg_send ~self ~cmd:(selector "insertTextPlaceholderWithSize:") ~typ:(CGSize.t @-> returning id) x +let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning id) +let invalidateTextContainerOrigin self = msg_send ~self ~cmd:(selector "invalidateTextContainerOrigin") ~typ:(returning void) +let isDrawingFindIndicator self = msg_send ~self ~cmd:(selector "isDrawingFindIndicator") ~typ:(returning bool) +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let isFirstResponder self = msg_send ~self ~cmd:(selector "isFirstResponder") ~typ:(returning bool) +let isHorizontallyResizable self = msg_send ~self ~cmd:(selector "isHorizontallyResizable") ~typ:(returning bool) +let keyboardInput x ~shouldInsertText ~isMarkedText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldInsertText:isMarkedText:") ~typ:(id @-> id @-> bool @-> returning bool) x shouldInsertText isMarkedText +let keyboardInput' x ~shouldReplaceTextInRange ~replacementText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldReplaceTextInRange:replacementText:") ~typ:(id @-> NSRange.t @-> id @-> returning bool) x shouldReplaceTextInRange replacementText +let keyboardInputChanged x self = msg_send ~self ~cmd:(selector "keyboardInputChanged:") ~typ:(id @-> returning bool) x +let keyboardInputChangedSelection x self = msg_send ~self ~cmd:(selector "keyboardInputChangedSelection:") ~typ:(id @-> returning void) x +let keyboardInputShouldDelete x self = msg_send ~self ~cmd:(selector "keyboardInputShouldDelete:") ~typ:(id @-> returning bool) x +let layoutManager self = msg_send ~self ~cmd:(selector "layoutManager") ~typ:(returning id) +let layoutManager1 x ~effectiveCUICatalogForTextEffect self = msg_send ~self ~cmd:(selector "layoutManager:effectiveCUICatalogForTextEffect:") ~typ:(id @-> id @-> returning id) x effectiveCUICatalogForTextEffect +let layoutManager2 x ~didCompleteLayoutForTextContainer ~atEnd self = msg_send ~self ~cmd:(selector "layoutManager:didCompleteLayoutForTextContainer:atEnd:") ~typ:(id @-> id @-> bool @-> returning void) x didCompleteLayoutForTextContainer atEnd +let layoutManager3 x ~shouldUseAction ~forControlCharacterAtIndex self = msg_send ~self ~cmd:(selector "layoutManager:shouldUseAction:forControlCharacterAtIndex:") ~typ:(id @-> llong @-> ullong @-> returning llong) x (LLong.of_int shouldUseAction) (ULLong.of_int forControlCharacterAtIndex) +let layoutManager4 x ~boundingBoxForControlGlyphAtIndex ~forTextContainer ~proposedLineFragment ~glyphPosition ~characterIndex self = msg_send ~self ~cmd:(selector "layoutManager:boundingBoxForControlGlyphAtIndex:forTextContainer:proposedLineFragment:glyphPosition:characterIndex:") ~typ:(id @-> ullong @-> id @-> CGRect.t @-> CGPoint.t @-> ullong @-> returning CGRect.t) x (ULLong.of_int boundingBoxForControlGlyphAtIndex) forTextContainer proposedLineFragment glyphPosition (ULLong.of_int characterIndex) +let layoutManager5 x ~shouldGenerateGlyphs ~properties ~characterIndexes ~font ~forGlyphRange self = msg_send ~self ~cmd:(selector "layoutManager:shouldGenerateGlyphs:properties:characterIndexes:font:forGlyphRange:") ~typ:(id @-> (ptr ushort) @-> (ptr llong) @-> (ptr ullong) @-> id @-> NSRange.t @-> returning ullong) x shouldGenerateGlyphs properties characterIndexes font forGlyphRange +let layoutOrientation self = msg_send ~self ~cmd:(selector "layoutOrientation") ~typ:(returning llong) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let linkTextAttributes self = msg_send ~self ~cmd:(selector "linkTextAttributes") ~typ:(returning id) +let markedRange self = msg_send ~self ~cmd:(selector "markedRange") ~typ:(returning NSRange.t) +let markedTextAttributes self = msg_send ~self ~cmd:(selector "markedTextAttributes") ~typ:(returning id) +let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning id) +let markedTextStyle self = msg_send ~self ~cmd:(selector "markedTextStyle") ~typ:(returning id) +let metadataDictionariesForDictationResults self = msg_send ~self ~cmd:(selector "metadataDictionariesForDictationResults") ~typ:(returning id) +let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning id) x +let minSize self = msg_send ~self ~cmd:(selector "minSize") ~typ:(returning CGSize.t) +let nonEditingLinebreakMode self = msg_send ~self ~cmd:(selector "nonEditingLinebreakMode") ~typ:(returning llong) +let offsetFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "offsetFromPosition:toPosition:") ~typ:(id @-> id @-> returning llong) x toPosition +let padding self = msg_send ~self ~cmd:(selector "padding") ~typ:(returning UIEdgeInsets.t) +let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int offset) +let positionFromPosition' x ~inDirection ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:inDirection:offset:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int inDirection) (LLong.of_int offset) +let positionWithinRange x ~farthestInDirection self = msg_send ~self ~cmd:(selector "positionWithinRange:farthestInDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int farthestInDirection) +let rangeWithTextAlternatives x ~atPosition self = msg_send ~self ~cmd:(selector "rangeWithTextAlternatives:atPosition:") ~typ:((ptr id) @-> id @-> returning id) x atPosition +let removeDictationResultPlaceholder x ~willInsertResult self = msg_send ~self ~cmd:(selector "removeDictationResultPlaceholder:willInsertResult:") ~typ:(id @-> bool @-> returning void) x willInsertResult +let removeTextPlaceholder x self = msg_send ~self ~cmd:(selector "removeTextPlaceholder:") ~typ:(id @-> returning void) x +let replaceRange x ~withAttributedText self = msg_send ~self ~cmd:(selector "replaceRange:withAttributedText:") ~typ:(id @-> id @-> returning void) x withAttributedText +let replaceRange' x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning void) x withText +let replaceRangeWithTextWithoutClosingTyping x ~replacementText self = msg_send ~self ~cmd:(selector "replaceRangeWithTextWithoutClosingTyping:replacementText:") ~typ:(id @-> id @-> returning void) x replacementText +let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning bool) x +let scrollSelectionToVisible x self = msg_send ~self ~cmd:(selector "scrollSelectionToVisible:") ~typ:(bool @-> returning void) x +let scrollXOffset self = msg_send ~self ~cmd:(selector "scrollXOffset") ~typ:(returning int) +let scrollYOffset self = msg_send ~self ~cmd:(selector "scrollYOffset") ~typ:(returning int) +let selectAll self = msg_send ~self ~cmd:(selector "selectAll") ~typ:(returning void) +let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning id) +let selectionRange self = msg_send ~self ~cmd:(selector "selectionRange") ~typ:(returning NSRange.t) +let selectionRectsForRange x self = msg_send ~self ~cmd:(selector "selectionRectsForRange:") ~typ:(id @-> returning id) x +let setAllowsAttachments x self = msg_send ~self ~cmd:(selector "setAllowsAttachments:") ~typ:(bool @-> returning void) x +let setAttributedMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setAttributedMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning void) x selectedRange +let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning void) x +let setAttributedText' x ~andSetCaretSelectionAfterText self = msg_send ~self ~cmd:(selector "setAttributedText:andSetCaretSelectionAfterText:") ~typ:(id @-> bool @-> returning void) x andSetCaretSelectionAfterText +let setAttributedTextInRange x ~replacementText self = msg_send ~self ~cmd:(selector "setAttributedTextInRange:replacementText:") ~typ:(NSRange.t @-> id @-> returning void) x replacementText +let setAutoscrollContentOffset x self = msg_send ~self ~cmd:(selector "setAutoscrollContentOffset:") ~typ:(CGPoint.t @-> returning void) x +let setBaseWritingDirection x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) forRange +let setConstrainedFrameSize x self = msg_send ~self ~cmd:(selector "setConstrainedFrameSize:") ~typ:(CGSize.t @-> returning void) x +let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGPoint.t @-> returning void) x +let setContentOffset' x ~animated self = msg_send ~self ~cmd:(selector "setContentOffset:animated:") ~typ:(CGPoint.t @-> bool @-> returning void) x animated +let setDisplaySecureEditsUsingPlainText x self = msg_send ~self ~cmd:(selector "setDisplaySecureEditsUsingPlainText:") ~typ:(bool @-> returning void) x +let setDrawingFindIndicator x self = msg_send ~self ~cmd:(selector "setDrawingFindIndicator:") ~typ:(bool @-> returning void) x +let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning void) x +let setInputDelegate x self = msg_send ~self ~cmd:(selector "setInputDelegate:") ~typ:(id @-> returning void) x +let setLayoutOrientation x self = msg_send ~self ~cmd:(selector "setLayoutOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning void) x selectedRange +let setMarkedTextStyle x self = msg_send ~self ~cmd:(selector "setMarkedTextStyle:") ~typ:(id @-> returning void) x +let setNeedsDisplayInRect x ~avoidAdditionalLayout self = msg_send ~self ~cmd:(selector "setNeedsDisplayInRect:avoidAdditionalLayout:") ~typ:(CGRect.t @-> bool @-> returning void) x avoidAdditionalLayout +let setNonEditingLinebreakMode x self = msg_send ~self ~cmd:(selector "setNonEditingLinebreakMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPadding x self = msg_send ~self ~cmd:(selector "setPadding:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setScrollXOffset x ~scrollYOffset self = msg_send ~self ~cmd:(selector "setScrollXOffset:scrollYOffset:") ~typ:(int @-> int @-> returning void) x scrollYOffset +let setScrollXOffset' x ~scrollYOffset ~adjustForPurpleCaret self = msg_send ~self ~cmd:(selector "setScrollXOffset:scrollYOffset:adjustForPurpleCaret:") ~typ:(int @-> int @-> bool @-> returning void) x scrollYOffset adjustForPurpleCaret +let setSecureTextEntry x self = msg_send ~self ~cmd:(selector "setSecureTextEntry:") ~typ:(bool @-> returning void) x +let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning void) x +let setSelection x self = msg_send ~self ~cmd:(selector "setSelection:") ~typ:(NSRange.t @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let setText' x ~andSetCaretSelectionAfterText self = msg_send ~self ~cmd:(selector "setText:andSetCaretSelectionAfterText:") ~typ:(id @-> bool @-> returning void) x andSetCaretSelectionAfterText +let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning void) x +let setTextContainer x self = msg_send ~self ~cmd:(selector "setTextContainer:") ~typ:(id @-> returning void) x +let setTextInRange x ~replacementText self = msg_send ~self ~cmd:(selector "setTextInRange:replacementText:") ~typ:(NSRange.t @-> id @-> returning void) x replacementText +let setTypingAttributes x self = msg_send ~self ~cmd:(selector "setTypingAttributes:") ~typ:(id @-> returning void) x +let setUpClippingWithMaskForBounds x ~contentFrame self = msg_send ~self ~cmd:(selector "setUpClippingWithMaskForBounds:contentFrame:") ~typ:(CGRect.t @-> CGRect.t @-> returning bool) x contentFrame +let startAutoscroll x self = msg_send ~self ~cmd:(selector "startAutoscroll:") ~typ:(CGPoint.t @-> returning void) x +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning id) +let textColorForCaretSelection self = msg_send ~self ~cmd:(selector "textColorForCaretSelection") ~typ:(returning id) +let textContainer self = msg_send ~self ~cmd:(selector "textContainer") ~typ:(returning id) +let textContainerInset self = msg_send ~self ~cmd:(selector "textContainerInset") ~typ:(returning UIEdgeInsets.t) +let textContainerOrigin self = msg_send ~self ~cmd:(selector "textContainerOrigin") ~typ:(returning CGPoint.t) +let textContainerOriginForTextAlignment x self = msg_send ~self ~cmd:(selector "textContainerOriginForTextAlignment:") ~typ:(llong @-> returning CGPoint.t) (LLong.of_int x) +let textContainerUsageDidChangeToBounds x self = msg_send ~self ~cmd:(selector "textContainerUsageDidChangeToBounds:") ~typ:(CGRect.t @-> returning void) x +let textField self = msg_send ~self ~cmd:(selector "textField") ~typ:(returning id) +let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning id) x +let textInput x ~prepareAttributedTextForInsertion self = msg_send ~self ~cmd:(selector "textInput:prepareAttributedTextForInsertion:") ~typ:(id @-> id @-> returning void) x prepareAttributedTextForInsertion +let textInput1 x ~shouldChangeCharactersInRange ~replacementText self = msg_send ~self ~cmd:(selector "textInput:shouldChangeCharactersInRange:replacementText:") ~typ:(id @-> NSRange.t @-> id @-> returning bool) x shouldChangeCharactersInRange replacementText +let textInput2 x ~willChangeSelectionFromCharacterRange ~toCharacterRange self = msg_send ~self ~cmd:(selector "textInput:willChangeSelectionFromCharacterRange:toCharacterRange:") ~typ:(id @-> NSRange.t @-> NSRange.t @-> returning NSRange.t) x willChangeSelectionFromCharacterRange toCharacterRange +let textInputDidAnimatePaste x self = msg_send ~self ~cmd:(selector "textInputDidAnimatePaste:") ~typ:(id @-> returning void) x +let textInputDidChange x self = msg_send ~self ~cmd:(selector "textInputDidChange:") ~typ:(id @-> returning void) x +let textInputDidChangeSelection x self = msg_send ~self ~cmd:(selector "textInputDidChangeSelection:") ~typ:(id @-> returning void) x +let textInputShouldExtendCaretHeight x self = msg_send ~self ~cmd:(selector "textInputShouldExtendCaretHeight:") ~typ:(id @-> returning bool) x +let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning id) +let textInputView self = msg_send ~self ~cmd:(selector "textInputView") ~typ:(returning id) +let textInputWillAnimatePaste x self = msg_send ~self ~cmd:(selector "textInputWillAnimatePaste:") ~typ:(id @-> returning void) x +let textLayoutController self = msg_send ~self ~cmd:(selector "textLayoutController") ~typ:(returning id) +let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning id) x toPosition +let textStorage self = msg_send ~self ~cmd:(selector "textStorage") ~typ:(returning id) +let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let typingAttributes self = msg_send ~self ~cmd:(selector "typingAttributes") ~typ:(returning id) +let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning id) +let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning void) +let updateAutoscroll x self = msg_send ~self ~cmd:(selector "updateAutoscroll:") ~typ:(id @-> returning void) x +let updateInsertionPointStateAndRestartTimer x self = msg_send ~self ~cmd:(selector "updateInsertionPointStateAndRestartTimer:") ~typ:(bool @-> returning void) x +let visibleRect self = msg_send ~self ~cmd:(selector "visibleRect") ~typ:(returning CGRect.t) \ No newline at end of file diff --git a/uikit/UIFieldEditorClass.ml b/uikit/UIFieldEditorClass.ml new file mode 100644 index 00000000..982054c2 --- /dev/null +++ b/uikit/UIFieldEditorClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifieldeditor?language=objc}UIFieldEditor} *) + +let activeFieldEditor self = msg_send ~self ~cmd:(selector "activeFieldEditor") ~typ:(returning id) +let excludedElementsForHTML self = msg_send ~self ~cmd:(selector "excludedElementsForHTML") ~typ:(returning id) +let sharedFieldEditor self = msg_send ~self ~cmd:(selector "sharedFieldEditor") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIFlickingAssistantViewSupport.ml b/uikit/UIFlickingAssistantViewSupport.ml deleted file mode 100644 index e3e2fb62..00000000 --- a/uikit/UIFlickingAssistantViewSupport.ml +++ /dev/null @@ -1,27 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIFlickingAssistantViewSupport" - -let assistantFrame self = msg_send_stret ~self ~cmd:(selector "assistantFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let assistantPosition self = msg_send ~self ~cmd:(selector "assistantPosition") ~typ:(returning (ullong)) -let barOriginFromTouchPoint x self = msg_send_stret ~self ~cmd:(selector "barOriginFromTouchPoint:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didUpdateTransition self = msg_send ~self ~cmd:(selector "didUpdateTransition") ~typ:(returning (void)) -let draggingState self = msg_send ~self ~cmd:(selector "draggingState") ~typ:(returning (llong)) -let isCompact self = msg_send ~self ~cmd:(selector "isCompact") ~typ:(returning (bool)) -let isInputAssistantItemHidden self = msg_send ~self ~cmd:(selector "isInputAssistantItemHidden") ~typ:(returning (bool)) -let keyboardOriginFromAssistantViewPosition x self = msg_send_stret ~self ~cmd:(selector "keyboardOriginFromAssistantViewPosition:") ~typ:(llong @-> returning (CGPoint.t)) ~return_type:CGPoint.t (LLong.of_int x) -let panGestureHandler x self = msg_send ~self ~cmd:(selector "panGestureHandler:") ~typ:(id @-> returning (void)) x -let projectedLandingPointForGestureRecognizerEnd x self = msg_send_stret ~self ~cmd:(selector "projectedLandingPointForGestureRecognizerEnd:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let remotePlacement self = msg_send ~self ~cmd:(selector "remotePlacement") ~typ:(returning (id)) -let setCompact x self = msg_send ~self ~cmd:(selector "setCompact:") ~typ:(bool @-> returning (void)) x -let setDraggingState x self = msg_send ~self ~cmd:(selector "setDraggingState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setRemotePlacement x self = msg_send ~self ~cmd:(selector "setRemotePlacement:") ~typ:(id @-> returning (void)) x -let transitToDraggingVisualState x ~withTouchLocation self = msg_send ~self ~cmd:(selector "transitToDraggingVisualState:withTouchLocation:") ~typ:(llong @-> CGPoint.t @-> returning (void)) (LLong.of_int x) withTouchLocation -let updateTransition x ~animated self = msg_send ~self ~cmd:(selector "updateTransition:animated:") ~typ:(CGPoint.t @-> bool @-> returning (void)) x animated \ No newline at end of file diff --git a/uikit/UIFloatRange.ml b/uikit/UIFloatRange.ml index f37f0273..d1c0e215 100644 --- a/uikit/UIFloatRange.ml +++ b/uikit/UIFloatRange.ml @@ -3,6 +3,9 @@ open Runtime open Objc +[@@@ocaml.warning "-33"] +open Foundation + let t : [`UIFloatRange] structure typ = structure "_UIFloatRange" (** Apple docs: {{:https://developer.apple.com/documentation/uikit/_uifloatrange?language=objc}_UIFloatRange} *) @@ -11,5 +14,13 @@ let maximum = field t "maximum" double let () = seal t +let init + ~minimum:minimum_v + ~maximum:maximum_v + = + let t = make t in + setf t minimum minimum_v; + setf t maximum maximum_v; + t let minimum t = getf t minimum let maximum t = getf t maximum diff --git a/uikit/UIFocusAnimationCoordinator.ml b/uikit/UIFocusAnimationCoordinator.ml deleted file mode 100644 index 060c6778..00000000 --- a/uikit/UIFocusAnimationCoordinator.ml +++ /dev/null @@ -1,26 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIFocusAnimationCoordinator" - -let activeFocusAnimation self = msg_send ~self ~cmd:(selector "activeFocusAnimation") ~typ:(returning (llong)) -let addCoordinatedAnimations x ~completion self = msg_send ~self ~cmd:(selector "addCoordinatedAnimations:completion:") ~typ:(ptr void @-> ptr void @-> returning (void)) x completion -let addCoordinatedAnimationsForAnimation x ~animations ~completion self = msg_send ~self ~cmd:(selector "addCoordinatedAnimationsForAnimation:animations:completion:") ~typ:(llong @-> ptr void @-> ptr void @-> returning (void)) (LLong.of_int x) animations completion -let addCoordinatedFocusingAnimations x ~completion self = msg_send ~self ~cmd:(selector "addCoordinatedFocusingAnimations:completion:") ~typ:(ptr void @-> ptr void @-> returning (void)) x completion -let addCoordinatedUnfocusingAnimations x ~completion self = msg_send ~self ~cmd:(selector "addCoordinatedUnfocusingAnimations:completion:") ~typ:(ptr void @-> ptr void @-> returning (void)) x completion -let focusingAnimations self = msg_send ~self ~cmd:(selector "focusingAnimations") ~typ:(returning (id)) -let focusingCompletions self = msg_send ~self ~cmd:(selector "focusingCompletions") ~typ:(returning (id)) -let focusingConfiguration self = msg_send ~self ~cmd:(selector "focusingConfiguration") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let legacyFocusingAnimations self = msg_send ~self ~cmd:(selector "legacyFocusingAnimations") ~typ:(returning (id)) -let legacyUnfocusingAnimations self = msg_send ~self ~cmd:(selector "legacyUnfocusingAnimations") ~typ:(returning (id)) -let setFocusingConfiguration x self = msg_send ~self ~cmd:(selector "setFocusingConfiguration:") ~typ:(id @-> returning (void)) x -let setUnfocusingConfiguration x self = msg_send ~self ~cmd:(selector "setUnfocusingConfiguration:") ~typ:(id @-> returning (void)) x -let unfocusingAnimations self = msg_send ~self ~cmd:(selector "unfocusingAnimations") ~typ:(returning (id)) -let unfocusingCompletions self = msg_send ~self ~cmd:(selector "unfocusingCompletions") ~typ:(returning (id)) -let unfocusingConfiguration self = msg_send ~self ~cmd:(selector "unfocusingConfiguration") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIFocusEffect.ml b/uikit/UIFocusEffect.ml index 2e324f08..fcbfe6bf 100644 --- a/uikit/UIFocusEffect.ml +++ b/uikit/UIFocusEffect.ml @@ -5,12 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIFocusEffect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifocuseffect?language=objc}UIFocusEffect} *) -module Class = struct - let effect self = msg_send ~self ~cmd:(selector "effect") ~typ:(returning (id)) -end +let self = get_class "UIFocusEffect" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIFocusEffectClass.ml b/uikit/UIFocusEffectClass.ml new file mode 100644 index 00000000..40498965 --- /dev/null +++ b/uikit/UIFocusEffectClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifocuseffect?language=objc}UIFocusEffect} *) + +let effect self = msg_send ~self ~cmd:(selector "effect") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIFocusGuide.ml b/uikit/UIFocusGuide.ml index 5c9e071b..d71c58ed 100644 --- a/uikit/UIFocusGuide.ml +++ b/uikit/UIFocusGuide.ml @@ -5,26 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIFocusGuide" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifocusguide?language=objc}UIFocusGuide} *) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let focusGuideRegion x ~preferredFocusEnvironmentsForMovementRequest self = msg_send ~self ~cmd:(selector "focusGuideRegion:preferredFocusEnvironmentsForMovementRequest:") ~typ:(id @-> id @-> returning (id)) x preferredFocusEnvironmentsForMovementRequest -let focusGuideRegion' x ~willParticipateAsDestinationRegionInFocusUpdate self = msg_send ~self ~cmd:(selector "focusGuideRegion:willParticipateAsDestinationRegionInFocusUpdate:") ~typ:(id @-> id @-> returning (void)) x willParticipateAsDestinationRegionInFocusUpdate -let focusItemContainer self = msg_send ~self ~cmd:(selector "focusItemContainer") ~typ:(returning (id)) -let focusItemForSorting self = msg_send ~self ~cmd:(selector "focusItemForSorting") ~typ:(returning (id)) -let frame self = msg_send_stret ~self ~cmd:(selector "frame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let parentFocusEnvironment self = msg_send ~self ~cmd:(selector "parentFocusEnvironment") ~typ:(returning (id)) -let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning (id)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setNeedsFocusUpdate self = msg_send ~self ~cmd:(selector "setNeedsFocusUpdate") ~typ:(returning (void)) -let setPreferredFocusEnvironments x self = msg_send ~self ~cmd:(selector "setPreferredFocusEnvironments:") ~typ:(id @-> returning (void)) x -let setPreferredFocusedView x self = msg_send ~self ~cmd:(selector "setPreferredFocusedView:") ~typ:(id @-> returning (void)) x -let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning (bool)) x -let updateFocusIfNeeded self = msg_send ~self ~cmd:(selector "updateFocusIfNeeded") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIFocusGuide" + +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let focusGuideRegion x ~preferredFocusEnvironmentsForMovementRequest self = msg_send ~self ~cmd:(selector "focusGuideRegion:preferredFocusEnvironmentsForMovementRequest:") ~typ:(id @-> id @-> returning id) x preferredFocusEnvironmentsForMovementRequest +let focusGuideRegion' x ~willParticipateAsDestinationRegionInFocusUpdate self = msg_send ~self ~cmd:(selector "focusGuideRegion:willParticipateAsDestinationRegionInFocusUpdate:") ~typ:(id @-> id @-> returning void) x willParticipateAsDestinationRegionInFocusUpdate +let focusItemContainer self = msg_send ~self ~cmd:(selector "focusItemContainer") ~typ:(returning id) +let focusItemForSorting self = msg_send ~self ~cmd:(selector "focusItemForSorting") ~typ:(returning id) +let frame self = msg_send ~self ~cmd:(selector "frame") ~typ:(returning CGRect.t) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let parentFocusEnvironment self = msg_send ~self ~cmd:(selector "parentFocusEnvironment") ~typ:(returning id) +let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning id) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setNeedsFocusUpdate self = msg_send ~self ~cmd:(selector "setNeedsFocusUpdate") ~typ:(returning void) +let setPreferredFocusEnvironments x self = msg_send ~self ~cmd:(selector "setPreferredFocusEnvironments:") ~typ:(id @-> returning void) x +let setPreferredFocusedView x self = msg_send ~self ~cmd:(selector "setPreferredFocusedView:") ~typ:(id @-> returning void) x +let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning bool) x +let updateFocusIfNeeded self = msg_send ~self ~cmd:(selector "updateFocusIfNeeded") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIFocusHaloEffect.ml b/uikit/UIFocusHaloEffect.ml deleted file mode 100644 index e9a5482e..00000000 --- a/uikit/UIFocusHaloEffect.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIFocusHaloEffect" - -module C = struct - let effectWithPath x self = msg_send ~self ~cmd:(selector "effectWithPath:") ~typ:(id @-> returning (id)) x - let effectWithRect x self = msg_send ~self ~cmd:(selector "effectWithRect:") ~typ:(CGRect.t @-> returning (id)) x - let effectWithRoundedRect x ~cornerRadius ~curve self = msg_send ~self ~cmd:(selector "effectWithRoundedRect:cornerRadius:curve:") ~typ:(CGRect.t @-> double @-> id @-> returning (id)) x cornerRadius curve -end - -let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let position self = msg_send ~self ~cmd:(selector "position") ~typ:(returning (llong)) -let referenceView self = msg_send ~self ~cmd:(selector "referenceView") ~typ:(returning (id)) -let setContainerView x self = msg_send ~self ~cmd:(selector "setContainerView:") ~typ:(id @-> returning (void)) x -let setPosition x self = msg_send ~self ~cmd:(selector "setPosition:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setReferenceView x self = msg_send ~self ~cmd:(selector "setReferenceView:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIFocusMovementAction.ml b/uikit/UIFocusMovementAction.ml deleted file mode 100644 index 793bd2c8..00000000 --- a/uikit/UIFocusMovementAction.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIFocusMovementAction" - -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let focusMovementInfo self = msg_send ~self ~cmd:(selector "focusMovementInfo") ~typ:(returning (id)) -let focusedFrame self = msg_send_stret ~self ~cmd:(selector "focusedFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let initWithFocusMovementInfo x self = msg_send ~self ~cmd:(selector "initWithFocusMovementInfo:") ~typ:(id @-> returning (id)) x -let initWithFocusMovementInfo1 x ~inputDeviceInfo ~shouldPerformHapticFeedback self = msg_send ~self ~cmd:(selector "initWithFocusMovementInfo:inputDeviceInfo:shouldPerformHapticFeedback:") ~typ:(id @-> id @-> bool @-> returning (id)) x inputDeviceInfo shouldPerformHapticFeedback -let initWithFocusMovementInfo2 x ~inputDeviceInfo ~shouldPerformHapticFeedback ~focusedFrameInSceneCoordinateSpace self = msg_send ~self ~cmd:(selector "initWithFocusMovementInfo:inputDeviceInfo:shouldPerformHapticFeedback:focusedFrameInSceneCoordinateSpace:") ~typ:(id @-> id @-> bool @-> CGRect.t @-> returning (id)) x inputDeviceInfo shouldPerformHapticFeedback focusedFrameInSceneCoordinateSpace -let inputDeviceInfo self = msg_send ~self ~cmd:(selector "inputDeviceInfo") ~typ:(returning (id)) -let shouldPerformHapticFeedback self = msg_send ~self ~cmd:(selector "shouldPerformHapticFeedback") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIFocusMovementHint.ml b/uikit/UIFocusMovementHint.ml deleted file mode 100644 index e924cc50..00000000 --- a/uikit/UIFocusMovementHint.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIFocusMovementHint" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithMovementDirection x ~itemSize self = msg_send ~self ~cmd:(selector "initWithMovementDirection:itemSize:") ~typ:(ptr void @-> CGSize.t @-> returning (id)) x itemSize -let rotationAmount self = msg_send ~self ~cmd:(selector "rotationAmount") ~typ:(returning (double)) -let setRotationAmount x self = msg_send ~self ~cmd:(selector "setRotationAmount:") ~typ:(double @-> returning (void)) x -let setTranslationAmount x self = msg_send ~self ~cmd:(selector "setTranslationAmount:") ~typ:(double @-> returning (void)) x -let translationAmount self = msg_send ~self ~cmd:(selector "translationAmount") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit/UIFocusRingClientState.ml b/uikit/UIFocusRingClientState.ml deleted file mode 100644 index 34cf37e4..00000000 --- a/uikit/UIFocusRingClientState.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIFocusRingClientState" - -let activeFocusLayers self = msg_send ~self ~cmd:(selector "activeFocusLayers") ~typ:(returning (id)) -let activeFocusLayersToItems self = msg_send ~self ~cmd:(selector "activeFocusLayersToItems") ~typ:(returning (id)) -let clientID self = msg_send ~self ~cmd:(selector "clientID") ~typ:(returning (id)) -let currentFocusItem self = msg_send ~self ~cmd:(selector "currentFocusItem") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let initWithClientID x self = msg_send ~self ~cmd:(selector "initWithClientID:") ~typ:(id @-> returning (id)) x -let setActiveFocusLayers x self = msg_send ~self ~cmd:(selector "setActiveFocusLayers:") ~typ:(id @-> returning (void)) x -let setActiveFocusLayersToItems x self = msg_send ~self ~cmd:(selector "setActiveFocusLayersToItems:") ~typ:(id @-> returning (void)) x -let setClientID x self = msg_send ~self ~cmd:(selector "setClientID:") ~typ:(id @-> returning (void)) x -let setCurrentFocusItem x self = msg_send ~self ~cmd:(selector "setCurrentFocusItem:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIFocusRingManager.ml b/uikit/UIFocusRingManager.ml deleted file mode 100644 index 00cf31a0..00000000 --- a/uikit/UIFocusRingManager.ml +++ /dev/null @@ -1,31 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIFocusRingManager" - -module C = struct - let focusRingAvailable self = msg_send ~self ~cmd:(selector "focusRingAvailable") ~typ:(returning (bool)) - let manager self = msg_send ~self ~cmd:(selector "manager") ~typ:(returning (id)) - let moveRingToFocusItem x self = msg_send ~self ~cmd:(selector "moveRingToFocusItem:") ~typ:(id @-> returning (void)) x - let moveRingToFocusItem' x ~forClient self = msg_send ~self ~cmd:(selector "moveRingToFocusItem:forClient:") ~typ:(id @-> id @-> returning (void)) x forClient - let removeRingFromFocusItem x self = msg_send ~self ~cmd:(selector "removeRingFromFocusItem:") ~typ:(id @-> returning (void)) x - let removeRingFromFocusItem' x ~forClient self = msg_send ~self ~cmd:(selector "removeRingFromFocusItem:forClient:") ~typ:(id @-> id @-> returning (void)) x forClient - let shapeLayerClassForItem x ~client self = msg_send ~self ~cmd:(selector "shapeLayerClassForItem:client:") ~typ:(id @-> id @-> returning (_Class)) x client - let updateRingForFocusItem x self = msg_send ~self ~cmd:(selector "updateRingForFocusItem:") ~typ:(id @-> returning (void)) x - let updateRingForFocusItem' x ~forClient self = msg_send ~self ~cmd:(selector "updateRingForFocusItem:forClient:") ~typ:(id @-> id @-> returning (void)) x forClient -end - -let activeFocusLayersForClient x self = msg_send ~self ~cmd:(selector "activeFocusLayersForClient:") ~typ:(id @-> returning (id)) x -let activeFocusLayersToItemsForClient x self = msg_send ~self ~cmd:(selector "activeFocusLayersToItemsForClient:") ~typ:(id @-> returning (id)) x -let addFocusRingForItem x ~forClient self = msg_send ~self ~cmd:(selector "addFocusRingForItem:forClient:") ~typ:(id @-> id @-> returning (void)) x forClient -let addParentFocusRingForItem x ~forClient self = msg_send ~self ~cmd:(selector "addParentFocusRingForItem:forClient:") ~typ:(id @-> id @-> returning (void)) x forClient -let addSelectedFocusRingForItem x ~forClient self = msg_send ~self ~cmd:(selector "addSelectedFocusRingForItem:forClient:") ~typ:(id @-> id @-> returning (void)) x forClient -let addSelectedParentFocusRingForItem x ~forClient self = msg_send ~self ~cmd:(selector "addSelectedParentFocusRingForItem:forClient:") ~typ:(id @-> id @-> returning (void)) x forClient -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let focusRingStateForClient self = msg_send ~self ~cmd:(selector "focusRingStateForClient") ~typ:(returning (id)) -let setFocusRingStateForClient x self = msg_send ~self ~cmd:(selector "setFocusRingStateForClient:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIFocusSystem.ml b/uikit/UIFocusSystem.ml index 384a78f9..9d5e32d0 100644 --- a/uikit/UIFocusSystem.ml +++ b/uikit/UIFocusSystem.ml @@ -5,29 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIFocusSystem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifocussystem?language=objc}UIFocusSystem} *) -module C = struct - let environment x ~containsEnvironment self = msg_send ~self ~cmd:(selector "environment:containsEnvironment:") ~typ:(id @-> id @-> returning (bool)) x containsEnvironment - let focusSystemForEnvironment x self = msg_send ~self ~cmd:(selector "focusSystemForEnvironment:") ~typ:(id @-> returning (id)) x - let registerURL x ~forSoundIdentifier self = msg_send ~self ~cmd:(selector "registerURL:forSoundIdentifier:") ~typ:(id @-> id @-> returning (void)) x forSoundIdentifier -end +let self = get_class "UIFocusSystem" -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let focusItemContainer self = msg_send ~self ~cmd:(selector "focusItemContainer") ~typ:(returning (id)) -let focusedItem self = msg_send ~self ~cmd:(selector "focusedItem") ~typ:(returning (id)) -let focusedWindowForFocusCastingController x self = msg_send ~self ~cmd:(selector "focusedWindowForFocusCastingController:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let parentFocusEnvironment self = msg_send ~self ~cmd:(selector "parentFocusEnvironment") ~typ:(returning (id)) -let pendingFocusMovementAction self = msg_send ~self ~cmd:(selector "pendingFocusMovementAction") ~typ:(returning (id)) -let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning (id)) -let requestFocusUpdateToEnvironment x self = msg_send ~self ~cmd:(selector "requestFocusUpdateToEnvironment:") ~typ:(id @-> returning (void)) x -let setNeedsFocusUpdate self = msg_send ~self ~cmd:(selector "setNeedsFocusUpdate") ~typ:(returning (void)) -let setPendingFocusMovementAction x self = msg_send ~self ~cmd:(selector "setPendingFocusMovementAction:") ~typ:(id @-> returning (void)) x -let setWaitingForFocusMovementAction x self = msg_send ~self ~cmd:(selector "setWaitingForFocusMovementAction:") ~typ:(bool @-> returning (void)) x -let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning (bool)) x -let updateFocusIfNeeded self = msg_send ~self ~cmd:(selector "updateFocusIfNeeded") ~typ:(returning (void)) -let updateThrottle self = msg_send ~self ~cmd:(selector "updateThrottle") ~typ:(returning (id)) -let waitingForFocusMovementAction self = msg_send ~self ~cmd:(selector "waitingForFocusMovementAction") ~typ:(returning (bool)) \ No newline at end of file +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let focusItemContainer self = msg_send ~self ~cmd:(selector "focusItemContainer") ~typ:(returning id) +let focusedItem self = msg_send ~self ~cmd:(selector "focusedItem") ~typ:(returning id) +let focusedWindowForFocusCastingController x self = msg_send ~self ~cmd:(selector "focusedWindowForFocusCastingController:") ~typ:(id @-> returning id) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let parentFocusEnvironment self = msg_send ~self ~cmd:(selector "parentFocusEnvironment") ~typ:(returning id) +let pendingFocusMovementAction self = msg_send ~self ~cmd:(selector "pendingFocusMovementAction") ~typ:(returning id) +let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning id) +let requestFocusUpdateToEnvironment x self = msg_send ~self ~cmd:(selector "requestFocusUpdateToEnvironment:") ~typ:(id @-> returning void) x +let setNeedsFocusUpdate self = msg_send ~self ~cmd:(selector "setNeedsFocusUpdate") ~typ:(returning void) +let setPendingFocusMovementAction x self = msg_send ~self ~cmd:(selector "setPendingFocusMovementAction:") ~typ:(id @-> returning void) x +let setWaitingForFocusMovementAction x self = msg_send ~self ~cmd:(selector "setWaitingForFocusMovementAction:") ~typ:(bool @-> returning void) x +let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning bool) x +let updateFocusIfNeeded self = msg_send ~self ~cmd:(selector "updateFocusIfNeeded") ~typ:(returning void) +let updateThrottle self = msg_send ~self ~cmd:(selector "updateThrottle") ~typ:(returning id) +let waitingForFocusMovementAction self = msg_send ~self ~cmd:(selector "waitingForFocusMovementAction") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIFocusSystemClass.ml b/uikit/UIFocusSystemClass.ml new file mode 100644 index 00000000..a1bf30e7 --- /dev/null +++ b/uikit/UIFocusSystemClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifocussystem?language=objc}UIFocusSystem} *) + +let environment x ~containsEnvironment self = msg_send ~self ~cmd:(selector "environment:containsEnvironment:") ~typ:(id @-> id @-> returning bool) x containsEnvironment +let focusSystemForEnvironment x self = msg_send ~self ~cmd:(selector "focusSystemForEnvironment:") ~typ:(id @-> returning id) x +let registerURL x ~forSoundIdentifier self = msg_send ~self ~cmd:(selector "registerURL:forSoundIdentifier:") ~typ:(id @-> id @-> returning void) x forSoundIdentifier \ No newline at end of file diff --git a/uikit/UIFocusUpdateContext.ml b/uikit/UIFocusUpdateContext.ml index e6251971..0a625206 100644 --- a/uikit/UIFocusUpdateContext.ml +++ b/uikit/UIFocusUpdateContext.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIFocusUpdateContext" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifocusupdatecontext?language=objc}UIFocusUpdateContext} *) -let debugQuickLookObject self = msg_send ~self ~cmd:(selector "debugQuickLookObject") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let focusBehavior self = msg_send ~self ~cmd:(selector "focusBehavior") ~typ:(returning (id)) -let focusHeading self = msg_send ~self ~cmd:(selector "focusHeading") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let nextFocusedItem self = msg_send ~self ~cmd:(selector "nextFocusedItem") ~typ:(returning (id)) -let nextFocusedView self = msg_send ~self ~cmd:(selector "nextFocusedView") ~typ:(returning (id)) -let previouslyFocusedItem self = msg_send ~self ~cmd:(selector "previouslyFocusedItem") ~typ:(returning (id)) -let previouslyFocusedView self = msg_send ~self ~cmd:(selector "previouslyFocusedView") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIFocusUpdateContext" + +let debugQuickLookObject self = msg_send ~self ~cmd:(selector "debugQuickLookObject") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let focusBehavior self = msg_send ~self ~cmd:(selector "focusBehavior") ~typ:(returning id) +let focusHeading self = msg_send ~self ~cmd:(selector "focusHeading") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let nextFocusedItem self = msg_send ~self ~cmd:(selector "nextFocusedItem") ~typ:(returning id) +let nextFocusedView self = msg_send ~self ~cmd:(selector "nextFocusedView") ~typ:(returning id) +let previouslyFocusedItem self = msg_send ~self ~cmd:(selector "previouslyFocusedItem") ~typ:(returning id) +let previouslyFocusedView self = msg_send ~self ~cmd:(selector "previouslyFocusedView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIFontMetrics.ml b/uikit/UIFontMetrics.ml index 5912eac3..97e9af7e 100644 --- a/uikit/UIFontMetrics.ml +++ b/uikit/UIFontMetrics.ml @@ -5,20 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIFontMetrics" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifontmetrics?language=objc}UIFontMetrics} *) -module C = struct - let defaultMetrics self = msg_send ~self ~cmd:(selector "defaultMetrics") ~typ:(returning (id)) - let metricsForTextStyle x self = msg_send ~self ~cmd:(selector "metricsForTextStyle:") ~typ:(id @-> returning (id)) x - let scaledValueForValue x ~withTextStyle ~bodyLeading ~compatibleWithTraitCollection self = msg_send ~self ~cmd:(selector "scaledValueForValue:withTextStyle:bodyLeading:compatibleWithTraitCollection:") ~typ:(double @-> id @-> double @-> id @-> returning (double)) x withTextStyle bodyLeading compatibleWithTraitCollection -end +let self = get_class "UIFontMetrics" -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initForTextStyle x self = msg_send ~self ~cmd:(selector "initForTextStyle:") ~typ:(id @-> returning (id)) x -let scaledFontForFont x self = msg_send ~self ~cmd:(selector "scaledFontForFont:") ~typ:(id @-> returning (id)) x -let scaledFontForFont1 x ~compatibleWithTraitCollection self = msg_send ~self ~cmd:(selector "scaledFontForFont:compatibleWithTraitCollection:") ~typ:(id @-> id @-> returning (id)) x compatibleWithTraitCollection -let scaledFontForFont2 x ~maximumPointSize self = msg_send ~self ~cmd:(selector "scaledFontForFont:maximumPointSize:") ~typ:(id @-> double @-> returning (id)) x maximumPointSize -let scaledFontForFont3 x ~maximumPointSize ~compatibleWithTraitCollection self = msg_send ~self ~cmd:(selector "scaledFontForFont:maximumPointSize:compatibleWithTraitCollection:") ~typ:(id @-> double @-> id @-> returning (id)) x maximumPointSize compatibleWithTraitCollection -let scaledValueForValue x self = msg_send ~self ~cmd:(selector "scaledValueForValue:") ~typ:(double @-> returning (double)) x -let scaledValueForValue' x ~compatibleWithTraitCollection self = msg_send ~self ~cmd:(selector "scaledValueForValue:compatibleWithTraitCollection:") ~typ:(double @-> id @-> returning (double)) x compatibleWithTraitCollection \ No newline at end of file +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initForTextStyle x self = msg_send ~self ~cmd:(selector "initForTextStyle:") ~typ:(id @-> returning id) x +let scaledFontForFont x self = msg_send ~self ~cmd:(selector "scaledFontForFont:") ~typ:(id @-> returning id) x +let scaledFontForFont1 x ~compatibleWithTraitCollection self = msg_send ~self ~cmd:(selector "scaledFontForFont:compatibleWithTraitCollection:") ~typ:(id @-> id @-> returning id) x compatibleWithTraitCollection +let scaledFontForFont2 x ~maximumPointSize self = msg_send ~self ~cmd:(selector "scaledFontForFont:maximumPointSize:") ~typ:(id @-> double @-> returning id) x maximumPointSize +let scaledFontForFont3 x ~maximumPointSize ~compatibleWithTraitCollection self = msg_send ~self ~cmd:(selector "scaledFontForFont:maximumPointSize:compatibleWithTraitCollection:") ~typ:(id @-> double @-> id @-> returning id) x maximumPointSize compatibleWithTraitCollection +let scaledValueForValue x self = msg_send ~self ~cmd:(selector "scaledValueForValue:") ~typ:(double @-> returning double) x +let scaledValueForValue' x ~compatibleWithTraitCollection self = msg_send ~self ~cmd:(selector "scaledValueForValue:compatibleWithTraitCollection:") ~typ:(double @-> id @-> returning double) x compatibleWithTraitCollection \ No newline at end of file diff --git a/uikit/UIFontMetricsClass.ml b/uikit/UIFontMetricsClass.ml new file mode 100644 index 00000000..613c13f6 --- /dev/null +++ b/uikit/UIFontMetricsClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifontmetrics?language=objc}UIFontMetrics} *) + +let defaultMetrics self = msg_send ~self ~cmd:(selector "defaultMetrics") ~typ:(returning id) +let metricsForTextStyle x self = msg_send ~self ~cmd:(selector "metricsForTextStyle:") ~typ:(id @-> returning id) x +let scaledValueForValue x ~withTextStyle ~bodyLeading ~compatibleWithTraitCollection self = msg_send ~self ~cmd:(selector "scaledValueForValue:withTextStyle:bodyLeading:compatibleWithTraitCollection:") ~typ:(double @-> id @-> double @-> id @-> returning double) x withTextStyle bodyLeading compatibleWithTraitCollection \ No newline at end of file diff --git a/uikit/UIFontPickerController.ml b/uikit/UIFontPickerController.ml index 997d6c88..cb78284f 100644 --- a/uikit/UIFontPickerController.ml +++ b/uikit/UIFontPickerController.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIFontPickerController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifontpickercontroller?language=objc}UIFontPickerController} *) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let mode self = msg_send ~self ~cmd:(selector "mode") ~typ:(returning (ullong)) -let pickerDidCancel self = msg_send ~self ~cmd:(selector "pickerDidCancel") ~typ:(returning (void)) -let pickerDidSelectFont x self = msg_send ~self ~cmd:(selector "pickerDidSelectFont:") ~typ:(ptr void @-> returning (void)) x -let presentFontPickerFromBarButtonItem x ~animated self = msg_send ~self ~cmd:(selector "presentFontPickerFromBarButtonItem:animated:") ~typ:(id @-> bool @-> returning (bool)) x animated -let presentFontPickerFromRect x ~inView ~animated self = msg_send ~self ~cmd:(selector "presentFontPickerFromRect:inView:animated:") ~typ:(CGRect.t @-> id @-> bool @-> returning (bool)) x inView animated -let remoteViewController self = msg_send ~self ~cmd:(selector "remoteViewController") ~typ:(returning (id)) -let selectedFont self = msg_send ~self ~cmd:(selector "selectedFont") ~typ:(returning (id)) -let selectedFontDescriptor self = msg_send ~self ~cmd:(selector "selectedFontDescriptor") ~typ:(returning (id)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setMode x self = msg_send ~self ~cmd:(selector "setMode:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setSelectedFont x self = msg_send ~self ~cmd:(selector "setSelectedFont:") ~typ:(id @-> returning (void)) x -let setSelectedFontDescriptor x self = msg_send ~self ~cmd:(selector "setSelectedFontDescriptor:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIFontPickerController" + +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let mode self = msg_send ~self ~cmd:(selector "mode") ~typ:(returning ullong) +let pickerDidCancel self = msg_send ~self ~cmd:(selector "pickerDidCancel") ~typ:(returning void) +let pickerDidSelectFont x self = msg_send ~self ~cmd:(selector "pickerDidSelectFont:") ~typ:((ptr CTFontDescriptor.t) @-> returning void) x +let presentFontPickerFromBarButtonItem x ~animated self = msg_send ~self ~cmd:(selector "presentFontPickerFromBarButtonItem:animated:") ~typ:(id @-> bool @-> returning bool) x animated +let presentFontPickerFromRect x ~inView ~animated self = msg_send ~self ~cmd:(selector "presentFontPickerFromRect:inView:animated:") ~typ:(CGRect.t @-> id @-> bool @-> returning bool) x inView animated +let remoteViewController self = msg_send ~self ~cmd:(selector "remoteViewController") ~typ:(returning id) +let selectedFont self = msg_send ~self ~cmd:(selector "selectedFont") ~typ:(returning id) +let selectedFontDescriptor self = msg_send ~self ~cmd:(selector "selectedFontDescriptor") ~typ:(returning id) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setMode x self = msg_send ~self ~cmd:(selector "setMode:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setSelectedFont x self = msg_send ~self ~cmd:(selector "setSelectedFont:") ~typ:(id @-> returning void) x +let setSelectedFontDescriptor x self = msg_send ~self ~cmd:(selector "setSelectedFontDescriptor:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIFontPickerViewController.ml b/uikit/UIFontPickerViewController.ml index 923a25bb..ebbfb9a0 100644 --- a/uikit/UIFontPickerViewController.ml +++ b/uikit/UIFontPickerViewController.ml @@ -5,28 +5,32 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIFontPickerViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifontpickerviewcontroller?language=objc}UIFontPickerViewController} *) -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let dismissViewControllerWithTransition x ~completion self = msg_send ~self ~cmd:(selector "dismissViewControllerWithTransition:completion:") ~typ:(int @-> ptr void @-> returning (void)) x completion -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let extension self = msg_send ~self ~cmd:(selector "extension") ~typ:(returning (id)) -let extensionRequestIdentifier self = msg_send ~self ~cmd:(selector "extensionRequestIdentifier") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithConfiguration x self = msg_send ~self ~cmd:(selector "initWithConfiguration:") ~typ:(id @-> returning (id)) x -let initWithMode x self = msg_send ~self ~cmd:(selector "initWithMode:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let initWithSelectedFont x ~inMode self = msg_send ~self ~cmd:(selector "initWithSelectedFont:inMode:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int inMode) -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let pickerDidCancel self = msg_send ~self ~cmd:(selector "pickerDidCancel") ~typ:(returning (void)) -let pickerDidSelectFont x self = msg_send ~self ~cmd:(selector "pickerDidSelectFont:") ~typ:(ptr void @-> returning (void)) x -let remoteViewController self = msg_send ~self ~cmd:(selector "remoteViewController") ~typ:(returning (id)) -let selectedFontDescriptor self = msg_send ~self ~cmd:(selector "selectedFontDescriptor") ~typ:(returning (id)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setExtension x self = msg_send ~self ~cmd:(selector "setExtension:") ~typ:(id @-> returning (void)) x -let setExtensionRequestIdentifier x self = msg_send ~self ~cmd:(selector "setExtensionRequestIdentifier:") ~typ:(id @-> returning (void)) x -let setSelectedFontDescriptor x self = msg_send ~self ~cmd:(selector "setSelectedFontDescriptor:") ~typ:(id @-> returning (void)) x -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIFontPickerViewController" + +let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let dismissViewControllerWithTransition x ~completion self = msg_send ~self ~cmd:(selector "dismissViewControllerWithTransition:completion:") ~typ:(int @-> (ptr void) @-> returning void) x completion +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let extension self = msg_send ~self ~cmd:(selector "extension") ~typ:(returning id) +let extensionRequestIdentifier self = msg_send ~self ~cmd:(selector "extensionRequestIdentifier") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithConfiguration x self = msg_send ~self ~cmd:(selector "initWithConfiguration:") ~typ:(id @-> returning id) x +let initWithMode x self = msg_send ~self ~cmd:(selector "initWithMode:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let initWithSelectedFont x ~inMode self = msg_send ~self ~cmd:(selector "initWithSelectedFont:inMode:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int inMode) +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let pickerDidCancel self = msg_send ~self ~cmd:(selector "pickerDidCancel") ~typ:(returning void) +let pickerDidSelectFont x self = msg_send ~self ~cmd:(selector "pickerDidSelectFont:") ~typ:((ptr CTFontDescriptor.t) @-> returning void) x +let remoteViewController self = msg_send ~self ~cmd:(selector "remoteViewController") ~typ:(returning id) +let selectedFontDescriptor self = msg_send ~self ~cmd:(selector "selectedFontDescriptor") ~typ:(returning id) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setExtension x self = msg_send ~self ~cmd:(selector "setExtension:") ~typ:(id @-> returning void) x +let setExtensionRequestIdentifier x self = msg_send ~self ~cmd:(selector "setExtensionRequestIdentifier:") ~typ:(id @-> returning void) x +let setSelectedFontDescriptor x self = msg_send ~self ~cmd:(selector "setSelectedFontDescriptor:") ~typ:(id @-> returning void) x +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIFontPickerViewControllerConfiguration.ml b/uikit/UIFontPickerViewControllerConfiguration.ml deleted file mode 100644 index 4c32655b..00000000 --- a/uikit/UIFontPickerViewControllerConfiguration.ml +++ /dev/null @@ -1,27 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIFontPickerViewControllerConfiguration" - -module C = struct - let filterPredicateForFilteredLanguages x self = msg_send ~self ~cmd:(selector "filterPredicateForFilteredLanguages:") ~typ:(id @-> returning (id)) x - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let displayUsingSystemFont self = msg_send ~self ~cmd:(selector "displayUsingSystemFont") ~typ:(returning (bool)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let filteredLanguagesPredicate self = msg_send ~self ~cmd:(selector "filteredLanguagesPredicate") ~typ:(returning (id)) -let filteredTraits self = msg_send ~self ~cmd:(selector "filteredTraits") ~typ:(returning (uint)) -let includeFaces self = msg_send ~self ~cmd:(selector "includeFaces") ~typ:(returning (bool)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let setDisplayUsingSystemFont x self = msg_send ~self ~cmd:(selector "setDisplayUsingSystemFont:") ~typ:(bool @-> returning (void)) x -let setFilteredLanguagesPredicate x self = msg_send ~self ~cmd:(selector "setFilteredLanguagesPredicate:") ~typ:(id @-> returning (void)) x -let setFilteredTraits x self = msg_send ~self ~cmd:(selector "setFilteredTraits:") ~typ:(uint @-> returning (void)) x -let setIncludeFaces x self = msg_send ~self ~cmd:(selector "setIncludeFaces:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIForceStageInteractionProgress.ml b/uikit/UIForceStageInteractionProgress.ml deleted file mode 100644 index 8651a380..00000000 --- a/uikit/UIForceStageInteractionProgress.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIForceStageInteractionProgress" - -let completesAtTargetState self = msg_send ~self ~cmd:(selector "completesAtTargetState") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let receiveObservedValue x self = msg_send ~self ~cmd:(selector "receiveObservedValue:") ~typ:(id @-> returning (void)) x -let setCompletesAtTargetState x self = msg_send ~self ~cmd:(selector "setCompletesAtTargetState:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIFrameAnimation.ml b/uikit/UIFrameAnimation.ml index 7c52b4d9..a8170921 100644 --- a/uikit/UIFrameAnimation.ml +++ b/uikit/UIFrameAnimation.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIFrameAnimation" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiframeanimation?language=objc}UIFrameAnimation} *) -let endFrame self = msg_send_stret ~self ~cmd:(selector "endFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let initWithTarget x self = msg_send ~self ~cmd:(selector "initWithTarget:") ~typ:(id @-> returning (id)) x -let setEndFrame x self = msg_send ~self ~cmd:(selector "setEndFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(float @-> returning (void)) x -let setSignificantRectFields x self = msg_send ~self ~cmd:(selector "setSignificantRectFields:") ~typ:(int @-> returning (void)) x -let setStartFrame x self = msg_send ~self ~cmd:(selector "setStartFrame:") ~typ:(CGRect.t @-> returning (void)) x \ No newline at end of file +let self = get_class "UIFrameAnimation" + +let endFrame self = msg_send ~self ~cmd:(selector "endFrame") ~typ:(returning CGRect.t) +let initWithTarget x self = msg_send ~self ~cmd:(selector "initWithTarget:") ~typ:(id @-> returning id) x +let setEndFrame x self = msg_send ~self ~cmd:(selector "setEndFrame:") ~typ:(CGRect.t @-> returning void) x +let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(float @-> returning void) x +let setSignificantRectFields x self = msg_send ~self ~cmd:(selector "setSignificantRectFields:") ~typ:(int @-> returning void) x +let setStartFrame x self = msg_send ~self ~cmd:(selector "setStartFrame:") ~typ:(CGRect.t @-> returning void) x \ No newline at end of file diff --git a/uikit/UIGestureDelayedPress.ml b/uikit/UIGestureDelayedPress.ml index 7c7d31de..433b60fb 100644 --- a/uikit/UIGestureDelayedPress.ml +++ b/uikit/UIGestureDelayedPress.ml @@ -5,25 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGestureDelayedPress" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigesturedelayedpress?language=objc}UIGestureDelayedPress} *) -let cloneForSecondDelivery self = msg_send ~self ~cmd:(selector "cloneForSecondDelivery") ~typ:(returning (bool)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let decrementDelayCount self = msg_send ~self ~cmd:(selector "decrementDelayCount") ~typ:(returning (llong)) -let delayCount self = msg_send ~self ~cmd:(selector "delayCount") ~typ:(returning (llong)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let event self = msg_send ~self ~cmd:(selector "event") ~typ:(returning (id)) -let incrementDelayCount self = msg_send ~self ~cmd:(selector "incrementDelayCount") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let phaseForDelivery self = msg_send ~self ~cmd:(selector "phaseForDelivery") ~typ:(returning (llong)) -let press self = msg_send ~self ~cmd:(selector "press") ~typ:(returning (id)) -let saveCurrentPressState self = msg_send ~self ~cmd:(selector "saveCurrentPressState") ~typ:(returning (void)) -let setCloneForSecondDelivery x self = msg_send ~self ~cmd:(selector "setCloneForSecondDelivery:") ~typ:(bool @-> returning (void)) x -let setEvent x self = msg_send ~self ~cmd:(selector "setEvent:") ~typ:(id @-> returning (void)) x -let setPress x self = msg_send ~self ~cmd:(selector "setPress:") ~typ:(id @-> returning (void)) x -let setStateWhenDelayed x self = msg_send ~self ~cmd:(selector "setStateWhenDelayed:") ~typ:(id @-> returning (void)) x -let setStateWhenDelivered x self = msg_send ~self ~cmd:(selector "setStateWhenDelivered:") ~typ:(id @-> returning (void)) x -let stateWhenDelayed self = msg_send ~self ~cmd:(selector "stateWhenDelayed") ~typ:(returning (id)) -let stateWhenDelivered self = msg_send ~self ~cmd:(selector "stateWhenDelivered") ~typ:(returning (id)) -let timestampForDelivery self = msg_send ~self ~cmd:(selector "timestampForDelivery") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIGestureDelayedPress" + +let cloneForSecondDelivery self = msg_send ~self ~cmd:(selector "cloneForSecondDelivery") ~typ:(returning bool) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let decrementDelayCount self = msg_send ~self ~cmd:(selector "decrementDelayCount") ~typ:(returning llong) +let delayCount self = msg_send ~self ~cmd:(selector "delayCount") ~typ:(returning llong) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let event self = msg_send ~self ~cmd:(selector "event") ~typ:(returning id) +let incrementDelayCount self = msg_send ~self ~cmd:(selector "incrementDelayCount") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let phaseForDelivery self = msg_send ~self ~cmd:(selector "phaseForDelivery") ~typ:(returning llong) +let press self = msg_send ~self ~cmd:(selector "press") ~typ:(returning id) +let saveCurrentPressState self = msg_send ~self ~cmd:(selector "saveCurrentPressState") ~typ:(returning void) +let setCloneForSecondDelivery x self = msg_send ~self ~cmd:(selector "setCloneForSecondDelivery:") ~typ:(bool @-> returning void) x +let setEvent x self = msg_send ~self ~cmd:(selector "setEvent:") ~typ:(id @-> returning void) x +let setPress x self = msg_send ~self ~cmd:(selector "setPress:") ~typ:(id @-> returning void) x +let setStateWhenDelayed x self = msg_send ~self ~cmd:(selector "setStateWhenDelayed:") ~typ:(id @-> returning void) x +let setStateWhenDelivered x self = msg_send ~self ~cmd:(selector "setStateWhenDelivered:") ~typ:(id @-> returning void) x +let stateWhenDelayed self = msg_send ~self ~cmd:(selector "stateWhenDelayed") ~typ:(returning id) +let stateWhenDelivered self = msg_send ~self ~cmd:(selector "stateWhenDelivered") ~typ:(returning id) +let timestampForDelivery self = msg_send ~self ~cmd:(selector "timestampForDelivery") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIGestureDelayedTouch.ml b/uikit/UIGestureDelayedTouch.ml index b10cb27a..f56d7d24 100644 --- a/uikit/UIGestureDelayedTouch.ml +++ b/uikit/UIGestureDelayedTouch.ml @@ -5,25 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGestureDelayedTouch" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigesturedelayedtouch?language=objc}UIGestureDelayedTouch} *) -let cloneForSecondDelivery self = msg_send ~self ~cmd:(selector "cloneForSecondDelivery") ~typ:(returning (bool)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let decrementDelayCount self = msg_send ~self ~cmd:(selector "decrementDelayCount") ~typ:(returning (llong)) -let delayCount self = msg_send ~self ~cmd:(selector "delayCount") ~typ:(returning (llong)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let event self = msg_send ~self ~cmd:(selector "event") ~typ:(returning (id)) -let incrementDelayCount self = msg_send ~self ~cmd:(selector "incrementDelayCount") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let phaseForDelivery self = msg_send ~self ~cmd:(selector "phaseForDelivery") ~typ:(returning (llong)) -let saveCurrentTouchState self = msg_send ~self ~cmd:(selector "saveCurrentTouchState") ~typ:(returning (void)) -let setCloneForSecondDelivery x self = msg_send ~self ~cmd:(selector "setCloneForSecondDelivery:") ~typ:(bool @-> returning (void)) x -let setEvent x self = msg_send ~self ~cmd:(selector "setEvent:") ~typ:(id @-> returning (void)) x -let setStateWhenDelayed x self = msg_send ~self ~cmd:(selector "setStateWhenDelayed:") ~typ:(id @-> returning (void)) x -let setStateWhenDelivered x self = msg_send ~self ~cmd:(selector "setStateWhenDelivered:") ~typ:(id @-> returning (void)) x -let setTouch x self = msg_send ~self ~cmd:(selector "setTouch:") ~typ:(id @-> returning (void)) x -let stateWhenDelayed self = msg_send ~self ~cmd:(selector "stateWhenDelayed") ~typ:(returning (id)) -let stateWhenDelivered self = msg_send ~self ~cmd:(selector "stateWhenDelivered") ~typ:(returning (id)) -let timestampForDelivery self = msg_send ~self ~cmd:(selector "timestampForDelivery") ~typ:(returning (double)) -let touch self = msg_send ~self ~cmd:(selector "touch") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIGestureDelayedTouch" + +let cloneForSecondDelivery self = msg_send ~self ~cmd:(selector "cloneForSecondDelivery") ~typ:(returning bool) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let decrementDelayCount self = msg_send ~self ~cmd:(selector "decrementDelayCount") ~typ:(returning llong) +let delayCount self = msg_send ~self ~cmd:(selector "delayCount") ~typ:(returning llong) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let event self = msg_send ~self ~cmd:(selector "event") ~typ:(returning id) +let incrementDelayCount self = msg_send ~self ~cmd:(selector "incrementDelayCount") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let phaseForDelivery self = msg_send ~self ~cmd:(selector "phaseForDelivery") ~typ:(returning llong) +let saveCurrentTouchState self = msg_send ~self ~cmd:(selector "saveCurrentTouchState") ~typ:(returning void) +let setCloneForSecondDelivery x self = msg_send ~self ~cmd:(selector "setCloneForSecondDelivery:") ~typ:(bool @-> returning void) x +let setEvent x self = msg_send ~self ~cmd:(selector "setEvent:") ~typ:(id @-> returning void) x +let setStateWhenDelayed x self = msg_send ~self ~cmd:(selector "setStateWhenDelayed:") ~typ:(id @-> returning void) x +let setStateWhenDelivered x self = msg_send ~self ~cmd:(selector "setStateWhenDelivered:") ~typ:(id @-> returning void) x +let setTouch x self = msg_send ~self ~cmd:(selector "setTouch:") ~typ:(id @-> returning void) x +let stateWhenDelayed self = msg_send ~self ~cmd:(selector "stateWhenDelayed") ~typ:(returning id) +let stateWhenDelivered self = msg_send ~self ~cmd:(selector "stateWhenDelivered") ~typ:(returning id) +let timestampForDelivery self = msg_send ~self ~cmd:(selector "timestampForDelivery") ~typ:(returning double) +let touch self = msg_send ~self ~cmd:(selector "touch") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIGestureEnvironment.ml b/uikit/UIGestureEnvironment.ml index dce71488..96fdf68b 100644 --- a/uikit/UIGestureEnvironment.ml +++ b/uikit/UIGestureEnvironment.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGestureEnvironment" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigestureenvironment?language=objc}UIGestureEnvironment} *) -let addGestureRecognizer x self = msg_send ~self ~cmd:(selector "addGestureRecognizer:") ~typ:(id @-> returning (void)) x -let addRequirementForGestureRecognizer x ~requiringGestureRecognizerToFail self = msg_send ~self ~cmd:(selector "addRequirementForGestureRecognizer:requiringGestureRecognizerToFail:") ~typ:(id @-> id @-> returning (void)) x requiringGestureRecognizerToFail -let gestureRecognizer x ~requiresGestureRecognizerToFail self = msg_send ~self ~cmd:(selector "gestureRecognizer:requiresGestureRecognizerToFail:") ~typ:(id @-> id @-> returning (bool)) x requiresGestureRecognizerToFail -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let removeGestureRecognizer x self = msg_send ~self ~cmd:(selector "removeGestureRecognizer:") ~typ:(id @-> returning (void)) x -let removeRequirementForGestureRecognizer x ~requiringGestureRecognizerToFail self = msg_send ~self ~cmd:(selector "removeRequirementForGestureRecognizer:requiringGestureRecognizerToFail:") ~typ:(id @-> id @-> returning (void)) x requiringGestureRecognizerToFail -let setGestureNeedsUpdate x self = msg_send ~self ~cmd:(selector "setGestureNeedsUpdate:") ~typ:(id @-> returning (void)) x -let setNeedsExclusivityUpdate self = msg_send ~self ~cmd:(selector "setNeedsExclusivityUpdate") ~typ:(returning (void)) -let unmetRequirementsForGestureRecognizer x self = msg_send ~self ~cmd:(selector "unmetRequirementsForGestureRecognizer:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let self = get_class "UIGestureEnvironment" + +let addGestureRecognizer x self = msg_send ~self ~cmd:(selector "addGestureRecognizer:") ~typ:(id @-> returning void) x +let addRequirementForGestureRecognizer x ~requiringGestureRecognizerToFail self = msg_send ~self ~cmd:(selector "addRequirementForGestureRecognizer:requiringGestureRecognizerToFail:") ~typ:(id @-> id @-> returning void) x requiringGestureRecognizerToFail +let gestureRecognizer x ~requiresGestureRecognizerToFail self = msg_send ~self ~cmd:(selector "gestureRecognizer:requiresGestureRecognizerToFail:") ~typ:(id @-> id @-> returning bool) x requiresGestureRecognizerToFail +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let removeGestureRecognizer x self = msg_send ~self ~cmd:(selector "removeGestureRecognizer:") ~typ:(id @-> returning void) x +let removeRequirementForGestureRecognizer x ~requiringGestureRecognizerToFail self = msg_send ~self ~cmd:(selector "removeRequirementForGestureRecognizer:requiringGestureRecognizerToFail:") ~typ:(id @-> id @-> returning void) x requiringGestureRecognizerToFail +let setGestureNeedsUpdate x self = msg_send ~self ~cmd:(selector "setGestureNeedsUpdate:") ~typ:(id @-> returning void) x +let setNeedsExclusivityUpdate self = msg_send ~self ~cmd:(selector "setNeedsExclusivityUpdate") ~typ:(returning void) +let unmetRequirementsForGestureRecognizer x self = msg_send ~self ~cmd:(selector "unmetRequirementsForGestureRecognizer:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIGestureGraph.ml b/uikit/UIGestureGraph.ml index 35b58f69..e061c440 100644 --- a/uikit/UIGestureGraph.ml +++ b/uikit/UIGestureGraph.ml @@ -5,35 +5,39 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGestureGraph" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigesturegraph?language=objc}UIGestureGraph} *) -let addEdgeWithLabel x ~sourceNode ~targetNode ~directed self = msg_send ~self ~cmd:(selector "addEdgeWithLabel:sourceNode:targetNode:directed:") ~typ:(id @-> id @-> id @-> bool @-> returning (id)) x sourceNode targetNode directed -let addNodeWithLabel x self = msg_send ~self ~cmd:(selector "addNodeWithLabel:") ~typ:(id @-> returning (id)) x -let addNodeWithLabel' x ~properties self = msg_send ~self ~cmd:(selector "addNodeWithLabel:properties:") ~typ:(id @-> id @-> returning (id)) x properties -let addUniqueEdgeWithLabel x ~sourceNode ~targetNode ~directed ~properties self = msg_send ~self ~cmd:(selector "addUniqueEdgeWithLabel:sourceNode:targetNode:directed:properties:") ~typ:(id @-> id @-> id @-> bool @-> id @-> returning (id)) x sourceNode targetNode directed properties -let addUniqueNodeWithLabel x ~properties self = msg_send ~self ~cmd:(selector "addUniqueNodeWithLabel:properties:") ~typ:(id @-> id @-> returning (id)) x properties -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let edgeCount self = msg_send ~self ~cmd:(selector "edgeCount") ~typ:(returning (ullong)) -let edgeCountForLabel x self = msg_send ~self ~cmd:(selector "edgeCountForLabel:") ~typ:(id @-> returning (ullong)) x -let edgeLabels self = msg_send ~self ~cmd:(selector "edgeLabels") ~typ:(returning (id)) -let edgesForLabel x self = msg_send ~self ~cmd:(selector "edgesForLabel:") ~typ:(id @-> returning (id)) x -let edgesForLabel' x ~properties self = msg_send ~self ~cmd:(selector "edgesForLabel:properties:") ~typ:(id @-> id @-> returning (id)) x properties -let enumerateEdgesWithBlock x self = msg_send ~self ~cmd:(selector "enumerateEdgesWithBlock:") ~typ:(ptr void @-> returning (void)) x -let enumerateEdgesWithLabel x ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateEdgesWithLabel:usingBlock:") ~typ:(id @-> ptr void @-> returning (void)) x usingBlock -let enumerateNodesWithBlock x self = msg_send ~self ~cmd:(selector "enumerateNodesWithBlock:") ~typ:(ptr void @-> returning (void)) x -let enumerateNodesWithLabel x ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateNodesWithLabel:usingBlock:") ~typ:(id @-> ptr void @-> returning (void)) x usingBlock -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let nodeCount self = msg_send ~self ~cmd:(selector "nodeCount") ~typ:(returning (ullong)) -let nodeCountForLabel x self = msg_send ~self ~cmd:(selector "nodeCountForLabel:") ~typ:(id @-> returning (ullong)) x -let nodeLabels self = msg_send ~self ~cmd:(selector "nodeLabels") ~typ:(returning (id)) -let nodesForLabel x self = msg_send ~self ~cmd:(selector "nodesForLabel:") ~typ:(id @-> returning (id)) x -let nodesForLabel' x ~properties self = msg_send ~self ~cmd:(selector "nodesForLabel:properties:") ~typ:(id @-> id @-> returning (id)) x properties -let removeAllObjects self = msg_send ~self ~cmd:(selector "removeAllObjects") ~typ:(returning (void)) -let removeEdge x self = msg_send ~self ~cmd:(selector "removeEdge:") ~typ:(id @-> returning (void)) x -let removeEdges x self = msg_send ~self ~cmd:(selector "removeEdges:") ~typ:(id @-> returning (void)) x -let removeNode x self = msg_send ~self ~cmd:(selector "removeNode:") ~typ:(id @-> returning (void)) x -let removeNodeEdges x self = msg_send ~self ~cmd:(selector "removeNodeEdges:") ~typ:(id @-> returning (void)) x -let removeNodes x self = msg_send ~self ~cmd:(selector "removeNodes:") ~typ:(id @-> returning (void)) x -let traverseGraphBreadthFirstFromNode x ~directed ~usingBlock self = msg_send ~self ~cmd:(selector "traverseGraphBreadthFirstFromNode:directed:usingBlock:") ~typ:(id @-> bool @-> ptr void @-> returning (void)) x directed usingBlock -let traverseGraphDepthFirstFromNode x ~directed ~usingBlock self = msg_send ~self ~cmd:(selector "traverseGraphDepthFirstFromNode:directed:usingBlock:") ~typ:(id @-> bool @-> ptr void @-> returning (void)) x directed usingBlock \ No newline at end of file +let self = get_class "UIGestureGraph" + +let addEdgeWithLabel x ~sourceNode ~targetNode ~directed self = msg_send ~self ~cmd:(selector "addEdgeWithLabel:sourceNode:targetNode:directed:") ~typ:(id @-> id @-> id @-> bool @-> returning id) x sourceNode targetNode directed +let addNodeWithLabel x self = msg_send ~self ~cmd:(selector "addNodeWithLabel:") ~typ:(id @-> returning id) x +let addNodeWithLabel' x ~properties self = msg_send ~self ~cmd:(selector "addNodeWithLabel:properties:") ~typ:(id @-> id @-> returning id) x properties +let addUniqueEdgeWithLabel x ~sourceNode ~targetNode ~directed ~properties self = msg_send ~self ~cmd:(selector "addUniqueEdgeWithLabel:sourceNode:targetNode:directed:properties:") ~typ:(id @-> id @-> id @-> bool @-> id @-> returning id) x sourceNode targetNode directed properties +let addUniqueNodeWithLabel x ~properties self = msg_send ~self ~cmd:(selector "addUniqueNodeWithLabel:properties:") ~typ:(id @-> id @-> returning id) x properties +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let edgeCount self = msg_send ~self ~cmd:(selector "edgeCount") ~typ:(returning ullong) +let edgeCountForLabel x self = msg_send ~self ~cmd:(selector "edgeCountForLabel:") ~typ:(id @-> returning ullong) x +let edgeLabels self = msg_send ~self ~cmd:(selector "edgeLabels") ~typ:(returning id) +let edgesForLabel x self = msg_send ~self ~cmd:(selector "edgesForLabel:") ~typ:(id @-> returning id) x +let edgesForLabel' x ~properties self = msg_send ~self ~cmd:(selector "edgesForLabel:properties:") ~typ:(id @-> id @-> returning id) x properties +let enumerateEdgesWithBlock x self = msg_send ~self ~cmd:(selector "enumerateEdgesWithBlock:") ~typ:((ptr void) @-> returning void) x +let enumerateEdgesWithLabel x ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateEdgesWithLabel:usingBlock:") ~typ:(id @-> (ptr void) @-> returning void) x usingBlock +let enumerateNodesWithBlock x self = msg_send ~self ~cmd:(selector "enumerateNodesWithBlock:") ~typ:((ptr void) @-> returning void) x +let enumerateNodesWithLabel x ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateNodesWithLabel:usingBlock:") ~typ:(id @-> (ptr void) @-> returning void) x usingBlock +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let nodeCount self = msg_send ~self ~cmd:(selector "nodeCount") ~typ:(returning ullong) +let nodeCountForLabel x self = msg_send ~self ~cmd:(selector "nodeCountForLabel:") ~typ:(id @-> returning ullong) x +let nodeLabels self = msg_send ~self ~cmd:(selector "nodeLabels") ~typ:(returning id) +let nodesForLabel x self = msg_send ~self ~cmd:(selector "nodesForLabel:") ~typ:(id @-> returning id) x +let nodesForLabel' x ~properties self = msg_send ~self ~cmd:(selector "nodesForLabel:properties:") ~typ:(id @-> id @-> returning id) x properties +let removeAllObjects self = msg_send ~self ~cmd:(selector "removeAllObjects") ~typ:(returning void) +let removeEdge x self = msg_send ~self ~cmd:(selector "removeEdge:") ~typ:(id @-> returning void) x +let removeEdges x self = msg_send ~self ~cmd:(selector "removeEdges:") ~typ:(id @-> returning void) x +let removeNode x self = msg_send ~self ~cmd:(selector "removeNode:") ~typ:(id @-> returning void) x +let removeNodeEdges x self = msg_send ~self ~cmd:(selector "removeNodeEdges:") ~typ:(id @-> returning void) x +let removeNodes x self = msg_send ~self ~cmd:(selector "removeNodes:") ~typ:(id @-> returning void) x +let traverseGraphBreadthFirstFromNode x ~directed ~usingBlock self = msg_send ~self ~cmd:(selector "traverseGraphBreadthFirstFromNode:directed:usingBlock:") ~typ:(id @-> bool @-> (ptr void) @-> returning void) x directed usingBlock +let traverseGraphDepthFirstFromNode x ~directed ~usingBlock self = msg_send ~self ~cmd:(selector "traverseGraphDepthFirstFromNode:directed:usingBlock:") ~typ:(id @-> bool @-> (ptr void) @-> returning void) x directed usingBlock \ No newline at end of file diff --git a/uikit/UIGestureGraphEdge.ml b/uikit/UIGestureGraphEdge.ml index 3fa1a337..976696dd 100644 --- a/uikit/UIGestureGraphEdge.ml +++ b/uikit/UIGestureGraphEdge.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGestureGraphEdge" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigesturegraphedge?language=objc}UIGestureGraphEdge} *) -let commonNode x self = msg_send ~self ~cmd:(selector "commonNode:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let initWithLabel x ~sourceNode ~targetNode ~directed self = msg_send ~self ~cmd:(selector "initWithLabel:sourceNode:targetNode:directed:") ~typ:(id @-> id @-> id @-> bool @-> returning (id)) x sourceNode targetNode directed -let isDirected self = msg_send ~self ~cmd:(selector "isDirected") ~typ:(returning (bool)) -let isLoop self = msg_send ~self ~cmd:(selector "isLoop") ~typ:(returning (bool)) -let oppositeNode x self = msg_send ~self ~cmd:(selector "oppositeNode:") ~typ:(id @-> returning (id)) x -let sourceNode self = msg_send ~self ~cmd:(selector "sourceNode") ~typ:(returning (id)) -let targetNode self = msg_send ~self ~cmd:(selector "targetNode") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIGestureGraphEdge" + +let commonNode x self = msg_send ~self ~cmd:(selector "commonNode:") ~typ:(id @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let initWithLabel x ~sourceNode ~targetNode ~directed self = msg_send ~self ~cmd:(selector "initWithLabel:sourceNode:targetNode:directed:") ~typ:(id @-> id @-> id @-> bool @-> returning id) x sourceNode targetNode directed +let isDirected self = msg_send ~self ~cmd:(selector "isDirected") ~typ:(returning bool) +let isLoop self = msg_send ~self ~cmd:(selector "isLoop") ~typ:(returning bool) +let oppositeNode x self = msg_send ~self ~cmd:(selector "oppositeNode:") ~typ:(id @-> returning id) x +let sourceNode self = msg_send ~self ~cmd:(selector "sourceNode") ~typ:(returning id) +let targetNode self = msg_send ~self ~cmd:(selector "targetNode") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIGestureGraphElement.ml b/uikit/UIGestureGraphElement.ml index 9ff1b691..2d5f5109 100644 --- a/uikit/UIGestureGraphElement.ml +++ b/uikit/UIGestureGraphElement.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGestureGraphElement" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigesturegraphelement?language=objc}UIGestureGraphElement} *) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let enumeratePropertiesUsingBlock x self = msg_send ~self ~cmd:(selector "enumeratePropertiesUsingBlock:") ~typ:(ptr void @-> returning (void)) x -let hasProperties x self = msg_send ~self ~cmd:(selector "hasProperties:") ~typ:(id @-> returning (bool)) x -let initWithLabel x self = msg_send ~self ~cmd:(selector "initWithLabel:") ~typ:(id @-> returning (id)) x -let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning (id)) -let objectForKeyedSubscript x self = msg_send ~self ~cmd:(selector "objectForKeyedSubscript:") ~typ:(id @-> returning (id)) x -let propertyForKey x self = msg_send ~self ~cmd:(selector "propertyForKey:") ~typ:(id @-> returning (id)) x -let removeAllProperties self = msg_send ~self ~cmd:(selector "removeAllProperties") ~typ:(returning (void)) -let removePropertyForKey x self = msg_send ~self ~cmd:(selector "removePropertyForKey:") ~typ:(id @-> returning (void)) x -let setObject x ~forKeyedSubscript self = msg_send ~self ~cmd:(selector "setObject:forKeyedSubscript:") ~typ:(id @-> id @-> returning (void)) x forKeyedSubscript -let setProperties x self = msg_send ~self ~cmd:(selector "setProperties:") ~typ:(id @-> returning (void)) x -let setProperty x ~forKey self = msg_send ~self ~cmd:(selector "setProperty:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey \ No newline at end of file +let self = get_class "UIGestureGraphElement" + +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let enumeratePropertiesUsingBlock x self = msg_send ~self ~cmd:(selector "enumeratePropertiesUsingBlock:") ~typ:((ptr void) @-> returning void) x +let hasProperties x self = msg_send ~self ~cmd:(selector "hasProperties:") ~typ:(id @-> returning bool) x +let initWithLabel x self = msg_send ~self ~cmd:(selector "initWithLabel:") ~typ:(id @-> returning id) x +let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) +let objectForKeyedSubscript x self = msg_send ~self ~cmd:(selector "objectForKeyedSubscript:") ~typ:(id @-> returning id) x +let propertyForKey x self = msg_send ~self ~cmd:(selector "propertyForKey:") ~typ:(id @-> returning id) x +let removeAllProperties self = msg_send ~self ~cmd:(selector "removeAllProperties") ~typ:(returning void) +let removePropertyForKey x self = msg_send ~self ~cmd:(selector "removePropertyForKey:") ~typ:(id @-> returning void) x +let setObject x ~forKeyedSubscript self = msg_send ~self ~cmd:(selector "setObject:forKeyedSubscript:") ~typ:(id @-> id @-> returning void) x forKeyedSubscript +let setProperties x self = msg_send ~self ~cmd:(selector "setProperties:") ~typ:(id @-> returning void) x +let setProperty x ~forKey self = msg_send ~self ~cmd:(selector "setProperty:forKey:") ~typ:(id @-> id @-> returning void) x forKey \ No newline at end of file diff --git a/uikit/UIGestureGraphNode.ml b/uikit/UIGestureGraphNode.ml index c3463ec6..4f9a67b2 100644 --- a/uikit/UIGestureGraphNode.ml +++ b/uikit/UIGestureGraphNode.ml @@ -5,25 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGestureGraphNode" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigesturegraphnode?language=objc}UIGestureGraphNode} *) -let allEdges self = msg_send ~self ~cmd:(selector "allEdges") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let edgeCount self = msg_send ~self ~cmd:(selector "edgeCount") ~typ:(returning (ullong)) -let edgeCountForLabel x self = msg_send ~self ~cmd:(selector "edgeCountForLabel:") ~typ:(id @-> returning (ullong)) x -let edgesForLabel x self = msg_send ~self ~cmd:(selector "edgesForLabel:") ~typ:(id @-> returning (id)) x -let enumerateEdgesBetweenNode x ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateEdgesBetweenNode:usingBlock:") ~typ:(id @-> ptr void @-> returning (void)) x usingBlock -let enumerateEdgesFromNode x ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateEdgesFromNode:usingBlock:") ~typ:(id @-> ptr void @-> returning (void)) x usingBlock -let enumerateEdgesTowardNode x ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateEdgesTowardNode:usingBlock:") ~typ:(id @-> ptr void @-> returning (void)) x usingBlock -let enumerateNeighborNodesUsingBlock x self = msg_send ~self ~cmd:(selector "enumerateNeighborNodesUsingBlock:") ~typ:(ptr void @-> returning (void)) x -let hasEdgeBetweenNode x self = msg_send ~self ~cmd:(selector "hasEdgeBetweenNode:") ~typ:(id @-> returning (bool)) x -let hasEdgeFromNode x self = msg_send ~self ~cmd:(selector "hasEdgeFromNode:") ~typ:(id @-> returning (bool)) x -let hasEdgeTowardNode x self = msg_send ~self ~cmd:(selector "hasEdgeTowardNode:") ~typ:(id @-> returning (bool)) x -let inEdges self = msg_send ~self ~cmd:(selector "inEdges") ~typ:(returning (id)) -let inOutEdges self = msg_send ~self ~cmd:(selector "inOutEdges") ~typ:(returning (id)) -let isInEdge x self = msg_send ~self ~cmd:(selector "isInEdge:") ~typ:(id @-> returning (bool)) x -let isInOutEdge x self = msg_send ~self ~cmd:(selector "isInOutEdge:") ~typ:(id @-> returning (bool)) x -let isOutEdge x self = msg_send ~self ~cmd:(selector "isOutEdge:") ~typ:(id @-> returning (bool)) x -let outEdges self = msg_send ~self ~cmd:(selector "outEdges") ~typ:(returning (id)) -let typeOfEdge x self = msg_send ~self ~cmd:(selector "typeOfEdge:") ~typ:(id @-> returning (ullong)) x \ No newline at end of file +let self = get_class "UIGestureGraphNode" + +let allEdges self = msg_send ~self ~cmd:(selector "allEdges") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let edgeCount self = msg_send ~self ~cmd:(selector "edgeCount") ~typ:(returning ullong) +let edgeCountForLabel x self = msg_send ~self ~cmd:(selector "edgeCountForLabel:") ~typ:(id @-> returning ullong) x +let edgesForLabel x self = msg_send ~self ~cmd:(selector "edgesForLabel:") ~typ:(id @-> returning id) x +let enumerateEdgesBetweenNode x ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateEdgesBetweenNode:usingBlock:") ~typ:(id @-> (ptr void) @-> returning void) x usingBlock +let enumerateEdgesFromNode x ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateEdgesFromNode:usingBlock:") ~typ:(id @-> (ptr void) @-> returning void) x usingBlock +let enumerateEdgesTowardNode x ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateEdgesTowardNode:usingBlock:") ~typ:(id @-> (ptr void) @-> returning void) x usingBlock +let enumerateNeighborNodesUsingBlock x self = msg_send ~self ~cmd:(selector "enumerateNeighborNodesUsingBlock:") ~typ:((ptr void) @-> returning void) x +let hasEdgeBetweenNode x self = msg_send ~self ~cmd:(selector "hasEdgeBetweenNode:") ~typ:(id @-> returning bool) x +let hasEdgeFromNode x self = msg_send ~self ~cmd:(selector "hasEdgeFromNode:") ~typ:(id @-> returning bool) x +let hasEdgeTowardNode x self = msg_send ~self ~cmd:(selector "hasEdgeTowardNode:") ~typ:(id @-> returning bool) x +let inEdges self = msg_send ~self ~cmd:(selector "inEdges") ~typ:(returning id) +let inOutEdges self = msg_send ~self ~cmd:(selector "inOutEdges") ~typ:(returning id) +let isInEdge x self = msg_send ~self ~cmd:(selector "isInEdge:") ~typ:(id @-> returning bool) x +let isInOutEdge x self = msg_send ~self ~cmd:(selector "isInOutEdge:") ~typ:(id @-> returning bool) x +let isOutEdge x self = msg_send ~self ~cmd:(selector "isOutEdge:") ~typ:(id @-> returning bool) x +let outEdges self = msg_send ~self ~cmd:(selector "outEdges") ~typ:(returning id) +let typeOfEdge x self = msg_send ~self ~cmd:(selector "typeOfEdge:") ~typ:(id @-> returning ullong) x \ No newline at end of file diff --git a/uikit/UIGestureKeyboardIntroduction.ml b/uikit/UIGestureKeyboardIntroduction.ml index 52c87bc5..5b2c8aa8 100644 --- a/uikit/UIGestureKeyboardIntroduction.ml +++ b/uikit/UIGestureKeyboardIntroduction.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGestureKeyboardIntroduction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigesturekeyboardintroduction?language=objc}UIGestureKeyboardIntroduction} *) -let dismissGestureKeyboardIntroduction self = msg_send ~self ~cmd:(selector "dismissGestureKeyboardIntroduction") ~typ:(returning (void)) -let dismissGestureKeyboardIntroduction' x self = msg_send ~self ~cmd:(selector "dismissGestureKeyboardIntroduction:") ~typ:(id @-> returning (void)) x -let initWithLayoutStar x ~completion self = msg_send ~self ~cmd:(selector "initWithLayoutStar:completion:") ~typ:(id @-> ptr void @-> returning (id)) x completion -let insertText x ~forKey self = msg_send ~self ~cmd:(selector "insertText:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let playGestureKeyboardIntroduction x self = msg_send ~self ~cmd:(selector "playGestureKeyboardIntroduction:") ~typ:(id @-> returning (void)) x -let showGestureKeyboardIntroduction self = msg_send ~self ~cmd:(selector "showGestureKeyboardIntroduction") ~typ:(returning (bool)) -let tryGestureKeyboardFromView x ~withEvent self = msg_send ~self ~cmd:(selector "tryGestureKeyboardFromView:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let self = get_class "UIGestureKeyboardIntroduction" + +let dismissGestureKeyboardIntroduction self = msg_send ~self ~cmd:(selector "dismissGestureKeyboardIntroduction") ~typ:(returning void) +let dismissGestureKeyboardIntroduction' x self = msg_send ~self ~cmd:(selector "dismissGestureKeyboardIntroduction:") ~typ:(id @-> returning void) x +let initWithLayoutStar x ~completion self = msg_send ~self ~cmd:(selector "initWithLayoutStar:completion:") ~typ:(id @-> (ptr void) @-> returning id) x completion +let insertText x ~forKey self = msg_send ~self ~cmd:(selector "insertText:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let playGestureKeyboardIntroduction x self = msg_send ~self ~cmd:(selector "playGestureKeyboardIntroduction:") ~typ:(id @-> returning void) x +let showGestureKeyboardIntroduction self = msg_send ~self ~cmd:(selector "showGestureKeyboardIntroduction") ~typ:(returning bool) +let tryGestureKeyboardFromView x ~withEvent self = msg_send ~self ~cmd:(selector "tryGestureKeyboardFromView:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UIGestureRecognizer.ml b/uikit/UIGestureRecognizer.ml index 19a54286..bc53e4f3 100644 --- a/uikit/UIGestureRecognizer.ml +++ b/uikit/UIGestureRecognizer.ml @@ -5,78 +5,78 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigesturerecognizer?language=objc}UIGestureRecognizer} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIGestureRecognizer" -let addTarget x ~action self = msg_send ~self ~cmd:(selector "addTarget:action:") ~typ:(id @-> _SEL @-> returning (void)) x action -let addTouchesFromGestureRecognizer x self = msg_send ~self ~cmd:(selector "addTouchesFromGestureRecognizer:") ~typ:(id @-> returning (void)) x -let akLocationInWindow self = msg_send_stret ~self ~cmd:(selector "akLocationInWindow") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let akNumberOfTouches self = msg_send ~self ~cmd:(selector "akNumberOfTouches") ~typ:(returning (ullong)) -let allowedPressTypes self = msg_send ~self ~cmd:(selector "allowedPressTypes") ~typ:(returning (id)) -let allowedTouchTypes self = msg_send ~self ~cmd:(selector "allowedTouchTypes") ~typ:(returning (id)) -let buttonMask self = msg_send ~self ~cmd:(selector "buttonMask") ~typ:(returning (llong)) -let canBePreventedByGestureRecognizer x self = msg_send ~self ~cmd:(selector "canBePreventedByGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let cancelsTouchesInView self = msg_send ~self ~cmd:(selector "cancelsTouchesInView") ~typ:(returning (bool)) -let currentPreviewForceState self = msg_send ~self ~cmd:(selector "currentPreviewForceState") ~typ:(returning (llong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delaysTouchesBegan self = msg_send ~self ~cmd:(selector "delaysTouchesBegan") ~typ:(returning (bool)) -let delaysTouchesEnded self = msg_send ~self ~cmd:(selector "delaysTouchesEnded") ~typ:(returning (bool)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let gestureEnvironment self = msg_send ~self ~cmd:(selector "gestureEnvironment") ~typ:(returning (id)) -let ignorePress x ~forEvent self = msg_send ~self ~cmd:(selector "ignorePress:forEvent:") ~typ:(id @-> id @-> returning (void)) x forEvent -let ignoreTouch x ~forEvent self = msg_send ~self ~cmd:(selector "ignoreTouch:forEvent:") ~typ:(id @-> id @-> returning (void)) x forEvent -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let lastTouchTimestamp self = msg_send ~self ~cmd:(selector "lastTouchTimestamp") ~typ:(returning (double)) -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let locationOfTouch x ~inView self = msg_send_stret ~self ~cmd:(selector "locationOfTouch:inView:") ~typ:(ullong @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t (ULLong.of_int x) inView -let modifierFlags self = msg_send ~self ~cmd:(selector "modifierFlags") ~typ:(returning (llong)) -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let numberOfTouches self = msg_send ~self ~cmd:(selector "numberOfTouches") ~typ:(returning (ullong)) -let owner self = msg_send ~self ~cmd:(selector "owner") ~typ:(returning (id)) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let removeFailureRequirement x self = msg_send ~self ~cmd:(selector "removeFailureRequirement:") ~typ:(id @-> returning (void)) x -let removeTarget x ~action self = msg_send ~self ~cmd:(selector "removeTarget:action:") ~typ:(id @-> _SEL @-> returning (void)) x action -let requireGestureRecognizerToFail x self = msg_send ~self ~cmd:(selector "requireGestureRecognizerToFail:") ~typ:(id @-> returning (void)) x -let requiredPreviewForceState self = msg_send ~self ~cmd:(selector "requiredPreviewForceState") ~typ:(returning (llong)) -let requiresExclusiveTouchType self = msg_send ~self ~cmd:(selector "requiresExclusiveTouchType") ~typ:(returning (bool)) -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let setAllowedPressTypes x self = msg_send ~self ~cmd:(selector "setAllowedPressTypes:") ~typ:(id @-> returning (void)) x -let setAllowedTouchTypes x self = msg_send ~self ~cmd:(selector "setAllowedTouchTypes:") ~typ:(id @-> returning (void)) x -let setCancelsTouchesInView x self = msg_send ~self ~cmd:(selector "setCancelsTouchesInView:") ~typ:(bool @-> returning (void)) x -let setDelaysTouchesBegan x self = msg_send ~self ~cmd:(selector "setDelaysTouchesBegan:") ~typ:(bool @-> returning (void)) x -let setDelaysTouchesEnded x self = msg_send ~self ~cmd:(selector "setDelaysTouchesEnded:") ~typ:(bool @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setGestureEnvironment x self = msg_send ~self ~cmd:(selector "setGestureEnvironment:") ~typ:(id @-> returning (void)) x -let setInputPrecision x self = msg_send ~self ~cmd:(selector "setInputPrecision:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning (void)) x -let setOwner x self = msg_send ~self ~cmd:(selector "setOwner:") ~typ:(id @-> returning (void)) x -let setRequiredPreviewForceState x self = msg_send ~self ~cmd:(selector "setRequiredPreviewForceState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setRequiresExclusiveTouchType x self = msg_send ~self ~cmd:(selector "setRequiresExclusiveTouchType:") ~typ:(bool @-> returning (void)) x -let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let shouldBeRequiredToFailByGestureRecognizer x self = msg_send ~self ~cmd:(selector "shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let shouldReceiveEvent x self = msg_send ~self ~cmd:(selector "shouldReceiveEvent:") ~typ:(id @-> returning (bool)) x -let shouldRequireFailureOfGestureRecognizer x self = msg_send ~self ~cmd:(selector "shouldRequireFailureOfGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (llong)) -let stringValue self = msg_send ~self ~cmd:(selector "stringValue") ~typ:(returning (id)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEstimatedPropertiesUpdated x self = msg_send ~self ~cmd:(selector "touchesEstimatedPropertiesUpdated:") ~typ:(id @-> returning (void)) x -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let transferTouchesFromGestureRecognizer x self = msg_send ~self ~cmd:(selector "transferTouchesFromGestureRecognizer:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) \ No newline at end of file +let addTarget x ~action self = msg_send ~self ~cmd:(selector "addTarget:action:") ~typ:(id @-> _SEL @-> returning void) x action +let addTouchesFromGestureRecognizer x self = msg_send ~self ~cmd:(selector "addTouchesFromGestureRecognizer:") ~typ:(id @-> returning void) x +let akLocationInWindow self = msg_send ~self ~cmd:(selector "akLocationInWindow") ~typ:(returning CGPoint.t) +let akNumberOfTouches self = msg_send ~self ~cmd:(selector "akNumberOfTouches") ~typ:(returning ullong) +let allowedPressTypes self = msg_send ~self ~cmd:(selector "allowedPressTypes") ~typ:(returning id) +let allowedTouchTypes self = msg_send ~self ~cmd:(selector "allowedTouchTypes") ~typ:(returning id) +let buttonMask self = msg_send ~self ~cmd:(selector "buttonMask") ~typ:(returning llong) +let canBePreventedByGestureRecognizer x self = msg_send ~self ~cmd:(selector "canBePreventedByGestureRecognizer:") ~typ:(id @-> returning bool) x +let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning bool) x +let cancelsTouchesInView self = msg_send ~self ~cmd:(selector "cancelsTouchesInView") ~typ:(returning bool) +let currentPreviewForceState self = msg_send ~self ~cmd:(selector "currentPreviewForceState") ~typ:(returning llong) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delaysTouchesBegan self = msg_send ~self ~cmd:(selector "delaysTouchesBegan") ~typ:(returning bool) +let delaysTouchesEnded self = msg_send ~self ~cmd:(selector "delaysTouchesEnded") ~typ:(returning bool) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let gestureEnvironment self = msg_send ~self ~cmd:(selector "gestureEnvironment") ~typ:(returning id) +let ignorePress x ~forEvent self = msg_send ~self ~cmd:(selector "ignorePress:forEvent:") ~typ:(id @-> id @-> returning void) x forEvent +let ignoreTouch x ~forEvent self = msg_send ~self ~cmd:(selector "ignoreTouch:forEvent:") ~typ:(id @-> id @-> returning void) x forEvent +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let lastTouchTimestamp self = msg_send ~self ~cmd:(selector "lastTouchTimestamp") ~typ:(returning double) +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let locationOfTouch x ~inView self = msg_send ~self ~cmd:(selector "locationOfTouch:inView:") ~typ:(ullong @-> id @-> returning CGPoint.t) (ULLong.of_int x) inView +let modifierFlags self = msg_send ~self ~cmd:(selector "modifierFlags") ~typ:(returning llong) +let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) +let numberOfTouches self = msg_send ~self ~cmd:(selector "numberOfTouches") ~typ:(returning ullong) +let owner self = msg_send ~self ~cmd:(selector "owner") ~typ:(returning id) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let removeFailureRequirement x self = msg_send ~self ~cmd:(selector "removeFailureRequirement:") ~typ:(id @-> returning void) x +let removeTarget x ~action self = msg_send ~self ~cmd:(selector "removeTarget:action:") ~typ:(id @-> _SEL @-> returning void) x action +let requireGestureRecognizerToFail x self = msg_send ~self ~cmd:(selector "requireGestureRecognizerToFail:") ~typ:(id @-> returning void) x +let requiredPreviewForceState self = msg_send ~self ~cmd:(selector "requiredPreviewForceState") ~typ:(returning llong) +let requiresExclusiveTouchType self = msg_send ~self ~cmd:(selector "requiresExclusiveTouchType") ~typ:(returning bool) +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let setAllowedPressTypes x self = msg_send ~self ~cmd:(selector "setAllowedPressTypes:") ~typ:(id @-> returning void) x +let setAllowedTouchTypes x self = msg_send ~self ~cmd:(selector "setAllowedTouchTypes:") ~typ:(id @-> returning void) x +let setCancelsTouchesInView x self = msg_send ~self ~cmd:(selector "setCancelsTouchesInView:") ~typ:(bool @-> returning void) x +let setDelaysTouchesBegan x self = msg_send ~self ~cmd:(selector "setDelaysTouchesBegan:") ~typ:(bool @-> returning void) x +let setDelaysTouchesEnded x self = msg_send ~self ~cmd:(selector "setDelaysTouchesEnded:") ~typ:(bool @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setGestureEnvironment x self = msg_send ~self ~cmd:(selector "setGestureEnvironment:") ~typ:(id @-> returning void) x +let setInputPrecision x self = msg_send ~self ~cmd:(selector "setInputPrecision:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning void) x +let setOwner x self = msg_send ~self ~cmd:(selector "setOwner:") ~typ:(id @-> returning void) x +let setRequiredPreviewForceState x self = msg_send ~self ~cmd:(selector "setRequiredPreviewForceState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setRequiresExclusiveTouchType x self = msg_send ~self ~cmd:(selector "setRequiresExclusiveTouchType:") ~typ:(bool @-> returning void) x +let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let shouldBeRequiredToFailByGestureRecognizer x self = msg_send ~self ~cmd:(selector "shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> returning bool) x +let shouldReceiveEvent x self = msg_send ~self ~cmd:(selector "shouldReceiveEvent:") ~typ:(id @-> returning bool) x +let shouldRequireFailureOfGestureRecognizer x self = msg_send ~self ~cmd:(selector "shouldRequireFailureOfGestureRecognizer:") ~typ:(id @-> returning bool) x +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning llong) +let stringValue self = msg_send ~self ~cmd:(selector "stringValue") ~typ:(returning id) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEstimatedPropertiesUpdated x self = msg_send ~self ~cmd:(selector "touchesEstimatedPropertiesUpdated:") ~typ:(id @-> returning void) x +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let transferTouchesFromGestureRecognizer x self = msg_send ~self ~cmd:(selector "transferTouchesFromGestureRecognizer:") ~typ:(id @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIGestureRecognizerClass.ml b/uikit/UIGestureRecognizerClass.ml new file mode 100644 index 00000000..6403941c --- /dev/null +++ b/uikit/UIGestureRecognizerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigesturerecognizer?language=objc}UIGestureRecognizer} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIGestureRecognizerTarget.ml b/uikit/UIGestureRecognizerTarget.ml index 77347b19..1337bb77 100644 --- a/uikit/UIGestureRecognizerTarget.ml +++ b/uikit/UIGestureRecognizerTarget.ml @@ -5,14 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGestureRecognizerTarget" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigesturerecognizertarget?language=objc}UIGestureRecognizerTarget} *) -module C = struct - let gestureTargetWithTarget x ~action self = msg_send ~self ~cmd:(selector "gestureTargetWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -end +let self = get_class "UIGestureRecognizerTarget" -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (_SEL)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let isEqualToTarget x ~action self = msg_send ~self ~cmd:(selector "isEqualToTarget:action:") ~typ:(id @-> _SEL @-> returning (bool)) x action -let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning (id)) \ No newline at end of file +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning _SEL) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let isEqualToTarget x ~action self = msg_send ~self ~cmd:(selector "isEqualToTarget:action:") ~typ:(id @-> _SEL @-> returning bool) x action +let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIGestureRecognizerTargetClass.ml b/uikit/UIGestureRecognizerTargetClass.ml new file mode 100644 index 00000000..c52bd75f --- /dev/null +++ b/uikit/UIGestureRecognizerTargetClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigesturerecognizertarget?language=objc}UIGestureRecognizerTarget} *) + +let gestureTargetWithTarget x ~action self = msg_send ~self ~cmd:(selector "gestureTargetWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action \ No newline at end of file diff --git a/uikit/UIGradient.ml b/uikit/UIGradient.ml index a506f2b6..65968e6c 100644 --- a/uikit/UIGradient.ml +++ b/uikit/UIGradient.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGradient" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigradient?language=objc}UIGradient} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let fillRect x self = msg_send ~self ~cmd:(selector "fillRect:") ~typ:(CGRect.t @-> returning (void)) x -let fillRect' x ~inContext self = msg_send ~self ~cmd:(selector "fillRect:inContext:") ~typ:(CGRect.t @-> id @-> returning (void)) x inContext -let initVerticalWithValues x self = msg_send ~self ~cmd:(selector "initVerticalWithValues:") ~typ:(ptr void @-> returning (id)) x \ No newline at end of file +let self = get_class "UIGradient" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let fillRect x self = msg_send ~self ~cmd:(selector "fillRect:") ~typ:(CGRect.t @-> returning void) x +let fillRect' x ~inContext self = msg_send ~self ~cmd:(selector "fillRect:inContext:") ~typ:(CGRect.t @-> (ptr CGContext.t) @-> returning void) x inContext +let initVerticalWithValues x self = msg_send ~self ~cmd:(selector "initVerticalWithValues:") ~typ:((ptr void) @-> returning id) x \ No newline at end of file diff --git a/uikit/UIGraphicsImageRenderer.ml b/uikit/UIGraphicsImageRenderer.ml index 612c489d..4160672a 100644 --- a/uikit/UIGraphicsImageRenderer.ml +++ b/uikit/UIGraphicsImageRenderer.ml @@ -5,22 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGraphicsImageRenderer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigraphicsimagerenderer?language=objc}UIGraphicsImageRenderer} *) -module C = struct - let contextWithFormat x self = msg_send ~self ~cmd:(selector "contextWithFormat:") ~typ:(id @-> returning (id)) x - let prepareCGContext x ~withRendererContext self = msg_send ~self ~cmd:(selector "prepareCGContext:withRendererContext:") ~typ:(id @-> id @-> returning (void)) x withRendererContext - let rendererContextClass self = msg_send ~self ~cmd:(selector "rendererContextClass") ~typ:(returning (_Class)) -end +let self = get_class "UIGraphicsImageRenderer" -let _JPEGDataWithCompressionQuality x ~actions self = msg_send ~self ~cmd:(selector "JPEGDataWithCompressionQuality:actions:") ~typ:(double @-> ptr void @-> returning (id)) x actions -let _PNGDataWithActions x self = msg_send ~self ~cmd:(selector "PNGDataWithActions:") ~typ:(ptr void @-> returning (id)) x -let allowsImageOutput self = msg_send ~self ~cmd:(selector "allowsImageOutput") ~typ:(returning (bool)) -let imageWithActions x self = msg_send ~self ~cmd:(selector "imageWithActions:") ~typ:(ptr void @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithBounds x self = msg_send ~self ~cmd:(selector "initWithBounds:") ~typ:(CGRect.t @-> returning (id)) x -let initWithBounds' x ~format self = msg_send ~self ~cmd:(selector "initWithBounds:format:") ~typ:(CGRect.t @-> id @-> returning (id)) x format -let initWithSize x self = msg_send ~self ~cmd:(selector "initWithSize:") ~typ:(CGSize.t @-> returning (id)) x -let initWithSize' x ~format self = msg_send ~self ~cmd:(selector "initWithSize:format:") ~typ:(CGSize.t @-> id @-> returning (id)) x format -let pushContext x self = msg_send ~self ~cmd:(selector "pushContext:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let _JPEGDataWithCompressionQuality x ~actions self = msg_send ~self ~cmd:(selector "JPEGDataWithCompressionQuality:actions:") ~typ:(double @-> (ptr void) @-> returning id) x actions +let _PNGDataWithActions x self = msg_send ~self ~cmd:(selector "PNGDataWithActions:") ~typ:((ptr void) @-> returning id) x +let allowsImageOutput self = msg_send ~self ~cmd:(selector "allowsImageOutput") ~typ:(returning bool) +let imageWithActions x self = msg_send ~self ~cmd:(selector "imageWithActions:") ~typ:((ptr void) @-> returning id) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithBounds x self = msg_send ~self ~cmd:(selector "initWithBounds:") ~typ:(CGRect.t @-> returning id) x +let initWithBounds' x ~format self = msg_send ~self ~cmd:(selector "initWithBounds:format:") ~typ:(CGRect.t @-> id @-> returning id) x format +let initWithSize x self = msg_send ~self ~cmd:(selector "initWithSize:") ~typ:(CGSize.t @-> returning id) x +let initWithSize' x ~format self = msg_send ~self ~cmd:(selector "initWithSize:format:") ~typ:(CGSize.t @-> id @-> returning id) x format +let pushContext x self = msg_send ~self ~cmd:(selector "pushContext:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIGraphicsImageRendererClass.ml b/uikit/UIGraphicsImageRendererClass.ml new file mode 100644 index 00000000..6f481e4f --- /dev/null +++ b/uikit/UIGraphicsImageRendererClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigraphicsimagerenderer?language=objc}UIGraphicsImageRenderer} *) + +let contextWithFormat x self = msg_send ~self ~cmd:(selector "contextWithFormat:") ~typ:(id @-> returning (ptr CGContext.t)) x +let prepareCGContext x ~withRendererContext self = msg_send ~self ~cmd:(selector "prepareCGContext:withRendererContext:") ~typ:((ptr CGContext.t) @-> id @-> returning void) x withRendererContext +let rendererContextClass self = msg_send ~self ~cmd:(selector "rendererContextClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit/UIGraphicsImageRendererFormat.ml b/uikit/UIGraphicsImageRendererFormat.ml index 6d713e46..35fed076 100644 --- a/uikit/UIGraphicsImageRendererFormat.ml +++ b/uikit/UIGraphicsImageRendererFormat.ml @@ -5,23 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGraphicsImageRendererFormat" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigraphicsimagerendererformat?language=objc}UIGraphicsImageRendererFormat} *) -module C = struct - let defaultFormat self = msg_send ~self ~cmd:(selector "defaultFormat") ~typ:(returning (id)) - let formatForTraitCollection x self = msg_send ~self ~cmd:(selector "formatForTraitCollection:") ~typ:(id @-> returning (id)) x - let preferredFormat self = msg_send ~self ~cmd:(selector "preferredFormat") ~typ:(returning (id)) -end +let self = get_class "UIGraphicsImageRendererFormat" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let opaque self = msg_send ~self ~cmd:(selector "opaque") ~typ:(returning (bool)) -let preferredRange self = msg_send ~self ~cmd:(selector "preferredRange") ~typ:(returning (llong)) -let prefersExtendedRange self = msg_send ~self ~cmd:(selector "prefersExtendedRange") ~typ:(returning (bool)) -let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning (double)) -let setOpaque x self = msg_send ~self ~cmd:(selector "setOpaque:") ~typ:(bool @-> returning (void)) x -let setPreferredRange x self = msg_send ~self ~cmd:(selector "setPreferredRange:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPrefersExtendedRange x self = msg_send ~self ~cmd:(selector "setPrefersExtendedRange:") ~typ:(bool @-> returning (void)) x -let setScale x self = msg_send ~self ~cmd:(selector "setScale:") ~typ:(double @-> returning (void)) x \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let opaque self = msg_send ~self ~cmd:(selector "opaque") ~typ:(returning bool) +let preferredRange self = msg_send ~self ~cmd:(selector "preferredRange") ~typ:(returning llong) +let prefersExtendedRange self = msg_send ~self ~cmd:(selector "prefersExtendedRange") ~typ:(returning bool) +let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning double) +let setOpaque x self = msg_send ~self ~cmd:(selector "setOpaque:") ~typ:(bool @-> returning void) x +let setPreferredRange x self = msg_send ~self ~cmd:(selector "setPreferredRange:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPrefersExtendedRange x self = msg_send ~self ~cmd:(selector "setPrefersExtendedRange:") ~typ:(bool @-> returning void) x +let setScale x self = msg_send ~self ~cmd:(selector "setScale:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit/UIGraphicsImageRendererFormatClass.ml b/uikit/UIGraphicsImageRendererFormatClass.ml new file mode 100644 index 00000000..dcc91dd5 --- /dev/null +++ b/uikit/UIGraphicsImageRendererFormatClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigraphicsimagerendererformat?language=objc}UIGraphicsImageRendererFormat} *) + +let defaultFormat self = msg_send ~self ~cmd:(selector "defaultFormat") ~typ:(returning id) +let formatForTraitCollection x self = msg_send ~self ~cmd:(selector "formatForTraitCollection:") ~typ:(id @-> returning id) x +let preferredFormat self = msg_send ~self ~cmd:(selector "preferredFormat") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIGraphicsPDFRenderer.ml b/uikit/UIGraphicsPDFRenderer.ml index 93dc90ee..338c677e 100644 --- a/uikit/UIGraphicsPDFRenderer.ml +++ b/uikit/UIGraphicsPDFRenderer.ml @@ -5,19 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGraphicsPDFRenderer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigraphicspdfrenderer?language=objc}UIGraphicsPDFRenderer} *) -module C = struct - let contextWithFormat x self = msg_send ~self ~cmd:(selector "contextWithFormat:") ~typ:(id @-> returning (id)) x - let prepareCGContext x ~withRendererContext self = msg_send ~self ~cmd:(selector "prepareCGContext:withRendererContext:") ~typ:(id @-> id @-> returning (void)) x withRendererContext - let rendererContextClass self = msg_send ~self ~cmd:(selector "rendererContextClass") ~typ:(returning (_Class)) -end +let self = get_class "UIGraphicsPDFRenderer" -let _PDFDataWithActions x self = msg_send ~self ~cmd:(selector "PDFDataWithActions:") ~typ:(ptr void @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithBounds x self = msg_send ~self ~cmd:(selector "initWithBounds:") ~typ:(CGRect.t @-> returning (id)) x -let initWithBounds' x ~format self = msg_send ~self ~cmd:(selector "initWithBounds:format:") ~typ:(CGRect.t @-> id @-> returning (id)) x format -let popContext x self = msg_send ~self ~cmd:(selector "popContext:") ~typ:(id @-> returning (void)) x -let pushContext x self = msg_send ~self ~cmd:(selector "pushContext:") ~typ:(id @-> returning (void)) x -let writePDFToURL x ~withActions ~error self = msg_send ~self ~cmd:(selector "writePDFToURL:withActions:error:") ~typ:(id @-> ptr void @-> ptr (id) @-> returning (bool)) x withActions error \ No newline at end of file +let _PDFDataWithActions x self = msg_send ~self ~cmd:(selector "PDFDataWithActions:") ~typ:((ptr void) @-> returning id) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithBounds x self = msg_send ~self ~cmd:(selector "initWithBounds:") ~typ:(CGRect.t @-> returning id) x +let initWithBounds' x ~format self = msg_send ~self ~cmd:(selector "initWithBounds:format:") ~typ:(CGRect.t @-> id @-> returning id) x format +let popContext x self = msg_send ~self ~cmd:(selector "popContext:") ~typ:(id @-> returning void) x +let pushContext x self = msg_send ~self ~cmd:(selector "pushContext:") ~typ:(id @-> returning void) x +let writePDFToURL x ~withActions ~error self = msg_send ~self ~cmd:(selector "writePDFToURL:withActions:error:") ~typ:(id @-> (ptr void) @-> (ptr id) @-> returning bool) x withActions error \ No newline at end of file diff --git a/uikit/UIGraphicsPDFRendererClass.ml b/uikit/UIGraphicsPDFRendererClass.ml new file mode 100644 index 00000000..43cc09da --- /dev/null +++ b/uikit/UIGraphicsPDFRendererClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigraphicspdfrenderer?language=objc}UIGraphicsPDFRenderer} *) + +let contextWithFormat x self = msg_send ~self ~cmd:(selector "contextWithFormat:") ~typ:(id @-> returning (ptr CGContext.t)) x +let prepareCGContext x ~withRendererContext self = msg_send ~self ~cmd:(selector "prepareCGContext:withRendererContext:") ~typ:((ptr CGContext.t) @-> id @-> returning void) x withRendererContext +let rendererContextClass self = msg_send ~self ~cmd:(selector "rendererContextClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit/UIGraphicsPDFRendererContext.ml b/uikit/UIGraphicsPDFRendererContext.ml index eadd4216..ae098dce 100644 --- a/uikit/UIGraphicsPDFRendererContext.ml +++ b/uikit/UIGraphicsPDFRendererContext.ml @@ -5,19 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGraphicsPDFRendererContext" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigraphicspdfrenderercontext?language=objc}UIGraphicsPDFRendererContext} *) -let addDestinationWithName x ~atPoint self = msg_send ~self ~cmd:(selector "addDestinationWithName:atPoint:") ~typ:(id @-> CGPoint.t @-> returning (void)) x atPoint -let beginPage self = msg_send ~self ~cmd:(selector "beginPage") ~typ:(returning (void)) -let beginPageWithBounds x ~pageInfo self = msg_send ~self ~cmd:(selector "beginPageWithBounds:pageInfo:") ~typ:(CGRect.t @-> id @-> returning (void)) x pageInfo -let documentBounds self = msg_send_stret ~self ~cmd:(selector "documentBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let inPage self = msg_send ~self ~cmd:(selector "inPage") ~typ:(returning (bool)) -let pageBounds self = msg_send_stret ~self ~cmd:(selector "pageBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let pdfContextBounds self = msg_send_stret ~self ~cmd:(selector "pdfContextBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let setDestinationWithName x ~forRect self = msg_send ~self ~cmd:(selector "setDestinationWithName:forRect:") ~typ:(id @-> CGRect.t @-> returning (void)) x forRect -let setDocumentBounds x self = msg_send ~self ~cmd:(selector "setDocumentBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setInPage x self = msg_send ~self ~cmd:(selector "setInPage:") ~typ:(bool @-> returning (void)) x -let setPageBounds x self = msg_send ~self ~cmd:(selector "setPageBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setURL x ~forRect self = msg_send ~self ~cmd:(selector "setURL:forRect:") ~typ:(id @-> CGRect.t @-> returning (void)) x forRect -let updateAuxInfo x self = msg_send ~self ~cmd:(selector "updateAuxInfo:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIGraphicsPDFRendererContext" + +let addDestinationWithName x ~atPoint self = msg_send ~self ~cmd:(selector "addDestinationWithName:atPoint:") ~typ:(id @-> CGPoint.t @-> returning void) x atPoint +let beginPage self = msg_send ~self ~cmd:(selector "beginPage") ~typ:(returning void) +let beginPageWithBounds x ~pageInfo self = msg_send ~self ~cmd:(selector "beginPageWithBounds:pageInfo:") ~typ:(CGRect.t @-> id @-> returning void) x pageInfo +let documentBounds self = msg_send ~self ~cmd:(selector "documentBounds") ~typ:(returning CGRect.t) +let inPage self = msg_send ~self ~cmd:(selector "inPage") ~typ:(returning bool) +let pageBounds self = msg_send ~self ~cmd:(selector "pageBounds") ~typ:(returning CGRect.t) +let pdfContextBounds self = msg_send ~self ~cmd:(selector "pdfContextBounds") ~typ:(returning CGRect.t) +let setDestinationWithName x ~forRect self = msg_send ~self ~cmd:(selector "setDestinationWithName:forRect:") ~typ:(id @-> CGRect.t @-> returning void) x forRect +let setDocumentBounds x self = msg_send ~self ~cmd:(selector "setDocumentBounds:") ~typ:(CGRect.t @-> returning void) x +let setInPage x self = msg_send ~self ~cmd:(selector "setInPage:") ~typ:(bool @-> returning void) x +let setPageBounds x self = msg_send ~self ~cmd:(selector "setPageBounds:") ~typ:(CGRect.t @-> returning void) x +let setURL x ~forRect self = msg_send ~self ~cmd:(selector "setURL:forRect:") ~typ:(id @-> CGRect.t @-> returning void) x forRect +let updateAuxInfo x self = msg_send ~self ~cmd:(selector "updateAuxInfo:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIGraphicsPDFRendererFormat.ml b/uikit/UIGraphicsPDFRendererFormat.ml index fcdb6bca..d2e68ecf 100644 --- a/uikit/UIGraphicsPDFRendererFormat.ml +++ b/uikit/UIGraphicsPDFRendererFormat.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGraphicsPDFRendererFormat" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigraphicspdfrendererformat?language=objc}UIGraphicsPDFRendererFormat} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let documentInfo self = msg_send ~self ~cmd:(selector "documentInfo") ~typ:(returning (id)) -let outputURL self = msg_send ~self ~cmd:(selector "outputURL") ~typ:(returning (id)) -let pdfData self = msg_send ~self ~cmd:(selector "pdfData") ~typ:(returning (id)) -let setDocumentInfo x self = msg_send ~self ~cmd:(selector "setDocumentInfo:") ~typ:(id @-> returning (void)) x -let setOutputURL x self = msg_send ~self ~cmd:(selector "setOutputURL:") ~typ:(id @-> returning (void)) x -let setPdfData x self = msg_send ~self ~cmd:(selector "setPdfData:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIGraphicsPDFRendererFormat" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let documentInfo self = msg_send ~self ~cmd:(selector "documentInfo") ~typ:(returning id) +let outputURL self = msg_send ~self ~cmd:(selector "outputURL") ~typ:(returning id) +let pdfData self = msg_send ~self ~cmd:(selector "pdfData") ~typ:(returning id) +let setDocumentInfo x self = msg_send ~self ~cmd:(selector "setDocumentInfo:") ~typ:(id @-> returning void) x +let setOutputURL x self = msg_send ~self ~cmd:(selector "setOutputURL:") ~typ:(id @-> returning void) x +let setPdfData x self = msg_send ~self ~cmd:(selector "setPdfData:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIGraphicsRenderer.ml b/uikit/UIGraphicsRenderer.ml index 42997a16..ee235092 100644 --- a/uikit/UIGraphicsRenderer.ml +++ b/uikit/UIGraphicsRenderer.ml @@ -5,22 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGraphicsRenderer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigraphicsrenderer?language=objc}UIGraphicsRenderer} *) -module C = struct - let contextWithFormat x self = msg_send ~self ~cmd:(selector "contextWithFormat:") ~typ:(id @-> returning (id)) x - let prepareCGContext x ~withRendererContext self = msg_send ~self ~cmd:(selector "prepareCGContext:withRendererContext:") ~typ:(id @-> id @-> returning (void)) x withRendererContext - let rendererContextClass self = msg_send ~self ~cmd:(selector "rendererContextClass") ~typ:(returning (_Class)) -end +let self = get_class "UIGraphicsRenderer" -let allowsImageOutput self = msg_send ~self ~cmd:(selector "allowsImageOutput") ~typ:(returning (bool)) -let format self = msg_send ~self ~cmd:(selector "format") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithBounds x self = msg_send ~self ~cmd:(selector "initWithBounds:") ~typ:(CGRect.t @-> returning (id)) x -let initWithBounds' x ~format self = msg_send ~self ~cmd:(selector "initWithBounds:format:") ~typ:(CGRect.t @-> id @-> returning (id)) x format -let initWithFormat x ~bounds self = msg_send ~self ~cmd:(selector "initWithFormat:bounds:") ~typ:(id @-> CGRect.t @-> returning (id)) x bounds -let popContext x self = msg_send ~self ~cmd:(selector "popContext:") ~typ:(id @-> returning (void)) x -let pushContext x self = msg_send ~self ~cmd:(selector "pushContext:") ~typ:(id @-> returning (void)) x -let runDrawingActions x ~completionActions ~error self = msg_send ~self ~cmd:(selector "runDrawingActions:completionActions:error:") ~typ:(ptr void @-> ptr void @-> ptr (id) @-> returning (bool)) x completionActions error -let runDrawingActions' x ~completionActions ~format ~error self = msg_send ~self ~cmd:(selector "runDrawingActions:completionActions:format:error:") ~typ:(ptr void @-> ptr void @-> id @-> ptr (id) @-> returning (bool)) x completionActions format error \ No newline at end of file +let allowsImageOutput self = msg_send ~self ~cmd:(selector "allowsImageOutput") ~typ:(returning bool) +let format self = msg_send ~self ~cmd:(selector "format") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithBounds x self = msg_send ~self ~cmd:(selector "initWithBounds:") ~typ:(CGRect.t @-> returning id) x +let initWithBounds' x ~format self = msg_send ~self ~cmd:(selector "initWithBounds:format:") ~typ:(CGRect.t @-> id @-> returning id) x format +let initWithFormat x ~bounds self = msg_send ~self ~cmd:(selector "initWithFormat:bounds:") ~typ:(id @-> CGRect.t @-> returning id) x bounds +let popContext x self = msg_send ~self ~cmd:(selector "popContext:") ~typ:(id @-> returning void) x +let pushContext x self = msg_send ~self ~cmd:(selector "pushContext:") ~typ:(id @-> returning void) x +let runDrawingActions x ~completionActions ~error self = msg_send ~self ~cmd:(selector "runDrawingActions:completionActions:error:") ~typ:((ptr void) @-> (ptr void) @-> (ptr id) @-> returning bool) x completionActions error +let runDrawingActions' x ~completionActions ~format ~error self = msg_send ~self ~cmd:(selector "runDrawingActions:completionActions:format:error:") ~typ:((ptr void) @-> (ptr void) @-> id @-> (ptr id) @-> returning bool) x completionActions format error \ No newline at end of file diff --git a/uikit/UIGraphicsRendererClass.ml b/uikit/UIGraphicsRendererClass.ml new file mode 100644 index 00000000..54712c4b --- /dev/null +++ b/uikit/UIGraphicsRendererClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigraphicsrenderer?language=objc}UIGraphicsRenderer} *) + +let contextWithFormat x self = msg_send ~self ~cmd:(selector "contextWithFormat:") ~typ:(id @-> returning (ptr CGContext.t)) x +let prepareCGContext x ~withRendererContext self = msg_send ~self ~cmd:(selector "prepareCGContext:withRendererContext:") ~typ:((ptr CGContext.t) @-> id @-> returning void) x withRendererContext +let rendererContextClass self = msg_send ~self ~cmd:(selector "rendererContextClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit/UIGraphicsRendererContext.ml b/uikit/UIGraphicsRendererContext.ml index a4028bc2..92d7aece 100644 --- a/uikit/UIGraphicsRendererContext.ml +++ b/uikit/UIGraphicsRendererContext.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGraphicsRendererContext" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigraphicsrenderercontext?language=objc}UIGraphicsRendererContext} *) -let _CGContext self = msg_send ~self ~cmd:(selector "CGContext") ~typ:(returning (id)) -let clipToRect x self = msg_send ~self ~cmd:(selector "clipToRect:") ~typ:(CGRect.t @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let fillRect x self = msg_send ~self ~cmd:(selector "fillRect:") ~typ:(CGRect.t @-> returning (void)) x -let fillRect' x ~blendMode self = msg_send ~self ~cmd:(selector "fillRect:blendMode:") ~typ:(CGRect.t @-> int @-> returning (void)) x blendMode -let format self = msg_send ~self ~cmd:(selector "format") ~typ:(returning (id)) -let initWithCGContext x ~format self = msg_send ~self ~cmd:(selector "initWithCGContext:format:") ~typ:(id @-> id @-> returning (id)) x format -let strokeRect x self = msg_send ~self ~cmd:(selector "strokeRect:") ~typ:(CGRect.t @-> returning (void)) x -let strokeRect' x ~blendMode self = msg_send ~self ~cmd:(selector "strokeRect:blendMode:") ~typ:(CGRect.t @-> int @-> returning (void)) x blendMode \ No newline at end of file +let self = get_class "UIGraphicsRendererContext" + +let _CGContext self = msg_send ~self ~cmd:(selector "CGContext") ~typ:(returning (ptr CGContext.t)) +let clipToRect x self = msg_send ~self ~cmd:(selector "clipToRect:") ~typ:(CGRect.t @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let fillRect x self = msg_send ~self ~cmd:(selector "fillRect:") ~typ:(CGRect.t @-> returning void) x +let fillRect' x ~blendMode self = msg_send ~self ~cmd:(selector "fillRect:blendMode:") ~typ:(CGRect.t @-> int @-> returning void) x blendMode +let format self = msg_send ~self ~cmd:(selector "format") ~typ:(returning id) +let initWithCGContext x ~format self = msg_send ~self ~cmd:(selector "initWithCGContext:format:") ~typ:((ptr CGContext.t) @-> id @-> returning id) x format +let strokeRect x self = msg_send ~self ~cmd:(selector "strokeRect:") ~typ:(CGRect.t @-> returning void) x +let strokeRect' x ~blendMode self = msg_send ~self ~cmd:(selector "strokeRect:blendMode:") ~typ:(CGRect.t @-> int @-> returning void) x blendMode \ No newline at end of file diff --git a/uikit/UIGraphicsRendererFormat.ml b/uikit/UIGraphicsRendererFormat.ml index 7600e561..832d932a 100644 --- a/uikit/UIGraphicsRendererFormat.ml +++ b/uikit/UIGraphicsRendererFormat.ml @@ -5,13 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGraphicsRendererFormat" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigraphicsrendererformat?language=objc}UIGraphicsRendererFormat} *) -module Class = struct - let defaultFormat self = msg_send ~self ~cmd:(selector "defaultFormat") ~typ:(returning (id)) - let preferredFormat self = msg_send ~self ~cmd:(selector "preferredFormat") ~typ:(returning (id)) -end +let self = get_class "UIGraphicsRendererFormat" -let bounds self = msg_send ~self ~cmd:(selector "bounds") ~typ:(returning (CGRect.t)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let bounds self = msg_send ~self ~cmd:(selector "bounds") ~typ:(returning CGRect.t) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x \ No newline at end of file diff --git a/uikit/UIGraphicsRendererFormatClass.ml b/uikit/UIGraphicsRendererFormatClass.ml new file mode 100644 index 00000000..5e9d8766 --- /dev/null +++ b/uikit/UIGraphicsRendererFormatClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigraphicsrendererformat?language=objc}UIGraphicsRendererFormat} *) + +let defaultFormat self = msg_send ~self ~cmd:(selector "defaultFormat") ~typ:(returning id) +let preferredFormat self = msg_send ~self ~cmd:(selector "preferredFormat") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIGravityBehavior.ml b/uikit/UIGravityBehavior.ml index 68c59d57..6b8087e7 100644 --- a/uikit/UIGravityBehavior.ml +++ b/uikit/UIGravityBehavior.ml @@ -5,26 +5,31 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIGravityBehavior" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uigravitybehavior?language=objc}UIGravityBehavior} *) -let addItem x self = msg_send ~self ~cmd:(selector "addItem:") ~typ:(id @-> returning (void)) x -let angle self = msg_send ~self ~cmd:(selector "angle") ~typ:(returning (double)) -let denormalizedGravity self = msg_send_stret ~self ~cmd:(selector "denormalizedGravity") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let gravity self = msg_send_stret ~self ~cmd:(selector "gravity") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithItems x self = msg_send ~self ~cmd:(selector "initWithItems:") ~typ:(id @-> returning (id)) x -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let magnitude self = msg_send ~self ~cmd:(selector "magnitude") ~typ:(returning (double)) -let removeItem x self = msg_send ~self ~cmd:(selector "removeItem:") ~typ:(id @-> returning (void)) x -let setAngle x self = msg_send ~self ~cmd:(selector "setAngle:") ~typ:(double @-> returning (void)) x -let setAngle' x ~magnitude self = msg_send ~self ~cmd:(selector "setAngle:magnitude:") ~typ:(double @-> double @-> returning (void)) x magnitude -let setGravity x self = msg_send ~self ~cmd:(selector "setGravity:") ~typ:(CGPoint.t @-> returning (void)) x -let setGravityDirection x self = msg_send ~self ~cmd:(selector "setGravityDirection:") ~typ:(ptr void @-> returning (void)) x -let setMagnitude x self = msg_send ~self ~cmd:(selector "setMagnitude:") ~typ:(double @-> returning (void)) x -let setXComponent x self = msg_send ~self ~cmd:(selector "setXComponent:") ~typ:(double @-> returning (void)) x -let setXComponent' x ~yComponent self = msg_send ~self ~cmd:(selector "setXComponent:yComponent:") ~typ:(double @-> double @-> returning (void)) x yComponent -let setYComponent x self = msg_send ~self ~cmd:(selector "setYComponent:") ~typ:(double @-> returning (void)) x -let xComponent self = msg_send ~self ~cmd:(selector "xComponent") ~typ:(returning (double)) -let yComponent self = msg_send ~self ~cmd:(selector "yComponent") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIGravityBehavior" + +let addItem x self = msg_send ~self ~cmd:(selector "addItem:") ~typ:(id @-> returning void) x +let angle self = msg_send ~self ~cmd:(selector "angle") ~typ:(returning double) +let denormalizedGravity self = msg_send ~self ~cmd:(selector "denormalizedGravity") ~typ:(returning CGPoint.t) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let gravity self = msg_send ~self ~cmd:(selector "gravity") ~typ:(returning CGPoint.t) +let gravityDirection self = msg_send ~self ~cmd:(selector "gravityDirection") ~typ:(returning CGVector.t) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithItems x self = msg_send ~self ~cmd:(selector "initWithItems:") ~typ:(id @-> returning id) x +let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning id) +let magnitude self = msg_send ~self ~cmd:(selector "magnitude") ~typ:(returning double) +let removeItem x self = msg_send ~self ~cmd:(selector "removeItem:") ~typ:(id @-> returning void) x +let setAngle x self = msg_send ~self ~cmd:(selector "setAngle:") ~typ:(double @-> returning void) x +let setAngle' x ~magnitude self = msg_send ~self ~cmd:(selector "setAngle:magnitude:") ~typ:(double @-> double @-> returning void) x magnitude +let setGravity x self = msg_send ~self ~cmd:(selector "setGravity:") ~typ:(CGPoint.t @-> returning void) x +let setGravityDirection x self = msg_send ~self ~cmd:(selector "setGravityDirection:") ~typ:(CGVector.t @-> returning void) x +let setMagnitude x self = msg_send ~self ~cmd:(selector "setMagnitude:") ~typ:(double @-> returning void) x +let setXComponent x self = msg_send ~self ~cmd:(selector "setXComponent:") ~typ:(double @-> returning void) x +let setXComponent' x ~yComponent self = msg_send ~self ~cmd:(selector "setXComponent:yComponent:") ~typ:(double @-> double @-> returning void) x yComponent +let setYComponent x self = msg_send ~self ~cmd:(selector "setYComponent:") ~typ:(double @-> returning void) x +let xComponent self = msg_send ~self ~cmd:(selector "xComponent") ~typ:(returning double) +let yComponent self = msg_send ~self ~cmd:(selector "yComponent") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIHBClickGestureRecognizer.ml b/uikit/UIHBClickGestureRecognizer.ml deleted file mode 100644 index e5d5580d..00000000 --- a/uikit/UIHBClickGestureRecognizer.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIHBClickGestureRecognizer" - -let clickCount self = msg_send ~self ~cmd:(selector "clickCount") ~typ:(returning (ullong)) -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEventDidReceiveTerminal x self = msg_send ~self ~cmd:(selector "pressesEventDidReceiveTerminal:") ~typ:(id @-> returning (void)) x -let recognizesOnPressPhaseBegan self = msg_send ~self ~cmd:(selector "recognizesOnPressPhaseBegan") ~typ:(returning (bool)) -let setClickCount x self = msg_send ~self ~cmd:(selector "setClickCount:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setRecognizesOnPressPhaseBegan x self = msg_send ~self ~cmd:(selector "setRecognizesOnPressPhaseBegan:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIHBDownGestureRecognizer.ml b/uikit/UIHBDownGestureRecognizer.ml deleted file mode 100644 index a01e7a1c..00000000 --- a/uikit/UIHBDownGestureRecognizer.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIHBDownGestureRecognizer" - -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let maximumIntervalBetweenPresses self = msg_send ~self ~cmd:(selector "maximumIntervalBetweenPresses") ~typ:(returning (double)) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let setAllowedPressTypes x self = msg_send ~self ~cmd:(selector "setAllowedPressTypes:") ~typ:(id @-> returning (void)) x -let setMaximumIntervalBetweenPresses x self = msg_send ~self ~cmd:(selector "setMaximumIntervalBetweenPresses:") ~typ:(double @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIHBLongClickGestureRecognizer.ml b/uikit/UIHBLongClickGestureRecognizer.ml deleted file mode 100644 index bc21c040..00000000 --- a/uikit/UIHBLongClickGestureRecognizer.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIHBLongClickGestureRecognizer" - -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let numberOfClicksRequired self = msg_send ~self ~cmd:(selector "numberOfClicksRequired") ~typ:(returning (ullong)) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEventDidReceiveTerminal x self = msg_send ~self ~cmd:(selector "pressesEventDidReceiveTerminal:") ~typ:(id @-> returning (void)) x -let setNumberOfClicksRequired x self = msg_send ~self ~cmd:(selector "setNumberOfClicksRequired:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UIHandleLocalNotificationAction.ml b/uikit/UIHandleLocalNotificationAction.ml index c113361d..cfc49ebb 100644 --- a/uikit/UIHandleLocalNotificationAction.ml +++ b/uikit/UIHandleLocalNotificationAction.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIHandleLocalNotificationAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uihandlelocalnotificationaction?language=objc}UIHandleLocalNotificationAction} *) -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (id)) -let initWithInfo x ~timeout ~forResponseOnQueue ~withHandler self = msg_send ~self ~cmd:(selector "initWithInfo:timeout:forResponseOnQueue:withHandler:") ~typ:(id @-> double @-> id @-> ptr void @-> returning (id)) x timeout forResponseOnQueue withHandler -let initWithNotification x self = msg_send ~self ~cmd:(selector "initWithNotification:") ~typ:(id @-> returning (id)) x -let initWithNotification1 x ~withHandler self = msg_send ~self ~cmd:(selector "initWithNotification:withHandler:") ~typ:(id @-> ptr void @-> returning (id)) x withHandler -let initWithNotification2 x ~action ~withHandler self = msg_send ~self ~cmd:(selector "initWithNotification:action:withHandler:") ~typ:(id @-> id @-> ptr void @-> returning (id)) x action withHandler -let initWithNotification3 x ~action ~userResponse ~withHandler self = msg_send ~self ~cmd:(selector "initWithNotification:action:userResponse:withHandler:") ~typ:(id @-> id @-> id @-> ptr void @-> returning (id)) x action userResponse withHandler -let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning (id)) x -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let notification self = msg_send ~self ~cmd:(selector "notification") ~typ:(returning (id)) -let userResponse self = msg_send ~self ~cmd:(selector "userResponse") ~typ:(returning (id)) -let valueDescriptionForFlag x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning (id)) (LLong.of_int x) object_ (ULLong.of_int ofSetting) \ No newline at end of file +let self = get_class "UIHandleLocalNotificationAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning id) +let initWithInfo x ~timeout ~forResponseOnQueue ~withHandler self = msg_send ~self ~cmd:(selector "initWithInfo:timeout:forResponseOnQueue:withHandler:") ~typ:(id @-> double @-> id @-> (ptr void) @-> returning id) x timeout forResponseOnQueue withHandler +let initWithNotification x self = msg_send ~self ~cmd:(selector "initWithNotification:") ~typ:(id @-> returning id) x +let initWithNotification1 x ~withHandler self = msg_send ~self ~cmd:(selector "initWithNotification:withHandler:") ~typ:(id @-> (ptr void) @-> returning id) x withHandler +let initWithNotification2 x ~action ~withHandler self = msg_send ~self ~cmd:(selector "initWithNotification:action:withHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning id) x action withHandler +let initWithNotification3 x ~action ~userResponse ~withHandler self = msg_send ~self ~cmd:(selector "initWithNotification:action:userResponse:withHandler:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning id) x action userResponse withHandler +let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning id) x +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let notification self = msg_send ~self ~cmd:(selector "notification") ~typ:(returning id) +let userResponse self = msg_send ~self ~cmd:(selector "userResponse") ~typ:(returning id) +let valueDescriptionForFlag x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning id) (LLong.of_int x) object_ (ULLong.of_int ofSetting) \ No newline at end of file diff --git a/uikit/UIHandleStatusBarTapAction.ml b/uikit/UIHandleStatusBarTapAction.ml index abfbec4b..2bc47591 100644 --- a/uikit/UIHandleStatusBarTapAction.ml +++ b/uikit/UIHandleStatusBarTapAction.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIHandleStatusBarTapAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uihandlestatusbartapaction?language=objc}UIHandleStatusBarTapAction} *) -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let initWithInfo x ~timeout ~forResponseOnQueue ~withHandler self = msg_send ~self ~cmd:(selector "initWithInfo:timeout:forResponseOnQueue:withHandler:") ~typ:(id @-> double @-> id @-> ptr void @-> returning (id)) x timeout forResponseOnQueue withHandler -let initWithStatusBarStyle x self = msg_send ~self ~cmd:(selector "initWithStatusBarStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let initWithStatusBarStyle' x ~andStatusBarStyleOverride self = msg_send ~self ~cmd:(selector "initWithStatusBarStyle:andStatusBarStyleOverride:") ~typ:(llong @-> ullong @-> returning (id)) (LLong.of_int x) (ULLong.of_int andStatusBarStyleOverride) -let initWithStatusBarStyleOverride x self = msg_send ~self ~cmd:(selector "initWithStatusBarStyleOverride:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let statusBarStyle self = msg_send ~self ~cmd:(selector "statusBarStyle") ~typ:(returning (llong)) -let statusBarStyleOverride self = msg_send ~self ~cmd:(selector "statusBarStyleOverride") ~typ:(returning (ullong)) \ No newline at end of file +let self = get_class "UIHandleStatusBarTapAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let initWithInfo x ~timeout ~forResponseOnQueue ~withHandler self = msg_send ~self ~cmd:(selector "initWithInfo:timeout:forResponseOnQueue:withHandler:") ~typ:(id @-> double @-> id @-> (ptr void) @-> returning id) x timeout forResponseOnQueue withHandler +let initWithStatusBarStyle x self = msg_send ~self ~cmd:(selector "initWithStatusBarStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let initWithStatusBarStyle' x ~andStatusBarStyleOverride self = msg_send ~self ~cmd:(selector "initWithStatusBarStyle:andStatusBarStyleOverride:") ~typ:(llong @-> ullong @-> returning id) (LLong.of_int x) (ULLong.of_int andStatusBarStyleOverride) +let initWithStatusBarStyleOverride x self = msg_send ~self ~cmd:(selector "initWithStatusBarStyleOverride:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let statusBarStyle self = msg_send ~self ~cmd:(selector "statusBarStyle") ~typ:(returning llong) +let statusBarStyleOverride self = msg_send ~self ~cmd:(selector "statusBarStyleOverride") ~typ:(returning ullong) \ No newline at end of file diff --git a/uikit/UIHandwritingAssistantView.ml b/uikit/UIHandwritingAssistantView.ml index 75e490b4..40ebf556 100644 --- a/uikit/UIHandwritingAssistantView.ml +++ b/uikit/UIHandwritingAssistantView.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIHandwritingAssistantView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uihandwritingassistantview?language=objc}UIHandwritingAssistantView} *) -let assistantFrameForKeyplane x ~key self = msg_send_stret ~self ~cmd:(selector "assistantFrameForKeyplane:key:") ~typ:(id @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x key -let candidateList self = msg_send ~self ~cmd:(selector "candidateList") ~typ:(returning (id)) -let candidateView self = msg_send ~self ~cmd:(selector "candidateView") ~typ:(returning (id)) -let rightBorder self = msg_send ~self ~cmd:(selector "rightBorder") ~typ:(returning (id)) -let setCandidateView x self = msg_send ~self ~cmd:(selector "setCandidateView:") ~typ:(id @-> returning (void)) x -let setRightBorder x self = msg_send ~self ~cmd:(selector "setRightBorder:") ~typ:(id @-> returning (void)) x -let setSystemInputAssistantView x self = msg_send ~self ~cmd:(selector "setSystemInputAssistantView:") ~typ:(id @-> returning (void)) x -let systemInputAssistantView self = msg_send ~self ~cmd:(selector "systemInputAssistantView") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIHandwritingAssistantView" + +let assistantFrameForKeyplane x ~key self = msg_send ~self ~cmd:(selector "assistantFrameForKeyplane:key:") ~typ:(id @-> id @-> returning CGRect.t) x key +let candidateList self = msg_send ~self ~cmd:(selector "candidateList") ~typ:(returning id) +let candidateView self = msg_send ~self ~cmd:(selector "candidateView") ~typ:(returning id) +let rightBorder self = msg_send ~self ~cmd:(selector "rightBorder") ~typ:(returning id) +let setCandidateView x self = msg_send ~self ~cmd:(selector "setCandidateView:") ~typ:(id @-> returning void) x +let setRightBorder x self = msg_send ~self ~cmd:(selector "setRightBorder:") ~typ:(id @-> returning void) x +let setSystemInputAssistantView x self = msg_send ~self ~cmd:(selector "setSystemInputAssistantView:") ~typ:(id @-> returning void) x +let systemInputAssistantView self = msg_send ~self ~cmd:(selector "systemInputAssistantView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIHealthAuthorizationAction.ml b/uikit/UIHealthAuthorizationAction.ml index 00fb4b2f..198d04ab 100644 --- a/uikit/UIHealthAuthorizationAction.ml +++ b/uikit/UIHealthAuthorizationAction.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIHealthAuthorizationAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uihealthauthorizationaction?language=objc}UIHealthAuthorizationAction} *) -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIHealthAuthorizationAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIHeldAction.ml b/uikit/UIHeldAction.ml index 0a25690d..49bc2c6e 100644 --- a/uikit/UIHeldAction.ml +++ b/uikit/UIHeldAction.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIHeldAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiheldaction?language=objc}UIHeldAction} *) -let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning (void)) -let hold self = msg_send ~self ~cmd:(selector "hold") ~typ:(returning (void)) -let isHolding self = msg_send ~self ~cmd:(selector "isHolding") ~typ:(returning (bool)) -let resume self = msg_send ~self ~cmd:(selector "resume") ~typ:(returning (void)) -let touchWithDelay x self = msg_send ~self ~cmd:(selector "touchWithDelay:") ~typ:(double @-> returning (void)) x -let unschedule self = msg_send ~self ~cmd:(selector "unschedule") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIHeldAction" + +let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning void) +let hold self = msg_send ~self ~cmd:(selector "hold") ~typ:(returning void) +let isHolding self = msg_send ~self ~cmd:(selector "isHolding") ~typ:(returning bool) +let resume self = msg_send ~self ~cmd:(selector "resume") ~typ:(returning void) +let touchWithDelay x self = msg_send ~self ~cmd:(selector "touchWithDelay:") ~typ:(double @-> returning void) x +let unschedule self = msg_send ~self ~cmd:(selector "unschedule") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIHoverEvent.ml b/uikit/UIHoverEvent.ml index b804f8fa..152405de 100644 --- a/uikit/UIHoverEvent.ml +++ b/uikit/UIHoverEvent.ml @@ -5,21 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIHoverEvent" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uihoverevent?language=objc}UIHoverEvent} *) -let allTouches self = msg_send ~self ~cmd:(selector "allTouches") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let hasOutstandingUpdates self = msg_send ~self ~cmd:(selector "hasOutstandingUpdates") ~typ:(returning (bool)) -let hoverTouchForContextId x ~pathIndex self = msg_send ~self ~cmd:(selector "hoverTouchForContextId:pathIndex:") ~typ:(uint @-> llong @-> returning (id)) x (LLong.of_int pathIndex) -let removeHoverTouchForContextId x ~pathIndex self = msg_send ~self ~cmd:(selector "removeHoverTouchForContextId:pathIndex:") ~typ:(uint @-> llong @-> returning (void)) x (LLong.of_int pathIndex) -let removeTouch x ~fromGestureRecognizer self = msg_send ~self ~cmd:(selector "removeTouch:fromGestureRecognizer:") ~typ:(id @-> id @-> returning (void)) x fromGestureRecognizer -let setHasOutstandingUpdates x self = msg_send ~self ~cmd:(selector "setHasOutstandingUpdates:") ~typ:(bool @-> returning (void)) x -let setHoverTouch x ~forContextId ~pathIndex self = msg_send ~self ~cmd:(selector "setHoverTouch:forContextId:pathIndex:") ~typ:(id @-> uint @-> llong @-> returning (void)) x forContextId (LLong.of_int pathIndex) -let setNeedsHitTestResetForWindow x self = msg_send ~self ~cmd:(selector "setNeedsHitTestResetForWindow:") ~typ:(id @-> returning (void)) x -let setNeedsUpdateForWindow x self = msg_send ~self ~cmd:(selector "setNeedsUpdateForWindow:") ~typ:(id @-> returning (void)) x -let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning (llong)) -let touchesForGestureRecognizer x self = msg_send ~self ~cmd:(selector "touchesForGestureRecognizer:") ~typ:(id @-> returning (id)) x -let touchesForView x self = msg_send ~self ~cmd:(selector "touchesForView:") ~typ:(id @-> returning (id)) x -let touchesForWindow x self = msg_send ~self ~cmd:(selector "touchesForWindow:") ~typ:(id @-> returning (id)) x -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIHoverEvent" + +let allTouches self = msg_send ~self ~cmd:(selector "allTouches") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let hasOutstandingUpdates self = msg_send ~self ~cmd:(selector "hasOutstandingUpdates") ~typ:(returning bool) +let hoverTouchForContextId x ~pathIndex self = msg_send ~self ~cmd:(selector "hoverTouchForContextId:pathIndex:") ~typ:(uint @-> llong @-> returning id) x (LLong.of_int pathIndex) +let removeHoverTouchForContextId x ~pathIndex self = msg_send ~self ~cmd:(selector "removeHoverTouchForContextId:pathIndex:") ~typ:(uint @-> llong @-> returning void) x (LLong.of_int pathIndex) +let removeTouch x ~fromGestureRecognizer self = msg_send ~self ~cmd:(selector "removeTouch:fromGestureRecognizer:") ~typ:(id @-> id @-> returning void) x fromGestureRecognizer +let setHasOutstandingUpdates x self = msg_send ~self ~cmd:(selector "setHasOutstandingUpdates:") ~typ:(bool @-> returning void) x +let setHoverTouch x ~forContextId ~pathIndex self = msg_send ~self ~cmd:(selector "setHoverTouch:forContextId:pathIndex:") ~typ:(id @-> uint @-> llong @-> returning void) x forContextId (LLong.of_int pathIndex) +let setNeedsHitTestResetForWindow x self = msg_send ~self ~cmd:(selector "setNeedsHitTestResetForWindow:") ~typ:(id @-> returning void) x +let setNeedsUpdateForWindow x self = msg_send ~self ~cmd:(selector "setNeedsUpdateForWindow:") ~typ:(id @-> returning void) x +let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning llong) +let touchesForGestureRecognizer x self = msg_send ~self ~cmd:(selector "touchesForGestureRecognizer:") ~typ:(id @-> returning id) x +let touchesForView x self = msg_send ~self ~cmd:(selector "touchesForView:") ~typ:(id @-> returning id) x +let touchesForWindow x self = msg_send ~self ~cmd:(selector "touchesForWindow:") ~typ:(id @-> returning id) x +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIHoverGestureRecognizer.ml b/uikit/UIHoverGestureRecognizer.ml index c403d173..a166f204 100644 --- a/uikit/UIHoverGestureRecognizer.ml +++ b/uikit/UIHoverGestureRecognizer.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIHoverGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uihovergesturerecognizer?language=objc}UIHoverGestureRecognizer} *) -let canBePreventedByGestureRecognizer x self = msg_send ~self ~cmd:(selector "canBePreventedByGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIHoverGestureRecognizer" + +let canBePreventedByGestureRecognizer x self = msg_send ~self ~cmd:(selector "canBePreventedByGestureRecognizer:") ~typ:(id @-> returning bool) x +let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning bool) x +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIImage.ml b/uikit/UIImage.ml index 351416d2..e87700bb 100644 --- a/uikit/UIImage.ml +++ b/uikit/UIImage.ml @@ -5,161 +5,118 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIImage" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiimage?language=objc}UIImage} *) -module C = struct - let actionsImage self = msg_send ~self ~cmd:(selector "actionsImage") ~typ:(returning (id)) - let actionsImageWithConfiguration x self = msg_send ~self ~cmd:(selector "actionsImageWithConfiguration:") ~typ:(id @-> returning (id)) x - let addImage self = msg_send ~self ~cmd:(selector "addImage") ~typ:(returning (id)) - let addImageWithConfiguration x self = msg_send ~self ~cmd:(selector "addImageWithConfiguration:") ~typ:(id @-> returning (id)) x - let akImageNamed x self = msg_send ~self ~cmd:(selector "akImageNamed:") ~typ:(id @-> returning (id)) x - let animatedImageNamed x ~duration self = msg_send ~self ~cmd:(selector "animatedImageNamed:duration:") ~typ:(id @-> double @-> returning (id)) x duration - let animatedImageWithImages x ~duration self = msg_send ~self ~cmd:(selector "animatedImageWithImages:duration:") ~typ:(id @-> double @-> returning (id)) x duration - let animatedResizableImageNamed x ~capInsets ~duration self = msg_send ~self ~cmd:(selector "animatedResizableImageNamed:capInsets:duration:") ~typ:(id @-> ptr void @-> double @-> returning (id)) x capInsets duration - let animatedResizableImageNamed' x ~capInsets ~resizingMode ~duration self = msg_send ~self ~cmd:(selector "animatedResizableImageNamed:capInsets:resizingMode:duration:") ~typ:(id @-> ptr void @-> llong @-> double @-> returning (id)) x capInsets (LLong.of_int resizingMode) duration - let checkmarkImage self = msg_send ~self ~cmd:(selector "checkmarkImage") ~typ:(returning (id)) - let checkmarkImageWithConfiguration x self = msg_send ~self ~cmd:(selector "checkmarkImageWithConfiguration:") ~typ:(id @-> returning (id)) x - let imageAtPath x self = msg_send ~self ~cmd:(selector "imageAtPath:") ~typ:(id @-> returning (id)) x - let imageFromAlbumArtData x ~height ~width ~bytesPerRow ~cache self = msg_send ~self ~cmd:(selector "imageFromAlbumArtData:height:width:bytesPerRow:cache:") ~typ:(id @-> int @-> int @-> int @-> bool @-> returning (id)) x height width bytesPerRow cache - let imageNamed x self = msg_send ~self ~cmd:(selector "imageNamed:") ~typ:(id @-> returning (id)) x - let imageNamed1 x ~inBundle self = msg_send ~self ~cmd:(selector "imageNamed:inBundle:") ~typ:(id @-> id @-> returning (id)) x inBundle - let imageNamed2 x ~withConfiguration self = msg_send ~self ~cmd:(selector "imageNamed:withConfiguration:") ~typ:(id @-> id @-> returning (id)) x withConfiguration - let imageNamed3 x ~inBundle ~compatibleWithTraitCollection self = msg_send ~self ~cmd:(selector "imageNamed:inBundle:compatibleWithTraitCollection:") ~typ:(id @-> id @-> id @-> returning (id)) x inBundle compatibleWithTraitCollection - let imageNamed4 x ~inBundle ~withConfiguration self = msg_send ~self ~cmd:(selector "imageNamed:inBundle:withConfiguration:") ~typ:(id @-> id @-> id @-> returning (id)) x inBundle withConfiguration - let imageWithCGImage x self = msg_send ~self ~cmd:(selector "imageWithCGImage:") ~typ:(id @-> returning (id)) x - let imageWithCGImage' x ~scale ~orientation self = msg_send ~self ~cmd:(selector "imageWithCGImage:scale:orientation:") ~typ:(id @-> double @-> llong @-> returning (id)) x scale (LLong.of_int orientation) - let imageWithCIImage x self = msg_send ~self ~cmd:(selector "imageWithCIImage:") ~typ:(id @-> returning (id)) x - let imageWithCIImage' x ~scale ~orientation self = msg_send ~self ~cmd:(selector "imageWithCIImage:scale:orientation:") ~typ:(id @-> double @-> llong @-> returning (id)) x scale (LLong.of_int orientation) - let imageWithContentsOfCPBitmapFile x ~flags self = msg_send ~self ~cmd:(selector "imageWithContentsOfCPBitmapFile:flags:") ~typ:(id @-> int @-> returning (id)) x flags - let imageWithContentsOfFile x self = msg_send ~self ~cmd:(selector "imageWithContentsOfFile:") ~typ:(id @-> returning (id)) x - let imageWithData x self = msg_send ~self ~cmd:(selector "imageWithData:") ~typ:(id @-> returning (id)) x - let imageWithData' x ~scale self = msg_send ~self ~cmd:(selector "imageWithData:scale:") ~typ:(id @-> double @-> returning (id)) x scale - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let kitImageNamed x self = msg_send ~self ~cmd:(selector "kitImageNamed:") ~typ:(id @-> returning (id)) x - let load self = msg_send ~self ~cmd:(selector "load") ~typ:(returning (void)) - let objectWithItemProviderData x ~typeIdentifier ~error self = msg_send ~self ~cmd:(selector "objectWithItemProviderData:typeIdentifier:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (id)) x typeIdentifier error - let preferredSymbolImageNamed x self = msg_send ~self ~cmd:(selector "preferredSymbolImageNamed:") ~typ:(id @-> returning (id)) x - let preferredSymbolImageNamed1 x ~size ~compatibleWithTextStyle self = msg_send ~self ~cmd:(selector "preferredSymbolImageNamed:size:compatibleWithTextStyle:") ~typ:(id @-> llong @-> id @-> returning (id)) x (LLong.of_int size) compatibleWithTextStyle - let preferredSymbolImageNamed2 x ~size ~compatibleWithTextStyle ~traitCollection ~inBundle self = msg_send ~self ~cmd:(selector "preferredSymbolImageNamed:size:compatibleWithTextStyle:traitCollection:inBundle:") ~typ:(id @-> llong @-> id @-> id @-> id @-> returning (id)) x (LLong.of_int size) compatibleWithTextStyle traitCollection inBundle - let readableTypeIdentifiersForItemProvider self = msg_send ~self ~cmd:(selector "readableTypeIdentifiersForItemProvider") ~typ:(returning (id)) - let removeImage self = msg_send ~self ~cmd:(selector "removeImage") ~typ:(returning (id)) - let removeImageWithConfiguration x self = msg_send ~self ~cmd:(selector "removeImageWithConfiguration:") ~typ:(id @-> returning (id)) x - let strokedCheckmarkImage self = msg_send ~self ~cmd:(selector "strokedCheckmarkImage") ~typ:(returning (id)) - let strokedCheckmarkImageWithConfiguration x self = msg_send ~self ~cmd:(selector "strokedCheckmarkImageWithConfiguration:") ~typ:(id @-> returning (id)) x - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) - let symbolImageNamed x self = msg_send ~self ~cmd:(selector "symbolImageNamed:") ~typ:(id @-> returning (id)) x - let symbolImageNamed1 x ~size ~compatibleWithFont self = msg_send ~self ~cmd:(selector "symbolImageNamed:size:compatibleWithFont:") ~typ:(id @-> llong @-> id @-> returning (id)) x (LLong.of_int size) compatibleWithFont - let symbolImageNamed2 x ~size ~weight ~compatibleWithFontSize self = msg_send ~self ~cmd:(selector "symbolImageNamed:size:weight:compatibleWithFontSize:") ~typ:(id @-> llong @-> llong @-> double @-> returning (id)) x (LLong.of_int size) (LLong.of_int weight) compatibleWithFontSize - let symbolImageNamed3 x ~size ~compatibleWithFont ~traitCollection ~inBundle self = msg_send ~self ~cmd:(selector "symbolImageNamed:size:compatibleWithFont:traitCollection:inBundle:") ~typ:(id @-> llong @-> id @-> id @-> id @-> returning (id)) x (LLong.of_int size) compatibleWithFont traitCollection inBundle - let symbolImageNamed4 x ~size ~weight ~compatibleWithFontSize ~traitCollection ~inBundle self = msg_send ~self ~cmd:(selector "symbolImageNamed:size:weight:compatibleWithFontSize:traitCollection:inBundle:") ~typ:(id @-> llong @-> llong @-> double @-> id @-> id @-> returning (id)) x (LLong.of_int size) (LLong.of_int weight) compatibleWithFontSize traitCollection inBundle - let systemImageNamed x self = msg_send ~self ~cmd:(selector "systemImageNamed:") ~typ:(id @-> returning (id)) x - let systemImageNamed1 x ~compatibleWithTraitCollection self = msg_send ~self ~cmd:(selector "systemImageNamed:compatibleWithTraitCollection:") ~typ:(id @-> id @-> returning (id)) x compatibleWithTraitCollection - let systemImageNamed2 x ~withConfiguration self = msg_send ~self ~cmd:(selector "systemImageNamed:withConfiguration:") ~typ:(id @-> id @-> returning (id)) x withConfiguration - let writableTypeIdentifiersForItemProvider self = msg_send ~self ~cmd:(selector "writableTypeIdentifiersForItemProvider") ~typ:(returning (id)) -end +let self = get_class "UIImage" -let _CGImage self = msg_send ~self ~cmd:(selector "CGImage") ~typ:(returning (id)) -let _CIImage self = msg_send ~self ~cmd:(selector "CIImage") ~typ:(returning (id)) -let akCGImage self = msg_send ~self ~cmd:(selector "akCGImage") ~typ:(returning (id)) -let artworkCatalogBackingFileURL self = msg_send ~self ~cmd:(selector "artworkCatalogBackingFileURL") ~typ:(returning (id)) -let badgeImageToDisplayWithScreenScale x ~nightMode self = msg_send ~self ~cmd:(selector "badgeImageToDisplayWithScreenScale:nightMode:") ~typ:(double @-> bool @-> returning (id)) x nightMode -let baselineOffsetFromBottom self = msg_send ~self ~cmd:(selector "baselineOffsetFromBottom") ~typ:(returning (double)) -let compositeToPoint x ~operation self = msg_send ~self ~cmd:(selector "compositeToPoint:operation:") ~typ:(CGPoint.t @-> int @-> returning (void)) x operation -let compositeToPoint1 x ~operation ~fraction self = msg_send ~self ~cmd:(selector "compositeToPoint:operation:fraction:") ~typ:(CGPoint.t @-> int @-> double @-> returning (void)) x operation fraction -let compositeToPoint2 x ~fromRect ~operation ~fraction self = msg_send ~self ~cmd:(selector "compositeToPoint:fromRect:operation:fraction:") ~typ:(CGPoint.t @-> CGRect.t @-> int @-> double @-> returning (void)) x fromRect operation fraction -let compositeToRect x ~fromRect ~operation ~fraction self = msg_send ~self ~cmd:(selector "compositeToRect:fromRect:operation:fraction:") ~typ:(CGRect.t @-> CGRect.t @-> int @-> double @-> returning (void)) x fromRect operation fraction -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) -let content self = msg_send ~self ~cmd:(selector "content") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let draw1PartImageInRect x self = msg_send ~self ~cmd:(selector "draw1PartImageInRect:") ~typ:(CGRect.t @-> returning (void)) x -let draw1PartImageInRect1 x ~fraction self = msg_send ~self ~cmd:(selector "draw1PartImageInRect:fraction:") ~typ:(CGRect.t @-> double @-> returning (void)) x fraction -let draw1PartImageInRect2 x ~fraction ~operation self = msg_send ~self ~cmd:(selector "draw1PartImageInRect:fraction:operation:") ~typ:(CGRect.t @-> double @-> int @-> returning (void)) x fraction operation -let draw3PartImageWithSliceRects x ~inRect self = msg_send ~self ~cmd:(selector "draw3PartImageWithSliceRects:inRect:") ~typ:(ptr void @-> CGRect.t @-> returning (void)) x inRect -let draw3PartImageWithSliceRects1 x ~inRect ~fraction self = msg_send ~self ~cmd:(selector "draw3PartImageWithSliceRects:inRect:fraction:") ~typ:(ptr void @-> CGRect.t @-> double @-> returning (void)) x inRect fraction -let draw3PartImageWithSliceRects2 x ~inRect ~operation ~fraction self = msg_send ~self ~cmd:(selector "draw3PartImageWithSliceRects:inRect:operation:fraction:") ~typ:(ptr void @-> CGRect.t @-> int @-> double @-> returning (void)) x inRect operation fraction -let draw9PartImageWithSliceRects x ~inRect self = msg_send ~self ~cmd:(selector "draw9PartImageWithSliceRects:inRect:") ~typ:(ptr void @-> CGRect.t @-> returning (void)) x inRect -let draw9PartImageWithSliceRects1 x ~inRect ~fraction self = msg_send ~self ~cmd:(selector "draw9PartImageWithSliceRects:inRect:fraction:") ~typ:(ptr void @-> CGRect.t @-> double @-> returning (void)) x inRect fraction -let draw9PartImageWithSliceRects2 x ~inRect ~operation ~fraction self = msg_send ~self ~cmd:(selector "draw9PartImageWithSliceRects:inRect:operation:fraction:") ~typ:(ptr void @-> CGRect.t @-> int @-> double @-> returning (void)) x inRect operation fraction -let drawAsPatternInRect x self = msg_send ~self ~cmd:(selector "drawAsPatternInRect:") ~typ:(CGRect.t @-> returning (void)) x -let drawAtPoint x self = msg_send ~self ~cmd:(selector "drawAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let drawAtPoint' x ~blendMode ~alpha self = msg_send ~self ~cmd:(selector "drawAtPoint:blendMode:alpha:") ~typ:(CGPoint.t @-> int @-> double @-> returning (void)) x blendMode alpha -let drawInRect x self = msg_send ~self ~cmd:(selector "drawInRect:") ~typ:(CGRect.t @-> returning (void)) x -let drawInRect' x ~blendMode ~alpha self = msg_send ~self ~cmd:(selector "drawInRect:blendMode:alpha:") ~typ:(CGRect.t @-> int @-> double @-> returning (void)) x blendMode alpha -let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning (double)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let flattenedImageWithColor x self = msg_send ~self ~cmd:(selector "flattenedImageWithColor:") ~typ:(id @-> returning (id)) x -let flipsForRightToLeftLayoutDirection self = msg_send ~self ~cmd:(selector "flipsForRightToLeftLayoutDirection") ~typ:(returning (bool)) -let hasBaseline self = msg_send ~self ~cmd:(selector "hasBaseline") ~typ:(returning (bool)) -let hasContentInsets self = msg_send ~self ~cmd:(selector "hasContentInsets") ~typ:(returning (bool)) -let hasMidline self = msg_send ~self ~cmd:(selector "hasMidline") ~typ:(returning (bool)) -let hasPadding self = msg_send ~self ~cmd:(selector "hasPadding") ~typ:(returning (bool)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let imageAsset self = msg_send ~self ~cmd:(selector "imageAsset") ~typ:(returning (id)) -let imageByAddingContentInsets x self = msg_send ~self ~cmd:(selector "imageByAddingContentInsets:") ~typ:(ptr void @-> returning (id)) x -let imageByAddingPadding x self = msg_send ~self ~cmd:(selector "imageByAddingPadding:") ~typ:(ptr void @-> returning (id)) x -let imageByApplyingSymbolConfiguration x self = msg_send ~self ~cmd:(selector "imageByApplyingSymbolConfiguration:") ~typ:(id @-> returning (id)) x -let imageByPreparingForDisplay self = msg_send ~self ~cmd:(selector "imageByPreparingForDisplay") ~typ:(returning (id)) -let imageByPreparingThumbnailOfSize x self = msg_send ~self ~cmd:(selector "imageByPreparingThumbnailOfSize:") ~typ:(CGSize.t @-> returning (id)) x -let imageFlippedForRightToLeftLayoutDirection self = msg_send ~self ~cmd:(selector "imageFlippedForRightToLeftLayoutDirection") ~typ:(returning (id)) -let imageOrientation self = msg_send ~self ~cmd:(selector "imageOrientation") ~typ:(returning (llong)) -let imageRef self = msg_send ~self ~cmd:(selector "imageRef") ~typ:(returning (id)) -let imageRendererFormat self = msg_send ~self ~cmd:(selector "imageRendererFormat") ~typ:(returning (id)) -let imageToDisplayWithScreenScale x ~nightMode self = msg_send ~self ~cmd:(selector "imageToDisplayWithScreenScale:nightMode:") ~typ:(double @-> bool @-> returning (id)) x nightMode -let imageWithAlignmentRectInsets x self = msg_send ~self ~cmd:(selector "imageWithAlignmentRectInsets:") ~typ:(ptr void @-> returning (id)) x -let imageWithBaselineOffsetFromBottom x self = msg_send ~self ~cmd:(selector "imageWithBaselineOffsetFromBottom:") ~typ:(double @-> returning (id)) x -let imageWithConfiguration x self = msg_send ~self ~cmd:(selector "imageWithConfiguration:") ~typ:(id @-> returning (id)) x -let imageWithContentInsets x self = msg_send ~self ~cmd:(selector "imageWithContentInsets:") ~typ:(ptr void @-> returning (id)) x -let imageWithEtchedBorderOfColor x ~radius self = msg_send ~self ~cmd:(selector "imageWithEtchedBorderOfColor:radius:") ~typ:(id @-> double @-> returning (id)) x radius -let imageWithHorizontallyFlippedOrientation self = msg_send ~self ~cmd:(selector "imageWithHorizontallyFlippedOrientation") ~typ:(returning (id)) -let imageWithMidlineOffsetFromCenter x self = msg_send ~self ~cmd:(selector "imageWithMidlineOffsetFromCenter:") ~typ:(double @-> returning (id)) x -let imageWithPadding x self = msg_send ~self ~cmd:(selector "imageWithPadding:") ~typ:(ptr void @-> returning (id)) x -let imageWithRenderingMode x self = msg_send ~self ~cmd:(selector "imageWithRenderingMode:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let imageWithRoundedCornersOfRadius x self = msg_send ~self ~cmd:(selector "imageWithRoundedCornersOfRadius:") ~typ:(double @-> returning (id)) x -let imageWithShadow x self = msg_send ~self ~cmd:(selector "imageWithShadow:") ~typ:(id @-> returning (id)) x -let imageWithSymbolConfiguration x self = msg_send ~self ~cmd:(selector "imageWithSymbolConfiguration:") ~typ:(id @-> returning (id)) x -let imageWithTintColor x self = msg_send ~self ~cmd:(selector "imageWithTintColor:") ~typ:(id @-> returning (id)) x -let imageWithTintColor' x ~renderingMode self = msg_send ~self ~cmd:(selector "imageWithTintColor:renderingMode:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int renderingMode) -let imageWithoutBaseline self = msg_send ~self ~cmd:(selector "imageWithoutBaseline") ~typ:(returning (id)) -let imageWithoutMidline self = msg_send ~self ~cmd:(selector "imageWithoutMidline") ~typ:(returning (id)) -let images self = msg_send ~self ~cmd:(selector "images") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCGImage x self = msg_send ~self ~cmd:(selector "initWithCGImage:") ~typ:(id @-> returning (id)) x -let initWithCGImage1 x ~imageOrientation self = msg_send ~self ~cmd:(selector "initWithCGImage:imageOrientation:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int imageOrientation) -let initWithCGImage2 x ~scale ~orientation self = msg_send ~self ~cmd:(selector "initWithCGImage:scale:orientation:") ~typ:(id @-> double @-> llong @-> returning (id)) x scale (LLong.of_int orientation) -let initWithCIImage x self = msg_send ~self ~cmd:(selector "initWithCIImage:") ~typ:(id @-> returning (id)) x -let initWithCIImage' x ~scale ~orientation self = msg_send ~self ~cmd:(selector "initWithCIImage:scale:orientation:") ~typ:(id @-> double @-> llong @-> returning (id)) x scale (LLong.of_int orientation) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithContentsOfExactFilePath x self = msg_send ~self ~cmd:(selector "initWithContentsOfExactFilePath:") ~typ:(id @-> returning (id)) x -let initWithContentsOfFile x self = msg_send ~self ~cmd:(selector "initWithContentsOfFile:") ~typ:(id @-> returning (id)) x -let initWithContentsOfFile' x ~cache self = msg_send ~self ~cmd:(selector "initWithContentsOfFile:cache:") ~typ:(id @-> bool @-> returning (id)) x cache -let initWithData x self = msg_send ~self ~cmd:(selector "initWithData:") ~typ:(id @-> returning (id)) x -let initWithData1 x ~cache self = msg_send ~self ~cmd:(selector "initWithData:cache:") ~typ:(id @-> bool @-> returning (id)) x cache -let initWithData2 x ~scale self = msg_send ~self ~cmd:(selector "initWithData:scale:") ~typ:(id @-> double @-> returning (id)) x scale -let initWithIOSurface x self = msg_send ~self ~cmd:(selector "initWithIOSurface:") ~typ:(ptr void @-> returning (id)) x -let initWithItemProviderData x ~typeIdentifier ~error self = msg_send ~self ~cmd:(selector "initWithItemProviderData:typeIdentifier:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (id)) x typeIdentifier error -let ioSurface self = msg_send ~self ~cmd:(selector "ioSurface") ~typ:(returning (ptr void)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isFromStatusBarImageProvider self = msg_send ~self ~cmd:(selector "isFromStatusBarImageProvider") ~typ:(returning (bool)) -let isSymbolImage self = msg_send ~self ~cmd:(selector "isSymbolImage") ~typ:(returning (bool)) -let leftCapWidth self = msg_send ~self ~cmd:(selector "leftCapWidth") ~typ:(returning (llong)) -let loadDataWithTypeIdentifier x ~forItemProviderCompletionHandler self = msg_send ~self ~cmd:(selector "loadDataWithTypeIdentifier:forItemProviderCompletionHandler:") ~typ:(id @-> ptr void @-> returning (id)) x forItemProviderCompletionHandler -let midlineOffsetFromCenter self = msg_send ~self ~cmd:(selector "midlineOffsetFromCenter") ~typ:(returning (double)) -let patternColor self = msg_send ~self ~cmd:(selector "patternColor") ~typ:(returning (id)) -let preferredPresentationSizeForItemProvider self = msg_send_stret ~self ~cmd:(selector "preferredPresentationSizeForItemProvider") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let prepareForDisplayWithCompletionHandler x self = msg_send ~self ~cmd:(selector "prepareForDisplayWithCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let prepareThumbnailOfSize x ~completionHandler self = msg_send ~self ~cmd:(selector "prepareThumbnailOfSize:completionHandler:") ~typ:(CGSize.t @-> ptr void @-> returning (void)) x completionHandler -let renderingMode self = msg_send ~self ~cmd:(selector "renderingMode") ~typ:(returning (llong)) -let resizableImageWithCapInsets x self = msg_send ~self ~cmd:(selector "resizableImageWithCapInsets:") ~typ:(ptr void @-> returning (id)) x -let resizableImageWithCapInsets' x ~resizingMode self = msg_send ~self ~cmd:(selector "resizableImageWithCapInsets:resizingMode:") ~typ:(ptr void @-> llong @-> returning (id)) x (LLong.of_int resizingMode) -let resizingMode self = msg_send ~self ~cmd:(selector "resizingMode") ~typ:(returning (llong)) -let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning (double)) -let setFlipsForRightToLeftLayoutDirection x self = msg_send ~self ~cmd:(selector "setFlipsForRightToLeftLayoutDirection:") ~typ:(bool @-> returning (void)) x -let size self = msg_send_stret ~self ~cmd:(selector "size") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let stretchableImageWithLeftCapWidth x ~topCapHeight self = msg_send ~self ~cmd:(selector "stretchableImageWithLeftCapWidth:topCapHeight:") ~typ:(llong @-> llong @-> returning (id)) (LLong.of_int x) (LLong.of_int topCapHeight) -let symbolConfiguration self = msg_send ~self ~cmd:(selector "symbolConfiguration") ~typ:(returning (id)) -let topCapHeight self = msg_send ~self ~cmd:(selector "topCapHeight") ~typ:(returning (llong)) -let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning (id)) -let writeToCPBitmapFile x ~flags self = msg_send ~self ~cmd:(selector "writeToCPBitmapFile:flags:") ~typ:(id @-> int @-> returning (bool)) x flags \ No newline at end of file +let _CGImage self = msg_send ~self ~cmd:(selector "CGImage") ~typ:(returning (ptr CGImage.t)) +let _CIImage self = msg_send ~self ~cmd:(selector "CIImage") ~typ:(returning id) +let akCGImage self = msg_send ~self ~cmd:(selector "akCGImage") ~typ:(returning (ptr CGImage.t)) +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let artworkCatalogBackingFileURL self = msg_send ~self ~cmd:(selector "artworkCatalogBackingFileURL") ~typ:(returning id) +let badgeImageToDisplayWithScreenScale x ~nightMode self = msg_send ~self ~cmd:(selector "badgeImageToDisplayWithScreenScale:nightMode:") ~typ:(double @-> bool @-> returning id) x nightMode +let baselineOffsetFromBottom self = msg_send ~self ~cmd:(selector "baselineOffsetFromBottom") ~typ:(returning double) +let capInsets self = msg_send ~self ~cmd:(selector "capInsets") ~typ:(returning UIEdgeInsets.t) +let compositeToPoint x ~operation self = msg_send ~self ~cmd:(selector "compositeToPoint:operation:") ~typ:(CGPoint.t @-> int @-> returning void) x operation +let compositeToPoint1 x ~operation ~fraction self = msg_send ~self ~cmd:(selector "compositeToPoint:operation:fraction:") ~typ:(CGPoint.t @-> int @-> double @-> returning void) x operation fraction +let compositeToPoint2 x ~fromRect ~operation ~fraction self = msg_send ~self ~cmd:(selector "compositeToPoint:fromRect:operation:fraction:") ~typ:(CGPoint.t @-> CGRect.t @-> int @-> double @-> returning void) x fromRect operation fraction +let compositeToRect x ~fromRect ~operation ~fraction self = msg_send ~self ~cmd:(selector "compositeToRect:fromRect:operation:fraction:") ~typ:(CGRect.t @-> CGRect.t @-> int @-> double @-> returning void) x fromRect operation fraction +let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning id) +let content self = msg_send ~self ~cmd:(selector "content") ~typ:(returning id) +let contentInsets self = msg_send ~self ~cmd:(selector "contentInsets") ~typ:(returning UIEdgeInsets.t) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let draw1PartImageInRect x self = msg_send ~self ~cmd:(selector "draw1PartImageInRect:") ~typ:(CGRect.t @-> returning void) x +let draw1PartImageInRect1 x ~fraction self = msg_send ~self ~cmd:(selector "draw1PartImageInRect:fraction:") ~typ:(CGRect.t @-> double @-> returning void) x fraction +let draw1PartImageInRect2 x ~fraction ~operation self = msg_send ~self ~cmd:(selector "draw1PartImageInRect:fraction:operation:") ~typ:(CGRect.t @-> double @-> int @-> returning void) x fraction operation +let draw3PartImageWithSliceRects x ~inRect self = msg_send ~self ~cmd:(selector "draw3PartImageWithSliceRects:inRect:") ~typ:(void @-> CGRect.t @-> returning void) x inRect +let draw3PartImageWithSliceRects1 x ~inRect ~fraction self = msg_send ~self ~cmd:(selector "draw3PartImageWithSliceRects:inRect:fraction:") ~typ:(void @-> CGRect.t @-> double @-> returning void) x inRect fraction +let draw3PartImageWithSliceRects2 x ~inRect ~operation ~fraction self = msg_send ~self ~cmd:(selector "draw3PartImageWithSliceRects:inRect:operation:fraction:") ~typ:(void @-> CGRect.t @-> int @-> double @-> returning void) x inRect operation fraction +let draw9PartImageWithSliceRects x ~inRect self = msg_send ~self ~cmd:(selector "draw9PartImageWithSliceRects:inRect:") ~typ:(void @-> CGRect.t @-> returning void) x inRect +let draw9PartImageWithSliceRects1 x ~inRect ~fraction self = msg_send ~self ~cmd:(selector "draw9PartImageWithSliceRects:inRect:fraction:") ~typ:(void @-> CGRect.t @-> double @-> returning void) x inRect fraction +let draw9PartImageWithSliceRects2 x ~inRect ~operation ~fraction self = msg_send ~self ~cmd:(selector "draw9PartImageWithSliceRects:inRect:operation:fraction:") ~typ:(void @-> CGRect.t @-> int @-> double @-> returning void) x inRect operation fraction +let drawAsPatternInRect x self = msg_send ~self ~cmd:(selector "drawAsPatternInRect:") ~typ:(CGRect.t @-> returning void) x +let drawAtPoint x self = msg_send ~self ~cmd:(selector "drawAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let drawAtPoint' x ~blendMode ~alpha self = msg_send ~self ~cmd:(selector "drawAtPoint:blendMode:alpha:") ~typ:(CGPoint.t @-> int @-> double @-> returning void) x blendMode alpha +let drawInRect x self = msg_send ~self ~cmd:(selector "drawInRect:") ~typ:(CGRect.t @-> returning void) x +let drawInRect' x ~blendMode ~alpha self = msg_send ~self ~cmd:(selector "drawInRect:blendMode:alpha:") ~typ:(CGRect.t @-> int @-> double @-> returning void) x blendMode alpha +let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning double) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let flattenedImageWithColor x self = msg_send ~self ~cmd:(selector "flattenedImageWithColor:") ~typ:(id @-> returning id) x +let flipsForRightToLeftLayoutDirection self = msg_send ~self ~cmd:(selector "flipsForRightToLeftLayoutDirection") ~typ:(returning bool) +let hasBaseline self = msg_send ~self ~cmd:(selector "hasBaseline") ~typ:(returning bool) +let hasContentInsets self = msg_send ~self ~cmd:(selector "hasContentInsets") ~typ:(returning bool) +let hasMidline self = msg_send ~self ~cmd:(selector "hasMidline") ~typ:(returning bool) +let hasPadding self = msg_send ~self ~cmd:(selector "hasPadding") ~typ:(returning bool) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let imageAsset self = msg_send ~self ~cmd:(selector "imageAsset") ~typ:(returning id) +let imageByAddingContentInsets x self = msg_send ~self ~cmd:(selector "imageByAddingContentInsets:") ~typ:(UIEdgeInsets.t @-> returning id) x +let imageByAddingPadding x self = msg_send ~self ~cmd:(selector "imageByAddingPadding:") ~typ:(UIEdgeInsets.t @-> returning id) x +let imageByApplyingSymbolConfiguration x self = msg_send ~self ~cmd:(selector "imageByApplyingSymbolConfiguration:") ~typ:(id @-> returning id) x +let imageByPreparingForDisplay self = msg_send ~self ~cmd:(selector "imageByPreparingForDisplay") ~typ:(returning id) +let imageByPreparingThumbnailOfSize x self = msg_send ~self ~cmd:(selector "imageByPreparingThumbnailOfSize:") ~typ:(CGSize.t @-> returning id) x +let imageFlippedForRightToLeftLayoutDirection self = msg_send ~self ~cmd:(selector "imageFlippedForRightToLeftLayoutDirection") ~typ:(returning id) +let imageOrientation self = msg_send ~self ~cmd:(selector "imageOrientation") ~typ:(returning llong) +let imageRef self = msg_send ~self ~cmd:(selector "imageRef") ~typ:(returning (ptr CGImage.t)) +let imageRendererFormat self = msg_send ~self ~cmd:(selector "imageRendererFormat") ~typ:(returning id) +let imageToDisplayWithScreenScale x ~nightMode self = msg_send ~self ~cmd:(selector "imageToDisplayWithScreenScale:nightMode:") ~typ:(double @-> bool @-> returning id) x nightMode +let imageWithAlignmentRectInsets x self = msg_send ~self ~cmd:(selector "imageWithAlignmentRectInsets:") ~typ:(UIEdgeInsets.t @-> returning id) x +let imageWithBaselineOffsetFromBottom x self = msg_send ~self ~cmd:(selector "imageWithBaselineOffsetFromBottom:") ~typ:(double @-> returning id) x +let imageWithConfiguration x self = msg_send ~self ~cmd:(selector "imageWithConfiguration:") ~typ:(id @-> returning id) x +let imageWithContentInsets x self = msg_send ~self ~cmd:(selector "imageWithContentInsets:") ~typ:(UIEdgeInsets.t @-> returning id) x +let imageWithEtchedBorderOfColor x ~radius self = msg_send ~self ~cmd:(selector "imageWithEtchedBorderOfColor:radius:") ~typ:(id @-> double @-> returning id) x radius +let imageWithHorizontallyFlippedOrientation self = msg_send ~self ~cmd:(selector "imageWithHorizontallyFlippedOrientation") ~typ:(returning id) +let imageWithMidlineOffsetFromCenter x self = msg_send ~self ~cmd:(selector "imageWithMidlineOffsetFromCenter:") ~typ:(double @-> returning id) x +let imageWithPadding x self = msg_send ~self ~cmd:(selector "imageWithPadding:") ~typ:(UIEdgeInsets.t @-> returning id) x +let imageWithRenderingMode x self = msg_send ~self ~cmd:(selector "imageWithRenderingMode:") ~typ:(llong @-> returning id) (LLong.of_int x) +let imageWithRoundedCornersOfRadius x self = msg_send ~self ~cmd:(selector "imageWithRoundedCornersOfRadius:") ~typ:(double @-> returning id) x +let imageWithShadow x self = msg_send ~self ~cmd:(selector "imageWithShadow:") ~typ:(id @-> returning id) x +let imageWithSymbolConfiguration x self = msg_send ~self ~cmd:(selector "imageWithSymbolConfiguration:") ~typ:(id @-> returning id) x +let imageWithTintColor x self = msg_send ~self ~cmd:(selector "imageWithTintColor:") ~typ:(id @-> returning id) x +let imageWithTintColor' x ~renderingMode self = msg_send ~self ~cmd:(selector "imageWithTintColor:renderingMode:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int renderingMode) +let imageWithoutBaseline self = msg_send ~self ~cmd:(selector "imageWithoutBaseline") ~typ:(returning id) +let imageWithoutMidline self = msg_send ~self ~cmd:(selector "imageWithoutMidline") ~typ:(returning id) +let images self = msg_send ~self ~cmd:(selector "images") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCGImage x self = msg_send ~self ~cmd:(selector "initWithCGImage:") ~typ:((ptr CGImage.t) @-> returning id) x +let initWithCGImage1 x ~imageOrientation self = msg_send ~self ~cmd:(selector "initWithCGImage:imageOrientation:") ~typ:((ptr CGImage.t) @-> llong @-> returning id) x (LLong.of_int imageOrientation) +let initWithCGImage2 x ~scale ~orientation self = msg_send ~self ~cmd:(selector "initWithCGImage:scale:orientation:") ~typ:((ptr CGImage.t) @-> double @-> llong @-> returning id) x scale (LLong.of_int orientation) +let initWithCIImage x self = msg_send ~self ~cmd:(selector "initWithCIImage:") ~typ:(id @-> returning id) x +let initWithCIImage' x ~scale ~orientation self = msg_send ~self ~cmd:(selector "initWithCIImage:scale:orientation:") ~typ:(id @-> double @-> llong @-> returning id) x scale (LLong.of_int orientation) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithContentsOfExactFilePath x self = msg_send ~self ~cmd:(selector "initWithContentsOfExactFilePath:") ~typ:(id @-> returning id) x +let initWithContentsOfFile x self = msg_send ~self ~cmd:(selector "initWithContentsOfFile:") ~typ:(id @-> returning id) x +let initWithContentsOfFile' x ~cache self = msg_send ~self ~cmd:(selector "initWithContentsOfFile:cache:") ~typ:(id @-> bool @-> returning id) x cache +let initWithData x self = msg_send ~self ~cmd:(selector "initWithData:") ~typ:(id @-> returning id) x +let initWithData1 x ~cache self = msg_send ~self ~cmd:(selector "initWithData:cache:") ~typ:(id @-> bool @-> returning id) x cache +let initWithData2 x ~scale self = msg_send ~self ~cmd:(selector "initWithData:scale:") ~typ:(id @-> double @-> returning id) x scale +let initWithIOSurface x self = msg_send ~self ~cmd:(selector "initWithIOSurface:") ~typ:((ptr IOSurface.t) @-> returning id) x +let initWithItemProviderData x ~typeIdentifier ~error self = msg_send ~self ~cmd:(selector "initWithItemProviderData:typeIdentifier:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x typeIdentifier error +let ioSurface self = msg_send ~self ~cmd:(selector "ioSurface") ~typ:(returning (ptr IOSurface.t)) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isFromStatusBarImageProvider self = msg_send ~self ~cmd:(selector "isFromStatusBarImageProvider") ~typ:(returning bool) +let isSymbolImage self = msg_send ~self ~cmd:(selector "isSymbolImage") ~typ:(returning bool) +let leftCapWidth self = msg_send ~self ~cmd:(selector "leftCapWidth") ~typ:(returning llong) +let loadDataWithTypeIdentifier x ~forItemProviderCompletionHandler self = msg_send ~self ~cmd:(selector "loadDataWithTypeIdentifier:forItemProviderCompletionHandler:") ~typ:(id @-> (ptr void) @-> returning id) x forItemProviderCompletionHandler +let midlineOffsetFromCenter self = msg_send ~self ~cmd:(selector "midlineOffsetFromCenter") ~typ:(returning double) +let padding self = msg_send ~self ~cmd:(selector "padding") ~typ:(returning UIEdgeInsets.t) +let patternColor self = msg_send ~self ~cmd:(selector "patternColor") ~typ:(returning id) +let preferredPresentationSizeForItemProvider self = msg_send ~self ~cmd:(selector "preferredPresentationSizeForItemProvider") ~typ:(returning CGSize.t) +let prepareForDisplayWithCompletionHandler x self = msg_send ~self ~cmd:(selector "prepareForDisplayWithCompletionHandler:") ~typ:((ptr void) @-> returning void) x +let prepareThumbnailOfSize x ~completionHandler self = msg_send ~self ~cmd:(selector "prepareThumbnailOfSize:completionHandler:") ~typ:(CGSize.t @-> (ptr void) @-> returning void) x completionHandler +let renderingMode self = msg_send ~self ~cmd:(selector "renderingMode") ~typ:(returning llong) +let resizableImageWithCapInsets x self = msg_send ~self ~cmd:(selector "resizableImageWithCapInsets:") ~typ:(UIEdgeInsets.t @-> returning id) x +let resizableImageWithCapInsets' x ~resizingMode self = msg_send ~self ~cmd:(selector "resizableImageWithCapInsets:resizingMode:") ~typ:(UIEdgeInsets.t @-> llong @-> returning id) x (LLong.of_int resizingMode) +let resizingMode self = msg_send ~self ~cmd:(selector "resizingMode") ~typ:(returning llong) +let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning double) +let setFlipsForRightToLeftLayoutDirection x self = msg_send ~self ~cmd:(selector "setFlipsForRightToLeftLayoutDirection:") ~typ:(bool @-> returning void) x +let size self = msg_send ~self ~cmd:(selector "size") ~typ:(returning CGSize.t) +let stretchableImageWithLeftCapWidth x ~topCapHeight self = msg_send ~self ~cmd:(selector "stretchableImageWithLeftCapWidth:topCapHeight:") ~typ:(llong @-> llong @-> returning id) (LLong.of_int x) (LLong.of_int topCapHeight) +let symbolConfiguration self = msg_send ~self ~cmd:(selector "symbolConfiguration") ~typ:(returning id) +let topCapHeight self = msg_send ~self ~cmd:(selector "topCapHeight") ~typ:(returning llong) +let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning id) +let writeToCPBitmapFile x ~flags self = msg_send ~self ~cmd:(selector "writeToCPBitmapFile:flags:") ~typ:(id @-> int @-> returning bool) x flags \ No newline at end of file diff --git a/uikit/UIImageAsset.ml b/uikit/UIImageAsset.ml index 6be1cc93..871eefd0 100644 --- a/uikit/UIImageAsset.ml +++ b/uikit/UIImageAsset.ml @@ -5,26 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIImageAsset" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiimageasset?language=objc}UIImageAsset} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIImageAsset" -let assetName self = msg_send ~self ~cmd:(selector "assetName") ~typ:(returning (id)) +let assetName self = msg_send ~self ~cmd:(selector "assetName") ~typ:(returning id) let creationBlock self = msg_send ~self ~cmd:(selector "creationBlock") ~typ:(returning (ptr void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let imageWithConfiguration x self = msg_send ~self ~cmd:(selector "imageWithConfiguration:") ~typ:(id @-> returning (id)) x -let imageWithTraitCollection x self = msg_send ~self ~cmd:(selector "imageWithTraitCollection:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let registerImage x ~withConfiguration self = msg_send ~self ~cmd:(selector "registerImage:withConfiguration:") ~typ:(id @-> id @-> returning (void)) x withConfiguration -let registerImage' x ~withTraitCollection self = msg_send ~self ~cmd:(selector "registerImage:withTraitCollection:") ~typ:(id @-> id @-> returning (void)) x withTraitCollection -let setAssetName x self = msg_send ~self ~cmd:(selector "setAssetName:") ~typ:(id @-> returning (void)) x -let setCreationBlock x self = msg_send ~self ~cmd:(selector "setCreationBlock:") ~typ:(ptr void @-> returning (void)) x -let unregisterImageWithConfiguration x self = msg_send ~self ~cmd:(selector "unregisterImageWithConfiguration:") ~typ:(id @-> returning (void)) x -let unregisterImageWithTraitCollection x self = msg_send ~self ~cmd:(selector "unregisterImageWithTraitCollection:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let imageWithConfiguration x self = msg_send ~self ~cmd:(selector "imageWithConfiguration:") ~typ:(id @-> returning id) x +let imageWithTraitCollection x self = msg_send ~self ~cmd:(selector "imageWithTraitCollection:") ~typ:(id @-> returning id) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let registerImage x ~withConfiguration self = msg_send ~self ~cmd:(selector "registerImage:withConfiguration:") ~typ:(id @-> id @-> returning void) x withConfiguration +let registerImage' x ~withTraitCollection self = msg_send ~self ~cmd:(selector "registerImage:withTraitCollection:") ~typ:(id @-> id @-> returning void) x withTraitCollection +let setAssetName x self = msg_send ~self ~cmd:(selector "setAssetName:") ~typ:(id @-> returning void) x +let setCreationBlock x self = msg_send ~self ~cmd:(selector "setCreationBlock:") ~typ:((ptr void) @-> returning void) x +let unregisterImageWithConfiguration x self = msg_send ~self ~cmd:(selector "unregisterImageWithConfiguration:") ~typ:(id @-> returning void) x +let unregisterImageWithTraitCollection x self = msg_send ~self ~cmd:(selector "unregisterImageWithTraitCollection:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIImageAssetClass.ml b/uikit/UIImageAssetClass.ml new file mode 100644 index 00000000..e6a2aefb --- /dev/null +++ b/uikit/UIImageAssetClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiimageasset?language=objc}UIImageAsset} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIImageClass.ml b/uikit/UIImageClass.ml new file mode 100644 index 00000000..2d551cef --- /dev/null +++ b/uikit/UIImageClass.ml @@ -0,0 +1,60 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiimage?language=objc}UIImage} *) + +let actionsImage self = msg_send ~self ~cmd:(selector "actionsImage") ~typ:(returning id) +let actionsImageWithConfiguration x self = msg_send ~self ~cmd:(selector "actionsImageWithConfiguration:") ~typ:(id @-> returning id) x +let addImage self = msg_send ~self ~cmd:(selector "addImage") ~typ:(returning id) +let addImageWithConfiguration x self = msg_send ~self ~cmd:(selector "addImageWithConfiguration:") ~typ:(id @-> returning id) x +let akImageNamed x self = msg_send ~self ~cmd:(selector "akImageNamed:") ~typ:(id @-> returning id) x +let animatedImageNamed x ~duration self = msg_send ~self ~cmd:(selector "animatedImageNamed:duration:") ~typ:(id @-> double @-> returning id) x duration +let animatedImageWithImages x ~duration self = msg_send ~self ~cmd:(selector "animatedImageWithImages:duration:") ~typ:(id @-> double @-> returning id) x duration +let animatedResizableImageNamed x ~capInsets ~duration self = msg_send ~self ~cmd:(selector "animatedResizableImageNamed:capInsets:duration:") ~typ:(id @-> UIEdgeInsets.t @-> double @-> returning id) x capInsets duration +let animatedResizableImageNamed' x ~capInsets ~resizingMode ~duration self = msg_send ~self ~cmd:(selector "animatedResizableImageNamed:capInsets:resizingMode:duration:") ~typ:(id @-> UIEdgeInsets.t @-> llong @-> double @-> returning id) x capInsets (LLong.of_int resizingMode) duration +let checkmarkImage self = msg_send ~self ~cmd:(selector "checkmarkImage") ~typ:(returning id) +let checkmarkImageWithConfiguration x self = msg_send ~self ~cmd:(selector "checkmarkImageWithConfiguration:") ~typ:(id @-> returning id) x +let imageAtPath x self = msg_send ~self ~cmd:(selector "imageAtPath:") ~typ:(id @-> returning id) x +let imageFromAlbumArtData x ~height ~width ~bytesPerRow ~cache self = msg_send ~self ~cmd:(selector "imageFromAlbumArtData:height:width:bytesPerRow:cache:") ~typ:(id @-> int @-> int @-> int @-> bool @-> returning id) x height width bytesPerRow cache +let imageNamed x self = msg_send ~self ~cmd:(selector "imageNamed:") ~typ:(id @-> returning id) x +let imageNamed1 x ~inBundle self = msg_send ~self ~cmd:(selector "imageNamed:inBundle:") ~typ:(id @-> id @-> returning id) x inBundle +let imageNamed2 x ~withConfiguration self = msg_send ~self ~cmd:(selector "imageNamed:withConfiguration:") ~typ:(id @-> id @-> returning id) x withConfiguration +let imageNamed3 x ~inBundle ~compatibleWithTraitCollection self = msg_send ~self ~cmd:(selector "imageNamed:inBundle:compatibleWithTraitCollection:") ~typ:(id @-> id @-> id @-> returning id) x inBundle compatibleWithTraitCollection +let imageNamed4 x ~inBundle ~withConfiguration self = msg_send ~self ~cmd:(selector "imageNamed:inBundle:withConfiguration:") ~typ:(id @-> id @-> id @-> returning id) x inBundle withConfiguration +let imageWithCGImage x self = msg_send ~self ~cmd:(selector "imageWithCGImage:") ~typ:((ptr CGImage.t) @-> returning id) x +let imageWithCGImage' x ~scale ~orientation self = msg_send ~self ~cmd:(selector "imageWithCGImage:scale:orientation:") ~typ:((ptr CGImage.t) @-> double @-> llong @-> returning id) x scale (LLong.of_int orientation) +let imageWithCIImage x self = msg_send ~self ~cmd:(selector "imageWithCIImage:") ~typ:(id @-> returning id) x +let imageWithCIImage' x ~scale ~orientation self = msg_send ~self ~cmd:(selector "imageWithCIImage:scale:orientation:") ~typ:(id @-> double @-> llong @-> returning id) x scale (LLong.of_int orientation) +let imageWithContentsOfCPBitmapFile x ~flags self = msg_send ~self ~cmd:(selector "imageWithContentsOfCPBitmapFile:flags:") ~typ:(id @-> int @-> returning id) x flags +let imageWithContentsOfFile x self = msg_send ~self ~cmd:(selector "imageWithContentsOfFile:") ~typ:(id @-> returning id) x +let imageWithData x self = msg_send ~self ~cmd:(selector "imageWithData:") ~typ:(id @-> returning id) x +let imageWithData' x ~scale self = msg_send ~self ~cmd:(selector "imageWithData:scale:") ~typ:(id @-> double @-> returning id) x scale +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) +let kitImageNamed x self = msg_send ~self ~cmd:(selector "kitImageNamed:") ~typ:(id @-> returning id) x +let load self = msg_send ~self ~cmd:(selector "load") ~typ:(returning void) +let objectWithItemProviderData x ~typeIdentifier ~error self = msg_send ~self ~cmd:(selector "objectWithItemProviderData:typeIdentifier:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x typeIdentifier error +let preferredSymbolImageNamed x self = msg_send ~self ~cmd:(selector "preferredSymbolImageNamed:") ~typ:(id @-> returning id) x +let preferredSymbolImageNamed1 x ~size ~compatibleWithTextStyle self = msg_send ~self ~cmd:(selector "preferredSymbolImageNamed:size:compatibleWithTextStyle:") ~typ:(id @-> llong @-> id @-> returning id) x (LLong.of_int size) compatibleWithTextStyle +let preferredSymbolImageNamed2 x ~size ~compatibleWithTextStyle ~traitCollection ~inBundle self = msg_send ~self ~cmd:(selector "preferredSymbolImageNamed:size:compatibleWithTextStyle:traitCollection:inBundle:") ~typ:(id @-> llong @-> id @-> id @-> id @-> returning id) x (LLong.of_int size) compatibleWithTextStyle traitCollection inBundle +let readableTypeIdentifiersForItemProvider self = msg_send ~self ~cmd:(selector "readableTypeIdentifiersForItemProvider") ~typ:(returning id) +let removeImage self = msg_send ~self ~cmd:(selector "removeImage") ~typ:(returning id) +let removeImageWithConfiguration x self = msg_send ~self ~cmd:(selector "removeImageWithConfiguration:") ~typ:(id @-> returning id) x +let strokedCheckmarkImage self = msg_send ~self ~cmd:(selector "strokedCheckmarkImage") ~typ:(returning id) +let strokedCheckmarkImageWithConfiguration x self = msg_send ~self ~cmd:(selector "strokedCheckmarkImageWithConfiguration:") ~typ:(id @-> returning id) x +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) +let symbolImageNamed x self = msg_send ~self ~cmd:(selector "symbolImageNamed:") ~typ:(id @-> returning id) x +let symbolImageNamed1 x ~size ~compatibleWithFont self = msg_send ~self ~cmd:(selector "symbolImageNamed:size:compatibleWithFont:") ~typ:(id @-> llong @-> id @-> returning id) x (LLong.of_int size) compatibleWithFont +let symbolImageNamed2 x ~size ~weight ~compatibleWithFontSize self = msg_send ~self ~cmd:(selector "symbolImageNamed:size:weight:compatibleWithFontSize:") ~typ:(id @-> llong @-> llong @-> double @-> returning id) x (LLong.of_int size) (LLong.of_int weight) compatibleWithFontSize +let symbolImageNamed3 x ~size ~compatibleWithFont ~traitCollection ~inBundle self = msg_send ~self ~cmd:(selector "symbolImageNamed:size:compatibleWithFont:traitCollection:inBundle:") ~typ:(id @-> llong @-> id @-> id @-> id @-> returning id) x (LLong.of_int size) compatibleWithFont traitCollection inBundle +let symbolImageNamed4 x ~size ~weight ~compatibleWithFontSize ~traitCollection ~inBundle self = msg_send ~self ~cmd:(selector "symbolImageNamed:size:weight:compatibleWithFontSize:traitCollection:inBundle:") ~typ:(id @-> llong @-> llong @-> double @-> id @-> id @-> returning id) x (LLong.of_int size) (LLong.of_int weight) compatibleWithFontSize traitCollection inBundle +let systemImageNamed x self = msg_send ~self ~cmd:(selector "systemImageNamed:") ~typ:(id @-> returning id) x +let systemImageNamed1 x ~compatibleWithTraitCollection self = msg_send ~self ~cmd:(selector "systemImageNamed:compatibleWithTraitCollection:") ~typ:(id @-> id @-> returning id) x compatibleWithTraitCollection +let systemImageNamed2 x ~withConfiguration self = msg_send ~self ~cmd:(selector "systemImageNamed:withConfiguration:") ~typ:(id @-> id @-> returning id) x withConfiguration +let writableTypeIdentifiersForItemProvider self = msg_send ~self ~cmd:(selector "writableTypeIdentifiersForItemProvider") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIImageConfiguration.ml b/uikit/UIImageConfiguration.ml index 7dc02bae..fc8a9315 100644 --- a/uikit/UIImageConfiguration.ml +++ b/uikit/UIImageConfiguration.ml @@ -5,20 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIImageConfiguration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiimageconfiguration?language=objc}UIImageConfiguration} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIImageConfiguration" -let configurationByApplyingConfiguration x self = msg_send ~self ~cmd:(selector "configurationByApplyingConfiguration:") ~typ:(id @-> returning (id)) x -let configurationWithTraitCollection x self = msg_send ~self ~cmd:(selector "configurationWithTraitCollection:") ~typ:(id @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isEquivalentToConfiguration x self = msg_send ~self ~cmd:(selector "isEquivalentToConfiguration:") ~typ:(id @-> returning (bool)) x -let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning (id)) \ No newline at end of file +let configurationByApplyingConfiguration x self = msg_send ~self ~cmd:(selector "configurationByApplyingConfiguration:") ~typ:(id @-> returning id) x +let configurationWithTraitCollection x self = msg_send ~self ~cmd:(selector "configurationWithTraitCollection:") ~typ:(id @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isEquivalentToConfiguration x self = msg_send ~self ~cmd:(selector "isEquivalentToConfiguration:") ~typ:(id @-> returning bool) x +let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIImageConfigurationClass.ml b/uikit/UIImageConfigurationClass.ml new file mode 100644 index 00000000..aee2ffc5 --- /dev/null +++ b/uikit/UIImageConfigurationClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiimageconfiguration?language=objc}UIImageConfiguration} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIImageNibPlaceholder.ml b/uikit/UIImageNibPlaceholder.ml index 699ebadc..4d0aac6f 100644 --- a/uikit/UIImageNibPlaceholder.ml +++ b/uikit/UIImageNibPlaceholder.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIImageNibPlaceholder" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiimagenibplaceholder?language=objc}UIImageNibPlaceholder} *) -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 initWithContentsOfFile x ~andRuntimeResourceName self = msg_send ~self ~cmd:(selector "initWithContentsOfFile:andRuntimeResourceName:") ~typ:(id @-> id @-> returning (id)) x andRuntimeResourceName -let initWithData x ~andRuntimeResourceName self = msg_send ~self ~cmd:(selector "initWithData:andRuntimeResourceName:") ~typ:(id @-> id @-> returning (id)) x andRuntimeResourceName -let initWithRuntimeSystemSymbolResourceName x self = msg_send ~self ~cmd:(selector "initWithRuntimeSystemSymbolResourceName:") ~typ:(id @-> returning (id)) x -let resourceCatalogName self = msg_send ~self ~cmd:(selector "resourceCatalogName") ~typ:(returning (id)) -let resourceRenderingMode self = msg_send ~self ~cmd:(selector "resourceRenderingMode") ~typ:(returning (llong)) -let resourceSymbolImageConfiguration self = msg_send ~self ~cmd:(selector "resourceSymbolImageConfiguration") ~typ:(returning (id)) -let setResourceCatalogName x self = msg_send ~self ~cmd:(selector "setResourceCatalogName:") ~typ:(id @-> returning (void)) x -let setResourceRenderingMode x self = msg_send ~self ~cmd:(selector "setResourceRenderingMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setResourceSymbolImageConfiguration x self = msg_send ~self ~cmd:(selector "setResourceSymbolImageConfiguration:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIImageNibPlaceholder" + +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 initWithContentsOfFile x ~andRuntimeResourceName self = msg_send ~self ~cmd:(selector "initWithContentsOfFile:andRuntimeResourceName:") ~typ:(id @-> id @-> returning id) x andRuntimeResourceName +let initWithData x ~andRuntimeResourceName self = msg_send ~self ~cmd:(selector "initWithData:andRuntimeResourceName:") ~typ:(id @-> id @-> returning id) x andRuntimeResourceName +let initWithRuntimeSystemSymbolResourceName x self = msg_send ~self ~cmd:(selector "initWithRuntimeSystemSymbolResourceName:") ~typ:(id @-> returning id) x +let resourceCatalogName self = msg_send ~self ~cmd:(selector "resourceCatalogName") ~typ:(returning id) +let resourceRenderingMode self = msg_send ~self ~cmd:(selector "resourceRenderingMode") ~typ:(returning llong) +let resourceSymbolImageConfiguration self = msg_send ~self ~cmd:(selector "resourceSymbolImageConfiguration") ~typ:(returning id) +let setResourceCatalogName x self = msg_send ~self ~cmd:(selector "setResourceCatalogName:") ~typ:(id @-> returning void) x +let setResourceRenderingMode x self = msg_send ~self ~cmd:(selector "setResourceRenderingMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setResourceSymbolImageConfiguration x self = msg_send ~self ~cmd:(selector "setResourceSymbolImageConfiguration:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIImagePickerController.ml b/uikit/UIImagePickerController.ml index 0d75ab54..379f4fe9 100644 --- a/uikit/UIImagePickerController.ml +++ b/uikit/UIImagePickerController.ml @@ -5,64 +5,61 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIImagePickerController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiimagepickercontroller?language=objc}UIImagePickerController} *) -module C = struct - let availableCaptureModesForCameraDevice x self = msg_send ~self ~cmd:(selector "availableCaptureModesForCameraDevice:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let availableMediaTypesForSourceType x self = msg_send ~self ~cmd:(selector "availableMediaTypesForSourceType:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let isCameraDeviceAvailable x self = msg_send ~self ~cmd:(selector "isCameraDeviceAvailable:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) - let isFlashAvailableForCameraDevice x self = msg_send ~self ~cmd:(selector "isFlashAvailableForCameraDevice:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) - let isSourceTypeAvailable x self = msg_send ~self ~cmd:(selector "isSourceTypeAvailable:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -end +let self = get_class "UIImagePickerController" -let allowsEditing self = msg_send ~self ~cmd:(selector "allowsEditing") ~typ:(returning (bool)) -let allowsImageEditing self = msg_send ~self ~cmd:(selector "allowsImageEditing") ~typ:(returning (bool)) -let cameraCaptureMode self = msg_send ~self ~cmd:(selector "cameraCaptureMode") ~typ:(returning (llong)) -let cameraDevice self = msg_send ~self ~cmd:(selector "cameraDevice") ~typ:(returning (llong)) -let cameraFlashMode self = msg_send ~self ~cmd:(selector "cameraFlashMode") ~typ:(returning (llong)) -let cameraOverlayView self = msg_send ~self ~cmd:(selector "cameraOverlayView") ~typ:(returning (id)) -let cancelPhotoPicker self = msg_send ~self ~cmd:(selector "cancelPhotoPicker") ~typ:(returning (void)) -let didDisplayPhotoPickerPreview self = msg_send ~self ~cmd:(selector "didDisplayPhotoPickerPreview") ~typ:(returning (void)) -let didDisplayPhotoPickerSourceType x self = msg_send ~self ~cmd:(selector "didDisplayPhotoPickerSourceType:") ~typ:(id @-> returning (void)) x -let didSelectMediaWithInfoDictionary x self = msg_send ~self ~cmd:(selector "didSelectMediaWithInfoDictionary:") ~typ:(id @-> returning (void)) x -let didSelectMultipleMediaItemsWithInfoDictionaries x self = msg_send ~self ~cmd:(selector "didSelectMultipleMediaItemsWithInfoDictionaries:") ~typ:(id @-> returning (void)) x -let dismissCurrentViewControllerFromPhotoPickerAnimated x self = msg_send ~self ~cmd:(selector "dismissCurrentViewControllerFromPhotoPickerAnimated:") ~typ:(id @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let imageExportPreset self = msg_send ~self ~cmd:(selector "imageExportPreset") ~typ:(returning (llong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let mediaTypes self = msg_send ~self ~cmd:(selector "mediaTypes") ~typ:(returning (id)) -let photoPickerRequestOptionsClass self = msg_send ~self ~cmd:(selector "photoPickerRequestOptionsClass") ~typ:(returning (_Class)) -let photosExtension self = msg_send ~self ~cmd:(selector "photosExtension") ~typ:(returning (id)) -let requestViewControllerFromPhotoPickerWithRequestIdentifier x self = msg_send ~self ~cmd:(selector "requestViewControllerFromPhotoPickerWithRequestIdentifier:") ~typ:(id @-> returning (void)) x -let setAllowsEditing x self = msg_send ~self ~cmd:(selector "setAllowsEditing:") ~typ:(bool @-> returning (void)) x -let setAllowsImageEditing x self = msg_send ~self ~cmd:(selector "setAllowsImageEditing:") ~typ:(bool @-> returning (void)) x -let setCameraCaptureMode x self = msg_send ~self ~cmd:(selector "setCameraCaptureMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCameraDevice x self = msg_send ~self ~cmd:(selector "setCameraDevice:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCameraFlashMode x self = msg_send ~self ~cmd:(selector "setCameraFlashMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCameraOverlayView x self = msg_send ~self ~cmd:(selector "setCameraOverlayView:") ~typ:(id @-> returning (void)) x -let setCameraViewTransform x self = msg_send ~self ~cmd:(selector "setCameraViewTransform:") ~typ:(ptr void @-> returning (void)) x -let setImageExportPreset x self = msg_send ~self ~cmd:(selector "setImageExportPreset:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setMediaTypes x self = msg_send ~self ~cmd:(selector "setMediaTypes:") ~typ:(id @-> returning (void)) x -let setPhotoPickerViewControllerTitle x self = msg_send ~self ~cmd:(selector "setPhotoPickerViewControllerTitle:") ~typ:(id @-> returning (void)) x -let setPhotosExtension x self = msg_send ~self ~cmd:(selector "setPhotosExtension:") ~typ:(id @-> returning (void)) x -let setShowsCameraControls x self = msg_send ~self ~cmd:(selector "setShowsCameraControls:") ~typ:(bool @-> returning (void)) x -let setSourceType x self = msg_send ~self ~cmd:(selector "setSourceType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setVideoExportPreset x self = msg_send ~self ~cmd:(selector "setVideoExportPreset:") ~typ:(id @-> returning (void)) x -let setVideoMaximumDuration x self = msg_send ~self ~cmd:(selector "setVideoMaximumDuration:") ~typ:(double @-> returning (void)) x -let setVideoQuality x self = msg_send ~self ~cmd:(selector "setVideoQuality:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let showsCameraControls self = msg_send ~self ~cmd:(selector "showsCameraControls") ~typ:(returning (bool)) -let sourceType self = msg_send ~self ~cmd:(selector "sourceType") ~typ:(returning (llong)) -let startVideoCapture self = msg_send ~self ~cmd:(selector "startVideoCapture") ~typ:(returning (bool)) -let stopVideoCapture self = msg_send ~self ~cmd:(selector "stopVideoCapture") ~typ:(returning (void)) -let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning (ullong)) -let takePicture self = msg_send ~self ~cmd:(selector "takePicture") ~typ:(returning (void)) -let videoExportPreset self = msg_send ~self ~cmd:(selector "videoExportPreset") ~typ:(returning (id)) -let videoMaximumDuration self = msg_send ~self ~cmd:(selector "videoMaximumDuration") ~typ:(returning (double)) -let videoQuality self = msg_send ~self ~cmd:(selector "videoQuality") ~typ:(returning (llong)) -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillUnload self = msg_send ~self ~cmd:(selector "viewWillUnload") ~typ:(returning (void)) \ No newline at end of file +let allowsEditing self = msg_send ~self ~cmd:(selector "allowsEditing") ~typ:(returning bool) +let allowsImageEditing self = msg_send ~self ~cmd:(selector "allowsImageEditing") ~typ:(returning bool) +let cameraCaptureMode self = msg_send ~self ~cmd:(selector "cameraCaptureMode") ~typ:(returning llong) +let cameraDevice self = msg_send ~self ~cmd:(selector "cameraDevice") ~typ:(returning llong) +let cameraFlashMode self = msg_send ~self ~cmd:(selector "cameraFlashMode") ~typ:(returning llong) +let cameraOverlayView self = msg_send ~self ~cmd:(selector "cameraOverlayView") ~typ:(returning id) +let cameraViewTransform self = msg_send ~self ~cmd:(selector "cameraViewTransform") ~typ:(returning CGAffineTransform.t) +let cancelPhotoPicker self = msg_send ~self ~cmd:(selector "cancelPhotoPicker") ~typ:(returning void) +let didDisplayPhotoPickerPreview self = msg_send ~self ~cmd:(selector "didDisplayPhotoPickerPreview") ~typ:(returning void) +let didDisplayPhotoPickerSourceType x self = msg_send ~self ~cmd:(selector "didDisplayPhotoPickerSourceType:") ~typ:(id @-> returning void) x +let didSelectMediaWithInfoDictionary x self = msg_send ~self ~cmd:(selector "didSelectMediaWithInfoDictionary:") ~typ:(id @-> returning void) x +let didSelectMultipleMediaItemsWithInfoDictionaries x self = msg_send ~self ~cmd:(selector "didSelectMultipleMediaItemsWithInfoDictionaries:") ~typ:(id @-> returning void) x +let dismissCurrentViewControllerFromPhotoPickerAnimated x self = msg_send ~self ~cmd:(selector "dismissCurrentViewControllerFromPhotoPickerAnimated:") ~typ:(id @-> returning void) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let imageExportPreset self = msg_send ~self ~cmd:(selector "imageExportPreset") ~typ:(returning llong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let mediaTypes self = msg_send ~self ~cmd:(selector "mediaTypes") ~typ:(returning id) +let photoPickerRequestOptionsClass self = msg_send ~self ~cmd:(selector "photoPickerRequestOptionsClass") ~typ:(returning _Class) +let photosExtension self = msg_send ~self ~cmd:(selector "photosExtension") ~typ:(returning id) +let requestViewControllerFromPhotoPickerWithRequestIdentifier x self = msg_send ~self ~cmd:(selector "requestViewControllerFromPhotoPickerWithRequestIdentifier:") ~typ:(id @-> returning void) x +let setAllowsEditing x self = msg_send ~self ~cmd:(selector "setAllowsEditing:") ~typ:(bool @-> returning void) x +let setAllowsImageEditing x self = msg_send ~self ~cmd:(selector "setAllowsImageEditing:") ~typ:(bool @-> returning void) x +let setCameraCaptureMode x self = msg_send ~self ~cmd:(selector "setCameraCaptureMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCameraDevice x self = msg_send ~self ~cmd:(selector "setCameraDevice:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCameraFlashMode x self = msg_send ~self ~cmd:(selector "setCameraFlashMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCameraOverlayView x self = msg_send ~self ~cmd:(selector "setCameraOverlayView:") ~typ:(id @-> returning void) x +let setCameraViewTransform x self = msg_send ~self ~cmd:(selector "setCameraViewTransform:") ~typ:(CGAffineTransform.t @-> returning void) x +let setImageExportPreset x self = msg_send ~self ~cmd:(selector "setImageExportPreset:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setMediaTypes x self = msg_send ~self ~cmd:(selector "setMediaTypes:") ~typ:(id @-> returning void) x +let setPhotoPickerViewControllerTitle x self = msg_send ~self ~cmd:(selector "setPhotoPickerViewControllerTitle:") ~typ:(id @-> returning void) x +let setPhotosExtension x self = msg_send ~self ~cmd:(selector "setPhotosExtension:") ~typ:(id @-> returning void) x +let setShowsCameraControls x self = msg_send ~self ~cmd:(selector "setShowsCameraControls:") ~typ:(bool @-> returning void) x +let setSourceType x self = msg_send ~self ~cmd:(selector "setSourceType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setVideoExportPreset x self = msg_send ~self ~cmd:(selector "setVideoExportPreset:") ~typ:(id @-> returning void) x +let setVideoMaximumDuration x self = msg_send ~self ~cmd:(selector "setVideoMaximumDuration:") ~typ:(double @-> returning void) x +let setVideoQuality x self = msg_send ~self ~cmd:(selector "setVideoQuality:") ~typ:(llong @-> returning void) (LLong.of_int x) +let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let showsCameraControls self = msg_send ~self ~cmd:(selector "showsCameraControls") ~typ:(returning bool) +let sourceType self = msg_send ~self ~cmd:(selector "sourceType") ~typ:(returning llong) +let startVideoCapture self = msg_send ~self ~cmd:(selector "startVideoCapture") ~typ:(returning bool) +let stopVideoCapture self = msg_send ~self ~cmd:(selector "stopVideoCapture") ~typ:(returning void) +let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning ullong) +let takePicture self = msg_send ~self ~cmd:(selector "takePicture") ~typ:(returning void) +let videoExportPreset self = msg_send ~self ~cmd:(selector "videoExportPreset") ~typ:(returning id) +let videoMaximumDuration self = msg_send ~self ~cmd:(selector "videoMaximumDuration") ~typ:(returning double) +let videoQuality self = msg_send ~self ~cmd:(selector "videoQuality") ~typ:(returning llong) +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let viewWillUnload self = msg_send ~self ~cmd:(selector "viewWillUnload") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIImagePickerControllerClass.ml b/uikit/UIImagePickerControllerClass.ml new file mode 100644 index 00000000..2c122924 --- /dev/null +++ b/uikit/UIImagePickerControllerClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiimagepickercontroller?language=objc}UIImagePickerController} *) + +let availableCaptureModesForCameraDevice x self = msg_send ~self ~cmd:(selector "availableCaptureModesForCameraDevice:") ~typ:(llong @-> returning id) (LLong.of_int x) +let availableMediaTypesForSourceType x self = msg_send ~self ~cmd:(selector "availableMediaTypesForSourceType:") ~typ:(llong @-> returning id) (LLong.of_int x) +let isCameraDeviceAvailable x self = msg_send ~self ~cmd:(selector "isCameraDeviceAvailable:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let isFlashAvailableForCameraDevice x self = msg_send ~self ~cmd:(selector "isFlashAvailableForCameraDevice:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let isSourceTypeAvailable x self = msg_send ~self ~cmd:(selector "isSourceTypeAvailable:") ~typ:(llong @-> returning bool) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIImageSymbolConfiguration.ml b/uikit/UIImageSymbolConfiguration.ml index d28d7924..3236932d 100644 --- a/uikit/UIImageSymbolConfiguration.ml +++ b/uikit/UIImageSymbolConfiguration.ml @@ -5,49 +5,34 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIImageSymbolConfiguration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiimagesymbolconfiguration?language=objc}UIImageSymbolConfiguration} *) -module C = struct - let configurationPreferringMulticolor self = msg_send ~self ~cmd:(selector "configurationPreferringMulticolor") ~typ:(returning (id)) - let configurationWithConfiguration x ~and_ self = msg_send ~self ~cmd:(selector "configurationWithConfiguration:and:") ~typ:(id @-> id @-> returning (id)) x and_ - let configurationWithFont x self = msg_send ~self ~cmd:(selector "configurationWithFont:") ~typ:(id @-> returning (id)) x - let configurationWithFont' x ~scale self = msg_send ~self ~cmd:(selector "configurationWithFont:scale:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int scale) - let configurationWithHierarchicalColor x self = msg_send ~self ~cmd:(selector "configurationWithHierarchicalColor:") ~typ:(id @-> returning (id)) x - let configurationWithPaletteColors x self = msg_send ~self ~cmd:(selector "configurationWithPaletteColors:") ~typ:(id @-> returning (id)) x - let configurationWithPointSize x self = msg_send ~self ~cmd:(selector "configurationWithPointSize:") ~typ:(double @-> returning (id)) x - let configurationWithPointSize1 x ~weight self = msg_send ~self ~cmd:(selector "configurationWithPointSize:weight:") ~typ:(double @-> llong @-> returning (id)) x (LLong.of_int weight) - let configurationWithPointSize2 x ~weight ~scale self = msg_send ~self ~cmd:(selector "configurationWithPointSize:weight:scale:") ~typ:(double @-> llong @-> llong @-> returning (id)) x (LLong.of_int weight) (LLong.of_int scale) - let configurationWithScale x self = msg_send ~self ~cmd:(selector "configurationWithScale:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let configurationWithTextStyle x self = msg_send ~self ~cmd:(selector "configurationWithTextStyle:") ~typ:(id @-> returning (id)) x - let configurationWithTextStyle' x ~scale self = msg_send ~self ~cmd:(selector "configurationWithTextStyle:scale:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int scale) - let configurationWithWeight x self = msg_send ~self ~cmd:(selector "configurationWithWeight:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let defaultConfiguration self = msg_send ~self ~cmd:(selector "defaultConfiguration") ~typ:(returning (id)) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) - let unspecifiedConfiguration self = msg_send ~self ~cmd:(selector "unspecifiedConfiguration") ~typ:(returning (id)) -end +let self = get_class "UIImageSymbolConfiguration" -let configurationWithUnspecifiedPointSizeAndWeight self = msg_send ~self ~cmd:(selector "configurationWithUnspecifiedPointSizeAndWeight") ~typ:(returning (id)) -let configurationWithUnspecifiedScale self = msg_send ~self ~cmd:(selector "configurationWithUnspecifiedScale") ~typ:(returning (id)) -let configurationWithUnspecifiedTextStyle self = msg_send ~self ~cmd:(selector "configurationWithUnspecifiedTextStyle") ~typ:(returning (id)) -let configurationWithUnspecifiedWeight self = msg_send ~self ~cmd:(selector "configurationWithUnspecifiedWeight") ~typ:(returning (id)) -let configurationWithoutPointSizeAndWeight self = msg_send ~self ~cmd:(selector "configurationWithoutPointSizeAndWeight") ~typ:(returning (id)) -let configurationWithoutScale self = msg_send ~self ~cmd:(selector "configurationWithoutScale") ~typ:(returning (id)) -let configurationWithoutTextStyle self = msg_send ~self ~cmd:(selector "configurationWithoutTextStyle") ~typ:(returning (id)) -let configurationWithoutWeight self = msg_send ~self ~cmd:(selector "configurationWithoutWeight") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let customFontPointSizeMultiplier self = msg_send ~self ~cmd:(selector "customFontPointSizeMultiplier") ~typ:(returning (double)) -let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let fixedPointSize self = msg_send ~self ~cmd:(selector "fixedPointSize") ~typ:(returning (double)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isEqualToConfiguration x self = msg_send ~self ~cmd:(selector "isEqualToConfiguration:") ~typ:(id @-> returning (bool)) x -let isEquivalentToConfiguration x self = msg_send ~self ~cmd:(selector "isEquivalentToConfiguration:") ~typ:(id @-> returning (bool)) x -let isSimilarToConfiguration x self = msg_send ~self ~cmd:(selector "isSimilarToConfiguration:") ~typ:(id @-> returning (bool)) x -let pointSizeForScalingWithTextStyle self = msg_send ~self ~cmd:(selector "pointSizeForScalingWithTextStyle") ~typ:(returning (double)) -let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning (llong)) -let textStyle self = msg_send ~self ~cmd:(selector "textStyle") ~typ:(returning (id)) -let weight self = msg_send ~self ~cmd:(selector "weight") ~typ:(returning (llong)) \ No newline at end of file +let configurationWithUnspecifiedPointSizeAndWeight self = msg_send ~self ~cmd:(selector "configurationWithUnspecifiedPointSizeAndWeight") ~typ:(returning id) +let configurationWithUnspecifiedScale self = msg_send ~self ~cmd:(selector "configurationWithUnspecifiedScale") ~typ:(returning id) +let configurationWithUnspecifiedTextStyle self = msg_send ~self ~cmd:(selector "configurationWithUnspecifiedTextStyle") ~typ:(returning id) +let configurationWithUnspecifiedWeight self = msg_send ~self ~cmd:(selector "configurationWithUnspecifiedWeight") ~typ:(returning id) +let configurationWithoutPointSizeAndWeight self = msg_send ~self ~cmd:(selector "configurationWithoutPointSizeAndWeight") ~typ:(returning id) +let configurationWithoutScale self = msg_send ~self ~cmd:(selector "configurationWithoutScale") ~typ:(returning id) +let configurationWithoutTextStyle self = msg_send ~self ~cmd:(selector "configurationWithoutTextStyle") ~typ:(returning id) +let configurationWithoutWeight self = msg_send ~self ~cmd:(selector "configurationWithoutWeight") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let customFontPointSizeMultiplier self = msg_send ~self ~cmd:(selector "customFontPointSizeMultiplier") ~typ:(returning double) +let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let fixedPointSize self = msg_send ~self ~cmd:(selector "fixedPointSize") ~typ:(returning double) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isEqualToConfiguration x self = msg_send ~self ~cmd:(selector "isEqualToConfiguration:") ~typ:(id @-> returning bool) x +let isEquivalentToConfiguration x self = msg_send ~self ~cmd:(selector "isEquivalentToConfiguration:") ~typ:(id @-> returning bool) x +let isSimilarToConfiguration x self = msg_send ~self ~cmd:(selector "isSimilarToConfiguration:") ~typ:(id @-> returning bool) x +let pointSizeForScalingWithTextStyle self = msg_send ~self ~cmd:(selector "pointSizeForScalingWithTextStyle") ~typ:(returning double) +let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning llong) +let textStyle self = msg_send ~self ~cmd:(selector "textStyle") ~typ:(returning id) +let weight self = msg_send ~self ~cmd:(selector "weight") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIImageSymbolConfigurationClass.ml b/uikit/UIImageSymbolConfigurationClass.ml new file mode 100644 index 00000000..5be9bcc9 --- /dev/null +++ b/uikit/UIImageSymbolConfigurationClass.ml @@ -0,0 +1,28 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiimagesymbolconfiguration?language=objc}UIImageSymbolConfiguration} *) + +let configurationPreferringMulticolor self = msg_send ~self ~cmd:(selector "configurationPreferringMulticolor") ~typ:(returning id) +let configurationWithConfiguration x ~and_ self = msg_send ~self ~cmd:(selector "configurationWithConfiguration:and:") ~typ:(id @-> id @-> returning id) x and_ +let configurationWithFont x self = msg_send ~self ~cmd:(selector "configurationWithFont:") ~typ:(id @-> returning id) x +let configurationWithFont' x ~scale self = msg_send ~self ~cmd:(selector "configurationWithFont:scale:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int scale) +let configurationWithHierarchicalColor x self = msg_send ~self ~cmd:(selector "configurationWithHierarchicalColor:") ~typ:(id @-> returning id) x +let configurationWithPaletteColors x self = msg_send ~self ~cmd:(selector "configurationWithPaletteColors:") ~typ:(id @-> returning id) x +let configurationWithPointSize x self = msg_send ~self ~cmd:(selector "configurationWithPointSize:") ~typ:(double @-> returning id) x +let configurationWithPointSize1 x ~weight self = msg_send ~self ~cmd:(selector "configurationWithPointSize:weight:") ~typ:(double @-> llong @-> returning id) x (LLong.of_int weight) +let configurationWithPointSize2 x ~weight ~scale self = msg_send ~self ~cmd:(selector "configurationWithPointSize:weight:scale:") ~typ:(double @-> llong @-> llong @-> returning id) x (LLong.of_int weight) (LLong.of_int scale) +let configurationWithScale x self = msg_send ~self ~cmd:(selector "configurationWithScale:") ~typ:(llong @-> returning id) (LLong.of_int x) +let configurationWithTextStyle x self = msg_send ~self ~cmd:(selector "configurationWithTextStyle:") ~typ:(id @-> returning id) x +let configurationWithTextStyle' x ~scale self = msg_send ~self ~cmd:(selector "configurationWithTextStyle:scale:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int scale) +let configurationWithWeight x self = msg_send ~self ~cmd:(selector "configurationWithWeight:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultConfiguration self = msg_send ~self ~cmd:(selector "defaultConfiguration") ~typ:(returning id) +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) +let unspecifiedConfiguration self = msg_send ~self ~cmd:(selector "unspecifiedConfiguration") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIImageView.ml b/uikit/UIImageView.ml index be071d77..5b2aad11 100644 --- a/uikit/UIImageView.ml +++ b/uikit/UIImageView.ml @@ -5,73 +5,78 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIImageView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiimageview?language=objc}UIImageView} *) -let adjustsImageSizeForAccessibilityContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsImageSizeForAccessibilityContentSizeCategory") ~typ:(returning (bool)) -let adjustsImageWhenAncestorFocused self = msg_send ~self ~cmd:(selector "adjustsImageWhenAncestorFocused") ~typ:(returning (bool)) -let animationDuration self = msg_send ~self ~cmd:(selector "animationDuration") ~typ:(returning (double)) -let animationImages self = msg_send ~self ~cmd:(selector "animationImages") ~typ:(returning (id)) -let animationRepeatCount self = msg_send ~self ~cmd:(selector "animationRepeatCount") ~typ:(returning (llong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let defaultAccessibilityTraits self = msg_send ~self ~cmd:(selector "defaultAccessibilityTraits") ~typ:(returning (ullong)) -let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning (void)) x -let drawMode self = msg_send ~self ~cmd:(selector "drawMode") ~typ:(returning (uint)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let focusedFrameGuide self = msg_send ~self ~cmd:(selector "focusedFrameGuide") ~typ:(returning (id)) -let highlightedAnimationImages self = msg_send ~self ~cmd:(selector "highlightedAnimationImages") ~typ:(returning (id)) -let highlightedImage self = msg_send ~self ~cmd:(selector "highlightedImage") ~typ:(returning (id)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let imageContentGuide self = msg_send ~self ~cmd:(selector "imageContentGuide") ~typ:(returning (id)) -let imageRef self = msg_send ~self ~cmd:(selector "imageRef") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithImage x self = msg_send ~self ~cmd:(selector "initWithImage:") ~typ:(id @-> returning (id)) x -let initWithImage' x ~highlightedImage self = msg_send ~self ~cmd:(selector "initWithImage:highlightedImage:") ~typ:(id @-> id @-> returning (id)) x highlightedImage -let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning (bool)) -let isAnimating self = msg_send ~self ~cmd:(selector "isAnimating") ~typ:(returning (bool)) -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning (bool)) -let isTransparentFocusItem self = msg_send ~self ~cmd:(selector "isTransparentFocusItem") ~typ:(returning (bool)) -let largeContentImage self = msg_send ~self ~cmd:(selector "largeContentImage") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let masksFocusEffectToContents self = msg_send ~self ~cmd:(selector "masksFocusEffectToContents") ~typ:(returning (bool)) -let midlineGuide self = msg_send ~self ~cmd:(selector "midlineGuide") ~typ:(returning (id)) -let overlayContentView self = msg_send ~self ~cmd:(selector "overlayContentView") ~typ:(returning (id)) -let preferredContentScaleFactor self = msg_send ~self ~cmd:(selector "preferredContentScaleFactor") ~typ:(returning (double)) -let preferredSymbolConfiguration self = msg_send ~self ~cmd:(selector "preferredSymbolConfiguration") ~typ:(returning (id)) -let scalesLargeContentImage self = msg_send ~self ~cmd:(selector "scalesLargeContentImage") ~typ:(returning (bool)) -let setAdjustsImageSizeForAccessibilityContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsImageSizeForAccessibilityContentSizeCategory:") ~typ:(bool @-> returning (void)) x -let setAdjustsImageWhenAncestorFocused x self = msg_send ~self ~cmd:(selector "setAdjustsImageWhenAncestorFocused:") ~typ:(bool @-> returning (void)) x -let setAnimating x self = msg_send ~self ~cmd:(selector "setAnimating:") ~typ:(bool @-> returning (void)) x -let setAnimationDuration x self = msg_send ~self ~cmd:(selector "setAnimationDuration:") ~typ:(double @-> returning (void)) x -let setAnimationImages x self = msg_send ~self ~cmd:(selector "setAnimationImages:") ~typ:(id @-> returning (void)) x -let setAnimationRepeatCount x self = msg_send ~self ~cmd:(selector "setAnimationRepeatCount:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setCGImageRef x self = msg_send ~self ~cmd:(selector "setCGImageRef:") ~typ:(id @-> returning (void)) x -let setContentCompressionResistancePriority x ~forAxis self = msg_send ~self ~cmd:(selector "setContentCompressionResistancePriority:forAxis:") ~typ:(float @-> llong @-> returning (void)) x (LLong.of_int forAxis) -let setContentMode x self = msg_send ~self ~cmd:(selector "setContentMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContentScaleFactor x self = msg_send ~self ~cmd:(selector "setContentScaleFactor:") ~typ:(double @-> returning (void)) x -let setDrawMode x self = msg_send ~self ~cmd:(selector "setDrawMode:") ~typ:(uint @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setHighlightedAnimationImages x self = msg_send ~self ~cmd:(selector "setHighlightedAnimationImages:") ~typ:(id @-> returning (void)) x -let setHighlightedImage x self = msg_send ~self ~cmd:(selector "setHighlightedImage:") ~typ:(id @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setMasksFocusEffectToContents x self = msg_send ~self ~cmd:(selector "setMasksFocusEffectToContents:") ~typ:(bool @-> returning (void)) x -let setPreferredSymbolConfiguration x self = msg_send ~self ~cmd:(selector "setPreferredSymbolConfiguration:") ~typ:(id @-> returning (void)) x -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSymbolConfiguration x self = msg_send ~self ~cmd:(selector "setSymbolConfiguration:") ~typ:(id @-> returning (void)) x -let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let startAnimating self = msg_send ~self ~cmd:(selector "startAnimating") ~typ:(returning (void)) -let stopAnimating self = msg_send ~self ~cmd:(selector "stopAnimating") ~typ:(returning (void)) -let symbolConfiguration self = msg_send ~self ~cmd:(selector "symbolConfiguration") ~typ:(returning (id)) -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let useBlockyMagnificationInClassic self = msg_send ~self ~cmd:(selector "useBlockyMagnificationInClassic") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIImageView" + +let adjustsImageSizeForAccessibilityContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsImageSizeForAccessibilityContentSizeCategory") ~typ:(returning bool) +let adjustsImageWhenAncestorFocused self = msg_send ~self ~cmd:(selector "adjustsImageWhenAncestorFocused") ~typ:(returning bool) +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let animationDuration self = msg_send ~self ~cmd:(selector "animationDuration") ~typ:(returning double) +let animationImages self = msg_send ~self ~cmd:(selector "animationImages") ~typ:(returning id) +let animationRepeatCount self = msg_send ~self ~cmd:(selector "animationRepeatCount") ~typ:(returning llong) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let defaultAccessibilityTraits self = msg_send ~self ~cmd:(selector "defaultAccessibilityTraits") ~typ:(returning ullong) +let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning void) x +let drawMode self = msg_send ~self ~cmd:(selector "drawMode") ~typ:(returning uint) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let focusedFrameGuide self = msg_send ~self ~cmd:(selector "focusedFrameGuide") ~typ:(returning id) +let highlightedAnimationImages self = msg_send ~self ~cmd:(selector "highlightedAnimationImages") ~typ:(returning id) +let highlightedImage self = msg_send ~self ~cmd:(selector "highlightedImage") ~typ:(returning id) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let imageContentGuide self = msg_send ~self ~cmd:(selector "imageContentGuide") ~typ:(returning id) +let imageRef self = msg_send ~self ~cmd:(selector "imageRef") ~typ:(returning (ptr CGImage.t)) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithImage x self = msg_send ~self ~cmd:(selector "initWithImage:") ~typ:(id @-> returning id) x +let initWithImage' x ~highlightedImage self = msg_send ~self ~cmd:(selector "initWithImage:highlightedImage:") ~typ:(id @-> id @-> returning id) x highlightedImage +let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning bool) +let isAnimating self = msg_send ~self ~cmd:(selector "isAnimating") ~typ:(returning bool) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning bool) +let isTransparentFocusItem self = msg_send ~self ~cmd:(selector "isTransparentFocusItem") ~typ:(returning bool) +let largeContentImage self = msg_send ~self ~cmd:(selector "largeContentImage") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let masksFocusEffectToContents self = msg_send ~self ~cmd:(selector "masksFocusEffectToContents") ~typ:(returning bool) +let midlineGuide self = msg_send ~self ~cmd:(selector "midlineGuide") ~typ:(returning id) +let overlayContentView self = msg_send ~self ~cmd:(selector "overlayContentView") ~typ:(returning id) +let preferredContentScaleFactor self = msg_send ~self ~cmd:(selector "preferredContentScaleFactor") ~typ:(returning double) +let preferredSymbolConfiguration self = msg_send ~self ~cmd:(selector "preferredSymbolConfiguration") ~typ:(returning id) +let scalesLargeContentImage self = msg_send ~self ~cmd:(selector "scalesLargeContentImage") ~typ:(returning bool) +let setAdjustsImageSizeForAccessibilityContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsImageSizeForAccessibilityContentSizeCategory:") ~typ:(bool @-> returning void) x +let setAdjustsImageWhenAncestorFocused x self = msg_send ~self ~cmd:(selector "setAdjustsImageWhenAncestorFocused:") ~typ:(bool @-> returning void) x +let setAnimating x self = msg_send ~self ~cmd:(selector "setAnimating:") ~typ:(bool @-> returning void) x +let setAnimationDuration x self = msg_send ~self ~cmd:(selector "setAnimationDuration:") ~typ:(double @-> returning void) x +let setAnimationImages x self = msg_send ~self ~cmd:(selector "setAnimationImages:") ~typ:(id @-> returning void) x +let setAnimationRepeatCount x self = msg_send ~self ~cmd:(selector "setAnimationRepeatCount:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setCGImageRef x self = msg_send ~self ~cmd:(selector "setCGImageRef:") ~typ:((ptr CGImage.t) @-> returning void) x +let setContentCompressionResistancePriority x ~forAxis self = msg_send ~self ~cmd:(selector "setContentCompressionResistancePriority:forAxis:") ~typ:(float @-> llong @-> returning void) x (LLong.of_int forAxis) +let setContentMode x self = msg_send ~self ~cmd:(selector "setContentMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContentScaleFactor x self = msg_send ~self ~cmd:(selector "setContentScaleFactor:") ~typ:(double @-> returning void) x +let setDrawMode x self = msg_send ~self ~cmd:(selector "setDrawMode:") ~typ:(uint @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setHighlightedAnimationImages x self = msg_send ~self ~cmd:(selector "setHighlightedAnimationImages:") ~typ:(id @-> returning void) x +let setHighlightedImage x self = msg_send ~self ~cmd:(selector "setHighlightedImage:") ~typ:(id @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setMasksFocusEffectToContents x self = msg_send ~self ~cmd:(selector "setMasksFocusEffectToContents:") ~typ:(bool @-> returning void) x +let setPreferredSymbolConfiguration x self = msg_send ~self ~cmd:(selector "setPreferredSymbolConfiguration:") ~typ:(id @-> returning void) x +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSymbolConfiguration x self = msg_send ~self ~cmd:(selector "setSymbolConfiguration:") ~typ:(id @-> returning void) x +let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let startAnimating self = msg_send ~self ~cmd:(selector "startAnimating") ~typ:(returning void) +let stopAnimating self = msg_send ~self ~cmd:(selector "stopAnimating") ~typ:(returning void) +let symbolConfiguration self = msg_send ~self ~cmd:(selector "symbolConfiguration") ~typ:(returning id) +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let useBlockyMagnificationInClassic self = msg_send ~self ~cmd:(selector "useBlockyMagnificationInClassic") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIImmediateEdgeSwipeGestureRecognizer.ml b/uikit/UIImmediateEdgeSwipeGestureRecognizer.ml index d7157028..c60464c0 100644 --- a/uikit/UIImmediateEdgeSwipeGestureRecognizer.ml +++ b/uikit/UIImmediateEdgeSwipeGestureRecognizer.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIImmediateEdgeSwipeGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiimmediateedgeswipegesturerecognizer?language=objc}UIImmediateEdgeSwipeGestureRecognizer} *) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let self = get_class "UIImmediateEdgeSwipeGestureRecognizer" + +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UIImpactFeedbackGenerator.ml b/uikit/UIImpactFeedbackGenerator.ml index 74fd0c0b..07a35fc6 100644 --- a/uikit/UIImpactFeedbackGenerator.ml +++ b/uikit/UIImpactFeedbackGenerator.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIImpactFeedbackGenerator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiimpactfeedbackgenerator?language=objc}UIImpactFeedbackGenerator} *) -let impactOccurred self = msg_send ~self ~cmd:(selector "impactOccurred") ~typ:(returning (void)) -let impactOccurredWithIntensity x self = msg_send ~self ~cmd:(selector "impactOccurredWithIntensity:") ~typ:(double @-> returning (void)) x -let initWithStyle x self = msg_send ~self ~cmd:(selector "initWithStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let initWithStyle' x ~coordinateSpace self = msg_send ~self ~cmd:(selector "initWithStyle:coordinateSpace:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) coordinateSpace \ No newline at end of file +let self = get_class "UIImpactFeedbackGenerator" + +let impactOccurred self = msg_send ~self ~cmd:(selector "impactOccurred") ~typ:(returning void) +let impactOccurredWithIntensity x self = msg_send ~self ~cmd:(selector "impactOccurredWithIntensity:") ~typ:(double @-> returning void) x +let initWithStyle x self = msg_send ~self ~cmd:(selector "initWithStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let initWithStyle' x ~coordinateSpace self = msg_send ~self ~cmd:(selector "initWithStyle:coordinateSpace:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) coordinateSpace \ No newline at end of file diff --git a/uikit/UIIndexBarAccessoryView.ml b/uikit/UIIndexBarAccessoryView.ml index 2b0f6d86..25bf85c7 100644 --- a/uikit/UIIndexBarAccessoryView.ml +++ b/uikit/UIIndexBarAccessoryView.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIIndexBarAccessoryView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiindexbaraccessoryview?language=objc}UIIndexBarAccessoryView} *) -let displayEntryNearestToContentOffset x self = msg_send ~self ~cmd:(selector "displayEntryNearestToContentOffset:") ~typ:(CGPoint.t @-> returning (id)) x -let edge self = msg_send ~self ~cmd:(selector "edge") ~typ:(returning (llong)) -let overlay self = msg_send ~self ~cmd:(selector "overlay") ~typ:(returning (bool)) -let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning (id)) -let setEdge x self = msg_send ~self ~cmd:(selector "setEdge:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setEntries x self = msg_send ~self ~cmd:(selector "setEntries:") ~typ:(id @-> returning (void)) x -let setScrollView x self = msg_send ~self ~cmd:(selector "setScrollView:") ~typ:(id @-> returning (void)) x -let update self = msg_send ~self ~cmd:(selector "update") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIIndexBarAccessoryView" + +let displayEntryNearestToContentOffset x self = msg_send ~self ~cmd:(selector "displayEntryNearestToContentOffset:") ~typ:(CGPoint.t @-> returning id) x +let edge self = msg_send ~self ~cmd:(selector "edge") ~typ:(returning llong) +let overlay self = msg_send ~self ~cmd:(selector "overlay") ~typ:(returning bool) +let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning id) +let setEdge x self = msg_send ~self ~cmd:(selector "setEdge:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setEntries x self = msg_send ~self ~cmd:(selector "setEntries:") ~typ:(id @-> returning void) x +let setScrollView x self = msg_send ~self ~cmd:(selector "setScrollView:") ~typ:(id @-> returning void) x +let update self = msg_send ~self ~cmd:(selector "update") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIIndexBarDisplayEntry.ml b/uikit/UIIndexBarDisplayEntry.ml index fa54b369..15dbb16d 100644 --- a/uikit/UIIndexBarDisplayEntry.ml +++ b/uikit/UIIndexBarDisplayEntry.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIIndexBarDisplayEntry" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiindexbardisplayentry?language=objc}UIIndexBarDisplayEntry} *) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let displayEntryIndex self = msg_send ~self ~cmd:(selector "displayEntryIndex") ~typ:(returning (llong)) -let entry self = msg_send ~self ~cmd:(selector "entry") ~typ:(returning (id)) -let entryIndex self = msg_send ~self ~cmd:(selector "entryIndex") ~typ:(returning (llong)) -let setDisplayEntryIndex x self = msg_send ~self ~cmd:(selector "setDisplayEntryIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setEntry x self = msg_send ~self ~cmd:(selector "setEntry:") ~typ:(id @-> returning (void)) x -let setEntryIndex x self = msg_send ~self ~cmd:(selector "setEntryIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file +let self = get_class "UIIndexBarDisplayEntry" + +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let displayEntryIndex self = msg_send ~self ~cmd:(selector "displayEntryIndex") ~typ:(returning llong) +let entry self = msg_send ~self ~cmd:(selector "entry") ~typ:(returning id) +let entryIndex self = msg_send ~self ~cmd:(selector "entryIndex") ~typ:(returning llong) +let setDisplayEntryIndex x self = msg_send ~self ~cmd:(selector "setDisplayEntryIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setEntry x self = msg_send ~self ~cmd:(selector "setEntry:") ~typ:(id @-> returning void) x +let setEntryIndex x self = msg_send ~self ~cmd:(selector "setEntryIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIIndexBarEntry.ml b/uikit/UIIndexBarEntry.ml index 1131aa66..81eab663 100644 --- a/uikit/UIIndexBarEntry.ml +++ b/uikit/UIIndexBarEntry.ml @@ -5,26 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIIndexBarEntry" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiindexbarentry?language=objc}UIIndexBarEntry} *) -module C = struct - let entryForDotInView x self = msg_send ~self ~cmd:(selector "entryForDotInView:") ~typ:(id @-> returning (id)) x - let entryForNumbers self = msg_send ~self ~cmd:(selector "entryForNumbers") ~typ:(returning (id)) - let entryForSearch self = msg_send ~self ~cmd:(selector "entryForSearch") ~typ:(returning (id)) - let entryWithTitle x self = msg_send ~self ~cmd:(selector "entryWithTitle:") ~typ:(id @-> returning (id)) x - let entryWithType x self = msg_send ~self ~cmd:(selector "entryWithType:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -end +let self = get_class "UIIndexBarEntry" -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let effectiveShortTitle self = msg_send ~self ~cmd:(selector "effectiveShortTitle") ~typ:(returning (id)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let indexPath self = msg_send ~self ~cmd:(selector "indexPath") ~typ:(returning (id)) -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setIndexPath x self = msg_send ~self ~cmd:(selector "setIndexPath:") ~typ:(id @-> returning (void)) x -let setShortTitle x self = msg_send ~self ~cmd:(selector "setShortTitle:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let shortTitle self = msg_send ~self ~cmd:(selector "shortTitle") ~typ:(returning (id)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let effectiveShortTitle self = msg_send ~self ~cmd:(selector "effectiveShortTitle") ~typ:(returning id) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let indexPath self = msg_send ~self ~cmd:(selector "indexPath") ~typ:(returning id) +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setIndexPath x self = msg_send ~self ~cmd:(selector "setIndexPath:") ~typ:(id @-> returning void) x +let setShortTitle x self = msg_send ~self ~cmd:(selector "setShortTitle:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let shortTitle self = msg_send ~self ~cmd:(selector "shortTitle") ~typ:(returning id) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIIndexBarEntryClass.ml b/uikit/UIIndexBarEntryClass.ml new file mode 100644 index 00000000..bdfd350b --- /dev/null +++ b/uikit/UIIndexBarEntryClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiindexbarentry?language=objc}UIIndexBarEntry} *) + +let entryForDotInView x self = msg_send ~self ~cmd:(selector "entryForDotInView:") ~typ:(id @-> returning id) x +let entryForNumbers self = msg_send ~self ~cmd:(selector "entryForNumbers") ~typ:(returning id) +let entryForSearch self = msg_send ~self ~cmd:(selector "entryForSearch") ~typ:(returning id) +let entryWithTitle x self = msg_send ~self ~cmd:(selector "entryWithTitle:") ~typ:(id @-> returning id) x +let entryWithType x self = msg_send ~self ~cmd:(selector "entryWithType:") ~typ:(llong @-> returning id) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIIndexBarView.ml b/uikit/UIIndexBarView.ml index b192a00b..6b5acde3 100644 --- a/uikit/UIIndexBarView.ml +++ b/uikit/UIIndexBarView.ml @@ -5,49 +5,53 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIIndexBarView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiindexbarview?language=objc}UIIndexBarView} *) -let axHUDGestureManager self = msg_send ~self ~cmd:(selector "axHUDGestureManager") ~typ:(returning (id)) -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let cachedDisplayHighlightedIndex self = msg_send ~self ~cmd:(selector "cachedDisplayHighlightedIndex") ~typ:(returning (double)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let cancelTrackingWithEvent x self = msg_send ~self ~cmd:(selector "cancelTrackingWithEvent:") ~typ:(id @-> returning (void)) x -let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let deflection self = msg_send ~self ~cmd:(selector "deflection") ~typ:(returning (double)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let displayEntries self = msg_send ~self ~cmd:(selector "displayEntries") ~typ:(returning (id)) -let displayHighlightedIndex self = msg_send ~self ~cmd:(selector "displayHighlightedIndex") ~typ:(returning (double)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let entries self = msg_send ~self ~cmd:(selector "entries") ~typ:(returning (id)) -let highlightStyle self = msg_send ~self ~cmd:(selector "highlightStyle") ~typ:(returning (llong)) -let highlightedIndex self = msg_send ~self ~cmd:(selector "highlightedIndex") ~typ:(returning (double)) -let indexColor self = msg_send ~self ~cmd:(selector "indexColor") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let nonTrackingBackgroundColor self = msg_send ~self ~cmd:(selector "nonTrackingBackgroundColor") ~typ:(returning (id)) -let resetDeflection x self = msg_send ~self ~cmd:(selector "resetDeflection:") ~typ:(bool @-> returning (void)) x -let selectionFeedbackGenerator self = msg_send ~self ~cmd:(selector "selectionFeedbackGenerator") ~typ:(returning (id)) -let setAxHUDGestureManager x self = msg_send ~self ~cmd:(selector "setAxHUDGestureManager:") ~typ:(id @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setCachedDisplayHighlightedIndex x self = msg_send ~self ~cmd:(selector "setCachedDisplayHighlightedIndex:") ~typ:(double @-> returning (void)) x -let setDeflection x self = msg_send ~self ~cmd:(selector "setDeflection:") ~typ:(double @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDisplayEntries x self = msg_send ~self ~cmd:(selector "setDisplayEntries:") ~typ:(id @-> returning (void)) x -let setEntries x self = msg_send ~self ~cmd:(selector "setEntries:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHighlightStyle x self = msg_send ~self ~cmd:(selector "setHighlightStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setHighlightedIndex x self = msg_send ~self ~cmd:(selector "setHighlightedIndex:") ~typ:(double @-> returning (void)) x -let setIndexColor x self = msg_send ~self ~cmd:(selector "setIndexColor:") ~typ:(id @-> returning (void)) x -let setNonTrackingBackgroundColor x self = msg_send ~self ~cmd:(selector "setNonTrackingBackgroundColor:") ~typ:(id @-> returning (void)) x -let setSelectionFeedbackGenerator x self = msg_send ~self ~cmd:(selector "setSelectionFeedbackGenerator:") ~typ:(id @-> returning (void)) x -let setTrackingBackgroundColor x self = msg_send ~self ~cmd:(selector "setTrackingBackgroundColor:") ~typ:(id @-> returning (void)) x -let setVisualStyle x self = msg_send ~self ~cmd:(selector "setVisualStyle:") ~typ:(id @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let trackingBackgroundColor self = msg_send ~self ~cmd:(selector "trackingBackgroundColor") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let visualStyle self = msg_send ~self ~cmd:(selector "visualStyle") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIIndexBarView" + +let axHUDGestureManager self = msg_send ~self ~cmd:(selector "axHUDGestureManager") ~typ:(returning id) +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let cachedDisplayHighlightedIndex self = msg_send ~self ~cmd:(selector "cachedDisplayHighlightedIndex") ~typ:(returning double) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let cancelTrackingWithEvent x self = msg_send ~self ~cmd:(selector "cancelTrackingWithEvent:") ~typ:(id @-> returning void) x +let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let deflection self = msg_send ~self ~cmd:(selector "deflection") ~typ:(returning double) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let displayEntries self = msg_send ~self ~cmd:(selector "displayEntries") ~typ:(returning id) +let displayHighlightedIndex self = msg_send ~self ~cmd:(selector "displayHighlightedIndex") ~typ:(returning double) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let entries self = msg_send ~self ~cmd:(selector "entries") ~typ:(returning id) +let highlightStyle self = msg_send ~self ~cmd:(selector "highlightStyle") ~typ:(returning llong) +let highlightedIndex self = msg_send ~self ~cmd:(selector "highlightedIndex") ~typ:(returning double) +let indexColor self = msg_send ~self ~cmd:(selector "indexColor") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let nonTrackingBackgroundColor self = msg_send ~self ~cmd:(selector "nonTrackingBackgroundColor") ~typ:(returning id) +let resetDeflection x self = msg_send ~self ~cmd:(selector "resetDeflection:") ~typ:(bool @-> returning void) x +let selectionFeedbackGenerator self = msg_send ~self ~cmd:(selector "selectionFeedbackGenerator") ~typ:(returning id) +let setAxHUDGestureManager x self = msg_send ~self ~cmd:(selector "setAxHUDGestureManager:") ~typ:(id @-> returning void) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setCachedDisplayHighlightedIndex x self = msg_send ~self ~cmd:(selector "setCachedDisplayHighlightedIndex:") ~typ:(double @-> returning void) x +let setDeflection x self = msg_send ~self ~cmd:(selector "setDeflection:") ~typ:(double @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDisplayEntries x self = msg_send ~self ~cmd:(selector "setDisplayEntries:") ~typ:(id @-> returning void) x +let setEntries x self = msg_send ~self ~cmd:(selector "setEntries:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHighlightStyle x self = msg_send ~self ~cmd:(selector "setHighlightStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setHighlightedIndex x self = msg_send ~self ~cmd:(selector "setHighlightedIndex:") ~typ:(double @-> returning void) x +let setIndexColor x self = msg_send ~self ~cmd:(selector "setIndexColor:") ~typ:(id @-> returning void) x +let setNonTrackingBackgroundColor x self = msg_send ~self ~cmd:(selector "setNonTrackingBackgroundColor:") ~typ:(id @-> returning void) x +let setSelectionFeedbackGenerator x self = msg_send ~self ~cmd:(selector "setSelectionFeedbackGenerator:") ~typ:(id @-> returning void) x +let setTrackingBackgroundColor x self = msg_send ~self ~cmd:(selector "setTrackingBackgroundColor:") ~typ:(id @-> returning void) x +let setVisualStyle x self = msg_send ~self ~cmd:(selector "setVisualStyle:") ~typ:(id @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let trackingBackgroundColor self = msg_send ~self ~cmd:(selector "trackingBackgroundColor") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let visualStyle self = msg_send ~self ~cmd:(selector "visualStyle") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIIndirectScribbleInteraction.ml b/uikit/UIIndirectScribbleInteraction.ml index 59130d8c..258b0758 100644 --- a/uikit/UIIndirectScribbleInteraction.ml +++ b/uikit/UIIndirectScribbleInteraction.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIIndirectScribbleInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiindirectscribbleinteraction?language=objc}UIIndirectScribbleInteraction} *) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning (id)) x -let isHandlingWriting self = msg_send ~self ~cmd:(selector "isHandlingWriting") ~typ:(returning (bool)) -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIIndirectScribbleInteraction" + +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning id) x +let isHandlingWriting self = msg_send ~self ~cmd:(selector "isHandlingWriting") ~typ:(returning bool) +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIInputContextHistory.ml b/uikit/UIInputContextHistory.ml index 72c17f73..ddee1bb4 100644 --- a/uikit/UIInputContextHistory.ml +++ b/uikit/UIInputContextHistory.ml @@ -5,19 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputContextHistory" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputcontexthistory?language=objc}UIInputContextHistory} *) -let addTextEntry x ~timestamp self = msg_send ~self ~cmd:(selector "addTextEntry:timestamp:") ~typ:(id @-> id @-> returning (void)) x timestamp -let addTextEntry' x ~timestamp ~senderIdentifier self = msg_send ~self ~cmd:(selector "addTextEntry:timestamp:senderIdentifier:") ~typ:(id @-> id @-> id @-> returning (void)) x timestamp senderIdentifier -let initWithRecipientIdentifiers x self = msg_send ~self ~cmd:(selector "initWithRecipientIdentifiers:") ~typ:(id @-> returning (id)) x -let initWithRecipientIdentifiers1 x ~senderIdentifier self = msg_send ~self ~cmd:(selector "initWithRecipientIdentifiers:senderIdentifier:") ~typ:(id @-> id @-> returning (id)) x senderIdentifier -let initWithRecipientIdentifiers2 x ~senderIdentifiers self = msg_send ~self ~cmd:(selector "initWithRecipientIdentifiers:senderIdentifiers:") ~typ:(id @-> id @-> returning (id)) x senderIdentifiers -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let mostRecentTextEntries x self = msg_send ~self ~cmd:(selector "mostRecentTextEntries:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let recipientIdentifiers self = msg_send ~self ~cmd:(selector "recipientIdentifiers") ~typ:(returning (id)) -let recipientNames self = msg_send ~self ~cmd:(selector "recipientNames") ~typ:(returning (id)) -let senderIdentifier self = msg_send ~self ~cmd:(selector "senderIdentifier") ~typ:(returning (id)) -let senderIdentifiers self = msg_send ~self ~cmd:(selector "senderIdentifiers") ~typ:(returning (id)) -let tiInputContextHistory self = msg_send ~self ~cmd:(selector "tiInputContextHistory") ~typ:(returning (id)) -let updateRecipientNames x self = msg_send ~self ~cmd:(selector "updateRecipientNames:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIInputContextHistory" + +let addTextEntry x ~timestamp self = msg_send ~self ~cmd:(selector "addTextEntry:timestamp:") ~typ:(id @-> id @-> returning void) x timestamp +let addTextEntry' x ~timestamp ~senderIdentifier self = msg_send ~self ~cmd:(selector "addTextEntry:timestamp:senderIdentifier:") ~typ:(id @-> id @-> id @-> returning void) x timestamp senderIdentifier +let initWithRecipientIdentifiers x self = msg_send ~self ~cmd:(selector "initWithRecipientIdentifiers:") ~typ:(id @-> returning id) x +let initWithRecipientIdentifiers1 x ~senderIdentifier self = msg_send ~self ~cmd:(selector "initWithRecipientIdentifiers:senderIdentifier:") ~typ:(id @-> id @-> returning id) x senderIdentifier +let initWithRecipientIdentifiers2 x ~senderIdentifiers self = msg_send ~self ~cmd:(selector "initWithRecipientIdentifiers:senderIdentifiers:") ~typ:(id @-> id @-> returning id) x senderIdentifiers +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let mostRecentTextEntries x self = msg_send ~self ~cmd:(selector "mostRecentTextEntries:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let recipientIdentifiers self = msg_send ~self ~cmd:(selector "recipientIdentifiers") ~typ:(returning id) +let recipientNames self = msg_send ~self ~cmd:(selector "recipientNames") ~typ:(returning id) +let senderIdentifier self = msg_send ~self ~cmd:(selector "senderIdentifier") ~typ:(returning id) +let senderIdentifiers self = msg_send ~self ~cmd:(selector "senderIdentifiers") ~typ:(returning id) +let tiInputContextHistory self = msg_send ~self ~cmd:(selector "tiInputContextHistory") ~typ:(returning id) +let updateRecipientNames x self = msg_send ~self ~cmd:(selector "updateRecipientNames:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIInputResponderController.ml b/uikit/UIInputResponderController.ml index 38c3054f..bfe4db7c 100644 --- a/uikit/UIInputResponderController.ml +++ b/uikit/UIInputResponderController.ml @@ -5,27 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputResponderController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputrespondercontroller?language=objc}UIInputResponderController} *) -module C = struct - let activeInputResponderController self = msg_send ~self ~cmd:(selector "activeInputResponderController") ~typ:(returning (id)) - let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning (llong)) - let performOnControllers x self = msg_send ~self ~cmd:(selector "performOnControllers:") ~typ:(ptr void @-> returning (void)) x - let setInterfaceOrientation x self = msg_send ~self ~cmd:(selector "setInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -end +let self = get_class "UIInputResponderController" -let addVisibilityObserver x self = msg_send ~self ~cmd:(selector "addVisibilityObserver:") ~typ:(id @-> returning (void)) x -let assertNo self = msg_send ~self ~cmd:(selector "assertNo") ~typ:(returning (void)) -let automaticAppearanceEnabled self = msg_send ~self ~cmd:(selector "automaticAppearanceEnabled") ~typ:(returning (bool)) -let isOnScreen self = msg_send ~self ~cmd:(selector "isOnScreen") ~typ:(returning (bool)) -let refreshWithLocalMinimumKeyboardHeight x self = msg_send ~self ~cmd:(selector "refreshWithLocalMinimumKeyboardHeight:") ~typ:(double @-> returning (void)) x -let removeVisibilityObserver x self = msg_send ~self ~cmd:(selector "removeVisibilityObserver:") ~typ:(id @-> returning (void)) x -let responder self = msg_send ~self ~cmd:(selector "responder") ~typ:(returning (id)) -let scene self = msg_send ~self ~cmd:(selector "scene") ~typ:(returning (id)) -let setAutomaticAppearanceEnabled x self = msg_send ~self ~cmd:(selector "setAutomaticAppearanceEnabled:") ~typ:(bool @-> returning (void)) x -let setShouldSuppressInputAssistantUpdates x self = msg_send ~self ~cmd:(selector "setShouldSuppressInputAssistantUpdates:") ~typ:(bool @-> returning (void)) x -let shouldSuppressInputAssistantUpdates self = msg_send ~self ~cmd:(selector "shouldSuppressInputAssistantUpdates") ~typ:(returning (bool)) -let verticalOverlapForView x ~usingKeyboardInfo self = msg_send ~self ~cmd:(selector "verticalOverlapForView:usingKeyboardInfo:") ~typ:(id @-> id @-> returning (double)) x usingKeyboardInfo -let visibleFrameInView x self = msg_send_stret ~self ~cmd:(selector "visibleFrameInView:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let visibleInputViewFrameInView x self = msg_send_stret ~self ~cmd:(selector "visibleInputViewFrameInView:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x \ No newline at end of file +let addVisibilityObserver x self = msg_send ~self ~cmd:(selector "addVisibilityObserver:") ~typ:(id @-> returning void) x +let assertNo self = msg_send ~self ~cmd:(selector "assertNo") ~typ:(returning void) +let automaticAppearanceEnabled self = msg_send ~self ~cmd:(selector "automaticAppearanceEnabled") ~typ:(returning bool) +let isOnScreen self = msg_send ~self ~cmd:(selector "isOnScreen") ~typ:(returning bool) +let refreshWithLocalMinimumKeyboardHeight x self = msg_send ~self ~cmd:(selector "refreshWithLocalMinimumKeyboardHeight:") ~typ:(double @-> returning void) x +let removeVisibilityObserver x self = msg_send ~self ~cmd:(selector "removeVisibilityObserver:") ~typ:(id @-> returning void) x +let responder self = msg_send ~self ~cmd:(selector "responder") ~typ:(returning id) +let scene self = msg_send ~self ~cmd:(selector "scene") ~typ:(returning id) +let setAutomaticAppearanceEnabled x self = msg_send ~self ~cmd:(selector "setAutomaticAppearanceEnabled:") ~typ:(bool @-> returning void) x +let setShouldSuppressInputAssistantUpdates x self = msg_send ~self ~cmd:(selector "setShouldSuppressInputAssistantUpdates:") ~typ:(bool @-> returning void) x +let shouldSuppressInputAssistantUpdates self = msg_send ~self ~cmd:(selector "shouldSuppressInputAssistantUpdates") ~typ:(returning bool) +let verticalOverlapForView x ~usingKeyboardInfo self = msg_send ~self ~cmd:(selector "verticalOverlapForView:usingKeyboardInfo:") ~typ:(id @-> id @-> returning double) x usingKeyboardInfo +let visibleFrameInView x self = msg_send ~self ~cmd:(selector "visibleFrameInView:") ~typ:(id @-> returning CGRect.t) x +let visibleInputViewFrameInView x self = msg_send ~self ~cmd:(selector "visibleInputViewFrameInView:") ~typ:(id @-> returning CGRect.t) x \ No newline at end of file diff --git a/uikit/UIInputResponderControllerClass.ml b/uikit/UIInputResponderControllerClass.ml new file mode 100644 index 00000000..7f1fcdc5 --- /dev/null +++ b/uikit/UIInputResponderControllerClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputrespondercontroller?language=objc}UIInputResponderController} *) + +let activeInputResponderController self = msg_send ~self ~cmd:(selector "activeInputResponderController") ~typ:(returning id) +let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning llong) +let performOnControllers x self = msg_send ~self ~cmd:(selector "performOnControllers:") ~typ:((ptr void) @-> returning void) x +let setInterfaceOrientation x self = msg_send ~self ~cmd:(selector "setInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIInputSetContainerView.ml b/uikit/UIInputSetContainerView.ml index c7a5e10a..fef4f75d 100644 --- a/uikit/UIInputSetContainerView.ml +++ b/uikit/UIInputSetContainerView.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputSetContainerView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputsetcontainerview?language=objc}UIInputSetContainerView} *) -let addHostedView x ~withViewRemovalHandler self = msg_send ~self ~cmd:(selector "addHostedView:withViewRemovalHandler:") ~typ:(id @-> ptr void @-> returning (void)) x withViewRemovalHandler -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didAddSubview x self = msg_send ~self ~cmd:(selector "didAddSubview:") ~typ:(id @-> returning (void)) x -let hasHostedViews self = msg_send ~self ~cmd:(selector "hasHostedViews") ~typ:(returning (bool)) -let hostingScreen self = msg_send ~self ~cmd:(selector "hostingScreen") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let offsetOrigin self = msg_send_stret ~self ~cmd:(selector "offsetOrigin") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let performWithoutGeometryObserverNotifications x self = msg_send ~self ~cmd:(selector "performWithoutGeometryObserverNotifications:") ~typ:(ptr void @-> returning (void)) x -let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setOffsetOrigin x self = msg_send ~self ~cmd:(selector "setOffsetOrigin:") ~typ:(CGPoint.t @-> returning (void)) x \ No newline at end of file +let self = get_class "UIInputSetContainerView" + +let addHostedView x ~withViewRemovalHandler self = msg_send ~self ~cmd:(selector "addHostedView:withViewRemovalHandler:") ~typ:(id @-> (ptr void) @-> returning void) x withViewRemovalHandler +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didAddSubview x self = msg_send ~self ~cmd:(selector "didAddSubview:") ~typ:(id @-> returning void) x +let hasHostedViews self = msg_send ~self ~cmd:(selector "hasHostedViews") ~typ:(returning bool) +let hostingScreen self = msg_send ~self ~cmd:(selector "hostingScreen") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let offsetOrigin self = msg_send ~self ~cmd:(selector "offsetOrigin") ~typ:(returning CGPoint.t) +let performWithoutGeometryObserverNotifications x self = msg_send ~self ~cmd:(selector "performWithoutGeometryObserverNotifications:") ~typ:((ptr void) @-> returning void) x +let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setOffsetOrigin x self = msg_send ~self ~cmd:(selector "setOffsetOrigin:") ~typ:(CGPoint.t @-> returning void) x \ No newline at end of file diff --git a/uikit/UIInputSetHostView.ml b/uikit/UIInputSetHostView.ml index 155c9ef0..2b81fee6 100644 --- a/uikit/UIInputSetHostView.ml +++ b/uikit/UIInputSetHostView.ml @@ -5,14 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputSetHostView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputsethostview?language=objc}UIInputSetHostView} *) -module C = struct - let requiresConstraintBasedLayout self = msg_send ~self ~cmd:(selector "requiresConstraintBasedLayout") ~typ:(returning (bool)) -end +let self = get_class "UIInputSetHostView" -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let layoutIfNeeded self = msg_send ~self ~cmd:(selector "layoutIfNeeded") ~typ:(returning (void)) -let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning (int)) \ No newline at end of file +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let layoutIfNeeded self = msg_send ~self ~cmd:(selector "layoutIfNeeded") ~typ:(returning void) +let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning int) \ No newline at end of file diff --git a/uikit/UIInputSetHostViewClass.ml b/uikit/UIInputSetHostViewClass.ml new file mode 100644 index 00000000..4979a984 --- /dev/null +++ b/uikit/UIInputSetHostViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputsethostview?language=objc}UIInputSetHostView} *) + +let requiresConstraintBasedLayout self = msg_send ~self ~cmd:(selector "requiresConstraintBasedLayout") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIInputSwitcher.ml b/uikit/UIInputSwitcher.ml index 2d5103a7..76085c8d 100644 --- a/uikit/UIInputSwitcher.ml +++ b/uikit/UIInputSwitcher.ml @@ -5,46 +5,45 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputSwitcher" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputswitcher?language=objc}UIInputSwitcher} *) -module C = struct - let activeInstance self = msg_send ~self ~cmd:(selector "activeInstance") ~typ:(returning (id)) - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end +let self = get_class "UIInputSwitcher" -let cancelHideSwitcherTimer self = msg_send ~self ~cmd:(selector "cancelHideSwitcherTimer") ~typ:(returning (void)) -let cancelShowSwitcherTimer self = msg_send ~self ~cmd:(selector "cancelShowSwitcherTimer") ~typ:(returning (void)) -let cleanUpAfterHide self = msg_send ~self ~cmd:(selector "cleanUpAfterHide") ~typ:(returning (void)) -let clearHideSwitcherTimer self = msg_send ~self ~cmd:(selector "clearHideSwitcherTimer") ~typ:(returning (void)) -let clearShowSwitcherTimer self = msg_send ~self ~cmd:(selector "clearShowSwitcherTimer") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let dismissingEmojiPopover self = msg_send ~self ~cmd:(selector "dismissingEmojiPopover") ~typ:(returning (bool)) -let handleEmojiPicker self = msg_send ~self ~cmd:(selector "handleEmojiPicker") ~typ:(returning (bool)) -let handleGlobeKeyEvent x ~switcherIsVisible self = msg_send ~self ~cmd:(selector "handleGlobeKeyEvent:switcherIsVisible:") ~typ:(id @-> bool @-> returning (bool)) x switcherIsVisible -let handleModifiersChangedEvent x self = msg_send ~self ~cmd:(selector "handleModifiersChangedEvent:") ~typ:(id @-> returning (bool)) x -let handleNavigationEvent x self = msg_send ~self ~cmd:(selector "handleNavigationEvent:") ~typ:(id @-> returning (bool)) x -let handleRotate x self = msg_send ~self ~cmd:(selector "handleRotate:") ~typ:(id @-> returning (void)) x -let handleSwitchCommand x self = msg_send ~self ~cmd:(selector "handleSwitchCommand:") ~typ:(bool @-> returning (bool)) x -let handleSwitchCommand' x ~withHUD ~withDelay self = msg_send ~self ~cmd:(selector "handleSwitchCommand:withHUD:withDelay:") ~typ:(bool @-> bool @-> bool @-> returning (bool)) x withHUD withDelay -let handleSwitchingKeyEvent x self = msg_send ~self ~cmd:(selector "handleSwitchingKeyEvent:") ~typ:(id @-> returning (bool)) x -let hideSwitcher self = msg_send ~self ~cmd:(selector "hideSwitcher") ~typ:(returning (void)) -let hideSwitcherIfNeeded self = msg_send ~self ~cmd:(selector "hideSwitcherIfNeeded") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let inputModeIdentifierWithNextFlag x self = msg_send ~self ~cmd:(selector "inputModeIdentifierWithNextFlag:") ~typ:(bool @-> returning (id)) x -let isVisible self = msg_send ~self ~cmd:(selector "isVisible") ~typ:(returning (bool)) -let isVisibleOrHiding self = msg_send ~self ~cmd:(selector "isVisibleOrHiding") ~typ:(returning (bool)) -let loadedIdentifier self = msg_send ~self ~cmd:(selector "loadedIdentifier") ~typ:(returning (id)) -let needsFullHUD self = msg_send ~self ~cmd:(selector "needsFullHUD") ~typ:(returning (bool)) -let setDismissingEmojiPopover x self = msg_send ~self ~cmd:(selector "setDismissingEmojiPopover:") ~typ:(bool @-> returning (void)) x -let setLoadedIdentifier x self = msg_send ~self ~cmd:(selector "setLoadedIdentifier:") ~typ:(id @-> returning (void)) x -let setUsingCapsLockLanguageSwitch x self = msg_send ~self ~cmd:(selector "setUsingCapsLockLanguageSwitch:") ~typ:(bool @-> returning (void)) x -let showSwitcherShouldAutoHide x self = msg_send ~self ~cmd:(selector "showSwitcherShouldAutoHide:") ~typ:(bool @-> returning (void)) x -let showSwitcherWithAutoHide self = msg_send ~self ~cmd:(selector "showSwitcherWithAutoHide") ~typ:(returning (void)) -let showSwitcherWithoutAutoHide self = msg_send ~self ~cmd:(selector "showSwitcherWithoutAutoHide") ~typ:(returning (void)) -let switchMode x ~withHUD ~withDelay self = msg_send ~self ~cmd:(selector "switchMode:withHUD:withDelay:") ~typ:(id @-> bool @-> bool @-> returning (bool)) x withHUD withDelay -let switchMode' x ~withHUD ~withDelay ~fromCapsLock self = msg_send ~self ~cmd:(selector "switchMode:withHUD:withDelay:fromCapsLock:") ~typ:(id @-> bool @-> bool @-> bool @-> returning (bool)) x withHUD withDelay fromCapsLock -let touchHideSwitcherTimer self = msg_send ~self ~cmd:(selector "touchHideSwitcherTimer") ~typ:(returning (void)) -let touchShowSwitcherTimer self = msg_send ~self ~cmd:(selector "touchShowSwitcherTimer") ~typ:(returning (void)) -let updateHardwareLayout self = msg_send ~self ~cmd:(selector "updateHardwareLayout") ~typ:(returning (void)) -let usingCapsLockLanguageSwitch self = msg_send ~self ~cmd:(selector "usingCapsLockLanguageSwitch") ~typ:(returning (bool)) \ No newline at end of file +let cancelHideSwitcherTimer self = msg_send ~self ~cmd:(selector "cancelHideSwitcherTimer") ~typ:(returning void) +let cancelShowSwitcherTimer self = msg_send ~self ~cmd:(selector "cancelShowSwitcherTimer") ~typ:(returning void) +let cleanUpAfterHide self = msg_send ~self ~cmd:(selector "cleanUpAfterHide") ~typ:(returning void) +let clearHideSwitcherTimer self = msg_send ~self ~cmd:(selector "clearHideSwitcherTimer") ~typ:(returning void) +let clearShowSwitcherTimer self = msg_send ~self ~cmd:(selector "clearShowSwitcherTimer") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let dismissingEmojiPopover self = msg_send ~self ~cmd:(selector "dismissingEmojiPopover") ~typ:(returning bool) +let handleEmojiPicker self = msg_send ~self ~cmd:(selector "handleEmojiPicker") ~typ:(returning bool) +let handleGlobeKeyEvent x ~switcherIsVisible self = msg_send ~self ~cmd:(selector "handleGlobeKeyEvent:switcherIsVisible:") ~typ:(id @-> bool @-> returning bool) x switcherIsVisible +let handleModifiersChangedEvent x self = msg_send ~self ~cmd:(selector "handleModifiersChangedEvent:") ~typ:(id @-> returning bool) x +let handleNavigationEvent x self = msg_send ~self ~cmd:(selector "handleNavigationEvent:") ~typ:(id @-> returning bool) x +let handleRotate x self = msg_send ~self ~cmd:(selector "handleRotate:") ~typ:(id @-> returning void) x +let handleSwitchCommand x self = msg_send ~self ~cmd:(selector "handleSwitchCommand:") ~typ:(bool @-> returning bool) x +let handleSwitchCommand' x ~withHUD ~withDelay self = msg_send ~self ~cmd:(selector "handleSwitchCommand:withHUD:withDelay:") ~typ:(bool @-> bool @-> bool @-> returning bool) x withHUD withDelay +let handleSwitchingKeyEvent x self = msg_send ~self ~cmd:(selector "handleSwitchingKeyEvent:") ~typ:(id @-> returning bool) x +let hideSwitcher self = msg_send ~self ~cmd:(selector "hideSwitcher") ~typ:(returning void) +let hideSwitcherIfNeeded self = msg_send ~self ~cmd:(selector "hideSwitcherIfNeeded") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let inputModeIdentifierWithNextFlag x self = msg_send ~self ~cmd:(selector "inputModeIdentifierWithNextFlag:") ~typ:(bool @-> returning id) x +let isVisible self = msg_send ~self ~cmd:(selector "isVisible") ~typ:(returning bool) +let isVisibleOrHiding self = msg_send ~self ~cmd:(selector "isVisibleOrHiding") ~typ:(returning bool) +let loadedIdentifier self = msg_send ~self ~cmd:(selector "loadedIdentifier") ~typ:(returning id) +let needsFullHUD self = msg_send ~self ~cmd:(selector "needsFullHUD") ~typ:(returning bool) +let setDismissingEmojiPopover x self = msg_send ~self ~cmd:(selector "setDismissingEmojiPopover:") ~typ:(bool @-> returning void) x +let setLoadedIdentifier x self = msg_send ~self ~cmd:(selector "setLoadedIdentifier:") ~typ:(id @-> returning void) x +let setUsingCapsLockLanguageSwitch x self = msg_send ~self ~cmd:(selector "setUsingCapsLockLanguageSwitch:") ~typ:(bool @-> returning void) x +let showSwitcherShouldAutoHide x self = msg_send ~self ~cmd:(selector "showSwitcherShouldAutoHide:") ~typ:(bool @-> returning void) x +let showSwitcherWithAutoHide self = msg_send ~self ~cmd:(selector "showSwitcherWithAutoHide") ~typ:(returning void) +let showSwitcherWithoutAutoHide self = msg_send ~self ~cmd:(selector "showSwitcherWithoutAutoHide") ~typ:(returning void) +let switchMode x ~withHUD ~withDelay self = msg_send ~self ~cmd:(selector "switchMode:withHUD:withDelay:") ~typ:(id @-> bool @-> bool @-> returning bool) x withHUD withDelay +let switchMode' x ~withHUD ~withDelay ~fromCapsLock self = msg_send ~self ~cmd:(selector "switchMode:withHUD:withDelay:fromCapsLock:") ~typ:(id @-> bool @-> bool @-> bool @-> returning bool) x withHUD withDelay fromCapsLock +let touchHideSwitcherTimer self = msg_send ~self ~cmd:(selector "touchHideSwitcherTimer") ~typ:(returning void) +let touchShowSwitcherTimer self = msg_send ~self ~cmd:(selector "touchShowSwitcherTimer") ~typ:(returning void) +let updateHardwareLayout self = msg_send ~self ~cmd:(selector "updateHardwareLayout") ~typ:(returning void) +let usingCapsLockLanguageSwitch self = msg_send ~self ~cmd:(selector "usingCapsLockLanguageSwitch") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIInputSwitcherClass.ml b/uikit/UIInputSwitcherClass.ml new file mode 100644 index 00000000..b98f539d --- /dev/null +++ b/uikit/UIInputSwitcherClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputswitcher?language=objc}UIInputSwitcher} *) + +let activeInstance self = msg_send ~self ~cmd:(selector "activeInstance") ~typ:(returning id) +let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInputSwitcherGestureState.ml b/uikit/UIInputSwitcherGestureState.ml index 3d22f6c4..0fa8e082 100644 --- a/uikit/UIInputSwitcherGestureState.ml +++ b/uikit/UIInputSwitcherGestureState.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputSwitcherGestureState" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputswitchergesturestate?language=objc}UIInputSwitcherGestureState} *) -let didMoveBeyondThreshold self = msg_send ~self ~cmd:(selector "didMoveBeyondThreshold") ~typ:(returning (bool)) -let firstReferencePoint self = msg_send_stret ~self ~cmd:(selector "firstReferencePoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let gestureConflictsWithTypingWindow self = msg_send ~self ~cmd:(selector "gestureConflictsWithTypingWindow") ~typ:(returning (bool)) -let hideSwitcher self = msg_send ~self ~cmd:(selector "hideSwitcher") ~typ:(returning (bool)) -let lastSeenKeyboardTouchDown self = msg_send ~self ~cmd:(selector "lastSeenKeyboardTouchDown") ~typ:(returning (double)) -let setDidMoveBeyondThreshold x self = msg_send ~self ~cmd:(selector "setDidMoveBeyondThreshold:") ~typ:(bool @-> returning (void)) x -let setFirstReferencePoint x self = msg_send ~self ~cmd:(selector "setFirstReferencePoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setHideSwitcher x self = msg_send ~self ~cmd:(selector "setHideSwitcher:") ~typ:(bool @-> returning (void)) x -let setLastSeenKeyboardTouchDown x self = msg_send ~self ~cmd:(selector "setLastSeenKeyboardTouchDown:") ~typ:(double @-> returning (void)) x -let setTouchDown x self = msg_send ~self ~cmd:(selector "setTouchDown:") ~typ:(double @-> returning (void)) x -let touchDown self = msg_send ~self ~cmd:(selector "touchDown") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIInputSwitcherGestureState" + +let didMoveBeyondThreshold self = msg_send ~self ~cmd:(selector "didMoveBeyondThreshold") ~typ:(returning bool) +let firstReferencePoint self = msg_send ~self ~cmd:(selector "firstReferencePoint") ~typ:(returning CGPoint.t) +let gestureConflictsWithTypingWindow self = msg_send ~self ~cmd:(selector "gestureConflictsWithTypingWindow") ~typ:(returning bool) +let hideSwitcher self = msg_send ~self ~cmd:(selector "hideSwitcher") ~typ:(returning bool) +let lastSeenKeyboardTouchDown self = msg_send ~self ~cmd:(selector "lastSeenKeyboardTouchDown") ~typ:(returning double) +let setDidMoveBeyondThreshold x self = msg_send ~self ~cmd:(selector "setDidMoveBeyondThreshold:") ~typ:(bool @-> returning void) x +let setFirstReferencePoint x self = msg_send ~self ~cmd:(selector "setFirstReferencePoint:") ~typ:(CGPoint.t @-> returning void) x +let setHideSwitcher x self = msg_send ~self ~cmd:(selector "setHideSwitcher:") ~typ:(bool @-> returning void) x +let setLastSeenKeyboardTouchDown x self = msg_send ~self ~cmd:(selector "setLastSeenKeyboardTouchDown:") ~typ:(double @-> returning void) x +let setTouchDown x self = msg_send ~self ~cmd:(selector "setTouchDown:") ~typ:(double @-> returning void) x +let touchDown self = msg_send ~self ~cmd:(selector "touchDown") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIInputSwitcherItem.ml b/uikit/UIInputSwitcherItem.ml index 10e58afc..1a82ef62 100644 --- a/uikit/UIInputSwitcherItem.ml +++ b/uikit/UIInputSwitcherItem.ml @@ -5,39 +5,39 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputSwitcherItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputswitcheritem?language=objc}UIInputSwitcherItem} *) -module C = struct - let switcherItemWithIdentifier x self = msg_send ~self ~cmd:(selector "switcherItemWithIdentifier:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIInputSwitcherItem" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let initWithIdentifier x self = msg_send ~self ~cmd:(selector "initWithIdentifier:") ~typ:(id @-> returning (id)) x -let isSegmentedItem self = msg_send ~self ~cmd:(selector "isSegmentedItem") ~typ:(returning (bool)) -let localizedSubtitle self = msg_send ~self ~cmd:(selector "localizedSubtitle") ~typ:(returning (id)) -let localizedTitle self = msg_send ~self ~cmd:(selector "localizedTitle") ~typ:(returning (id)) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) +let initWithIdentifier x self = msg_send ~self ~cmd:(selector "initWithIdentifier:") ~typ:(id @-> returning id) x +let isSegmentedItem self = msg_send ~self ~cmd:(selector "isSegmentedItem") ~typ:(returning bool) +let localizedSubtitle self = msg_send ~self ~cmd:(selector "localizedSubtitle") ~typ:(returning id) +let localizedTitle self = msg_send ~self ~cmd:(selector "localizedTitle") ~typ:(returning id) let persistentSelectedIndex self = msg_send ~self ~cmd:(selector "persistentSelectedIndex") ~typ:(returning (ptr void)) -let segmentImages self = msg_send ~self ~cmd:(selector "segmentImages") ~typ:(returning (id)) -let segmentTitles self = msg_send ~self ~cmd:(selector "segmentTitles") ~typ:(returning (id)) -let selectedSegmentIndex self = msg_send ~self ~cmd:(selector "selectedSegmentIndex") ~typ:(returning (llong)) -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let setLocalizedSubtitle x self = msg_send ~self ~cmd:(selector "setLocalizedSubtitle:") ~typ:(id @-> returning (void)) x -let setLocalizedTitle x self = msg_send ~self ~cmd:(selector "setLocalizedTitle:") ~typ:(id @-> returning (void)) x -let setPersistentSelectedIndex x self = msg_send ~self ~cmd:(selector "setPersistentSelectedIndex:") ~typ:(ptr void @-> returning (void)) x -let setSegmentImages x self = msg_send ~self ~cmd:(selector "setSegmentImages:") ~typ:(id @-> returning (void)) x -let setSegmentTitles x self = msg_send ~self ~cmd:(selector "setSegmentTitles:") ~typ:(id @-> returning (void)) x -let setSelectedSegmentIndex x self = msg_send ~self ~cmd:(selector "setSelectedSegmentIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSubtitleFont x self = msg_send ~self ~cmd:(selector "setSubtitleFont:") ~typ:(id @-> returning (void)) x -let setSwitchControl x self = msg_send ~self ~cmd:(selector "setSwitchControl:") ~typ:(id @-> returning (void)) x -let setSwitchIsOnBlock x self = msg_send ~self ~cmd:(selector "setSwitchIsOnBlock:") ~typ:(ptr void @-> returning (void)) x -let setSwitchToggleBlock x self = msg_send ~self ~cmd:(selector "setSwitchToggleBlock:") ~typ:(ptr void @-> returning (void)) x -let setTitleFont x self = msg_send ~self ~cmd:(selector "setTitleFont:") ~typ:(id @-> returning (void)) x -let setUsesDeviceLanguage x self = msg_send ~self ~cmd:(selector "setUsesDeviceLanguage:") ~typ:(bool @-> returning (void)) x -let subtitleFont self = msg_send ~self ~cmd:(selector "subtitleFont") ~typ:(returning (id)) -let switchControl self = msg_send ~self ~cmd:(selector "switchControl") ~typ:(returning (id)) +let segmentImages self = msg_send ~self ~cmd:(selector "segmentImages") ~typ:(returning id) +let segmentTitles self = msg_send ~self ~cmd:(selector "segmentTitles") ~typ:(returning id) +let selectedSegmentIndex self = msg_send ~self ~cmd:(selector "selectedSegmentIndex") ~typ:(returning llong) +let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning void) x +let setLocalizedSubtitle x self = msg_send ~self ~cmd:(selector "setLocalizedSubtitle:") ~typ:(id @-> returning void) x +let setLocalizedTitle x self = msg_send ~self ~cmd:(selector "setLocalizedTitle:") ~typ:(id @-> returning void) x +let setPersistentSelectedIndex x self = msg_send ~self ~cmd:(selector "setPersistentSelectedIndex:") ~typ:((ptr void) @-> returning void) x +let setSegmentImages x self = msg_send ~self ~cmd:(selector "setSegmentImages:") ~typ:(id @-> returning void) x +let setSegmentTitles x self = msg_send ~self ~cmd:(selector "setSegmentTitles:") ~typ:(id @-> returning void) x +let setSelectedSegmentIndex x self = msg_send ~self ~cmd:(selector "setSelectedSegmentIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSubtitleFont x self = msg_send ~self ~cmd:(selector "setSubtitleFont:") ~typ:(id @-> returning void) x +let setSwitchControl x self = msg_send ~self ~cmd:(selector "setSwitchControl:") ~typ:(id @-> returning void) x +let setSwitchIsOnBlock x self = msg_send ~self ~cmd:(selector "setSwitchIsOnBlock:") ~typ:((ptr void) @-> returning void) x +let setSwitchToggleBlock x self = msg_send ~self ~cmd:(selector "setSwitchToggleBlock:") ~typ:((ptr void) @-> returning void) x +let setTitleFont x self = msg_send ~self ~cmd:(selector "setTitleFont:") ~typ:(id @-> returning void) x +let setUsesDeviceLanguage x self = msg_send ~self ~cmd:(selector "setUsesDeviceLanguage:") ~typ:(bool @-> returning void) x +let subtitleFont self = msg_send ~self ~cmd:(selector "subtitleFont") ~typ:(returning id) +let switchControl self = msg_send ~self ~cmd:(selector "switchControl") ~typ:(returning id) let switchIsOnBlock self = msg_send ~self ~cmd:(selector "switchIsOnBlock") ~typ:(returning (ptr void)) let switchToggleBlock self = msg_send ~self ~cmd:(selector "switchToggleBlock") ~typ:(returning (ptr void)) -let titleFont self = msg_send ~self ~cmd:(selector "titleFont") ~typ:(returning (id)) -let usesDeviceLanguage self = msg_send ~self ~cmd:(selector "usesDeviceLanguage") ~typ:(returning (bool)) \ No newline at end of file +let titleFont self = msg_send ~self ~cmd:(selector "titleFont") ~typ:(returning id) +let usesDeviceLanguage self = msg_send ~self ~cmd:(selector "usesDeviceLanguage") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIInputSwitcherItemClass.ml b/uikit/UIInputSwitcherItemClass.ml new file mode 100644 index 00000000..7a038aa8 --- /dev/null +++ b/uikit/UIInputSwitcherItemClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputswitcheritem?language=objc}UIInputSwitcherItem} *) + +let switcherItemWithIdentifier x self = msg_send ~self ~cmd:(selector "switcherItemWithIdentifier:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIInputSwitcherSegmentControl.ml b/uikit/UIInputSwitcherSegmentControl.ml index 06fcdd7f..eefbb93e 100644 --- a/uikit/UIInputSwitcherSegmentControl.ml +++ b/uikit/UIInputSwitcherSegmentControl.ml @@ -5,23 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputSwitcherSegmentControl" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputswitchersegmentcontrol?language=objc}UIInputSwitcherSegmentControl} *) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let numberOfSegments self = msg_send ~self ~cmd:(selector "numberOfSegments") ~typ:(returning (ullong)) -let segmentImages self = msg_send ~self ~cmd:(selector "segmentImages") ~typ:(returning (id)) -let segmentTitles self = msg_send ~self ~cmd:(selector "segmentTitles") ~typ:(returning (id)) -let selectedSegmentIndex self = msg_send ~self ~cmd:(selector "selectedSegmentIndex") ~typ:(returning (llong)) -let setSegmentImages x self = msg_send ~self ~cmd:(selector "setSegmentImages:") ~typ:(id @-> returning (void)) x -let setSegmentTitles x self = msg_send ~self ~cmd:(selector "setSegmentTitles:") ~typ:(id @-> returning (void)) x -let setSelectedSegmentIndex x self = msg_send ~self ~cmd:(selector "setSelectedSegmentIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setStackView x self = msg_send ~self ~cmd:(selector "setStackView:") ~typ:(id @-> returning (void)) x -let setUsesDarkTheme x self = msg_send ~self ~cmd:(selector "setUsesDarkTheme:") ~typ:(bool @-> returning (void)) x -let shouldTrack self = msg_send ~self ~cmd:(selector "shouldTrack") ~typ:(returning (bool)) -let stackView self = msg_send ~self ~cmd:(selector "stackView") ~typ:(returning (id)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let updateSelectionWithPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let usesDarkTheme self = msg_send ~self ~cmd:(selector "usesDarkTheme") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIInputSwitcherSegmentControl" + +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let numberOfSegments self = msg_send ~self ~cmd:(selector "numberOfSegments") ~typ:(returning ullong) +let segmentImages self = msg_send ~self ~cmd:(selector "segmentImages") ~typ:(returning id) +let segmentTitles self = msg_send ~self ~cmd:(selector "segmentTitles") ~typ:(returning id) +let selectedSegmentIndex self = msg_send ~self ~cmd:(selector "selectedSegmentIndex") ~typ:(returning llong) +let setSegmentImages x self = msg_send ~self ~cmd:(selector "setSegmentImages:") ~typ:(id @-> returning void) x +let setSegmentTitles x self = msg_send ~self ~cmd:(selector "setSegmentTitles:") ~typ:(id @-> returning void) x +let setSelectedSegmentIndex x self = msg_send ~self ~cmd:(selector "setSelectedSegmentIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setStackView x self = msg_send ~self ~cmd:(selector "setStackView:") ~typ:(id @-> returning void) x +let setUsesDarkTheme x self = msg_send ~self ~cmd:(selector "setUsesDarkTheme:") ~typ:(bool @-> returning void) x +let shouldTrack self = msg_send ~self ~cmd:(selector "shouldTrack") ~typ:(returning bool) +let stackView self = msg_send ~self ~cmd:(selector "stackView") ~typ:(returning id) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let updateSelectionWithPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithPoint:") ~typ:(CGPoint.t @-> returning void) x +let usesDarkTheme self = msg_send ~self ~cmd:(selector "usesDarkTheme") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIInputSwitcherSegmentedTableCell.ml b/uikit/UIInputSwitcherSegmentedTableCell.ml index 5b39ed53..eb2ba0af 100644 --- a/uikit/UIInputSwitcherSegmentedTableCell.ml +++ b/uikit/UIInputSwitcherSegmentedTableCell.ml @@ -5,16 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputSwitcherSegmentedTableCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputswitchersegmentedtablecell?language=objc}UIInputSwitcherSegmentedTableCell} *) -module C = struct - let preferredSizeWithSegmentCount x self = msg_send_stret ~self ~cmd:(selector "preferredSizeWithSegmentCount:") ~typ:(ullong @-> returning (CGSize.t)) ~return_type:CGSize.t (ULLong.of_int x) -end +let self = get_class "UIInputSwitcherSegmentedTableCell" -let initWithStyle x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithStyle:reuseIdentifier:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) reuseIdentifier -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let segmentControl self = msg_send ~self ~cmd:(selector "segmentControl") ~typ:(returning (id)) -let setSelected x ~animated self = msg_send ~self ~cmd:(selector "setSelected:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setUsesDarkTheme x self = msg_send ~self ~cmd:(selector "setUsesDarkTheme:") ~typ:(bool @-> returning (void)) x -let updateSelectionWithPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithPoint:") ~typ:(CGPoint.t @-> returning (void)) x \ No newline at end of file +let initWithStyle x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithStyle:reuseIdentifier:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) reuseIdentifier +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let segmentControl self = msg_send ~self ~cmd:(selector "segmentControl") ~typ:(returning id) +let setSelected x ~animated self = msg_send ~self ~cmd:(selector "setSelected:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setUsesDarkTheme x self = msg_send ~self ~cmd:(selector "setUsesDarkTheme:") ~typ:(bool @-> returning void) x +let updateSelectionWithPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithPoint:") ~typ:(CGPoint.t @-> returning void) x \ No newline at end of file diff --git a/uikit/UIInputSwitcherSegmentedTableCellClass.ml b/uikit/UIInputSwitcherSegmentedTableCellClass.ml new file mode 100644 index 00000000..6f30169f --- /dev/null +++ b/uikit/UIInputSwitcherSegmentedTableCellClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputswitchersegmentedtablecell?language=objc}UIInputSwitcherSegmentedTableCell} *) + +let preferredSizeWithSegmentCount x self = msg_send ~self ~cmd:(selector "preferredSizeWithSegmentCount:") ~typ:(ullong @-> returning CGSize.t) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UIInputSwitcherSelectionExtraView.ml b/uikit/UIInputSwitcherSelectionExtraView.ml index fe0ecb97..d1c3e386 100644 --- a/uikit/UIInputSwitcherSelectionExtraView.ml +++ b/uikit/UIInputSwitcherSelectionExtraView.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputSwitcherSelectionExtraView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputswitcherselectionextraview?language=objc}UIInputSwitcherSelectionExtraView} *) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let keyRect self = msg_send_stret ~self ~cmd:(selector "keyRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let menu self = msg_send ~self ~cmd:(selector "menu") ~typ:(returning (id)) -let pointerOffset self = msg_send ~self ~cmd:(selector "pointerOffset") ~typ:(returning (double)) -let roundedCorners self = msg_send ~self ~cmd:(selector "roundedCorners") ~typ:(returning (ullong)) -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setKeyRect x self = msg_send ~self ~cmd:(selector "setKeyRect:") ~typ:(CGRect.t @-> returning (void)) x -let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning (void)) x -let setPointerOffset x self = msg_send ~self ~cmd:(selector "setPointerOffset:") ~typ:(double @-> returning (void)) x -let setRoundedCorners x self = msg_send ~self ~cmd:(selector "setRoundedCorners:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) \ No newline at end of file +let self = get_class "UIInputSwitcherSelectionExtraView" + +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let keyRect self = msg_send ~self ~cmd:(selector "keyRect") ~typ:(returning CGRect.t) +let menu self = msg_send ~self ~cmd:(selector "menu") ~typ:(returning id) +let pointerOffset self = msg_send ~self ~cmd:(selector "pointerOffset") ~typ:(returning double) +let roundedCorners self = msg_send ~self ~cmd:(selector "roundedCorners") ~typ:(returning ullong) +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setKeyRect x self = msg_send ~self ~cmd:(selector "setKeyRect:") ~typ:(CGRect.t @-> returning void) x +let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning void) x +let setPointerOffset x self = msg_send ~self ~cmd:(selector "setPointerOffset:") ~typ:(double @-> returning void) x +let setRoundedCorners x self = msg_send ~self ~cmd:(selector "setRoundedCorners:") ~typ:(ullong @-> returning void) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UIInputSwitcherShadowView.ml b/uikit/UIInputSwitcherShadowView.ml index 69449d46..2909e954 100644 --- a/uikit/UIInputSwitcherShadowView.ml +++ b/uikit/UIInputSwitcherShadowView.ml @@ -5,22 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputSwitcherShadowView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputswitchershadowview?language=objc}UIInputSwitcherShadowView} *) -let blurView self = msg_send ~self ~cmd:(selector "blurView") ~typ:(returning (id)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let gradientColors self = msg_send ~self ~cmd:(selector "gradientColors") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let keyRect self = msg_send_stret ~self ~cmd:(selector "keyRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let menu self = msg_send ~self ~cmd:(selector "menu") ~typ:(returning (id)) -let mode self = msg_send ~self ~cmd:(selector "mode") ~typ:(returning (int)) -let pointerOffset self = msg_send ~self ~cmd:(selector "pointerOffset") ~typ:(returning (double)) -let setBlurView x self = msg_send ~self ~cmd:(selector "setBlurView:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setGradientColors x self = msg_send ~self ~cmd:(selector "setGradientColors:") ~typ:(id @-> returning (void)) x -let setKeyRect x self = msg_send ~self ~cmd:(selector "setKeyRect:") ~typ:(CGRect.t @-> returning (void)) x -let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning (void)) x -let setMode x self = msg_send ~self ~cmd:(selector "setMode:") ~typ:(int @-> returning (void)) x -let setPointerOffset x self = msg_send ~self ~cmd:(selector "setPointerOffset:") ~typ:(double @-> returning (void)) x \ No newline at end of file +let self = get_class "UIInputSwitcherShadowView" + +let blurView self = msg_send ~self ~cmd:(selector "blurView") ~typ:(returning id) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let gradientColors self = msg_send ~self ~cmd:(selector "gradientColors") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let keyRect self = msg_send ~self ~cmd:(selector "keyRect") ~typ:(returning CGRect.t) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let menu self = msg_send ~self ~cmd:(selector "menu") ~typ:(returning id) +let mode self = msg_send ~self ~cmd:(selector "mode") ~typ:(returning int) +let pointerOffset self = msg_send ~self ~cmd:(selector "pointerOffset") ~typ:(returning double) +let setBlurView x self = msg_send ~self ~cmd:(selector "setBlurView:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setGradientColors x self = msg_send ~self ~cmd:(selector "setGradientColors:") ~typ:(id @-> returning void) x +let setKeyRect x self = msg_send ~self ~cmd:(selector "setKeyRect:") ~typ:(CGRect.t @-> returning void) x +let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning void) x +let setMode x self = msg_send ~self ~cmd:(selector "setMode:") ~typ:(int @-> returning void) x +let setPointerOffset x self = msg_send ~self ~cmd:(selector "setPointerOffset:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit/UIInputSwitcherTableCell.ml b/uikit/UIInputSwitcherTableCell.ml index 22476e72..8e18a559 100644 --- a/uikit/UIInputSwitcherTableCell.ml +++ b/uikit/UIInputSwitcherTableCell.ml @@ -5,23 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputSwitcherTableCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputswitchertablecell?language=objc}UIInputSwitcherTableCell} *) -module C = struct - let reuseIdentifier self = msg_send ~self ~cmd:(selector "reuseIdentifier") ~typ:(returning (id)) -end +let self = get_class "UIInputSwitcherTableCell" -let initWithStyle x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithStyle:reuseIdentifier:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) reuseIdentifier -let isFirst self = msg_send ~self ~cmd:(selector "isFirst") ~typ:(returning (bool)) -let isLast self = msg_send ~self ~cmd:(selector "isLast") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setFirst x self = msg_send ~self ~cmd:(selector "setFirst:") ~typ:(bool @-> returning (void)) x -let setInteractiveInsets x self = msg_send ~self ~cmd:(selector "setInteractiveInsets:") ~typ:(ptr void @-> returning (void)) x -let setLast x self = msg_send ~self ~cmd:(selector "setLast:") ~typ:(bool @-> returning (void)) x -let setSelected x ~animated self = msg_send ~self ~cmd:(selector "setSelected:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setUsesDarkTheme x self = msg_send ~self ~cmd:(selector "setUsesDarkTheme:") ~typ:(bool @-> returning (void)) x -let setUsesStraightLeftEdge x self = msg_send ~self ~cmd:(selector "setUsesStraightLeftEdge:") ~typ:(bool @-> returning (void)) x -let updateSelectionWithPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let usesDarkTheme self = msg_send ~self ~cmd:(selector "usesDarkTheme") ~typ:(returning (bool)) -let usesStraightLeftEdge self = msg_send ~self ~cmd:(selector "usesStraightLeftEdge") ~typ:(returning (bool)) \ No newline at end of file +let initWithStyle x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithStyle:reuseIdentifier:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) reuseIdentifier +let interactiveInsets self = msg_send ~self ~cmd:(selector "interactiveInsets") ~typ:(returning UIEdgeInsets.t) +let isFirst self = msg_send ~self ~cmd:(selector "isFirst") ~typ:(returning bool) +let isLast self = msg_send ~self ~cmd:(selector "isLast") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setFirst x self = msg_send ~self ~cmd:(selector "setFirst:") ~typ:(bool @-> returning void) x +let setInteractiveInsets x self = msg_send ~self ~cmd:(selector "setInteractiveInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setLast x self = msg_send ~self ~cmd:(selector "setLast:") ~typ:(bool @-> returning void) x +let setSelected x ~animated self = msg_send ~self ~cmd:(selector "setSelected:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setUsesDarkTheme x self = msg_send ~self ~cmd:(selector "setUsesDarkTheme:") ~typ:(bool @-> returning void) x +let setUsesStraightLeftEdge x self = msg_send ~self ~cmd:(selector "setUsesStraightLeftEdge:") ~typ:(bool @-> returning void) x +let updateSelectionWithPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithPoint:") ~typ:(CGPoint.t @-> returning void) x +let usesDarkTheme self = msg_send ~self ~cmd:(selector "usesDarkTheme") ~typ:(returning bool) +let usesStraightLeftEdge self = msg_send ~self ~cmd:(selector "usesStraightLeftEdge") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIInputSwitcherTableCellBackgroundView.ml b/uikit/UIInputSwitcherTableCellBackgroundView.ml index c639ab13..0caafee3 100644 --- a/uikit/UIInputSwitcherTableCellBackgroundView.ml +++ b/uikit/UIInputSwitcherTableCellBackgroundView.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputSwitcherTableCellBackgroundView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputswitchertablecellbackgroundview?language=objc}UIInputSwitcherTableCellBackgroundView} *) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let drawsBorder self = msg_send ~self ~cmd:(selector "drawsBorder") ~typ:(returning (bool)) -let drawsOpaque self = msg_send ~self ~cmd:(selector "drawsOpaque") ~typ:(returning (bool)) -let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning (bool)) -let roundedCorners self = msg_send ~self ~cmd:(selector "roundedCorners") ~typ:(returning (ullong)) -let setDrawsBorder x self = msg_send ~self ~cmd:(selector "setDrawsBorder:") ~typ:(bool @-> returning (void)) x -let setDrawsOpaque x self = msg_send ~self ~cmd:(selector "setDrawsOpaque:") ~typ:(bool @-> returning (void)) x -let setRoundedCorners x self = msg_send ~self ~cmd:(selector "setRoundedCorners:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setUsesDarkTheme x self = msg_send ~self ~cmd:(selector "setUsesDarkTheme:") ~typ:(bool @-> returning (void)) x -let usesDarkTheme self = msg_send ~self ~cmd:(selector "usesDarkTheme") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIInputSwitcherTableCellBackgroundView" + +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let drawsBorder self = msg_send ~self ~cmd:(selector "drawsBorder") ~typ:(returning bool) +let drawsOpaque self = msg_send ~self ~cmd:(selector "drawsOpaque") ~typ:(returning bool) +let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning bool) +let roundedCorners self = msg_send ~self ~cmd:(selector "roundedCorners") ~typ:(returning ullong) +let setDrawsBorder x self = msg_send ~self ~cmd:(selector "setDrawsBorder:") ~typ:(bool @-> returning void) x +let setDrawsOpaque x self = msg_send ~self ~cmd:(selector "setDrawsOpaque:") ~typ:(bool @-> returning void) x +let setRoundedCorners x self = msg_send ~self ~cmd:(selector "setRoundedCorners:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setUsesDarkTheme x self = msg_send ~self ~cmd:(selector "setUsesDarkTheme:") ~typ:(bool @-> returning void) x +let usesDarkTheme self = msg_send ~self ~cmd:(selector "usesDarkTheme") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIInputSwitcherTableCellClass.ml b/uikit/UIInputSwitcherTableCellClass.ml new file mode 100644 index 00000000..f94335da --- /dev/null +++ b/uikit/UIInputSwitcherTableCellClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputswitchertablecell?language=objc}UIInputSwitcherTableCell} *) + +let reuseIdentifier self = msg_send ~self ~cmd:(selector "reuseIdentifier") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInputSwitcherTableCellSegmentView.ml b/uikit/UIInputSwitcherTableCellSegmentView.ml index 8d6d6b95..be563dfb 100644 --- a/uikit/UIInputSwitcherTableCellSegmentView.ml +++ b/uikit/UIInputSwitcherTableCellSegmentView.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputSwitcherTableCellSegmentView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputswitchertablecellsegmentview?language=objc}UIInputSwitcherTableCellSegmentView} *) -let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning (id)) -let imageView self = msg_send ~self ~cmd:(selector "imageView") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning (bool)) -let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setUsesDarkTheme x self = msg_send ~self ~cmd:(selector "setUsesDarkTheme:") ~typ:(bool @-> returning (void)) x -let usesDarkTheme self = msg_send ~self ~cmd:(selector "usesDarkTheme") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIInputSwitcherTableCellSegmentView" + +let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning id) +let imageView self = msg_send ~self ~cmd:(selector "imageView") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning bool) +let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setUsesDarkTheme x self = msg_send ~self ~cmd:(selector "setUsesDarkTheme:") ~typ:(bool @-> returning void) x +let usesDarkTheme self = msg_send ~self ~cmd:(selector "usesDarkTheme") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIInputSwitcherTableView.ml b/uikit/UIInputSwitcherTableView.ml index 18c383a2..26e884b9 100644 --- a/uikit/UIInputSwitcherTableView.ml +++ b/uikit/UIInputSwitcherTableView.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputSwitcherTableView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputswitchertableview?language=objc}UIInputSwitcherTableView} *) -let deselectRowAtIndexPath x ~animated self = msg_send ~self ~cmd:(selector "deselectRowAtIndexPath:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let menu self = msg_send ~self ~cmd:(selector "menu") ~typ:(returning (id)) -let selectRowAtIndexPath x ~animated ~scrollPosition self = msg_send ~self ~cmd:(selector "selectRowAtIndexPath:animated:scrollPosition:") ~typ:(id @-> bool @-> llong @-> returning (void)) x animated (LLong.of_int scrollPosition) -let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIInputSwitcherTableView" + +let deselectRowAtIndexPath x ~animated self = msg_send ~self ~cmd:(selector "deselectRowAtIndexPath:animated:") ~typ:(id @-> bool @-> returning void) x animated +let menu self = msg_send ~self ~cmd:(selector "menu") ~typ:(returning id) +let selectRowAtIndexPath x ~animated ~scrollPosition self = msg_send ~self ~cmd:(selector "selectRowAtIndexPath:animated:scrollPosition:") ~typ:(id @-> bool @-> llong @-> returning void) x animated (LLong.of_int scrollPosition) +let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIInputSwitcherView.ml b/uikit/UIInputSwitcherView.ml index 0b192359..2c1eb210 100644 --- a/uikit/UIInputSwitcherView.ml +++ b/uikit/UIInputSwitcherView.ml @@ -5,60 +5,58 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputSwitcherView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputswitcherview?language=objc}UIInputSwitcherView} *) -module C = struct - let activeInstance self = msg_send ~self ~cmd:(selector "activeInstance") ~typ:(returning (id)) - let canShowKeyboardSettings self = msg_send ~self ~cmd:(selector "canShowKeyboardSettings") ~typ:(returning (bool)) - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end +let self = get_class "UIInputSwitcherView" -let buttonPressed x ~withEvent ~location ~isForDictation ~tapAction self = msg_send ~self ~cmd:(selector "buttonPressed:withEvent:location:isForDictation:tapAction:") ~typ:(id @-> id @-> CGPoint.t @-> bool @-> ptr void @-> returning (id)) x withEvent location isForDictation tapAction -let customizeCell x ~forItemAtIndex self = msg_send ~self ~cmd:(selector "customizeCell:forItemAtIndex:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forItemAtIndex) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultInputMode self = msg_send ~self ~cmd:(selector "defaultInputMode") ~typ:(returning (id)) -let defaultSelectedIndex self = msg_send ~self ~cmd:(selector "defaultSelectedIndex") ~typ:(returning (ullong)) -let didFinishSplitTransition self = msg_send ~self ~cmd:(selector "didFinishSplitTransition") ~typ:(returning (void)) -let didHitDockItemWithinTypingWindow self = msg_send ~self ~cmd:(selector "didHitDockItemWithinTypingWindow") ~typ:(returning (bool)) -let didSelectItemAtIndex x self = msg_send ~self ~cmd:(selector "didSelectItemAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let didShow self = msg_send ~self ~cmd:(selector "didShow") ~typ:(returning (void)) -let fadeWithDelay x self = msg_send ~self ~cmd:(selector "fadeWithDelay:") ~typ:(double @-> returning (void)) x -let fileReportFromSwitcher self = msg_send ~self ~cmd:(selector "fileReportFromSwitcher") ~typ:(returning (bool)) +let buttonPressed x ~withEvent ~location ~isForDictation ~tapAction self = msg_send ~self ~cmd:(selector "buttonPressed:withEvent:location:isForDictation:tapAction:") ~typ:(id @-> id @-> CGPoint.t @-> bool @-> (ptr void) @-> returning id) x withEvent location isForDictation tapAction +let customizeCell x ~forItemAtIndex self = msg_send ~self ~cmd:(selector "customizeCell:forItemAtIndex:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forItemAtIndex) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultInputMode self = msg_send ~self ~cmd:(selector "defaultInputMode") ~typ:(returning id) +let defaultSelectedIndex self = msg_send ~self ~cmd:(selector "defaultSelectedIndex") ~typ:(returning ullong) +let didFinishSplitTransition self = msg_send ~self ~cmd:(selector "didFinishSplitTransition") ~typ:(returning void) +let didHitDockItemWithinTypingWindow self = msg_send ~self ~cmd:(selector "didHitDockItemWithinTypingWindow") ~typ:(returning bool) +let didSelectItemAtIndex x self = msg_send ~self ~cmd:(selector "didSelectItemAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let didShow self = msg_send ~self ~cmd:(selector "didShow") ~typ:(returning void) +let fadeWithDelay x self = msg_send ~self ~cmd:(selector "fadeWithDelay:") ~typ:(double @-> returning void) x +let fileReportFromSwitcher self = msg_send ~self ~cmd:(selector "fileReportFromSwitcher") ~typ:(returning bool) let finishSplitTransitionBlock self = msg_send ~self ~cmd:(selector "finishSplitTransitionBlock") ~typ:(returning (ptr void)) -let fontForItemAtIndex x self = msg_send ~self ~cmd:(selector "fontForItemAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let inputModes self = msg_send ~self ~cmd:(selector "inputModes") ~typ:(returning (id)) -let localizedTitleForItemAtIndex x self = msg_send ~self ~cmd:(selector "localizedTitleForItemAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let messagesWriteboardFromSwitcher self = msg_send ~self ~cmd:(selector "messagesWriteboardFromSwitcher") ~typ:(returning (bool)) -let nextInputMode self = msg_send ~self ~cmd:(selector "nextInputMode") ~typ:(returning (id)) -let numberOfItems self = msg_send ~self ~cmd:(selector "numberOfItems") ~typ:(returning (ullong)) -let preferredSize self = msg_send_stret ~self ~cmd:(selector "preferredSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let previousInputMode self = msg_send ~self ~cmd:(selector "previousInputMode") ~typ:(returning (id)) -let reloadInputModes self = msg_send ~self ~cmd:(selector "reloadInputModes") ~typ:(returning (void)) -let returnToKeyboardIfNeeded self = msg_send ~self ~cmd:(selector "returnToKeyboardIfNeeded") ~typ:(returning (void)) -let selectInputMode x self = msg_send ~self ~cmd:(selector "selectInputMode:") ~typ:(id @-> returning (void)) x -let selectNextInputMode self = msg_send ~self ~cmd:(selector "selectNextInputMode") ~typ:(returning (void)) -let selectPreviousInputMode self = msg_send ~self ~cmd:(selector "selectPreviousInputMode") ~typ:(returning (void)) -let selectRowForInputMode x self = msg_send ~self ~cmd:(selector "selectRowForInputMode:") ~typ:(id @-> returning (void)) x -let selectedInputMode self = msg_send ~self ~cmd:(selector "selectedInputMode") ~typ:(returning (id)) -let setFileReportFromSwitcher x self = msg_send ~self ~cmd:(selector "setFileReportFromSwitcher:") ~typ:(bool @-> returning (void)) x -let setFinishSplitTransitionBlock x self = msg_send ~self ~cmd:(selector "setFinishSplitTransitionBlock:") ~typ:(ptr void @-> returning (void)) x -let setInputMode x self = msg_send ~self ~cmd:(selector "setInputMode:") ~typ:(id @-> returning (void)) x -let setMessagesWriteboardFromSwitcher x self = msg_send ~self ~cmd:(selector "setMessagesWriteboardFromSwitcher:") ~typ:(bool @-> returning (void)) x -let setShowsSwitches x self = msg_send ~self ~cmd:(selector "setShowsSwitches:") ~typ:(bool @-> returning (void)) x -let shouldSelectItemAtIndex x self = msg_send ~self ~cmd:(selector "shouldSelectItemAtIndex:") ~typ:(ullong @-> returning (bool)) (ULLong.of_int x) -let shouldShow self = msg_send ~self ~cmd:(selector "shouldShow") ~typ:(returning (bool)) -let shouldShowSelectionExtraViewForIndexPath x self = msg_send ~self ~cmd:(selector "shouldShowSelectionExtraViewForIndexPath:") ~typ:(id @-> returning (bool)) x -let showAsPopupForKey x ~inLayout self = msg_send ~self ~cmd:(selector "showAsPopupForKey:inLayout:") ~typ:(id @-> id @-> returning (void)) x inLayout -let showsSwitches self = msg_send ~self ~cmd:(selector "showsSwitches") ~typ:(returning (bool)) -let subtitleFontForItemAtIndex x self = msg_send ~self ~cmd:(selector "subtitleFontForItemAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let subtitleForItemAtIndex x self = msg_send ~self ~cmd:(selector "subtitleForItemAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let switchAction self = msg_send ~self ~cmd:(selector "switchAction") ~typ:(returning (void)) -let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let titleForItemAtIndex x self = msg_send ~self ~cmd:(selector "titleForItemAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let toggleKeyboardFloatingPreference self = msg_send ~self ~cmd:(selector "toggleKeyboardFloatingPreference") ~typ:(returning (void)) -let updateSelectionWithPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let usesDeviceLanguageForItemAtIndex x self = msg_send ~self ~cmd:(selector "usesDeviceLanguageForItemAtIndex:") ~typ:(ullong @-> returning (bool)) (ULLong.of_int x) -let willFade self = msg_send ~self ~cmd:(selector "willFade") ~typ:(returning (void)) -let willFadeForSelectionAtIndex x self = msg_send ~self ~cmd:(selector "willFadeForSelectionAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) \ No newline at end of file +let fontForItemAtIndex x self = msg_send ~self ~cmd:(selector "fontForItemAtIndex:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let inputModes self = msg_send ~self ~cmd:(selector "inputModes") ~typ:(returning id) +let localizedTitleForItemAtIndex x self = msg_send ~self ~cmd:(selector "localizedTitleForItemAtIndex:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let messagesWriteboardFromSwitcher self = msg_send ~self ~cmd:(selector "messagesWriteboardFromSwitcher") ~typ:(returning bool) +let nextInputMode self = msg_send ~self ~cmd:(selector "nextInputMode") ~typ:(returning id) +let numberOfItems self = msg_send ~self ~cmd:(selector "numberOfItems") ~typ:(returning ullong) +let preferredSize self = msg_send ~self ~cmd:(selector "preferredSize") ~typ:(returning CGSize.t) +let previousInputMode self = msg_send ~self ~cmd:(selector "previousInputMode") ~typ:(returning id) +let reloadInputModes self = msg_send ~self ~cmd:(selector "reloadInputModes") ~typ:(returning void) +let returnToKeyboardIfNeeded self = msg_send ~self ~cmd:(selector "returnToKeyboardIfNeeded") ~typ:(returning void) +let selectInputMode x self = msg_send ~self ~cmd:(selector "selectInputMode:") ~typ:(id @-> returning void) x +let selectNextInputMode self = msg_send ~self ~cmd:(selector "selectNextInputMode") ~typ:(returning void) +let selectPreviousInputMode self = msg_send ~self ~cmd:(selector "selectPreviousInputMode") ~typ:(returning void) +let selectRowForInputMode x self = msg_send ~self ~cmd:(selector "selectRowForInputMode:") ~typ:(id @-> returning void) x +let selectedInputMode self = msg_send ~self ~cmd:(selector "selectedInputMode") ~typ:(returning id) +let setFileReportFromSwitcher x self = msg_send ~self ~cmd:(selector "setFileReportFromSwitcher:") ~typ:(bool @-> returning void) x +let setFinishSplitTransitionBlock x self = msg_send ~self ~cmd:(selector "setFinishSplitTransitionBlock:") ~typ:((ptr void) @-> returning void) x +let setInputMode x self = msg_send ~self ~cmd:(selector "setInputMode:") ~typ:(id @-> returning void) x +let setMessagesWriteboardFromSwitcher x self = msg_send ~self ~cmd:(selector "setMessagesWriteboardFromSwitcher:") ~typ:(bool @-> returning void) x +let setShowsSwitches x self = msg_send ~self ~cmd:(selector "setShowsSwitches:") ~typ:(bool @-> returning void) x +let shouldSelectItemAtIndex x self = msg_send ~self ~cmd:(selector "shouldSelectItemAtIndex:") ~typ:(ullong @-> returning bool) (ULLong.of_int x) +let shouldShow self = msg_send ~self ~cmd:(selector "shouldShow") ~typ:(returning bool) +let shouldShowSelectionExtraViewForIndexPath x self = msg_send ~self ~cmd:(selector "shouldShowSelectionExtraViewForIndexPath:") ~typ:(id @-> returning bool) x +let showAsPopupForKey x ~inLayout self = msg_send ~self ~cmd:(selector "showAsPopupForKey:inLayout:") ~typ:(id @-> id @-> returning void) x inLayout +let showsSwitches self = msg_send ~self ~cmd:(selector "showsSwitches") ~typ:(returning bool) +let subtitleFontForItemAtIndex x self = msg_send ~self ~cmd:(selector "subtitleFontForItemAtIndex:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let subtitleForItemAtIndex x self = msg_send ~self ~cmd:(selector "subtitleForItemAtIndex:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let switchAction self = msg_send ~self ~cmd:(selector "switchAction") ~typ:(returning void) +let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let titleForItemAtIndex x self = msg_send ~self ~cmd:(selector "titleForItemAtIndex:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let toggleKeyboardFloatingPreference self = msg_send ~self ~cmd:(selector "toggleKeyboardFloatingPreference") ~typ:(returning void) +let updateSelectionWithPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithPoint:") ~typ:(CGPoint.t @-> returning void) x +let usesDeviceLanguageForItemAtIndex x self = msg_send ~self ~cmd:(selector "usesDeviceLanguageForItemAtIndex:") ~typ:(ullong @-> returning bool) (ULLong.of_int x) +let willFade self = msg_send ~self ~cmd:(selector "willFade") ~typ:(returning void) +let willFadeForSelectionAtIndex x self = msg_send ~self ~cmd:(selector "willFadeForSelectionAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UIInputSwitcherViewClass.ml b/uikit/UIInputSwitcherViewClass.ml new file mode 100644 index 00000000..9406143a --- /dev/null +++ b/uikit/UIInputSwitcherViewClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputswitcherview?language=objc}UIInputSwitcherView} *) + +let activeInstance self = msg_send ~self ~cmd:(selector "activeInstance") ~typ:(returning id) +let canShowKeyboardSettings self = msg_send ~self ~cmd:(selector "canShowKeyboardSettings") ~typ:(returning bool) +let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInputView.ml b/uikit/UIInputView.ml index 9d46b90a..06ff5af0 100644 --- a/uikit/UIInputView.ml +++ b/uikit/UIInputView.ml @@ -5,35 +5,40 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputview?language=objc}UIInputView} *) -let allowsSelfSizing self = msg_send ~self ~cmd:(selector "allowsSelfSizing") ~typ:(returning (bool)) -let assertSizingWithPredictionBar self = msg_send ~self ~cmd:(selector "assertSizingWithPredictionBar") ~typ:(returning (bool)) -let contentRatio self = msg_send ~self ~cmd:(selector "contentRatio") ~typ:(returning (double)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didEndSplitTransition self = msg_send ~self ~cmd:(selector "didEndSplitTransition") ~typ:(returning (void)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithFrame' x ~inputViewStyle self = msg_send ~self ~cmd:(selector "initWithFrame:inputViewStyle:") ~typ:(CGRect.t @-> llong @-> returning (id)) x (LLong.of_int inputViewStyle) -let inputViewStyle self = msg_send ~self ~cmd:(selector "inputViewStyle") ~typ:(returning (llong)) -let layoutMergedSubviews self = msg_send ~self ~cmd:(selector "layoutMergedSubviews") ~typ:(returning (void)) -let layoutSplitSubviewsWithLeftContentSize x ~rightContentSize self = msg_send ~self ~cmd:(selector "layoutSplitSubviewsWithLeftContentSize:rightContentSize:") ~typ:(CGSize.t @-> CGSize.t @-> returning (void)) x rightContentSize -let leftContentView self = msg_send ~self ~cmd:(selector "leftContentView") ~typ:(returning (id)) -let leftContentViewSize self = msg_send_stret ~self ~cmd:(selector "leftContentViewSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let rightContentView self = msg_send ~self ~cmd:(selector "rightContentView") ~typ:(returning (id)) -let rightContentViewSize self = msg_send_stret ~self ~cmd:(selector "rightContentViewSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let setAllowsSelfSizing x self = msg_send ~self ~cmd:(selector "setAllowsSelfSizing:") ~typ:(bool @-> returning (void)) x -let setAssertSizingWithPredictionBar x self = msg_send ~self ~cmd:(selector "setAssertSizingWithPredictionBar:") ~typ:(bool @-> returning (void)) x -let setBackgroundEdgeInsets x self = msg_send ~self ~cmd:(selector "setBackgroundEdgeInsets:") ~typ:(ptr void @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setContentRatio x self = msg_send ~self ~cmd:(selector "setContentRatio:") ~typ:(double @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setInputViewStyle x self = msg_send ~self ~cmd:(selector "setInputViewStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setLeftContentViewSize x self = msg_send ~self ~cmd:(selector "setLeftContentViewSize:") ~typ:(CGSize.t @-> returning (void)) x -let setRightContentViewSize x self = msg_send ~self ~cmd:(selector "setRightContentViewSize:") ~typ:(CGSize.t @-> returning (void)) x -let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning (id)) -let updateMergedSubviewConstraints self = msg_send ~self ~cmd:(selector "updateMergedSubviewConstraints") ~typ:(returning (void)) -let updateSplitSubviewContraintsWithLeftContentSize x ~rightContentSize self = msg_send ~self ~cmd:(selector "updateSplitSubviewContraintsWithLeftContentSize:rightContentSize:") ~typ:(CGSize.t @-> CGSize.t @-> returning (void)) x rightContentSize -let willBeginSplitTransition self = msg_send ~self ~cmd:(selector "willBeginSplitTransition") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIInputView" + +let allowsSelfSizing self = msg_send ~self ~cmd:(selector "allowsSelfSizing") ~typ:(returning bool) +let assertSizingWithPredictionBar self = msg_send ~self ~cmd:(selector "assertSizingWithPredictionBar") ~typ:(returning bool) +let backgroundEdgeInsets self = msg_send ~self ~cmd:(selector "backgroundEdgeInsets") ~typ:(returning UIEdgeInsets.t) +let contentRatio self = msg_send ~self ~cmd:(selector "contentRatio") ~typ:(returning double) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didEndSplitTransition self = msg_send ~self ~cmd:(selector "didEndSplitTransition") ~typ:(returning void) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithFrame' x ~inputViewStyle self = msg_send ~self ~cmd:(selector "initWithFrame:inputViewStyle:") ~typ:(CGRect.t @-> llong @-> returning id) x (LLong.of_int inputViewStyle) +let inputViewStyle self = msg_send ~self ~cmd:(selector "inputViewStyle") ~typ:(returning llong) +let layoutMergedSubviews self = msg_send ~self ~cmd:(selector "layoutMergedSubviews") ~typ:(returning void) +let layoutSplitSubviewsWithLeftContentSize x ~rightContentSize self = msg_send ~self ~cmd:(selector "layoutSplitSubviewsWithLeftContentSize:rightContentSize:") ~typ:(CGSize.t @-> CGSize.t @-> returning void) x rightContentSize +let leftContentView self = msg_send ~self ~cmd:(selector "leftContentView") ~typ:(returning id) +let leftContentViewSize self = msg_send ~self ~cmd:(selector "leftContentViewSize") ~typ:(returning CGSize.t) +let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let rightContentView self = msg_send ~self ~cmd:(selector "rightContentView") ~typ:(returning id) +let rightContentViewSize self = msg_send ~self ~cmd:(selector "rightContentViewSize") ~typ:(returning CGSize.t) +let setAllowsSelfSizing x self = msg_send ~self ~cmd:(selector "setAllowsSelfSizing:") ~typ:(bool @-> returning void) x +let setAssertSizingWithPredictionBar x self = msg_send ~self ~cmd:(selector "setAssertSizingWithPredictionBar:") ~typ:(bool @-> returning void) x +let setBackgroundEdgeInsets x self = msg_send ~self ~cmd:(selector "setBackgroundEdgeInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setContentRatio x self = msg_send ~self ~cmd:(selector "setContentRatio:") ~typ:(double @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setInputViewStyle x self = msg_send ~self ~cmd:(selector "setInputViewStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setLeftContentViewSize x self = msg_send ~self ~cmd:(selector "setLeftContentViewSize:") ~typ:(CGSize.t @-> returning void) x +let setRightContentViewSize x self = msg_send ~self ~cmd:(selector "setRightContentViewSize:") ~typ:(CGSize.t @-> returning void) x +let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning id) +let updateMergedSubviewConstraints self = msg_send ~self ~cmd:(selector "updateMergedSubviewConstraints") ~typ:(returning void) +let updateSplitSubviewContraintsWithLeftContentSize x ~rightContentSize self = msg_send ~self ~cmd:(selector "updateSplitSubviewContraintsWithLeftContentSize:rightContentSize:") ~typ:(CGSize.t @-> CGSize.t @-> returning void) x rightContentSize +let willBeginSplitTransition self = msg_send ~self ~cmd:(selector "willBeginSplitTransition") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIInputViewAnimationControllerBasic.ml b/uikit/UIInputViewAnimationControllerBasic.ml deleted file mode 100644 index a9779fd7..00000000 --- a/uikit/UIInputViewAnimationControllerBasic.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewAnimationControllerBasic" - -let completeAnimationWithHost x ~context self = msg_send ~self ~cmd:(selector "completeAnimationWithHost:context:") ~typ:(id @-> id @-> returning (void)) x context -let performAnimationWithHost x ~context self = msg_send ~self ~cmd:(selector "performAnimationWithHost:context:") ~typ:(id @-> id @-> returning (void)) x context -let prepareAnimationWithHost x ~startPlacement ~endPlacement self = msg_send ~self ~cmd:(selector "prepareAnimationWithHost:startPlacement:endPlacement:") ~typ:(id @-> id @-> id @-> returning (id)) x startPlacement endPlacement \ No newline at end of file diff --git a/uikit/UIInputViewAnimationControllerSlide.ml b/uikit/UIInputViewAnimationControllerSlide.ml deleted file mode 100644 index 9c5f26bc..00000000 --- a/uikit/UIInputViewAnimationControllerSlide.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewAnimationControllerSlide" - -let completeAnimationWithHost x ~context self = msg_send ~self ~cmd:(selector "completeAnimationWithHost:context:") ~typ:(id @-> id @-> returning (void)) x context -let initWithSlide x self = msg_send ~self ~cmd:(selector "initWithSlide:") ~typ:(int @-> returning (id)) x -let performAnimationWithHost x ~context self = msg_send ~self ~cmd:(selector "performAnimationWithHost:context:") ~typ:(id @-> id @-> returning (void)) x context -let placementForSlideStart x self = msg_send ~self ~cmd:(selector "placementForSlideStart:") ~typ:(bool @-> returning (id)) x -let prepareAnimationWithHost x ~startPlacement ~endPlacement self = msg_send ~self ~cmd:(selector "prepareAnimationWithHost:startPlacement:endPlacement:") ~typ:(id @-> id @-> id @-> returning (id)) x startPlacement endPlacement \ No newline at end of file diff --git a/uikit/UIInputViewAnimationControllerSlideContext.ml b/uikit/UIInputViewAnimationControllerSlideContext.ml deleted file mode 100644 index 70b4684a..00000000 --- a/uikit/UIInputViewAnimationControllerSlideContext.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewAnimationControllerSlideContext" - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let endPlacement self = msg_send ~self ~cmd:(selector "endPlacement") ~typ:(returning (id)) -let setEndPlacement x self = msg_send ~self ~cmd:(selector "setEndPlacement:") ~typ:(id @-> returning (void)) x -let setSnapshot x self = msg_send ~self ~cmd:(selector "setSnapshot:") ~typ:(id @-> returning (void)) x -let setSnapshotEndFrame x self = msg_send ~self ~cmd:(selector "setSnapshotEndFrame:") ~typ:(CGRect.t @-> returning (void)) x -let snapshot self = msg_send ~self ~cmd:(selector "snapshot") ~typ:(returning (id)) -let snapshotEndFrame self = msg_send_stret ~self ~cmd:(selector "snapshotEndFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t \ No newline at end of file diff --git a/uikit/UIInputViewAnimationControllerViewController.ml b/uikit/UIInputViewAnimationControllerViewController.ml deleted file mode 100644 index 8437bf48..00000000 --- a/uikit/UIInputViewAnimationControllerViewController.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewAnimationControllerViewController" - -module C = struct - let controllerWithContext x self = msg_send ~self ~cmd:(selector "controllerWithContext:") ~typ:(id @-> returning (id)) x -end - -let completeAnimationWithHost x ~context self = msg_send ~self ~cmd:(selector "completeAnimationWithHost:context:") ~typ:(id @-> id @-> returning (void)) x context -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithContext x self = msg_send ~self ~cmd:(selector "initWithContext:") ~typ:(id @-> returning (id)) x -let performAnimationWithHost x ~context self = msg_send ~self ~cmd:(selector "performAnimationWithHost:context:") ~typ:(id @-> id @-> returning (void)) x context -let prepareAnimationWithHost x ~startPlacement ~endPlacement self = msg_send ~self ~cmd:(selector "prepareAnimationWithHost:startPlacement:endPlacement:") ~typ:(id @-> id @-> id @-> returning (id)) x startPlacement endPlacement \ No newline at end of file diff --git a/uikit/UIInputViewAnimationControllerViewControllerContext.ml b/uikit/UIInputViewAnimationControllerViewControllerContext.ml deleted file mode 100644 index b3d79782..00000000 --- a/uikit/UIInputViewAnimationControllerViewControllerContext.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewAnimationControllerViewControllerContext" - -module C = struct - let contextWithHost x ~startPlacement ~endPlacement ~transitionContext self = msg_send ~self ~cmd:(selector "contextWithHost:startPlacement:endPlacement:transitionContext:") ~typ:(id @-> id @-> id @-> id @-> returning (id)) x startPlacement endPlacement transitionContext -end - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let fromKeyboard self = msg_send ~self ~cmd:(selector "fromKeyboard") ~typ:(returning (id)) -let fromKeyboardFrame self = msg_send_stret ~self ~cmd:(selector "fromKeyboardFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let initWithHost x ~startPlacement ~endPlacement ~transitionContext self = msg_send ~self ~cmd:(selector "initWithHost:startPlacement:endPlacement:transitionContext:") ~typ:(id @-> id @-> id @-> id @-> returning (id)) x startPlacement endPlacement transitionContext -let mainContext self = msg_send ~self ~cmd:(selector "mainContext") ~typ:(returning (id)) -let toKeyboard self = msg_send ~self ~cmd:(selector "toKeyboard") ~typ:(returning (id)) -let toKeyboardFrame self = msg_send_stret ~self ~cmd:(selector "toKeyboardFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t \ No newline at end of file diff --git a/uikit/UIInputViewAnimationStyle.ml b/uikit/UIInputViewAnimationStyle.ml index 093b9704..8e2c97e6 100644 --- a/uikit/UIInputViewAnimationStyle.ml +++ b/uikit/UIInputViewAnimationStyle.ml @@ -5,36 +5,34 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputViewAnimationStyle" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewanimationstyle?language=objc}UIInputViewAnimationStyle} *) -module C = struct - let animationStyleAnimated x ~duration self = msg_send ~self ~cmd:(selector "animationStyleAnimated:duration:") ~typ:(bool @-> double @-> returning (id)) x duration - let animationStyleDefault self = msg_send ~self ~cmd:(selector "animationStyleDefault") ~typ:(returning (id)) - let animationStyleImmediate self = msg_send ~self ~cmd:(selector "animationStyleImmediate") ~typ:(returning (id)) -end +let self = get_class "UIInputViewAnimationStyle" -let animated self = msg_send ~self ~cmd:(selector "animated") ~typ:(returning (bool)) -let canDismissWithScrollView self = msg_send ~self ~cmd:(selector "canDismissWithScrollView") ~typ:(returning (bool)) -let controllerForStartPlacement x ~endPlacement self = msg_send ~self ~cmd:(selector "controllerForStartPlacement:endPlacement:") ~typ:(id @-> id @-> returning (id)) x endPlacement -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let dontMerge self = msg_send ~self ~cmd:(selector "dontMerge") ~typ:(returning (bool)) -let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning (double)) -let endPlacementForInputViewSet x self = msg_send ~self ~cmd:(selector "endPlacementForInputViewSet:") ~typ:(id @-> returning (id)) x -let endPlacementForInputViewSet' x ~windowScene self = msg_send ~self ~cmd:(selector "endPlacementForInputViewSet:windowScene:") ~typ:(id @-> id @-> returning (id)) x windowScene -let extraOptions self = msg_send ~self ~cmd:(selector "extraOptions") ~typ:(returning (ullong)) -let force self = msg_send ~self ~cmd:(selector "force") ~typ:(returning (bool)) -let interactivelyCancelled self = msg_send ~self ~cmd:(selector "interactivelyCancelled") ~typ:(returning (bool)) -let isAnimationCompleted self = msg_send ~self ~cmd:(selector "isAnimationCompleted") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let launchAnimation x ~afterStarted ~completion ~forHost ~fromCurrentPosition self = msg_send ~self ~cmd:(selector "launchAnimation:afterStarted:completion:forHost:fromCurrentPosition:") ~typ:(ptr void @-> ptr void @-> ptr void @-> id @-> bool @-> returning (void)) x afterStarted completion forHost fromCurrentPosition -let legacyAnimationCopy self = msg_send ~self ~cmd:(selector "legacyAnimationCopy") ~typ:(returning (id)) -let setAnimated x self = msg_send ~self ~cmd:(selector "setAnimated:") ~typ:(bool @-> returning (void)) x -let setDontMerge x self = msg_send ~self ~cmd:(selector "setDontMerge:") ~typ:(bool @-> returning (void)) x -let setDuration x self = msg_send ~self ~cmd:(selector "setDuration:") ~typ:(double @-> returning (void)) x -let setExtraOptions x self = msg_send ~self ~cmd:(selector "setExtraOptions:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setForce x self = msg_send ~self ~cmd:(selector "setForce:") ~typ:(bool @-> returning (void)) x -let setInteractivelyCancelled x self = msg_send ~self ~cmd:(selector "setInteractivelyCancelled:") ~typ:(bool @-> returning (void)) x -let startPlacementForInputViewSet x ~currentPlacement self = msg_send ~self ~cmd:(selector "startPlacementForInputViewSet:currentPlacement:") ~typ:(id @-> id @-> returning (id)) x currentPlacement -let startPlacementForInputViewSet' x ~currentPlacement ~windowScene self = msg_send ~self ~cmd:(selector "startPlacementForInputViewSet:currentPlacement:windowScene:") ~typ:(id @-> id @-> id @-> returning (id)) x currentPlacement windowScene \ No newline at end of file +let animated self = msg_send ~self ~cmd:(selector "animated") ~typ:(returning bool) +let canDismissWithScrollView self = msg_send ~self ~cmd:(selector "canDismissWithScrollView") ~typ:(returning bool) +let controllerForStartPlacement x ~endPlacement self = msg_send ~self ~cmd:(selector "controllerForStartPlacement:endPlacement:") ~typ:(id @-> id @-> returning id) x endPlacement +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let dontMerge self = msg_send ~self ~cmd:(selector "dontMerge") ~typ:(returning bool) +let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning double) +let endPlacementForInputViewSet x self = msg_send ~self ~cmd:(selector "endPlacementForInputViewSet:") ~typ:(id @-> returning id) x +let endPlacementForInputViewSet' x ~windowScene self = msg_send ~self ~cmd:(selector "endPlacementForInputViewSet:windowScene:") ~typ:(id @-> id @-> returning id) x windowScene +let extraOptions self = msg_send ~self ~cmd:(selector "extraOptions") ~typ:(returning ullong) +let force self = msg_send ~self ~cmd:(selector "force") ~typ:(returning bool) +let interactivelyCancelled self = msg_send ~self ~cmd:(selector "interactivelyCancelled") ~typ:(returning bool) +let isAnimationCompleted self = msg_send ~self ~cmd:(selector "isAnimationCompleted") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let launchAnimation x ~afterStarted ~completion ~forHost ~fromCurrentPosition self = msg_send ~self ~cmd:(selector "launchAnimation:afterStarted:completion:forHost:fromCurrentPosition:") ~typ:((ptr void) @-> (ptr void) @-> (ptr void) @-> id @-> bool @-> returning void) x afterStarted completion forHost fromCurrentPosition +let legacyAnimationCopy self = msg_send ~self ~cmd:(selector "legacyAnimationCopy") ~typ:(returning id) +let setAnimated x self = msg_send ~self ~cmd:(selector "setAnimated:") ~typ:(bool @-> returning void) x +let setDontMerge x self = msg_send ~self ~cmd:(selector "setDontMerge:") ~typ:(bool @-> returning void) x +let setDuration x self = msg_send ~self ~cmd:(selector "setDuration:") ~typ:(double @-> returning void) x +let setExtraOptions x self = msg_send ~self ~cmd:(selector "setExtraOptions:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setForce x self = msg_send ~self ~cmd:(selector "setForce:") ~typ:(bool @-> returning void) x +let setInteractivelyCancelled x self = msg_send ~self ~cmd:(selector "setInteractivelyCancelled:") ~typ:(bool @-> returning void) x +let startPlacementForInputViewSet x ~currentPlacement self = msg_send ~self ~cmd:(selector "startPlacementForInputViewSet:currentPlacement:") ~typ:(id @-> id @-> returning id) x currentPlacement +let startPlacementForInputViewSet' x ~currentPlacement ~windowScene self = msg_send ~self ~cmd:(selector "startPlacementForInputViewSet:currentPlacement:windowScene:") ~typ:(id @-> id @-> id @-> returning id) x currentPlacement windowScene \ No newline at end of file diff --git a/uikit/UIInputViewAnimationStyleClass.ml b/uikit/UIInputViewAnimationStyleClass.ml new file mode 100644 index 00000000..3fe291ac --- /dev/null +++ b/uikit/UIInputViewAnimationStyleClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewanimationstyle?language=objc}UIInputViewAnimationStyle} *) + +let animationStyleAnimated x ~duration self = msg_send ~self ~cmd:(selector "animationStyleAnimated:duration:") ~typ:(bool @-> double @-> returning id) x duration +let animationStyleDefault self = msg_send ~self ~cmd:(selector "animationStyleDefault") ~typ:(returning id) +let animationStyleImmediate self = msg_send ~self ~cmd:(selector "animationStyleImmediate") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInputViewAnimationStyleDirectional.ml b/uikit/UIInputViewAnimationStyleDirectional.ml deleted file mode 100644 index 5cb2c79d..00000000 --- a/uikit/UIInputViewAnimationStyleDirectional.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewAnimationStyleDirectional" - -module C = struct - let animationStyleAnimated x ~duration ~outDirection self = msg_send ~self ~cmd:(selector "animationStyleAnimated:duration:outDirection:") ~typ:(bool @-> double @-> int @-> returning (id)) x duration outDirection -end - -let canDismissWithScrollView self = msg_send ~self ~cmd:(selector "canDismissWithScrollView") ~typ:(returning (bool)) -let controllerForStartPlacement x ~endPlacement self = msg_send ~self ~cmd:(selector "controllerForStartPlacement:endPlacement:") ~typ:(id @-> id @-> returning (id)) x endPlacement -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let endPlacementForInputViewSet x ~windowScene self = msg_send ~self ~cmd:(selector "endPlacementForInputViewSet:windowScene:") ~typ:(id @-> id @-> returning (id)) x windowScene -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let outDirection self = msg_send ~self ~cmd:(selector "outDirection") ~typ:(returning (int)) -let setOutDirection x self = msg_send ~self ~cmd:(selector "setOutDirection:") ~typ:(int @-> returning (void)) x -let startPlacementForInputViewSet x ~currentPlacement ~windowScene self = msg_send ~self ~cmd:(selector "startPlacementForInputViewSet:currentPlacement:windowScene:") ~typ:(id @-> id @-> id @-> returning (id)) x currentPlacement windowScene \ No newline at end of file diff --git a/uikit/UIInputViewAnimationStyleExtraView.ml b/uikit/UIInputViewAnimationStyleExtraView.ml deleted file mode 100644 index 35d4b2b0..00000000 --- a/uikit/UIInputViewAnimationStyleExtraView.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewAnimationStyleExtraView" - -module C = struct - let extraView x ~withAlignment ~animation ~onSnapshot self = msg_send ~self ~cmd:(selector "extraView:withAlignment:animation:onSnapshot:") ~typ:(id @-> int @-> ptr void @-> bool @-> returning (id)) x withAlignment animation onSnapshot -end - -let alignment self = msg_send ~self ~cmd:(selector "alignment") ~typ:(returning (int)) -let animation self = msg_send ~self ~cmd:(selector "animation") ~typ:(returning (ptr void)) -let clipContainerType self = msg_send ~self ~cmd:(selector "clipContainerType") ~typ:(returning (int)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let setAlignment x self = msg_send ~self ~cmd:(selector "setAlignment:") ~typ:(int @-> returning (void)) x -let setAnimation x self = msg_send ~self ~cmd:(selector "setAnimation:") ~typ:(ptr void @-> returning (void)) x -let setClipContainerType x self = msg_send ~self ~cmd:(selector "setClipContainerType:") ~typ:(int @-> returning (void)) x -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIInputViewController.ml b/uikit/UIInputViewController.ml index 80d59dfc..8a0ee275 100644 --- a/uikit/UIInputViewController.ml +++ b/uikit/UIInputViewController.ml @@ -5,37 +5,37 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewcontroller?language=objc}UIInputViewController} *) -module C = struct - let presentDialogForAddingKeyboard self = msg_send ~self ~cmd:(selector "presentDialogForAddingKeyboard") ~typ:(returning (void)) -end +let self = get_class "UIInputViewController" -let advanceToNextInputMode self = msg_send ~self ~cmd:(selector "advanceToNextInputMode") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didReceiveMemoryWarning self = msg_send ~self ~cmd:(selector "didReceiveMemoryWarning") ~typ:(returning (void)) -let dismissKeyboard self = msg_send ~self ~cmd:(selector "dismissKeyboard") ~typ:(returning (void)) -let handleInputModeListFromView x ~withEvent self = msg_send ~self ~cmd:(selector "handleInputModeListFromView:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let hasDictationKey self = msg_send ~self ~cmd:(selector "hasDictationKey") ~typ:(returning (bool)) -let hasFullAccess self = msg_send ~self ~cmd:(selector "hasFullAccess") ~typ:(returning (bool)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning (id)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let needsInputModeSwitchKey self = msg_send ~self ~cmd:(selector "needsInputModeSwitchKey") ~typ:(returning (bool)) -let primaryLanguage self = msg_send ~self ~cmd:(selector "primaryLanguage") ~typ:(returning (id)) -let proceedShouldReturnIfPossibleForASP self = msg_send ~self ~cmd:(selector "proceedShouldReturnIfPossibleForASP") ~typ:(returning (void)) -let requestSupplementaryLexiconWithCompletion x self = msg_send ~self ~cmd:(selector "requestSupplementaryLexiconWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let returnToPreviousInputMode self = msg_send ~self ~cmd:(selector "returnToPreviousInputMode") ~typ:(returning (void)) -let selectionDidChange x self = msg_send ~self ~cmd:(selector "selectionDidChange:") ~typ:(id @-> returning (void)) x -let selectionWillChange x self = msg_send ~self ~cmd:(selector "selectionWillChange:") ~typ:(id @-> returning (void)) x -let setHasDictationKey x self = msg_send ~self ~cmd:(selector "setHasDictationKey:") ~typ:(bool @-> returning (void)) x -let setInputView x self = msg_send ~self ~cmd:(selector "setInputView:") ~typ:(id @-> returning (void)) x -let setPrimaryLanguage x self = msg_send ~self ~cmd:(selector "setPrimaryLanguage:") ~typ:(id @-> returning (void)) x -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let textDidChange x self = msg_send ~self ~cmd:(selector "textDidChange:") ~typ:(id @-> returning (void)) x -let textDocumentProxy self = msg_send ~self ~cmd:(selector "textDocumentProxy") ~typ:(returning (id)) -let textWillChange x self = msg_send ~self ~cmd:(selector "textWillChange:") ~typ:(id @-> returning (void)) x -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) \ No newline at end of file +let advanceToNextInputMode self = msg_send ~self ~cmd:(selector "advanceToNextInputMode") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didReceiveMemoryWarning self = msg_send ~self ~cmd:(selector "didReceiveMemoryWarning") ~typ:(returning void) +let dismissKeyboard self = msg_send ~self ~cmd:(selector "dismissKeyboard") ~typ:(returning void) +let handleInputModeListFromView x ~withEvent self = msg_send ~self ~cmd:(selector "handleInputModeListFromView:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let hasDictationKey self = msg_send ~self ~cmd:(selector "hasDictationKey") ~typ:(returning bool) +let hasFullAccess self = msg_send ~self ~cmd:(selector "hasFullAccess") ~typ:(returning bool) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning id) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let needsInputModeSwitchKey self = msg_send ~self ~cmd:(selector "needsInputModeSwitchKey") ~typ:(returning bool) +let primaryLanguage self = msg_send ~self ~cmd:(selector "primaryLanguage") ~typ:(returning id) +let proceedShouldReturnIfPossibleForASP self = msg_send ~self ~cmd:(selector "proceedShouldReturnIfPossibleForASP") ~typ:(returning void) +let requestSupplementaryLexiconWithCompletion x self = msg_send ~self ~cmd:(selector "requestSupplementaryLexiconWithCompletion:") ~typ:((ptr void) @-> returning void) x +let returnToPreviousInputMode self = msg_send ~self ~cmd:(selector "returnToPreviousInputMode") ~typ:(returning void) +let selectionDidChange x self = msg_send ~self ~cmd:(selector "selectionDidChange:") ~typ:(id @-> returning void) x +let selectionWillChange x self = msg_send ~self ~cmd:(selector "selectionWillChange:") ~typ:(id @-> returning void) x +let setHasDictationKey x self = msg_send ~self ~cmd:(selector "setHasDictationKey:") ~typ:(bool @-> returning void) x +let setInputView x self = msg_send ~self ~cmd:(selector "setInputView:") ~typ:(id @-> returning void) x +let setPrimaryLanguage x self = msg_send ~self ~cmd:(selector "setPrimaryLanguage:") ~typ:(id @-> returning void) x +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let textDidChange x self = msg_send ~self ~cmd:(selector "textDidChange:") ~typ:(id @-> returning void) x +let textDocumentProxy self = msg_send ~self ~cmd:(selector "textDocumentProxy") ~typ:(returning id) +let textWillChange x self = msg_send ~self ~cmd:(selector "textWillChange:") ~typ:(id @-> returning void) x +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIInputViewControllerClass.ml b/uikit/UIInputViewControllerClass.ml new file mode 100644 index 00000000..8f6bad45 --- /dev/null +++ b/uikit/UIInputViewControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewcontroller?language=objc}UIInputViewController} *) + +let presentDialogForAddingKeyboard self = msg_send ~self ~cmd:(selector "presentDialogForAddingKeyboard") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIInputViewControllerInterface.ml b/uikit/UIInputViewControllerInterface.ml index 40832752..c1600dcb 100644 --- a/uikit/UIInputViewControllerInterface.ml +++ b/uikit/UIInputViewControllerInterface.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputViewControllerInterface" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewcontrollerinterface?language=objc}UIInputViewControllerInterface} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let forwardingInterface self = msg_send ~self ~cmd:(selector "forwardingInterface") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let responseDelegate self = msg_send ~self ~cmd:(selector "responseDelegate") ~typ:(returning (id)) -let setForwardingInterface x self = msg_send ~self ~cmd:(selector "setForwardingInterface:") ~typ:(id @-> returning (void)) x -let setResponseDelegate x self = msg_send ~self ~cmd:(selector "setResponseDelegate:") ~typ:(id @-> returning (void)) x -let syncToKeyboardState x ~completionHandler self = msg_send ~self ~cmd:(selector "syncToKeyboardState:completionHandler:") ~typ:(id @-> ptr void @-> returning (void)) x completionHandler \ No newline at end of file +let self = get_class "UIInputViewControllerInterface" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let forwardingInterface self = msg_send ~self ~cmd:(selector "forwardingInterface") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let responseDelegate self = msg_send ~self ~cmd:(selector "responseDelegate") ~typ:(returning id) +let setForwardingInterface x self = msg_send ~self ~cmd:(selector "setForwardingInterface:") ~typ:(id @-> returning void) x +let setResponseDelegate x self = msg_send ~self ~cmd:(selector "setResponseDelegate:") ~typ:(id @-> returning void) x +let syncToKeyboardState x ~completionHandler self = msg_send ~self ~cmd:(selector "syncToKeyboardState:completionHandler:") ~typ:(id @-> (ptr void) @-> returning void) x completionHandler \ No newline at end of file diff --git a/uikit/UIInputViewControllerInterfaceClient.ml b/uikit/UIInputViewControllerInterfaceClient.ml index 8d6f7496..26a0080f 100644 --- a/uikit/UIInputViewControllerInterfaceClient.ml +++ b/uikit/UIInputViewControllerInterfaceClient.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputViewControllerInterfaceClient" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewcontrollerinterfaceclient?language=objc}UIInputViewControllerInterfaceClient} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let forwardingInterface self = msg_send ~self ~cmd:(selector "forwardingInterface") ~typ:(returning (id)) -let responseDelegate self = msg_send ~self ~cmd:(selector "responseDelegate") ~typ:(returning (id)) -let setForwardingInterface x self = msg_send ~self ~cmd:(selector "setForwardingInterface:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIInputViewControllerInterfaceClient" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let forwardingInterface self = msg_send ~self ~cmd:(selector "forwardingInterface") ~typ:(returning id) +let responseDelegate self = msg_send ~self ~cmd:(selector "responseDelegate") ~typ:(returning id) +let setForwardingInterface x self = msg_send ~self ~cmd:(selector "setForwardingInterface:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIInputViewPlacementTransition.ml b/uikit/UIInputViewPlacementTransition.ml deleted file mode 100644 index bf667ee0..00000000 --- a/uikit/UIInputViewPlacementTransition.ml +++ /dev/null @@ -1,34 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewPlacementTransition" - -module C = struct - let transitionFromPlacement x ~toPlacement ~withAnimationStyle self = msg_send ~self ~cmd:(selector "transitionFromPlacement:toPlacement:withAnimationStyle:") ~typ:(id @-> id @-> id @-> returning (id)) x toPlacement withAnimationStyle -end - -let animationContext self = msg_send ~self ~cmd:(selector "animationContext") ~typ:(returning (id)) -let animationController self = msg_send ~self ~cmd:(selector "animationController") ~typ:(returning (id)) -let animationState self = msg_send ~self ~cmd:(selector "animationState") ~typ:(returning (int)) -let animationStyle self = msg_send ~self ~cmd:(selector "animationStyle") ~typ:(returning (id)) -let cancelled self = msg_send ~self ~cmd:(selector "cancelled") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didAdvanceAnimationToState x self = msg_send ~self ~cmd:(selector "didAdvanceAnimationToState:") ~typ:(int @-> returning (bool)) x -let fromPlacement self = msg_send ~self ~cmd:(selector "fromPlacement") ~typ:(returning (id)) -let notificationInfo self = msg_send ~self ~cmd:(selector "notificationInfo") ~typ:(returning (id)) -let notifications self = msg_send ~self ~cmd:(selector "notifications") ~typ:(returning (ullong)) -let setAnimationContext x self = msg_send ~self ~cmd:(selector "setAnimationContext:") ~typ:(id @-> returning (void)) x -let setAnimationController x self = msg_send ~self ~cmd:(selector "setAnimationController:") ~typ:(id @-> returning (void)) x -let setAnimationState x self = msg_send ~self ~cmd:(selector "setAnimationState:") ~typ:(int @-> returning (void)) x -let setAnimationStyle x self = msg_send ~self ~cmd:(selector "setAnimationStyle:") ~typ:(id @-> returning (void)) x -let setCancelled x self = msg_send ~self ~cmd:(selector "setCancelled:") ~typ:(bool @-> returning (void)) x -let setFromPlacement x self = msg_send ~self ~cmd:(selector "setFromPlacement:") ~typ:(id @-> returning (void)) x -let setNotificationInfo x self = msg_send ~self ~cmd:(selector "setNotificationInfo:") ~typ:(id @-> returning (void)) x -let setNotifications x self = msg_send ~self ~cmd:(selector "setNotifications:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setToPlacement x self = msg_send ~self ~cmd:(selector "setToPlacement:") ~typ:(id @-> returning (void)) x -let toPlacement self = msg_send ~self ~cmd:(selector "toPlacement") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIInputViewPostPinningReloadState.ml b/uikit/UIInputViewPostPinningReloadState.ml deleted file mode 100644 index a1705718..00000000 --- a/uikit/UIInputViewPostPinningReloadState.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewPostPinningReloadState" - -module C = struct - let stateWithResponder x self = msg_send ~self ~cmd:(selector "stateWithResponder:") ~typ:(id @-> returning (id)) x -end - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let responderToReload self = msg_send ~self ~cmd:(selector "responderToReload") ~typ:(returning (id)) -let setResponderToReload x self = msg_send ~self ~cmd:(selector "setResponderToReload:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIInputViewSet.ml b/uikit/UIInputViewSet.ml index 96eaaa0e..feab98f9 100644 --- a/uikit/UIInputViewSet.ml +++ b/uikit/UIInputViewSet.ml @@ -5,79 +5,73 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputViewSet" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewset?language=objc}UIInputViewSet} *) -module C = struct - let emptyInputSet self = msg_send ~self ~cmd:(selector "emptyInputSet") ~typ:(returning (id)) - let inputSetWithInputView x ~accessoryView self = msg_send ~self ~cmd:(selector "inputSetWithInputView:accessoryView:") ~typ:(id @-> id @-> returning (id)) x accessoryView - let inputSetWithInputView' x ~accessoryView ~assistantView self = msg_send ~self ~cmd:(selector "inputSetWithInputView:accessoryView:assistantView:") ~typ:(id @-> id @-> id @-> returning (id)) x accessoryView assistantView - let inputSetWithKeyboardAndAccessoryView x self = msg_send ~self ~cmd:(selector "inputSetWithKeyboardAndAccessoryView:") ~typ:(id @-> returning (id)) x - let inputSetWithKeyboardAndAccessoryView' x ~assistantView self = msg_send ~self ~cmd:(selector "inputSetWithKeyboardAndAccessoryView:assistantView:") ~typ:(id @-> id @-> returning (id)) x assistantView - let inputSetWithOriginalInputSet x ~duplicateInputView ~duplicateInputAccessoryView ~duplicateInputAssistantView self = msg_send ~self ~cmd:(selector "inputSetWithOriginalInputSet:duplicateInputView:duplicateInputAccessoryView:duplicateInputAssistantView:") ~typ:(id @-> bool @-> bool @-> bool @-> returning (id)) x duplicateInputView duplicateInputAccessoryView duplicateInputAssistantView - let inputSetWithPlaceholderAndAccessoryView x self = msg_send ~self ~cmd:(selector "inputSetWithPlaceholderAndAccessoryView:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIInputViewSet" -let accessoryViewController self = msg_send ~self ~cmd:(selector "accessoryViewController") ~typ:(returning (id)) -let accessoryViewNextResponder self = msg_send ~self ~cmd:(selector "accessoryViewNextResponder") ~typ:(returning (id)) -let assistantViewController self = msg_send ~self ~cmd:(selector "assistantViewController") ~typ:(returning (id)) -let canAnimateToInputViewSet x self = msg_send ~self ~cmd:(selector "canAnimateToInputViewSet:") ~typ:(id @-> returning (bool)) x -let containsResponder x self = msg_send ~self ~cmd:(selector "containsResponder:") ~typ:(id @-> returning (bool)) x -let containsView x self = msg_send ~self ~cmd:(selector "containsView:") ~typ:(id @-> returning (bool)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let hasNonPlaceholderViews self = msg_send ~self ~cmd:(selector "hasNonPlaceholderViews") ~typ:(returning (bool)) -let hierarchyContainsView x self = msg_send ~self ~cmd:(selector "hierarchyContainsView:") ~typ:(id @-> returning (bool)) x -let inSyncWithOrientation x ~forKeyboard self = msg_send ~self ~cmd:(selector "inSyncWithOrientation:forKeyboard:") ~typ:(llong @-> id @-> returning (bool)) (LLong.of_int x) forKeyboard -let inheritNullState x self = msg_send ~self ~cmd:(selector "inheritNullState:") ~typ:(id @-> returning (void)) x -let initWithInputView x ~accessoryView ~assistantView ~isKeyboard self = msg_send ~self ~cmd:(selector "initWithInputView:accessoryView:assistantView:isKeyboard:") ~typ:(id @-> id @-> id @-> bool @-> returning (id)) x accessoryView assistantView isKeyboard -let inputAccessoryView self = msg_send ~self ~cmd:(selector "inputAccessoryView") ~typ:(returning (id)) -let inputAccessoryViewBounds self = msg_send_stret ~self ~cmd:(selector "inputAccessoryViewBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let inputAssistantView self = msg_send ~self ~cmd:(selector "inputAssistantView") ~typ:(returning (id)) -let inputAssistantViewBounds self = msg_send_stret ~self ~cmd:(selector "inputAssistantViewBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let inputSetWithInputAccessoryViewFromInputSet x self = msg_send ~self ~cmd:(selector "inputSetWithInputAccessoryViewFromInputSet:") ~typ:(id @-> returning (id)) x -let inputSetWithInputAccessoryViewOnly self = msg_send ~self ~cmd:(selector "inputSetWithInputAccessoryViewOnly") ~typ:(returning (id)) -let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning (id)) -let inputViewBounds self = msg_send_stret ~self ~cmd:(selector "inputViewBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let inputViewController self = msg_send ~self ~cmd:(selector "inputViewController") ~typ:(returning (id)) -let inputViewKeyboardCanSplit self = msg_send ~self ~cmd:(selector "inputViewKeyboardCanSplit") ~typ:(returning (bool)) -let inputViewSplitHeight self = msg_send ~self ~cmd:(selector "inputViewSplitHeight") ~typ:(returning (double)) -let isCustomInputView self = msg_send ~self ~cmd:(selector "isCustomInputView") ~typ:(returning (bool)) -let isEmpty self = msg_send ~self ~cmd:(selector "isEmpty") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isInputAccessoryViewPlaceholder self = msg_send ~self ~cmd:(selector "isInputAccessoryViewPlaceholder") ~typ:(returning (bool)) -let isInputAssistantViewPlaceholder self = msg_send ~self ~cmd:(selector "isInputAssistantViewPlaceholder") ~typ:(returning (bool)) -let isInputViewPlaceholder self = msg_send ~self ~cmd:(selector "isInputViewPlaceholder") ~typ:(returning (bool)) -let isLocalMinimumHeightInputView self = msg_send ~self ~cmd:(selector "isLocalMinimumHeightInputView") ~typ:(returning (bool)) -let isNullInputView self = msg_send ~self ~cmd:(selector "isNullInputView") ~typ:(returning (bool)) -let isRemoteKeyboard self = msg_send ~self ~cmd:(selector "isRemoteKeyboard") ~typ:(returning (bool)) -let isSplit self = msg_send ~self ~cmd:(selector "isSplit") ~typ:(returning (bool)) -let isStrictSupersetOfViewSet x self = msg_send ~self ~cmd:(selector "isStrictSupersetOfViewSet:") ~typ:(id @-> returning (bool)) x -let keyboard self = msg_send ~self ~cmd:(selector "keyboard") ~typ:(returning (id)) -let keyboardOrientation x self = msg_send ~self ~cmd:(selector "keyboardOrientation:") ~typ:(id @-> returning (llong)) x -let layeringView self = msg_send ~self ~cmd:(selector "layeringView") ~typ:(returning (id)) -let normalizePlaceholders self = msg_send ~self ~cmd:(selector "normalizePlaceholders") ~typ:(returning (id)) -let refreshPresentation self = msg_send ~self ~cmd:(selector "refreshPresentation") ~typ:(returning (void)) -let restorableRenderConfig self = msg_send ~self ~cmd:(selector "restorableRenderConfig") ~typ:(returning (id)) -let restorableResponder self = msg_send ~self ~cmd:(selector "restorableResponder") ~typ:(returning (id)) -let restoreUsingBecomeFirstResponder self = msg_send ~self ~cmd:(selector "restoreUsingBecomeFirstResponder") ~typ:(returning (bool)) -let setAccessoryViewController x self = msg_send ~self ~cmd:(selector "setAccessoryViewController:") ~typ:(id @-> returning (void)) x -let setAccessoryViewNextResponder x self = msg_send ~self ~cmd:(selector "setAccessoryViewNextResponder:") ~typ:(id @-> returning (void)) x -let setAccessoryViewVisible x ~delay self = msg_send ~self ~cmd:(selector "setAccessoryViewVisible:delay:") ~typ:(bool @-> double @-> returning (bool)) x delay -let setAssistantViewController x self = msg_send ~self ~cmd:(selector "setAssistantViewController:") ~typ:(id @-> returning (void)) x -let setInputAccessoryView x self = msg_send ~self ~cmd:(selector "setInputAccessoryView:") ~typ:(id @-> returning (void)) x -let setInputAssistantView x self = msg_send ~self ~cmd:(selector "setInputAssistantView:") ~typ:(id @-> returning (void)) x -let setInputView x self = msg_send ~self ~cmd:(selector "setInputView:") ~typ:(id @-> returning (void)) x -let setInputViewController x self = msg_send ~self ~cmd:(selector "setInputViewController:") ~typ:(id @-> returning (void)) x -let setIsCustomInputView x self = msg_send ~self ~cmd:(selector "setIsCustomInputView:") ~typ:(bool @-> returning (void)) x -let setIsRemoteKeyboard x self = msg_send ~self ~cmd:(selector "setIsRemoteKeyboard:") ~typ:(bool @-> returning (void)) x -let setKeyboardAssistantBar x self = msg_send ~self ~cmd:(selector "setKeyboardAssistantBar:") ~typ:(id @-> returning (void)) x -let setRestorableRenderConfig x self = msg_send ~self ~cmd:(selector "setRestorableRenderConfig:") ~typ:(id @-> returning (void)) x -let setRestorableResponder x self = msg_send ~self ~cmd:(selector "setRestorableResponder:") ~typ:(id @-> returning (void)) x -let setRestoreUsingBecomeFirstResponder x self = msg_send ~self ~cmd:(selector "setRestoreUsingBecomeFirstResponder:") ~typ:(bool @-> returning (void)) x -let setSplitHeightDelta x self = msg_send ~self ~cmd:(selector "setSplitHeightDelta:") ~typ:(double @-> returning (void)) x -let splitExemptSubview self = msg_send ~self ~cmd:(selector "splitExemptSubview") ~typ:(returning (id)) -let splitHeightDelta self = msg_send ~self ~cmd:(selector "splitHeightDelta") ~typ:(returning (double)) -let supportsSplit self = msg_send ~self ~cmd:(selector "supportsSplit") ~typ:(returning (bool)) -let usesKeyClicks self = msg_send ~self ~cmd:(selector "usesKeyClicks") ~typ:(returning (bool)) -let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning (bool)) \ No newline at end of file +let accessoryViewController self = msg_send ~self ~cmd:(selector "accessoryViewController") ~typ:(returning id) +let accessoryViewNextResponder self = msg_send ~self ~cmd:(selector "accessoryViewNextResponder") ~typ:(returning id) +let assistantViewController self = msg_send ~self ~cmd:(selector "assistantViewController") ~typ:(returning id) +let canAnimateToInputViewSet x self = msg_send ~self ~cmd:(selector "canAnimateToInputViewSet:") ~typ:(id @-> returning bool) x +let containsResponder x self = msg_send ~self ~cmd:(selector "containsResponder:") ~typ:(id @-> returning bool) x +let containsView x self = msg_send ~self ~cmd:(selector "containsView:") ~typ:(id @-> returning bool) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let hasNonPlaceholderViews self = msg_send ~self ~cmd:(selector "hasNonPlaceholderViews") ~typ:(returning bool) +let hierarchyContainsView x self = msg_send ~self ~cmd:(selector "hierarchyContainsView:") ~typ:(id @-> returning bool) x +let inSyncWithOrientation x ~forKeyboard self = msg_send ~self ~cmd:(selector "inSyncWithOrientation:forKeyboard:") ~typ:(llong @-> id @-> returning bool) (LLong.of_int x) forKeyboard +let inheritNullState x self = msg_send ~self ~cmd:(selector "inheritNullState:") ~typ:(id @-> returning void) x +let initWithInputView x ~accessoryView ~assistantView ~isKeyboard self = msg_send ~self ~cmd:(selector "initWithInputView:accessoryView:assistantView:isKeyboard:") ~typ:(id @-> id @-> id @-> bool @-> returning id) x accessoryView assistantView isKeyboard +let inputAccessoryView self = msg_send ~self ~cmd:(selector "inputAccessoryView") ~typ:(returning id) +let inputAccessoryViewBounds self = msg_send ~self ~cmd:(selector "inputAccessoryViewBounds") ~typ:(returning CGRect.t) +let inputAssistantView self = msg_send ~self ~cmd:(selector "inputAssistantView") ~typ:(returning id) +let inputAssistantViewBounds self = msg_send ~self ~cmd:(selector "inputAssistantViewBounds") ~typ:(returning CGRect.t) +let inputSetWithInputAccessoryViewFromInputSet x self = msg_send ~self ~cmd:(selector "inputSetWithInputAccessoryViewFromInputSet:") ~typ:(id @-> returning id) x +let inputSetWithInputAccessoryViewOnly self = msg_send ~self ~cmd:(selector "inputSetWithInputAccessoryViewOnly") ~typ:(returning id) +let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning id) +let inputViewBounds self = msg_send ~self ~cmd:(selector "inputViewBounds") ~typ:(returning CGRect.t) +let inputViewController self = msg_send ~self ~cmd:(selector "inputViewController") ~typ:(returning id) +let inputViewKeyboardCanSplit self = msg_send ~self ~cmd:(selector "inputViewKeyboardCanSplit") ~typ:(returning bool) +let inputViewSplitHeight self = msg_send ~self ~cmd:(selector "inputViewSplitHeight") ~typ:(returning double) +let isCustomInputView self = msg_send ~self ~cmd:(selector "isCustomInputView") ~typ:(returning bool) +let isEmpty self = msg_send ~self ~cmd:(selector "isEmpty") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isInputAccessoryViewPlaceholder self = msg_send ~self ~cmd:(selector "isInputAccessoryViewPlaceholder") ~typ:(returning bool) +let isInputAssistantViewPlaceholder self = msg_send ~self ~cmd:(selector "isInputAssistantViewPlaceholder") ~typ:(returning bool) +let isInputViewPlaceholder self = msg_send ~self ~cmd:(selector "isInputViewPlaceholder") ~typ:(returning bool) +let isLocalMinimumHeightInputView self = msg_send ~self ~cmd:(selector "isLocalMinimumHeightInputView") ~typ:(returning bool) +let isNullInputView self = msg_send ~self ~cmd:(selector "isNullInputView") ~typ:(returning bool) +let isRemoteKeyboard self = msg_send ~self ~cmd:(selector "isRemoteKeyboard") ~typ:(returning bool) +let isSplit self = msg_send ~self ~cmd:(selector "isSplit") ~typ:(returning bool) +let isStrictSupersetOfViewSet x self = msg_send ~self ~cmd:(selector "isStrictSupersetOfViewSet:") ~typ:(id @-> returning bool) x +let keyboard self = msg_send ~self ~cmd:(selector "keyboard") ~typ:(returning id) +let keyboardOrientation x self = msg_send ~self ~cmd:(selector "keyboardOrientation:") ~typ:(id @-> returning llong) x +let layeringView self = msg_send ~self ~cmd:(selector "layeringView") ~typ:(returning id) +let normalizePlaceholders self = msg_send ~self ~cmd:(selector "normalizePlaceholders") ~typ:(returning id) +let refreshPresentation self = msg_send ~self ~cmd:(selector "refreshPresentation") ~typ:(returning void) +let restorableRenderConfig self = msg_send ~self ~cmd:(selector "restorableRenderConfig") ~typ:(returning id) +let restorableResponder self = msg_send ~self ~cmd:(selector "restorableResponder") ~typ:(returning id) +let restoreUsingBecomeFirstResponder self = msg_send ~self ~cmd:(selector "restoreUsingBecomeFirstResponder") ~typ:(returning bool) +let setAccessoryViewController x self = msg_send ~self ~cmd:(selector "setAccessoryViewController:") ~typ:(id @-> returning void) x +let setAccessoryViewNextResponder x self = msg_send ~self ~cmd:(selector "setAccessoryViewNextResponder:") ~typ:(id @-> returning void) x +let setAccessoryViewVisible x ~delay self = msg_send ~self ~cmd:(selector "setAccessoryViewVisible:delay:") ~typ:(bool @-> double @-> returning bool) x delay +let setAssistantViewController x self = msg_send ~self ~cmd:(selector "setAssistantViewController:") ~typ:(id @-> returning void) x +let setInputAccessoryView x self = msg_send ~self ~cmd:(selector "setInputAccessoryView:") ~typ:(id @-> returning void) x +let setInputAssistantView x self = msg_send ~self ~cmd:(selector "setInputAssistantView:") ~typ:(id @-> returning void) x +let setInputView x self = msg_send ~self ~cmd:(selector "setInputView:") ~typ:(id @-> returning void) x +let setInputViewController x self = msg_send ~self ~cmd:(selector "setInputViewController:") ~typ:(id @-> returning void) x +let setIsCustomInputView x self = msg_send ~self ~cmd:(selector "setIsCustomInputView:") ~typ:(bool @-> returning void) x +let setIsRemoteKeyboard x self = msg_send ~self ~cmd:(selector "setIsRemoteKeyboard:") ~typ:(bool @-> returning void) x +let setKeyboardAssistantBar x self = msg_send ~self ~cmd:(selector "setKeyboardAssistantBar:") ~typ:(id @-> returning void) x +let setRestorableRenderConfig x self = msg_send ~self ~cmd:(selector "setRestorableRenderConfig:") ~typ:(id @-> returning void) x +let setRestorableResponder x self = msg_send ~self ~cmd:(selector "setRestorableResponder:") ~typ:(id @-> returning void) x +let setRestoreUsingBecomeFirstResponder x self = msg_send ~self ~cmd:(selector "setRestoreUsingBecomeFirstResponder:") ~typ:(bool @-> returning void) x +let setSplitHeightDelta x self = msg_send ~self ~cmd:(selector "setSplitHeightDelta:") ~typ:(double @-> returning void) x +let splitExemptSubview self = msg_send ~self ~cmd:(selector "splitExemptSubview") ~typ:(returning id) +let splitHeightDelta self = msg_send ~self ~cmd:(selector "splitHeightDelta") ~typ:(returning double) +let supportsSplit self = msg_send ~self ~cmd:(selector "supportsSplit") ~typ:(returning bool) +let usesKeyClicks self = msg_send ~self ~cmd:(selector "usesKeyClicks") ~typ:(returning bool) +let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIInputViewSetClass.ml b/uikit/UIInputViewSetClass.ml new file mode 100644 index 00000000..0db55688 --- /dev/null +++ b/uikit/UIInputViewSetClass.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewset?language=objc}UIInputViewSet} *) + +let emptyInputSet self = msg_send ~self ~cmd:(selector "emptyInputSet") ~typ:(returning id) +let inputSetWithInputView x ~accessoryView self = msg_send ~self ~cmd:(selector "inputSetWithInputView:accessoryView:") ~typ:(id @-> id @-> returning id) x accessoryView +let inputSetWithInputView' x ~accessoryView ~assistantView self = msg_send ~self ~cmd:(selector "inputSetWithInputView:accessoryView:assistantView:") ~typ:(id @-> id @-> id @-> returning id) x accessoryView assistantView +let inputSetWithKeyboardAndAccessoryView x self = msg_send ~self ~cmd:(selector "inputSetWithKeyboardAndAccessoryView:") ~typ:(id @-> returning id) x +let inputSetWithKeyboardAndAccessoryView' x ~assistantView self = msg_send ~self ~cmd:(selector "inputSetWithKeyboardAndAccessoryView:assistantView:") ~typ:(id @-> id @-> returning id) x assistantView +let inputSetWithOriginalInputSet x ~duplicateInputView ~duplicateInputAccessoryView ~duplicateInputAssistantView self = msg_send ~self ~cmd:(selector "inputSetWithOriginalInputSet:duplicateInputView:duplicateInputAccessoryView:duplicateInputAssistantView:") ~typ:(id @-> bool @-> bool @-> bool @-> returning id) x duplicateInputView duplicateInputAccessoryView duplicateInputAssistantView +let inputSetWithPlaceholderAndAccessoryView x self = msg_send ~self ~cmd:(selector "inputSetWithPlaceholderAndAccessoryView:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIInputViewSetNotificationInfo.ml b/uikit/UIInputViewSetNotificationInfo.ml index aac2e229..2a03b0f1 100644 --- a/uikit/UIInputViewSetNotificationInfo.ml +++ b/uikit/UIInputViewSetNotificationInfo.ml @@ -5,48 +5,48 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputViewSetNotificationInfo" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetnotificationinfo?language=objc}UIInputViewSetNotificationInfo} *) -module C = struct - let info self = msg_send ~self ~cmd:(selector "info") ~typ:(returning (id)) -end +let self = get_class "UIInputViewSetNotificationInfo" -let assistantFrame self = msg_send_stret ~self ~cmd:(selector "assistantFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let assistantOnScreenOnly self = msg_send ~self ~cmd:(selector "assistantOnScreenOnly") ~typ:(returning (bool)) -let assistantPosition self = msg_send ~self ~cmd:(selector "assistantPosition") ~typ:(returning (ullong)) -let beginCenter self = msg_send_stret ~self ~cmd:(selector "beginCenter") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let beginFrame self = msg_send_stret ~self ~cmd:(selector "beginFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let bounds self = msg_send_stret ~self ~cmd:(selector "bounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let changedAccessoryOnly self = msg_send ~self ~cmd:(selector "changedAccessoryOnly") ~typ:(returning (bool)) -let containsChange self = msg_send ~self ~cmd:(selector "containsChange") ~typ:(returning (bool)) -let dueToRotation self = msg_send ~self ~cmd:(selector "dueToRotation") ~typ:(returning (bool)) -let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning (double)) -let endCenter self = msg_send_stret ~self ~cmd:(selector "endCenter") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let endFrame self = msg_send_stret ~self ~cmd:(selector "endFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let forceNotification self = msg_send ~self ~cmd:(selector "forceNotification") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let inverseInfo self = msg_send ~self ~cmd:(selector "inverseInfo") ~typ:(returning (id)) -let logGeometry self = msg_send ~self ~cmd:(selector "logGeometry") ~typ:(returning (void)) -let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning (ullong)) -let populateEndInfoWithFrame x self = msg_send ~self ~cmd:(selector "populateEndInfoWithFrame:") ~typ:(CGRect.t @-> returning (void)) x -let populateStartInfoWithFrame x self = msg_send ~self ~cmd:(selector "populateStartInfoWithFrame:") ~typ:(CGRect.t @-> returning (void)) x -let populateWithAnimationStyle x self = msg_send ~self ~cmd:(selector "populateWithAnimationStyle:") ~typ:(id @-> returning (void)) x -let privateUserInfo self = msg_send ~self ~cmd:(selector "privateUserInfo") ~typ:(returning (id)) -let rotationUserInfo self = msg_send ~self ~cmd:(selector "rotationUserInfo") ~typ:(returning (id)) -let setAssistantFrame x self = msg_send ~self ~cmd:(selector "setAssistantFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setAssistantOnScreenOnly x self = msg_send ~self ~cmd:(selector "setAssistantOnScreenOnly:") ~typ:(bool @-> returning (void)) x -let setAssistantPosition x self = msg_send ~self ~cmd:(selector "setAssistantPosition:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setBeginCenter x self = msg_send ~self ~cmd:(selector "setBeginCenter:") ~typ:(CGPoint.t @-> returning (void)) x -let setBeginFrame x self = msg_send ~self ~cmd:(selector "setBeginFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setChangedAccessoryOnly x self = msg_send ~self ~cmd:(selector "setChangedAccessoryOnly:") ~typ:(bool @-> returning (void)) x -let setDueToRotation x self = msg_send ~self ~cmd:(selector "setDueToRotation:") ~typ:(bool @-> returning (void)) x -let setDuration x self = msg_send ~self ~cmd:(selector "setDuration:") ~typ:(double @-> returning (void)) x -let setEndCenter x self = msg_send ~self ~cmd:(selector "setEndCenter:") ~typ:(CGPoint.t @-> returning (void)) x -let setEndFrame x self = msg_send ~self ~cmd:(selector "setEndFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setForceNotification x self = msg_send ~self ~cmd:(selector "setForceNotification:") ~typ:(bool @-> returning (void)) x -let setOptions x self = msg_send ~self ~cmd:(selector "setOptions:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setWasCausedRemotely x self = msg_send ~self ~cmd:(selector "setWasCausedRemotely:") ~typ:(bool @-> returning (void)) x -let userInfo self = msg_send ~self ~cmd:(selector "userInfo") ~typ:(returning (id)) -let wasCausedRemotely self = msg_send ~self ~cmd:(selector "wasCausedRemotely") ~typ:(returning (bool)) \ No newline at end of file +let assistantFrame self = msg_send ~self ~cmd:(selector "assistantFrame") ~typ:(returning CGRect.t) +let assistantOnScreenOnly self = msg_send ~self ~cmd:(selector "assistantOnScreenOnly") ~typ:(returning bool) +let assistantPosition self = msg_send ~self ~cmd:(selector "assistantPosition") ~typ:(returning ullong) +let beginCenter self = msg_send ~self ~cmd:(selector "beginCenter") ~typ:(returning CGPoint.t) +let beginFrame self = msg_send ~self ~cmd:(selector "beginFrame") ~typ:(returning CGRect.t) +let bounds self = msg_send ~self ~cmd:(selector "bounds") ~typ:(returning CGRect.t) +let changedAccessoryOnly self = msg_send ~self ~cmd:(selector "changedAccessoryOnly") ~typ:(returning bool) +let containsChange self = msg_send ~self ~cmd:(selector "containsChange") ~typ:(returning bool) +let dueToRotation self = msg_send ~self ~cmd:(selector "dueToRotation") ~typ:(returning bool) +let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning double) +let endCenter self = msg_send ~self ~cmd:(selector "endCenter") ~typ:(returning CGPoint.t) +let endFrame self = msg_send ~self ~cmd:(selector "endFrame") ~typ:(returning CGRect.t) +let forceNotification self = msg_send ~self ~cmd:(selector "forceNotification") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let inverseInfo self = msg_send ~self ~cmd:(selector "inverseInfo") ~typ:(returning id) +let logGeometry self = msg_send ~self ~cmd:(selector "logGeometry") ~typ:(returning void) +let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning ullong) +let populateEndInfoWithFrame x self = msg_send ~self ~cmd:(selector "populateEndInfoWithFrame:") ~typ:(CGRect.t @-> returning void) x +let populateStartInfoWithFrame x self = msg_send ~self ~cmd:(selector "populateStartInfoWithFrame:") ~typ:(CGRect.t @-> returning void) x +let populateWithAnimationStyle x self = msg_send ~self ~cmd:(selector "populateWithAnimationStyle:") ~typ:(id @-> returning void) x +let privateUserInfo self = msg_send ~self ~cmd:(selector "privateUserInfo") ~typ:(returning id) +let rotationUserInfo self = msg_send ~self ~cmd:(selector "rotationUserInfo") ~typ:(returning id) +let setAssistantFrame x self = msg_send ~self ~cmd:(selector "setAssistantFrame:") ~typ:(CGRect.t @-> returning void) x +let setAssistantOnScreenOnly x self = msg_send ~self ~cmd:(selector "setAssistantOnScreenOnly:") ~typ:(bool @-> returning void) x +let setAssistantPosition x self = msg_send ~self ~cmd:(selector "setAssistantPosition:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setBeginCenter x self = msg_send ~self ~cmd:(selector "setBeginCenter:") ~typ:(CGPoint.t @-> returning void) x +let setBeginFrame x self = msg_send ~self ~cmd:(selector "setBeginFrame:") ~typ:(CGRect.t @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setChangedAccessoryOnly x self = msg_send ~self ~cmd:(selector "setChangedAccessoryOnly:") ~typ:(bool @-> returning void) x +let setDueToRotation x self = msg_send ~self ~cmd:(selector "setDueToRotation:") ~typ:(bool @-> returning void) x +let setDuration x self = msg_send ~self ~cmd:(selector "setDuration:") ~typ:(double @-> returning void) x +let setEndCenter x self = msg_send ~self ~cmd:(selector "setEndCenter:") ~typ:(CGPoint.t @-> returning void) x +let setEndFrame x self = msg_send ~self ~cmd:(selector "setEndFrame:") ~typ:(CGRect.t @-> returning void) x +let setForceNotification x self = msg_send ~self ~cmd:(selector "setForceNotification:") ~typ:(bool @-> returning void) x +let setOptions x self = msg_send ~self ~cmd:(selector "setOptions:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setWasCausedRemotely x self = msg_send ~self ~cmd:(selector "setWasCausedRemotely:") ~typ:(bool @-> returning void) x +let userInfo self = msg_send ~self ~cmd:(selector "userInfo") ~typ:(returning id) +let wasCausedRemotely self = msg_send ~self ~cmd:(selector "wasCausedRemotely") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIInputViewSetNotificationInfoClass.ml b/uikit/UIInputViewSetNotificationInfoClass.ml new file mode 100644 index 00000000..0f232399 --- /dev/null +++ b/uikit/UIInputViewSetNotificationInfoClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetnotificationinfo?language=objc}UIInputViewSetNotificationInfo} *) + +let info self = msg_send ~self ~cmd:(selector "info") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacement.ml b/uikit/UIInputViewSetPlacement.ml index 243d6f66..5156b993 100644 --- a/uikit/UIInputViewSetPlacement.ml +++ b/uikit/UIInputViewSetPlacement.ml @@ -5,53 +5,52 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputViewSetPlacement" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacement?language=objc}UIInputViewSetPlacement} *) -module C = struct - let deactivatedKeyboardPlacementWithCurrentPlacement x self = msg_send ~self ~cmd:(selector "deactivatedKeyboardPlacementWithCurrentPlacement:") ~typ:(ptr void @-> returning (id)) x - let encodablePlacementsForXPC self = msg_send ~self ~cmd:(selector "encodablePlacementsForXPC") ~typ:(returning (id)) - let placement self = msg_send ~self ~cmd:(selector "placement") ~typ:(returning (id)) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIInputViewSetPlacement" -let accessoryViewWillAppear self = msg_send ~self ~cmd:(selector "accessoryViewWillAppear") ~typ:(returning (bool)) -let adjustBoundsForNotificationsWithOwner x self = msg_send_stret ~self ~cmd:(selector "adjustBoundsForNotificationsWithOwner:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let alpha self = msg_send ~self ~cmd:(selector "alpha") ~typ:(returning (double)) -let applicatorClassForKeyboard x self = msg_send ~self ~cmd:(selector "applicatorClassForKeyboard:") ~typ:(bool @-> returning (_Class)) x -let applicatorInfoForOwner x self = msg_send ~self ~cmd:(selector "applicatorInfoForOwner:") ~typ:(id @-> returning (id)) x -let checkSizeForOwner x self = msg_send ~self ~cmd:(selector "checkSizeForOwner:") ~typ:(id @-> returning (void)) x -let computeComparisonMask self = msg_send ~self ~cmd:(selector "computeComparisonMask") ~typ:(returning (ullong)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let expiringPlacement self = msg_send ~self ~cmd:(selector "expiringPlacement") ~typ:(returning (id)) -let extendedHeight self = msg_send ~self ~cmd:(selector "extendedHeight") ~typ:(returning (double)) -let horizontalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "horizontalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView -let indexForPurpose x self = msg_send ~self ~cmd:(selector "indexForPurpose:") ~typ:(ullong @-> returning (ullong)) (ULLong.of_int x) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let inputAssistantViewHeightForInputViewSet x self = msg_send ~self ~cmd:(selector "inputAssistantViewHeightForInputViewSet:") ~typ:(id @-> returning (double)) x -let inputViewWillAppear self = msg_send ~self ~cmd:(selector "inputViewWillAppear") ~typ:(returning (bool)) -let isCompactAssistantView self = msg_send ~self ~cmd:(selector "isCompactAssistantView") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isFloating self = msg_send ~self ~cmd:(selector "isFloating") ~typ:(returning (bool)) -let isFloatingAssistantView self = msg_send ~self ~cmd:(selector "isFloatingAssistantView") ~typ:(returning (bool)) -let isHiddenForFloatingTransition self = msg_send ~self ~cmd:(selector "isHiddenForFloatingTransition") ~typ:(returning (bool)) -let isInteractive self = msg_send ~self ~cmd:(selector "isInteractive") ~typ:(returning (bool)) -let isUndocked self = msg_send ~self ~cmd:(selector "isUndocked") ~typ:(returning (bool)) -let isVisible self = msg_send ~self ~cmd:(selector "isVisible") ~typ:(returning (bool)) -let notificationsForTransitionToPlacement x self = msg_send ~self ~cmd:(selector "notificationsForTransitionToPlacement:") ~typ:(id @-> returning (ullong)) x -let remoteIntrinsicContentSizeForInputViewInSet x ~includingIAV self = msg_send_stret ~self ~cmd:(selector "remoteIntrinsicContentSizeForInputViewInSet:includingIAV:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x includingIAV -let requiresWindowBasedSafeAreaInsets self = msg_send ~self ~cmd:(selector "requiresWindowBasedSafeAreaInsets") ~typ:(returning (bool)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDirty self = msg_send ~self ~cmd:(selector "setDirty") ~typ:(returning (void)) -let setExtendedHeight x self = msg_send ~self ~cmd:(selector "setExtendedHeight:") ~typ:(double @-> returning (void)) x -let setOtherPlacement x self = msg_send ~self ~cmd:(selector "setOtherPlacement:") ~typ:(id @-> returning (void)) x -let setSubPlacements x self = msg_send ~self ~cmd:(selector "setSubPlacements:") ~typ:(id @-> returning (void)) x -let showsEditItems self = msg_send ~self ~cmd:(selector "showsEditItems") ~typ:(returning (bool)) -let showsInputOrAssistantViews self = msg_send ~self ~cmd:(selector "showsInputOrAssistantViews") ~typ:(returning (bool)) -let showsInputViews self = msg_send ~self ~cmd:(selector "showsInputViews") ~typ:(returning (bool)) -let showsKeyboard self = msg_send ~self ~cmd:(selector "showsKeyboard") ~typ:(returning (bool)) -let subPlacements self = msg_send ~self ~cmd:(selector "subPlacements") ~typ:(returning (id)) -let verticalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "verticalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView -let widthConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "widthConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView \ No newline at end of file +let accessoryViewWillAppear self = msg_send ~self ~cmd:(selector "accessoryViewWillAppear") ~typ:(returning bool) +let adjustBoundsForNotificationsWithOwner x self = msg_send ~self ~cmd:(selector "adjustBoundsForNotificationsWithOwner:") ~typ:(id @-> returning CGRect.t) x +let alpha self = msg_send ~self ~cmd:(selector "alpha") ~typ:(returning double) +let applicatorClassForKeyboard x self = msg_send ~self ~cmd:(selector "applicatorClassForKeyboard:") ~typ:(bool @-> returning _Class) x +let applicatorInfoForOwner x self = msg_send ~self ~cmd:(selector "applicatorInfoForOwner:") ~typ:(id @-> returning id) x +let checkSizeForOwner x self = msg_send ~self ~cmd:(selector "checkSizeForOwner:") ~typ:(id @-> returning void) x +let computeComparisonMask self = msg_send ~self ~cmd:(selector "computeComparisonMask") ~typ:(returning ullong) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let expiringPlacement self = msg_send ~self ~cmd:(selector "expiringPlacement") ~typ:(returning id) +let extendedHeight self = msg_send ~self ~cmd:(selector "extendedHeight") ~typ:(returning double) +let horizontalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "horizontalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView +let indexForPurpose x self = msg_send ~self ~cmd:(selector "indexForPurpose:") ~typ:(ullong @-> returning ullong) (ULLong.of_int x) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let inputAccessoryViewPadding self = msg_send ~self ~cmd:(selector "inputAccessoryViewPadding") ~typ:(returning UIEdgeInsets.t) +let inputAssistantViewHeightForInputViewSet x self = msg_send ~self ~cmd:(selector "inputAssistantViewHeightForInputViewSet:") ~typ:(id @-> returning double) x +let inputViewWillAppear self = msg_send ~self ~cmd:(selector "inputViewWillAppear") ~typ:(returning bool) +let isCompactAssistantView self = msg_send ~self ~cmd:(selector "isCompactAssistantView") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isFloating self = msg_send ~self ~cmd:(selector "isFloating") ~typ:(returning bool) +let isFloatingAssistantView self = msg_send ~self ~cmd:(selector "isFloatingAssistantView") ~typ:(returning bool) +let isHiddenForFloatingTransition self = msg_send ~self ~cmd:(selector "isHiddenForFloatingTransition") ~typ:(returning bool) +let isInteractive self = msg_send ~self ~cmd:(selector "isInteractive") ~typ:(returning bool) +let isUndocked self = msg_send ~self ~cmd:(selector "isUndocked") ~typ:(returning bool) +let isVisible self = msg_send ~self ~cmd:(selector "isVisible") ~typ:(returning bool) +let notificationsForTransitionToPlacement x self = msg_send ~self ~cmd:(selector "notificationsForTransitionToPlacement:") ~typ:(id @-> returning ullong) x +let remoteIntrinsicContentSizeForInputViewInSet x ~includingIAV self = msg_send ~self ~cmd:(selector "remoteIntrinsicContentSizeForInputViewInSet:includingIAV:") ~typ:(id @-> bool @-> returning CGRect.t) x includingIAV +let requiresWindowBasedSafeAreaInsets self = msg_send ~self ~cmd:(selector "requiresWindowBasedSafeAreaInsets") ~typ:(returning bool) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDirty self = msg_send ~self ~cmd:(selector "setDirty") ~typ:(returning void) +let setExtendedHeight x self = msg_send ~self ~cmd:(selector "setExtendedHeight:") ~typ:(double @-> returning void) x +let setOtherPlacement x self = msg_send ~self ~cmd:(selector "setOtherPlacement:") ~typ:(id @-> returning void) x +let setSubPlacements x self = msg_send ~self ~cmd:(selector "setSubPlacements:") ~typ:(id @-> returning void) x +let showsEditItems self = msg_send ~self ~cmd:(selector "showsEditItems") ~typ:(returning bool) +let showsInputOrAssistantViews self = msg_send ~self ~cmd:(selector "showsInputOrAssistantViews") ~typ:(returning bool) +let showsInputViews self = msg_send ~self ~cmd:(selector "showsInputViews") ~typ:(returning bool) +let showsKeyboard self = msg_send ~self ~cmd:(selector "showsKeyboard") ~typ:(returning bool) +let subPlacements self = msg_send ~self ~cmd:(selector "subPlacements") ~typ:(returning id) +let transform self = msg_send ~self ~cmd:(selector "transform") ~typ:(returning CGAffineTransform.t) +let verticalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "verticalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView +let widthConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "widthConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementAccessoryOnScreen.ml b/uikit/UIInputViewSetPlacementAccessoryOnScreen.ml deleted file mode 100644 index 9a3c359b..00000000 --- a/uikit/UIInputViewSetPlacementAccessoryOnScreen.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementAccessoryOnScreen" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let accessoryViewWillAppear self = msg_send ~self ~cmd:(selector "accessoryViewWillAppear") ~typ:(returning (bool)) -let remoteIntrinsicContentSizeForInputViewInSet x ~includingIAV self = msg_send_stret ~self ~cmd:(selector "remoteIntrinsicContentSizeForInputViewInSet:includingIAV:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x includingIAV -let showsEditItems self = msg_send ~self ~cmd:(selector "showsEditItems") ~typ:(returning (bool)) -let showsInputViews self = msg_send ~self ~cmd:(selector "showsInputViews") ~typ:(returning (bool)) -let verticalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "verticalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementAssistantOnScreen.ml b/uikit/UIInputViewSetPlacementAssistantOnScreen.ml deleted file mode 100644 index 91673126..00000000 --- a/uikit/UIInputViewSetPlacementAssistantOnScreen.ml +++ /dev/null @@ -1,26 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementAssistantOnScreen" - -module C = struct - let infoWithPoint x ~isCompact ~frame ~position self = msg_send ~self ~cmd:(selector "infoWithPoint:isCompact:frame:position:") ~typ:(CGPoint.t @-> bool @-> CGRect.t @-> ullong @-> returning (id)) x isCompact frame (ULLong.of_int position) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let accessoryViewWillAppear self = msg_send ~self ~cmd:(selector "accessoryViewWillAppear") ~typ:(returning (bool)) -let applicatorClassForKeyboard x self = msg_send ~self ~cmd:(selector "applicatorClassForKeyboard:") ~typ:(bool @-> returning (_Class)) x -let inputAssistantViewHeightForInputViewSet x self = msg_send ~self ~cmd:(selector "inputAssistantViewHeightForInputViewSet:") ~typ:(id @-> returning (double)) x -let inputViewWillAppear self = msg_send ~self ~cmd:(selector "inputViewWillAppear") ~typ:(returning (bool)) -let isFloatingAssistantView self = msg_send ~self ~cmd:(selector "isFloatingAssistantView") ~typ:(returning (bool)) -let remoteIntrinsicContentSizeForInputViewInSet x ~includingIAV self = msg_send_stret ~self ~cmd:(selector "remoteIntrinsicContentSizeForInputViewInSet:includingIAV:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x includingIAV -let showsEditItems self = msg_send ~self ~cmd:(selector "showsEditItems") ~typ:(returning (bool)) -let showsInputOrAssistantViews self = msg_send ~self ~cmd:(selector "showsInputOrAssistantViews") ~typ:(returning (bool)) -let showsInputViews self = msg_send ~self ~cmd:(selector "showsInputViews") ~typ:(returning (bool)) -let verticalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "verticalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView -let verticalOffset self = msg_send ~self ~cmd:(selector "verticalOffset") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementAssistantOnScreenForNonKeyboard.ml b/uikit/UIInputViewSetPlacementAssistantOnScreenForNonKeyboard.ml deleted file mode 100644 index 0c19897f..00000000 --- a/uikit/UIInputViewSetPlacementAssistantOnScreenForNonKeyboard.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementAssistantOnScreenForNonKeyboard" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let horizontalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "horizontalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView -let verticalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "verticalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView -let widthConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "widthConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementClass.ml b/uikit/UIInputViewSetPlacementClass.ml new file mode 100644 index 00000000..8488a44a --- /dev/null +++ b/uikit/UIInputViewSetPlacementClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacement?language=objc}UIInputViewSetPlacement} *) + +let deactivatedKeyboardPlacementWithCurrentPlacement x self = msg_send ~self ~cmd:(selector "deactivatedKeyboardPlacementWithCurrentPlacement:") ~typ:((ptr void) @-> returning id) x +let encodablePlacementsForXPC self = msg_send ~self ~cmd:(selector "encodablePlacementsForXPC") ~typ:(returning id) +let placement self = msg_send ~self ~cmd:(selector "placement") ~typ:(returning id) +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementClassicAssistantOnScreen.ml b/uikit/UIInputViewSetPlacementClassicAssistantOnScreen.ml deleted file mode 100644 index cf1c6e99..00000000 --- a/uikit/UIInputViewSetPlacementClassicAssistantOnScreen.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementClassicAssistantOnScreen" - -let isFloatingAssistantView self = msg_send ~self ~cmd:(selector "isFloatingAssistantView") ~typ:(returning (bool)) -let verticalOffset self = msg_send ~self ~cmd:(selector "verticalOffset") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementCompactAssistantOnScreen.ml b/uikit/UIInputViewSetPlacementCompactAssistantOnScreen.ml deleted file mode 100644 index 3330b1a7..00000000 --- a/uikit/UIInputViewSetPlacementCompactAssistantOnScreen.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementCompactAssistantOnScreen" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let applicatorInfoForOwner x self = msg_send ~self ~cmd:(selector "applicatorInfoForOwner:") ~typ:(id @-> returning (id)) x -let horizontalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "horizontalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView -let isCompactAssistantView self = msg_send ~self ~cmd:(selector "isCompactAssistantView") ~typ:(returning (bool)) -let offset self = msg_send_stret ~self ~cmd:(selector "offset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let setOffset x self = msg_send ~self ~cmd:(selector "setOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let verticalOffset self = msg_send ~self ~cmd:(selector "verticalOffset") ~typ:(returning (double)) -let widthConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "widthConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementCompactAssistantOnScreenLeft.ml b/uikit/UIInputViewSetPlacementCompactAssistantOnScreenLeft.ml deleted file mode 100644 index 23591072..00000000 --- a/uikit/UIInputViewSetPlacementCompactAssistantOnScreenLeft.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementCompactAssistantOnScreenLeft" - -module Class = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let horizontalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "horizontalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView -let verticalOffset self = msg_send ~self ~cmd:(selector "verticalOffset") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementCompactAssistantOnScreenRight.ml b/uikit/UIInputViewSetPlacementCompactAssistantOnScreenRight.ml deleted file mode 100644 index 86e776b6..00000000 --- a/uikit/UIInputViewSetPlacementCompactAssistantOnScreenRight.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementCompactAssistantOnScreenRight" - -module Class = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let horizontalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "horizontalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView -let verticalOffset self = msg_send ~self ~cmd:(selector "verticalOffset") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementFloating.ml b/uikit/UIInputViewSetPlacementFloating.ml deleted file mode 100644 index b1b11d78..00000000 --- a/uikit/UIInputViewSetPlacementFloating.ml +++ /dev/null @@ -1,38 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementFloating" - -module C = struct - let frameAtOffset x ~keyboardSize ~screenSize self = msg_send_stret ~self ~cmd:(selector "frameAtOffset:keyboardSize:screenSize:") ~typ:(CGPoint.t @-> CGSize.t @-> CGSize.t @-> returning (CGRect.t)) ~return_type:CGRect.t x keyboardSize screenSize - let infoWithPoint x ~forOwner self = msg_send ~self ~cmd:(selector "infoWithPoint:forOwner:") ~typ:(CGPoint.t @-> id @-> returning (id)) x forOwner - let placementWithUndockedOffset x ~chromeBuffer ~floatingWidth self = msg_send ~self ~cmd:(selector "placementWithUndockedOffset:chromeBuffer:floatingWidth:") ~typ:(CGPoint.t @-> ptr void @-> double @-> returning (id)) x chromeBuffer floatingWidth - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let adjustBoundsForNotificationsWithOwner x self = msg_send_stret ~self ~cmd:(selector "adjustBoundsForNotificationsWithOwner:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let applicatorClassForKeyboard x self = msg_send ~self ~cmd:(selector "applicatorClassForKeyboard:") ~typ:(bool @-> returning (_Class)) x -let applicatorInfoForOwner x self = msg_send ~self ~cmd:(selector "applicatorInfoForOwner:") ~typ:(id @-> returning (id)) x -let checkSizeForOwner x self = msg_send ~self ~cmd:(selector "checkSizeForOwner:") ~typ:(id @-> returning (void)) x -let currentResponderView self = msg_send ~self ~cmd:(selector "currentResponderView") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let expiringPlacement self = msg_send ~self ~cmd:(selector "expiringPlacement") ~typ:(returning (id)) -let floatingWidth self = msg_send ~self ~cmd:(selector "floatingWidth") ~typ:(returning (double)) -let horizontalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "horizontalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView -let indexForPurpose x self = msg_send ~self ~cmd:(selector "indexForPurpose:") ~typ:(ullong @-> returning (ullong)) (ULLong.of_int x) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isFloating self = msg_send ~self ~cmd:(selector "isFloating") ~typ:(returning (bool)) -let isFloatingAssistantView self = msg_send ~self ~cmd:(selector "isFloatingAssistantView") ~typ:(returning (bool)) -let responderToFollow self = msg_send ~self ~cmd:(selector "responderToFollow") ~typ:(returning (id)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setFloatingWidth x self = msg_send ~self ~cmd:(selector "setFloatingWidth:") ~typ:(double @-> returning (void)) x -let setResponderToFollow x self = msg_send ~self ~cmd:(selector "setResponderToFollow:") ~typ:(id @-> returning (void)) x -let subPlacements self = msg_send ~self ~cmd:(selector "subPlacements") ~typ:(returning (id)) -let widthConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "widthConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementInvisible.ml b/uikit/UIInputViewSetPlacementInvisible.ml deleted file mode 100644 index f5d34b1c..00000000 --- a/uikit/UIInputViewSetPlacementInvisible.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementInvisible" - -module C = struct - let placementWithPlacement x self = msg_send ~self ~cmd:(selector "placementWithPlacement:") ~typ:(id @-> returning (id)) x - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let alpha self = msg_send ~self ~cmd:(selector "alpha") ~typ:(returning (double)) -let applicatorInfoForOwner x self = msg_send ~self ~cmd:(selector "applicatorInfoForOwner:") ~typ:(id @-> returning (id)) x -let inputViewWillAppear self = msg_send ~self ~cmd:(selector "inputViewWillAppear") ~typ:(returning (bool)) -let isInteractive self = msg_send ~self ~cmd:(selector "isInteractive") ~typ:(returning (bool)) -let isUndocked self = msg_send ~self ~cmd:(selector "isUndocked") ~typ:(returning (bool)) -let isVisible self = msg_send ~self ~cmd:(selector "isVisible") ~typ:(returning (bool)) -let showsInputOrAssistantViews self = msg_send ~self ~cmd:(selector "showsInputOrAssistantViews") ~typ:(returning (bool)) -let showsInputViews self = msg_send ~self ~cmd:(selector "showsInputViews") ~typ:(returning (bool)) -let showsKeyboard self = msg_send ~self ~cmd:(selector "showsKeyboard") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementInvisibleAssistantBar.ml b/uikit/UIInputViewSetPlacementInvisibleAssistantBar.ml deleted file mode 100644 index 941d16f9..00000000 --- a/uikit/UIInputViewSetPlacementInvisibleAssistantBar.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementInvisibleAssistantBar" - -module C = struct - let placementWithPlacement x self = msg_send ~self ~cmd:(selector "placementWithPlacement:") ~typ:(id @-> returning (id)) x -end - -let applicatorInfoForOwner x self = msg_send ~self ~cmd:(selector "applicatorInfoForOwner:") ~typ:(id @-> returning (id)) x -let isCompactAssistantView self = msg_send ~self ~cmd:(selector "isCompactAssistantView") ~typ:(returning (bool)) -let isFloatingAssistantView self = msg_send ~self ~cmd:(selector "isFloatingAssistantView") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementInvisibleForFloatingAssistantTransition.ml b/uikit/UIInputViewSetPlacementInvisibleForFloatingAssistantTransition.ml deleted file mode 100644 index 63d3b849..00000000 --- a/uikit/UIInputViewSetPlacementInvisibleForFloatingAssistantTransition.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementInvisibleForFloatingAssistantTransition" - -module C = struct - let placementWithPlacement x self = msg_send ~self ~cmd:(selector "placementWithPlacement:") ~typ:(id @-> returning (id)) x -end - -let alpha self = msg_send ~self ~cmd:(selector "alpha") ~typ:(returning (double)) -let isCompactAssistantView self = msg_send ~self ~cmd:(selector "isCompactAssistantView") ~typ:(returning (bool)) -let isFloatingAssistantView self = msg_send ~self ~cmd:(selector "isFloatingAssistantView") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementInvisibleForFloatingTransition.ml b/uikit/UIInputViewSetPlacementInvisibleForFloatingTransition.ml deleted file mode 100644 index 7ab160a2..00000000 --- a/uikit/UIInputViewSetPlacementInvisibleForFloatingTransition.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementInvisibleForFloatingTransition" - -module C = struct - let placementWithPlacement x self = msg_send ~self ~cmd:(selector "placementWithPlacement:") ~typ:(id @-> returning (id)) x - let placementWithPlacement' x ~forFloatingAssistantViewTransition self = msg_send ~self ~cmd:(selector "placementWithPlacement:forFloatingAssistantViewTransition:") ~typ:(id @-> bool @-> returning (id)) x forFloatingAssistantViewTransition -end - -let isFloatingAssistantView self = msg_send ~self ~cmd:(selector "isFloatingAssistantView") ~typ:(returning (bool)) -let isHiddenForFloatingTransition self = msg_send ~self ~cmd:(selector "isHiddenForFloatingTransition") ~typ:(returning (bool)) -let showsEditItems self = msg_send ~self ~cmd:(selector "showsEditItems") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementOffScreenDownForFloatingAssistant.ml b/uikit/UIInputViewSetPlacementOffScreenDownForFloatingAssistant.ml deleted file mode 100644 index 5d1505b7..00000000 --- a/uikit/UIInputViewSetPlacementOffScreenDownForFloatingAssistant.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementOffScreenDownForFloatingAssistant" - -module C = struct - let placement self = msg_send ~self ~cmd:(selector "placement") ~typ:(returning (id)) -end - -let applicatorClassForKeyboard x self = msg_send ~self ~cmd:(selector "applicatorClassForKeyboard:") ~typ:(bool @-> returning (_Class)) x -let isFloatingAssistantView self = msg_send ~self ~cmd:(selector "isFloatingAssistantView") ~typ:(returning (bool)) -let remoteIntrinsicContentSizeForInputViewInSet x ~includingIAV self = msg_send_stret ~self ~cmd:(selector "remoteIntrinsicContentSizeForInputViewInSet:includingIAV:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x includingIAV -let showsEditItems self = msg_send ~self ~cmd:(selector "showsEditItems") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementOffScreenLeftOrRight.ml b/uikit/UIInputViewSetPlacementOffScreenLeftOrRight.ml deleted file mode 100644 index a2b89392..00000000 --- a/uikit/UIInputViewSetPlacementOffScreenLeftOrRight.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementOffScreenLeftOrRight" - -let setOtherPlacement x self = msg_send ~self ~cmd:(selector "setOtherPlacement:") ~typ:(id @-> returning (void)) x -let verticalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "verticalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementOnScreen.ml b/uikit/UIInputViewSetPlacementOnScreen.ml deleted file mode 100644 index 763d677b..00000000 --- a/uikit/UIInputViewSetPlacementOnScreen.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementOnScreen" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let inputViewWillAppear self = msg_send ~self ~cmd:(selector "inputViewWillAppear") ~typ:(returning (bool)) -let showsInputOrAssistantViews self = msg_send ~self ~cmd:(selector "showsInputOrAssistantViews") ~typ:(returning (bool)) -let showsInputViews self = msg_send ~self ~cmd:(selector "showsInputViews") ~typ:(returning (bool)) -let showsKeyboard self = msg_send ~self ~cmd:(selector "showsKeyboard") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementPlaceholder.ml b/uikit/UIInputViewSetPlacementPlaceholder.ml deleted file mode 100644 index be0533a6..00000000 --- a/uikit/UIInputViewSetPlacementPlaceholder.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementPlaceholder" - -module C = struct - let placementWithHeight x self = msg_send ~self ~cmd:(selector "placementWithHeight:") ~typ:(double @-> returning (id)) x -end - -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let remoteIntrinsicContentSizeForInputViewInSet x ~includingIAV self = msg_send_stret ~self ~cmd:(selector "remoteIntrinsicContentSizeForInputViewInSet:includingIAV:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x includingIAV -let verticalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "verticalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementPlaceholderUndocked.ml b/uikit/UIInputViewSetPlacementPlaceholderUndocked.ml deleted file mode 100644 index 08ecf6d8..00000000 --- a/uikit/UIInputViewSetPlacementPlaceholderUndocked.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementPlaceholderUndocked" - -let heightOfInputViews x self = msg_send ~self ~cmd:(selector "heightOfInputViews:") ~typ:(id @-> returning (double)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementUndocked.ml b/uikit/UIInputViewSetPlacementUndocked.ml deleted file mode 100644 index 319dc059..00000000 --- a/uikit/UIInputViewSetPlacementUndocked.ml +++ /dev/null @@ -1,31 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementUndocked" - -module C = struct - let computeOffsetForOffset x ~withSize ~chromeBuffer ~onScreenSize self = msg_send_stret ~self ~cmd:(selector "computeOffsetForOffset:withSize:chromeBuffer:onScreenSize:") ~typ:(CGPoint.t @-> CGSize.t @-> ptr void @-> CGSize.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x withSize chromeBuffer onScreenSize - let infoWithPoint x self = msg_send ~self ~cmd:(selector "infoWithPoint:") ~typ:(CGPoint.t @-> returning (id)) x - let placementWithUndockedOffset x ~chromeBuffer self = msg_send ~self ~cmd:(selector "placementWithUndockedOffset:chromeBuffer:") ~typ:(CGPoint.t @-> ptr void @-> returning (id)) x chromeBuffer - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let applicatorClassForKeyboard x self = msg_send ~self ~cmd:(selector "applicatorClassForKeyboard:") ~typ:(bool @-> returning (_Class)) x -let applicatorInfoForOwner x self = msg_send ~self ~cmd:(selector "applicatorInfoForOwner:") ~typ:(id @-> returning (id)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let heightOfInputViews x self = msg_send ~self ~cmd:(selector "heightOfInputViews:") ~typ:(id @-> returning (double)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let inputViewWillAppear self = msg_send ~self ~cmd:(selector "inputViewWillAppear") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isUndocked self = msg_send ~self ~cmd:(selector "isUndocked") ~typ:(returning (bool)) -let normalizedOffset self = msg_send_stret ~self ~cmd:(selector "normalizedOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let remoteIntrinsicContentSizeForInputViewInSet x ~includingIAV self = msg_send_stret ~self ~cmd:(selector "remoteIntrinsicContentSizeForInputViewInSet:includingIAV:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x includingIAV -let setChromeBuffer x self = msg_send ~self ~cmd:(selector "setChromeBuffer:") ~typ:(ptr void @-> returning (void)) x -let setNormalizedOffset x self = msg_send ~self ~cmd:(selector "setNormalizedOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let setOffset x self = msg_send ~self ~cmd:(selector "setOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let verticalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "verticalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView \ No newline at end of file diff --git a/uikit/UIInputViewSetPlacementWrapper.ml b/uikit/UIInputViewSetPlacementWrapper.ml deleted file mode 100644 index 0e7f3173..00000000 --- a/uikit/UIInputViewSetPlacementWrapper.ml +++ /dev/null @@ -1,40 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInputViewSetPlacementWrapper" - -module C = struct - let placementWithPlacement x self = msg_send ~self ~cmd:(selector "placementWithPlacement:") ~typ:(id @-> returning (id)) x - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let accessoryViewWillAppear self = msg_send ~self ~cmd:(selector "accessoryViewWillAppear") ~typ:(returning (bool)) -let alpha self = msg_send ~self ~cmd:(selector "alpha") ~typ:(returning (double)) -let applicatorClassForKeyboard x self = msg_send ~self ~cmd:(selector "applicatorClassForKeyboard:") ~typ:(bool @-> returning (_Class)) x -let applicatorInfoForOwner x self = msg_send ~self ~cmd:(selector "applicatorInfoForOwner:") ~typ:(id @-> returning (id)) x -let computeComparisonMask self = msg_send ~self ~cmd:(selector "computeComparisonMask") ~typ:(returning (ullong)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let horizontalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "horizontalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView -let indexForPurpose x self = msg_send ~self ~cmd:(selector "indexForPurpose:") ~typ:(ullong @-> returning (ullong)) (ULLong.of_int x) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let inputAssistantViewHeightForInputViewSet x self = msg_send ~self ~cmd:(selector "inputAssistantViewHeightForInputViewSet:") ~typ:(id @-> returning (double)) x -let inputViewWillAppear self = msg_send ~self ~cmd:(selector "inputViewWillAppear") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isInteractive self = msg_send ~self ~cmd:(selector "isInteractive") ~typ:(returning (bool)) -let isUndocked self = msg_send ~self ~cmd:(selector "isUndocked") ~typ:(returning (bool)) -let isVisible self = msg_send ~self ~cmd:(selector "isVisible") ~typ:(returning (bool)) -let remoteIntrinsicContentSizeForInputViewInSet x ~includingIAV self = msg_send_stret ~self ~cmd:(selector "remoteIntrinsicContentSizeForInputViewInSet:includingIAV:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x includingIAV -let setDirty self = msg_send ~self ~cmd:(selector "setDirty") ~typ:(returning (void)) -let showsEditItems self = msg_send ~self ~cmd:(selector "showsEditItems") ~typ:(returning (bool)) -let showsInputOrAssistantViews self = msg_send ~self ~cmd:(selector "showsInputOrAssistantViews") ~typ:(returning (bool)) -let showsInputViews self = msg_send ~self ~cmd:(selector "showsInputViews") ~typ:(returning (bool)) -let showsKeyboard self = msg_send ~self ~cmd:(selector "showsKeyboard") ~typ:(returning (bool)) -let subPlacements self = msg_send ~self ~cmd:(selector "subPlacements") ~typ:(returning (id)) -let verticalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "verticalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView -let widthConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "widthConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning (id)) x hostView containerView \ No newline at end of file diff --git a/uikit/UIInputViewTransition.ml b/uikit/UIInputViewTransition.ml index 373a398d..9996c454 100644 --- a/uikit/UIInputViewTransition.ml +++ b/uikit/UIInputViewTransition.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputViewTransition" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewtransition?language=objc}UIInputViewTransition} *) -let newSet self = msg_send ~self ~cmd:(selector "newSet") ~typ:(returning (id)) -let oldSet self = msg_send ~self ~cmd:(selector "oldSet") ~typ:(returning (id)) -let postNotificationsForTransitionEnd self = msg_send ~self ~cmd:(selector "postNotificationsForTransitionEnd") ~typ:(returning (void)) -let postNotificationsForTransitionStart self = msg_send ~self ~cmd:(selector "postNotificationsForTransitionStart") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIInputViewTransition" + +let newSet self = msg_send ~self ~cmd:(selector "newSet") ~typ:(returning id) +let oldSet self = msg_send ~self ~cmd:(selector "oldSet") ~typ:(returning id) +let postNotificationsForTransitionEnd self = msg_send ~self ~cmd:(selector "postNotificationsForTransitionEnd") ~typ:(returning void) +let postNotificationsForTransitionStart self = msg_send ~self ~cmd:(selector "postNotificationsForTransitionStart") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIInputWindowController.ml b/uikit/UIInputWindowController.ml index 5bfcbfac..458ba7c4 100644 --- a/uikit/UIInputWindowController.ml +++ b/uikit/UIInputWindowController.ml @@ -5,178 +5,182 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputWindowController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputwindowcontroller?language=objc}UIInputWindowController} *) -let accessoryViewHeightConstraint self = msg_send ~self ~cmd:(selector "accessoryViewHeightConstraint") ~typ:(returning (id)) -let addPendingActivity x self = msg_send ~self ~cmd:(selector "addPendingActivity:") ~typ:(ptr void @-> returning (void)) x -let animateAccessoryViewVisibility x ~withDuration self = msg_send ~self ~cmd:(selector "animateAccessoryViewVisibility:withDuration:") ~typ:(bool @-> double @-> returning (void)) x withDuration -let appearStateForChild x ~placement ~start self = msg_send ~self ~cmd:(selector "appearStateForChild:placement:start:") ~typ:(ullong @-> id @-> bool @-> returning (int)) (ULLong.of_int x) placement start -let assistantViewHeightConstraint self = msg_send ~self ~cmd:(selector "assistantViewHeightConstraint") ~typ:(returning (id)) -let beginFloatingTransitionFromPanGestureRecognizer x self = msg_send ~self ~cmd:(selector "beginFloatingTransitionFromPanGestureRecognizer:") ~typ:(id @-> returning (void)) x -let bottomEdgeView self = msg_send ~self ~cmd:(selector "bottomEdgeView") ~typ:(returning (id)) -let candidateBarWillChangeHeight x ~withDuration self = msg_send ~self ~cmd:(selector "candidateBarWillChangeHeight:withDuration:") ~typ:(double @-> double @-> returning (void)) x withDuration -let chainPlacementsIfNecessaryFrom x ~toPlacement ~transition ~completion self = msg_send ~self ~cmd:(selector "chainPlacementsIfNecessaryFrom:toPlacement:transition:completion:") ~typ:(id @-> id @-> id @-> ptr void @-> returning (void)) x toPlacement transition completion -let changeChild x ~toAppearState ~animated self = msg_send ~self ~cmd:(selector "changeChild:toAppearState:animated:") ~typ:(ullong @-> int @-> bool @-> returning (void)) (ULLong.of_int x) toAppearState animated -let changeGuideAnimationOptions x ~duration self = msg_send ~self ~cmd:(selector "changeGuideAnimationOptions:duration:") ~typ:(ullong @-> double @-> returning (void)) (ULLong.of_int x) duration -let changeGuideAnimationState x self = msg_send ~self ~cmd:(selector "changeGuideAnimationState:") ~typ:(bool @-> returning (void)) x -let changeToInputViewSet x self = msg_send ~self ~cmd:(selector "changeToInputViewSet:") ~typ:(id @-> returning (ullong)) x -let checkPlaceholdersForRemoteKeyboardsAndForceConstraintsUpdate x ~layoutSubviews self = msg_send ~self ~cmd:(selector "checkPlaceholdersForRemoteKeyboardsAndForceConstraintsUpdate:layoutSubviews:") ~typ:(bool @-> bool @-> returning (void)) x layoutSubviews -let convertRectFromContainerCoordinateSpaceToScreenSpace x self = msg_send_stret ~self ~cmd:(selector "convertRectFromContainerCoordinateSpaceToScreenSpace:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let currentPresentationPlacement self = msg_send ~self ~cmd:(selector "currentPresentationPlacement") ~typ:(returning (id)) -let currentTransition self = msg_send ~self ~cmd:(selector "currentTransition") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didEndIndirectSelectionGesture self = msg_send ~self ~cmd:(selector "didEndIndirectSelectionGesture") ~typ:(returning (void)) -let didEndTransitionWithController x self = msg_send ~self ~cmd:(selector "didEndTransitionWithController:") ~typ:(id @-> returning (void)) x -let didReceiveMemoryWarning self = msg_send ~self ~cmd:(selector "didReceiveMemoryWarning") ~typ:(returning (void)) -let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let didSnapshot self = msg_send ~self ~cmd:(selector "didSnapshot") ~typ:(returning (void)) -let didSuspend x self = msg_send ~self ~cmd:(selector "didSuspend:") ~typ:(id @-> returning (void)) x -let dismissViewController x self = msg_send ~self ~cmd:(selector "dismissViewController:") ~typ:(id @-> returning (void)) x -let dontDismissKeyboardOnScrolling self = msg_send ~self ~cmd:(selector "dontDismissKeyboardOnScrolling") ~typ:(returning (bool)) -let dontDismissReachability self = msg_send ~self ~cmd:(selector "dontDismissReachability") ~typ:(returning (bool)) -let expectedPlacement self = msg_send ~self ~cmd:(selector "expectedPlacement") ~typ:(returning (id)) -let extendKeyboardBackdropHeight x ~withDuration self = msg_send ~self ~cmd:(selector "extendKeyboardBackdropHeight:withDuration:") ~typ:(double @-> double @-> returning (void)) x withDuration -let finishSplitTransition self = msg_send ~self ~cmd:(selector "finishSplitTransition") ~typ:(returning (void)) -let flushPendingActivities self = msg_send ~self ~cmd:(selector "flushPendingActivities") ~typ:(returning (void)) -let forceAccessoryViewToBottomOfHostView self = msg_send ~self ~cmd:(selector "forceAccessoryViewToBottomOfHostView") ~typ:(returning (bool)) -let generateNotificationsForStart x self = msg_send ~self ~cmd:(selector "generateNotificationsForStart:") ~typ:(bool @-> returning (void)) x -let hasInputOrAssistantViewsOnScreen self = msg_send ~self ~cmd:(selector "hasInputOrAssistantViewsOnScreen") ~typ:(returning (bool)) -let hostAppSceneBoundsChanged self = msg_send ~self ~cmd:(selector "hostAppSceneBoundsChanged") ~typ:(returning (void)) -let hostViewDidEnterBackground self = msg_send ~self ~cmd:(selector "hostViewDidEnterBackground") ~typ:(returning (void)) -let hostViewWillDisappear self = msg_send ~self ~cmd:(selector "hostViewWillDisappear") ~typ:(returning (void)) -let hostViewWillenterForeground self = msg_send ~self ~cmd:(selector "hostViewWillenterForeground") ~typ:(returning (void)) -let hosting self = msg_send ~self ~cmd:(selector "hosting") ~typ:(returning (id)) -let ignoreLayoutNotifications x self = msg_send ~self ~cmd:(selector "ignoreLayoutNotifications:") ~typ:(ptr void @-> returning (void)) x -let inhibitRotationAnimation self = msg_send ~self ~cmd:(selector "inhibitRotationAnimation") ~typ:(returning (bool)) -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let initialNotificationInfo self = msg_send ~self ~cmd:(selector "initialNotificationInfo") ~typ:(returning (id)) -let inputSetContainerView self = msg_send ~self ~cmd:(selector "inputSetContainerView") ~typ:(returning (id)) -let inputViewHeightConstraint self = msg_send ~self ~cmd:(selector "inputViewHeightConstraint") ~typ:(returning (id)) -let inputViewSet self = msg_send ~self ~cmd:(selector "inputViewSet") ~typ:(returning (id)) -let inputViewSetContainsView x self = msg_send ~self ~cmd:(selector "inputViewSetContainsView:") ~typ:(id @-> returning (bool)) x -let inputViewSnapshotOfView x ~afterScreenUpdates self = msg_send ~self ~cmd:(selector "inputViewSnapshotOfView:afterScreenUpdates:") ~typ:(id @-> bool @-> returning (id)) x afterScreenUpdates -let inputWindowControllerForController x self = msg_send ~self ~cmd:(selector "inputWindowControllerForController:") ~typ:(id @-> returning (id)) x -let invalidateInputAccessoryView self = msg_send ~self ~cmd:(selector "invalidateInputAccessoryView") ~typ:(returning (void)) -let invalidateInputAssistantView self = msg_send ~self ~cmd:(selector "invalidateInputAssistantView") ~typ:(returning (void)) -let invalidateInputView self = msg_send ~self ~cmd:(selector "invalidateInputView") ~typ:(returning (void)) -let isChangingInputViews self = msg_send ~self ~cmd:(selector "isChangingInputViews") ~typ:(returning (bool)) -let isChangingPlacement self = msg_send ~self ~cmd:(selector "isChangingPlacement") ~typ:(returning (bool)) -let isDragging self = msg_send ~self ~cmd:(selector "isDragging") ~typ:(returning (bool)) -let isHostingView x self = msg_send ~self ~cmd:(selector "isHostingView:") ~typ:(id @-> returning (bool)) x -let isInputViewsHidden self = msg_send ~self ~cmd:(selector "isInputViewsHidden") ~typ:(returning (bool)) -let isOnScreen self = msg_send ~self ~cmd:(selector "isOnScreen") ~typ:(returning (bool)) -let isOnScreenRotating self = msg_send ~self ~cmd:(selector "isOnScreenRotating") ~typ:(returning (bool)) -let isRotating self = msg_send ~self ~cmd:(selector "isRotating") ~typ:(returning (bool)) -let isSnapshotting self = msg_send ~self ~cmd:(selector "isSnapshotting") ~typ:(returning (bool)) -let isSplitting self = msg_send ~self ~cmd:(selector "isSplitting") ~typ:(returning (bool)) -let isTransitionStarted self = msg_send ~self ~cmd:(selector "isTransitionStarted") ~typ:(returning (bool)) -let isTransitioning self = msg_send ~self ~cmd:(selector "isTransitioning") ~typ:(returning (bool)) -let isTransitioningBetweenFloatingStates self = msg_send ~self ~cmd:(selector "isTransitioningBetweenFloatingStates") ~typ:(returning (bool)) -let isTransitioningBetweenKeyboardStates self = msg_send ~self ~cmd:(selector "isTransitioningBetweenKeyboardStates") ~typ:(returning (bool)) -let isTranslating self = msg_send ~self ~cmd:(selector "isTranslating") ~typ:(returning (bool)) -let isUndocked self = msg_send ~self ~cmd:(selector "isUndocked") ~typ:(returning (bool)) -let isViewLandscape self = msg_send ~self ~cmd:(selector "isViewLandscape") ~typ:(returning (bool)) -let keyboardDismissWithInfo x self = msg_send ~self ~cmd:(selector "keyboardDismissWithInfo:") ~typ:(id @-> returning (void)) x -let keyboardHeightChangeDone self = msg_send ~self ~cmd:(selector "keyboardHeightChangeDone") ~typ:(returning (void)) -let keyboardIsDocking x self = msg_send ~self ~cmd:(selector "keyboardIsDocking:") ~typ:(bool @-> returning (void)) x -let keyboardMoveOfType x ~info self = msg_send ~self ~cmd:(selector "keyboardMoveOfType:info:") ~typ:(ullong @-> id @-> returning (void)) (ULLong.of_int x) info -let keyboardMoveWithInfo x self = msg_send ~self ~cmd:(selector "keyboardMoveWithInfo:") ~typ:(id @-> returning (void)) x -let keyboardOrientation self = msg_send ~self ~cmd:(selector "keyboardOrientation") ~typ:(returning (llong)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let mergeTransitionIfNecessaryWithTransition x self = msg_send ~self ~cmd:(selector "mergeTransitionIfNecessaryWithTransition:") ~typ:(id @-> returning (bool)) x -let moveFromPlacement x ~toPlacement ~starting ~completion self = msg_send ~self ~cmd:(selector "moveFromPlacement:toPlacement:starting:completion:") ~typ:(id @-> id @-> ptr void @-> ptr void @-> returning (void)) x toPlacement starting completion -let nextAnimationStyle self = msg_send ~self ~cmd:(selector "nextAnimationStyle") ~typ:(returning (id)) -let overrideUserInterfaceStyle self = msg_send ~self ~cmd:(selector "overrideUserInterfaceStyle") ~typ:(returning (llong)) -let performOperations x ~withAnimationStyle self = msg_send ~self ~cmd:(selector "performOperations:withAnimationStyle:") ~typ:(ptr void @-> id @-> returning (void)) x withAnimationStyle -let performOperations' x ~withTemplateNotificationInfo self = msg_send ~self ~cmd:(selector "performOperations:withTemplateNotificationInfo:") ~typ:(ptr void @-> id @-> returning (void)) x withTemplateNotificationInfo -let performWithSafeTransitionFrames x self = msg_send ~self ~cmd:(selector "performWithSafeTransitionFrames:") ~typ:(ptr void @-> returning (void)) x -let performWithoutAppearanceCallbacks x self = msg_send ~self ~cmd:(selector "performWithoutAppearanceCallbacks:") ~typ:(ptr void @-> returning (void)) x -let performWithoutCallbacksOrNotifications x self = msg_send ~self ~cmd:(selector "performWithoutCallbacksOrNotifications:") ~typ:(ptr void @-> returning (void)) x -let placement self = msg_send ~self ~cmd:(selector "placement") ~typ:(returning (id)) -let placementIgnoringRotation self = msg_send ~self ~cmd:(selector "placementIgnoringRotation") ~typ:(returning (id)) -let popAnimationStyle self = msg_send ~self ~cmd:(selector "popAnimationStyle") ~typ:(returning (void)) -let postEndNotifications x ~withInfo self = msg_send ~self ~cmd:(selector "postEndNotifications:withInfo:") ~typ:(ullong @-> id @-> returning (void)) (ULLong.of_int x) withInfo -let postRotationInputViewNotificationInfo self = msg_send ~self ~cmd:(selector "postRotationInputViewNotificationInfo") ~typ:(returning (id)) -let postRotationInputViewSet self = msg_send ~self ~cmd:(selector "postRotationInputViewSet") ~typ:(returning (id)) +let self = get_class "UIInputWindowController" + +let accessoryViewHeightConstraint self = msg_send ~self ~cmd:(selector "accessoryViewHeightConstraint") ~typ:(returning id) +let addPendingActivity x self = msg_send ~self ~cmd:(selector "addPendingActivity:") ~typ:((ptr void) @-> returning void) x +let animateAccessoryViewVisibility x ~withDuration self = msg_send ~self ~cmd:(selector "animateAccessoryViewVisibility:withDuration:") ~typ:(bool @-> double @-> returning void) x withDuration +let appearStateForChild x ~placement ~start self = msg_send ~self ~cmd:(selector "appearStateForChild:placement:start:") ~typ:(ullong @-> id @-> bool @-> returning int) (ULLong.of_int x) placement start +let assistantViewHeightConstraint self = msg_send ~self ~cmd:(selector "assistantViewHeightConstraint") ~typ:(returning id) +let beginFloatingTransitionFromPanGestureRecognizer x self = msg_send ~self ~cmd:(selector "beginFloatingTransitionFromPanGestureRecognizer:") ~typ:(id @-> returning void) x +let bottomEdgeView self = msg_send ~self ~cmd:(selector "bottomEdgeView") ~typ:(returning id) +let candidateBarWillChangeHeight x ~withDuration self = msg_send ~self ~cmd:(selector "candidateBarWillChangeHeight:withDuration:") ~typ:(double @-> double @-> returning void) x withDuration +let chainPlacementsIfNecessaryFrom x ~toPlacement ~transition ~completion self = msg_send ~self ~cmd:(selector "chainPlacementsIfNecessaryFrom:toPlacement:transition:completion:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x toPlacement transition completion +let changeChild x ~toAppearState ~animated self = msg_send ~self ~cmd:(selector "changeChild:toAppearState:animated:") ~typ:(ullong @-> int @-> bool @-> returning void) (ULLong.of_int x) toAppearState animated +let changeGuideAnimationOptions x ~duration self = msg_send ~self ~cmd:(selector "changeGuideAnimationOptions:duration:") ~typ:(ullong @-> double @-> returning void) (ULLong.of_int x) duration +let changeGuideAnimationState x self = msg_send ~self ~cmd:(selector "changeGuideAnimationState:") ~typ:(bool @-> returning void) x +let changeToInputViewSet x self = msg_send ~self ~cmd:(selector "changeToInputViewSet:") ~typ:(id @-> returning ullong) x +let checkPlaceholdersForRemoteKeyboardsAndForceConstraintsUpdate x ~layoutSubviews self = msg_send ~self ~cmd:(selector "checkPlaceholdersForRemoteKeyboardsAndForceConstraintsUpdate:layoutSubviews:") ~typ:(bool @-> bool @-> returning void) x layoutSubviews +let convertRectFromContainerCoordinateSpaceToScreenSpace x self = msg_send ~self ~cmd:(selector "convertRectFromContainerCoordinateSpaceToScreenSpace:") ~typ:(CGRect.t @-> returning CGRect.t) x +let currentPresentationPlacement self = msg_send ~self ~cmd:(selector "currentPresentationPlacement") ~typ:(returning id) +let currentTransition self = msg_send ~self ~cmd:(selector "currentTransition") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didEndIndirectSelectionGesture self = msg_send ~self ~cmd:(selector "didEndIndirectSelectionGesture") ~typ:(returning void) +let didEndTransitionWithController x self = msg_send ~self ~cmd:(selector "didEndTransitionWithController:") ~typ:(id @-> returning void) x +let didReceiveMemoryWarning self = msg_send ~self ~cmd:(selector "didReceiveMemoryWarning") ~typ:(returning void) +let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let didSnapshot self = msg_send ~self ~cmd:(selector "didSnapshot") ~typ:(returning void) +let didSuspend x self = msg_send ~self ~cmd:(selector "didSuspend:") ~typ:(id @-> returning void) x +let dismissViewController x self = msg_send ~self ~cmd:(selector "dismissViewController:") ~typ:(id @-> returning void) x +let dontDismissKeyboardOnScrolling self = msg_send ~self ~cmd:(selector "dontDismissKeyboardOnScrolling") ~typ:(returning bool) +let dontDismissReachability self = msg_send ~self ~cmd:(selector "dontDismissReachability") ~typ:(returning bool) +let expectedPlacement self = msg_send ~self ~cmd:(selector "expectedPlacement") ~typ:(returning id) +let extendKeyboardBackdropHeight x ~withDuration self = msg_send ~self ~cmd:(selector "extendKeyboardBackdropHeight:withDuration:") ~typ:(double @-> double @-> returning void) x withDuration +let finishSplitTransition self = msg_send ~self ~cmd:(selector "finishSplitTransition") ~typ:(returning void) +let flushPendingActivities self = msg_send ~self ~cmd:(selector "flushPendingActivities") ~typ:(returning void) +let forceAccessoryViewToBottomOfHostView self = msg_send ~self ~cmd:(selector "forceAccessoryViewToBottomOfHostView") ~typ:(returning bool) +let generateNotificationsForStart x self = msg_send ~self ~cmd:(selector "generateNotificationsForStart:") ~typ:(bool @-> returning void) x +let hasInputOrAssistantViewsOnScreen self = msg_send ~self ~cmd:(selector "hasInputOrAssistantViewsOnScreen") ~typ:(returning bool) +let hostAppSceneBoundsChanged self = msg_send ~self ~cmd:(selector "hostAppSceneBoundsChanged") ~typ:(returning void) +let hostViewDidEnterBackground self = msg_send ~self ~cmd:(selector "hostViewDidEnterBackground") ~typ:(returning void) +let hostViewWillDisappear self = msg_send ~self ~cmd:(selector "hostViewWillDisappear") ~typ:(returning void) +let hostViewWillenterForeground self = msg_send ~self ~cmd:(selector "hostViewWillenterForeground") ~typ:(returning void) +let hosting self = msg_send ~self ~cmd:(selector "hosting") ~typ:(returning id) +let ignoreLayoutNotifications x self = msg_send ~self ~cmd:(selector "ignoreLayoutNotifications:") ~typ:((ptr void) @-> returning void) x +let inhibitRotationAnimation self = msg_send ~self ~cmd:(selector "inhibitRotationAnimation") ~typ:(returning bool) +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let initialNotificationInfo self = msg_send ~self ~cmd:(selector "initialNotificationInfo") ~typ:(returning id) +let inputSetContainerView self = msg_send ~self ~cmd:(selector "inputSetContainerView") ~typ:(returning id) +let inputViewHeightConstraint self = msg_send ~self ~cmd:(selector "inputViewHeightConstraint") ~typ:(returning id) +let inputViewSet self = msg_send ~self ~cmd:(selector "inputViewSet") ~typ:(returning id) +let inputViewSetContainsView x self = msg_send ~self ~cmd:(selector "inputViewSetContainsView:") ~typ:(id @-> returning bool) x +let inputViewSnapshotOfView x ~afterScreenUpdates self = msg_send ~self ~cmd:(selector "inputViewSnapshotOfView:afterScreenUpdates:") ~typ:(id @-> bool @-> returning id) x afterScreenUpdates +let inputWindowControllerForController x self = msg_send ~self ~cmd:(selector "inputWindowControllerForController:") ~typ:(id @-> returning id) x +let invalidateInputAccessoryView self = msg_send ~self ~cmd:(selector "invalidateInputAccessoryView") ~typ:(returning void) +let invalidateInputAssistantView self = msg_send ~self ~cmd:(selector "invalidateInputAssistantView") ~typ:(returning void) +let invalidateInputView self = msg_send ~self ~cmd:(selector "invalidateInputView") ~typ:(returning void) +let isChangingInputViews self = msg_send ~self ~cmd:(selector "isChangingInputViews") ~typ:(returning bool) +let isChangingPlacement self = msg_send ~self ~cmd:(selector "isChangingPlacement") ~typ:(returning bool) +let isDragging self = msg_send ~self ~cmd:(selector "isDragging") ~typ:(returning bool) +let isHostingView x self = msg_send ~self ~cmd:(selector "isHostingView:") ~typ:(id @-> returning bool) x +let isInputViewsHidden self = msg_send ~self ~cmd:(selector "isInputViewsHidden") ~typ:(returning bool) +let isOnScreen self = msg_send ~self ~cmd:(selector "isOnScreen") ~typ:(returning bool) +let isOnScreenRotating self = msg_send ~self ~cmd:(selector "isOnScreenRotating") ~typ:(returning bool) +let isRotating self = msg_send ~self ~cmd:(selector "isRotating") ~typ:(returning bool) +let isSnapshotting self = msg_send ~self ~cmd:(selector "isSnapshotting") ~typ:(returning bool) +let isSplitting self = msg_send ~self ~cmd:(selector "isSplitting") ~typ:(returning bool) +let isTransitionStarted self = msg_send ~self ~cmd:(selector "isTransitionStarted") ~typ:(returning bool) +let isTransitioning self = msg_send ~self ~cmd:(selector "isTransitioning") ~typ:(returning bool) +let isTransitioningBetweenFloatingStates self = msg_send ~self ~cmd:(selector "isTransitioningBetweenFloatingStates") ~typ:(returning bool) +let isTransitioningBetweenKeyboardStates self = msg_send ~self ~cmd:(selector "isTransitioningBetweenKeyboardStates") ~typ:(returning bool) +let isTranslating self = msg_send ~self ~cmd:(selector "isTranslating") ~typ:(returning bool) +let isUndocked self = msg_send ~self ~cmd:(selector "isUndocked") ~typ:(returning bool) +let isViewLandscape self = msg_send ~self ~cmd:(selector "isViewLandscape") ~typ:(returning bool) +let keyboardDismissWithInfo x self = msg_send ~self ~cmd:(selector "keyboardDismissWithInfo:") ~typ:(id @-> returning void) x +let keyboardHeightChangeDone self = msg_send ~self ~cmd:(selector "keyboardHeightChangeDone") ~typ:(returning void) +let keyboardIsDocking x self = msg_send ~self ~cmd:(selector "keyboardIsDocking:") ~typ:(bool @-> returning void) x +let keyboardMoveOfType x ~info self = msg_send ~self ~cmd:(selector "keyboardMoveOfType:info:") ~typ:(ullong @-> id @-> returning void) (ULLong.of_int x) info +let keyboardMoveWithInfo x self = msg_send ~self ~cmd:(selector "keyboardMoveWithInfo:") ~typ:(id @-> returning void) x +let keyboardOrientation self = msg_send ~self ~cmd:(selector "keyboardOrientation") ~typ:(returning llong) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let mergeTransitionIfNecessaryWithTransition x self = msg_send ~self ~cmd:(selector "mergeTransitionIfNecessaryWithTransition:") ~typ:(id @-> returning bool) x +let moveFromPlacement x ~toPlacement ~starting ~completion self = msg_send ~self ~cmd:(selector "moveFromPlacement:toPlacement:starting:completion:") ~typ:(id @-> id @-> (ptr void) @-> (ptr void) @-> returning void) x toPlacement starting completion +let nextAnimationStyle self = msg_send ~self ~cmd:(selector "nextAnimationStyle") ~typ:(returning id) +let overrideUserInterfaceStyle self = msg_send ~self ~cmd:(selector "overrideUserInterfaceStyle") ~typ:(returning llong) +let performOperations x ~withAnimationStyle self = msg_send ~self ~cmd:(selector "performOperations:withAnimationStyle:") ~typ:((ptr void) @-> id @-> returning void) x withAnimationStyle +let performOperations' x ~withTemplateNotificationInfo self = msg_send ~self ~cmd:(selector "performOperations:withTemplateNotificationInfo:") ~typ:((ptr void) @-> id @-> returning void) x withTemplateNotificationInfo +let performWithSafeTransitionFrames x self = msg_send ~self ~cmd:(selector "performWithSafeTransitionFrames:") ~typ:((ptr void) @-> returning void) x +let performWithoutAppearanceCallbacks x self = msg_send ~self ~cmd:(selector "performWithoutAppearanceCallbacks:") ~typ:((ptr void) @-> returning void) x +let performWithoutCallbacksOrNotifications x self = msg_send ~self ~cmd:(selector "performWithoutCallbacksOrNotifications:") ~typ:((ptr void) @-> returning void) x +let placement self = msg_send ~self ~cmd:(selector "placement") ~typ:(returning id) +let placementIgnoringRotation self = msg_send ~self ~cmd:(selector "placementIgnoringRotation") ~typ:(returning id) +let popAnimationStyle self = msg_send ~self ~cmd:(selector "popAnimationStyle") ~typ:(returning void) +let postEndNotifications x ~withInfo self = msg_send ~self ~cmd:(selector "postEndNotifications:withInfo:") ~typ:(ullong @-> id @-> returning void) (ULLong.of_int x) withInfo +let postRotationInputViewNotificationInfo self = msg_send ~self ~cmd:(selector "postRotationInputViewNotificationInfo") ~typ:(returning id) +let postRotationInputViewSet self = msg_send ~self ~cmd:(selector "postRotationInputViewSet") ~typ:(returning id) let postRotationPendingBlock self = msg_send ~self ~cmd:(selector "postRotationPendingBlock") ~typ:(returning (ptr void)) -let postRotationPlacement self = msg_send ~self ~cmd:(selector "postRotationPlacement") ~typ:(returning (id)) -let postStartNotifications x ~withInfo self = msg_send ~self ~cmd:(selector "postStartNotifications:withInfo:") ~typ:(ullong @-> id @-> returning (void)) (ULLong.of_int x) withInfo -let postTransitionEndNotification self = msg_send ~self ~cmd:(selector "postTransitionEndNotification") ~typ:(returning (void)) -let postValidatedEndNotifications x ~withInfo self = msg_send ~self ~cmd:(selector "postValidatedEndNotifications:withInfo:") ~typ:(ullong @-> id @-> returning (void)) (ULLong.of_int x) withInfo -let postValidatedStartNotifications x ~withInfo self = msg_send ~self ~cmd:(selector "postValidatedStartNotifications:withInfo:") ~typ:(ullong @-> id @-> returning (void)) (ULLong.of_int x) withInfo -let prepareForInputAssistant x ~animated self = msg_send ~self ~cmd:(selector "prepareForInputAssistant:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let prepareForSplitTransition self = msg_send ~self ~cmd:(selector "prepareForSplitTransition") ~typ:(returning (void)) -let prepareKeyboardHeightChangeWithDelta x ~duration self = msg_send ~self ~cmd:(selector "prepareKeyboardHeightChangeWithDelta:duration:") ~typ:(double @-> double @-> returning (void)) x duration -let presentViewController x self = msg_send ~self ~cmd:(selector "presentViewController:") ~typ:(id @-> returning (void)) x -let pushAnimationStyle x self = msg_send ~self ~cmd:(selector "pushAnimationStyle:") ~typ:(id @-> returning (void)) x -let registerPowerLogEvent x self = msg_send ~self ~cmd:(selector "registerPowerLogEvent:") ~typ:(bool @-> returning (void)) x -let resetBackdropHeight self = msg_send ~self ~cmd:(selector "resetBackdropHeight") ~typ:(returning (void)) -let screenSnapshotOfView x self = msg_send ~self ~cmd:(selector "screenSnapshotOfView:") ~typ:(id @-> returning (id)) x -let setAccessoryViewHeightConstraint x self = msg_send ~self ~cmd:(selector "setAccessoryViewHeightConstraint:") ~typ:(id @-> returning (void)) x -let setAssistantViewHeightConstraint x self = msg_send ~self ~cmd:(selector "setAssistantViewHeightConstraint:") ~typ:(id @-> returning (void)) x -let setCurrentTransition x self = msg_send ~self ~cmd:(selector "setCurrentTransition:") ~typ:(id @-> returning (void)) x -let setDisableUpdateMaskForSecureTextEntry x self = msg_send ~self ~cmd:(selector "setDisableUpdateMaskForSecureTextEntry:") ~typ:(bool @-> returning (void)) x -let setDontDismissKeyboardOnScrolling x self = msg_send ~self ~cmd:(selector "setDontDismissKeyboardOnScrolling:") ~typ:(bool @-> returning (void)) x -let setDontDismissReachability x self = msg_send ~self ~cmd:(selector "setDontDismissReachability:") ~typ:(bool @-> returning (void)) x -let setExclusiveTouch x self = msg_send ~self ~cmd:(selector "setExclusiveTouch:") ~typ:(bool @-> returning (void)) x -let setForceAccessoryViewToBottomOfHostView x self = msg_send ~self ~cmd:(selector "setForceAccessoryViewToBottomOfHostView:") ~typ:(bool @-> returning (void)) x -let setHostingNeedsLayout self = msg_send ~self ~cmd:(selector "setHostingNeedsLayout") ~typ:(returning (void)) -let setInputView x ~accessoryView ~assistantView self = msg_send ~self ~cmd:(selector "setInputView:accessoryView:assistantView:") ~typ:(id @-> id @-> id @-> returning (void)) x accessoryView assistantView -let setInputViewHeightConstraint x self = msg_send ~self ~cmd:(selector "setInputViewHeightConstraint:") ~typ:(id @-> returning (void)) x -let setInputViewSet x self = msg_send ~self ~cmd:(selector "setInputViewSet:") ~typ:(id @-> returning (void)) x -let setInputViewSet' x ~forKeyboardAssistantBar self = msg_send ~self ~cmd:(selector "setInputViewSet:forKeyboardAssistantBar:") ~typ:(id @-> id @-> returning (void)) x forKeyboardAssistantBar -let setInputViewsHidden x self = msg_send ~self ~cmd:(selector "setInputViewsHidden:") ~typ:(bool @-> returning (void)) x -let setInterfaceAutorotationDisabled x self = msg_send ~self ~cmd:(selector "setInterfaceAutorotationDisabled:") ~typ:(bool @-> returning (void)) x -let setPlacement x self = msg_send ~self ~cmd:(selector "setPlacement:") ~typ:(id @-> returning (void)) x -let setPlacement1 x ~completion self = msg_send ~self ~cmd:(selector "setPlacement:completion:") ~typ:(id @-> ptr void @-> returning (void)) x completion -let setPlacement2 x ~starting ~completion self = msg_send ~self ~cmd:(selector "setPlacement:starting:completion:") ~typ:(id @-> ptr void @-> ptr void @-> returning (void)) x starting completion -let setPlacement3 x ~quietly ~animated ~generateSplitNotification self = msg_send ~self ~cmd:(selector "setPlacement:quietly:animated:generateSplitNotification:") ~typ:(id @-> bool @-> bool @-> bool @-> returning (void)) x quietly animated generateSplitNotification -let setPlacementChangeDisabled x ~withPlacement self = msg_send ~self ~cmd:(selector "setPlacementChangeDisabled:withPlacement:") ~typ:(bool @-> id @-> returning (void)) x withPlacement -let setPostRotationInputViewNotificationInfo x self = msg_send ~self ~cmd:(selector "setPostRotationInputViewNotificationInfo:") ~typ:(id @-> returning (void)) x -let setPostRotationInputViewSet x self = msg_send ~self ~cmd:(selector "setPostRotationInputViewSet:") ~typ:(id @-> returning (void)) x -let setPostRotationPendingBlock x self = msg_send ~self ~cmd:(selector "setPostRotationPendingBlock:") ~typ:(ptr void @-> returning (void)) x -let setPostRotationPlacement x self = msg_send ~self ~cmd:(selector "setPostRotationPlacement:") ~typ:(id @-> returning (void)) x -let setRotationAwarePlacement x self = msg_send ~self ~cmd:(selector "setRotationAwarePlacement:") ~typ:(id @-> returning (void)) x -let setShouldNotifyRemoteKeyboards x self = msg_send ~self ~cmd:(selector "setShouldNotifyRemoteKeyboards:") ~typ:(bool @-> returning (void)) x -let setTemplateNotificationInfo x self = msg_send ~self ~cmd:(selector "setTemplateNotificationInfo:") ~typ:(id @-> returning (void)) x -let setTransientInputViewSet x self = msg_send ~self ~cmd:(selector "setTransientInputViewSet:") ~typ:(id @-> returning (void)) x -let shouldBeginTransitionForController x self = msg_send ~self ~cmd:(selector "shouldBeginTransitionForController:") ~typ:(id @-> returning (bool)) x -let shouldNotifyRemoteKeyboards self = msg_send ~self ~cmd:(selector "shouldNotifyRemoteKeyboards") ~typ:(returning (bool)) -let sizesWindowToScene self = msg_send ~self ~cmd:(selector "sizesWindowToScene") ~typ:(returning (bool)) -let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning (ullong)) -let syncToExistingAnimations self = msg_send ~self ~cmd:(selector "syncToExistingAnimations") ~typ:(returning (void)) -let templateNotificationInfo self = msg_send ~self ~cmd:(selector "templateNotificationInfo") ~typ:(returning (id)) -let transferActiveNotificationInfoToInfo x self = msg_send ~self ~cmd:(selector "transferActiveNotificationInfoToInfo:") ~typ:(id @-> returning (void)) x -let transferPlacementStateToInputWindowController x self = msg_send ~self ~cmd:(selector "transferPlacementStateToInputWindowController:") ~typ:(id @-> returning (void)) x -let transientInputViewSet self = msg_send ~self ~cmd:(selector "transientInputViewSet") ~typ:(returning (id)) -let transitioningFrame self = msg_send_stret ~self ~cmd:(selector "transitioningFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let transitioningView self = msg_send ~self ~cmd:(selector "transitioningView") ~typ:(returning (id)) -let updateAmbiguousControlCenterActivationMargin x ~withInfo self = msg_send ~self ~cmd:(selector "updateAmbiguousControlCenterActivationMargin:withInfo:") ~typ:(ullong @-> id @-> returning (void)) (ULLong.of_int x) withInfo -let updateAppearStatesForPlacement x ~start ~animated self = msg_send ~self ~cmd:(selector "updateAppearStatesForPlacement:start:animated:") ~typ:(id @-> bool @-> bool @-> returning (void)) x start animated -let updateForKeyplaneChangeWithContext x self = msg_send ~self ~cmd:(selector "updateForKeyplaneChangeWithContext:") ~typ:(id @-> returning (void)) x -let updateGestureRecognizers self = msg_send ~self ~cmd:(selector "updateGestureRecognizers") ~typ:(returning (void)) -let updateGuideForOffscreenRotationWithDuration x self = msg_send ~self ~cmd:(selector "updateGuideForOffscreenRotationWithDuration:") ~typ:(double @-> returning (void)) x -let updateInputAssistantView x self = msg_send ~self ~cmd:(selector "updateInputAssistantView:") ~typ:(id @-> returning (void)) x -let updateInputAssistantViewForInputViewSet x self = msg_send ~self ~cmd:(selector "updateInputAssistantViewForInputViewSet:") ~typ:(id @-> returning (void)) x -let updateKeyboardDockViewVisibility self = msg_send ~self ~cmd:(selector "updateKeyboardDockViewVisibility") ~typ:(returning (void)) -let updateKeyboardSizeClass self = msg_send ~self ~cmd:(selector "updateKeyboardSizeClass") ~typ:(returning (void)) -let updateSupportsDockViewController self = msg_send ~self ~cmd:(selector "updateSupportsDockViewController") ~typ:(returning (void)) -let updateToPlacement x ~withNormalAnimationsAndNotifications self = msg_send ~self ~cmd:(selector "updateToPlacement:withNormalAnimationsAndNotifications:") ~typ:(id @-> bool @-> returning (void)) x withNormalAnimationsAndNotifications -let updateViewConstraints self = msg_send ~self ~cmd:(selector "updateViewConstraints") ~typ:(returning (void)) -let updateViewSizingConstraints self = msg_send ~self ~cmd:(selector "updateViewSizingConstraints") ~typ:(returning (void)) -let updateVisibilityConstraintsForPlacement x self = msg_send ~self ~cmd:(selector "updateVisibilityConstraintsForPlacement:") ~typ:(id @-> returning (void)) x -let validateInputView self = msg_send ~self ~cmd:(selector "validateInputView") ~typ:(returning (void)) -let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning (void)) -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewForTransitionScreenSnapshot self = msg_send ~self ~cmd:(selector "viewForTransitionScreenSnapshot") ~typ:(returning (id)) -let viewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "viewWillLayoutSubviews") ~typ:(returning (void)) -let visibleFrame self = msg_send_stret ~self ~cmd:(selector "visibleFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let visibleInputViewFrame self = msg_send_stret ~self ~cmd:(selector "visibleInputViewFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willBeginIndirectSelectionGesture self = msg_send ~self ~cmd:(selector "willBeginIndirectSelectionGesture") ~typ:(returning (void)) -let willBeginTransitionWithController x self = msg_send ~self ~cmd:(selector "willBeginTransitionWithController:") ~typ:(id @-> returning (void)) x -let willResume x self = msg_send ~self ~cmd:(selector "willResume:") ~typ:(id @-> returning (void)) x -let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willSnapshot self = msg_send ~self ~cmd:(selector "willSnapshot") ~typ:(returning (void)) -let window x ~statusBarWillChangeFromHeight ~toHeight self = msg_send ~self ~cmd:(selector "window:statusBarWillChangeFromHeight:toHeight:") ~typ:(id @-> double @-> double @-> returning (void)) x statusBarWillChangeFromHeight toHeight \ No newline at end of file +let postRotationPlacement self = msg_send ~self ~cmd:(selector "postRotationPlacement") ~typ:(returning id) +let postStartNotifications x ~withInfo self = msg_send ~self ~cmd:(selector "postStartNotifications:withInfo:") ~typ:(ullong @-> id @-> returning void) (ULLong.of_int x) withInfo +let postTransitionEndNotification self = msg_send ~self ~cmd:(selector "postTransitionEndNotification") ~typ:(returning void) +let postValidatedEndNotifications x ~withInfo self = msg_send ~self ~cmd:(selector "postValidatedEndNotifications:withInfo:") ~typ:(ullong @-> id @-> returning void) (ULLong.of_int x) withInfo +let postValidatedStartNotifications x ~withInfo self = msg_send ~self ~cmd:(selector "postValidatedStartNotifications:withInfo:") ~typ:(ullong @-> id @-> returning void) (ULLong.of_int x) withInfo +let prepareForInputAssistant x ~animated self = msg_send ~self ~cmd:(selector "prepareForInputAssistant:animated:") ~typ:(id @-> bool @-> returning void) x animated +let prepareForSplitTransition self = msg_send ~self ~cmd:(selector "prepareForSplitTransition") ~typ:(returning void) +let prepareKeyboardHeightChangeWithDelta x ~duration self = msg_send ~self ~cmd:(selector "prepareKeyboardHeightChangeWithDelta:duration:") ~typ:(double @-> double @-> returning void) x duration +let presentViewController x self = msg_send ~self ~cmd:(selector "presentViewController:") ~typ:(id @-> returning void) x +let pushAnimationStyle x self = msg_send ~self ~cmd:(selector "pushAnimationStyle:") ~typ:(id @-> returning void) x +let registerPowerLogEvent x self = msg_send ~self ~cmd:(selector "registerPowerLogEvent:") ~typ:(bool @-> returning void) x +let resetBackdropHeight self = msg_send ~self ~cmd:(selector "resetBackdropHeight") ~typ:(returning void) +let screenSnapshotOfView x self = msg_send ~self ~cmd:(selector "screenSnapshotOfView:") ~typ:(id @-> returning id) x +let setAccessoryViewHeightConstraint x self = msg_send ~self ~cmd:(selector "setAccessoryViewHeightConstraint:") ~typ:(id @-> returning void) x +let setAssistantViewHeightConstraint x self = msg_send ~self ~cmd:(selector "setAssistantViewHeightConstraint:") ~typ:(id @-> returning void) x +let setCurrentTransition x self = msg_send ~self ~cmd:(selector "setCurrentTransition:") ~typ:(id @-> returning void) x +let setDisableUpdateMaskForSecureTextEntry x self = msg_send ~self ~cmd:(selector "setDisableUpdateMaskForSecureTextEntry:") ~typ:(bool @-> returning void) x +let setDontDismissKeyboardOnScrolling x self = msg_send ~self ~cmd:(selector "setDontDismissKeyboardOnScrolling:") ~typ:(bool @-> returning void) x +let setDontDismissReachability x self = msg_send ~self ~cmd:(selector "setDontDismissReachability:") ~typ:(bool @-> returning void) x +let setExclusiveTouch x self = msg_send ~self ~cmd:(selector "setExclusiveTouch:") ~typ:(bool @-> returning void) x +let setForceAccessoryViewToBottomOfHostView x self = msg_send ~self ~cmd:(selector "setForceAccessoryViewToBottomOfHostView:") ~typ:(bool @-> returning void) x +let setHostingNeedsLayout self = msg_send ~self ~cmd:(selector "setHostingNeedsLayout") ~typ:(returning void) +let setInputView x ~accessoryView ~assistantView self = msg_send ~self ~cmd:(selector "setInputView:accessoryView:assistantView:") ~typ:(id @-> id @-> id @-> returning void) x accessoryView assistantView +let setInputViewHeightConstraint x self = msg_send ~self ~cmd:(selector "setInputViewHeightConstraint:") ~typ:(id @-> returning void) x +let setInputViewSet x self = msg_send ~self ~cmd:(selector "setInputViewSet:") ~typ:(id @-> returning void) x +let setInputViewSet' x ~forKeyboardAssistantBar self = msg_send ~self ~cmd:(selector "setInputViewSet:forKeyboardAssistantBar:") ~typ:(id @-> id @-> returning void) x forKeyboardAssistantBar +let setInputViewsHidden x self = msg_send ~self ~cmd:(selector "setInputViewsHidden:") ~typ:(bool @-> returning void) x +let setInterfaceAutorotationDisabled x self = msg_send ~self ~cmd:(selector "setInterfaceAutorotationDisabled:") ~typ:(bool @-> returning void) x +let setPlacement x self = msg_send ~self ~cmd:(selector "setPlacement:") ~typ:(id @-> returning void) x +let setPlacement1 x ~completion self = msg_send ~self ~cmd:(selector "setPlacement:completion:") ~typ:(id @-> (ptr void) @-> returning void) x completion +let setPlacement2 x ~starting ~completion self = msg_send ~self ~cmd:(selector "setPlacement:starting:completion:") ~typ:(id @-> (ptr void) @-> (ptr void) @-> returning void) x starting completion +let setPlacement3 x ~quietly ~animated ~generateSplitNotification self = msg_send ~self ~cmd:(selector "setPlacement:quietly:animated:generateSplitNotification:") ~typ:(id @-> bool @-> bool @-> bool @-> returning void) x quietly animated generateSplitNotification +let setPlacementChangeDisabled x ~withPlacement self = msg_send ~self ~cmd:(selector "setPlacementChangeDisabled:withPlacement:") ~typ:(bool @-> id @-> returning void) x withPlacement +let setPostRotationInputViewNotificationInfo x self = msg_send ~self ~cmd:(selector "setPostRotationInputViewNotificationInfo:") ~typ:(id @-> returning void) x +let setPostRotationInputViewSet x self = msg_send ~self ~cmd:(selector "setPostRotationInputViewSet:") ~typ:(id @-> returning void) x +let setPostRotationPendingBlock x self = msg_send ~self ~cmd:(selector "setPostRotationPendingBlock:") ~typ:((ptr void) @-> returning void) x +let setPostRotationPlacement x self = msg_send ~self ~cmd:(selector "setPostRotationPlacement:") ~typ:(id @-> returning void) x +let setRotationAwarePlacement x self = msg_send ~self ~cmd:(selector "setRotationAwarePlacement:") ~typ:(id @-> returning void) x +let setShouldNotifyRemoteKeyboards x self = msg_send ~self ~cmd:(selector "setShouldNotifyRemoteKeyboards:") ~typ:(bool @-> returning void) x +let setTemplateNotificationInfo x self = msg_send ~self ~cmd:(selector "setTemplateNotificationInfo:") ~typ:(id @-> returning void) x +let setTransientInputViewSet x self = msg_send ~self ~cmd:(selector "setTransientInputViewSet:") ~typ:(id @-> returning void) x +let shouldBeginTransitionForController x self = msg_send ~self ~cmd:(selector "shouldBeginTransitionForController:") ~typ:(id @-> returning bool) x +let shouldNotifyRemoteKeyboards self = msg_send ~self ~cmd:(selector "shouldNotifyRemoteKeyboards") ~typ:(returning bool) +let sizesWindowToScene self = msg_send ~self ~cmd:(selector "sizesWindowToScene") ~typ:(returning bool) +let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning ullong) +let syncToExistingAnimations self = msg_send ~self ~cmd:(selector "syncToExistingAnimations") ~typ:(returning void) +let templateNotificationInfo self = msg_send ~self ~cmd:(selector "templateNotificationInfo") ~typ:(returning id) +let transferActiveNotificationInfoToInfo x self = msg_send ~self ~cmd:(selector "transferActiveNotificationInfoToInfo:") ~typ:(id @-> returning void) x +let transferPlacementStateToInputWindowController x self = msg_send ~self ~cmd:(selector "transferPlacementStateToInputWindowController:") ~typ:(id @-> returning void) x +let transientInputViewSet self = msg_send ~self ~cmd:(selector "transientInputViewSet") ~typ:(returning id) +let transitioningFrame self = msg_send ~self ~cmd:(selector "transitioningFrame") ~typ:(returning CGRect.t) +let transitioningView self = msg_send ~self ~cmd:(selector "transitioningView") ~typ:(returning id) +let updateAmbiguousControlCenterActivationMargin x ~withInfo self = msg_send ~self ~cmd:(selector "updateAmbiguousControlCenterActivationMargin:withInfo:") ~typ:(ullong @-> id @-> returning void) (ULLong.of_int x) withInfo +let updateAppearStatesForPlacement x ~start ~animated self = msg_send ~self ~cmd:(selector "updateAppearStatesForPlacement:start:animated:") ~typ:(id @-> bool @-> bool @-> returning void) x start animated +let updateForKeyplaneChangeWithContext x self = msg_send ~self ~cmd:(selector "updateForKeyplaneChangeWithContext:") ~typ:(id @-> returning void) x +let updateGestureRecognizers self = msg_send ~self ~cmd:(selector "updateGestureRecognizers") ~typ:(returning void) +let updateGuideForOffscreenRotationWithDuration x self = msg_send ~self ~cmd:(selector "updateGuideForOffscreenRotationWithDuration:") ~typ:(double @-> returning void) x +let updateInputAssistantView x self = msg_send ~self ~cmd:(selector "updateInputAssistantView:") ~typ:(id @-> returning void) x +let updateInputAssistantViewForInputViewSet x self = msg_send ~self ~cmd:(selector "updateInputAssistantViewForInputViewSet:") ~typ:(id @-> returning void) x +let updateKeyboardDockViewVisibility self = msg_send ~self ~cmd:(selector "updateKeyboardDockViewVisibility") ~typ:(returning void) +let updateKeyboardSizeClass self = msg_send ~self ~cmd:(selector "updateKeyboardSizeClass") ~typ:(returning void) +let updateSupportsDockViewController self = msg_send ~self ~cmd:(selector "updateSupportsDockViewController") ~typ:(returning void) +let updateToPlacement x ~withNormalAnimationsAndNotifications self = msg_send ~self ~cmd:(selector "updateToPlacement:withNormalAnimationsAndNotifications:") ~typ:(id @-> bool @-> returning void) x withNormalAnimationsAndNotifications +let updateViewConstraints self = msg_send ~self ~cmd:(selector "updateViewConstraints") ~typ:(returning void) +let updateViewSizingConstraints self = msg_send ~self ~cmd:(selector "updateViewSizingConstraints") ~typ:(returning void) +let updateVisibilityConstraintsForPlacement x self = msg_send ~self ~cmd:(selector "updateVisibilityConstraintsForPlacement:") ~typ:(id @-> returning void) x +let validateInputView self = msg_send ~self ~cmd:(selector "validateInputView") ~typ:(returning void) +let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning void) +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewForTransitionScreenSnapshot self = msg_send ~self ~cmd:(selector "viewForTransitionScreenSnapshot") ~typ:(returning id) +let viewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "viewWillLayoutSubviews") ~typ:(returning void) +let visibleFrame self = msg_send ~self ~cmd:(selector "visibleFrame") ~typ:(returning CGRect.t) +let visibleInputViewFrame self = msg_send ~self ~cmd:(selector "visibleInputViewFrame") ~typ:(returning CGRect.t) +let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willBeginIndirectSelectionGesture self = msg_send ~self ~cmd:(selector "willBeginIndirectSelectionGesture") ~typ:(returning void) +let willBeginTransitionWithController x self = msg_send ~self ~cmd:(selector "willBeginTransitionWithController:") ~typ:(id @-> returning void) x +let willResume x self = msg_send ~self ~cmd:(selector "willResume:") ~typ:(id @-> returning void) x +let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willSnapshot self = msg_send ~self ~cmd:(selector "willSnapshot") ~typ:(returning void) +let window x ~statusBarWillChangeFromHeight ~toHeight self = msg_send ~self ~cmd:(selector "window:statusBarWillChangeFromHeight:toHeight:") ~typ:(id @-> double @-> double @-> returning void) x statusBarWillChangeFromHeight toHeight \ No newline at end of file diff --git a/uikit/UIInputWindowControllerHosting.ml b/uikit/UIInputWindowControllerHosting.ml index b0f1091d..50881f51 100644 --- a/uikit/UIInputWindowControllerHosting.ml +++ b/uikit/UIInputWindowControllerHosting.ml @@ -5,39 +5,43 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputWindowControllerHosting" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputwindowcontrollerhosting?language=objc}UIInputWindowControllerHosting} *) -let allHostingItems self = msg_send ~self ~cmd:(selector "allHostingItems") ~typ:(returning (id)) -let clearInputAccessoryViewEdgeConstraints self = msg_send ~self ~cmd:(selector "clearInputAccessoryViewEdgeConstraints") ~typ:(returning (void)) -let clearInputAssistantViewEdgeConstraints self = msg_send ~self ~cmd:(selector "clearInputAssistantViewEdgeConstraints") ~typ:(returning (void)) -let clearInputViewEdgeConstraints self = msg_send ~self ~cmd:(selector "clearInputViewEdgeConstraints") ~typ:(returning (void)) -let disableViewSizingConstraints x ~forNewView self = msg_send ~self ~cmd:(selector "disableViewSizingConstraints:forNewView:") ~typ:(ullong @-> id @-> returning (void)) (ULLong.of_int x) forNewView -let expectedPlacementForHost x self = msg_send ~self ~cmd:(selector "expectedPlacementForHost:") ~typ:(id @-> returning (id)) x -let extendKeyboardBackdropHeight x ~withDuration self = msg_send ~self ~cmd:(selector "extendKeyboardBackdropHeight:withDuration:") ~typ:(double @-> double @-> returning (void)) x withDuration -let extraHostsRequired self = msg_send ~self ~cmd:(selector "extraHostsRequired") ~typ:(returning (int)) -let host x ~isForPurpose self = msg_send ~self ~cmd:(selector "host:isForPurpose:") ~typ:(id @-> ullong @-> returning (bool)) x (ULLong.of_int isForPurpose) -let indexOfHost x self = msg_send ~self ~cmd:(selector "indexOfHost:") ~typ:(id @-> returning (ullong)) x -let initWithHost x self = msg_send ~self ~cmd:(selector "initWithHost:") ~typ:(id @-> returning (id)) x -let initializeTranslateGestureRecognizerIfNecessary self = msg_send ~self ~cmd:(selector "initializeTranslateGestureRecognizerIfNecessary") ~typ:(returning (void)) -let itemForPurpose x self = msg_send ~self ~cmd:(selector "itemForPurpose:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let layoutIfNeeded self = msg_send ~self ~cmd:(selector "layoutIfNeeded") ~typ:(returning (void)) -let owner self = msg_send ~self ~cmd:(selector "owner") ~typ:(returning (id)) -let performForInputAccessoryBackdropViews x self = msg_send ~self ~cmd:(selector "performForInputAccessoryBackdropViews:") ~typ:(ptr void @-> returning (void)) x -let placementForHost x self = msg_send ~self ~cmd:(selector "placementForHost:") ~typ:(id @-> returning (id)) x -let reloadForPlacement self = msg_send ~self ~cmd:(selector "reloadForPlacement") ~typ:(returning (void)) -let removeAllAnimations self = msg_send ~self ~cmd:(selector "removeAllAnimations") ~typ:(returning (void)) -let requiresConstraintUpdate self = msg_send ~self ~cmd:(selector "requiresConstraintUpdate") ~typ:(returning (bool)) -let resetBackdropHeight self = msg_send ~self ~cmd:(selector "resetBackdropHeight") ~typ:(returning (void)) -let resetInputViewVisibility self = msg_send ~self ~cmd:(selector "resetInputViewVisibility") ~typ:(returning (void)) -let setExtraHostsRequired x self = msg_send ~self ~cmd:(selector "setExtraHostsRequired:") ~typ:(int @-> returning (void)) x -let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning (void)) -let setOwner x self = msg_send ~self ~cmd:(selector "setOwner:") ~typ:(id @-> returning (void)) x -let setRequiresConstraintUpdate x self = msg_send ~self ~cmd:(selector "setRequiresConstraintUpdate:") ~typ:(bool @-> returning (void)) x -let subPlacementFromPlacement x ~forHost self = msg_send ~self ~cmd:(selector "subPlacementFromPlacement:forHost:") ~typ:(id @-> id @-> returning (id)) x forHost -let unloadForPlacement self = msg_send ~self ~cmd:(selector "unloadForPlacement") ~typ:(returning (void)) -let updateConstraintInsets self = msg_send ~self ~cmd:(selector "updateConstraintInsets") ~typ:(returning (void)) -let updateEmptyHeightConstraint self = msg_send ~self ~cmd:(selector "updateEmptyHeightConstraint") ~typ:(returning (void)) -let updateViewConstraints self = msg_send ~self ~cmd:(selector "updateViewConstraints") ~typ:(returning (void)) -let updateViewSizingConstraints self = msg_send ~self ~cmd:(selector "updateViewSizingConstraints") ~typ:(returning (void)) -let visibleFrame self = msg_send_stret ~self ~cmd:(selector "visibleFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t \ No newline at end of file +let self = get_class "UIInputWindowControllerHosting" + +let allHostingItems self = msg_send ~self ~cmd:(selector "allHostingItems") ~typ:(returning id) +let clearInputAccessoryViewEdgeConstraints self = msg_send ~self ~cmd:(selector "clearInputAccessoryViewEdgeConstraints") ~typ:(returning void) +let clearInputAssistantViewEdgeConstraints self = msg_send ~self ~cmd:(selector "clearInputAssistantViewEdgeConstraints") ~typ:(returning void) +let clearInputViewEdgeConstraints self = msg_send ~self ~cmd:(selector "clearInputViewEdgeConstraints") ~typ:(returning void) +let disableViewSizingConstraints x ~forNewView self = msg_send ~self ~cmd:(selector "disableViewSizingConstraints:forNewView:") ~typ:(ullong @-> id @-> returning void) (ULLong.of_int x) forNewView +let expectedPlacementForHost x self = msg_send ~self ~cmd:(selector "expectedPlacementForHost:") ~typ:(id @-> returning id) x +let extendKeyboardBackdropHeight x ~withDuration self = msg_send ~self ~cmd:(selector "extendKeyboardBackdropHeight:withDuration:") ~typ:(double @-> double @-> returning void) x withDuration +let extraHostsRequired self = msg_send ~self ~cmd:(selector "extraHostsRequired") ~typ:(returning int) +let host x ~isForPurpose self = msg_send ~self ~cmd:(selector "host:isForPurpose:") ~typ:(id @-> ullong @-> returning bool) x (ULLong.of_int isForPurpose) +let indexOfHost x self = msg_send ~self ~cmd:(selector "indexOfHost:") ~typ:(id @-> returning ullong) x +let initWithHost x self = msg_send ~self ~cmd:(selector "initWithHost:") ~typ:(id @-> returning id) x +let initializeTranslateGestureRecognizerIfNecessary self = msg_send ~self ~cmd:(selector "initializeTranslateGestureRecognizerIfNecessary") ~typ:(returning void) +let itemForPurpose x self = msg_send ~self ~cmd:(selector "itemForPurpose:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let layoutIfNeeded self = msg_send ~self ~cmd:(selector "layoutIfNeeded") ~typ:(returning void) +let owner self = msg_send ~self ~cmd:(selector "owner") ~typ:(returning id) +let performForInputAccessoryBackdropViews x self = msg_send ~self ~cmd:(selector "performForInputAccessoryBackdropViews:") ~typ:((ptr void) @-> returning void) x +let placementForHost x self = msg_send ~self ~cmd:(selector "placementForHost:") ~typ:(id @-> returning id) x +let reloadForPlacement self = msg_send ~self ~cmd:(selector "reloadForPlacement") ~typ:(returning void) +let removeAllAnimations self = msg_send ~self ~cmd:(selector "removeAllAnimations") ~typ:(returning void) +let requiresConstraintUpdate self = msg_send ~self ~cmd:(selector "requiresConstraintUpdate") ~typ:(returning bool) +let resetBackdropHeight self = msg_send ~self ~cmd:(selector "resetBackdropHeight") ~typ:(returning void) +let resetInputViewVisibility self = msg_send ~self ~cmd:(selector "resetInputViewVisibility") ~typ:(returning void) +let setExtraHostsRequired x self = msg_send ~self ~cmd:(selector "setExtraHostsRequired:") ~typ:(int @-> returning void) x +let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning void) +let setOwner x self = msg_send ~self ~cmd:(selector "setOwner:") ~typ:(id @-> returning void) x +let setRequiresConstraintUpdate x self = msg_send ~self ~cmd:(selector "setRequiresConstraintUpdate:") ~typ:(bool @-> returning void) x +let subPlacementFromPlacement x ~forHost self = msg_send ~self ~cmd:(selector "subPlacementFromPlacement:forHost:") ~typ:(id @-> id @-> returning id) x forHost +let unloadForPlacement self = msg_send ~self ~cmd:(selector "unloadForPlacement") ~typ:(returning void) +let updateConstraintInsets self = msg_send ~self ~cmd:(selector "updateConstraintInsets") ~typ:(returning void) +let updateEmptyHeightConstraint self = msg_send ~self ~cmd:(selector "updateEmptyHeightConstraint") ~typ:(returning void) +let updateViewConstraints self = msg_send ~self ~cmd:(selector "updateViewConstraints") ~typ:(returning void) +let updateViewSizingConstraints self = msg_send ~self ~cmd:(selector "updateViewSizingConstraints") ~typ:(returning void) +let visibleFrame self = msg_send ~self ~cmd:(selector "visibleFrame") ~typ:(returning CGRect.t) \ No newline at end of file diff --git a/uikit/UIInputWindowControllerHostingItem.ml b/uikit/UIInputWindowControllerHostingItem.ml index acbcabcc..f8461213 100644 --- a/uikit/UIInputWindowControllerHostingItem.ml +++ b/uikit/UIInputWindowControllerHostingItem.ml @@ -5,108 +5,113 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputWindowControllerHostingItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputwindowcontrollerhostingitem?language=objc}UIInputWindowControllerHostingItem} *) -let applicator self = msg_send ~self ~cmd:(selector "applicator") ~typ:(returning (id)) -let checkPlaceholdersForRemoteKeyboards self = msg_send ~self ~cmd:(selector "checkPlaceholdersForRemoteKeyboards") ~typ:(returning (void)) -let clearInputAccessoryViewEdgeConstraints self = msg_send ~self ~cmd:(selector "clearInputAccessoryViewEdgeConstraints") ~typ:(returning (void)) -let clearInputAssistantViewEdgeConstraints self = msg_send ~self ~cmd:(selector "clearInputAssistantViewEdgeConstraints") ~typ:(returning (void)) -let clearInputViewEdgeConstraints self = msg_send ~self ~cmd:(selector "clearInputViewEdgeConstraints") ~typ:(returning (void)) -let clearInteractiveTransitionStateIfNecessary self = msg_send ~self ~cmd:(selector "clearInteractiveTransitionStateIfNecessary") ~typ:(returning (void)) -let clearVisibilityConstraints self = msg_send ~self ~cmd:(selector "clearVisibilityConstraints") ~typ:(returning (void)) -let completeTransition x ~withInfo self = msg_send ~self ~cmd:(selector "completeTransition:withInfo:") ~typ:(id @-> id @-> returning (void)) x withInfo -let configureDockViewController x self = msg_send ~self ~cmd:(selector "configureDockViewController:") ~typ:(bool @-> returning (void)) x -let configureFlickingAssistantViewController x self = msg_send ~self ~cmd:(selector "configureFlickingAssistantViewController:") ~typ:(bool @-> returning (void)) x -let configureScrollDismissController x self = msg_send ~self ~cmd:(selector "configureScrollDismissController:") ~typ:(bool @-> returning (void)) x -let configureSplitKeyboardController x self = msg_send ~self ~cmd:(selector "configureSplitKeyboardController:") ~typ:(bool @-> returning (void)) x -let constructNotificationInfoForScrollWithMode x self = msg_send ~self ~cmd:(selector "constructNotificationInfoForScrollWithMode:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let container self = msg_send ~self ~cmd:(selector "container") ~typ:(returning (id)) -let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning (id)) -let controllerDelegate self = msg_send ~self ~cmd:(selector "controllerDelegate") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didFinishTranslation self = msg_send ~self ~cmd:(selector "didFinishTranslation") ~typ:(returning (void)) -let didFinishTranslationFromPlacement x ~to_ self = msg_send ~self ~cmd:(selector "didFinishTranslationFromPlacement:to:") ~typ:(id @-> id @-> returning (void)) x to_ -let disableViewSizingConstraints x ~forNewView self = msg_send ~self ~cmd:(selector "disableViewSizingConstraints:forNewView:") ~typ:(ullong @-> id @-> returning (void)) (ULLong.of_int x) forNewView -let dockView self = msg_send ~self ~cmd:(selector "dockView") ~typ:(returning (id)) -let dontDismissReachability self = msg_send ~self ~cmd:(selector "dontDismissReachability") ~typ:(returning (bool)) -let enumerateBoundingRects x self = msg_send ~self ~cmd:(selector "enumerateBoundingRects:") ~typ:(ptr void @-> returning (void)) x -let extendKeyboardBackdropHeight x ~withDuration self = msg_send ~self ~cmd:(selector "extendKeyboardBackdropHeight:withDuration:") ~typ:(double @-> double @-> returning (void)) x withDuration -let finishScrollViewTransition self = msg_send ~self ~cmd:(selector "finishScrollViewTransition") ~typ:(returning (void)) -let finishSplitTransition self = msg_send ~self ~cmd:(selector "finishSplitTransition") ~typ:(returning (void)) -let finishSplitTransition' x self = msg_send ~self ~cmd:(selector "finishSplitTransition:") ~typ:(bool @-> returning (void)) x -let flickingAssistantViewSupport self = msg_send ~self ~cmd:(selector "flickingAssistantViewSupport") ~typ:(returning (id)) -let floatingKeyboardMaskView self = msg_send ~self ~cmd:(selector "floatingKeyboardMaskView") ~typ:(returning (id)) -let hideInputAssistantBackdrop self = msg_send ~self ~cmd:(selector "hideInputAssistantBackdrop") ~typ:(returning (bool)) -let hideInputView self = msg_send ~self ~cmd:(selector "hideInputView") ~typ:(returning (bool)) -let hideInputViewBackdrops self = msg_send ~self ~cmd:(selector "hideInputViewBackdrops") ~typ:(returning (bool)) -let hostView self = msg_send ~self ~cmd:(selector "hostView") ~typ:(returning (id)) -let initWithContainer x self = msg_send ~self ~cmd:(selector "initWithContainer:") ~typ:(id @-> returning (id)) x -let initializeTranslateGestureRecognizerIfNecessary self = msg_send ~self ~cmd:(selector "initializeTranslateGestureRecognizerIfNecessary") ~typ:(returning (void)) -let inputAccessoryView self = msg_send ~self ~cmd:(selector "inputAccessoryView") ~typ:(returning (id)) -let inputAccessoryViewController self = msg_send ~self ~cmd:(selector "inputAccessoryViewController") ~typ:(returning (id)) -let inputAssistantView self = msg_send ~self ~cmd:(selector "inputAssistantView") ~typ:(returning (id)) -let inputAssistantViewController self = msg_send ~self ~cmd:(selector "inputAssistantViewController") ~typ:(returning (id)) -let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning (id)) -let inputViewBackdropStyle self = msg_send ~self ~cmd:(selector "inputViewBackdropStyle") ~typ:(returning (llong)) -let inputViewController self = msg_send ~self ~cmd:(selector "inputViewController") ~typ:(returning (id)) -let inputViewSet self = msg_send ~self ~cmd:(selector "inputViewSet") ~typ:(returning (id)) -let isChangingPlacement self = msg_send ~self ~cmd:(selector "isChangingPlacement") ~typ:(returning (bool)) -let isOnScreenRotating self = msg_send ~self ~cmd:(selector "isOnScreenRotating") ~typ:(returning (bool)) -let keyboardController self = msg_send ~self ~cmd:(selector "keyboardController") ~typ:(returning (bool)) -let owner self = msg_send ~self ~cmd:(selector "owner") ~typ:(returning (id)) -let placement self = msg_send ~self ~cmd:(selector "placement") ~typ:(returning (id)) -let placementNeedsUpdate x self = msg_send ~self ~cmd:(selector "placementNeedsUpdate:") ~typ:(id @-> returning (void)) x -let positionConstraintConstant self = msg_send_stret ~self ~cmd:(selector "positionConstraintConstant") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let prepareForSplitTransition self = msg_send ~self ~cmd:(selector "prepareForSplitTransition") ~typ:(returning (void)) -let prepareTranslationFromPlacement x ~to_ self = msg_send ~self ~cmd:(selector "prepareTranslationFromPlacement:to:") ~typ:(id @-> id @-> returning (void)) x to_ -let rebuildConstraints x ~forView ~toMatchView ~tracker self = msg_send ~self ~cmd:(selector "rebuildConstraints:forView:toMatchView:tracker:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x forView toMatchView tracker -let refreshApplicator self = msg_send ~self ~cmd:(selector "refreshApplicator") ~typ:(returning (void)) -let resetBackdropHeight self = msg_send ~self ~cmd:(selector "resetBackdropHeight") ~typ:(returning (void)) -let resetInputViewVisibility self = msg_send ~self ~cmd:(selector "resetInputViewVisibility") ~typ:(returning (void)) -let resetPlacement self = msg_send ~self ~cmd:(selector "resetPlacement") ~typ:(returning (void)) -let resetVerticalConstraint self = msg_send ~self ~cmd:(selector "resetVerticalConstraint") ~typ:(returning (void)) -let scrollKeyboardActive self = msg_send ~self ~cmd:(selector "scrollKeyboardActive") ~typ:(returning (bool)) -let setAccessoryViewVisible x ~delay self = msg_send ~self ~cmd:(selector "setAccessoryViewVisible:delay:") ~typ:(bool @-> double @-> returning (void)) x delay -let setApplicator x self = msg_send ~self ~cmd:(selector "setApplicator:") ~typ:(id @-> returning (void)) x -let setControllerDelegate x self = msg_send ~self ~cmd:(selector "setControllerDelegate:") ~typ:(id @-> returning (void)) x -let setDontDismissReachability x self = msg_send ~self ~cmd:(selector "setDontDismissReachability:") ~typ:(bool @-> returning (void)) x -let setFloatingKeyboardMaskView x self = msg_send ~self ~cmd:(selector "setFloatingKeyboardMaskView:") ~typ:(id @-> returning (void)) x -let setHideInputAssistantBackdrop x self = msg_send ~self ~cmd:(selector "setHideInputAssistantBackdrop:") ~typ:(bool @-> returning (void)) x -let setHideInputView x self = msg_send ~self ~cmd:(selector "setHideInputView:") ~typ:(bool @-> returning (void)) x -let setHideInputViewBackdrops x self = msg_send ~self ~cmd:(selector "setHideInputViewBackdrops:") ~typ:(bool @-> returning (void)) x -let setHostView x self = msg_send ~self ~cmd:(selector "setHostView:") ~typ:(id @-> returning (void)) x -let setInputAccessoryBackdropView x self = msg_send ~self ~cmd:(selector "setInputAccessoryBackdropView:") ~typ:(id @-> returning (void)) x -let setInputAccessoryView x self = msg_send ~self ~cmd:(selector "setInputAccessoryView:") ~typ:(id @-> returning (void)) x -let setInputAssistantBackdropView x self = msg_send ~self ~cmd:(selector "setInputAssistantBackdropView:") ~typ:(id @-> returning (void)) x -let setInputAssistantView x self = msg_send ~self ~cmd:(selector "setInputAssistantView:") ~typ:(id @-> returning (void)) x -let setInputBackdropView x self = msg_send ~self ~cmd:(selector "setInputBackdropView:") ~typ:(id @-> returning (void)) x -let setInputView x self = msg_send ~self ~cmd:(selector "setInputView:") ~typ:(id @-> returning (void)) x -let setInterfaceAutorotationDisabled x self = msg_send ~self ~cmd:(selector "setInterfaceAutorotationDisabled:") ~typ:(bool @-> returning (void)) x -let setPlacement self = msg_send ~self ~cmd:(selector "setPlacement") ~typ:(returning (void)) -let setPlacement1 x self = msg_send ~self ~cmd:(selector "setPlacement:") ~typ:(id @-> returning (void)) x -let setPlacement2 x ~quietly ~animated ~generateSplitNotification self = msg_send ~self ~cmd:(selector "setPlacement:quietly:animated:generateSplitNotification:") ~typ:(id @-> bool @-> bool @-> bool @-> returning (void)) x quietly animated generateSplitNotification -let someViewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "someViewDidLayoutSubviews") ~typ:(returning (void)) -let splitKeyboardController self = msg_send ~self ~cmd:(selector "splitKeyboardController") ~typ:(returning (id)) -let startTransition x ~withInfo self = msg_send ~self ~cmd:(selector "startTransition:withInfo:") ~typ:(id @-> id @-> returning (void)) x withInfo -let transitionDidFinish x self = msg_send ~self ~cmd:(selector "transitionDidFinish:") ~typ:(bool @-> returning (void)) x -let updateConstraintInsets self = msg_send ~self ~cmd:(selector "updateConstraintInsets") ~typ:(returning (void)) -let updateEmptyHeightConstraint self = msg_send ~self ~cmd:(selector "updateEmptyHeightConstraint") ~typ:(returning (void)) -let updateForKeyplaneChangeWithContext x self = msg_send ~self ~cmd:(selector "updateForKeyplaneChangeWithContext:") ~typ:(id @-> returning (void)) x -let updateInputAccessoryBackdropView self = msg_send ~self ~cmd:(selector "updateInputAccessoryBackdropView") ~typ:(returning (void)) -let updateInputAssistantBackdropView self = msg_send ~self ~cmd:(selector "updateInputAssistantBackdropView") ~typ:(returning (void)) -let updateInputBackdropView self = msg_send ~self ~cmd:(selector "updateInputBackdropView") ~typ:(returning (void)) -let updateInputBackdropViewVisibility self = msg_send ~self ~cmd:(selector "updateInputBackdropViewVisibility") ~typ:(returning (void)) -let updateKeyboardDockViewVisibility self = msg_send ~self ~cmd:(selector "updateKeyboardDockViewVisibility") ~typ:(returning (void)) -let updateProgress x ~startHeight ~endHeight self = msg_send ~self ~cmd:(selector "updateProgress:startHeight:endHeight:") ~typ:(double @-> double @-> double @-> returning (void)) x startHeight endHeight -let updateSupportsDockViewController self = msg_send ~self ~cmd:(selector "updateSupportsDockViewController") ~typ:(returning (void)) -let updateTransition x ~withInfo self = msg_send ~self ~cmd:(selector "updateTransition:withInfo:") ~typ:(id @-> id @-> returning (void)) x withInfo -let updateViewConstraints self = msg_send ~self ~cmd:(selector "updateViewConstraints") ~typ:(returning (void)) -let updateViewSizingConstraints self = msg_send ~self ~cmd:(selector "updateViewSizingConstraints") ~typ:(returning (void)) -let updateViewSizingConstraints' x self = msg_send ~self ~cmd:(selector "updateViewSizingConstraints:") ~typ:(id @-> returning (void)) x -let updateVisibilityConstraintsForPlacement x self = msg_send ~self ~cmd:(selector "updateVisibilityConstraintsForPlacement:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let viewMatchingConstraintForAttribute x ~primaryView ~secondaryView self = msg_send ~self ~cmd:(selector "viewMatchingConstraintForAttribute:primaryView:secondaryView:") ~typ:(llong @-> id @-> id @-> returning (id)) (LLong.of_int x) primaryView secondaryView -let visibleFrame self = msg_send_stret ~self ~cmd:(selector "visibleFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let willBeginTranslation self = msg_send ~self ~cmd:(selector "willBeginTranslation") ~typ:(returning (void)) -let willBeginTranslationFromPlacement x ~to_ self = msg_send ~self ~cmd:(selector "willBeginTranslationFromPlacement:to:") ~typ:(id @-> id @-> returning (void)) x to_ \ No newline at end of file +let self = get_class "UIInputWindowControllerHostingItem" + +let applicator self = msg_send ~self ~cmd:(selector "applicator") ~typ:(returning id) +let checkPlaceholdersForRemoteKeyboards self = msg_send ~self ~cmd:(selector "checkPlaceholdersForRemoteKeyboards") ~typ:(returning void) +let clearInputAccessoryViewEdgeConstraints self = msg_send ~self ~cmd:(selector "clearInputAccessoryViewEdgeConstraints") ~typ:(returning void) +let clearInputAssistantViewEdgeConstraints self = msg_send ~self ~cmd:(selector "clearInputAssistantViewEdgeConstraints") ~typ:(returning void) +let clearInputViewEdgeConstraints self = msg_send ~self ~cmd:(selector "clearInputViewEdgeConstraints") ~typ:(returning void) +let clearInteractiveTransitionStateIfNecessary self = msg_send ~self ~cmd:(selector "clearInteractiveTransitionStateIfNecessary") ~typ:(returning void) +let clearVisibilityConstraints self = msg_send ~self ~cmd:(selector "clearVisibilityConstraints") ~typ:(returning void) +let completeTransition x ~withInfo self = msg_send ~self ~cmd:(selector "completeTransition:withInfo:") ~typ:(id @-> id @-> returning void) x withInfo +let configureDockViewController x self = msg_send ~self ~cmd:(selector "configureDockViewController:") ~typ:(bool @-> returning void) x +let configureFlickingAssistantViewController x self = msg_send ~self ~cmd:(selector "configureFlickingAssistantViewController:") ~typ:(bool @-> returning void) x +let configureScrollDismissController x self = msg_send ~self ~cmd:(selector "configureScrollDismissController:") ~typ:(bool @-> returning void) x +let configureSplitKeyboardController x self = msg_send ~self ~cmd:(selector "configureSplitKeyboardController:") ~typ:(bool @-> returning void) x +let constructNotificationInfoForScrollWithMode x self = msg_send ~self ~cmd:(selector "constructNotificationInfoForScrollWithMode:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let container self = msg_send ~self ~cmd:(selector "container") ~typ:(returning id) +let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning id) +let controllerDelegate self = msg_send ~self ~cmd:(selector "controllerDelegate") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didFinishTranslation self = msg_send ~self ~cmd:(selector "didFinishTranslation") ~typ:(returning void) +let didFinishTranslationFromPlacement x ~to_ self = msg_send ~self ~cmd:(selector "didFinishTranslationFromPlacement:to:") ~typ:(id @-> id @-> returning void) x to_ +let disableViewSizingConstraints x ~forNewView self = msg_send ~self ~cmd:(selector "disableViewSizingConstraints:forNewView:") ~typ:(ullong @-> id @-> returning void) (ULLong.of_int x) forNewView +let dockView self = msg_send ~self ~cmd:(selector "dockView") ~typ:(returning id) +let dontDismissReachability self = msg_send ~self ~cmd:(selector "dontDismissReachability") ~typ:(returning bool) +let enumerateBoundingRects x self = msg_send ~self ~cmd:(selector "enumerateBoundingRects:") ~typ:((ptr void) @-> returning void) x +let extendKeyboardBackdropHeight x ~withDuration self = msg_send ~self ~cmd:(selector "extendKeyboardBackdropHeight:withDuration:") ~typ:(double @-> double @-> returning void) x withDuration +let finishScrollViewTransition self = msg_send ~self ~cmd:(selector "finishScrollViewTransition") ~typ:(returning void) +let finishSplitTransition self = msg_send ~self ~cmd:(selector "finishSplitTransition") ~typ:(returning void) +let finishSplitTransition' x self = msg_send ~self ~cmd:(selector "finishSplitTransition:") ~typ:(bool @-> returning void) x +let flickingAssistantViewSupport self = msg_send ~self ~cmd:(selector "flickingAssistantViewSupport") ~typ:(returning id) +let floatingKeyboardMaskView self = msg_send ~self ~cmd:(selector "floatingKeyboardMaskView") ~typ:(returning id) +let hideInputAssistantBackdrop self = msg_send ~self ~cmd:(selector "hideInputAssistantBackdrop") ~typ:(returning bool) +let hideInputView self = msg_send ~self ~cmd:(selector "hideInputView") ~typ:(returning bool) +let hideInputViewBackdrops self = msg_send ~self ~cmd:(selector "hideInputViewBackdrops") ~typ:(returning bool) +let hostView self = msg_send ~self ~cmd:(selector "hostView") ~typ:(returning id) +let initWithContainer x self = msg_send ~self ~cmd:(selector "initWithContainer:") ~typ:(id @-> returning id) x +let initializeTranslateGestureRecognizerIfNecessary self = msg_send ~self ~cmd:(selector "initializeTranslateGestureRecognizerIfNecessary") ~typ:(returning void) +let inputAccessoryView self = msg_send ~self ~cmd:(selector "inputAccessoryView") ~typ:(returning id) +let inputAccessoryViewController self = msg_send ~self ~cmd:(selector "inputAccessoryViewController") ~typ:(returning id) +let inputAssistantView self = msg_send ~self ~cmd:(selector "inputAssistantView") ~typ:(returning id) +let inputAssistantViewController self = msg_send ~self ~cmd:(selector "inputAssistantViewController") ~typ:(returning id) +let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning id) +let inputViewBackdropStyle self = msg_send ~self ~cmd:(selector "inputViewBackdropStyle") ~typ:(returning llong) +let inputViewController self = msg_send ~self ~cmd:(selector "inputViewController") ~typ:(returning id) +let inputViewPadding self = msg_send ~self ~cmd:(selector "inputViewPadding") ~typ:(returning UIEdgeInsets.t) +let inputViewSet self = msg_send ~self ~cmd:(selector "inputViewSet") ~typ:(returning id) +let isChangingPlacement self = msg_send ~self ~cmd:(selector "isChangingPlacement") ~typ:(returning bool) +let isOnScreenRotating self = msg_send ~self ~cmd:(selector "isOnScreenRotating") ~typ:(returning bool) +let keyboardController self = msg_send ~self ~cmd:(selector "keyboardController") ~typ:(returning bool) +let owner self = msg_send ~self ~cmd:(selector "owner") ~typ:(returning id) +let placement self = msg_send ~self ~cmd:(selector "placement") ~typ:(returning id) +let placementNeedsUpdate x self = msg_send ~self ~cmd:(selector "placementNeedsUpdate:") ~typ:(id @-> returning void) x +let positionConstraintConstant self = msg_send ~self ~cmd:(selector "positionConstraintConstant") ~typ:(returning CGPoint.t) +let prepareForSplitTransition self = msg_send ~self ~cmd:(selector "prepareForSplitTransition") ~typ:(returning void) +let prepareTranslationFromPlacement x ~to_ self = msg_send ~self ~cmd:(selector "prepareTranslationFromPlacement:to:") ~typ:(id @-> id @-> returning void) x to_ +let rebuildConstraints x ~forView ~toMatchView ~tracker self = msg_send ~self ~cmd:(selector "rebuildConstraints:forView:toMatchView:tracker:") ~typ:(id @-> id @-> id @-> id @-> returning void) x forView toMatchView tracker +let refreshApplicator self = msg_send ~self ~cmd:(selector "refreshApplicator") ~typ:(returning void) +let resetBackdropHeight self = msg_send ~self ~cmd:(selector "resetBackdropHeight") ~typ:(returning void) +let resetInputViewVisibility self = msg_send ~self ~cmd:(selector "resetInputViewVisibility") ~typ:(returning void) +let resetPlacement self = msg_send ~self ~cmd:(selector "resetPlacement") ~typ:(returning void) +let resetVerticalConstraint self = msg_send ~self ~cmd:(selector "resetVerticalConstraint") ~typ:(returning void) +let scrollKeyboardActive self = msg_send ~self ~cmd:(selector "scrollKeyboardActive") ~typ:(returning bool) +let setAccessoryViewVisible x ~delay self = msg_send ~self ~cmd:(selector "setAccessoryViewVisible:delay:") ~typ:(bool @-> double @-> returning void) x delay +let setApplicator x self = msg_send ~self ~cmd:(selector "setApplicator:") ~typ:(id @-> returning void) x +let setControllerDelegate x self = msg_send ~self ~cmd:(selector "setControllerDelegate:") ~typ:(id @-> returning void) x +let setDontDismissReachability x self = msg_send ~self ~cmd:(selector "setDontDismissReachability:") ~typ:(bool @-> returning void) x +let setFloatingKeyboardMaskView x self = msg_send ~self ~cmd:(selector "setFloatingKeyboardMaskView:") ~typ:(id @-> returning void) x +let setHideInputAssistantBackdrop x self = msg_send ~self ~cmd:(selector "setHideInputAssistantBackdrop:") ~typ:(bool @-> returning void) x +let setHideInputView x self = msg_send ~self ~cmd:(selector "setHideInputView:") ~typ:(bool @-> returning void) x +let setHideInputViewBackdrops x self = msg_send ~self ~cmd:(selector "setHideInputViewBackdrops:") ~typ:(bool @-> returning void) x +let setHostView x self = msg_send ~self ~cmd:(selector "setHostView:") ~typ:(id @-> returning void) x +let setInputAccessoryBackdropView x self = msg_send ~self ~cmd:(selector "setInputAccessoryBackdropView:") ~typ:(id @-> returning void) x +let setInputAccessoryView x self = msg_send ~self ~cmd:(selector "setInputAccessoryView:") ~typ:(id @-> returning void) x +let setInputAssistantBackdropView x self = msg_send ~self ~cmd:(selector "setInputAssistantBackdropView:") ~typ:(id @-> returning void) x +let setInputAssistantView x self = msg_send ~self ~cmd:(selector "setInputAssistantView:") ~typ:(id @-> returning void) x +let setInputBackdropView x self = msg_send ~self ~cmd:(selector "setInputBackdropView:") ~typ:(id @-> returning void) x +let setInputView x self = msg_send ~self ~cmd:(selector "setInputView:") ~typ:(id @-> returning void) x +let setInterfaceAutorotationDisabled x self = msg_send ~self ~cmd:(selector "setInterfaceAutorotationDisabled:") ~typ:(bool @-> returning void) x +let setPlacement self = msg_send ~self ~cmd:(selector "setPlacement") ~typ:(returning void) +let setPlacement1 x self = msg_send ~self ~cmd:(selector "setPlacement:") ~typ:(id @-> returning void) x +let setPlacement2 x ~quietly ~animated ~generateSplitNotification self = msg_send ~self ~cmd:(selector "setPlacement:quietly:animated:generateSplitNotification:") ~typ:(id @-> bool @-> bool @-> bool @-> returning void) x quietly animated generateSplitNotification +let someViewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "someViewDidLayoutSubviews") ~typ:(returning void) +let splitKeyboardController self = msg_send ~self ~cmd:(selector "splitKeyboardController") ~typ:(returning id) +let startTransition x ~withInfo self = msg_send ~self ~cmd:(selector "startTransition:withInfo:") ~typ:(id @-> id @-> returning void) x withInfo +let transitionDidFinish x self = msg_send ~self ~cmd:(selector "transitionDidFinish:") ~typ:(bool @-> returning void) x +let updateConstraintInsets self = msg_send ~self ~cmd:(selector "updateConstraintInsets") ~typ:(returning void) +let updateEmptyHeightConstraint self = msg_send ~self ~cmd:(selector "updateEmptyHeightConstraint") ~typ:(returning void) +let updateForKeyplaneChangeWithContext x self = msg_send ~self ~cmd:(selector "updateForKeyplaneChangeWithContext:") ~typ:(id @-> returning void) x +let updateInputAccessoryBackdropView self = msg_send ~self ~cmd:(selector "updateInputAccessoryBackdropView") ~typ:(returning void) +let updateInputAssistantBackdropView self = msg_send ~self ~cmd:(selector "updateInputAssistantBackdropView") ~typ:(returning void) +let updateInputBackdropView self = msg_send ~self ~cmd:(selector "updateInputBackdropView") ~typ:(returning void) +let updateInputBackdropViewVisibility self = msg_send ~self ~cmd:(selector "updateInputBackdropViewVisibility") ~typ:(returning void) +let updateKeyboardDockViewVisibility self = msg_send ~self ~cmd:(selector "updateKeyboardDockViewVisibility") ~typ:(returning void) +let updateProgress x ~startHeight ~endHeight self = msg_send ~self ~cmd:(selector "updateProgress:startHeight:endHeight:") ~typ:(double @-> double @-> double @-> returning void) x startHeight endHeight +let updateSupportsDockViewController self = msg_send ~self ~cmd:(selector "updateSupportsDockViewController") ~typ:(returning void) +let updateTransition x ~withInfo self = msg_send ~self ~cmd:(selector "updateTransition:withInfo:") ~typ:(id @-> id @-> returning void) x withInfo +let updateViewConstraints self = msg_send ~self ~cmd:(selector "updateViewConstraints") ~typ:(returning void) +let updateViewSizingConstraints self = msg_send ~self ~cmd:(selector "updateViewSizingConstraints") ~typ:(returning void) +let updateViewSizingConstraints' x self = msg_send ~self ~cmd:(selector "updateViewSizingConstraints:") ~typ:(id @-> returning void) x +let updateVisibilityConstraintsForPlacement x self = msg_send ~self ~cmd:(selector "updateVisibilityConstraintsForPlacement:") ~typ:(id @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let viewMatchingConstraintForAttribute x ~primaryView ~secondaryView self = msg_send ~self ~cmd:(selector "viewMatchingConstraintForAttribute:primaryView:secondaryView:") ~typ:(llong @-> id @-> id @-> returning id) (LLong.of_int x) primaryView secondaryView +let visibleFrame self = msg_send ~self ~cmd:(selector "visibleFrame") ~typ:(returning CGRect.t) +let willBeginTranslation self = msg_send ~self ~cmd:(selector "willBeginTranslation") ~typ:(returning void) +let willBeginTranslationFromPlacement x ~to_ self = msg_send ~self ~cmd:(selector "willBeginTranslationFromPlacement:to:") ~typ:(id @-> id @-> returning void) x to_ \ No newline at end of file diff --git a/uikit/UIInteractionProgress.ml b/uikit/UIInteractionProgress.ml index 0289fe97..8d443bdb 100644 --- a/uikit/UIInteractionProgress.ml +++ b/uikit/UIInteractionProgress.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInteractionProgress" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinteractionprogress?language=objc}UIInteractionProgress} *) -let addProgressObserver x self = msg_send ~self ~cmd:(selector "addProgressObserver:") ~typ:(id @-> returning (void)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let endInteraction x self = msg_send ~self ~cmd:(selector "endInteraction:") ~typ:(bool @-> returning (void)) x -let endInteraction' x ~finalVelocity self = msg_send ~self ~cmd:(selector "endInteraction:finalVelocity:") ~typ:(bool @-> double @-> returning (void)) x finalVelocity -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let numberOfObservers self = msg_send ~self ~cmd:(selector "numberOfObservers") ~typ:(returning (llong)) -let percentComplete self = msg_send ~self ~cmd:(selector "percentComplete") ~typ:(returning (double)) -let removeProgressObserver x self = msg_send ~self ~cmd:(selector "removeProgressObserver:") ~typ:(id @-> returning (void)) x -let setPercentComplete x self = msg_send ~self ~cmd:(selector "setPercentComplete:") ~typ:(double @-> returning (void)) x -let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIInteractionProgress" + +let addProgressObserver x self = msg_send ~self ~cmd:(selector "addProgressObserver:") ~typ:(id @-> returning void) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let endInteraction x self = msg_send ~self ~cmd:(selector "endInteraction:") ~typ:(bool @-> returning void) x +let endInteraction' x ~finalVelocity self = msg_send ~self ~cmd:(selector "endInteraction:finalVelocity:") ~typ:(bool @-> double @-> returning void) x finalVelocity +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let numberOfObservers self = msg_send ~self ~cmd:(selector "numberOfObservers") ~typ:(returning llong) +let percentComplete self = msg_send ~self ~cmd:(selector "percentComplete") ~typ:(returning double) +let removeProgressObserver x self = msg_send ~self ~cmd:(selector "removeProgressObserver:") ~typ:(id @-> returning void) x +let setPercentComplete x self = msg_send ~self ~cmd:(selector "setPercentComplete:") ~typ:(double @-> returning void) x +let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIInterfaceAction.ml b/uikit/UIInterfaceAction.ml index f9068ab7..4109fa41 100644 --- a/uikit/UIInterfaceAction.ml +++ b/uikit/UIInterfaceAction.ml @@ -5,40 +5,37 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterfaceAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceaction?language=objc}UIInterfaceAction} *) -module C = struct - let actionWithCustomContentView x ~handler self = msg_send ~self ~cmd:(selector "actionWithCustomContentView:handler:") ~typ:(id @-> ptr void @-> returning (id)) x handler - let actionWithCustomContentViewController x self = msg_send ~self ~cmd:(selector "actionWithCustomContentViewController:") ~typ:(id @-> returning (id)) x - let actionWithTitle x ~type_ ~handler self = msg_send ~self ~cmd:(selector "actionWithTitle:type:handler:") ~typ:(id @-> llong @-> ptr void @-> returning (id)) x (LLong.of_int type_) handler - let changedProperties x ~containsAny self = msg_send ~self ~cmd:(selector "changedProperties:containsAny:") ~typ:(id @-> id @-> returning (bool)) x containsAny -end +let self = get_class "UIInterfaceAction" -let classificationTitle self = msg_send ~self ~cmd:(selector "classificationTitle") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let customContentView self = msg_send ~self ~cmd:(selector "customContentView") ~typ:(returning (id)) -let customContentViewController self = msg_send ~self ~cmd:(selector "customContentViewController") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) +let classificationTitle self = msg_send ~self ~cmd:(selector "classificationTitle") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let customContentView self = msg_send ~self ~cmd:(selector "customContentView") ~typ:(returning id) +let customContentViewController self = msg_send ~self ~cmd:(selector "customContentViewController") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let handler self = msg_send ~self ~cmd:(selector "handler") ~typ:(returning (ptr void)) -let initWithTitle x ~type_ ~customContentViewController ~customContentView ~handler self = msg_send ~self ~cmd:(selector "initWithTitle:type:customContentViewController:customContentView:handler:") ~typ:(id @-> llong @-> id @-> id @-> ptr void @-> returning (id)) x (LLong.of_int type_) customContentViewController customContentView handler -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let leadingImage self = msg_send ~self ~cmd:(selector "leadingImage") ~typ:(returning (id)) -let leadingImageLayoutSize self = msg_send_stret ~self ~cmd:(selector "leadingImageLayoutSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let setClassificationTitle x self = msg_send ~self ~cmd:(selector "setClassificationTitle:") ~typ:(id @-> returning (void)) x -let setCustomContentViewController x self = msg_send ~self ~cmd:(selector "setCustomContentViewController:") ~typ:(id @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:(ptr void @-> returning (void)) x -let setLeadingImage x self = msg_send ~self ~cmd:(selector "setLeadingImage:") ~typ:(id @-> returning (void)) x -let setLeadingImageLayoutSize x self = msg_send ~self ~cmd:(selector "setLeadingImageLayoutSize:") ~typ:(CGSize.t @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setTitleAlignment x self = msg_send ~self ~cmd:(selector "setTitleAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTrailingImage x self = msg_send ~self ~cmd:(selector "setTrailingImage:") ~typ:(id @-> returning (void)) x -let setTrailingImageLayoutSize x self = msg_send ~self ~cmd:(selector "setTrailingImageLayoutSize:") ~typ:(CGSize.t @-> returning (void)) x -let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let titleAlignment self = msg_send ~self ~cmd:(selector "titleAlignment") ~typ:(returning (llong)) -let trailingImage self = msg_send ~self ~cmd:(selector "trailingImage") ~typ:(returning (id)) -let trailingImageLayoutSize self = msg_send_stret ~self ~cmd:(selector "trailingImageLayoutSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) -let weakDisplayPropertyObservers self = msg_send ~self ~cmd:(selector "weakDisplayPropertyObservers") ~typ:(returning (id)) \ No newline at end of file +let initWithTitle x ~type_ ~customContentViewController ~customContentView ~handler self = msg_send ~self ~cmd:(selector "initWithTitle:type:customContentViewController:customContentView:handler:") ~typ:(id @-> llong @-> id @-> id @-> (ptr void) @-> returning id) x (LLong.of_int type_) customContentViewController customContentView handler +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let leadingImage self = msg_send ~self ~cmd:(selector "leadingImage") ~typ:(returning id) +let leadingImageLayoutSize self = msg_send ~self ~cmd:(selector "leadingImageLayoutSize") ~typ:(returning CGSize.t) +let setClassificationTitle x self = msg_send ~self ~cmd:(selector "setClassificationTitle:") ~typ:(id @-> returning void) x +let setCustomContentViewController x self = msg_send ~self ~cmd:(selector "setCustomContentViewController:") ~typ:(id @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:((ptr void) @-> returning void) x +let setLeadingImage x self = msg_send ~self ~cmd:(selector "setLeadingImage:") ~typ:(id @-> returning void) x +let setLeadingImageLayoutSize x self = msg_send ~self ~cmd:(selector "setLeadingImageLayoutSize:") ~typ:(CGSize.t @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let setTitleAlignment x self = msg_send ~self ~cmd:(selector "setTitleAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTrailingImage x self = msg_send ~self ~cmd:(selector "setTrailingImage:") ~typ:(id @-> returning void) x +let setTrailingImageLayoutSize x self = msg_send ~self ~cmd:(selector "setTrailingImageLayoutSize:") ~typ:(CGSize.t @-> returning void) x +let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let titleAlignment self = msg_send ~self ~cmd:(selector "titleAlignment") ~typ:(returning llong) +let trailingImage self = msg_send ~self ~cmd:(selector "trailingImage") ~typ:(returning id) +let trailingImageLayoutSize self = msg_send ~self ~cmd:(selector "trailingImageLayoutSize") ~typ:(returning CGSize.t) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) +let weakDisplayPropertyObservers self = msg_send ~self ~cmd:(selector "weakDisplayPropertyObservers") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInterfaceActionClass.ml b/uikit/UIInterfaceActionClass.ml new file mode 100644 index 00000000..9c271e7e --- /dev/null +++ b/uikit/UIInterfaceActionClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceaction?language=objc}UIInterfaceAction} *) + +let actionWithCustomContentView x ~handler self = msg_send ~self ~cmd:(selector "actionWithCustomContentView:handler:") ~typ:(id @-> (ptr void) @-> returning id) x handler +let actionWithCustomContentViewController x self = msg_send ~self ~cmd:(selector "actionWithCustomContentViewController:") ~typ:(id @-> returning id) x +let actionWithTitle x ~type_ ~handler self = msg_send ~self ~cmd:(selector "actionWithTitle:type:handler:") ~typ:(id @-> llong @-> (ptr void) @-> returning id) x (LLong.of_int type_) handler +let changedProperties x ~containsAny self = msg_send ~self ~cmd:(selector "changedProperties:containsAny:") ~typ:(id @-> id @-> returning bool) x containsAny \ No newline at end of file diff --git a/uikit/UIInterfaceActionConcreteVisualStyle.ml b/uikit/UIInterfaceActionConcreteVisualStyle.ml deleted file mode 100644 index e06161fc..00000000 --- a/uikit/UIInterfaceActionConcreteVisualStyle.ml +++ /dev/null @@ -1,43 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInterfaceActionConcreteVisualStyle" - -let actionClassificationLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionClassificationLabelColorForViewState:") ~typ:(id @-> returning (id)) x -let actionClassificationLabelFontForViewState x self = msg_send ~self ~cmd:(selector "actionClassificationLabelFontForViewState:") ~typ:(id @-> returning (id)) x -let actionGroupPropertiesAffectingActionsScrollViewStyling self = msg_send ~self ~cmd:(selector "actionGroupPropertiesAffectingActionsScrollViewStyling") ~typ:(returning (id)) -let actionImageViewTintColorForImageProperty x ~actionViewState self = msg_send ~self ~cmd:(selector "actionImageViewTintColorForImageProperty:actionViewState:") ~typ:(id @-> id @-> returning (id)) x actionViewState -let actionPropertiesAffectingActionRepresentationViewStyling self = msg_send ~self ~cmd:(selector "actionPropertiesAffectingActionRepresentationViewStyling") ~typ:(returning (id)) -let actionPropertiesAffectingImageViewStyling self = msg_send ~self ~cmd:(selector "actionPropertiesAffectingImageViewStyling") ~typ:(returning (id)) -let actionPropertiesAffectingLabelStyling self = msg_send ~self ~cmd:(selector "actionPropertiesAffectingLabelStyling") ~typ:(returning (id)) -let actionSectionSpacing self = msg_send ~self ~cmd:(selector "actionSectionSpacing") ~typ:(returning (double)) -let actionTitleLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelColorForViewState:") ~typ:(id @-> returning (id)) x -let actionTitleLabelFontForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelFontForViewState:") ~typ:(id @-> returning (id)) x -let actionTitleLabelMinimumScaleFactor self = msg_send ~self ~cmd:(selector "actionTitleLabelMinimumScaleFactor") ~typ:(returning (double)) -let actionViewStateForAttachingToActionRepresentationView x self = msg_send ~self ~cmd:(selector "actionViewStateForAttachingToActionRepresentationView:") ~typ:(id @-> returning (id)) x -let configureAttributesForActionRepresentationView x ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForActionRepresentationView:actionViewState:") ~typ:(id @-> id @-> returning (void)) x actionViewState -let configureAttributesForActionScrollView x ~groupViewState self = msg_send ~self ~cmd:(selector "configureAttributesForActionScrollView:groupViewState:") ~typ:(id @-> id @-> returning (void)) x groupViewState -let configureAttributesForImageView x ~imageProperty ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForImageView:imageProperty:actionViewState:") ~typ:(id @-> id @-> id @-> returning (void)) x imageProperty actionViewState -let configureAttributesForTitleLabel x ~classificationLabel ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForTitleLabel:classificationLabel:actionViewState:") ~typ:(id @-> id @-> id @-> returning (void)) x classificationLabel actionViewState -let configureForDismissingGroupView x ~alongsideTransitionCoordinator self = msg_send ~self ~cmd:(selector "configureForDismissingGroupView:alongsideTransitionCoordinator:") ~typ:(id @-> id @-> returning (void)) x alongsideTransitionCoordinator -let configureForPresentingGroupView x ~alongsideTransitionCoordinator self = msg_send ~self ~cmd:(selector "configureForPresentingGroupView:alongsideTransitionCoordinator:") ~typ:(id @-> id @-> returning (void)) x alongsideTransitionCoordinator -let contentCornerRadius self = msg_send ~self ~cmd:(selector "contentCornerRadius") ~typ:(returning (double)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let defaultScreen self = msg_send ~self ~cmd:(selector "defaultScreen") ~typ:(returning (id)) -let horizontalImageContentSpacing self = msg_send ~self ~cmd:(selector "horizontalImageContentSpacing") ~typ:(returning (double)) -let maximumActionGroupContentSize self = msg_send_stret ~self ~cmd:(selector "maximumActionGroupContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let minimumActionContentSize self = msg_send_stret ~self ~cmd:(selector "minimumActionContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning (id)) x -let newActionSeparatorViewForGroupViewState x self = msg_send ~self ~cmd:(selector "newActionSeparatorViewForGroupViewState:") ~typ:(id @-> returning (id)) x -let newGroupBackgroundViewWithGroupViewState x self = msg_send ~self ~cmd:(selector "newGroupBackgroundViewWithGroupViewState:") ~typ:(id @-> returning (id)) x -let newRepresentationViewForAction x self = msg_send ~self ~cmd:(selector "newRepresentationViewForAction:") ~typ:(id @-> returning (id)) x -let newSectionSeparatorViewForGroupViewState x self = msg_send ~self ~cmd:(selector "newSectionSeparatorViewForGroupViewState:") ~typ:(id @-> returning (id)) x -let selectByIndirectPointerTouchRequired self = msg_send ~self ~cmd:(selector "selectByIndirectPointerTouchRequired") ~typ:(returning (bool)) -let selectByPressGestureRequired self = msg_send ~self ~cmd:(selector "selectByPressGestureRequired") ~typ:(returning (bool)) -let selectionFeedbackEnabled self = msg_send ~self ~cmd:(selector "selectionFeedbackEnabled") ~typ:(returning (bool)) -let verticalImageContentSpacing self = msg_send ~self ~cmd:(selector "verticalImageContentSpacing") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit/UIInterfaceActionGroup.ml b/uikit/UIInterfaceActionGroup.ml index 8642edd3..2a995843 100644 --- a/uikit/UIInterfaceActionGroup.ml +++ b/uikit/UIInterfaceActionGroup.ml @@ -5,27 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterfaceActionGroup" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactiongroup?language=objc}UIInterfaceActionGroup} *) -module C = struct - let actionGroupWithActions x self = msg_send ~self ~cmd:(selector "actionGroupWithActions:") ~typ:(id @-> returning (id)) x - let actionGroupWithActionsBySection x self = msg_send ~self ~cmd:(selector "actionGroupWithActionsBySection:") ~typ:(id @-> returning (id)) x - let changedProperties x ~containsAny self = msg_send ~self ~cmd:(selector "changedProperties:containsAny:") ~typ:(id @-> id @-> returning (bool)) x containsAny -end +let self = get_class "UIInterfaceActionGroup" -let actions self = msg_send ~self ~cmd:(selector "actions") ~typ:(returning (id)) -let actionsBySection self = msg_send ~self ~cmd:(selector "actionsBySection") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let initWithTitle x ~actionsBySection self = msg_send ~self ~cmd:(selector "initWithTitle:actionsBySection:") ~typ:(id @-> id @-> returning (id)) x actionsBySection -let interfaceAction x ~reloadDisplayedContentActionProperties self = msg_send ~self ~cmd:(selector "interfaceAction:reloadDisplayedContentActionProperties:") ~typ:(id @-> id @-> returning (void)) x reloadDisplayedContentActionProperties -let interfaceAction' x ~reloadDisplayedContentVisualStyle self = msg_send ~self ~cmd:(selector "interfaceAction:reloadDisplayedContentVisualStyle:") ~typ:(id @-> id @-> returning (void)) x reloadDisplayedContentVisualStyle -let leadingImageLayoutSize self = msg_send_stret ~self ~cmd:(selector "leadingImageLayoutSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let preferredAction self = msg_send ~self ~cmd:(selector "preferredAction") ~typ:(returning (id)) -let setLeadingImageLayoutSize x self = msg_send ~self ~cmd:(selector "setLeadingImageLayoutSize:") ~typ:(CGSize.t @-> returning (void)) x -let setPreferredAction x self = msg_send ~self ~cmd:(selector "setPreferredAction:") ~typ:(id @-> returning (void)) x -let setTrailingImageLayoutSize x self = msg_send ~self ~cmd:(selector "setTrailingImageLayoutSize:") ~typ:(CGSize.t @-> returning (void)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let trailingImageLayoutSize self = msg_send_stret ~self ~cmd:(selector "trailingImageLayoutSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let weakDisplayPropertyObservers self = msg_send ~self ~cmd:(selector "weakDisplayPropertyObservers") ~typ:(returning (id)) \ No newline at end of file +let actions self = msg_send ~self ~cmd:(selector "actions") ~typ:(returning id) +let actionsBySection self = msg_send ~self ~cmd:(selector "actionsBySection") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let initWithTitle x ~actionsBySection self = msg_send ~self ~cmd:(selector "initWithTitle:actionsBySection:") ~typ:(id @-> id @-> returning id) x actionsBySection +let interfaceAction x ~reloadDisplayedContentActionProperties self = msg_send ~self ~cmd:(selector "interfaceAction:reloadDisplayedContentActionProperties:") ~typ:(id @-> id @-> returning void) x reloadDisplayedContentActionProperties +let interfaceAction' x ~reloadDisplayedContentVisualStyle self = msg_send ~self ~cmd:(selector "interfaceAction:reloadDisplayedContentVisualStyle:") ~typ:(id @-> id @-> returning void) x reloadDisplayedContentVisualStyle +let leadingImageLayoutSize self = msg_send ~self ~cmd:(selector "leadingImageLayoutSize") ~typ:(returning CGSize.t) +let preferredAction self = msg_send ~self ~cmd:(selector "preferredAction") ~typ:(returning id) +let setLeadingImageLayoutSize x self = msg_send ~self ~cmd:(selector "setLeadingImageLayoutSize:") ~typ:(CGSize.t @-> returning void) x +let setPreferredAction x self = msg_send ~self ~cmd:(selector "setPreferredAction:") ~typ:(id @-> returning void) x +let setTrailingImageLayoutSize x self = msg_send ~self ~cmd:(selector "setTrailingImageLayoutSize:") ~typ:(CGSize.t @-> returning void) x +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let trailingImageLayoutSize self = msg_send ~self ~cmd:(selector "trailingImageLayoutSize") ~typ:(returning CGSize.t) +let weakDisplayPropertyObservers self = msg_send ~self ~cmd:(selector "weakDisplayPropertyObservers") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInterfaceActionGroupClass.ml b/uikit/UIInterfaceActionGroupClass.ml new file mode 100644 index 00000000..a5b03cf7 --- /dev/null +++ b/uikit/UIInterfaceActionGroupClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactiongroup?language=objc}UIInterfaceActionGroup} *) + +let actionGroupWithActions x self = msg_send ~self ~cmd:(selector "actionGroupWithActions:") ~typ:(id @-> returning id) x +let actionGroupWithActionsBySection x self = msg_send ~self ~cmd:(selector "actionGroupWithActionsBySection:") ~typ:(id @-> returning id) x +let changedProperties x ~containsAny self = msg_send ~self ~cmd:(selector "changedProperties:containsAny:") ~typ:(id @-> id @-> returning bool) x containsAny \ No newline at end of file diff --git a/uikit/UIInterfaceActionGroupView.ml b/uikit/UIInterfaceActionGroupView.ml index ef2ac2a4..426e7d46 100644 --- a/uikit/UIInterfaceActionGroupView.ml +++ b/uikit/UIInterfaceActionGroupView.ml @@ -5,72 +5,76 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterfaceActionGroupView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactiongroupview?language=objc}UIInterfaceActionGroupView} *) -let actionGroup self = msg_send ~self ~cmd:(selector "actionGroup") ~typ:(returning (id)) -let actionHandlerInvocationDelegate self = msg_send ~self ~cmd:(selector "actionHandlerInvocationDelegate") ~typ:(returning (id)) -let actionLayoutAxis self = msg_send ~self ~cmd:(selector "actionLayoutAxis") ~typ:(returning (llong)) -let actionSelectionController self = msg_send ~self ~cmd:(selector "actionSelectionController") ~typ:(returning (id)) -let actionSelectionGestureRecognizer self = msg_send ~self ~cmd:(selector "actionSelectionGestureRecognizer") ~typ:(returning (id)) -let actionSequenceTopSeparatorView self = msg_send ~self ~cmd:(selector "actionSequenceTopSeparatorView") ~typ:(returning (id)) -let actionSequenceView self = msg_send ~self ~cmd:(selector "actionSequenceView") ~typ:(returning (id)) -let actionSequenceViewWidthAnchoredToConstantConstraint self = msg_send ~self ~cmd:(selector "actionSequenceViewWidthAnchoredToConstantConstraint") ~typ:(returning (id)) -let actionSequenceViewWidthAnchoredToContentGuideConstraint self = msg_send ~self ~cmd:(selector "actionSequenceViewWidthAnchoredToContentGuideConstraint") ~typ:(returning (id)) -let allowedActionLayoutAxisByPriority self = msg_send ~self ~cmd:(selector "allowedActionLayoutAxisByPriority") ~typ:(returning (id)) -let appliedVisualStyle self = msg_send ~self ~cmd:(selector "appliedVisualStyle") ~typ:(returning (id)) -let arrangedHeaderViews self = msg_send ~self ~cmd:(selector "arrangedHeaderViews") ~typ:(returning (id)) -let arrangedScrollableHeaderViews self = msg_send ~self ~cmd:(selector "arrangedScrollableHeaderViews") ~typ:(returning (id)) -let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning (id)) -let beginTrackingSessionByTakingOverForSystemProvidedGestureRecognizer x self = msg_send ~self ~cmd:(selector "beginTrackingSessionByTakingOverForSystemProvidedGestureRecognizer:") ~typ:(id @-> returning (void)) x -let configureForDismissAlongsideTransitionCoordinator x self = msg_send ~self ~cmd:(selector "configureForDismissAlongsideTransitionCoordinator:") ~typ:(id @-> returning (void)) x -let configureForPresentAlongsideTransitionCoordinator x self = msg_send ~self ~cmd:(selector "configureForPresentAlongsideTransitionCoordinator:") ~typ:(id @-> returning (void)) x -let contentGuide self = msg_send ~self ~cmd:(selector "contentGuide") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultVisualStyleForTraitCollection x ~presentationStyle self = msg_send ~self ~cmd:(selector "defaultVisualStyleForTraitCollection:presentationStyle:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int presentationStyle) -let initWithActionGroup x ~actionHandlerInvocationDelegate self = msg_send ~self ~cmd:(selector "initWithActionGroup:actionHandlerInvocationDelegate:") ~typ:(id @-> id @-> returning (id)) x actionHandlerInvocationDelegate -let insertArrangedHeaderView x ~atIndex ~scrollable self = msg_send ~self ~cmd:(selector "insertArrangedHeaderView:atIndex:scrollable:") ~typ:(id @-> ullong @-> bool @-> returning (void)) x (ULLong.of_int atIndex) scrollable -let interfaceAction x ~invokeActionHandler ~completion self = msg_send ~self ~cmd:(selector "interfaceAction:invokeActionHandler:completion:") ~typ:(id @-> ptr void @-> ptr void @-> returning (void)) x invokeActionHandler completion -let interfaceActionGroup x ~reloadDisplayedContentActionGroupProperties self = msg_send ~self ~cmd:(selector "interfaceActionGroup:reloadDisplayedContentActionGroupProperties:") ~typ:(id @-> id @-> returning (void)) x reloadDisplayedContentActionGroupProperties -let interfaceActionGroup' x ~reloadDisplayedContentVisualStyle self = msg_send ~self ~cmd:(selector "interfaceActionGroup:reloadDisplayedContentVisualStyle:") ~typ:(id @-> id @-> returning (void)) x reloadDisplayedContentVisualStyle -let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let preferredActionRepresentation self = msg_send ~self ~cmd:(selector "preferredActionRepresentation") ~typ:(returning (id)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let presentationStyle self = msg_send ~self ~cmd:(selector "presentationStyle") ~typ:(returning (llong)) -let reloadVisualStyle self = msg_send ~self ~cmd:(selector "reloadVisualStyle") ~typ:(returning (void)) -let removeArrangedHeaderView x self = msg_send ~self ~cmd:(selector "removeArrangedHeaderView:") ~typ:(id @-> returning (void)) x -let requiredActionRepresentationWidth self = msg_send ~self ~cmd:(selector "requiredActionRepresentationWidth") ~typ:(returning (double)) -let scrollToCenterForInterfaceAction x self = msg_send ~self ~cmd:(selector "scrollToCenterForInterfaceAction:") ~typ:(id @-> returning (void)) x -let scrubbingEnabled self = msg_send ~self ~cmd:(selector "scrubbingEnabled") ~typ:(returning (bool)) -let setActionGroup x self = msg_send ~self ~cmd:(selector "setActionGroup:") ~typ:(id @-> returning (void)) x -let setActionHandlerInvocationDelegate x self = msg_send ~self ~cmd:(selector "setActionHandlerInvocationDelegate:") ~typ:(id @-> returning (void)) x -let setActionLayoutAxis x self = msg_send ~self ~cmd:(selector "setActionLayoutAxis:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setActionSelectionGestureRecognizer x self = msg_send ~self ~cmd:(selector "setActionSelectionGestureRecognizer:") ~typ:(id @-> returning (void)) x -let setActiveTestingVisualStyle x self = msg_send ~self ~cmd:(selector "setActiveTestingVisualStyle:") ~typ:(id @-> returning (void)) x -let setAllowedActionLayoutAxisByPriority x self = msg_send ~self ~cmd:(selector "setAllowedActionLayoutAxisByPriority:") ~typ:(id @-> returning (void)) x -let setAppliedVisualStyle x self = msg_send ~self ~cmd:(selector "setAppliedVisualStyle:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setPreferredActionRepresentation x self = msg_send ~self ~cmd:(selector "setPreferredActionRepresentation:") ~typ:(id @-> returning (void)) x -let setPresentationStyle x self = msg_send ~self ~cmd:(selector "setPresentationStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setRequiredActionRepresentationWidth x self = msg_send ~self ~cmd:(selector "setRequiredActionRepresentationWidth:") ~typ:(double @-> returning (void)) x -let setScrubbingEnabled x self = msg_send ~self ~cmd:(selector "setScrubbingEnabled:") ~typ:(bool @-> returning (void)) x -let setShowsSeparatorAboveActions x self = msg_send ~self ~cmd:(selector "setShowsSeparatorAboveActions:") ~typ:(bool @-> returning (void)) x -let setSimultaneouslyPresentedGroupViews x self = msg_send ~self ~cmd:(selector "setSimultaneouslyPresentedGroupViews:") ~typ:(id @-> returning (void)) x -let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning (void)) x -let setVisualStyle x self = msg_send ~self ~cmd:(selector "setVisualStyle:") ~typ:(id @-> returning (void)) x -let setVisualStyleProvider x self = msg_send ~self ~cmd:(selector "setVisualStyleProvider:") ~typ:(id @-> returning (void)) x -let showsSeparatorAboveActions self = msg_send ~self ~cmd:(selector "showsSeparatorAboveActions") ~typ:(returning (bool)) -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let topLevelItemsView self = msg_send ~self ~cmd:(selector "topLevelItemsView") ~typ:(returning (id)) -let topLevelViewArrangementConstraints self = msg_send ~self ~cmd:(selector "topLevelViewArrangementConstraints") ~typ:(returning (id)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning (void)) -let visualStyle self = msg_send ~self ~cmd:(selector "visualStyle") ~typ:(returning (id)) -let visualStyleOverrideActionHighlightAttributes self = msg_send ~self ~cmd:(selector "visualStyleOverrideActionHighlightAttributes") ~typ:(returning (id)) -let visualStyleProvider self = msg_send ~self ~cmd:(selector "visualStyleProvider") ~typ:(returning (id)) -let weakSimultaneouslyPresentedGroupViews self = msg_send ~self ~cmd:(selector "weakSimultaneouslyPresentedGroupViews") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIInterfaceActionGroupView" + +let actionGroup self = msg_send ~self ~cmd:(selector "actionGroup") ~typ:(returning id) +let actionHandlerInvocationDelegate self = msg_send ~self ~cmd:(selector "actionHandlerInvocationDelegate") ~typ:(returning id) +let actionLayoutAxis self = msg_send ~self ~cmd:(selector "actionLayoutAxis") ~typ:(returning llong) +let actionSelectionController self = msg_send ~self ~cmd:(selector "actionSelectionController") ~typ:(returning id) +let actionSelectionGestureRecognizer self = msg_send ~self ~cmd:(selector "actionSelectionGestureRecognizer") ~typ:(returning id) +let actionSequenceTopSeparatorView self = msg_send ~self ~cmd:(selector "actionSequenceTopSeparatorView") ~typ:(returning id) +let actionSequenceView self = msg_send ~self ~cmd:(selector "actionSequenceView") ~typ:(returning id) +let actionSequenceViewWidthAnchoredToConstantConstraint self = msg_send ~self ~cmd:(selector "actionSequenceViewWidthAnchoredToConstantConstraint") ~typ:(returning id) +let actionSequenceViewWidthAnchoredToContentGuideConstraint self = msg_send ~self ~cmd:(selector "actionSequenceViewWidthAnchoredToContentGuideConstraint") ~typ:(returning id) +let allowedActionLayoutAxisByPriority self = msg_send ~self ~cmd:(selector "allowedActionLayoutAxisByPriority") ~typ:(returning id) +let appliedVisualStyle self = msg_send ~self ~cmd:(selector "appliedVisualStyle") ~typ:(returning id) +let arrangedHeaderViews self = msg_send ~self ~cmd:(selector "arrangedHeaderViews") ~typ:(returning id) +let arrangedScrollableHeaderViews self = msg_send ~self ~cmd:(selector "arrangedScrollableHeaderViews") ~typ:(returning id) +let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning id) +let beginTrackingSessionByTakingOverForSystemProvidedGestureRecognizer x self = msg_send ~self ~cmd:(selector "beginTrackingSessionByTakingOverForSystemProvidedGestureRecognizer:") ~typ:(id @-> returning void) x +let configureForDismissAlongsideTransitionCoordinator x self = msg_send ~self ~cmd:(selector "configureForDismissAlongsideTransitionCoordinator:") ~typ:(id @-> returning void) x +let configureForPresentAlongsideTransitionCoordinator x self = msg_send ~self ~cmd:(selector "configureForPresentAlongsideTransitionCoordinator:") ~typ:(id @-> returning void) x +let contentGuide self = msg_send ~self ~cmd:(selector "contentGuide") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultVisualStyleForTraitCollection x ~presentationStyle self = msg_send ~self ~cmd:(selector "defaultVisualStyleForTraitCollection:presentationStyle:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int presentationStyle) +let initWithActionGroup x ~actionHandlerInvocationDelegate self = msg_send ~self ~cmd:(selector "initWithActionGroup:actionHandlerInvocationDelegate:") ~typ:(id @-> id @-> returning id) x actionHandlerInvocationDelegate +let insertArrangedHeaderView x ~atIndex ~scrollable self = msg_send ~self ~cmd:(selector "insertArrangedHeaderView:atIndex:scrollable:") ~typ:(id @-> ullong @-> bool @-> returning void) x (ULLong.of_int atIndex) scrollable +let interfaceAction x ~invokeActionHandler ~completion self = msg_send ~self ~cmd:(selector "interfaceAction:invokeActionHandler:completion:") ~typ:(id @-> (ptr void) @-> (ptr void) @-> returning void) x invokeActionHandler completion +let interfaceActionGroup x ~reloadDisplayedContentActionGroupProperties self = msg_send ~self ~cmd:(selector "interfaceActionGroup:reloadDisplayedContentActionGroupProperties:") ~typ:(id @-> id @-> returning void) x reloadDisplayedContentActionGroupProperties +let interfaceActionGroup' x ~reloadDisplayedContentVisualStyle self = msg_send ~self ~cmd:(selector "interfaceActionGroup:reloadDisplayedContentVisualStyle:") ~typ:(id @-> id @-> returning void) x reloadDisplayedContentVisualStyle +let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let preferredActionRepresentation self = msg_send ~self ~cmd:(selector "preferredActionRepresentation") ~typ:(returning id) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let presentationStyle self = msg_send ~self ~cmd:(selector "presentationStyle") ~typ:(returning llong) +let reloadVisualStyle self = msg_send ~self ~cmd:(selector "reloadVisualStyle") ~typ:(returning void) +let removeArrangedHeaderView x self = msg_send ~self ~cmd:(selector "removeArrangedHeaderView:") ~typ:(id @-> returning void) x +let requiredActionRepresentationWidth self = msg_send ~self ~cmd:(selector "requiredActionRepresentationWidth") ~typ:(returning double) +let scrollToCenterForInterfaceAction x self = msg_send ~self ~cmd:(selector "scrollToCenterForInterfaceAction:") ~typ:(id @-> returning void) x +let scrubbingEnabled self = msg_send ~self ~cmd:(selector "scrubbingEnabled") ~typ:(returning bool) +let setActionGroup x self = msg_send ~self ~cmd:(selector "setActionGroup:") ~typ:(id @-> returning void) x +let setActionHandlerInvocationDelegate x self = msg_send ~self ~cmd:(selector "setActionHandlerInvocationDelegate:") ~typ:(id @-> returning void) x +let setActionLayoutAxis x self = msg_send ~self ~cmd:(selector "setActionLayoutAxis:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setActionSelectionGestureRecognizer x self = msg_send ~self ~cmd:(selector "setActionSelectionGestureRecognizer:") ~typ:(id @-> returning void) x +let setActiveTestingVisualStyle x self = msg_send ~self ~cmd:(selector "setActiveTestingVisualStyle:") ~typ:(id @-> returning void) x +let setAllowedActionLayoutAxisByPriority x self = msg_send ~self ~cmd:(selector "setAllowedActionLayoutAxisByPriority:") ~typ:(id @-> returning void) x +let setAppliedVisualStyle x self = msg_send ~self ~cmd:(selector "setAppliedVisualStyle:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setPreferredActionRepresentation x self = msg_send ~self ~cmd:(selector "setPreferredActionRepresentation:") ~typ:(id @-> returning void) x +let setPresentationStyle x self = msg_send ~self ~cmd:(selector "setPresentationStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setRequiredActionRepresentationWidth x self = msg_send ~self ~cmd:(selector "setRequiredActionRepresentationWidth:") ~typ:(double @-> returning void) x +let setScrubbingEnabled x self = msg_send ~self ~cmd:(selector "setScrubbingEnabled:") ~typ:(bool @-> returning void) x +let setShowsSeparatorAboveActions x self = msg_send ~self ~cmd:(selector "setShowsSeparatorAboveActions:") ~typ:(bool @-> returning void) x +let setSimultaneouslyPresentedGroupViews x self = msg_send ~self ~cmd:(selector "setSimultaneouslyPresentedGroupViews:") ~typ:(id @-> returning void) x +let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning void) x +let setVisualStyle x self = msg_send ~self ~cmd:(selector "setVisualStyle:") ~typ:(id @-> returning void) x +let setVisualStyleProvider x self = msg_send ~self ~cmd:(selector "setVisualStyleProvider:") ~typ:(id @-> returning void) x +let showsSeparatorAboveActions self = msg_send ~self ~cmd:(selector "showsSeparatorAboveActions") ~typ:(returning bool) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let topLevelItemsView self = msg_send ~self ~cmd:(selector "topLevelItemsView") ~typ:(returning id) +let topLevelViewArrangementConstraints self = msg_send ~self ~cmd:(selector "topLevelViewArrangementConstraints") ~typ:(returning id) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning void) +let visualStyle self = msg_send ~self ~cmd:(selector "visualStyle") ~typ:(returning id) +let visualStyleOverrideActionHighlightAttributes self = msg_send ~self ~cmd:(selector "visualStyleOverrideActionHighlightAttributes") ~typ:(returning id) +let visualStyleProvider self = msg_send ~self ~cmd:(selector "visualStyleProvider") ~typ:(returning id) +let weakSimultaneouslyPresentedGroupViews self = msg_send ~self ~cmd:(selector "weakSimultaneouslyPresentedGroupViews") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInterfaceActionGroupViewController.ml b/uikit/UIInterfaceActionGroupViewController.ml index 52185a83..a681bb21 100644 --- a/uikit/UIInterfaceActionGroupViewController.ml +++ b/uikit/UIInterfaceActionGroupViewController.ml @@ -5,21 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterfaceActionGroupViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactiongroupviewcontroller?language=objc}UIInterfaceActionGroupViewController} *) -let actionGroup self = msg_send ~self ~cmd:(selector "actionGroup") ~typ:(returning (id)) -let actionGroupView self = msg_send ~self ~cmd:(selector "actionGroupView") ~typ:(returning (id)) -let defaultVisualStyleForTraitCollection x ~presentationStyle self = msg_send ~self ~cmd:(selector "defaultVisualStyleForTraitCollection:presentationStyle:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int presentationStyle) -let initWithActionGroup x self = msg_send ~self ~cmd:(selector "initWithActionGroup:") ~typ:(id @-> returning (id)) x -let interfaceAction x ~invokeActionHandler ~completion self = msg_send ~self ~cmd:(selector "interfaceAction:invokeActionHandler:completion:") ~typ:(id @-> ptr void @-> ptr void @-> returning (void)) x invokeActionHandler completion -let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning (bool)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let reloadVisualStyle self = msg_send ~self ~cmd:(selector "reloadVisualStyle") ~typ:(returning (void)) -let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning (void)) x -let setVisualStyleProvider x self = msg_send ~self ~cmd:(selector "setVisualStyleProvider:") ~typ:(id @-> returning (void)) x -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let visualStyle self = msg_send ~self ~cmd:(selector "visualStyle") ~typ:(returning (id)) -let visualStyleProvider self = msg_send ~self ~cmd:(selector "visualStyleProvider") ~typ:(returning (id)) -let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning (void)) x withTransitionCoordinator \ No newline at end of file +let self = get_class "UIInterfaceActionGroupViewController" + +let actionGroup self = msg_send ~self ~cmd:(selector "actionGroup") ~typ:(returning id) +let actionGroupView self = msg_send ~self ~cmd:(selector "actionGroupView") ~typ:(returning id) +let defaultVisualStyleForTraitCollection x ~presentationStyle self = msg_send ~self ~cmd:(selector "defaultVisualStyleForTraitCollection:presentationStyle:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int presentationStyle) +let initWithActionGroup x self = msg_send ~self ~cmd:(selector "initWithActionGroup:") ~typ:(id @-> returning id) x +let interfaceAction x ~invokeActionHandler ~completion self = msg_send ~self ~cmd:(selector "interfaceAction:invokeActionHandler:completion:") ~typ:(id @-> (ptr void) @-> (ptr void) @-> returning void) x invokeActionHandler completion +let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning bool) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let reloadVisualStyle self = msg_send ~self ~cmd:(selector "reloadVisualStyle") ~typ:(returning void) +let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning void) x +let setVisualStyleProvider x self = msg_send ~self ~cmd:(selector "setVisualStyleProvider:") ~typ:(id @-> returning void) x +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let visualStyle self = msg_send ~self ~cmd:(selector "visualStyle") ~typ:(returning id) +let visualStyleProvider self = msg_send ~self ~cmd:(selector "visualStyleProvider") ~typ:(returning id) +let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning void) x withTransitionCoordinator \ No newline at end of file diff --git a/uikit/UIInterfaceActionGroupViewState.ml b/uikit/UIInterfaceActionGroupViewState.ml index 8428c94f..ec7d5fa5 100644 --- a/uikit/UIInterfaceActionGroupViewState.ml +++ b/uikit/UIInterfaceActionGroupViewState.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterfaceActionGroupViewState" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactiongroupviewstate?language=objc}UIInterfaceActionGroupViewState} *) -let copyWithResolvedPresentationStyle x self = msg_send ~self ~cmd:(selector "copyWithResolvedPresentationStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let copyWithVerticalLayoutAxis x self = msg_send ~self ~cmd:(selector "copyWithVerticalLayoutAxis:") ~typ:(bool @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isVerticalLayoutAxis self = msg_send ~self ~cmd:(selector "isVerticalLayoutAxis") ~typ:(returning (bool)) -let resolvedPresentationStyle self = msg_send ~self ~cmd:(selector "resolvedPresentationStyle") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIInterfaceActionGroupViewState" + +let copyWithResolvedPresentationStyle x self = msg_send ~self ~cmd:(selector "copyWithResolvedPresentationStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let copyWithVerticalLayoutAxis x self = msg_send ~self ~cmd:(selector "copyWithVerticalLayoutAxis:") ~typ:(bool @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isVerticalLayoutAxis self = msg_send ~self ~cmd:(selector "isVerticalLayoutAxis") ~typ:(returning bool) +let resolvedPresentationStyle self = msg_send ~self ~cmd:(selector "resolvedPresentationStyle") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIInterfaceActionHighlightAttributes.ml b/uikit/UIInterfaceActionHighlightAttributes.ml deleted file mode 100644 index 073607a0..00000000 --- a/uikit/UIInterfaceActionHighlightAttributes.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInterfaceActionHighlightAttributes" - -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let filters self = msg_send ~self ~cmd:(selector "filters") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let newBackgroundHighlightView self = msg_send ~self ~cmd:(selector "newBackgroundHighlightView") ~typ:(returning (id)) -let opacity self = msg_send ~self ~cmd:(selector "opacity") ~typ:(returning (double)) -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setFilters x self = msg_send ~self ~cmd:(selector "setFilters:") ~typ:(id @-> returning (void)) x -let setOpacity x self = msg_send ~self ~cmd:(selector "setOpacity:") ~typ:(double @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIInterfaceActionOverrideVisualStyle.ml b/uikit/UIInterfaceActionOverrideVisualStyle.ml deleted file mode 100644 index b7d4ccea..00000000 --- a/uikit/UIInterfaceActionOverrideVisualStyle.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInterfaceActionOverrideVisualStyle" - -module C = struct - let styleOverride self = msg_send ~self ~cmd:(selector "styleOverride") ~typ:(returning (id)) -end - -let actionTitleLabelFontForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelFontForViewState:") ~typ:(id @-> returning (id)) x -let alignActionSeparatorLeadingEdgeWithContent self = msg_send ~self ~cmd:(selector "alignActionSeparatorLeadingEdgeWithContent") ~typ:(returning (bool)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let customActionHighlightAttributes self = msg_send ~self ~cmd:(selector "customActionHighlightAttributes") ~typ:(returning (id)) -let customSelectionHighlightContinuousCornerRadius self = msg_send ~self ~cmd:(selector "customSelectionHighlightContinuousCornerRadius") ~typ:(returning (double)) -let customSeparatorAttributes self = msg_send ~self ~cmd:(selector "customSeparatorAttributes") ~typ:(returning (id)) -let customTitleLabelFontProviderForViewState self = msg_send ~self ~cmd:(selector "customTitleLabelFontProviderForViewState") ~typ:(returning (ptr void)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning (id)) x -let newActionSeparatorViewForGroupViewState x self = msg_send ~self ~cmd:(selector "newActionSeparatorViewForGroupViewState:") ~typ:(id @-> returning (id)) x -let setAlignActionSeparatorLeadingEdgeWithContent x self = msg_send ~self ~cmd:(selector "setAlignActionSeparatorLeadingEdgeWithContent:") ~typ:(bool @-> returning (void)) x -let setCustomActionHighlightAttributes x self = msg_send ~self ~cmd:(selector "setCustomActionHighlightAttributes:") ~typ:(id @-> returning (void)) x -let setCustomSelectionHighlightContinuousCornerRadius x self = msg_send ~self ~cmd:(selector "setCustomSelectionHighlightContinuousCornerRadius:") ~typ:(double @-> returning (void)) x -let setCustomSeparatorAttributes x self = msg_send ~self ~cmd:(selector "setCustomSeparatorAttributes:") ~typ:(id @-> returning (void)) x -let setCustomTitleLabelFontProviderForViewState x self = msg_send ~self ~cmd:(selector "setCustomTitleLabelFontProviderForViewState:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIInterfaceActionRepresentationView.ml b/uikit/UIInterfaceActionRepresentationView.ml deleted file mode 100644 index 8d2b1ca3..00000000 --- a/uikit/UIInterfaceActionRepresentationView.ml +++ /dev/null @@ -1,58 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInterfaceActionRepresentationView" - -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (id)) -let actionViewStateContext self = msg_send ~self ~cmd:(selector "actionViewStateContext") ~typ:(returning (id)) -let backgroundHighlightView self = msg_send ~self ~cmd:(selector "backgroundHighlightView") ~typ:(returning (id)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let canRemoveContentFromHierarchyWhenNotVisible self = msg_send ~self ~cmd:(selector "canRemoveContentFromHierarchyWhenNotVisible") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let hasLayoutHeightConstraintsIdenticalToRepresentationView x self = msg_send ~self ~cmd:(selector "hasLayoutHeightConstraintsIdenticalToRepresentationView:") ~typ:(id @-> returning (bool)) x -let initWithAction x self = msg_send ~self ~cmd:(selector "initWithAction:") ~typ:(id @-> returning (id)) x -let interactionForSpringLoading self = msg_send ~self ~cmd:(selector "interactionForSpringLoading") ~typ:(returning (id)) -let interfaceAction x ~reloadDisplayedContentActionProperties self = msg_send ~self ~cmd:(selector "interfaceAction:reloadDisplayedContentActionProperties:") ~typ:(id @-> id @-> returning (void)) x reloadDisplayedContentActionProperties -let interfaceAction' x ~reloadDisplayedContentVisualStyle self = msg_send ~self ~cmd:(selector "interfaceAction:reloadDisplayedContentVisualStyle:") ~typ:(id @-> id @-> returning (void)) x reloadDisplayedContentVisualStyle -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let invalidateIntrinsicContentSize self = msg_send ~self ~cmd:(selector "invalidateIntrinsicContentSize") ~typ:(returning (void)) -let invokeInterfaceAction self = msg_send ~self ~cmd:(selector "invokeInterfaceAction") ~typ:(returning (void)) -let isFocused self = msg_send ~self ~cmd:(selector "isFocused") ~typ:(returning (bool)) -let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning (bool)) -let isPressed self = msg_send ~self ~cmd:(selector "isPressed") ~typ:(returning (bool)) -let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning (bool)) -let layoutMarginsDidChange self = msg_send ~self ~cmd:(selector "layoutMarginsDidChange") ~typ:(returning (void)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let loadContents self = msg_send ~self ~cmd:(selector "loadContents") ~typ:(returning (void)) -let minimumHeightConstraint self = msg_send ~self ~cmd:(selector "minimumHeightConstraint") ~typ:(returning (id)) -let minimumWidthConstraint self = msg_send ~self ~cmd:(selector "minimumWidthConstraint") ~typ:(returning (id)) -let ownsActionContent self = msg_send ~self ~cmd:(selector "ownsActionContent") ~typ:(returning (bool)) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let sectionID self = msg_send ~self ~cmd:(selector "sectionID") ~typ:(returning (id)) -let setActionViewStateContext x self = msg_send ~self ~cmd:(selector "setActionViewStateContext:") ~typ:(id @-> returning (void)) x -let setCanRemoveContentFromHierarchyWhenNotVisible x self = msg_send ~self ~cmd:(selector "setCanRemoveContentFromHierarchyWhenNotVisible:") ~typ:(bool @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setInteractionForSpringLoading x self = msg_send ~self ~cmd:(selector "setInteractionForSpringLoading:") ~typ:(id @-> returning (void)) x -let setOwnsActionContent x self = msg_send ~self ~cmd:(selector "setOwnsActionContent:") ~typ:(bool @-> returning (void)) x -let setPressed x self = msg_send ~self ~cmd:(selector "setPressed:") ~typ:(bool @-> returning (void)) x -let setSectionID x self = msg_send ~self ~cmd:(selector "setSectionID:") ~typ:(id @-> returning (void)) x -let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning (void)) x -let setViewsToDisappearWhenHighlighted x self = msg_send ~self ~cmd:(selector "setViewsToDisappearWhenHighlighted:") ~typ:(id @-> returning (void)) x -let setVisualCornerPosition x self = msg_send ~self ~cmd:(selector "setVisualCornerPosition:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let systemLayoutSizeFittingSize x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send_stret ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning (CGSize.t)) ~return_type:CGSize.t x withHorizontalFittingPriority verticalFittingPriority -let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning (void)) -let updateContentsInsertedIntoHierarchy self = msg_send ~self ~cmd:(selector "updateContentsInsertedIntoHierarchy") ~typ:(returning (void)) -let viewsToDisappearWhenHighlighted self = msg_send ~self ~cmd:(selector "viewsToDisappearWhenHighlighted") ~typ:(returning (id)) -let visualCornerPosition self = msg_send ~self ~cmd:(selector "visualCornerPosition") ~typ:(returning (ullong)) -let visualStyle self = msg_send ~self ~cmd:(selector "visualStyle") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIInterfaceActionRepresentationViewSpringLoadedEffect.ml b/uikit/UIInterfaceActionRepresentationViewSpringLoadedEffect.ml deleted file mode 100644 index ee2a4d16..00000000 --- a/uikit/UIInterfaceActionRepresentationViewSpringLoadedEffect.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInterfaceActionRepresentationViewSpringLoadedEffect" - -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let interaction x ~didChangeWithContext self = msg_send ~self ~cmd:(selector "interaction:didChangeWithContext:") ~typ:(id @-> id @-> returning (void)) x didChangeWithContext \ No newline at end of file diff --git a/uikit/UIInterfaceActionSection.ml b/uikit/UIInterfaceActionSection.ml index 8f274d50..b7a29927 100644 --- a/uikit/UIInterfaceActionSection.ml +++ b/uikit/UIInterfaceActionSection.ml @@ -5,16 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterfaceActionSection" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionsection?language=objc}UIInterfaceActionSection} *) -module C = struct - let actionsFromSections x self = msg_send ~self ~cmd:(selector "actionsFromSections:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIInterfaceActionSection" -let actions self = msg_send ~self ~cmd:(selector "actions") ~typ:(returning (id)) -let copyOfActions self = msg_send ~self ~cmd:(selector "copyOfActions") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let initWithActions x self = msg_send ~self ~cmd:(selector "initWithActions:") ~typ:(id @-> returning (id)) x -let sectionID self = msg_send ~self ~cmd:(selector "sectionID") ~typ:(returning (id)) \ No newline at end of file +let actions self = msg_send ~self ~cmd:(selector "actions") ~typ:(returning id) +let copyOfActions self = msg_send ~self ~cmd:(selector "copyOfActions") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let initWithActions x self = msg_send ~self ~cmd:(selector "initWithActions:") ~typ:(id @-> returning id) x +let sectionID self = msg_send ~self ~cmd:(selector "sectionID") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInterfaceActionSectionClass.ml b/uikit/UIInterfaceActionSectionClass.ml new file mode 100644 index 00000000..df2d029d --- /dev/null +++ b/uikit/UIInterfaceActionSectionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionsection?language=objc}UIInterfaceActionSection} *) + +let actionsFromSections x self = msg_send ~self ~cmd:(selector "actionsFromSections:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIInterfaceActionSelectionTrackingController.ml b/uikit/UIInterfaceActionSelectionTrackingController.ml deleted file mode 100644 index ca2a9546..00000000 --- a/uikit/UIInterfaceActionSelectionTrackingController.ml +++ /dev/null @@ -1,53 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInterfaceActionSelectionTrackingController" - -let actionSelectionInitialLocationInContainerView self = msg_send_stret ~self ~cmd:(selector "actionSelectionInitialLocationInContainerView") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let actionsScrollView self = msg_send ~self ~cmd:(selector "actionsScrollView") ~typ:(returning (id)) -let beginTrackingSessionByTakingOverForSystemProvidedGestureRecognizer x self = msg_send ~self ~cmd:(selector "beginTrackingSessionByTakingOverForSystemProvidedGestureRecognizer:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deselectAllActions self = msg_send ~self ~cmd:(selector "deselectAllActions") ~typ:(returning (void)) -let focusedInterfaceAction self = msg_send ~self ~cmd:(selector "focusedInterfaceAction") ~typ:(returning (id)) -let gestureRecognizer x ~shouldRequireFailureOfGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRequireFailureOfGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRequireFailureOfGestureRecognizer -let handlePressedFocusedInterfaceAction x self = msg_send ~self ~cmd:(selector "handlePressedFocusedInterfaceAction:") ~typ:(id @-> returning (void)) x -let hoverGestureRecognizer self = msg_send ~self ~cmd:(selector "hoverGestureRecognizer") ~typ:(returning (id)) -let initWithTrackableContainerView x ~actionsScrollView self = msg_send ~self ~cmd:(selector "initWithTrackableContainerView:actionsScrollView:") ~typ:(id @-> id @-> returning (id)) x actionsScrollView -let proposedActionToActivate self = msg_send ~self ~cmd:(selector "proposedActionToActivate") ~typ:(returning (id)) -let representationViews self = msg_send ~self ~cmd:(selector "representationViews") ~typ:(returning (id)) -let scrollViewDidEndDeceleratingNotificationToken self = msg_send ~self ~cmd:(selector "scrollViewDidEndDeceleratingNotificationToken") ~typ:(returning (id)) -let scrollViewDidEndDraggingNotificationToken self = msg_send ~self ~cmd:(selector "scrollViewDidEndDraggingNotificationToken") ~typ:(returning (id)) -let scrollViewWillBeginDraggingNotificationToken self = msg_send ~self ~cmd:(selector "scrollViewWillBeginDraggingNotificationToken") ~typ:(returning (id)) -let scrubbingEnabled self = msg_send ~self ~cmd:(selector "scrubbingEnabled") ~typ:(returning (bool)) -let selectByIndirectPointerTouchEnabled self = msg_send ~self ~cmd:(selector "selectByIndirectPointerTouchEnabled") ~typ:(returning (bool)) -let selectByPressGestureEnabled self = msg_send ~self ~cmd:(selector "selectByPressGestureEnabled") ~typ:(returning (bool)) -let selectByPressGestureRecognizer self = msg_send ~self ~cmd:(selector "selectByPressGestureRecognizer") ~typ:(returning (id)) -let selectionDelayGestureRecognizer self = msg_send ~self ~cmd:(selector "selectionDelayGestureRecognizer") ~typ:(returning (id)) -let selectionFeedbackEnabled self = msg_send ~self ~cmd:(selector "selectionFeedbackEnabled") ~typ:(returning (bool)) -let selectionGestureRecognizer self = msg_send ~self ~cmd:(selector "selectionGestureRecognizer") ~typ:(returning (id)) -let selectionRetargetFeedbackGenerator self = msg_send ~self ~cmd:(selector "selectionRetargetFeedbackGenerator") ~typ:(returning (id)) -let setActionsScrollView x self = msg_send ~self ~cmd:(selector "setActionsScrollView:") ~typ:(id @-> returning (void)) x -let setCooperatingSelectionTrackingControllers x self = msg_send ~self ~cmd:(selector "setCooperatingSelectionTrackingControllers:") ~typ:(id @-> returning (void)) x -let setHoverGestureRecognizer x self = msg_send ~self ~cmd:(selector "setHoverGestureRecognizer:") ~typ:(id @-> returning (void)) x -let setProposedActionToActivate x self = msg_send ~self ~cmd:(selector "setProposedActionToActivate:") ~typ:(id @-> returning (void)) x -let setRepresentationViews x self = msg_send ~self ~cmd:(selector "setRepresentationViews:") ~typ:(id @-> returning (void)) x -let setScrollViewDidEndDeceleratingNotificationToken x self = msg_send ~self ~cmd:(selector "setScrollViewDidEndDeceleratingNotificationToken:") ~typ:(id @-> returning (void)) x -let setScrollViewDidEndDraggingNotificationToken x self = msg_send ~self ~cmd:(selector "setScrollViewDidEndDraggingNotificationToken:") ~typ:(id @-> returning (void)) x -let setScrollViewWillBeginDraggingNotificationToken x self = msg_send ~self ~cmd:(selector "setScrollViewWillBeginDraggingNotificationToken:") ~typ:(id @-> returning (void)) x -let setScrubbingEnabled x self = msg_send ~self ~cmd:(selector "setScrubbingEnabled:") ~typ:(bool @-> returning (void)) x -let setSelectByIndirectPointerTouchEnabled x self = msg_send ~self ~cmd:(selector "setSelectByIndirectPointerTouchEnabled:") ~typ:(bool @-> returning (void)) x -let setSelectByPressGestureEnabled x self = msg_send ~self ~cmd:(selector "setSelectByPressGestureEnabled:") ~typ:(bool @-> returning (void)) x -let setSelectByPressGestureRecognizer x self = msg_send ~self ~cmd:(selector "setSelectByPressGestureRecognizer:") ~typ:(id @-> returning (void)) x -let setSelectionFeedbackEnabled x self = msg_send ~self ~cmd:(selector "setSelectionFeedbackEnabled:") ~typ:(bool @-> returning (void)) x -let setSelectionRetargetFeedbackGenerator x self = msg_send ~self ~cmd:(selector "setSelectionRetargetFeedbackGenerator:") ~typ:(id @-> returning (void)) x -let setTrackableContainerView x self = msg_send ~self ~cmd:(selector "setTrackableContainerView:") ~typ:(id @-> returning (void)) x -let setWeakCooperatingSelectionTrackingControllers x self = msg_send ~self ~cmd:(selector "setWeakCooperatingSelectionTrackingControllers:") ~typ:(id @-> returning (void)) x -let systemProvidedGestureRecognizer self = msg_send ~self ~cmd:(selector "systemProvidedGestureRecognizer") ~typ:(returning (id)) -let trackableContainerView self = msg_send ~self ~cmd:(selector "trackableContainerView") ~typ:(returning (id)) -let viewsRequiringSelectionGestureDisabling self = msg_send ~self ~cmd:(selector "viewsRequiringSelectionGestureDisabling") ~typ:(returning (id)) -let weakCooperatingSelectionTrackingControllers self = msg_send ~self ~cmd:(selector "weakCooperatingSelectionTrackingControllers") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIInterfaceActionSeparatorAttributes.ml b/uikit/UIInterfaceActionSeparatorAttributes.ml index c66f65bf..1372e42c 100644 --- a/uikit/UIInterfaceActionSeparatorAttributes.ml +++ b/uikit/UIInterfaceActionSeparatorAttributes.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterfaceActionSeparatorAttributes" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionseparatorattributes?language=objc}UIInterfaceActionSeparatorAttributes} *) -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let filters self = msg_send ~self ~cmd:(selector "filters") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let newSeparatorView self = msg_send ~self ~cmd:(selector "newSeparatorView") ~typ:(returning (id)) -let opacity self = msg_send ~self ~cmd:(selector "opacity") ~typ:(returning (double)) -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setFilters x self = msg_send ~self ~cmd:(selector "setFilters:") ~typ:(id @-> returning (void)) x -let setOpacity x self = msg_send ~self ~cmd:(selector "setOpacity:") ~typ:(double @-> returning (void)) x \ No newline at end of file +let self = get_class "UIInterfaceActionSeparatorAttributes" + +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let filters self = msg_send ~self ~cmd:(selector "filters") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let newSeparatorView self = msg_send ~self ~cmd:(selector "newSeparatorView") ~typ:(returning id) +let opacity self = msg_send ~self ~cmd:(selector "opacity") ~typ:(returning double) +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setFilters x self = msg_send ~self ~cmd:(selector "setFilters:") ~typ:(id @-> returning void) x +let setOpacity x self = msg_send ~self ~cmd:(selector "setOpacity:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit/UIInterfaceActionViewState.ml b/uikit/UIInterfaceActionViewState.ml index 320c7f26..0cef3bed 100644 --- a/uikit/UIInterfaceActionViewState.ml +++ b/uikit/UIInterfaceActionViewState.ml @@ -5,24 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterfaceActionViewState" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionviewstate?language=objc}UIInterfaceActionViewState} *) -module C = struct - let viewStateForActionRepresentationView x ~action self = msg_send ~self ~cmd:(selector "viewStateForActionRepresentationView:action:") ~typ:(id @-> id @-> returning (id)) x action - let viewStateForActionRepresentationViewDescendantView x ~action self = msg_send ~self ~cmd:(selector "viewStateForActionRepresentationViewDescendantView:action:") ~typ:(id @-> id @-> returning (id)) x action - let viewStateForAlertControllerActionView x self = msg_send ~self ~cmd:(selector "viewStateForAlertControllerActionView:") ~typ:(id @-> returning (id)) x - let viewStateRepresentingDefaultAction self = msg_send ~self ~cmd:(selector "viewStateRepresentingDefaultAction") ~typ:(returning (id)) - let viewStateRepresentingPreferredAction self = msg_send ~self ~cmd:(selector "viewStateRepresentingPreferredAction") ~typ:(returning (id)) -end +let self = get_class "UIInterfaceActionViewState" -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (id)) -let actionViewStateContext self = msg_send ~self ~cmd:(selector "actionViewStateContext") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithPropertiesFromActionRepresentationView x ~groupView ~action self = msg_send ~self ~cmd:(selector "initWithPropertiesFromActionRepresentationView:groupView:action:") ~typ:(id @-> id @-> id @-> returning (id)) x groupView action -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isFocused self = msg_send ~self ~cmd:(selector "isFocused") ~typ:(returning (bool)) -let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning (bool)) -let isPreferred self = msg_send ~self ~cmd:(selector "isPreferred") ~typ:(returning (bool)) -let isPressed self = msg_send ~self ~cmd:(selector "isPressed") ~typ:(returning (bool)) -let visualCornerPosition self = msg_send ~self ~cmd:(selector "visualCornerPosition") ~typ:(returning (ullong)) \ No newline at end of file +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning id) +let actionViewStateContext self = msg_send ~self ~cmd:(selector "actionViewStateContext") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let initWithPropertiesFromActionRepresentationView x ~groupView ~action self = msg_send ~self ~cmd:(selector "initWithPropertiesFromActionRepresentationView:groupView:action:") ~typ:(id @-> id @-> id @-> returning id) x groupView action +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isFocused self = msg_send ~self ~cmd:(selector "isFocused") ~typ:(returning bool) +let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning bool) +let isPreferred self = msg_send ~self ~cmd:(selector "isPreferred") ~typ:(returning bool) +let isPressed self = msg_send ~self ~cmd:(selector "isPressed") ~typ:(returning bool) +let visualCornerPosition self = msg_send ~self ~cmd:(selector "visualCornerPosition") ~typ:(returning ullong) \ No newline at end of file diff --git a/uikit/UIInterfaceActionViewStateClass.ml b/uikit/UIInterfaceActionViewStateClass.ml new file mode 100644 index 00000000..86beb5b4 --- /dev/null +++ b/uikit/UIInterfaceActionViewStateClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionviewstate?language=objc}UIInterfaceActionViewState} *) + +let viewStateForActionRepresentationView x ~action self = msg_send ~self ~cmd:(selector "viewStateForActionRepresentationView:action:") ~typ:(id @-> id @-> returning id) x action +let viewStateForActionRepresentationViewDescendantView x ~action self = msg_send ~self ~cmd:(selector "viewStateForActionRepresentationViewDescendantView:action:") ~typ:(id @-> id @-> returning id) x action +let viewStateForAlertControllerActionView x self = msg_send ~self ~cmd:(selector "viewStateForAlertControllerActionView:") ~typ:(id @-> returning id) x +let viewStateRepresentingDefaultAction self = msg_send ~self ~cmd:(selector "viewStateRepresentingDefaultAction") ~typ:(returning id) +let viewStateRepresentingPreferredAction self = msg_send ~self ~cmd:(selector "viewStateRepresentingPreferredAction") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInterfaceActionVisualStyle.ml b/uikit/UIInterfaceActionVisualStyle.ml index bde89dce..776d0e01 100644 --- a/uikit/UIInterfaceActionVisualStyle.ml +++ b/uikit/UIInterfaceActionVisualStyle.ml @@ -5,56 +5,58 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterfaceActionVisualStyle" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionvisualstyle?language=objc}UIInterfaceActionVisualStyle} *) -module C = struct - let idiomSpecificStyleForTraitCollection x ~presentationStyle self = msg_send ~self ~cmd:(selector "idiomSpecificStyleForTraitCollection:presentationStyle:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int presentationStyle) -end +let self = get_class "UIInterfaceActionVisualStyle" -let actionClassificationLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionClassificationLabelColorForViewState:") ~typ:(id @-> returning (id)) x -let actionClassificationLabelFontForViewState x self = msg_send ~self ~cmd:(selector "actionClassificationLabelFontForViewState:") ~typ:(id @-> returning (id)) x -let actionGroupPropertiesAffectingActionsScrollViewStyling self = msg_send ~self ~cmd:(selector "actionGroupPropertiesAffectingActionsScrollViewStyling") ~typ:(returning (id)) -let actionImageViewTintColorForImageProperty x ~actionViewState self = msg_send ~self ~cmd:(selector "actionImageViewTintColorForImageProperty:actionViewState:") ~typ:(id @-> id @-> returning (id)) x actionViewState -let actionPropertiesAffectingActionRepresentationViewStyling self = msg_send ~self ~cmd:(selector "actionPropertiesAffectingActionRepresentationViewStyling") ~typ:(returning (id)) -let actionPropertiesAffectingImageViewStyling self = msg_send ~self ~cmd:(selector "actionPropertiesAffectingImageViewStyling") ~typ:(returning (id)) -let actionPropertiesAffectingLabelStyling self = msg_send ~self ~cmd:(selector "actionPropertiesAffectingLabelStyling") ~typ:(returning (id)) -let actionSectionSpacing self = msg_send ~self ~cmd:(selector "actionSectionSpacing") ~typ:(returning (double)) -let actionTitleLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelColorForViewState:") ~typ:(id @-> returning (id)) x -let actionTitleLabelFontForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelFontForViewState:") ~typ:(id @-> returning (id)) x -let actionTitleLabelMinimumScaleFactor self = msg_send ~self ~cmd:(selector "actionTitleLabelMinimumScaleFactor") ~typ:(returning (double)) -let actionViewStateForAttachingToActionRepresentationView x self = msg_send ~self ~cmd:(selector "actionViewStateForAttachingToActionRepresentationView:") ~typ:(id @-> returning (id)) x -let concreteVisualStyle self = msg_send ~self ~cmd:(selector "concreteVisualStyle") ~typ:(returning (id)) -let configureAttributesForActionRepresentationView x ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForActionRepresentationView:actionViewState:") ~typ:(id @-> id @-> returning (void)) x actionViewState -let configureAttributesForActionScrollView x ~groupViewState self = msg_send ~self ~cmd:(selector "configureAttributesForActionScrollView:groupViewState:") ~typ:(id @-> id @-> returning (void)) x groupViewState -let configureAttributesForImageView x ~imageProperty ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForImageView:imageProperty:actionViewState:") ~typ:(id @-> id @-> id @-> returning (void)) x imageProperty actionViewState -let configureAttributesForTitleLabel x ~classificationLabel ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForTitleLabel:classificationLabel:actionViewState:") ~typ:(id @-> id @-> id @-> returning (void)) x classificationLabel actionViewState -let configureForDismissingGroupView x ~alongsideTransitionCoordinator self = msg_send ~self ~cmd:(selector "configureForDismissingGroupView:alongsideTransitionCoordinator:") ~typ:(id @-> id @-> returning (void)) x alongsideTransitionCoordinator -let configureForPresentingGroupView x ~alongsideTransitionCoordinator self = msg_send ~self ~cmd:(selector "configureForPresentingGroupView:alongsideTransitionCoordinator:") ~typ:(id @-> id @-> returning (void)) x alongsideTransitionCoordinator -let contentCornerRadius self = msg_send ~self ~cmd:(selector "contentCornerRadius") ~typ:(returning (double)) -let copyWithGroupViewState x self = msg_send ~self ~cmd:(selector "copyWithGroupViewState:") ~typ:(id @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let defaultConcreteActionTitleLabelPreferredFont self = msg_send ~self ~cmd:(selector "defaultConcreteActionTitleLabelPreferredFont") ~typ:(returning (id)) -let defaultConcreteActionTitleLabelRegularFont self = msg_send ~self ~cmd:(selector "defaultConcreteActionTitleLabelRegularFont") ~typ:(returning (id)) -let defaultScreen self = msg_send ~self ~cmd:(selector "defaultScreen") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) +let actionClassificationLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionClassificationLabelColorForViewState:") ~typ:(id @-> returning id) x +let actionClassificationLabelFontForViewState x self = msg_send ~self ~cmd:(selector "actionClassificationLabelFontForViewState:") ~typ:(id @-> returning id) x +let actionGroupPropertiesAffectingActionsScrollViewStyling self = msg_send ~self ~cmd:(selector "actionGroupPropertiesAffectingActionsScrollViewStyling") ~typ:(returning id) +let actionImageViewTintColorForImageProperty x ~actionViewState self = msg_send ~self ~cmd:(selector "actionImageViewTintColorForImageProperty:actionViewState:") ~typ:(id @-> id @-> returning id) x actionViewState +let actionPropertiesAffectingActionRepresentationViewStyling self = msg_send ~self ~cmd:(selector "actionPropertiesAffectingActionRepresentationViewStyling") ~typ:(returning id) +let actionPropertiesAffectingImageViewStyling self = msg_send ~self ~cmd:(selector "actionPropertiesAffectingImageViewStyling") ~typ:(returning id) +let actionPropertiesAffectingLabelStyling self = msg_send ~self ~cmd:(selector "actionPropertiesAffectingLabelStyling") ~typ:(returning id) +let actionSectionSpacing self = msg_send ~self ~cmd:(selector "actionSectionSpacing") ~typ:(returning double) +let actionSequenceEdgeInsets self = msg_send ~self ~cmd:(selector "actionSequenceEdgeInsets") ~typ:(returning UIEdgeInsets.t) +let actionTitleLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelColorForViewState:") ~typ:(id @-> returning id) x +let actionTitleLabelFontForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelFontForViewState:") ~typ:(id @-> returning id) x +let actionTitleLabelMinimumScaleFactor self = msg_send ~self ~cmd:(selector "actionTitleLabelMinimumScaleFactor") ~typ:(returning double) +let actionViewStateForAttachingToActionRepresentationView x self = msg_send ~self ~cmd:(selector "actionViewStateForAttachingToActionRepresentationView:") ~typ:(id @-> returning id) x +let concreteVisualStyle self = msg_send ~self ~cmd:(selector "concreteVisualStyle") ~typ:(returning id) +let configureAttributesForActionRepresentationView x ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForActionRepresentationView:actionViewState:") ~typ:(id @-> id @-> returning void) x actionViewState +let configureAttributesForActionScrollView x ~groupViewState self = msg_send ~self ~cmd:(selector "configureAttributesForActionScrollView:groupViewState:") ~typ:(id @-> id @-> returning void) x groupViewState +let configureAttributesForImageView x ~imageProperty ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForImageView:imageProperty:actionViewState:") ~typ:(id @-> id @-> id @-> returning void) x imageProperty actionViewState +let configureAttributesForTitleLabel x ~classificationLabel ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForTitleLabel:classificationLabel:actionViewState:") ~typ:(id @-> id @-> id @-> returning void) x classificationLabel actionViewState +let configureForDismissingGroupView x ~alongsideTransitionCoordinator self = msg_send ~self ~cmd:(selector "configureForDismissingGroupView:alongsideTransitionCoordinator:") ~typ:(id @-> id @-> returning void) x alongsideTransitionCoordinator +let configureForPresentingGroupView x ~alongsideTransitionCoordinator self = msg_send ~self ~cmd:(selector "configureForPresentingGroupView:alongsideTransitionCoordinator:") ~typ:(id @-> id @-> returning void) x alongsideTransitionCoordinator +let contentCornerRadius self = msg_send ~self ~cmd:(selector "contentCornerRadius") ~typ:(returning double) +let contentMargin self = msg_send ~self ~cmd:(selector "contentMargin") ~typ:(returning UIEdgeInsets.t) +let copyWithGroupViewState x self = msg_send ~self ~cmd:(selector "copyWithGroupViewState:") ~typ:(id @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let defaultConcreteActionTitleLabelPreferredFont self = msg_send ~self ~cmd:(selector "defaultConcreteActionTitleLabelPreferredFont") ~typ:(returning id) +let defaultConcreteActionTitleLabelRegularFont self = msg_send ~self ~cmd:(selector "defaultConcreteActionTitleLabelRegularFont") ~typ:(returning id) +let defaultScreen self = msg_send ~self ~cmd:(selector "defaultScreen") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let fontForViewStateBlock self = msg_send ~self ~cmd:(selector "fontForViewStateBlock") ~typ:(returning (ptr void)) -let groupViewState self = msg_send ~self ~cmd:(selector "groupViewState") ~typ:(returning (id)) -let horizontalImageContentSpacing self = msg_send ~self ~cmd:(selector "horizontalImageContentSpacing") ~typ:(returning (double)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithConcreteVisualStyle x self = msg_send ~self ~cmd:(selector "initWithConcreteVisualStyle:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let maximumActionGroupContentSize self = msg_send_stret ~self ~cmd:(selector "maximumActionGroupContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let minimumActionContentSize self = msg_send_stret ~self ~cmd:(selector "minimumActionContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning (id)) x -let newActionSeparatorViewForGroupViewState x self = msg_send ~self ~cmd:(selector "newActionSeparatorViewForGroupViewState:") ~typ:(id @-> returning (id)) x -let newGroupBackgroundViewWithGroupViewState x self = msg_send ~self ~cmd:(selector "newGroupBackgroundViewWithGroupViewState:") ~typ:(id @-> returning (id)) x -let newSectionSeparatorViewForGroupViewState x self = msg_send ~self ~cmd:(selector "newSectionSeparatorViewForGroupViewState:") ~typ:(id @-> returning (id)) x -let selectByIndirectPointerTouchRequired self = msg_send ~self ~cmd:(selector "selectByIndirectPointerTouchRequired") ~typ:(returning (bool)) -let selectByPressGestureRequired self = msg_send ~self ~cmd:(selector "selectByPressGestureRequired") ~typ:(returning (bool)) -let selectionFeedbackEnabled self = msg_send ~self ~cmd:(selector "selectionFeedbackEnabled") ~typ:(returning (bool)) -let setConcreteVisualStyle x self = msg_send ~self ~cmd:(selector "setConcreteVisualStyle:") ~typ:(id @-> returning (void)) x -let setFontForViewStateBlock x self = msg_send ~self ~cmd:(selector "setFontForViewStateBlock:") ~typ:(ptr void @-> returning (void)) x -let setVisualStyleOverride x self = msg_send ~self ~cmd:(selector "setVisualStyleOverride:") ~typ:(id @-> returning (void)) x -let verticalImageContentSpacing self = msg_send ~self ~cmd:(selector "verticalImageContentSpacing") ~typ:(returning (double)) -let visualStyleOverride self = msg_send ~self ~cmd:(selector "visualStyleOverride") ~typ:(returning (id)) \ No newline at end of file +let groupViewState self = msg_send ~self ~cmd:(selector "groupViewState") ~typ:(returning id) +let horizontalImageContentSpacing self = msg_send ~self ~cmd:(selector "horizontalImageContentSpacing") ~typ:(returning double) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithConcreteVisualStyle x self = msg_send ~self ~cmd:(selector "initWithConcreteVisualStyle:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let maximumActionGroupContentSize self = msg_send ~self ~cmd:(selector "maximumActionGroupContentSize") ~typ:(returning CGSize.t) +let minimumActionContentSize self = msg_send ~self ~cmd:(selector "minimumActionContentSize") ~typ:(returning CGSize.t) +let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning id) x +let newActionSeparatorViewForGroupViewState x self = msg_send ~self ~cmd:(selector "newActionSeparatorViewForGroupViewState:") ~typ:(id @-> returning id) x +let newGroupBackgroundViewWithGroupViewState x self = msg_send ~self ~cmd:(selector "newGroupBackgroundViewWithGroupViewState:") ~typ:(id @-> returning id) x +let newSectionSeparatorViewForGroupViewState x self = msg_send ~self ~cmd:(selector "newSectionSeparatorViewForGroupViewState:") ~typ:(id @-> returning id) x +let selectByIndirectPointerTouchRequired self = msg_send ~self ~cmd:(selector "selectByIndirectPointerTouchRequired") ~typ:(returning bool) +let selectByPressGestureRequired self = msg_send ~self ~cmd:(selector "selectByPressGestureRequired") ~typ:(returning bool) +let selectionFeedbackEnabled self = msg_send ~self ~cmd:(selector "selectionFeedbackEnabled") ~typ:(returning bool) +let setConcreteVisualStyle x self = msg_send ~self ~cmd:(selector "setConcreteVisualStyle:") ~typ:(id @-> returning void) x +let setFontForViewStateBlock x self = msg_send ~self ~cmd:(selector "setFontForViewStateBlock:") ~typ:((ptr void) @-> returning void) x +let setVisualStyleOverride x self = msg_send ~self ~cmd:(selector "setVisualStyleOverride:") ~typ:(id @-> returning void) x +let verticalImageContentSpacing self = msg_send ~self ~cmd:(selector "verticalImageContentSpacing") ~typ:(returning double) +let visualStyleOverride self = msg_send ~self ~cmd:(selector "visualStyleOverride") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInterfaceActionVisualStyleClass.ml b/uikit/UIInterfaceActionVisualStyleClass.ml new file mode 100644 index 00000000..70aa5e4a --- /dev/null +++ b/uikit/UIInterfaceActionVisualStyleClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionvisualstyle?language=objc}UIInterfaceActionVisualStyle} *) + +let idiomSpecificStyleForTraitCollection x ~presentationStyle self = msg_send ~self ~cmd:(selector "idiomSpecificStyleForTraitCollection:presentationStyle:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int presentationStyle) \ No newline at end of file diff --git a/uikit/UIInterfaceActionVisualStyleViewState.ml b/uikit/UIInterfaceActionVisualStyleViewState.ml deleted file mode 100644 index 7a6f1a79..00000000 --- a/uikit/UIInterfaceActionVisualStyleViewState.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIInterfaceActionVisualStyleViewState" - -let copyWithScreen x self = msg_send ~self ~cmd:(selector "copyWithScreen:") ~typ:(id @-> returning (id)) x -let copyWithTraitCollection x self = msg_send ~self ~cmd:(selector "copyWithTraitCollection:") ~typ:(id @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithPropertiesFromTopLevelView x self = msg_send ~self ~cmd:(selector "initWithPropertiesFromTopLevelView:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let screen self = msg_send ~self ~cmd:(selector "screen") ~typ:(returning (id)) -let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning (id)) -let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIInterpolatedColor.ml b/uikit/UIInterpolatedColor.ml index a52b3d9c..316b399e 100644 --- a/uikit/UIInterpolatedColor.ml +++ b/uikit/UIInterpolatedColor.ml @@ -5,30 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterpolatedColor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterpolatedcolor?language=objc}UIInterpolatedColor} *) -module C = struct - let epsilon self = msg_send ~self ~cmd:(selector "epsilon") ~typ:(returning (id)) - let valueWithCGColor x self = msg_send ~self ~cmd:(selector "valueWithCGColor:") ~typ:(ptr void @-> returning (id)) x - let valueWithUIColor x self = msg_send ~self ~cmd:(selector "valueWithUIColor:") ~typ:(id @-> returning (id)) x - let zero self = msg_send ~self ~cmd:(selector "zero") ~typ:(returning (id)) -end +let self = get_class "UIInterpolatedColor" -let addVector x self = msg_send ~self ~cmd:(selector "addVector:") ~typ:(id @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning (id)) -let getCGColor self = msg_send ~self ~cmd:(selector "getCGColor") ~typ:(returning (ptr void)) -let getNSValue self = msg_send ~self ~cmd:(selector "getNSValue") ~typ:(returning (id)) -let getUIColor self = msg_send ~self ~cmd:(selector "getUIColor") ~typ:(returning (id)) -let getValue self = msg_send ~self ~cmd:(selector "getValue") ~typ:(returning (id)) -let initWithDecomposedColor x self = msg_send ~self ~cmd:(selector "initWithDecomposedColor:") ~typ:(ptr void @-> returning (id)) x -let initWithDecomposedColor' x ~epsilon self = msg_send ~self ~cmd:(selector "initWithDecomposedColor:epsilon:") ~typ:(ptr void @-> double @-> returning (id)) x epsilon -let integrateWithVelocity x ~target ~intermediateTarget ~intermediateTargetVelocity ~parameters ~state ~delta self = msg_send ~self ~cmd:(selector "integrateWithVelocity:target:intermediateTarget:intermediateTargetVelocity:parameters:state:delta:") ~typ:(id @-> id @-> id @-> id @-> ptr void @-> ptr void @-> double @-> returning (void)) x target intermediateTarget intermediateTargetVelocity parameters state delta -let interpolateTo x ~progress self = msg_send ~self ~cmd:(selector "interpolateTo:progress:") ~typ:(id @-> double @-> returning (id)) x progress -let isApproximatelyEqualTo x self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:") ~typ:(id @-> returning (bool)) x -let isApproximatelyEqualTo' x ~withinEpsilon self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:withinEpsilon:") ~typ:(id @-> id @-> returning (bool)) x withinEpsilon -let isUndefined self = msg_send ~self ~cmd:(selector "isUndefined") ~typ:(returning (bool)) -let multiplyByScalar x self = msg_send ~self ~cmd:(selector "multiplyByScalar:") ~typ:(double @-> returning (id)) x -let multiplyByVector x self = msg_send ~self ~cmd:(selector "multiplyByVector:") ~typ:(id @-> returning (id)) x -let reinitWithVector x self = msg_send ~self ~cmd:(selector "reinitWithVector:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let addVector x self = msg_send ~self ~cmd:(selector "addVector:") ~typ:(id @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning id) +let getCGColor self = msg_send ~self ~cmd:(selector "getCGColor") ~typ:(returning (ptr CGColor.t)) +let getNSValue self = msg_send ~self ~cmd:(selector "getNSValue") ~typ:(returning id) +let getUIColor self = msg_send ~self ~cmd:(selector "getUIColor") ~typ:(returning id) +let getValue self = msg_send ~self ~cmd:(selector "getValue") ~typ:(returning id) +let initWithDecomposedColor x self = msg_send ~self ~cmd:(selector "initWithDecomposedColor:") ~typ:(void @-> returning id) x +let initWithDecomposedColor' x ~epsilon self = msg_send ~self ~cmd:(selector "initWithDecomposedColor:epsilon:") ~typ:(void @-> double @-> returning id) x epsilon +let integrateWithVelocity x ~target ~intermediateTarget ~intermediateTargetVelocity ~parameters ~state ~delta self = msg_send ~self ~cmd:(selector "integrateWithVelocity:target:intermediateTarget:intermediateTargetVelocity:parameters:state:delta:") ~typ:(id @-> id @-> id @-> id @-> void @-> void @-> double @-> returning void) x target intermediateTarget intermediateTargetVelocity parameters state delta +let interpolateTo x ~progress self = msg_send ~self ~cmd:(selector "interpolateTo:progress:") ~typ:(id @-> double @-> returning id) x progress +let isApproximatelyEqualTo x self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:") ~typ:(id @-> returning bool) x +let isApproximatelyEqualTo' x ~withinEpsilon self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:withinEpsilon:") ~typ:(id @-> id @-> returning bool) x withinEpsilon +let isUndefined self = msg_send ~self ~cmd:(selector "isUndefined") ~typ:(returning bool) +let multiplyByScalar x self = msg_send ~self ~cmd:(selector "multiplyByScalar:") ~typ:(double @-> returning id) x +let multiplyByVector x self = msg_send ~self ~cmd:(selector "multiplyByVector:") ~typ:(id @-> returning id) x +let reinitWithVector x self = msg_send ~self ~cmd:(selector "reinitWithVector:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIInterpolatedColorClass.ml b/uikit/UIInterpolatedColorClass.ml new file mode 100644 index 00000000..da2533a2 --- /dev/null +++ b/uikit/UIInterpolatedColorClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterpolatedcolor?language=objc}UIInterpolatedColor} *) + +let epsilon self = msg_send ~self ~cmd:(selector "epsilon") ~typ:(returning id) +let valueWithCGColor x self = msg_send ~self ~cmd:(selector "valueWithCGColor:") ~typ:((ptr CGColor.t) @-> returning id) x +let valueWithUIColor x self = msg_send ~self ~cmd:(selector "valueWithUIColor:") ~typ:(id @-> returning id) x +let zero self = msg_send ~self ~cmd:(selector "zero") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInterpolatedColorMatrix.ml b/uikit/UIInterpolatedColorMatrix.ml index da21aa80..bb5b268f 100644 --- a/uikit/UIInterpolatedColorMatrix.ml +++ b/uikit/UIInterpolatedColorMatrix.ml @@ -5,27 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterpolatedColorMatrix" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterpolatedcolormatrix?language=objc}UIInterpolatedColorMatrix} *) -module C = struct - let epsilon self = msg_send ~self ~cmd:(selector "epsilon") ~typ:(returning (id)) - let valueWithColorMatrix x self = msg_send ~self ~cmd:(selector "valueWithColorMatrix:") ~typ:(ptr void @-> returning (id)) x - let zero self = msg_send ~self ~cmd:(selector "zero") ~typ:(returning (id)) -end +let self = get_class "UIInterpolatedColorMatrix" -let addVector x self = msg_send ~self ~cmd:(selector "addVector:") ~typ:(id @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning (id)) -let getNSValue self = msg_send ~self ~cmd:(selector "getNSValue") ~typ:(returning (id)) -let getValue self = msg_send ~self ~cmd:(selector "getValue") ~typ:(returning (id)) -let initWithColorMatrix x self = msg_send ~self ~cmd:(selector "initWithColorMatrix:") ~typ:(ptr void @-> returning (id)) x -let initWithColorMatrix' x ~epsilon self = msg_send ~self ~cmd:(selector "initWithColorMatrix:epsilon:") ~typ:(ptr void @-> double @-> returning (id)) x epsilon -let integrateWithVelocity x ~target ~intermediateTarget ~intermediateTargetVelocity ~parameters ~state ~delta self = msg_send ~self ~cmd:(selector "integrateWithVelocity:target:intermediateTarget:intermediateTargetVelocity:parameters:state:delta:") ~typ:(id @-> id @-> id @-> id @-> ptr void @-> ptr void @-> double @-> returning (void)) x target intermediateTarget intermediateTargetVelocity parameters state delta -let interpolateTo x ~progress self = msg_send ~self ~cmd:(selector "interpolateTo:progress:") ~typ:(id @-> double @-> returning (id)) x progress -let isApproximatelyEqualTo x self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:") ~typ:(id @-> returning (bool)) x -let isApproximatelyEqualTo' x ~withinEpsilon self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:withinEpsilon:") ~typ:(id @-> id @-> returning (bool)) x withinEpsilon -let isUndefined self = msg_send ~self ~cmd:(selector "isUndefined") ~typ:(returning (bool)) -let multiplyByScalar x self = msg_send ~self ~cmd:(selector "multiplyByScalar:") ~typ:(double @-> returning (id)) x -let multiplyByVector x self = msg_send ~self ~cmd:(selector "multiplyByVector:") ~typ:(id @-> returning (id)) x -let reinitWithVector x self = msg_send ~self ~cmd:(selector "reinitWithVector:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let addVector x self = msg_send ~self ~cmd:(selector "addVector:") ~typ:(id @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning id) +let getNSValue self = msg_send ~self ~cmd:(selector "getNSValue") ~typ:(returning id) +let getValue self = msg_send ~self ~cmd:(selector "getValue") ~typ:(returning id) +let initWithColorMatrix x self = msg_send ~self ~cmd:(selector "initWithColorMatrix:") ~typ:(CAColorMatrix.t @-> returning id) x +let initWithColorMatrix' x ~epsilon self = msg_send ~self ~cmd:(selector "initWithColorMatrix:epsilon:") ~typ:(CAColorMatrix.t @-> double @-> returning id) x epsilon +let integrateWithVelocity x ~target ~intermediateTarget ~intermediateTargetVelocity ~parameters ~state ~delta self = msg_send ~self ~cmd:(selector "integrateWithVelocity:target:intermediateTarget:intermediateTargetVelocity:parameters:state:delta:") ~typ:(id @-> id @-> id @-> id @-> void @-> void @-> double @-> returning void) x target intermediateTarget intermediateTargetVelocity parameters state delta +let interpolateTo x ~progress self = msg_send ~self ~cmd:(selector "interpolateTo:progress:") ~typ:(id @-> double @-> returning id) x progress +let isApproximatelyEqualTo x self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:") ~typ:(id @-> returning bool) x +let isApproximatelyEqualTo' x ~withinEpsilon self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:withinEpsilon:") ~typ:(id @-> id @-> returning bool) x withinEpsilon +let isUndefined self = msg_send ~self ~cmd:(selector "isUndefined") ~typ:(returning bool) +let multiplyByScalar x self = msg_send ~self ~cmd:(selector "multiplyByScalar:") ~typ:(double @-> returning id) x +let multiplyByVector x self = msg_send ~self ~cmd:(selector "multiplyByVector:") ~typ:(id @-> returning id) x +let reinitWithVector x self = msg_send ~self ~cmd:(selector "reinitWithVector:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIInterpolatedColorMatrixClass.ml b/uikit/UIInterpolatedColorMatrixClass.ml new file mode 100644 index 00000000..8be87d45 --- /dev/null +++ b/uikit/UIInterpolatedColorMatrixClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterpolatedcolormatrix?language=objc}UIInterpolatedColorMatrix} *) + +let epsilon self = msg_send ~self ~cmd:(selector "epsilon") ~typ:(returning id) +let valueWithColorMatrix x self = msg_send ~self ~cmd:(selector "valueWithColorMatrix:") ~typ:(CAColorMatrix.t @-> returning id) x +let zero self = msg_send ~self ~cmd:(selector "zero") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInterpolatedFloat.ml b/uikit/UIInterpolatedFloat.ml index 51e62a9c..97dca553 100644 --- a/uikit/UIInterpolatedFloat.ml +++ b/uikit/UIInterpolatedFloat.ml @@ -5,26 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterpolatedFloat" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterpolatedfloat?language=objc}UIInterpolatedFloat} *) -module C = struct - let epsilon self = msg_send ~self ~cmd:(selector "epsilon") ~typ:(returning (id)) - let valueWithFloat x self = msg_send ~self ~cmd:(selector "valueWithFloat:") ~typ:(double @-> returning (id)) x - let valueWithFloat' x ~epsilon self = msg_send ~self ~cmd:(selector "valueWithFloat:epsilon:") ~typ:(double @-> double @-> returning (id)) x epsilon - let zero self = msg_send ~self ~cmd:(selector "zero") ~typ:(returning (id)) -end +let self = get_class "UIInterpolatedFloat" -let addVector x self = msg_send ~self ~cmd:(selector "addVector:") ~typ:(id @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning (id)) -let getNSValue self = msg_send ~self ~cmd:(selector "getNSValue") ~typ:(returning (id)) -let getValue self = msg_send ~self ~cmd:(selector "getValue") ~typ:(returning (id)) -let integrateWithVelocity x ~target ~intermediateTarget ~intermediateTargetVelocity ~parameters ~state ~delta self = msg_send ~self ~cmd:(selector "integrateWithVelocity:target:intermediateTarget:intermediateTargetVelocity:parameters:state:delta:") ~typ:(id @-> id @-> id @-> id @-> ptr void @-> ptr void @-> double @-> returning (void)) x target intermediateTarget intermediateTargetVelocity parameters state delta -let interpolateTo x ~progress self = msg_send ~self ~cmd:(selector "interpolateTo:progress:") ~typ:(id @-> double @-> returning (id)) x progress -let isApproximatelyEqualTo x self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:") ~typ:(id @-> returning (bool)) x -let isApproximatelyEqualTo' x ~withinEpsilon self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:withinEpsilon:") ~typ:(id @-> id @-> returning (bool)) x withinEpsilon -let isUndefined self = msg_send ~self ~cmd:(selector "isUndefined") ~typ:(returning (bool)) -let multiplyByScalar x self = msg_send ~self ~cmd:(selector "multiplyByScalar:") ~typ:(double @-> returning (id)) x -let multiplyByVector x self = msg_send ~self ~cmd:(selector "multiplyByVector:") ~typ:(id @-> returning (id)) x -let reinitWithVector x self = msg_send ~self ~cmd:(selector "reinitWithVector:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let addVector x self = msg_send ~self ~cmd:(selector "addVector:") ~typ:(id @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning id) +let getNSValue self = msg_send ~self ~cmd:(selector "getNSValue") ~typ:(returning id) +let getValue self = msg_send ~self ~cmd:(selector "getValue") ~typ:(returning id) +let integrateWithVelocity x ~target ~intermediateTarget ~intermediateTargetVelocity ~parameters ~state ~delta self = msg_send ~self ~cmd:(selector "integrateWithVelocity:target:intermediateTarget:intermediateTargetVelocity:parameters:state:delta:") ~typ:(id @-> id @-> id @-> id @-> void @-> void @-> double @-> returning void) x target intermediateTarget intermediateTargetVelocity parameters state delta +let interpolateTo x ~progress self = msg_send ~self ~cmd:(selector "interpolateTo:progress:") ~typ:(id @-> double @-> returning id) x progress +let isApproximatelyEqualTo x self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:") ~typ:(id @-> returning bool) x +let isApproximatelyEqualTo' x ~withinEpsilon self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:withinEpsilon:") ~typ:(id @-> id @-> returning bool) x withinEpsilon +let isUndefined self = msg_send ~self ~cmd:(selector "isUndefined") ~typ:(returning bool) +let multiplyByScalar x self = msg_send ~self ~cmd:(selector "multiplyByScalar:") ~typ:(double @-> returning id) x +let multiplyByVector x self = msg_send ~self ~cmd:(selector "multiplyByVector:") ~typ:(id @-> returning id) x +let reinitWithVector x self = msg_send ~self ~cmd:(selector "reinitWithVector:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIInterpolatedFloatClass.ml b/uikit/UIInterpolatedFloatClass.ml new file mode 100644 index 00000000..e7f3c389 --- /dev/null +++ b/uikit/UIInterpolatedFloatClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterpolatedfloat?language=objc}UIInterpolatedFloat} *) + +let epsilon self = msg_send ~self ~cmd:(selector "epsilon") ~typ:(returning id) +let valueWithFloat x self = msg_send ~self ~cmd:(selector "valueWithFloat:") ~typ:(double @-> returning id) x +let valueWithFloat' x ~epsilon self = msg_send ~self ~cmd:(selector "valueWithFloat:epsilon:") ~typ:(double @-> double @-> returning id) x epsilon +let zero self = msg_send ~self ~cmd:(selector "zero") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInterpolatedPoint.ml b/uikit/UIInterpolatedPoint.ml index 8c3360b5..1ab80343 100644 --- a/uikit/UIInterpolatedPoint.ml +++ b/uikit/UIInterpolatedPoint.ml @@ -5,26 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterpolatedPoint" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterpolatedpoint?language=objc}UIInterpolatedPoint} *) -module C = struct - let epsilon self = msg_send ~self ~cmd:(selector "epsilon") ~typ:(returning (id)) - let valueWithCGPoint x self = msg_send ~self ~cmd:(selector "valueWithCGPoint:") ~typ:(CGPoint.t @-> returning (id)) x - let valueWithCGPoint' x ~epsilon self = msg_send ~self ~cmd:(selector "valueWithCGPoint:epsilon:") ~typ:(CGPoint.t @-> double @-> returning (id)) x epsilon - let zero self = msg_send ~self ~cmd:(selector "zero") ~typ:(returning (id)) -end +let self = get_class "UIInterpolatedPoint" -let addVector x self = msg_send ~self ~cmd:(selector "addVector:") ~typ:(id @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning (id)) -let getNSValue self = msg_send ~self ~cmd:(selector "getNSValue") ~typ:(returning (id)) -let getValue self = msg_send ~self ~cmd:(selector "getValue") ~typ:(returning (id)) -let integrateWithVelocity x ~target ~intermediateTarget ~intermediateTargetVelocity ~parameters ~state ~delta self = msg_send ~self ~cmd:(selector "integrateWithVelocity:target:intermediateTarget:intermediateTargetVelocity:parameters:state:delta:") ~typ:(id @-> id @-> id @-> id @-> ptr void @-> ptr void @-> double @-> returning (void)) x target intermediateTarget intermediateTargetVelocity parameters state delta -let interpolateTo x ~progress self = msg_send ~self ~cmd:(selector "interpolateTo:progress:") ~typ:(id @-> double @-> returning (id)) x progress -let isApproximatelyEqualTo x self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:") ~typ:(id @-> returning (bool)) x -let isApproximatelyEqualTo' x ~withinEpsilon self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:withinEpsilon:") ~typ:(id @-> id @-> returning (bool)) x withinEpsilon -let isUndefined self = msg_send ~self ~cmd:(selector "isUndefined") ~typ:(returning (bool)) -let multiplyByScalar x self = msg_send ~self ~cmd:(selector "multiplyByScalar:") ~typ:(double @-> returning (id)) x -let multiplyByVector x self = msg_send ~self ~cmd:(selector "multiplyByVector:") ~typ:(id @-> returning (id)) x -let reinitWithVector x self = msg_send ~self ~cmd:(selector "reinitWithVector:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let addVector x self = msg_send ~self ~cmd:(selector "addVector:") ~typ:(id @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning id) +let getNSValue self = msg_send ~self ~cmd:(selector "getNSValue") ~typ:(returning id) +let getValue self = msg_send ~self ~cmd:(selector "getValue") ~typ:(returning id) +let integrateWithVelocity x ~target ~intermediateTarget ~intermediateTargetVelocity ~parameters ~state ~delta self = msg_send ~self ~cmd:(selector "integrateWithVelocity:target:intermediateTarget:intermediateTargetVelocity:parameters:state:delta:") ~typ:(id @-> id @-> id @-> id @-> void @-> void @-> double @-> returning void) x target intermediateTarget intermediateTargetVelocity parameters state delta +let interpolateTo x ~progress self = msg_send ~self ~cmd:(selector "interpolateTo:progress:") ~typ:(id @-> double @-> returning id) x progress +let isApproximatelyEqualTo x self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:") ~typ:(id @-> returning bool) x +let isApproximatelyEqualTo' x ~withinEpsilon self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:withinEpsilon:") ~typ:(id @-> id @-> returning bool) x withinEpsilon +let isUndefined self = msg_send ~self ~cmd:(selector "isUndefined") ~typ:(returning bool) +let multiplyByScalar x self = msg_send ~self ~cmd:(selector "multiplyByScalar:") ~typ:(double @-> returning id) x +let multiplyByVector x self = msg_send ~self ~cmd:(selector "multiplyByVector:") ~typ:(id @-> returning id) x +let reinitWithVector x self = msg_send ~self ~cmd:(selector "reinitWithVector:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIInterpolatedPointClass.ml b/uikit/UIInterpolatedPointClass.ml new file mode 100644 index 00000000..b8fc9d83 --- /dev/null +++ b/uikit/UIInterpolatedPointClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterpolatedpoint?language=objc}UIInterpolatedPoint} *) + +let epsilon self = msg_send ~self ~cmd:(selector "epsilon") ~typ:(returning id) +let valueWithCGPoint x self = msg_send ~self ~cmd:(selector "valueWithCGPoint:") ~typ:(CGPoint.t @-> returning id) x +let valueWithCGPoint' x ~epsilon self = msg_send ~self ~cmd:(selector "valueWithCGPoint:epsilon:") ~typ:(CGPoint.t @-> double @-> returning id) x epsilon +let zero self = msg_send ~self ~cmd:(selector "zero") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInterpolatedRect.ml b/uikit/UIInterpolatedRect.ml index fe83e71e..093aa1ee 100644 --- a/uikit/UIInterpolatedRect.ml +++ b/uikit/UIInterpolatedRect.ml @@ -5,26 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterpolatedRect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterpolatedrect?language=objc}UIInterpolatedRect} *) -module C = struct - let epsilon self = msg_send ~self ~cmd:(selector "epsilon") ~typ:(returning (id)) - let valueWithCGRect x self = msg_send ~self ~cmd:(selector "valueWithCGRect:") ~typ:(CGRect.t @-> returning (id)) x - let valueWithCGRect' x ~epsilon self = msg_send ~self ~cmd:(selector "valueWithCGRect:epsilon:") ~typ:(CGRect.t @-> double @-> returning (id)) x epsilon - let zero self = msg_send ~self ~cmd:(selector "zero") ~typ:(returning (id)) -end +let self = get_class "UIInterpolatedRect" -let addVector x self = msg_send ~self ~cmd:(selector "addVector:") ~typ:(id @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning (id)) -let getNSValue self = msg_send ~self ~cmd:(selector "getNSValue") ~typ:(returning (id)) -let getValue self = msg_send ~self ~cmd:(selector "getValue") ~typ:(returning (id)) -let integrateWithVelocity x ~target ~intermediateTarget ~intermediateTargetVelocity ~parameters ~state ~delta self = msg_send ~self ~cmd:(selector "integrateWithVelocity:target:intermediateTarget:intermediateTargetVelocity:parameters:state:delta:") ~typ:(id @-> id @-> id @-> id @-> ptr void @-> ptr void @-> double @-> returning (void)) x target intermediateTarget intermediateTargetVelocity parameters state delta -let interpolateTo x ~progress self = msg_send ~self ~cmd:(selector "interpolateTo:progress:") ~typ:(id @-> double @-> returning (id)) x progress -let isApproximatelyEqualTo x self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:") ~typ:(id @-> returning (bool)) x -let isApproximatelyEqualTo' x ~withinEpsilon self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:withinEpsilon:") ~typ:(id @-> id @-> returning (bool)) x withinEpsilon -let isUndefined self = msg_send ~self ~cmd:(selector "isUndefined") ~typ:(returning (bool)) -let multiplyByScalar x self = msg_send ~self ~cmd:(selector "multiplyByScalar:") ~typ:(double @-> returning (id)) x -let multiplyByVector x self = msg_send ~self ~cmd:(selector "multiplyByVector:") ~typ:(id @-> returning (id)) x -let reinitWithVector x self = msg_send ~self ~cmd:(selector "reinitWithVector:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let addVector x self = msg_send ~self ~cmd:(selector "addVector:") ~typ:(id @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning id) +let getNSValue self = msg_send ~self ~cmd:(selector "getNSValue") ~typ:(returning id) +let getValue self = msg_send ~self ~cmd:(selector "getValue") ~typ:(returning id) +let integrateWithVelocity x ~target ~intermediateTarget ~intermediateTargetVelocity ~parameters ~state ~delta self = msg_send ~self ~cmd:(selector "integrateWithVelocity:target:intermediateTarget:intermediateTargetVelocity:parameters:state:delta:") ~typ:(id @-> id @-> id @-> id @-> void @-> void @-> double @-> returning void) x target intermediateTarget intermediateTargetVelocity parameters state delta +let interpolateTo x ~progress self = msg_send ~self ~cmd:(selector "interpolateTo:progress:") ~typ:(id @-> double @-> returning id) x progress +let isApproximatelyEqualTo x self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:") ~typ:(id @-> returning bool) x +let isApproximatelyEqualTo' x ~withinEpsilon self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:withinEpsilon:") ~typ:(id @-> id @-> returning bool) x withinEpsilon +let isUndefined self = msg_send ~self ~cmd:(selector "isUndefined") ~typ:(returning bool) +let multiplyByScalar x self = msg_send ~self ~cmd:(selector "multiplyByScalar:") ~typ:(double @-> returning id) x +let multiplyByVector x self = msg_send ~self ~cmd:(selector "multiplyByVector:") ~typ:(id @-> returning id) x +let reinitWithVector x self = msg_send ~self ~cmd:(selector "reinitWithVector:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIInterpolatedRectClass.ml b/uikit/UIInterpolatedRectClass.ml new file mode 100644 index 00000000..054ab5cf --- /dev/null +++ b/uikit/UIInterpolatedRectClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterpolatedrect?language=objc}UIInterpolatedRect} *) + +let epsilon self = msg_send ~self ~cmd:(selector "epsilon") ~typ:(returning id) +let valueWithCGRect x self = msg_send ~self ~cmd:(selector "valueWithCGRect:") ~typ:(CGRect.t @-> returning id) x +let valueWithCGRect' x ~epsilon self = msg_send ~self ~cmd:(selector "valueWithCGRect:epsilon:") ~typ:(CGRect.t @-> double @-> returning id) x epsilon +let zero self = msg_send ~self ~cmd:(selector "zero") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInterpolatedSize.ml b/uikit/UIInterpolatedSize.ml index e3d25da0..2342d1b7 100644 --- a/uikit/UIInterpolatedSize.ml +++ b/uikit/UIInterpolatedSize.ml @@ -5,26 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterpolatedSize" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterpolatedsize?language=objc}UIInterpolatedSize} *) -module C = struct - let epsilon self = msg_send ~self ~cmd:(selector "epsilon") ~typ:(returning (id)) - let valueWithCGSize x self = msg_send ~self ~cmd:(selector "valueWithCGSize:") ~typ:(CGSize.t @-> returning (id)) x - let valueWithCGSize' x ~epsilon self = msg_send ~self ~cmd:(selector "valueWithCGSize:epsilon:") ~typ:(CGSize.t @-> double @-> returning (id)) x epsilon - let zero self = msg_send ~self ~cmd:(selector "zero") ~typ:(returning (id)) -end +let self = get_class "UIInterpolatedSize" -let addVector x self = msg_send ~self ~cmd:(selector "addVector:") ~typ:(id @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning (id)) -let getNSValue self = msg_send ~self ~cmd:(selector "getNSValue") ~typ:(returning (id)) -let getValue self = msg_send ~self ~cmd:(selector "getValue") ~typ:(returning (id)) -let integrateWithVelocity x ~target ~intermediateTarget ~intermediateTargetVelocity ~parameters ~state ~delta self = msg_send ~self ~cmd:(selector "integrateWithVelocity:target:intermediateTarget:intermediateTargetVelocity:parameters:state:delta:") ~typ:(id @-> id @-> id @-> id @-> ptr void @-> ptr void @-> double @-> returning (void)) x target intermediateTarget intermediateTargetVelocity parameters state delta -let interpolateTo x ~progress self = msg_send ~self ~cmd:(selector "interpolateTo:progress:") ~typ:(id @-> double @-> returning (id)) x progress -let isApproximatelyEqualTo x self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:") ~typ:(id @-> returning (bool)) x -let isApproximatelyEqualTo' x ~withinEpsilon self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:withinEpsilon:") ~typ:(id @-> id @-> returning (bool)) x withinEpsilon -let isUndefined self = msg_send ~self ~cmd:(selector "isUndefined") ~typ:(returning (bool)) -let multiplyByScalar x self = msg_send ~self ~cmd:(selector "multiplyByScalar:") ~typ:(double @-> returning (id)) x -let multiplyByVector x self = msg_send ~self ~cmd:(selector "multiplyByVector:") ~typ:(id @-> returning (id)) x -let reinitWithVector x self = msg_send ~self ~cmd:(selector "reinitWithVector:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let addVector x self = msg_send ~self ~cmd:(selector "addVector:") ~typ:(id @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning id) +let getNSValue self = msg_send ~self ~cmd:(selector "getNSValue") ~typ:(returning id) +let getValue self = msg_send ~self ~cmd:(selector "getValue") ~typ:(returning id) +let integrateWithVelocity x ~target ~intermediateTarget ~intermediateTargetVelocity ~parameters ~state ~delta self = msg_send ~self ~cmd:(selector "integrateWithVelocity:target:intermediateTarget:intermediateTargetVelocity:parameters:state:delta:") ~typ:(id @-> id @-> id @-> id @-> void @-> void @-> double @-> returning void) x target intermediateTarget intermediateTargetVelocity parameters state delta +let interpolateTo x ~progress self = msg_send ~self ~cmd:(selector "interpolateTo:progress:") ~typ:(id @-> double @-> returning id) x progress +let isApproximatelyEqualTo x self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:") ~typ:(id @-> returning bool) x +let isApproximatelyEqualTo' x ~withinEpsilon self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:withinEpsilon:") ~typ:(id @-> id @-> returning bool) x withinEpsilon +let isUndefined self = msg_send ~self ~cmd:(selector "isUndefined") ~typ:(returning bool) +let multiplyByScalar x self = msg_send ~self ~cmd:(selector "multiplyByScalar:") ~typ:(double @-> returning id) x +let multiplyByVector x self = msg_send ~self ~cmd:(selector "multiplyByVector:") ~typ:(id @-> returning id) x +let reinitWithVector x self = msg_send ~self ~cmd:(selector "reinitWithVector:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIInterpolatedSizeClass.ml b/uikit/UIInterpolatedSizeClass.ml new file mode 100644 index 00000000..ac824d25 --- /dev/null +++ b/uikit/UIInterpolatedSizeClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterpolatedsize?language=objc}UIInterpolatedSize} *) + +let epsilon self = msg_send ~self ~cmd:(selector "epsilon") ~typ:(returning id) +let valueWithCGSize x self = msg_send ~self ~cmd:(selector "valueWithCGSize:") ~typ:(CGSize.t @-> returning id) x +let valueWithCGSize' x ~epsilon self = msg_send ~self ~cmd:(selector "valueWithCGSize:epsilon:") ~typ:(CGSize.t @-> double @-> returning id) x epsilon +let zero self = msg_send ~self ~cmd:(selector "zero") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInterpolatedTransform.ml b/uikit/UIInterpolatedTransform.ml index c40ceb4c..47e03891 100644 --- a/uikit/UIInterpolatedTransform.ml +++ b/uikit/UIInterpolatedTransform.ml @@ -5,28 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterpolatedTransform" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterpolatedtransform?language=objc}UIInterpolatedTransform} *) -module C = struct - let epsilon self = msg_send ~self ~cmd:(selector "epsilon") ~typ:(returning (id)) - let valueWithCATransform3D x self = msg_send ~self ~cmd:(selector "valueWithCATransform3D:") ~typ:(ptr void @-> returning (id)) x - let valueWithCATransform3D' x ~rotationEpsilon ~scaleEpsilon ~translationEpsilon self = msg_send ~self ~cmd:(selector "valueWithCATransform3D:rotationEpsilon:scaleEpsilon:translationEpsilon:") ~typ:(ptr void @-> double @-> double @-> double @-> returning (id)) x rotationEpsilon scaleEpsilon translationEpsilon - let valueWithDecomposedTransform x self = msg_send ~self ~cmd:(selector "valueWithDecomposedTransform:") ~typ:(ptr void @-> returning (id)) x - let valueWithDecomposedTransform' x ~rotationEpsilon ~scaleEpsilon ~translationEpsilon ~rotationDirection self = msg_send ~self ~cmd:(selector "valueWithDecomposedTransform:rotationEpsilon:scaleEpsilon:translationEpsilon:rotationDirection:") ~typ:(ptr void @-> double @-> double @-> double @-> llong @-> returning (id)) x rotationEpsilon scaleEpsilon translationEpsilon (LLong.of_int rotationDirection) - let zero self = msg_send ~self ~cmd:(selector "zero") ~typ:(returning (id)) -end +let self = get_class "UIInterpolatedTransform" -let addVector x self = msg_send ~self ~cmd:(selector "addVector:") ~typ:(id @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning (id)) -let getNSValue self = msg_send ~self ~cmd:(selector "getNSValue") ~typ:(returning (id)) -let getValue self = msg_send ~self ~cmd:(selector "getValue") ~typ:(returning (id)) -let integrateWithVelocity x ~target ~intermediateTarget ~intermediateTargetVelocity ~parameters ~state ~delta self = msg_send ~self ~cmd:(selector "integrateWithVelocity:target:intermediateTarget:intermediateTargetVelocity:parameters:state:delta:") ~typ:(id @-> id @-> id @-> id @-> ptr void @-> ptr void @-> double @-> returning (void)) x target intermediateTarget intermediateTargetVelocity parameters state delta -let interpolateTo x ~progress self = msg_send ~self ~cmd:(selector "interpolateTo:progress:") ~typ:(id @-> double @-> returning (id)) x progress -let isApproximatelyEqualTo x self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:") ~typ:(id @-> returning (bool)) x -let isApproximatelyEqualTo' x ~withinEpsilon self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:withinEpsilon:") ~typ:(id @-> id @-> returning (bool)) x withinEpsilon -let isUndefined self = msg_send ~self ~cmd:(selector "isUndefined") ~typ:(returning (bool)) -let multiplyByScalar x self = msg_send ~self ~cmd:(selector "multiplyByScalar:") ~typ:(double @-> returning (id)) x -let multiplyByVector x self = msg_send ~self ~cmd:(selector "multiplyByVector:") ~typ:(id @-> returning (id)) x -let reinitWithVector x self = msg_send ~self ~cmd:(selector "reinitWithVector:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let addVector x self = msg_send ~self ~cmd:(selector "addVector:") ~typ:(id @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning id) +let getNSValue self = msg_send ~self ~cmd:(selector "getNSValue") ~typ:(returning id) +let getValue self = msg_send ~self ~cmd:(selector "getValue") ~typ:(returning id) +let integrateWithVelocity x ~target ~intermediateTarget ~intermediateTargetVelocity ~parameters ~state ~delta self = msg_send ~self ~cmd:(selector "integrateWithVelocity:target:intermediateTarget:intermediateTargetVelocity:parameters:state:delta:") ~typ:(id @-> id @-> id @-> id @-> void @-> void @-> double @-> returning void) x target intermediateTarget intermediateTargetVelocity parameters state delta +let interpolateTo x ~progress self = msg_send ~self ~cmd:(selector "interpolateTo:progress:") ~typ:(id @-> double @-> returning id) x progress +let isApproximatelyEqualTo x self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:") ~typ:(id @-> returning bool) x +let isApproximatelyEqualTo' x ~withinEpsilon self = msg_send ~self ~cmd:(selector "isApproximatelyEqualTo:withinEpsilon:") ~typ:(id @-> id @-> returning bool) x withinEpsilon +let isUndefined self = msg_send ~self ~cmd:(selector "isUndefined") ~typ:(returning bool) +let multiplyByScalar x self = msg_send ~self ~cmd:(selector "multiplyByScalar:") ~typ:(double @-> returning id) x +let multiplyByVector x self = msg_send ~self ~cmd:(selector "multiplyByVector:") ~typ:(id @-> returning id) x +let reinitWithVector x self = msg_send ~self ~cmd:(selector "reinitWithVector:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIInterpolatedTransformClass.ml b/uikit/UIInterpolatedTransformClass.ml new file mode 100644 index 00000000..4e0ff275 --- /dev/null +++ b/uikit/UIInterpolatedTransformClass.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterpolatedtransform?language=objc}UIInterpolatedTransform} *) + +let epsilon self = msg_send ~self ~cmd:(selector "epsilon") ~typ:(returning id) +let valueWithCATransform3D x self = msg_send ~self ~cmd:(selector "valueWithCATransform3D:") ~typ:(CATransform3D.t @-> returning id) x +let valueWithCATransform3D' x ~rotationEpsilon ~scaleEpsilon ~translationEpsilon self = msg_send ~self ~cmd:(selector "valueWithCATransform3D:rotationEpsilon:scaleEpsilon:translationEpsilon:") ~typ:(CATransform3D.t @-> double @-> double @-> double @-> returning id) x rotationEpsilon scaleEpsilon translationEpsilon +let valueWithDecomposedTransform x self = msg_send ~self ~cmd:(selector "valueWithDecomposedTransform:") ~typ:(void @-> returning id) x +let valueWithDecomposedTransform' x ~rotationEpsilon ~scaleEpsilon ~translationEpsilon ~rotationDirection self = msg_send ~self ~cmd:(selector "valueWithDecomposedTransform:rotationEpsilon:scaleEpsilon:translationEpsilon:rotationDirection:") ~typ:(void @-> double @-> double @-> double @-> llong @-> returning id) x rotationEpsilon scaleEpsilon translationEpsilon (LLong.of_int rotationDirection) +let zero self = msg_send ~self ~cmd:(selector "zero") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIInterpolatingMotionEffect.ml b/uikit/UIInterpolatingMotionEffect.ml index 7fe23234..63238bd9 100644 --- a/uikit/UIInterpolatingMotionEffect.ml +++ b/uikit/UIInterpolatingMotionEffect.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterpolatingMotionEffect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterpolatingmotioneffect?language=objc}UIInterpolatingMotionEffect} *) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithKeyPath x ~type_ self = msg_send ~self ~cmd:(selector "initWithKeyPath:type:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int type_) -let keyPath self = msg_send ~self ~cmd:(selector "keyPath") ~typ:(returning (id)) -let maximumRelativeValue self = msg_send ~self ~cmd:(selector "maximumRelativeValue") ~typ:(returning (id)) -let minimumRelativeValue self = msg_send ~self ~cmd:(selector "minimumRelativeValue") ~typ:(returning (id)) -let setMaximumRelativeValue x self = msg_send ~self ~cmd:(selector "setMaximumRelativeValue:") ~typ:(id @-> returning (void)) x -let setMinimumRelativeValue x self = msg_send ~self ~cmd:(selector "setMinimumRelativeValue:") ~typ:(id @-> returning (void)) x -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIInterpolatingMotionEffect" + +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithKeyPath x ~type_ self = msg_send ~self ~cmd:(selector "initWithKeyPath:type:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int type_) +let keyPath self = msg_send ~self ~cmd:(selector "keyPath") ~typ:(returning id) +let maximumRelativeValue self = msg_send ~self ~cmd:(selector "maximumRelativeValue") ~typ:(returning id) +let minimumRelativeValue self = msg_send ~self ~cmd:(selector "minimumRelativeValue") ~typ:(returning id) +let setMaximumRelativeValue x self = msg_send ~self ~cmd:(selector "setMaximumRelativeValue:") ~typ:(id @-> returning void) x +let setMinimumRelativeValue x self = msg_send ~self ~cmd:(selector "setMinimumRelativeValue:") ~typ:(id @-> returning void) x +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIItemProvider.ml b/uikit/UIItemProvider.ml index a53f81d1..4b5c88e6 100644 --- a/uikit/UIItemProvider.ml +++ b/uikit/UIItemProvider.ml @@ -5,41 +5,45 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIItemProvider" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiitemprovider?language=objc}UIItemProvider} *) -let canCreateObjectOfClass x self = msg_send ~self ~cmd:(selector "canCreateObjectOfClass:") ~typ:(_Class @-> returning (bool)) x -let canInstantiateObjectOfClass x self = msg_send ~self ~cmd:(selector "canInstantiateObjectOfClass:") ~typ:(_Class @-> returning (bool)) x -let copyDataRepresentationForTypeIdentifier x ~completionBlock self = msg_send ~self ~cmd:(selector "copyDataRepresentationForTypeIdentifier:completionBlock:") ~typ:(id @-> ptr void @-> returning (id)) x completionBlock -let copyDataRepresentationForTypeIdentifier1 x ~error self = msg_send ~self ~cmd:(selector "copyDataRepresentationForTypeIdentifier:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let copyDataRepresentationForTypeIdentifier2 x ~options ~completionBlock self = msg_send ~self ~cmd:(selector "copyDataRepresentationForTypeIdentifier:options:completionBlock:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x options completionBlock -let copyDataRepresentationForTypeIdentifier3 x ~options ~error self = msg_send ~self ~cmd:(selector "copyDataRepresentationForTypeIdentifier:options:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (id)) x options error -let copyFileRepresentationForTypeIdentifier x ~completionBlock self = msg_send ~self ~cmd:(selector "copyFileRepresentationForTypeIdentifier:completionBlock:") ~typ:(id @-> ptr void @-> returning (id)) x completionBlock -let copyFileRepresentationForTypeIdentifier1 x ~error self = msg_send ~self ~cmd:(selector "copyFileRepresentationForTypeIdentifier:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let copyFileRepresentationForTypeIdentifier2 x ~toURL ~options ~completionBlock self = msg_send ~self ~cmd:(selector "copyFileRepresentationForTypeIdentifier:toURL:options:completionBlock:") ~typ:(id @-> id @-> id @-> ptr void @-> returning (void)) x toURL options completionBlock -let copyFileRepresentationForTypeIdentifier3 x ~toURL ~options ~error self = msg_send ~self ~cmd:(selector "copyFileRepresentationForTypeIdentifier:toURL:options:error:") ~typ:(id @-> id @-> id @-> ptr (id) @-> returning (bool)) x toURL options error -let createObjectOfClass x ~completionBlock self = msg_send ~self ~cmd:(selector "createObjectOfClass:completionBlock:") ~typ:(_Class @-> ptr void @-> returning (id)) x completionBlock -let createObjectOfClass' x ~error self = msg_send ~self ~cmd:(selector "createObjectOfClass:error:") ~typ:(_Class @-> ptr (id) @-> returning (id)) x error -let estimatedDisplayedSize self = msg_send_stret ~self ~cmd:(selector "estimatedDisplayedSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let getInPlaceFileRepresentationForTypeIdentifier x ~completionBlock self = msg_send ~self ~cmd:(selector "getInPlaceFileRepresentationForTypeIdentifier:completionBlock:") ~typ:(id @-> ptr void @-> returning (id)) x completionBlock -let getInPlaceFileRepresentationForTypeIdentifier1 x ~inPlace ~error self = msg_send ~self ~cmd:(selector "getInPlaceFileRepresentationForTypeIdentifier:inPlace:error:") ~typ:(id @-> ptr (bool) @-> ptr (id) @-> returning (id)) x inPlace error -let getInPlaceFileRepresentationForTypeIdentifier2 x ~options ~completionBlock self = msg_send ~self ~cmd:(selector "getInPlaceFileRepresentationForTypeIdentifier:options:completionBlock:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x options completionBlock -let getInPlaceFileRepresentationForTypeIdentifier3 x ~options ~error self = msg_send ~self ~cmd:(selector "getInPlaceFileRepresentationForTypeIdentifier:options:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (id)) x options error -let instantiateObjectOfClass x ~options ~completionBlock self = msg_send ~self ~cmd:(selector "instantiateObjectOfClass:options:completionBlock:") ~typ:(_Class @-> id @-> ptr void @-> returning (void)) x options completionBlock -let instantiateObjectOfClass' x ~options ~error self = msg_send ~self ~cmd:(selector "instantiateObjectOfClass:options:error:") ~typ:(_Class @-> id @-> ptr (id) @-> returning (id)) x options error -let loadObjectOfClass x ~completionHandler self = msg_send ~self ~cmd:(selector "loadObjectOfClass:completionHandler:") ~typ:(_Class @-> ptr void @-> returning (id)) x completionHandler -let modificationDate self = msg_send ~self ~cmd:(selector "modificationDate") ~typ:(returning (id)) -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let registerDataRepresentationForTypeIdentifier x ~loadHandler self = msg_send ~self ~cmd:(selector "registerDataRepresentationForTypeIdentifier:loadHandler:") ~typ:(id @-> ptr void @-> returning (void)) x loadHandler -let registerDataRepresentationForTypeIdentifier' x ~options ~loadHandler self = msg_send ~self ~cmd:(selector "registerDataRepresentationForTypeIdentifier:options:loadHandler:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x options loadHandler -let registerFileRepresentationForTypeIdentifier x ~fileOptions ~loadHandler self = msg_send ~self ~cmd:(selector "registerFileRepresentationForTypeIdentifier:fileOptions:loadHandler:") ~typ:(id @-> llong @-> ptr void @-> returning (void)) x (LLong.of_int fileOptions) loadHandler -let registerFileRepresentationForTypeIdentifier' x ~fileOptions ~options ~loadHandler self = msg_send ~self ~cmd:(selector "registerFileRepresentationForTypeIdentifier:fileOptions:options:loadHandler:") ~typ:(id @-> llong @-> id @-> ptr void @-> returning (void)) x (LLong.of_int fileOptions) options loadHandler -let registerObject x ~options self = msg_send ~self ~cmd:(selector "registerObject:options:") ~typ:(id @-> id @-> returning (void)) x options -let registerObjectOfClass x ~options ~loadHandler self = msg_send ~self ~cmd:(selector "registerObjectOfClass:options:loadHandler:") ~typ:(_Class @-> id @-> ptr void @-> returning (void)) x options loadHandler -let setEstimatedDisplayedSize x self = msg_send ~self ~cmd:(selector "setEstimatedDisplayedSize:") ~typ:(CGSize.t @-> returning (void)) x -let setModificationDate x self = msg_send ~self ~cmd:(selector "setModificationDate:") ~typ:(id @-> returning (void)) x -let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning (void)) x -let setSize x self = msg_send ~self ~cmd:(selector "setSize:") ~typ:(id @-> returning (void)) x -let setTeamMetadata x self = msg_send ~self ~cmd:(selector "setTeamMetadata:") ~typ:(id @-> returning (void)) x -let size self = msg_send ~self ~cmd:(selector "size") ~typ:(returning (id)) -let teamMetadata self = msg_send ~self ~cmd:(selector "teamMetadata") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIItemProvider" + +let canCreateObjectOfClass x self = msg_send ~self ~cmd:(selector "canCreateObjectOfClass:") ~typ:(_Class @-> returning bool) x +let canInstantiateObjectOfClass x self = msg_send ~self ~cmd:(selector "canInstantiateObjectOfClass:") ~typ:(_Class @-> returning bool) x +let copyDataRepresentationForTypeIdentifier x ~completionBlock self = msg_send ~self ~cmd:(selector "copyDataRepresentationForTypeIdentifier:completionBlock:") ~typ:(id @-> (ptr void) @-> returning id) x completionBlock +let copyDataRepresentationForTypeIdentifier1 x ~error self = msg_send ~self ~cmd:(selector "copyDataRepresentationForTypeIdentifier:error:") ~typ:(id @-> (ptr id) @-> returning id) x error +let copyDataRepresentationForTypeIdentifier2 x ~options ~completionBlock self = msg_send ~self ~cmd:(selector "copyDataRepresentationForTypeIdentifier:options:completionBlock:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x options completionBlock +let copyDataRepresentationForTypeIdentifier3 x ~options ~error self = msg_send ~self ~cmd:(selector "copyDataRepresentationForTypeIdentifier:options:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x options error +let copyFileRepresentationForTypeIdentifier x ~completionBlock self = msg_send ~self ~cmd:(selector "copyFileRepresentationForTypeIdentifier:completionBlock:") ~typ:(id @-> (ptr void) @-> returning id) x completionBlock +let copyFileRepresentationForTypeIdentifier1 x ~error self = msg_send ~self ~cmd:(selector "copyFileRepresentationForTypeIdentifier:error:") ~typ:(id @-> (ptr id) @-> returning id) x error +let copyFileRepresentationForTypeIdentifier2 x ~toURL ~options ~completionBlock self = msg_send ~self ~cmd:(selector "copyFileRepresentationForTypeIdentifier:toURL:options:completionBlock:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x toURL options completionBlock +let copyFileRepresentationForTypeIdentifier3 x ~toURL ~options ~error self = msg_send ~self ~cmd:(selector "copyFileRepresentationForTypeIdentifier:toURL:options:error:") ~typ:(id @-> id @-> id @-> (ptr id) @-> returning bool) x toURL options error +let createObjectOfClass x ~completionBlock self = msg_send ~self ~cmd:(selector "createObjectOfClass:completionBlock:") ~typ:(_Class @-> (ptr void) @-> returning id) x completionBlock +let createObjectOfClass' x ~error self = msg_send ~self ~cmd:(selector "createObjectOfClass:error:") ~typ:(_Class @-> (ptr id) @-> returning id) x error +let estimatedDisplayedSize self = msg_send ~self ~cmd:(selector "estimatedDisplayedSize") ~typ:(returning CGSize.t) +let getInPlaceFileRepresentationForTypeIdentifier x ~completionBlock self = msg_send ~self ~cmd:(selector "getInPlaceFileRepresentationForTypeIdentifier:completionBlock:") ~typ:(id @-> (ptr void) @-> returning id) x completionBlock +let getInPlaceFileRepresentationForTypeIdentifier1 x ~inPlace ~error self = msg_send ~self ~cmd:(selector "getInPlaceFileRepresentationForTypeIdentifier:inPlace:error:") ~typ:(id @-> (ptr bool) @-> (ptr id) @-> returning id) x inPlace error +let getInPlaceFileRepresentationForTypeIdentifier2 x ~options ~completionBlock self = msg_send ~self ~cmd:(selector "getInPlaceFileRepresentationForTypeIdentifier:options:completionBlock:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x options completionBlock +let getInPlaceFileRepresentationForTypeIdentifier3 x ~options ~error self = msg_send ~self ~cmd:(selector "getInPlaceFileRepresentationForTypeIdentifier:options:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x options error +let instantiateObjectOfClass x ~options ~completionBlock self = msg_send ~self ~cmd:(selector "instantiateObjectOfClass:options:completionBlock:") ~typ:(_Class @-> id @-> (ptr void) @-> returning void) x options completionBlock +let instantiateObjectOfClass' x ~options ~error self = msg_send ~self ~cmd:(selector "instantiateObjectOfClass:options:error:") ~typ:(_Class @-> id @-> (ptr id) @-> returning id) x options error +let loadObjectOfClass x ~completionHandler self = msg_send ~self ~cmd:(selector "loadObjectOfClass:completionHandler:") ~typ:(_Class @-> (ptr void) @-> returning id) x completionHandler +let modificationDate self = msg_send ~self ~cmd:(selector "modificationDate") ~typ:(returning id) +let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) +let registerDataRepresentationForTypeIdentifier x ~loadHandler self = msg_send ~self ~cmd:(selector "registerDataRepresentationForTypeIdentifier:loadHandler:") ~typ:(id @-> (ptr void) @-> returning void) x loadHandler +let registerDataRepresentationForTypeIdentifier' x ~options ~loadHandler self = msg_send ~self ~cmd:(selector "registerDataRepresentationForTypeIdentifier:options:loadHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x options loadHandler +let registerFileRepresentationForTypeIdentifier x ~fileOptions ~loadHandler self = msg_send ~self ~cmd:(selector "registerFileRepresentationForTypeIdentifier:fileOptions:loadHandler:") ~typ:(id @-> llong @-> (ptr void) @-> returning void) x (LLong.of_int fileOptions) loadHandler +let registerFileRepresentationForTypeIdentifier' x ~fileOptions ~options ~loadHandler self = msg_send ~self ~cmd:(selector "registerFileRepresentationForTypeIdentifier:fileOptions:options:loadHandler:") ~typ:(id @-> llong @-> id @-> (ptr void) @-> returning void) x (LLong.of_int fileOptions) options loadHandler +let registerObject x ~options self = msg_send ~self ~cmd:(selector "registerObject:options:") ~typ:(id @-> id @-> returning void) x options +let registerObjectOfClass x ~options ~loadHandler self = msg_send ~self ~cmd:(selector "registerObjectOfClass:options:loadHandler:") ~typ:(_Class @-> id @-> (ptr void) @-> returning void) x options loadHandler +let setEstimatedDisplayedSize x self = msg_send ~self ~cmd:(selector "setEstimatedDisplayedSize:") ~typ:(CGSize.t @-> returning void) x +let setModificationDate x self = msg_send ~self ~cmd:(selector "setModificationDate:") ~typ:(id @-> returning void) x +let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning void) x +let setSize x self = msg_send ~self ~cmd:(selector "setSize:") ~typ:(id @-> returning void) x +let setTeamMetadata x self = msg_send ~self ~cmd:(selector "setTeamMetadata:") ~typ:(id @-> returning void) x +let size self = msg_send ~self ~cmd:(selector "size") ~typ:(returning id) +let teamMetadata self = msg_send ~self ~cmd:(selector "teamMetadata") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIKey.ml b/uikit/UIKey.ml index 38be67db..e59c873f 100644 --- a/uikit/UIKey.ml +++ b/uikit/UIKey.ml @@ -5,23 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKey" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikey?language=objc}UIKey} *) -let characters self = msg_send ~self ~cmd:(selector "characters") ~typ:(returning (id)) -let charactersIgnoringModifiers self = msg_send ~self ~cmd:(selector "charactersIgnoringModifiers") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let equalsKeyCode x ~modifiers self = msg_send ~self ~cmd:(selector "equalsKeyCode:modifiers:") ~typ:(llong @-> llong @-> returning (bool)) (LLong.of_int x) (LLong.of_int modifiers) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithKeyboardEvent x self = msg_send ~self ~cmd:(selector "initWithKeyboardEvent:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let keyCode self = msg_send ~self ~cmd:(selector "keyCode") ~typ:(returning (llong)) -let modiferFlagsWithoutCapsLockOrNumberPad self = msg_send ~self ~cmd:(selector "modiferFlagsWithoutCapsLockOrNumberPad") ~typ:(returning (llong)) -let modifiedInput self = msg_send ~self ~cmd:(selector "modifiedInput") ~typ:(returning (id)) -let modifierFlags self = msg_send ~self ~cmd:(selector "modifierFlags") ~typ:(returning (llong)) -let modifiersEqual x self = msg_send ~self ~cmd:(selector "modifiersEqual:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let unmodifiedInput self = msg_send ~self ~cmd:(selector "unmodifiedInput") ~typ:(returning (id)) -let unmodifiedKeyCodeEquals x self = msg_send ~self ~cmd:(selector "unmodifiedKeyCodeEquals:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) \ No newline at end of file +let self = get_class "UIKey" + +let characters self = msg_send ~self ~cmd:(selector "characters") ~typ:(returning id) +let charactersIgnoringModifiers self = msg_send ~self ~cmd:(selector "charactersIgnoringModifiers") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let equalsKeyCode x ~modifiers self = msg_send ~self ~cmd:(selector "equalsKeyCode:modifiers:") ~typ:(llong @-> llong @-> returning bool) (LLong.of_int x) (LLong.of_int modifiers) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithKeyboardEvent x self = msg_send ~self ~cmd:(selector "initWithKeyboardEvent:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let keyCode self = msg_send ~self ~cmd:(selector "keyCode") ~typ:(returning llong) +let modiferFlagsWithoutCapsLockOrNumberPad self = msg_send ~self ~cmd:(selector "modiferFlagsWithoutCapsLockOrNumberPad") ~typ:(returning llong) +let modifiedInput self = msg_send ~self ~cmd:(selector "modifiedInput") ~typ:(returning id) +let modifierFlags self = msg_send ~self ~cmd:(selector "modifierFlags") ~typ:(returning llong) +let modifiersEqual x self = msg_send ~self ~cmd:(selector "modifiersEqual:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let unmodifiedInput self = msg_send ~self ~cmd:(selector "unmodifiedInput") ~typ:(returning id) +let unmodifiedKeyCodeEquals x self = msg_send ~self ~cmd:(selector "unmodifiedKeyCodeEquals:") ~typ:(llong @-> returning bool) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIKeyCommand.ml b/uikit/UIKeyCommand.ml index a6dbb0e2..a96b5d01 100644 --- a/uikit/UIKeyCommand.ml +++ b/uikit/UIKeyCommand.ml @@ -5,51 +5,36 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyCommand" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeycommand?language=objc}UIKeyCommand} *) -module C = struct - let commandWithTitle x ~imageName ~action ~input ~modifierFlags self = msg_send ~self ~cmd:(selector "commandWithTitle:imageName:action:input:modifierFlags:") ~typ:(id @-> id @-> _SEL @-> id @-> llong @-> returning (id)) x imageName action input (LLong.of_int modifierFlags) - let commandWithTitle1 x ~image ~action ~input ~modifierFlags ~propertyList self = msg_send ~self ~cmd:(selector "commandWithTitle:image:action:input:modifierFlags:propertyList:") ~typ:(id @-> id @-> _SEL @-> id @-> llong @-> id @-> returning (id)) x image action input (LLong.of_int modifierFlags) propertyList - let commandWithTitle2 x ~image ~action ~input ~modifierFlags ~propertyList ~alternates self = msg_send ~self ~cmd:(selector "commandWithTitle:image:action:input:modifierFlags:propertyList:alternates:") ~typ:(id @-> id @-> _SEL @-> id @-> llong @-> id @-> id @-> returning (id)) x image action input (LLong.of_int modifierFlags) propertyList alternates - let keyCommandWithCompactInput x ~action ~upAction self = msg_send ~self ~cmd:(selector "keyCommandWithCompactInput:action:upAction:") ~typ:(id @-> _SEL @-> _SEL @-> returning (id)) x action upAction - let keyCommandWithInput x ~modifierFlags ~action self = msg_send ~self ~cmd:(selector "keyCommandWithInput:modifierFlags:action:") ~typ:(id @-> llong @-> _SEL @-> returning (id)) x (LLong.of_int modifierFlags) action - let keyCommandWithInput1 x ~modifierFlags ~buttonType self = msg_send ~self ~cmd:(selector "keyCommandWithInput:modifierFlags:buttonType:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int modifierFlags) (LLong.of_int buttonType) - let keyCommandWithInput2 x ~modifierFlags ~segueIdentifier self = msg_send ~self ~cmd:(selector "keyCommandWithInput:modifierFlags:segueIdentifier:") ~typ:(id @-> llong @-> id @-> returning (id)) x (LLong.of_int modifierFlags) segueIdentifier - let keyCommandWithInput3 x ~modifierFlags ~action ~discoverabilityTitle self = msg_send ~self ~cmd:(selector "keyCommandWithInput:modifierFlags:action:discoverabilityTitle:") ~typ:(id @-> llong @-> _SEL @-> id @-> returning (id)) x (LLong.of_int modifierFlags) action discoverabilityTitle - let keyCommandWithInput4 x ~modifierFlags ~action ~upAction self = msg_send ~self ~cmd:(selector "keyCommandWithInput:modifierFlags:action:upAction:") ~typ:(id @-> llong @-> _SEL @-> _SEL @-> returning (id)) x (LLong.of_int modifierFlags) action upAction - let keyCommandWithInput5 x ~modifierFlags ~segueIdentifier ~discoverabilityTitle self = msg_send ~self ~cmd:(selector "keyCommandWithInput:modifierFlags:segueIdentifier:discoverabilityTitle:") ~typ:(id @-> llong @-> id @-> id @-> returning (id)) x (LLong.of_int modifierFlags) segueIdentifier discoverabilityTitle - let keyCommandWithInput6 x ~modifierFlags ~action ~upAction ~discoverabilityTitle self = msg_send ~self ~cmd:(selector "keyCommandWithInput:modifierFlags:action:upAction:discoverabilityTitle:") ~typ:(id @-> llong @-> _SEL @-> _SEL @-> id @-> returning (id)) x (LLong.of_int modifierFlags) action upAction discoverabilityTitle - let keyCommandWithKeyCode x ~modifierFlags ~action self = msg_send ~self ~cmd:(selector "keyCommandWithKeyCode:modifierFlags:action:") ~typ:(llong @-> llong @-> _SEL @-> returning (id)) (LLong.of_int x) (LLong.of_int modifierFlags) action - let keyCommandWithKeyCode' x ~modifierFlags ~action ~discoverabilityTitle self = msg_send ~self ~cmd:(selector "keyCommandWithKeyCode:modifierFlags:action:discoverabilityTitle:") ~typ:(llong @-> llong @-> _SEL @-> id @-> returning (id)) (LLong.of_int x) (LLong.of_int modifierFlags) action discoverabilityTitle - let keyCommandWithKeyCodes x ~modifierFlags ~action self = msg_send ~self ~cmd:(selector "keyCommandWithKeyCodes:modifierFlags:action:") ~typ:(id @-> llong @-> _SEL @-> returning (id)) x (LLong.of_int modifierFlags) action - let keyCommandWithKeyCodes' x ~modifierFlags ~buttonType self = msg_send ~self ~cmd:(selector "keyCommandWithKeyCodes:modifierFlags:buttonType:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int modifierFlags) (LLong.of_int buttonType) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIKeyCommand" -let allowGlobeModifier self = msg_send ~self ~cmd:(selector "allowGlobeModifier") ~typ:(returning (bool)) -let allowsAutomaticLocalization self = msg_send ~self ~cmd:(selector "allowsAutomaticLocalization") ~typ:(returning (bool)) -let allowsAutomaticMirroring self = msg_send ~self ~cmd:(selector "allowsAutomaticMirroring") ~typ:(returning (bool)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let discoverabilityInput self = msg_send ~self ~cmd:(selector "discoverabilityInput") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithCommand x self = msg_send ~self ~cmd:(selector "initWithCommand:") ~typ:(id @-> returning (id)) x -let initWithKeyCommand x self = msg_send ~self ~cmd:(selector "initWithKeyCommand:") ~typ:(id @-> returning (id)) x -let initWithTitle x ~image ~imageName ~action ~propertyList ~alternates ~discoverabilityTitle ~attributes ~state self = msg_send ~self ~cmd:(selector "initWithTitle:image:imageName:action:propertyList:alternates:discoverabilityTitle:attributes:state:") ~typ:(id @-> id @-> id @-> _SEL @-> id @-> id @-> id @-> ullong @-> llong @-> returning (id)) x image imageName action propertyList alternates discoverabilityTitle (ULLong.of_int attributes) (LLong.of_int state) -let initWithTitle' x ~image ~imageName ~action ~input ~modifierFlags ~propertyList ~alternates ~discoverabilityTitle ~attributes ~state self = msg_send ~self ~cmd:(selector "initWithTitle:image:imageName:action:input:modifierFlags:propertyList:alternates:discoverabilityTitle:attributes:state:") ~typ:(id @-> id @-> id @-> _SEL @-> id @-> llong @-> id @-> id @-> id @-> ullong @-> llong @-> returning (id)) x image imageName action input (LLong.of_int modifierFlags) propertyList alternates discoverabilityTitle (ULLong.of_int attributes) (LLong.of_int state) -let input self = msg_send ~self ~cmd:(selector "input") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isPlaceholder self = msg_send ~self ~cmd:(selector "isPlaceholder") ~typ:(returning (bool)) -let modifierFlags self = msg_send ~self ~cmd:(selector "modifierFlags") ~typ:(returning (llong)) -let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning (id)) -let repeatable self = msg_send ~self ~cmd:(selector "repeatable") ~typ:(returning (bool)) -let setAllowsAutomaticLocalization x self = msg_send ~self ~cmd:(selector "setAllowsAutomaticLocalization:") ~typ:(bool @-> returning (void)) x -let setAllowsAutomaticMirroring x self = msg_send ~self ~cmd:(selector "setAllowsAutomaticMirroring:") ~typ:(bool @-> returning (void)) x -let setWantsPriorityOverSystemBehavior x self = msg_send ~self ~cmd:(selector "setWantsPriorityOverSystemBehavior:") ~typ:(bool @-> returning (void)) x -let triggerSegueIfPossible self = msg_send ~self ~cmd:(selector "triggerSegueIfPossible") ~typ:(returning (bool)) -let upAction self = msg_send ~self ~cmd:(selector "upAction") ~typ:(returning (_SEL)) -let wantsPriorityOverSystemBehavior self = msg_send ~self ~cmd:(selector "wantsPriorityOverSystemBehavior") ~typ:(returning (bool)) \ No newline at end of file +let allowGlobeModifier self = msg_send ~self ~cmd:(selector "allowGlobeModifier") ~typ:(returning bool) +let allowsAutomaticLocalization self = msg_send ~self ~cmd:(selector "allowsAutomaticLocalization") ~typ:(returning bool) +let allowsAutomaticMirroring self = msg_send ~self ~cmd:(selector "allowsAutomaticMirroring") ~typ:(returning bool) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let discoverabilityInput self = msg_send ~self ~cmd:(selector "discoverabilityInput") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithCommand x self = msg_send ~self ~cmd:(selector "initWithCommand:") ~typ:(id @-> returning id) x +let initWithKeyCommand x self = msg_send ~self ~cmd:(selector "initWithKeyCommand:") ~typ:(id @-> returning id) x +let initWithTitle x ~image ~imageName ~action ~propertyList ~alternates ~discoverabilityTitle ~attributes ~state self = msg_send ~self ~cmd:(selector "initWithTitle:image:imageName:action:propertyList:alternates:discoverabilityTitle:attributes:state:") ~typ:(id @-> id @-> id @-> _SEL @-> id @-> id @-> id @-> ullong @-> llong @-> returning id) x image imageName action propertyList alternates discoverabilityTitle (ULLong.of_int attributes) (LLong.of_int state) +let initWithTitle' x ~image ~imageName ~action ~input ~modifierFlags ~propertyList ~alternates ~discoverabilityTitle ~attributes ~state self = msg_send ~self ~cmd:(selector "initWithTitle:image:imageName:action:input:modifierFlags:propertyList:alternates:discoverabilityTitle:attributes:state:") ~typ:(id @-> id @-> id @-> _SEL @-> id @-> llong @-> id @-> id @-> id @-> ullong @-> llong @-> returning id) x image imageName action input (LLong.of_int modifierFlags) propertyList alternates discoverabilityTitle (ULLong.of_int attributes) (LLong.of_int state) +let input self = msg_send ~self ~cmd:(selector "input") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isPlaceholder self = msg_send ~self ~cmd:(selector "isPlaceholder") ~typ:(returning bool) +let modifierFlags self = msg_send ~self ~cmd:(selector "modifierFlags") ~typ:(returning llong) +let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning id) +let repeatable self = msg_send ~self ~cmd:(selector "repeatable") ~typ:(returning bool) +let setAllowsAutomaticLocalization x self = msg_send ~self ~cmd:(selector "setAllowsAutomaticLocalization:") ~typ:(bool @-> returning void) x +let setAllowsAutomaticMirroring x self = msg_send ~self ~cmd:(selector "setAllowsAutomaticMirroring:") ~typ:(bool @-> returning void) x +let setWantsPriorityOverSystemBehavior x self = msg_send ~self ~cmd:(selector "setWantsPriorityOverSystemBehavior:") ~typ:(bool @-> returning void) x +let triggerSegueIfPossible self = msg_send ~self ~cmd:(selector "triggerSegueIfPossible") ~typ:(returning bool) +let upAction self = msg_send ~self ~cmd:(selector "upAction") ~typ:(returning _SEL) +let wantsPriorityOverSystemBehavior self = msg_send ~self ~cmd:(selector "wantsPriorityOverSystemBehavior") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIKeyCommandClass.ml b/uikit/UIKeyCommandClass.ml new file mode 100644 index 00000000..df62182f --- /dev/null +++ b/uikit/UIKeyCommandClass.ml @@ -0,0 +1,28 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeycommand?language=objc}UIKeyCommand} *) + +let commandWithTitle x ~imageName ~action ~input ~modifierFlags self = msg_send ~self ~cmd:(selector "commandWithTitle:imageName:action:input:modifierFlags:") ~typ:(id @-> id @-> _SEL @-> id @-> llong @-> returning id) x imageName action input (LLong.of_int modifierFlags) +let commandWithTitle1 x ~image ~action ~input ~modifierFlags ~propertyList self = msg_send ~self ~cmd:(selector "commandWithTitle:image:action:input:modifierFlags:propertyList:") ~typ:(id @-> id @-> _SEL @-> id @-> llong @-> id @-> returning id) x image action input (LLong.of_int modifierFlags) propertyList +let commandWithTitle2 x ~image ~action ~input ~modifierFlags ~propertyList ~alternates self = msg_send ~self ~cmd:(selector "commandWithTitle:image:action:input:modifierFlags:propertyList:alternates:") ~typ:(id @-> id @-> _SEL @-> id @-> llong @-> id @-> id @-> returning id) x image action input (LLong.of_int modifierFlags) propertyList alternates +let keyCommandWithCompactInput x ~action ~upAction self = msg_send ~self ~cmd:(selector "keyCommandWithCompactInput:action:upAction:") ~typ:(id @-> _SEL @-> _SEL @-> returning id) x action upAction +let keyCommandWithInput x ~modifierFlags ~action self = msg_send ~self ~cmd:(selector "keyCommandWithInput:modifierFlags:action:") ~typ:(id @-> llong @-> _SEL @-> returning id) x (LLong.of_int modifierFlags) action +let keyCommandWithInput1 x ~modifierFlags ~buttonType self = msg_send ~self ~cmd:(selector "keyCommandWithInput:modifierFlags:buttonType:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int modifierFlags) (LLong.of_int buttonType) +let keyCommandWithInput2 x ~modifierFlags ~segueIdentifier self = msg_send ~self ~cmd:(selector "keyCommandWithInput:modifierFlags:segueIdentifier:") ~typ:(id @-> llong @-> id @-> returning id) x (LLong.of_int modifierFlags) segueIdentifier +let keyCommandWithInput3 x ~modifierFlags ~action ~discoverabilityTitle self = msg_send ~self ~cmd:(selector "keyCommandWithInput:modifierFlags:action:discoverabilityTitle:") ~typ:(id @-> llong @-> _SEL @-> id @-> returning id) x (LLong.of_int modifierFlags) action discoverabilityTitle +let keyCommandWithInput4 x ~modifierFlags ~action ~upAction self = msg_send ~self ~cmd:(selector "keyCommandWithInput:modifierFlags:action:upAction:") ~typ:(id @-> llong @-> _SEL @-> _SEL @-> returning id) x (LLong.of_int modifierFlags) action upAction +let keyCommandWithInput5 x ~modifierFlags ~segueIdentifier ~discoverabilityTitle self = msg_send ~self ~cmd:(selector "keyCommandWithInput:modifierFlags:segueIdentifier:discoverabilityTitle:") ~typ:(id @-> llong @-> id @-> id @-> returning id) x (LLong.of_int modifierFlags) segueIdentifier discoverabilityTitle +let keyCommandWithInput6 x ~modifierFlags ~action ~upAction ~discoverabilityTitle self = msg_send ~self ~cmd:(selector "keyCommandWithInput:modifierFlags:action:upAction:discoverabilityTitle:") ~typ:(id @-> llong @-> _SEL @-> _SEL @-> id @-> returning id) x (LLong.of_int modifierFlags) action upAction discoverabilityTitle +let keyCommandWithKeyCode x ~modifierFlags ~action self = msg_send ~self ~cmd:(selector "keyCommandWithKeyCode:modifierFlags:action:") ~typ:(llong @-> llong @-> _SEL @-> returning id) (LLong.of_int x) (LLong.of_int modifierFlags) action +let keyCommandWithKeyCode' x ~modifierFlags ~action ~discoverabilityTitle self = msg_send ~self ~cmd:(selector "keyCommandWithKeyCode:modifierFlags:action:discoverabilityTitle:") ~typ:(llong @-> llong @-> _SEL @-> id @-> returning id) (LLong.of_int x) (LLong.of_int modifierFlags) action discoverabilityTitle +let keyCommandWithKeyCodes x ~modifierFlags ~action self = msg_send ~self ~cmd:(selector "keyCommandWithKeyCodes:modifierFlags:action:") ~typ:(id @-> llong @-> _SEL @-> returning id) x (LLong.of_int modifierFlags) action +let keyCommandWithKeyCodes' x ~modifierFlags ~buttonType self = msg_send ~self ~cmd:(selector "keyCommandWithKeyCodes:modifierFlags:buttonType:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int modifierFlags) (LLong.of_int buttonType) +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIKeyShortcutHUDService.ml b/uikit/UIKeyShortcutHUDService.ml deleted file mode 100644 index 5d1b7789..00000000 --- a/uikit/UIKeyShortcutHUDService.ml +++ /dev/null @@ -1,42 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIKeyShortcutHUDService" - -module C = struct - let sharedHUDService self = msg_send ~self ~cmd:(selector "sharedHUDService") ~typ:(returning (id)) -end - -let beginSearching self = msg_send ~self ~cmd:(selector "beginSearching") ~typ:(returning (void)) -let cancelScheduledHUDPresentationIfNeeded self = msg_send ~self ~cmd:(selector "cancelScheduledHUDPresentationIfNeeded") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let dismissHUDIfNeeded self = msg_send ~self ~cmd:(selector "dismissHUDIfNeeded") ~typ:(returning (void)) -let dismissOrCancelHUDPresentationIfNeeded self = msg_send ~self ~cmd:(selector "dismissOrCancelHUDPresentationIfNeeded") ~typ:(returning (void)) -let handleKeyboardEvent x self = msg_send ~self ~cmd:(selector "handleKeyboardEvent:") ~typ:(id @-> returning (void)) x -let hudPresentationState self = msg_send ~self ~cmd:(selector "hudPresentationState") ~typ:(returning (llong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isHUDVisible self = msg_send ~self ~cmd:(selector "isHUDVisible") ~typ:(returning (bool)) -let isModifierKeyDownForHUDDismissal self = msg_send ~self ~cmd:(selector "isModifierKeyDownForHUDDismissal") ~typ:(returning (bool)) -let lastKeyboardEvent self = msg_send ~self ~cmd:(selector "lastKeyboardEvent") ~typ:(returning (id)) -let modifierKeyListener self = msg_send ~self ~cmd:(selector "modifierKeyListener") ~typ:(returning (id)) -let modifierKeyListener' x ~didUpdateModifierFlag ~withEvent self = msg_send ~self ~cmd:(selector "modifierKeyListener:didUpdateModifierFlag:withEvent:") ~typ:(id @-> llong @-> id @-> returning (void)) x (LLong.of_int didUpdateModifierFlag) withEvent -let modifierKeyListenerDidPressNonModifierKey x self = msg_send ~self ~cmd:(selector "modifierKeyListenerDidPressNonModifierKey:") ~typ:(id @-> returning (void)) x -let presentHUD self = msg_send ~self ~cmd:(selector "presentHUD") ~typ:(returning (void)) -let presentHUDIfAllowedWithConfiguration x self = msg_send ~self ~cmd:(selector "presentHUDIfAllowedWithConfiguration:") ~typ:(id @-> returning (void)) x -let preventUnintendedSystemHUDPresentationIfNeeded self = msg_send ~self ~cmd:(selector "preventUnintendedSystemHUDPresentationIfNeeded") ~typ:(returning (void)) -let scheduleHUDPresentation self = msg_send ~self ~cmd:(selector "scheduleHUDPresentation") ~typ:(returning (void)) -let scheduledHUDConfiguration self = msg_send ~self ~cmd:(selector "scheduledHUDConfiguration") ~typ:(returning (id)) -let scheduledHUDHoverGestureRecognizers self = msg_send ~self ~cmd:(selector "scheduledHUDHoverGestureRecognizers") ~typ:(returning (id)) -let scheduledHUDInitialPointerLocation self = msg_send ~self ~cmd:(selector "scheduledHUDInitialPointerLocation") ~typ:(returning (id)) -let scheduledHUDTimer self = msg_send ~self ~cmd:(selector "scheduledHUDTimer") ~typ:(returning (id)) -let setLastKeyboardEvent x self = msg_send ~self ~cmd:(selector "setLastKeyboardEvent:") ~typ:(id @-> returning (void)) x -let setModifierKeyDownForHUDDismissal x self = msg_send ~self ~cmd:(selector "setModifierKeyDownForHUDDismissal:") ~typ:(bool @-> returning (void)) x -let setScheduledHUDConfiguration x self = msg_send ~self ~cmd:(selector "setScheduledHUDConfiguration:") ~typ:(id @-> returning (void)) x -let setScheduledHUDHoverGestureRecognizers x self = msg_send ~self ~cmd:(selector "setScheduledHUDHoverGestureRecognizers:") ~typ:(id @-> returning (void)) x -let setScheduledHUDInitialPointerLocation x self = msg_send ~self ~cmd:(selector "setScheduledHUDInitialPointerLocation:") ~typ:(id @-> returning (void)) x -let setScheduledHUDTimer x self = msg_send ~self ~cmd:(selector "setScheduledHUDTimer:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIKeyboard.ml b/uikit/UIKeyboard.ml index 84f76c37..07a0ce3d 100644 --- a/uikit/UIKeyboard.ml +++ b/uikit/UIKeyboard.ml @@ -5,143 +5,114 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboard" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboard?language=objc}UIKeyboard} *) -module C = struct - let activeKeyboard self = msg_send ~self ~cmd:(selector "activeKeyboard") ~typ:(returning (id)) - let activeKeyboardForScreen x self = msg_send ~self ~cmd:(selector "activeKeyboardForScreen:") ~typ:(id @-> returning (id)) x - let candidateDisplayIsExtended self = msg_send ~self ~cmd:(selector "candidateDisplayIsExtended") ~typ:(returning (bool)) - let clearActiveForScreen x self = msg_send ~self ~cmd:(selector "clearActiveForScreen:") ~typ:(id @-> returning (void)) x - let defaultFrameForInterfaceOrientation x self = msg_send_stret ~self ~cmd:(selector "defaultFrameForInterfaceOrientation:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) - let defaultSize self = msg_send_stret ~self ~cmd:(selector "defaultSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t - let defaultSizeForInterfaceOrientation x self = msg_send_stret ~self ~cmd:(selector "defaultSizeForInterfaceOrientation:") ~typ:(llong @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) - let hasInputOrAssistantViewsOnScreen self = msg_send ~self ~cmd:(selector "hasInputOrAssistantViewsOnScreen") ~typ:(returning (bool)) - let homeGestureExclusionZones self = msg_send ~self ~cmd:(selector "homeGestureExclusionZones") ~typ:(returning (id)) - let initImplementationNow self = msg_send ~self ~cmd:(selector "initImplementationNow") ~typ:(returning (void)) - let isInHardwareKeyboardMode self = msg_send ~self ~cmd:(selector "isInHardwareKeyboardMode") ~typ:(returning (bool)) - let isOnScreen self = msg_send ~self ~cmd:(selector "isOnScreen") ~typ:(returning (bool)) - let isSpotlight self = msg_send ~self ~cmd:(selector "isSpotlight") ~typ:(returning (bool)) - let keyboardSizeForInterfaceOrientation x self = msg_send_stret ~self ~cmd:(selector "keyboardSizeForInterfaceOrientation:") ~typ:(llong @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) - let makeKeyboardActive x ~forScreen self = msg_send ~self ~cmd:(selector "makeKeyboardActive:forScreen:") ~typ:(id @-> id @-> returning (void)) x forScreen - let platformSupportsKeyboardServiceRole x self = msg_send ~self ~cmd:(selector "platformSupportsKeyboardServiceRole:") ~typ:(ullong @-> returning (bool)) (ULLong.of_int x) - let predictionViewHeightForCurrentInputMode self = msg_send ~self ~cmd:(selector "predictionViewHeightForCurrentInputMode") ~typ:(returning (double)) - let predictionViewPrewarmsPredictiveCandidates self = msg_send ~self ~cmd:(selector "predictionViewPrewarmsPredictiveCandidates") ~typ:(returning (bool)) - let removeAllDynamicDictionaries self = msg_send ~self ~cmd:(selector "removeAllDynamicDictionaries") ~typ:(returning (void)) - let respondsToProxGesture self = msg_send ~self ~cmd:(selector "respondsToProxGesture") ~typ:(returning (bool)) - let serviceRole self = msg_send ~self ~cmd:(selector "serviceRole") ~typ:(returning (ullong)) - let setPredictionViewPrewarmsPredictiveCandidates x self = msg_send ~self ~cmd:(selector "setPredictionViewPrewarmsPredictiveCandidates:") ~typ:(bool @-> returning (void)) x - let setServiceRole x self = msg_send ~self ~cmd:(selector "setServiceRole:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) - let setSuppressionPolicyDelegate x self = msg_send ~self ~cmd:(selector "setSuppressionPolicyDelegate:") ~typ:(id @-> returning (void)) x - let shouldMinimizeForHardwareKeyboard self = msg_send ~self ~cmd:(selector "shouldMinimizeForHardwareKeyboard") ~typ:(returning (bool)) - let shouldSuppressSoftwareKeyboardForResponder x self = msg_send ~self ~cmd:(selector "shouldSuppressSoftwareKeyboardForResponder:") ~typ:(id @-> returning (bool)) x - let sizeForInterfaceOrientation x self = msg_send_stret ~self ~cmd:(selector "sizeForInterfaceOrientation:") ~typ:(llong @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) - let sizeForInterfaceOrientation' x ~ignoreInputView self = msg_send_stret ~self ~cmd:(selector "sizeForInterfaceOrientation:ignoreInputView:") ~typ:(llong @-> bool @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) ignoreInputView - let snapshotViewForPredictionViewTransition self = msg_send ~self ~cmd:(selector "snapshotViewForPredictionViewTransition") ~typ:(returning (id)) - let splitKeyboardEnabled self = msg_send ~self ~cmd:(selector "splitKeyboardEnabled") ~typ:(returning (bool)) - let suppressionPolicyDelegate self = msg_send ~self ~cmd:(selector "suppressionPolicyDelegate") ~typ:(returning (id)) -end +let self = get_class "UIKeyboard" -let acceptAutocorrection self = msg_send ~self ~cmd:(selector "acceptAutocorrection") ~typ:(returning (void)) -let activate self = msg_send ~self ~cmd:(selector "activate") ~typ:(returning (void)) -let activateIfNeeded self = msg_send ~self ~cmd:(selector "activateIfNeeded") ~typ:(returning (void)) -let allowExternalChangeForFocusHeading x ~cursorLocation self = msg_send ~self ~cmd:(selector "allowExternalChangeForFocusHeading:cursorLocation:") ~typ:(ullong @-> ullong @-> returning (bool)) (ULLong.of_int x) (ULLong.of_int cursorLocation) -let autoAdjustOrientation self = msg_send ~self ~cmd:(selector "autoAdjustOrientation") ~typ:(returning (void)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let canDismiss self = msg_send ~self ~cmd:(selector "canDismiss") ~typ:(returning (bool)) -let canHandleEvent x self = msg_send ~self ~cmd:(selector "canHandleEvent:") ~typ:(id @-> returning (bool)) x -let caretBlinks self = msg_send ~self ~cmd:(selector "caretBlinks") ~typ:(returning (bool)) -let caretVisible self = msg_send ~self ~cmd:(selector "caretVisible") ~typ:(returning (bool)) -let clearActivePerScreenIfNeeded self = msg_send ~self ~cmd:(selector "clearActivePerScreenIfNeeded") ~typ:(returning (void)) -let clearSnapshot self = msg_send ~self ~cmd:(selector "clearSnapshot") ~typ:(returning (void)) -let createPathEffectViewIfNecessary self = msg_send ~self ~cmd:(selector "createPathEffectViewIfNecessary") ~typ:(returning (id)) -let cursorLocation self = msg_send ~self ~cmd:(selector "cursorLocation") ~typ:(returning (ullong)) -let deactivate self = msg_send ~self ~cmd:(selector "deactivate") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultTextInputTraits self = msg_send ~self ~cmd:(selector "defaultTextInputTraits") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didFocusGuideWithHeading x self = msg_send ~self ~cmd:(selector "didFocusGuideWithHeading:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let disableInteraction self = msg_send ~self ~cmd:(selector "disableInteraction") ~typ:(returning (bool)) -let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning (void)) x -let geometryChangeDone x self = msg_send ~self ~cmd:(selector "geometryChangeDone:") ~typ:(bool @-> returning (void)) x -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let hasAutocorrectPrompt self = msg_send ~self ~cmd:(selector "hasAutocorrectPrompt") ~typ:(returning (bool)) -let hasImpendingCursorLocation self = msg_send ~self ~cmd:(selector "hasImpendingCursorLocation") ~typ:(returning (bool)) -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let impendingCursorLocation self = msg_send ~self ~cmd:(selector "impendingCursorLocation") ~typ:(returning (ullong)) -let implBoundsHeightChangeDone x ~suppressNotification self = msg_send ~self ~cmd:(selector "implBoundsHeightChangeDone:suppressNotification:") ~typ:(double @-> bool @-> returning (void)) x suppressNotification -let initLazily self = msg_send ~self ~cmd:(selector "initLazily") ~typ:(returning (id)) -let initWithDefaultSize self = msg_send ~self ~cmd:(selector "initWithDefaultSize") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithRequestedInteractionModel x self = msg_send ~self ~cmd:(selector "initWithRequestedInteractionModel:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning (llong)) -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning (bool)) -let isActivePerScreen self = msg_send ~self ~cmd:(selector "isActivePerScreen") ~typ:(returning (bool)) -let isAutomatic self = msg_send ~self ~cmd:(selector "isAutomatic") ~typ:(returning (bool)) -let isMinimized self = msg_send ~self ~cmd:(selector "isMinimized") ~typ:(returning (bool)) -let keyboardIdiom self = msg_send ~self ~cmd:(selector "keyboardIdiom") ~typ:(returning (llong)) -let keyboardMinMaximized x self = msg_send ~self ~cmd:(selector "keyboardMinMaximized:") ~typ:(bool @-> returning (void)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let manualKeyboardWasOrderedIn self = msg_send ~self ~cmd:(selector "manualKeyboardWasOrderedIn") ~typ:(returning (void)) -let manualKeyboardWasOrderedOut self = msg_send ~self ~cmd:(selector "manualKeyboardWasOrderedOut") ~typ:(returning (void)) -let manualKeyboardWillBeOrderedIn self = msg_send ~self ~cmd:(selector "manualKeyboardWillBeOrderedIn") ~typ:(returning (void)) -let manualKeyboardWillBeOrderedOut self = msg_send ~self ~cmd:(selector "manualKeyboardWillBeOrderedOut") ~typ:(returning (void)) -let maximize self = msg_send ~self ~cmd:(selector "maximize") ~typ:(returning (void)) -let minimize self = msg_send ~self ~cmd:(selector "minimize") ~typ:(returning (void)) -let pointInside x ~forEvent self = msg_send ~self ~cmd:(selector "pointInside:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (bool)) x forEvent -let pointInside' x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let prepareForGeometryChange self = msg_send ~self ~cmd:(selector "prepareForGeometryChange") ~typ:(returning (void)) -let prepareForImplBoundsHeightChange x ~suppressNotification self = msg_send ~self ~cmd:(selector "prepareForImplBoundsHeightChange:suppressNotification:") ~typ:(double @-> bool @-> returning (void)) x suppressNotification -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let remoteControlReceivedWithEvent x self = msg_send ~self ~cmd:(selector "remoteControlReceivedWithEvent:") ~typ:(id @-> returning (void)) x -let removeAutocorrectPrompt self = msg_send ~self ~cmd:(selector "removeAutocorrectPrompt") ~typ:(returning (void)) -let requestedInteractionModel self = msg_send ~self ~cmd:(selector "requestedInteractionModel") ~typ:(returning (ullong)) -let responseContextDidChange self = msg_send ~self ~cmd:(selector "responseContextDidChange") ~typ:(returning (void)) -let returnKeyEnabled self = msg_send ~self ~cmd:(selector "returnKeyEnabled") ~typ:(returning (bool)) -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setCaretBlinks x self = msg_send ~self ~cmd:(selector "setCaretBlinks:") ~typ:(bool @-> returning (void)) x -let setCaretVisible x self = msg_send ~self ~cmd:(selector "setCaretVisible:") ~typ:(bool @-> returning (void)) x -let setCorrectionLearningAllowed x self = msg_send ~self ~cmd:(selector "setCorrectionLearningAllowed:") ~typ:(bool @-> returning (void)) x -let setCursorLocation x self = msg_send ~self ~cmd:(selector "setCursorLocation:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDefaultTextInputTraits x self = msg_send ~self ~cmd:(selector "setDefaultTextInputTraits:") ~typ:(id @-> returning (void)) x -let setDisableInteraction x self = msg_send ~self ~cmd:(selector "setDisableInteraction:") ~typ:(bool @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHasImpendingCursorLocation x self = msg_send ~self ~cmd:(selector "setHasImpendingCursorLocation:") ~typ:(bool @-> returning (void)) x -let setImpendingCursorLocation x self = msg_send ~self ~cmd:(selector "setImpendingCursorLocation:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setKeyboardIdiom x self = msg_send ~self ~cmd:(selector "setKeyboardIdiom:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setMinimized x self = msg_send ~self ~cmd:(selector "setMinimized:") ~typ:(bool @-> returning (void)) x -let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning (void)) -let setOrientation x self = msg_send ~self ~cmd:(selector "setOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setRequestedInteractionModel x self = msg_send ~self ~cmd:(selector "setRequestedInteractionModel:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setReturnKeyEnabled x self = msg_send ~self ~cmd:(selector "setReturnKeyEnabled:") ~typ:(bool @-> returning (void)) x -let setShouldUpdateLayoutAutomatically x self = msg_send ~self ~cmd:(selector "setShouldUpdateLayoutAutomatically:") ~typ:(bool @-> returning (void)) x -let setShowsCandidatesInline x self = msg_send ~self ~cmd:(selector "setShowsCandidatesInline:") ~typ:(bool @-> returning (void)) x -let setTypingEnabled x self = msg_send ~self ~cmd:(selector "setTypingEnabled:") ~typ:(bool @-> returning (void)) x -let setUnfocusedFocusGuideOutsets x self = msg_send ~self ~cmd:(selector "setUnfocusedFocusGuideOutsets:") ~typ:(ptr void @-> returning (void)) x -let setUnfocusedFocusGuideOutsets' x ~fromView self = msg_send ~self ~cmd:(selector "setUnfocusedFocusGuideOutsets:fromView:") ~typ:(ptr void @-> id @-> returning (void)) x fromView -let setupKeyFocusGuides self = msg_send ~self ~cmd:(selector "setupKeyFocusGuides") ~typ:(returning (void)) -let shouldSaveMinimizationState self = msg_send ~self ~cmd:(selector "shouldSaveMinimizationState") ~typ:(returning (bool)) -let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning (bool)) x -let shouldUpdateLayoutAutomatically self = msg_send ~self ~cmd:(selector "shouldUpdateLayoutAutomatically") ~typ:(returning (bool)) -let showPredictionBar self = msg_send ~self ~cmd:(selector "showPredictionBar") ~typ:(returning (bool)) -let showsCandidatesInline self = msg_send ~self ~cmd:(selector "showsCandidatesInline") ~typ:(returning (bool)) -let syncMinimizedStateToHardwareKeyboardAttachedState self = msg_send ~self ~cmd:(selector "syncMinimizedStateToHardwareKeyboardAttachedState") ~typ:(returning (void)) -let takeSnapshot self = msg_send ~self ~cmd:(selector "takeSnapshot") ~typ:(returning (void)) -let targetWindow self = msg_send ~self ~cmd:(selector "targetWindow") ~typ:(returning (id)) -let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning (int)) -let textInputTraitsDidChange self = msg_send ~self ~cmd:(selector "textInputTraitsDidChange") ~typ:(returning (void)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let typingEnabled self = msg_send ~self ~cmd:(selector "typingEnabled") ~typ:(returning (bool)) -let updateFocusMarginsUpToView x self = msg_send ~self ~cmd:(selector "updateFocusMarginsUpToView:") ~typ:(id @-> returning (void)) x -let updateKeyFocusGuides self = msg_send ~self ~cmd:(selector "updateKeyFocusGuides") ~typ:(returning (void)) -let updateLayout self = msg_send ~self ~cmd:(selector "updateLayout") ~typ:(returning (void)) -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let acceptAutocorrection self = msg_send ~self ~cmd:(selector "acceptAutocorrection") ~typ:(returning void) +let activate self = msg_send ~self ~cmd:(selector "activate") ~typ:(returning void) +let activateIfNeeded self = msg_send ~self ~cmd:(selector "activateIfNeeded") ~typ:(returning void) +let allowExternalChangeForFocusHeading x ~cursorLocation self = msg_send ~self ~cmd:(selector "allowExternalChangeForFocusHeading:cursorLocation:") ~typ:(ullong @-> ullong @-> returning bool) (ULLong.of_int x) (ULLong.of_int cursorLocation) +let autoAdjustOrientation self = msg_send ~self ~cmd:(selector "autoAdjustOrientation") ~typ:(returning void) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let canDismiss self = msg_send ~self ~cmd:(selector "canDismiss") ~typ:(returning bool) +let canHandleEvent x self = msg_send ~self ~cmd:(selector "canHandleEvent:") ~typ:(id @-> returning bool) x +let caretBlinks self = msg_send ~self ~cmd:(selector "caretBlinks") ~typ:(returning bool) +let caretVisible self = msg_send ~self ~cmd:(selector "caretVisible") ~typ:(returning bool) +let clearActivePerScreenIfNeeded self = msg_send ~self ~cmd:(selector "clearActivePerScreenIfNeeded") ~typ:(returning void) +let clearSnapshot self = msg_send ~self ~cmd:(selector "clearSnapshot") ~typ:(returning void) +let createPathEffectViewIfNecessary self = msg_send ~self ~cmd:(selector "createPathEffectViewIfNecessary") ~typ:(returning id) +let cursorLocation self = msg_send ~self ~cmd:(selector "cursorLocation") ~typ:(returning ullong) +let deactivate self = msg_send ~self ~cmd:(selector "deactivate") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultTextInputTraits self = msg_send ~self ~cmd:(selector "defaultTextInputTraits") ~typ:(returning id) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didFocusGuideWithHeading x self = msg_send ~self ~cmd:(selector "didFocusGuideWithHeading:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let disableInteraction self = msg_send ~self ~cmd:(selector "disableInteraction") ~typ:(returning bool) +let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning void) x +let geometryChangeDone x self = msg_send ~self ~cmd:(selector "geometryChangeDone:") ~typ:(bool @-> returning void) x +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let hasAutocorrectPrompt self = msg_send ~self ~cmd:(selector "hasAutocorrectPrompt") ~typ:(returning bool) +let hasImpendingCursorLocation self = msg_send ~self ~cmd:(selector "hasImpendingCursorLocation") ~typ:(returning bool) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let impendingCursorLocation self = msg_send ~self ~cmd:(selector "impendingCursorLocation") ~typ:(returning ullong) +let implBoundsHeightChangeDone x ~suppressNotification self = msg_send ~self ~cmd:(selector "implBoundsHeightChangeDone:suppressNotification:") ~typ:(double @-> bool @-> returning void) x suppressNotification +let initLazily self = msg_send ~self ~cmd:(selector "initLazily") ~typ:(returning id) +let initWithDefaultSize self = msg_send ~self ~cmd:(selector "initWithDefaultSize") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithRequestedInteractionModel x self = msg_send ~self ~cmd:(selector "initWithRequestedInteractionModel:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning llong) +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning bool) +let isActivePerScreen self = msg_send ~self ~cmd:(selector "isActivePerScreen") ~typ:(returning bool) +let isAutomatic self = msg_send ~self ~cmd:(selector "isAutomatic") ~typ:(returning bool) +let isMinimized self = msg_send ~self ~cmd:(selector "isMinimized") ~typ:(returning bool) +let keyboardIdiom self = msg_send ~self ~cmd:(selector "keyboardIdiom") ~typ:(returning llong) +let keyboardMinMaximized x self = msg_send ~self ~cmd:(selector "keyboardMinMaximized:") ~typ:(bool @-> returning void) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let manualKeyboardWasOrderedIn self = msg_send ~self ~cmd:(selector "manualKeyboardWasOrderedIn") ~typ:(returning void) +let manualKeyboardWasOrderedOut self = msg_send ~self ~cmd:(selector "manualKeyboardWasOrderedOut") ~typ:(returning void) +let manualKeyboardWillBeOrderedIn self = msg_send ~self ~cmd:(selector "manualKeyboardWillBeOrderedIn") ~typ:(returning void) +let manualKeyboardWillBeOrderedOut self = msg_send ~self ~cmd:(selector "manualKeyboardWillBeOrderedOut") ~typ:(returning void) +let maximize self = msg_send ~self ~cmd:(selector "maximize") ~typ:(returning void) +let minimize self = msg_send ~self ~cmd:(selector "minimize") ~typ:(returning void) +let pointInside x ~forEvent self = msg_send ~self ~cmd:(selector "pointInside:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning bool) x forEvent +let pointInside' x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let prepareForGeometryChange self = msg_send ~self ~cmd:(selector "prepareForGeometryChange") ~typ:(returning void) +let prepareForImplBoundsHeightChange x ~suppressNotification self = msg_send ~self ~cmd:(selector "prepareForImplBoundsHeightChange:suppressNotification:") ~typ:(double @-> bool @-> returning void) x suppressNotification +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let remoteControlReceivedWithEvent x self = msg_send ~self ~cmd:(selector "remoteControlReceivedWithEvent:") ~typ:(id @-> returning void) x +let removeAutocorrectPrompt self = msg_send ~self ~cmd:(selector "removeAutocorrectPrompt") ~typ:(returning void) +let requestedInteractionModel self = msg_send ~self ~cmd:(selector "requestedInteractionModel") ~typ:(returning ullong) +let responseContextDidChange self = msg_send ~self ~cmd:(selector "responseContextDidChange") ~typ:(returning void) +let returnKeyEnabled self = msg_send ~self ~cmd:(selector "returnKeyEnabled") ~typ:(returning bool) +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setCaretBlinks x self = msg_send ~self ~cmd:(selector "setCaretBlinks:") ~typ:(bool @-> returning void) x +let setCaretVisible x self = msg_send ~self ~cmd:(selector "setCaretVisible:") ~typ:(bool @-> returning void) x +let setCorrectionLearningAllowed x self = msg_send ~self ~cmd:(selector "setCorrectionLearningAllowed:") ~typ:(bool @-> returning void) x +let setCursorLocation x self = msg_send ~self ~cmd:(selector "setCursorLocation:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDefaultTextInputTraits x self = msg_send ~self ~cmd:(selector "setDefaultTextInputTraits:") ~typ:(id @-> returning void) x +let setDisableInteraction x self = msg_send ~self ~cmd:(selector "setDisableInteraction:") ~typ:(bool @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHasImpendingCursorLocation x self = msg_send ~self ~cmd:(selector "setHasImpendingCursorLocation:") ~typ:(bool @-> returning void) x +let setImpendingCursorLocation x self = msg_send ~self ~cmd:(selector "setImpendingCursorLocation:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setKeyboardIdiom x self = msg_send ~self ~cmd:(selector "setKeyboardIdiom:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setMinimized x self = msg_send ~self ~cmd:(selector "setMinimized:") ~typ:(bool @-> returning void) x +let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning void) +let setOrientation x self = msg_send ~self ~cmd:(selector "setOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setRequestedInteractionModel x self = msg_send ~self ~cmd:(selector "setRequestedInteractionModel:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setReturnKeyEnabled x self = msg_send ~self ~cmd:(selector "setReturnKeyEnabled:") ~typ:(bool @-> returning void) x +let setShouldUpdateLayoutAutomatically x self = msg_send ~self ~cmd:(selector "setShouldUpdateLayoutAutomatically:") ~typ:(bool @-> returning void) x +let setShowsCandidatesInline x self = msg_send ~self ~cmd:(selector "setShowsCandidatesInline:") ~typ:(bool @-> returning void) x +let setTypingEnabled x self = msg_send ~self ~cmd:(selector "setTypingEnabled:") ~typ:(bool @-> returning void) x +let setUnfocusedFocusGuideOutsets x self = msg_send ~self ~cmd:(selector "setUnfocusedFocusGuideOutsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setUnfocusedFocusGuideOutsets' x ~fromView self = msg_send ~self ~cmd:(selector "setUnfocusedFocusGuideOutsets:fromView:") ~typ:(UIEdgeInsets.t @-> id @-> returning void) x fromView +let setupKeyFocusGuides self = msg_send ~self ~cmd:(selector "setupKeyFocusGuides") ~typ:(returning void) +let shouldSaveMinimizationState self = msg_send ~self ~cmd:(selector "shouldSaveMinimizationState") ~typ:(returning bool) +let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning bool) x +let shouldUpdateLayoutAutomatically self = msg_send ~self ~cmd:(selector "shouldUpdateLayoutAutomatically") ~typ:(returning bool) +let showPredictionBar self = msg_send ~self ~cmd:(selector "showPredictionBar") ~typ:(returning bool) +let showsCandidatesInline self = msg_send ~self ~cmd:(selector "showsCandidatesInline") ~typ:(returning bool) +let syncMinimizedStateToHardwareKeyboardAttachedState self = msg_send ~self ~cmd:(selector "syncMinimizedStateToHardwareKeyboardAttachedState") ~typ:(returning void) +let takeSnapshot self = msg_send ~self ~cmd:(selector "takeSnapshot") ~typ:(returning void) +let targetWindow self = msg_send ~self ~cmd:(selector "targetWindow") ~typ:(returning id) +let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning int) +let textInputTraitsDidChange self = msg_send ~self ~cmd:(selector "textInputTraitsDidChange") ~typ:(returning void) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let typingEnabled self = msg_send ~self ~cmd:(selector "typingEnabled") ~typ:(returning bool) +let unfocusedFocusGuideOutsets self = msg_send ~self ~cmd:(selector "unfocusedFocusGuideOutsets") ~typ:(returning UIEdgeInsets.t) +let updateFocusMarginsUpToView x self = msg_send ~self ~cmd:(selector "updateFocusMarginsUpToView:") ~typ:(id @-> returning void) x +let updateKeyFocusGuides self = msg_send ~self ~cmd:(selector "updateKeyFocusGuides") ~typ:(returning void) +let updateLayout self = msg_send ~self ~cmd:(selector "updateLayout") ~typ:(returning void) +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardAutocorrectionController.ml b/uikit/UIKeyboardAutocorrectionController.ml index e23cec4b..909efc1b 100644 --- a/uikit/UIKeyboardAutocorrectionController.ml +++ b/uikit/UIKeyboardAutocorrectionController.ml @@ -5,36 +5,40 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardAutocorrectionController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardautocorrectioncontroller?language=objc}UIKeyboardAutocorrectionController} *) -let addAutocorrectionObserver x self = msg_send ~self ~cmd:(selector "addAutocorrectionObserver:") ~typ:(id @-> returning (void)) x -let autocorrection self = msg_send ~self ~cmd:(selector "autocorrection") ~typ:(returning (id)) -let autocorrectionList self = msg_send ~self ~cmd:(selector "autocorrectionList") ~typ:(returning (id)) -let autocorrectionObservers self = msg_send ~self ~cmd:(selector "autocorrectionObservers") ~typ:(returning (id)) -let clearAutocorrection self = msg_send ~self ~cmd:(selector "clearAutocorrection") ~typ:(returning (void)) -let clearAutocorrectionAndNotifyObservers x self = msg_send ~self ~cmd:(selector "clearAutocorrectionAndNotifyObservers:") ~typ:(bool @-> returning (void)) x -let clearAutofillAndTextSuggestions self = msg_send ~self ~cmd:(selector "clearAutofillAndTextSuggestions") ~typ:(returning (void)) -let hasActiveObservers self = msg_send ~self ~cmd:(selector "hasActiveObservers") ~typ:(returning (bool)) -let hasAutocorrection self = msg_send ~self ~cmd:(selector "hasAutocorrection") ~typ:(returning (bool)) -let hasAutofillCandidates self = msg_send ~self ~cmd:(selector "hasAutofillCandidates") ~typ:(returning (bool)) -let hasContinuousPathConversions self = msg_send ~self ~cmd:(selector "hasContinuousPathConversions") ~typ:(returning (bool)) -let hasPendingAutocorrection self = msg_send ~self ~cmd:(selector "hasPendingAutocorrection") ~typ:(returning (bool)) -let hasProactiveCandidates self = msg_send ~self ~cmd:(selector "hasProactiveCandidates") ~typ:(returning (bool)) -let hasTextSuggestionCandidates self = msg_send ~self ~cmd:(selector "hasTextSuggestionCandidates") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let maximumNumberOfCandidates self = msg_send ~self ~cmd:(selector "maximumNumberOfCandidates") ~typ:(returning (ullong)) -let needsAutocorrection self = msg_send ~self ~cmd:(selector "needsAutocorrection") ~typ:(returning (bool)) -let removeAutocorrectionObserver x self = msg_send ~self ~cmd:(selector "removeAutocorrectionObserver:") ~typ:(id @-> returning (void)) x -let requestAutocorrectionWithExecutionContext x self = msg_send ~self ~cmd:(selector "requestAutocorrectionWithExecutionContext:") ~typ:(id @-> returning (void)) x -let requestedAutocorrection self = msg_send ~self ~cmd:(selector "requestedAutocorrection") ~typ:(returning (bool)) -let setAutocorrectionList x self = msg_send ~self ~cmd:(selector "setAutocorrectionList:") ~typ:(id @-> returning (void)) x -let setAutocorrectionObservers x self = msg_send ~self ~cmd:(selector "setAutocorrectionObservers:") ~typ:(id @-> returning (void)) x -let setHasPendingAutocorrection x self = msg_send ~self ~cmd:(selector "setHasPendingAutocorrection:") ~typ:(bool @-> returning (void)) x -let setMaximumNumberOfCandidates x self = msg_send ~self ~cmd:(selector "setMaximumNumberOfCandidates:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setNeedsAutocorrection self = msg_send ~self ~cmd:(selector "setNeedsAutocorrection") ~typ:(returning (void)) -let setNeedsAutocorrection' x self = msg_send ~self ~cmd:(selector "setNeedsAutocorrection:") ~typ:(bool @-> returning (void)) x -let setRequestedAutocorrection x self = msg_send ~self ~cmd:(selector "setRequestedAutocorrection:") ~typ:(bool @-> returning (void)) x -let setTextSuggestionList x self = msg_send ~self ~cmd:(selector "setTextSuggestionList:") ~typ:(id @-> returning (void)) x -let textSuggestionList self = msg_send ~self ~cmd:(selector "textSuggestionList") ~typ:(returning (id)) -let updateAfterShiftStateChange self = msg_send ~self ~cmd:(selector "updateAfterShiftStateChange") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIKeyboardAutocorrectionController" + +let addAutocorrectionObserver x self = msg_send ~self ~cmd:(selector "addAutocorrectionObserver:") ~typ:(id @-> returning void) x +let autocorrection self = msg_send ~self ~cmd:(selector "autocorrection") ~typ:(returning id) +let autocorrectionList self = msg_send ~self ~cmd:(selector "autocorrectionList") ~typ:(returning id) +let autocorrectionObservers self = msg_send ~self ~cmd:(selector "autocorrectionObservers") ~typ:(returning id) +let clearAutocorrection self = msg_send ~self ~cmd:(selector "clearAutocorrection") ~typ:(returning void) +let clearAutocorrectionAndNotifyObservers x self = msg_send ~self ~cmd:(selector "clearAutocorrectionAndNotifyObservers:") ~typ:(bool @-> returning void) x +let clearAutofillAndTextSuggestions self = msg_send ~self ~cmd:(selector "clearAutofillAndTextSuggestions") ~typ:(returning void) +let hasActiveObservers self = msg_send ~self ~cmd:(selector "hasActiveObservers") ~typ:(returning bool) +let hasAutocorrection self = msg_send ~self ~cmd:(selector "hasAutocorrection") ~typ:(returning bool) +let hasAutofillCandidates self = msg_send ~self ~cmd:(selector "hasAutofillCandidates") ~typ:(returning bool) +let hasContinuousPathConversions self = msg_send ~self ~cmd:(selector "hasContinuousPathConversions") ~typ:(returning bool) +let hasPendingAutocorrection self = msg_send ~self ~cmd:(selector "hasPendingAutocorrection") ~typ:(returning bool) +let hasProactiveCandidates self = msg_send ~self ~cmd:(selector "hasProactiveCandidates") ~typ:(returning bool) +let hasTextSuggestionCandidates self = msg_send ~self ~cmd:(selector "hasTextSuggestionCandidates") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let maximumNumberOfCandidates self = msg_send ~self ~cmd:(selector "maximumNumberOfCandidates") ~typ:(returning ullong) +let needsAutocorrection self = msg_send ~self ~cmd:(selector "needsAutocorrection") ~typ:(returning bool) +let removeAutocorrectionObserver x self = msg_send ~self ~cmd:(selector "removeAutocorrectionObserver:") ~typ:(id @-> returning void) x +let requestAutocorrectionWithExecutionContext x self = msg_send ~self ~cmd:(selector "requestAutocorrectionWithExecutionContext:") ~typ:(id @-> returning void) x +let requestedAutocorrection self = msg_send ~self ~cmd:(selector "requestedAutocorrection") ~typ:(returning bool) +let setAutocorrectionList x self = msg_send ~self ~cmd:(selector "setAutocorrectionList:") ~typ:(id @-> returning void) x +let setAutocorrectionObservers x self = msg_send ~self ~cmd:(selector "setAutocorrectionObservers:") ~typ:(id @-> returning void) x +let setHasPendingAutocorrection x self = msg_send ~self ~cmd:(selector "setHasPendingAutocorrection:") ~typ:(bool @-> returning void) x +let setMaximumNumberOfCandidates x self = msg_send ~self ~cmd:(selector "setMaximumNumberOfCandidates:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setNeedsAutocorrection self = msg_send ~self ~cmd:(selector "setNeedsAutocorrection") ~typ:(returning void) +let setNeedsAutocorrection' x self = msg_send ~self ~cmd:(selector "setNeedsAutocorrection:") ~typ:(bool @-> returning void) x +let setRequestedAutocorrection x self = msg_send ~self ~cmd:(selector "setRequestedAutocorrection:") ~typ:(bool @-> returning void) x +let setTextSuggestionList x self = msg_send ~self ~cmd:(selector "setTextSuggestionList:") ~typ:(id @-> returning void) x +let textSuggestionList self = msg_send ~self ~cmd:(selector "textSuggestionList") ~typ:(returning id) +let updateAfterShiftStateChange self = msg_send ~self ~cmd:(selector "updateAfterShiftStateChange") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIKeyboardAutomatic.ml b/uikit/UIKeyboardAutomatic.ml index 61dc4e0c..c1ea3c91 100644 --- a/uikit/UIKeyboardAutomatic.ml +++ b/uikit/UIKeyboardAutomatic.ml @@ -5,36 +5,35 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardAutomatic" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardautomatic?language=objc}UIKeyboardAutomatic} *) -module C = struct - let activeInstance self = msg_send ~self ~cmd:(selector "activeInstance") ~typ:(returning (id)) - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end +let self = get_class "UIKeyboardAutomatic" -let activate self = msg_send ~self ~cmd:(selector "activate") ~typ:(returning (void)) -let blinkAssertion self = msg_send ~self ~cmd:(selector "blinkAssertion") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didSuspend x self = msg_send ~self ~cmd:(selector "didSuspend:") ~typ:(id @-> returning (void)) x -let implBoundsHeightChangeDone x ~suppressNotification self = msg_send ~self ~cmd:(selector "implBoundsHeightChangeDone:suppressNotification:") ~typ:(double @-> bool @-> returning (void)) x suppressNotification -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning (bool)) -let isAutomatic self = msg_send ~self ~cmd:(selector "isAutomatic") ~typ:(returning (bool)) -let lastChooseSupplementalItemToInsertCallbackIdentifier self = msg_send ~self ~cmd:(selector "lastChooseSupplementalItemToInsertCallbackIdentifier") ~typ:(returning (ullong)) -let lastMatchedSupplementalCandidate self = msg_send ~self ~cmd:(selector "lastMatchedSupplementalCandidate") ~typ:(returning (id)) -let maximize self = msg_send ~self ~cmd:(selector "maximize") ~typ:(returning (void)) -let minimize self = msg_send ~self ~cmd:(selector "minimize") ~typ:(returning (void)) -let pendingSupplementalCandidateToInsert self = msg_send ~self ~cmd:(selector "pendingSupplementalCandidateToInsert") ~typ:(returning (id)) -let prepareForImplBoundsHeightChange x ~suppressNotification self = msg_send ~self ~cmd:(selector "prepareForImplBoundsHeightChange:suppressNotification:") ~typ:(double @-> bool @-> returning (void)) x suppressNotification -let receivedCandidatesInCurrentInputMode self = msg_send ~self ~cmd:(selector "receivedCandidatesInCurrentInputMode") ~typ:(returning (bool)) -let setBlinkAssertion x self = msg_send ~self ~cmd:(selector "setBlinkAssertion:") ~typ:(id @-> returning (void)) x -let setLastChooseSupplementalItemToInsertCallbackIdentifier x self = msg_send ~self ~cmd:(selector "setLastChooseSupplementalItemToInsertCallbackIdentifier:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setLastMatchedSupplementalCandidate x self = msg_send ~self ~cmd:(selector "setLastMatchedSupplementalCandidate:") ~typ:(id @-> returning (void)) x -let setPendingSupplementalCandidateToInsert x self = msg_send ~self ~cmd:(selector "setPendingSupplementalCandidateToInsert:") ~typ:(id @-> returning (void)) x -let setReceivedCandidatesInCurrentInputMode x self = msg_send ~self ~cmd:(selector "setReceivedCandidatesInCurrentInputMode:") ~typ:(bool @-> returning (void)) x -let setShowsCandidateBar x self = msg_send ~self ~cmd:(selector "setShowsCandidateBar:") ~typ:(bool @-> returning (void)) x -let setShowsCandidateInline x self = msg_send ~self ~cmd:(selector "setShowsCandidateInline:") ~typ:(bool @-> returning (void)) x -let showsCandidateBar self = msg_send ~self ~cmd:(selector "showsCandidateBar") ~typ:(returning (bool)) -let showsCandidateInline self = msg_send ~self ~cmd:(selector "showsCandidateInline") ~typ:(returning (bool)) -let willResume x self = msg_send ~self ~cmd:(selector "willResume:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let activate self = msg_send ~self ~cmd:(selector "activate") ~typ:(returning void) +let blinkAssertion self = msg_send ~self ~cmd:(selector "blinkAssertion") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didSuspend x self = msg_send ~self ~cmd:(selector "didSuspend:") ~typ:(id @-> returning void) x +let implBoundsHeightChangeDone x ~suppressNotification self = msg_send ~self ~cmd:(selector "implBoundsHeightChangeDone:suppressNotification:") ~typ:(double @-> bool @-> returning void) x suppressNotification +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning bool) +let isAutomatic self = msg_send ~self ~cmd:(selector "isAutomatic") ~typ:(returning bool) +let lastChooseSupplementalItemToInsertCallbackIdentifier self = msg_send ~self ~cmd:(selector "lastChooseSupplementalItemToInsertCallbackIdentifier") ~typ:(returning ullong) +let lastMatchedSupplementalCandidate self = msg_send ~self ~cmd:(selector "lastMatchedSupplementalCandidate") ~typ:(returning id) +let maximize self = msg_send ~self ~cmd:(selector "maximize") ~typ:(returning void) +let minimize self = msg_send ~self ~cmd:(selector "minimize") ~typ:(returning void) +let pendingSupplementalCandidateToInsert self = msg_send ~self ~cmd:(selector "pendingSupplementalCandidateToInsert") ~typ:(returning id) +let prepareForImplBoundsHeightChange x ~suppressNotification self = msg_send ~self ~cmd:(selector "prepareForImplBoundsHeightChange:suppressNotification:") ~typ:(double @-> bool @-> returning void) x suppressNotification +let receivedCandidatesInCurrentInputMode self = msg_send ~self ~cmd:(selector "receivedCandidatesInCurrentInputMode") ~typ:(returning bool) +let setBlinkAssertion x self = msg_send ~self ~cmd:(selector "setBlinkAssertion:") ~typ:(id @-> returning void) x +let setLastChooseSupplementalItemToInsertCallbackIdentifier x self = msg_send ~self ~cmd:(selector "setLastChooseSupplementalItemToInsertCallbackIdentifier:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setLastMatchedSupplementalCandidate x self = msg_send ~self ~cmd:(selector "setLastMatchedSupplementalCandidate:") ~typ:(id @-> returning void) x +let setPendingSupplementalCandidateToInsert x self = msg_send ~self ~cmd:(selector "setPendingSupplementalCandidateToInsert:") ~typ:(id @-> returning void) x +let setReceivedCandidatesInCurrentInputMode x self = msg_send ~self ~cmd:(selector "setReceivedCandidatesInCurrentInputMode:") ~typ:(bool @-> returning void) x +let setShowsCandidateBar x self = msg_send ~self ~cmd:(selector "setShowsCandidateBar:") ~typ:(bool @-> returning void) x +let setShowsCandidateInline x self = msg_send ~self ~cmd:(selector "setShowsCandidateInline:") ~typ:(bool @-> returning void) x +let showsCandidateBar self = msg_send ~self ~cmd:(selector "showsCandidateBar") ~typ:(returning bool) +let showsCandidateInline self = msg_send ~self ~cmd:(selector "showsCandidateInline") ~typ:(returning bool) +let willResume x self = msg_send ~self ~cmd:(selector "willResume:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardAutomaticClass.ml b/uikit/UIKeyboardAutomaticClass.ml new file mode 100644 index 00000000..06904a9e --- /dev/null +++ b/uikit/UIKeyboardAutomaticClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardautomatic?language=objc}UIKeyboardAutomatic} *) + +let activeInstance self = msg_send ~self ~cmd:(selector "activeInstance") ~typ:(returning id) +let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIKeyboardBIUImageGenerator.ml b/uikit/UIKeyboardBIUImageGenerator.ml index 410c11ca..ab47dbe1 100644 --- a/uikit/UIKeyboardBIUImageGenerator.ml +++ b/uikit/UIKeyboardBIUImageGenerator.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardBIUImageGenerator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardbiuimagegenerator?language=objc}UIKeyboardBIUImageGenerator} *) -let _BIUImageForBold x ~italic ~underline self = msg_send ~self ~cmd:(selector "BIUImageForBold:italic:underline:") ~typ:(bool @-> bool @-> bool @-> returning (id)) x italic underline -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let normalColor self = msg_send ~self ~cmd:(selector "normalColor") ~typ:(returning (id)) -let setNormalColor x self = msg_send ~self ~cmd:(selector "setNormalColor:") ~typ:(id @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKeyboardBIUImageGenerator" + +let _BIUImageForBold x ~italic ~underline self = msg_send ~self ~cmd:(selector "BIUImageForBold:italic:underline:") ~typ:(bool @-> bool @-> bool @-> returning id) x italic underline +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let normalColor self = msg_send ~self ~cmd:(selector "normalColor") ~typ:(returning id) +let setNormalColor x self = msg_send ~self ~cmd:(selector "setNormalColor:") ~typ:(id @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIKeyboardButton.ml b/uikit/UIKeyboardButton.ml index 63ce6ad9..9536fb4b 100644 --- a/uikit/UIKeyboardButton.ml +++ b/uikit/UIKeyboardButton.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardButton" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardbutton?language=objc}UIKeyboardButton} *) -let initWithKeyboardButtonStyle x self = msg_send ~self ~cmd:(selector "initWithKeyboardButtonStyle:") ~typ:(llong @-> returning (id)) x -let keyboardButtonStyle self = msg_send ~self ~cmd:(selector "keyboardButtonStyle") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIKeyboardButton" + +let initWithKeyboardButtonStyle x self = msg_send ~self ~cmd:(selector "initWithKeyboardButtonStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let keyboardButtonStyle self = msg_send ~self ~cmd:(selector "keyboardButtonStyle") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIKeyboardCache.ml b/uikit/UIKeyboardCache.ml deleted file mode 100644 index 4eb1b972..00000000 --- a/uikit/UIKeyboardCache.ml +++ /dev/null @@ -1,30 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIKeyboardCache" - -module C = struct - let enabled self = msg_send ~self ~cmd:(selector "enabled") ~typ:(returning (bool)) - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end - -let cachedCompositeImageForCacheKeys x ~fromLayout ~opacities self = msg_send ~self ~cmd:(selector "cachedCompositeImageForCacheKeys:fromLayout:opacities:") ~typ:(id @-> id @-> id @-> returning (id)) x fromLayout opacities -let cachedImageForKey x ~fromLayout self = msg_send ~self ~cmd:(selector "cachedImageForKey:fromLayout:") ~typ:(id @-> id @-> returning (id)) x fromLayout -let clearNonPersistentCache self = msg_send ~self ~cmd:(selector "clearNonPersistentCache") ~typ:(returning (void)) -let commitTransaction self = msg_send ~self ~cmd:(selector "commitTransaction") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let decrementExpectedRender x self = msg_send ~self ~cmd:(selector "decrementExpectedRender:") ~typ:(id @-> returning (void)) x -let displayImagesForView x ~fromLayout ~imageFlags self = msg_send ~self ~cmd:(selector "displayImagesForView:fromLayout:imageFlags:") ~typ:(id @-> id @-> id @-> returning (id)) x fromLayout imageFlags -let drawCachedImage x ~alpha ~inContext self = msg_send ~self ~cmd:(selector "drawCachedImage:alpha:inContext:") ~typ:(id @-> double @-> id @-> returning (void)) x alpha inContext -let idleAction self = msg_send ~self ~cmd:(selector "idleAction") ~typ:(returning (id)) -let incrementExpectedRender x self = msg_send ~self ~cmd:(selector "incrementExpectedRender:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let purge self = msg_send ~self ~cmd:(selector "purge") ~typ:(returning (void)) -let setIdleAction x self = msg_send ~self ~cmd:(selector "setIdleAction:") ~typ:(id @-> returning (void)) x -let uniqueLayoutsFromInputModes x self = msg_send ~self ~cmd:(selector "uniqueLayoutsFromInputModes:") ~typ:(id @-> returning (id)) x -let updateCacheForInputModes x self = msg_send ~self ~cmd:(selector "updateCacheForInputModes:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIKeyboardCandidateInlineFloatingView.ml b/uikit/UIKeyboardCandidateInlineFloatingView.ml deleted file mode 100644 index 5121999c..00000000 --- a/uikit/UIKeyboardCandidateInlineFloatingView.ml +++ /dev/null @@ -1,42 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIKeyboardCandidateInlineFloatingView" - -let adjustFrameForInlineText x ~inlineRect ~maxX self = msg_send ~self ~cmd:(selector "adjustFrameForInlineText:inlineRect:maxX:") ~typ:(id @-> CGRect.t @-> double @-> returning (void)) x inlineRect maxX -let adjustMode self = msg_send ~self ~cmd:(selector "adjustMode") ~typ:(returning (int)) -let adjustedFrameFromDesiredFrame x ~textHeight self = msg_send_stret ~self ~cmd:(selector "adjustedFrameFromDesiredFrame:textHeight:") ~typ:(CGRect.t @-> double @-> returning (CGRect.t)) ~return_type:CGRect.t x textHeight -let adjustedFrameFromDesiredFrame' x ~textWidth self = msg_send_stret ~self ~cmd:(selector "adjustedFrameFromDesiredFrame:textWidth:") ~typ:(CGRect.t @-> double @-> returning (CGRect.t)) ~return_type:CGRect.t x textWidth -let adjustedInlineRectFromInlineText x ~inlineRect self = msg_send_stret ~self ~cmd:(selector "adjustedInlineRectFromInlineText:inlineRect:") ~typ:(id @-> CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x inlineRect -let extendedStateAdditionalHeight self = msg_send ~self ~cmd:(selector "extendedStateAdditionalHeight") ~typ:(returning (double)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let inlineRect self = msg_send_stret ~self ~cmd:(selector "inlineRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let inlineRectIsVertical self = msg_send ~self ~cmd:(selector "inlineRectIsVertical") ~typ:(returning (bool)) -let inlineText self = msg_send ~self ~cmd:(selector "inlineText") ~typ:(returning (id)) -let isAcceptableFrame x ~afterScrollBy self = msg_send ~self ~cmd:(selector "isAcceptableFrame:afterScrollBy:") ~typ:(CGRect.t @-> double @-> returning (bool)) x afterScrollBy -let isReducedWidth self = msg_send ~self ~cmd:(selector "isReducedWidth") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let maxX self = msg_send ~self ~cmd:(selector "maxX") ~typ:(returning (double)) -let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let position self = msg_send ~self ~cmd:(selector "position") ~typ:(returning (int)) -let preferredSize self = msg_send_stret ~self ~cmd:(selector "preferredSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let previousCollapsedFrame self = msg_send_stret ~self ~cmd:(selector "previousCollapsedFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let setAdjustMode x self = msg_send ~self ~cmd:(selector "setAdjustMode:") ~typ:(int @-> returning (void)) x -let setCellPadding x self = msg_send ~self ~cmd:(selector "setCellPadding:") ~typ:(ptr void @-> returning (void)) x -let setExtendedStateAdditionalHeight x self = msg_send ~self ~cmd:(selector "setExtendedStateAdditionalHeight:") ~typ:(double @-> returning (void)) x -let setExtraInsets x self = msg_send ~self ~cmd:(selector "setExtraInsets:") ~typ:(ptr void @-> returning (void)) x -let setInlineRect x self = msg_send ~self ~cmd:(selector "setInlineRect:") ~typ:(CGRect.t @-> returning (void)) x -let setInlineRectIsVertical x self = msg_send ~self ~cmd:(selector "setInlineRectIsVertical:") ~typ:(bool @-> returning (void)) x -let setInlineText x self = msg_send ~self ~cmd:(selector "setInlineText:") ~typ:(id @-> returning (void)) x -let setInlineText' x ~inlineRect ~maxX ~layout self = msg_send ~self ~cmd:(selector "setInlineText:inlineRect:maxX:layout:") ~typ:(id @-> CGRect.t @-> double @-> bool @-> returning (void)) x inlineRect maxX layout -let setMaxX x self = msg_send ~self ~cmd:(selector "setMaxX:") ~typ:(double @-> returning (void)) x -let setPosition x self = msg_send ~self ~cmd:(selector "setPosition:") ~typ:(int @-> returning (void)) x -let setPreferredSize x self = msg_send ~self ~cmd:(selector "setPreferredSize:") ~typ:(CGSize.t @-> returning (void)) x -let setPreviousCollapsedFrame x self = msg_send ~self ~cmd:(selector "setPreviousCollapsedFrame:") ~typ:(CGRect.t @-> returning (void)) x -let shouldExtendUpwards self = msg_send ~self ~cmd:(selector "shouldExtendUpwards") ~typ:(returning (bool)) -let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIKeyboardCandidatePocketShadow.ml b/uikit/UIKeyboardCandidatePocketShadow.ml deleted file mode 100644 index 9c2f49b7..00000000 --- a/uikit/UIKeyboardCandidatePocketShadow.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIKeyboardCandidatePocketShadow" - -module C = struct - let leftShadowImage self = msg_send ~self ~cmd:(selector "leftShadowImage") ~typ:(returning (id)) - let widthWithShadow x self = msg_send ~self ~cmd:(selector "widthWithShadow:") ~typ:(bool @-> returning (double)) x -end - -let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning (void)) x -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let drawsShadow self = msg_send ~self ~cmd:(selector "drawsShadow") ~typ:(returning (bool)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let setDrawsShadow x self = msg_send ~self ~cmd:(selector "setDrawsShadow:") ~typ:(bool @-> returning (void)) x -let setShadowFadesToBottom x self = msg_send ~self ~cmd:(selector "setShadowFadesToBottom:") ~typ:(bool @-> returning (void)) x -let setShowsInDarkBackground x self = msg_send ~self ~cmd:(selector "setShowsInDarkBackground:") ~typ:(bool @-> returning (void)) x -let shadowFadesToBottom self = msg_send ~self ~cmd:(selector "shadowFadesToBottom") ~typ:(returning (bool)) -let showsInDarkBackground self = msg_send ~self ~cmd:(selector "showsInDarkBackground") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIKeyboardCandidatePocketShadowLayoutAttributes.ml b/uikit/UIKeyboardCandidatePocketShadowLayoutAttributes.ml deleted file mode 100644 index da1a9d50..00000000 --- a/uikit/UIKeyboardCandidatePocketShadowLayoutAttributes.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIKeyboardCandidatePocketShadowLayoutAttributes" - -let drawsShadow self = msg_send ~self ~cmd:(selector "drawsShadow") ~typ:(returning (bool)) -let setDrawsShadow x self = msg_send ~self ~cmd:(selector "setDrawsShadow:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIKeyboardCandidateViewImageRenderer.ml b/uikit/UIKeyboardCandidateViewImageRenderer.ml deleted file mode 100644 index a769493d..00000000 --- a/uikit/UIKeyboardCandidateViewImageRenderer.ml +++ /dev/null @@ -1,25 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIKeyboardCandidateViewImageRenderer" - -module C = struct - let sharedImageRenderer self = msg_send ~self ~cmd:(selector "sharedImageRenderer") ~typ:(returning (id)) -end - -let drawGradientImage x ~startPoint ~endPoint ~applyScale self = msg_send ~self ~cmd:(selector "drawGradientImage:startPoint:endPoint:applyScale:") ~typ:(CGRect.t @-> CGPoint.t @-> CGPoint.t @-> bool @-> returning (id)) x startPoint endPoint applyScale -let edgeMaskImageForRightSide x self = msg_send ~self ~cmd:(selector "edgeMaskImageForRightSide:") ~typ:(bool @-> returning (id)) x -let extensionMaskImage self = msg_send ~self ~cmd:(selector "extensionMaskImage") ~typ:(returning (id)) -let handwritingCellBackgroundImageForDarkKeyboard x ~highlighted self = msg_send ~self ~cmd:(selector "handwritingCellBackgroundImageForDarkKeyboard:highlighted:") ~typ:(bool @-> bool @-> returning (id)) x highlighted -let highlightedBarCellBackgroundImageWithColor x ~insets self = msg_send ~self ~cmd:(selector "highlightedBarCellBackgroundImageWithColor:insets:") ~typ:(id @-> ptr void @-> returning (id)) x insets -let imageCache self = msg_send ~self ~cmd:(selector "imageCache") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let pocketShadowImageForDarkKeyboard x ~fadesToBottom ~drawShadow ~topPadding ~bottomPadding ~height self = msg_send ~self ~cmd:(selector "pocketShadowImageForDarkKeyboard:fadesToBottom:drawShadow:topPadding:bottomPadding:height:") ~typ:(bool @-> bool @-> bool @-> double @-> double @-> double @-> returning (id)) x fadesToBottom drawShadow topPadding bottomPadding height -let setImageCache x self = msg_send ~self ~cmd:(selector "setImageCache:") ~typ:(id @-> returning (void)) x -let setViewForTraitCollection x self = msg_send ~self ~cmd:(selector "setViewForTraitCollection:") ~typ:(id @-> returning (void)) x -let viewForTraitCollection self = msg_send ~self ~cmd:(selector "viewForTraitCollection") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIKeyboardClass.ml b/uikit/UIKeyboardClass.ml new file mode 100644 index 00000000..e9ed9237 --- /dev/null +++ b/uikit/UIKeyboardClass.ml @@ -0,0 +1,44 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboard?language=objc}UIKeyboard} *) + +let activeKeyboard self = msg_send ~self ~cmd:(selector "activeKeyboard") ~typ:(returning id) +let activeKeyboardForScreen x self = msg_send ~self ~cmd:(selector "activeKeyboardForScreen:") ~typ:(id @-> returning id) x +let candidateDisplayIsExtended self = msg_send ~self ~cmd:(selector "candidateDisplayIsExtended") ~typ:(returning bool) +let clearActiveForScreen x self = msg_send ~self ~cmd:(selector "clearActiveForScreen:") ~typ:(id @-> returning void) x +let defaultFrameForInterfaceOrientation x self = msg_send ~self ~cmd:(selector "defaultFrameForInterfaceOrientation:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) +let defaultSize self = msg_send ~self ~cmd:(selector "defaultSize") ~typ:(returning CGSize.t) +let defaultSizeForInterfaceOrientation x self = msg_send ~self ~cmd:(selector "defaultSizeForInterfaceOrientation:") ~typ:(llong @-> returning CGSize.t) (LLong.of_int x) +let hasInputOrAssistantViewsOnScreen self = msg_send ~self ~cmd:(selector "hasInputOrAssistantViewsOnScreen") ~typ:(returning bool) +let homeGestureExclusionZones self = msg_send ~self ~cmd:(selector "homeGestureExclusionZones") ~typ:(returning id) +let initImplementationNow self = msg_send ~self ~cmd:(selector "initImplementationNow") ~typ:(returning void) +let isInHardwareKeyboardMode self = msg_send ~self ~cmd:(selector "isInHardwareKeyboardMode") ~typ:(returning bool) +let isOnScreen self = msg_send ~self ~cmd:(selector "isOnScreen") ~typ:(returning bool) +let isSpotlight self = msg_send ~self ~cmd:(selector "isSpotlight") ~typ:(returning bool) +let keyboardSizeForInterfaceOrientation x self = msg_send ~self ~cmd:(selector "keyboardSizeForInterfaceOrientation:") ~typ:(llong @-> returning CGSize.t) (LLong.of_int x) +let keyplanePadding self = msg_send ~self ~cmd:(selector "keyplanePadding") ~typ:(returning UIEdgeInsets.t) +let makeKeyboardActive x ~forScreen self = msg_send ~self ~cmd:(selector "makeKeyboardActive:forScreen:") ~typ:(id @-> id @-> returning void) x forScreen +let platformSupportsKeyboardServiceRole x self = msg_send ~self ~cmd:(selector "platformSupportsKeyboardServiceRole:") ~typ:(ullong @-> returning bool) (ULLong.of_int x) +let predictionViewHeightForCurrentInputMode self = msg_send ~self ~cmd:(selector "predictionViewHeightForCurrentInputMode") ~typ:(returning double) +let predictionViewPrewarmsPredictiveCandidates self = msg_send ~self ~cmd:(selector "predictionViewPrewarmsPredictiveCandidates") ~typ:(returning bool) +let removeAllDynamicDictionaries self = msg_send ~self ~cmd:(selector "removeAllDynamicDictionaries") ~typ:(returning void) +let respondsToProxGesture self = msg_send ~self ~cmd:(selector "respondsToProxGesture") ~typ:(returning bool) +let serviceRole self = msg_send ~self ~cmd:(selector "serviceRole") ~typ:(returning ullong) +let setPredictionViewPrewarmsPredictiveCandidates x self = msg_send ~self ~cmd:(selector "setPredictionViewPrewarmsPredictiveCandidates:") ~typ:(bool @-> returning void) x +let setServiceRole x self = msg_send ~self ~cmd:(selector "setServiceRole:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setSuppressionPolicyDelegate x self = msg_send ~self ~cmd:(selector "setSuppressionPolicyDelegate:") ~typ:(id @-> returning void) x +let shouldMinimizeForHardwareKeyboard self = msg_send ~self ~cmd:(selector "shouldMinimizeForHardwareKeyboard") ~typ:(returning bool) +let shouldSuppressSoftwareKeyboardForResponder x self = msg_send ~self ~cmd:(selector "shouldSuppressSoftwareKeyboardForResponder:") ~typ:(id @-> returning bool) x +let sizeForInterfaceOrientation x self = msg_send ~self ~cmd:(selector "sizeForInterfaceOrientation:") ~typ:(llong @-> returning CGSize.t) (LLong.of_int x) +let sizeForInterfaceOrientation' x ~ignoreInputView self = msg_send ~self ~cmd:(selector "sizeForInterfaceOrientation:ignoreInputView:") ~typ:(llong @-> bool @-> returning CGSize.t) (LLong.of_int x) ignoreInputView +let snapshotViewForPredictionViewTransition self = msg_send ~self ~cmd:(selector "snapshotViewForPredictionViewTransition") ~typ:(returning id) +let splitKeyboardEnabled self = msg_send ~self ~cmd:(selector "splitKeyboardEnabled") ~typ:(returning bool) +let suppressionPolicyDelegate self = msg_send ~self ~cmd:(selector "suppressionPolicyDelegate") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIKeyboardDictationMenu.ml b/uikit/UIKeyboardDictationMenu.ml index 81189e4a..78e1b71b 100644 --- a/uikit/UIKeyboardDictationMenu.ml +++ b/uikit/UIKeyboardDictationMenu.ml @@ -5,22 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardDictationMenu" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboarddictationmenu?language=objc}UIKeyboardDictationMenu} *) -module C = struct - let activeInstance self = msg_send ~self ~cmd:(selector "activeInstance") ~typ:(returning (id)) - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end +let self = get_class "UIKeyboardDictationMenu" -let centerPopUpOverKey self = msg_send ~self ~cmd:(selector "centerPopUpOverKey") ~typ:(returning (bool)) -let cleanupForFadeOrHide self = msg_send ~self ~cmd:(selector "cleanupForFadeOrHide") ~typ:(returning (void)) -let fade self = msg_send ~self ~cmd:(selector "fade") ~typ:(returning (void)) -let fadeWithDelay x self = msg_send ~self ~cmd:(selector "fadeWithDelay:") ~typ:(double @-> returning (void)) x -let hide self = msg_send ~self ~cmd:(selector "hide") ~typ:(returning (void)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let performShowAnimation self = msg_send ~self ~cmd:(selector "performShowAnimation") ~typ:(returning (void)) -let preferredSize self = msg_send_stret ~self ~cmd:(selector "preferredSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let usesDimmingView self = msg_send ~self ~cmd:(selector "usesDimmingView") ~typ:(returning (bool)) -let usesTable self = msg_send ~self ~cmd:(selector "usesTable") ~typ:(returning (bool)) -let willShow self = msg_send ~self ~cmd:(selector "willShow") ~typ:(returning (void)) \ No newline at end of file +let centerPopUpOverKey self = msg_send ~self ~cmd:(selector "centerPopUpOverKey") ~typ:(returning bool) +let cleanupForFadeOrHide self = msg_send ~self ~cmd:(selector "cleanupForFadeOrHide") ~typ:(returning void) +let fade self = msg_send ~self ~cmd:(selector "fade") ~typ:(returning void) +let fadeWithDelay x self = msg_send ~self ~cmd:(selector "fadeWithDelay:") ~typ:(double @-> returning void) x +let hide self = msg_send ~self ~cmd:(selector "hide") ~typ:(returning void) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let performShowAnimation self = msg_send ~self ~cmd:(selector "performShowAnimation") ~typ:(returning void) +let preferredSize self = msg_send ~self ~cmd:(selector "preferredSize") ~typ:(returning CGSize.t) +let usesDimmingView self = msg_send ~self ~cmd:(selector "usesDimmingView") ~typ:(returning bool) +let usesTable self = msg_send ~self ~cmd:(selector "usesTable") ~typ:(returning bool) +let willShow self = msg_send ~self ~cmd:(selector "willShow") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIKeyboardDictationMenuClass.ml b/uikit/UIKeyboardDictationMenuClass.ml new file mode 100644 index 00000000..ee97cfdd --- /dev/null +++ b/uikit/UIKeyboardDictationMenuClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboarddictationmenu?language=objc}UIKeyboardDictationMenu} *) + +let activeInstance self = msg_send ~self ~cmd:(selector "activeInstance") ~typ:(returning id) +let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIKeyboardDockItem.ml b/uikit/UIKeyboardDockItem.ml index 72b013f8..93ecaf8c 100644 --- a/uikit/UIKeyboardDockItem.ml +++ b/uikit/UIKeyboardDockItem.ml @@ -5,27 +5,31 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardDockItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboarddockitem?language=objc}UIKeyboardDockItem} *) -let active self = msg_send ~self ~cmd:(selector "active") ~typ:(returning (bool)) -let button self = msg_send ~self ~cmd:(selector "button") ~typ:(returning (id)) -let enabled self = msg_send ~self ~cmd:(selector "enabled") ~typ:(returning (bool)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let imageName self = msg_send ~self ~cmd:(selector "imageName") ~typ:(returning (id)) -let imageWithRenderConfig x self = msg_send ~self ~cmd:(selector "imageWithRenderConfig:") ~typ:(id @-> returning (id)) x -let initWithImageName x ~identifier self = msg_send ~self ~cmd:(selector "initWithImageName:identifier:") ~typ:(id @-> id @-> returning (id)) x identifier -let longPressGestureRecognizer self = msg_send ~self ~cmd:(selector "longPressGestureRecognizer") ~typ:(returning (id)) -let panGestureRecognizer self = msg_send ~self ~cmd:(selector "panGestureRecognizer") ~typ:(returning (id)) -let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning (void)) x -let setButton x self = msg_send ~self ~cmd:(selector "setButton:") ~typ:(id @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setImageName x self = msg_send ~self ~cmd:(selector "setImageName:") ~typ:(id @-> returning (void)) x -let setLongPressGestureRecognizer x self = msg_send ~self ~cmd:(selector "setLongPressGestureRecognizer:") ~typ:(id @-> returning (void)) x -let setPanGestureRecognizer x self = msg_send ~self ~cmd:(selector "setPanGestureRecognizer:") ~typ:(id @-> returning (void)) x -let setTouchDownPoint x self = msg_send ~self ~cmd:(selector "setTouchDownPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let touchDownPoint self = msg_send_stret ~self ~cmd:(selector "touchDownPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKeyboardDockItem" + +let active self = msg_send ~self ~cmd:(selector "active") ~typ:(returning bool) +let button self = msg_send ~self ~cmd:(selector "button") ~typ:(returning id) +let enabled self = msg_send ~self ~cmd:(selector "enabled") ~typ:(returning bool) +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let imageName self = msg_send ~self ~cmd:(selector "imageName") ~typ:(returning id) +let imageWithRenderConfig x self = msg_send ~self ~cmd:(selector "imageWithRenderConfig:") ~typ:(id @-> returning id) x +let initWithImageName x ~identifier self = msg_send ~self ~cmd:(selector "initWithImageName:identifier:") ~typ:(id @-> id @-> returning id) x identifier +let longPressGestureRecognizer self = msg_send ~self ~cmd:(selector "longPressGestureRecognizer") ~typ:(returning id) +let panGestureRecognizer self = msg_send ~self ~cmd:(selector "panGestureRecognizer") ~typ:(returning id) +let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning void) x +let setButton x self = msg_send ~self ~cmd:(selector "setButton:") ~typ:(id @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setImageName x self = msg_send ~self ~cmd:(selector "setImageName:") ~typ:(id @-> returning void) x +let setLongPressGestureRecognizer x self = msg_send ~self ~cmd:(selector "setLongPressGestureRecognizer:") ~typ:(id @-> returning void) x +let setPanGestureRecognizer x self = msg_send ~self ~cmd:(selector "setPanGestureRecognizer:") ~typ:(id @-> returning void) x +let setTouchDownPoint x self = msg_send ~self ~cmd:(selector "setTouchDownPoint:") ~typ:(CGPoint.t @-> returning void) x +let touchDownPoint self = msg_send ~self ~cmd:(selector "touchDownPoint") ~typ:(returning CGPoint.t) +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIKeyboardDockItemButton.ml b/uikit/UIKeyboardDockItemButton.ml index d8f16b2a..62d2afd1 100644 --- a/uikit/UIKeyboardDockItemButton.ml +++ b/uikit/UIKeyboardDockItemButton.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardDockItemButton" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboarddockitembutton?language=objc}UIKeyboardDockItemButton} *) -let imageRectForContentRect x self = msg_send_stret ~self ~cmd:(selector "imageRectForContentRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let rectWithSize x ~forContentRect ~withAlignmentRectInsets self = msg_send_stret ~self ~cmd:(selector "rectWithSize:forContentRect:withAlignmentRectInsets:") ~typ:(CGSize.t @-> CGRect.t @-> ptr void @-> returning (CGRect.t)) ~return_type:CGRect.t x forContentRect withAlignmentRectInsets -let setTapActionRegion x self = msg_send ~self ~cmd:(selector "setTapActionRegion:") ~typ:(CGRect.t @-> returning (void)) x -let tapActionRegion self = msg_send_stret ~self ~cmd:(selector "tapActionRegion") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let titleRectForContentRect x self = msg_send_stret ~self ~cmd:(selector "titleRectForContentRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x \ No newline at end of file +let self = get_class "UIKeyboardDockItemButton" + +let imageRectForContentRect x self = msg_send ~self ~cmd:(selector "imageRectForContentRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let rectWithSize x ~forContentRect ~withAlignmentRectInsets self = msg_send ~self ~cmd:(selector "rectWithSize:forContentRect:withAlignmentRectInsets:") ~typ:(CGSize.t @-> CGRect.t @-> UIEdgeInsets.t @-> returning CGRect.t) x forContentRect withAlignmentRectInsets +let setTapActionRegion x self = msg_send ~self ~cmd:(selector "setTapActionRegion:") ~typ:(CGRect.t @-> returning void) x +let tapActionRegion self = msg_send ~self ~cmd:(selector "tapActionRegion") ~typ:(returning CGRect.t) +let titleRectForContentRect x self = msg_send ~self ~cmd:(selector "titleRectForContentRect:") ~typ:(CGRect.t @-> returning CGRect.t) x \ No newline at end of file diff --git a/uikit/UIKeyboardDockView.ml b/uikit/UIKeyboardDockView.ml index 61fadd4b..588a6a30 100644 --- a/uikit/UIKeyboardDockView.ml +++ b/uikit/UIKeyboardDockView.ml @@ -5,22 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardDockView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboarddockview?language=objc}UIKeyboardDockView} *) -module C = struct - let dockViewHomeGestureExclusionZones self = msg_send ~self ~cmd:(selector "dockViewHomeGestureExclusionZones") ~typ:(returning (id)) -end +let self = get_class "UIKeyboardDockView" -let centerDockItem self = msg_send ~self ~cmd:(selector "centerDockItem") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let leftDockItem self = msg_send ~self ~cmd:(selector "leftDockItem") ~typ:(returning (id)) -let rightDockItem self = msg_send ~self ~cmd:(selector "rightDockItem") ~typ:(returning (id)) -let setCenterDockItem x self = msg_send ~self ~cmd:(selector "setCenterDockItem:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setLeftDockItem x self = msg_send ~self ~cmd:(selector "setLeftDockItem:") ~typ:(id @-> returning (void)) x -let setRightDockItem x self = msg_send ~self ~cmd:(selector "setRightDockItem:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let centerDockItem self = msg_send ~self ~cmd:(selector "centerDockItem") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let leftDockItem self = msg_send ~self ~cmd:(selector "leftDockItem") ~typ:(returning id) +let rightDockItem self = msg_send ~self ~cmd:(selector "rightDockItem") ~typ:(returning id) +let setCenterDockItem x self = msg_send ~self ~cmd:(selector "setCenterDockItem:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setLeftDockItem x self = msg_send ~self ~cmd:(selector "setLeftDockItem:") ~typ:(id @-> returning void) x +let setRightDockItem x self = msg_send ~self ~cmd:(selector "setRightDockItem:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardDockViewClass.ml b/uikit/UIKeyboardDockViewClass.ml new file mode 100644 index 00000000..1106c134 --- /dev/null +++ b/uikit/UIKeyboardDockViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboarddockview?language=objc}UIKeyboardDockView} *) + +let dockViewHomeGestureExclusionZones self = msg_send ~self ~cmd:(selector "dockViewHomeGestureExclusionZones") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIKeyboardExtensionInputMode.ml b/uikit/UIKeyboardExtensionInputMode.ml index 695f99c4..ec8abda2 100644 --- a/uikit/UIKeyboardExtensionInputMode.ml +++ b/uikit/UIKeyboardExtensionInputMode.ml @@ -5,25 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardExtensionInputMode" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardextensioninputmode?language=objc}UIKeyboardExtensionInputMode} *) -let containingBundle self = msg_send ~self ~cmd:(selector "containingBundle") ~typ:(returning (id)) -let containingBundleDisplayName self = msg_send ~self ~cmd:(selector "containingBundleDisplayName") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultLayoutIsASCIICapable self = msg_send ~self ~cmd:(selector "defaultLayoutIsASCIICapable") ~typ:(returning (bool)) -let displayName self = msg_send ~self ~cmd:(selector "displayName") ~typ:(returning (id)) -let extendedDisplayName self = msg_send ~self ~cmd:(selector "extendedDisplayName") ~typ:(returning (id)) -let extension self = msg_send ~self ~cmd:(selector "extension") ~typ:(returning (id)) -let hardwareLayout self = msg_send ~self ~cmd:(selector "hardwareLayout") ~typ:(returning (id)) -let identifierWithLayouts self = msg_send ~self ~cmd:(selector "identifierWithLayouts") ~typ:(returning (id)) -let initWithIdentifier x self = msg_send ~self ~cmd:(selector "initWithIdentifier:") ~typ:(id @-> returning (id)) x -let isAllowedForTraits x self = msg_send ~self ~cmd:(selector "isAllowedForTraits:") ~typ:(id @-> returning (bool)) x -let isDefaultRightToLeft self = msg_send ~self ~cmd:(selector "isDefaultRightToLeft") ~typ:(returning (bool)) -let isDesiredForTraits x self = msg_send ~self ~cmd:(selector "isDesiredForTraits:") ~typ:(id @-> returning (bool)) x -let isExtensionInputMode self = msg_send ~self ~cmd:(selector "isExtensionInputMode") ~typ:(returning (bool)) -let isStalledExtensionInputMode self = msg_send ~self ~cmd:(selector "isStalledExtensionInputMode") ~typ:(returning (bool)) -let normalizedIdentifierLevels self = msg_send ~self ~cmd:(selector "normalizedIdentifierLevels") ~typ:(returning (id)) -let setExtension x self = msg_send ~self ~cmd:(selector "setExtension:") ~typ:(id @-> returning (void)) x -let setPrimaryLanguage x self = msg_send ~self ~cmd:(selector "setPrimaryLanguage:") ~typ:(id @-> returning (void)) x -let showSWLayoutWithHWKeyboard self = msg_send ~self ~cmd:(selector "showSWLayoutWithHWKeyboard") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIKeyboardExtensionInputMode" + +let containingBundle self = msg_send ~self ~cmd:(selector "containingBundle") ~typ:(returning id) +let containingBundleDisplayName self = msg_send ~self ~cmd:(selector "containingBundleDisplayName") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultLayoutIsASCIICapable self = msg_send ~self ~cmd:(selector "defaultLayoutIsASCIICapable") ~typ:(returning bool) +let displayName self = msg_send ~self ~cmd:(selector "displayName") ~typ:(returning id) +let extendedDisplayName self = msg_send ~self ~cmd:(selector "extendedDisplayName") ~typ:(returning id) +let extension self = msg_send ~self ~cmd:(selector "extension") ~typ:(returning id) +let hardwareLayout self = msg_send ~self ~cmd:(selector "hardwareLayout") ~typ:(returning id) +let identifierWithLayouts self = msg_send ~self ~cmd:(selector "identifierWithLayouts") ~typ:(returning id) +let initWithIdentifier x self = msg_send ~self ~cmd:(selector "initWithIdentifier:") ~typ:(id @-> returning id) x +let isAllowedForTraits x self = msg_send ~self ~cmd:(selector "isAllowedForTraits:") ~typ:(id @-> returning bool) x +let isDefaultRightToLeft self = msg_send ~self ~cmd:(selector "isDefaultRightToLeft") ~typ:(returning bool) +let isDesiredForTraits x self = msg_send ~self ~cmd:(selector "isDesiredForTraits:") ~typ:(id @-> returning bool) x +let isExtensionInputMode self = msg_send ~self ~cmd:(selector "isExtensionInputMode") ~typ:(returning bool) +let isStalledExtensionInputMode self = msg_send ~self ~cmd:(selector "isStalledExtensionInputMode") ~typ:(returning bool) +let normalizedIdentifierLevels self = msg_send ~self ~cmd:(selector "normalizedIdentifierLevels") ~typ:(returning id) +let setExtension x self = msg_send ~self ~cmd:(selector "setExtension:") ~typ:(id @-> returning void) x +let setPrimaryLanguage x self = msg_send ~self ~cmd:(selector "setPrimaryLanguage:") ~typ:(id @-> returning void) x +let showSWLayoutWithHWKeyboard self = msg_send ~self ~cmd:(selector "showSWLayoutWithHWKeyboard") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIKeyboardFlipTransitionView.ml b/uikit/UIKeyboardFlipTransitionView.ml index 42abd880..48718b73 100644 --- a/uikit/UIKeyboardFlipTransitionView.ml +++ b/uikit/UIKeyboardFlipTransitionView.ml @@ -5,25 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardFlipTransitionView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardfliptransitionview?language=objc}UIKeyboardFlipTransitionView} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultKeyboardImage self = msg_send ~self ~cmd:(selector "defaultKeyboardImage") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isShowingFrontFace self = msg_send ~self ~cmd:(selector "isShowingFrontFace") ~typ:(returning (bool)) -let rebuildBackgroundTransition self = msg_send ~self ~cmd:(selector "rebuildBackgroundTransition") ~typ:(returning (void)) -let rebuildControlKeys x self = msg_send ~self ~cmd:(selector "rebuildControlKeys:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let rebuildControlSlicesForKeyName x self = msg_send ~self ~cmd:(selector "rebuildControlSlicesForKeyName:") ~typ:(id @-> returning (void)) x -let rebuildFromKeyplane x ~toKeyplane ~startToken ~endToken ~keyboardType ~orientation self = msg_send ~self ~cmd:(selector "rebuildFromKeyplane:toKeyplane:startToken:endToken:keyboardType:orientation:") ~typ:(id @-> id @-> id @-> id @-> llong @-> llong @-> returning (void)) x toKeyplane startToken endToken (LLong.of_int keyboardType) (LLong.of_int orientation) -let rebuildMoreIntlKeys self = msg_send ~self ~cmd:(selector "rebuildMoreIntlKeys") ~typ:(returning (void)) -let rebuildReturnSlices self = msg_send ~self ~cmd:(selector "rebuildReturnSlices") ~typ:(returning (void)) -let rebuildShiftSlices self = msg_send ~self ~cmd:(selector "rebuildShiftSlices") ~typ:(returning (void)) -let rebuildTransition self = msg_send ~self ~cmd:(selector "rebuildTransition") ~typ:(returning (void)) -let rebuildTransitionForSplitStyleChange x self = msg_send ~self ~cmd:(selector "rebuildTransitionForSplitStyleChange:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setShowingFrontFace x self = msg_send ~self ~cmd:(selector "setShowingFrontFace:") ~typ:(bool @-> returning (void)) x -let splitKeyboardImage self = msg_send ~self ~cmd:(selector "splitKeyboardImage") ~typ:(returning (id)) -let transitionIsVisible self = msg_send ~self ~cmd:(selector "transitionIsVisible") ~typ:(returning (bool)) -let updateMoreIntlKey x ~asStart ~withRect ~showIntl ~showDictKey self = msg_send ~self ~cmd:(selector "updateMoreIntlKey:asStart:withRect:showIntl:showDictKey:") ~typ:(id @-> bool @-> CGRect.t @-> bool @-> bool @-> returning (void)) x asStart withRect showIntl showDictKey -let updateTransition self = msg_send ~self ~cmd:(selector "updateTransition") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIKeyboardFlipTransitionView" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultKeyboardImage self = msg_send ~self ~cmd:(selector "defaultKeyboardImage") ~typ:(returning (ptr CGImage.t)) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isShowingFrontFace self = msg_send ~self ~cmd:(selector "isShowingFrontFace") ~typ:(returning bool) +let rebuildBackgroundTransition self = msg_send ~self ~cmd:(selector "rebuildBackgroundTransition") ~typ:(returning void) +let rebuildControlKeys x self = msg_send ~self ~cmd:(selector "rebuildControlKeys:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let rebuildControlSlicesForKeyName x self = msg_send ~self ~cmd:(selector "rebuildControlSlicesForKeyName:") ~typ:(id @-> returning void) x +let rebuildFromKeyplane x ~toKeyplane ~startToken ~endToken ~keyboardType ~orientation self = msg_send ~self ~cmd:(selector "rebuildFromKeyplane:toKeyplane:startToken:endToken:keyboardType:orientation:") ~typ:(id @-> id @-> id @-> id @-> llong @-> llong @-> returning void) x toKeyplane startToken endToken (LLong.of_int keyboardType) (LLong.of_int orientation) +let rebuildMoreIntlKeys self = msg_send ~self ~cmd:(selector "rebuildMoreIntlKeys") ~typ:(returning void) +let rebuildReturnSlices self = msg_send ~self ~cmd:(selector "rebuildReturnSlices") ~typ:(returning void) +let rebuildShiftSlices self = msg_send ~self ~cmd:(selector "rebuildShiftSlices") ~typ:(returning void) +let rebuildTransition self = msg_send ~self ~cmd:(selector "rebuildTransition") ~typ:(returning void) +let rebuildTransitionForSplitStyleChange x self = msg_send ~self ~cmd:(selector "rebuildTransitionForSplitStyleChange:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setShowingFrontFace x self = msg_send ~self ~cmd:(selector "setShowingFrontFace:") ~typ:(bool @-> returning void) x +let splitKeyboardImage self = msg_send ~self ~cmd:(selector "splitKeyboardImage") ~typ:(returning (ptr CGImage.t)) +let transitionIsVisible self = msg_send ~self ~cmd:(selector "transitionIsVisible") ~typ:(returning bool) +let updateMoreIntlKey x ~asStart ~withRect ~showIntl ~showDictKey self = msg_send ~self ~cmd:(selector "updateMoreIntlKey:asStart:withRect:showIntl:showDictKey:") ~typ:(id @-> bool @-> CGRect.t @-> bool @-> bool @-> returning void) x asStart withRect showIntl showDictKey +let updateTransition self = msg_send ~self ~cmd:(selector "updateTransition") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIKeyboardFloatingPinchGestureRecognizer.ml b/uikit/UIKeyboardFloatingPinchGestureRecognizer.ml index 9c67ea27..4deeb759 100644 --- a/uikit/UIKeyboardFloatingPinchGestureRecognizer.ml +++ b/uikit/UIKeyboardFloatingPinchGestureRecognizer.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardFloatingPinchGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardfloatingpinchgesturerecognizer?language=objc}UIKeyboardFloatingPinchGestureRecognizer} *) -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let self = get_class "UIKeyboardFloatingPinchGestureRecognizer" + +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UIKeyboardFloatingTransitionController.ml b/uikit/UIKeyboardFloatingTransitionController.ml deleted file mode 100644 index 79441672..00000000 --- a/uikit/UIKeyboardFloatingTransitionController.ml +++ /dev/null @@ -1,83 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIKeyboardFloatingTransitionController" - -module C = struct - let dockingRegion self = msg_send_stret ~self ~cmd:(selector "dockingRegion") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t - let isPointWithinDockingRegion x self = msg_send ~self ~cmd:(selector "isPointWithinDockingRegion:") ~typ:(CGPoint.t @-> returning (bool)) x - let magneticEdgeMargin self = msg_send ~self ~cmd:(selector "magneticEdgeMargin") ~typ:(returning (double)) - let snapshotOfKeyplaneView x self = msg_send ~self ~cmd:(selector "snapshotOfKeyplaneView:") ~typ:(id @-> returning (id)) x -end - -let addGestureRecognizersToView x self = msg_send ~self ~cmd:(selector "addGestureRecognizersToView:") ~typ:(id @-> returning (void)) x -let animationBehavior self = msg_send ~self ~cmd:(selector "animationBehavior") ~typ:(returning (id)) -let beginPanGesture x self = msg_send ~self ~cmd:(selector "beginPanGesture:") ~typ:(id @-> returning (void)) x -let beginPinchGesture x self = msg_send ~self ~cmd:(selector "beginPinchGesture:") ~typ:(id @-> returning (void)) x -let beginTransitionAtPoint x ~withScale self = msg_send ~self ~cmd:(selector "beginTransitionAtPoint:withScale:") ~typ:(CGPoint.t @-> double @-> returning (void)) x withScale -let beginTransitionFromPanGestureRecognizer x self = msg_send ~self ~cmd:(selector "beginTransitionFromPanGestureRecognizer:") ~typ:(id @-> returning (void)) x -let captureStateForStart x self = msg_send ~self ~cmd:(selector "captureStateForStart:") ~typ:(bool @-> returning (void)) x -let commonVisibleKeys self = msg_send ~self ~cmd:(selector "commonVisibleKeys") ~typ:(returning (id)) -let constrainAccessoryViewToBottom self = msg_send ~self ~cmd:(selector "constrainAccessoryViewToBottom") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let endPanGesture x self = msg_send ~self ~cmd:(selector "endPanGesture:") ~typ:(id @-> returning (void)) x -let endPinchGesture x self = msg_send ~self ~cmd:(selector "endPinchGesture:") ~typ:(id @-> returning (void)) x -let endState self = msg_send ~self ~cmd:(selector "endState") ~typ:(returning (id)) -let endTransitionAtPoint x ~withScale self = msg_send ~self ~cmd:(selector "endTransitionAtPoint:withScale:") ~typ:(CGPoint.t @-> double @-> returning (void)) x withScale -let expandedForDocking self = msg_send ~self ~cmd:(selector "expandedForDocking") ~typ:(returning (bool)) -let finalizeTransition self = msg_send ~self ~cmd:(selector "finalizeTransition") ~typ:(returning (void)) -let gestureBeginTime self = msg_send ~self ~cmd:(selector "gestureBeginTime") ~typ:(returning (double)) -let gestureRecognizer x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRecognizeSimultaneouslyWithGestureRecognizer -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let handlePanGestureRecognizerAction x self = msg_send ~self ~cmd:(selector "handlePanGestureRecognizerAction:") ~typ:(id @-> returning (void)) x -let handlePinchGestureRecognizerAction x self = msg_send ~self ~cmd:(selector "handlePinchGestureRecognizerAction:") ~typ:(id @-> returning (void)) x -let initializeContextAtPoint x self = msg_send ~self ~cmd:(selector "initializeContextAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let inputViewSnapshot x ~withPlatterInsets self = msg_send ~self ~cmd:(selector "inputViewSnapshot:withPlatterInsets:") ~typ:(ptr (id) @-> ptr void @-> returning (void)) x withPlatterInsets -let inputWindowController self = msg_send ~self ~cmd:(selector "inputWindowController") ~typ:(returning (id)) -let isTransitioning self = msg_send ~self ~cmd:(selector "isTransitioning") ~typ:(returning (bool)) -let lastGestureCenter self = msg_send_stret ~self ~cmd:(selector "lastGestureCenter") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let panGestureRecognizer self = msg_send ~self ~cmd:(selector "panGestureRecognizer") ~typ:(returning (id)) -let pillView self = msg_send ~self ~cmd:(selector "pillView") ~typ:(returning (id)) -let pinchGestureRecognizer self = msg_send ~self ~cmd:(selector "pinchGestureRecognizer") ~typ:(returning (id)) -let platterCornerRadiusView self = msg_send ~self ~cmd:(selector "platterCornerRadiusView") ~typ:(returning (id)) -let platterPopoverBackgroundView self = msg_send ~self ~cmd:(selector "platterPopoverBackgroundView") ~typ:(returning (id)) -let platterView self = msg_send ~self ~cmd:(selector "platterView") ~typ:(returning (id)) -let platterVisualEffectView self = msg_send ~self ~cmd:(selector "platterVisualEffectView") ~typ:(returning (id)) -let progress self = msg_send ~self ~cmd:(selector "progress") ~typ:(returning (double)) -let removeGestureRecognizers self = msg_send ~self ~cmd:(selector "removeGestureRecognizers") ~typ:(returning (void)) -let restoreAccessoryViewConstraints self = msg_send ~self ~cmd:(selector "restoreAccessoryViewConstraints") ~typ:(returning (void)) -let setAnimationBehavior x self = msg_send ~self ~cmd:(selector "setAnimationBehavior:") ~typ:(id @-> returning (void)) x -let setCommonVisibleKeys x self = msg_send ~self ~cmd:(selector "setCommonVisibleKeys:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setEndState x self = msg_send ~self ~cmd:(selector "setEndState:") ~typ:(id @-> returning (void)) x -let setExpandedForDocking x self = msg_send ~self ~cmd:(selector "setExpandedForDocking:") ~typ:(bool @-> returning (void)) x -let setGestureBeginTime x self = msg_send ~self ~cmd:(selector "setGestureBeginTime:") ~typ:(double @-> returning (void)) x -let setInputWindowController x self = msg_send ~self ~cmd:(selector "setInputWindowController:") ~typ:(id @-> returning (void)) x -let setIsTransitioning x self = msg_send ~self ~cmd:(selector "setIsTransitioning:") ~typ:(bool @-> returning (void)) x -let setLastGestureCenter x self = msg_send ~self ~cmd:(selector "setLastGestureCenter:") ~typ:(CGPoint.t @-> returning (void)) x -let setPanGestureRecognizer x self = msg_send ~self ~cmd:(selector "setPanGestureRecognizer:") ~typ:(id @-> returning (void)) x -let setPillView x self = msg_send ~self ~cmd:(selector "setPillView:") ~typ:(id @-> returning (void)) x -let setPinchGestureRecognizer x self = msg_send ~self ~cmd:(selector "setPinchGestureRecognizer:") ~typ:(id @-> returning (void)) x -let setPlatterCornerRadiusView x self = msg_send ~self ~cmd:(selector "setPlatterCornerRadiusView:") ~typ:(id @-> returning (void)) x -let setPlatterPopoverBackgroundView x self = msg_send ~self ~cmd:(selector "setPlatterPopoverBackgroundView:") ~typ:(id @-> returning (void)) x -let setPlatterView x self = msg_send ~self ~cmd:(selector "setPlatterView:") ~typ:(id @-> returning (void)) x -let setPlatterVisualEffectView x self = msg_send ~self ~cmd:(selector "setPlatterVisualEffectView:") ~typ:(id @-> returning (void)) x -let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(double @-> returning (void)) x -let setStartState x self = msg_send ~self ~cmd:(selector "setStartState:") ~typ:(id @-> returning (void)) x -let setStartedFromFloating x self = msg_send ~self ~cmd:(selector "setStartedFromFloating:") ~typ:(bool @-> returning (void)) x -let setWithinDockingRegion x self = msg_send ~self ~cmd:(selector "setWithinDockingRegion:") ~typ:(bool @-> returning (void)) x -let startState self = msg_send ~self ~cmd:(selector "startState") ~typ:(returning (id)) -let startedFromFloating self = msg_send ~self ~cmd:(selector "startedFromFloating") ~typ:(returning (bool)) -let updateAnimationAtScale x self = msg_send ~self ~cmd:(selector "updateAnimationAtScale:") ~typ:(double @-> returning (void)) x -let updateHysteresisForCurrentFloatingState self = msg_send ~self ~cmd:(selector "updateHysteresisForCurrentFloatingState") ~typ:(returning (void)) -let updateLayoutGuideForTransitionStart x self = msg_send ~self ~cmd:(selector "updateLayoutGuideForTransitionStart:") ~typ:(bool @-> returning (void)) x -let updateLayoutGuideFromFrame x self = msg_send ~self ~cmd:(selector "updateLayoutGuideFromFrame:") ~typ:(CGRect.t @-> returning (void)) x -let updatePanGesture x self = msg_send ~self ~cmd:(selector "updatePanGesture:") ~typ:(id @-> returning (void)) x -let updatePinchGesture x self = msg_send ~self ~cmd:(selector "updatePinchGesture:") ~typ:(id @-> returning (void)) x -let updateTransitionAtPoint x ~withScale ~interactive self = msg_send ~self ~cmd:(selector "updateTransitionAtPoint:withScale:interactive:") ~typ:(CGPoint.t @-> double @-> bool @-> returning (void)) x withScale interactive -let withinDockingRegion self = msg_send ~self ~cmd:(selector "withinDockingRegion") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIKeyboardFloatingTransitionState.ml b/uikit/UIKeyboardFloatingTransitionState.ml deleted file mode 100644 index 49aa8cae..00000000 --- a/uikit/UIKeyboardFloatingTransitionState.ml +++ /dev/null @@ -1,27 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIKeyboardFloatingTransitionState" - -let borderColor self = msg_send ~self ~cmd:(selector "borderColor") ~typ:(returning (id)) -let borderWidth self = msg_send ~self ~cmd:(selector "borderWidth") ~typ:(returning (double)) -let cornerRadius self = msg_send ~self ~cmd:(selector "cornerRadius") ~typ:(returning (double)) -let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning (id)) -let inputViewFrame self = msg_send_stret ~self ~cmd:(selector "inputViewFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let platterViewFrame self = msg_send_stret ~self ~cmd:(selector "platterViewFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let scale self = msg_send_stret ~self ~cmd:(selector "scale") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let setBorderColor x self = msg_send ~self ~cmd:(selector "setBorderColor:") ~typ:(id @-> returning (void)) x -let setBorderWidth x self = msg_send ~self ~cmd:(selector "setBorderWidth:") ~typ:(double @-> returning (void)) x -let setCornerRadius x self = msg_send ~self ~cmd:(selector "setCornerRadius:") ~typ:(double @-> returning (void)) x -let setFinalInputViewTransform x self = msg_send ~self ~cmd:(selector "setFinalInputViewTransform:") ~typ:(ptr void @-> returning (void)) x -let setInitialInputViewTransform x self = msg_send ~self ~cmd:(selector "setInitialInputViewTransform:") ~typ:(ptr void @-> returning (void)) x -let setInputView x self = msg_send ~self ~cmd:(selector "setInputView:") ~typ:(id @-> returning (void)) x -let setInputViewFrame x self = msg_send ~self ~cmd:(selector "setInputViewFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setPlatterInsets x self = msg_send ~self ~cmd:(selector "setPlatterInsets:") ~typ:(ptr void @-> returning (void)) x -let setPlatterViewFrame x self = msg_send ~self ~cmd:(selector "setPlatterViewFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setScale x self = msg_send ~self ~cmd:(selector "setScale:") ~typ:(CGPoint.t @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIKeyboardGlobeKeyIntroductionView.ml b/uikit/UIKeyboardGlobeKeyIntroductionView.ml index 937f04fe..c86ebe12 100644 --- a/uikit/UIKeyboardGlobeKeyIntroductionView.ml +++ b/uikit/UIKeyboardGlobeKeyIntroductionView.ml @@ -5,22 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardGlobeKeyIntroductionView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardglobekeyintroductionview?language=objc}UIKeyboardGlobeKeyIntroductionView} *) -let backdropStyleForRenderConfig x self = msg_send ~self ~cmd:(selector "backdropStyleForRenderConfig:") ~typ:(id @-> returning (llong)) x -let backdropView self = msg_send ~self ~cmd:(selector "backdropView") ~typ:(returning (id)) +let self = get_class "UIKeyboardGlobeKeyIntroductionView" + +let backdropStyleForRenderConfig x self = msg_send ~self ~cmd:(selector "backdropStyleForRenderConfig:") ~typ:(id @-> returning llong) x +let backdropView self = msg_send ~self ~cmd:(selector "backdropView") ~typ:(returning id) let completionBlock self = msg_send ~self ~cmd:(selector "completionBlock") ~typ:(returning (ptr void)) -let continueButton self = msg_send ~self ~cmd:(selector "continueButton") ~typ:(returning (id)) -let continueButtonTapped self = msg_send ~self ~cmd:(selector "continueButtonTapped") ~typ:(returning (void)) -let descriptionLabel self = msg_send ~self ~cmd:(selector "descriptionLabel") ~typ:(returning (id)) -let initWithFrame x ~completion self = msg_send ~self ~cmd:(selector "initWithFrame:completion:") ~typ:(CGRect.t @-> ptr void @-> returning (id)) x completion -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setBackdropView x self = msg_send ~self ~cmd:(selector "setBackdropView:") ~typ:(id @-> returning (void)) x -let setCompletionBlock x self = msg_send ~self ~cmd:(selector "setCompletionBlock:") ~typ:(ptr void @-> returning (void)) x -let setContinueButton x self = msg_send ~self ~cmd:(selector "setContinueButton:") ~typ:(id @-> returning (void)) x -let setDescriptionLabel x self = msg_send ~self ~cmd:(selector "setDescriptionLabel:") ~typ:(id @-> returning (void)) x -let setStartDate x self = msg_send ~self ~cmd:(selector "setStartDate:") ~typ:(id @-> returning (void)) x -let setTitleLabel x self = msg_send ~self ~cmd:(selector "setTitleLabel:") ~typ:(id @-> returning (void)) x -let startDate self = msg_send ~self ~cmd:(selector "startDate") ~typ:(returning (id)) -let titleLabel self = msg_send ~self ~cmd:(selector "titleLabel") ~typ:(returning (id)) \ No newline at end of file +let continueButton self = msg_send ~self ~cmd:(selector "continueButton") ~typ:(returning id) +let continueButtonTapped self = msg_send ~self ~cmd:(selector "continueButtonTapped") ~typ:(returning void) +let descriptionLabel self = msg_send ~self ~cmd:(selector "descriptionLabel") ~typ:(returning id) +let initWithFrame x ~completion self = msg_send ~self ~cmd:(selector "initWithFrame:completion:") ~typ:(CGRect.t @-> (ptr void) @-> returning id) x completion +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setBackdropView x self = msg_send ~self ~cmd:(selector "setBackdropView:") ~typ:(id @-> returning void) x +let setCompletionBlock x self = msg_send ~self ~cmd:(selector "setCompletionBlock:") ~typ:((ptr void) @-> returning void) x +let setContinueButton x self = msg_send ~self ~cmd:(selector "setContinueButton:") ~typ:(id @-> returning void) x +let setDescriptionLabel x self = msg_send ~self ~cmd:(selector "setDescriptionLabel:") ~typ:(id @-> returning void) x +let setStartDate x self = msg_send ~self ~cmd:(selector "setStartDate:") ~typ:(id @-> returning void) x +let setTitleLabel x self = msg_send ~self ~cmd:(selector "setTitleLabel:") ~typ:(id @-> returning void) x +let startDate self = msg_send ~self ~cmd:(selector "startDate") ~typ:(returning id) +let titleLabel self = msg_send ~self ~cmd:(selector "titleLabel") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIKeyboardImpl.ml b/uikit/UIKeyboardImpl.ml deleted file mode 100644 index 0f9bcbae..00000000 --- a/uikit/UIKeyboardImpl.ml +++ /dev/null @@ -1,889 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIKeyboardImpl" - -module C = struct - let activeInstance self = msg_send ~self ~cmd:(selector "activeInstance") ~typ:(returning (id)) - let additionalInstanceHeight self = msg_send ~self ~cmd:(selector "additionalInstanceHeight") ~typ:(returning (double)) - let additionalInstanceHeightForInterfaceOrientation x self = msg_send ~self ~cmd:(selector "additionalInstanceHeightForInterfaceOrientation:") ~typ:(llong @-> returning (double)) (LLong.of_int x) - let additionalInstanceHeightForInterfaceOrientation' x ~hasInputView self = msg_send ~self ~cmd:(selector "additionalInstanceHeightForInterfaceOrientation:hasInputView:") ~typ:(llong @-> bool @-> returning (double)) (LLong.of_int x) hasInputView - let applicationDidBecomeActive x self = msg_send ~self ~cmd:(selector "applicationDidBecomeActive:") ~typ:(id @-> returning (void)) x - let applicationDidEnterBackground x self = msg_send ~self ~cmd:(selector "applicationDidEnterBackground:") ~typ:(id @-> returning (void)) x - let applicationDidReceiveMemoryWarning x self = msg_send ~self ~cmd:(selector "applicationDidReceiveMemoryWarning:") ~typ:(id @-> returning (void)) x - let applicationWillEnterForeground x self = msg_send ~self ~cmd:(selector "applicationWillEnterForeground:") ~typ:(id @-> returning (void)) x - let applicationWillResignActive x self = msg_send ~self ~cmd:(selector "applicationWillResignActive:") ~typ:(id @-> returning (void)) x - let applicationWillSuspend x self = msg_send ~self ~cmd:(selector "applicationWillSuspend:") ~typ:(id @-> returning (void)) x - let defaultSizeForInterfaceOrientation x self = msg_send_stret ~self ~cmd:(selector "defaultSizeForInterfaceOrientation:") ~typ:(llong @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) - let defaultUndockedOffsetForFloating x self = msg_send_stret ~self ~cmd:(selector "defaultUndockedOffsetForFloating:") ~typ:(bool @-> returning (CGPoint.t)) ~return_type:CGPoint.t x - let floatingHeight self = msg_send ~self ~cmd:(selector "floatingHeight") ~typ:(returning (double)) - let floatingIdiom self = msg_send ~self ~cmd:(selector "floatingIdiom") ~typ:(returning (llong)) - let floatingNormalizedPersistentOffset self = msg_send_stret ~self ~cmd:(selector "floatingNormalizedPersistentOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t - let floatingPersistentOffset self = msg_send_stret ~self ~cmd:(selector "floatingPersistentOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t - let floatingScreenWidthToEmulate self = msg_send ~self ~cmd:(selector "floatingScreenWidthToEmulate") ~typ:(returning (double)) - let floatingWidth self = msg_send ~self ~cmd:(selector "floatingWidth") ~typ:(returning (double)) - let isActivatingForeground self = msg_send ~self ~cmd:(selector "isActivatingForeground") ~typ:(returning (bool)) - let isFloating self = msg_send ~self ~cmd:(selector "isFloating") ~typ:(returning (bool)) - let isFloatingForced self = msg_send ~self ~cmd:(selector "isFloatingForced") ~typ:(returning (bool)) - let isHardwareCommandKeyBeingHeld self = msg_send ~self ~cmd:(selector "isHardwareCommandKeyBeingHeld") ~typ:(returning (bool)) - let isHardwareShiftKeyBeingHeld self = msg_send ~self ~cmd:(selector "isHardwareShiftKeyBeingHeld") ~typ:(returning (bool)) - let isSplit self = msg_send ~self ~cmd:(selector "isSplit") ~typ:(returning (bool)) - let keyboardOrientation x ~isEquivalentToOrientation self = msg_send ~self ~cmd:(selector "keyboardOrientation:isEquivalentToOrientation:") ~typ:(llong @-> llong @-> returning (bool)) (LLong.of_int x) (LLong.of_int isEquivalentToOrientation) - let keyboardScreen self = msg_send ~self ~cmd:(selector "keyboardScreen") ~typ:(returning (id)) - let keyboardSizeForInterfaceOrientation x self = msg_send_stret ~self ~cmd:(selector "keyboardSizeForInterfaceOrientation:") ~typ:(llong @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) - let keyboardWidthForScreen x ~withOrientation self = msg_send ~self ~cmd:(selector "keyboardWidthForScreen:withOrientation:") ~typ:(id @-> llong @-> returning (double)) x (LLong.of_int withOrientation) - let keyboardWindow self = msg_send ~self ~cmd:(selector "keyboardWindow") ~typ:(returning (id)) - let layoutClassForCurrentInputMode self = msg_send ~self ~cmd:(selector "layoutClassForCurrentInputMode") ~typ:(returning (_Class)) - let layoutClassForInputMode x ~keyboardType ~screenTraits self = msg_send ~self ~cmd:(selector "layoutClassForInputMode:keyboardType:screenTraits:") ~typ:(id @-> llong @-> id @-> returning (_Class)) x (LLong.of_int keyboardType) screenTraits - let normalizedInputModesFromPreference self = msg_send ~self ~cmd:(selector "normalizedInputModesFromPreference") ~typ:(returning (id)) - let normalizedPersistentOffset self = msg_send_stret ~self ~cmd:(selector "normalizedPersistentOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t - let normalizedPersistentOffsetIgnoringState self = msg_send_stret ~self ~cmd:(selector "normalizedPersistentOffsetIgnoringState") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t - let overrideNativeScreen self = msg_send ~self ~cmd:(selector "overrideNativeScreen") ~typ:(returning (bool)) - let performWithoutFloatingLock x self = msg_send ~self ~cmd:(selector "performWithoutFloatingLock:") ~typ:(ptr void @-> returning (void)) x - let persistentOffset self = msg_send_stret ~self ~cmd:(selector "persistentOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t - let persistentSplitProgress self = msg_send ~self ~cmd:(selector "persistentSplitProgress") ~typ:(returning (double)) - let purgeImageCache self = msg_send ~self ~cmd:(selector "purgeImageCache") ~typ:(returning (void)) - let refreshRivenStateWithTraits x ~isKeyboard self = msg_send ~self ~cmd:(selector "refreshRivenStateWithTraits:isKeyboard:") ~typ:(id @-> bool @-> returning (void)) x isKeyboard - let releaseSharedInstance self = msg_send ~self ~cmd:(selector "releaseSharedInstance") ~typ:(returning (void)) - let rivenInstalled self = msg_send ~self ~cmd:(selector "rivenInstalled") ~typ:(returning (bool)) - let rivenPreference self = msg_send ~self ~cmd:(selector "rivenPreference") ~typ:(returning (bool)) - let rivenShouldUndock self = msg_send ~self ~cmd:(selector "rivenShouldUndock") ~typ:(returning (bool)) - let rivenTranslationPreference self = msg_send ~self ~cmd:(selector "rivenTranslationPreference") ~typ:(returning (bool)) - let sendPerformanceNotification x self = msg_send ~self ~cmd:(selector "sendPerformanceNotification:") ~typ:(id @-> returning (void)) x - let sendPerformanceNotification' x ~userInfo self = msg_send ~self ~cmd:(selector "sendPerformanceNotification:userInfo:") ~typ:(id @-> id @-> returning (void)) x userInfo - let setFloating x self = msg_send ~self ~cmd:(selector "setFloating:") ~typ:(bool @-> returning (void)) x - let setFloating1 x ~positionedAtDefaultOffsetAnimated self = msg_send ~self ~cmd:(selector "setFloating:positionedAtDefaultOffsetAnimated:") ~typ:(bool @-> bool @-> returning (void)) x positionedAtDefaultOffsetAnimated - let setFloating2 x ~positionedAtOffset ~animated self = msg_send ~self ~cmd:(selector "setFloating:positionedAtOffset:animated:") ~typ:(bool @-> CGPoint.t @-> bool @-> returning (void)) x positionedAtOffset animated - let setFloatingPersistentOffset x self = msg_send ~self ~cmd:(selector "setFloatingPersistentOffset:") ~typ:(CGPoint.t @-> returning (void)) x - let setParentTestForProfiling x self = msg_send ~self ~cmd:(selector "setParentTestForProfiling:") ~typ:(id @-> returning (void)) x - let setPersistentOffset x self = msg_send ~self ~cmd:(selector "setPersistentOffset:") ~typ:(CGPoint.t @-> returning (void)) x - let setPersistentSplitProgress x self = msg_send ~self ~cmd:(selector "setPersistentSplitProgress:") ~typ:(double @-> returning (void)) x - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) - let sharedInstanceForCustomInputView x self = msg_send ~self ~cmd:(selector "sharedInstanceForCustomInputView:") ~typ:(bool @-> returning (id)) x - let shouldMergeAssistantBarWithKeyboardLayout self = msg_send ~self ~cmd:(selector "shouldMergeAssistantBarWithKeyboardLayout") ~typ:(returning (bool)) - let showsGlobeAndDictationKeysExternally self = msg_send ~self ~cmd:(selector "showsGlobeAndDictationKeysExternally") ~typ:(returning (bool)) - let sizeForInterfaceOrientation x self = msg_send_stret ~self ~cmd:(selector "sizeForInterfaceOrientation:") ~typ:(llong @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) - let sizeForInterfaceOrientation' x ~ignoreInputView self = msg_send_stret ~self ~cmd:(selector "sizeForInterfaceOrientation:ignoreInputView:") ~typ:(llong @-> bool @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) ignoreInputView - let smartInsertDeleteIsEnabled self = msg_send ~self ~cmd:(selector "smartInsertDeleteIsEnabled") ~typ:(returning (bool)) - let splitProgress self = msg_send ~self ~cmd:(selector "splitProgress") ~typ:(returning (double)) - let supportsFloating self = msg_send ~self ~cmd:(selector "supportsFloating") ~typ:(returning (bool)) - let supportsSplit self = msg_send ~self ~cmd:(selector "supportsSplit") ~typ:(returning (bool)) - let suppressSetPersistentOffset x self = msg_send ~self ~cmd:(selector "suppressSetPersistentOffset:") ~typ:(bool @-> returning (void)) x - let topMarginForInterfaceOrientation x self = msg_send ~self ~cmd:(selector "topMarginForInterfaceOrientation:") ~typ:(llong @-> returning (double)) (LLong.of_int x) - let uniqueNumberPadInputModesFromInputModes x ~forKeyboardType self = msg_send ~self ~cmd:(selector "uniqueNumberPadInputModesFromInputModes:forKeyboardType:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int forKeyboardType) -end - -let _UILanguagePreference self = msg_send ~self ~cmd:(selector "UILanguagePreference") ~typ:(returning (id)) -let acceptAutocorrection self = msg_send ~self ~cmd:(selector "acceptAutocorrection") ~typ:(returning (void)) -let acceptAutocorrection' x ~executionContextPassingTIKeyboardCandidate self = msg_send ~self ~cmd:(selector "acceptAutocorrection:executionContextPassingTIKeyboardCandidate:") ~typ:(id @-> id @-> returning (void)) x executionContextPassingTIKeyboardCandidate -let acceptAutocorrectionAndEndComposition self = msg_send ~self ~cmd:(selector "acceptAutocorrectionAndEndComposition") ~typ:(returning (void)) -let acceptAutocorrectionForWordTerminator x self = msg_send ~self ~cmd:(selector "acceptAutocorrectionForWordTerminator:") ~typ:(id @-> returning (id)) x -let acceptAutocorrectionForWordTerminator' x ~executionContextPassingTIKeyboardCandidate self = msg_send ~self ~cmd:(selector "acceptAutocorrectionForWordTerminator:executionContextPassingTIKeyboardCandidate:") ~typ:(id @-> id @-> returning (void)) x executionContextPassingTIKeyboardCandidate -let acceptCandidate x self = msg_send ~self ~cmd:(selector "acceptCandidate:") ~typ:(id @-> returning (void)) x -let acceptCandidate1 x ~forInput self = msg_send ~self ~cmd:(selector "acceptCandidate:forInput:") ~typ:(id @-> id @-> returning (void)) x forInput -let acceptCandidate2 x ~forInput ~executionContext self = msg_send ~self ~cmd:(selector "acceptCandidate:forInput:executionContext:") ~typ:(id @-> id @-> id @-> returning (void)) x forInput executionContext -let acceptCurrentCandidate self = msg_send ~self ~cmd:(selector "acceptCurrentCandidate") ~typ:(returning (id)) -let acceptCurrentCandidateForInput x self = msg_send ~self ~cmd:(selector "acceptCurrentCandidateForInput:") ~typ:(id @-> returning (id)) x -let acceptCurrentCandidateIfSelected self = msg_send ~self ~cmd:(selector "acceptCurrentCandidateIfSelected") ~typ:(returning (void)) -let acceptCurrentCandidateIfSelectedWithExecutionContext x self = msg_send ~self ~cmd:(selector "acceptCurrentCandidateIfSelectedWithExecutionContext:") ~typ:(id @-> returning (void)) x -let acceptFirstCandidate self = msg_send ~self ~cmd:(selector "acceptFirstCandidate") ~typ:(returning (void)) -let acceptHandwritingCandidate self = msg_send ~self ~cmd:(selector "acceptHandwritingCandidate") ~typ:(returning (void)) -let acceptInlineCandidate self = msg_send ~self ~cmd:(selector "acceptInlineCandidate") ~typ:(returning (id)) -let acceptInlineCandidateForInput x self = msg_send ~self ~cmd:(selector "acceptInlineCandidateForInput:") ~typ:(id @-> returning (id)) x -let acceptInputString x self = msg_send ~self ~cmd:(selector "acceptInputString:") ~typ:(id @-> returning (bool)) x -let acceptPredictiveInput x self = msg_send ~self ~cmd:(selector "acceptPredictiveInput:") ~typ:(id @-> returning (void)) x -let acceptPredictiveInput' x ~executionContext self = msg_send ~self ~cmd:(selector "acceptPredictiveInput:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let acceptRecentInput x self = msg_send ~self ~cmd:(selector "acceptRecentInput:") ~typ:(id @-> returning (void)) x -let acceptWord x ~firstDelete self = msg_send ~self ~cmd:(selector "acceptWord:firstDelete:") ~typ:(id @-> ullong @-> returning (bool)) x (ULLong.of_int firstDelete) -let acceptWord' x ~firstDelete ~forInput self = msg_send ~self ~cmd:(selector "acceptWord:firstDelete:forInput:") ~typ:(id @-> ullong @-> id @-> returning (bool)) x (ULLong.of_int firstDelete) forInput -let accessibilityUsesExtendedKeyboardPredictionsEnabled self = msg_send ~self ~cmd:(selector "accessibilityUsesExtendedKeyboardPredictionsEnabled") ~typ:(returning (bool)) -let activeLayout self = msg_send ~self ~cmd:(selector "activeLayout") ~typ:(returning (id)) -let addInputEvent x ~executionContext self = msg_send ~self ~cmd:(selector "addInputEvent:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let addInputObject x self = msg_send ~self ~cmd:(selector "addInputObject:") ~typ:(id @-> returning (void)) x -let addInputObject' x ~executionContext self = msg_send ~self ~cmd:(selector "addInputObject:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let addInputString x self = msg_send ~self ~cmd:(selector "addInputString:") ~typ:(id @-> returning (void)) x -let addInputString1 x ~fromVariantKey self = msg_send ~self ~cmd:(selector "addInputString:fromVariantKey:") ~typ:(id @-> bool @-> returning (void)) x fromVariantKey -let addInputString2 x ~withFlags self = msg_send ~self ~cmd:(selector "addInputString:withFlags:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int withFlags) -let addInputString3 x ~withFlags ~executionContext self = msg_send ~self ~cmd:(selector "addInputString:withFlags:executionContext:") ~typ:(id @-> ullong @-> id @-> returning (void)) x (ULLong.of_int withFlags) executionContext -let addInputString4 x ~withFlags ~withInputManagerHint self = msg_send ~self ~cmd:(selector "addInputString:withFlags:withInputManagerHint:") ~typ:(id @-> ullong @-> id @-> returning (void)) x (ULLong.of_int withFlags) withInputManagerHint -let addInputString5 x ~withFlags ~withInputManagerHint ~executionContext self = msg_send ~self ~cmd:(selector "addInputString:withFlags:withInputManagerHint:executionContext:") ~typ:(id @-> ullong @-> id @-> id @-> returning (void)) x (ULLong.of_int withFlags) withInputManagerHint executionContext -let addSupplementalLexicon x self = msg_send ~self ~cmd:(selector "addSupplementalLexicon:") ~typ:(id @-> returning (void)) x -let addWordTerminator x ~afterSpace ~afterAcceptingCandidate ~elapsedTime ~executionContext self = msg_send ~self ~cmd:(selector "addWordTerminator:afterSpace:afterAcceptingCandidate:elapsedTime:executionContext:") ~typ:(id @-> bool @-> id @-> double @-> id @-> returning (void)) x afterSpace afterAcceptingCandidate elapsedTime executionContext -let adjustAutoDeleteTimerForForce x self = msg_send ~self ~cmd:(selector "adjustAutoDeleteTimerForForce:") ~typ:(double @-> returning (void)) x -let adjustCapsLockDelayOverride self = msg_send ~self ~cmd:(selector "adjustCapsLockDelayOverride") ~typ:(returning (void)) -let adjustPhraseBoundaryInForwardDirection x ~granularity ~executionContext self = msg_send ~self ~cmd:(selector "adjustPhraseBoundaryInForwardDirection:granularity:executionContext:") ~typ:(bool @-> int @-> id @-> returning (void)) x granularity executionContext -let adjustSegmentSize x self = msg_send ~self ~cmd:(selector "adjustSegmentSize:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let allowsReachableKeyboard self = msg_send ~self ~cmd:(selector "allowsReachableKeyboard") ~typ:(returning (bool)) -let alternativePredictions self = msg_send ~self ~cmd:(selector "alternativePredictions") ~typ:(returning (id)) -let animateAutocorrectionToRect x ~fromRect self = msg_send ~self ~cmd:(selector "animateAutocorrectionToRect:fromRect:") ~typ:(CGRect.t @-> CGRect.t @-> returning (void)) x fromRect -let animateAutocorrectionToText x ~fromRect self = msg_send ~self ~cmd:(selector "animateAutocorrectionToText:fromRect:") ~typ:(id @-> CGRect.t @-> returning (void)) x fromRect -let animateUpdateBars self = msg_send ~self ~cmd:(selector "animateUpdateBars") ~typ:(returning (bool)) -let applicationResumed x self = msg_send ~self ~cmd:(selector "applicationResumed:") ~typ:(id @-> returning (void)) x -let applicationResumedEventsOnly x self = msg_send ~self ~cmd:(selector "applicationResumedEventsOnly:") ~typ:(id @-> returning (void)) x -let applicationSuspendedEventsOnly x self = msg_send ~self ~cmd:(selector "applicationSuspendedEventsOnly:") ~typ:(id @-> returning (void)) x -let applyAutocorrection x self = msg_send ~self ~cmd:(selector "applyAutocorrection:") ~typ:(id @-> returning (bool)) x -let arrowKeyHistory self = msg_send ~self ~cmd:(selector "arrowKeyHistory") ~typ:(returning (id)) -let assertIntermediateText x self = msg_send ~self ~cmd:(selector "assertIntermediateText:") ~typ:(id @-> returning (void)) x -let assertTextForRemoteDocument x ~withSelectionRange ~updatingSelection self = msg_send ~self ~cmd:(selector "assertTextForRemoteDocument:withSelectionRange:updatingSelection:") ~typ:(id @-> NSRange.t @-> bool @-> returning (void)) x withSelectionRange updatingSelection -let asynchronousInputDelegate self = msg_send ~self ~cmd:(selector "asynchronousInputDelegate") ~typ:(returning (id)) -let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning (id)) -let autocapitalizationPreference self = msg_send ~self ~cmd:(selector "autocapitalizationPreference") ~typ:(returning (bool)) -let autocorrectBubbleContainer self = msg_send ~self ~cmd:(selector "autocorrectBubbleContainer") ~typ:(returning (id)) -let autocorrectPrompt self = msg_send ~self ~cmd:(selector "autocorrectPrompt") ~typ:(returning (id)) -let autocorrectPromptRectsForInput x self = msg_send ~self ~cmd:(selector "autocorrectPromptRectsForInput:") ~typ:(id @-> returning (id)) x -let autocorrectPromptRectsFromFirstDelegateRect x ~lastDelegateRect self = msg_send ~self ~cmd:(selector "autocorrectPromptRectsFromFirstDelegateRect:lastDelegateRect:") ~typ:(CGRect.t @-> CGRect.t @-> returning (id)) x lastDelegateRect -let autocorrectPromptTask self = msg_send ~self ~cmd:(selector "autocorrectPromptTask") ~typ:(returning (id)) -let autocorrectSpellingEnabled self = msg_send ~self ~cmd:(selector "autocorrectSpellingEnabled") ~typ:(returning (bool)) -let autocorrectionAnimationDidStopWithAutocorrectionView x self = msg_send ~self ~cmd:(selector "autocorrectionAnimationDidStopWithAutocorrectionView:") ~typ:(id @-> returning (void)) x -let autocorrectionController self = msg_send ~self ~cmd:(selector "autocorrectionController") ~typ:(returning (id)) -let autocorrectionPreference self = msg_send ~self ~cmd:(selector "autocorrectionPreference") ~typ:(returning (bool)) -let autocorrectionPreferenceForTraits self = msg_send ~self ~cmd:(selector "autocorrectionPreferenceForTraits") ~typ:(returning (ullong)) -let autocorrectionRecordForWord x self = msg_send ~self ~cmd:(selector "autocorrectionRecordForWord:") ~typ:(id @-> returning (id)) x -let autocorrectionToAcceptBeforeProgressiveCandidates self = msg_send ~self ~cmd:(selector "autocorrectionToAcceptBeforeProgressiveCandidates") ~typ:(returning (id)) -let autofillController self = msg_send ~self ~cmd:(selector "autofillController") ~typ:(returning (id)) -let automaticMinimizationEnabled self = msg_send ~self ~cmd:(selector "automaticMinimizationEnabled") ~typ:(returning (bool)) -let beginFloatingTransitionFromPanGestureRecognizer x self = msg_send ~self ~cmd:(selector "beginFloatingTransitionFromPanGestureRecognizer:") ~typ:(id @-> returning (void)) x -let biasedKeyboardWidthRatio self = msg_send ~self ~cmd:(selector "biasedKeyboardWidthRatio") ~typ:(returning (double)) -let callChanged self = msg_send ~self ~cmd:(selector "callChanged") ~typ:(returning (void)) -let callLayoutIgnoresShiftState self = msg_send ~self ~cmd:(selector "callLayoutIgnoresShiftState") ~typ:(returning (bool)) -let callLayoutIsGeometricShiftOrMoreKeyForTouch x self = msg_send ~self ~cmd:(selector "callLayoutIsGeometricShiftOrMoreKeyForTouch:") ~typ:(id @-> returning (bool)) x -let callLayoutIsShiftKeyBeingHeld self = msg_send ~self ~cmd:(selector "callLayoutIsShiftKeyBeingHeld") ~typ:(returning (bool)) -let callLayoutIsShiftKeyPlaneChooser self = msg_send ~self ~cmd:(selector "callLayoutIsShiftKeyPlaneChooser") ~typ:(returning (bool)) -let callLayoutLongPressAction self = msg_send ~self ~cmd:(selector "callLayoutLongPressAction") ~typ:(returning (void)) -let callLayoutSetAutoshift x self = msg_send ~self ~cmd:(selector "callLayoutSetAutoshift:") ~typ:(bool @-> returning (void)) x -let callLayoutSetShift x self = msg_send ~self ~cmd:(selector "callLayoutSetShift:") ~typ:(bool @-> returning (void)) x -let callLayoutUpdateAllLocalizedKeys self = msg_send ~self ~cmd:(selector "callLayoutUpdateAllLocalizedKeys") ~typ:(returning (void)) -let callLayoutUpdateLocalizedKeys self = msg_send ~self ~cmd:(selector "callLayoutUpdateLocalizedKeys") ~typ:(returning (void)) -let callLayoutUpdateRecentInputs self = msg_send ~self ~cmd:(selector "callLayoutUpdateRecentInputs") ~typ:(returning (void)) -let callLayoutUpdateReturnKey self = msg_send ~self ~cmd:(selector "callLayoutUpdateReturnKey") ~typ:(returning (void)) -let callLayoutUsesAutoShift self = msg_send ~self ~cmd:(selector "callLayoutUsesAutoShift") ~typ:(returning (bool)) -let callShouldDeleteWithWordCountForRapidDelete x ~characterCountForRapidDelete self = msg_send ~self ~cmd:(selector "callShouldDeleteWithWordCountForRapidDelete:characterCountForRapidDelete:") ~typ:(int @-> int @-> returning (bool)) x characterCountForRapidDelete -let callShouldInsertText x self = msg_send ~self ~cmd:(selector "callShouldInsertText:") ~typ:(id @-> returning (bool)) x -let callShouldInsertText' x ~onDelegate self = msg_send ~self ~cmd:(selector "callShouldInsertText:onDelegate:") ~typ:(id @-> id @-> returning (bool)) x onDelegate -let canHandleDelete self = msg_send ~self ~cmd:(selector "canHandleDelete") ~typ:(returning (bool)) -let canHandleEvent x self = msg_send ~self ~cmd:(selector "canHandleEvent:") ~typ:(id @-> returning (bool)) x -let canHandleKeyHitTest self = msg_send ~self ~cmd:(selector "canHandleKeyHitTest") ~typ:(returning (bool)) -let canPasteImage self = msg_send ~self ~cmd:(selector "canPasteImage") ~typ:(returning (bool)) -let canPresentEmojiPopover self = msg_send ~self ~cmd:(selector "canPresentEmojiPopover") ~typ:(returning (bool)) -let canPresentOrDismissEmojiPopover self = msg_send ~self ~cmd:(selector "canPresentOrDismissEmojiPopover") ~typ:(returning (bool)) -let canShowAppConnections self = msg_send ~self ~cmd:(selector "canShowAppConnections") ~typ:(returning (bool)) -let canShowPredictionBar self = msg_send ~self ~cmd:(selector "canShowPredictionBar") ~typ:(returning (bool)) -let canUseCandidateBarAsSupplementToInlineView self = msg_send ~self ~cmd:(selector "canUseCandidateBarAsSupplementToInlineView") ~typ:(returning (bool)) -let cancelAllKeyEvents self = msg_send ~self ~cmd:(selector "cancelAllKeyEvents") ~typ:(returning (void)) -let cancelCandidateRequests self = msg_send ~self ~cmd:(selector "cancelCandidateRequests") ~typ:(returning (void)) -let cancelSplitTransition self = msg_send ~self ~cmd:(selector "cancelSplitTransition") ~typ:(returning (void)) -let candidateBarDidExtendWithGesture self = msg_send ~self ~cmd:(selector "candidateBarDidExtendWithGesture") ~typ:(returning (void)) -let candidateController self = msg_send ~self ~cmd:(selector "candidateController") ~typ:(returning (id)) -let candidateList self = msg_send ~self ~cmd:(selector "candidateList") ~typ:(returning (id)) -let candidateListAcceptCandidate x self = msg_send ~self ~cmd:(selector "candidateListAcceptCandidate:") ~typ:(id @-> returning (void)) x -let candidateListInvalidateSelection x self = msg_send ~self ~cmd:(selector "candidateListInvalidateSelection:") ~typ:(id @-> returning (void)) x -let candidateListSelectionDidChange x self = msg_send ~self ~cmd:(selector "candidateListSelectionDidChange:") ~typ:(id @-> returning (void)) x -let candidateSelectionPredictionForTraits self = msg_send ~self ~cmd:(selector "candidateSelectionPredictionForTraits") ~typ:(returning (bool)) -let candidateViewOffset self = msg_send ~self ~cmd:(selector "candidateViewOffset") ~typ:(returning (llong)) -let capsLockKeyHasLanguageSwitchLabel self = msg_send ~self ~cmd:(selector "capsLockKeyHasLanguageSwitchLabel") ~typ:(returning (bool)) -let caretBlinks self = msg_send ~self ~cmd:(selector "caretBlinks") ~typ:(returning (bool)) -let caretVisible self = msg_send ~self ~cmd:(selector "caretVisible") ~typ:(returning (bool)) -let centerFilled self = msg_send ~self ~cmd:(selector "centerFilled") ~typ:(returning (bool)) -let changeCount self = msg_send ~self ~cmd:(selector "changeCount") ~typ:(returning (int)) -let changeNotificationDisabled self = msg_send ~self ~cmd:(selector "changeNotificationDisabled") ~typ:(returning (bool)) -let changedDelegate self = msg_send ~self ~cmd:(selector "changedDelegate") ~typ:(returning (id)) -let characterRectsForCharacterRange self = msg_send ~self ~cmd:(selector "characterRectsForCharacterRange") ~typ:(returning (id)) -let checkSpellingPreference self = msg_send ~self ~cmd:(selector "checkSpellingPreference") ~typ:(returning (bool)) -let checkSpellingPreferenceForTraits self = msg_send ~self ~cmd:(selector "checkSpellingPreferenceForTraits") ~typ:(returning (bool)) -let cleanUpBeforeInputModeSwitch self = msg_send ~self ~cmd:(selector "cleanUpBeforeInputModeSwitch") ~typ:(returning (void)) -let cleanupKeyboardPopover self = msg_send ~self ~cmd:(selector "cleanupKeyboardPopover") ~typ:(returning (void)) -let clearAnimations self = msg_send ~self ~cmd:(selector "clearAnimations") ~typ:(returning (void)) -let clearAutoDeleteTimer self = msg_send ~self ~cmd:(selector "clearAutoDeleteTimer") ~typ:(returning (void)) -let clearAutocorrectPromptTimer self = msg_send ~self ~cmd:(selector "clearAutocorrectPromptTimer") ~typ:(returning (void)) -let clearAutofillGroup self = msg_send ~self ~cmd:(selector "clearAutofillGroup") ~typ:(returning (void)) -let clearCapsLockDelayOverrideTimer self = msg_send ~self ~cmd:(selector "clearCapsLockDelayOverrideTimer") ~typ:(returning (void)) -let clearChangeTimeAndCount self = msg_send ~self ~cmd:(selector "clearChangeTimeAndCount") ~typ:(returning (void)) -let clearDelayDeleteTimer self = msg_send ~self ~cmd:(selector "clearDelayDeleteTimer") ~typ:(returning (void)) -let clearDelegate self = msg_send ~self ~cmd:(selector "clearDelegate") ~typ:(returning (void)) -let clearDetachHardwareKeyboardAction self = msg_send ~self ~cmd:(selector "clearDetachHardwareKeyboardAction") ~typ:(returning (void)) -let clearExcessKeyboardMemory self = msg_send ~self ~cmd:(selector "clearExcessKeyboardMemory") ~typ:(returning (void)) -let clearForwardingInputDelegateAndResign x self = msg_send ~self ~cmd:(selector "clearForwardingInputDelegateAndResign:") ~typ:(bool @-> returning (void)) x -let clearInput self = msg_send ~self ~cmd:(selector "clearInput") ~typ:(returning (void)) -let clearInputForMarkedText self = msg_send ~self ~cmd:(selector "clearInputForMarkedText") ~typ:(returning (void)) -let clearInputWithCandidatesCleared x self = msg_send ~self ~cmd:(selector "clearInputWithCandidatesCleared:") ~typ:(bool @-> returning (void)) x -let clearLanguageIndicator self = msg_send ~self ~cmd:(selector "clearLanguageIndicator") ~typ:(returning (void)) -let clearLayouts self = msg_send ~self ~cmd:(selector "clearLayouts") ~typ:(returning (void)) -let clearLongPressTimer self = msg_send ~self ~cmd:(selector "clearLongPressTimer") ~typ:(returning (void)) -let clearRecentInput self = msg_send ~self ~cmd:(selector "clearRecentInput") ~typ:(returning (void)) -let clearSelection self = msg_send ~self ~cmd:(selector "clearSelection") ~typ:(returning (void)) -let clearShiftState self = msg_send ~self ~cmd:(selector "clearShiftState") ~typ:(returning (void)) -let clearTextAlternativesRange self = msg_send ~self ~cmd:(selector "clearTextAlternativesRange") ~typ:(returning (void)) -let clearTimers self = msg_send ~self ~cmd:(selector "clearTimers") ~typ:(returning (void)) -let clearTransientState self = msg_send ~self ~cmd:(selector "clearTransientState") ~typ:(returning (void)) -let clearUpdateLastUsedInputModeAction self = msg_send ~self ~cmd:(selector "clearUpdateLastUsedInputModeAction") ~typ:(returning (void)) -let collapseSelection self = msg_send ~self ~cmd:(selector "collapseSelection") ~typ:(returning (void)) -let committingCandidate self = msg_send ~self ~cmd:(selector "committingCandidate") ~typ:(returning (bool)) -let completeAcceptCandidate x self = msg_send ~self ~cmd:(selector "completeAcceptCandidate:") ~typ:(id @-> returning (void)) x -let completeAcceptCandidateBeforeAddingInputObject x ~executionContext self = msg_send ~self ~cmd:(selector "completeAcceptCandidateBeforeAddingInputObject:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let completeAddInputString x self = msg_send ~self ~cmd:(selector "completeAddInputString:") ~typ:(id @-> returning (void)) x -let completeAddInputString' x ~generateCandidates self = msg_send ~self ~cmd:(selector "completeAddInputString:generateCandidates:") ~typ:(id @-> bool @-> returning (void)) x generateCandidates -let completeDelete self = msg_send ~self ~cmd:(selector "completeDelete") ~typ:(returning (void)) -let completeDeleteFromInput self = msg_send ~self ~cmd:(selector "completeDeleteFromInput") ~typ:(returning (void)) -let completeDeleteOnceFromInputWithCharacterBefore x self = msg_send ~self ~cmd:(selector "completeDeleteOnceFromInputWithCharacterBefore:") ~typ:(uint @-> returning (void)) x -let completeHandleAutoDelete self = msg_send ~self ~cmd:(selector "completeHandleAutoDelete") ~typ:(returning (void)) -let completeHandleKeyEvent x self = msg_send ~self ~cmd:(selector "completeHandleKeyEvent:") ~typ:(id @-> returning (void)) x -let completeUpdateForChangedSelection x self = msg_send ~self ~cmd:(selector "completeUpdateForChangedSelection:") ~typ:(bool @-> returning (void)) x -let continuousPathUnderway self = msg_send ~self ~cmd:(selector "continuousPathUnderway") ~typ:(returning (bool)) -let convertForceToGrams x self = msg_send ~self ~cmd:(selector "convertForceToGrams:") ~typ:(double @-> returning (double)) x -let convertRectToAutocorrectRect x ~delegateView ~container self = msg_send_stret ~self ~cmd:(selector "convertRectToAutocorrectRect:delegateView:container:") ~typ:(CGRect.t @-> id @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x delegateView container -let copyOperation self = msg_send ~self ~cmd:(selector "copyOperation") ~typ:(returning (void)) -let correctionRect self = msg_send_stret ~self ~cmd:(selector "correctionRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let createTypoTrackerReport self = msg_send ~self ~cmd:(selector "createTypoTrackerReport") ~typ:(returning (void)) -let currentCandidateRequest self = msg_send ~self ~cmd:(selector "currentCandidateRequest") ~typ:(returning (id)) -let currentHandBias self = msg_send ~self ~cmd:(selector "currentHandBias") ~typ:(returning (llong)) -let currentKey self = msg_send ~self ~cmd:(selector "currentKey") ~typ:(returning (id)) -let currentKeyboardTraitsAllowCandidateBarWhileIgnoringHidePredictionTrait x self = msg_send ~self ~cmd:(selector "currentKeyboardTraitsAllowCandidateBarWhileIgnoringHidePredictionTrait:") ~typ:(bool @-> returning (bool)) x -let cursorAssertion self = msg_send ~self ~cmd:(selector "cursorAssertion") ~typ:(returning (id)) -let cursorIsAtEndOfMarkedText self = msg_send ~self ~cmd:(selector "cursorIsAtEndOfMarkedText") ~typ:(returning (bool)) -let cutOperation self = msg_send ~self ~cmd:(selector "cutOperation") ~typ:(returning (void)) -let deactivateLayout self = msg_send ~self ~cmd:(selector "deactivateLayout") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultSizeForInterfaceOrientation x self = msg_send_stret ~self ~cmd:(selector "defaultSizeForInterfaceOrientation:") ~typ:(llong @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) -let defaultsDidChange self = msg_send ~self ~cmd:(selector "defaultsDidChange") ~typ:(returning (void)) -let deferredDidSetDelegateAction self = msg_send ~self ~cmd:(selector "deferredDidSetDelegateAction") ~typ:(returning (id)) -let delayedCandidateList self = msg_send ~self ~cmd:(selector "delayedCandidateList") ~typ:(returning (bool)) -let delayedCandidateRequest self = msg_send ~self ~cmd:(selector "delayedCandidateRequest") ~typ:(returning (id)) -let delayedInit self = msg_send ~self ~cmd:(selector "delayedInit") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let delegateAlreadyInAutofillGroup self = msg_send ~self ~cmd:(selector "delegateAlreadyInAutofillGroup") ~typ:(returning (bool)) -let delegateAsResponder self = msg_send ~self ~cmd:(selector "delegateAsResponder") ~typ:(returning (id)) -let delegateIsSMSTextView self = msg_send ~self ~cmd:(selector "delegateIsSMSTextView") ~typ:(returning (bool)) -let delegateRequiresKeyEvents self = msg_send ~self ~cmd:(selector "delegateRequiresKeyEvents") ~typ:(returning (bool)) -let delegateSuggestionsForCurrentInput self = msg_send ~self ~cmd:(selector "delegateSuggestionsForCurrentInput") ~typ:(returning (bool)) -let delegateSupportsCorrectionUI self = msg_send ~self ~cmd:(selector "delegateSupportsCorrectionUI") ~typ:(returning (bool)) -let delegateSupportsImagePaste self = msg_send ~self ~cmd:(selector "delegateSupportsImagePaste") ~typ:(returning (bool)) -let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning (void)) -let deleteBackwardAndNotify x self = msg_send ~self ~cmd:(selector "deleteBackwardAndNotify:") ~typ:(bool @-> returning (void)) x -let deleteForwardAndNotify x self = msg_send ~self ~cmd:(selector "deleteForwardAndNotify:") ~typ:(bool @-> returning (bool)) x -let deleteFromInput self = msg_send ~self ~cmd:(selector "deleteFromInput") ~typ:(returning (void)) -let deleteFromInputWithFlags x self = msg_send ~self ~cmd:(selector "deleteFromInputWithFlags:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let deleteFromInputWithFlags' x ~executionContext self = msg_send ~self ~cmd:(selector "deleteFromInputWithFlags:executionContext:") ~typ:(ullong @-> id @-> returning (void)) (ULLong.of_int x) executionContext -let deleteHandwritingStrokesAtIndexes x self = msg_send ~self ~cmd:(selector "deleteHandwritingStrokesAtIndexes:") ~typ:(id @-> returning (void)) x -let deleteOnceFromInputWithExecutionContext x self = msg_send ~self ~cmd:(selector "deleteOnceFromInputWithExecutionContext:") ~typ:(id @-> returning (void)) x -let deleteWordLastDelete self = msg_send ~self ~cmd:(selector "deleteWordLastDelete") ~typ:(returning (double)) -let deletedString self = msg_send ~self ~cmd:(selector "deletedString") ~typ:(returning (id)) -let desirableInputModesWithExtensions x self = msg_send ~self ~cmd:(selector "desirableInputModesWithExtensions:") ~typ:(bool @-> returning (id)) x -let detach self = msg_send ~self ~cmd:(selector "detach") ~typ:(returning (void)) -let detachHardwareKeyboard self = msg_send ~self ~cmd:(selector "detachHardwareKeyboard") ~typ:(returning (void)) -let didAcceptAutocorrection x ~wordTerminator self = msg_send ~self ~cmd:(selector "didAcceptAutocorrection:wordTerminator:") ~typ:(id @-> id @-> returning (void)) x wordTerminator -let didApplyAutocorrection x ~autocorrectPromptFrame self = msg_send ~self ~cmd:(selector "didApplyAutocorrection:autocorrectPromptFrame:") ~typ:(id @-> CGRect.t @-> returning (void)) x autocorrectPromptFrame -let didChangeForwardingInputDelegate x self = msg_send ~self ~cmd:(selector "didChangeForwardingInputDelegate:") ~typ:(id @-> returning (void)) x -let didChangePhraseBoundary self = msg_send ~self ~cmd:(selector "didChangePhraseBoundary") ~typ:(returning (void)) -let didClearText self = msg_send ~self ~cmd:(selector "didClearText") ~typ:(returning (void)) -let didDismissMemojiCard self = msg_send ~self ~cmd:(selector "didDismissMemojiCard") ~typ:(returning (void)) -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let didPresentMemojiCard self = msg_send ~self ~cmd:(selector "didPresentMemojiCard") ~typ:(returning (void)) -let didSetDelegate self = msg_send ~self ~cmd:(selector "didSetDelegate") ~typ:(returning (void)) -let disableInputBars self = msg_send ~self ~cmd:(selector "disableInputBars") ~typ:(returning (bool)) -let disableSmartInsertDelete self = msg_send ~self ~cmd:(selector "disableSmartInsertDelete") ~typ:(returning (bool)) -let dismissContinuousPathIntroductionView self = msg_send ~self ~cmd:(selector "dismissContinuousPathIntroductionView") ~typ:(returning (void)) -let dismissEditingIntroductionView self = msg_send ~self ~cmd:(selector "dismissEditingIntroductionView") ~typ:(returning (void)) -let dismissKeyboard self = msg_send ~self ~cmd:(selector "dismissKeyboard") ~typ:(returning (void)) -let dismissKeyboardPopoverBeforeCleanup x ~completion self = msg_send ~self ~cmd:(selector "dismissKeyboardPopoverBeforeCleanup:completion:") ~typ:(bool @-> ptr void @-> returning (void)) x completion -let dismissKeyboardPopoverIfNecessaryWithCompletion x self = msg_send ~self ~cmd:(selector "dismissKeyboardPopoverIfNecessaryWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let displaysCandidates self = msg_send ~self ~cmd:(selector "displaysCandidates") ~typ:(returning (bool)) -let documentIdentifierForInputDelegate x self = msg_send ~self ~cmd:(selector "documentIdentifierForInputDelegate:") ~typ:(id @-> returning (id)) x -let documentStateFromInputDelegate x self = msg_send ~self ~cmd:(selector "documentStateFromInputDelegate:") ~typ:(ptr void @-> returning (void)) x -let dontPushOneTimeCode self = msg_send ~self ~cmd:(selector "dontPushOneTimeCode") ~typ:(returning (bool)) -let doubleSpacePeriodPreference self = msg_send ~self ~cmd:(selector "doubleSpacePeriodPreference") ~typ:(returning (bool)) -let dragGestureRectInView x self = msg_send_stret ~self ~cmd:(selector "dragGestureRectInView:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let dynamicCaretList self = msg_send ~self ~cmd:(selector "dynamicCaretList") ~typ:(returning (id)) -let editingTraitsMarkedDirty self = msg_send ~self ~cmd:(selector "editingTraitsMarkedDirty") ~typ:(returning (bool)) -let ejectKeyDown self = msg_send ~self ~cmd:(selector "ejectKeyDown") ~typ:(returning (void)) -let emojiCandidate x self = msg_send ~self ~cmd:(selector "emojiCandidate:") ~typ:(id @-> returning (id)) x -let emojiSearchWillInsertEmoji x ~forSearchQuery self = msg_send ~self ~cmd:(selector "emojiSearchWillInsertEmoji:forSearchQuery:") ~typ:(id @-> id @-> returning (void)) x forSearchQuery -let emojiSearchWillInsertEmoji' x ~forSearchQuery ~selectionMethod ~inputType self = msg_send ~self ~cmd:(selector "emojiSearchWillInsertEmoji:forSearchQuery:selectionMethod:inputType:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x forSearchQuery selectionMethod inputType -let enable self = msg_send ~self ~cmd:(selector "enable") ~typ:(returning (void)) -let enableTransientInputDelegateSelectionMode self = msg_send ~self ~cmd:(selector "enableTransientInputDelegateSelectionMode") ~typ:(returning (void)) -let eventForCurrentWebEvent self = msg_send ~self ~cmd:(selector "eventForCurrentWebEvent") ~typ:(returning (id)) -let externalTask self = msg_send ~self ~cmd:(selector "externalTask") ~typ:(returning (ptr void)) -let fadeAutocorrectPrompt self = msg_send ~self ~cmd:(selector "fadeAutocorrectPrompt") ~typ:(returning (void)) -let feedbackGenerator self = msg_send ~self ~cmd:(selector "feedbackGenerator") ~typ:(returning (id)) -let finishLayoutChangeWithArguments x self = msg_send ~self ~cmd:(selector "finishLayoutChangeWithArguments:") ~typ:(id @-> returning (void)) x -let finishLayoutToCurrentInterfaceOrientation self = msg_send ~self ~cmd:(selector "finishLayoutToCurrentInterfaceOrientation") ~typ:(returning (void)) -let finishSetExtensionInputMode x ~didChangeDirection self = msg_send ~self ~cmd:(selector "finishSetExtensionInputMode:didChangeDirection:") ~typ:(id @-> bool @-> returning (void)) x didChangeDirection -let finishSetInputMode x ~didChangeDirection self = msg_send ~self ~cmd:(selector "finishSetInputMode:didChangeDirection:") ~typ:(id @-> bool @-> returning (void)) x didChangeDirection -let finishSetInputModeToNextInPreferredListWithExecutionContext x ~withPreviousInputMode self = msg_send ~self ~cmd:(selector "finishSetInputModeToNextInPreferredListWithExecutionContext:withPreviousInputMode:") ~typ:(id @-> id @-> returning (void)) x withPreviousInputMode -let finishSetKeyboardInputMode x ~previousInputMode ~didChangeDirection self = msg_send ~self ~cmd:(selector "finishSetKeyboardInputMode:previousInputMode:didChangeDirection:") ~typ:(id @-> id @-> bool @-> returning (void)) x previousInputMode didChangeDirection -let finishSplitTransitionWithProgress x self = msg_send ~self ~cmd:(selector "finishSplitTransitionWithProgress:") ~typ:(double @-> returning (void)) x -let finishTextChanged self = msg_send ~self ~cmd:(selector "finishTextChanged") ~typ:(returning (void)) -let floatingForced self = msg_send ~self ~cmd:(selector "floatingForced") ~typ:(returning (bool)) -let flushDelayedTasks self = msg_send ~self ~cmd:(selector "flushDelayedTasks") ~typ:(returning (void)) -let flushTouchEventWaitingForKeyInputEventIfNecessary self = msg_send ~self ~cmd:(selector "flushTouchEventWaitingForKeyInputEventIfNecessary") ~typ:(returning (void)) -let forCustomInputView self = msg_send ~self ~cmd:(selector "forCustomInputView") ~typ:(returning (bool)) -let forceShiftUpdate self = msg_send ~self ~cmd:(selector "forceShiftUpdate") ~typ:(returning (void)) -let forceShiftUpdateIfKeyboardStateChanged self = msg_send ~self ~cmd:(selector "forceShiftUpdateIfKeyboardStateChanged") ~typ:(returning (void)) -let frameForKeylayoutName x self = msg_send_stret ~self ~cmd:(selector "frameForKeylayoutName:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let generateAutocorrectionListForSelectedText self = msg_send ~self ~cmd:(selector "generateAutocorrectionListForSelectedText") ~typ:(returning (id)) -let generateAutocorrectionReplacements x self = msg_send ~self ~cmd:(selector "generateAutocorrectionReplacements:") ~typ:(id @-> returning (id)) x -let generateAutocorrectionWithExecutionContext x self = msg_send ~self ~cmd:(selector "generateAutocorrectionWithExecutionContext:") ~typ:(id @-> returning (void)) x -let generateAutocorrectionsWithCompletionHandler x self = msg_send ~self ~cmd:(selector "generateAutocorrectionsWithCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let generateAutofillCandidate self = msg_send ~self ~cmd:(selector "generateAutofillCandidate") ~typ:(returning (void)) -let generateAutofillCandidateByAddingTask x self = msg_send ~self ~cmd:(selector "generateAutofillCandidateByAddingTask:") ~typ:(bool @-> returning (void)) x -let generateCandidates self = msg_send ~self ~cmd:(selector "generateCandidates") ~typ:(returning (void)) -let generateCandidatesAsynchronously self = msg_send ~self ~cmd:(selector "generateCandidatesAsynchronously") ~typ:(returning (void)) -let generateCandidatesAsynchronouslyWithRange x ~selectedCandidate self = msg_send ~self ~cmd:(selector "generateCandidatesAsynchronouslyWithRange:selectedCandidate:") ~typ:(NSRange.t @-> id @-> returning (void)) x selectedCandidate -let generateCandidatesFromReplacements self = msg_send ~self ~cmd:(selector "generateCandidatesFromReplacements") ~typ:(returning (void)) -let generateCandidatesWithOptions x self = msg_send ~self ~cmd:(selector "generateCandidatesWithOptions:") ~typ:(int @-> returning (void)) x -let generateReplacementsForString x ~candidatesHandler ~executionContext self = msg_send ~self ~cmd:(selector "generateReplacementsForString:candidatesHandler:executionContext:") ~typ:(id @-> ptr void @-> id @-> returning (void)) x candidatesHandler executionContext -let geometryChangeDone x self = msg_send ~self ~cmd:(selector "geometryChangeDone:") ~typ:(bool @-> returning (void)) x -let geometryDelegate self = msg_send ~self ~cmd:(selector "geometryDelegate") ~typ:(returning (id)) -let geometryIsChanging self = msg_send ~self ~cmd:(selector "geometryIsChanging") ~typ:(returning (bool)) -let getCorrectionRectIsVertical x self = msg_send_stret ~self ~cmd:(selector "getCorrectionRectIsVertical:") ~typ:(ptr (bool) @-> returning (CGRect.t)) ~return_type:CGRect.t x -let globeKeyDisplaysAsEmojiKey self = msg_send ~self ~cmd:(selector "globeKeyDisplaysAsEmojiKey") ~typ:(returning (bool)) -let handleAcceptedCandidate x ~executionContext self = msg_send ~self ~cmd:(selector "handleAcceptedCandidate:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let handleAutoDeleteWithExecutionContext x self = msg_send ~self ~cmd:(selector "handleAutoDeleteWithExecutionContext:") ~typ:(id @-> returning (void)) x -let handleAutofillCredentialSaveIfNeeded x self = msg_send ~self ~cmd:(selector "handleAutofillCredentialSaveIfNeeded:") ~typ:(id @-> returning (void)) x -let handleCandidateListNavigation x ~hasCandidatesForTypedInput ~shiftDown ~keyCommandTypeHandled ~allowRepeat self = msg_send ~self ~cmd:(selector "handleCandidateListNavigation:hasCandidatesForTypedInput:shiftDown:keyCommandTypeHandled:allowRepeat:") ~typ:(uint @-> bool @-> bool @-> ptr (ullong) @-> ptr (bool) @-> returning (bool)) x hasCandidatesForTypedInput shiftDown keyCommandTypeHandled allowRepeat -let handleClear self = msg_send ~self ~cmd:(selector "handleClear") ~typ:(returning (void)) -let handleClearWithExecutionContext x self = msg_send ~self ~cmd:(selector "handleClearWithExecutionContext:") ~typ:(id @-> returning (void)) x -let handleClearWithInsertBeforeAdvance x self = msg_send ~self ~cmd:(selector "handleClearWithInsertBeforeAdvance:") ~typ:(id @-> returning (void)) x -let handleDelayedActionLongPress x self = msg_send ~self ~cmd:(selector "handleDelayedActionLongPress:") ~typ:(id @-> returning (void)) x -let handleDelete self = msg_send ~self ~cmd:(selector "handleDelete") ~typ:(returning (void)) -let handleDeleteAsRepeat x ~executionContext self = msg_send ~self ~cmd:(selector "handleDeleteAsRepeat:executionContext:") ~typ:(bool @-> id @-> returning (void)) x executionContext -let handleDeleteAutospaceForInputString x ~afterSpace self = msg_send ~self ~cmd:(selector "handleDeleteAutospaceForInputString:afterSpace:") ~typ:(id @-> bool @-> returning (id)) x afterSpace -let handleDeleteWithExecutionContext x self = msg_send ~self ~cmd:(selector "handleDeleteWithExecutionContext:") ~typ:(id @-> returning (void)) x -let handleDeleteWordWithExecutionContext x self = msg_send ~self ~cmd:(selector "handleDeleteWordWithExecutionContext:") ~typ:(id @-> returning (void)) x -let handleDeletionForCandidate x self = msg_send ~self ~cmd:(selector "handleDeletionForCandidate:") ~typ:(id @-> returning (void)) x -let handleEmojiInput x ~keyboardState self = msg_send ~self ~cmd:(selector "handleEmojiInput:keyboardState:") ~typ:(id @-> id @-> returning (void)) x keyboardState -let handleEmojiPopoverKeyCommand self = msg_send ~self ~cmd:(selector "handleEmojiPopoverKeyCommand") ~typ:(returning (void)) -let handleHorizontalArrow x ~shiftDown ~beforePublicKeyCommands ~testOnly ~isVerticalCandidate ~hasCandidatesForTypedInput ~shouldNavigateCandidateList ~canHandleInputDelegateCommand ~savedHistory ~keyCommandTypeHandled self = msg_send ~self ~cmd:(selector "handleHorizontalArrow:shiftDown:beforePublicKeyCommands:testOnly:isVerticalCandidate:hasCandidatesForTypedInput:shouldNavigateCandidateList:canHandleInputDelegateCommand:savedHistory:keyCommandTypeHandled:") ~typ:(bool @-> bool @-> bool @-> bool @-> bool @-> bool @-> bool @-> ptr void @-> id @-> ptr (ullong) @-> returning (bool)) x shiftDown beforePublicKeyCommands testOnly isVerticalCandidate hasCandidatesForTypedInput shouldNavigateCandidateList canHandleInputDelegateCommand savedHistory keyCommandTypeHandled -let handleInputManagerBasedKeybind x ~testOnly self = msg_send ~self ~cmd:(selector "handleInputManagerBasedKeybind:testOnly:") ~typ:(id @-> bool @-> returning (bool)) x testOnly -let handleKeyAppCommandForCurrentEvent self = msg_send ~self ~cmd:(selector "handleKeyAppCommandForCurrentEvent") ~typ:(returning (bool)) -let handleKeyCommand x ~repeatOkay ~beforePublicKeyCommands self = msg_send ~self ~cmd:(selector "handleKeyCommand:repeatOkay:beforePublicKeyCommands:") ~typ:(id @-> ptr (bool) @-> bool @-> returning (bool)) x repeatOkay beforePublicKeyCommands -let handleKeyCommand' x ~repeatOkay ~options self = msg_send ~self ~cmd:(selector "handleKeyCommand:repeatOkay:options:") ~typ:(id @-> ptr (bool) @-> ullong @-> returning (ullong)) x repeatOkay (ULLong.of_int options) -let handleKeyEvent x self = msg_send ~self ~cmd:(selector "handleKeyEvent:") ~typ:(id @-> returning (void)) x -let handleKeyEvent' x ~executionContext self = msg_send ~self ~cmd:(selector "handleKeyEvent:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let handleKeyInputMethodCommandForCurrentEvent self = msg_send ~self ~cmd:(selector "handleKeyInputMethodCommandForCurrentEvent") ~typ:(returning (bool)) -let handleKeyTextCommandForCurrentEvent self = msg_send ~self ~cmd:(selector "handleKeyTextCommandForCurrentEvent") ~typ:(returning (bool)) -let handleKeyWithString x ~forKeyEvent ~executionContext self = msg_send ~self ~cmd:(selector "handleKeyWithString:forKeyEvent:executionContext:") ~typ:(id @-> id @-> id @-> returning (void)) x forKeyEvent executionContext -let handleKeyboardInput x ~executionContext self = msg_send ~self ~cmd:(selector "handleKeyboardInput:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let handleModifiersChangeForKeyEvent x ~executionContext self = msg_send ~self ~cmd:(selector "handleModifiersChangeForKeyEvent:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let handleMoveCursorToEndOfLine x ~beforePublicKeyCommands ~testOnly ~savedHistory ~force ~canHandleSelectableInputDelegateCommand self = msg_send ~self ~cmd:(selector "handleMoveCursorToEndOfLine:beforePublicKeyCommands:testOnly:savedHistory:force:canHandleSelectableInputDelegateCommand:") ~typ:(bool @-> bool @-> bool @-> id @-> bool @-> ptr void @-> returning (bool)) x beforePublicKeyCommands testOnly savedHistory force canHandleSelectableInputDelegateCommand -let handleMoveCursorToStartOfLine x ~beforePublicKeyCommands ~testOnly ~savedHistory ~force ~canHandleSelectableInputDelegateCommand self = msg_send ~self ~cmd:(selector "handleMoveCursorToStartOfLine:beforePublicKeyCommands:testOnly:savedHistory:force:canHandleSelectableInputDelegateCommand:") ~typ:(bool @-> bool @-> bool @-> id @-> bool @-> ptr void @-> returning (bool)) x beforePublicKeyCommands testOnly savedHistory force canHandleSelectableInputDelegateCommand -let handleMoveResponderWithShift x self = msg_send ~self ~cmd:(selector "handleMoveResponderWithShift:") ~typ:(bool @-> returning (bool)) x -let handleObserverCallback self = msg_send ~self ~cmd:(selector "handleObserverCallback") ~typ:(returning (void)) -let handleReplacement x ~forSpaceAndInput self = msg_send ~self ~cmd:(selector "handleReplacement:forSpaceAndInput:") ~typ:(id @-> id @-> returning (id)) x forSpaceAndInput -let handleReturnKey x self = msg_send ~self ~cmd:(selector "handleReturnKey:") ~typ:(bool @-> returning (bool)) x -let handleStringInput x ~withFlags ~withInputManagerHint ~executionContext self = msg_send ~self ~cmd:(selector "handleStringInput:withFlags:withInputManagerHint:executionContext:") ~typ:(id @-> ullong @-> id @-> id @-> returning (void)) x (ULLong.of_int withFlags) withInputManagerHint executionContext -let handleTabWithShift x self = msg_send ~self ~cmd:(selector "handleTabWithShift:") ~typ:(bool @-> returning (bool)) x -let handleTabWithShift1 x ~beforePublicKeyCommands self = msg_send ~self ~cmd:(selector "handleTabWithShift:beforePublicKeyCommands:") ~typ:(bool @-> bool @-> returning (bool)) x beforePublicKeyCommands -let handleTabWithShift2 x ~beforePublicKeyCommands ~isMoveAction ~testOnly self = msg_send ~self ~cmd:(selector "handleTabWithShift:beforePublicKeyCommands:isMoveAction:testOnly:") ~typ:(bool @-> bool @-> bool @-> bool @-> returning (bool)) x beforePublicKeyCommands isMoveAction testOnly -let handleUpdateLastUsedInputModeAction x self = msg_send ~self ~cmd:(selector "handleUpdateLastUsedInputModeAction:") ~typ:(id @-> returning (void)) x -let handleVerticalArrow x ~shiftDown ~beforePublicKeyCommands ~testOnly ~isVerticalCandidate ~hasCandidatesForTypedInput ~inputDelegateCommandEnabled ~canHandleInputDelegateCommand ~savedHistory ~keyCommandTypeHandled self = msg_send ~self ~cmd:(selector "handleVerticalArrow:shiftDown:beforePublicKeyCommands:testOnly:isVerticalCandidate:hasCandidatesForTypedInput:inputDelegateCommandEnabled:canHandleInputDelegateCommand:savedHistory:keyCommandTypeHandled:") ~typ:(bool @-> bool @-> bool @-> bool @-> bool @-> bool @-> bool @-> ptr void @-> id @-> ptr (ullong) @-> returning (bool)) x shiftDown beforePublicKeyCommands testOnly isVerticalCandidate hasCandidatesForTypedInput inputDelegateCommandEnabled canHandleInputDelegateCommand savedHistory keyCommandTypeHandled -let handleWebViewCredentialsSaveForWebsiteURL x ~user ~password ~passwordIsAutoGenerated self = msg_send ~self ~cmd:(selector "handleWebViewCredentialsSaveForWebsiteURL:user:password:passwordIsAutoGenerated:") ~typ:(id @-> id @-> id @-> bool @-> returning (void)) x user password passwordIsAutoGenerated -let handlingKeyCommandFromHardwareKeyboard self = msg_send ~self ~cmd:(selector "handlingKeyCommandFromHardwareKeyboard") ~typ:(returning (bool)) -let hardwareKeyboardAttached self = msg_send ~self ~cmd:(selector "hardwareKeyboardAttached") ~typ:(returning (bool)) -let hardwareKeyboardAvailabilityChanged self = msg_send ~self ~cmd:(selector "hardwareKeyboardAvailabilityChanged") ~typ:(returning (void)) -let hardwareKeyboardAvailabilityDidChange x self = msg_send ~self ~cmd:(selector "hardwareKeyboardAvailabilityDidChange:") ~typ:(id @-> returning (void)) x -let hardwareKeyboardIsSeen self = msg_send ~self ~cmd:(selector "hardwareKeyboardIsSeen") ~typ:(returning (bool)) -let hardwareKeyboardsSeenPreference self = msg_send ~self ~cmd:(selector "hardwareKeyboardsSeenPreference") ~typ:(returning (id)) -let hasDelegate self = msg_send ~self ~cmd:(selector "hasDelegate") ~typ:(returning (bool)) -let hasEditableMarkedText self = msg_send ~self ~cmd:(selector "hasEditableMarkedText") ~typ:(returning (bool)) -let hasMarkedText self = msg_send ~self ~cmd:(selector "hasMarkedText") ~typ:(returning (bool)) -let hideAccessoryViewsDuringSplit self = msg_send ~self ~cmd:(selector "hideAccessoryViewsDuringSplit") ~typ:(returning (bool)) -let hideInternationalKeyIntroductionIfNeeded self = msg_send ~self ~cmd:(selector "hideInternationalKeyIntroductionIfNeeded") ~typ:(returning (void)) -let hideKeyboard self = msg_send ~self ~cmd:(selector "hideKeyboard") ~typ:(returning (void)) -let hideKeyboardIgnoringHardwareLayouts x self = msg_send ~self ~cmd:(selector "hideKeyboardIgnoringHardwareLayouts:") ~typ:(bool @-> returning (void)) x -let hideKeyboardWithoutPreflightChecks self = msg_send ~self ~cmd:(selector "hideKeyboardWithoutPreflightChecks") ~typ:(returning (void)) -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let implProxy self = msg_send ~self ~cmd:(selector "implProxy") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithFrame' x ~forCustomInputView self = msg_send ~self ~cmd:(selector "initWithFrame:forCustomInputView:") ~typ:(CGRect.t @-> bool @-> returning (id)) x forCustomInputView -let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning (id)) -let inputDelegateManager self = msg_send ~self ~cmd:(selector "inputDelegateManager") ~typ:(returning (id)) -let inputEventForInputString x self = msg_send ~self ~cmd:(selector "inputEventForInputString:") ~typ:(id @-> returning (id)) x -let inputForMarkedText self = msg_send ~self ~cmd:(selector "inputForMarkedText") ~typ:(returning (id)) -let inputManager self = msg_send ~self ~cmd:(selector "inputManager") ~typ:(returning (id)) -let inputManagerDidGenerateAutocorrections x ~executionContext self = msg_send ~self ~cmd:(selector "inputManagerDidGenerateAutocorrections:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let inputManagerDidGenerateAutocorrections' x ~forPredictiveInput ~executionContext self = msg_send ~self ~cmd:(selector "inputManagerDidGenerateAutocorrections:forPredictiveInput:executionContext:") ~typ:(id @-> id @-> id @-> returning (void)) x forPredictiveInput executionContext -let inputManagerDidGenerateCandidatesForRequest x ~resultSet self = msg_send ~self ~cmd:(selector "inputManagerDidGenerateCandidatesForRequest:resultSet:") ~typ:(id @-> id @-> returning (void)) x resultSet -let inputManagerState self = msg_send ~self ~cmd:(selector "inputManagerState") ~typ:(returning (id)) -let inputModeLastUsedPreference self = msg_send ~self ~cmd:(selector "inputModeLastUsedPreference") ~typ:(returning (id)) -let inputModePreference self = msg_send ~self ~cmd:(selector "inputModePreference") ~typ:(returning (id)) -let inputOverlayContainer self = msg_send ~self ~cmd:(selector "inputOverlayContainer") ~typ:(returning (id)) -let inputOverlayContainerForCandidateView x self = msg_send ~self ~cmd:(selector "inputOverlayContainerForCandidateView:") ~typ:(bool @-> returning (id)) x -let inputStringFromPhraseBoundary self = msg_send ~self ~cmd:(selector "inputStringFromPhraseBoundary") ~typ:(returning (id)) -let inputSystemSourceSession self = msg_send ~self ~cmd:(selector "inputSystemSourceSession") ~typ:(returning (id)) -let inputWordForTerminatorAtSelection self = msg_send ~self ~cmd:(selector "inputWordForTerminatorAtSelection") ~typ:(returning (id)) -let insertAttributedText x self = msg_send ~self ~cmd:(selector "insertAttributedText:") ~typ:(id @-> returning (void)) x -let insertText x ~withAlternativePredictions self = msg_send ~self ~cmd:(selector "insertText:withAlternativePredictions:") ~typ:(id @-> id @-> returning (void)) x withAlternativePredictions -let insertTextIfShould x self = msg_send ~self ~cmd:(selector "insertTextIfShould:") ~typ:(id @-> returning (bool)) x -let insertTextSuggestionCandidate x self = msg_send ~self ~cmd:(selector "insertTextSuggestionCandidate:") ~typ:(id @-> returning (void)) x -let insertedEmojiFromPopover x ~selectionMethod self = msg_send ~self ~cmd:(selector "insertedEmojiFromPopover:selectionMethod:") ~typ:(id @-> id @-> returning (void)) x selectionMethod -let insertsSpaceAfterPredictiveInput self = msg_send ~self ~cmd:(selector "insertsSpaceAfterPredictiveInput") ~typ:(returning (bool)) -let internationalKeyDisplayStringOnEmojiKeyboard self = msg_send ~self ~cmd:(selector "internationalKeyDisplayStringOnEmojiKeyboard") ~typ:(returning (id)) -let internationalKeyIntroductionView self = msg_send ~self ~cmd:(selector "internationalKeyIntroductionView") ~typ:(returning (id)) -let isAttachedHardwareKeyboard self = msg_send ~self ~cmd:(selector "isAttachedHardwareKeyboard") ~typ:(returning (id)) -let isAutoDeleteActive self = msg_send ~self ~cmd:(selector "isAutoDeleteActive") ~typ:(returning (bool)) -let isAutoFillMode self = msg_send ~self ~cmd:(selector "isAutoFillMode") ~typ:(returning (bool)) -let isAutoShifted self = msg_send ~self ~cmd:(selector "isAutoShifted") ~typ:(returning (bool)) -let isAutofillPrediction self = msg_send ~self ~cmd:(selector "isAutofillPrediction") ~typ:(returning (bool)) -let isCallingInputDelegate self = msg_send ~self ~cmd:(selector "isCallingInputDelegate") ~typ:(returning (bool)) -let isCallingTextChangedDuringInputModeSwitch self = msg_send ~self ~cmd:(selector "isCallingTextChangedDuringInputModeSwitch") ~typ:(returning (bool)) -let isCapsLockASCIIToggle self = msg_send ~self ~cmd:(selector "isCapsLockASCIIToggle") ~typ:(returning (bool)) -let isCapsLockSwitchEnabled self = msg_send ~self ~cmd:(selector "isCapsLockSwitchEnabled") ~typ:(returning (bool)) -let isCurrentEditResponderInEditingMode self = msg_send ~self ~cmd:(selector "isCurrentEditResponderInEditingMode") ~typ:(returning (bool)) -let isDefaultPrediction self = msg_send ~self ~cmd:(selector "isDefaultPrediction") ~typ:(returning (bool)) -let isFloatingLocked self = msg_send ~self ~cmd:(selector "isFloatingLocked") ~typ:(returning (bool)) -let isInHardwareKeyboardMode self = msg_send ~self ~cmd:(selector "isInHardwareKeyboardMode") ~typ:(returning (bool)) -let isKeyboardPopoverPresented self = msg_send ~self ~cmd:(selector "isKeyboardPopoverPresented") ~typ:(returning (bool)) -let isKeyboardPopoverVisibleOrDismissing self = msg_send ~self ~cmd:(selector "isKeyboardPopoverVisibleOrDismissing") ~typ:(returning (bool)) -let isLongPress self = msg_send ~self ~cmd:(selector "isLongPress") ~typ:(returning (bool)) -let isMemberOfAutofillGroup x self = msg_send ~self ~cmd:(selector "isMemberOfAutofillGroup:") ~typ:(id @-> returning (bool)) x -let isMemberOfPossibleAutofillGroup x self = msg_send ~self ~cmd:(selector "isMemberOfPossibleAutofillGroup:") ~typ:(id @-> returning (bool)) x -let isMinimized self = msg_send ~self ~cmd:(selector "isMinimized") ~typ:(returning (bool)) -let isOutOfProcess self = msg_send ~self ~cmd:(selector "isOutOfProcess") ~typ:(returning (bool)) -let isPredictionViewControllerVisible self = msg_send ~self ~cmd:(selector "isPredictionViewControllerVisible") ~typ:(returning (bool)) -let isRTIClient self = msg_send ~self ~cmd:(selector "isRTIClient") ~typ:(returning (bool)) -let isRotating self = msg_send ~self ~cmd:(selector "isRotating") ~typ:(returning (bool)) -let isSelectionAtSentenceAutoshiftBoundary self = msg_send ~self ~cmd:(selector "isSelectionAtSentenceAutoshiftBoundary") ~typ:(returning (bool)) -let isShiftKeyBeingHeld self = msg_send ~self ~cmd:(selector "isShiftKeyBeingHeld") ~typ:(returning (bool)) -let isShiftLocked self = msg_send ~self ~cmd:(selector "isShiftLocked") ~typ:(returning (bool)) -let isShifted self = msg_send ~self ~cmd:(selector "isShifted") ~typ:(returning (bool)) -let isTrackpadMode self = msg_send ~self ~cmd:(selector "isTrackpadMode") ~typ:(returning (bool)) -let isUsingDictationLayout self = msg_send ~self ~cmd:(selector "isUsingDictationLayout") ~typ:(returning (bool)) -let jumpToCompositions self = msg_send ~self ~cmd:(selector "jumpToCompositions") ~typ:(returning (void)) -let keyActivated self = msg_send ~self ~cmd:(selector "keyActivated") ~typ:(returning (void)) -let keyDeactivated self = msg_send ~self ~cmd:(selector "keyDeactivated") ~typ:(returning (void)) -let keyboardDidHide x self = msg_send ~self ~cmd:(selector "keyboardDidHide:") ~typ:(id @-> returning (void)) x -let keyboardDrawsOpaque self = msg_send ~self ~cmd:(selector "keyboardDrawsOpaque") ~typ:(returning (bool)) -let keyboardIsKeyPad self = msg_send ~self ~cmd:(selector "keyboardIsKeyPad") ~typ:(returning (bool)) -let keyboardState self = msg_send ~self ~cmd:(selector "keyboardState") ~typ:(returning (id)) -let keyboardsExpandedPreference self = msg_send ~self ~cmd:(selector "keyboardsExpandedPreference") ~typ:(returning (bool)) -let keyplaneView self = msg_send ~self ~cmd:(selector "keyplaneView") ~typ:(returning (id)) -let lastChooseSupplementalItemToInsertCallbackIdentifier self = msg_send ~self ~cmd:(selector "lastChooseSupplementalItemToInsertCallbackIdentifier") ~typ:(returning (ullong)) -let lastMatchedSupplementalCandidate self = msg_send ~self ~cmd:(selector "lastMatchedSupplementalCandidate") ~typ:(returning (id)) -let lastTouchDownTimestamp self = msg_send ~self ~cmd:(selector "lastTouchDownTimestamp") ~typ:(returning (double)) -let layoutDidResize self = msg_send ~self ~cmd:(selector "layoutDidResize") ~typ:(returning (void)) -let layoutForKeyHitTest self = msg_send ~self ~cmd:(selector "layoutForKeyHitTest") ~typ:(returning (id)) -let layoutHasChanged self = msg_send ~self ~cmd:(selector "layoutHasChanged") ~typ:(returning (void)) -let layoutIsResizing self = msg_send ~self ~cmd:(selector "layoutIsResizing") ~typ:(returning (bool)) -let layoutState self = msg_send ~self ~cmd:(selector "layoutState") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let liveConversionEnabled self = msg_send ~self ~cmd:(selector "liveConversionEnabled") ~typ:(returning (bool)) -let logHandwritingData self = msg_send ~self ~cmd:(selector "logHandwritingData") ~typ:(returning (void)) -let longPressAction self = msg_send ~self ~cmd:(selector "longPressAction") ~typ:(returning (void)) -let longPressAction' x self = msg_send ~self ~cmd:(selector "longPressAction:") ~typ:(id @-> returning (void)) x -let lookUpResponderChainForCustomInputView self = msg_send ~self ~cmd:(selector "lookUpResponderChainForCustomInputView") ~typ:(returning (void)) -let markedText self = msg_send ~self ~cmd:(selector "markedText") ~typ:(returning (id)) -let markedTextOverlay self = msg_send ~self ~cmd:(selector "markedTextOverlay") ~typ:(returning (id)) -let maxNumberOfProactiveCells self = msg_send ~self ~cmd:(selector "maxNumberOfProactiveCells") ~typ:(returning (ullong)) -let maximizing self = msg_send ~self ~cmd:(selector "maximizing") ~typ:(returning (bool)) -let minimumTouchesForTranslation self = msg_send ~self ~cmd:(selector "minimumTouchesForTranslation") ~typ:(returning (ullong)) -let moveCursorByAmount x self = msg_send ~self ~cmd:(selector "moveCursorByAmount:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let moveCursorLeftShifted x self = msg_send ~self ~cmd:(selector "moveCursorLeftShifted:") ~typ:(bool @-> returning (void)) x -let moveCursorRightShifted x self = msg_send ~self ~cmd:(selector "moveCursorRightShifted:") ~typ:(bool @-> returning (void)) x -let movePhraseBoundaryToDirection x ~granularity self = msg_send ~self ~cmd:(selector "movePhraseBoundaryToDirection:granularity:") ~typ:(llong @-> llong @-> returning (void)) (LLong.of_int x) (LLong.of_int granularity) -let needAutofill self = msg_send ~self ~cmd:(selector "needAutofill") ~typ:(returning (llong)) -let needAutofillCandidate x self = msg_send ~self ~cmd:(selector "needAutofillCandidate:") ~typ:(id @-> returning (llong)) x -let needAutofillLogin self = msg_send ~self ~cmd:(selector "needAutofillLogin") ~typ:(returning (bool)) -let needOneTimeCodeAutofill self = msg_send ~self ~cmd:(selector "needOneTimeCodeAutofill") ~typ:(returning (bool)) -let needsToDeferUpdateTextCandidateView self = msg_send ~self ~cmd:(selector "needsToDeferUpdateTextCandidateView") ~typ:(returning (bool)) -let nextCharacterIsWordCharacter self = msg_send ~self ~cmd:(selector "nextCharacterIsWordCharacter") ~typ:(returning (bool)) -let nextInputWouldStartSentence self = msg_send ~self ~cmd:(selector "nextInputWouldStartSentence") ~typ:(returning (bool)) -let noContent self = msg_send ~self ~cmd:(selector "noContent") ~typ:(returning (bool)) -let notifyShiftState self = msg_send ~self ~cmd:(selector "notifyShiftState") ~typ:(returning (void)) -let pasteOperation self = msg_send ~self ~cmd:(selector "pasteOperation") ~typ:(returning (void)) -let pendingSupplementalCandidateToInsert self = msg_send ~self ~cmd:(selector "pendingSupplementalCandidateToInsert") ~typ:(returning (id)) -let performBlockWithTextInputChangesIgnoredForNonMacOS x self = msg_send ~self ~cmd:(selector "performBlockWithTextInputChangesIgnoredForNonMacOS:") ~typ:(ptr void @-> returning (void)) x -let performDelete self = msg_send ~self ~cmd:(selector "performDelete") ~typ:(returning (void)) -let performHitTestForTouchEvent x ~executionContextPassingNSNumber self = msg_send ~self ~cmd:(selector "performHitTestForTouchEvent:executionContextPassingNSNumber:") ~typ:(id @-> id @-> returning (void)) x executionContextPassingNSNumber -let performHitTestForTouchEvents x ~executionContextPassingNSNumber self = msg_send ~self ~cmd:(selector "performHitTestForTouchEvents:executionContextPassingNSNumber:") ~typ:(id @-> id @-> returning (void)) x executionContextPassingNSNumber -let performKeyBehaviorCommitInline self = msg_send ~self ~cmd:(selector "performKeyBehaviorCommitInline") ~typ:(returning (void)) -let performKeyBehaviorConfirm self = msg_send ~self ~cmd:(selector "performKeyBehaviorConfirm") ~typ:(returning (void)) -let performKeyBehaviorConfirmFirstCandidate self = msg_send ~self ~cmd:(selector "performKeyBehaviorConfirmFirstCandidate") ~typ:(returning (void)) -let performKeyboardOutput x self = msg_send ~self ~cmd:(selector "performKeyboardOutput:") ~typ:(id @-> returning (void)) x -let performKeyboardOutput1 x ~checkingDelegate self = msg_send ~self ~cmd:(selector "performKeyboardOutput:checkingDelegate:") ~typ:(id @-> bool @-> returning (void)) x checkingDelegate -let performKeyboardOutput2 x ~checkingDelegate ~forwardToRemoteInputSource self = msg_send ~self ~cmd:(selector "performKeyboardOutput:checkingDelegate:forwardToRemoteInputSource:") ~typ:(id @-> bool @-> bool @-> returning (void)) x checkingDelegate forwardToRemoteInputSource -let performKeyboardOutputAsInputViewControllerOutput x self = msg_send ~self ~cmd:(selector "performKeyboardOutputAsInputViewControllerOutput:") ~typ:(id @-> returning (void)) x -let performKeyboardOutputAsInputViewControllerOutput' x ~textInputSource self = msg_send ~self ~cmd:(selector "performKeyboardOutputAsInputViewControllerOutput:textInputSource:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int textInputSource) -let performKeyboardOutputAsRTIClient x self = msg_send ~self ~cmd:(selector "performKeyboardOutputAsRTIClient:") ~typ:(id @-> returning (void)) x -let performKeyboardOutputInfo x self = msg_send ~self ~cmd:(selector "performKeyboardOutputInfo:") ~typ:(id @-> returning (void)) x -let performKeyboardOutputOnInputSourceSession x self = msg_send ~self ~cmd:(selector "performKeyboardOutputOnInputSourceSession:") ~typ:(ptr void @-> returning (void)) x -let performOperations x ~withTextInputSource self = msg_send ~self ~cmd:(selector "performOperations:withTextInputSource:") ~typ:(ptr void @-> llong @-> returning (void)) x (LLong.of_int withTextInputSource) -let performReturn self = msg_send ~self ~cmd:(selector "performReturn") ~typ:(returning (void)) -let performSendCurrentLocation self = msg_send ~self ~cmd:(selector "performSendCurrentLocation") ~typ:(returning (void)) -let performTextOperationActionSelector x self = msg_send ~self ~cmd:(selector "performTextOperationActionSelector:") ~typ:(_SEL @-> returning (void)) x -let phraseBoundary self = msg_send ~self ~cmd:(selector "phraseBoundary") ~typ:(returning (ullong)) -let physicalKeyboardEventWithInput x ~inputFlags self = msg_send ~self ~cmd:(selector "physicalKeyboardEventWithInput:inputFlags:") ~typ:(id @-> int @-> returning (id)) x inputFlags -let playDeleteKeyFeedback x self = msg_send ~self ~cmd:(selector "playDeleteKeyFeedback:") ~typ:(bool @-> returning (void)) x -let pointInside x ~forEvent self = msg_send ~self ~cmd:(selector "pointInside:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (bool)) x forEvent -let pointInside' x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let postInputResponderCapabilitiesChangedNotification self = msg_send ~self ~cmd:(selector "postInputResponderCapabilitiesChangedNotification") ~typ:(returning (void)) -let postInputViewControllerShouldUpdateNotification x self = msg_send ~self ~cmd:(selector "postInputViewControllerShouldUpdateNotification:") ~typ:(id @-> returning (void)) x -let predictionFromPreference self = msg_send ~self ~cmd:(selector "predictionFromPreference") ~typ:(returning (bool)) -let preferFallbackAutofillGroup self = msg_send ~self ~cmd:(selector "preferFallbackAutofillGroup") ~typ:(returning (bool)) -let preferredCandidateViewTypeForCandidateResultSet x self = msg_send ~self ~cmd:(selector "preferredCandidateViewTypeForCandidateResultSet:") ~typ:(id @-> returning (llong)) x -let prepareForFloatingTransition x self = msg_send ~self ~cmd:(selector "prepareForFloatingTransition:") ~typ:(bool @-> returning (void)) x -let prepareForGeometryChange self = msg_send ~self ~cmd:(selector "prepareForGeometryChange") ~typ:(returning (void)) -let prepareForSelectionChange self = msg_send ~self ~cmd:(selector "prepareForSelectionChange") ~typ:(returning (void)) -let prepareKeyboardInputModeFromPreferences x self = msg_send ~self ~cmd:(selector "prepareKeyboardInputModeFromPreferences:") ~typ:(id @-> returning (void)) x -let prepareLayoutForInterfaceOrientation x self = msg_send ~self ~cmd:(selector "prepareLayoutForInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let presentContinuousPathIntroductionView self = msg_send ~self ~cmd:(selector "presentContinuousPathIntroductionView") ~typ:(returning (void)) -let presentEditingIntroductionView self = msg_send ~self ~cmd:(selector "presentEditingIntroductionView") ~typ:(returning (void)) -let presentEmojiPopoverViaTrigger x ~completion self = msg_send ~self ~cmd:(selector "presentEmojiPopoverViaTrigger:completion:") ~typ:(id @-> ptr void @-> returning (void)) x completion -let presentKeyboardPopoverWithInputMode x ~completion self = msg_send ~self ~cmd:(selector "presentKeyboardPopoverWithInputMode:completion:") ~typ:(id @-> ptr void @-> returning (void)) x completion -let presentationControllerDidDismiss x self = msg_send ~self ~cmd:(selector "presentationControllerDidDismiss:") ~typ:(id @-> returning (void)) x -let presentationControllerShouldDismiss x self = msg_send ~self ~cmd:(selector "presentationControllerShouldDismiss:") ~typ:(id @-> returning (bool)) x -let prewarmsPredictiveCandidates self = msg_send ~self ~cmd:(selector "prewarmsPredictiveCandidates") ~typ:(returning (bool)) -let proceedShouldReturnIfNeededForASP self = msg_send ~self ~cmd:(selector "proceedShouldReturnIfNeededForASP") ~typ:(returning (void)) -let processPayloadInfo x self = msg_send ~self ~cmd:(selector "processPayloadInfo:") ~typ:(id @-> returning (void)) x -let provideAutoFillTypingUpdatesIfNecessary self = msg_send ~self ~cmd:(selector "provideAutoFillTypingUpdatesIfNecessary") ~typ:(returning (void)) -let pushAutocorrections x ~requestToken self = msg_send ~self ~cmd:(selector "pushAutocorrections:requestToken:") ~typ:(id @-> id @-> returning (void)) x requestToken -let queueDelayedTask x self = msg_send ~self ~cmd:(selector "queueDelayedTask:") ~typ:(ptr void @-> returning (void)) x -let receivedCandidatesInCurrentInputMode self = msg_send ~self ~cmd:(selector "receivedCandidatesInCurrentInputMode") ~typ:(returning (bool)) -let recomputeActiveInputModesWithExtensions x self = msg_send ~self ~cmd:(selector "recomputeActiveInputModesWithExtensions:") ~typ:(bool @-> returning (void)) x -let recomputeActiveInputModesWithExtensions' x ~allowNonLinguisticInputModes self = msg_send ~self ~cmd:(selector "recomputeActiveInputModesWithExtensions:allowNonLinguisticInputModes:") ~typ:(bool @-> bool @-> returning (void)) x allowNonLinguisticInputModes -let refreshAutofillModeIfNecessary self = msg_send ~self ~cmd:(selector "refreshAutofillModeIfNecessary") ~typ:(returning (void)) -let refreshKeyboardState self = msg_send ~self ~cmd:(selector "refreshKeyboardState") ~typ:(returning (void)) -let refreshKeyboardStateUpdatingSecureCandidateRenderTraits x self = msg_send ~self ~cmd:(selector "refreshKeyboardStateUpdatingSecureCandidateRenderTraits:") ~typ:(bool @-> returning (void)) x -let refreshRivenPreferences self = msg_send ~self ~cmd:(selector "refreshRivenPreferences") ~typ:(returning (void)) -let refreshSecureCandidatesIfNecessary self = msg_send ~self ~cmd:(selector "refreshSecureCandidatesIfNecessary") ~typ:(returning (void)) -let reinitializeAfterInputModeSwitch x self = msg_send ~self ~cmd:(selector "reinitializeAfterInputModeSwitch:") ~typ:(bool @-> returning (void)) x -let rejectAutocorrection x self = msg_send ~self ~cmd:(selector "rejectAutocorrection:") ~typ:(id @-> returning (void)) x -let releaseInputManager self = msg_send ~self ~cmd:(selector "releaseInputManager") ~typ:(returning (void)) -let releaseInputManagerIfInactive self = msg_send ~self ~cmd:(selector "releaseInputManagerIfInactive") ~typ:(returning (void)) -let releaseSuppressUpdateCandidateView self = msg_send ~self ~cmd:(selector "releaseSuppressUpdateCandidateView") ~typ:(returning (void)) -let reloadCurrentInputMode self = msg_send ~self ~cmd:(selector "reloadCurrentInputMode") ~typ:(returning (void)) -let remoteControlReceivedWithEvent x self = msg_send ~self ~cmd:(selector "remoteControlReceivedWithEvent:") ~typ:(id @-> returning (void)) x -let remoteTextEditingMetadata self = msg_send ~self ~cmd:(selector "remoteTextEditingMetadata") ~typ:(returning (id)) -let remoteTextInputPartner self = msg_send ~self ~cmd:(selector "remoteTextInputPartner") ~typ:(returning (id)) -let removeASPVisualEffectsIfNecessary x self = msg_send ~self ~cmd:(selector "removeASPVisualEffectsIfNecessary:") ~typ:(id @-> returning (void)) x -let removeAllDynamicDictionaries self = msg_send ~self ~cmd:(selector "removeAllDynamicDictionaries") ~typ:(returning (void)) -let removeAutocorrectPrompt self = msg_send ~self ~cmd:(selector "removeAutocorrectPrompt") ~typ:(returning (void)) -let removeAutocorrectPromptAndCandidateList self = msg_send ~self ~cmd:(selector "removeAutocorrectPromptAndCandidateList") ~typ:(returning (void)) -let removeAutocorrection self = msg_send ~self ~cmd:(selector "removeAutocorrection") ~typ:(returning (void)) -let removeCandidateList self = msg_send ~self ~cmd:(selector "removeCandidateList") ~typ:(returning (void)) -let removeCapsLockDelayOverride self = msg_send ~self ~cmd:(selector "removeCapsLockDelayOverride") ~typ:(returning (void)) -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let removeRecentInput x ~completionHandler self = msg_send ~self ~cmd:(selector "removeRecentInput:completionHandler:") ~typ:(id @-> ptr void @-> returning (void)) x completionHandler -let removeSpaceAfterEmojiForInputString x self = msg_send ~self ~cmd:(selector "removeSpaceAfterEmojiForInputString:") ~typ:(id @-> returning (void)) x -let removeSupplementalLexicon x self = msg_send ~self ~cmd:(selector "removeSupplementalLexicon:") ~typ:(id @-> returning (void)) x -let replaceAllTextInResponder x ~withText self = msg_send ~self ~cmd:(selector "replaceAllTextInResponder:withText:") ~typ:(id @-> id @-> returning (void)) x withText -let replaceText x self = msg_send ~self ~cmd:(selector "replaceText:") ~typ:(id @-> returning (void)) x -let replacementsFromSelectedText self = msg_send ~self ~cmd:(selector "replacementsFromSelectedText") ~typ:(returning (id)) -let requestedInteractionModel self = msg_send ~self ~cmd:(selector "requestedInteractionModel") ~typ:(returning (ullong)) -let resetInputDelegate self = msg_send ~self ~cmd:(selector "resetInputDelegate") ~typ:(returning (void)) -let responderForSendCurrentLocation self = msg_send ~self ~cmd:(selector "responderForSendCurrentLocation") ~typ:(returning (id)) -let responderStylingTraitsForceEditingMask x self = msg_send ~self ~cmd:(selector "responderStylingTraitsForceEditingMask:") ~typ:(bool @-> returning (id)) x -let responseContextDidChange self = msg_send ~self ~cmd:(selector "responseContextDidChange") ~typ:(returning (void)) -let restoreFocusFromEntryPoint x self = msg_send ~self ~cmd:(selector "restoreFocusFromEntryPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let returnKeyDisplayName self = msg_send ~self ~cmd:(selector "returnKeyDisplayName") ~typ:(returning (id)) -let returnKeyEnabled self = msg_send ~self ~cmd:(selector "returnKeyEnabled") ~typ:(returning (bool)) -let returnKeyType self = msg_send ~self ~cmd:(selector "returnKeyType") ~typ:(returning (int)) -let revealHiddenCandidates self = msg_send ~self ~cmd:(selector "revealHiddenCandidates") ~typ:(returning (void)) -let rivenSplitLock self = msg_send ~self ~cmd:(selector "rivenSplitLock") ~typ:(returning (bool)) -let saveInputModesPreference x self = msg_send ~self ~cmd:(selector "saveInputModesPreference:") ~typ:(id @-> returning (void)) x -let scaleCurrentForceFrom x ~to_ self = msg_send ~self ~cmd:(selector "scaleCurrentForceFrom:to:") ~typ:(double @-> double @-> returning (double)) x to_ -let scheduleReplacementsAfterDeletionToEndOfWord self = msg_send ~self ~cmd:(selector "scheduleReplacementsAfterDeletionToEndOfWord") ~typ:(returning (void)) -let scheduleReplacementsWithOptions x self = msg_send ~self ~cmd:(selector "scheduleReplacementsWithOptions:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let searchStringForMarkedText self = msg_send ~self ~cmd:(selector "searchStringForMarkedText") ~typ:(returning (id)) -let selectionDidChange x self = msg_send ~self ~cmd:(selector "selectionDidChange:") ~typ:(id @-> returning (void)) x -let selectionScrolling x self = msg_send ~self ~cmd:(selector "selectionScrolling:") ~typ:(id @-> returning (void)) x -let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning (id)) -let selectionWillChange x self = msg_send ~self ~cmd:(selector "selectionWillChange:") ~typ:(id @-> returning (void)) x -let sendCallbacksForPostCorrectionsRemoval self = msg_send ~self ~cmd:(selector "sendCallbacksForPostCorrectionsRemoval") ~typ:(returning (void)) -let sendCallbacksForPreCorrectionsDisplay self = msg_send ~self ~cmd:(selector "sendCallbacksForPreCorrectionsDisplay") ~typ:(returning (void)) -let serviceRole self = msg_send ~self ~cmd:(selector "serviceRole") ~typ:(returning (ullong)) -let setAlternativePredictions x self = msg_send ~self ~cmd:(selector "setAlternativePredictions:") ~typ:(id @-> returning (void)) x -let setAnimateUpdateBars x self = msg_send ~self ~cmd:(selector "setAnimateUpdateBars:") ~typ:(bool @-> returning (void)) x -let setArrowKeyHistory x self = msg_send ~self ~cmd:(selector "setArrowKeyHistory:") ~typ:(id @-> returning (void)) x -let setAttributedMarkedText x ~selectedRange ~inputString ~searchString self = msg_send ~self ~cmd:(selector "setAttributedMarkedText:selectedRange:inputString:searchString:") ~typ:(id @-> NSRange.t @-> id @-> id @-> returning (void)) x selectedRange inputString searchString -let setAutocorrectBubbleContainer x self = msg_send ~self ~cmd:(selector "setAutocorrectBubbleContainer:") ~typ:(id @-> returning (void)) x -let setAutocorrectPromptTask x self = msg_send ~self ~cmd:(selector "setAutocorrectPromptTask:") ~typ:(id @-> returning (void)) x -let setAutocorrectSpellingEnabled x self = msg_send ~self ~cmd:(selector "setAutocorrectSpellingEnabled:") ~typ:(bool @-> returning (void)) x -let setAutocorrection x self = msg_send ~self ~cmd:(selector "setAutocorrection:") ~typ:(id @-> returning (void)) x -let setAutocorrectionList x self = msg_send ~self ~cmd:(selector "setAutocorrectionList:") ~typ:(id @-> returning (void)) x -let setAutocorrectionToAcceptBeforeProgressiveCandidates x self = msg_send ~self ~cmd:(selector "setAutocorrectionToAcceptBeforeProgressiveCandidates:") ~typ:(id @-> returning (void)) x -let setAutofillController x self = msg_send ~self ~cmd:(selector "setAutofillController:") ~typ:(id @-> returning (void)) x -let setAutomaticMinimizationEnabled x self = msg_send ~self ~cmd:(selector "setAutomaticMinimizationEnabled:") ~typ:(bool @-> returning (void)) x -let setCandidateList x self = msg_send ~self ~cmd:(selector "setCandidateList:") ~typ:(id @-> returning (void)) x -let setCandidateViewOffset x self = msg_send ~self ~cmd:(selector "setCandidateViewOffset:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCandidates x self = msg_send ~self ~cmd:(selector "setCandidates:") ~typ:(id @-> returning (void)) x -let setCapsLockIfNeeded self = msg_send ~self ~cmd:(selector "setCapsLockIfNeeded") ~typ:(returning (void)) -let setCapsLockSign self = msg_send ~self ~cmd:(selector "setCapsLockSign") ~typ:(returning (void)) -let setCaretBlinks x self = msg_send ~self ~cmd:(selector "setCaretBlinks:") ~typ:(bool @-> returning (void)) x -let setCaretVisible x self = msg_send ~self ~cmd:(selector "setCaretVisible:") ~typ:(bool @-> returning (void)) x -let setChangeNotificationDisabled x self = msg_send ~self ~cmd:(selector "setChangeNotificationDisabled:") ~typ:(bool @-> returning (void)) x -let setChanged self = msg_send ~self ~cmd:(selector "setChanged") ~typ:(returning (void)) -let setChangedDelegate x self = msg_send ~self ~cmd:(selector "setChangedDelegate:") ~typ:(id @-> returning (void)) x -let setCharacterRectsForCharacterRange x self = msg_send ~self ~cmd:(selector "setCharacterRectsForCharacterRange:") ~typ:(id @-> returning (void)) x -let setCommittingCandidate x self = msg_send ~self ~cmd:(selector "setCommittingCandidate:") ~typ:(bool @-> returning (void)) x -let setCorrectionLearningAllowed x self = msg_send ~self ~cmd:(selector "setCorrectionLearningAllowed:") ~typ:(bool @-> returning (void)) x -let setCurrentCandidateRequest x self = msg_send ~self ~cmd:(selector "setCurrentCandidateRequest:") ~typ:(id @-> returning (void)) x -let setCursorAssertion x self = msg_send ~self ~cmd:(selector "setCursorAssertion:") ~typ:(id @-> returning (void)) x -let setDefaultTextInputTraits x self = msg_send ~self ~cmd:(selector "setDefaultTextInputTraits:") ~typ:(id @-> returning (void)) x -let setDeferredDidSetDelegateAction x self = msg_send ~self ~cmd:(selector "setDeferredDidSetDelegateAction:") ~typ:(id @-> returning (void)) x -let setDelayedCandidateRequest x self = msg_send ~self ~cmd:(selector "setDelayedCandidateRequest:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDelegate' x ~force self = msg_send ~self ~cmd:(selector "setDelegate:force:") ~typ:(id @-> bool @-> returning (void)) x force -let setDeleteWordLastDelete x self = msg_send ~self ~cmd:(selector "setDeleteWordLastDelete:") ~typ:(double @-> returning (void)) x -let setDeletedString x self = msg_send ~self ~cmd:(selector "setDeletedString:") ~typ:(id @-> returning (void)) x -let setDisableSmartInsertDelete x self = msg_send ~self ~cmd:(selector "setDisableSmartInsertDelete:") ~typ:(bool @-> returning (void)) x -let setDocumentState x self = msg_send ~self ~cmd:(selector "setDocumentState:") ~typ:(id @-> returning (void)) x -let setDocumentStateForAutocorrection x self = msg_send ~self ~cmd:(selector "setDocumentStateForAutocorrection:") ~typ:(id @-> returning (void)) x -let setEditingTraitsMarkedDirty x self = msg_send ~self ~cmd:(selector "setEditingTraitsMarkedDirty:") ~typ:(bool @-> returning (void)) x -let setEventForCurrentWebEvent x self = msg_send ~self ~cmd:(selector "setEventForCurrentWebEvent:") ~typ:(id @-> returning (void)) x -let setExternalTask x self = msg_send ~self ~cmd:(selector "setExternalTask:") ~typ:(ptr void @-> returning (void)) x -let setFeedbackGenerator x self = msg_send ~self ~cmd:(selector "setFeedbackGenerator:") ~typ:(id @-> returning (void)) x -let setFloatingForced x self = msg_send ~self ~cmd:(selector "setFloatingForced:") ~typ:(bool @-> returning (void)) x -let setForCustomInputView x self = msg_send ~self ~cmd:(selector "setForCustomInputView:") ~typ:(bool @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setGeometryDelegate x self = msg_send ~self ~cmd:(selector "setGeometryDelegate:") ~typ:(id @-> returning (void)) x -let setGeometryIsChanging x self = msg_send ~self ~cmd:(selector "setGeometryIsChanging:") ~typ:(bool @-> returning (void)) x -let setHandlingKeyCommandFromHardwareKeyboard x self = msg_send ~self ~cmd:(selector "setHandlingKeyCommandFromHardwareKeyboard:") ~typ:(bool @-> returning (void)) x -let setHardwareKeyboardIsSeen x self = msg_send ~self ~cmd:(selector "setHardwareKeyboardIsSeen:") ~typ:(bool @-> returning (void)) x -let setHardwareKeyboardsSeenPreference x self = msg_send ~self ~cmd:(selector "setHardwareKeyboardsSeenPreference:") ~typ:(id @-> returning (void)) x -let setInHardwareKeyboardMode x self = msg_send ~self ~cmd:(selector "setInHardwareKeyboardMode:") ~typ:(bool @-> returning (void)) x -let setInHardwareKeyboardMode' x ~forceRebuild self = msg_send ~self ~cmd:(selector "setInHardwareKeyboardMode:forceRebuild:") ~typ:(bool @-> bool @-> returning (void)) x forceRebuild -let setInSplitKeyboardMode x self = msg_send ~self ~cmd:(selector "setInSplitKeyboardMode:") ~typ:(bool @-> returning (void)) x -let setInitialDirection self = msg_send ~self ~cmd:(selector "setInitialDirection") ~typ:(returning (void)) -let setInputDelegateManager x self = msg_send ~self ~cmd:(selector "setInputDelegateManager:") ~typ:(id @-> returning (void)) x -let setInputManagerFromCurrentInputMode self = msg_send ~self ~cmd:(selector "setInputManagerFromCurrentInputMode") ~typ:(returning (void)) -let setInputManagerState x self = msg_send ~self ~cmd:(selector "setInputManagerState:") ~typ:(id @-> returning (void)) x -let setInputMode x self = msg_send ~self ~cmd:(selector "setInputMode:") ~typ:(id @-> returning (void)) x -let setInputMode1 x ~userInitiated self = msg_send ~self ~cmd:(selector "setInputMode:userInitiated:") ~typ:(id @-> bool @-> returning (void)) x userInitiated -let setInputMode2 x ~userInitiated ~updateIndicator ~executionContext self = msg_send ~self ~cmd:(selector "setInputMode:userInitiated:updateIndicator:executionContext:") ~typ:(id @-> bool @-> bool @-> id @-> returning (void)) x userInitiated updateIndicator executionContext -let setInputModeFromPreferences self = msg_send ~self ~cmd:(selector "setInputModeFromPreferences") ~typ:(returning (void)) -let setInputModeToNextASCIICapableInPreferredList self = msg_send ~self ~cmd:(selector "setInputModeToNextASCIICapableInPreferredList") ~typ:(returning (void)) -let setInputModeToNextInPreferredListWithExecutionContext x self = msg_send ~self ~cmd:(selector "setInputModeToNextInPreferredListWithExecutionContext:") ~typ:(id @-> returning (void)) x -let setInputPoint x self = msg_send ~self ~cmd:(selector "setInputPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setInternationalKeyIntroductionView x self = msg_send ~self ~cmd:(selector "setInternationalKeyIntroductionView:") ~typ:(id @-> returning (void)) x -let setIsAttachedHardwareKeyboard x self = msg_send ~self ~cmd:(selector "setIsAttachedHardwareKeyboard:") ~typ:(id @-> returning (void)) x -let setIsCallingTextChangedDuringInputModeSwitch x self = msg_send ~self ~cmd:(selector "setIsCallingTextChangedDuringInputModeSwitch:") ~typ:(bool @-> returning (void)) x -let setKeyboardInputMode x ~userInitiated self = msg_send ~self ~cmd:(selector "setKeyboardInputMode:userInitiated:") ~typ:(id @-> bool @-> returning (void)) x userInitiated -let setKeyboardInputMode' x ~userInitiated ~updateIndicator ~executionContext self = msg_send ~self ~cmd:(selector "setKeyboardInputMode:userInitiated:updateIndicator:executionContext:") ~typ:(id @-> bool @-> bool @-> id @-> returning (void)) x userInitiated updateIndicator executionContext -let setKeyboardInputModeFromPreferences x self = msg_send ~self ~cmd:(selector "setKeyboardInputModeFromPreferences:") ~typ:(id @-> returning (void)) x -let setLabel x ~forKey self = msg_send ~self ~cmd:(selector "setLabel:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let setLastChooseSupplementalItemToInsertCallbackIdentifier x self = msg_send ~self ~cmd:(selector "setLastChooseSupplementalItemToInsertCallbackIdentifier:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setLastMatchedSupplementalCandidate x self = msg_send ~self ~cmd:(selector "setLastMatchedSupplementalCandidate:") ~typ:(id @-> returning (void)) x -let setLayoutAllowsContinuousPath x self = msg_send ~self ~cmd:(selector "setLayoutAllowsContinuousPath:") ~typ:(bool @-> returning (void)) x -let setLayoutForKeyHitTest x self = msg_send ~self ~cmd:(selector "setLayoutForKeyHitTest:") ~typ:(id @-> returning (void)) x -let setLayoutRenderConfig x self = msg_send ~self ~cmd:(selector "setLayoutRenderConfig:") ~typ:(id @-> returning (void)) x -let setLockFloating x self = msg_send ~self ~cmd:(selector "setLockFloating:") ~typ:(bool @-> returning (void)) x -let setMarkedText x ~selectedRange ~inputString ~searchString ~candidateOffset ~liveConversionSegments ~highlighSegmentIndex self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:inputString:searchString:candidateOffset:liveConversionSegments:highlighSegmentIndex:") ~typ:(id @-> NSRange.t @-> id @-> id @-> llong @-> id @-> ullong @-> returning (void)) x selectedRange inputString searchString (LLong.of_int candidateOffset) liveConversionSegments (ULLong.of_int highlighSegmentIndex) -let setOverrideTextInputTraits x self = msg_send ~self ~cmd:(selector "setOverrideTextInputTraits:") ~typ:(id @-> returning (void)) x -let setPendingAutofillIndex x self = msg_send ~self ~cmd:(selector "setPendingAutofillIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPendingSupplementalCandidateToInsert x self = msg_send ~self ~cmd:(selector "setPendingSupplementalCandidateToInsert:") ~typ:(id @-> returning (void)) x -let setPreviousGlobeKeyEvent x self = msg_send ~self ~cmd:(selector "setPreviousGlobeKeyEvent:") ~typ:(id @-> returning (void)) x -let setPreviousInputString x self = msg_send ~self ~cmd:(selector "setPreviousInputString:") ~typ:(id @-> returning (void)) x -let setPrewarmsPredictiveCandidates x self = msg_send ~self ~cmd:(selector "setPrewarmsPredictiveCandidates:") ~typ:(bool @-> returning (void)) x -let setReceivedCandidatesInCurrentInputMode x self = msg_send ~self ~cmd:(selector "setReceivedCandidatesInCurrentInputMode:") ~typ:(bool @-> returning (void)) x -let setRequestedInteractionModel x self = msg_send ~self ~cmd:(selector "setRequestedInteractionModel:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setReturnKeyEnabled x self = msg_send ~self ~cmd:(selector "setReturnKeyEnabled:") ~typ:(bool @-> returning (void)) x -let setRivenSplitLock x self = msg_send ~self ~cmd:(selector "setRivenSplitLock:") ~typ:(bool @-> returning (void)) x -let setSelectionWithPoint x self = msg_send ~self ~cmd:(selector "setSelectionWithPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setServiceRole x self = msg_send ~self ~cmd:(selector "setServiceRole:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setShift x self = msg_send ~self ~cmd:(selector "setShift:") ~typ:(bool @-> returning (void)) x -let setShift' x ~autoshift self = msg_send ~self ~cmd:(selector "setShift:autoshift:") ~typ:(bool @-> bool @-> returning (void)) x autoshift -let setShiftLocked x self = msg_send ~self ~cmd:(selector "setShiftLocked:") ~typ:(bool @-> returning (void)) x -let setShiftLockedForced x self = msg_send ~self ~cmd:(selector "setShiftLockedForced:") ~typ:(bool @-> returning (void)) x -let setShiftNeedsUpdate self = msg_send ~self ~cmd:(selector "setShiftNeedsUpdate") ~typ:(returning (void)) -let setShiftOffIfNeeded self = msg_send ~self ~cmd:(selector "setShiftOffIfNeeded") ~typ:(returning (void)) -let setShiftPreventAutoshift x self = msg_send ~self ~cmd:(selector "setShiftPreventAutoshift:") ~typ:(bool @-> returning (void)) x -let setShouldIgnoreTextInputChanges x self = msg_send ~self ~cmd:(selector "setShouldIgnoreTextInputChanges:") ~typ:(bool @-> returning (void)) x -let setShouldSkipCandidateSelection x self = msg_send ~self ~cmd:(selector "setShouldSkipCandidateSelection:") ~typ:(bool @-> returning (void)) x -let setShouldSkipCandidateSelection' x ~userInitiated self = msg_send ~self ~cmd:(selector "setShouldSkipCandidateSelection:userInitiated:") ~typ:(bool @-> bool @-> returning (void)) x userInitiated -let setShouldUpdateCacheOnInputModesChange x self = msg_send ~self ~cmd:(selector "setShouldUpdateCacheOnInputModesChange:") ~typ:(bool @-> returning (void)) x -let setShouldUpdateLayoutAutomatically x self = msg_send ~self ~cmd:(selector "setShouldUpdateLayoutAutomatically:") ~typ:(bool @-> returning (void)) x -let setShowInputModeIndicator x self = msg_send ~self ~cmd:(selector "setShowInputModeIndicator:") ~typ:(bool @-> returning (void)) x -let setShowsCandidateBar x self = msg_send ~self ~cmd:(selector "setShowsCandidateBar:") ~typ:(bool @-> returning (void)) x -let setShowsCandidateInline x self = msg_send ~self ~cmd:(selector "setShowsCandidateInline:") ~typ:(bool @-> returning (void)) x -let setSplit x ~animated self = msg_send ~self ~cmd:(selector "setSplit:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setSplitProgress x self = msg_send ~self ~cmd:(selector "setSplitProgress:") ~typ:(double @-> returning (void)) x -let setSuggestions x self = msg_send ~self ~cmd:(selector "setSuggestions:") ~typ:(id @-> returning (void)) x -let setSuppressUpdateAssistantView x self = msg_send ~self ~cmd:(selector "setSuppressUpdateAssistantView:") ~typ:(bool @-> returning (void)) x -let setSuppressUpdateLayout x self = msg_send ~self ~cmd:(selector "setSuppressUpdateLayout:") ~typ:(bool @-> returning (void)) x -let setSuppressUpdateShiftState x self = msg_send ~self ~cmd:(selector "setSuppressUpdateShiftState:") ~typ:(bool @-> returning (void)) x -let setTextInputChangesIgnored x self = msg_send ~self ~cmd:(selector "setTextInputChangesIgnored:") ~typ:(bool @-> returning (void)) x -let setTextSelectionController x self = msg_send ~self ~cmd:(selector "setTextSelectionController:") ~typ:(id @-> returning (void)) x -let setTextSelectionControllerFromDelegate self = msg_send ~self ~cmd:(selector "setTextSelectionControllerFromDelegate") ~typ:(returning (void)) -let setTouchEventWaitingForKeyInputEvent x self = msg_send ~self ~cmd:(selector "setTouchEventWaitingForKeyInputEvent:") ~typ:(id @-> returning (void)) x -let setTwoFingerTapTimestamp x self = msg_send ~self ~cmd:(selector "setTwoFingerTapTimestamp:") ~typ:(double @-> returning (void)) x -let setUpdateCapsLockDelayOverrideForNonTyping x self = msg_send ~self ~cmd:(selector "setUpdateCapsLockDelayOverrideForNonTyping:") ~typ:(id @-> returning (void)) x -let setUserSelectedCurrentCandidate x self = msg_send ~self ~cmd:(selector "setUserSelectedCurrentCandidate:") ~typ:(bool @-> returning (void)) x -let setUsesCandidateSelection x self = msg_send ~self ~cmd:(selector "setUsesCandidateSelection:") ~typ:(bool @-> returning (void)) x -let shiftLockPreference self = msg_send ~self ~cmd:(selector "shiftLockPreference") ~typ:(returning (bool)) -let shiftLockedEnabled self = msg_send ~self ~cmd:(selector "shiftLockedEnabled") ~typ:(returning (bool)) -let shouldAcceptCandidate x ~beforeInputString self = msg_send ~self ~cmd:(selector "shouldAcceptCandidate:beforeInputString:") ~typ:(id @-> id @-> returning (bool)) x beforeInputString -let shouldAcceptContinuousPathConversion x self = msg_send ~self ~cmd:(selector "shouldAcceptContinuousPathConversion:") ~typ:(id @-> returning (bool)) x -let shouldAllowRepeatEvent x self = msg_send ~self ~cmd:(selector "shouldAllowRepeatEvent:") ~typ:(id @-> returning (bool)) x -let shouldAllowSelectionGestures x ~atPoint ~toBegin self = msg_send ~self ~cmd:(selector "shouldAllowSelectionGestures:atPoint:toBegin:") ~typ:(bool @-> CGPoint.t @-> bool @-> returning (bool)) x atPoint toBegin -let shouldAllowTwoFingerSelectionGestureOnView x self = msg_send ~self ~cmd:(selector "shouldAllowTwoFingerSelectionGestureOnView:") ~typ:(id @-> returning (bool)) x -let shouldApplyAcceptedAutocorrection x self = msg_send ~self ~cmd:(selector "shouldApplyAcceptedAutocorrection:") ~typ:(id @-> returning (bool)) x -let shouldDeleteAutospaceBeforeTerminator x self = msg_send ~self ~cmd:(selector "shouldDeleteAutospaceBeforeTerminator:") ~typ:(id @-> returning (bool)) x -let shouldEnableShiftForDeletedCharacter x self = msg_send ~self ~cmd:(selector "shouldEnableShiftForDeletedCharacter:") ~typ:(uint @-> returning (bool)) x -let shouldExtendLongPressAction x self = msg_send ~self ~cmd:(selector "shouldExtendLongPressAction:") ~typ:(id @-> returning (double)) x -let shouldForwardInsertSpaceAfterAcceptingPredictiveInput x self = msg_send ~self ~cmd:(selector "shouldForwardInsertSpaceAfterAcceptingPredictiveInput:") ~typ:(id @-> returning (bool)) x -let shouldGenerateCandidatesAfterSelectionChange self = msg_send ~self ~cmd:(selector "shouldGenerateCandidatesAfterSelectionChange") ~typ:(returning (bool)) -let shouldIgnoreTextInputChanges self = msg_send ~self ~cmd:(selector "shouldIgnoreTextInputChanges") ~typ:(returning (bool)) -let shouldLoadAutofillSignUpInputViewController self = msg_send ~self ~cmd:(selector "shouldLoadAutofillSignUpInputViewController") ~typ:(returning (bool)) -let shouldPrioritizeTextSuggestionsOverCandidateResultSet x self = msg_send ~self ~cmd:(selector "shouldPrioritizeTextSuggestionsOverCandidateResultSet:") ~typ:(id @-> returning (bool)) x -let shouldRapidDelete self = msg_send ~self ~cmd:(selector "shouldRapidDelete") ~typ:(returning (bool)) -let shouldRapidDeleteWithDelegate self = msg_send ~self ~cmd:(selector "shouldRapidDeleteWithDelegate") ~typ:(returning (bool)) -let shouldShowCandidateBar self = msg_send ~self ~cmd:(selector "shouldShowCandidateBar") ~typ:(returning (bool)) -let shouldShowCandidateBarIfReceivedCandidatesInCurrentInputMode x ~ignoreHidePredictionTrait self = msg_send ~self ~cmd:(selector "shouldShowCandidateBarIfReceivedCandidatesInCurrentInputMode:ignoreHidePredictionTrait:") ~typ:(bool @-> bool @-> returning (bool)) x ignoreHidePredictionTrait -let shouldShowContinuousPathIntroductionView self = msg_send ~self ~cmd:(selector "shouldShowContinuousPathIntroductionView") ~typ:(returning (bool)) -let shouldShowDictationKey self = msg_send ~self ~cmd:(selector "shouldShowDictationKey") ~typ:(returning (bool)) -let shouldShowEditingIntroductionView self = msg_send ~self ~cmd:(selector "shouldShowEditingIntroductionView") ~typ:(returning (bool)) -let shouldShowInternationalKey self = msg_send ~self ~cmd:(selector "shouldShowInternationalKey") ~typ:(returning (bool)) -let shouldShowInternationalKeyIntroduction self = msg_send ~self ~cmd:(selector "shouldShowInternationalKeyIntroduction") ~typ:(returning (bool)) -let shouldShowKeyboardMenu self = msg_send ~self ~cmd:(selector "shouldShowKeyboardMenu") ~typ:(returning (bool)) -let shouldShowLongPredictionList self = msg_send ~self ~cmd:(selector "shouldShowLongPredictionList") ~typ:(returning (bool)) -let shouldSkipCandidateSelection self = msg_send ~self ~cmd:(selector "shouldSkipCandidateSelection") ~typ:(returning (bool)) -let shouldSwitchFromInputManagerMode x ~toInputMode self = msg_send ~self ~cmd:(selector "shouldSwitchFromInputManagerMode:toInputMode:") ~typ:(id @-> id @-> returning (bool)) x toInputMode -let shouldSwitchInputMode x self = msg_send ~self ~cmd:(selector "shouldSwitchInputMode:") ~typ:(id @-> returning (bool)) x -let shouldUpdateLayoutAutomatically self = msg_send ~self ~cmd:(selector "shouldUpdateLayoutAutomatically") ~typ:(returning (bool)) -let shouldUseCarPlayModes self = msg_send ~self ~cmd:(selector "shouldUseCarPlayModes") ~typ:(returning (bool)) -let shouldUsePinyinStyleRowNavigation self = msg_send ~self ~cmd:(selector "shouldUsePinyinStyleRowNavigation") ~typ:(returning (bool)) -let showFirstTextAlternativeWithRangeAdjustment x self = msg_send ~self ~cmd:(selector "showFirstTextAlternativeWithRangeAdjustment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let showInputModeIndicator self = msg_send ~self ~cmd:(selector "showInputModeIndicator") ~typ:(returning (bool)) -let showInternationalKeyIntroductionIfNeededWithPreviousInputMode x self = msg_send ~self ~cmd:(selector "showInternationalKeyIntroductionIfNeededWithPreviousInputMode:") ~typ:(id @-> returning (void)) x -let showKeyboard self = msg_send ~self ~cmd:(selector "showKeyboard") ~typ:(returning (void)) -let showKeyboardIfNeeded self = msg_send ~self ~cmd:(selector "showKeyboardIfNeeded") ~typ:(returning (void)) -let showKeyboardWithoutSuppressionPolicy self = msg_send ~self ~cmd:(selector "showKeyboardWithoutSuppressionPolicy") ~typ:(returning (void)) -let showNextCandidates self = msg_send ~self ~cmd:(selector "showNextCandidates") ~typ:(returning (void)) -let showNextPage self = msg_send ~self ~cmd:(selector "showNextPage") ~typ:(returning (void)) -let showPreviousCandidate self = msg_send ~self ~cmd:(selector "showPreviousCandidate") ~typ:(returning (void)) -let showSelectionCommands self = msg_send ~self ~cmd:(selector "showSelectionCommands") ~typ:(returning (void)) -let showTextAlternativesInRange x self = msg_send ~self ~cmd:(selector "showTextAlternativesInRange:") ~typ:(NSRange.t @-> returning (void)) x -let showsCandidateBar self = msg_send ~self ~cmd:(selector "showsCandidateBar") ~typ:(returning (bool)) -let showsCandidateInline self = msg_send ~self ~cmd:(selector "showsCandidateInline") ~typ:(returning (bool)) -let showsDedicatedEmojiKeyAlongsideGlobeButton self = msg_send ~self ~cmd:(selector "showsDedicatedEmojiKeyAlongsideGlobeButton") ~typ:(returning (bool)) -let skipHitTestForTouchEvent x self = msg_send ~self ~cmd:(selector "skipHitTestForTouchEvent:") ~typ:(id @-> returning (void)) x -let skipHitTestForTouchEvent' x ~delayed self = msg_send ~self ~cmd:(selector "skipHitTestForTouchEvent:delayed:") ~typ:(id @-> bool @-> returning (void)) x delayed -let skipHitTestForTouchEvents x self = msg_send ~self ~cmd:(selector "skipHitTestForTouchEvents:") ~typ:(id @-> returning (void)) x -let smartInsertDeleteIsEnabled self = msg_send ~self ~cmd:(selector "smartInsertDeleteIsEnabled") ~typ:(returning (bool)) -let smartPunctuationController self = msg_send ~self ~cmd:(selector "smartPunctuationController") ~typ:(returning (id)) -let smartSelectionForTextInDocument x ~inRange ~options ~completion self = msg_send ~self ~cmd:(selector "smartSelectionForTextInDocument:inRange:options:completion:") ~typ:(id @-> NSRange.t @-> ullong @-> ptr void @-> returning (void)) x inRange (ULLong.of_int options) completion -let splitTransitionInProgress self = msg_send ~self ~cmd:(selector "splitTransitionInProgress") ~typ:(returning (bool)) -let startAutoDeleteTimer self = msg_send ~self ~cmd:(selector "startAutoDeleteTimer") ~typ:(returning (void)) -let startAutoDeleteTimerForForce x self = msg_send ~self ~cmd:(selector "startAutoDeleteTimerForForce:") ~typ:(double @-> returning (void)) x -let startDelayDeleteTimer self = msg_send ~self ~cmd:(selector "startDelayDeleteTimer") ~typ:(returning (void)) -let stopAutoDelete self = msg_send ~self ~cmd:(selector "stopAutoDelete") ~typ:(returning (void)) -let subtractKeyboardFrameFromRect x ~inView self = msg_send_stret ~self ~cmd:(selector "subtractKeyboardFrameFromRect:inView:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x inView -let suppliesCompletions self = msg_send ~self ~cmd:(selector "suppliesCompletions") ~typ:(returning (bool)) -let supportsNumberKeySelection self = msg_send ~self ~cmd:(selector "supportsNumberKeySelection") ~typ:(returning (bool)) -let suppressOptOutASPCandidateUpdateForDelegate x self = msg_send ~self ~cmd:(selector "suppressOptOutASPCandidateUpdateForDelegate:") ~typ:(id @-> returning (bool)) x -let suppressUpdateAssistantView self = msg_send ~self ~cmd:(selector "suppressUpdateAssistantView") ~typ:(returning (bool)) -let suppressUpdateLayout self = msg_send ~self ~cmd:(selector "suppressUpdateLayout") ~typ:(returning (bool)) -let suppressUpdateShiftState self = msg_send ~self ~cmd:(selector "suppressUpdateShiftState") ~typ:(returning (bool)) -let syncDocumentStateToInputDelegate self = msg_send ~self ~cmd:(selector "syncDocumentStateToInputDelegate") ~typ:(returning (void)) -let syncDocumentStateToInputDelegateWithExecutionContext x self = msg_send ~self ~cmd:(selector "syncDocumentStateToInputDelegateWithExecutionContext:") ~typ:(id @-> returning (void)) x -let syncInputManagerToAcceptedAutocorrection x ~forInput self = msg_send ~self ~cmd:(selector "syncInputManagerToAcceptedAutocorrection:forInput:") ~typ:(id @-> id @-> returning (void)) x forInput -let syncInputManagerToKeyboardState self = msg_send ~self ~cmd:(selector "syncInputManagerToKeyboardState") ~typ:(returning (void)) -let syncInputManagerToKeyboardStateWithExecutionContext x self = msg_send ~self ~cmd:(selector "syncInputManagerToKeyboardStateWithExecutionContext:") ~typ:(id @-> returning (void)) x -let syncKeyboardToConfiguration x self = msg_send ~self ~cmd:(selector "syncKeyboardToConfiguration:") ~typ:(id @-> returning (void)) x -let takeTextInputTraitsFromDelegate self = msg_send ~self ~cmd:(selector "takeTextInputTraitsFromDelegate") ~typ:(returning (void)) -let taskQueue self = msg_send ~self ~cmd:(selector "taskQueue") ~typ:(returning (id)) -let textAccepted x self = msg_send ~self ~cmd:(selector "textAccepted:") ~typ:(id @-> returning (void)) x -let textAccepted' x ~executionContext self = msg_send ~self ~cmd:(selector "textAccepted:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let textChanged x self = msg_send ~self ~cmd:(selector "textChanged:") ~typ:(id @-> returning (void)) x -let textChanged' x ~executionContext self = msg_send ~self ~cmd:(selector "textChanged:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let textDidChange x self = msg_send ~self ~cmd:(selector "textDidChange:") ~typ:(id @-> returning (void)) x -let textFrameChanged x self = msg_send ~self ~cmd:(selector "textFrameChanged:") ~typ:(id @-> returning (void)) x -let textInputChangingCount self = msg_send ~self ~cmd:(selector "textInputChangingCount") ~typ:(returning (int)) -let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning (id)) -let textInputTraitsNeedAutofill self = msg_send ~self ~cmd:(selector "textInputTraitsNeedAutofill") ~typ:(returning (bool)) -let textInputTraitsNeedAutofillExcludeOneTimeCodeAndContact self = msg_send ~self ~cmd:(selector "textInputTraitsNeedAutofillExcludeOneTimeCodeAndContact") ~typ:(returning (bool)) -let textInputTraitsNeedContactAutoFill self = msg_send ~self ~cmd:(selector "textInputTraitsNeedContactAutoFill") ~typ:(returning (bool)) -let textInputTraitsNeedOneTimeCode self = msg_send ~self ~cmd:(selector "textInputTraitsNeedOneTimeCode") ~typ:(returning (bool)) -let textInputTraitsNeedSignup self = msg_send ~self ~cmd:(selector "textInputTraitsNeedSignup") ~typ:(returning (bool)) -let textInteractionAssistant self = msg_send ~self ~cmd:(selector "textInteractionAssistant") ~typ:(returning (id)) -let textSelectionController self = msg_send ~self ~cmd:(selector "textSelectionController") ~typ:(returning (id)) -let textSelectionControllerForInputDelegate x self = msg_send ~self ~cmd:(selector "textSelectionControllerForInputDelegate:") ~typ:(id @-> returning (id)) x -let textSuggestionDidChange x self = msg_send ~self ~cmd:(selector "textSuggestionDidChange:") ~typ:(id @-> returning (void)) x -let textWillChange x self = msg_send ~self ~cmd:(selector "textWillChange:") ~typ:(id @-> returning (void)) x -let timeoutForCurrentForce self = msg_send ~self ~cmd:(selector "timeoutForCurrentForce") ~typ:(returning (double)) -let timestampOfLastTouchesEnded self = msg_send ~self ~cmd:(selector "timestampOfLastTouchesEnded") ~typ:(returning (double)) -let toggleShift self = msg_send ~self ~cmd:(selector "toggleShift") ~typ:(returning (void)) -let toggleSoftwareKeyboard self = msg_send ~self ~cmd:(selector "toggleSoftwareKeyboard") ~typ:(returning (void)) -let touchAutoDeleteTimerWithThreshold x ~adjustForPartialCompletion self = msg_send ~self ~cmd:(selector "touchAutoDeleteTimerWithThreshold:adjustForPartialCompletion:") ~typ:(double @-> bool @-> returning (void)) x adjustForPartialCompletion -let touchAutocorrectPromptTimer self = msg_send ~self ~cmd:(selector "touchAutocorrectPromptTimer") ~typ:(returning (void)) -let touchDelayDeleteTimerWithThreshold x self = msg_send ~self ~cmd:(selector "touchDelayDeleteTimerWithThreshold:") ~typ:(double @-> returning (void)) x -let touchEventWaitingForKeyInputEvent self = msg_send ~self ~cmd:(selector "touchEventWaitingForKeyInputEvent") ~typ:(returning (id)) -let touchLongPressTimer self = msg_send ~self ~cmd:(selector "touchLongPressTimer") ~typ:(returning (void)) -let touchLongPressTimerWithDelay x self = msg_send ~self ~cmd:(selector "touchLongPressTimerWithDelay:") ~typ:(double @-> returning (void)) x -let touchLongPressTimerWithDelay' x ~userInfo self = msg_send ~self ~cmd:(selector "touchLongPressTimerWithDelay:userInfo:") ~typ:(double @-> id @-> returning (void)) x userInfo -let touchUpdateLastUsedInputModeAction self = msg_send ~self ~cmd:(selector "touchUpdateLastUsedInputModeAction") ~typ:(returning (void)) -let trackResponderForAutofillIfNeeded x self = msg_send ~self ~cmd:(selector "trackResponderForAutofillIfNeeded:") ~typ:(id @-> returning (void)) x -let trackUsageForAcceptedAutocorrection x ~promptWasShowing self = msg_send ~self ~cmd:(selector "trackUsageForAcceptedAutocorrection:promptWasShowing:") ~typ:(id @-> bool @-> returning (void)) x promptWasShowing -let trackUsageForCandidateAcceptedAction x self = msg_send ~self ~cmd:(selector "trackUsageForCandidateAcceptedAction:") ~typ:(id @-> returning (void)) x -let trackUsageForPromptedCorrection x ~inputString ~previousPrompt self = msg_send ~self ~cmd:(selector "trackUsageForPromptedCorrection:inputString:previousPrompt:") ~typ:(id @-> id @-> id @-> returning (void)) x inputString previousPrompt -let traitCollectionDidChange self = msg_send ~self ~cmd:(selector "traitCollectionDidChange") ~typ:(returning (void)) -let transitionInProgress self = msg_send ~self ~cmd:(selector "transitionInProgress") ~typ:(returning (bool)) -let unmarkText x self = msg_send ~self ~cmd:(selector "unmarkText:") ~typ:(id @-> returning (void)) x -let updateAssistantView self = msg_send ~self ~cmd:(selector "updateAssistantView") ~typ:(returning (void)) -let updateAutocorrectContainerWithAutocorrection x ~parentView ~correctionRects self = msg_send ~self ~cmd:(selector "updateAutocorrectContainerWithAutocorrection:parentView:correctionRects:") ~typ:(id @-> id @-> id @-> returning (void)) x parentView correctionRects -let updateAutocorrectPrompt x self = msg_send ~self ~cmd:(selector "updateAutocorrectPrompt:") ~typ:(id @-> returning (void)) x -let updateAutocorrectPrompt1 x ~correctionRects self = msg_send ~self ~cmd:(selector "updateAutocorrectPrompt:correctionRects:") ~typ:(id @-> id @-> returning (void)) x correctionRects -let updateAutocorrectPrompt2 x ~executionContext self = msg_send ~self ~cmd:(selector "updateAutocorrectPrompt:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let updateCandidateDisplay self = msg_send ~self ~cmd:(selector "updateCandidateDisplay") ~typ:(returning (void)) -let updateCandidateDisplayAsyncWithCandidateSet x self = msg_send ~self ~cmd:(selector "updateCandidateDisplayAsyncWithCandidateSet:") ~typ:(id @-> returning (void)) x -let updateCapsLockDelayOverrideForNonTyping self = msg_send ~self ~cmd:(selector "updateCapsLockDelayOverrideForNonTyping") ~typ:(returning (id)) -let updateChangeTimeAndIncrementCount self = msg_send ~self ~cmd:(selector "updateChangeTimeAndIncrementCount") ~typ:(returning (void)) -let updateDefaultsWithResults x self = msg_send ~self ~cmd:(selector "updateDefaultsWithResults:") ~typ:(ptr void @-> returning (void)) x -let updateDelegatePasteSupport self = msg_send ~self ~cmd:(selector "updateDelegatePasteSupport") ~typ:(returning (void)) -let updateDoubleSpacePeriodStateForCharacter x self = msg_send ~self ~cmd:(selector "updateDoubleSpacePeriodStateForCharacter:") ~typ:(uint @-> returning (void)) x -let updateDoubleSpacePeriodStateForString x self = msg_send ~self ~cmd:(selector "updateDoubleSpacePeriodStateForString:") ~typ:(id @-> returning (void)) x -let updateForChangedSelection self = msg_send ~self ~cmd:(selector "updateForChangedSelection") ~typ:(returning (void)) -let updateForChangedSelectionWithExecutionContext x self = msg_send ~self ~cmd:(selector "updateForChangedSelectionWithExecutionContext:") ~typ:(id @-> returning (void)) x -let updateForHandBiasChange self = msg_send ~self ~cmd:(selector "updateForHandBiasChange") ~typ:(returning (void)) -let updateFromTextInputTraits self = msg_send ~self ~cmd:(selector "updateFromTextInputTraits") ~typ:(returning (void)) -let updateHardwareKeyboardLayout self = msg_send ~self ~cmd:(selector "updateHardwareKeyboardLayout") ~typ:(returning (void)) -let updateHardwareKeyboardLayout' x self = msg_send ~self ~cmd:(selector "updateHardwareKeyboardLayout:") ~typ:(bool @-> returning (void)) x -let updateInputAssistantButtonItems self = msg_send ~self ~cmd:(selector "updateInputAssistantButtonItems") ~typ:(returning (void)) -let updateInputDelegateForRemoteDocumentStateChange x ~selectedTextRange ~forceSync self = msg_send ~self ~cmd:(selector "updateInputDelegateForRemoteDocumentStateChange:selectedTextRange:forceSync:") ~typ:(id @-> NSRange.t @-> bool @-> returning (void)) x selectedTextRange forceSync -let updateInputDelegateForRemoteTraitChange x ~forceSync self = msg_send ~self ~cmd:(selector "updateInputDelegateForRemoteTraitChange:forceSync:") ~typ:(id @-> bool @-> returning (void)) x forceSync -let updateInputManagerAutocapitalizationType self = msg_send ~self ~cmd:(selector "updateInputManagerAutocapitalizationType") ~typ:(returning (void)) -let updateInputManagerMode self = msg_send ~self ~cmd:(selector "updateInputManagerMode") ~typ:(returning (void)) -let updateInputModeIndicatorOnSingleKeyOnly x self = msg_send ~self ~cmd:(selector "updateInputModeIndicatorOnSingleKeyOnly:") ~typ:(bool @-> returning (void)) x -let updateInputModeIndicatorOnSingleKeyOnly' x ~preserveIfPossible self = msg_send ~self ~cmd:(selector "updateInputModeIndicatorOnSingleKeyOnly:preserveIfPossible:") ~typ:(bool @-> bool @-> returning (void)) x preserveIfPossible -let updateInputModeLastChosenPreference self = msg_send ~self ~cmd:(selector "updateInputModeLastChosenPreference") ~typ:(returning (void)) -let updateIsAttachedHardwareKeyboard self = msg_send ~self ~cmd:(selector "updateIsAttachedHardwareKeyboard") ~typ:(returning (void)) -let updateKeyBehaviors x ~withBehaviors ~forState self = msg_send ~self ~cmd:(selector "updateKeyBehaviors:withBehaviors:forState:") ~typ:(id @-> id @-> id @-> returning (id)) x withBehaviors forState -let updateKeyboardConfigurations self = msg_send ~self ~cmd:(selector "updateKeyboardConfigurations") ~typ:(returning (void)) -let updateKeyboardEventsLagging x self = msg_send ~self ~cmd:(selector "updateKeyboardEventsLagging:") ~typ:(id @-> returning (void)) x -let updateKeyboardOutput x ~withInputForSmartPunctuation ~keyboardConfiguration self = msg_send ~self ~cmd:(selector "updateKeyboardOutput:withInputForSmartPunctuation:keyboardConfiguration:") ~typ:(id @-> id @-> id @-> returning (void)) x withInputForSmartPunctuation keyboardConfiguration -let updateKeyboardStateForDeletion self = msg_send ~self ~cmd:(selector "updateKeyboardStateForDeletion") ~typ:(returning (void)) -let updateKeyboardStateForInsertion x self = msg_send ~self ~cmd:(selector "updateKeyboardStateForInsertion:") ~typ:(id @-> returning (void)) x -let updateLayout self = msg_send ~self ~cmd:(selector "updateLayout") ~typ:(returning (void)) -let updateLayoutAndSetShift self = msg_send ~self ~cmd:(selector "updateLayoutAndSetShift") ~typ:(returning (void)) -let updateLayoutIfNecessary self = msg_send ~self ~cmd:(selector "updateLayoutIfNecessary") ~typ:(returning (void)) -let updateLayoutIfNeeded self = msg_send ~self ~cmd:(selector "updateLayoutIfNeeded") ~typ:(returning (void)) -let updateLayoutToCurrentInterfaceOrientation self = msg_send ~self ~cmd:(selector "updateLayoutToCurrentInterfaceOrientation") ~typ:(returning (void)) -let updateLegacyAutocorrectPromptWithAutocorrection x ~parentView ~correctionRects self = msg_send ~self ~cmd:(selector "updateLegacyAutocorrectPromptWithAutocorrection:parentView:correctionRects:") ~typ:(id @-> id @-> id @-> returning (void)) x parentView correctionRects -let updateNoContentViews self = msg_send ~self ~cmd:(selector "updateNoContentViews") ~typ:(returning (void)) -let updateObserverState self = msg_send ~self ~cmd:(selector "updateObserverState") ~typ:(returning (void)) -let updateReturnKey self = msg_send ~self ~cmd:(selector "updateReturnKey") ~typ:(returning (void)) -let updateReturnKey' x self = msg_send ~self ~cmd:(selector "updateReturnKey:") ~typ:(bool @-> returning (void)) x -let updateSecureCandidateRenderTraits self = msg_send ~self ~cmd:(selector "updateSecureCandidateRenderTraits") ~typ:(returning (id)) -let updateShiftState self = msg_send ~self ~cmd:(selector "updateShiftState") ~typ:(returning (void)) -let updateShowCandidateBar self = msg_send ~self ~cmd:(selector "updateShowCandidateBar") ~typ:(returning (void)) -let updateSmartPunctuationOptionsForLocaleIdentifier x self = msg_send ~self ~cmd:(selector "updateSmartPunctuationOptionsForLocaleIdentifier:") ~typ:(id @-> returning (void)) x -let updateStylingTraitsIfNeeded self = msg_send ~self ~cmd:(selector "updateStylingTraitsIfNeeded") ~typ:(returning (void)) -let updateTextCandidateView self = msg_send ~self ~cmd:(selector "updateTextCandidateView") ~typ:(returning (void)) -let updateTextInputKeyboardSource self = msg_send ~self ~cmd:(selector "updateTextInputKeyboardSource") ~typ:(returning (void)) -let updatedKeyBehaviors self = msg_send ~self ~cmd:(selector "updatedKeyBehaviors") ~typ:(returning (id)) -let updatingPreferences self = msg_send ~self ~cmd:(selector "updatingPreferences") ~typ:(returning (bool)) -let userSelectedCurrentCandidate self = msg_send ~self ~cmd:(selector "userSelectedCurrentCandidate") ~typ:(returning (bool)) -let usesAutoDeleteWord self = msg_send ~self ~cmd:(selector "usesAutoDeleteWord") ~typ:(returning (bool)) -let usesAutocorrectionLists self = msg_send ~self ~cmd:(selector "usesAutocorrectionLists") ~typ:(returning (bool)) -let usesCandidateSelection self = msg_send ~self ~cmd:(selector "usesCandidateSelection") ~typ:(returning (bool)) -let usesContinuousPath self = msg_send ~self ~cmd:(selector "usesContinuousPath") ~typ:(returning (bool)) -let usesContinuousPathProgressiveCandidates self = msg_send ~self ~cmd:(selector "usesContinuousPathProgressiveCandidates") ~typ:(returning (bool)) -let willDoubleSpacePeriodForInputString x ~afterSpace ~elapsedTime self = msg_send ~self ~cmd:(selector "willDoubleSpacePeriodForInputString:afterSpace:elapsedTime:") ~typ:(id @-> bool @-> double @-> returning (bool)) x afterSpace elapsedTime -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x -let willReplaceTextInRangedSelectionWithKeyboardInput self = msg_send ~self ~cmd:(selector "willReplaceTextInRangedSelectionWithKeyboardInput") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit/UIKeyboardInputManagerClient.ml b/uikit/UIKeyboardInputManagerClient.ml index e66c0a6f..66f56710 100644 --- a/uikit/UIKeyboardInputManagerClient.ml +++ b/uikit/UIKeyboardInputManagerClient.ml @@ -5,21 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardInputManagerClient" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardinputmanagerclient?language=objc}UIKeyboardInputManagerClient} *) -module C = struct - let instancesRespondToSelector x self = msg_send ~self ~cmd:(selector "instancesRespondToSelector:") ~typ:(_SEL @-> returning (bool)) x -end +let self = get_class "UIKeyboardInputManagerClient" -let conformsToProtocol x self = msg_send ~self ~cmd:(selector "conformsToProtocol:") ~typ:(id @-> returning (bool)) x -let connection self = msg_send ~self ~cmd:(selector "connection") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning (void)) x -let handleError x ~forRequest self = msg_send ~self ~cmd:(selector "handleError:forRequest:") ~typ:(id @-> id @-> returning (void)) x forRequest -let handleRequest x self = msg_send ~self ~cmd:(selector "handleRequest:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isKindOfClass x self = msg_send ~self ~cmd:(selector "isKindOfClass:") ~typ:(_Class @-> returning (bool)) x -let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning (id)) x -let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning (bool)) x -let setConnection x self = msg_send ~self ~cmd:(selector "setConnection:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let conformsToProtocol x self = msg_send ~self ~cmd:(selector "conformsToProtocol:") ~typ:(id @-> returning bool) x +let connection self = msg_send ~self ~cmd:(selector "connection") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning void) x +let handleError x ~forRequest self = msg_send ~self ~cmd:(selector "handleError:forRequest:") ~typ:(id @-> id @-> returning void) x forRequest +let handleRequest x self = msg_send ~self ~cmd:(selector "handleRequest:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isKindOfClass x self = msg_send ~self ~cmd:(selector "isKindOfClass:") ~typ:(_Class @-> returning bool) x +let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning id) x +let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning bool) x +let setConnection x self = msg_send ~self ~cmd:(selector "setConnection:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardInputManagerClientClass.ml b/uikit/UIKeyboardInputManagerClientClass.ml new file mode 100644 index 00000000..d5cab661 --- /dev/null +++ b/uikit/UIKeyboardInputManagerClientClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardinputmanagerclient?language=objc}UIKeyboardInputManagerClient} *) + +let instancesRespondToSelector x self = msg_send ~self ~cmd:(selector "instancesRespondToSelector:") ~typ:(_SEL @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIKeyboardInputManagerClientRequest.ml b/uikit/UIKeyboardInputManagerClientRequest.ml deleted file mode 100644 index 0fce5ea9..00000000 --- a/uikit/UIKeyboardInputManagerClientRequest.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIKeyboardInputManagerClientRequest" - -module C = struct - let untargetedInvocationWithInvocation x ~withCompletion self = msg_send ~self ~cmd:(selector "untargetedInvocationWithInvocation:withCompletion:") ~typ:(id @-> bool @-> returning (id)) x withCompletion -end - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let errorCount self = msg_send ~self ~cmd:(selector "errorCount") ~typ:(returning (ullong)) -let initWithInvocation x self = msg_send ~self ~cmd:(selector "initWithInvocation:") ~typ:(id @-> returning (id)) x -let invocation self = msg_send ~self ~cmd:(selector "invocation") ~typ:(returning (id)) -let setErrorCount x self = msg_send ~self ~cmd:(selector "setErrorCount:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UIKeyboardInputManagerMux.ml b/uikit/UIKeyboardInputManagerMux.ml deleted file mode 100644 index 1974c7ca..00000000 --- a/uikit/UIKeyboardInputManagerMux.ml +++ /dev/null @@ -1,32 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIKeyboardInputManagerMux" - -module C = struct - let instancesRespondToSelector x self = msg_send ~self ~cmd:(selector "instancesRespondToSelector:") ~typ:(_SEL @-> returning (bool)) x - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end - -let addClient x self = msg_send ~self ~cmd:(selector "addClient:") ~typ:(id @-> returning (void)) x -let conformsToProtocol x self = msg_send ~self ~cmd:(selector "conformsToProtocol:") ~typ:(id @-> returning (bool)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning (void)) x -let hasSystemInputManager self = msg_send ~self ~cmd:(selector "hasSystemInputManager") ~typ:(returning (bool)) -let isKindOfClass x self = msg_send ~self ~cmd:(selector "isKindOfClass:") ~typ:(_Class @-> returning (bool)) x -let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning (id)) x -let releaseConnectedClients self = msg_send ~self ~cmd:(selector "releaseConnectedClients") ~typ:(returning (void)) -let removeAllClients self = msg_send ~self ~cmd:(selector "removeAllClients") ~typ:(returning (void)) -let removeClient x self = msg_send ~self ~cmd:(selector "removeClient:") ~typ:(id @-> returning (void)) x -let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning (bool)) x -let responseDelegate self = msg_send ~self ~cmd:(selector "responseDelegate") ~typ:(returning (id)) -let setResponseDelegate x self = msg_send ~self ~cmd:(selector "setResponseDelegate:") ~typ:(id @-> returning (void)) x -let setSystemInputManager x self = msg_send ~self ~cmd:(selector "setSystemInputManager:") ~typ:(id @-> returning (void)) x -let setSystemInputManagerFromTextInputTraits x ~autofillMode self = msg_send ~self ~cmd:(selector "setSystemInputManagerFromTextInputTraits:autofillMode:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int autofillMode) -let systemInputManager self = msg_send ~self ~cmd:(selector "systemInputManager") ~typ:(returning (id)) -let updateClientResponseDelegatesWithDelegate x self = msg_send ~self ~cmd:(selector "updateClientResponseDelegatesWithDelegate:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIKeyboardInputMode.ml b/uikit/UIKeyboardInputMode.ml index 7426fa07..d5f6ebb2 100644 --- a/uikit/UIKeyboardInputMode.ml +++ b/uikit/UIKeyboardInputMode.ml @@ -5,73 +5,67 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardInputMode" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardinputmode?language=objc}UIKeyboardInputMode} *) -module C = struct - let autofillSignupInputMode self = msg_send ~self ~cmd:(selector "autofillSignupInputMode") ~typ:(returning (id)) - let canonicalLanguageIdentifierFromIdentifier x self = msg_send ~self ~cmd:(selector "canonicalLanguageIdentifierFromIdentifier:") ~typ:(id @-> returning (id)) x - let hardwareLayoutFromIdentifier x self = msg_send ~self ~cmd:(selector "hardwareLayoutFromIdentifier:") ~typ:(id @-> returning (id)) x - let intlInputMode self = msg_send ~self ~cmd:(selector "intlInputMode") ~typ:(returning (id)) - let keyboardInputModeWithIdentifier x self = msg_send ~self ~cmd:(selector "keyboardInputModeWithIdentifier:") ~typ:(id @-> returning (id)) x - let softwareLayoutFromIdentifier x self = msg_send ~self ~cmd:(selector "softwareLayoutFromIdentifier:") ~typ:(id @-> returning (id)) x - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIKeyboardInputMode" -let automaticHardwareLayout self = msg_send ~self ~cmd:(selector "automaticHardwareLayout") ~typ:(returning (id)) -let cachedIcon self = msg_send ~self ~cmd:(selector "cachedIcon") ~typ:(returning (id)) -let cachedSizeCategory self = msg_send ~self ~cmd:(selector "cachedSizeCategory") ~typ:(returning (id)) -let containingBundle self = msg_send ~self ~cmd:(selector "containingBundle") ~typ:(returning (id)) -let containingBundleDisplayName self = msg_send ~self ~cmd:(selector "containingBundleDisplayName") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultLayoutIsASCIICapable self = msg_send ~self ~cmd:(selector "defaultLayoutIsASCIICapable") ~typ:(returning (bool)) -let dictationDisplayName self = msg_send ~self ~cmd:(selector "dictationDisplayName") ~typ:(returning (id)) -let dictationLanguage self = msg_send ~self ~cmd:(selector "dictationLanguage") ~typ:(returning (id)) -let displayName self = msg_send ~self ~cmd:(selector "displayName") ~typ:(returning (id)) -let drawStringInRect x ~inRect ~useSmallFont ~scale self = msg_send ~self ~cmd:(selector "drawStringInRect:inRect:useSmallFont:scale:") ~typ:(id @-> CGRect.t @-> bool @-> double @-> returning (void)) x inRect useSmallFont scale -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let extendedDisplayName self = msg_send ~self ~cmd:(selector "extendedDisplayName") ~typ:(returning (id)) -let extension self = msg_send ~self ~cmd:(selector "extension") ~typ:(returning (id)) -let extensionInputModeHasDictation self = msg_send ~self ~cmd:(selector "extensionInputModeHasDictation") ~typ:(returning (bool)) -let hardwareLayout self = msg_send ~self ~cmd:(selector "hardwareLayout") ~typ:(returning (id)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let identifierWithLayouts self = msg_send ~self ~cmd:(selector "identifierWithLayouts") ~typ:(returning (id)) -let imageForInputModeLabel x ~secondaryIconLabel ~withBackground self = msg_send ~self ~cmd:(selector "imageForInputModeLabel:secondaryIconLabel:withBackground:") ~typ:(id @-> id @-> bool @-> returning (id)) x secondaryIconLabel withBackground -let includeBarHeight self = msg_send ~self ~cmd:(selector "includeBarHeight") ~typ:(returning (bool)) -let indicatorIcon self = msg_send ~self ~cmd:(selector "indicatorIcon") ~typ:(returning (id)) -let indicatorTextIcon self = msg_send ~self ~cmd:(selector "indicatorTextIcon") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithIdentifier x self = msg_send ~self ~cmd:(selector "initWithIdentifier:") ~typ:(id @-> returning (id)) x -let isAllowedForTraits x self = msg_send ~self ~cmd:(selector "isAllowedForTraits:") ~typ:(id @-> returning (bool)) x -let isDefaultRightToLeft self = msg_send ~self ~cmd:(selector "isDefaultRightToLeft") ~typ:(returning (bool)) -let isDesiredForTraits x self = msg_send ~self ~cmd:(selector "isDesiredForTraits:") ~typ:(id @-> returning (bool)) x -let isDisplayed self = msg_send ~self ~cmd:(selector "isDisplayed") ~typ:(returning (bool)) -let isEmojiInputMode self = msg_send ~self ~cmd:(selector "isEmojiInputMode") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isExtensionInputMode self = msg_send ~self ~cmd:(selector "isExtensionInputMode") ~typ:(returning (bool)) -let isSpecializedInputMode self = msg_send ~self ~cmd:(selector "isSpecializedInputMode") ~typ:(returning (bool)) -let isStalledExtensionInputMode self = msg_send ~self ~cmd:(selector "isStalledExtensionInputMode") ~typ:(returning (bool)) -let languageIndicatorScale self = msg_send ~self ~cmd:(selector "languageIndicatorScale") ~typ:(returning (double)) -let languageWithRegion self = msg_send ~self ~cmd:(selector "languageWithRegion") ~typ:(returning (id)) -let multilingualLanguages self = msg_send ~self ~cmd:(selector "multilingualLanguages") ~typ:(returning (id)) -let normalizedIdentifier self = msg_send ~self ~cmd:(selector "normalizedIdentifier") ~typ:(returning (id)) -let normalizedIdentifierLevels self = msg_send ~self ~cmd:(selector "normalizedIdentifierLevels") ~typ:(returning (id)) -let preferencesControllerChanged x self = msg_send ~self ~cmd:(selector "preferencesControllerChanged:") ~typ:(id @-> returning (void)) x -let primaryLanguage self = msg_send ~self ~cmd:(selector "primaryLanguage") ~typ:(returning (id)) -let setCachedIcon x self = msg_send ~self ~cmd:(selector "setCachedIcon:") ~typ:(id @-> returning (void)) x -let setCachedSizeCategory x self = msg_send ~self ~cmd:(selector "setCachedSizeCategory:") ~typ:(id @-> returning (void)) x -let setDictationLanguage x self = msg_send ~self ~cmd:(selector "setDictationLanguage:") ~typ:(id @-> returning (void)) x -let setExtensionInputModeHasDictation x self = msg_send ~self ~cmd:(selector "setExtensionInputModeHasDictation:") ~typ:(bool @-> returning (void)) x -let setHardwareLayout x self = msg_send ~self ~cmd:(selector "setHardwareLayout:") ~typ:(id @-> returning (void)) x -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let setIsDisplayed x self = msg_send ~self ~cmd:(selector "setIsDisplayed:") ~typ:(bool @-> returning (void)) x -let setLanguageWithRegion x self = msg_send ~self ~cmd:(selector "setLanguageWithRegion:") ~typ:(id @-> returning (void)) x -let setLastUsedDictationLanguage self = msg_send ~self ~cmd:(selector "setLastUsedDictationLanguage") ~typ:(returning (void)) -let setMultilingualLanguages x self = msg_send ~self ~cmd:(selector "setMultilingualLanguages:") ~typ:(id @-> returning (void)) x -let setNormalizedIdentifier x self = msg_send ~self ~cmd:(selector "setNormalizedIdentifier:") ~typ:(id @-> returning (void)) x -let setPrimaryLanguage x self = msg_send ~self ~cmd:(selector "setPrimaryLanguage:") ~typ:(id @-> returning (void)) x -let setSoftwareLayout x self = msg_send ~self ~cmd:(selector "setSoftwareLayout:") ~typ:(id @-> returning (void)) x -let showSWLayoutWithHWKeyboard self = msg_send ~self ~cmd:(selector "showSWLayoutWithHWKeyboard") ~typ:(returning (bool)) -let softwareLayout self = msg_send ~self ~cmd:(selector "softwareLayout") ~typ:(returning (id)) -let supportsEmojiSearch self = msg_send ~self ~cmd:(selector "supportsEmojiSearch") ~typ:(returning (bool)) \ No newline at end of file +let automaticHardwareLayout self = msg_send ~self ~cmd:(selector "automaticHardwareLayout") ~typ:(returning id) +let cachedIcon self = msg_send ~self ~cmd:(selector "cachedIcon") ~typ:(returning id) +let cachedSizeCategory self = msg_send ~self ~cmd:(selector "cachedSizeCategory") ~typ:(returning id) +let containingBundle self = msg_send ~self ~cmd:(selector "containingBundle") ~typ:(returning id) +let containingBundleDisplayName self = msg_send ~self ~cmd:(selector "containingBundleDisplayName") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultLayoutIsASCIICapable self = msg_send ~self ~cmd:(selector "defaultLayoutIsASCIICapable") ~typ:(returning bool) +let dictationDisplayName self = msg_send ~self ~cmd:(selector "dictationDisplayName") ~typ:(returning id) +let dictationLanguage self = msg_send ~self ~cmd:(selector "dictationLanguage") ~typ:(returning id) +let displayName self = msg_send ~self ~cmd:(selector "displayName") ~typ:(returning id) +let drawStringInRect x ~inRect ~useSmallFont ~scale self = msg_send ~self ~cmd:(selector "drawStringInRect:inRect:useSmallFont:scale:") ~typ:(id @-> CGRect.t @-> bool @-> double @-> returning void) x inRect useSmallFont scale +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let extendedDisplayName self = msg_send ~self ~cmd:(selector "extendedDisplayName") ~typ:(returning id) +let extension self = msg_send ~self ~cmd:(selector "extension") ~typ:(returning id) +let extensionInputModeHasDictation self = msg_send ~self ~cmd:(selector "extensionInputModeHasDictation") ~typ:(returning bool) +let hardwareLayout self = msg_send ~self ~cmd:(selector "hardwareLayout") ~typ:(returning id) +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) +let identifierWithLayouts self = msg_send ~self ~cmd:(selector "identifierWithLayouts") ~typ:(returning id) +let imageForInputModeLabel x ~secondaryIconLabel ~withBackground self = msg_send ~self ~cmd:(selector "imageForInputModeLabel:secondaryIconLabel:withBackground:") ~typ:(id @-> id @-> bool @-> returning id) x secondaryIconLabel withBackground +let includeBarHeight self = msg_send ~self ~cmd:(selector "includeBarHeight") ~typ:(returning bool) +let indicatorIcon self = msg_send ~self ~cmd:(selector "indicatorIcon") ~typ:(returning id) +let indicatorTextIcon self = msg_send ~self ~cmd:(selector "indicatorTextIcon") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithIdentifier x self = msg_send ~self ~cmd:(selector "initWithIdentifier:") ~typ:(id @-> returning id) x +let isAllowedForTraits x self = msg_send ~self ~cmd:(selector "isAllowedForTraits:") ~typ:(id @-> returning bool) x +let isDefaultRightToLeft self = msg_send ~self ~cmd:(selector "isDefaultRightToLeft") ~typ:(returning bool) +let isDesiredForTraits x self = msg_send ~self ~cmd:(selector "isDesiredForTraits:") ~typ:(id @-> returning bool) x +let isDisplayed self = msg_send ~self ~cmd:(selector "isDisplayed") ~typ:(returning bool) +let isEmojiInputMode self = msg_send ~self ~cmd:(selector "isEmojiInputMode") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isExtensionInputMode self = msg_send ~self ~cmd:(selector "isExtensionInputMode") ~typ:(returning bool) +let isSpecializedInputMode self = msg_send ~self ~cmd:(selector "isSpecializedInputMode") ~typ:(returning bool) +let isStalledExtensionInputMode self = msg_send ~self ~cmd:(selector "isStalledExtensionInputMode") ~typ:(returning bool) +let languageIndicatorScale self = msg_send ~self ~cmd:(selector "languageIndicatorScale") ~typ:(returning double) +let languageWithRegion self = msg_send ~self ~cmd:(selector "languageWithRegion") ~typ:(returning id) +let multilingualLanguages self = msg_send ~self ~cmd:(selector "multilingualLanguages") ~typ:(returning id) +let normalizedIdentifier self = msg_send ~self ~cmd:(selector "normalizedIdentifier") ~typ:(returning id) +let normalizedIdentifierLevels self = msg_send ~self ~cmd:(selector "normalizedIdentifierLevels") ~typ:(returning id) +let preferencesControllerChanged x self = msg_send ~self ~cmd:(selector "preferencesControllerChanged:") ~typ:(id @-> returning void) x +let primaryLanguage self = msg_send ~self ~cmd:(selector "primaryLanguage") ~typ:(returning id) +let setCachedIcon x self = msg_send ~self ~cmd:(selector "setCachedIcon:") ~typ:(id @-> returning void) x +let setCachedSizeCategory x self = msg_send ~self ~cmd:(selector "setCachedSizeCategory:") ~typ:(id @-> returning void) x +let setDictationLanguage x self = msg_send ~self ~cmd:(selector "setDictationLanguage:") ~typ:(id @-> returning void) x +let setExtensionInputModeHasDictation x self = msg_send ~self ~cmd:(selector "setExtensionInputModeHasDictation:") ~typ:(bool @-> returning void) x +let setHardwareLayout x self = msg_send ~self ~cmd:(selector "setHardwareLayout:") ~typ:(id @-> returning void) x +let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning void) x +let setIsDisplayed x self = msg_send ~self ~cmd:(selector "setIsDisplayed:") ~typ:(bool @-> returning void) x +let setLanguageWithRegion x self = msg_send ~self ~cmd:(selector "setLanguageWithRegion:") ~typ:(id @-> returning void) x +let setLastUsedDictationLanguage self = msg_send ~self ~cmd:(selector "setLastUsedDictationLanguage") ~typ:(returning void) +let setMultilingualLanguages x self = msg_send ~self ~cmd:(selector "setMultilingualLanguages:") ~typ:(id @-> returning void) x +let setNormalizedIdentifier x self = msg_send ~self ~cmd:(selector "setNormalizedIdentifier:") ~typ:(id @-> returning void) x +let setPrimaryLanguage x self = msg_send ~self ~cmd:(selector "setPrimaryLanguage:") ~typ:(id @-> returning void) x +let setSoftwareLayout x self = msg_send ~self ~cmd:(selector "setSoftwareLayout:") ~typ:(id @-> returning void) x +let showSWLayoutWithHWKeyboard self = msg_send ~self ~cmd:(selector "showSWLayoutWithHWKeyboard") ~typ:(returning bool) +let softwareLayout self = msg_send ~self ~cmd:(selector "softwareLayout") ~typ:(returning id) +let supportsEmojiSearch self = msg_send ~self ~cmd:(selector "supportsEmojiSearch") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIKeyboardInputModeClass.ml b/uikit/UIKeyboardInputModeClass.ml new file mode 100644 index 00000000..6d8caea2 --- /dev/null +++ b/uikit/UIKeyboardInputModeClass.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardinputmode?language=objc}UIKeyboardInputMode} *) + +let autofillSignupInputMode self = msg_send ~self ~cmd:(selector "autofillSignupInputMode") ~typ:(returning id) +let canonicalLanguageIdentifierFromIdentifier x self = msg_send ~self ~cmd:(selector "canonicalLanguageIdentifierFromIdentifier:") ~typ:(id @-> returning id) x +let hardwareLayoutFromIdentifier x self = msg_send ~self ~cmd:(selector "hardwareLayoutFromIdentifier:") ~typ:(id @-> returning id) x +let intlInputMode self = msg_send ~self ~cmd:(selector "intlInputMode") ~typ:(returning id) +let keyboardInputModeWithIdentifier x self = msg_send ~self ~cmd:(selector "keyboardInputModeWithIdentifier:") ~typ:(id @-> returning id) x +let softwareLayoutFromIdentifier x self = msg_send ~self ~cmd:(selector "softwareLayoutFromIdentifier:") ~typ:(id @-> returning id) x +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIKeyboardInputModeController.ml b/uikit/UIKeyboardInputModeController.ml index 25f1bfa1..79d115f2 100644 --- a/uikit/UIKeyboardInputModeController.ml +++ b/uikit/UIKeyboardInputModeController.ml @@ -5,169 +5,165 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardInputModeController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardinputmodecontroller?language=objc}UIKeyboardInputModeController} *) -module C = struct - let _ASCIICapableInputModeIdentifierForPreferredLanguages self = msg_send ~self ~cmd:(selector "ASCIICapableInputModeIdentifierForPreferredLanguages") ~typ:(returning (id)) - let dictationInputModeIsFunctional self = msg_send ~self ~cmd:(selector "dictationInputModeIsFunctional") ~typ:(returning (bool)) - let disallowedDictationLanguagesForDeviceLanguage self = msg_send ~self ~cmd:(selector "disallowedDictationLanguagesForDeviceLanguage") ~typ:(returning (id)) - let inputModeIdentifierForPreferredLanguages x ~passingTest self = msg_send ~self ~cmd:(selector "inputModeIdentifierForPreferredLanguages:passingTest:") ~typ:(id @-> ptr void @-> returning (id)) x passingTest - let sharedInputModeController self = msg_send ~self ~cmd:(selector "sharedInputModeController") ~typ:(returning (id)) -end +let self = get_class "UIKeyboardInputModeController" -let activeDictationLanguages self = msg_send ~self ~cmd:(selector "activeDictationLanguages") ~typ:(returning (id)) -let activeDictationSupportedInputModeIdentifiers self = msg_send ~self ~cmd:(selector "activeDictationSupportedInputModeIdentifiers") ~typ:(returning (id)) -let activeInputModeIdentifiers self = msg_send ~self ~cmd:(selector "activeInputModeIdentifiers") ~typ:(returning (id)) -let activeInputModes self = msg_send ~self ~cmd:(selector "activeInputModes") ~typ:(returning (id)) -let activeUserSelectableInputModeIdentifiers self = msg_send ~self ~cmd:(selector "activeUserSelectableInputModeIdentifiers") ~typ:(returning (id)) -let activeUserSelectableInputModes self = msg_send ~self ~cmd:(selector "activeUserSelectableInputModes") ~typ:(returning (id)) -let additionalTextInputLocales self = msg_send ~self ~cmd:(selector "additionalTextInputLocales") ~typ:(returning (id)) -let allowedExtensions self = msg_send ~self ~cmd:(selector "allowedExtensions") ~typ:(returning (id)) -let appendPasscodeInputModes x self = msg_send ~self ~cmd:(selector "appendPasscodeInputModes:") ~typ:(id @-> returning (id)) x -let changePreferredEmojiSearchInputModeForInputDelegate x self = msg_send ~self ~cmd:(selector "changePreferredEmojiSearchInputModeForInputDelegate:") ~typ:(id @-> returning (void)) x -let clearNextInputModeToUse self = msg_send ~self ~cmd:(selector "clearNextInputModeToUse") ~typ:(returning (void)) -let containsDictationSupportedInputMode self = msg_send ~self ~cmd:(selector "containsDictationSupportedInputMode") ~typ:(returning (bool)) -let containsEmojiInputMode self = msg_send ~self ~cmd:(selector "containsEmojiInputMode") ~typ:(returning (bool)) -let currentInputMode self = msg_send ~self ~cmd:(selector "currentInputMode") ~typ:(returning (id)) -let currentInputModeInPreference self = msg_send ~self ~cmd:(selector "currentInputModeInPreference") ~typ:(returning (id)) -let currentLinguisticInputMode self = msg_send ~self ~cmd:(selector "currentLinguisticInputMode") ~typ:(returning (id)) -let currentLocaleRequiresExtendedSetup self = msg_send ~self ~cmd:(selector "currentLocaleRequiresExtendedSetup") ~typ:(returning (bool)) -let currentPublicInputMode self = msg_send ~self ~cmd:(selector "currentPublicInputMode") ~typ:(returning (id)) -let currentSystemInputMode self = msg_send ~self ~cmd:(selector "currentSystemInputMode") ~typ:(returning (id)) -let currentSystemInputModeExcludingEmoji x self = msg_send ~self ~cmd:(selector "currentSystemInputModeExcludingEmoji:") ~typ:(bool @-> returning (id)) x -let currentUsedInputMode self = msg_send ~self ~cmd:(selector "currentUsedInputMode") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultDictationLanguages x self = msg_send ~self ~cmd:(selector "defaultDictationLanguages:") ~typ:(id @-> returning (id)) x -let defaultEnabledInputModesForCurrentLocale x self = msg_send ~self ~cmd:(selector "defaultEnabledInputModesForCurrentLocale:") ~typ:(bool @-> returning (id)) x -let defaultInputModes self = msg_send ~self ~cmd:(selector "defaultInputModes") ~typ:(returning (id)) -let defaultKeyboardInputModes self = msg_send ~self ~cmd:(selector "defaultKeyboardInputModes") ~typ:(returning (id)) -let defaultNormalizedInputModes self = msg_send ~self ~cmd:(selector "defaultNormalizedInputModes") ~typ:(returning (id)) -let defaultRawInputModes self = msg_send ~self ~cmd:(selector "defaultRawInputModes") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let deviceStateIsLocked self = msg_send ~self ~cmd:(selector "deviceStateIsLocked") ~typ:(returning (bool)) -let didAcceptAddKeyboardInputMode self = msg_send ~self ~cmd:(selector "didAcceptAddKeyboardInputMode") ~typ:(returning (void)) -let didEnterBackground x self = msg_send ~self ~cmd:(selector "didEnterBackground:") ~typ:(id @-> returning (void)) x -let disableFloatingKeyboardFilter self = msg_send ~self ~cmd:(selector "disableFloatingKeyboardFilter") ~typ:(returning (bool)) -let disablesUpdateLastUsedInputModeTimer self = msg_send ~self ~cmd:(selector "disablesUpdateLastUsedInputModeTimer") ~typ:(returning (bool)) -let documentInputMode self = msg_send ~self ~cmd:(selector "documentInputMode") ~typ:(returning (id)) -let enabledDictationLanguages self = msg_send ~self ~cmd:(selector "enabledDictationLanguages") ~typ:(returning (id)) -let enabledInputModeIdentifiers self = msg_send ~self ~cmd:(selector "enabledInputModeIdentifiers") ~typ:(returning (id)) -let enabledInputModeIdentifiers' x self = msg_send ~self ~cmd:(selector "enabledInputModeIdentifiers:") ~typ:(bool @-> returning (id)) x -let enabledInputModeLanguages self = msg_send ~self ~cmd:(selector "enabledInputModeLanguages") ~typ:(returning (id)) -let enabledInputModes self = msg_send ~self ~cmd:(selector "enabledInputModes") ~typ:(returning (id)) -let extensionInputModes self = msg_send ~self ~cmd:(selector "extensionInputModes") ~typ:(returning (id)) -let extensionMatchingContext self = msg_send ~self ~cmd:(selector "extensionMatchingContext") ~typ:(returning (id)) -let fallbackCurrentInputModeForFilteredInputMode x ~fromInputModes self = msg_send ~self ~cmd:(selector "fallbackCurrentInputModeForFilteredInputMode:fromInputModes:") ~typ:(id @-> id @-> returning (id)) x fromInputModes -let fallbackCurrentInputModeForFilteredInputModeIdentifier x ~fromInputModeIdentifiers self = msg_send ~self ~cmd:(selector "fallbackCurrentInputModeForFilteredInputModeIdentifier:fromInputModeIdentifiers:") ~typ:(id @-> id @-> returning (id)) x fromInputModeIdentifiers -let filteredInputModesForSiriLanguageFromInputModes x self = msg_send ~self ~cmd:(selector "filteredInputModesForSiriLanguageFromInputModes:") ~typ:(id @-> returning (id)) x -let filteredPadInputModesFromInputModes x ~withRules self = msg_send ~self ~cmd:(selector "filteredPadInputModesFromInputModes:withRules:") ~typ:(id @-> id @-> returning (id)) x withRules -let filteredTVInputModesFromInputModes x self = msg_send ~self ~cmd:(selector "filteredTVInputModesFromInputModes:") ~typ:(id @-> returning (id)) x -let forceDictationReturnToKeyboardInputMode self = msg_send ~self ~cmd:(selector "forceDictationReturnToKeyboardInputMode") ~typ:(returning (void)) -let fullInputModeFromIdentifier x ~hardwareKeyboardLanguage self = msg_send ~self ~cmd:(selector "fullInputModeFromIdentifier:hardwareKeyboardLanguage:") ~typ:(id @-> id @-> returning (id)) x hardwareKeyboardLanguage -let getDictationSLSLanguagesEnabled self = msg_send ~self ~cmd:(selector "getDictationSLSLanguagesEnabled") ~typ:(returning (id)) -let getHardwareKeyboardLanguage x ~countryCode self = msg_send ~self ~cmd:(selector "getHardwareKeyboardLanguage:countryCode:") ~typ:(ptr (id) @-> ptr (id) @-> returning (void)) x countryCode -let handleLastUsedInputMode x ~withNewInputMode self = msg_send ~self ~cmd:(selector "handleLastUsedInputMode:withNewInputMode:") ~typ:(id @-> id @-> returning (void)) x withNewInputMode -let handleSpecificHardwareKeyboard x self = msg_send ~self ~cmd:(selector "handleSpecificHardwareKeyboard:") ~typ:(id @-> returning (void)) x -let hardwareInputMode self = msg_send ~self ~cmd:(selector "hardwareInputMode") ~typ:(returning (id)) -let hardwareLayoutToUseForInputMode x self = msg_send ~self ~cmd:(selector "hardwareLayoutToUseForInputMode:") ~typ:(id @-> returning (id)) x -let hardwareLayoutToUseForInputMode' x ~hardwareKeyboardLanguage ~countryCode self = msg_send ~self ~cmd:(selector "hardwareLayoutToUseForInputMode:hardwareKeyboardLanguage:countryCode:") ~typ:(id @-> id @-> id @-> returning (id)) x hardwareKeyboardLanguage countryCode -let identifierIsValidSystemInputMode x self = msg_send ~self ~cmd:(selector "identifierIsValidSystemInputMode:") ~typ:(id @-> returning (bool)) x -let identifiersFromInputModes x self = msg_send ~self ~cmd:(selector "identifiersFromInputModes:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let inputModeByReplacingSoftwareLayoutWithSoftwareLayout x ~inInputMode self = msg_send ~self ~cmd:(selector "inputModeByReplacingSoftwareLayoutWithSoftwareLayout:inInputMode:") ~typ:(id @-> id @-> returning (id)) x inInputMode -let inputModeContextIdentifier self = msg_send ~self ~cmd:(selector "inputModeContextIdentifier") ~typ:(returning (id)) -let inputModeForASCIIToggleWithTraits x self = msg_send ~self ~cmd:(selector "inputModeForASCIIToggleWithTraits:") ~typ:(id @-> returning (id)) x -let inputModeIdentifierLastUsedForLanguage x self = msg_send ~self ~cmd:(selector "inputModeIdentifierLastUsedForLanguage:") ~typ:(id @-> returning (id)) x -let inputModeIdentifierLastUsedForLanguage' x ~includingExtensions self = msg_send ~self ~cmd:(selector "inputModeIdentifierLastUsedForLanguage:includingExtensions:") ~typ:(id @-> bool @-> returning (id)) x includingExtensions -let inputModeLastUsedForLanguage x self = msg_send ~self ~cmd:(selector "inputModeLastUsedForLanguage:") ~typ:(id @-> returning (id)) x -let inputModeLastUsedForLanguage' x ~includingExtensions self = msg_send ~self ~cmd:(selector "inputModeLastUsedForLanguage:includingExtensions:") ~typ:(id @-> bool @-> returning (id)) x includingExtensions -let inputModeToAddForKeyboardLanguage x ~countryCode ~activeModes self = msg_send ~self ~cmd:(selector "inputModeToAddForKeyboardLanguage:countryCode:activeModes:") ~typ:(id @-> id @-> id @-> returning (id)) x countryCode activeModes -let inputModeWithIdentifier x self = msg_send ~self ~cmd:(selector "inputModeWithIdentifier:") ~typ:(id @-> returning (id)) x -let inputModesByAppendingApplicationLanguagesToInputModes x self = msg_send ~self ~cmd:(selector "inputModesByAppendingApplicationLanguagesToInputModes:") ~typ:(id @-> returning (id)) x -let inputModesFromIdentifiers x self = msg_send ~self ~cmd:(selector "inputModesFromIdentifiers:") ~typ:(id @-> returning (id)) x -let inputModesWithoutHardwareSupport self = msg_send ~self ~cmd:(selector "inputModesWithoutHardwareSupport") ~typ:(returning (id)) -let isDictationLanguageEnabled x self = msg_send ~self ~cmd:(selector "isDictationLanguageEnabled:") ~typ:(id @-> returning (bool)) x -let isLockscreenPasscodeKeyboard self = msg_send ~self ~cmd:(selector "isLockscreenPasscodeKeyboard") ~typ:(returning (bool)) -let keyboardInputModeIdentifiers self = msg_send ~self ~cmd:(selector "keyboardInputModeIdentifiers") ~typ:(returning (id)) -let keyboardInputModes self = msg_send ~self ~cmd:(selector "keyboardInputModes") ~typ:(returning (id)) -let keyboardLanguageForDictationLanguage x self = msg_send ~self ~cmd:(selector "keyboardLanguageForDictationLanguage:") ~typ:(id @-> returning (id)) x -let keyboardsPreferencesChanged x self = msg_send ~self ~cmd:(selector "keyboardsPreferencesChanged:") ~typ:(id @-> returning (void)) x -let lastInputModeSwitchTriggeredByASCIIToggle self = msg_send ~self ~cmd:(selector "lastInputModeSwitchTriggeredByASCIIToggle") ~typ:(returning (bool)) -let lastUsedInputMode self = msg_send ~self ~cmd:(selector "lastUsedInputMode") ~typ:(returning (id)) -let lastUsedInputModeForCurrentContext self = msg_send ~self ~cmd:(selector "lastUsedInputModeForCurrentContext") ~typ:(returning (id)) -let lastUsedInputModeForTextInputMode x self = msg_send ~self ~cmd:(selector "lastUsedInputModeForTextInputMode:") ~typ:(id @-> returning (id)) x -let loadSuggestedInputModesForSiriLanguage self = msg_send ~self ~cmd:(selector "loadSuggestedInputModesForSiriLanguage") ~typ:(returning (void)) -let nextInputModeFromList x ~withFilter ~withTraits self = msg_send ~self ~cmd:(selector "nextInputModeFromList:withFilter:withTraits:") ~typ:(id @-> ullong @-> id @-> returning (id)) x (ULLong.of_int withFilter) withTraits -let nextInputModeInPreferenceListForTraits x self = msg_send ~self ~cmd:(selector "nextInputModeInPreferenceListForTraits:") ~typ:(id @-> returning (id)) x -let nextInputModeInPreferenceListForTraits1 x ~updatePreference self = msg_send ~self ~cmd:(selector "nextInputModeInPreferenceListForTraits:updatePreference:") ~typ:(id @-> bool @-> returning (id)) x updatePreference -let nextInputModeInPreferenceListForTraits2 x ~updatePreference ~skipEmoji self = msg_send ~self ~cmd:(selector "nextInputModeInPreferenceListForTraits:updatePreference:skipEmoji:") ~typ:(id @-> bool @-> bool @-> returning (id)) x updatePreference skipEmoji -let nextInputModeToUse self = msg_send ~self ~cmd:(selector "nextInputModeToUse") ~typ:(returning (id)) -let nextInputModeToUseForTraits x self = msg_send ~self ~cmd:(selector "nextInputModeToUseForTraits:") ~typ:(id @-> returning (id)) x -let nextInputModeToUseForTraits' x ~updatePreference self = msg_send ~self ~cmd:(selector "nextInputModeToUseForTraits:updatePreference:") ~typ:(id @-> bool @-> returning (id)) x updatePreference -let normalizedEnabledInputModeIdentifiers self = msg_send ~self ~cmd:(selector "normalizedEnabledInputModeIdentifiers") ~typ:(returning (id)) -let normalizedInputModes self = msg_send ~self ~cmd:(selector "normalizedInputModes") ~typ:(returning (id)) -let performWithForcedExtensionInputModes x self = msg_send ~self ~cmd:(selector "performWithForcedExtensionInputModes:") ~typ:(ptr void @-> returning (void)) x -let performWithoutExtensionInputModes x self = msg_send ~self ~cmd:(selector "performWithoutExtensionInputModes:") ~typ:(ptr void @-> returning (void)) x -let releaseAddKeyboardNotification self = msg_send ~self ~cmd:(selector "releaseAddKeyboardNotification") ~typ:(returning (void)) -let saveDeviceUnlockPasscodeInputModes self = msg_send ~self ~cmd:(selector "saveDeviceUnlockPasscodeInputModes") ~typ:(returning (void)) -let setAdditionalTextInputLocales x self = msg_send ~self ~cmd:(selector "setAdditionalTextInputLocales:") ~typ:(id @-> returning (void)) x -let setCurrentInputMode x self = msg_send ~self ~cmd:(selector "setCurrentInputMode:") ~typ:(id @-> returning (void)) x -let setCurrentInputModeInPreference x self = msg_send ~self ~cmd:(selector "setCurrentInputModeInPreference:") ~typ:(id @-> returning (void)) x -let setCurrentUsedInputMode x self = msg_send ~self ~cmd:(selector "setCurrentUsedInputMode:") ~typ:(id @-> returning (void)) x -let setDefaultInputModes x self = msg_send ~self ~cmd:(selector "setDefaultInputModes:") ~typ:(id @-> returning (void)) x -let setDefaultKeyboardInputModes x self = msg_send ~self ~cmd:(selector "setDefaultKeyboardInputModes:") ~typ:(id @-> returning (void)) x -let setDefaultNormalizedInputModes x self = msg_send ~self ~cmd:(selector "setDefaultNormalizedInputModes:") ~typ:(id @-> returning (void)) x -let setDefaultRawInputModes x self = msg_send ~self ~cmd:(selector "setDefaultRawInputModes:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDictationSLSLanguagesEnabled x self = msg_send ~self ~cmd:(selector "setDictationSLSLanguagesEnabled:") ~typ:(id @-> returning (void)) x -let setDisableFloatingKeyboardFilter x self = msg_send ~self ~cmd:(selector "setDisableFloatingKeyboardFilter:") ~typ:(bool @-> returning (void)) x -let setDisablesUpdateLastUsedInputModeTimer x self = msg_send ~self ~cmd:(selector "setDisablesUpdateLastUsedInputModeTimer:") ~typ:(bool @-> returning (void)) x -let setDocumentInputMode x self = msg_send ~self ~cmd:(selector "setDocumentInputMode:") ~typ:(id @-> returning (void)) x -let setEnabledInputModes x self = msg_send ~self ~cmd:(selector "setEnabledInputModes:") ~typ:(id @-> returning (void)) x -let setExtensionMatchingContext x self = msg_send ~self ~cmd:(selector "setExtensionMatchingContext:") ~typ:(id @-> returning (void)) x -let setInputModeContextIdentifier x self = msg_send ~self ~cmd:(selector "setInputModeContextIdentifier:") ~typ:(id @-> returning (void)) x -let setKeyboardInputModeIdentifiers x self = msg_send ~self ~cmd:(selector "setKeyboardInputModeIdentifiers:") ~typ:(id @-> returning (void)) x -let setKeyboardInputModes x self = msg_send ~self ~cmd:(selector "setKeyboardInputModes:") ~typ:(id @-> returning (void)) x -let setLastInputModeSwitchTriggeredByASCIIToggle x self = msg_send ~self ~cmd:(selector "setLastInputModeSwitchTriggeredByASCIIToggle:") ~typ:(bool @-> returning (void)) x -let setLastUsedInputMode x self = msg_send ~self ~cmd:(selector "setLastUsedInputMode:") ~typ:(id @-> returning (void)) x -let setNextInputModeToUse x self = msg_send ~self ~cmd:(selector "setNextInputModeToUse:") ~typ:(id @-> returning (void)) x -let setNormalizedInputModes x self = msg_send ~self ~cmd:(selector "setNormalizedInputModes:") ~typ:(id @-> returning (void)) x -let setShouldRunContinuousDiscovery x self = msg_send ~self ~cmd:(selector "setShouldRunContinuousDiscovery:") ~typ:(bool @-> returning (void)) x -let setSuggestedInputModesForSiriLanguage x self = msg_send ~self ~cmd:(selector "setSuggestedInputModesForSiriLanguage:") ~typ:(id @-> returning (void)) x -let setUserSelectableKeyboardInputModeIdentifiers x self = msg_send ~self ~cmd:(selector "setUserSelectableKeyboardInputModeIdentifiers:") ~typ:(id @-> returning (void)) x -let setUserSelectableKeyboardInputModes x self = msg_send ~self ~cmd:(selector "setUserSelectableKeyboardInputModes:") ~typ:(id @-> returning (void)) x -let shouldRunContinuousDiscovery self = msg_send ~self ~cmd:(selector "shouldRunContinuousDiscovery") ~typ:(returning (bool)) -let showAddKeyboardAlertForInputModeIdentifier x self = msg_send ~self ~cmd:(selector "showAddKeyboardAlertForInputModeIdentifier:") ~typ:(id @-> returning (void)) x -let startConnectionForFileAtURL x ~forInputModeIdentifier self = msg_send ~self ~cmd:(selector "startConnectionForFileAtURL:forInputModeIdentifier:") ~typ:(id @-> id @-> returning (void)) x forInputModeIdentifier -let startDictationConnectionForFileAtURL x ~forInputModeIdentifier self = msg_send ~self ~cmd:(selector "startDictationConnectionForFileAtURL:forInputModeIdentifier:") ~typ:(id @-> id @-> returning (void)) x forInputModeIdentifier -let stopDictation self = msg_send ~self ~cmd:(selector "stopDictation") ~typ:(returning (void)) -let stopDictationAndResignFirstResponder self = msg_send ~self ~cmd:(selector "stopDictationAndResignFirstResponder") ~typ:(returning (void)) -let suggestedDictationLanguagesForDeviceLanguage self = msg_send ~self ~cmd:(selector "suggestedDictationLanguagesForDeviceLanguage") ~typ:(returning (id)) -let suggestedInputModesForCurrentHardwareKeyboardAndSuggestedInputModes x self = msg_send ~self ~cmd:(selector "suggestedInputModesForCurrentHardwareKeyboardAndSuggestedInputModes:") ~typ:(id @-> returning (id)) x -let suggestedInputModesForCurrentLocale self = msg_send ~self ~cmd:(selector "suggestedInputModesForCurrentLocale") ~typ:(returning (id)) -let suggestedInputModesForCurrentLocale' x ~fallbackToDefaultInputModes self = msg_send ~self ~cmd:(selector "suggestedInputModesForCurrentLocale:fallbackToDefaultInputModes:") ~typ:(bool @-> bool @-> returning (id)) x fallbackToDefaultInputModes -let suggestedInputModesForHardwareKeyboardLanguage x ~countryCode ~inputModes self = msg_send ~self ~cmd:(selector "suggestedInputModesForHardwareKeyboardLanguage:countryCode:inputModes:") ~typ:(id @-> id @-> id @-> returning (id)) x countryCode inputModes -let suggestedInputModesForLocales x self = msg_send ~self ~cmd:(selector "suggestedInputModesForLocales:") ~typ:(id @-> returning (id)) x -let suggestedInputModesForPreferredLanguages self = msg_send ~self ~cmd:(selector "suggestedInputModesForPreferredLanguages") ~typ:(returning (id)) -let suggestedInputModesForSiriLanguage self = msg_send ~self ~cmd:(selector "suggestedInputModesForSiriLanguage") ~typ:(returning (id)) -let supportedFullModesForHardwareKeyboard x ~countryCode ~activeModes ~matchedMode self = msg_send ~self ~cmd:(selector "supportedFullModesForHardwareKeyboard:countryCode:activeModes:matchedMode:") ~typ:(id @-> id @-> id @-> ptr (id) @-> returning (id)) x countryCode activeModes matchedMode -let supportedInputModeIdentifiers self = msg_send ~self ~cmd:(selector "supportedInputModeIdentifiers") ~typ:(returning (id)) -let supportedInputModesFromArray x self = msg_send ~self ~cmd:(selector "supportedInputModesFromArray:") ~typ:(id @-> returning (id)) x -let switchToCurrentSystemInputMode self = msg_send ~self ~cmd:(selector "switchToCurrentSystemInputMode") ~typ:(returning (void)) -let switchToDictationInputMode self = msg_send ~self ~cmd:(selector "switchToDictationInputMode") ~typ:(returning (void)) -let switchToDictationInputModeWithOptions x self = msg_send ~self ~cmd:(selector "switchToDictationInputModeWithOptions:") ~typ:(id @-> returning (void)) x -let textInputModeForResponder x self = msg_send ~self ~cmd:(selector "textInputModeForResponder:") ~typ:(id @-> returning (id)) x -let updateCurrentAndNextInputModes self = msg_send ~self ~cmd:(selector "updateCurrentAndNextInputModes") ~typ:(returning (void)) -let updateCurrentInputMode x self = msg_send ~self ~cmd:(selector "updateCurrentInputMode:") ~typ:(id @-> returning (void)) x -let updateDefaultInputModesIfNecessaryForIdiom self = msg_send ~self ~cmd:(selector "updateDefaultInputModesIfNecessaryForIdiom") ~typ:(returning (void)) -let updateEnabledDictationAndSLSLanguagesWithCompletionBlock x self = msg_send ~self ~cmd:(selector "updateEnabledDictationAndSLSLanguagesWithCompletionBlock:") ~typ:(ptr void @-> returning (void)) x -let updateEnabledDictationLanguages x self = msg_send ~self ~cmd:(selector "updateEnabledDictationLanguages:") ~typ:(bool @-> returning (id)) x -let updateLastUsedInputMode x self = msg_send ~self ~cmd:(selector "updateLastUsedInputMode:") ~typ:(id @-> returning (void)) x -let updateUserSelectableInputModes self = msg_send ~self ~cmd:(selector "updateUserSelectableInputModes") ~typ:(returning (void)) -let userSelectableInputModeIdentifiersFromInputModeIdentifiers x self = msg_send ~self ~cmd:(selector "userSelectableInputModeIdentifiersFromInputModeIdentifiers:") ~typ:(id @-> returning (id)) x -let userSelectableInputModesFromInputModes x self = msg_send ~self ~cmd:(selector "userSelectableInputModesFromInputModes:") ~typ:(id @-> returning (id)) x -let userSelectableKeyboardInputModeIdentifiers self = msg_send ~self ~cmd:(selector "userSelectableKeyboardInputModeIdentifiers") ~typ:(returning (id)) -let userSelectableKeyboardInputModes self = msg_send ~self ~cmd:(selector "userSelectableKeyboardInputModes") ~typ:(returning (id)) -let verifyKeyboardExtensionsWithApp self = msg_send ~self ~cmd:(selector "verifyKeyboardExtensionsWithApp") ~typ:(returning (bool)) -let willEnterForeground x self = msg_send ~self ~cmd:(selector "willEnterForeground:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let activeDictationLanguages self = msg_send ~self ~cmd:(selector "activeDictationLanguages") ~typ:(returning id) +let activeDictationSupportedInputModeIdentifiers self = msg_send ~self ~cmd:(selector "activeDictationSupportedInputModeIdentifiers") ~typ:(returning id) +let activeInputModeIdentifiers self = msg_send ~self ~cmd:(selector "activeInputModeIdentifiers") ~typ:(returning id) +let activeInputModes self = msg_send ~self ~cmd:(selector "activeInputModes") ~typ:(returning id) +let activeUserSelectableInputModeIdentifiers self = msg_send ~self ~cmd:(selector "activeUserSelectableInputModeIdentifiers") ~typ:(returning id) +let activeUserSelectableInputModes self = msg_send ~self ~cmd:(selector "activeUserSelectableInputModes") ~typ:(returning id) +let additionalTextInputLocales self = msg_send ~self ~cmd:(selector "additionalTextInputLocales") ~typ:(returning id) +let allowedExtensions self = msg_send ~self ~cmd:(selector "allowedExtensions") ~typ:(returning id) +let appendPasscodeInputModes x self = msg_send ~self ~cmd:(selector "appendPasscodeInputModes:") ~typ:(id @-> returning id) x +let changePreferredEmojiSearchInputModeForInputDelegate x self = msg_send ~self ~cmd:(selector "changePreferredEmojiSearchInputModeForInputDelegate:") ~typ:(id @-> returning void) x +let clearNextInputModeToUse self = msg_send ~self ~cmd:(selector "clearNextInputModeToUse") ~typ:(returning void) +let containsDictationSupportedInputMode self = msg_send ~self ~cmd:(selector "containsDictationSupportedInputMode") ~typ:(returning bool) +let containsEmojiInputMode self = msg_send ~self ~cmd:(selector "containsEmojiInputMode") ~typ:(returning bool) +let currentInputMode self = msg_send ~self ~cmd:(selector "currentInputMode") ~typ:(returning id) +let currentInputModeInPreference self = msg_send ~self ~cmd:(selector "currentInputModeInPreference") ~typ:(returning id) +let currentLinguisticInputMode self = msg_send ~self ~cmd:(selector "currentLinguisticInputMode") ~typ:(returning id) +let currentLocaleRequiresExtendedSetup self = msg_send ~self ~cmd:(selector "currentLocaleRequiresExtendedSetup") ~typ:(returning bool) +let currentPublicInputMode self = msg_send ~self ~cmd:(selector "currentPublicInputMode") ~typ:(returning id) +let currentSystemInputMode self = msg_send ~self ~cmd:(selector "currentSystemInputMode") ~typ:(returning id) +let currentSystemInputModeExcludingEmoji x self = msg_send ~self ~cmd:(selector "currentSystemInputModeExcludingEmoji:") ~typ:(bool @-> returning id) x +let currentUsedInputMode self = msg_send ~self ~cmd:(selector "currentUsedInputMode") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultDictationLanguages x self = msg_send ~self ~cmd:(selector "defaultDictationLanguages:") ~typ:(id @-> returning id) x +let defaultEnabledInputModesForCurrentLocale x self = msg_send ~self ~cmd:(selector "defaultEnabledInputModesForCurrentLocale:") ~typ:(bool @-> returning id) x +let defaultInputModes self = msg_send ~self ~cmd:(selector "defaultInputModes") ~typ:(returning id) +let defaultKeyboardInputModes self = msg_send ~self ~cmd:(selector "defaultKeyboardInputModes") ~typ:(returning id) +let defaultNormalizedInputModes self = msg_send ~self ~cmd:(selector "defaultNormalizedInputModes") ~typ:(returning id) +let defaultRawInputModes self = msg_send ~self ~cmd:(selector "defaultRawInputModes") ~typ:(returning id) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let deviceStateIsLocked self = msg_send ~self ~cmd:(selector "deviceStateIsLocked") ~typ:(returning bool) +let didAcceptAddKeyboardInputMode self = msg_send ~self ~cmd:(selector "didAcceptAddKeyboardInputMode") ~typ:(returning void) +let didEnterBackground x self = msg_send ~self ~cmd:(selector "didEnterBackground:") ~typ:(id @-> returning void) x +let disableFloatingKeyboardFilter self = msg_send ~self ~cmd:(selector "disableFloatingKeyboardFilter") ~typ:(returning bool) +let disablesUpdateLastUsedInputModeTimer self = msg_send ~self ~cmd:(selector "disablesUpdateLastUsedInputModeTimer") ~typ:(returning bool) +let documentInputMode self = msg_send ~self ~cmd:(selector "documentInputMode") ~typ:(returning id) +let enabledDictationLanguages self = msg_send ~self ~cmd:(selector "enabledDictationLanguages") ~typ:(returning id) +let enabledInputModeIdentifiers self = msg_send ~self ~cmd:(selector "enabledInputModeIdentifiers") ~typ:(returning id) +let enabledInputModeIdentifiers' x self = msg_send ~self ~cmd:(selector "enabledInputModeIdentifiers:") ~typ:(bool @-> returning id) x +let enabledInputModeLanguages self = msg_send ~self ~cmd:(selector "enabledInputModeLanguages") ~typ:(returning id) +let enabledInputModes self = msg_send ~self ~cmd:(selector "enabledInputModes") ~typ:(returning id) +let extensionInputModes self = msg_send ~self ~cmd:(selector "extensionInputModes") ~typ:(returning id) +let extensionMatchingContext self = msg_send ~self ~cmd:(selector "extensionMatchingContext") ~typ:(returning id) +let fallbackCurrentInputModeForFilteredInputMode x ~fromInputModes self = msg_send ~self ~cmd:(selector "fallbackCurrentInputModeForFilteredInputMode:fromInputModes:") ~typ:(id @-> id @-> returning id) x fromInputModes +let fallbackCurrentInputModeForFilteredInputModeIdentifier x ~fromInputModeIdentifiers self = msg_send ~self ~cmd:(selector "fallbackCurrentInputModeForFilteredInputModeIdentifier:fromInputModeIdentifiers:") ~typ:(id @-> id @-> returning id) x fromInputModeIdentifiers +let filteredInputModesForSiriLanguageFromInputModes x self = msg_send ~self ~cmd:(selector "filteredInputModesForSiriLanguageFromInputModes:") ~typ:(id @-> returning id) x +let filteredPadInputModesFromInputModes x ~withRules self = msg_send ~self ~cmd:(selector "filteredPadInputModesFromInputModes:withRules:") ~typ:(id @-> id @-> returning id) x withRules +let filteredTVInputModesFromInputModes x self = msg_send ~self ~cmd:(selector "filteredTVInputModesFromInputModes:") ~typ:(id @-> returning id) x +let forceDictationReturnToKeyboardInputMode self = msg_send ~self ~cmd:(selector "forceDictationReturnToKeyboardInputMode") ~typ:(returning void) +let fullInputModeFromIdentifier x ~hardwareKeyboardLanguage self = msg_send ~self ~cmd:(selector "fullInputModeFromIdentifier:hardwareKeyboardLanguage:") ~typ:(id @-> id @-> returning id) x hardwareKeyboardLanguage +let getDictationSLSLanguagesEnabled self = msg_send ~self ~cmd:(selector "getDictationSLSLanguagesEnabled") ~typ:(returning id) +let getHardwareKeyboardLanguage x ~countryCode self = msg_send ~self ~cmd:(selector "getHardwareKeyboardLanguage:countryCode:") ~typ:((ptr id) @-> (ptr id) @-> returning void) x countryCode +let handleLastUsedInputMode x ~withNewInputMode self = msg_send ~self ~cmd:(selector "handleLastUsedInputMode:withNewInputMode:") ~typ:(id @-> id @-> returning void) x withNewInputMode +let handleSpecificHardwareKeyboard x self = msg_send ~self ~cmd:(selector "handleSpecificHardwareKeyboard:") ~typ:(id @-> returning void) x +let hardwareInputMode self = msg_send ~self ~cmd:(selector "hardwareInputMode") ~typ:(returning id) +let hardwareLayoutToUseForInputMode x self = msg_send ~self ~cmd:(selector "hardwareLayoutToUseForInputMode:") ~typ:(id @-> returning id) x +let hardwareLayoutToUseForInputMode' x ~hardwareKeyboardLanguage ~countryCode self = msg_send ~self ~cmd:(selector "hardwareLayoutToUseForInputMode:hardwareKeyboardLanguage:countryCode:") ~typ:(id @-> id @-> id @-> returning id) x hardwareKeyboardLanguage countryCode +let identifierIsValidSystemInputMode x self = msg_send ~self ~cmd:(selector "identifierIsValidSystemInputMode:") ~typ:(id @-> returning bool) x +let identifiersFromInputModes x self = msg_send ~self ~cmd:(selector "identifiersFromInputModes:") ~typ:(id @-> returning id) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let inputModeByReplacingSoftwareLayoutWithSoftwareLayout x ~inInputMode self = msg_send ~self ~cmd:(selector "inputModeByReplacingSoftwareLayoutWithSoftwareLayout:inInputMode:") ~typ:(id @-> id @-> returning id) x inInputMode +let inputModeContextIdentifier self = msg_send ~self ~cmd:(selector "inputModeContextIdentifier") ~typ:(returning id) +let inputModeForASCIIToggleWithTraits x self = msg_send ~self ~cmd:(selector "inputModeForASCIIToggleWithTraits:") ~typ:(id @-> returning id) x +let inputModeIdentifierLastUsedForLanguage x self = msg_send ~self ~cmd:(selector "inputModeIdentifierLastUsedForLanguage:") ~typ:(id @-> returning id) x +let inputModeIdentifierLastUsedForLanguage' x ~includingExtensions self = msg_send ~self ~cmd:(selector "inputModeIdentifierLastUsedForLanguage:includingExtensions:") ~typ:(id @-> bool @-> returning id) x includingExtensions +let inputModeLastUsedForLanguage x self = msg_send ~self ~cmd:(selector "inputModeLastUsedForLanguage:") ~typ:(id @-> returning id) x +let inputModeLastUsedForLanguage' x ~includingExtensions self = msg_send ~self ~cmd:(selector "inputModeLastUsedForLanguage:includingExtensions:") ~typ:(id @-> bool @-> returning id) x includingExtensions +let inputModeToAddForKeyboardLanguage x ~countryCode ~activeModes self = msg_send ~self ~cmd:(selector "inputModeToAddForKeyboardLanguage:countryCode:activeModes:") ~typ:(id @-> id @-> id @-> returning id) x countryCode activeModes +let inputModeWithIdentifier x self = msg_send ~self ~cmd:(selector "inputModeWithIdentifier:") ~typ:(id @-> returning id) x +let inputModesByAppendingApplicationLanguagesToInputModes x self = msg_send ~self ~cmd:(selector "inputModesByAppendingApplicationLanguagesToInputModes:") ~typ:(id @-> returning id) x +let inputModesFromIdentifiers x self = msg_send ~self ~cmd:(selector "inputModesFromIdentifiers:") ~typ:(id @-> returning id) x +let inputModesWithoutHardwareSupport self = msg_send ~self ~cmd:(selector "inputModesWithoutHardwareSupport") ~typ:(returning id) +let isDictationLanguageEnabled x self = msg_send ~self ~cmd:(selector "isDictationLanguageEnabled:") ~typ:(id @-> returning bool) x +let isLockscreenPasscodeKeyboard self = msg_send ~self ~cmd:(selector "isLockscreenPasscodeKeyboard") ~typ:(returning bool) +let keyboardInputModeIdentifiers self = msg_send ~self ~cmd:(selector "keyboardInputModeIdentifiers") ~typ:(returning id) +let keyboardInputModes self = msg_send ~self ~cmd:(selector "keyboardInputModes") ~typ:(returning id) +let keyboardLanguageForDictationLanguage x self = msg_send ~self ~cmd:(selector "keyboardLanguageForDictationLanguage:") ~typ:(id @-> returning id) x +let keyboardsPreferencesChanged x self = msg_send ~self ~cmd:(selector "keyboardsPreferencesChanged:") ~typ:(id @-> returning void) x +let lastInputModeSwitchTriggeredByASCIIToggle self = msg_send ~self ~cmd:(selector "lastInputModeSwitchTriggeredByASCIIToggle") ~typ:(returning bool) +let lastUsedInputMode self = msg_send ~self ~cmd:(selector "lastUsedInputMode") ~typ:(returning id) +let lastUsedInputModeForCurrentContext self = msg_send ~self ~cmd:(selector "lastUsedInputModeForCurrentContext") ~typ:(returning id) +let lastUsedInputModeForTextInputMode x self = msg_send ~self ~cmd:(selector "lastUsedInputModeForTextInputMode:") ~typ:(id @-> returning id) x +let loadSuggestedInputModesForSiriLanguage self = msg_send ~self ~cmd:(selector "loadSuggestedInputModesForSiriLanguage") ~typ:(returning void) +let nextInputModeFromList x ~withFilter ~withTraits self = msg_send ~self ~cmd:(selector "nextInputModeFromList:withFilter:withTraits:") ~typ:(id @-> ullong @-> id @-> returning id) x (ULLong.of_int withFilter) withTraits +let nextInputModeInPreferenceListForTraits x self = msg_send ~self ~cmd:(selector "nextInputModeInPreferenceListForTraits:") ~typ:(id @-> returning id) x +let nextInputModeInPreferenceListForTraits1 x ~updatePreference self = msg_send ~self ~cmd:(selector "nextInputModeInPreferenceListForTraits:updatePreference:") ~typ:(id @-> bool @-> returning id) x updatePreference +let nextInputModeInPreferenceListForTraits2 x ~updatePreference ~skipEmoji self = msg_send ~self ~cmd:(selector "nextInputModeInPreferenceListForTraits:updatePreference:skipEmoji:") ~typ:(id @-> bool @-> bool @-> returning id) x updatePreference skipEmoji +let nextInputModeToUse self = msg_send ~self ~cmd:(selector "nextInputModeToUse") ~typ:(returning id) +let nextInputModeToUseForTraits x self = msg_send ~self ~cmd:(selector "nextInputModeToUseForTraits:") ~typ:(id @-> returning id) x +let nextInputModeToUseForTraits' x ~updatePreference self = msg_send ~self ~cmd:(selector "nextInputModeToUseForTraits:updatePreference:") ~typ:(id @-> bool @-> returning id) x updatePreference +let normalizedEnabledInputModeIdentifiers self = msg_send ~self ~cmd:(selector "normalizedEnabledInputModeIdentifiers") ~typ:(returning id) +let normalizedInputModes self = msg_send ~self ~cmd:(selector "normalizedInputModes") ~typ:(returning id) +let performWithForcedExtensionInputModes x self = msg_send ~self ~cmd:(selector "performWithForcedExtensionInputModes:") ~typ:((ptr void) @-> returning void) x +let performWithoutExtensionInputModes x self = msg_send ~self ~cmd:(selector "performWithoutExtensionInputModes:") ~typ:((ptr void) @-> returning void) x +let releaseAddKeyboardNotification self = msg_send ~self ~cmd:(selector "releaseAddKeyboardNotification") ~typ:(returning void) +let saveDeviceUnlockPasscodeInputModes self = msg_send ~self ~cmd:(selector "saveDeviceUnlockPasscodeInputModes") ~typ:(returning void) +let setAdditionalTextInputLocales x self = msg_send ~self ~cmd:(selector "setAdditionalTextInputLocales:") ~typ:(id @-> returning void) x +let setCurrentInputMode x self = msg_send ~self ~cmd:(selector "setCurrentInputMode:") ~typ:(id @-> returning void) x +let setCurrentInputModeInPreference x self = msg_send ~self ~cmd:(selector "setCurrentInputModeInPreference:") ~typ:(id @-> returning void) x +let setCurrentUsedInputMode x self = msg_send ~self ~cmd:(selector "setCurrentUsedInputMode:") ~typ:(id @-> returning void) x +let setDefaultInputModes x self = msg_send ~self ~cmd:(selector "setDefaultInputModes:") ~typ:(id @-> returning void) x +let setDefaultKeyboardInputModes x self = msg_send ~self ~cmd:(selector "setDefaultKeyboardInputModes:") ~typ:(id @-> returning void) x +let setDefaultNormalizedInputModes x self = msg_send ~self ~cmd:(selector "setDefaultNormalizedInputModes:") ~typ:(id @-> returning void) x +let setDefaultRawInputModes x self = msg_send ~self ~cmd:(selector "setDefaultRawInputModes:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDictationSLSLanguagesEnabled x self = msg_send ~self ~cmd:(selector "setDictationSLSLanguagesEnabled:") ~typ:(id @-> returning void) x +let setDisableFloatingKeyboardFilter x self = msg_send ~self ~cmd:(selector "setDisableFloatingKeyboardFilter:") ~typ:(bool @-> returning void) x +let setDisablesUpdateLastUsedInputModeTimer x self = msg_send ~self ~cmd:(selector "setDisablesUpdateLastUsedInputModeTimer:") ~typ:(bool @-> returning void) x +let setDocumentInputMode x self = msg_send ~self ~cmd:(selector "setDocumentInputMode:") ~typ:(id @-> returning void) x +let setEnabledInputModes x self = msg_send ~self ~cmd:(selector "setEnabledInputModes:") ~typ:(id @-> returning void) x +let setExtensionMatchingContext x self = msg_send ~self ~cmd:(selector "setExtensionMatchingContext:") ~typ:(id @-> returning void) x +let setInputModeContextIdentifier x self = msg_send ~self ~cmd:(selector "setInputModeContextIdentifier:") ~typ:(id @-> returning void) x +let setKeyboardInputModeIdentifiers x self = msg_send ~self ~cmd:(selector "setKeyboardInputModeIdentifiers:") ~typ:(id @-> returning void) x +let setKeyboardInputModes x self = msg_send ~self ~cmd:(selector "setKeyboardInputModes:") ~typ:(id @-> returning void) x +let setLastInputModeSwitchTriggeredByASCIIToggle x self = msg_send ~self ~cmd:(selector "setLastInputModeSwitchTriggeredByASCIIToggle:") ~typ:(bool @-> returning void) x +let setLastUsedInputMode x self = msg_send ~self ~cmd:(selector "setLastUsedInputMode:") ~typ:(id @-> returning void) x +let setNextInputModeToUse x self = msg_send ~self ~cmd:(selector "setNextInputModeToUse:") ~typ:(id @-> returning void) x +let setNormalizedInputModes x self = msg_send ~self ~cmd:(selector "setNormalizedInputModes:") ~typ:(id @-> returning void) x +let setShouldRunContinuousDiscovery x self = msg_send ~self ~cmd:(selector "setShouldRunContinuousDiscovery:") ~typ:(bool @-> returning void) x +let setSuggestedInputModesForSiriLanguage x self = msg_send ~self ~cmd:(selector "setSuggestedInputModesForSiriLanguage:") ~typ:(id @-> returning void) x +let setUserSelectableKeyboardInputModeIdentifiers x self = msg_send ~self ~cmd:(selector "setUserSelectableKeyboardInputModeIdentifiers:") ~typ:(id @-> returning void) x +let setUserSelectableKeyboardInputModes x self = msg_send ~self ~cmd:(selector "setUserSelectableKeyboardInputModes:") ~typ:(id @-> returning void) x +let shouldRunContinuousDiscovery self = msg_send ~self ~cmd:(selector "shouldRunContinuousDiscovery") ~typ:(returning bool) +let showAddKeyboardAlertForInputModeIdentifier x self = msg_send ~self ~cmd:(selector "showAddKeyboardAlertForInputModeIdentifier:") ~typ:(id @-> returning void) x +let startConnectionForFileAtURL x ~forInputModeIdentifier self = msg_send ~self ~cmd:(selector "startConnectionForFileAtURL:forInputModeIdentifier:") ~typ:(id @-> id @-> returning void) x forInputModeIdentifier +let startDictationConnectionForFileAtURL x ~forInputModeIdentifier self = msg_send ~self ~cmd:(selector "startDictationConnectionForFileAtURL:forInputModeIdentifier:") ~typ:(id @-> id @-> returning void) x forInputModeIdentifier +let stopDictation self = msg_send ~self ~cmd:(selector "stopDictation") ~typ:(returning void) +let stopDictationAndResignFirstResponder self = msg_send ~self ~cmd:(selector "stopDictationAndResignFirstResponder") ~typ:(returning void) +let suggestedDictationLanguagesForDeviceLanguage self = msg_send ~self ~cmd:(selector "suggestedDictationLanguagesForDeviceLanguage") ~typ:(returning id) +let suggestedInputModesForCurrentHardwareKeyboardAndSuggestedInputModes x self = msg_send ~self ~cmd:(selector "suggestedInputModesForCurrentHardwareKeyboardAndSuggestedInputModes:") ~typ:(id @-> returning id) x +let suggestedInputModesForCurrentLocale self = msg_send ~self ~cmd:(selector "suggestedInputModesForCurrentLocale") ~typ:(returning id) +let suggestedInputModesForCurrentLocale' x ~fallbackToDefaultInputModes self = msg_send ~self ~cmd:(selector "suggestedInputModesForCurrentLocale:fallbackToDefaultInputModes:") ~typ:(bool @-> bool @-> returning id) x fallbackToDefaultInputModes +let suggestedInputModesForHardwareKeyboardLanguage x ~countryCode ~inputModes self = msg_send ~self ~cmd:(selector "suggestedInputModesForHardwareKeyboardLanguage:countryCode:inputModes:") ~typ:(id @-> id @-> id @-> returning id) x countryCode inputModes +let suggestedInputModesForLocales x self = msg_send ~self ~cmd:(selector "suggestedInputModesForLocales:") ~typ:(id @-> returning id) x +let suggestedInputModesForPreferredLanguages self = msg_send ~self ~cmd:(selector "suggestedInputModesForPreferredLanguages") ~typ:(returning id) +let suggestedInputModesForSiriLanguage self = msg_send ~self ~cmd:(selector "suggestedInputModesForSiriLanguage") ~typ:(returning id) +let supportedFullModesForHardwareKeyboard x ~countryCode ~activeModes ~matchedMode self = msg_send ~self ~cmd:(selector "supportedFullModesForHardwareKeyboard:countryCode:activeModes:matchedMode:") ~typ:(id @-> id @-> id @-> (ptr id) @-> returning id) x countryCode activeModes matchedMode +let supportedInputModeIdentifiers self = msg_send ~self ~cmd:(selector "supportedInputModeIdentifiers") ~typ:(returning id) +let supportedInputModesFromArray x self = msg_send ~self ~cmd:(selector "supportedInputModesFromArray:") ~typ:(id @-> returning id) x +let switchToCurrentSystemInputMode self = msg_send ~self ~cmd:(selector "switchToCurrentSystemInputMode") ~typ:(returning void) +let switchToDictationInputMode self = msg_send ~self ~cmd:(selector "switchToDictationInputMode") ~typ:(returning void) +let switchToDictationInputModeWithOptions x self = msg_send ~self ~cmd:(selector "switchToDictationInputModeWithOptions:") ~typ:(id @-> returning void) x +let textInputModeForResponder x self = msg_send ~self ~cmd:(selector "textInputModeForResponder:") ~typ:(id @-> returning id) x +let updateCurrentAndNextInputModes self = msg_send ~self ~cmd:(selector "updateCurrentAndNextInputModes") ~typ:(returning void) +let updateCurrentInputMode x self = msg_send ~self ~cmd:(selector "updateCurrentInputMode:") ~typ:(id @-> returning void) x +let updateDefaultInputModesIfNecessaryForIdiom self = msg_send ~self ~cmd:(selector "updateDefaultInputModesIfNecessaryForIdiom") ~typ:(returning void) +let updateEnabledDictationAndSLSLanguagesWithCompletionBlock x self = msg_send ~self ~cmd:(selector "updateEnabledDictationAndSLSLanguagesWithCompletionBlock:") ~typ:((ptr void) @-> returning void) x +let updateEnabledDictationLanguages x self = msg_send ~self ~cmd:(selector "updateEnabledDictationLanguages:") ~typ:(bool @-> returning id) x +let updateLastUsedInputMode x self = msg_send ~self ~cmd:(selector "updateLastUsedInputMode:") ~typ:(id @-> returning void) x +let updateUserSelectableInputModes self = msg_send ~self ~cmd:(selector "updateUserSelectableInputModes") ~typ:(returning void) +let userSelectableInputModeIdentifiersFromInputModeIdentifiers x self = msg_send ~self ~cmd:(selector "userSelectableInputModeIdentifiersFromInputModeIdentifiers:") ~typ:(id @-> returning id) x +let userSelectableInputModesFromInputModes x self = msg_send ~self ~cmd:(selector "userSelectableInputModesFromInputModes:") ~typ:(id @-> returning id) x +let userSelectableKeyboardInputModeIdentifiers self = msg_send ~self ~cmd:(selector "userSelectableKeyboardInputModeIdentifiers") ~typ:(returning id) +let userSelectableKeyboardInputModes self = msg_send ~self ~cmd:(selector "userSelectableKeyboardInputModes") ~typ:(returning id) +let verifyKeyboardExtensionsWithApp self = msg_send ~self ~cmd:(selector "verifyKeyboardExtensionsWithApp") ~typ:(returning bool) +let willEnterForeground x self = msg_send ~self ~cmd:(selector "willEnterForeground:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardInputModeControllerClass.ml b/uikit/UIKeyboardInputModeControllerClass.ml new file mode 100644 index 00000000..f7a0f3bb --- /dev/null +++ b/uikit/UIKeyboardInputModeControllerClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardinputmodecontroller?language=objc}UIKeyboardInputModeController} *) + +let _ASCIICapableInputModeIdentifierForPreferredLanguages self = msg_send ~self ~cmd:(selector "ASCIICapableInputModeIdentifierForPreferredLanguages") ~typ:(returning id) +let dictationInputModeIsFunctional self = msg_send ~self ~cmd:(selector "dictationInputModeIsFunctional") ~typ:(returning bool) +let disallowedDictationLanguagesForDeviceLanguage self = msg_send ~self ~cmd:(selector "disallowedDictationLanguagesForDeviceLanguage") ~typ:(returning id) +let inputModeIdentifierForPreferredLanguages x ~passingTest self = msg_send ~self ~cmd:(selector "inputModeIdentifierForPreferredLanguages:passingTest:") ~typ:(id @-> (ptr void) @-> returning id) x passingTest +let sharedInputModeController self = msg_send ~self ~cmd:(selector "sharedInputModeController") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIKeyboardKeySwipeTransition.ml b/uikit/UIKeyboardKeySwipeTransition.ml index 4f5be2c0..190a2ea7 100644 --- a/uikit/UIKeyboardKeySwipeTransition.ml +++ b/uikit/UIKeyboardKeySwipeTransition.ml @@ -5,31 +5,35 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardKeySwipeTransition" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardkeyswipetransition?language=objc}UIKeyboardKeySwipeTransition} *) -let animationDidStop x ~finished self = msg_send ~self ~cmd:(selector "animationDidStop:finished:") ~typ:(id @-> bool @-> returning (void)) x finished -let commitTransitionRebuild self = msg_send ~self ~cmd:(selector "commitTransitionRebuild") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let disableMeshOptimization self = msg_send ~self ~cmd:(selector "disableMeshOptimization") ~typ:(returning (bool)) -let endKeysOrdered self = msg_send ~self ~cmd:(selector "endKeysOrdered") ~typ:(returning (id)) -let gatherTransitionKeys self = msg_send ~self ~cmd:(selector "gatherTransitionKeys") ~typ:(returning (void)) -let keyInfos self = msg_send ~self ~cmd:(selector "keyInfos") ~typ:(returning (id)) -let keyRectForFrame x ~normalizedSubRect self = msg_send_stret ~self ~cmd:(selector "keyRectForFrame:normalizedSubRect:") ~typ:(CGRect.t @-> CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x normalizedSubRect -let meshTransformForKeyplane x ~forward ~initial self = msg_send ~self ~cmd:(selector "meshTransformForKeyplane:forward:initial:") ~typ:(id @-> bool @-> bool @-> returning (id)) x forward initial -let nonInteractiveDuration self = msg_send ~self ~cmd:(selector "nonInteractiveDuration") ~typ:(returning (double)) -let previousProgress self = msg_send ~self ~cmd:(selector "previousProgress") ~typ:(returning (double)) -let rebuildWithStartKeyplane x ~startView ~endKeyplane ~endView self = msg_send ~self ~cmd:(selector "rebuildWithStartKeyplane:startView:endKeyplane:endView:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x startView endKeyplane endView -let removeAllAnimations self = msg_send ~self ~cmd:(selector "removeAllAnimations") ~typ:(returning (void)) -let runNonInteractivelyWithCompletion x self = msg_send ~self ~cmd:(selector "runNonInteractivelyWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let setDisableMeshOptimization x self = msg_send ~self ~cmd:(selector "setDisableMeshOptimization:") ~typ:(bool @-> returning (void)) x -let setEndKeysOrdered x self = msg_send ~self ~cmd:(selector "setEndKeysOrdered:") ~typ:(id @-> returning (void)) x -let setKeyInfos x self = msg_send ~self ~cmd:(selector "setKeyInfos:") ~typ:(id @-> returning (void)) x -let setPreviousProgress x self = msg_send ~self ~cmd:(selector "setPreviousProgress:") ~typ:(double @-> returning (void)) x -let setStartGeometries x self = msg_send ~self ~cmd:(selector "setStartGeometries:") ~typ:(id @-> returning (void)) x -let setStartKeysOrdered x self = msg_send ~self ~cmd:(selector "setStartKeysOrdered:") ~typ:(id @-> returning (void)) x -let setTransitionKeys x self = msg_send ~self ~cmd:(selector "setTransitionKeys:") ~typ:(id @-> returning (void)) x -let startGeometries self = msg_send ~self ~cmd:(selector "startGeometries") ~typ:(returning (id)) -let startKeysOrdered self = msg_send ~self ~cmd:(selector "startKeysOrdered") ~typ:(returning (id)) -let transitionKeys self = msg_send ~self ~cmd:(selector "transitionKeys") ~typ:(returning (id)) -let updateWithProgress x self = msg_send ~self ~cmd:(selector "updateWithProgress:") ~typ:(double @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKeyboardKeySwipeTransition" + +let animationDidStop x ~finished self = msg_send ~self ~cmd:(selector "animationDidStop:finished:") ~typ:(id @-> bool @-> returning void) x finished +let commitTransitionRebuild self = msg_send ~self ~cmd:(selector "commitTransitionRebuild") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let disableMeshOptimization self = msg_send ~self ~cmd:(selector "disableMeshOptimization") ~typ:(returning bool) +let endKeysOrdered self = msg_send ~self ~cmd:(selector "endKeysOrdered") ~typ:(returning id) +let gatherTransitionKeys self = msg_send ~self ~cmd:(selector "gatherTransitionKeys") ~typ:(returning void) +let keyInfos self = msg_send ~self ~cmd:(selector "keyInfos") ~typ:(returning id) +let keyRectForFrame x ~normalizedSubRect self = msg_send ~self ~cmd:(selector "keyRectForFrame:normalizedSubRect:") ~typ:(CGRect.t @-> CGRect.t @-> returning CGRect.t) x normalizedSubRect +let meshTransformForKeyplane x ~forward ~initial self = msg_send ~self ~cmd:(selector "meshTransformForKeyplane:forward:initial:") ~typ:(id @-> bool @-> bool @-> returning id) x forward initial +let nonInteractiveDuration self = msg_send ~self ~cmd:(selector "nonInteractiveDuration") ~typ:(returning double) +let previousProgress self = msg_send ~self ~cmd:(selector "previousProgress") ~typ:(returning double) +let rebuildWithStartKeyplane x ~startView ~endKeyplane ~endView self = msg_send ~self ~cmd:(selector "rebuildWithStartKeyplane:startView:endKeyplane:endView:") ~typ:(id @-> id @-> id @-> id @-> returning void) x startView endKeyplane endView +let removeAllAnimations self = msg_send ~self ~cmd:(selector "removeAllAnimations") ~typ:(returning void) +let runNonInteractivelyWithCompletion x self = msg_send ~self ~cmd:(selector "runNonInteractivelyWithCompletion:") ~typ:((ptr void) @-> returning void) x +let setDisableMeshOptimization x self = msg_send ~self ~cmd:(selector "setDisableMeshOptimization:") ~typ:(bool @-> returning void) x +let setEndKeysOrdered x self = msg_send ~self ~cmd:(selector "setEndKeysOrdered:") ~typ:(id @-> returning void) x +let setKeyInfos x self = msg_send ~self ~cmd:(selector "setKeyInfos:") ~typ:(id @-> returning void) x +let setPreviousProgress x self = msg_send ~self ~cmd:(selector "setPreviousProgress:") ~typ:(double @-> returning void) x +let setStartGeometries x self = msg_send ~self ~cmd:(selector "setStartGeometries:") ~typ:(id @-> returning void) x +let setStartKeysOrdered x self = msg_send ~self ~cmd:(selector "setStartKeysOrdered:") ~typ:(id @-> returning void) x +let setTransitionKeys x self = msg_send ~self ~cmd:(selector "setTransitionKeys:") ~typ:(id @-> returning void) x +let startGeometries self = msg_send ~self ~cmd:(selector "startGeometries") ~typ:(returning id) +let startKeysOrdered self = msg_send ~self ~cmd:(selector "startKeysOrdered") ~typ:(returning id) +let transitionKeys self = msg_send ~self ~cmd:(selector "transitionKeys") ~typ:(returning id) +let updateWithProgress x self = msg_send ~self ~cmd:(selector "updateWithProgress:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardKeyplaneSnapshotView.ml b/uikit/UIKeyboardKeyplaneSnapshotView.ml index f5ead2a7..f2413908 100644 --- a/uikit/UIKeyboardKeyplaneSnapshotView.ml +++ b/uikit/UIKeyboardKeyplaneSnapshotView.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardKeyplaneSnapshotView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardkeyplanesnapshotview?language=objc}UIKeyboardKeyplaneSnapshotView} *) -let initWithKeyplaneView x self = msg_send ~self ~cmd:(selector "initWithKeyplaneView:") ~typ:(id @-> returning (id)) x -let setAlpha x self = msg_send ~self ~cmd:(selector "setAlpha:") ~typ:(double @-> returning (void)) x -let snapshotFromView x self = msg_send ~self ~cmd:(selector "snapshotFromView:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let self = get_class "UIKeyboardKeyplaneSnapshotView" + +let initWithKeyplaneView x self = msg_send ~self ~cmd:(selector "initWithKeyplaneView:") ~typ:(id @-> returning id) x +let setAlpha x self = msg_send ~self ~cmd:(selector "setAlpha:") ~typ:(double @-> returning void) x +let snapshotFromView x self = msg_send ~self ~cmd:(selector "snapshotFromView:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIKeyboardKeyplaneTransition.ml b/uikit/UIKeyboardKeyplaneTransition.ml index 18a65f68..c080cf71 100644 --- a/uikit/UIKeyboardKeyplaneTransition.ml +++ b/uikit/UIKeyboardKeyplaneTransition.ml @@ -5,31 +5,35 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardKeyplaneTransition" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardkeyplanetransition?language=objc}UIKeyboardKeyplaneTransition} *) -let addTransitionView x ~startFrame ~endFrame self = msg_send ~self ~cmd:(selector "addTransitionView:startFrame:endFrame:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> returning (void)) x startFrame endFrame -let canDisplayTransitionFromKeyplane x ~toKeyplane self = msg_send ~self ~cmd:(selector "canDisplayTransitionFromKeyplane:toKeyplane:") ~typ:(id @-> id @-> returning (bool)) x toKeyplane -let cancelNonInteractiveAnimation self = msg_send ~self ~cmd:(selector "cancelNonInteractiveAnimation") ~typ:(returning (void)) -let commitTransitionRebuild self = msg_send ~self ~cmd:(selector "commitTransitionRebuild") ~typ:(returning (void)) +let self = get_class "UIKeyboardKeyplaneTransition" + +let addTransitionView x ~startFrame ~endFrame self = msg_send ~self ~cmd:(selector "addTransitionView:startFrame:endFrame:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> returning void) x startFrame endFrame +let canDisplayTransitionFromKeyplane x ~toKeyplane self = msg_send ~self ~cmd:(selector "canDisplayTransitionFromKeyplane:toKeyplane:") ~typ:(id @-> id @-> returning bool) x toKeyplane +let cancelNonInteractiveAnimation self = msg_send ~self ~cmd:(selector "cancelNonInteractiveAnimation") ~typ:(returning void) +let commitTransitionRebuild self = msg_send ~self ~cmd:(selector "commitTransitionRebuild") ~typ:(returning void) let completionBlock self = msg_send ~self ~cmd:(selector "completionBlock") ~typ:(returning (ptr void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let endHeight self = msg_send ~self ~cmd:(selector "endHeight") ~typ:(returning (double)) -let finalizeTransition self = msg_send ~self ~cmd:(selector "finalizeTransition") ~typ:(returning (void)) -let finishWithProgress x ~completionBlock self = msg_send ~self ~cmd:(selector "finishWithProgress:completionBlock:") ~typ:(double @-> ptr void @-> returning (void)) x completionBlock -let initiallyAtEnd self = msg_send ~self ~cmd:(selector "initiallyAtEnd") ~typ:(returning (bool)) -let keyViewAnimator self = msg_send ~self ~cmd:(selector "keyViewAnimator") ~typ:(returning (id)) -let keyboard self = msg_send ~self ~cmd:(selector "keyboard") ~typ:(returning (id)) -let nonInteractiveDuration self = msg_send ~self ~cmd:(selector "nonInteractiveDuration") ~typ:(returning (double)) -let rebuildWithStartKeyplane x ~startView ~endKeyplane ~endView self = msg_send ~self ~cmd:(selector "rebuildWithStartKeyplane:startView:endKeyplane:endView:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x startView endKeyplane endView -let removeAllAnimations self = msg_send ~self ~cmd:(selector "removeAllAnimations") ~typ:(returning (void)) -let runNonInteractivelyWithCompletion x self = msg_send ~self ~cmd:(selector "runNonInteractivelyWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let setCompletionBlock x self = msg_send ~self ~cmd:(selector "setCompletionBlock:") ~typ:(ptr void @-> returning (void)) x -let setInitiallyAtEnd x self = msg_send ~self ~cmd:(selector "setInitiallyAtEnd:") ~typ:(bool @-> returning (void)) x -let setKeyViewAnimator x self = msg_send ~self ~cmd:(selector "setKeyViewAnimator:") ~typ:(id @-> returning (void)) x -let setKeyboard x self = msg_send ~self ~cmd:(selector "setKeyboard:") ~typ:(id @-> returning (void)) x -let setTransitionDelegate x self = msg_send ~self ~cmd:(selector "setTransitionDelegate:") ~typ:(id @-> returning (void)) x -let startHeight self = msg_send ~self ~cmd:(selector "startHeight") ~typ:(returning (double)) -let transitionDelegate self = msg_send ~self ~cmd:(selector "transitionDelegate") ~typ:(returning (id)) -let transitionToFinalState x self = msg_send ~self ~cmd:(selector "transitionToFinalState:") ~typ:(id @-> returning (void)) x -let updateWithProgress x self = msg_send ~self ~cmd:(selector "updateWithProgress:") ~typ:(double @-> returning (void)) x \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let endHeight self = msg_send ~self ~cmd:(selector "endHeight") ~typ:(returning double) +let finalizeTransition self = msg_send ~self ~cmd:(selector "finalizeTransition") ~typ:(returning void) +let finishWithProgress x ~completionBlock self = msg_send ~self ~cmd:(selector "finishWithProgress:completionBlock:") ~typ:(double @-> (ptr void) @-> returning void) x completionBlock +let initiallyAtEnd self = msg_send ~self ~cmd:(selector "initiallyAtEnd") ~typ:(returning bool) +let keyViewAnimator self = msg_send ~self ~cmd:(selector "keyViewAnimator") ~typ:(returning id) +let keyboard self = msg_send ~self ~cmd:(selector "keyboard") ~typ:(returning id) +let nonInteractiveDuration self = msg_send ~self ~cmd:(selector "nonInteractiveDuration") ~typ:(returning double) +let rebuildWithStartKeyplane x ~startView ~endKeyplane ~endView self = msg_send ~self ~cmd:(selector "rebuildWithStartKeyplane:startView:endKeyplane:endView:") ~typ:(id @-> id @-> id @-> id @-> returning void) x startView endKeyplane endView +let removeAllAnimations self = msg_send ~self ~cmd:(selector "removeAllAnimations") ~typ:(returning void) +let runNonInteractivelyWithCompletion x self = msg_send ~self ~cmd:(selector "runNonInteractivelyWithCompletion:") ~typ:((ptr void) @-> returning void) x +let setCompletionBlock x self = msg_send ~self ~cmd:(selector "setCompletionBlock:") ~typ:((ptr void) @-> returning void) x +let setInitiallyAtEnd x self = msg_send ~self ~cmd:(selector "setInitiallyAtEnd:") ~typ:(bool @-> returning void) x +let setKeyViewAnimator x self = msg_send ~self ~cmd:(selector "setKeyViewAnimator:") ~typ:(id @-> returning void) x +let setKeyboard x self = msg_send ~self ~cmd:(selector "setKeyboard:") ~typ:(id @-> returning void) x +let setTransitionDelegate x self = msg_send ~self ~cmd:(selector "setTransitionDelegate:") ~typ:(id @-> returning void) x +let startHeight self = msg_send ~self ~cmd:(selector "startHeight") ~typ:(returning double) +let transitionDelegate self = msg_send ~self ~cmd:(selector "transitionDelegate") ~typ:(returning id) +let transitionToFinalState x self = msg_send ~self ~cmd:(selector "transitionToFinalState:") ~typ:(id @-> returning void) x +let updateWithProgress x self = msg_send ~self ~cmd:(selector "updateWithProgress:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardLayout.ml b/uikit/UIKeyboardLayout.ml index 4d402ba1..dbdd8a41 100644 --- a/uikit/UIKeyboardLayout.ml +++ b/uikit/UIKeyboardLayout.ml @@ -5,221 +5,221 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardLayout" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardlayout?language=objc}UIKeyboardLayout} *) -module C = struct - let keyboardSizeForInputMode x ~screenTraits ~keyboardType self = msg_send_stret ~self ~cmd:(selector "keyboardSizeForInputMode:screenTraits:keyboardType:") ~typ:(id @-> id @-> llong @-> returning (CGSize.t)) ~return_type:CGSize.t x screenTraits (LLong.of_int keyboardType) -end +let self = get_class "UIKeyboardLayout" -let acceptRecentInputIfNecessary self = msg_send ~self ~cmd:(selector "acceptRecentInputIfNecessary") ~typ:(returning (void)) -let activationIndicatorView self = msg_send ~self ~cmd:(selector "activationIndicatorView") ~typ:(returning (id)) -let activeTouchUUID self = msg_send ~self ~cmd:(selector "activeTouchUUID") ~typ:(returning (id)) -let assertSavedLocation x ~onTouch ~inWindow ~resetPrevious self = msg_send ~self ~cmd:(selector "assertSavedLocation:onTouch:inWindow:resetPrevious:") ~typ:(CGPoint.t @-> id @-> id @-> bool @-> returning (void)) x onTouch inWindow resetPrevious -let baseKeyForString x self = msg_send ~self ~cmd:(selector "baseKeyForString:") ~typ:(id @-> returning (id)) x -let biasedKeyboardWidthRatio self = msg_send ~self ~cmd:(selector "biasedKeyboardWidthRatio") ~typ:(returning (double)) -let cadenceMonitor self = msg_send ~self ~cmd:(selector "cadenceMonitor") ~typ:(returning (id)) -let canForceTouchUUIDCommit x ~inWindow self = msg_send ~self ~cmd:(selector "canForceTouchUUIDCommit:inWindow:") ~typ:(id @-> id @-> returning (bool)) x inWindow -let canHandleEvent x self = msg_send ~self ~cmd:(selector "canHandleEvent:") ~typ:(id @-> returning (bool)) x -let canMultitap self = msg_send ~self ~cmd:(selector "canMultitap") ~typ:(returning (bool)) -let canProduceString x self = msg_send ~self ~cmd:(selector "canProduceString:") ~typ:(id @-> returning (bool)) x -let cancelTouchesForTwoFingerTapGesture x self = msg_send ~self ~cmd:(selector "cancelTouchesForTwoFingerTapGesture:") ~typ:(id @-> returning (void)) x -let candidateList self = msg_send ~self ~cmd:(selector "candidateList") ~typ:(returning (id)) -let changeToKeyplane x self = msg_send ~self ~cmd:(selector "changeToKeyplane:") ~typ:(id @-> returning (void)) x -let clearShiftIfNecessaryForEndedTouchState x self = msg_send ~self ~cmd:(selector "clearShiftIfNecessaryForEndedTouchState:") ~typ:(id @-> returning (void)) x -let clearTransientState self = msg_send ~self ~cmd:(selector "clearTransientState") ~typ:(returning (void)) -let clearUnusedObjects x self = msg_send ~self ~cmd:(selector "clearUnusedObjects:") ~typ:(bool @-> returning (void)) x -let commitTouchUUIDs x self = msg_send ~self ~cmd:(selector "commitTouchUUIDs:") ~typ:(id @-> returning (void)) x -let commitTouchUUIDs' x ~cancelInsteadOfUp self = msg_send ~self ~cmd:(selector "commitTouchUUIDs:cancelInsteadOfUp:") ~typ:(id @-> bool @-> returning (void)) x cancelInsteadOfUp -let commitTouches x ~executionContext self = msg_send ~self ~cmd:(selector "commitTouches:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let currentHandBias self = msg_send ~self ~cmd:(selector "currentHandBias") ~typ:(returning (llong)) -let currentKeyplane self = msg_send ~self ~cmd:(selector "currentKeyplane") ~typ:(returning (id)) -let currentTouchDownEvent self = msg_send ~self ~cmd:(selector "currentTouchDownEvent") ~typ:(returning (id)) -let cursorLocation self = msg_send ~self ~cmd:(selector "cursorLocation") ~typ:(returning (ullong)) -let deactivateActiveKeys self = msg_send ~self ~cmd:(selector "deactivateActiveKeys") ~typ:(returning (void)) -let deactivateActiveKeysClearingTouchInfo x ~clearingDimming self = msg_send ~self ~cmd:(selector "deactivateActiveKeysClearingTouchInfo:clearingDimming:") ~typ:(bool @-> bool @-> returning (void)) x clearingDimming -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) +let acceptRecentInputIfNecessary self = msg_send ~self ~cmd:(selector "acceptRecentInputIfNecessary") ~typ:(returning void) +let activationIndicatorView self = msg_send ~self ~cmd:(selector "activationIndicatorView") ~typ:(returning id) +let activeTouchUUID self = msg_send ~self ~cmd:(selector "activeTouchUUID") ~typ:(returning id) +let assertSavedLocation x ~onTouch ~inWindow ~resetPrevious self = msg_send ~self ~cmd:(selector "assertSavedLocation:onTouch:inWindow:resetPrevious:") ~typ:(CGPoint.t @-> id @-> id @-> bool @-> returning void) x onTouch inWindow resetPrevious +let baseKeyForString x self = msg_send ~self ~cmd:(selector "baseKeyForString:") ~typ:(id @-> returning id) x +let biasedKeyboardWidthRatio self = msg_send ~self ~cmd:(selector "biasedKeyboardWidthRatio") ~typ:(returning double) +let cadenceMonitor self = msg_send ~self ~cmd:(selector "cadenceMonitor") ~typ:(returning id) +let canForceTouchUUIDCommit x ~inWindow self = msg_send ~self ~cmd:(selector "canForceTouchUUIDCommit:inWindow:") ~typ:(id @-> id @-> returning bool) x inWindow +let canHandleEvent x self = msg_send ~self ~cmd:(selector "canHandleEvent:") ~typ:(id @-> returning bool) x +let canMultitap self = msg_send ~self ~cmd:(selector "canMultitap") ~typ:(returning bool) +let canProduceString x self = msg_send ~self ~cmd:(selector "canProduceString:") ~typ:(id @-> returning bool) x +let cancelTouchesForTwoFingerTapGesture x self = msg_send ~self ~cmd:(selector "cancelTouchesForTwoFingerTapGesture:") ~typ:(id @-> returning void) x +let candidateList self = msg_send ~self ~cmd:(selector "candidateList") ~typ:(returning id) +let changeToKeyplane x self = msg_send ~self ~cmd:(selector "changeToKeyplane:") ~typ:(id @-> returning void) x +let clearShiftIfNecessaryForEndedTouchState x self = msg_send ~self ~cmd:(selector "clearShiftIfNecessaryForEndedTouchState:") ~typ:(id @-> returning void) x +let clearTransientState self = msg_send ~self ~cmd:(selector "clearTransientState") ~typ:(returning void) +let clearUnusedObjects x self = msg_send ~self ~cmd:(selector "clearUnusedObjects:") ~typ:(bool @-> returning void) x +let commitTouchUUIDs x self = msg_send ~self ~cmd:(selector "commitTouchUUIDs:") ~typ:(id @-> returning void) x +let commitTouchUUIDs' x ~cancelInsteadOfUp self = msg_send ~self ~cmd:(selector "commitTouchUUIDs:cancelInsteadOfUp:") ~typ:(id @-> bool @-> returning void) x cancelInsteadOfUp +let commitTouches x ~executionContext self = msg_send ~self ~cmd:(selector "commitTouches:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let currentHandBias self = msg_send ~self ~cmd:(selector "currentHandBias") ~typ:(returning llong) +let currentKeyplane self = msg_send ~self ~cmd:(selector "currentKeyplane") ~typ:(returning id) +let currentTouchDownEvent self = msg_send ~self ~cmd:(selector "currentTouchDownEvent") ~typ:(returning id) +let cursorLocation self = msg_send ~self ~cmd:(selector "cursorLocation") ~typ:(returning ullong) +let deactivateActiveKeys self = msg_send ~self ~cmd:(selector "deactivateActiveKeys") ~typ:(returning void) +let deactivateActiveKeysClearingTouchInfo x ~clearingDimming self = msg_send ~self ~cmd:(selector "deactivateActiveKeysClearingTouchInfo:clearingDimming:") ~typ:(bool @-> bool @-> returning void) x clearingDimming +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let deferredTaskForActiveTouch self = msg_send ~self ~cmd:(selector "deferredTaskForActiveTouch") ~typ:(returning (ptr void)) let deferredTouchDownTask self = msg_send ~self ~cmd:(selector "deferredTouchDownTask") ~typ:(returning (ptr void)) let deferredTouchMovedTask self = msg_send ~self ~cmd:(selector "deferredTouchMovedTask") ~typ:(returning (ptr void)) -let deferredTouchTaskLists self = msg_send ~self ~cmd:(selector "deferredTouchTaskLists") ~typ:(returning (id)) -let deferredTouchTaskListsQueue self = msg_send ~self ~cmd:(selector "deferredTouchTaskListsQueue") ~typ:(returning (id)) -let diacriticForwardCompose self = msg_send ~self ~cmd:(selector "diacriticForwardCompose") ~typ:(returning (bool)) -let didClearInput self = msg_send ~self ~cmd:(selector "didClearInput") ~typ:(returning (void)) -let didCommitTouchState x self = msg_send ~self ~cmd:(selector "didCommitTouchState:") ~typ:(id @-> returning (void)) x -let didEndIndirectSelectionGesture self = msg_send ~self ~cmd:(selector "didEndIndirectSelectionGesture") ~typ:(returning (void)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let disableInteraction self = msg_send ~self ~cmd:(selector "disableInteraction") ~typ:(returning (bool)) -let dragGestureRectInView x self = msg_send_stret ~self ~cmd:(selector "dragGestureRectInView:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let fadeWithInvocation x self = msg_send ~self ~cmd:(selector "fadeWithInvocation:") ~typ:(id @-> returning (void)) x -let fingerDetection self = msg_send ~self ~cmd:(selector "fingerDetection") ~typ:(returning (id)) -let fingerIDForTouchUUID x self = msg_send ~self ~cmd:(selector "fingerIDForTouchUUID:") ~typ:(id @-> returning (ullong)) x -let flickDistance self = msg_send ~self ~cmd:(selector "flickDistance") ~typ:(returning (double)) -let forceUpdatesForCommittedTouch self = msg_send ~self ~cmd:(selector "forceUpdatesForCommittedTouch") ~typ:(returning (void)) -let frameForKeylayoutName x self = msg_send_stret ~self ~cmd:(selector "frameForKeylayoutName:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let getCenterForKeyUnderLeftIndexFinger self = msg_send_stret ~self ~cmd:(selector "getCenterForKeyUnderLeftIndexFinger") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let getCenterForKeyUnderRightIndexFinger self = msg_send_stret ~self ~cmd:(selector "getCenterForKeyUnderRightIndexFinger") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let getHandRestRecognizerState self = msg_send ~self ~cmd:(selector "getHandRestRecognizerState") ~typ:(returning (bool)) -let getHorizontalOffsetFromHomeRowForRowRelativeToHomeRow x self = msg_send ~self ~cmd:(selector "getHorizontalOffsetFromHomeRowForRowRelativeToHomeRow:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let getRomanAccentVariantsForString x ~inputMode ~keyboardVariantIndludes self = msg_send ~self ~cmd:(selector "getRomanAccentVariantsForString:inputMode:keyboardVariantIndludes:") ~typ:(id @-> id @-> int @-> returning (id)) x inputMode keyboardVariantIndludes -let globeKeyDisplaysAsEmojiKey self = msg_send ~self ~cmd:(selector "globeKeyDisplaysAsEmojiKey") ~typ:(returning (bool)) -let handRestRecognizer self = msg_send ~self ~cmd:(selector "handRestRecognizer") ~typ:(returning (id)) -let handRestRecognizerNotifyRestForBegin x ~location ~timestamp ~pathIndex ~touchUUID ~context self = msg_send ~self ~cmd:(selector "handRestRecognizerNotifyRestForBegin:location:timestamp:pathIndex:touchUUID:context:") ~typ:(bool @-> CGPoint.t @-> double @-> int @-> id @-> id @-> returning (void)) x location timestamp pathIndex touchUUID context -let handRestRecognizerShouldNeverIgnoreTouchState x ~fromPoint ~toPoint ~forRestingState ~otherRestedTouchLocations self = msg_send ~self ~cmd:(selector "handRestRecognizerShouldNeverIgnoreTouchState:fromPoint:toPoint:forRestingState:otherRestedTouchLocations:") ~typ:(id @-> CGPoint.t @-> CGPoint.t @-> ullong @-> id @-> returning (bool)) x fromPoint toPoint (ULLong.of_int forRestingState) otherRestedTouchLocations +let deferredTouchTaskLists self = msg_send ~self ~cmd:(selector "deferredTouchTaskLists") ~typ:(returning id) +let deferredTouchTaskListsQueue self = msg_send ~self ~cmd:(selector "deferredTouchTaskListsQueue") ~typ:(returning id) +let diacriticForwardCompose self = msg_send ~self ~cmd:(selector "diacriticForwardCompose") ~typ:(returning bool) +let didClearInput self = msg_send ~self ~cmd:(selector "didClearInput") ~typ:(returning void) +let didCommitTouchState x self = msg_send ~self ~cmd:(selector "didCommitTouchState:") ~typ:(id @-> returning void) x +let didEndIndirectSelectionGesture self = msg_send ~self ~cmd:(selector "didEndIndirectSelectionGesture") ~typ:(returning void) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let disableInteraction self = msg_send ~self ~cmd:(selector "disableInteraction") ~typ:(returning bool) +let dragGestureRectInView x self = msg_send ~self ~cmd:(selector "dragGestureRectInView:") ~typ:(id @-> returning CGRect.t) x +let fadeWithInvocation x self = msg_send ~self ~cmd:(selector "fadeWithInvocation:") ~typ:(id @-> returning void) x +let fingerDetection self = msg_send ~self ~cmd:(selector "fingerDetection") ~typ:(returning id) +let fingerIDForTouchUUID x self = msg_send ~self ~cmd:(selector "fingerIDForTouchUUID:") ~typ:(id @-> returning ullong) x +let flickDistance self = msg_send ~self ~cmd:(selector "flickDistance") ~typ:(returning double) +let forceUpdatesForCommittedTouch self = msg_send ~self ~cmd:(selector "forceUpdatesForCommittedTouch") ~typ:(returning void) +let frameForKeylayoutName x self = msg_send ~self ~cmd:(selector "frameForKeylayoutName:") ~typ:(id @-> returning CGRect.t) x +let getCenterForKeyUnderLeftIndexFinger self = msg_send ~self ~cmd:(selector "getCenterForKeyUnderLeftIndexFinger") ~typ:(returning CGPoint.t) +let getCenterForKeyUnderRightIndexFinger self = msg_send ~self ~cmd:(selector "getCenterForKeyUnderRightIndexFinger") ~typ:(returning CGPoint.t) +let getHandRestRecognizerState self = msg_send ~self ~cmd:(selector "getHandRestRecognizerState") ~typ:(returning uchar) +let getHorizontalOffsetFromHomeRowForRowRelativeToHomeRow x self = msg_send ~self ~cmd:(selector "getHorizontalOffsetFromHomeRowForRowRelativeToHomeRow:") ~typ:(llong @-> returning id) (LLong.of_int x) +let getRomanAccentVariantsForString x ~inputMode ~keyboardVariantIndludes self = msg_send ~self ~cmd:(selector "getRomanAccentVariantsForString:inputMode:keyboardVariantIndludes:") ~typ:(id @-> id @-> int @-> returning id) x inputMode keyboardVariantIndludes +let globeKeyDisplaysAsEmojiKey self = msg_send ~self ~cmd:(selector "globeKeyDisplaysAsEmojiKey") ~typ:(returning bool) +let handRestRecognizer self = msg_send ~self ~cmd:(selector "handRestRecognizer") ~typ:(returning id) +let handRestRecognizerNotifyRestForBegin x ~location ~timestamp ~pathIndex ~touchUUID ~context self = msg_send ~self ~cmd:(selector "handRestRecognizerNotifyRestForBegin:location:timestamp:pathIndex:touchUUID:context:") ~typ:(bool @-> CGPoint.t @-> double @-> int @-> id @-> id @-> returning void) x location timestamp pathIndex touchUUID context +let handRestRecognizerShouldNeverIgnoreTouchState x ~fromPoint ~toPoint ~forRestingState ~otherRestedTouchLocations self = msg_send ~self ~cmd:(selector "handRestRecognizerShouldNeverIgnoreTouchState:fromPoint:toPoint:forRestingState:otherRestedTouchLocations:") ~typ:(id @-> CGPoint.t @-> CGPoint.t @-> ullong @-> id @-> returning bool) x fromPoint toPoint (ULLong.of_int forRestingState) otherRestedTouchLocations let handRestRecognizerSilenceNextTouchDown self = msg_send ~self ~cmd:(selector "handRestRecognizerSilenceNextTouchDown") ~typ:(returning (ptr void)) -let handRestRecognizerStandardKeyPixelSize self = msg_send_stret ~self ~cmd:(selector "handRestRecognizerStandardKeyPixelSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let handlerForNotification x self = msg_send ~self ~cmd:(selector "handlerForNotification:") ~typ:(id @-> returning (_SEL)) x -let hasAccentKey self = msg_send ~self ~cmd:(selector "hasAccentKey") ~typ:(returning (bool)) -let hasActiveContinuousPathInput self = msg_send ~self ~cmd:(selector "hasActiveContinuousPathInput") ~typ:(returning (bool)) -let hasCandidateKeys self = msg_send ~self ~cmd:(selector "hasCandidateKeys") ~typ:(returning (bool)) -let hasPreferredHeight self = msg_send ~self ~cmd:(selector "hasPreferredHeight") ~typ:(returning (bool)) -let hideKeysUnderIndicator self = msg_send ~self ~cmd:(selector "hideKeysUnderIndicator") ~typ:(returning (bool)) -let hitBuffer self = msg_send ~self ~cmd:(selector "hitBuffer") ~typ:(returning (double)) -let idiom self = msg_send ~self ~cmd:(selector "idiom") ~typ:(returning (llong)) -let ignoresShiftState self = msg_send ~self ~cmd:(selector "ignoresShiftState") ~typ:(returning (bool)) -let ignoringKeyplaneChange self = msg_send ~self ~cmd:(selector "ignoringKeyplaneChange") ~typ:(returning (bool)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let internationalKeyDisplayStringOnEmojiKeyboard self = msg_send ~self ~cmd:(selector "internationalKeyDisplayStringOnEmojiKeyboard") ~typ:(returning (id)) -let isAlphabeticPlane self = msg_send ~self ~cmd:(selector "isAlphabeticPlane") ~typ:(returning (bool)) -let isEmojiKeyplane self = msg_send ~self ~cmd:(selector "isEmojiKeyplane") ~typ:(returning (bool)) -let isExecutingDeferredTouchTasks self = msg_send ~self ~cmd:(selector "isExecutingDeferredTouchTasks") ~typ:(returning (bool)) -let isFloating self = msg_send ~self ~cmd:(selector "isFloating") ~typ:(returning (bool)) -let isGeometricShiftOrMoreKeyForTouch x self = msg_send ~self ~cmd:(selector "isGeometricShiftOrMoreKeyForTouch:") ~typ:(id @-> returning (bool)) x -let isHandwritingPlane self = msg_send ~self ~cmd:(selector "isHandwritingPlane") ~typ:(returning (bool)) -let isKanaPlane self = msg_send ~self ~cmd:(selector "isKanaPlane") ~typ:(returning (bool)) -let isPossibleToTypeFast self = msg_send ~self ~cmd:(selector "isPossibleToTypeFast") ~typ:(returning (bool)) -let isReachableDevice self = msg_send ~self ~cmd:(selector "isReachableDevice") ~typ:(returning (bool)) -let isResized self = msg_send ~self ~cmd:(selector "isResized") ~typ:(returning (bool)) -let isResizing self = msg_send ~self ~cmd:(selector "isResizing") ~typ:(returning (bool)) -let isShiftKeyBeingHeld self = msg_send ~self ~cmd:(selector "isShiftKeyBeingHeld") ~typ:(returning (bool)) -let isShiftKeyPlaneChooser self = msg_send ~self ~cmd:(selector "isShiftKeyPlaneChooser") ~typ:(returning (bool)) -let keyplaneContainsDismissKey self = msg_send ~self ~cmd:(selector "keyplaneContainsDismissKey") ~typ:(returning (bool)) -let keyplaneContainsEmojiKey self = msg_send ~self ~cmd:(selector "keyplaneContainsEmojiKey") ~typ:(returning (bool)) -let keyplaneForKey x self = msg_send ~self ~cmd:(selector "keyplaneForKey:") ~typ:(id @-> returning (id)) x -let keyplaneNamed x self = msg_send ~self ~cmd:(selector "keyplaneNamed:") ~typ:(id @-> returning (id)) x -let lastTouchUpTime self = msg_send ~self ~cmd:(selector "lastTouchUpTime") ~typ:(returning (double)) -let layoutTag self = msg_send ~self ~cmd:(selector "layoutTag") ~typ:(returning (id)) -let leftVirtualDriftOffset self = msg_send_stret ~self ~cmd:(selector "leftVirtualDriftOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let listeningForDidChange self = msg_send ~self ~cmd:(selector "listeningForDidChange") ~typ:(returning (bool)) -let listeningForWillChange self = msg_send ~self ~cmd:(selector "listeningForWillChange") ~typ:(returning (bool)) -let longPressAction self = msg_send ~self ~cmd:(selector "longPressAction") ~typ:(returning (void)) -let orientation self = msg_send ~self ~cmd:(selector "orientation") ~typ:(returning (llong)) -let performReturnAction self = msg_send ~self ~cmd:(selector "performReturnAction") ~typ:(returning (bool)) -let performSpaceAction self = msg_send ~self ~cmd:(selector "performSpaceAction") ~typ:(returning (bool)) -let preferredHeight self = msg_send ~self ~cmd:(selector "preferredHeight") ~typ:(returning (double)) -let queryShouldNeverIgnoreTouchStateWithIdentifier x ~touchState ~startPoint ~forRestingState self = msg_send ~self ~cmd:(selector "queryShouldNeverIgnoreTouchStateWithIdentifier:touchState:startPoint:forRestingState:") ~typ:(id @-> id @-> CGPoint.t @-> ullong @-> returning (bool)) x touchState startPoint (ULLong.of_int forRestingState) -let recognizer x ~continueTrackingIgnoredTouchWithId ~currentPoint ~whenReady self = msg_send ~self ~cmd:(selector "recognizer:continueTrackingIgnoredTouchWithId:currentPoint:whenReady:") ~typ:(id @-> id @-> CGPoint.t @-> ptr void @-> returning (void)) x continueTrackingIgnoredTouchWithId currentPoint whenReady -let recognizer1 x ~beginTouchDownForTouchWithId ~atPoint ~forBeginState ~whenStateReady self = msg_send ~self ~cmd:(selector "recognizer:beginTouchDownForTouchWithId:atPoint:forBeginState:whenStateReady:") ~typ:(id @-> id @-> CGPoint.t @-> ullong @-> ptr void @-> returning (void)) x beginTouchDownForTouchWithId atPoint (ULLong.of_int forBeginState) whenStateReady -let recognizer2 x ~cancelTouchOnLayoutWithId ~startPoint ~endPoint ~whenReady self = msg_send ~self ~cmd:(selector "recognizer:cancelTouchOnLayoutWithId:startPoint:endPoint:whenReady:") ~typ:(id @-> id @-> CGPoint.t @-> CGPoint.t @-> ptr void @-> returning (void)) x cancelTouchOnLayoutWithId startPoint endPoint whenReady -let recognizer3 x ~releaseTouchToLayoutWithId ~startPoint ~endPoint ~whenReady self = msg_send ~self ~cmd:(selector "recognizer:releaseTouchToLayoutWithId:startPoint:endPoint:whenReady:") ~typ:(id @-> id @-> CGPoint.t @-> CGPoint.t @-> ptr void @-> returning (void)) x releaseTouchToLayoutWithId startPoint endPoint whenReady -let recognizer4 x ~restartTouchDownForTouchWithId ~startingAt ~atPoint ~currentPoint ~whenStateReady self = msg_send ~self ~cmd:(selector "recognizer:restartTouchDownForTouchWithId:startingAt:atPoint:currentPoint:whenStateReady:") ~typ:(id @-> id @-> double @-> CGPoint.t @-> CGPoint.t @-> ptr void @-> returning (void)) x restartTouchDownForTouchWithId startingAt atPoint currentPoint whenStateReady -let recognizer5 x ~willIgnoreTouchWithId ~startingAt ~atPoint ~currentPoint ~whenReady self = msg_send ~self ~cmd:(selector "recognizer:willIgnoreTouchWithId:startingAt:atPoint:currentPoint:whenReady:") ~typ:(id @-> id @-> double @-> CGPoint.t @-> CGPoint.t @-> ptr void @-> returning (void)) x willIgnoreTouchWithId startingAt atPoint currentPoint whenReady -let recognizer6 x ~shouldContinueTrackingTouchWithId ~startingAt ~atPoint ~currentPoint ~forContinueState ~whenStateReady self = msg_send ~self ~cmd:(selector "recognizer:shouldContinueTrackingTouchWithId:startingAt:atPoint:currentPoint:forContinueState:whenStateReady:") ~typ:(id @-> id @-> double @-> CGPoint.t @-> CGPoint.t @-> ullong @-> ptr void @-> returning (void)) x shouldContinueTrackingTouchWithId startingAt atPoint currentPoint (ULLong.of_int forContinueState) whenStateReady -let recognizerBlockUntilTaskQueueReadyForceUsingDeferredTask x self = msg_send ~self ~cmd:(selector "recognizerBlockUntilTaskQueueReadyForceUsingDeferredTask:") ~typ:(bool @-> returning (void)) x -let reloadKeyboardGestureRecognition self = msg_send ~self ~cmd:(selector "reloadKeyboardGestureRecognition") ~typ:(returning (void)) -let reloadKeyboardWithInputTraits x ~screenTraits ~splitTraits self = msg_send ~self ~cmd:(selector "reloadKeyboardWithInputTraits:screenTraits:splitTraits:") ~typ:(id @-> id @-> id @-> returning (void)) x screenTraits splitTraits -let resetHRRLayoutState self = msg_send ~self ~cmd:(selector "resetHRRLayoutState") ~typ:(returning (void)) -let resetTouchProcessingForKeyboardChange self = msg_send ~self ~cmd:(selector "resetTouchProcessingForKeyboardChange") ~typ:(returning (void)) -let restoreDefaultsForAllKeys self = msg_send ~self ~cmd:(selector "restoreDefaultsForAllKeys") ~typ:(returning (void)) -let restoreDefaultsForKey x self = msg_send ~self ~cmd:(selector "restoreDefaultsForKey:") ~typ:(id @-> returning (void)) x -let rightVirtualDriftOffset self = msg_send_stret ~self ~cmd:(selector "rightVirtualDriftOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let screenEdgePanRecognizer self = msg_send ~self ~cmd:(selector "screenEdgePanRecognizer") ~typ:(returning (id)) -let screenEdgePanRecognizerStateDidChange x self = msg_send ~self ~cmd:(selector "screenEdgePanRecognizerStateDidChange:") ~typ:(id @-> returning (void)) x -let screenTraits self = msg_send ~self ~cmd:(selector "screenTraits") ~typ:(returning (id)) -let setAction x ~forKey self = msg_send ~self ~cmd:(selector "setAction:forKey:") ~typ:(_SEL @-> id @-> returning (void)) x forKey -let setActiveTouchUUID x self = msg_send ~self ~cmd:(selector "setActiveTouchUUID:") ~typ:(id @-> returning (void)) x -let setAutoshift x self = msg_send ~self ~cmd:(selector "setAutoshift:") ~typ:(bool @-> returning (void)) x -let setCadenceMonitor x self = msg_send ~self ~cmd:(selector "setCadenceMonitor:") ~typ:(id @-> returning (void)) x -let setCursorLocation x self = msg_send ~self ~cmd:(selector "setCursorLocation:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDeferredTaskForActiveTouch x self = msg_send ~self ~cmd:(selector "setDeferredTaskForActiveTouch:") ~typ:(ptr void @-> returning (void)) x -let setDeferredTouchDownTask x self = msg_send ~self ~cmd:(selector "setDeferredTouchDownTask:") ~typ:(ptr void @-> returning (void)) x -let setDeferredTouchMovedTask x self = msg_send ~self ~cmd:(selector "setDeferredTouchMovedTask:") ~typ:(ptr void @-> returning (void)) x -let setDeferredTouchTaskLists x self = msg_send ~self ~cmd:(selector "setDeferredTouchTaskLists:") ~typ:(id @-> returning (void)) x -let setDeferredTouchTaskListsQueue x self = msg_send ~self ~cmd:(selector "setDeferredTouchTaskListsQueue:") ~typ:(id @-> returning (void)) x -let setDisableInteraction x self = msg_send ~self ~cmd:(selector "setDisableInteraction:") ~typ:(bool @-> returning (void)) x -let setDisableTouchInput x self = msg_send ~self ~cmd:(selector "setDisableTouchInput:") ~typ:(bool @-> returning (void)) x -let setFingerDetection x self = msg_send ~self ~cmd:(selector "setFingerDetection:") ~typ:(id @-> returning (void)) x -let setHandRestRecognizer x self = msg_send ~self ~cmd:(selector "setHandRestRecognizer:") ~typ:(id @-> returning (void)) x -let setHideKeysUnderIndicator x self = msg_send ~self ~cmd:(selector "setHideKeysUnderIndicator:") ~typ:(bool @-> returning (void)) x -let setIgnoringKeyplaneChange x self = msg_send ~self ~cmd:(selector "setIgnoringKeyplaneChange:") ~typ:(bool @-> returning (void)) x -let setIsExecutingDeferredTouchTasks x self = msg_send ~self ~cmd:(selector "setIsExecutingDeferredTouchTasks:") ~typ:(bool @-> returning (void)) x -let setKeyboardBias x self = msg_send ~self ~cmd:(selector "setKeyboardBias:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setLabel x ~forKey self = msg_send ~self ~cmd:(selector "setLabel:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let setLastTouchUpTime x self = msg_send ~self ~cmd:(selector "setLastTouchUpTime:") ~typ:(double @-> returning (void)) x -let setLayoutTag x self = msg_send ~self ~cmd:(selector "setLayoutTag:") ~typ:(id @-> returning (void)) x -let setListeningForDidChange x self = msg_send ~self ~cmd:(selector "setListeningForDidChange:") ~typ:(bool @-> returning (void)) x -let setListeningForWillChange x self = msg_send ~self ~cmd:(selector "setListeningForWillChange:") ~typ:(bool @-> returning (void)) x -let setLongPressAction x ~forKey self = msg_send ~self ~cmd:(selector "setLongPressAction:forKey:") ~typ:(_SEL @-> id @-> returning (void)) x forKey -let setNeedsVirtualDriftUpdate self = msg_send ~self ~cmd:(selector "setNeedsVirtualDriftUpdate") ~typ:(returning (void)) -let setPasscodeOutlineAlpha x self = msg_send ~self ~cmd:(selector "setPasscodeOutlineAlpha:") ~typ:(double @-> returning (void)) x -let setPreferredHeight x self = msg_send ~self ~cmd:(selector "setPreferredHeight:") ~typ:(double @-> returning (void)) x -let setRecentInputs x self = msg_send ~self ~cmd:(selector "setRecentInputs:") ~typ:(id @-> returning (void)) x -let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning (void)) x -let setReturnKeyEnabled x ~withDisplayName ~withType self = msg_send ~self ~cmd:(selector "setReturnKeyEnabled:withDisplayName:withType:") ~typ:(bool @-> id @-> int @-> returning (void)) x withDisplayName withType -let setScreenEdgePanRecognizer x self = msg_send ~self ~cmd:(selector "setScreenEdgePanRecognizer:") ~typ:(id @-> returning (void)) x -let setScreenTraits x self = msg_send ~self ~cmd:(selector "setScreenTraits:") ~typ:(id @-> returning (void)) x -let setShift x self = msg_send ~self ~cmd:(selector "setShift:") ~typ:(bool @-> returning (void)) x -let setShiftKeyTouchUUID x self = msg_send ~self ~cmd:(selector "setShiftKeyTouchUUID:") ~typ:(id @-> returning (void)) x -let setSizeDelegate x self = msg_send ~self ~cmd:(selector "setSizeDelegate:") ~typ:(id @-> returning (void)) x -let setTarget x ~forKey self = msg_send ~self ~cmd:(selector "setTarget:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let setTaskQueue x self = msg_send ~self ~cmd:(selector "setTaskQueue:") ~typ:(id @-> returning (void)) x -let setTextEditingTraits x self = msg_send ~self ~cmd:(selector "setTextEditingTraits:") ~typ:(id @-> returning (void)) x -let setTouchDrifting x self = msg_send ~self ~cmd:(selector "setTouchDrifting:") ~typ:(id @-> returning (void)) x -let setTouchIgnoredUUIDSet x self = msg_send ~self ~cmd:(selector "setTouchIgnoredUUIDSet:") ~typ:(id @-> returning (void)) x -let setTouchVelocities x self = msg_send ~self ~cmd:(selector "setTouchVelocities:") ~typ:(id @-> returning (void)) x -let setTwoFingerTapTimestamp x self = msg_send ~self ~cmd:(selector "setTwoFingerTapTimestamp:") ~typ:(double @-> returning (void)) x -let shiftKeyTouchUUID self = msg_send ~self ~cmd:(selector "shiftKeyTouchUUID") ~typ:(returning (id)) -let shouldAllowSelectionGestures x ~atPoint ~toBegin self = msg_send ~self ~cmd:(selector "shouldAllowSelectionGestures:atPoint:toBegin:") ~typ:(bool @-> CGPoint.t @-> bool @-> returning (bool)) x atPoint toBegin -let shouldFadeFromLayout self = msg_send ~self ~cmd:(selector "shouldFadeFromLayout") ~typ:(returning (bool)) -let shouldFadeToLayout self = msg_send ~self ~cmd:(selector "shouldFadeToLayout") ~typ:(returning (bool)) -let shouldMergeAssistantBarWithKeyboardLayout self = msg_send ~self ~cmd:(selector "shouldMergeAssistantBarWithKeyboardLayout") ~typ:(returning (bool)) -let shouldShowIndicator self = msg_send ~self ~cmd:(selector "shouldShowIndicator") ~typ:(returning (bool)) -let showKeyboardWithInputTraits x ~screenTraits ~splitTraits self = msg_send ~self ~cmd:(selector "showKeyboardWithInputTraits:screenTraits:splitTraits:") ~typ:(id @-> id @-> id @-> returning (void)) x screenTraits splitTraits -let showsDedicatedEmojiKeyAlongsideGlobeButton self = msg_send ~self ~cmd:(selector "showsDedicatedEmojiKeyAlongsideGlobeButton") ~typ:(returning (bool)) -let simulateTouch x self = msg_send ~self ~cmd:(selector "simulateTouch:") ~typ:(CGPoint.t @-> returning (id)) x -let simulateTouchForCharacter x ~errorVector ~shouldTypeVariants ~baseKeyForVariants self = msg_send ~self ~cmd:(selector "simulateTouchForCharacter:errorVector:shouldTypeVariants:baseKeyForVariants:") ~typ:(id @-> CGPoint.t @-> bool @-> bool @-> returning (id)) x errorVector shouldTypeVariants baseKeyForVariants -let sizeDelegate self = msg_send ~self ~cmd:(selector "sizeDelegate") ~typ:(returning (id)) -let stretchFactor self = msg_send_stret ~self ~cmd:(selector "stretchFactor") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let supportsEmoji self = msg_send ~self ~cmd:(selector "supportsEmoji") ~typ:(returning (bool)) -let supportsVirtualDrift self = msg_send ~self ~cmd:(selector "supportsVirtualDrift") ~typ:(returning (bool)) -let targetEdgesForScreenGestureRecognition self = msg_send ~self ~cmd:(selector "targetEdgesForScreenGestureRecognition") ~typ:(returning (ullong)) -let taskQueue self = msg_send ~self ~cmd:(selector "taskQueue") ~typ:(returning (id)) -let textEditingKeyMask self = msg_send ~self ~cmd:(selector "textEditingKeyMask") ~typ:(returning (ullong)) -let timestampOfLastTouchesEnded self = msg_send ~self ~cmd:(selector "timestampOfLastTouchesEnded") ~typ:(returning (double)) -let touchCancelled x self = msg_send ~self ~cmd:(selector "touchCancelled:") ~typ:(id @-> returning (void)) x -let touchCancelled1 x ~executionContext self = msg_send ~self ~cmd:(selector "touchCancelled:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let touchCancelled2 x ~forResting ~executionContext self = msg_send ~self ~cmd:(selector "touchCancelled:forResting:executionContext:") ~typ:(id @-> bool @-> id @-> returning (void)) x forResting executionContext +let handRestRecognizerStandardKeyPixelSize self = msg_send ~self ~cmd:(selector "handRestRecognizerStandardKeyPixelSize") ~typ:(returning CGSize.t) +let handlerForNotification x self = msg_send ~self ~cmd:(selector "handlerForNotification:") ~typ:(id @-> returning _SEL) x +let hasAccentKey self = msg_send ~self ~cmd:(selector "hasAccentKey") ~typ:(returning bool) +let hasActiveContinuousPathInput self = msg_send ~self ~cmd:(selector "hasActiveContinuousPathInput") ~typ:(returning bool) +let hasCandidateKeys self = msg_send ~self ~cmd:(selector "hasCandidateKeys") ~typ:(returning bool) +let hasPreferredHeight self = msg_send ~self ~cmd:(selector "hasPreferredHeight") ~typ:(returning bool) +let hideKeysUnderIndicator self = msg_send ~self ~cmd:(selector "hideKeysUnderIndicator") ~typ:(returning bool) +let hitBuffer self = msg_send ~self ~cmd:(selector "hitBuffer") ~typ:(returning double) +let idiom self = msg_send ~self ~cmd:(selector "idiom") ~typ:(returning llong) +let ignoresShiftState self = msg_send ~self ~cmd:(selector "ignoresShiftState") ~typ:(returning bool) +let ignoringKeyplaneChange self = msg_send ~self ~cmd:(selector "ignoringKeyplaneChange") ~typ:(returning bool) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let internationalKeyDisplayStringOnEmojiKeyboard self = msg_send ~self ~cmd:(selector "internationalKeyDisplayStringOnEmojiKeyboard") ~typ:(returning id) +let isAlphabeticPlane self = msg_send ~self ~cmd:(selector "isAlphabeticPlane") ~typ:(returning bool) +let isEmojiKeyplane self = msg_send ~self ~cmd:(selector "isEmojiKeyplane") ~typ:(returning bool) +let isExecutingDeferredTouchTasks self = msg_send ~self ~cmd:(selector "isExecutingDeferredTouchTasks") ~typ:(returning bool) +let isFloating self = msg_send ~self ~cmd:(selector "isFloating") ~typ:(returning bool) +let isGeometricShiftOrMoreKeyForTouch x self = msg_send ~self ~cmd:(selector "isGeometricShiftOrMoreKeyForTouch:") ~typ:(id @-> returning bool) x +let isHandwritingPlane self = msg_send ~self ~cmd:(selector "isHandwritingPlane") ~typ:(returning bool) +let isKanaPlane self = msg_send ~self ~cmd:(selector "isKanaPlane") ~typ:(returning bool) +let isPossibleToTypeFast self = msg_send ~self ~cmd:(selector "isPossibleToTypeFast") ~typ:(returning bool) +let isReachableDevice self = msg_send ~self ~cmd:(selector "isReachableDevice") ~typ:(returning bool) +let isResized self = msg_send ~self ~cmd:(selector "isResized") ~typ:(returning bool) +let isResizing self = msg_send ~self ~cmd:(selector "isResizing") ~typ:(returning bool) +let isShiftKeyBeingHeld self = msg_send ~self ~cmd:(selector "isShiftKeyBeingHeld") ~typ:(returning bool) +let isShiftKeyPlaneChooser self = msg_send ~self ~cmd:(selector "isShiftKeyPlaneChooser") ~typ:(returning bool) +let keyplaneContainsDismissKey self = msg_send ~self ~cmd:(selector "keyplaneContainsDismissKey") ~typ:(returning bool) +let keyplaneContainsEmojiKey self = msg_send ~self ~cmd:(selector "keyplaneContainsEmojiKey") ~typ:(returning bool) +let keyplaneForKey x self = msg_send ~self ~cmd:(selector "keyplaneForKey:") ~typ:(id @-> returning id) x +let keyplaneNamed x self = msg_send ~self ~cmd:(selector "keyplaneNamed:") ~typ:(id @-> returning id) x +let lastTouchUpTime self = msg_send ~self ~cmd:(selector "lastTouchUpTime") ~typ:(returning double) +let layoutTag self = msg_send ~self ~cmd:(selector "layoutTag") ~typ:(returning id) +let leftVirtualDriftOffset self = msg_send ~self ~cmd:(selector "leftVirtualDriftOffset") ~typ:(returning CGPoint.t) +let listeningForDidChange self = msg_send ~self ~cmd:(selector "listeningForDidChange") ~typ:(returning bool) +let listeningForWillChange self = msg_send ~self ~cmd:(selector "listeningForWillChange") ~typ:(returning bool) +let longPressAction self = msg_send ~self ~cmd:(selector "longPressAction") ~typ:(returning void) +let orientation self = msg_send ~self ~cmd:(selector "orientation") ~typ:(returning llong) +let performReturnAction self = msg_send ~self ~cmd:(selector "performReturnAction") ~typ:(returning bool) +let performSpaceAction self = msg_send ~self ~cmd:(selector "performSpaceAction") ~typ:(returning bool) +let preferredHeight self = msg_send ~self ~cmd:(selector "preferredHeight") ~typ:(returning double) +let queryShouldNeverIgnoreTouchStateWithIdentifier x ~touchState ~startPoint ~forRestingState self = msg_send ~self ~cmd:(selector "queryShouldNeverIgnoreTouchStateWithIdentifier:touchState:startPoint:forRestingState:") ~typ:(id @-> id @-> CGPoint.t @-> ullong @-> returning bool) x touchState startPoint (ULLong.of_int forRestingState) +let recognizer x ~continueTrackingIgnoredTouchWithId ~currentPoint ~whenReady self = msg_send ~self ~cmd:(selector "recognizer:continueTrackingIgnoredTouchWithId:currentPoint:whenReady:") ~typ:(id @-> id @-> CGPoint.t @-> (ptr void) @-> returning void) x continueTrackingIgnoredTouchWithId currentPoint whenReady +let recognizer1 x ~beginTouchDownForTouchWithId ~atPoint ~forBeginState ~whenStateReady self = msg_send ~self ~cmd:(selector "recognizer:beginTouchDownForTouchWithId:atPoint:forBeginState:whenStateReady:") ~typ:(id @-> id @-> CGPoint.t @-> ullong @-> (ptr void) @-> returning void) x beginTouchDownForTouchWithId atPoint (ULLong.of_int forBeginState) whenStateReady +let recognizer2 x ~cancelTouchOnLayoutWithId ~startPoint ~endPoint ~whenReady self = msg_send ~self ~cmd:(selector "recognizer:cancelTouchOnLayoutWithId:startPoint:endPoint:whenReady:") ~typ:(id @-> id @-> CGPoint.t @-> CGPoint.t @-> (ptr void) @-> returning void) x cancelTouchOnLayoutWithId startPoint endPoint whenReady +let recognizer3 x ~releaseTouchToLayoutWithId ~startPoint ~endPoint ~whenReady self = msg_send ~self ~cmd:(selector "recognizer:releaseTouchToLayoutWithId:startPoint:endPoint:whenReady:") ~typ:(id @-> id @-> CGPoint.t @-> CGPoint.t @-> (ptr void) @-> returning void) x releaseTouchToLayoutWithId startPoint endPoint whenReady +let recognizer4 x ~restartTouchDownForTouchWithId ~startingAt ~atPoint ~currentPoint ~whenStateReady self = msg_send ~self ~cmd:(selector "recognizer:restartTouchDownForTouchWithId:startingAt:atPoint:currentPoint:whenStateReady:") ~typ:(id @-> id @-> double @-> CGPoint.t @-> CGPoint.t @-> (ptr void) @-> returning void) x restartTouchDownForTouchWithId startingAt atPoint currentPoint whenStateReady +let recognizer5 x ~willIgnoreTouchWithId ~startingAt ~atPoint ~currentPoint ~whenReady self = msg_send ~self ~cmd:(selector "recognizer:willIgnoreTouchWithId:startingAt:atPoint:currentPoint:whenReady:") ~typ:(id @-> id @-> double @-> CGPoint.t @-> CGPoint.t @-> (ptr void) @-> returning void) x willIgnoreTouchWithId startingAt atPoint currentPoint whenReady +let recognizer6 x ~shouldContinueTrackingTouchWithId ~startingAt ~atPoint ~currentPoint ~forContinueState ~whenStateReady self = msg_send ~self ~cmd:(selector "recognizer:shouldContinueTrackingTouchWithId:startingAt:atPoint:currentPoint:forContinueState:whenStateReady:") ~typ:(id @-> id @-> double @-> CGPoint.t @-> CGPoint.t @-> ullong @-> (ptr void) @-> returning void) x shouldContinueTrackingTouchWithId startingAt atPoint currentPoint (ULLong.of_int forContinueState) whenStateReady +let recognizerBlockUntilTaskQueueReadyForceUsingDeferredTask x self = msg_send ~self ~cmd:(selector "recognizerBlockUntilTaskQueueReadyForceUsingDeferredTask:") ~typ:(bool @-> returning void) x +let reloadKeyboardGestureRecognition self = msg_send ~self ~cmd:(selector "reloadKeyboardGestureRecognition") ~typ:(returning void) +let reloadKeyboardWithInputTraits x ~screenTraits ~splitTraits self = msg_send ~self ~cmd:(selector "reloadKeyboardWithInputTraits:screenTraits:splitTraits:") ~typ:(id @-> id @-> id @-> returning void) x screenTraits splitTraits +let resetHRRLayoutState self = msg_send ~self ~cmd:(selector "resetHRRLayoutState") ~typ:(returning void) +let resetTouchProcessingForKeyboardChange self = msg_send ~self ~cmd:(selector "resetTouchProcessingForKeyboardChange") ~typ:(returning void) +let restoreDefaultsForAllKeys self = msg_send ~self ~cmd:(selector "restoreDefaultsForAllKeys") ~typ:(returning void) +let restoreDefaultsForKey x self = msg_send ~self ~cmd:(selector "restoreDefaultsForKey:") ~typ:(id @-> returning void) x +let rightVirtualDriftOffset self = msg_send ~self ~cmd:(selector "rightVirtualDriftOffset") ~typ:(returning CGPoint.t) +let screenEdgePanRecognizer self = msg_send ~self ~cmd:(selector "screenEdgePanRecognizer") ~typ:(returning id) +let screenEdgePanRecognizerStateDidChange x self = msg_send ~self ~cmd:(selector "screenEdgePanRecognizerStateDidChange:") ~typ:(id @-> returning void) x +let screenTraits self = msg_send ~self ~cmd:(selector "screenTraits") ~typ:(returning id) +let setAction x ~forKey self = msg_send ~self ~cmd:(selector "setAction:forKey:") ~typ:(_SEL @-> id @-> returning void) x forKey +let setActiveTouchUUID x self = msg_send ~self ~cmd:(selector "setActiveTouchUUID:") ~typ:(id @-> returning void) x +let setAutoshift x self = msg_send ~self ~cmd:(selector "setAutoshift:") ~typ:(bool @-> returning void) x +let setCadenceMonitor x self = msg_send ~self ~cmd:(selector "setCadenceMonitor:") ~typ:(id @-> returning void) x +let setCursorLocation x self = msg_send ~self ~cmd:(selector "setCursorLocation:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDeferredTaskForActiveTouch x self = msg_send ~self ~cmd:(selector "setDeferredTaskForActiveTouch:") ~typ:((ptr void) @-> returning void) x +let setDeferredTouchDownTask x self = msg_send ~self ~cmd:(selector "setDeferredTouchDownTask:") ~typ:((ptr void) @-> returning void) x +let setDeferredTouchMovedTask x self = msg_send ~self ~cmd:(selector "setDeferredTouchMovedTask:") ~typ:((ptr void) @-> returning void) x +let setDeferredTouchTaskLists x self = msg_send ~self ~cmd:(selector "setDeferredTouchTaskLists:") ~typ:(id @-> returning void) x +let setDeferredTouchTaskListsQueue x self = msg_send ~self ~cmd:(selector "setDeferredTouchTaskListsQueue:") ~typ:(id @-> returning void) x +let setDisableInteraction x self = msg_send ~self ~cmd:(selector "setDisableInteraction:") ~typ:(bool @-> returning void) x +let setDisableTouchInput x self = msg_send ~self ~cmd:(selector "setDisableTouchInput:") ~typ:(bool @-> returning void) x +let setFingerDetection x self = msg_send ~self ~cmd:(selector "setFingerDetection:") ~typ:(id @-> returning void) x +let setHandRestRecognizer x self = msg_send ~self ~cmd:(selector "setHandRestRecognizer:") ~typ:(id @-> returning void) x +let setHideKeysUnderIndicator x self = msg_send ~self ~cmd:(selector "setHideKeysUnderIndicator:") ~typ:(bool @-> returning void) x +let setIgnoringKeyplaneChange x self = msg_send ~self ~cmd:(selector "setIgnoringKeyplaneChange:") ~typ:(bool @-> returning void) x +let setIsExecutingDeferredTouchTasks x self = msg_send ~self ~cmd:(selector "setIsExecutingDeferredTouchTasks:") ~typ:(bool @-> returning void) x +let setKeyboardBias x self = msg_send ~self ~cmd:(selector "setKeyboardBias:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setLabel x ~forKey self = msg_send ~self ~cmd:(selector "setLabel:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let setLastTouchUpTime x self = msg_send ~self ~cmd:(selector "setLastTouchUpTime:") ~typ:(double @-> returning void) x +let setLayoutTag x self = msg_send ~self ~cmd:(selector "setLayoutTag:") ~typ:(id @-> returning void) x +let setListeningForDidChange x self = msg_send ~self ~cmd:(selector "setListeningForDidChange:") ~typ:(bool @-> returning void) x +let setListeningForWillChange x self = msg_send ~self ~cmd:(selector "setListeningForWillChange:") ~typ:(bool @-> returning void) x +let setLongPressAction x ~forKey self = msg_send ~self ~cmd:(selector "setLongPressAction:forKey:") ~typ:(_SEL @-> id @-> returning void) x forKey +let setNeedsVirtualDriftUpdate self = msg_send ~self ~cmd:(selector "setNeedsVirtualDriftUpdate") ~typ:(returning void) +let setPasscodeOutlineAlpha x self = msg_send ~self ~cmd:(selector "setPasscodeOutlineAlpha:") ~typ:(double @-> returning void) x +let setPreferredHeight x self = msg_send ~self ~cmd:(selector "setPreferredHeight:") ~typ:(double @-> returning void) x +let setRecentInputs x self = msg_send ~self ~cmd:(selector "setRecentInputs:") ~typ:(id @-> returning void) x +let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning void) x +let setReturnKeyEnabled x ~withDisplayName ~withType self = msg_send ~self ~cmd:(selector "setReturnKeyEnabled:withDisplayName:withType:") ~typ:(bool @-> id @-> int @-> returning void) x withDisplayName withType +let setScreenEdgePanRecognizer x self = msg_send ~self ~cmd:(selector "setScreenEdgePanRecognizer:") ~typ:(id @-> returning void) x +let setScreenTraits x self = msg_send ~self ~cmd:(selector "setScreenTraits:") ~typ:(id @-> returning void) x +let setShift x self = msg_send ~self ~cmd:(selector "setShift:") ~typ:(bool @-> returning void) x +let setShiftKeyTouchUUID x self = msg_send ~self ~cmd:(selector "setShiftKeyTouchUUID:") ~typ:(id @-> returning void) x +let setSizeDelegate x self = msg_send ~self ~cmd:(selector "setSizeDelegate:") ~typ:(id @-> returning void) x +let setTarget x ~forKey self = msg_send ~self ~cmd:(selector "setTarget:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let setTaskQueue x self = msg_send ~self ~cmd:(selector "setTaskQueue:") ~typ:(id @-> returning void) x +let setTextEditingTraits x self = msg_send ~self ~cmd:(selector "setTextEditingTraits:") ~typ:(id @-> returning void) x +let setTouchDrifting x self = msg_send ~self ~cmd:(selector "setTouchDrifting:") ~typ:(id @-> returning void) x +let setTouchIgnoredUUIDSet x self = msg_send ~self ~cmd:(selector "setTouchIgnoredUUIDSet:") ~typ:(id @-> returning void) x +let setTouchVelocities x self = msg_send ~self ~cmd:(selector "setTouchVelocities:") ~typ:(id @-> returning void) x +let setTwoFingerTapTimestamp x self = msg_send ~self ~cmd:(selector "setTwoFingerTapTimestamp:") ~typ:(double @-> returning void) x +let shiftKeyTouchUUID self = msg_send ~self ~cmd:(selector "shiftKeyTouchUUID") ~typ:(returning id) +let shouldAllowSelectionGestures x ~atPoint ~toBegin self = msg_send ~self ~cmd:(selector "shouldAllowSelectionGestures:atPoint:toBegin:") ~typ:(bool @-> CGPoint.t @-> bool @-> returning bool) x atPoint toBegin +let shouldFadeFromLayout self = msg_send ~self ~cmd:(selector "shouldFadeFromLayout") ~typ:(returning bool) +let shouldFadeToLayout self = msg_send ~self ~cmd:(selector "shouldFadeToLayout") ~typ:(returning bool) +let shouldMergeAssistantBarWithKeyboardLayout self = msg_send ~self ~cmd:(selector "shouldMergeAssistantBarWithKeyboardLayout") ~typ:(returning bool) +let shouldShowIndicator self = msg_send ~self ~cmd:(selector "shouldShowIndicator") ~typ:(returning bool) +let showKeyboardWithInputTraits x ~screenTraits ~splitTraits self = msg_send ~self ~cmd:(selector "showKeyboardWithInputTraits:screenTraits:splitTraits:") ~typ:(id @-> id @-> id @-> returning void) x screenTraits splitTraits +let showsDedicatedEmojiKeyAlongsideGlobeButton self = msg_send ~self ~cmd:(selector "showsDedicatedEmojiKeyAlongsideGlobeButton") ~typ:(returning bool) +let simulateTouch x self = msg_send ~self ~cmd:(selector "simulateTouch:") ~typ:(CGPoint.t @-> returning id) x +let simulateTouchForCharacter x ~errorVector ~shouldTypeVariants ~baseKeyForVariants self = msg_send ~self ~cmd:(selector "simulateTouchForCharacter:errorVector:shouldTypeVariants:baseKeyForVariants:") ~typ:(id @-> CGPoint.t @-> bool @-> bool @-> returning id) x errorVector shouldTypeVariants baseKeyForVariants +let sizeDelegate self = msg_send ~self ~cmd:(selector "sizeDelegate") ~typ:(returning id) +let stretchFactor self = msg_send ~self ~cmd:(selector "stretchFactor") ~typ:(returning CGSize.t) +let supportsEmoji self = msg_send ~self ~cmd:(selector "supportsEmoji") ~typ:(returning bool) +let supportsVirtualDrift self = msg_send ~self ~cmd:(selector "supportsVirtualDrift") ~typ:(returning bool) +let targetEdgesForScreenGestureRecognition self = msg_send ~self ~cmd:(selector "targetEdgesForScreenGestureRecognition") ~typ:(returning ullong) +let taskQueue self = msg_send ~self ~cmd:(selector "taskQueue") ~typ:(returning id) +let textEditingKeyMask self = msg_send ~self ~cmd:(selector "textEditingKeyMask") ~typ:(returning ullong) +let timestampOfLastTouchesEnded self = msg_send ~self ~cmd:(selector "timestampOfLastTouchesEnded") ~typ:(returning double) +let touchCancelled x self = msg_send ~self ~cmd:(selector "touchCancelled:") ~typ:(id @-> returning void) x +let touchCancelled1 x ~executionContext self = msg_send ~self ~cmd:(selector "touchCancelled:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let touchCancelled2 x ~forResting ~executionContext self = msg_send ~self ~cmd:(selector "touchCancelled:forResting:executionContext:") ~typ:(id @-> bool @-> id @-> returning void) x forResting executionContext let touchCancelledTaskForTouchState x ~forResting self = msg_send ~self ~cmd:(selector "touchCancelledTaskForTouchState:forResting:") ~typ:(id @-> bool @-> returning (ptr void)) x forResting -let touchChanged x self = msg_send ~self ~cmd:(selector "touchChanged:") ~typ:(id @-> returning (void)) x -let touchChanged' x ~executionContext self = msg_send ~self ~cmd:(selector "touchChanged:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext +let touchChanged x self = msg_send ~self ~cmd:(selector "touchChanged:") ~typ:(id @-> returning void) x +let touchChanged' x ~executionContext self = msg_send ~self ~cmd:(selector "touchChanged:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext let touchChangedTaskForTouchState x self = msg_send ~self ~cmd:(selector "touchChangedTaskForTouchState:") ~typ:(id @-> returning (ptr void)) x -let touchDown x self = msg_send ~self ~cmd:(selector "touchDown:") ~typ:(id @-> returning (void)) x -let touchDown' x ~executionContext self = msg_send ~self ~cmd:(selector "touchDown:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext +let touchDown x self = msg_send ~self ~cmd:(selector "touchDown:") ~typ:(id @-> returning void) x +let touchDown' x ~executionContext self = msg_send ~self ~cmd:(selector "touchDown:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext let touchDownTaskForTouchState x self = msg_send ~self ~cmd:(selector "touchDownTaskForTouchState:") ~typ:(id @-> returning (ptr void)) x -let touchDragged x self = msg_send ~self ~cmd:(selector "touchDragged:") ~typ:(id @-> returning (void)) x -let touchDragged' x ~executionContext self = msg_send ~self ~cmd:(selector "touchDragged:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext +let touchDragged x self = msg_send ~self ~cmd:(selector "touchDragged:") ~typ:(id @-> returning void) x +let touchDragged' x ~executionContext self = msg_send ~self ~cmd:(selector "touchDragged:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext let touchDraggedTaskForTouchState x self = msg_send ~self ~cmd:(selector "touchDraggedTaskForTouchState:") ~typ:(id @-> returning (ptr void)) x -let touchDrifting self = msg_send ~self ~cmd:(selector "touchDrifting") ~typ:(returning (id)) -let touchIgnoredUUIDSet self = msg_send ~self ~cmd:(selector "touchIgnoredUUIDSet") ~typ:(returning (id)) -let touchUUIDsToCommitBeforeTouchUUID x self = msg_send ~self ~cmd:(selector "touchUUIDsToCommitBeforeTouchUUID:") ~typ:(id @-> returning (id)) x -let touchUp x self = msg_send ~self ~cmd:(selector "touchUp:") ~typ:(id @-> returning (void)) x -let touchUp' x ~executionContext self = msg_send ~self ~cmd:(selector "touchUp:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext +let touchDrifting self = msg_send ~self ~cmd:(selector "touchDrifting") ~typ:(returning id) +let touchIgnoredUUIDSet self = msg_send ~self ~cmd:(selector "touchIgnoredUUIDSet") ~typ:(returning id) +let touchUUIDsToCommitBeforeTouchUUID x self = msg_send ~self ~cmd:(selector "touchUUIDsToCommitBeforeTouchUUID:") ~typ:(id @-> returning id) x +let touchUp x self = msg_send ~self ~cmd:(selector "touchUp:") ~typ:(id @-> returning void) x +let touchUp' x ~executionContext self = msg_send ~self ~cmd:(selector "touchUp:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext let touchUpTaskForTouchState x self = msg_send ~self ~cmd:(selector "touchUpTaskForTouchState:") ~typ:(id @-> returning (ptr void)) x -let touchVelocities self = msg_send ~self ~cmd:(selector "touchVelocities") ~typ:(returning (id)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEstimatedPropertiesUpdated x self = msg_send ~self ~cmd:(selector "touchesEstimatedPropertiesUpdated:") ~typ:(id @-> returning (void)) x -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let traitCollectionDidChange self = msg_send ~self ~cmd:(selector "traitCollectionDidChange") ~typ:(returning (void)) -let triggerSpaceKeyplaneSwitchIfNecessary self = msg_send ~self ~cmd:(selector "triggerSpaceKeyplaneSwitchIfNecessary") ~typ:(returning (void)) -let typingStyleEstimator self = msg_send ~self ~cmd:(selector "typingStyleEstimator") ~typ:(returning (id)) -let updateBackgroundCorners self = msg_send ~self ~cmd:(selector "updateBackgroundCorners") ~typ:(returning (void)) -let updateGlobeKeyAndLayoutOriginBeforeSnapshotForInputView x self = msg_send ~self ~cmd:(selector "updateGlobeKeyAndLayoutOriginBeforeSnapshotForInputView:") ~typ:(id @-> returning (void)) x -let updateLocalizedKeys x self = msg_send ~self ~cmd:(selector "updateLocalizedKeys:") ~typ:(bool @-> returning (void)) x -let updateTouchProcessingForKeyboardChange self = msg_send ~self ~cmd:(selector "updateTouchProcessingForKeyboardChange") ~typ:(returning (void)) -let updateTouchProcessingForKeyplaneChange self = msg_send ~self ~cmd:(selector "updateTouchProcessingForKeyplaneChange") ~typ:(returning (void)) -let updateUndoKeyState self = msg_send ~self ~cmd:(selector "updateUndoKeyState") ~typ:(returning (void)) -let usesAutoShift self = msg_send ~self ~cmd:(selector "usesAutoShift") ~typ:(returning (bool)) -let willBeginIndirectSelectionGesture self = msg_send ~self ~cmd:(selector "willBeginIndirectSelectionGesture") ~typ:(returning (void)) -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let touchVelocities self = msg_send ~self ~cmd:(selector "touchVelocities") ~typ:(returning id) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEstimatedPropertiesUpdated x self = msg_send ~self ~cmd:(selector "touchesEstimatedPropertiesUpdated:") ~typ:(id @-> returning void) x +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let traitCollectionDidChange self = msg_send ~self ~cmd:(selector "traitCollectionDidChange") ~typ:(returning void) +let triggerSpaceKeyplaneSwitchIfNecessary self = msg_send ~self ~cmd:(selector "triggerSpaceKeyplaneSwitchIfNecessary") ~typ:(returning void) +let typingStyleEstimator self = msg_send ~self ~cmd:(selector "typingStyleEstimator") ~typ:(returning id) +let updateBackgroundCorners self = msg_send ~self ~cmd:(selector "updateBackgroundCorners") ~typ:(returning void) +let updateGlobeKeyAndLayoutOriginBeforeSnapshotForInputView x self = msg_send ~self ~cmd:(selector "updateGlobeKeyAndLayoutOriginBeforeSnapshotForInputView:") ~typ:(id @-> returning void) x +let updateLocalizedKeys x self = msg_send ~self ~cmd:(selector "updateLocalizedKeys:") ~typ:(bool @-> returning void) x +let updateTouchProcessingForKeyboardChange self = msg_send ~self ~cmd:(selector "updateTouchProcessingForKeyboardChange") ~typ:(returning void) +let updateTouchProcessingForKeyplaneChange self = msg_send ~self ~cmd:(selector "updateTouchProcessingForKeyplaneChange") ~typ:(returning void) +let updateUndoKeyState self = msg_send ~self ~cmd:(selector "updateUndoKeyState") ~typ:(returning void) +let usesAutoShift self = msg_send ~self ~cmd:(selector "usesAutoShift") ~typ:(returning bool) +let willBeginIndirectSelectionGesture self = msg_send ~self ~cmd:(selector "willBeginIndirectSelectionGesture") ~typ:(returning void) +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardLayoutClass.ml b/uikit/UIKeyboardLayoutClass.ml new file mode 100644 index 00000000..69c9d4d7 --- /dev/null +++ b/uikit/UIKeyboardLayoutClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardlayout?language=objc}UIKeyboardLayout} *) + +let keyboardSizeForInputMode x ~screenTraits ~keyboardType self = msg_send ~self ~cmd:(selector "keyboardSizeForInputMode:screenTraits:keyboardType:") ~typ:(id @-> id @-> llong @-> returning CGSize.t) x screenTraits (LLong.of_int keyboardType) \ No newline at end of file diff --git a/uikit/UIKeyboardLayoutCursor.ml b/uikit/UIKeyboardLayoutCursor.ml index 38e0810d..cfcf2287 100644 --- a/uikit/UIKeyboardLayoutCursor.ml +++ b/uikit/UIKeyboardLayoutCursor.ml @@ -5,104 +5,103 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardLayoutCursor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardlayoutcursor?language=objc}UIKeyboardLayoutCursor} *) -module C = struct - let carKeyboardNameForKeyboard x ~screenTraits self = msg_send ~self ~cmd:(selector "carKeyboardNameForKeyboard:screenTraits:") ~typ:(id @-> id @-> returning (id)) x screenTraits - let keyboardSizeForInputMode x ~screenTraits ~keyboardType self = msg_send_stret ~self ~cmd:(selector "keyboardSizeForInputMode:screenTraits:keyboardType:") ~typ:(id @-> id @-> llong @-> returning (CGSize.t)) ~return_type:CGSize.t x screenTraits (LLong.of_int keyboardType) -end +let self = get_class "UIKeyboardLayoutCursor" -let acceptRecentInputIfNecessary self = msg_send ~self ~cmd:(selector "acceptRecentInputIfNecessary") ~typ:(returning (void)) -let activeStateForKey x self = msg_send ~self ~cmd:(selector "activeStateForKey:") ~typ:(id @-> returning (int)) x -let alertDidDismiss self = msg_send ~self ~cmd:(selector "alertDidDismiss") ~typ:(returning (void)) -let cacheTokenForKeyplane x self = msg_send ~self ~cmd:(selector "cacheTokenForKeyplane:") ~typ:(id @-> returning (id)) x -let canHandleEvent x self = msg_send ~self ~cmd:(selector "canHandleEvent:") ~typ:(id @-> returning (bool)) x -let canMultitap self = msg_send ~self ~cmd:(selector "canMultitap") ~typ:(returning (bool)) -let clearVariantStateForKey x self = msg_send ~self ~cmd:(selector "clearVariantStateForKey:") ~typ:(id @-> returning (void)) x -let configureFloatingContentViewsIfNeeded self = msg_send ~self ~cmd:(selector "configureFloatingContentViewsIfNeeded") ~typ:(returning (void)) -let currentKey self = msg_send ~self ~cmd:(selector "currentKey") ~typ:(returning (id)) -let cursorLocation self = msg_send ~self ~cmd:(selector "cursorLocation") ~typ:(returning (ullong)) -let deactivateKey x self = msg_send ~self ~cmd:(selector "deactivateKey:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultSelectedVariantIndexForKey x ~withActions self = msg_send ~self ~cmd:(selector "defaultSelectedVariantIndexForKey:withActions:") ~typ:(id @-> ullong @-> returning (llong)) x (ULLong.of_int withActions) -let diacriticForwardCompose self = msg_send ~self ~cmd:(selector "diacriticForwardCompose") ~typ:(returning (bool)) -let didSelectRecentInputString x self = msg_send ~self ~cmd:(selector "didSelectRecentInputString:") ~typ:(id @-> returning (void)) x -let downActionFlagsForKey x self = msg_send ~self ~cmd:(selector "downActionFlagsForKey:") ~typ:(id @-> returning (ullong)) x -let enabledStateForKey x self = msg_send ~self ~cmd:(selector "enabledStateForKey:") ~typ:(id @-> returning (int)) x -let endMultitapForKey x self = msg_send ~self ~cmd:(selector "endMultitapForKey:") ~typ:(id @-> returning (void)) x -let flushKeyCache x self = msg_send ~self ~cmd:(selector "flushKeyCache:") ~typ:(id @-> returning (void)) x -let focusWindow self = msg_send ~self ~cmd:(selector "focusWindow") ~typ:(returning (id)) -let getHandRestRecognizerState self = msg_send ~self ~cmd:(selector "getHandRestRecognizerState") ~typ:(returning (bool)) -let getNextKeyplaneIndex x self = msg_send ~self ~cmd:(selector "getNextKeyplaneIndex:") ~typ:(ullong @-> returning (ullong)) (ULLong.of_int x) -let getRomanAccentVariantsForString x ~inputMode ~keyboardVariantIndludes self = msg_send ~self ~cmd:(selector "getRomanAccentVariantsForString:inputMode:keyboardVariantIndludes:") ~typ:(id @-> id @-> int @-> returning (id)) x inputMode keyboardVariantIndludes -let handleLinearDirectionalInput x self = msg_send ~self ~cmd:(selector "handleLinearDirectionalInput:") ~typ:(int @-> returning (bool)) x -let handleVariantDeleteIfNecessaryForKey x self = msg_send ~self ~cmd:(selector "handleVariantDeleteIfNecessaryForKey:") ~typ:(id @-> returning (void)) x -let handleVisualDirectionalInput x self = msg_send ~self ~cmd:(selector "handleVisualDirectionalInput:") ~typ:(int @-> returning (bool)) x -let ignoresShiftState self = msg_send ~self ~cmd:(selector "ignoresShiftState") ~typ:(returning (bool)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isAlphabeticPlane self = msg_send ~self ~cmd:(selector "isAlphabeticPlane") ~typ:(returning (bool)) -let isAppRightToLeft self = msg_send ~self ~cmd:(selector "isAppRightToLeft") ~typ:(returning (bool)) -let isKanaPlane self = msg_send ~self ~cmd:(selector "isKanaPlane") ~typ:(returning (bool)) -let isKeyboardRightToLeft self = msg_send ~self ~cmd:(selector "isKeyboardRightToLeft") ~typ:(returning (bool)) -let isKeyplaneDisabledWithName x self = msg_send ~self ~cmd:(selector "isKeyplaneDisabledWithName:") ~typ:(id @-> returning (bool)) x -let isPossibleToTypeFast self = msg_send ~self ~cmd:(selector "isPossibleToTypeFast") ~typ:(returning (bool)) -let isSlimLinearKeyboardTV self = msg_send ~self ~cmd:(selector "isSlimLinearKeyboardTV") ~typ:(returning (bool)) -let keyHitTestInSameRowAsCenter x ~size self = msg_send ~self ~cmd:(selector "keyHitTestInSameRowAsCenter:size:") ~typ:(CGPoint.t @-> CGSize.t @-> returning (id)) x size -let keyViewAnimator self = msg_send ~self ~cmd:(selector "keyViewAnimator") ~typ:(returning (id)) -let keyViewAnimatorClassForCurrentKeyboardLayout self = msg_send ~self ~cmd:(selector "keyViewAnimatorClassForCurrentKeyboardLayout") ~typ:(returning (_Class)) -let keyplaneBeforeDictation self = msg_send ~self ~cmd:(selector "keyplaneBeforeDictation") ~typ:(returning (id)) -let longPressAction self = msg_send ~self ~cmd:(selector "longPressAction") ~typ:(returning (void)) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let recentInputsAlert self = msg_send ~self ~cmd:(selector "recentInputsAlert") ~typ:(returning (id)) -let refreshSelectedCellIfNecessaryForKey x self = msg_send ~self ~cmd:(selector "refreshSelectedCellIfNecessaryForKey:") ~typ:(id @-> returning (bool)) x -let remoteControlReceivedWithEvent x self = msg_send ~self ~cmd:(selector "remoteControlReceivedWithEvent:") ~typ:(id @-> returning (void)) x -let restoreFocusFromEntryPoint x self = msg_send ~self ~cmd:(selector "restoreFocusFromEntryPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let returnToKeyplaneAfterDictation self = msg_send ~self ~cmd:(selector "returnToKeyplaneAfterDictation") ~typ:(returning (void)) -let runWithSuppressedActions x self = msg_send ~self ~cmd:(selector "runWithSuppressedActions:") ~typ:(ptr void @-> returning (void)) x -let selectInitialKeyIfNecessary self = msg_send ~self ~cmd:(selector "selectInitialKeyIfNecessary") ~typ:(returning (void)) -let selectedKeyBeforeDictation self = msg_send ~self ~cmd:(selector "selectedKeyBeforeDictation") ~typ:(returning (llong)) -let selectionFrameForKeyIndex x self = msg_send_stret ~self ~cmd:(selector "selectionFrameForKeyIndex:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) -let setCursorLocation x self = msg_send ~self ~cmd:(selector "setCursorLocation:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDisableTouchInput x self = msg_send ~self ~cmd:(selector "setDisableTouchInput:") ~typ:(bool @-> returning (void)) x -let setFocusWindow x self = msg_send ~self ~cmd:(selector "setFocusWindow:") ~typ:(id @-> returning (void)) x -let setHighlightedVariantIndex x ~key self = msg_send ~self ~cmd:(selector "setHighlightedVariantIndex:key:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) key -let setKeyboardAppearance x self = msg_send ~self ~cmd:(selector "setKeyboardAppearance:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setKeyboardName x ~appearance self = msg_send ~self ~cmd:(selector "setKeyboardName:appearance:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int appearance) -let setKeyplaneBeforeDictation x self = msg_send ~self ~cmd:(selector "setKeyplaneBeforeDictation:") ~typ:(id @-> returning (void)) x -let setKeyplaneName x self = msg_send ~self ~cmd:(selector "setKeyplaneName:") ~typ:(id @-> returning (void)) x -let setRecentInputs x self = msg_send ~self ~cmd:(selector "setRecentInputs:") ~typ:(id @-> returning (void)) x -let setRecentInputsAlert x self = msg_send ~self ~cmd:(selector "setRecentInputsAlert:") ~typ:(id @-> returning (void)) x -let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning (void)) x -let setSelectedKeyBeforeDictation x self = msg_send ~self ~cmd:(selector "setSelectedKeyBeforeDictation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSelectedKeyIndex x self = msg_send ~self ~cmd:(selector "setSelectedKeyIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShift x self = msg_send ~self ~cmd:(selector "setShift:") ~typ:(bool @-> returning (void)) x -let shouldAllowCurrentKeyplaneReload self = msg_send ~self ~cmd:(selector "shouldAllowCurrentKeyplaneReload") ~typ:(returning (bool)) -let shouldDeactivateWithoutWindow self = msg_send ~self ~cmd:(selector "shouldDeactivateWithoutWindow") ~typ:(returning (bool)) -let shouldMatchCaseForDomainKeys self = msg_send ~self ~cmd:(selector "shouldMatchCaseForDomainKeys") ~typ:(returning (bool)) -let shouldMergeKey x self = msg_send ~self ~cmd:(selector "shouldMergeKey:") ~typ:(id @-> returning (bool)) x -let shouldPreventInputManagerHitTestingForKey x self = msg_send ~self ~cmd:(selector "shouldPreventInputManagerHitTestingForKey:") ~typ:(id @-> returning (bool)) x -let shouldRetestKey x ~slidOffKey ~withKeyplane self = msg_send ~self ~cmd:(selector "shouldRetestKey:slidOffKey:withKeyplane:") ~typ:(id @-> id @-> id @-> returning (bool)) x slidOffKey withKeyplane -let shouldToggleKeyplaneWithName x self = msg_send ~self ~cmd:(selector "shouldToggleKeyplaneWithName:") ~typ:(id @-> returning (bool)) x -let showKeyboardWithInputTraits x ~screenTraits ~splitTraits self = msg_send ~self ~cmd:(selector "showKeyboardWithInputTraits:screenTraits:splitTraits:") ~typ:(id @-> id @-> id @-> returning (void)) x screenTraits splitTraits -let showPopupKeyplaneSwitcher self = msg_send ~self ~cmd:(selector "showPopupKeyplaneSwitcher") ~typ:(returning (void)) -let showRecentInputsAlert self = msg_send ~self ~cmd:(selector "showRecentInputsAlert") ~typ:(returning (void)) -let stateForCandidateListKey x self = msg_send ~self ~cmd:(selector "stateForCandidateListKey:") ~typ:(id @-> returning (int)) x -let stateForKeyplaneSwitchKey x self = msg_send ~self ~cmd:(selector "stateForKeyplaneSwitchKey:") ~typ:(id @-> returning (int)) x -let supportsContinuousPath self = msg_send ~self ~cmd:(selector "supportsContinuousPath") ~typ:(returning (bool)) -let supportsEmoji self = msg_send ~self ~cmd:(selector "supportsEmoji") ~typ:(returning (bool)) -let takeKeyAction x self = msg_send ~self ~cmd:(selector "takeKeyAction:") ~typ:(id @-> returning (void)) x -let targetEdgesForScreenGestureRecognition self = msg_send ~self ~cmd:(selector "targetEdgesForScreenGestureRecognition") ~typ:(returning (ullong)) -let targetKeyIndexAtOffset x ~fromKey self = msg_send ~self ~cmd:(selector "targetKeyIndexAtOffset:fromKey:") ~typ:(CGPoint.t @-> id @-> returning (llong)) x fromKey -let targetKeyIndexFromPoint x self = msg_send ~self ~cmd:(selector "targetKeyIndexFromPoint:") ~typ:(CGPoint.t @-> returning (llong)) x -let targetKeyIndexFromPoint' x ~inKeys self = msg_send ~self ~cmd:(selector "targetKeyIndexFromPoint:inKeys:") ~typ:(CGPoint.t @-> id @-> returning (llong)) x inKeys -let updateDictationHelpString self = msg_send ~self ~cmd:(selector "updateDictationHelpString") ~typ:(returning (void)) -let updateKeyplaneSwitchEdgeBiases self = msg_send ~self ~cmd:(selector "updateKeyplaneSwitchEdgeBiases") ~typ:(returning (void)) -let updateRecentInputsKeyIfNecessary self = msg_send ~self ~cmd:(selector "updateRecentInputsKeyIfNecessary") ~typ:(returning (void)) -let updateStatesForGridSelection self = msg_send ~self ~cmd:(selector "updateStatesForGridSelection") ~typ:(returning (void)) -let usesAutoShift self = msg_send ~self ~cmd:(selector "usesAutoShift") ~typ:(returning (bool)) -let variantCountForKey x self = msg_send ~self ~cmd:(selector "variantCountForKey:") ~typ:(id @-> returning (ullong)) x -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let acceptRecentInputIfNecessary self = msg_send ~self ~cmd:(selector "acceptRecentInputIfNecessary") ~typ:(returning void) +let activeStateForKey x self = msg_send ~self ~cmd:(selector "activeStateForKey:") ~typ:(id @-> returning int) x +let alertDidDismiss self = msg_send ~self ~cmd:(selector "alertDidDismiss") ~typ:(returning void) +let cacheTokenForKeyplane x self = msg_send ~self ~cmd:(selector "cacheTokenForKeyplane:") ~typ:(id @-> returning id) x +let canHandleEvent x self = msg_send ~self ~cmd:(selector "canHandleEvent:") ~typ:(id @-> returning bool) x +let canMultitap self = msg_send ~self ~cmd:(selector "canMultitap") ~typ:(returning bool) +let clearVariantStateForKey x self = msg_send ~self ~cmd:(selector "clearVariantStateForKey:") ~typ:(id @-> returning void) x +let configureFloatingContentViewsIfNeeded self = msg_send ~self ~cmd:(selector "configureFloatingContentViewsIfNeeded") ~typ:(returning void) +let currentKey self = msg_send ~self ~cmd:(selector "currentKey") ~typ:(returning id) +let cursorLocation self = msg_send ~self ~cmd:(selector "cursorLocation") ~typ:(returning ullong) +let deactivateKey x self = msg_send ~self ~cmd:(selector "deactivateKey:") ~typ:(id @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultSelectedVariantIndexForKey x ~withActions self = msg_send ~self ~cmd:(selector "defaultSelectedVariantIndexForKey:withActions:") ~typ:(id @-> ullong @-> returning llong) x (ULLong.of_int withActions) +let diacriticForwardCompose self = msg_send ~self ~cmd:(selector "diacriticForwardCompose") ~typ:(returning bool) +let didSelectRecentInputString x self = msg_send ~self ~cmd:(selector "didSelectRecentInputString:") ~typ:(id @-> returning void) x +let downActionFlagsForKey x self = msg_send ~self ~cmd:(selector "downActionFlagsForKey:") ~typ:(id @-> returning ullong) x +let enabledStateForKey x self = msg_send ~self ~cmd:(selector "enabledStateForKey:") ~typ:(id @-> returning int) x +let endMultitapForKey x self = msg_send ~self ~cmd:(selector "endMultitapForKey:") ~typ:(id @-> returning void) x +let flushKeyCache x self = msg_send ~self ~cmd:(selector "flushKeyCache:") ~typ:(id @-> returning void) x +let focusWindow self = msg_send ~self ~cmd:(selector "focusWindow") ~typ:(returning id) +let getHandRestRecognizerState self = msg_send ~self ~cmd:(selector "getHandRestRecognizerState") ~typ:(returning uchar) +let getNextKeyplaneIndex x self = msg_send ~self ~cmd:(selector "getNextKeyplaneIndex:") ~typ:(ullong @-> returning ullong) (ULLong.of_int x) +let getRomanAccentVariantsForString x ~inputMode ~keyboardVariantIndludes self = msg_send ~self ~cmd:(selector "getRomanAccentVariantsForString:inputMode:keyboardVariantIndludes:") ~typ:(id @-> id @-> int @-> returning id) x inputMode keyboardVariantIndludes +let handleLinearDirectionalInput x self = msg_send ~self ~cmd:(selector "handleLinearDirectionalInput:") ~typ:(int @-> returning bool) x +let handleVariantDeleteIfNecessaryForKey x self = msg_send ~self ~cmd:(selector "handleVariantDeleteIfNecessaryForKey:") ~typ:(id @-> returning void) x +let handleVisualDirectionalInput x self = msg_send ~self ~cmd:(selector "handleVisualDirectionalInput:") ~typ:(int @-> returning bool) x +let ignoresShiftState self = msg_send ~self ~cmd:(selector "ignoresShiftState") ~typ:(returning bool) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isAlphabeticPlane self = msg_send ~self ~cmd:(selector "isAlphabeticPlane") ~typ:(returning bool) +let isAppRightToLeft self = msg_send ~self ~cmd:(selector "isAppRightToLeft") ~typ:(returning bool) +let isKanaPlane self = msg_send ~self ~cmd:(selector "isKanaPlane") ~typ:(returning bool) +let isKeyboardRightToLeft self = msg_send ~self ~cmd:(selector "isKeyboardRightToLeft") ~typ:(returning bool) +let isKeyplaneDisabledWithName x self = msg_send ~self ~cmd:(selector "isKeyplaneDisabledWithName:") ~typ:(id @-> returning bool) x +let isPossibleToTypeFast self = msg_send ~self ~cmd:(selector "isPossibleToTypeFast") ~typ:(returning bool) +let isSlimLinearKeyboardTV self = msg_send ~self ~cmd:(selector "isSlimLinearKeyboardTV") ~typ:(returning bool) +let keyHitTestInSameRowAsCenter x ~size self = msg_send ~self ~cmd:(selector "keyHitTestInSameRowAsCenter:size:") ~typ:(CGPoint.t @-> CGSize.t @-> returning id) x size +let keyViewAnimator self = msg_send ~self ~cmd:(selector "keyViewAnimator") ~typ:(returning id) +let keyViewAnimatorClassForCurrentKeyboardLayout self = msg_send ~self ~cmd:(selector "keyViewAnimatorClassForCurrentKeyboardLayout") ~typ:(returning _Class) +let keyplaneBeforeDictation self = msg_send ~self ~cmd:(selector "keyplaneBeforeDictation") ~typ:(returning id) +let longPressAction self = msg_send ~self ~cmd:(selector "longPressAction") ~typ:(returning void) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let recentInputsAlert self = msg_send ~self ~cmd:(selector "recentInputsAlert") ~typ:(returning id) +let refreshSelectedCellIfNecessaryForKey x self = msg_send ~self ~cmd:(selector "refreshSelectedCellIfNecessaryForKey:") ~typ:(id @-> returning bool) x +let remoteControlReceivedWithEvent x self = msg_send ~self ~cmd:(selector "remoteControlReceivedWithEvent:") ~typ:(id @-> returning void) x +let restoreFocusFromEntryPoint x self = msg_send ~self ~cmd:(selector "restoreFocusFromEntryPoint:") ~typ:(CGPoint.t @-> returning void) x +let returnToKeyplaneAfterDictation self = msg_send ~self ~cmd:(selector "returnToKeyplaneAfterDictation") ~typ:(returning void) +let runWithSuppressedActions x self = msg_send ~self ~cmd:(selector "runWithSuppressedActions:") ~typ:((ptr void) @-> returning void) x +let selectInitialKeyIfNecessary self = msg_send ~self ~cmd:(selector "selectInitialKeyIfNecessary") ~typ:(returning void) +let selectedKeyBeforeDictation self = msg_send ~self ~cmd:(selector "selectedKeyBeforeDictation") ~typ:(returning llong) +let selectionFrameForKeyIndex x self = msg_send ~self ~cmd:(selector "selectionFrameForKeyIndex:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) +let setCursorLocation x self = msg_send ~self ~cmd:(selector "setCursorLocation:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDisableTouchInput x self = msg_send ~self ~cmd:(selector "setDisableTouchInput:") ~typ:(bool @-> returning void) x +let setFocusWindow x self = msg_send ~self ~cmd:(selector "setFocusWindow:") ~typ:(id @-> returning void) x +let setHighlightedVariantIndex x ~key self = msg_send ~self ~cmd:(selector "setHighlightedVariantIndex:key:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) key +let setKeyboardAppearance x self = msg_send ~self ~cmd:(selector "setKeyboardAppearance:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setKeyboardName x ~appearance self = msg_send ~self ~cmd:(selector "setKeyboardName:appearance:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int appearance) +let setKeyplaneBeforeDictation x self = msg_send ~self ~cmd:(selector "setKeyplaneBeforeDictation:") ~typ:(id @-> returning void) x +let setKeyplaneName x self = msg_send ~self ~cmd:(selector "setKeyplaneName:") ~typ:(id @-> returning void) x +let setRecentInputs x self = msg_send ~self ~cmd:(selector "setRecentInputs:") ~typ:(id @-> returning void) x +let setRecentInputsAlert x self = msg_send ~self ~cmd:(selector "setRecentInputsAlert:") ~typ:(id @-> returning void) x +let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning void) x +let setSelectedKeyBeforeDictation x self = msg_send ~self ~cmd:(selector "setSelectedKeyBeforeDictation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSelectedKeyIndex x self = msg_send ~self ~cmd:(selector "setSelectedKeyIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setShift x self = msg_send ~self ~cmd:(selector "setShift:") ~typ:(bool @-> returning void) x +let shouldAllowCurrentKeyplaneReload self = msg_send ~self ~cmd:(selector "shouldAllowCurrentKeyplaneReload") ~typ:(returning bool) +let shouldDeactivateWithoutWindow self = msg_send ~self ~cmd:(selector "shouldDeactivateWithoutWindow") ~typ:(returning bool) +let shouldMatchCaseForDomainKeys self = msg_send ~self ~cmd:(selector "shouldMatchCaseForDomainKeys") ~typ:(returning bool) +let shouldMergeKey x self = msg_send ~self ~cmd:(selector "shouldMergeKey:") ~typ:(id @-> returning bool) x +let shouldPreventInputManagerHitTestingForKey x self = msg_send ~self ~cmd:(selector "shouldPreventInputManagerHitTestingForKey:") ~typ:(id @-> returning bool) x +let shouldRetestKey x ~slidOffKey ~withKeyplane self = msg_send ~self ~cmd:(selector "shouldRetestKey:slidOffKey:withKeyplane:") ~typ:(id @-> id @-> id @-> returning bool) x slidOffKey withKeyplane +let shouldToggleKeyplaneWithName x self = msg_send ~self ~cmd:(selector "shouldToggleKeyplaneWithName:") ~typ:(id @-> returning bool) x +let showKeyboardWithInputTraits x ~screenTraits ~splitTraits self = msg_send ~self ~cmd:(selector "showKeyboardWithInputTraits:screenTraits:splitTraits:") ~typ:(id @-> id @-> id @-> returning void) x screenTraits splitTraits +let showPopupKeyplaneSwitcher self = msg_send ~self ~cmd:(selector "showPopupKeyplaneSwitcher") ~typ:(returning void) +let showRecentInputsAlert self = msg_send ~self ~cmd:(selector "showRecentInputsAlert") ~typ:(returning void) +let stateForCandidateListKey x self = msg_send ~self ~cmd:(selector "stateForCandidateListKey:") ~typ:(id @-> returning int) x +let stateForKeyplaneSwitchKey x self = msg_send ~self ~cmd:(selector "stateForKeyplaneSwitchKey:") ~typ:(id @-> returning int) x +let supportsContinuousPath self = msg_send ~self ~cmd:(selector "supportsContinuousPath") ~typ:(returning bool) +let supportsEmoji self = msg_send ~self ~cmd:(selector "supportsEmoji") ~typ:(returning bool) +let takeKeyAction x self = msg_send ~self ~cmd:(selector "takeKeyAction:") ~typ:(id @-> returning void) x +let targetEdgesForScreenGestureRecognition self = msg_send ~self ~cmd:(selector "targetEdgesForScreenGestureRecognition") ~typ:(returning ullong) +let targetKeyIndexAtOffset x ~fromKey self = msg_send ~self ~cmd:(selector "targetKeyIndexAtOffset:fromKey:") ~typ:(CGPoint.t @-> id @-> returning llong) x fromKey +let targetKeyIndexFromPoint x self = msg_send ~self ~cmd:(selector "targetKeyIndexFromPoint:") ~typ:(CGPoint.t @-> returning llong) x +let targetKeyIndexFromPoint' x ~inKeys self = msg_send ~self ~cmd:(selector "targetKeyIndexFromPoint:inKeys:") ~typ:(CGPoint.t @-> id @-> returning llong) x inKeys +let updateDictationHelpString self = msg_send ~self ~cmd:(selector "updateDictationHelpString") ~typ:(returning void) +let updateKeyplaneSwitchEdgeBiases self = msg_send ~self ~cmd:(selector "updateKeyplaneSwitchEdgeBiases") ~typ:(returning void) +let updateRecentInputsKeyIfNecessary self = msg_send ~self ~cmd:(selector "updateRecentInputsKeyIfNecessary") ~typ:(returning void) +let updateStatesForGridSelection self = msg_send ~self ~cmd:(selector "updateStatesForGridSelection") ~typ:(returning void) +let usesAutoShift self = msg_send ~self ~cmd:(selector "usesAutoShift") ~typ:(returning bool) +let variantCountForKey x self = msg_send ~self ~cmd:(selector "variantCountForKey:") ~typ:(id @-> returning ullong) x +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardLayoutCursorClass.ml b/uikit/UIKeyboardLayoutCursorClass.ml new file mode 100644 index 00000000..3cf47c0b --- /dev/null +++ b/uikit/UIKeyboardLayoutCursorClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardlayoutcursor?language=objc}UIKeyboardLayoutCursor} *) + +let carKeyboardNameForKeyboard x ~screenTraits self = msg_send ~self ~cmd:(selector "carKeyboardNameForKeyboard:screenTraits:") ~typ:(id @-> id @-> returning id) x screenTraits +let keyboardSizeForInputMode x ~screenTraits ~keyboardType self = msg_send ~self ~cmd:(selector "keyboardSizeForInputMode:screenTraits:keyboardType:") ~typ:(id @-> id @-> llong @-> returning CGSize.t) x screenTraits (LLong.of_int keyboardType) \ No newline at end of file diff --git a/uikit/UIKeyboardLayoutGuide.ml b/uikit/UIKeyboardLayoutGuide.ml index e6f580a5..fb47679e 100644 --- a/uikit/UIKeyboardLayoutGuide.ml +++ b/uikit/UIKeyboardLayoutGuide.ml @@ -5,28 +5,33 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardLayoutGuide" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardlayoutguide?language=objc}UIKeyboardLayoutGuide} *) -let addsHeightWhenUndocked self = msg_send ~self ~cmd:(selector "addsHeightWhenUndocked") ~typ:(returning (bool)) -let changeOffsetConstants x self = msg_send ~self ~cmd:(selector "changeOffsetConstants:") ~typ:(ptr void @-> returning (void)) x -let changeSizingConstants x self = msg_send ~self ~cmd:(selector "changeSizingConstants:") ~typ:(CGSize.t @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let followsUndockedKeyboard self = msg_send ~self ~cmd:(selector "followsUndockedKeyboard") ~typ:(returning (bool)) -let hasPausedEdges self = msg_send ~self ~cmd:(selector "hasPausedEdges") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isDocked self = msg_send ~self ~cmd:(selector "isDocked") ~typ:(returning (bool)) -let isTransitioning self = msg_send ~self ~cmd:(selector "isTransitioning") ~typ:(returning (bool)) -let isWindowGuide self = msg_send ~self ~cmd:(selector "isWindowGuide") ~typ:(returning (bool)) -let previousSize self = msg_send_stret ~self ~cmd:(selector "previousSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let setAddsHeightWhenUndocked x self = msg_send ~self ~cmd:(selector "setAddsHeightWhenUndocked:") ~typ:(bool @-> returning (void)) x -let setDocked x self = msg_send ~self ~cmd:(selector "setDocked:") ~typ:(bool @-> returning (void)) x -let setFollowsUndockedKeyboard x self = msg_send ~self ~cmd:(selector "setFollowsUndockedKeyboard:") ~typ:(bool @-> returning (void)) x -let setHasPausedEdges x self = msg_send ~self ~cmd:(selector "setHasPausedEdges:") ~typ:(bool @-> returning (void)) x -let setPreviousOffset x self = msg_send ~self ~cmd:(selector "setPreviousOffset:") ~typ:(ptr void @-> returning (void)) x -let setPreviousSize x self = msg_send ~self ~cmd:(selector "setPreviousSize:") ~typ:(CGSize.t @-> returning (void)) x -let setTransitioning x self = msg_send ~self ~cmd:(selector "setTransitioning:") ~typ:(bool @-> returning (void)) x -let setWindowGuide x self = msg_send ~self ~cmd:(selector "setWindowGuide:") ~typ:(bool @-> returning (void)) x -let shouldPauseEdgesForSize x self = msg_send ~self ~cmd:(selector "shouldPauseEdgesForSize:") ~typ:(CGSize.t @-> returning (bool)) x -let updateShouldPauseEdges x self = msg_send ~self ~cmd:(selector "updateShouldPauseEdges:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKeyboardLayoutGuide" + +let addsHeightWhenUndocked self = msg_send ~self ~cmd:(selector "addsHeightWhenUndocked") ~typ:(returning bool) +let changeOffsetConstants x self = msg_send ~self ~cmd:(selector "changeOffsetConstants:") ~typ:(UIOffset.t @-> returning void) x +let changeSizingConstants x self = msg_send ~self ~cmd:(selector "changeSizingConstants:") ~typ:(CGSize.t @-> returning void) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let followsUndockedKeyboard self = msg_send ~self ~cmd:(selector "followsUndockedKeyboard") ~typ:(returning bool) +let hasPausedEdges self = msg_send ~self ~cmd:(selector "hasPausedEdges") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isDocked self = msg_send ~self ~cmd:(selector "isDocked") ~typ:(returning bool) +let isTransitioning self = msg_send ~self ~cmd:(selector "isTransitioning") ~typ:(returning bool) +let isWindowGuide self = msg_send ~self ~cmd:(selector "isWindowGuide") ~typ:(returning bool) +let previousOffset self = msg_send ~self ~cmd:(selector "previousOffset") ~typ:(returning UIOffset.t) +let previousSize self = msg_send ~self ~cmd:(selector "previousSize") ~typ:(returning CGSize.t) +let setAddsHeightWhenUndocked x self = msg_send ~self ~cmd:(selector "setAddsHeightWhenUndocked:") ~typ:(bool @-> returning void) x +let setDocked x self = msg_send ~self ~cmd:(selector "setDocked:") ~typ:(bool @-> returning void) x +let setFollowsUndockedKeyboard x self = msg_send ~self ~cmd:(selector "setFollowsUndockedKeyboard:") ~typ:(bool @-> returning void) x +let setHasPausedEdges x self = msg_send ~self ~cmd:(selector "setHasPausedEdges:") ~typ:(bool @-> returning void) x +let setPreviousOffset x self = msg_send ~self ~cmd:(selector "setPreviousOffset:") ~typ:(UIOffset.t @-> returning void) x +let setPreviousSize x self = msg_send ~self ~cmd:(selector "setPreviousSize:") ~typ:(CGSize.t @-> returning void) x +let setTransitioning x self = msg_send ~self ~cmd:(selector "setTransitioning:") ~typ:(bool @-> returning void) x +let setWindowGuide x self = msg_send ~self ~cmd:(selector "setWindowGuide:") ~typ:(bool @-> returning void) x +let shouldPauseEdgesForSize x self = msg_send ~self ~cmd:(selector "shouldPauseEdgesForSize:") ~typ:(CGSize.t @-> returning bool) x +let updateShouldPauseEdges x self = msg_send ~self ~cmd:(selector "updateShouldPauseEdges:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardLayoutStar.ml b/uikit/UIKeyboardLayoutStar.ml index 81541fe0..146719c8 100644 --- a/uikit/UIKeyboardLayoutStar.ml +++ b/uikit/UIKeyboardLayoutStar.ml @@ -5,416 +5,411 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardLayoutStar" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardlayoutstar?language=objc}UIKeyboardLayoutStar} *) -module C = struct - let accessibilitySensitivityChanged self = msg_send ~self ~cmd:(selector "accessibilitySensitivityChanged") ~typ:(returning (void)) - let keyboardFromFactoryWithName x ~screenTraits self = msg_send ~self ~cmd:(selector "keyboardFromFactoryWithName:screenTraits:") ~typ:(id @-> id @-> returning (id)) x screenTraits - let keyboardSizeForInputMode x ~screenTraits ~keyboardType self = msg_send_stret ~self ~cmd:(selector "keyboardSizeForInputMode:screenTraits:keyboardType:") ~typ:(id @-> id @-> llong @-> returning (CGSize.t)) ~return_type:CGSize.t x screenTraits (LLong.of_int keyboardType) - let keyboardWithName x ~screenTraits self = msg_send ~self ~cmd:(selector "keyboardWithName:screenTraits:") ~typ:(id @-> id @-> returning (id)) x screenTraits - let sharedPunctuationCharacterSet self = msg_send ~self ~cmd:(selector "sharedPunctuationCharacterSet") ~typ:(returning (id)) - let sharedRivenKeyplaneGenerator self = msg_send ~self ~cmd:(selector "sharedRivenKeyplaneGenerator") ~typ:(returning (id)) -end +let self = get_class "UIKeyboardLayoutStar" -let accessibilitySensitivityChanged self = msg_send ~self ~cmd:(selector "accessibilitySensitivityChanged") ~typ:(returning (void)) -let activationIndicatorView self = msg_send ~self ~cmd:(selector "activationIndicatorView") ~typ:(returning (id)) -let activeKey self = msg_send ~self ~cmd:(selector "activeKey") ~typ:(returning (id)) -let activeMultitapCompleteKey self = msg_send ~self ~cmd:(selector "activeMultitapCompleteKey") ~typ:(returning (id)) -let activeTouchInfoForShift self = msg_send ~self ~cmd:(selector "activeTouchInfoForShift") ~typ:(returning (id)) -let addContinuousPathPoint x ~withTimestamp self = msg_send ~self ~cmd:(selector "addContinuousPathPoint:withTimestamp:") ~typ:(CGPoint.t @-> double @-> returning (void)) x withTimestamp -let allKeyplanesHaveSameHeight self = msg_send ~self ~cmd:(selector "allKeyplanesHaveSameHeight") ~typ:(returning (bool)) -let annotateKeysWithDeveloperPunctuation self = msg_send ~self ~cmd:(selector "annotateKeysWithDeveloperPunctuation") ~typ:(returning (void)) -let annotateWriteboardDisplayTypeHintForKeyIfNeeded self = msg_send ~self ~cmd:(selector "annotateWriteboardDisplayTypeHintForKeyIfNeeded") ~typ:(returning (void)) -let applyError x ~toKey self = msg_send_stret ~self ~cmd:(selector "applyError:toKey:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x toKey -let autoShift self = msg_send ~self ~cmd:(selector "autoShift") ~typ:(returning (bool)) -let baseKeyForString x self = msg_send ~self ~cmd:(selector "baseKeyForString:") ~typ:(id @-> returning (id)) x -let biasedKeyboardWidthRatio self = msg_send ~self ~cmd:(selector "biasedKeyboardWidthRatio") ~typ:(returning (double)) -let blinkAssertion self = msg_send ~self ~cmd:(selector "blinkAssertion") ~typ:(returning (id)) -let cacheIdentifierForKeyplaneNamed x self = msg_send ~self ~cmd:(selector "cacheIdentifierForKeyplaneNamed:") ~typ:(id @-> returning (id)) x -let cacheTokenForKeyplane x ~caseAlternates self = msg_send ~self ~cmd:(selector "cacheTokenForKeyplane:caseAlternates:") ~typ:(id @-> bool @-> returning (id)) x caseAlternates -let cachedCompositeImageWithCacheKey x self = msg_send ~self ~cmd:(selector "cachedCompositeImageWithCacheKey:") ~typ:(id @-> returning (id)) x -let calculateReachabilityScoreWithKey x ~keyError self = msg_send ~self ~cmd:(selector "calculateReachabilityScoreWithKey:keyError:") ~typ:(id @-> CGPoint.t @-> returning (void)) x keyError -let canAddRomanSwitchKey self = msg_send ~self ~cmd:(selector "canAddRomanSwitchKey") ~typ:(returning (bool)) -let canForceTouchUUIDCommit x ~inWindow self = msg_send ~self ~cmd:(selector "canForceTouchUUIDCommit:inWindow:") ~typ:(id @-> id @-> returning (bool)) x inWindow -let canMultitap self = msg_send ~self ~cmd:(selector "canMultitap") ~typ:(returning (bool)) -let canProduceString x self = msg_send ~self ~cmd:(selector "canProduceString:") ~typ:(id @-> returning (bool)) x -let canReuseKeyplaneView self = msg_send ~self ~cmd:(selector "canReuseKeyplaneView") ~typ:(returning (bool)) -let cancelDelayedCentroidUpdate self = msg_send ~self ~cmd:(selector "cancelDelayedCentroidUpdate") ~typ:(returning (void)) -let cancelMultitapTimer self = msg_send ~self ~cmd:(selector "cancelMultitapTimer") ~typ:(returning (void)) -let cancelTouchIfNecessaryForInfo x ~forResting self = msg_send ~self ~cmd:(selector "cancelTouchIfNecessaryForInfo:forResting:") ~typ:(id @-> bool @-> returning (void)) x forResting -let cancelTouchesForTwoFingerTapGesture x self = msg_send ~self ~cmd:(selector "cancelTouchesForTwoFingerTapGesture:") ~typ:(id @-> returning (void)) x -let candidateList self = msg_send ~self ~cmd:(selector "candidateList") ~typ:(returning (id)) -let changeToKeyplane x self = msg_send ~self ~cmd:(selector "changeToKeyplane:") ~typ:(id @-> returning (void)) x -let cleanupPreviousKeyboardWithNewInputTraits x self = msg_send ~self ~cmd:(selector "cleanupPreviousKeyboardWithNewInputTraits:") ~typ:(id @-> returning (void)) x -let clearAllTouchInfo self = msg_send ~self ~cmd:(selector "clearAllTouchInfo") ~typ:(returning (void)) -let clearContinuousPathView self = msg_send ~self ~cmd:(selector "clearContinuousPathView") ~typ:(returning (void)) -let clearHandwritingStrokesIfNeededAndNotify x self = msg_send ~self ~cmd:(selector "clearHandwritingStrokesIfNeededAndNotify:") ~typ:(bool @-> returning (void)) x -let clearInfoForTouch x self = msg_send ~self ~cmd:(selector "clearInfoForTouch:") ~typ:(id @-> returning (void)) x -let clearInfoForTouch' x ~forResting self = msg_send ~self ~cmd:(selector "clearInfoForTouch:forResting:") ~typ:(id @-> bool @-> returning (void)) x forResting -let clearKeyAnnotationsIfNecessary self = msg_send ~self ~cmd:(selector "clearKeyAnnotationsIfNecessary") ~typ:(returning (void)) -let clearTransientState self = msg_send ~self ~cmd:(selector "clearTransientState") ~typ:(returning (void)) -let clearUnusedObjects x self = msg_send ~self ~cmd:(selector "clearUnusedObjects:") ~typ:(bool @-> returning (void)) x -let completeCommitTouchesPrecedingTouchDownWithKey x ~withActions ~executionContext self = msg_send ~self ~cmd:(selector "completeCommitTouchesPrecedingTouchDownWithKey:withActions:executionContext:") ~typ:(id @-> ullong @-> id @-> returning (void)) x (ULLong.of_int withActions) executionContext -let completeDeleteActionForTouchDownWithActions x ~executionContext self = msg_send ~self ~cmd:(selector "completeDeleteActionForTouchDownWithActions:executionContext:") ~typ:(ullong @-> id @-> returning (void)) (ULLong.of_int x) executionContext -let completeHitTestForTouchDown x ~executionContext self = msg_send ~self ~cmd:(selector "completeHitTestForTouchDown:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let completeHitTestForTouchDragged x ~hitKey self = msg_send ~self ~cmd:(selector "completeHitTestForTouchDragged:hitKey:") ~typ:(id @-> id @-> returning (void)) x hitKey -let completeRetestForTouchUp x ~timestamp ~interval ~executionContext self = msg_send ~self ~cmd:(selector "completeRetestForTouchUp:timestamp:interval:executionContext:") ~typ:(id @-> double @-> double @-> id @-> returning (void)) x timestamp interval executionContext -let completeSendStringActionForTouchDownWithKey x ~withActions ~executionContext self = msg_send ~self ~cmd:(selector "completeSendStringActionForTouchDownWithKey:withActions:executionContext:") ~typ:(id @-> ullong @-> id @-> returning (void)) x (ULLong.of_int withActions) executionContext -let completeSendStringActionForTouchUp x ~withActions ~timestamp ~interval ~didLongPress ~prevActions ~executionContext self = msg_send ~self ~cmd:(selector "completeSendStringActionForTouchUp:withActions:timestamp:interval:didLongPress:prevActions:executionContext:") ~typ:(id @-> ullong @-> double @-> double @-> bool @-> ullong @-> id @-> returning (void)) x (ULLong.of_int withActions) timestamp interval didLongPress (ULLong.of_int prevActions) executionContext -let continueFromInternationalActionForTouchUp x ~withActions ~timestamp ~interval ~didLongPress ~prevActions ~executionContext self = msg_send ~self ~cmd:(selector "continueFromInternationalActionForTouchUp:withActions:timestamp:interval:didLongPress:prevActions:executionContext:") ~typ:(id @-> ullong @-> double @-> double @-> bool @-> ullong @-> id @-> returning (void)) x (ULLong.of_int withActions) timestamp interval didLongPress (ULLong.of_int prevActions) executionContext -let createKeyEventForStringAction x ~forKey ~inputFlags self = msg_send ~self ~cmd:(selector "createKeyEventForStringAction:forKey:inputFlags:") ~typ:(id @-> id @-> int @-> returning (id)) x forKey inputFlags -let createKeyEventForStringAction' x ~forKey ~touchInfo ~inputFlags self = msg_send ~self ~cmd:(selector "createKeyEventForStringAction:forKey:touchInfo:inputFlags:") ~typ:(id @-> id @-> id @-> int @-> returning (id)) x forKey touchInfo inputFlags -let currentHandBias self = msg_send ~self ~cmd:(selector "currentHandBias") ~typ:(returning (llong)) -let currentKeyplane self = msg_send ~self ~cmd:(selector "currentKeyplane") ~typ:(returning (id)) -let currentKeyplaneView self = msg_send ~self ~cmd:(selector "currentKeyplaneView") ~typ:(returning (id)) -let currentRepresentedStringForDualDisplayKey x self = msg_send ~self ~cmd:(selector "currentRepresentedStringForDualDisplayKey:") ~typ:(id @-> returning (id)) x -let deactivateActiveKey self = msg_send ~self ~cmd:(selector "deactivateActiveKey") ~typ:(returning (void)) -let deactivateActiveKeys self = msg_send ~self ~cmd:(selector "deactivateActiveKeys") ~typ:(returning (void)) -let deactivateActiveKeysClearingTouchInfo x ~clearingDimming self = msg_send ~self ~cmd:(selector "deactivateActiveKeysClearingTouchInfo:clearingDimming:") ~typ:(bool @-> bool @-> returning (void)) x clearingDimming -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultKeyplaneForKeyplane x self = msg_send ~self ~cmd:(selector "defaultKeyplaneForKeyplane:") ~typ:(id @-> returning (id)) x -let defaultNameForKeyplaneName x self = msg_send ~self ~cmd:(selector "defaultNameForKeyplaneName:") ~typ:(id @-> returning (id)) x -let defaultSelectedVariantIndexForKey x ~withActions self = msg_send ~self ~cmd:(selector "defaultSelectedVariantIndexForKey:withActions:") ~typ:(id @-> ullong @-> returning (llong)) x (ULLong.of_int withActions) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let deleteHandwritingStrokesAtIndexes x self = msg_send ~self ~cmd:(selector "deleteHandwritingStrokesAtIndexes:") ~typ:(id @-> returning (void)) x -let diacriticForwardCompose self = msg_send ~self ~cmd:(selector "diacriticForwardCompose") ~typ:(returning (bool)) -let didBeginContinuousPath self = msg_send ~self ~cmd:(selector "didBeginContinuousPath") ~typ:(returning (void)) -let didClearInput self = msg_send ~self ~cmd:(selector "didClearInput") ~typ:(returning (void)) -let didDetectPinchWithSeparation x self = msg_send ~self ~cmd:(selector "didDetectPinchWithSeparation:") ~typ:(double @-> returning (void)) x -let didEndIndirectSelectionGesture self = msg_send ~self ~cmd:(selector "didEndIndirectSelectionGesture") ~typ:(returning (void)) -let didEndIndirectSelectionGesture' x self = msg_send ~self ~cmd:(selector "didEndIndirectSelectionGesture:") ~typ:(bool @-> returning (void)) x -let didLongPress self = msg_send ~self ~cmd:(selector "didLongPress") ~typ:(returning (bool)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let didRotate self = msg_send ~self ~cmd:(selector "didRotate") ~typ:(returning (void)) -let didTriggerDestructiveRenderConfigChange self = msg_send ~self ~cmd:(selector "didTriggerDestructiveRenderConfigChange") ~typ:(returning (void)) -let dismissGestureKeyboardIntroduction self = msg_send ~self ~cmd:(selector "dismissGestureKeyboardIntroduction") ~typ:(returning (void)) -let displayTypeHintForMoreKey self = msg_send ~self ~cmd:(selector "displayTypeHintForMoreKey") ~typ:(returning (int)) -let displayTypeHintForShiftKey self = msg_send ~self ~cmd:(selector "displayTypeHintForShiftKey") ~typ:(returning (int)) -let divideKeysIntoLeft x ~right self = msg_send ~self ~cmd:(selector "divideKeysIntoLeft:right:") ~typ:(id @-> id @-> returning (void)) x right -let downActionFlagsForKey x self = msg_send ~self ~cmd:(selector "downActionFlagsForKey:") ~typ:(id @-> returning (ullong)) x -let downActionShiftWithKey x self = msg_send ~self ~cmd:(selector "downActionShiftWithKey:") ~typ:(id @-> returning (void)) x -let dragGestureRectInView x self = msg_send_stret ~self ~cmd:(selector "dragGestureRectInView:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let emojiKeyManager self = msg_send ~self ~cmd:(selector "emojiKeyManager") ~typ:(returning (id)) -let endMultitapForKey x self = msg_send ~self ~cmd:(selector "endMultitapForKey:") ~typ:(id @-> returning (void)) x -let fadeWithInvocation x self = msg_send ~self ~cmd:(selector "fadeWithInvocation:") ~typ:(id @-> returning (void)) x -let finishContinuousPathView x self = msg_send ~self ~cmd:(selector "finishContinuousPathView:") ~typ:(bool @-> returning (void)) x -let finishSliderBehaviorFeedback self = msg_send ~self ~cmd:(selector "finishSliderBehaviorFeedback") ~typ:(returning (void)) -let finishSplitTransition self = msg_send ~self ~cmd:(selector "finishSplitTransition") ~typ:(returning (void)) -let finishSplitTransitionWithCompletion x self = msg_send ~self ~cmd:(selector "finishSplitTransitionWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let finishSplitTransitionWithProgress x self = msg_send ~self ~cmd:(selector "finishSplitTransitionWithProgress:") ~typ:(double @-> returning (void)) x -let finishSplitWithCompletion x self = msg_send ~self ~cmd:(selector "finishSplitWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let flickPopupStringForKey x ~withString self = msg_send ~self ~cmd:(selector "flickPopupStringForKey:withString:") ~typ:(id @-> id @-> returning (id)) x withString -let flickStringForInputKey x ~direction self = msg_send ~self ~cmd:(selector "flickStringForInputKey:direction:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int direction) -let flushKeyCache x self = msg_send ~self ~cmd:(selector "flushKeyCache:") ~typ:(id @-> returning (void)) x -let frameForKeyWithRepresentedString x self = msg_send_stret ~self ~cmd:(selector "frameForKeyWithRepresentedString:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let frameForKeylayoutName x self = msg_send_stret ~self ~cmd:(selector "frameForKeylayoutName:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let frameForKeylayoutName' x ~onKeyplaneName self = msg_send_stret ~self ~cmd:(selector "frameForKeylayoutName:onKeyplaneName:") ~typ:(id @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x onKeyplaneName -let frameForLastKeyWithRepresentedString x self = msg_send_stret ~self ~cmd:(selector "frameForLastKeyWithRepresentedString:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let generateInfoForTouch x self = msg_send ~self ~cmd:(selector "generateInfoForTouch:") ~typ:(id @-> returning (id)) x -let gestureRecognizer x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning (bool)) x shouldReceiveTouch -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let getCenterForKeyUnderLeftIndexFinger self = msg_send_stret ~self ~cmd:(selector "getCenterForKeyUnderLeftIndexFinger") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let getCenterForKeyUnderRightIndexFinger self = msg_send_stret ~self ~cmd:(selector "getCenterForKeyUnderRightIndexFinger") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let getHandRestRecognizerState self = msg_send ~self ~cmd:(selector "getHandRestRecognizerState") ~typ:(returning (bool)) -let getHorizontalOffsetFromHomeRowForRowRelativeToHomeRow x self = msg_send ~self ~cmd:(selector "getHorizontalOffsetFromHomeRowForRowRelativeToHomeRow:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let getSortedKeysForDisplayRowHint x self = msg_send ~self ~cmd:(selector "getSortedKeysForDisplayRowHint:") ~typ:(int @-> returning (id)) x -let globeKeyDisplaysAsEmojiKey self = msg_send ~self ~cmd:(selector "globeKeyDisplaysAsEmojiKey") ~typ:(returning (bool)) -let handRestRecognizerGetHomeRowHint self = msg_send ~self ~cmd:(selector "handRestRecognizerGetHomeRowHint") ~typ:(returning (id)) -let handRestRecognizerNotifyRestForBegin x ~location ~timestamp ~pathIndex ~touchUUID ~context self = msg_send ~self ~cmd:(selector "handRestRecognizerNotifyRestForBegin:location:timestamp:pathIndex:touchUUID:context:") ~typ:(bool @-> CGPoint.t @-> double @-> int @-> id @-> id @-> returning (void)) x location timestamp pathIndex touchUUID context -let handRestRecognizerShouldNeverIgnoreTouchState x ~fromPoint ~toPoint ~forRestingState ~otherRestedTouchLocations self = msg_send ~self ~cmd:(selector "handRestRecognizerShouldNeverIgnoreTouchState:fromPoint:toPoint:forRestingState:otherRestedTouchLocations:") ~typ:(id @-> CGPoint.t @-> CGPoint.t @-> ullong @-> id @-> returning (bool)) x fromPoint toPoint (ULLong.of_int forRestingState) otherRestedTouchLocations +let accessibilitySensitivityChanged self = msg_send ~self ~cmd:(selector "accessibilitySensitivityChanged") ~typ:(returning void) +let activationIndicatorView self = msg_send ~self ~cmd:(selector "activationIndicatorView") ~typ:(returning id) +let activeKey self = msg_send ~self ~cmd:(selector "activeKey") ~typ:(returning id) +let activeMultitapCompleteKey self = msg_send ~self ~cmd:(selector "activeMultitapCompleteKey") ~typ:(returning id) +let activeTouchInfoForShift self = msg_send ~self ~cmd:(selector "activeTouchInfoForShift") ~typ:(returning id) +let addContinuousPathPoint x ~withTimestamp self = msg_send ~self ~cmd:(selector "addContinuousPathPoint:withTimestamp:") ~typ:(CGPoint.t @-> double @-> returning void) x withTimestamp +let allKeyplanesHaveSameHeight self = msg_send ~self ~cmd:(selector "allKeyplanesHaveSameHeight") ~typ:(returning bool) +let annotateKeysWithDeveloperPunctuation self = msg_send ~self ~cmd:(selector "annotateKeysWithDeveloperPunctuation") ~typ:(returning void) +let annotateWriteboardDisplayTypeHintForKeyIfNeeded self = msg_send ~self ~cmd:(selector "annotateWriteboardDisplayTypeHintForKeyIfNeeded") ~typ:(returning void) +let applyError x ~toKey self = msg_send ~self ~cmd:(selector "applyError:toKey:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x toKey +let autoShift self = msg_send ~self ~cmd:(selector "autoShift") ~typ:(returning bool) +let baseKeyForString x self = msg_send ~self ~cmd:(selector "baseKeyForString:") ~typ:(id @-> returning id) x +let biasedKeyboardWidthRatio self = msg_send ~self ~cmd:(selector "biasedKeyboardWidthRatio") ~typ:(returning double) +let blinkAssertion self = msg_send ~self ~cmd:(selector "blinkAssertion") ~typ:(returning id) +let cacheIdentifierForKeyplaneNamed x self = msg_send ~self ~cmd:(selector "cacheIdentifierForKeyplaneNamed:") ~typ:(id @-> returning id) x +let cacheTokenForKeyplane x ~caseAlternates self = msg_send ~self ~cmd:(selector "cacheTokenForKeyplane:caseAlternates:") ~typ:(id @-> bool @-> returning id) x caseAlternates +let cachedCompositeImageWithCacheKey x self = msg_send ~self ~cmd:(selector "cachedCompositeImageWithCacheKey:") ~typ:(id @-> returning (ptr CGImage.t)) x +let calculateReachabilityScoreWithKey x ~keyError self = msg_send ~self ~cmd:(selector "calculateReachabilityScoreWithKey:keyError:") ~typ:(id @-> CGPoint.t @-> returning void) x keyError +let canAddRomanSwitchKey self = msg_send ~self ~cmd:(selector "canAddRomanSwitchKey") ~typ:(returning bool) +let canForceTouchUUIDCommit x ~inWindow self = msg_send ~self ~cmd:(selector "canForceTouchUUIDCommit:inWindow:") ~typ:(id @-> id @-> returning bool) x inWindow +let canMultitap self = msg_send ~self ~cmd:(selector "canMultitap") ~typ:(returning bool) +let canProduceString x self = msg_send ~self ~cmd:(selector "canProduceString:") ~typ:(id @-> returning bool) x +let canReuseKeyplaneView self = msg_send ~self ~cmd:(selector "canReuseKeyplaneView") ~typ:(returning bool) +let cancelDelayedCentroidUpdate self = msg_send ~self ~cmd:(selector "cancelDelayedCentroidUpdate") ~typ:(returning void) +let cancelMultitapTimer self = msg_send ~self ~cmd:(selector "cancelMultitapTimer") ~typ:(returning void) +let cancelTouchIfNecessaryForInfo x ~forResting self = msg_send ~self ~cmd:(selector "cancelTouchIfNecessaryForInfo:forResting:") ~typ:(id @-> bool @-> returning void) x forResting +let cancelTouchesForTwoFingerTapGesture x self = msg_send ~self ~cmd:(selector "cancelTouchesForTwoFingerTapGesture:") ~typ:(id @-> returning void) x +let candidateList self = msg_send ~self ~cmd:(selector "candidateList") ~typ:(returning id) +let changeToKeyplane x self = msg_send ~self ~cmd:(selector "changeToKeyplane:") ~typ:(id @-> returning void) x +let cleanupPreviousKeyboardWithNewInputTraits x self = msg_send ~self ~cmd:(selector "cleanupPreviousKeyboardWithNewInputTraits:") ~typ:(id @-> returning void) x +let clearAllTouchInfo self = msg_send ~self ~cmd:(selector "clearAllTouchInfo") ~typ:(returning void) +let clearContinuousPathView self = msg_send ~self ~cmd:(selector "clearContinuousPathView") ~typ:(returning void) +let clearHandwritingStrokesIfNeededAndNotify x self = msg_send ~self ~cmd:(selector "clearHandwritingStrokesIfNeededAndNotify:") ~typ:(bool @-> returning void) x +let clearInfoForTouch x self = msg_send ~self ~cmd:(selector "clearInfoForTouch:") ~typ:(id @-> returning void) x +let clearInfoForTouch' x ~forResting self = msg_send ~self ~cmd:(selector "clearInfoForTouch:forResting:") ~typ:(id @-> bool @-> returning void) x forResting +let clearKeyAnnotationsIfNecessary self = msg_send ~self ~cmd:(selector "clearKeyAnnotationsIfNecessary") ~typ:(returning void) +let clearTransientState self = msg_send ~self ~cmd:(selector "clearTransientState") ~typ:(returning void) +let clearUnusedObjects x self = msg_send ~self ~cmd:(selector "clearUnusedObjects:") ~typ:(bool @-> returning void) x +let completeCommitTouchesPrecedingTouchDownWithKey x ~withActions ~executionContext self = msg_send ~self ~cmd:(selector "completeCommitTouchesPrecedingTouchDownWithKey:withActions:executionContext:") ~typ:(id @-> ullong @-> id @-> returning void) x (ULLong.of_int withActions) executionContext +let completeDeleteActionForTouchDownWithActions x ~executionContext self = msg_send ~self ~cmd:(selector "completeDeleteActionForTouchDownWithActions:executionContext:") ~typ:(ullong @-> id @-> returning void) (ULLong.of_int x) executionContext +let completeHitTestForTouchDown x ~executionContext self = msg_send ~self ~cmd:(selector "completeHitTestForTouchDown:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let completeHitTestForTouchDragged x ~hitKey self = msg_send ~self ~cmd:(selector "completeHitTestForTouchDragged:hitKey:") ~typ:(id @-> id @-> returning void) x hitKey +let completeRetestForTouchUp x ~timestamp ~interval ~executionContext self = msg_send ~self ~cmd:(selector "completeRetestForTouchUp:timestamp:interval:executionContext:") ~typ:(id @-> double @-> double @-> id @-> returning void) x timestamp interval executionContext +let completeSendStringActionForTouchDownWithKey x ~withActions ~executionContext self = msg_send ~self ~cmd:(selector "completeSendStringActionForTouchDownWithKey:withActions:executionContext:") ~typ:(id @-> ullong @-> id @-> returning void) x (ULLong.of_int withActions) executionContext +let completeSendStringActionForTouchUp x ~withActions ~timestamp ~interval ~didLongPress ~prevActions ~executionContext self = msg_send ~self ~cmd:(selector "completeSendStringActionForTouchUp:withActions:timestamp:interval:didLongPress:prevActions:executionContext:") ~typ:(id @-> ullong @-> double @-> double @-> bool @-> ullong @-> id @-> returning void) x (ULLong.of_int withActions) timestamp interval didLongPress (ULLong.of_int prevActions) executionContext +let continueFromInternationalActionForTouchUp x ~withActions ~timestamp ~interval ~didLongPress ~prevActions ~executionContext self = msg_send ~self ~cmd:(selector "continueFromInternationalActionForTouchUp:withActions:timestamp:interval:didLongPress:prevActions:executionContext:") ~typ:(id @-> ullong @-> double @-> double @-> bool @-> ullong @-> id @-> returning void) x (ULLong.of_int withActions) timestamp interval didLongPress (ULLong.of_int prevActions) executionContext +let createKeyEventForStringAction x ~forKey ~inputFlags self = msg_send ~self ~cmd:(selector "createKeyEventForStringAction:forKey:inputFlags:") ~typ:(id @-> id @-> int @-> returning id) x forKey inputFlags +let createKeyEventForStringAction' x ~forKey ~touchInfo ~inputFlags self = msg_send ~self ~cmd:(selector "createKeyEventForStringAction:forKey:touchInfo:inputFlags:") ~typ:(id @-> id @-> id @-> int @-> returning id) x forKey touchInfo inputFlags +let currentHandBias self = msg_send ~self ~cmd:(selector "currentHandBias") ~typ:(returning llong) +let currentKeyplane self = msg_send ~self ~cmd:(selector "currentKeyplane") ~typ:(returning id) +let currentKeyplaneView self = msg_send ~self ~cmd:(selector "currentKeyplaneView") ~typ:(returning id) +let currentRepresentedStringForDualDisplayKey x self = msg_send ~self ~cmd:(selector "currentRepresentedStringForDualDisplayKey:") ~typ:(id @-> returning id) x +let deactivateActiveKey self = msg_send ~self ~cmd:(selector "deactivateActiveKey") ~typ:(returning void) +let deactivateActiveKeys self = msg_send ~self ~cmd:(selector "deactivateActiveKeys") ~typ:(returning void) +let deactivateActiveKeysClearingTouchInfo x ~clearingDimming self = msg_send ~self ~cmd:(selector "deactivateActiveKeysClearingTouchInfo:clearingDimming:") ~typ:(bool @-> bool @-> returning void) x clearingDimming +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultKeyplaneForKeyplane x self = msg_send ~self ~cmd:(selector "defaultKeyplaneForKeyplane:") ~typ:(id @-> returning id) x +let defaultNameForKeyplaneName x self = msg_send ~self ~cmd:(selector "defaultNameForKeyplaneName:") ~typ:(id @-> returning id) x +let defaultSelectedVariantIndexForKey x ~withActions self = msg_send ~self ~cmd:(selector "defaultSelectedVariantIndexForKey:withActions:") ~typ:(id @-> ullong @-> returning llong) x (ULLong.of_int withActions) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let deleteHandwritingStrokesAtIndexes x self = msg_send ~self ~cmd:(selector "deleteHandwritingStrokesAtIndexes:") ~typ:(id @-> returning void) x +let diacriticForwardCompose self = msg_send ~self ~cmd:(selector "diacriticForwardCompose") ~typ:(returning bool) +let didBeginContinuousPath self = msg_send ~self ~cmd:(selector "didBeginContinuousPath") ~typ:(returning void) +let didClearInput self = msg_send ~self ~cmd:(selector "didClearInput") ~typ:(returning void) +let didDetectPinchWithSeparation x self = msg_send ~self ~cmd:(selector "didDetectPinchWithSeparation:") ~typ:(double @-> returning void) x +let didEndIndirectSelectionGesture self = msg_send ~self ~cmd:(selector "didEndIndirectSelectionGesture") ~typ:(returning void) +let didEndIndirectSelectionGesture' x self = msg_send ~self ~cmd:(selector "didEndIndirectSelectionGesture:") ~typ:(bool @-> returning void) x +let didLongPress self = msg_send ~self ~cmd:(selector "didLongPress") ~typ:(returning bool) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let didRotate self = msg_send ~self ~cmd:(selector "didRotate") ~typ:(returning void) +let didTriggerDestructiveRenderConfigChange self = msg_send ~self ~cmd:(selector "didTriggerDestructiveRenderConfigChange") ~typ:(returning void) +let dismissGestureKeyboardIntroduction self = msg_send ~self ~cmd:(selector "dismissGestureKeyboardIntroduction") ~typ:(returning void) +let displayTypeHintForMoreKey self = msg_send ~self ~cmd:(selector "displayTypeHintForMoreKey") ~typ:(returning int) +let displayTypeHintForShiftKey self = msg_send ~self ~cmd:(selector "displayTypeHintForShiftKey") ~typ:(returning int) +let divideKeysIntoLeft x ~right self = msg_send ~self ~cmd:(selector "divideKeysIntoLeft:right:") ~typ:(id @-> id @-> returning void) x right +let downActionFlagsForKey x self = msg_send ~self ~cmd:(selector "downActionFlagsForKey:") ~typ:(id @-> returning ullong) x +let downActionShiftWithKey x self = msg_send ~self ~cmd:(selector "downActionShiftWithKey:") ~typ:(id @-> returning void) x +let dragGestureRectInView x self = msg_send ~self ~cmd:(selector "dragGestureRectInView:") ~typ:(id @-> returning CGRect.t) x +let emojiKeyManager self = msg_send ~self ~cmd:(selector "emojiKeyManager") ~typ:(returning id) +let endMultitapForKey x self = msg_send ~self ~cmd:(selector "endMultitapForKey:") ~typ:(id @-> returning void) x +let fadeWithInvocation x self = msg_send ~self ~cmd:(selector "fadeWithInvocation:") ~typ:(id @-> returning void) x +let finishContinuousPathView x self = msg_send ~self ~cmd:(selector "finishContinuousPathView:") ~typ:(bool @-> returning void) x +let finishSliderBehaviorFeedback self = msg_send ~self ~cmd:(selector "finishSliderBehaviorFeedback") ~typ:(returning void) +let finishSplitTransition self = msg_send ~self ~cmd:(selector "finishSplitTransition") ~typ:(returning void) +let finishSplitTransitionWithCompletion x self = msg_send ~self ~cmd:(selector "finishSplitTransitionWithCompletion:") ~typ:((ptr void) @-> returning void) x +let finishSplitTransitionWithProgress x self = msg_send ~self ~cmd:(selector "finishSplitTransitionWithProgress:") ~typ:(double @-> returning void) x +let finishSplitWithCompletion x self = msg_send ~self ~cmd:(selector "finishSplitWithCompletion:") ~typ:((ptr void) @-> returning void) x +let flickPopupStringForKey x ~withString self = msg_send ~self ~cmd:(selector "flickPopupStringForKey:withString:") ~typ:(id @-> id @-> returning id) x withString +let flickStringForInputKey x ~direction self = msg_send ~self ~cmd:(selector "flickStringForInputKey:direction:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int direction) +let flushKeyCache x self = msg_send ~self ~cmd:(selector "flushKeyCache:") ~typ:(id @-> returning void) x +let frameForKeyWithRepresentedString x self = msg_send ~self ~cmd:(selector "frameForKeyWithRepresentedString:") ~typ:(id @-> returning CGRect.t) x +let frameForKeylayoutName x self = msg_send ~self ~cmd:(selector "frameForKeylayoutName:") ~typ:(id @-> returning CGRect.t) x +let frameForKeylayoutName' x ~onKeyplaneName self = msg_send ~self ~cmd:(selector "frameForKeylayoutName:onKeyplaneName:") ~typ:(id @-> id @-> returning CGRect.t) x onKeyplaneName +let frameForLastKeyWithRepresentedString x self = msg_send ~self ~cmd:(selector "frameForLastKeyWithRepresentedString:") ~typ:(id @-> returning CGRect.t) x +let generateInfoForTouch x self = msg_send ~self ~cmd:(selector "generateInfoForTouch:") ~typ:(id @-> returning id) x +let gestureRecognizer x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning bool) x shouldReceiveTouch +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let getCenterForKeyUnderLeftIndexFinger self = msg_send ~self ~cmd:(selector "getCenterForKeyUnderLeftIndexFinger") ~typ:(returning CGPoint.t) +let getCenterForKeyUnderRightIndexFinger self = msg_send ~self ~cmd:(selector "getCenterForKeyUnderRightIndexFinger") ~typ:(returning CGPoint.t) +let getHandRestRecognizerState self = msg_send ~self ~cmd:(selector "getHandRestRecognizerState") ~typ:(returning uchar) +let getHorizontalOffsetFromHomeRowForRowRelativeToHomeRow x self = msg_send ~self ~cmd:(selector "getHorizontalOffsetFromHomeRowForRowRelativeToHomeRow:") ~typ:(llong @-> returning id) (LLong.of_int x) +let getSortedKeysForDisplayRowHint x self = msg_send ~self ~cmd:(selector "getSortedKeysForDisplayRowHint:") ~typ:(int @-> returning id) x +let globeKeyDisplaysAsEmojiKey self = msg_send ~self ~cmd:(selector "globeKeyDisplaysAsEmojiKey") ~typ:(returning bool) +let handRestRecognizerGetHomeRowHint self = msg_send ~self ~cmd:(selector "handRestRecognizerGetHomeRowHint") ~typ:(returning id) +let handRestRecognizerNotifyRestForBegin x ~location ~timestamp ~pathIndex ~touchUUID ~context self = msg_send ~self ~cmd:(selector "handRestRecognizerNotifyRestForBegin:location:timestamp:pathIndex:touchUUID:context:") ~typ:(bool @-> CGPoint.t @-> double @-> int @-> id @-> id @-> returning void) x location timestamp pathIndex touchUUID context +let handRestRecognizerShouldNeverIgnoreTouchState x ~fromPoint ~toPoint ~forRestingState ~otherRestedTouchLocations self = msg_send ~self ~cmd:(selector "handRestRecognizerShouldNeverIgnoreTouchState:fromPoint:toPoint:forRestingState:otherRestedTouchLocations:") ~typ:(id @-> CGPoint.t @-> CGPoint.t @-> ullong @-> id @-> returning bool) x fromPoint toPoint (ULLong.of_int forRestingState) otherRestedTouchLocations let handRestRecognizerSilenceNextTouchDown self = msg_send ~self ~cmd:(selector "handRestRecognizerSilenceNextTouchDown") ~typ:(returning (ptr void)) -let handRestRecognizerStandardKeyPixelSize self = msg_send_stret ~self ~cmd:(selector "handRestRecognizerStandardKeyPixelSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let handleDelayedCentroidUpdate self = msg_send ~self ~cmd:(selector "handleDelayedCentroidUpdate") ~typ:(returning (void)) -let handleDismissFlickView self = msg_send ~self ~cmd:(selector "handleDismissFlickView") ~typ:(returning (void)) -let handleDismissFlickView' x self = msg_send ~self ~cmd:(selector "handleDismissFlickView:") ~typ:(id @-> returning (void)) x -let handleFlick x self = msg_send ~self ~cmd:(selector "handleFlick:") ~typ:(id @-> returning (bool)) x -let handleKeyboardMenusForTouch x self = msg_send ~self ~cmd:(selector "handleKeyboardMenusForTouch:") ~typ:(id @-> returning (void)) x -let handleMultitapTimerFired self = msg_send ~self ~cmd:(selector "handleMultitapTimerFired") ~typ:(returning (void)) -let handlePopupView self = msg_send ~self ~cmd:(selector "handlePopupView") ~typ:(returning (void)) -let handlePopupView' x self = msg_send ~self ~cmd:(selector "handlePopupView:") ~typ:(id @-> returning (void)) x -let handlerForNotification x self = msg_send ~self ~cmd:(selector "handlerForNotification:") ~typ:(id @-> returning (_SEL)) x -let hasAccentKey self = msg_send ~self ~cmd:(selector "hasAccentKey") ~typ:(returning (bool)) -let hasActiveContinuousPathInput self = msg_send ~self ~cmd:(selector "hasActiveContinuousPathInput") ~typ:(returning (bool)) -let hasActiveKeys self = msg_send ~self ~cmd:(selector "hasActiveKeys") ~typ:(returning (bool)) -let hasCandidateKeys self = msg_send ~self ~cmd:(selector "hasCandidateKeys") ~typ:(returning (bool)) -let highlightedVariantListForStylingKey x self = msg_send ~self ~cmd:(selector "highlightedVariantListForStylingKey:") ~typ:(id @-> returning (id)) x -let hitBuffer self = msg_send ~self ~cmd:(selector "hitBuffer") ~typ:(returning (double)) -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let hostViewForResizingKeyplane x self = msg_send ~self ~cmd:(selector "hostViewForResizingKeyplane:") ~typ:(id @-> returning (id)) x -let ignoreWriteboard self = msg_send ~self ~cmd:(selector "ignoreWriteboard") ~typ:(returning (bool)) -let ignoresShiftState self = msg_send ~self ~cmd:(selector "ignoresShiftState") ~typ:(returning (bool)) -let incrementPunctuationIfNeeded x self = msg_send ~self ~cmd:(selector "incrementPunctuationIfNeeded:") ~typ:(id @-> returning (void)) x -let infoForTouch x self = msg_send ~self ~cmd:(selector "infoForTouch:") ~typ:(id @-> returning (id)) x -let infoForTouchUUID x self = msg_send ~self ~cmd:(selector "infoForTouchUUID:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initialKeyplaneNameWithKBStarName x self = msg_send ~self ~cmd:(selector "initialKeyplaneNameWithKBStarName:") ~typ:(id @-> returning (id)) x -let inputModeToMergeCapsLockKey self = msg_send ~self ~cmd:(selector "inputModeToMergeCapsLockKey") ~typ:(returning (id)) -let installGestureRecognizers self = msg_send ~self ~cmd:(selector "installGestureRecognizers") ~typ:(returning (void)) -let internationalKeyDisplayStringOnEmojiKeyboard self = msg_send ~self ~cmd:(selector "internationalKeyDisplayStringOnEmojiKeyboard") ~typ:(returning (id)) -let is10KeyRendering self = msg_send ~self ~cmd:(selector "is10KeyRendering") ~typ:(returning (bool)) -let isAlphabeticPlane self = msg_send ~self ~cmd:(selector "isAlphabeticPlane") ~typ:(returning (bool)) -let isDeadkeyInput x self = msg_send ~self ~cmd:(selector "isDeadkeyInput:") ~typ:(id @-> returning (bool)) x -let isDeveloperGestureKeybaord self = msg_send ~self ~cmd:(selector "isDeveloperGestureKeybaord") ~typ:(returning (bool)) -let isEmojiKeyplane self = msg_send ~self ~cmd:(selector "isEmojiKeyplane") ~typ:(returning (bool)) -let isGeometricShiftOrMoreKeyForTouch x self = msg_send ~self ~cmd:(selector "isGeometricShiftOrMoreKeyForTouch:") ~typ:(id @-> returning (bool)) x -let isHandwritingPlane self = msg_send ~self ~cmd:(selector "isHandwritingPlane") ~typ:(returning (bool)) -let isKanaPlane self = msg_send ~self ~cmd:(selector "isKanaPlane") ~typ:(returning (bool)) -let isKeyScriptSwitchKey x self = msg_send ~self ~cmd:(selector "isKeyScriptSwitchKey:") ~typ:(id @-> returning (bool)) x -let isLongPressedKey x self = msg_send ~self ~cmd:(selector "isLongPressedKey:") ~typ:(id @-> returning (bool)) x -let isMultitapKey x self = msg_send ~self ~cmd:(selector "isMultitapKey:") ~typ:(id @-> returning (bool)) x -let isResized self = msg_send ~self ~cmd:(selector "isResized") ~typ:(returning (bool)) -let isResizing self = msg_send ~self ~cmd:(selector "isResizing") ~typ:(returning (bool)) -let isRotating self = msg_send ~self ~cmd:(selector "isRotating") ~typ:(returning (bool)) -let isShiftKeyBeingHeld self = msg_send ~self ~cmd:(selector "isShiftKeyBeingHeld") ~typ:(returning (bool)) -let isShiftKeyPlaneChooser self = msg_send ~self ~cmd:(selector "isShiftKeyPlaneChooser") ~typ:(returning (bool)) -let isTrackpadMode self = msg_send ~self ~cmd:(selector "isTrackpadMode") ~typ:(returning (bool)) -let keyForKeyboardName x ~screenTraits self = msg_send ~self ~cmd:(selector "keyForKeyboardName:screenTraits:") ~typ:(id @-> id @-> returning (id)) x screenTraits -let keyHasAccentedVariants x self = msg_send ~self ~cmd:(selector "keyHasAccentedVariants:") ~typ:(id @-> returning (bool)) x -let keyHitTest x self = msg_send ~self ~cmd:(selector "keyHitTest:") ~typ:(CGPoint.t @-> returning (id)) x -let keyHitTestClosestToPoint x self = msg_send ~self ~cmd:(selector "keyHitTestClosestToPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let keyHitTestClosestToPoint' x ~inKeys self = msg_send ~self ~cmd:(selector "keyHitTestClosestToPoint:inKeys:") ~typ:(CGPoint.t @-> id @-> returning (id)) x inKeys -let keyHitTestContainingPoint x self = msg_send ~self ~cmd:(selector "keyHitTestContainingPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let keyHitTestWithoutCharging x self = msg_send ~self ~cmd:(selector "keyHitTestWithoutCharging:") ~typ:(CGPoint.t @-> returning (id)) x -let keyViewAnimator self = msg_send ~self ~cmd:(selector "keyViewAnimator") ~typ:(returning (id)) -let keyViewAnimatorClassForCurrentKeyboardLayout self = msg_send ~self ~cmd:(selector "keyViewAnimatorClassForCurrentKeyboardLayout") ~typ:(returning (_Class)) -let keyViewHitTestForPoint x self = msg_send ~self ~cmd:(selector "keyViewHitTestForPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let keyWithRepresentedString x self = msg_send ~self ~cmd:(selector "keyWithRepresentedString:") ~typ:(id @-> returning (id)) x -let keyboard self = msg_send ~self ~cmd:(selector "keyboard") ~typ:(returning (id)) -let keyboardName self = msg_send ~self ~cmd:(selector "keyboardName") ~typ:(returning (id)) -let keycodeForKey x self = msg_send ~self ~cmd:(selector "keycodeForKey:") ~typ:(id @-> returning (int)) x -let keylistContainingKey x self = msg_send ~self ~cmd:(selector "keylistContainingKey:") ~typ:(id @-> returning (id)) x -let keyplane self = msg_send ~self ~cmd:(selector "keyplane") ~typ:(returning (id)) -let keyplaneContainsDismissKey self = msg_send ~self ~cmd:(selector "keyplaneContainsDismissKey") ~typ:(returning (bool)) -let keyplaneContainsEmojiKey self = msg_send ~self ~cmd:(selector "keyplaneContainsEmojiKey") ~typ:(returning (bool)) -let keyplaneForKey x self = msg_send ~self ~cmd:(selector "keyplaneForKey:") ~typ:(id @-> returning (id)) x -let keyplaneName self = msg_send ~self ~cmd:(selector "keyplaneName") ~typ:(returning (id)) -let keyplaneNameForRevertAfterTouch self = msg_send ~self ~cmd:(selector "keyplaneNameForRevertAfterTouch") ~typ:(returning (id)) -let keyplaneNamed x self = msg_send ~self ~cmd:(selector "keyplaneNamed:") ~typ:(id @-> returning (id)) x -let keyplaneShiftState self = msg_send ~self ~cmd:(selector "keyplaneShiftState") ~typ:(returning (ullong)) -let keyplaneSupportsResizingGesture self = msg_send ~self ~cmd:(selector "keyplaneSupportsResizingGesture") ~typ:(returning (bool)) -let keyplaneUsesResizingOffset self = msg_send ~self ~cmd:(selector "keyplaneUsesResizingOffset") ~typ:(returning (bool)) -let keyplaneView x ~containingViewForActiveKey self = msg_send ~self ~cmd:(selector "keyplaneView:containingViewForActiveKey:") ~typ:(id @-> id @-> returning (id)) x containingViewForActiveKey -let lastTouchDownTimestamp self = msg_send ~self ~cmd:(selector "lastTouchDownTimestamp") ~typ:(returning (double)) -let lastTouchUpTimestamp self = msg_send ~self ~cmd:(selector "lastTouchUpTimestamp") ~typ:(returning (double)) -let lastTwoFingerTapTimestamp self = msg_send ~self ~cmd:(selector "lastTwoFingerTapTimestamp") ~typ:(returning (double)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let layoutTag self = msg_send ~self ~cmd:(selector "layoutTag") ~typ:(returning (id)) -let localizedInputKey self = msg_send ~self ~cmd:(selector "localizedInputKey") ~typ:(returning (id)) -let localizedInputMode self = msg_send ~self ~cmd:(selector "localizedInputMode") ~typ:(returning (id)) -let logHandwritingData self = msg_send ~self ~cmd:(selector "logHandwritingData") ~typ:(returning (void)) -let longPressAction self = msg_send ~self ~cmd:(selector "longPressAction") ~typ:(returning (void)) -let mergeKeysIfNeeded self = msg_send ~self ~cmd:(selector "mergeKeysIfNeeded") ~typ:(returning (void)) -let modalDisplayView self = msg_send ~self ~cmd:(selector "modalDisplayView") ~typ:(returning (id)) -let multitapCompleteKeys self = msg_send ~self ~cmd:(selector "multitapCompleteKeys") ~typ:(returning (id)) -let multitapExpired self = msg_send ~self ~cmd:(selector "multitapExpired") ~typ:(returning (void)) -let multitapForwardKeys self = msg_send ~self ~cmd:(selector "multitapForwardKeys") ~typ:(returning (id)) -let multitapInterrupted self = msg_send ~self ~cmd:(selector "multitapInterrupted") ~typ:(returning (void)) -let muteNextKeyClickSound self = msg_send ~self ~cmd:(selector "muteNextKeyClickSound") ~typ:(returning (bool)) -let nextToUseInputModeDidChange x self = msg_send ~self ~cmd:(selector "nextToUseInputModeDidChange:") ~typ:(id @-> returning (void)) x -let pathEffectView self = msg_send ~self ~cmd:(selector "pathEffectView") ~typ:(returning (id)) -let performHitTestForTouchInfo x ~touchStage ~executionContextPassingUIKBTree self = msg_send ~self ~cmd:(selector "performHitTestForTouchInfo:touchStage:executionContextPassingUIKBTree:") ~typ:(id @-> int @-> id @-> returning (void)) x touchStage executionContextPassingUIKBTree -let performReturnAction self = msg_send ~self ~cmd:(selector "performReturnAction") ~typ:(returning (bool)) -let performSpaceAction self = msg_send ~self ~cmd:(selector "performSpaceAction") ~typ:(returning (bool)) -let pinchCanBeginWithTouches x ~andScale self = msg_send ~self ~cmd:(selector "pinchCanBeginWithTouches:andScale:") ~typ:(id @-> double @-> returning (bool)) x andScale -let pinchDetected self = msg_send ~self ~cmd:(selector "pinchDetected") ~typ:(returning (bool)) -let pinchDidConsumeTouch x self = msg_send ~self ~cmd:(selector "pinchDidConsumeTouch:") ~typ:(id @-> returning (void)) x -let pinchHandler x self = msg_send ~self ~cmd:(selector "pinchHandler:") ~typ:(id @-> returning (void)) x -let pinchSplitGestureEnabled self = msg_send ~self ~cmd:(selector "pinchSplitGestureEnabled") ~typ:(returning (bool)) -let playKeyClickSoundForKey x self = msg_send ~self ~cmd:(selector "playKeyClickSoundForKey:") ~typ:(id @-> returning (void)) x -let playKeyClickSoundOn self = msg_send ~self ~cmd:(selector "playKeyClickSoundOn") ~typ:(returning (int)) -let playKeyClickSoundOnDownForKey x self = msg_send ~self ~cmd:(selector "playKeyClickSoundOnDownForKey:") ~typ:(id @-> returning (void)) x -let playKeyClickSoundOnUpForKey x self = msg_send ~self ~cmd:(selector "playKeyClickSoundOnUpForKey:") ~typ:(id @-> returning (void)) x -let playKeyReleaseSoundForKey x self = msg_send ~self ~cmd:(selector "playKeyReleaseSoundForKey:") ~typ:(id @-> returning (void)) x -let pointInside x ~forEvent self = msg_send ~self ~cmd:(selector "pointInside:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (bool)) x forEvent -let pointInside' x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let populateFlickPopupsForKey x self = msg_send ~self ~cmd:(selector "populateFlickPopupsForKey:") ~typ:(id @-> returning (void)) x -let popupKeyViews self = msg_send ~self ~cmd:(selector "popupKeyViews") ~typ:(returning (id)) -let preTouchKeyplaneName self = msg_send ~self ~cmd:(selector "preTouchKeyplaneName") ~typ:(returning (id)) -let prepareForFloatingTransition x self = msg_send ~self ~cmd:(selector "prepareForFloatingTransition:") ~typ:(bool @-> returning (void)) x -let prepareForSplitTransition self = msg_send ~self ~cmd:(selector "prepareForSplitTransition") ~typ:(returning (void)) -let prepareSliderBehaviorFeedback self = msg_send ~self ~cmd:(selector "prepareSliderBehaviorFeedback") ~typ:(returning (void)) -let presentModalDisplayForKey x self = msg_send ~self ~cmd:(selector "presentModalDisplayForKey:") ~typ:(id @-> returning (void)) x -let preventPaddlesForPointerTouches self = msg_send ~self ~cmd:(selector "preventPaddlesForPointerTouches") ~typ:(returning (bool)) -let provideSliderBehaviorFeedback self = msg_send ~self ~cmd:(selector "provideSliderBehaviorFeedback") ~typ:(returning (void)) -let rebuildSplitTransitionView self = msg_send ~self ~cmd:(selector "rebuildSplitTransitionView") ~typ:(returning (void)) -let refreshDualStringKeys self = msg_send ~self ~cmd:(selector "refreshDualStringKeys") ~typ:(returning (void)) -let refreshForDictationAvailablityDidChange self = msg_send ~self ~cmd:(selector "refreshForDictationAvailablityDidChange") ~typ:(returning (void)) -let refreshForRivenPreferences self = msg_send ~self ~cmd:(selector "refreshForRivenPreferences") ~typ:(returning (void)) -let refreshGhostKeyState self = msg_send ~self ~cmd:(selector "refreshGhostKeyState") ~typ:(returning (void)) -let relayoutForWriteboardKey self = msg_send ~self ~cmd:(selector "relayoutForWriteboardKey") ~typ:(returning (void)) -let reloadCurrentKeyplane self = msg_send ~self ~cmd:(selector "reloadCurrentKeyplane") ~typ:(returning (void)) -let reloadKeyboardWithInputTraits x ~screenTraits ~splitTraits self = msg_send ~self ~cmd:(selector "reloadKeyboardWithInputTraits:screenTraits:splitTraits:") ~typ:(id @-> id @-> id @-> returning (void)) x screenTraits splitTraits -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let removePathEffectViewConstraintsIfNeeded self = msg_send ~self ~cmd:(selector "removePathEffectViewConstraintsIfNeeded") ~typ:(returning (void)) -let renderConfig self = msg_send ~self ~cmd:(selector "renderConfig") ~typ:(returning (id)) -let renderedImageWithStateFallbacksForToken x self = msg_send ~self ~cmd:(selector "renderedImageWithStateFallbacksForToken:") ~typ:(id @-> returning (id)) x -let renderedImageWithToken x self = msg_send ~self ~cmd:(selector "renderedImageWithToken:") ~typ:(id @-> returning (id)) x -let renderedKeyplaneWithToken x ~split self = msg_send ~self ~cmd:(selector "renderedKeyplaneWithToken:split:") ~typ:(id @-> bool @-> returning (id)) x split -let resetHRRLayoutState self = msg_send ~self ~cmd:(selector "resetHRRLayoutState") ~typ:(returning (void)) -let resetPanAlternativesForEndedTouch x self = msg_send ~self ~cmd:(selector "resetPanAlternativesForEndedTouch:") ~typ:(id @-> returning (void)) x -let resizeKeyplaneAndRedraw x self = msg_send ~self ~cmd:(selector "resizeKeyplaneAndRedraw:") ~typ:(bool @-> returning (void)) x -let restoreDefaultsForAllKeys self = msg_send ~self ~cmd:(selector "restoreDefaultsForAllKeys") ~typ:(returning (void)) -let restoreDefaultsForKey x self = msg_send ~self ~cmd:(selector "restoreDefaultsForKey:") ~typ:(id @-> returning (void)) x -let setAction x ~forKey self = msg_send ~self ~cmd:(selector "setAction:forKey:") ~typ:(_SEL @-> id @-> returning (void)) x forKey -let setActiveKey x self = msg_send ~self ~cmd:(selector "setActiveKey:") ~typ:(id @-> returning (void)) x -let setAutoShift x self = msg_send ~self ~cmd:(selector "setAutoShift:") ~typ:(bool @-> returning (void)) x -let setAutoshift x self = msg_send ~self ~cmd:(selector "setAutoshift:") ~typ:(bool @-> returning (void)) x -let setBlinkAssertion x self = msg_send ~self ~cmd:(selector "setBlinkAssertion:") ~typ:(id @-> returning (void)) x -let setCurrencyKeysForCurrentLocaleOnKeyplane x self = msg_send ~self ~cmd:(selector "setCurrencyKeysForCurrentLocaleOnKeyplane:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDidLongPress x self = msg_send ~self ~cmd:(selector "setDidLongPress:") ~typ:(bool @-> returning (void)) x -let setDisableInteraction x self = msg_send ~self ~cmd:(selector "setDisableInteraction:") ~typ:(bool @-> returning (void)) x -let setHideKeysUnderIndicator x self = msg_send ~self ~cmd:(selector "setHideKeysUnderIndicator:") ~typ:(bool @-> returning (void)) x -let setKeyForTouchInfo x ~key self = msg_send ~self ~cmd:(selector "setKeyForTouchInfo:key:") ~typ:(id @-> id @-> returning (void)) x key -let setKeyboardAppearance x self = msg_send ~self ~cmd:(selector "setKeyboardAppearance:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setKeyboardBias x self = msg_send ~self ~cmd:(selector "setKeyboardBias:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setKeyboardDim x self = msg_send ~self ~cmd:(selector "setKeyboardDim:") ~typ:(bool @-> returning (void)) x -let setKeyboardDim' x ~amount ~withDuration self = msg_send ~self ~cmd:(selector "setKeyboardDim:amount:withDuration:") ~typ:(bool @-> double @-> double @-> returning (void)) x amount withDuration -let setKeyboardName x self = msg_send ~self ~cmd:(selector "setKeyboardName:") ~typ:(id @-> returning (void)) x -let setKeyboardName' x ~appearance self = msg_send ~self ~cmd:(selector "setKeyboardName:appearance:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int appearance) -let setKeyplaneName x self = msg_send ~self ~cmd:(selector "setKeyplaneName:") ~typ:(id @-> returning (void)) x -let setLabel x ~forKey self = msg_send ~self ~cmd:(selector "setLabel:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let setLastTwoFingerTapTimestamp x self = msg_send ~self ~cmd:(selector "setLastTwoFingerTapTimestamp:") ~typ:(double @-> returning (void)) x -let setLayoutTag x self = msg_send ~self ~cmd:(selector "setLayoutTag:") ~typ:(id @-> returning (void)) x -let setLocalizedInputKey x self = msg_send ~self ~cmd:(selector "setLocalizedInputKey:") ~typ:(id @-> returning (void)) x -let setLongPressAction x ~forKey self = msg_send ~self ~cmd:(selector "setLongPressAction:forKey:") ~typ:(_SEL @-> id @-> returning (void)) x forKey -let setModalDisplayView x self = msg_send ~self ~cmd:(selector "setModalDisplayView:") ~typ:(id @-> returning (void)) x -let setMultitapReverseKeyState self = msg_send ~self ~cmd:(selector "setMultitapReverseKeyState") ~typ:(returning (void)) -let setMuteNextKeyClickSound x self = msg_send ~self ~cmd:(selector "setMuteNextKeyClickSound:") ~typ:(bool @-> returning (void)) x -let setNeedsVirtualDriftUpdate self = msg_send ~self ~cmd:(selector "setNeedsVirtualDriftUpdate") ~typ:(returning (void)) -let setPasscodeOutlineAlpha x self = msg_send ~self ~cmd:(selector "setPasscodeOutlineAlpha:") ~typ:(double @-> returning (void)) x -let setPathEffectView x self = msg_send ~self ~cmd:(selector "setPathEffectView:") ~typ:(id @-> returning (void)) x -let setPercentSignKeysForCurrentLocaleOnKeyplane x self = msg_send ~self ~cmd:(selector "setPercentSignKeysForCurrentLocaleOnKeyplane:") ~typ:(id @-> returning (void)) x -let setPlayKeyClickSoundOn x self = msg_send ~self ~cmd:(selector "setPlayKeyClickSoundOn:") ~typ:(int @-> returning (void)) x -let setPreTouchKeyplaneName x self = msg_send ~self ~cmd:(selector "setPreTouchKeyplaneName:") ~typ:(id @-> returning (void)) x -let setPreferredHeight x self = msg_send ~self ~cmd:(selector "setPreferredHeight:") ~typ:(double @-> returning (void)) x -let setPreventPaddlesForPointerTouches x self = msg_send ~self ~cmd:(selector "setPreventPaddlesForPointerTouches:") ~typ:(bool @-> returning (void)) x -let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning (void)) x -let setRenderConfig' x ~updateKeyplane self = msg_send ~self ~cmd:(selector "setRenderConfig:updateKeyplane:") ~typ:(id @-> bool @-> returning (void)) x updateKeyplane -let setReturnKeyEnabled x ~withDisplayName ~withType self = msg_send ~self ~cmd:(selector "setReturnKeyEnabled:withDisplayName:withType:") ~typ:(bool @-> id @-> int @-> returning (void)) x withDisplayName withType -let setShift x self = msg_send ~self ~cmd:(selector "setShift:") ~typ:(bool @-> returning (void)) x -let setSlideBehaviour x self = msg_send ~self ~cmd:(selector "setSlideBehaviour:") ~typ:(id @-> returning (void)) x -let setSplit x ~animated self = msg_send ~self ~cmd:(selector "setSplit:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setSplitProgress x self = msg_send ~self ~cmd:(selector "setSplitProgress:") ~typ:(double @-> returning (void)) x -let setState x ~forKey self = msg_send ~self ~cmd:(selector "setState:forKey:") ~typ:(int @-> id @-> returning (void)) x forKey -let setTarget x ~forKey self = msg_send ~self ~cmd:(selector "setTarget:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let setTextEditingTraits x self = msg_send ~self ~cmd:(selector "setTextEditingTraits:") ~typ:(id @-> returning (void)) x -let setToInitialKeyplane self = msg_send ~self ~cmd:(selector "setToInitialKeyplane") ~typ:(returning (void)) -let setTwoFingerTapTimestamp x self = msg_send ~self ~cmd:(selector "setTwoFingerTapTimestamp:") ~typ:(double @-> returning (void)) x -let shift self = msg_send ~self ~cmd:(selector "shift") ~typ:(returning (bool)) -let shouldAllowCurrentKeyplaneReload self = msg_send ~self ~cmd:(selector "shouldAllowCurrentKeyplaneReload") ~typ:(returning (bool)) -let shouldAllowSelectionGestures x ~atPoint ~toBegin self = msg_send ~self ~cmd:(selector "shouldAllowSelectionGestures:atPoint:toBegin:") ~typ:(bool @-> CGPoint.t @-> bool @-> returning (bool)) x atPoint toBegin -let shouldCommitPrecedingTouchesForTouchDownWithActions x self = msg_send ~self ~cmd:(selector "shouldCommitPrecedingTouchesForTouchDownWithActions:") ~typ:(ullong @-> returning (bool)) (ULLong.of_int x) -let shouldDeactivateWithoutWindow self = msg_send ~self ~cmd:(selector "shouldDeactivateWithoutWindow") ~typ:(returning (bool)) -let shouldHitTestKey x self = msg_send ~self ~cmd:(selector "shouldHitTestKey:") ~typ:(id @-> returning (bool)) x -let shouldIgnoreContinuousPathRequirements self = msg_send ~self ~cmd:(selector "shouldIgnoreContinuousPathRequirements") ~typ:(returning (bool)) -let shouldIgnoreDistantKey self = msg_send ~self ~cmd:(selector "shouldIgnoreDistantKey") ~typ:(returning (bool)) -let shouldMatchCaseForDomainKeys self = msg_send ~self ~cmd:(selector "shouldMatchCaseForDomainKeys") ~typ:(returning (bool)) -let shouldMergeAssistantBarWithKeyboardLayout self = msg_send ~self ~cmd:(selector "shouldMergeAssistantBarWithKeyboardLayout") ~typ:(returning (bool)) -let shouldMergeKey x self = msg_send ~self ~cmd:(selector "shouldMergeKey:") ~typ:(id @-> returning (bool)) x -let shouldPreventInputManagerHitTestingForKey x self = msg_send ~self ~cmd:(selector "shouldPreventInputManagerHitTestingForKey:") ~typ:(id @-> returning (bool)) x -let shouldRetestKey x ~slidOffKey ~withKeyplane self = msg_send ~self ~cmd:(selector "shouldRetestKey:slidOffKey:withKeyplane:") ~typ:(id @-> id @-> id @-> returning (bool)) x slidOffKey withKeyplane -let shouldRetestTouchDraggedFromKey x self = msg_send ~self ~cmd:(selector "shouldRetestTouchDraggedFromKey:") ~typ:(id @-> returning (bool)) x -let shouldRetestTouchUp x self = msg_send ~self ~cmd:(selector "shouldRetestTouchUp:") ~typ:(id @-> returning (bool)) x -let shouldSendStringForFlick x self = msg_send ~self ~cmd:(selector "shouldSendStringForFlick:") ~typ:(id @-> returning (bool)) x -let shouldSendTouchUpToInputManager x self = msg_send ~self ~cmd:(selector "shouldSendTouchUpToInputManager:") ~typ:(id @-> returning (bool)) x -let shouldShowDictationKey self = msg_send ~self ~cmd:(selector "shouldShowDictationKey") ~typ:(returning (bool)) -let shouldShowGestureKeyboardIntroduction self = msg_send ~self ~cmd:(selector "shouldShowGestureKeyboardIntroduction") ~typ:(returning (bool)) -let shouldShowIndicator self = msg_send ~self ~cmd:(selector "shouldShowIndicator") ~typ:(returning (bool)) -let shouldShowInternationalMenuForKey x self = msg_send ~self ~cmd:(selector "shouldShowInternationalMenuForKey:") ~typ:(id @-> returning (bool)) x -let shouldSkipResponseToGlobeKey x ~atPoint self = msg_send ~self ~cmd:(selector "shouldSkipResponseToGlobeKey:atPoint:") ~typ:(id @-> CGPoint.t @-> returning (bool)) x atPoint -let shouldUseDefaultShiftStateFromLayout self = msg_send ~self ~cmd:(selector "shouldUseDefaultShiftStateFromLayout") ~typ:(returning (bool)) -let shouldYieldToControlCenterForFlickWithInitialPoint x ~finalPoint self = msg_send ~self ~cmd:(selector "shouldYieldToControlCenterForFlickWithInitialPoint:finalPoint:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (bool)) x finalPoint -let showFlickView x ~withKey ~flickString self = msg_send ~self ~cmd:(selector "showFlickView:withKey:flickString:") ~typ:(llong @-> id @-> id @-> returning (void)) (LLong.of_int x) withKey flickString -let showGestureKeyboardIntroductionIfNeeded self = msg_send ~self ~cmd:(selector "showGestureKeyboardIntroductionIfNeeded") ~typ:(returning (bool)) -let showKeyboardWithInputMode x ~renderConfig ~inputTraits ~screenTraits ~splitTraits self = msg_send ~self ~cmd:(selector "showKeyboardWithInputMode:renderConfig:inputTraits:screenTraits:splitTraits:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (void)) x renderConfig inputTraits screenTraits splitTraits -let showKeyboardWithInputMode' x ~renderConfig ~inputTraits ~screenTraits ~splitTraits ~reload self = msg_send ~self ~cmd:(selector "showKeyboardWithInputMode:renderConfig:inputTraits:screenTraits:splitTraits:reload:") ~typ:(id @-> id @-> id @-> id @-> id @-> bool @-> returning (void)) x renderConfig inputTraits screenTraits splitTraits reload -let showKeyboardWithInputTraits x ~screenTraits ~splitTraits self = msg_send ~self ~cmd:(selector "showKeyboardWithInputTraits:screenTraits:splitTraits:") ~typ:(id @-> id @-> id @-> returning (void)) x screenTraits splitTraits -let showMenu x ~forKey self = msg_send ~self ~cmd:(selector "showMenu:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let showPopupVariantsForKey x self = msg_send ~self ~cmd:(selector "showPopupVariantsForKey:") ~typ:(id @-> returning (void)) x -let showPopupView x ~withKey ~popupInfo ~force self = msg_send ~self ~cmd:(selector "showPopupView:withKey:popupInfo:force:") ~typ:(llong @-> id @-> id @-> bool @-> returning (void)) (LLong.of_int x) withKey popupInfo force -let showSplitTransitionView x self = msg_send ~self ~cmd:(selector "showSplitTransitionView:") ~typ:(bool @-> returning (void)) x -let showsDedicatedEmojiKeyAlongsideGlobeButton self = msg_send ~self ~cmd:(selector "showsDedicatedEmojiKeyAlongsideGlobeButton") ~typ:(returning (bool)) -let showsDictationKey self = msg_send ~self ~cmd:(selector "showsDictationKey") ~typ:(returning (bool)) -let showsInternationalKey self = msg_send ~self ~cmd:(selector "showsInternationalKey") ~typ:(returning (bool)) -let simulateTouch x self = msg_send ~self ~cmd:(selector "simulateTouch:") ~typ:(CGPoint.t @-> returning (id)) x -let simulateTouchForCharacter x ~errorVector ~shouldTypeVariants ~baseKeyForVariants self = msg_send ~self ~cmd:(selector "simulateTouchForCharacter:errorVector:shouldTypeVariants:baseKeyForVariants:") ~typ:(id @-> CGPoint.t @-> bool @-> bool @-> returning (id)) x errorVector shouldTypeVariants baseKeyForVariants -let sizeForKeyplane x self = msg_send_stret ~self ~cmd:(selector "sizeForKeyplane:") ~typ:(id @-> returning (CGSize.t)) ~return_type:CGSize.t x -let slideBehaviour self = msg_send ~self ~cmd:(selector "slideBehaviour") ~typ:(returning (id)) -let splitNameForKeyplane x self = msg_send ~self ~cmd:(selector "splitNameForKeyplane:") ~typ:(id @-> returning (id)) x -let splitNameForKeyplaneName x self = msg_send ~self ~cmd:(selector "splitNameForKeyplaneName:") ~typ:(id @-> returning (id)) x -let stateForCandidateListKey x self = msg_send ~self ~cmd:(selector "stateForCandidateListKey:") ~typ:(id @-> returning (int)) x -let stateForDictationKey x self = msg_send ~self ~cmd:(selector "stateForDictationKey:") ~typ:(id @-> returning (int)) x -let stateForKey x self = msg_send ~self ~cmd:(selector "stateForKey:") ~typ:(id @-> returning (int)) x -let stateForKeyplaneSwitchKey x self = msg_send ~self ~cmd:(selector "stateForKeyplaneSwitchKey:") ~typ:(id @-> returning (int)) x -let stateForManipulationKey x self = msg_send ~self ~cmd:(selector "stateForManipulationKey:") ~typ:(id @-> returning (int)) x -let stateForMultitapForwardKey x self = msg_send ~self ~cmd:(selector "stateForMultitapForwardKey:") ~typ:(id @-> returning (int)) x -let stateForMultitapReverseKey x self = msg_send ~self ~cmd:(selector "stateForMultitapReverseKey:") ~typ:(id @-> returning (int)) x -let stateForShiftKey x self = msg_send ~self ~cmd:(selector "stateForShiftKey:") ~typ:(id @-> returning (int)) x -let stateForStylingKey x self = msg_send ~self ~cmd:(selector "stateForStylingKey:") ~typ:(id @-> returning (int)) x -let stretchFactor self = msg_send_stret ~self ~cmd:(selector "stretchFactor") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let stretchFactorHeight self = msg_send ~self ~cmd:(selector "stretchFactorHeight") ~typ:(returning (double)) -let stretchKeyboardToFit self = msg_send ~self ~cmd:(selector "stretchKeyboardToFit") ~typ:(returning (bool)) -let stretchKeyboardToFitKeyplane x self = msg_send ~self ~cmd:(selector "stretchKeyboardToFitKeyplane:") ~typ:(id @-> returning (bool)) x -let supportStylingWithKey x self = msg_send ~self ~cmd:(selector "supportStylingWithKey:") ~typ:(id @-> returning (bool)) x -let supportsContinuousPath self = msg_send ~self ~cmd:(selector "supportsContinuousPath") ~typ:(returning (bool)) -let supportsEmoji self = msg_send ~self ~cmd:(selector "supportsEmoji") ~typ:(returning (bool)) -let swipeDetected x self = msg_send ~self ~cmd:(selector "swipeDetected:") ~typ:(id @-> returning (void)) x -let synthesizeTouchUpEventForKey x self = msg_send ~self ~cmd:(selector "synthesizeTouchUpEventForKey:") ~typ:(id @-> returning (id)) x -let targetEdgesForScreenGestureRecognition self = msg_send ~self ~cmd:(selector "targetEdgesForScreenGestureRecognition") ~typ:(returning (ullong)) -let tearDownSplitTransitionView self = msg_send ~self ~cmd:(selector "tearDownSplitTransitionView") ~typ:(returning (void)) -let textEditingKeyMask self = msg_send ~self ~cmd:(selector "textEditingKeyMask") ~typ:(returning (ullong)) -let touchCancelled x ~executionContext self = msg_send ~self ~cmd:(selector "touchCancelled:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let touchCancelled' x ~forResting ~executionContext self = msg_send ~self ~cmd:(selector "touchCancelled:forResting:executionContext:") ~typ:(id @-> bool @-> id @-> returning (void)) x forResting executionContext -let touchChanged x ~executionContext self = msg_send ~self ~cmd:(selector "touchChanged:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let touchDown x ~executionContext self = msg_send ~self ~cmd:(selector "touchDown:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let touchDownWithKey x ~withTouchInfo ~atPoint ~executionContext self = msg_send ~self ~cmd:(selector "touchDownWithKey:withTouchInfo:atPoint:executionContext:") ~typ:(id @-> id @-> CGPoint.t @-> id @-> returning (void)) x withTouchInfo atPoint executionContext -let touchDragged x self = msg_send ~self ~cmd:(selector "touchDragged:") ~typ:(id @-> returning (void)) x -let touchDragged' x ~executionContext self = msg_send ~self ~cmd:(selector "touchDragged:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let touchInfoForKey x self = msg_send ~self ~cmd:(selector "touchInfoForKey:") ~typ:(id @-> returning (id)) x -let touchMultitapTimer self = msg_send ~self ~cmd:(selector "touchMultitapTimer") ~typ:(returning (void)) -let touchPassesDragThreshold x self = msg_send ~self ~cmd:(selector "touchPassesDragThreshold:") ~typ:(id @-> returning (bool)) x -let touchUp x ~executionContext self = msg_send ~self ~cmd:(selector "touchUp:executionContext:") ~typ:(id @-> id @-> returning (void)) x executionContext -let traitCollectionDidChange self = msg_send ~self ~cmd:(selector "traitCollectionDidChange") ~typ:(returning (void)) -let transitionToModalContinuousPathKeyplane self = msg_send ~self ~cmd:(selector "transitionToModalContinuousPathKeyplane") ~typ:(returning (void)) -let transitionToPunctuationKeysVisible x self = msg_send ~self ~cmd:(selector "transitionToPunctuationKeysVisible:") ~typ:(bool @-> returning (void)) x -let triggerSpaceKeyplaneSwitchIfNecessary self = msg_send ~self ~cmd:(selector "triggerSpaceKeyplaneSwitchIfNecessary") ~typ:(returning (void)) -let typingStyleEstimator x ~didChangeTypingStyleEstimate self = msg_send ~self ~cmd:(selector "typingStyleEstimator:didChangeTypingStyleEstimate:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int didChangeTypingStyleEstimate) -let uninstallGestureRecognizers self = msg_send ~self ~cmd:(selector "uninstallGestureRecognizers") ~typ:(returning (void)) -let unprocessedTouchEventsForTouchInfo x ~touchStage ~forcedKeyCode self = msg_send ~self ~cmd:(selector "unprocessedTouchEventsForTouchInfo:touchStage:forcedKeyCode:") ~typ:(id @-> int @-> int @-> returning (id)) x touchStage forcedKeyCode -let upActionFlagsForKey x self = msg_send ~self ~cmd:(selector "upActionFlagsForKey:") ~typ:(id @-> returning (ullong)) x -let upActionShift self = msg_send ~self ~cmd:(selector "upActionShift") ~typ:(returning (void)) -let updateAutolocalizedKeysForKeyplane x self = msg_send ~self ~cmd:(selector "updateAutolocalizedKeysForKeyplane:") ~typ:(id @-> returning (void)) x -let updateBackgroundCorners self = msg_send ~self ~cmd:(selector "updateBackgroundCorners") ~typ:(returning (void)) -let updateBackgroundIfNeeded self = msg_send ~self ~cmd:(selector "updateBackgroundIfNeeded") ~typ:(returning (void)) -let updateCachedKeyplaneKeycaps self = msg_send ~self ~cmd:(selector "updateCachedKeyplaneKeycaps") ~typ:(returning (void)) -let updateCurrencySymbolForKey x ~withCurrencyString self = msg_send ~self ~cmd:(selector "updateCurrencySymbolForKey:withCurrencyString:") ~typ:(id @-> id @-> returning (void)) x withCurrencyString -let updateGlobeKeyAndLayoutOriginBeforeSnapshotForInputView x self = msg_send ~self ~cmd:(selector "updateGlobeKeyAndLayoutOriginBeforeSnapshotForInputView:") ~typ:(id @-> returning (void)) x -let updateGlobeKeyDisplayString self = msg_send ~self ~cmd:(selector "updateGlobeKeyDisplayString") ~typ:(returning (void)) -let updateInputModeLocalizedKeysForKeyplane x self = msg_send ~self ~cmd:(selector "updateInputModeLocalizedKeysForKeyplane:") ~typ:(id @-> returning (void)) x -let updateKeyCentroids self = msg_send ~self ~cmd:(selector "updateKeyCentroids") ~typ:(returning (void)) -let updateKeyboardForKeyplane x self = msg_send ~self ~cmd:(selector "updateKeyboardForKeyplane:") ~typ:(id @-> returning (void)) x -let updateLayoutTags self = msg_send ~self ~cmd:(selector "updateLayoutTags") ~typ:(returning (void)) -let updateLocalizedDisplayStringOnEmojiInternationalWithKeyplane x ~withInputMode self = msg_send ~self ~cmd:(selector "updateLocalizedDisplayStringOnEmojiInternationalWithKeyplane:withInputMode:") ~typ:(id @-> id @-> returning (void)) x withInputMode -let updateLocalizedDisplayStringsForKeys x self = msg_send ~self ~cmd:(selector "updateLocalizedDisplayStringsForKeys:") ~typ:(id @-> returning (void)) x -let updateLocalizedKeys x self = msg_send ~self ~cmd:(selector "updateLocalizedKeys:") ~typ:(bool @-> returning (void)) x -let updateLocalizedKeysForKeyplane x ~updateAllKeyplanes self = msg_send ~self ~cmd:(selector "updateLocalizedKeysForKeyplane:updateAllKeyplanes:") ~typ:(id @-> bool @-> returning (void)) x updateAllKeyplanes -let updateLocalizedKeysOnKeyplane x self = msg_send ~self ~cmd:(selector "updateLocalizedKeysOnKeyplane:") ~typ:(id @-> returning (void)) x -let updateMoreAndInternationalKeys self = msg_send ~self ~cmd:(selector "updateMoreAndInternationalKeys") ~typ:(returning (void)) -let updatePanAlternativesForTouchInfo x self = msg_send ~self ~cmd:(selector "updatePanAlternativesForTouchInfo:") ~typ:(id @-> returning (void)) x -let updatePhysicalKeyboardEvent x ~withMarkedInput self = msg_send ~self ~cmd:(selector "updatePhysicalKeyboardEvent:withMarkedInput:") ~typ:(id @-> id @-> returning (void)) x withMarkedInput -let updateReturnKeysIfNeeded self = msg_send ~self ~cmd:(selector "updateReturnKeysIfNeeded") ~typ:(returning (void)) -let updateSelectedVariantIndexForKey x ~withActions ~withPoint self = msg_send ~self ~cmd:(selector "updateSelectedVariantIndexForKey:withActions:withPoint:") ~typ:(id @-> ullong @-> CGPoint.t @-> returning (void)) x (ULLong.of_int withActions) withPoint -let updateShiftKeyState self = msg_send ~self ~cmd:(selector "updateShiftKeyState") ~typ:(returning (void)) -let updateState x ~forKey self = msg_send ~self ~cmd:(selector "updateState:forKey:") ~typ:(int @-> id @-> returning (void)) x forKey -let updateTransitionWithFlags x self = msg_send ~self ~cmd:(selector "updateTransitionWithFlags:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let updateUndoKeyState self = msg_send ~self ~cmd:(selector "updateUndoKeyState") ~typ:(returning (void)) -let useDismissForMessagesWriteboard self = msg_send ~self ~cmd:(selector "useDismissForMessagesWriteboard") ~typ:(returning (bool)) -let useUndoForMessagesWriteboard self = msg_send ~self ~cmd:(selector "useUndoForMessagesWriteboard") ~typ:(returning (bool)) -let usesAutoShift self = msg_send ~self ~cmd:(selector "usesAutoShift") ~typ:(returning (bool)) -let visualStyleForKeyboardIfSplit x self = msg_send ~self ~cmd:(selector "visualStyleForKeyboardIfSplit:") ~typ:(bool @-> returning (int)) x -let willBeginIndirectSelectionGesture self = msg_send ~self ~cmd:(selector "willBeginIndirectSelectionGesture") ~typ:(returning (void)) -let willBeginIndirectSelectionGesture' x self = msg_send ~self ~cmd:(selector "willBeginIndirectSelectionGesture:") ~typ:(bool @-> returning (void)) x -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x -let willRotate self = msg_send ~self ~cmd:(selector "willRotate") ~typ:(returning (void)) \ No newline at end of file +let handRestRecognizerStandardKeyPixelSize self = msg_send ~self ~cmd:(selector "handRestRecognizerStandardKeyPixelSize") ~typ:(returning CGSize.t) +let handleDelayedCentroidUpdate self = msg_send ~self ~cmd:(selector "handleDelayedCentroidUpdate") ~typ:(returning void) +let handleDismissFlickView self = msg_send ~self ~cmd:(selector "handleDismissFlickView") ~typ:(returning void) +let handleDismissFlickView' x self = msg_send ~self ~cmd:(selector "handleDismissFlickView:") ~typ:(id @-> returning void) x +let handleFlick x self = msg_send ~self ~cmd:(selector "handleFlick:") ~typ:(id @-> returning bool) x +let handleKeyboardMenusForTouch x self = msg_send ~self ~cmd:(selector "handleKeyboardMenusForTouch:") ~typ:(id @-> returning void) x +let handleMultitapTimerFired self = msg_send ~self ~cmd:(selector "handleMultitapTimerFired") ~typ:(returning void) +let handlePopupView self = msg_send ~self ~cmd:(selector "handlePopupView") ~typ:(returning void) +let handlePopupView' x self = msg_send ~self ~cmd:(selector "handlePopupView:") ~typ:(id @-> returning void) x +let handlerForNotification x self = msg_send ~self ~cmd:(selector "handlerForNotification:") ~typ:(id @-> returning _SEL) x +let hasAccentKey self = msg_send ~self ~cmd:(selector "hasAccentKey") ~typ:(returning bool) +let hasActiveContinuousPathInput self = msg_send ~self ~cmd:(selector "hasActiveContinuousPathInput") ~typ:(returning bool) +let hasActiveKeys self = msg_send ~self ~cmd:(selector "hasActiveKeys") ~typ:(returning bool) +let hasCandidateKeys self = msg_send ~self ~cmd:(selector "hasCandidateKeys") ~typ:(returning bool) +let highlightedVariantListForStylingKey x self = msg_send ~self ~cmd:(selector "highlightedVariantListForStylingKey:") ~typ:(id @-> returning id) x +let hitBuffer self = msg_send ~self ~cmd:(selector "hitBuffer") ~typ:(returning double) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let hostViewForResizingKeyplane x self = msg_send ~self ~cmd:(selector "hostViewForResizingKeyplane:") ~typ:(id @-> returning id) x +let ignoreWriteboard self = msg_send ~self ~cmd:(selector "ignoreWriteboard") ~typ:(returning bool) +let ignoresShiftState self = msg_send ~self ~cmd:(selector "ignoresShiftState") ~typ:(returning bool) +let incrementPunctuationIfNeeded x self = msg_send ~self ~cmd:(selector "incrementPunctuationIfNeeded:") ~typ:(id @-> returning void) x +let infoForTouch x self = msg_send ~self ~cmd:(selector "infoForTouch:") ~typ:(id @-> returning id) x +let infoForTouchUUID x self = msg_send ~self ~cmd:(selector "infoForTouchUUID:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initialKeyplaneNameWithKBStarName x self = msg_send ~self ~cmd:(selector "initialKeyplaneNameWithKBStarName:") ~typ:(id @-> returning id) x +let inputModeToMergeCapsLockKey self = msg_send ~self ~cmd:(selector "inputModeToMergeCapsLockKey") ~typ:(returning id) +let installGestureRecognizers self = msg_send ~self ~cmd:(selector "installGestureRecognizers") ~typ:(returning void) +let internationalKeyDisplayStringOnEmojiKeyboard self = msg_send ~self ~cmd:(selector "internationalKeyDisplayStringOnEmojiKeyboard") ~typ:(returning id) +let is10KeyRendering self = msg_send ~self ~cmd:(selector "is10KeyRendering") ~typ:(returning bool) +let isAlphabeticPlane self = msg_send ~self ~cmd:(selector "isAlphabeticPlane") ~typ:(returning bool) +let isDeadkeyInput x self = msg_send ~self ~cmd:(selector "isDeadkeyInput:") ~typ:(id @-> returning bool) x +let isDeveloperGestureKeybaord self = msg_send ~self ~cmd:(selector "isDeveloperGestureKeybaord") ~typ:(returning bool) +let isEmojiKeyplane self = msg_send ~self ~cmd:(selector "isEmojiKeyplane") ~typ:(returning bool) +let isGeometricShiftOrMoreKeyForTouch x self = msg_send ~self ~cmd:(selector "isGeometricShiftOrMoreKeyForTouch:") ~typ:(id @-> returning bool) x +let isHandwritingPlane self = msg_send ~self ~cmd:(selector "isHandwritingPlane") ~typ:(returning bool) +let isKanaPlane self = msg_send ~self ~cmd:(selector "isKanaPlane") ~typ:(returning bool) +let isKeyScriptSwitchKey x self = msg_send ~self ~cmd:(selector "isKeyScriptSwitchKey:") ~typ:(id @-> returning bool) x +let isLongPressedKey x self = msg_send ~self ~cmd:(selector "isLongPressedKey:") ~typ:(id @-> returning bool) x +let isMultitapKey x self = msg_send ~self ~cmd:(selector "isMultitapKey:") ~typ:(id @-> returning bool) x +let isResized self = msg_send ~self ~cmd:(selector "isResized") ~typ:(returning bool) +let isResizing self = msg_send ~self ~cmd:(selector "isResizing") ~typ:(returning bool) +let isRotating self = msg_send ~self ~cmd:(selector "isRotating") ~typ:(returning bool) +let isShiftKeyBeingHeld self = msg_send ~self ~cmd:(selector "isShiftKeyBeingHeld") ~typ:(returning bool) +let isShiftKeyPlaneChooser self = msg_send ~self ~cmd:(selector "isShiftKeyPlaneChooser") ~typ:(returning bool) +let isTrackpadMode self = msg_send ~self ~cmd:(selector "isTrackpadMode") ~typ:(returning bool) +let keyForKeyboardName x ~screenTraits self = msg_send ~self ~cmd:(selector "keyForKeyboardName:screenTraits:") ~typ:(id @-> id @-> returning id) x screenTraits +let keyHasAccentedVariants x self = msg_send ~self ~cmd:(selector "keyHasAccentedVariants:") ~typ:(id @-> returning bool) x +let keyHitTest x self = msg_send ~self ~cmd:(selector "keyHitTest:") ~typ:(CGPoint.t @-> returning id) x +let keyHitTestClosestToPoint x self = msg_send ~self ~cmd:(selector "keyHitTestClosestToPoint:") ~typ:(CGPoint.t @-> returning id) x +let keyHitTestClosestToPoint' x ~inKeys self = msg_send ~self ~cmd:(selector "keyHitTestClosestToPoint:inKeys:") ~typ:(CGPoint.t @-> id @-> returning id) x inKeys +let keyHitTestContainingPoint x self = msg_send ~self ~cmd:(selector "keyHitTestContainingPoint:") ~typ:(CGPoint.t @-> returning id) x +let keyHitTestWithoutCharging x self = msg_send ~self ~cmd:(selector "keyHitTestWithoutCharging:") ~typ:(CGPoint.t @-> returning id) x +let keyViewAnimator self = msg_send ~self ~cmd:(selector "keyViewAnimator") ~typ:(returning id) +let keyViewAnimatorClassForCurrentKeyboardLayout self = msg_send ~self ~cmd:(selector "keyViewAnimatorClassForCurrentKeyboardLayout") ~typ:(returning _Class) +let keyViewHitTestForPoint x self = msg_send ~self ~cmd:(selector "keyViewHitTestForPoint:") ~typ:(CGPoint.t @-> returning id) x +let keyWithRepresentedString x self = msg_send ~self ~cmd:(selector "keyWithRepresentedString:") ~typ:(id @-> returning id) x +let keyboard self = msg_send ~self ~cmd:(selector "keyboard") ~typ:(returning id) +let keyboardName self = msg_send ~self ~cmd:(selector "keyboardName") ~typ:(returning id) +let keycodeForKey x self = msg_send ~self ~cmd:(selector "keycodeForKey:") ~typ:(id @-> returning int) x +let keylistContainingKey x self = msg_send ~self ~cmd:(selector "keylistContainingKey:") ~typ:(id @-> returning id) x +let keyplane self = msg_send ~self ~cmd:(selector "keyplane") ~typ:(returning id) +let keyplaneContainsDismissKey self = msg_send ~self ~cmd:(selector "keyplaneContainsDismissKey") ~typ:(returning bool) +let keyplaneContainsEmojiKey self = msg_send ~self ~cmd:(selector "keyplaneContainsEmojiKey") ~typ:(returning bool) +let keyplaneForKey x self = msg_send ~self ~cmd:(selector "keyplaneForKey:") ~typ:(id @-> returning id) x +let keyplaneName self = msg_send ~self ~cmd:(selector "keyplaneName") ~typ:(returning id) +let keyplaneNameForRevertAfterTouch self = msg_send ~self ~cmd:(selector "keyplaneNameForRevertAfterTouch") ~typ:(returning id) +let keyplaneNamed x self = msg_send ~self ~cmd:(selector "keyplaneNamed:") ~typ:(id @-> returning id) x +let keyplaneShiftState self = msg_send ~self ~cmd:(selector "keyplaneShiftState") ~typ:(returning ullong) +let keyplaneSupportsResizingGesture self = msg_send ~self ~cmd:(selector "keyplaneSupportsResizingGesture") ~typ:(returning bool) +let keyplaneUsesResizingOffset self = msg_send ~self ~cmd:(selector "keyplaneUsesResizingOffset") ~typ:(returning bool) +let keyplaneView x ~containingViewForActiveKey self = msg_send ~self ~cmd:(selector "keyplaneView:containingViewForActiveKey:") ~typ:(id @-> id @-> returning id) x containingViewForActiveKey +let lastTouchDownTimestamp self = msg_send ~self ~cmd:(selector "lastTouchDownTimestamp") ~typ:(returning double) +let lastTouchUpTimestamp self = msg_send ~self ~cmd:(selector "lastTouchUpTimestamp") ~typ:(returning double) +let lastTwoFingerTapTimestamp self = msg_send ~self ~cmd:(selector "lastTwoFingerTapTimestamp") ~typ:(returning double) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let layoutTag self = msg_send ~self ~cmd:(selector "layoutTag") ~typ:(returning id) +let localizedInputKey self = msg_send ~self ~cmd:(selector "localizedInputKey") ~typ:(returning id) +let localizedInputMode self = msg_send ~self ~cmd:(selector "localizedInputMode") ~typ:(returning id) +let logHandwritingData self = msg_send ~self ~cmd:(selector "logHandwritingData") ~typ:(returning void) +let longPressAction self = msg_send ~self ~cmd:(selector "longPressAction") ~typ:(returning void) +let mergeKeysIfNeeded self = msg_send ~self ~cmd:(selector "mergeKeysIfNeeded") ~typ:(returning void) +let modalDisplayView self = msg_send ~self ~cmd:(selector "modalDisplayView") ~typ:(returning id) +let multitapCompleteKeys self = msg_send ~self ~cmd:(selector "multitapCompleteKeys") ~typ:(returning id) +let multitapExpired self = msg_send ~self ~cmd:(selector "multitapExpired") ~typ:(returning void) +let multitapForwardKeys self = msg_send ~self ~cmd:(selector "multitapForwardKeys") ~typ:(returning id) +let multitapInterrupted self = msg_send ~self ~cmd:(selector "multitapInterrupted") ~typ:(returning void) +let muteNextKeyClickSound self = msg_send ~self ~cmd:(selector "muteNextKeyClickSound") ~typ:(returning bool) +let nextToUseInputModeDidChange x self = msg_send ~self ~cmd:(selector "nextToUseInputModeDidChange:") ~typ:(id @-> returning void) x +let pathEffectView self = msg_send ~self ~cmd:(selector "pathEffectView") ~typ:(returning id) +let performHitTestForTouchInfo x ~touchStage ~executionContextPassingUIKBTree self = msg_send ~self ~cmd:(selector "performHitTestForTouchInfo:touchStage:executionContextPassingUIKBTree:") ~typ:(id @-> int @-> id @-> returning void) x touchStage executionContextPassingUIKBTree +let performReturnAction self = msg_send ~self ~cmd:(selector "performReturnAction") ~typ:(returning bool) +let performSpaceAction self = msg_send ~self ~cmd:(selector "performSpaceAction") ~typ:(returning bool) +let pinchCanBeginWithTouches x ~andScale self = msg_send ~self ~cmd:(selector "pinchCanBeginWithTouches:andScale:") ~typ:(id @-> double @-> returning bool) x andScale +let pinchDetected self = msg_send ~self ~cmd:(selector "pinchDetected") ~typ:(returning bool) +let pinchDidConsumeTouch x self = msg_send ~self ~cmd:(selector "pinchDidConsumeTouch:") ~typ:(id @-> returning void) x +let pinchHandler x self = msg_send ~self ~cmd:(selector "pinchHandler:") ~typ:(id @-> returning void) x +let pinchSplitGestureEnabled self = msg_send ~self ~cmd:(selector "pinchSplitGestureEnabled") ~typ:(returning bool) +let playKeyClickSoundForKey x self = msg_send ~self ~cmd:(selector "playKeyClickSoundForKey:") ~typ:(id @-> returning void) x +let playKeyClickSoundOn self = msg_send ~self ~cmd:(selector "playKeyClickSoundOn") ~typ:(returning int) +let playKeyClickSoundOnDownForKey x self = msg_send ~self ~cmd:(selector "playKeyClickSoundOnDownForKey:") ~typ:(id @-> returning void) x +let playKeyClickSoundOnUpForKey x self = msg_send ~self ~cmd:(selector "playKeyClickSoundOnUpForKey:") ~typ:(id @-> returning void) x +let playKeyReleaseSoundForKey x self = msg_send ~self ~cmd:(selector "playKeyReleaseSoundForKey:") ~typ:(id @-> returning void) x +let pointInside x ~forEvent self = msg_send ~self ~cmd:(selector "pointInside:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning bool) x forEvent +let pointInside' x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let populateFlickPopupsForKey x self = msg_send ~self ~cmd:(selector "populateFlickPopupsForKey:") ~typ:(id @-> returning void) x +let popupKeyViews self = msg_send ~self ~cmd:(selector "popupKeyViews") ~typ:(returning id) +let preTouchKeyplaneName self = msg_send ~self ~cmd:(selector "preTouchKeyplaneName") ~typ:(returning id) +let prepareForFloatingTransition x self = msg_send ~self ~cmd:(selector "prepareForFloatingTransition:") ~typ:(bool @-> returning void) x +let prepareForSplitTransition self = msg_send ~self ~cmd:(selector "prepareForSplitTransition") ~typ:(returning void) +let prepareSliderBehaviorFeedback self = msg_send ~self ~cmd:(selector "prepareSliderBehaviorFeedback") ~typ:(returning void) +let presentModalDisplayForKey x self = msg_send ~self ~cmd:(selector "presentModalDisplayForKey:") ~typ:(id @-> returning void) x +let preventPaddlesForPointerTouches self = msg_send ~self ~cmd:(selector "preventPaddlesForPointerTouches") ~typ:(returning bool) +let provideSliderBehaviorFeedback self = msg_send ~self ~cmd:(selector "provideSliderBehaviorFeedback") ~typ:(returning void) +let rebuildSplitTransitionView self = msg_send ~self ~cmd:(selector "rebuildSplitTransitionView") ~typ:(returning void) +let refreshDualStringKeys self = msg_send ~self ~cmd:(selector "refreshDualStringKeys") ~typ:(returning void) +let refreshForDictationAvailablityDidChange self = msg_send ~self ~cmd:(selector "refreshForDictationAvailablityDidChange") ~typ:(returning void) +let refreshForRivenPreferences self = msg_send ~self ~cmd:(selector "refreshForRivenPreferences") ~typ:(returning void) +let refreshGhostKeyState self = msg_send ~self ~cmd:(selector "refreshGhostKeyState") ~typ:(returning void) +let relayoutForWriteboardKey self = msg_send ~self ~cmd:(selector "relayoutForWriteboardKey") ~typ:(returning void) +let reloadCurrentKeyplane self = msg_send ~self ~cmd:(selector "reloadCurrentKeyplane") ~typ:(returning void) +let reloadKeyboardWithInputTraits x ~screenTraits ~splitTraits self = msg_send ~self ~cmd:(selector "reloadKeyboardWithInputTraits:screenTraits:splitTraits:") ~typ:(id @-> id @-> id @-> returning void) x screenTraits splitTraits +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let removePathEffectViewConstraintsIfNeeded self = msg_send ~self ~cmd:(selector "removePathEffectViewConstraintsIfNeeded") ~typ:(returning void) +let renderConfig self = msg_send ~self ~cmd:(selector "renderConfig") ~typ:(returning id) +let renderedImageWithStateFallbacksForToken x self = msg_send ~self ~cmd:(selector "renderedImageWithStateFallbacksForToken:") ~typ:(id @-> returning (ptr CGImage.t)) x +let renderedImageWithToken x self = msg_send ~self ~cmd:(selector "renderedImageWithToken:") ~typ:(id @-> returning (ptr CGImage.t)) x +let renderedKeyplaneWithToken x ~split self = msg_send ~self ~cmd:(selector "renderedKeyplaneWithToken:split:") ~typ:(id @-> bool @-> returning (ptr CGImage.t)) x split +let resetHRRLayoutState self = msg_send ~self ~cmd:(selector "resetHRRLayoutState") ~typ:(returning void) +let resetPanAlternativesForEndedTouch x self = msg_send ~self ~cmd:(selector "resetPanAlternativesForEndedTouch:") ~typ:(id @-> returning void) x +let resizeKeyplaneAndRedraw x self = msg_send ~self ~cmd:(selector "resizeKeyplaneAndRedraw:") ~typ:(bool @-> returning void) x +let restoreDefaultsForAllKeys self = msg_send ~self ~cmd:(selector "restoreDefaultsForAllKeys") ~typ:(returning void) +let restoreDefaultsForKey x self = msg_send ~self ~cmd:(selector "restoreDefaultsForKey:") ~typ:(id @-> returning void) x +let setAction x ~forKey self = msg_send ~self ~cmd:(selector "setAction:forKey:") ~typ:(_SEL @-> id @-> returning void) x forKey +let setActiveKey x self = msg_send ~self ~cmd:(selector "setActiveKey:") ~typ:(id @-> returning void) x +let setAutoShift x self = msg_send ~self ~cmd:(selector "setAutoShift:") ~typ:(bool @-> returning void) x +let setAutoshift x self = msg_send ~self ~cmd:(selector "setAutoshift:") ~typ:(bool @-> returning void) x +let setBlinkAssertion x self = msg_send ~self ~cmd:(selector "setBlinkAssertion:") ~typ:(id @-> returning void) x +let setCurrencyKeysForCurrentLocaleOnKeyplane x self = msg_send ~self ~cmd:(selector "setCurrencyKeysForCurrentLocaleOnKeyplane:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDidLongPress x self = msg_send ~self ~cmd:(selector "setDidLongPress:") ~typ:(bool @-> returning void) x +let setDisableInteraction x self = msg_send ~self ~cmd:(selector "setDisableInteraction:") ~typ:(bool @-> returning void) x +let setHideKeysUnderIndicator x self = msg_send ~self ~cmd:(selector "setHideKeysUnderIndicator:") ~typ:(bool @-> returning void) x +let setKeyForTouchInfo x ~key self = msg_send ~self ~cmd:(selector "setKeyForTouchInfo:key:") ~typ:(id @-> id @-> returning void) x key +let setKeyboardAppearance x self = msg_send ~self ~cmd:(selector "setKeyboardAppearance:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setKeyboardBias x self = msg_send ~self ~cmd:(selector "setKeyboardBias:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setKeyboardDim x self = msg_send ~self ~cmd:(selector "setKeyboardDim:") ~typ:(bool @-> returning void) x +let setKeyboardDim' x ~amount ~withDuration self = msg_send ~self ~cmd:(selector "setKeyboardDim:amount:withDuration:") ~typ:(bool @-> double @-> double @-> returning void) x amount withDuration +let setKeyboardName x self = msg_send ~self ~cmd:(selector "setKeyboardName:") ~typ:(id @-> returning void) x +let setKeyboardName' x ~appearance self = msg_send ~self ~cmd:(selector "setKeyboardName:appearance:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int appearance) +let setKeyplaneName x self = msg_send ~self ~cmd:(selector "setKeyplaneName:") ~typ:(id @-> returning void) x +let setLabel x ~forKey self = msg_send ~self ~cmd:(selector "setLabel:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let setLastTwoFingerTapTimestamp x self = msg_send ~self ~cmd:(selector "setLastTwoFingerTapTimestamp:") ~typ:(double @-> returning void) x +let setLayoutTag x self = msg_send ~self ~cmd:(selector "setLayoutTag:") ~typ:(id @-> returning void) x +let setLocalizedInputKey x self = msg_send ~self ~cmd:(selector "setLocalizedInputKey:") ~typ:(id @-> returning void) x +let setLongPressAction x ~forKey self = msg_send ~self ~cmd:(selector "setLongPressAction:forKey:") ~typ:(_SEL @-> id @-> returning void) x forKey +let setModalDisplayView x self = msg_send ~self ~cmd:(selector "setModalDisplayView:") ~typ:(id @-> returning void) x +let setMultitapReverseKeyState self = msg_send ~self ~cmd:(selector "setMultitapReverseKeyState") ~typ:(returning void) +let setMuteNextKeyClickSound x self = msg_send ~self ~cmd:(selector "setMuteNextKeyClickSound:") ~typ:(bool @-> returning void) x +let setNeedsVirtualDriftUpdate self = msg_send ~self ~cmd:(selector "setNeedsVirtualDriftUpdate") ~typ:(returning void) +let setPasscodeOutlineAlpha x self = msg_send ~self ~cmd:(selector "setPasscodeOutlineAlpha:") ~typ:(double @-> returning void) x +let setPathEffectView x self = msg_send ~self ~cmd:(selector "setPathEffectView:") ~typ:(id @-> returning void) x +let setPercentSignKeysForCurrentLocaleOnKeyplane x self = msg_send ~self ~cmd:(selector "setPercentSignKeysForCurrentLocaleOnKeyplane:") ~typ:(id @-> returning void) x +let setPlayKeyClickSoundOn x self = msg_send ~self ~cmd:(selector "setPlayKeyClickSoundOn:") ~typ:(int @-> returning void) x +let setPreTouchKeyplaneName x self = msg_send ~self ~cmd:(selector "setPreTouchKeyplaneName:") ~typ:(id @-> returning void) x +let setPreferredHeight x self = msg_send ~self ~cmd:(selector "setPreferredHeight:") ~typ:(double @-> returning void) x +let setPreventPaddlesForPointerTouches x self = msg_send ~self ~cmd:(selector "setPreventPaddlesForPointerTouches:") ~typ:(bool @-> returning void) x +let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning void) x +let setRenderConfig' x ~updateKeyplane self = msg_send ~self ~cmd:(selector "setRenderConfig:updateKeyplane:") ~typ:(id @-> bool @-> returning void) x updateKeyplane +let setReturnKeyEnabled x ~withDisplayName ~withType self = msg_send ~self ~cmd:(selector "setReturnKeyEnabled:withDisplayName:withType:") ~typ:(bool @-> id @-> int @-> returning void) x withDisplayName withType +let setShift x self = msg_send ~self ~cmd:(selector "setShift:") ~typ:(bool @-> returning void) x +let setSlideBehaviour x self = msg_send ~self ~cmd:(selector "setSlideBehaviour:") ~typ:(id @-> returning void) x +let setSplit x ~animated self = msg_send ~self ~cmd:(selector "setSplit:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setSplitProgress x self = msg_send ~self ~cmd:(selector "setSplitProgress:") ~typ:(double @-> returning void) x +let setState x ~forKey self = msg_send ~self ~cmd:(selector "setState:forKey:") ~typ:(int @-> id @-> returning void) x forKey +let setTarget x ~forKey self = msg_send ~self ~cmd:(selector "setTarget:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let setTextEditingTraits x self = msg_send ~self ~cmd:(selector "setTextEditingTraits:") ~typ:(id @-> returning void) x +let setToInitialKeyplane self = msg_send ~self ~cmd:(selector "setToInitialKeyplane") ~typ:(returning void) +let setTwoFingerTapTimestamp x self = msg_send ~self ~cmd:(selector "setTwoFingerTapTimestamp:") ~typ:(double @-> returning void) x +let shift self = msg_send ~self ~cmd:(selector "shift") ~typ:(returning bool) +let shouldAllowCurrentKeyplaneReload self = msg_send ~self ~cmd:(selector "shouldAllowCurrentKeyplaneReload") ~typ:(returning bool) +let shouldAllowSelectionGestures x ~atPoint ~toBegin self = msg_send ~self ~cmd:(selector "shouldAllowSelectionGestures:atPoint:toBegin:") ~typ:(bool @-> CGPoint.t @-> bool @-> returning bool) x atPoint toBegin +let shouldCommitPrecedingTouchesForTouchDownWithActions x self = msg_send ~self ~cmd:(selector "shouldCommitPrecedingTouchesForTouchDownWithActions:") ~typ:(ullong @-> returning bool) (ULLong.of_int x) +let shouldDeactivateWithoutWindow self = msg_send ~self ~cmd:(selector "shouldDeactivateWithoutWindow") ~typ:(returning bool) +let shouldHitTestKey x self = msg_send ~self ~cmd:(selector "shouldHitTestKey:") ~typ:(id @-> returning bool) x +let shouldIgnoreContinuousPathRequirements self = msg_send ~self ~cmd:(selector "shouldIgnoreContinuousPathRequirements") ~typ:(returning bool) +let shouldIgnoreDistantKey self = msg_send ~self ~cmd:(selector "shouldIgnoreDistantKey") ~typ:(returning bool) +let shouldMatchCaseForDomainKeys self = msg_send ~self ~cmd:(selector "shouldMatchCaseForDomainKeys") ~typ:(returning bool) +let shouldMergeAssistantBarWithKeyboardLayout self = msg_send ~self ~cmd:(selector "shouldMergeAssistantBarWithKeyboardLayout") ~typ:(returning bool) +let shouldMergeKey x self = msg_send ~self ~cmd:(selector "shouldMergeKey:") ~typ:(id @-> returning bool) x +let shouldPreventInputManagerHitTestingForKey x self = msg_send ~self ~cmd:(selector "shouldPreventInputManagerHitTestingForKey:") ~typ:(id @-> returning bool) x +let shouldRetestKey x ~slidOffKey ~withKeyplane self = msg_send ~self ~cmd:(selector "shouldRetestKey:slidOffKey:withKeyplane:") ~typ:(id @-> id @-> id @-> returning bool) x slidOffKey withKeyplane +let shouldRetestTouchDraggedFromKey x self = msg_send ~self ~cmd:(selector "shouldRetestTouchDraggedFromKey:") ~typ:(id @-> returning bool) x +let shouldRetestTouchUp x self = msg_send ~self ~cmd:(selector "shouldRetestTouchUp:") ~typ:(id @-> returning bool) x +let shouldSendStringForFlick x self = msg_send ~self ~cmd:(selector "shouldSendStringForFlick:") ~typ:(id @-> returning bool) x +let shouldSendTouchUpToInputManager x self = msg_send ~self ~cmd:(selector "shouldSendTouchUpToInputManager:") ~typ:(id @-> returning bool) x +let shouldShowDictationKey self = msg_send ~self ~cmd:(selector "shouldShowDictationKey") ~typ:(returning bool) +let shouldShowGestureKeyboardIntroduction self = msg_send ~self ~cmd:(selector "shouldShowGestureKeyboardIntroduction") ~typ:(returning bool) +let shouldShowIndicator self = msg_send ~self ~cmd:(selector "shouldShowIndicator") ~typ:(returning bool) +let shouldShowInternationalMenuForKey x self = msg_send ~self ~cmd:(selector "shouldShowInternationalMenuForKey:") ~typ:(id @-> returning bool) x +let shouldSkipResponseToGlobeKey x ~atPoint self = msg_send ~self ~cmd:(selector "shouldSkipResponseToGlobeKey:atPoint:") ~typ:(id @-> CGPoint.t @-> returning bool) x atPoint +let shouldUseDefaultShiftStateFromLayout self = msg_send ~self ~cmd:(selector "shouldUseDefaultShiftStateFromLayout") ~typ:(returning bool) +let shouldYieldToControlCenterForFlickWithInitialPoint x ~finalPoint self = msg_send ~self ~cmd:(selector "shouldYieldToControlCenterForFlickWithInitialPoint:finalPoint:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning bool) x finalPoint +let showFlickView x ~withKey ~flickString self = msg_send ~self ~cmd:(selector "showFlickView:withKey:flickString:") ~typ:(llong @-> id @-> id @-> returning void) (LLong.of_int x) withKey flickString +let showGestureKeyboardIntroductionIfNeeded self = msg_send ~self ~cmd:(selector "showGestureKeyboardIntroductionIfNeeded") ~typ:(returning bool) +let showKeyboardWithInputMode x ~renderConfig ~inputTraits ~screenTraits ~splitTraits self = msg_send ~self ~cmd:(selector "showKeyboardWithInputMode:renderConfig:inputTraits:screenTraits:splitTraits:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning void) x renderConfig inputTraits screenTraits splitTraits +let showKeyboardWithInputMode' x ~renderConfig ~inputTraits ~screenTraits ~splitTraits ~reload self = msg_send ~self ~cmd:(selector "showKeyboardWithInputMode:renderConfig:inputTraits:screenTraits:splitTraits:reload:") ~typ:(id @-> id @-> id @-> id @-> id @-> bool @-> returning void) x renderConfig inputTraits screenTraits splitTraits reload +let showKeyboardWithInputTraits x ~screenTraits ~splitTraits self = msg_send ~self ~cmd:(selector "showKeyboardWithInputTraits:screenTraits:splitTraits:") ~typ:(id @-> id @-> id @-> returning void) x screenTraits splitTraits +let showMenu x ~forKey self = msg_send ~self ~cmd:(selector "showMenu:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let showPopupVariantsForKey x self = msg_send ~self ~cmd:(selector "showPopupVariantsForKey:") ~typ:(id @-> returning void) x +let showPopupView x ~withKey ~popupInfo ~force self = msg_send ~self ~cmd:(selector "showPopupView:withKey:popupInfo:force:") ~typ:(llong @-> id @-> id @-> bool @-> returning void) (LLong.of_int x) withKey popupInfo force +let showSplitTransitionView x self = msg_send ~self ~cmd:(selector "showSplitTransitionView:") ~typ:(bool @-> returning void) x +let showsDedicatedEmojiKeyAlongsideGlobeButton self = msg_send ~self ~cmd:(selector "showsDedicatedEmojiKeyAlongsideGlobeButton") ~typ:(returning bool) +let showsDictationKey self = msg_send ~self ~cmd:(selector "showsDictationKey") ~typ:(returning bool) +let showsInternationalKey self = msg_send ~self ~cmd:(selector "showsInternationalKey") ~typ:(returning bool) +let simulateTouch x self = msg_send ~self ~cmd:(selector "simulateTouch:") ~typ:(CGPoint.t @-> returning id) x +let simulateTouchForCharacter x ~errorVector ~shouldTypeVariants ~baseKeyForVariants self = msg_send ~self ~cmd:(selector "simulateTouchForCharacter:errorVector:shouldTypeVariants:baseKeyForVariants:") ~typ:(id @-> CGPoint.t @-> bool @-> bool @-> returning id) x errorVector shouldTypeVariants baseKeyForVariants +let sizeForKeyplane x self = msg_send ~self ~cmd:(selector "sizeForKeyplane:") ~typ:(id @-> returning CGSize.t) x +let slideBehaviour self = msg_send ~self ~cmd:(selector "slideBehaviour") ~typ:(returning id) +let splitNameForKeyplane x self = msg_send ~self ~cmd:(selector "splitNameForKeyplane:") ~typ:(id @-> returning id) x +let splitNameForKeyplaneName x self = msg_send ~self ~cmd:(selector "splitNameForKeyplaneName:") ~typ:(id @-> returning id) x +let stateForCandidateListKey x self = msg_send ~self ~cmd:(selector "stateForCandidateListKey:") ~typ:(id @-> returning int) x +let stateForDictationKey x self = msg_send ~self ~cmd:(selector "stateForDictationKey:") ~typ:(id @-> returning int) x +let stateForKey x self = msg_send ~self ~cmd:(selector "stateForKey:") ~typ:(id @-> returning int) x +let stateForKeyplaneSwitchKey x self = msg_send ~self ~cmd:(selector "stateForKeyplaneSwitchKey:") ~typ:(id @-> returning int) x +let stateForManipulationKey x self = msg_send ~self ~cmd:(selector "stateForManipulationKey:") ~typ:(id @-> returning int) x +let stateForMultitapForwardKey x self = msg_send ~self ~cmd:(selector "stateForMultitapForwardKey:") ~typ:(id @-> returning int) x +let stateForMultitapReverseKey x self = msg_send ~self ~cmd:(selector "stateForMultitapReverseKey:") ~typ:(id @-> returning int) x +let stateForShiftKey x self = msg_send ~self ~cmd:(selector "stateForShiftKey:") ~typ:(id @-> returning int) x +let stateForStylingKey x self = msg_send ~self ~cmd:(selector "stateForStylingKey:") ~typ:(id @-> returning int) x +let stretchFactor self = msg_send ~self ~cmd:(selector "stretchFactor") ~typ:(returning CGSize.t) +let stretchFactorHeight self = msg_send ~self ~cmd:(selector "stretchFactorHeight") ~typ:(returning double) +let stretchKeyboardToFit self = msg_send ~self ~cmd:(selector "stretchKeyboardToFit") ~typ:(returning bool) +let stretchKeyboardToFitKeyplane x self = msg_send ~self ~cmd:(selector "stretchKeyboardToFitKeyplane:") ~typ:(id @-> returning bool) x +let supportStylingWithKey x self = msg_send ~self ~cmd:(selector "supportStylingWithKey:") ~typ:(id @-> returning bool) x +let supportsContinuousPath self = msg_send ~self ~cmd:(selector "supportsContinuousPath") ~typ:(returning bool) +let supportsEmoji self = msg_send ~self ~cmd:(selector "supportsEmoji") ~typ:(returning bool) +let swipeDetected x self = msg_send ~self ~cmd:(selector "swipeDetected:") ~typ:(id @-> returning void) x +let synthesizeTouchUpEventForKey x self = msg_send ~self ~cmd:(selector "synthesizeTouchUpEventForKey:") ~typ:(id @-> returning id) x +let targetEdgesForScreenGestureRecognition self = msg_send ~self ~cmd:(selector "targetEdgesForScreenGestureRecognition") ~typ:(returning ullong) +let tearDownSplitTransitionView self = msg_send ~self ~cmd:(selector "tearDownSplitTransitionView") ~typ:(returning void) +let textEditingKeyMask self = msg_send ~self ~cmd:(selector "textEditingKeyMask") ~typ:(returning ullong) +let touchCancelled x ~executionContext self = msg_send ~self ~cmd:(selector "touchCancelled:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let touchCancelled' x ~forResting ~executionContext self = msg_send ~self ~cmd:(selector "touchCancelled:forResting:executionContext:") ~typ:(id @-> bool @-> id @-> returning void) x forResting executionContext +let touchChanged x ~executionContext self = msg_send ~self ~cmd:(selector "touchChanged:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let touchDown x ~executionContext self = msg_send ~self ~cmd:(selector "touchDown:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let touchDownWithKey x ~withTouchInfo ~atPoint ~executionContext self = msg_send ~self ~cmd:(selector "touchDownWithKey:withTouchInfo:atPoint:executionContext:") ~typ:(id @-> id @-> CGPoint.t @-> id @-> returning void) x withTouchInfo atPoint executionContext +let touchDragged x self = msg_send ~self ~cmd:(selector "touchDragged:") ~typ:(id @-> returning void) x +let touchDragged' x ~executionContext self = msg_send ~self ~cmd:(selector "touchDragged:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let touchInfoForKey x self = msg_send ~self ~cmd:(selector "touchInfoForKey:") ~typ:(id @-> returning id) x +let touchMultitapTimer self = msg_send ~self ~cmd:(selector "touchMultitapTimer") ~typ:(returning void) +let touchPassesDragThreshold x self = msg_send ~self ~cmd:(selector "touchPassesDragThreshold:") ~typ:(id @-> returning bool) x +let touchUp x ~executionContext self = msg_send ~self ~cmd:(selector "touchUp:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let traitCollectionDidChange self = msg_send ~self ~cmd:(selector "traitCollectionDidChange") ~typ:(returning void) +let transitionToModalContinuousPathKeyplane self = msg_send ~self ~cmd:(selector "transitionToModalContinuousPathKeyplane") ~typ:(returning void) +let transitionToPunctuationKeysVisible x self = msg_send ~self ~cmd:(selector "transitionToPunctuationKeysVisible:") ~typ:(bool @-> returning void) x +let triggerSpaceKeyplaneSwitchIfNecessary self = msg_send ~self ~cmd:(selector "triggerSpaceKeyplaneSwitchIfNecessary") ~typ:(returning void) +let typingStyleEstimator x ~didChangeTypingStyleEstimate self = msg_send ~self ~cmd:(selector "typingStyleEstimator:didChangeTypingStyleEstimate:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int didChangeTypingStyleEstimate) +let uninstallGestureRecognizers self = msg_send ~self ~cmd:(selector "uninstallGestureRecognizers") ~typ:(returning void) +let unprocessedTouchEventsForTouchInfo x ~touchStage ~forcedKeyCode self = msg_send ~self ~cmd:(selector "unprocessedTouchEventsForTouchInfo:touchStage:forcedKeyCode:") ~typ:(id @-> int @-> int @-> returning id) x touchStage forcedKeyCode +let upActionFlagsForKey x self = msg_send ~self ~cmd:(selector "upActionFlagsForKey:") ~typ:(id @-> returning ullong) x +let upActionShift self = msg_send ~self ~cmd:(selector "upActionShift") ~typ:(returning void) +let updateAutolocalizedKeysForKeyplane x self = msg_send ~self ~cmd:(selector "updateAutolocalizedKeysForKeyplane:") ~typ:(id @-> returning void) x +let updateBackgroundCorners self = msg_send ~self ~cmd:(selector "updateBackgroundCorners") ~typ:(returning void) +let updateBackgroundIfNeeded self = msg_send ~self ~cmd:(selector "updateBackgroundIfNeeded") ~typ:(returning void) +let updateCachedKeyplaneKeycaps self = msg_send ~self ~cmd:(selector "updateCachedKeyplaneKeycaps") ~typ:(returning void) +let updateCurrencySymbolForKey x ~withCurrencyString self = msg_send ~self ~cmd:(selector "updateCurrencySymbolForKey:withCurrencyString:") ~typ:(id @-> id @-> returning void) x withCurrencyString +let updateGlobeKeyAndLayoutOriginBeforeSnapshotForInputView x self = msg_send ~self ~cmd:(selector "updateGlobeKeyAndLayoutOriginBeforeSnapshotForInputView:") ~typ:(id @-> returning void) x +let updateGlobeKeyDisplayString self = msg_send ~self ~cmd:(selector "updateGlobeKeyDisplayString") ~typ:(returning void) +let updateInputModeLocalizedKeysForKeyplane x self = msg_send ~self ~cmd:(selector "updateInputModeLocalizedKeysForKeyplane:") ~typ:(id @-> returning void) x +let updateKeyCentroids self = msg_send ~self ~cmd:(selector "updateKeyCentroids") ~typ:(returning void) +let updateKeyboardForKeyplane x self = msg_send ~self ~cmd:(selector "updateKeyboardForKeyplane:") ~typ:(id @-> returning void) x +let updateLayoutTags self = msg_send ~self ~cmd:(selector "updateLayoutTags") ~typ:(returning void) +let updateLocalizedDisplayStringOnEmojiInternationalWithKeyplane x ~withInputMode self = msg_send ~self ~cmd:(selector "updateLocalizedDisplayStringOnEmojiInternationalWithKeyplane:withInputMode:") ~typ:(id @-> id @-> returning void) x withInputMode +let updateLocalizedDisplayStringsForKeys x self = msg_send ~self ~cmd:(selector "updateLocalizedDisplayStringsForKeys:") ~typ:(id @-> returning void) x +let updateLocalizedKeys x self = msg_send ~self ~cmd:(selector "updateLocalizedKeys:") ~typ:(bool @-> returning void) x +let updateLocalizedKeysForKeyplane x ~updateAllKeyplanes self = msg_send ~self ~cmd:(selector "updateLocalizedKeysForKeyplane:updateAllKeyplanes:") ~typ:(id @-> bool @-> returning void) x updateAllKeyplanes +let updateLocalizedKeysOnKeyplane x self = msg_send ~self ~cmd:(selector "updateLocalizedKeysOnKeyplane:") ~typ:(id @-> returning void) x +let updateMoreAndInternationalKeys self = msg_send ~self ~cmd:(selector "updateMoreAndInternationalKeys") ~typ:(returning void) +let updatePanAlternativesForTouchInfo x self = msg_send ~self ~cmd:(selector "updatePanAlternativesForTouchInfo:") ~typ:(id @-> returning void) x +let updatePhysicalKeyboardEvent x ~withMarkedInput self = msg_send ~self ~cmd:(selector "updatePhysicalKeyboardEvent:withMarkedInput:") ~typ:(id @-> id @-> returning void) x withMarkedInput +let updateReturnKeysIfNeeded self = msg_send ~self ~cmd:(selector "updateReturnKeysIfNeeded") ~typ:(returning void) +let updateSelectedVariantIndexForKey x ~withActions ~withPoint self = msg_send ~self ~cmd:(selector "updateSelectedVariantIndexForKey:withActions:withPoint:") ~typ:(id @-> ullong @-> CGPoint.t @-> returning void) x (ULLong.of_int withActions) withPoint +let updateShiftKeyState self = msg_send ~self ~cmd:(selector "updateShiftKeyState") ~typ:(returning void) +let updateState x ~forKey self = msg_send ~self ~cmd:(selector "updateState:forKey:") ~typ:(int @-> id @-> returning void) x forKey +let updateTransitionWithFlags x self = msg_send ~self ~cmd:(selector "updateTransitionWithFlags:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let updateUndoKeyState self = msg_send ~self ~cmd:(selector "updateUndoKeyState") ~typ:(returning void) +let useDismissForMessagesWriteboard self = msg_send ~self ~cmd:(selector "useDismissForMessagesWriteboard") ~typ:(returning bool) +let useUndoForMessagesWriteboard self = msg_send ~self ~cmd:(selector "useUndoForMessagesWriteboard") ~typ:(returning bool) +let usesAutoShift self = msg_send ~self ~cmd:(selector "usesAutoShift") ~typ:(returning bool) +let visualStyleForKeyboardIfSplit x self = msg_send ~self ~cmd:(selector "visualStyleForKeyboardIfSplit:") ~typ:(bool @-> returning int) x +let willBeginIndirectSelectionGesture self = msg_send ~self ~cmd:(selector "willBeginIndirectSelectionGesture") ~typ:(returning void) +let willBeginIndirectSelectionGesture' x self = msg_send ~self ~cmd:(selector "willBeginIndirectSelectionGesture:") ~typ:(bool @-> returning void) x +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x +let willRotate self = msg_send ~self ~cmd:(selector "willRotate") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIKeyboardLayoutStarClass.ml b/uikit/UIKeyboardLayoutStarClass.ml new file mode 100644 index 00000000..cf9d3455 --- /dev/null +++ b/uikit/UIKeyboardLayoutStarClass.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardlayoutstar?language=objc}UIKeyboardLayoutStar} *) + +let accessibilitySensitivityChanged self = msg_send ~self ~cmd:(selector "accessibilitySensitivityChanged") ~typ:(returning void) +let keyboardFromFactoryWithName x ~screenTraits self = msg_send ~self ~cmd:(selector "keyboardFromFactoryWithName:screenTraits:") ~typ:(id @-> id @-> returning id) x screenTraits +let keyboardSizeForInputMode x ~screenTraits ~keyboardType self = msg_send ~self ~cmd:(selector "keyboardSizeForInputMode:screenTraits:keyboardType:") ~typ:(id @-> id @-> llong @-> returning CGSize.t) x screenTraits (LLong.of_int keyboardType) +let keyboardWithName x ~screenTraits self = msg_send ~self ~cmd:(selector "keyboardWithName:screenTraits:") ~typ:(id @-> id @-> returning id) x screenTraits +let sharedPunctuationCharacterSet self = msg_send ~self ~cmd:(selector "sharedPunctuationCharacterSet") ~typ:(returning id) +let sharedRivenKeyplaneGenerator self = msg_send ~self ~cmd:(selector "sharedRivenKeyplaneGenerator") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIKeyboardMediaServiceRemoteViewController.ml b/uikit/UIKeyboardMediaServiceRemoteViewController.ml deleted file mode 100644 index fbb7684a..00000000 --- a/uikit/UIKeyboardMediaServiceRemoteViewController.ml +++ /dev/null @@ -1,26 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIKeyboardMediaServiceRemoteViewController" - -module C = struct - let exportedInterface self = msg_send ~self ~cmd:(selector "exportedInterface") ~typ:(returning (id)) - let requestCardViewControllerWithConnectionHandler x self = msg_send ~self ~cmd:(selector "requestCardViewControllerWithConnectionHandler:") ~typ:(ptr void @-> returning (id)) x - let requestInlineViewControllerWithConnectionHandler x self = msg_send ~self ~cmd:(selector "requestInlineViewControllerWithConnectionHandler:") ~typ:(ptr void @-> returning (id)) x - let serviceViewControllerInterface self = msg_send ~self ~cmd:(selector "serviceViewControllerInterface") ~typ:(returning (id)) -end - -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let dismissCard self = msg_send ~self ~cmd:(selector "dismissCard") ~typ:(returning (void)) -let draggedStickerToPoint x self = msg_send ~self ~cmd:(selector "draggedStickerToPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let pasteImageAtFileHandle x self = msg_send ~self ~cmd:(selector "pasteImageAtFileHandle:") ~typ:(id @-> returning (void)) x -let presentCard self = msg_send ~self ~cmd:(selector "presentCard") ~typ:(returning (void)) -let requestInsertionPointCompletion x self = msg_send ~self ~cmd:(selector "requestInsertionPointCompletion:") ~typ:(ptr void @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let stageStickerWithFileHandle x ~url ~accessibilityLabel self = msg_send ~self ~cmd:(selector "stageStickerWithFileHandle:url:accessibilityLabel:") ~typ:(id @-> id @-> id @-> returning (void)) x url accessibilityLabel -let viewServiceDidTerminateWithError x self = msg_send ~self ~cmd:(selector "viewServiceDidTerminateWithError:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIKeyboardMenuView.ml b/uikit/UIKeyboardMenuView.ml index e4ce8a92..526a3353 100644 --- a/uikit/UIKeyboardMenuView.ml +++ b/uikit/UIKeyboardMenuView.ml @@ -5,101 +5,105 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardMenuView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardmenuview?language=objc}UIKeyboardMenuView} *) -let applicationWillSuspend x self = msg_send ~self ~cmd:(selector "applicationWillSuspend:") ~typ:(id @-> returning (void)) x -let autoscrollTimerFired x self = msg_send ~self ~cmd:(selector "autoscrollTimerFired:") ~typ:(id @-> returning (void)) x -let centerPopUpOverKey self = msg_send ~self ~cmd:(selector "centerPopUpOverKey") ~typ:(returning (bool)) -let clear self = msg_send ~self ~cmd:(selector "clear") ~typ:(returning (void)) -let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning (id)) -let customizeCell x ~forItemAtIndex self = msg_send ~self ~cmd:(selector "customizeCell:forItemAtIndex:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forItemAtIndex) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultSelectedIndex self = msg_send ~self ~cmd:(selector "defaultSelectedIndex") ~typ:(returning (ullong)) -let didSelectItemAtIndex x self = msg_send ~self ~cmd:(selector "didSelectItemAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let didShow self = msg_send ~self ~cmd:(selector "didShow") ~typ:(returning (void)) -let dimmingView self = msg_send ~self ~cmd:(selector "dimmingView") ~typ:(returning (id)) -let dimmingViewWasTapped x self = msg_send ~self ~cmd:(selector "dimmingViewWasTapped:") ~typ:(id @-> returning (void)) x -let endScrolling x self = msg_send ~self ~cmd:(selector "endScrolling:") ~typ:(id @-> returning (void)) x -let fade self = msg_send ~self ~cmd:(selector "fade") ~typ:(returning (void)) -let fadeWithDelay x self = msg_send ~self ~cmd:(selector "fadeWithDelay:") ~typ:(double @-> returning (void)) x -let fadeWithDelay' x ~forSelectionAtIndex self = msg_send ~self ~cmd:(selector "fadeWithDelay:forSelectionAtIndex:") ~typ:(double @-> ullong @-> returning (void)) x (ULLong.of_int forSelectionAtIndex) -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let fontForItemAtIndex x self = msg_send ~self ~cmd:(selector "fontForItemAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let hide self = msg_send ~self ~cmd:(selector "hide") ~typ:(returning (void)) -let highlightRow x self = msg_send ~self ~cmd:(selector "highlightRow:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let indexForSelectedFastSwitchMode self = msg_send ~self ~cmd:(selector "indexForSelectedFastSwitchMode") ~typ:(returning (llong)) -let indexForUnselectedFastSwitchMode self = msg_send ~self ~cmd:(selector "indexForUnselectedFastSwitchMode") ~typ:(returning (llong)) -let indexPathForInputSwitcherCellIncludingInteractiveInsetsAtPoint x self = msg_send ~self ~cmd:(selector "indexPathForInputSwitcherCellIncludingInteractiveInsetsAtPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning (id)) -let insertSelExtraView self = msg_send ~self ~cmd:(selector "insertSelExtraView") ~typ:(returning (void)) -let interactiveBounds self = msg_send_stret ~self ~cmd:(selector "interactiveBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let isVisible self = msg_send ~self ~cmd:(selector "isVisible") ~typ:(returning (bool)) -let launchedFromKeyboard self = msg_send ~self ~cmd:(selector "launchedFromKeyboard") ~typ:(returning (bool)) -let layout self = msg_send ~self ~cmd:(selector "layout") ~typ:(returning (id)) -let localizedTitleForItemAtIndex x self = msg_send ~self ~cmd:(selector "localizedTitleForItemAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let maskForShadowViewBlurredBackground self = msg_send ~self ~cmd:(selector "maskForShadowViewBlurredBackground") ~typ:(returning (id)) -let minYOfLastTableCellForSelectionExtraView self = msg_send ~self ~cmd:(selector "minYOfLastTableCellForSelectionExtraView") ~typ:(returning (double)) -let mode self = msg_send ~self ~cmd:(selector "mode") ~typ:(returning (llong)) -let numberOfItems self = msg_send ~self ~cmd:(selector "numberOfItems") ~typ:(returning (ullong)) -let performShowAnimation self = msg_send ~self ~cmd:(selector "performShowAnimation") ~typ:(returning (void)) -let popupRect self = msg_send_stret ~self ~cmd:(selector "popupRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let preferredSize self = msg_send_stret ~self ~cmd:(selector "preferredSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let referenceKey self = msg_send ~self ~cmd:(selector "referenceKey") ~typ:(returning (id)) -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let returnToKeyboardIfNeeded self = msg_send ~self ~cmd:(selector "returnToKeyboardIfNeeded") ~typ:(returning (void)) -let scrollViewDidScroll x self = msg_send ~self ~cmd:(selector "scrollViewDidScroll:") ~typ:(id @-> returning (void)) x -let selectItemAtPoint x self = msg_send ~self ~cmd:(selector "selectItemAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHighlightForRowAtIndexPath x ~highlight self = msg_send ~self ~cmd:(selector "setHighlightForRowAtIndexPath:highlight:") ~typ:(id @-> bool @-> returning (void)) x highlight -let setIndexForSelectedFastSwitchMode x self = msg_send ~self ~cmd:(selector "setIndexForSelectedFastSwitchMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setIndexForUnselectedFastSwitchMode x self = msg_send ~self ~cmd:(selector "setIndexForUnselectedFastSwitchMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setKeyboardDimmed x self = msg_send ~self ~cmd:(selector "setKeyboardDimmed:") ~typ:(bool @-> returning (void)) x -let setLayout x self = msg_send ~self ~cmd:(selector "setLayout:") ~typ:(id @-> returning (void)) x -let setMode x self = msg_send ~self ~cmd:(selector "setMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning (void)) -let setNeedsDisplayForCell x self = msg_send ~self ~cmd:(selector "setNeedsDisplayForCell:") ~typ:(id @-> returning (void)) x -let setNeedsDisplayForTopBottomCells self = msg_send ~self ~cmd:(selector "setNeedsDisplayForTopBottomCells") ~typ:(returning (void)) -let setReferenceKey x self = msg_send ~self ~cmd:(selector "setReferenceKey:") ~typ:(id @-> returning (void)) x -let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning (void)) x -let setShowingCapsLockSwitcher x self = msg_send ~self ~cmd:(selector "setShowingCapsLockSwitcher:") ~typ:(bool @-> returning (void)) x -let setUsesDarkTheme x self = msg_send ~self ~cmd:(selector "setUsesDarkTheme:") ~typ:(bool @-> returning (void)) x -let setUsesStraightLeftEdge x self = msg_send ~self ~cmd:(selector "setUsesStraightLeftEdge:") ~typ:(bool @-> returning (void)) x -let setupBackgroundKeyViewWithSize x self = msg_send ~self ~cmd:(selector "setupBackgroundKeyViewWithSize:") ~typ:(CGSize.t @-> returning (void)) x -let setupShadowViewWithSize x self = msg_send ~self ~cmd:(selector "setupShadowViewWithSize:") ~typ:(CGSize.t @-> returning (void)) x -let shouldSelectItemAtIndex x self = msg_send ~self ~cmd:(selector "shouldSelectItemAtIndex:") ~typ:(ullong @-> returning (bool)) (ULLong.of_int x) -let shouldShow self = msg_send ~self ~cmd:(selector "shouldShow") ~typ:(returning (bool)) -let shouldShowSelectionExtraViewForIndexPath x self = msg_send ~self ~cmd:(selector "shouldShowSelectionExtraViewForIndexPath:") ~typ:(id @-> returning (bool)) x -let show self = msg_send ~self ~cmd:(selector "show") ~typ:(returning (void)) -let showAsHUD self = msg_send ~self ~cmd:(selector "showAsHUD") ~typ:(returning (void)) -let showAsHUDFromLocation x ~withInputView ~touchBegan self = msg_send ~self ~cmd:(selector "showAsHUDFromLocation:withInputView:touchBegan:") ~typ:(CGPoint.t @-> id @-> double @-> returning (void)) x withInputView touchBegan -let showAsPopupForKey x ~inLayout self = msg_send ~self ~cmd:(selector "showAsPopupForKey:inLayout:") ~typ:(id @-> id @-> returning (void)) x inLayout -let showingCapsLockSwitcher self = msg_send ~self ~cmd:(selector "showingCapsLockSwitcher") ~typ:(returning (bool)) -let stopAnyAutoscrolling self = msg_send ~self ~cmd:(selector "stopAnyAutoscrolling") ~typ:(returning (void)) -let subtitleFont self = msg_send ~self ~cmd:(selector "subtitleFont") ~typ:(returning (id)) -let subtitleFontForItemAtIndex x self = msg_send ~self ~cmd:(selector "subtitleFontForItemAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let subtitleForItemAtIndex x self = msg_send ~self ~cmd:(selector "subtitleForItemAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let table self = msg_send ~self ~cmd:(selector "table") ~typ:(returning (id)) -let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didSelectRowAtIndexPath -let tableView2 x ~heightForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:heightForRowAtIndexPath:") ~typ:(id @-> id @-> returning (double)) x heightForRowAtIndexPath -let tableView3 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let tableView4 x ~willDeselectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willDeselectRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x willDeselectRowAtIndexPath -let tableView5 x ~willSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x willSelectRowAtIndexPath -let tableView6 x ~willDisplayCell ~forRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willDisplayCell:forRowAtIndexPath:") ~typ:(id @-> id @-> id @-> returning (void)) x willDisplayCell forRowAtIndexPath -let titleForItemAtIndex x self = msg_send ~self ~cmd:(selector "titleForItemAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let updateSelectionWithPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let usesDarkTheme self = msg_send ~self ~cmd:(selector "usesDarkTheme") ~typ:(returning (bool)) -let usesDeviceLanguageForItemAtIndex x self = msg_send ~self ~cmd:(selector "usesDeviceLanguageForItemAtIndex:") ~typ:(ullong @-> returning (bool)) (ULLong.of_int x) -let usesDimmingView self = msg_send ~self ~cmd:(selector "usesDimmingView") ~typ:(returning (bool)) -let usesShadowView self = msg_send ~self ~cmd:(selector "usesShadowView") ~typ:(returning (bool)) -let usesStraightLeftEdge self = msg_send ~self ~cmd:(selector "usesStraightLeftEdge") ~typ:(returning (bool)) -let usesTable self = msg_send ~self ~cmd:(selector "usesTable") ~typ:(returning (bool)) -let willFade self = msg_send ~self ~cmd:(selector "willFade") ~typ:(returning (void)) -let willFadeForSelectionAtIndex x self = msg_send ~self ~cmd:(selector "willFadeForSelectionAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let willShow self = msg_send ~self ~cmd:(selector "willShow") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIKeyboardMenuView" + +let applicationWillSuspend x self = msg_send ~self ~cmd:(selector "applicationWillSuspend:") ~typ:(id @-> returning void) x +let autoscrollTimerFired x self = msg_send ~self ~cmd:(selector "autoscrollTimerFired:") ~typ:(id @-> returning void) x +let centerPopUpOverKey self = msg_send ~self ~cmd:(selector "centerPopUpOverKey") ~typ:(returning bool) +let clear self = msg_send ~self ~cmd:(selector "clear") ~typ:(returning void) +let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning id) +let customizeCell x ~forItemAtIndex self = msg_send ~self ~cmd:(selector "customizeCell:forItemAtIndex:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forItemAtIndex) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultSelectedIndex self = msg_send ~self ~cmd:(selector "defaultSelectedIndex") ~typ:(returning ullong) +let didSelectItemAtIndex x self = msg_send ~self ~cmd:(selector "didSelectItemAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let didShow self = msg_send ~self ~cmd:(selector "didShow") ~typ:(returning void) +let dimmingView self = msg_send ~self ~cmd:(selector "dimmingView") ~typ:(returning id) +let dimmingViewWasTapped x self = msg_send ~self ~cmd:(selector "dimmingViewWasTapped:") ~typ:(id @-> returning void) x +let endScrolling x self = msg_send ~self ~cmd:(selector "endScrolling:") ~typ:(id @-> returning void) x +let fade self = msg_send ~self ~cmd:(selector "fade") ~typ:(returning void) +let fadeWithDelay x self = msg_send ~self ~cmd:(selector "fadeWithDelay:") ~typ:(double @-> returning void) x +let fadeWithDelay' x ~forSelectionAtIndex self = msg_send ~self ~cmd:(selector "fadeWithDelay:forSelectionAtIndex:") ~typ:(double @-> ullong @-> returning void) x (ULLong.of_int forSelectionAtIndex) +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let fontForItemAtIndex x self = msg_send ~self ~cmd:(selector "fontForItemAtIndex:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let hide self = msg_send ~self ~cmd:(selector "hide") ~typ:(returning void) +let highlightRow x self = msg_send ~self ~cmd:(selector "highlightRow:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let indexForSelectedFastSwitchMode self = msg_send ~self ~cmd:(selector "indexForSelectedFastSwitchMode") ~typ:(returning llong) +let indexForUnselectedFastSwitchMode self = msg_send ~self ~cmd:(selector "indexForUnselectedFastSwitchMode") ~typ:(returning llong) +let indexPathForInputSwitcherCellIncludingInteractiveInsetsAtPoint x self = msg_send ~self ~cmd:(selector "indexPathForInputSwitcherCellIncludingInteractiveInsetsAtPoint:") ~typ:(CGPoint.t @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning id) +let insertSelExtraView self = msg_send ~self ~cmd:(selector "insertSelExtraView") ~typ:(returning void) +let interactiveBounds self = msg_send ~self ~cmd:(selector "interactiveBounds") ~typ:(returning CGRect.t) +let isVisible self = msg_send ~self ~cmd:(selector "isVisible") ~typ:(returning bool) +let launchedFromKeyboard self = msg_send ~self ~cmd:(selector "launchedFromKeyboard") ~typ:(returning bool) +let layout self = msg_send ~self ~cmd:(selector "layout") ~typ:(returning id) +let localizedTitleForItemAtIndex x self = msg_send ~self ~cmd:(selector "localizedTitleForItemAtIndex:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let maskForShadowViewBlurredBackground self = msg_send ~self ~cmd:(selector "maskForShadowViewBlurredBackground") ~typ:(returning id) +let minYOfLastTableCellForSelectionExtraView self = msg_send ~self ~cmd:(selector "minYOfLastTableCellForSelectionExtraView") ~typ:(returning double) +let mode self = msg_send ~self ~cmd:(selector "mode") ~typ:(returning llong) +let numberOfItems self = msg_send ~self ~cmd:(selector "numberOfItems") ~typ:(returning ullong) +let performShowAnimation self = msg_send ~self ~cmd:(selector "performShowAnimation") ~typ:(returning void) +let popupRect self = msg_send ~self ~cmd:(selector "popupRect") ~typ:(returning CGRect.t) +let preferredSize self = msg_send ~self ~cmd:(selector "preferredSize") ~typ:(returning CGSize.t) +let referenceKey self = msg_send ~self ~cmd:(selector "referenceKey") ~typ:(returning id) +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let returnToKeyboardIfNeeded self = msg_send ~self ~cmd:(selector "returnToKeyboardIfNeeded") ~typ:(returning void) +let scrollViewDidScroll x self = msg_send ~self ~cmd:(selector "scrollViewDidScroll:") ~typ:(id @-> returning void) x +let selectItemAtPoint x self = msg_send ~self ~cmd:(selector "selectItemAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHighlightForRowAtIndexPath x ~highlight self = msg_send ~self ~cmd:(selector "setHighlightForRowAtIndexPath:highlight:") ~typ:(id @-> bool @-> returning void) x highlight +let setIndexForSelectedFastSwitchMode x self = msg_send ~self ~cmd:(selector "setIndexForSelectedFastSwitchMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setIndexForUnselectedFastSwitchMode x self = msg_send ~self ~cmd:(selector "setIndexForUnselectedFastSwitchMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setKeyboardDimmed x self = msg_send ~self ~cmd:(selector "setKeyboardDimmed:") ~typ:(bool @-> returning void) x +let setLayout x self = msg_send ~self ~cmd:(selector "setLayout:") ~typ:(id @-> returning void) x +let setMode x self = msg_send ~self ~cmd:(selector "setMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning void) +let setNeedsDisplayForCell x self = msg_send ~self ~cmd:(selector "setNeedsDisplayForCell:") ~typ:(id @-> returning void) x +let setNeedsDisplayForTopBottomCells self = msg_send ~self ~cmd:(selector "setNeedsDisplayForTopBottomCells") ~typ:(returning void) +let setReferenceKey x self = msg_send ~self ~cmd:(selector "setReferenceKey:") ~typ:(id @-> returning void) x +let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning void) x +let setShowingCapsLockSwitcher x self = msg_send ~self ~cmd:(selector "setShowingCapsLockSwitcher:") ~typ:(bool @-> returning void) x +let setUsesDarkTheme x self = msg_send ~self ~cmd:(selector "setUsesDarkTheme:") ~typ:(bool @-> returning void) x +let setUsesStraightLeftEdge x self = msg_send ~self ~cmd:(selector "setUsesStraightLeftEdge:") ~typ:(bool @-> returning void) x +let setupBackgroundKeyViewWithSize x self = msg_send ~self ~cmd:(selector "setupBackgroundKeyViewWithSize:") ~typ:(CGSize.t @-> returning void) x +let setupShadowViewWithSize x self = msg_send ~self ~cmd:(selector "setupShadowViewWithSize:") ~typ:(CGSize.t @-> returning void) x +let shouldSelectItemAtIndex x self = msg_send ~self ~cmd:(selector "shouldSelectItemAtIndex:") ~typ:(ullong @-> returning bool) (ULLong.of_int x) +let shouldShow self = msg_send ~self ~cmd:(selector "shouldShow") ~typ:(returning bool) +let shouldShowSelectionExtraViewForIndexPath x self = msg_send ~self ~cmd:(selector "shouldShowSelectionExtraViewForIndexPath:") ~typ:(id @-> returning bool) x +let show self = msg_send ~self ~cmd:(selector "show") ~typ:(returning void) +let showAsHUD self = msg_send ~self ~cmd:(selector "showAsHUD") ~typ:(returning void) +let showAsHUDFromLocation x ~withInputView ~touchBegan self = msg_send ~self ~cmd:(selector "showAsHUDFromLocation:withInputView:touchBegan:") ~typ:(CGPoint.t @-> id @-> double @-> returning void) x withInputView touchBegan +let showAsPopupForKey x ~inLayout self = msg_send ~self ~cmd:(selector "showAsPopupForKey:inLayout:") ~typ:(id @-> id @-> returning void) x inLayout +let showingCapsLockSwitcher self = msg_send ~self ~cmd:(selector "showingCapsLockSwitcher") ~typ:(returning bool) +let stopAnyAutoscrolling self = msg_send ~self ~cmd:(selector "stopAnyAutoscrolling") ~typ:(returning void) +let subtitleFont self = msg_send ~self ~cmd:(selector "subtitleFont") ~typ:(returning id) +let subtitleFontForItemAtIndex x self = msg_send ~self ~cmd:(selector "subtitleFontForItemAtIndex:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let subtitleForItemAtIndex x self = msg_send ~self ~cmd:(selector "subtitleForItemAtIndex:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let table self = msg_send ~self ~cmd:(selector "table") ~typ:(returning id) +let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x didSelectRowAtIndexPath +let tableView2 x ~heightForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:heightForRowAtIndexPath:") ~typ:(id @-> id @-> returning double) x heightForRowAtIndexPath +let tableView3 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let tableView4 x ~willDeselectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willDeselectRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x willDeselectRowAtIndexPath +let tableView5 x ~willSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x willSelectRowAtIndexPath +let tableView6 x ~willDisplayCell ~forRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willDisplayCell:forRowAtIndexPath:") ~typ:(id @-> id @-> id @-> returning void) x willDisplayCell forRowAtIndexPath +let titleForItemAtIndex x self = msg_send ~self ~cmd:(selector "titleForItemAtIndex:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let updateSelectionWithPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithPoint:") ~typ:(CGPoint.t @-> returning void) x +let usesDarkTheme self = msg_send ~self ~cmd:(selector "usesDarkTheme") ~typ:(returning bool) +let usesDeviceLanguageForItemAtIndex x self = msg_send ~self ~cmd:(selector "usesDeviceLanguageForItemAtIndex:") ~typ:(ullong @-> returning bool) (ULLong.of_int x) +let usesDimmingView self = msg_send ~self ~cmd:(selector "usesDimmingView") ~typ:(returning bool) +let usesShadowView self = msg_send ~self ~cmd:(selector "usesShadowView") ~typ:(returning bool) +let usesStraightLeftEdge self = msg_send ~self ~cmd:(selector "usesStraightLeftEdge") ~typ:(returning bool) +let usesTable self = msg_send ~self ~cmd:(selector "usesTable") ~typ:(returning bool) +let willFade self = msg_send ~self ~cmd:(selector "willFade") ~typ:(returning void) +let willFadeForSelectionAtIndex x self = msg_send ~self ~cmd:(selector "willFadeForSelectionAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let willShow self = msg_send ~self ~cmd:(selector "willShow") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIKeyboardMotionSupport.ml b/uikit/UIKeyboardMotionSupport.ml index 3c6afcf1..ea3ee31e 100644 --- a/uikit/UIKeyboardMotionSupport.ml +++ b/uikit/UIKeyboardMotionSupport.ml @@ -5,17 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardMotionSupport" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardmotionsupport?language=objc}UIKeyboardMotionSupport} *) -module C = struct - let supportForScreen x self = msg_send ~self ~cmd:(selector "supportForScreen:") ~typ:(id @-> returning (id)) x - let supportForUIScene x self = msg_send ~self ~cmd:(selector "supportForUIScene:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIKeyboardMotionSupport" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let generateSplitNotificationForNewPlacement x self = msg_send ~self ~cmd:(selector "generateSplitNotificationForNewPlacement:") ~typ:(id @-> returning (bool)) x -let masterController self = msg_send ~self ~cmd:(selector "masterController") ~typ:(returning (id)) -let setMasterController x self = msg_send ~self ~cmd:(selector "setMasterController:") ~typ:(id @-> returning (void)) x -let translateToPlacement x ~animated self = msg_send ~self ~cmd:(selector "translateToPlacement:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let translateToPlacement' x ~quietly ~animated self = msg_send ~self ~cmd:(selector "translateToPlacement:quietly:animated:") ~typ:(id @-> bool @-> bool @-> returning (void)) x quietly animated \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let generateSplitNotificationForNewPlacement x self = msg_send ~self ~cmd:(selector "generateSplitNotificationForNewPlacement:") ~typ:(id @-> returning bool) x +let masterController self = msg_send ~self ~cmd:(selector "masterController") ~typ:(returning id) +let setMasterController x self = msg_send ~self ~cmd:(selector "setMasterController:") ~typ:(id @-> returning void) x +let translateToPlacement x ~animated self = msg_send ~self ~cmd:(selector "translateToPlacement:animated:") ~typ:(id @-> bool @-> returning void) x animated +let translateToPlacement' x ~quietly ~animated self = msg_send ~self ~cmd:(selector "translateToPlacement:quietly:animated:") ~typ:(id @-> bool @-> bool @-> returning void) x quietly animated \ No newline at end of file diff --git a/uikit/UIKeyboardMotionSupportClass.ml b/uikit/UIKeyboardMotionSupportClass.ml new file mode 100644 index 00000000..fd4595af --- /dev/null +++ b/uikit/UIKeyboardMotionSupportClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardmotionsupport?language=objc}UIKeyboardMotionSupport} *) + +let supportForScreen x self = msg_send ~self ~cmd:(selector "supportForScreen:") ~typ:(id @-> returning id) x +let supportForUIScene x self = msg_send ~self ~cmd:(selector "supportForUIScene:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIKeyboardPathEffectView.ml b/uikit/UIKeyboardPathEffectView.ml index 6e24f74f..4c429757 100644 --- a/uikit/UIKeyboardPathEffectView.ml +++ b/uikit/UIKeyboardPathEffectView.ml @@ -5,29 +5,32 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardPathEffectView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardpatheffectview?language=objc}UIKeyboardPathEffectView} *) -let accessibilityValueChanged x self = msg_send ~self ~cmd:(selector "accessibilityValueChanged:") ~typ:(id @-> returning (void)) x -let addPoint x ~force ~timestamp self = msg_send ~self ~cmd:(selector "addPoint:force:timestamp:") ~typ:(CGPoint.t @-> double @-> double @-> returning (void)) x force timestamp -let buildOut self = msg_send ~self ~cmd:(selector "buildOut") ~typ:(returning (void)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let done_ self = msg_send ~self ~cmd:(selector "done") ~typ:(returning (bool)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let increasedContrastEnabled self = msg_send ~self ~cmd:(selector "increasedContrastEnabled") ~typ:(returning (bool)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let keyboardAppearance self = msg_send ~self ~cmd:(selector "keyboardAppearance") ~typ:(returning (llong)) -let paths self = msg_send ~self ~cmd:(selector "paths") ~typ:(returning (id)) -let pointDecayDisplayLink self = msg_send ~self ~cmd:(selector "pointDecayDisplayLink") ~typ:(returning (id)) -let pointDecayQueue self = msg_send ~self ~cmd:(selector "pointDecayQueue") ~typ:(returning (id)) -let pointInterpolator self = msg_send ~self ~cmd:(selector "pointInterpolator") ~typ:(returning (id)) -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let setDone x self = msg_send ~self ~cmd:(selector "setDone:") ~typ:(bool @-> returning (void)) x -let setIncreasedContrastEnabled x self = msg_send ~self ~cmd:(selector "setIncreasedContrastEnabled:") ~typ:(bool @-> returning (void)) x -let setPaths x self = msg_send ~self ~cmd:(selector "setPaths:") ~typ:(id @-> returning (void)) x -let setPointDecayDisplayLink x self = msg_send ~self ~cmd:(selector "setPointDecayDisplayLink:") ~typ:(id @-> returning (void)) x -let setPointDecayQueue x self = msg_send ~self ~cmd:(selector "setPointDecayQueue:") ~typ:(id @-> returning (void)) x -let setPointInterpolator x self = msg_send ~self ~cmd:(selector "setPointInterpolator:") ~typ:(id @-> returning (void)) x -let setStartTime x self = msg_send ~self ~cmd:(selector "setStartTime:") ~typ:(double @-> returning (void)) x -let startTime self = msg_send ~self ~cmd:(selector "startTime") ~typ:(returning (double)) -let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning (int)) \ No newline at end of file +let self = get_class "UIKeyboardPathEffectView" + +let accessibilityValueChanged x self = msg_send ~self ~cmd:(selector "accessibilityValueChanged:") ~typ:(id @-> returning void) x +let buildOut self = msg_send ~self ~cmd:(selector "buildOut") ~typ:(returning void) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let done_ self = msg_send ~self ~cmd:(selector "done") ~typ:(returning bool) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let increasedContrastEnabled self = msg_send ~self ~cmd:(selector "increasedContrastEnabled") ~typ:(returning bool) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let keyboardAppearance self = msg_send ~self ~cmd:(selector "keyboardAppearance") ~typ:(returning llong) +let paths self = msg_send ~self ~cmd:(selector "paths") ~typ:(returning id) +let pointDecayDisplayLink self = msg_send ~self ~cmd:(selector "pointDecayDisplayLink") ~typ:(returning id) +let pointDecayQueue self = msg_send ~self ~cmd:(selector "pointDecayQueue") ~typ:(returning id) +let pointInterpolator self = msg_send ~self ~cmd:(selector "pointInterpolator") ~typ:(returning id) +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let setDone x self = msg_send ~self ~cmd:(selector "setDone:") ~typ:(bool @-> returning void) x +let setIncreasedContrastEnabled x self = msg_send ~self ~cmd:(selector "setIncreasedContrastEnabled:") ~typ:(bool @-> returning void) x +let setPaths x self = msg_send ~self ~cmd:(selector "setPaths:") ~typ:(id @-> returning void) x +let setPointDecayDisplayLink x self = msg_send ~self ~cmd:(selector "setPointDecayDisplayLink:") ~typ:(id @-> returning void) x +let setPointDecayQueue x self = msg_send ~self ~cmd:(selector "setPointDecayQueue:") ~typ:(id @-> returning void) x +let setPointInterpolator x self = msg_send ~self ~cmd:(selector "setPointInterpolator:") ~typ:(id @-> returning void) x +let setStartTime x self = msg_send ~self ~cmd:(selector "setStartTime:") ~typ:(double @-> returning void) x +let startTime self = msg_send ~self ~cmd:(selector "startTime") ~typ:(returning double) +let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning int) \ No newline at end of file diff --git a/uikit/UIKeyboardPinchGestureRecognizer.ml b/uikit/UIKeyboardPinchGestureRecognizer.ml index c13209ed..fd1d0ef2 100644 --- a/uikit/UIKeyboardPinchGestureRecognizer.ml +++ b/uikit/UIKeyboardPinchGestureRecognizer.ml @@ -5,22 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardPinchGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardpinchgesturerecognizer?language=objc}UIKeyboardPinchGestureRecognizer} *) -let canBePreventedByGestureRecognizer x self = msg_send ~self ~cmd:(selector "canBePreventedByGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let finalProgressForInitialProgress x self = msg_send ~self ~cmd:(selector "finalProgressForInitialProgress:") ~typ:(double @-> returning (double)) x -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let initialPinchSeparation self = msg_send ~self ~cmd:(selector "initialPinchSeparation") ~typ:(returning (double)) -let interpretTouchesForSplit self = msg_send ~self ~cmd:(selector "interpretTouchesForSplit") ~typ:(returning (void)) -let pinchDelegate self = msg_send ~self ~cmd:(selector "pinchDelegate") ~typ:(returning (id)) -let pinchDetected self = msg_send ~self ~cmd:(selector "pinchDetected") ~typ:(returning (bool)) -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let resetPinchCalculations self = msg_send ~self ~cmd:(selector "resetPinchCalculations") ~typ:(returning (void)) -let setPinchDelegate x self = msg_send ~self ~cmd:(selector "setPinchDelegate:") ~typ:(id @-> returning (void)) x -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let self = get_class "UIKeyboardPinchGestureRecognizer" + +let canBePreventedByGestureRecognizer x self = msg_send ~self ~cmd:(selector "canBePreventedByGestureRecognizer:") ~typ:(id @-> returning bool) x +let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning bool) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let finalProgressForInitialProgress x self = msg_send ~self ~cmd:(selector "finalProgressForInitialProgress:") ~typ:(double @-> returning double) x +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let initialPinchSeparation self = msg_send ~self ~cmd:(selector "initialPinchSeparation") ~typ:(returning double) +let interpretTouchesForSplit self = msg_send ~self ~cmd:(selector "interpretTouchesForSplit") ~typ:(returning void) +let pinchDelegate self = msg_send ~self ~cmd:(selector "pinchDelegate") ~typ:(returning id) +let pinchDetected self = msg_send ~self ~cmd:(selector "pinchDetected") ~typ:(returning bool) +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let resetPinchCalculations self = msg_send ~self ~cmd:(selector "resetPinchCalculations") ~typ:(returning void) +let setPinchDelegate x self = msg_send ~self ~cmd:(selector "setPinchDelegate:") ~typ:(id @-> returning void) x +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UIKeyboardPopoverContainer.ml b/uikit/UIKeyboardPopoverContainer.ml index 1a864b5e..316a8707 100644 --- a/uikit/UIKeyboardPopoverContainer.ml +++ b/uikit/UIKeyboardPopoverContainer.ml @@ -5,33 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardPopoverContainer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardpopovercontainer?language=objc}UIKeyboardPopoverContainer} *) -module C = struct - let arrowHeight self = msg_send ~self ~cmd:(selector "arrowHeight") ~typ:(returning (double)) - let borderColor self = msg_send ~self ~cmd:(selector "borderColor") ~typ:(returning (id)) - let borderWidth self = msg_send ~self ~cmd:(selector "borderWidth") ~typ:(returning (double)) - let cornerRadius self = msg_send ~self ~cmd:(selector "cornerRadius") ~typ:(returning (double)) - let dragAreaHeight self = msg_send ~self ~cmd:(selector "dragAreaHeight") ~typ:(returning (double)) - let edgeOffset self = msg_send ~self ~cmd:(selector "edgeOffset") ~typ:(returning (double)) - let extraWidth self = msg_send ~self ~cmd:(selector "extraWidth") ~typ:(returning (double)) - let frameAtOffset x ~keyboardSize ~screenSize self = msg_send_stret ~self ~cmd:(selector "frameAtOffset:keyboardSize:screenSize:") ~typ:(CGPoint.t @-> CGSize.t @-> CGSize.t @-> returning (CGRect.t)) ~return_type:CGRect.t x keyboardSize screenSize - let pillColor self = msg_send ~self ~cmd:(selector "pillColor") ~typ:(returning (id)) - let pillCornerRadius self = msg_send ~self ~cmd:(selector "pillCornerRadius") ~typ:(returning (double)) - let pillDistanceToEdge self = msg_send ~self ~cmd:(selector "pillDistanceToEdge") ~typ:(returning (double)) - let pillSize self = msg_send_stret ~self ~cmd:(selector "pillSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t - let propertiesForSpecificKeyboardFrame x ~onScreenSize self = msg_send ~self ~cmd:(selector "propertiesForSpecificKeyboardFrame:onScreenSize:") ~typ:(CGRect.t @-> CGSize.t @-> returning (id)) x onScreenSize - let propertiesForTargetRect x ~withHeight ~onScreenSize self = msg_send ~self ~cmd:(selector "propertiesForTargetRect:withHeight:onScreenSize:") ~typ:(CGRect.t @-> double @-> CGSize.t @-> returning (id)) x withHeight onScreenSize - let shadowColor self = msg_send ~self ~cmd:(selector "shadowColor") ~typ:(returning (id)) - let shadowOffset self = msg_send_stret ~self ~cmd:(selector "shadowOffset") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t - let shadowOpacity self = msg_send ~self ~cmd:(selector "shadowOpacity") ~typ:(returning (double)) - let shadowRadius self = msg_send ~self ~cmd:(selector "shadowRadius") ~typ:(returning (double)) -end +let self = get_class "UIKeyboardPopoverContainer" -let affordance self = msg_send ~self ~cmd:(selector "affordance") ~typ:(returning (id)) -let applyProperties x self = msg_send ~self ~cmd:(selector "applyProperties:") ~typ:(id @-> returning (void)) x -let frame self = msg_send_stret ~self ~cmd:(selector "frame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let initWithView x ~usingBackdropStyle self = msg_send ~self ~cmd:(selector "initWithView:usingBackdropStyle:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int usingBackdropStyle) -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let updateBackdropStyle x self = msg_send ~self ~cmd:(selector "updateBackdropStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file +let affordance self = msg_send ~self ~cmd:(selector "affordance") ~typ:(returning id) +let applyProperties x self = msg_send ~self ~cmd:(selector "applyProperties:") ~typ:(id @-> returning void) x +let frame self = msg_send ~self ~cmd:(selector "frame") ~typ:(returning CGRect.t) +let initWithView x ~usingBackdropStyle self = msg_send ~self ~cmd:(selector "initWithView:usingBackdropStyle:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int usingBackdropStyle) +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let updateBackdropStyle x self = msg_send ~self ~cmd:(selector "updateBackdropStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIKeyboardPopoverContainerClass.ml b/uikit/UIKeyboardPopoverContainerClass.ml new file mode 100644 index 00000000..9c8e08fc --- /dev/null +++ b/uikit/UIKeyboardPopoverContainerClass.ml @@ -0,0 +1,31 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardpopovercontainer?language=objc}UIKeyboardPopoverContainer} *) + +let arrowHeight self = msg_send ~self ~cmd:(selector "arrowHeight") ~typ:(returning double) +let borderColor self = msg_send ~self ~cmd:(selector "borderColor") ~typ:(returning id) +let borderWidth self = msg_send ~self ~cmd:(selector "borderWidth") ~typ:(returning double) +let contentInsets self = msg_send ~self ~cmd:(selector "contentInsets") ~typ:(returning UIEdgeInsets.t) +let cornerRadius self = msg_send ~self ~cmd:(selector "cornerRadius") ~typ:(returning double) +let dragAreaHeight self = msg_send ~self ~cmd:(selector "dragAreaHeight") ~typ:(returning double) +let edgeOffset self = msg_send ~self ~cmd:(selector "edgeOffset") ~typ:(returning double) +let extraWidth self = msg_send ~self ~cmd:(selector "extraWidth") ~typ:(returning double) +let frameAtOffset x ~keyboardSize ~screenSize self = msg_send ~self ~cmd:(selector "frameAtOffset:keyboardSize:screenSize:") ~typ:(CGPoint.t @-> CGSize.t @-> CGSize.t @-> returning CGRect.t) x keyboardSize screenSize +let pillColor self = msg_send ~self ~cmd:(selector "pillColor") ~typ:(returning id) +let pillCornerRadius self = msg_send ~self ~cmd:(selector "pillCornerRadius") ~typ:(returning double) +let pillDistanceToEdge self = msg_send ~self ~cmd:(selector "pillDistanceToEdge") ~typ:(returning double) +let pillSize self = msg_send ~self ~cmd:(selector "pillSize") ~typ:(returning CGSize.t) +let propertiesForSpecificKeyboardFrame x ~onScreenSize self = msg_send ~self ~cmd:(selector "propertiesForSpecificKeyboardFrame:onScreenSize:") ~typ:(CGRect.t @-> CGSize.t @-> returning id) x onScreenSize +let propertiesForTargetRect x ~withHeight ~onScreenSize self = msg_send ~self ~cmd:(selector "propertiesForTargetRect:withHeight:onScreenSize:") ~typ:(CGRect.t @-> double @-> CGSize.t @-> returning id) x withHeight onScreenSize +let shadowColor self = msg_send ~self ~cmd:(selector "shadowColor") ~typ:(returning id) +let shadowOffset self = msg_send ~self ~cmd:(selector "shadowOffset") ~typ:(returning CGSize.t) +let shadowOpacity self = msg_send ~self ~cmd:(selector "shadowOpacity") ~typ:(returning double) +let shadowRadius self = msg_send ~self ~cmd:(selector "shadowRadius") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIKeyboardPopoverController.ml b/uikit/UIKeyboardPopoverController.ml index e5834036..65203b90 100644 --- a/uikit/UIKeyboardPopoverController.ml +++ b/uikit/UIKeyboardPopoverController.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardPopoverController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardpopovercontroller?language=objc}UIKeyboardPopoverController} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let handleHardwareKeyboardEvent x self = msg_send ~self ~cmd:(selector "handleHardwareKeyboardEvent:") ~typ:(id @-> returning (bool)) x -let initWithInputModeIdentifier x ~textInputTraits ~taskQueue self = msg_send ~self ~cmd:(selector "initWithInputModeIdentifier:textInputTraits:taskQueue:") ~typ:(id @-> id @-> id @-> returning (id)) x textInputTraits taskQueue -let inputModeIdentifier self = msg_send ~self ~cmd:(selector "inputModeIdentifier") ~typ:(returning (id)) -let keyboardLayout x ~didSwitchToKeyplane self = msg_send ~self ~cmd:(selector "keyboardLayout:didSwitchToKeyplane:") ~typ:(id @-> id @-> returning (void)) x didSwitchToKeyplane -let keyboardLayout1 x ~willChangeRenderConfig self = msg_send ~self ~cmd:(selector "keyboardLayout:willChangeRenderConfig:") ~typ:(id @-> id @-> returning (id)) x willChangeRenderConfig -let keyboardLayout2 x ~containingViewForActiveKey ~inKeyplaneView self = msg_send ~self ~cmd:(selector "keyboardLayout:containingViewForActiveKey:inKeyplaneView:") ~typ:(id @-> id @-> id @-> returning (id)) x containingViewForActiveKey inKeyplaneView -let layout self = msg_send ~self ~cmd:(selector "layout") ~typ:(returning (id)) -let overrideUserInterfaceStyle self = msg_send ~self ~cmd:(selector "overrideUserInterfaceStyle") ~typ:(returning (llong)) -let preferredContentSize self = msg_send_stret ~self ~cmd:(selector "preferredContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let preferredTextFieldHeight self = msg_send ~self ~cmd:(selector "preferredTextFieldHeight") ~typ:(returning (double)) -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKeyboardPopoverController" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let handleHardwareKeyboardEvent x self = msg_send ~self ~cmd:(selector "handleHardwareKeyboardEvent:") ~typ:(id @-> returning bool) x +let initWithInputModeIdentifier x ~textInputTraits ~taskQueue self = msg_send ~self ~cmd:(selector "initWithInputModeIdentifier:textInputTraits:taskQueue:") ~typ:(id @-> id @-> id @-> returning id) x textInputTraits taskQueue +let inputModeIdentifier self = msg_send ~self ~cmd:(selector "inputModeIdentifier") ~typ:(returning id) +let keyboardLayout x ~didSwitchToKeyplane self = msg_send ~self ~cmd:(selector "keyboardLayout:didSwitchToKeyplane:") ~typ:(id @-> id @-> returning void) x didSwitchToKeyplane +let keyboardLayout1 x ~willChangeRenderConfig self = msg_send ~self ~cmd:(selector "keyboardLayout:willChangeRenderConfig:") ~typ:(id @-> id @-> returning id) x willChangeRenderConfig +let keyboardLayout2 x ~containingViewForActiveKey ~inKeyplaneView self = msg_send ~self ~cmd:(selector "keyboardLayout:containingViewForActiveKey:inKeyplaneView:") ~typ:(id @-> id @-> id @-> returning id) x containingViewForActiveKey inKeyplaneView +let layout self = msg_send ~self ~cmd:(selector "layout") ~typ:(returning id) +let overrideUserInterfaceStyle self = msg_send ~self ~cmd:(selector "overrideUserInterfaceStyle") ~typ:(returning llong) +let preferredContentSize self = msg_send ~self ~cmd:(selector "preferredContentSize") ~typ:(returning CGSize.t) +let preferredTextFieldHeight self = msg_send ~self ~cmd:(selector "preferredTextFieldHeight") ~typ:(returning double) +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardPreferencesController.ml b/uikit/UIKeyboardPreferencesController.ml index a8f3b041..2cecb00f 100644 --- a/uikit/UIKeyboardPreferencesController.ml +++ b/uikit/UIKeyboardPreferencesController.ml @@ -5,46 +5,46 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardPreferencesController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardpreferencescontroller?language=objc}UIKeyboardPreferencesController} *) -module C = struct - let sharedPreferencesController self = msg_send ~self ~cmd:(selector "sharedPreferencesController") ~typ:(returning (id)) -end +let self = get_class "UIKeyboardPreferencesController" -let allEnabledInputModesAreValid self = msg_send ~self ~cmd:(selector "allEnabledInputModesAreValid") ~typ:(returning (bool)) -let boolForKey x self = msg_send ~self ~cmd:(selector "boolForKey:") ~typ:(int @-> returning (bool)) x -let boolForPreferenceKey x self = msg_send ~self ~cmd:(selector "boolForPreferenceKey:") ~typ:(id @-> returning (bool)) x -let compactAssistantBarPersistentLocation self = msg_send ~self ~cmd:(selector "compactAssistantBarPersistentLocation") ~typ:(returning (llong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultGlobeAsEmojiKeySetting self = msg_send ~self ~cmd:(selector "defaultGlobeAsEmojiKeySetting") ~typ:(returning (bool)) -let enableProKeyboard self = msg_send ~self ~cmd:(selector "enableProKeyboard") ~typ:(returning (bool)) -let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning (void)) x -let handBias self = msg_send ~self ~cmd:(selector "handBias") ~typ:(returning (llong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isFirstReachableKeyboardInteraction self = msg_send ~self ~cmd:(selector "isFirstReachableKeyboardInteraction") ~typ:(returning (bool)) -let isPasswordAutoFillAllowed self = msg_send ~self ~cmd:(selector "isPasswordAutoFillAllowed") ~typ:(returning (bool)) -let isPreferenceKeyLockedDown x self = msg_send ~self ~cmd:(selector "isPreferenceKeyLockedDown:") ~typ:(id @-> returning (bool)) x -let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning (id)) x -let performedFirstReachableKeyboardInteraction self = msg_send ~self ~cmd:(selector "performedFirstReachableKeyboardInteraction") ~typ:(returning (void)) -let preferencesActions self = msg_send ~self ~cmd:(selector "preferencesActions") ~typ:(returning (id)) -let preferencesControllerChanged x self = msg_send ~self ~cmd:(selector "preferencesControllerChanged:") ~typ:(id @-> returning (void)) x -let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning (bool)) x -let rivenSizeFactor x self = msg_send ~self ~cmd:(selector "rivenSizeFactor:") ~typ:(double @-> returning (double)) x -let saveInputModes x self = msg_send ~self ~cmd:(selector "saveInputModes:") ~typ:(id @-> returning (void)) x -let setCompactAssistantBarPersistentLocation x self = msg_send ~self ~cmd:(selector "setCompactAssistantBarPersistentLocation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setEnableProKeyboard x self = msg_send ~self ~cmd:(selector "setEnableProKeyboard:") ~typ:(bool @-> returning (void)) x -let setEnabledDictationLanguages x self = msg_send ~self ~cmd:(selector "setEnabledDictationLanguages:") ~typ:(id @-> returning (void)) x -let setHandBias x self = msg_send ~self ~cmd:(selector "setHandBias:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setLanguageAwareInputModeLastUsed x self = msg_send ~self ~cmd:(selector "setLanguageAwareInputModeLastUsed:") ~typ:(id @-> returning (void)) x -let setLastUsedDictationLanguages x self = msg_send ~self ~cmd:(selector "setLastUsedDictationLanguages:") ~typ:(id @-> returning (void)) x -let setValue x ~forKey self = msg_send ~self ~cmd:(selector "setValue:forKey:") ~typ:(id @-> int @-> returning (void)) x forKey -let setValue' x ~forPreferenceKey self = msg_send ~self ~cmd:(selector "setValue:forPreferenceKey:") ~typ:(id @-> id @-> returning (void)) x forPreferenceKey -let setVisceral x self = msg_send ~self ~cmd:(selector "setVisceral:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let spaceConfirmationEnabled self = msg_send ~self ~cmd:(selector "spaceConfirmationEnabled") ~typ:(returning (bool)) -let synchronizePreferences self = msg_send ~self ~cmd:(selector "synchronizePreferences") ~typ:(returning (void)) -let touchSynchronizePreferencesTimer self = msg_send ~self ~cmd:(selector "touchSynchronizePreferencesTimer") ~typ:(returning (void)) -let useHardwareGlobeKeyAsEmojiKey self = msg_send ~self ~cmd:(selector "useHardwareGlobeKeyAsEmojiKey") ~typ:(returning (bool)) -let valueForKey x self = msg_send ~self ~cmd:(selector "valueForKey:") ~typ:(int @-> returning (id)) x -let valueForPreferenceKey x self = msg_send ~self ~cmd:(selector "valueForPreferenceKey:") ~typ:(id @-> returning (id)) x -let visceral self = msg_send ~self ~cmd:(selector "visceral") ~typ:(returning (llong)) \ No newline at end of file +let allEnabledInputModesAreValid self = msg_send ~self ~cmd:(selector "allEnabledInputModesAreValid") ~typ:(returning bool) +let boolForKey x self = msg_send ~self ~cmd:(selector "boolForKey:") ~typ:(int @-> returning bool) x +let boolForPreferenceKey x self = msg_send ~self ~cmd:(selector "boolForPreferenceKey:") ~typ:(id @-> returning bool) x +let compactAssistantBarPersistentLocation self = msg_send ~self ~cmd:(selector "compactAssistantBarPersistentLocation") ~typ:(returning llong) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultGlobeAsEmojiKeySetting self = msg_send ~self ~cmd:(selector "defaultGlobeAsEmojiKeySetting") ~typ:(returning bool) +let enableProKeyboard self = msg_send ~self ~cmd:(selector "enableProKeyboard") ~typ:(returning bool) +let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning void) x +let handBias self = msg_send ~self ~cmd:(selector "handBias") ~typ:(returning llong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isFirstReachableKeyboardInteraction self = msg_send ~self ~cmd:(selector "isFirstReachableKeyboardInteraction") ~typ:(returning bool) +let isPasswordAutoFillAllowed self = msg_send ~self ~cmd:(selector "isPasswordAutoFillAllowed") ~typ:(returning bool) +let isPreferenceKeyLockedDown x self = msg_send ~self ~cmd:(selector "isPreferenceKeyLockedDown:") ~typ:(id @-> returning bool) x +let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning id) x +let performedFirstReachableKeyboardInteraction self = msg_send ~self ~cmd:(selector "performedFirstReachableKeyboardInteraction") ~typ:(returning void) +let preferencesActions self = msg_send ~self ~cmd:(selector "preferencesActions") ~typ:(returning id) +let preferencesControllerChanged x self = msg_send ~self ~cmd:(selector "preferencesControllerChanged:") ~typ:(id @-> returning void) x +let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning bool) x +let rivenSizeFactor x self = msg_send ~self ~cmd:(selector "rivenSizeFactor:") ~typ:(double @-> returning double) x +let saveInputModes x self = msg_send ~self ~cmd:(selector "saveInputModes:") ~typ:(id @-> returning void) x +let setCompactAssistantBarPersistentLocation x self = msg_send ~self ~cmd:(selector "setCompactAssistantBarPersistentLocation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setEnableProKeyboard x self = msg_send ~self ~cmd:(selector "setEnableProKeyboard:") ~typ:(bool @-> returning void) x +let setEnabledDictationLanguages x self = msg_send ~self ~cmd:(selector "setEnabledDictationLanguages:") ~typ:(id @-> returning void) x +let setHandBias x self = msg_send ~self ~cmd:(selector "setHandBias:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setLanguageAwareInputModeLastUsed x self = msg_send ~self ~cmd:(selector "setLanguageAwareInputModeLastUsed:") ~typ:(id @-> returning void) x +let setLastUsedDictationLanguages x self = msg_send ~self ~cmd:(selector "setLastUsedDictationLanguages:") ~typ:(id @-> returning void) x +let setValue x ~forKey self = msg_send ~self ~cmd:(selector "setValue:forKey:") ~typ:(id @-> int @-> returning void) x forKey +let setValue' x ~forPreferenceKey self = msg_send ~self ~cmd:(selector "setValue:forPreferenceKey:") ~typ:(id @-> id @-> returning void) x forPreferenceKey +let setVisceral x self = msg_send ~self ~cmd:(selector "setVisceral:") ~typ:(llong @-> returning void) (LLong.of_int x) +let spaceConfirmationEnabled self = msg_send ~self ~cmd:(selector "spaceConfirmationEnabled") ~typ:(returning bool) +let synchronizePreferences self = msg_send ~self ~cmd:(selector "synchronizePreferences") ~typ:(returning void) +let touchSynchronizePreferencesTimer self = msg_send ~self ~cmd:(selector "touchSynchronizePreferencesTimer") ~typ:(returning void) +let useHardwareGlobeKeyAsEmojiKey self = msg_send ~self ~cmd:(selector "useHardwareGlobeKeyAsEmojiKey") ~typ:(returning bool) +let valueForKey x self = msg_send ~self ~cmd:(selector "valueForKey:") ~typ:(int @-> returning id) x +let valueForPreferenceKey x self = msg_send ~self ~cmd:(selector "valueForPreferenceKey:") ~typ:(id @-> returning id) x +let visceral self = msg_send ~self ~cmd:(selector "visceral") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIKeyboardPreferencesControllerClass.ml b/uikit/UIKeyboardPreferencesControllerClass.ml new file mode 100644 index 00000000..9c8dcbcf --- /dev/null +++ b/uikit/UIKeyboardPreferencesControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardpreferencescontroller?language=objc}UIKeyboardPreferencesController} *) + +let sharedPreferencesController self = msg_send ~self ~cmd:(selector "sharedPreferencesController") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIKeyboardSceneDelegate.ml b/uikit/UIKeyboardSceneDelegate.ml index 74135318..794c55f1 100644 --- a/uikit/UIKeyboardSceneDelegate.ml +++ b/uikit/UIKeyboardSceneDelegate.ml @@ -5,113 +5,107 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardSceneDelegate" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardscenedelegate?language=objc}UIKeyboardSceneDelegate} *) -module C = struct - let activeKeyboardSceneDelegate self = msg_send ~self ~cmd:(selector "activeKeyboardSceneDelegate") ~typ:(returning (id)) - let applicationConnectedWindowScenes self = msg_send ~self ~cmd:(selector "applicationConnectedWindowScenes") ~typ:(returning (id)) - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning (llong)) - let logInterfaceOrientation x ~withDescription self = msg_send ~self ~cmd:(selector "logInterfaceOrientation:withDescription:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) withDescription - let performOnControllers x self = msg_send ~self ~cmd:(selector "performOnControllers:") ~typ:(ptr void @-> returning (void)) x - let setInterfaceOrientation x self = msg_send ~self ~cmd:(selector "setInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -end +let self = get_class "UIKeyboardSceneDelegate" -let addVisibilityObserver x self = msg_send ~self ~cmd:(selector "addVisibilityObserver:") ~typ:(id @-> returning (void)) x -let animationsEnabled self = msg_send ~self ~cmd:(selector "animationsEnabled") ~typ:(returning (bool)) -let automaticAppearanceEnabled self = msg_send ~self ~cmd:(selector "automaticAppearanceEnabled") ~typ:(returning (bool)) -let automaticAppearanceInternalEnabled self = msg_send ~self ~cmd:(selector "automaticAppearanceInternalEnabled") ~typ:(returning (bool)) -let automaticAppearanceReallyEnabled self = msg_send ~self ~cmd:(selector "automaticAppearanceReallyEnabled") ~typ:(returning (bool)) -let cleanDeactivation self = msg_send ~self ~cmd:(selector "cleanDeactivation") ~typ:(returning (void)) -let clearAnimationStyleForUserDrivenPresentation self = msg_send ~self ~cmd:(selector "clearAnimationStyleForUserDrivenPresentation") ~typ:(returning (void)) -let containerRootController self = msg_send ~self ~cmd:(selector "containerRootController") ~typ:(returning (id)) -let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning (id)) -let containerWindow self = msg_send ~self ~cmd:(selector "containerWindow") ~typ:(returning (id)) -let containerWindowForViewService x self = msg_send ~self ~cmd:(selector "containerWindowForViewService:") ~typ:(bool @-> returning (id)) x -let createAutomaticKeyboardIfNeeded self = msg_send ~self ~cmd:(selector "createAutomaticKeyboardIfNeeded") ~typ:(returning (void)) -let currentState self = msg_send ~self ~cmd:(selector "currentState") ~typ:(returning (llong)) -let deactivated self = msg_send ~self ~cmd:(selector "deactivated") ~typ:(returning (bool)) -let deactivationCount self = msg_send ~self ~cmd:(selector "deactivationCount") ~typ:(returning (ullong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let destroyKeyboardWindowIfNecessary self = msg_send ~self ~cmd:(selector "destroyKeyboardWindowIfNecessary") ~typ:(returning (void)) -let disableInterfaceAutorotation x self = msg_send ~self ~cmd:(selector "disableInterfaceAutorotation:") ~typ:(bool @-> returning (void)) x -let existingContainerRootController self = msg_send ~self ~cmd:(selector "existingContainerRootController") ~typ:(returning (id)) -let existingContainerWindow self = msg_send ~self ~cmd:(selector "existingContainerWindow") ~typ:(returning (id)) -let forceCreateKeyboardWindow self = msg_send ~self ~cmd:(selector "forceCreateKeyboardWindow") ~typ:(returning (id)) -let forceOrderInAutomaticAnimated x self = msg_send ~self ~cmd:(selector "forceOrderInAutomaticAnimated:") ~typ:(bool @-> returning (void)) x -let forceOrderInAutomaticFromDirection x ~withDuration self = msg_send ~self ~cmd:(selector "forceOrderInAutomaticFromDirection:withDuration:") ~typ:(int @-> double @-> returning (void)) x withDuration -let forceOrderOutAutomaticAnimated x self = msg_send ~self ~cmd:(selector "forceOrderOutAutomaticAnimated:") ~typ:(bool @-> returning (void)) x -let forceOrderOutAutomaticExceptAccessoryView self = msg_send ~self ~cmd:(selector "forceOrderOutAutomaticExceptAccessoryView") ~typ:(returning (void)) -let forceOrderOutAutomaticToDirection x ~withDuration self = msg_send ~self ~cmd:(selector "forceOrderOutAutomaticToDirection:withDuration:") ~typ:(int @-> double @-> returning (void)) x withDuration -let forceReloadInputViews self = msg_send ~self ~cmd:(selector "forceReloadInputViews") ~typ:(returning (void)) -let hasDictationKeyboard self = msg_send ~self ~cmd:(selector "hasDictationKeyboard") ~typ:(returning (bool)) -let hideSystemInputAssistantView self = msg_send ~self ~cmd:(selector "hideSystemInputAssistantView") ~typ:(returning (bool)) -let ignoresPinning self = msg_send ~self ~cmd:(selector "ignoresPinning") ~typ:(returning (bool)) -let initWithScene x self = msg_send ~self ~cmd:(selector "initWithScene:") ~typ:(id @-> returning (id)) x -let inputModeChangedForRenderConfig x self = msg_send ~self ~cmd:(selector "inputModeChangedForRenderConfig:") ~typ:(id @-> returning (void)) x -let inputViews self = msg_send ~self ~cmd:(selector "inputViews") ~typ:(returning (id)) -let isOnScreen self = msg_send ~self ~cmd:(selector "isOnScreen") ~typ:(returning (bool)) -let isUndocked self = msg_send ~self ~cmd:(selector "isUndocked") ~typ:(returning (bool)) -let keyWindowCandidate self = msg_send ~self ~cmd:(selector "keyWindowCandidate") ~typ:(returning (id)) -let keyboardSceneDelegateWillResume x self = msg_send ~self ~cmd:(selector "keyboardSceneDelegateWillResume:") ~typ:(id @-> returning (void)) x -let maximize self = msg_send ~self ~cmd:(selector "maximize") ~typ:(returning (bool)) -let maximizeWithAnimation x self = msg_send ~self ~cmd:(selector "maximizeWithAnimation:") ~typ:(bool @-> returning (bool)) x -let maximizeWithAnimationStyle x self = msg_send ~self ~cmd:(selector "maximizeWithAnimationStyle:") ~typ:(id @-> returning (bool)) x -let maximizeWithAnimationStyle' x ~force self = msg_send ~self ~cmd:(selector "maximizeWithAnimationStyle:force:") ~typ:(id @-> bool @-> returning (bool)) x force -let minimize self = msg_send ~self ~cmd:(selector "minimize") ~typ:(returning (bool)) -let minimizeWithAnimationStyle x self = msg_send ~self ~cmd:(selector "minimizeWithAnimationStyle:") ~typ:(id @-> returning (bool)) x -let minimizeWithAnimationStyle' x ~force self = msg_send ~self ~cmd:(selector "minimizeWithAnimationStyle:force:") ~typ:(id @-> bool @-> returning (bool)) x force -let nextAnimationStyle self = msg_send ~self ~cmd:(selector "nextAnimationStyle") ~typ:(returning (id)) -let nextAnimationStyle' x self = msg_send ~self ~cmd:(selector "nextAnimationStyle:") ~typ:(bool @-> returning (id)) x -let orderInWithAnimationStyle x self = msg_send ~self ~cmd:(selector "orderInWithAnimationStyle:") ~typ:(id @-> returning (void)) x -let orderOutWithAnimationStyle x self = msg_send ~self ~cmd:(selector "orderOutWithAnimationStyle:") ~typ:(id @-> returning (void)) x -let passthroughViews self = msg_send ~self ~cmd:(selector "passthroughViews") ~typ:(returning (id)) -let performMultipleOperations x ~withAnimationStyle self = msg_send ~self ~cmd:(selector "performMultipleOperations:withAnimationStyle:") ~typ:(ptr void @-> id @-> returning (void)) x withAnimationStyle -let performWithAllowingNilResponderReload x self = msg_send ~self ~cmd:(selector "performWithAllowingNilResponderReload:") ~typ:(ptr void @-> returning (void)) x -let pinningPreventsInputViews x self = msg_send ~self ~cmd:(selector "pinningPreventsInputViews:") ~typ:(id @-> returning (bool)) x -let popAnimationStyle self = msg_send ~self ~cmd:(selector "popAnimationStyle") ~typ:(returning (void)) -let prepareForAlongsideTransitionWithContext x self = msg_send ~self ~cmd:(selector "prepareForAlongsideTransitionWithContext:") ~typ:(id @-> returning (void)) x -let prepareToMoveKeyboardForInputViewSet x ~animationStyle self = msg_send ~self ~cmd:(selector "prepareToMoveKeyboardForInputViewSet:animationStyle:") ~typ:(id @-> id @-> returning (void)) x animationStyle -let preservingInputViews self = msg_send ~self ~cmd:(selector "preservingInputViews") ~typ:(returning (bool)) -let pushAnimationStyle x self = msg_send ~self ~cmd:(selector "pushAnimationStyle:") ~typ:(id @-> returning (void)) x -let refreshWithLocalMinimumKeyboardHeight x self = msg_send ~self ~cmd:(selector "refreshWithLocalMinimumKeyboardHeight:") ~typ:(double @-> returning (void)) x -let reloadPlacement self = msg_send ~self ~cmd:(selector "reloadPlacement") ~typ:(returning (void)) -let removeVisibilityObserver x self = msg_send ~self ~cmd:(selector "removeVisibilityObserver:") ~typ:(id @-> returning (void)) x -let responder self = msg_send ~self ~cmd:(selector "responder") ~typ:(returning (id)) -let restorableRenderConfig self = msg_send ~self ~cmd:(selector "restorableRenderConfig") ~typ:(returning (id)) -let restoringInputViews self = msg_send ~self ~cmd:(selector "restoringInputViews") ~typ:(returning (bool)) -let scene self = msg_send ~self ~cmd:(selector "scene") ~typ:(returning (id)) -let setAutomaticAppearanceEnabled x self = msg_send ~self ~cmd:(selector "setAutomaticAppearanceEnabled:") ~typ:(bool @-> returning (void)) x -let setAutomaticAppearanceInternalEnabled x self = msg_send ~self ~cmd:(selector "setAutomaticAppearanceInternalEnabled:") ~typ:(bool @-> returning (void)) x -let setDeactivationCount x self = msg_send ~self ~cmd:(selector "setDeactivationCount:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setHideSystemInputAssistantView x self = msg_send ~self ~cmd:(selector "setHideSystemInputAssistantView:") ~typ:(bool @-> returning (void)) x -let setIgnoresPinning x self = msg_send ~self ~cmd:(selector "setIgnoresPinning:") ~typ:(bool @-> returning (void)) x -let setInputViews x self = msg_send ~self ~cmd:(selector "setInputViews:") ~typ:(id @-> returning (void)) x -let setInputViews1 x ~animated self = msg_send ~self ~cmd:(selector "setInputViews:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setInputViews2 x ~animationStyle self = msg_send ~self ~cmd:(selector "setInputViews:animationStyle:") ~typ:(id @-> id @-> returning (void)) x animationStyle -let setKeyWindowCandidate x self = msg_send ~self ~cmd:(selector "setKeyWindowCandidate:") ~typ:(id @-> returning (void)) x -let setKeyWindowSceneInputViews x ~animationStyle self = msg_send ~self ~cmd:(selector "setKeyWindowSceneInputViews:animationStyle:") ~typ:(id @-> id @-> returning (void)) x animationStyle -let setNextAutomaticOrderInDirection x ~duration self = msg_send ~self ~cmd:(selector "setNextAutomaticOrderInDirection:duration:") ~typ:(int @-> double @-> returning (void)) x duration -let setPreservingInputViews x self = msg_send ~self ~cmd:(selector "setPreservingInputViews:") ~typ:(bool @-> returning (void)) x -let setRestorableRenderConfig x self = msg_send ~self ~cmd:(selector "setRestorableRenderConfig:") ~typ:(id @-> returning (void)) x -let setRestoringInputViews x self = msg_send ~self ~cmd:(selector "setRestoringInputViews:") ~typ:(bool @-> returning (void)) x -let setShouldSuppressInputAssistantUpdates x self = msg_send ~self ~cmd:(selector "setShouldSuppressInputAssistantUpdates:") ~typ:(bool @-> returning (void)) x -let setTakingSnapshot x self = msg_send ~self ~cmd:(selector "setTakingSnapshot:") ~typ:(bool @-> returning (void)) x -let setTextEffectsWindowLevelForInputView x ~responder self = msg_send ~self ~cmd:(selector "setTextEffectsWindowLevelForInputView:responder:") ~typ:(id @-> id @-> returning (void)) x responder -let setUseHostedInstance x self = msg_send ~self ~cmd:(selector "setUseHostedInstance:") ~typ:(bool @-> returning (void)) x -let setWindowSceneInputViews x ~animationStyle self = msg_send ~self ~cmd:(selector "setWindowSceneInputViews:animationStyle:") ~typ:(id @-> id @-> returning (void)) x animationStyle -let shouldSuppressInputAssistantUpdates self = msg_send ~self ~cmd:(selector "shouldSuppressInputAssistantUpdates") ~typ:(returning (bool)) -let systemInputAssistantViewController self = msg_send ~self ~cmd:(selector "systemInputAssistantViewController") ~typ:(returning (id)) -let systemInputAssistantViewControllerForResponder x self = msg_send ~self ~cmd:(selector "systemInputAssistantViewControllerForResponder:") ~typ:(id @-> returning (id)) x -let takingSnapshot self = msg_send ~self ~cmd:(selector "takingSnapshot") ~typ:(returning (bool)) -let textFormattingCoordinator self = msg_send ~self ~cmd:(selector "textFormattingCoordinator") ~typ:(returning (id)) -let traitCollectionDidChange self = msg_send ~self ~cmd:(selector "traitCollectionDidChange") ~typ:(returning (void)) -let transientInputViews self = msg_send ~self ~cmd:(selector "transientInputViews") ~typ:(returning (id)) -let updateRenderConfigForCurrentResponder self = msg_send ~self ~cmd:(selector "updateRenderConfigForCurrentResponder") ~typ:(returning (void)) -let updateRenderConfigForResponder x self = msg_send ~self ~cmd:(selector "updateRenderConfigForResponder:") ~typ:(id @-> returning (void)) x -let useHostedInstance self = msg_send ~self ~cmd:(selector "useHostedInstance") ~typ:(returning (bool)) -let verticalOverlapForView x ~usingKeyboardInfo self = msg_send ~self ~cmd:(selector "verticalOverlapForView:usingKeyboardInfo:") ~typ:(id @-> id @-> returning (double)) x usingKeyboardInfo -let visibleFrameInView x self = msg_send_stret ~self ~cmd:(selector "visibleFrameInView:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let visibleInputViewFrameInView x self = msg_send_stret ~self ~cmd:(selector "visibleInputViewFrameInView:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let window x ~changedFromLevel ~toLevel self = msg_send ~self ~cmd:(selector "window:changedFromLevel:toLevel:") ~typ:(id @-> double @-> double @-> returning (void)) x changedFromLevel toLevel \ No newline at end of file +let addVisibilityObserver x self = msg_send ~self ~cmd:(selector "addVisibilityObserver:") ~typ:(id @-> returning void) x +let animationsEnabled self = msg_send ~self ~cmd:(selector "animationsEnabled") ~typ:(returning bool) +let automaticAppearanceEnabled self = msg_send ~self ~cmd:(selector "automaticAppearanceEnabled") ~typ:(returning bool) +let automaticAppearanceInternalEnabled self = msg_send ~self ~cmd:(selector "automaticAppearanceInternalEnabled") ~typ:(returning bool) +let automaticAppearanceReallyEnabled self = msg_send ~self ~cmd:(selector "automaticAppearanceReallyEnabled") ~typ:(returning bool) +let cleanDeactivation self = msg_send ~self ~cmd:(selector "cleanDeactivation") ~typ:(returning void) +let clearAnimationStyleForUserDrivenPresentation self = msg_send ~self ~cmd:(selector "clearAnimationStyleForUserDrivenPresentation") ~typ:(returning void) +let containerRootController self = msg_send ~self ~cmd:(selector "containerRootController") ~typ:(returning id) +let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning id) +let containerWindow self = msg_send ~self ~cmd:(selector "containerWindow") ~typ:(returning id) +let containerWindowForViewService x self = msg_send ~self ~cmd:(selector "containerWindowForViewService:") ~typ:(bool @-> returning id) x +let createAutomaticKeyboardIfNeeded self = msg_send ~self ~cmd:(selector "createAutomaticKeyboardIfNeeded") ~typ:(returning void) +let currentState self = msg_send ~self ~cmd:(selector "currentState") ~typ:(returning llong) +let deactivated self = msg_send ~self ~cmd:(selector "deactivated") ~typ:(returning bool) +let deactivationCount self = msg_send ~self ~cmd:(selector "deactivationCount") ~typ:(returning ullong) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let destroyKeyboardWindowIfNecessary self = msg_send ~self ~cmd:(selector "destroyKeyboardWindowIfNecessary") ~typ:(returning void) +let disableInterfaceAutorotation x self = msg_send ~self ~cmd:(selector "disableInterfaceAutorotation:") ~typ:(bool @-> returning void) x +let existingContainerRootController self = msg_send ~self ~cmd:(selector "existingContainerRootController") ~typ:(returning id) +let existingContainerWindow self = msg_send ~self ~cmd:(selector "existingContainerWindow") ~typ:(returning id) +let forceCreateKeyboardWindow self = msg_send ~self ~cmd:(selector "forceCreateKeyboardWindow") ~typ:(returning id) +let forceOrderInAutomaticAnimated x self = msg_send ~self ~cmd:(selector "forceOrderInAutomaticAnimated:") ~typ:(bool @-> returning void) x +let forceOrderInAutomaticFromDirection x ~withDuration self = msg_send ~self ~cmd:(selector "forceOrderInAutomaticFromDirection:withDuration:") ~typ:(int @-> double @-> returning void) x withDuration +let forceOrderOutAutomaticAnimated x self = msg_send ~self ~cmd:(selector "forceOrderOutAutomaticAnimated:") ~typ:(bool @-> returning void) x +let forceOrderOutAutomaticExceptAccessoryView self = msg_send ~self ~cmd:(selector "forceOrderOutAutomaticExceptAccessoryView") ~typ:(returning void) +let forceOrderOutAutomaticToDirection x ~withDuration self = msg_send ~self ~cmd:(selector "forceOrderOutAutomaticToDirection:withDuration:") ~typ:(int @-> double @-> returning void) x withDuration +let forceReloadInputViews self = msg_send ~self ~cmd:(selector "forceReloadInputViews") ~typ:(returning void) +let hasDictationKeyboard self = msg_send ~self ~cmd:(selector "hasDictationKeyboard") ~typ:(returning bool) +let hideSystemInputAssistantView self = msg_send ~self ~cmd:(selector "hideSystemInputAssistantView") ~typ:(returning bool) +let ignoresPinning self = msg_send ~self ~cmd:(selector "ignoresPinning") ~typ:(returning bool) +let initWithScene x self = msg_send ~self ~cmd:(selector "initWithScene:") ~typ:(id @-> returning id) x +let inputModeChangedForRenderConfig x self = msg_send ~self ~cmd:(selector "inputModeChangedForRenderConfig:") ~typ:(id @-> returning void) x +let inputViews self = msg_send ~self ~cmd:(selector "inputViews") ~typ:(returning id) +let isOnScreen self = msg_send ~self ~cmd:(selector "isOnScreen") ~typ:(returning bool) +let isUndocked self = msg_send ~self ~cmd:(selector "isUndocked") ~typ:(returning bool) +let keyWindowCandidate self = msg_send ~self ~cmd:(selector "keyWindowCandidate") ~typ:(returning id) +let keyboardSceneDelegateWillResume x self = msg_send ~self ~cmd:(selector "keyboardSceneDelegateWillResume:") ~typ:(id @-> returning void) x +let maximize self = msg_send ~self ~cmd:(selector "maximize") ~typ:(returning bool) +let maximizeWithAnimation x self = msg_send ~self ~cmd:(selector "maximizeWithAnimation:") ~typ:(bool @-> returning bool) x +let maximizeWithAnimationStyle x self = msg_send ~self ~cmd:(selector "maximizeWithAnimationStyle:") ~typ:(id @-> returning bool) x +let maximizeWithAnimationStyle' x ~force self = msg_send ~self ~cmd:(selector "maximizeWithAnimationStyle:force:") ~typ:(id @-> bool @-> returning bool) x force +let minimize self = msg_send ~self ~cmd:(selector "minimize") ~typ:(returning bool) +let minimizeWithAnimationStyle x self = msg_send ~self ~cmd:(selector "minimizeWithAnimationStyle:") ~typ:(id @-> returning bool) x +let minimizeWithAnimationStyle' x ~force self = msg_send ~self ~cmd:(selector "minimizeWithAnimationStyle:force:") ~typ:(id @-> bool @-> returning bool) x force +let nextAnimationStyle self = msg_send ~self ~cmd:(selector "nextAnimationStyle") ~typ:(returning id) +let nextAnimationStyle' x self = msg_send ~self ~cmd:(selector "nextAnimationStyle:") ~typ:(bool @-> returning id) x +let orderInWithAnimationStyle x self = msg_send ~self ~cmd:(selector "orderInWithAnimationStyle:") ~typ:(id @-> returning void) x +let orderOutWithAnimationStyle x self = msg_send ~self ~cmd:(selector "orderOutWithAnimationStyle:") ~typ:(id @-> returning void) x +let passthroughViews self = msg_send ~self ~cmd:(selector "passthroughViews") ~typ:(returning id) +let performMultipleOperations x ~withAnimationStyle self = msg_send ~self ~cmd:(selector "performMultipleOperations:withAnimationStyle:") ~typ:((ptr void) @-> id @-> returning void) x withAnimationStyle +let performWithAllowingNilResponderReload x self = msg_send ~self ~cmd:(selector "performWithAllowingNilResponderReload:") ~typ:((ptr void) @-> returning void) x +let pinningPreventsInputViews x self = msg_send ~self ~cmd:(selector "pinningPreventsInputViews:") ~typ:(id @-> returning bool) x +let popAnimationStyle self = msg_send ~self ~cmd:(selector "popAnimationStyle") ~typ:(returning void) +let prepareForAlongsideTransitionWithContext x self = msg_send ~self ~cmd:(selector "prepareForAlongsideTransitionWithContext:") ~typ:(id @-> returning void) x +let prepareToMoveKeyboardForInputViewSet x ~animationStyle self = msg_send ~self ~cmd:(selector "prepareToMoveKeyboardForInputViewSet:animationStyle:") ~typ:(id @-> id @-> returning void) x animationStyle +let preservingInputViews self = msg_send ~self ~cmd:(selector "preservingInputViews") ~typ:(returning bool) +let pushAnimationStyle x self = msg_send ~self ~cmd:(selector "pushAnimationStyle:") ~typ:(id @-> returning void) x +let refreshWithLocalMinimumKeyboardHeight x self = msg_send ~self ~cmd:(selector "refreshWithLocalMinimumKeyboardHeight:") ~typ:(double @-> returning void) x +let reloadPlacement self = msg_send ~self ~cmd:(selector "reloadPlacement") ~typ:(returning void) +let removeVisibilityObserver x self = msg_send ~self ~cmd:(selector "removeVisibilityObserver:") ~typ:(id @-> returning void) x +let responder self = msg_send ~self ~cmd:(selector "responder") ~typ:(returning id) +let restorableRenderConfig self = msg_send ~self ~cmd:(selector "restorableRenderConfig") ~typ:(returning id) +let restoringInputViews self = msg_send ~self ~cmd:(selector "restoringInputViews") ~typ:(returning bool) +let scene self = msg_send ~self ~cmd:(selector "scene") ~typ:(returning id) +let setAutomaticAppearanceEnabled x self = msg_send ~self ~cmd:(selector "setAutomaticAppearanceEnabled:") ~typ:(bool @-> returning void) x +let setAutomaticAppearanceInternalEnabled x self = msg_send ~self ~cmd:(selector "setAutomaticAppearanceInternalEnabled:") ~typ:(bool @-> returning void) x +let setDeactivationCount x self = msg_send ~self ~cmd:(selector "setDeactivationCount:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setHideSystemInputAssistantView x self = msg_send ~self ~cmd:(selector "setHideSystemInputAssistantView:") ~typ:(bool @-> returning void) x +let setIgnoresPinning x self = msg_send ~self ~cmd:(selector "setIgnoresPinning:") ~typ:(bool @-> returning void) x +let setInputViews x self = msg_send ~self ~cmd:(selector "setInputViews:") ~typ:(id @-> returning void) x +let setInputViews1 x ~animated self = msg_send ~self ~cmd:(selector "setInputViews:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setInputViews2 x ~animationStyle self = msg_send ~self ~cmd:(selector "setInputViews:animationStyle:") ~typ:(id @-> id @-> returning void) x animationStyle +let setKeyWindowCandidate x self = msg_send ~self ~cmd:(selector "setKeyWindowCandidate:") ~typ:(id @-> returning void) x +let setKeyWindowSceneInputViews x ~animationStyle self = msg_send ~self ~cmd:(selector "setKeyWindowSceneInputViews:animationStyle:") ~typ:(id @-> id @-> returning void) x animationStyle +let setNextAutomaticOrderInDirection x ~duration self = msg_send ~self ~cmd:(selector "setNextAutomaticOrderInDirection:duration:") ~typ:(int @-> double @-> returning void) x duration +let setPreservingInputViews x self = msg_send ~self ~cmd:(selector "setPreservingInputViews:") ~typ:(bool @-> returning void) x +let setRestorableRenderConfig x self = msg_send ~self ~cmd:(selector "setRestorableRenderConfig:") ~typ:(id @-> returning void) x +let setRestoringInputViews x self = msg_send ~self ~cmd:(selector "setRestoringInputViews:") ~typ:(bool @-> returning void) x +let setShouldSuppressInputAssistantUpdates x self = msg_send ~self ~cmd:(selector "setShouldSuppressInputAssistantUpdates:") ~typ:(bool @-> returning void) x +let setTakingSnapshot x self = msg_send ~self ~cmd:(selector "setTakingSnapshot:") ~typ:(bool @-> returning void) x +let setTextEffectsWindowLevelForInputView x ~responder self = msg_send ~self ~cmd:(selector "setTextEffectsWindowLevelForInputView:responder:") ~typ:(id @-> id @-> returning void) x responder +let setUseHostedInstance x self = msg_send ~self ~cmd:(selector "setUseHostedInstance:") ~typ:(bool @-> returning void) x +let setWindowSceneInputViews x ~animationStyle self = msg_send ~self ~cmd:(selector "setWindowSceneInputViews:animationStyle:") ~typ:(id @-> id @-> returning void) x animationStyle +let shouldSuppressInputAssistantUpdates self = msg_send ~self ~cmd:(selector "shouldSuppressInputAssistantUpdates") ~typ:(returning bool) +let systemInputAssistantViewController self = msg_send ~self ~cmd:(selector "systemInputAssistantViewController") ~typ:(returning id) +let systemInputAssistantViewControllerForResponder x self = msg_send ~self ~cmd:(selector "systemInputAssistantViewControllerForResponder:") ~typ:(id @-> returning id) x +let takingSnapshot self = msg_send ~self ~cmd:(selector "takingSnapshot") ~typ:(returning bool) +let textFormattingCoordinator self = msg_send ~self ~cmd:(selector "textFormattingCoordinator") ~typ:(returning id) +let traitCollectionDidChange self = msg_send ~self ~cmd:(selector "traitCollectionDidChange") ~typ:(returning void) +let transientInputViews self = msg_send ~self ~cmd:(selector "transientInputViews") ~typ:(returning id) +let updateRenderConfigForCurrentResponder self = msg_send ~self ~cmd:(selector "updateRenderConfigForCurrentResponder") ~typ:(returning void) +let updateRenderConfigForResponder x self = msg_send ~self ~cmd:(selector "updateRenderConfigForResponder:") ~typ:(id @-> returning void) x +let useHostedInstance self = msg_send ~self ~cmd:(selector "useHostedInstance") ~typ:(returning bool) +let verticalOverlapForView x ~usingKeyboardInfo self = msg_send ~self ~cmd:(selector "verticalOverlapForView:usingKeyboardInfo:") ~typ:(id @-> id @-> returning double) x usingKeyboardInfo +let visibleFrameInView x self = msg_send ~self ~cmd:(selector "visibleFrameInView:") ~typ:(id @-> returning CGRect.t) x +let visibleInputViewFrameInView x self = msg_send ~self ~cmd:(selector "visibleInputViewFrameInView:") ~typ:(id @-> returning CGRect.t) x +let window x ~changedFromLevel ~toLevel self = msg_send ~self ~cmd:(selector "window:changedFromLevel:toLevel:") ~typ:(id @-> double @-> double @-> returning void) x changedFromLevel toLevel \ No newline at end of file diff --git a/uikit/UIKeyboardSceneDelegateClass.ml b/uikit/UIKeyboardSceneDelegateClass.ml new file mode 100644 index 00000000..7bbba217 --- /dev/null +++ b/uikit/UIKeyboardSceneDelegateClass.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardscenedelegate?language=objc}UIKeyboardSceneDelegate} *) + +let activeKeyboardSceneDelegate self = msg_send ~self ~cmd:(selector "activeKeyboardSceneDelegate") ~typ:(returning id) +let applicationConnectedWindowScenes self = msg_send ~self ~cmd:(selector "applicationConnectedWindowScenes") ~typ:(returning id) +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) +let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning llong) +let logInterfaceOrientation x ~withDescription self = msg_send ~self ~cmd:(selector "logInterfaceOrientation:withDescription:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) withDescription +let performOnControllers x self = msg_send ~self ~cmd:(selector "performOnControllers:") ~typ:((ptr void) @-> returning void) x +let setInterfaceOrientation x self = msg_send ~self ~cmd:(selector "setInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIKeyboardScheduledTask.ml b/uikit/UIKeyboardScheduledTask.ml index b09a43c8..4f0ec5c3 100644 --- a/uikit/UIKeyboardScheduledTask.ml +++ b/uikit/UIKeyboardScheduledTask.ml @@ -5,23 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardScheduledTask" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardscheduledtask?language=objc}UIKeyboardScheduledTask} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deferredAction self = msg_send ~self ~cmd:(selector "deferredAction") ~typ:(returning (id)) +let self = get_class "UIKeyboardScheduledTask" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let deferredAction self = msg_send ~self ~cmd:(selector "deferredAction") ~typ:(returning id) let enqueuedTask self = msg_send ~self ~cmd:(selector "enqueuedTask") ~typ:(returning (ptr void)) -let handleDeferredTimerFiredEvent self = msg_send ~self ~cmd:(selector "handleDeferredTimerFiredEvent") ~typ:(returning (void)) -let initWithTaskQueue x ~timeInterval ~repeats ~task self = msg_send ~self ~cmd:(selector "initWithTaskQueue:timeInterval:repeats:task:") ~typ:(id @-> double @-> bool @-> ptr void @-> returning (id)) x timeInterval repeats task -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning (bool)) -let repeats self = msg_send ~self ~cmd:(selector "repeats") ~typ:(returning (bool)) -let resetTimer self = msg_send ~self ~cmd:(selector "resetTimer") ~typ:(returning (void)) -let setDeferredAction x self = msg_send ~self ~cmd:(selector "setDeferredAction:") ~typ:(id @-> returning (void)) x -let setEnqueuedTask x self = msg_send ~self ~cmd:(selector "setEnqueuedTask:") ~typ:(ptr void @-> returning (void)) x -let setTimer x self = msg_send ~self ~cmd:(selector "setTimer:") ~typ:(id @-> returning (void)) x +let handleDeferredTimerFiredEvent self = msg_send ~self ~cmd:(selector "handleDeferredTimerFiredEvent") ~typ:(returning void) +let initWithTaskQueue x ~timeInterval ~repeats ~task self = msg_send ~self ~cmd:(selector "initWithTaskQueue:timeInterval:repeats:task:") ~typ:(id @-> double @-> bool @-> (ptr void) @-> returning id) x timeInterval repeats task +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning bool) +let repeats self = msg_send ~self ~cmd:(selector "repeats") ~typ:(returning bool) +let resetTimer self = msg_send ~self ~cmd:(selector "resetTimer") ~typ:(returning void) +let setDeferredAction x self = msg_send ~self ~cmd:(selector "setDeferredAction:") ~typ:(id @-> returning void) x +let setEnqueuedTask x self = msg_send ~self ~cmd:(selector "setEnqueuedTask:") ~typ:((ptr void) @-> returning void) x +let setTimer x self = msg_send ~self ~cmd:(selector "setTimer:") ~typ:(id @-> returning void) x let task self = msg_send ~self ~cmd:(selector "task") ~typ:(returning (ptr void)) -let taskQueue self = msg_send ~self ~cmd:(selector "taskQueue") ~typ:(returning (id)) -let timeInterval self = msg_send ~self ~cmd:(selector "timeInterval") ~typ:(returning (double)) -let timer self = msg_send ~self ~cmd:(selector "timer") ~typ:(returning (id)) -let timerFired x self = msg_send ~self ~cmd:(selector "timerFired:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let taskQueue self = msg_send ~self ~cmd:(selector "taskQueue") ~typ:(returning id) +let timeInterval self = msg_send ~self ~cmd:(selector "timeInterval") ~typ:(returning double) +let timer self = msg_send ~self ~cmd:(selector "timer") ~typ:(returning id) +let timerFired x self = msg_send ~self ~cmd:(selector "timerFired:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardShiftTransition.ml b/uikit/UIKeyboardShiftTransition.ml index a1a22634..b0614f9d 100644 --- a/uikit/UIKeyboardShiftTransition.ml +++ b/uikit/UIKeyboardShiftTransition.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardShiftTransition" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardshifttransition?language=objc}UIKeyboardShiftTransition} *) -let nonInteractiveDuration self = msg_send ~self ~cmd:(selector "nonInteractiveDuration") ~typ:(returning (double)) -let runNonInteractivelyWithCompletion x self = msg_send ~self ~cmd:(selector "runNonInteractivelyWithCompletion:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKeyboardShiftTransition" + +let nonInteractiveDuration self = msg_send ~self ~cmd:(selector "nonInteractiveDuration") ~typ:(returning double) +let runNonInteractivelyWithCompletion x self = msg_send ~self ~cmd:(selector "runNonInteractivelyWithCompletion:") ~typ:((ptr void) @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardSliceSet.ml b/uikit/UIKeyboardSliceSet.ml index 31d52e8a..d40ce664 100644 --- a/uikit/UIKeyboardSliceSet.ml +++ b/uikit/UIKeyboardSliceSet.ml @@ -5,29 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardSliceSet" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardsliceset?language=objc}UIKeyboardSliceSet} *) -module C = struct - let sliceSetWithDictionaryRepresenation x self = msg_send ~self ~cmd:(selector "sliceSetWithDictionaryRepresenation:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIKeyboardSliceSet" -let addSlice x self = msg_send ~self ~cmd:(selector "addSlice:") ~typ:(id @-> returning (void)) x -let controlKeys self = msg_send ~self ~cmd:(selector "controlKeys") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let endRect self = msg_send_stret ~self ~cmd:(selector "endRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let initWithSliceID x self = msg_send ~self ~cmd:(selector "initWithSliceID:") ~typ:(id @-> returning (id)) x -let leftWidth self = msg_send ~self ~cmd:(selector "leftWidth") ~typ:(returning (double)) -let mergePoint self = msg_send ~self ~cmd:(selector "mergePoint") ~typ:(returning (double)) -let rightWidth self = msg_send ~self ~cmd:(selector "rightWidth") ~typ:(returning (double)) -let setControlKeys x self = msg_send ~self ~cmd:(selector "setControlKeys:") ~typ:(id @-> returning (void)) x -let setEndRect x self = msg_send ~self ~cmd:(selector "setEndRect:") ~typ:(CGRect.t @-> returning (void)) x -let setLeftWidth x self = msg_send ~self ~cmd:(selector "setLeftWidth:") ~typ:(double @-> returning (void)) x -let setMergePoint x self = msg_send ~self ~cmd:(selector "setMergePoint:") ~typ:(double @-> returning (void)) x -let setRightWidth x self = msg_send ~self ~cmd:(selector "setRightWidth:") ~typ:(double @-> returning (void)) x -let setSliceSetID x self = msg_send ~self ~cmd:(selector "setSliceSetID:") ~typ:(id @-> returning (void)) x -let setStartRect x self = msg_send ~self ~cmd:(selector "setStartRect:") ~typ:(CGRect.t @-> returning (void)) x -let sliceSetID self = msg_send ~self ~cmd:(selector "sliceSetID") ~typ:(returning (id)) -let slices self = msg_send ~self ~cmd:(selector "slices") ~typ:(returning (id)) -let startRect self = msg_send_stret ~self ~cmd:(selector "startRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t \ No newline at end of file +let addSlice x self = msg_send ~self ~cmd:(selector "addSlice:") ~typ:(id @-> returning void) x +let controlKeys self = msg_send ~self ~cmd:(selector "controlKeys") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let endRect self = msg_send ~self ~cmd:(selector "endRect") ~typ:(returning CGRect.t) +let initWithSliceID x self = msg_send ~self ~cmd:(selector "initWithSliceID:") ~typ:(id @-> returning id) x +let leftWidth self = msg_send ~self ~cmd:(selector "leftWidth") ~typ:(returning double) +let mergePoint self = msg_send ~self ~cmd:(selector "mergePoint") ~typ:(returning double) +let rightWidth self = msg_send ~self ~cmd:(selector "rightWidth") ~typ:(returning double) +let setControlKeys x self = msg_send ~self ~cmd:(selector "setControlKeys:") ~typ:(id @-> returning void) x +let setEndRect x self = msg_send ~self ~cmd:(selector "setEndRect:") ~typ:(CGRect.t @-> returning void) x +let setLeftWidth x self = msg_send ~self ~cmd:(selector "setLeftWidth:") ~typ:(double @-> returning void) x +let setMergePoint x self = msg_send ~self ~cmd:(selector "setMergePoint:") ~typ:(double @-> returning void) x +let setRightWidth x self = msg_send ~self ~cmd:(selector "setRightWidth:") ~typ:(double @-> returning void) x +let setSliceSetID x self = msg_send ~self ~cmd:(selector "setSliceSetID:") ~typ:(id @-> returning void) x +let setStartRect x self = msg_send ~self ~cmd:(selector "setStartRect:") ~typ:(CGRect.t @-> returning void) x +let sliceSetID self = msg_send ~self ~cmd:(selector "sliceSetID") ~typ:(returning id) +let slices self = msg_send ~self ~cmd:(selector "slices") ~typ:(returning id) +let startRect self = msg_send ~self ~cmd:(selector "startRect") ~typ:(returning CGRect.t) \ No newline at end of file diff --git a/uikit/UIKeyboardSliceSetClass.ml b/uikit/UIKeyboardSliceSetClass.ml new file mode 100644 index 00000000..f306df7f --- /dev/null +++ b/uikit/UIKeyboardSliceSetClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardsliceset?language=objc}UIKeyboardSliceSet} *) + +let sliceSetWithDictionaryRepresenation x self = msg_send ~self ~cmd:(selector "sliceSetWithDictionaryRepresenation:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIKeyboardSliceStore.ml b/uikit/UIKeyboardSliceStore.ml index f8aaacdb..70c6c71b 100644 --- a/uikit/UIKeyboardSliceStore.ml +++ b/uikit/UIKeyboardSliceStore.ml @@ -5,16 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardSliceStore" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardslicestore?language=objc}UIKeyboardSliceStore} *) -module C = struct - let archiveSet x self = msg_send ~self ~cmd:(selector "archiveSet:") ~typ:(id @-> returning (void)) x - let sharedStore self = msg_send ~self ~cmd:(selector "sharedStore") ~typ:(returning (id)) - let sliceSetForID x self = msg_send ~self ~cmd:(selector "sliceSetForID:") ~typ:(id @-> returning (id)) x - let sliceSetIDForKeyplaneName x ~type_ ~orientation self = msg_send ~self ~cmd:(selector "sliceSetIDForKeyplaneName:type:orientation:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int type_) (LLong.of_int orientation) -end +let self = get_class "UIKeyboardSliceStore" -let addSet x self = msg_send ~self ~cmd:(selector "addSet:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let sliceSetForID x self = msg_send ~self ~cmd:(selector "sliceSetForID:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let addSet x self = msg_send ~self ~cmd:(selector "addSet:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let sliceSetForID x self = msg_send ~self ~cmd:(selector "sliceSetForID:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIKeyboardSliceStoreClass.ml b/uikit/UIKeyboardSliceStoreClass.ml new file mode 100644 index 00000000..2aae5873 --- /dev/null +++ b/uikit/UIKeyboardSliceStoreClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardslicestore?language=objc}UIKeyboardSliceStore} *) + +let archiveSet x self = msg_send ~self ~cmd:(selector "archiveSet:") ~typ:(id @-> returning void) x +let sharedStore self = msg_send ~self ~cmd:(selector "sharedStore") ~typ:(returning id) +let sliceSetForID x self = msg_send ~self ~cmd:(selector "sliceSetForID:") ~typ:(id @-> returning id) x +let sliceSetIDForKeyplaneName x ~type_ ~orientation self = msg_send ~self ~cmd:(selector "sliceSetIDForKeyplaneName:type:orientation:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int type_) (LLong.of_int orientation) \ No newline at end of file diff --git a/uikit/UIKeyboardSliceTransitionView.ml b/uikit/UIKeyboardSliceTransitionView.ml index f54aad47..caf51432 100644 --- a/uikit/UIKeyboardSliceTransitionView.ml +++ b/uikit/UIKeyboardSliceTransitionView.ml @@ -5,36 +5,40 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardSliceTransitionView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardslicetransitionview?language=objc}UIKeyboardSliceTransitionView} *) -let adjustedLeftWidthAtMergePoint self = msg_send ~self ~cmd:(selector "adjustedLeftWidthAtMergePoint") ~typ:(returning (double)) -let adjustedRightWidthAtMergePoint self = msg_send ~self ~cmd:(selector "adjustedRightWidthAtMergePoint") ~typ:(returning (double)) -let canDisplayTransition self = msg_send ~self ~cmd:(selector "canDisplayTransition") ~typ:(returning (bool)) -let crossfadeOpacityAnimation self = msg_send ~self ~cmd:(selector "crossfadeOpacityAnimation") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultKeyboardImage self = msg_send ~self ~cmd:(selector "defaultKeyboardImage") ~typ:(returning (id)) -let getKeyboardImageAsSplit x self = msg_send ~self ~cmd:(selector "getKeyboardImageAsSplit:") ~typ:(bool @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initializeLayers self = msg_send ~self ~cmd:(selector "initializeLayers") ~typ:(returning (void)) -let meshTransformForProgress x self = msg_send ~self ~cmd:(selector "meshTransformForProgress:") ~typ:(double @-> returning (id)) x -let rebuildBackgroundAndShadowTransitions self = msg_send ~self ~cmd:(selector "rebuildBackgroundAndShadowTransitions") ~typ:(returning (void)) -let rebuildBackgroundGradientTransitions self = msg_send ~self ~cmd:(selector "rebuildBackgroundGradientTransitions") ~typ:(returning (void)) -let rebuildControlKeys x self = msg_send ~self ~cmd:(selector "rebuildControlKeys:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let rebuildFromKeyplane x ~toKeyplane ~startToken ~endToken ~keyboardType ~orientation self = msg_send ~self ~cmd:(selector "rebuildFromKeyplane:toKeyplane:startToken:endToken:keyboardType:orientation:") ~typ:(id @-> id @-> id @-> id @-> llong @-> llong @-> returning (void)) x toKeyplane startToken endToken (LLong.of_int keyboardType) (LLong.of_int orientation) -let rebuildMoreIntlKeys self = msg_send ~self ~cmd:(selector "rebuildMoreIntlKeys") ~typ:(returning (void)) -let rebuildReturnSlices self = msg_send ~self ~cmd:(selector "rebuildReturnSlices") ~typ:(returning (void)) -let rebuildShadows self = msg_send ~self ~cmd:(selector "rebuildShadows") ~typ:(returning (void)) -let rebuildShiftSlices self = msg_send ~self ~cmd:(selector "rebuildShiftSlices") ~typ:(returning (void)) -let rebuildSliceTransitions self = msg_send ~self ~cmd:(selector "rebuildSliceTransitions") ~typ:(returning (void)) -let rebuildTopEdgeHighlightTransition self = msg_send ~self ~cmd:(selector "rebuildTopEdgeHighlightTransition") ~typ:(returning (void)) -let rebuildTransitionForSplitStyleChange x self = msg_send ~self ~cmd:(selector "rebuildTransitionForSplitStyleChange:") ~typ:(id @-> returning (void)) x -let refreshKeyplaneImages self = msg_send ~self ~cmd:(selector "refreshKeyplaneImages") ~typ:(returning (void)) -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning (void)) x -let setRebuildFlags self = msg_send ~self ~cmd:(selector "setRebuildFlags") ~typ:(returning (void)) -let splitKeyboardImage self = msg_send ~self ~cmd:(selector "splitKeyboardImage") ~typ:(returning (id)) -let transformForProgress x self = msg_send ~self ~cmd:(selector "transformForProgress:") ~typ:(double @-> returning (void)) x -let updateTransition self = msg_send ~self ~cmd:(selector "updateTransition") ~typ:(returning (void)) -let updateTransitionForSlice x ~withStart ~startContents ~end_ ~endContents ~updateContents self = msg_send ~self ~cmd:(selector "updateTransitionForSlice:withStart:startContents:end:endContents:updateContents:") ~typ:(id @-> id @-> id @-> id @-> id @-> bool @-> returning (void)) x withStart startContents end_ endContents updateContents -let updateWithProgress x self = msg_send ~self ~cmd:(selector "updateWithProgress:") ~typ:(double @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKeyboardSliceTransitionView" + +let adjustedLeftWidthAtMergePoint self = msg_send ~self ~cmd:(selector "adjustedLeftWidthAtMergePoint") ~typ:(returning double) +let adjustedRightWidthAtMergePoint self = msg_send ~self ~cmd:(selector "adjustedRightWidthAtMergePoint") ~typ:(returning double) +let canDisplayTransition self = msg_send ~self ~cmd:(selector "canDisplayTransition") ~typ:(returning bool) +let crossfadeOpacityAnimation self = msg_send ~self ~cmd:(selector "crossfadeOpacityAnimation") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultKeyboardImage self = msg_send ~self ~cmd:(selector "defaultKeyboardImage") ~typ:(returning (ptr CGImage.t)) +let getKeyboardImageAsSplit x self = msg_send ~self ~cmd:(selector "getKeyboardImageAsSplit:") ~typ:(bool @-> returning (ptr CGImage.t)) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initializeLayers self = msg_send ~self ~cmd:(selector "initializeLayers") ~typ:(returning void) +let meshTransformForProgress x self = msg_send ~self ~cmd:(selector "meshTransformForProgress:") ~typ:(double @-> returning id) x +let rebuildBackgroundAndShadowTransitions self = msg_send ~self ~cmd:(selector "rebuildBackgroundAndShadowTransitions") ~typ:(returning void) +let rebuildBackgroundGradientTransitions self = msg_send ~self ~cmd:(selector "rebuildBackgroundGradientTransitions") ~typ:(returning void) +let rebuildControlKeys x self = msg_send ~self ~cmd:(selector "rebuildControlKeys:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let rebuildFromKeyplane x ~toKeyplane ~startToken ~endToken ~keyboardType ~orientation self = msg_send ~self ~cmd:(selector "rebuildFromKeyplane:toKeyplane:startToken:endToken:keyboardType:orientation:") ~typ:(id @-> id @-> id @-> id @-> llong @-> llong @-> returning void) x toKeyplane startToken endToken (LLong.of_int keyboardType) (LLong.of_int orientation) +let rebuildMoreIntlKeys self = msg_send ~self ~cmd:(selector "rebuildMoreIntlKeys") ~typ:(returning void) +let rebuildReturnSlices self = msg_send ~self ~cmd:(selector "rebuildReturnSlices") ~typ:(returning void) +let rebuildShadows self = msg_send ~self ~cmd:(selector "rebuildShadows") ~typ:(returning void) +let rebuildShiftSlices self = msg_send ~self ~cmd:(selector "rebuildShiftSlices") ~typ:(returning void) +let rebuildSliceTransitions self = msg_send ~self ~cmd:(selector "rebuildSliceTransitions") ~typ:(returning void) +let rebuildTopEdgeHighlightTransition self = msg_send ~self ~cmd:(selector "rebuildTopEdgeHighlightTransition") ~typ:(returning void) +let rebuildTransitionForSplitStyleChange x self = msg_send ~self ~cmd:(selector "rebuildTransitionForSplitStyleChange:") ~typ:(id @-> returning void) x +let refreshKeyplaneImages self = msg_send ~self ~cmd:(selector "refreshKeyplaneImages") ~typ:(returning void) +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning void) x +let setRebuildFlags self = msg_send ~self ~cmd:(selector "setRebuildFlags") ~typ:(returning void) +let splitKeyboardImage self = msg_send ~self ~cmd:(selector "splitKeyboardImage") ~typ:(returning (ptr CGImage.t)) +let transformForProgress x self = msg_send ~self ~cmd:(selector "transformForProgress:") ~typ:(double @-> returning void) x +let updateTransition self = msg_send ~self ~cmd:(selector "updateTransition") ~typ:(returning void) +let updateTransitionForSlice x ~withStart ~startContents ~end_ ~endContents ~updateContents self = msg_send ~self ~cmd:(selector "updateTransitionForSlice:withStart:startContents:end:endContents:updateContents:") ~typ:(id @-> id @-> id @-> id @-> id @-> bool @-> returning void) x withStart startContents end_ endContents updateContents +let updateWithProgress x self = msg_send ~self ~cmd:(selector "updateWithProgress:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardSplitControlMenu.ml b/uikit/UIKeyboardSplitControlMenu.ml index 617d32e6..82c06930 100644 --- a/uikit/UIKeyboardSplitControlMenu.ml +++ b/uikit/UIKeyboardSplitControlMenu.ml @@ -5,25 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardSplitControlMenu" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardsplitcontrolmenu?language=objc}UIKeyboardSplitControlMenu} *) -module C = struct - let activeInstance self = msg_send ~self ~cmd:(selector "activeInstance") ~typ:(returning (id)) - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end +let self = get_class "UIKeyboardSplitControlMenu" -let actionForItem x self = msg_send ~self ~cmd:(selector "actionForItem:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultSelectedIndex self = msg_send ~self ~cmd:(selector "defaultSelectedIndex") ~typ:(returning (ullong)) -let didFinishSplitTransition self = msg_send ~self ~cmd:(selector "didFinishSplitTransition") ~typ:(returning (void)) -let didSelectItemAtIndex x self = msg_send ~self ~cmd:(selector "didSelectItemAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) +let actionForItem x self = msg_send ~self ~cmd:(selector "actionForItem:") ~typ:(id @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultSelectedIndex self = msg_send ~self ~cmd:(selector "defaultSelectedIndex") ~typ:(returning ullong) +let didFinishSplitTransition self = msg_send ~self ~cmd:(selector "didFinishSplitTransition") ~typ:(returning void) +let didSelectItemAtIndex x self = msg_send ~self ~cmd:(selector "didSelectItemAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) let finishSplitTransitionBlock self = msg_send ~self ~cmd:(selector "finishSplitTransitionBlock") ~typ:(returning (ptr void)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let numberOfItems self = msg_send ~self ~cmd:(selector "numberOfItems") ~typ:(returning (ullong)) -let preferredSize self = msg_send_stret ~self ~cmd:(selector "preferredSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let setFinishSplitTransitionBlock x self = msg_send ~self ~cmd:(selector "setFinishSplitTransitionBlock:") ~typ:(ptr void @-> returning (void)) x -let setSplitAndUndocked x self = msg_send ~self ~cmd:(selector "setSplitAndUndocked:") ~typ:(bool @-> returning (void)) x -let titleForItemAtIndex x self = msg_send ~self ~cmd:(selector "titleForItemAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let usesDeviceLanguageForItemAtIndex x self = msg_send ~self ~cmd:(selector "usesDeviceLanguageForItemAtIndex:") ~typ:(ullong @-> returning (bool)) (ULLong.of_int x) -let visibleItemForIndex x self = msg_send ~self ~cmd:(selector "visibleItemForIndex:") ~typ:(ullong @-> returning (int)) (ULLong.of_int x) \ No newline at end of file +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let numberOfItems self = msg_send ~self ~cmd:(selector "numberOfItems") ~typ:(returning ullong) +let preferredSize self = msg_send ~self ~cmd:(selector "preferredSize") ~typ:(returning CGSize.t) +let setFinishSplitTransitionBlock x self = msg_send ~self ~cmd:(selector "setFinishSplitTransitionBlock:") ~typ:((ptr void) @-> returning void) x +let setSplitAndUndocked x self = msg_send ~self ~cmd:(selector "setSplitAndUndocked:") ~typ:(bool @-> returning void) x +let titleForItemAtIndex x self = msg_send ~self ~cmd:(selector "titleForItemAtIndex:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let usesDeviceLanguageForItemAtIndex x self = msg_send ~self ~cmd:(selector "usesDeviceLanguageForItemAtIndex:") ~typ:(ullong @-> returning bool) (ULLong.of_int x) +let visibleItemForIndex x self = msg_send ~self ~cmd:(selector "visibleItemForIndex:") ~typ:(ullong @-> returning int) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UIKeyboardSplitControlMenuClass.ml b/uikit/UIKeyboardSplitControlMenuClass.ml new file mode 100644 index 00000000..0e27bb32 --- /dev/null +++ b/uikit/UIKeyboardSplitControlMenuClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardsplitcontrolmenu?language=objc}UIKeyboardSplitControlMenu} *) + +let activeInstance self = msg_send ~self ~cmd:(selector "activeInstance") ~typ:(returning id) +let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIKeyboardSplitTransitionView.ml b/uikit/UIKeyboardSplitTransitionView.ml index 7f52bea1..2aba1211 100644 --- a/uikit/UIKeyboardSplitTransitionView.ml +++ b/uikit/UIKeyboardSplitTransitionView.ml @@ -5,41 +5,45 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardSplitTransitionView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardsplittransitionview?language=objc}UIKeyboardSplitTransitionView} *) -let backgroundLayers self = msg_send ~self ~cmd:(selector "backgroundLayers") ~typ:(returning (id)) -let bottomDropShadow self = msg_send ~self ~cmd:(selector "bottomDropShadow") ~typ:(returning (id)) -let canDisplayTransition self = msg_send ~self ~cmd:(selector "canDisplayTransition") ~typ:(returning (bool)) -let centerDropShadow self = msg_send ~self ~cmd:(selector "centerDropShadow") ~typ:(returning (id)) -let colorsForBackgroundLayer x self = msg_send ~self ~cmd:(selector "colorsForBackgroundLayer:") ~typ:(int @-> returning (id)) x +let self = get_class "UIKeyboardSplitTransitionView" + +let backgroundLayers self = msg_send ~self ~cmd:(selector "backgroundLayers") ~typ:(returning id) +let bottomDropShadow self = msg_send ~self ~cmd:(selector "bottomDropShadow") ~typ:(returning id) +let canDisplayTransition self = msg_send ~self ~cmd:(selector "canDisplayTransition") ~typ:(returning bool) +let centerDropShadow self = msg_send ~self ~cmd:(selector "centerDropShadow") ~typ:(returning id) +let colorsForBackgroundLayer x self = msg_send ~self ~cmd:(selector "colorsForBackgroundLayer:") ~typ:(int @-> returning id) x let completionBlock self = msg_send ~self ~cmd:(selector "completionBlock") ~typ:(returning (ptr void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultKeyboardImage self = msg_send ~self ~cmd:(selector "defaultKeyboardImage") ~typ:(returning (id)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let finalizeTransition self = msg_send ~self ~cmd:(selector "finalizeTransition") ~typ:(returning (void)) -let finishWithProgress x ~completionBlock self = msg_send ~self ~cmd:(selector "finishWithProgress:completionBlock:") ~typ:(double @-> ptr void @-> returning (void)) x completionBlock -let initializeLayers self = msg_send ~self ~cmd:(selector "initializeLayers") ~typ:(returning (void)) -let keyImageWithToken x self = msg_send ~self ~cmd:(selector "keyImageWithToken:") ~typ:(id @-> returning (id)) x -let outerCenterDropShadow self = msg_send ~self ~cmd:(selector "outerCenterDropShadow") ~typ:(returning (id)) -let rebuildControlKeys x self = msg_send ~self ~cmd:(selector "rebuildControlKeys:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let rebuildFromKeyplane x ~toKeyplane ~startToken ~endToken ~keyboardType ~orientation self = msg_send ~self ~cmd:(selector "rebuildFromKeyplane:toKeyplane:startToken:endToken:keyboardType:orientation:") ~typ:(id @-> id @-> id @-> id @-> llong @-> llong @-> returning (void)) x toKeyplane startToken endToken (LLong.of_int keyboardType) (LLong.of_int orientation) -let rebuildTransitionForSplitStyleChange x self = msg_send ~self ~cmd:(selector "rebuildTransitionForSplitStyleChange:") ~typ:(id @-> returning (void)) x -let rectEnclosingKeyplane x self = msg_send_stret ~self ~cmd:(selector "rectEnclosingKeyplane:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let setCompletionBlock x self = msg_send ~self ~cmd:(selector "setCompletionBlock:") ~typ:(ptr void @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setSplitTransitionDataSource x self = msg_send ~self ~cmd:(selector "setSplitTransitionDataSource:") ~typ:(id @-> returning (void)) x -let setSplitTransitionDelegate x self = msg_send ~self ~cmd:(selector "setSplitTransitionDelegate:") ~typ:(id @-> returning (void)) x -let shadowLayers self = msg_send ~self ~cmd:(selector "shadowLayers") ~typ:(returning (id)) -let shouldAllowRubberiness self = msg_send ~self ~cmd:(selector "shouldAllowRubberiness") ~typ:(returning (bool)) -let showDictationKey self = msg_send ~self ~cmd:(selector "showDictationKey") ~typ:(returning (bool)) -let showIntlKey self = msg_send ~self ~cmd:(selector "showIntlKey") ~typ:(returning (bool)) -let sizeForShadowLayer x self = msg_send_stret ~self ~cmd:(selector "sizeForShadowLayer:") ~typ:(int @-> returning (CGSize.t)) ~return_type:CGSize.t x -let splitKeyboardImage self = msg_send ~self ~cmd:(selector "splitKeyboardImage") ~typ:(returning (id)) -let splitTransitionDataSource self = msg_send ~self ~cmd:(selector "splitTransitionDataSource") ~typ:(returning (id)) -let splitTransitionDelegate self = msg_send ~self ~cmd:(selector "splitTransitionDelegate") ~typ:(returning (id)) -let topDropShadow self = msg_send ~self ~cmd:(selector "topDropShadow") ~typ:(returning (id)) -let transformForProgress x self = msg_send ~self ~cmd:(selector "transformForProgress:") ~typ:(double @-> returning (void)) x -let transitionIsVisible self = msg_send ~self ~cmd:(selector "transitionIsVisible") ~typ:(returning (bool)) -let transitionToFinalState x self = msg_send ~self ~cmd:(selector "transitionToFinalState:") ~typ:(id @-> returning (void)) x -let updateWithProgress x self = msg_send ~self ~cmd:(selector "updateWithProgress:") ~typ:(double @-> returning (void)) x \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultKeyboardImage self = msg_send ~self ~cmd:(selector "defaultKeyboardImage") ~typ:(returning (ptr CGImage.t)) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let finalizeTransition self = msg_send ~self ~cmd:(selector "finalizeTransition") ~typ:(returning void) +let finishWithProgress x ~completionBlock self = msg_send ~self ~cmd:(selector "finishWithProgress:completionBlock:") ~typ:(double @-> (ptr void) @-> returning void) x completionBlock +let initializeLayers self = msg_send ~self ~cmd:(selector "initializeLayers") ~typ:(returning void) +let keyImageWithToken x self = msg_send ~self ~cmd:(selector "keyImageWithToken:") ~typ:(id @-> returning (ptr CGImage.t)) x +let outerCenterDropShadow self = msg_send ~self ~cmd:(selector "outerCenterDropShadow") ~typ:(returning id) +let rebuildControlKeys x self = msg_send ~self ~cmd:(selector "rebuildControlKeys:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let rebuildFromKeyplane x ~toKeyplane ~startToken ~endToken ~keyboardType ~orientation self = msg_send ~self ~cmd:(selector "rebuildFromKeyplane:toKeyplane:startToken:endToken:keyboardType:orientation:") ~typ:(id @-> id @-> id @-> id @-> llong @-> llong @-> returning void) x toKeyplane startToken endToken (LLong.of_int keyboardType) (LLong.of_int orientation) +let rebuildTransitionForSplitStyleChange x self = msg_send ~self ~cmd:(selector "rebuildTransitionForSplitStyleChange:") ~typ:(id @-> returning void) x +let rectEnclosingKeyplane x self = msg_send ~self ~cmd:(selector "rectEnclosingKeyplane:") ~typ:(id @-> returning CGRect.t) x +let setCompletionBlock x self = msg_send ~self ~cmd:(selector "setCompletionBlock:") ~typ:((ptr void) @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setSplitTransitionDataSource x self = msg_send ~self ~cmd:(selector "setSplitTransitionDataSource:") ~typ:(id @-> returning void) x +let setSplitTransitionDelegate x self = msg_send ~self ~cmd:(selector "setSplitTransitionDelegate:") ~typ:(id @-> returning void) x +let shadowLayers self = msg_send ~self ~cmd:(selector "shadowLayers") ~typ:(returning id) +let shouldAllowRubberiness self = msg_send ~self ~cmd:(selector "shouldAllowRubberiness") ~typ:(returning bool) +let showDictationKey self = msg_send ~self ~cmd:(selector "showDictationKey") ~typ:(returning bool) +let showIntlKey self = msg_send ~self ~cmd:(selector "showIntlKey") ~typ:(returning bool) +let sizeForShadowLayer x self = msg_send ~self ~cmd:(selector "sizeForShadowLayer:") ~typ:(int @-> returning CGSize.t) x +let splitKeyboardImage self = msg_send ~self ~cmd:(selector "splitKeyboardImage") ~typ:(returning (ptr CGImage.t)) +let splitTransitionDataSource self = msg_send ~self ~cmd:(selector "splitTransitionDataSource") ~typ:(returning id) +let splitTransitionDelegate self = msg_send ~self ~cmd:(selector "splitTransitionDelegate") ~typ:(returning id) +let topDropShadow self = msg_send ~self ~cmd:(selector "topDropShadow") ~typ:(returning id) +let transformForProgress x self = msg_send ~self ~cmd:(selector "transformForProgress:") ~typ:(double @-> returning void) x +let transitionIsVisible self = msg_send ~self ~cmd:(selector "transitionIsVisible") ~typ:(returning bool) +let transitionToFinalState x self = msg_send ~self ~cmd:(selector "transitionToFinalState:") ~typ:(id @-> returning void) x +let updateWithProgress x self = msg_send ~self ~cmd:(selector "updateWithProgress:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardSquishTransition.ml b/uikit/UIKeyboardSquishTransition.ml index d156fa1a..ab4c71b2 100644 --- a/uikit/UIKeyboardSquishTransition.ml +++ b/uikit/UIKeyboardSquishTransition.ml @@ -5,36 +5,40 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardSquishTransition" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardsquishtransition?language=objc}UIKeyboardSquishTransition} *) -let animationType self = msg_send ~self ~cmd:(selector "animationType") ~typ:(returning (ullong)) -let commitTransitionRebuild self = msg_send ~self ~cmd:(selector "commitTransitionRebuild") ~typ:(returning (void)) -let commonVisibleKeys self = msg_send ~self ~cmd:(selector "commonVisibleKeys") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let disableMeshOptimization self = msg_send ~self ~cmd:(selector "disableMeshOptimization") ~typ:(returning (bool)) -let endGeometries self = msg_send ~self ~cmd:(selector "endGeometries") ~typ:(returning (id)) -let geometriesForKeyplane x self = msg_send ~self ~cmd:(selector "geometriesForKeyplane:") ~typ:(id @-> returning (id)) x -let meshTransformForKeyplane x ~toKeyplane self = msg_send ~self ~cmd:(selector "meshTransformForKeyplane:toKeyplane:") ~typ:(id @-> id @-> returning (id)) x toKeyplane -let opacityAnimationBeginTime self = msg_send ~self ~cmd:(selector "opacityAnimationBeginTime") ~typ:(returning (double)) -let opacityAnimationDirectionForward self = msg_send ~self ~cmd:(selector "opacityAnimationDirectionForward") ~typ:(returning (bool)) -let opacityAnimationDisplayLink self = msg_send ~self ~cmd:(selector "opacityAnimationDisplayLink") ~typ:(returning (id)) -let previousProgress self = msg_send ~self ~cmd:(selector "previousProgress") ~typ:(returning (double)) -let rebuildWithStartKeyplane x ~startView ~endKeyplane ~endView self = msg_send ~self ~cmd:(selector "rebuildWithStartKeyplane:startView:endKeyplane:endView:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x startView endKeyplane endView -let removeAllAnimations self = msg_send ~self ~cmd:(selector "removeAllAnimations") ~typ:(returning (void)) -let setAnimationType x self = msg_send ~self ~cmd:(selector "setAnimationType:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setCommonVisibleKeys x self = msg_send ~self ~cmd:(selector "setCommonVisibleKeys:") ~typ:(id @-> returning (void)) x -let setDisableMeshOptimization x self = msg_send ~self ~cmd:(selector "setDisableMeshOptimization:") ~typ:(bool @-> returning (void)) x -let setEndGeometries x self = msg_send ~self ~cmd:(selector "setEndGeometries:") ~typ:(id @-> returning (void)) x -let setOpacityAnimationBeginTime x self = msg_send ~self ~cmd:(selector "setOpacityAnimationBeginTime:") ~typ:(double @-> returning (void)) x -let setOpacityAnimationDirectionForward x self = msg_send ~self ~cmd:(selector "setOpacityAnimationDirectionForward:") ~typ:(bool @-> returning (void)) x -let setOpacityAnimationDisplayLink x self = msg_send ~self ~cmd:(selector "setOpacityAnimationDisplayLink:") ~typ:(id @-> returning (void)) x -let setPreviousProgress x self = msg_send ~self ~cmd:(selector "setPreviousProgress:") ~typ:(double @-> returning (void)) x -let setStartGeometries x self = msg_send ~self ~cmd:(selector "setStartGeometries:") ~typ:(id @-> returning (void)) x -let setUseInteractiveOpacity x self = msg_send ~self ~cmd:(selector "setUseInteractiveOpacity:") ~typ:(bool @-> returning (void)) x -let sortedCommonVisibleKeys self = msg_send ~self ~cmd:(selector "sortedCommonVisibleKeys") ~typ:(returning (id)) -let startGeometries self = msg_send ~self ~cmd:(selector "startGeometries") ~typ:(returning (id)) -let symmetricMeshTransformForKeyplane x self = msg_send ~self ~cmd:(selector "symmetricMeshTransformForKeyplane:") ~typ:(id @-> returning (id)) x -let updateOpacityAnimation x self = msg_send ~self ~cmd:(selector "updateOpacityAnimation:") ~typ:(id @-> returning (void)) x -let updateWithProgress x self = msg_send ~self ~cmd:(selector "updateWithProgress:") ~typ:(double @-> returning (void)) x -let useInteractiveOpacity self = msg_send ~self ~cmd:(selector "useInteractiveOpacity") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIKeyboardSquishTransition" + +let animationType self = msg_send ~self ~cmd:(selector "animationType") ~typ:(returning ullong) +let commitTransitionRebuild self = msg_send ~self ~cmd:(selector "commitTransitionRebuild") ~typ:(returning void) +let commonVisibleKeys self = msg_send ~self ~cmd:(selector "commonVisibleKeys") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let disableMeshOptimization self = msg_send ~self ~cmd:(selector "disableMeshOptimization") ~typ:(returning bool) +let endGeometries self = msg_send ~self ~cmd:(selector "endGeometries") ~typ:(returning id) +let geometriesForKeyplane x self = msg_send ~self ~cmd:(selector "geometriesForKeyplane:") ~typ:(id @-> returning id) x +let meshTransformForKeyplane x ~toKeyplane self = msg_send ~self ~cmd:(selector "meshTransformForKeyplane:toKeyplane:") ~typ:(id @-> id @-> returning id) x toKeyplane +let opacityAnimationBeginTime self = msg_send ~self ~cmd:(selector "opacityAnimationBeginTime") ~typ:(returning double) +let opacityAnimationDirectionForward self = msg_send ~self ~cmd:(selector "opacityAnimationDirectionForward") ~typ:(returning bool) +let opacityAnimationDisplayLink self = msg_send ~self ~cmd:(selector "opacityAnimationDisplayLink") ~typ:(returning id) +let previousProgress self = msg_send ~self ~cmd:(selector "previousProgress") ~typ:(returning double) +let rebuildWithStartKeyplane x ~startView ~endKeyplane ~endView self = msg_send ~self ~cmd:(selector "rebuildWithStartKeyplane:startView:endKeyplane:endView:") ~typ:(id @-> id @-> id @-> id @-> returning void) x startView endKeyplane endView +let removeAllAnimations self = msg_send ~self ~cmd:(selector "removeAllAnimations") ~typ:(returning void) +let setAnimationType x self = msg_send ~self ~cmd:(selector "setAnimationType:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setCommonVisibleKeys x self = msg_send ~self ~cmd:(selector "setCommonVisibleKeys:") ~typ:(id @-> returning void) x +let setDisableMeshOptimization x self = msg_send ~self ~cmd:(selector "setDisableMeshOptimization:") ~typ:(bool @-> returning void) x +let setEndGeometries x self = msg_send ~self ~cmd:(selector "setEndGeometries:") ~typ:(id @-> returning void) x +let setOpacityAnimationBeginTime x self = msg_send ~self ~cmd:(selector "setOpacityAnimationBeginTime:") ~typ:(double @-> returning void) x +let setOpacityAnimationDirectionForward x self = msg_send ~self ~cmd:(selector "setOpacityAnimationDirectionForward:") ~typ:(bool @-> returning void) x +let setOpacityAnimationDisplayLink x self = msg_send ~self ~cmd:(selector "setOpacityAnimationDisplayLink:") ~typ:(id @-> returning void) x +let setPreviousProgress x self = msg_send ~self ~cmd:(selector "setPreviousProgress:") ~typ:(double @-> returning void) x +let setStartGeometries x self = msg_send ~self ~cmd:(selector "setStartGeometries:") ~typ:(id @-> returning void) x +let setUseInteractiveOpacity x self = msg_send ~self ~cmd:(selector "setUseInteractiveOpacity:") ~typ:(bool @-> returning void) x +let sortedCommonVisibleKeys self = msg_send ~self ~cmd:(selector "sortedCommonVisibleKeys") ~typ:(returning id) +let startGeometries self = msg_send ~self ~cmd:(selector "startGeometries") ~typ:(returning id) +let symmetricMeshTransformForKeyplane x self = msg_send ~self ~cmd:(selector "symmetricMeshTransformForKeyplane:") ~typ:(id @-> returning id) x +let updateOpacityAnimation x self = msg_send ~self ~cmd:(selector "updateOpacityAnimation:") ~typ:(id @-> returning void) x +let updateWithProgress x self = msg_send ~self ~cmd:(selector "updateWithProgress:") ~typ:(double @-> returning void) x +let useInteractiveOpacity self = msg_send ~self ~cmd:(selector "useInteractiveOpacity") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIKeyboardSuggestedInputMode.ml b/uikit/UIKeyboardSuggestedInputMode.ml index 89dd3e44..5a8906bf 100644 --- a/uikit/UIKeyboardSuggestedInputMode.ml +++ b/uikit/UIKeyboardSuggestedInputMode.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardSuggestedInputMode" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardsuggestedinputmode?language=objc}UIKeyboardSuggestedInputMode} *) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let enabled self = msg_send ~self ~cmd:(selector "enabled") ~typ:(returning (bool)) -let initWithIdentifier x ~enabled self = msg_send ~self ~cmd:(selector "initWithIdentifier:enabled:") ~typ:(id @-> bool @-> returning (id)) x enabled -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKeyboardSuggestedInputMode" + +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let enabled self = msg_send ~self ~cmd:(selector "enabled") ~typ:(returning bool) +let initWithIdentifier x ~enabled self = msg_send ~self ~cmd:(selector "initWithIdentifier:enabled:") ~typ:(id @-> bool @-> returning id) x enabled +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardSyntheticTouch.ml b/uikit/UIKeyboardSyntheticTouch.ml index 06cfbe76..c4151be2 100644 --- a/uikit/UIKeyboardSyntheticTouch.ml +++ b/uikit/UIKeyboardSyntheticTouch.ml @@ -5,25 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardSyntheticTouch" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardsynthetictouch?language=objc}UIKeyboardSyntheticTouch} *) -module C = struct - let syntheticTouchWithPoint x ~timestamp ~window self = msg_send ~self ~cmd:(selector "syntheticTouchWithPoint:timestamp:window:") ~typ:(CGPoint.t @-> double @-> id @-> returning (id)) x timestamp window -end +let self = get_class "UIKeyboardSyntheticTouch" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let getLocationInWindow self = msg_send_stret ~self ~cmd:(selector "getLocationInWindow") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let initWithPoint x ~timestamp ~window self = msg_send ~self ~cmd:(selector "initWithPoint:timestamp:window:") ~typ:(CGPoint.t @-> double @-> id @-> returning (id)) x timestamp window -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let locationInWindow self = msg_send_stret ~self ~cmd:(selector "locationInWindow") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let phase self = msg_send ~self ~cmd:(selector "phase") ~typ:(returning (llong)) -let previousLocationInView x self = msg_send_stret ~self ~cmd:(selector "previousLocationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let setLocationInWindow x self = msg_send ~self ~cmd:(selector "setLocationInWindow:") ~typ:(CGPoint.t @-> returning (void)) x -let setPhase x self = msg_send ~self ~cmd:(selector "setPhase:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTapCount x self = msg_send ~self ~cmd:(selector "setTapCount:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setTimestamp x self = msg_send ~self ~cmd:(selector "setTimestamp:") ~typ:(double @-> returning (void)) x -let setWindow x self = msg_send ~self ~cmd:(selector "setWindow:") ~typ:(id @-> returning (void)) x -let tapCount self = msg_send ~self ~cmd:(selector "tapCount") ~typ:(returning (ullong)) -let timestamp self = msg_send ~self ~cmd:(selector "timestamp") ~typ:(returning (double)) -let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning (id)) \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let getLocationInWindow self = msg_send ~self ~cmd:(selector "getLocationInWindow") ~typ:(returning CGPoint.t) +let initWithPoint x ~timestamp ~window self = msg_send ~self ~cmd:(selector "initWithPoint:timestamp:window:") ~typ:(CGPoint.t @-> double @-> id @-> returning id) x timestamp window +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let locationInWindow self = msg_send ~self ~cmd:(selector "locationInWindow") ~typ:(returning CGPoint.t) +let phase self = msg_send ~self ~cmd:(selector "phase") ~typ:(returning llong) +let previousLocationInView x self = msg_send ~self ~cmd:(selector "previousLocationInView:") ~typ:(id @-> returning CGPoint.t) x +let setLocationInWindow x self = msg_send ~self ~cmd:(selector "setLocationInWindow:") ~typ:(CGPoint.t @-> returning void) x +let setPhase x self = msg_send ~self ~cmd:(selector "setPhase:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTapCount x self = msg_send ~self ~cmd:(selector "setTapCount:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setTimestamp x self = msg_send ~self ~cmd:(selector "setTimestamp:") ~typ:(double @-> returning void) x +let setWindow x self = msg_send ~self ~cmd:(selector "setWindow:") ~typ:(id @-> returning void) x +let tapCount self = msg_send ~self ~cmd:(selector "tapCount") ~typ:(returning ullong) +let timestamp self = msg_send ~self ~cmd:(selector "timestamp") ~typ:(returning double) +let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIKeyboardSyntheticTouchClass.ml b/uikit/UIKeyboardSyntheticTouchClass.ml new file mode 100644 index 00000000..f4286794 --- /dev/null +++ b/uikit/UIKeyboardSyntheticTouchClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardsynthetictouch?language=objc}UIKeyboardSyntheticTouch} *) + +let syntheticTouchWithPoint x ~timestamp ~window self = msg_send ~self ~cmd:(selector "syntheticTouchWithPoint:timestamp:window:") ~typ:(CGPoint.t @-> double @-> id @-> returning id) x timestamp window \ No newline at end of file diff --git a/uikit/UIKeyboardTaskEntry.ml b/uikit/UIKeyboardTaskEntry.ml index 484208a5..45992590 100644 --- a/uikit/UIKeyboardTaskEntry.ml +++ b/uikit/UIKeyboardTaskEntry.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardTaskEntry" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardtaskentry?language=objc}UIKeyboardTaskEntry} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let execute x self = msg_send ~self ~cmd:(selector "execute:") ~typ:(id @-> returning (void)) x -let initWithTask x self = msg_send ~self ~cmd:(selector "initWithTask:") ~typ:(ptr void @-> returning (id)) x -let originatingStack self = msg_send ~self ~cmd:(selector "originatingStack") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKeyboardTaskEntry" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let execute x self = msg_send ~self ~cmd:(selector "execute:") ~typ:(id @-> returning void) x +let initWithTask x self = msg_send ~self ~cmd:(selector "initWithTask:") ~typ:((ptr void) @-> returning id) x +let originatingStack self = msg_send ~self ~cmd:(selector "originatingStack") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIKeyboardTaskExecutionContext.ml b/uikit/UIKeyboardTaskExecutionContext.ml index 3e6d604e..219da708 100644 --- a/uikit/UIKeyboardTaskExecutionContext.ml +++ b/uikit/UIKeyboardTaskExecutionContext.ml @@ -5,19 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardTaskExecutionContext" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardtaskexecutioncontext?language=objc}UIKeyboardTaskExecutionContext} *) -let childWithContinuation x self = msg_send ~self ~cmd:(selector "childWithContinuation:") ~typ:(ptr void @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let executionQueue self = msg_send ~self ~cmd:(selector "executionQueue") ~typ:(returning (id)) -let info self = msg_send ~self ~cmd:(selector "info") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithExecutionQueue x self = msg_send ~self ~cmd:(selector "initWithExecutionQueue:") ~typ:(id @-> returning (id)) x -let initWithParentContext x ~continuation self = msg_send ~self ~cmd:(selector "initWithParentContext:continuation:") ~typ:(id @-> ptr void @-> returning (id)) x continuation +let self = get_class "UIKeyboardTaskExecutionContext" + +let childWithContinuation x self = msg_send ~self ~cmd:(selector "childWithContinuation:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let executionQueue self = msg_send ~self ~cmd:(selector "executionQueue") ~typ:(returning id) +let info self = msg_send ~self ~cmd:(selector "info") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithExecutionQueue x self = msg_send ~self ~cmd:(selector "initWithExecutionQueue:") ~typ:(id @-> returning id) x +let initWithParentContext x ~continuation self = msg_send ~self ~cmd:(selector "initWithParentContext:continuation:") ~typ:(id @-> (ptr void) @-> returning id) x continuation let pendingCompletionBlock self = msg_send ~self ~cmd:(selector "pendingCompletionBlock") ~typ:(returning (ptr void)) -let returnExecutionToParent self = msg_send ~self ~cmd:(selector "returnExecutionToParent") ~typ:(returning (void)) -let returnExecutionToParentWithInfo x self = msg_send ~self ~cmd:(selector "returnExecutionToParentWithInfo:") ~typ:(id @-> returning (void)) x -let setInfo x self = msg_send ~self ~cmd:(selector "setInfo:") ~typ:(id @-> returning (void)) x -let setPendingCompletionBlock x self = msg_send ~self ~cmd:(selector "setPendingCompletionBlock:") ~typ:(ptr void @-> returning (void)) x -let transferExecutionToMainThreadWithTask x self = msg_send ~self ~cmd:(selector "transferExecutionToMainThreadWithTask:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file +let returnExecutionToParent self = msg_send ~self ~cmd:(selector "returnExecutionToParent") ~typ:(returning void) +let returnExecutionToParentWithInfo x self = msg_send ~self ~cmd:(selector "returnExecutionToParentWithInfo:") ~typ:(id @-> returning void) x +let setInfo x self = msg_send ~self ~cmd:(selector "setInfo:") ~typ:(id @-> returning void) x +let setPendingCompletionBlock x self = msg_send ~self ~cmd:(selector "setPendingCompletionBlock:") ~typ:((ptr void) @-> returning void) x +let transferExecutionToMainThreadWithTask x self = msg_send ~self ~cmd:(selector "transferExecutionToMainThreadWithTask:") ~typ:((ptr void) @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardTaskQueue.ml b/uikit/UIKeyboardTaskQueue.ml index 39efcb24..fd9690ff 100644 --- a/uikit/UIKeyboardTaskQueue.ml +++ b/uikit/UIKeyboardTaskQueue.ml @@ -5,30 +5,34 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardTaskQueue" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardtaskqueue?language=objc}UIKeyboardTaskQueue} *) -let activeOriginator self = msg_send ~self ~cmd:(selector "activeOriginator") ~typ:(returning (id)) -let addAndReturnTask x self = msg_send ~self ~cmd:(selector "addAndReturnTask:") ~typ:(ptr void @-> returning (id)) x -let addDeferredTask x self = msg_send ~self ~cmd:(selector "addDeferredTask:") ~typ:(ptr void @-> returning (void)) x -let addTask x self = msg_send ~self ~cmd:(selector "addTask:") ~typ:(ptr void @-> returning (void)) x -let continueExecutionOnMainThread self = msg_send ~self ~cmd:(selector "continueExecutionOnMainThread") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let executionContext self = msg_send ~self ~cmd:(selector "executionContext") ~typ:(returning (id)) -let finishExecution self = msg_send ~self ~cmd:(selector "finishExecution") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isMainThreadExecutingTask self = msg_send ~self ~cmd:(selector "isMainThreadExecutingTask") ~typ:(returning (bool)) -let lock self = msg_send ~self ~cmd:(selector "lock") ~typ:(returning (void)) -let lockWhenReadyForMainThread self = msg_send ~self ~cmd:(selector "lockWhenReadyForMainThread") ~typ:(returning (void)) -let performDeferredTaskIfIdle self = msg_send ~self ~cmd:(selector "performDeferredTaskIfIdle") ~typ:(returning (void)) -let performSingleTask x self = msg_send ~self ~cmd:(selector "performSingleTask:") ~typ:(ptr void @-> returning (void)) x -let performTask x self = msg_send ~self ~cmd:(selector "performTask:") ~typ:(ptr void @-> returning (void)) x -let performTaskOnMainThread x ~waitUntilDone self = msg_send ~self ~cmd:(selector "performTaskOnMainThread:waitUntilDone:") ~typ:(ptr void @-> bool @-> returning (void)) x waitUntilDone -let promoteDeferredTaskIfIdle self = msg_send ~self ~cmd:(selector "promoteDeferredTaskIfIdle") ~typ:(returning (void)) -let scheduleTask x ~timeInterval ~repeats self = msg_send ~self ~cmd:(selector "scheduleTask:timeInterval:repeats:") ~typ:(ptr void @-> double @-> bool @-> returning (id)) x timeInterval repeats -let setActiveOriginator x self = msg_send ~self ~cmd:(selector "setActiveOriginator:") ~typ:(id @-> returning (void)) x -let setExecutionContext x self = msg_send ~self ~cmd:(selector "setExecutionContext:") ~typ:(id @-> returning (void)) x -let tryLockWhenReadyForMainThread self = msg_send ~self ~cmd:(selector "tryLockWhenReadyForMainThread") ~typ:(returning (bool)) -let unlock self = msg_send ~self ~cmd:(selector "unlock") ~typ:(returning (void)) -let waitUntilAllTasksAreFinished self = msg_send ~self ~cmd:(selector "waitUntilAllTasksAreFinished") ~typ:(returning (void)) -let waitUntilTaskIsFinished x self = msg_send ~self ~cmd:(selector "waitUntilTaskIsFinished:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKeyboardTaskQueue" + +let activeOriginator self = msg_send ~self ~cmd:(selector "activeOriginator") ~typ:(returning id) +let addAndReturnTask x self = msg_send ~self ~cmd:(selector "addAndReturnTask:") ~typ:((ptr void) @-> returning id) x +let addDeferredTask x self = msg_send ~self ~cmd:(selector "addDeferredTask:") ~typ:((ptr void) @-> returning void) x +let addTask x self = msg_send ~self ~cmd:(selector "addTask:") ~typ:((ptr void) @-> returning void) x +let continueExecutionOnMainThread self = msg_send ~self ~cmd:(selector "continueExecutionOnMainThread") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let executionContext self = msg_send ~self ~cmd:(selector "executionContext") ~typ:(returning id) +let finishExecution self = msg_send ~self ~cmd:(selector "finishExecution") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isMainThreadExecutingTask self = msg_send ~self ~cmd:(selector "isMainThreadExecutingTask") ~typ:(returning bool) +let lock self = msg_send ~self ~cmd:(selector "lock") ~typ:(returning void) +let lockWhenReadyForMainThread self = msg_send ~self ~cmd:(selector "lockWhenReadyForMainThread") ~typ:(returning void) +let performDeferredTaskIfIdle self = msg_send ~self ~cmd:(selector "performDeferredTaskIfIdle") ~typ:(returning void) +let performSingleTask x self = msg_send ~self ~cmd:(selector "performSingleTask:") ~typ:((ptr void) @-> returning void) x +let performTask x self = msg_send ~self ~cmd:(selector "performTask:") ~typ:((ptr void) @-> returning void) x +let performTaskOnMainThread x ~waitUntilDone self = msg_send ~self ~cmd:(selector "performTaskOnMainThread:waitUntilDone:") ~typ:((ptr void) @-> bool @-> returning void) x waitUntilDone +let promoteDeferredTaskIfIdle self = msg_send ~self ~cmd:(selector "promoteDeferredTaskIfIdle") ~typ:(returning void) +let scheduleTask x ~timeInterval ~repeats self = msg_send ~self ~cmd:(selector "scheduleTask:timeInterval:repeats:") ~typ:((ptr void) @-> double @-> bool @-> returning id) x timeInterval repeats +let setActiveOriginator x self = msg_send ~self ~cmd:(selector "setActiveOriginator:") ~typ:(id @-> returning void) x +let setExecutionContext x self = msg_send ~self ~cmd:(selector "setExecutionContext:") ~typ:(id @-> returning void) x +let tryLockWhenReadyForMainThread self = msg_send ~self ~cmd:(selector "tryLockWhenReadyForMainThread") ~typ:(returning bool) +let unlock self = msg_send ~self ~cmd:(selector "unlock") ~typ:(returning void) +let waitUntilAllTasksAreFinished self = msg_send ~self ~cmd:(selector "waitUntilAllTasksAreFinished") ~typ:(returning void) +let waitUntilTaskIsFinished x self = msg_send ~self ~cmd:(selector "waitUntilTaskIsFinished:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKeyboardTouchInfo.ml b/uikit/UIKeyboardTouchInfo.ml index bf6857f2..9330a77d 100644 --- a/uikit/UIKeyboardTouchInfo.ml +++ b/uikit/UIKeyboardTouchInfo.ml @@ -5,37 +5,41 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardTouchInfo" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardtouchinfo?language=objc}UIKeyboardTouchInfo} *) -let addTouch x self = msg_send ~self ~cmd:(selector "addTouch:") ~typ:(id @-> returning (void)) x -let continuousPathState self = msg_send ~self ~cmd:(selector "continuousPathState") ~typ:(returning (llong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delayed self = msg_send ~self ~cmd:(selector "delayed") ~typ:(returning (bool)) -let dragged self = msg_send ~self ~cmd:(selector "dragged") ~typ:(returning (bool)) -let fingerID self = msg_send ~self ~cmd:(selector "fingerID") ~typ:(returning (int)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initialDragPoint self = msg_send_stret ~self ~cmd:(selector "initialDragPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let initialKeyState self = msg_send ~self ~cmd:(selector "initialKeyState") ~typ:(returning (int)) -let initialPoint self = msg_send_stret ~self ~cmd:(selector "initialPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let key self = msg_send ~self ~cmd:(selector "key") ~typ:(returning (id)) -let keyplane self = msg_send ~self ~cmd:(selector "keyplane") ~typ:(returning (id)) -let maySuppressUpAction self = msg_send ~self ~cmd:(selector "maySuppressUpAction") ~typ:(returning (bool)) -let processedTouchCount self = msg_send ~self ~cmd:(selector "processedTouchCount") ~typ:(returning (ullong)) -let setContinuousPathState x self = msg_send ~self ~cmd:(selector "setContinuousPathState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setDelayed x self = msg_send ~self ~cmd:(selector "setDelayed:") ~typ:(bool @-> returning (void)) x -let setDragged x self = msg_send ~self ~cmd:(selector "setDragged:") ~typ:(bool @-> returning (void)) x -let setFingerID x self = msg_send ~self ~cmd:(selector "setFingerID:") ~typ:(int @-> returning (void)) x -let setInitialDragPoint x self = msg_send ~self ~cmd:(selector "setInitialDragPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setInitialKeyState x self = msg_send ~self ~cmd:(selector "setInitialKeyState:") ~typ:(int @-> returning (void)) x -let setInitialPoint x self = msg_send ~self ~cmd:(selector "setInitialPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setKey x self = msg_send ~self ~cmd:(selector "setKey:") ~typ:(id @-> returning (void)) x -let setKeyplane x self = msg_send ~self ~cmd:(selector "setKeyplane:") ~typ:(id @-> returning (void)) x -let setMaySuppressUpAction x self = msg_send ~self ~cmd:(selector "setMaySuppressUpAction:") ~typ:(bool @-> returning (void)) x -let setProcessedTouchCount x self = msg_send ~self ~cmd:(selector "setProcessedTouchCount:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setSlidOffKey x self = msg_send ~self ~cmd:(selector "setSlidOffKey:") ~typ:(id @-> returning (void)) x -let setStage x self = msg_send ~self ~cmd:(selector "setStage:") ~typ:(int @-> returning (void)) x -let slidOffKey self = msg_send ~self ~cmd:(selector "slidOffKey") ~typ:(returning (id)) -let stage self = msg_send ~self ~cmd:(selector "stage") ~typ:(returning (int)) -let touch self = msg_send ~self ~cmd:(selector "touch") ~typ:(returning (id)) -let touchHistory self = msg_send ~self ~cmd:(selector "touchHistory") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKeyboardTouchInfo" + +let addTouch x self = msg_send ~self ~cmd:(selector "addTouch:") ~typ:(id @-> returning void) x +let continuousPathState self = msg_send ~self ~cmd:(selector "continuousPathState") ~typ:(returning llong) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delayed self = msg_send ~self ~cmd:(selector "delayed") ~typ:(returning bool) +let dragged self = msg_send ~self ~cmd:(selector "dragged") ~typ:(returning bool) +let fingerID self = msg_send ~self ~cmd:(selector "fingerID") ~typ:(returning int) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initialDragPoint self = msg_send ~self ~cmd:(selector "initialDragPoint") ~typ:(returning CGPoint.t) +let initialKeyState self = msg_send ~self ~cmd:(selector "initialKeyState") ~typ:(returning int) +let initialPoint self = msg_send ~self ~cmd:(selector "initialPoint") ~typ:(returning CGPoint.t) +let key self = msg_send ~self ~cmd:(selector "key") ~typ:(returning id) +let keyplane self = msg_send ~self ~cmd:(selector "keyplane") ~typ:(returning id) +let maySuppressUpAction self = msg_send ~self ~cmd:(selector "maySuppressUpAction") ~typ:(returning bool) +let processedTouchCount self = msg_send ~self ~cmd:(selector "processedTouchCount") ~typ:(returning ullong) +let setContinuousPathState x self = msg_send ~self ~cmd:(selector "setContinuousPathState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setDelayed x self = msg_send ~self ~cmd:(selector "setDelayed:") ~typ:(bool @-> returning void) x +let setDragged x self = msg_send ~self ~cmd:(selector "setDragged:") ~typ:(bool @-> returning void) x +let setFingerID x self = msg_send ~self ~cmd:(selector "setFingerID:") ~typ:(int @-> returning void) x +let setInitialDragPoint x self = msg_send ~self ~cmd:(selector "setInitialDragPoint:") ~typ:(CGPoint.t @-> returning void) x +let setInitialKeyState x self = msg_send ~self ~cmd:(selector "setInitialKeyState:") ~typ:(int @-> returning void) x +let setInitialPoint x self = msg_send ~self ~cmd:(selector "setInitialPoint:") ~typ:(CGPoint.t @-> returning void) x +let setKey x self = msg_send ~self ~cmd:(selector "setKey:") ~typ:(id @-> returning void) x +let setKeyplane x self = msg_send ~self ~cmd:(selector "setKeyplane:") ~typ:(id @-> returning void) x +let setMaySuppressUpAction x self = msg_send ~self ~cmd:(selector "setMaySuppressUpAction:") ~typ:(bool @-> returning void) x +let setProcessedTouchCount x self = msg_send ~self ~cmd:(selector "setProcessedTouchCount:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setSlidOffKey x self = msg_send ~self ~cmd:(selector "setSlidOffKey:") ~typ:(id @-> returning void) x +let setStage x self = msg_send ~self ~cmd:(selector "setStage:") ~typ:(int @-> returning void) x +let slidOffKey self = msg_send ~self ~cmd:(selector "slidOffKey") ~typ:(returning id) +let stage self = msg_send ~self ~cmd:(selector "stage") ~typ:(returning int) +let touch self = msg_send ~self ~cmd:(selector "touch") ~typ:(returning id) +let touchHistory self = msg_send ~self ~cmd:(selector "touchHistory") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIKeyboardTransitionSlice.ml b/uikit/UIKeyboardTransitionSlice.ml index 15a3b196..915aa164 100644 --- a/uikit/UIKeyboardTransitionSlice.ml +++ b/uikit/UIKeyboardTransitionSlice.ml @@ -5,27 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardTransitionSlice" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardtransitionslice?language=objc}UIKeyboardTransitionSlice} *) -module C = struct - let sliceWithStart x ~end_ self = msg_send ~self ~cmd:(selector "sliceWithStart:end:") ~typ:(CGRect.t @-> CGRect.t @-> returning (id)) x end_ -end +let self = get_class "UIKeyboardTransitionSlice" -let addStartRect x ~end_ self = msg_send ~self ~cmd:(selector "addStartRect:end:") ~typ:(CGRect.t @-> CGRect.t @-> returning (void)) x end_ -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delayCrossfade self = msg_send ~self ~cmd:(selector "delayCrossfade") ~typ:(returning (bool)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let endRect self = msg_send_stret ~self ~cmd:(selector "endRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let endToken self = msg_send ~self ~cmd:(selector "endToken") ~typ:(returning (id)) -let hasGeometry self = msg_send ~self ~cmd:(selector "hasGeometry") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let normalization self = msg_send ~self ~cmd:(selector "normalization") ~typ:(returning (int)) -let setDelayCrossfade x self = msg_send ~self ~cmd:(selector "setDelayCrossfade:") ~typ:(bool @-> returning (void)) x -let setEndRect x self = msg_send ~self ~cmd:(selector "setEndRect:") ~typ:(CGRect.t @-> returning (void)) x -let setEndToken x self = msg_send ~self ~cmd:(selector "setEndToken:") ~typ:(id @-> returning (void)) x -let setNormalization x self = msg_send ~self ~cmd:(selector "setNormalization:") ~typ:(int @-> returning (void)) x -let setStartRect x self = msg_send ~self ~cmd:(selector "setStartRect:") ~typ:(CGRect.t @-> returning (void)) x -let setStartToken x self = msg_send ~self ~cmd:(selector "setStartToken:") ~typ:(id @-> returning (void)) x -let startRect self = msg_send_stret ~self ~cmd:(selector "startRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let startToken self = msg_send ~self ~cmd:(selector "startToken") ~typ:(returning (id)) \ No newline at end of file +let addStartRect x ~end_ self = msg_send ~self ~cmd:(selector "addStartRect:end:") ~typ:(CGRect.t @-> CGRect.t @-> returning void) x end_ +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delayCrossfade self = msg_send ~self ~cmd:(selector "delayCrossfade") ~typ:(returning bool) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let endRect self = msg_send ~self ~cmd:(selector "endRect") ~typ:(returning CGRect.t) +let endToken self = msg_send ~self ~cmd:(selector "endToken") ~typ:(returning id) +let hasGeometry self = msg_send ~self ~cmd:(selector "hasGeometry") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let normalization self = msg_send ~self ~cmd:(selector "normalization") ~typ:(returning int) +let setDelayCrossfade x self = msg_send ~self ~cmd:(selector "setDelayCrossfade:") ~typ:(bool @-> returning void) x +let setEndRect x self = msg_send ~self ~cmd:(selector "setEndRect:") ~typ:(CGRect.t @-> returning void) x +let setEndToken x self = msg_send ~self ~cmd:(selector "setEndToken:") ~typ:(id @-> returning void) x +let setNormalization x self = msg_send ~self ~cmd:(selector "setNormalization:") ~typ:(int @-> returning void) x +let setStartRect x self = msg_send ~self ~cmd:(selector "setStartRect:") ~typ:(CGRect.t @-> returning void) x +let setStartToken x self = msg_send ~self ~cmd:(selector "setStartToken:") ~typ:(id @-> returning void) x +let startRect self = msg_send ~self ~cmd:(selector "startRect") ~typ:(returning CGRect.t) +let startToken self = msg_send ~self ~cmd:(selector "startToken") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIKeyboardTransitionSliceClass.ml b/uikit/UIKeyboardTransitionSliceClass.ml new file mode 100644 index 00000000..403ed410 --- /dev/null +++ b/uikit/UIKeyboardTransitionSliceClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardtransitionslice?language=objc}UIKeyboardTransitionSlice} *) + +let sliceWithStart x ~end_ self = msg_send ~self ~cmd:(selector "sliceWithStart:end:") ~typ:(CGRect.t @-> CGRect.t @-> returning id) x end_ \ No newline at end of file diff --git a/uikit/UIKeyboardTypingStyleEstimator.ml b/uikit/UIKeyboardTypingStyleEstimator.ml deleted file mode 100644 index f5eede08..00000000 --- a/uikit/UIKeyboardTypingStyleEstimator.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIKeyboardTypingStyleEstimator" - -let beganContinuousPath self = msg_send ~self ~cmd:(selector "beganContinuousPath") ~typ:(returning (void)) -let cancelContinuousPath self = msg_send ~self ~cmd:(selector "cancelContinuousPath") ~typ:(returning (void)) -let currentTypingStyleEstimation self = msg_send ~self ~cmd:(selector "currentTypingStyleEstimation") ~typ:(returning (ullong)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let endedContinuousPath self = msg_send ~self ~cmd:(selector "endedContinuousPath") ~typ:(returning (void)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let tapTypedKey self = msg_send ~self ~cmd:(selector "tapTypedKey") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit/UIKeyboardViewController.ml b/uikit/UIKeyboardViewController.ml index 1ec97bf4..2726cbb6 100644 --- a/uikit/UIKeyboardViewController.ml +++ b/uikit/UIKeyboardViewController.ml @@ -5,26 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardviewcontroller?language=objc}UIKeyboardViewController} *) -let autocorrectionController self = msg_send ~self ~cmd:(selector "autocorrectionController") ~typ:(returning (id)) -let didSelectPredictiveCandidate x self = msg_send ~self ~cmd:(selector "didSelectPredictiveCandidate:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithServiceRole x self = msg_send ~self ~cmd:(selector "initWithServiceRole:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let inputAssistantView self = msg_send ~self ~cmd:(selector "inputAssistantView") ~typ:(returning (id)) -let inputViewController self = msg_send ~self ~cmd:(selector "inputViewController") ~typ:(returning (id)) -let keyboard self = msg_send ~self ~cmd:(selector "keyboard") ~typ:(returning (id)) -let pathEffectView self = msg_send ~self ~cmd:(selector "pathEffectView") ~typ:(returning (id)) -let registerProxyKeysWithViews x self = msg_send ~self ~cmd:(selector "registerProxyKeysWithViews:") ~typ:(id @-> returning (void)) x -let setInputViewController x self = msg_send ~self ~cmd:(selector "setInputViewController:") ~typ:(id @-> returning (void)) x -let setKeyboard x self = msg_send ~self ~cmd:(selector "setKeyboard:") ~typ:(id @-> returning (void)) x -let setShouldUpdateLayoutAutomatically x self = msg_send ~self ~cmd:(selector "setShouldUpdateLayoutAutomatically:") ~typ:(bool @-> returning (void)) x -let setSystemInputAssistantViewController x self = msg_send ~self ~cmd:(selector "setSystemInputAssistantViewController:") ~typ:(id @-> returning (void)) x -let setTextInputView x self = msg_send ~self ~cmd:(selector "setTextInputView:") ~typ:(id @-> returning (void)) x -let shouldAcceptAutocorrection self = msg_send ~self ~cmd:(selector "shouldAcceptAutocorrection") ~typ:(returning (void)) -let shouldUpdateLayoutAutomatically self = msg_send ~self ~cmd:(selector "shouldUpdateLayoutAutomatically") ~typ:(returning (bool)) -let systemInputAssistantViewController self = msg_send ~self ~cmd:(selector "systemInputAssistantViewController") ~typ:(returning (id)) -let textInputView self = msg_send ~self ~cmd:(selector "textInputView") ~typ:(returning (id)) -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKeyboardViewController" + +let autocorrectionController self = msg_send ~self ~cmd:(selector "autocorrectionController") ~typ:(returning id) +let didSelectPredictiveCandidate x self = msg_send ~self ~cmd:(selector "didSelectPredictiveCandidate:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithServiceRole x self = msg_send ~self ~cmd:(selector "initWithServiceRole:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let inputAssistantView self = msg_send ~self ~cmd:(selector "inputAssistantView") ~typ:(returning id) +let inputViewController self = msg_send ~self ~cmd:(selector "inputViewController") ~typ:(returning id) +let keyboard self = msg_send ~self ~cmd:(selector "keyboard") ~typ:(returning id) +let pathEffectView self = msg_send ~self ~cmd:(selector "pathEffectView") ~typ:(returning id) +let registerProxyKeysWithViews x self = msg_send ~self ~cmd:(selector "registerProxyKeysWithViews:") ~typ:(id @-> returning void) x +let setInputViewController x self = msg_send ~self ~cmd:(selector "setInputViewController:") ~typ:(id @-> returning void) x +let setKeyboard x self = msg_send ~self ~cmd:(selector "setKeyboard:") ~typ:(id @-> returning void) x +let setShouldUpdateLayoutAutomatically x self = msg_send ~self ~cmd:(selector "setShouldUpdateLayoutAutomatically:") ~typ:(bool @-> returning void) x +let setSystemInputAssistantViewController x self = msg_send ~self ~cmd:(selector "setSystemInputAssistantViewController:") ~typ:(id @-> returning void) x +let setTextInputView x self = msg_send ~self ~cmd:(selector "setTextInputView:") ~typ:(id @-> returning void) x +let shouldAcceptAutocorrection self = msg_send ~self ~cmd:(selector "shouldAcceptAutocorrection") ~typ:(returning void) +let shouldUpdateLayoutAutomatically self = msg_send ~self ~cmd:(selector "shouldUpdateLayoutAutomatically") ~typ:(returning bool) +let systemInputAssistantViewController self = msg_send ~self ~cmd:(selector "systemInputAssistantViewController") ~typ:(returning id) +let textInputView self = msg_send ~self ~cmd:(selector "textInputView") ~typ:(returning id) +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIKit.ml b/uikit/UIKit.ml new file mode 100644 index 00000000..01ca721a --- /dev/null +++ b/uikit/UIKit.ml @@ -0,0 +1,1102 @@ +include UIKit_globals + +module NSDirectionalEdgeInsets = NSDirectionalEdgeInsets +module UIAcceleration = UIAcceleration +module UIAccelerometer = UIAccelerometer +module UIAccelerometerClass = UIAccelerometerClass +module UIAction = UIAction +module UIActionClass = UIActionClass +module UIActionSheet = UIActionSheet +module UIActivityContinuationManager = UIActivityContinuationManager +module UIActivityIndicatorView = UIActivityIndicatorView +module UIActivityIndicatorViewClass = UIActivityIndicatorViewClass +module UIActivityItemsConfiguration = UIActivityItemsConfiguration +module UIActivityItemsConfigurationClass = UIActivityItemsConfigurationClass +module UIAlertAction = UIAlertAction +module UIAlertActionClass = UIAlertActionClass +module UIAlertController = UIAlertController +module UIAlertControllerClass = UIAlertControllerClass +module UIAlertControllerDescriptor = UIAlertControllerDescriptor +module UIAlertView = UIAlertView +module UIAlertVisualStyleUpdatableConstraints = UIAlertVisualStyleUpdatableConstraints +module UIAnimatableProperty = UIAnimatableProperty +module UIAnimatablePropertyBase = UIAnimatablePropertyBase +module UIAnimation = UIAnimation +module UIAnimator = UIAnimator +module UIAnimatorClass = UIAnimatorClass +module UIApplication = UIApplication +module UIApplicationClass = UIApplicationClass +module UIApplicationSceneSettings = UIApplicationSceneSettings +module UIApplicationSceneSpecification = UIApplicationSceneSpecification +module UIApplicationShortcutIcon = UIApplicationShortcutIcon +module UIApplicationShortcutIconClass = UIApplicationShortcutIconClass +module UIApplicationShortcutItem = UIApplicationShortcutItem +module UIAssistantBarRoundedButtonView = UIAssistantBarRoundedButtonView +module UIAssistantBarSeparatorView = UIAssistantBarSeparatorView +module UIAssistantBarSeparatorViewClass = UIAssistantBarSeparatorViewClass +module UIAttachmentBehavior = UIAttachmentBehavior +module UIAttachmentBehaviorClass = UIAttachmentBehaviorClass +module UIAutoRotatingWindow = UIAutoRotatingWindow +module UIAutocorrectBubble = UIAutocorrectBubble +module UIAutocorrectBubbleContainer = UIAutocorrectBubbleContainer +module UIAutocorrectInlinePrompt = UIAutocorrectInlinePrompt +module UIAutocorrectShadowView = UIAutocorrectShadowView +module UIAutocorrectTextView = UIAutocorrectTextView +module UIAutoscroll = UIAutoscroll +module UIAvoidanceCoordinator = UIAvoidanceCoordinator +module UIBackgroundConfiguration = UIBackgroundConfiguration +module UIBackgroundConfigurationClass = UIBackgroundConfigurationClass +module UIBandSelectionInteraction = UIBandSelectionInteraction +module UIBannerAction = UIBannerAction +module UIBarAppearance = UIBarAppearance +module UIBarAppearanceClass = UIBarAppearanceClass +module UIBarButtonAction = UIBarButtonAction +module UIBarButtonActionClass = UIBarButtonActionClass +module UIBarButtonItem = UIBarButtonItem +module UIBarButtonItemAppearance = UIBarButtonItemAppearance +module UIBarButtonItemAppearanceClass = UIBarButtonItemAppearanceClass +module UIBarButtonItemClass = UIBarButtonItemClass +module UIBarButtonItemGroup = UIBarButtonItemGroup +module UIBarItem = UIBarItem +module UIBarItemClass = UIBarItemClass +module UIBezierPath = UIBezierPath +module UIBezierPathClass = UIBezierPathClass +module UIBlurEffect = UIBlurEffect +module UIBlurEffectClass = UIBlurEffectClass +module UIButton = UIButton +module UIButtonClass = UIButtonClass +module UIButtonConfiguration = UIButtonConfiguration +module UIButtonConfigurationClass = UIButtonConfigurationClass +module UIButtonContent = UIButtonContent +module UIButtonLabel = UIButtonLabel +module UICGColor = UICGColor +module UICIColor = UICIColor +module UICalloutBar = UICalloutBar +module UICalloutBarBackground = UICalloutBarBackground +module UICalloutBarButton = UICalloutBarButton +module UICalloutBarButtonClass = UICalloutBarButtonClass +module UICalloutBarClass = UICalloutBarClass +module UICandidateViewController = UICandidateViewController +module UICandidateViewControllerClass = UICandidateViewControllerClass +module UICarPlayApplicationSceneSettings = UICarPlayApplicationSceneSettings +module UICellAccessory = UICellAccessory +module UICellAccessoryClass = UICellAccessoryClass +module UICellAccessoryConfiguration = UICellAccessoryConfiguration +module UICheckeredPatternView = UICheckeredPatternView +module UIClassSwapper = UIClassSwapper +module UIClassSwapperClass = UIClassSwapperClass +module UIClientRotationContext = UIClientRotationContext +module UICloudSharingController = UICloudSharingController +module UICollectionLayoutListConfiguration = UICollectionLayoutListConfiguration +module UICollectionReusableView = UICollectionReusableView +module UICollectionView = UICollectionView +module UICollectionViewAnimation = UICollectionViewAnimation +module UICollectionViewCell = UICollectionViewCell +module UICollectionViewCellRegistration = UICollectionViewCellRegistration +module UICollectionViewCellRegistrationClass = UICollectionViewCellRegistrationClass +module UICollectionViewController = UICollectionViewController +module UICollectionViewData = UICollectionViewData +module UICollectionViewDataClass = UICollectionViewDataClass +module UICollectionViewDiffableDataSource = UICollectionViewDiffableDataSource +module UICollectionViewDropPlaceholder = UICollectionViewDropPlaceholder +module UICollectionViewDropProposal = UICollectionViewDropProposal +module UICollectionViewFlowLayout = UICollectionViewFlowLayout +module UICollectionViewFlowLayoutClass = UICollectionViewFlowLayoutClass +module UICollectionViewFocusUpdateContext = UICollectionViewFocusUpdateContext +module UICollectionViewLayout = UICollectionViewLayout +module UICollectionViewLayoutAttributes = UICollectionViewLayoutAttributes +module UICollectionViewLayoutAttributesClass = UICollectionViewLayoutAttributesClass +module UICollectionViewLayoutClass = UICollectionViewLayoutClass +module UICollectionViewListCell = UICollectionViewListCell +module UICollectionViewPlaceholder = UICollectionViewPlaceholder +module UICollectionViewReorderedItem = UICollectionViewReorderedItem +module UICollectionViewTableCell = UICollectionViewTableCell +module UICollectionViewTableLayout = UICollectionViewTableLayout +module UICollectionViewTableLayoutAttributes = UICollectionViewTableLayoutAttributes +module UICollectionViewTableLayoutAttributesClass = UICollectionViewTableLayoutAttributesClass +module UICollectionViewTableLayoutClass = UICollectionViewTableLayoutClass +module UICollectionViewTableSeparatorView = UICollectionViewTableSeparatorView +module UICollectionViewTransitionLayout = UICollectionViewTransitionLayout +module UICollectionViewUpdate = UICollectionViewUpdate +module UICollectionViewUpdateItem = UICollectionViewUpdateItem +module UICollisionBehavior = UICollisionBehavior +module UIColor = UIColor +module UIColorClass = UIColorClass +module UIColorEffect = UIColorEffect +module UIColorEffectClass = UIColorEffectClass +module UIColorPickerViewController = UIColorPickerViewController +module UIColorPickerViewControllerClass = UIColorPickerViewControllerClass +module UIColorWell = UIColorWell +module UIColorWellClass = UIColorWellClass +module UICommand = UICommand +module UICommandAlternate = UICommandAlternate +module UICommandAlternateClass = UICommandAlternateClass +module UICommandClass = UICommandClass +module UIConcreteLocalNotification = UIConcreteLocalNotification +module UIConcreteLocalNotificationClass = UIConcreteLocalNotificationClass +module UIContextMenuConfiguration = UIContextMenuConfiguration +module UIContextMenuConfigurationClass = UIContextMenuConfigurationClass +module UIContextMenuInteraction = UIContextMenuInteraction +module UIContextualAction = UIContextualAction +module UIContextualActionClass = UIContextualActionClass +module UIContinuousPathIntroductionView = UIContinuousPathIntroductionView +module UIControl = UIControl +module UIControlTargetAction = UIControlTargetAction +module UICoverSheetButton = UICoverSheetButton +module UICubicTimingParameters = UICubicTimingParameters +module UICursorInteraction = UICursorInteraction +module UICustomObject = UICustomObject +module UICustomViewMenuElement = UICustomViewMenuElement +module UICustomViewMenuElementClass = UICustomViewMenuElementClass +module UIDateLabel = UIDateLabel +module UIDateLabelClass = UIDateLabelClass +module UIDatePicker = UIDatePicker +module UIDatePickerContentView = UIDatePickerContentView +module UIDatePickerWeekMonthDayView = UIDatePickerWeekMonthDayView +module UIDefaultKeyboardInput = UIDefaultKeyboardInput +module UIDeferredMenuElement = UIDeferredMenuElement +module UIDeferredMenuElementClass = UIDeferredMenuElementClass +module UIDelayedAction = UIDelayedAction +module UIDescriptionBuilder = UIDescriptionBuilder +module UIDescriptionBuilderClass = UIDescriptionBuilderClass +module UIDestroySceneAction = UIDestroySceneAction +module UIDevice = UIDevice +module UIDeviceClass = UIDeviceClass +module UIDeviceRGBColor = UIDeviceRGBColor +module UIDeviceWhiteColor = UIDeviceWhiteColor +module UIDictationInputMode = UIDictationInputMode +module UIDictationInputModeClass = UIDictationInputModeClass +module UIDictationPhrase = UIDictationPhrase +module UIDictationPhraseClass = UIDictationPhraseClass +module UIDigitizerLongPressGestureRecognizer = UIDigitizerLongPressGestureRecognizer +module UIDigitizerTapGestureRecognizer = UIDigitizerTapGestureRecognizer +module UIDimmingView = UIDimmingView +module UIDimmingViewClass = UIDimmingViewClass +module UIDismissSceneAction = UIDismissSceneAction +module UIDisplayP3Color = UIDisplayP3Color +module UIDocument = UIDocument +module UIDocumentAlertPresenter = UIDocumentAlertPresenter +module UIDocumentMenuViewController = UIDocumentMenuViewController +module UIDocumentPasswordView = UIDocumentPasswordView +module UIDocumentPickerViewController = UIDocumentPickerViewController +module UIDocumentSharingController = UIDocumentSharingController +module UIDragEvent = UIDragEvent +module UIDragGestureRecognizer = UIDragGestureRecognizer +module UIDragInteraction = UIDragInteraction +module UIDragInteractionClass = UIDragInteractionClass +module UIDragItem = UIDragItem +module UIDragPreview = UIDragPreview +module UIDragPreviewClass = UIDragPreviewClass +module UIDragRecognizer = UIDragRecognizer +module UIDropInteraction = UIDropInteraction +module UIDropInteractionGestureRecognizer = UIDropInteractionGestureRecognizer +module UIDropProposal = UIDropProposal +module UIDropShadowRimPartView = UIDropShadowRimPartView +module UIDropShadowView = UIDropShadowView +module UIDynamicAnimator = UIDynamicAnimator +module UIDynamicAnimatorClass = UIDynamicAnimatorClass +module UIDynamicAnimatorTicker = UIDynamicAnimatorTicker +module UIDynamicAppDefinedColor = UIDynamicAppDefinedColor +module UIDynamicAppDefinedColorClass = UIDynamicAppDefinedColorClass +module UIDynamicBehavior = UIDynamicBehavior +module UIDynamicBehaviorClass = UIDynamicBehaviorClass +module UIDynamicCaret = UIDynamicCaret +module UIDynamicCatalogColor = UIDynamicCatalogColor +module UIDynamicCatalogColorClass = UIDynamicCatalogColorClass +module UIDynamicColor = UIDynamicColor +module UIDynamicItemBehavior = UIDynamicItemBehavior +module UIDynamicItemGroup = UIDynamicItemGroup +module UIDynamicModifiedColor = UIDynamicModifiedColor +module UIDynamicModifiedColorClass = UIDynamicModifiedColorClass +module UIDynamicPatternColor = UIDynamicPatternColor +module UIDynamicProviderColor = UIDynamicProviderColor +module UIDynamicProviderColorClass = UIDynamicProviderColorClass +module UIDynamicSystemColor = UIDynamicSystemColor +module UIEdgeInsets = UIEdgeInsets +module UIEditingOverlayGestureView = UIEditingOverlayGestureView +module UIEditingOverlayViewController = UIEditingOverlayViewController +module UIEvent = UIEvent +module UIEventAttribution = UIEventAttribution +module UIEventAttributionView = UIEventAttributionView +module UIEventAttributionViewClass = UIEventAttributionViewClass +module UIEventDispatcher = UIEventDispatcher +module UIEventEnvironment = UIEventEnvironment +module UIEventFetcher = UIEventFetcher +module UIExternalScenePairingObserver = UIExternalScenePairingObserver +module UIFeedbackGenerator = UIFeedbackGenerator +module UIFeedbackGeneratorClass = UIFeedbackGeneratorClass +module UIFieldBehavior = UIFieldBehavior +module UIFieldBehaviorClass = UIFieldBehaviorClass +module UIFieldEditor = UIFieldEditor +module UIFieldEditorClass = UIFieldEditorClass +module UIFloatRange = UIFloatRange +module UIFocusEffect = UIFocusEffect +module UIFocusEffectClass = UIFocusEffectClass +module UIFocusGuide = UIFocusGuide +module UIFocusSystem = UIFocusSystem +module UIFocusSystemClass = UIFocusSystemClass +module UIFocusUpdateContext = UIFocusUpdateContext +module UIFontMetrics = UIFontMetrics +module UIFontMetricsClass = UIFontMetricsClass +module UIFontPickerController = UIFontPickerController +module UIFontPickerViewController = UIFontPickerViewController +module UIFrameAnimation = UIFrameAnimation +module UIGestureDelayedPress = UIGestureDelayedPress +module UIGestureDelayedTouch = UIGestureDelayedTouch +module UIGestureEnvironment = UIGestureEnvironment +module UIGestureGraph = UIGestureGraph +module UIGestureGraphEdge = UIGestureGraphEdge +module UIGestureGraphElement = UIGestureGraphElement +module UIGestureGraphNode = UIGestureGraphNode +module UIGestureKeyboardIntroduction = UIGestureKeyboardIntroduction +module UIGestureRecognizer = UIGestureRecognizer +module UIGestureRecognizerClass = UIGestureRecognizerClass +module UIGestureRecognizerTarget = UIGestureRecognizerTarget +module UIGestureRecognizerTargetClass = UIGestureRecognizerTargetClass +module UIGradient = UIGradient +module UIGraphicsImageRenderer = UIGraphicsImageRenderer +module UIGraphicsImageRendererClass = UIGraphicsImageRendererClass +module UIGraphicsImageRendererFormat = UIGraphicsImageRendererFormat +module UIGraphicsImageRendererFormatClass = UIGraphicsImageRendererFormatClass +module UIGraphicsPDFRenderer = UIGraphicsPDFRenderer +module UIGraphicsPDFRendererClass = UIGraphicsPDFRendererClass +module UIGraphicsPDFRendererContext = UIGraphicsPDFRendererContext +module UIGraphicsPDFRendererFormat = UIGraphicsPDFRendererFormat +module UIGraphicsRenderer = UIGraphicsRenderer +module UIGraphicsRendererClass = UIGraphicsRendererClass +module UIGraphicsRendererContext = UIGraphicsRendererContext +module UIGraphicsRendererFormat = UIGraphicsRendererFormat +module UIGraphicsRendererFormatClass = UIGraphicsRendererFormatClass +module UIGravityBehavior = UIGravityBehavior +module UIHandleLocalNotificationAction = UIHandleLocalNotificationAction +module UIHandleStatusBarTapAction = UIHandleStatusBarTapAction +module UIHandwritingAssistantView = UIHandwritingAssistantView +module UIHealthAuthorizationAction = UIHealthAuthorizationAction +module UIHeldAction = UIHeldAction +module UIHoverEvent = UIHoverEvent +module UIHoverGestureRecognizer = UIHoverGestureRecognizer +module UIImage = UIImage +module UIImageAsset = UIImageAsset +module UIImageAssetClass = UIImageAssetClass +module UIImageClass = UIImageClass +module UIImageConfiguration = UIImageConfiguration +module UIImageConfigurationClass = UIImageConfigurationClass +module UIImageNibPlaceholder = UIImageNibPlaceholder +module UIImagePickerController = UIImagePickerController +module UIImagePickerControllerClass = UIImagePickerControllerClass +module UIImageSymbolConfiguration = UIImageSymbolConfiguration +module UIImageSymbolConfigurationClass = UIImageSymbolConfigurationClass +module UIImageView = UIImageView +module UIImmediateEdgeSwipeGestureRecognizer = UIImmediateEdgeSwipeGestureRecognizer +module UIImpactFeedbackGenerator = UIImpactFeedbackGenerator +module UIIndexBarAccessoryView = UIIndexBarAccessoryView +module UIIndexBarDisplayEntry = UIIndexBarDisplayEntry +module UIIndexBarEntry = UIIndexBarEntry +module UIIndexBarEntryClass = UIIndexBarEntryClass +module UIIndexBarView = UIIndexBarView +module UIIndirectScribbleInteraction = UIIndirectScribbleInteraction +module UIInputContextHistory = UIInputContextHistory +module UIInputResponderController = UIInputResponderController +module UIInputResponderControllerClass = UIInputResponderControllerClass +module UIInputSetContainerView = UIInputSetContainerView +module UIInputSetHostView = UIInputSetHostView +module UIInputSetHostViewClass = UIInputSetHostViewClass +module UIInputSwitcher = UIInputSwitcher +module UIInputSwitcherClass = UIInputSwitcherClass +module UIInputSwitcherGestureState = UIInputSwitcherGestureState +module UIInputSwitcherItem = UIInputSwitcherItem +module UIInputSwitcherItemClass = UIInputSwitcherItemClass +module UIInputSwitcherSegmentControl = UIInputSwitcherSegmentControl +module UIInputSwitcherSegmentedTableCell = UIInputSwitcherSegmentedTableCell +module UIInputSwitcherSegmentedTableCellClass = UIInputSwitcherSegmentedTableCellClass +module UIInputSwitcherSelectionExtraView = UIInputSwitcherSelectionExtraView +module UIInputSwitcherShadowView = UIInputSwitcherShadowView +module UIInputSwitcherTableCell = UIInputSwitcherTableCell +module UIInputSwitcherTableCellBackgroundView = UIInputSwitcherTableCellBackgroundView +module UIInputSwitcherTableCellClass = UIInputSwitcherTableCellClass +module UIInputSwitcherTableCellSegmentView = UIInputSwitcherTableCellSegmentView +module UIInputSwitcherTableView = UIInputSwitcherTableView +module UIInputSwitcherView = UIInputSwitcherView +module UIInputSwitcherViewClass = UIInputSwitcherViewClass +module UIInputView = UIInputView +module UIInputViewAnimationStyle = UIInputViewAnimationStyle +module UIInputViewAnimationStyleClass = UIInputViewAnimationStyleClass +module UIInputViewController = UIInputViewController +module UIInputViewControllerClass = UIInputViewControllerClass +module UIInputViewControllerInterface = UIInputViewControllerInterface +module UIInputViewControllerInterfaceClient = UIInputViewControllerInterfaceClient +module UIInputViewSet = UIInputViewSet +module UIInputViewSetClass = UIInputViewSetClass +module UIInputViewSetNotificationInfo = UIInputViewSetNotificationInfo +module UIInputViewSetNotificationInfoClass = UIInputViewSetNotificationInfoClass +module UIInputViewSetPlacement = UIInputViewSetPlacement +module UIInputViewSetPlacementClass = UIInputViewSetPlacementClass +module UIInputViewTransition = UIInputViewTransition +module UIInputWindowController = UIInputWindowController +module UIInputWindowControllerHosting = UIInputWindowControllerHosting +module UIInputWindowControllerHostingItem = UIInputWindowControllerHostingItem +module UIInteractionProgress = UIInteractionProgress +module UIInterfaceAction = UIInterfaceAction +module UIInterfaceActionClass = UIInterfaceActionClass +module UIInterfaceActionGroup = UIInterfaceActionGroup +module UIInterfaceActionGroupClass = UIInterfaceActionGroupClass +module UIInterfaceActionGroupView = UIInterfaceActionGroupView +module UIInterfaceActionGroupViewController = UIInterfaceActionGroupViewController +module UIInterfaceActionGroupViewState = UIInterfaceActionGroupViewState +module UIInterfaceActionSection = UIInterfaceActionSection +module UIInterfaceActionSectionClass = UIInterfaceActionSectionClass +module UIInterfaceActionSeparatorAttributes = UIInterfaceActionSeparatorAttributes +module UIInterfaceActionViewState = UIInterfaceActionViewState +module UIInterfaceActionViewStateClass = UIInterfaceActionViewStateClass +module UIInterfaceActionVisualStyle = UIInterfaceActionVisualStyle +module UIInterfaceActionVisualStyleClass = UIInterfaceActionVisualStyleClass +module UIInterpolatedColor = UIInterpolatedColor +module UIInterpolatedColorClass = UIInterpolatedColorClass +module UIInterpolatedColorMatrix = UIInterpolatedColorMatrix +module UIInterpolatedColorMatrixClass = UIInterpolatedColorMatrixClass +module UIInterpolatedFloat = UIInterpolatedFloat +module UIInterpolatedFloatClass = UIInterpolatedFloatClass +module UIInterpolatedPoint = UIInterpolatedPoint +module UIInterpolatedPointClass = UIInterpolatedPointClass +module UIInterpolatedRect = UIInterpolatedRect +module UIInterpolatedRectClass = UIInterpolatedRectClass +module UIInterpolatedSize = UIInterpolatedSize +module UIInterpolatedSizeClass = UIInterpolatedSizeClass +module UIInterpolatedTransform = UIInterpolatedTransform +module UIInterpolatedTransformClass = UIInterpolatedTransformClass +module UIInterpolatingMotionEffect = UIInterpolatingMotionEffect +module UIItemProvider = UIItemProvider +module UIKey = UIKey +module UIKeyCommand = UIKeyCommand +module UIKeyCommandClass = UIKeyCommandClass +module UIKeyboard = UIKeyboard +module UIKeyboardAutocorrectionController = UIKeyboardAutocorrectionController +module UIKeyboardAutomatic = UIKeyboardAutomatic +module UIKeyboardAutomaticClass = UIKeyboardAutomaticClass +module UIKeyboardBIUImageGenerator = UIKeyboardBIUImageGenerator +module UIKeyboardButton = UIKeyboardButton +module UIKeyboardClass = UIKeyboardClass +module UIKeyboardDictationMenu = UIKeyboardDictationMenu +module UIKeyboardDictationMenuClass = UIKeyboardDictationMenuClass +module UIKeyboardDockItem = UIKeyboardDockItem +module UIKeyboardDockItemButton = UIKeyboardDockItemButton +module UIKeyboardDockView = UIKeyboardDockView +module UIKeyboardDockViewClass = UIKeyboardDockViewClass +module UIKeyboardExtensionInputMode = UIKeyboardExtensionInputMode +module UIKeyboardFlipTransitionView = UIKeyboardFlipTransitionView +module UIKeyboardFloatingPinchGestureRecognizer = UIKeyboardFloatingPinchGestureRecognizer +module UIKeyboardGlobeKeyIntroductionView = UIKeyboardGlobeKeyIntroductionView +module UIKeyboardInputManagerClient = UIKeyboardInputManagerClient +module UIKeyboardInputManagerClientClass = UIKeyboardInputManagerClientClass +module UIKeyboardInputMode = UIKeyboardInputMode +module UIKeyboardInputModeClass = UIKeyboardInputModeClass +module UIKeyboardInputModeController = UIKeyboardInputModeController +module UIKeyboardInputModeControllerClass = UIKeyboardInputModeControllerClass +module UIKeyboardKeySwipeTransition = UIKeyboardKeySwipeTransition +module UIKeyboardKeyplaneSnapshotView = UIKeyboardKeyplaneSnapshotView +module UIKeyboardKeyplaneTransition = UIKeyboardKeyplaneTransition +module UIKeyboardLayout = UIKeyboardLayout +module UIKeyboardLayoutClass = UIKeyboardLayoutClass +module UIKeyboardLayoutCursor = UIKeyboardLayoutCursor +module UIKeyboardLayoutCursorClass = UIKeyboardLayoutCursorClass +module UIKeyboardLayoutGuide = UIKeyboardLayoutGuide +module UIKeyboardLayoutStar = UIKeyboardLayoutStar +module UIKeyboardLayoutStarClass = UIKeyboardLayoutStarClass +module UIKeyboardMenuView = UIKeyboardMenuView +module UIKeyboardMotionSupport = UIKeyboardMotionSupport +module UIKeyboardMotionSupportClass = UIKeyboardMotionSupportClass +module UIKeyboardPathEffectView = UIKeyboardPathEffectView +module UIKeyboardPinchGestureRecognizer = UIKeyboardPinchGestureRecognizer +module UIKeyboardPopoverContainer = UIKeyboardPopoverContainer +module UIKeyboardPopoverContainerClass = UIKeyboardPopoverContainerClass +module UIKeyboardPopoverController = UIKeyboardPopoverController +module UIKeyboardPreferencesController = UIKeyboardPreferencesController +module UIKeyboardPreferencesControllerClass = UIKeyboardPreferencesControllerClass +module UIKeyboardSceneDelegate = UIKeyboardSceneDelegate +module UIKeyboardSceneDelegateClass = UIKeyboardSceneDelegateClass +module UIKeyboardScheduledTask = UIKeyboardScheduledTask +module UIKeyboardShiftTransition = UIKeyboardShiftTransition +module UIKeyboardSliceSet = UIKeyboardSliceSet +module UIKeyboardSliceSetClass = UIKeyboardSliceSetClass +module UIKeyboardSliceStore = UIKeyboardSliceStore +module UIKeyboardSliceStoreClass = UIKeyboardSliceStoreClass +module UIKeyboardSliceTransitionView = UIKeyboardSliceTransitionView +module UIKeyboardSplitControlMenu = UIKeyboardSplitControlMenu +module UIKeyboardSplitControlMenuClass = UIKeyboardSplitControlMenuClass +module UIKeyboardSplitTransitionView = UIKeyboardSplitTransitionView +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 +module UILayoutContainerView = UILayoutContainerView +module UILayoutGuide = UILayoutGuide +module UILexicon = UILexicon +module UILexiconEntry = UILexiconEntry +module UIListContentConfiguration = UIListContentConfiguration +module UIListContentConfigurationClass = UIListContentConfigurationClass +module UIListContentImageProperties = UIListContentImageProperties +module UIListContentImagePropertiesClass = UIListContentImagePropertiesClass +module UIListContentTextProperties = UIListContentTextProperties +module UIListContentTextPropertiesClass = UIListContentTextPropertiesClass +module UIListContentView = UIListContentView +module UIListSeparatorConfiguration = UIListSeparatorConfiguration +module UIListSeparatorConfigurationClass = UIListSeparatorConfigurationClass +module UILocalNotification = UILocalNotification +module UILocalizedIndexedCollation = UILocalizedIndexedCollation +module UILocalizedIndexedCollationClass = UILocalizedIndexedCollationClass +module UILongPressGestureRecognizer = UILongPressGestureRecognizer +module UILongPressGestureRecognizerClass = UILongPressGestureRecognizerClass +module UILookupEvent = UILookupEvent +module UIMacSystemColor = UIMacSystemColor +module UIManagedDocument = UIManagedDocument +module UIManagedDocumentClass = UIManagedDocumentClass +module UIMarkupTextPrintFormatter = UIMarkupTextPrintFormatter +module UIMenu = UIMenu +module UIMenuClass = UIMenuClass +module UIMenuController = UIMenuController +module UIMenuControllerClass = UIMenuControllerClass +module UIMenuElement = UIMenuElement +module UIMenuElementClass = UIMenuElementClass +module UIMenuItem = UIMenuItem +module UIMenuSystem = UIMenuSystem +module UIMenuSystemClass = UIMenuSystemClass +module UIMoreListCellLayoutManager = UIMoreListCellLayoutManager +module UIMoreListController = UIMoreListController +module UIMoreNavigationController = UIMoreNavigationController +module UIMorphingLabel = UIMorphingLabel +module UIMorphingLabelClass = UIMorphingLabelClass +module UIMorphingLabelGlyphSet = UIMorphingLabelGlyphSet +module UIMorphingLabelImage = UIMorphingLabelImage +module UIMorphingLabelImageView = UIMorphingLabelImageView +module UIMotionEffect = UIMotionEffect +module UIMotionEffectGroup = UIMotionEffectGroup +module UIMotionEvent = UIMotionEvent +module UIMovieScrubber = UIMovieScrubber +module UIMovieScrubberClass = UIMovieScrubberClass +module UIMovieScrubberEditingView = UIMovieScrubberEditingView +module UIMovieScrubberThumbnailView = UIMovieScrubberThumbnailView +module UIMovieScrubberTrackOverlayView = UIMovieScrubberTrackOverlayView +module UIMovieScrubberTrackView = UIMovieScrubberTrackView +module UIMultiColumnViewController = UIMultiColumnViewController +module UIMultiSelectInteraction = UIMultiSelectInteraction +module UIMultiSelectInteractionState = UIMultiSelectInteractionState +module UIMutableApplicationSceneSettings = UIMutableApplicationSceneSettings +module UIMutableTransformer = UIMutableTransformer +module UINSAlertButton = UINSAlertButton +module UINavigationBar = UINavigationBar +module UINavigationBarAppearance = UINavigationBarAppearance +module UINavigationBarAppearanceClass = UINavigationBarAppearanceClass +module UINavigationBarClass = UINavigationBarClass +module UINavigationButton = UINavigationButton +module UINavigationButtonClass = UINavigationButtonClass +module UINavigationContentAdjustments = UINavigationContentAdjustments +module UINavigationController = UINavigationController +module UINavigationControllerClass = UINavigationControllerClass +module UINavigationDeferredTransitionContext = UINavigationDeferredTransitionContext +module UINavigationItem = UINavigationItem +module UINavigationItemClass = UINavigationItemClass +module UINavigationTransitionView = UINavigationTransitionView +module UINavigationTransitionViewClass = UINavigationTransitionViewClass +module UINib = UINib +module UINibClass = UINibClass +module UINibKeyValuePair = UINibKeyValuePair +module UINibStorage = UINibStorage +module UINotificationSettingsAction = UINotificationSettingsAction +module UIOffset = UIOffset +module UIOpenURLContext = UIOpenURLContext +module UIPPTRequestAction = UIPPTRequestAction +module UIPageControl = UIPageControl +module UIPageControlClass = UIPageControlClass +module UIPageController = UIPageController +module UIPageControllerScrollView = UIPageControllerScrollView +module UIPageViewController = UIPageViewController +module UIPageViewControllerClass = UIPageViewControllerClass +module UIPanGestureRecognizer = UIPanGestureRecognizer +module UIPanGestureRecognizerClass = UIPanGestureRecognizerClass +module UIPanelBorderView = UIPanelBorderView +module UIPanelController = UIPanelController +module UIPasscodeField = UIPasscodeField +module UIPasscodeFieldClass = UIPasscodeFieldClass +module UIPasteConfiguration = UIPasteConfiguration +module UIPasteConfigurationClass = UIPasteConfigurationClass +module UIPasteboard = UIPasteboard +module UIPasteboardClass = UIPasteboardClass +module UIPatternCGColor = UIPatternCGColor +module UIPencilEvent = UIPencilEvent +module UIPencilInteraction = UIPencilInteraction +module UIPencilInteractionClass = UIPencilInteractionClass +module UIPeripheralHost = UIPeripheralHost +module UIPeripheralHostClass = UIPeripheralHostClass +module UIPeripheralHostState = UIPeripheralHostState +module UIPeripheralHostStateClass = UIPeripheralHostStateClass +module UIPhraseBoundaryGestureRecognizer = UIPhraseBoundaryGestureRecognizer +module UIPhysicalKeyboardEvent = UIPhysicalKeyboardEvent +module UIPickerColumnView = UIPickerColumnView +module UIPickerContentView = UIPickerContentView +module UIPickerTableView = UIPickerTableView +module UIPickerTableViewCell = UIPickerTableViewCell +module UIPickerTableViewTitledCell = UIPickerTableViewTitledCell +module UIPickerTableViewWrapperCell = UIPickerTableViewWrapperCell +module UIPickerView = UIPickerView +module UIPickerViewClass = UIPickerViewClass +module UIPinchGestureRecognizer = UIPinchGestureRecognizer +module UIPinchGestureRecognizerClass = UIPinchGestureRecognizerClass +module UIPointerAccessory = UIPointerAccessory +module UIPointerAccessoryClass = UIPointerAccessoryClass +module UIPointerAccessoryPosition = UIPointerAccessoryPosition +module UIPointerAppIconEffect = UIPointerAppIconEffect +module UIPointerEffect = UIPointerEffect +module UIPointerEffectClass = UIPointerEffectClass +module UIPointerHoverEffect = UIPointerHoverEffect +module UIPointerInteraction = UIPointerInteraction +module UIPointerInteractionAnimator = UIPointerInteractionAnimator +module UIPointerLiftEffect = UIPointerLiftEffect +module UIPointerLockState = UIPointerLockState +module UIPointerRegion = UIPointerRegion +module UIPointerRegionClass = UIPointerRegionClass +module UIPointerRegionRequest = UIPointerRegionRequest +module UIPointerShape = UIPointerShape +module UIPointerShapeClass = UIPointerShapeClass +module UIPointerStyle = UIPointerStyle +module UIPointerStyleClass = UIPointerStyleClass +module UIPopoverBackgroundView = UIPopoverBackgroundView +module UIPopoverBackgroundViewClass = UIPopoverBackgroundViewClass +module UIPopoverButton = UIPopoverButton +module UIPopoverController = UIPopoverController +module UIPopoverPresentationController = UIPopoverPresentationController +module UIPredictionViewController = UIPredictionViewController +module UIPresentationController = UIPresentationController +module UIPresentationControllerClass = UIPresentationControllerClass +module UIPress = UIPress +module UIPressInfo = UIPressInfo +module UIPressesEvent = UIPressesEvent +module UIPreviewAction = UIPreviewAction +module UIPreviewActionClass = UIPreviewActionClass +module UIPreviewActionGroup = UIPreviewActionGroup +module UIPreviewActionGroupClass = UIPreviewActionGroupClass +module UIPreviewForceInteractionProgress = UIPreviewForceInteractionProgress +module UIPreviewInteraction = UIPreviewInteraction +module UIPreviewInteractionController = UIPreviewInteractionController +module UIPreviewItemController = UIPreviewItemController +module UIPreviewMenuItem = UIPreviewMenuItem +module UIPreviewMenuItemClass = UIPreviewMenuItemClass +module UIPreviewParameters = UIPreviewParameters +module UIPreviewPresentationController = UIPreviewPresentationController +module UIPreviewTarget = UIPreviewTarget +module UIPrintFormatter = UIPrintFormatter +module UIPrintInfo = UIPrintInfo +module UIPrintInfoClass = UIPrintInfoClass +module UIPrintInfoRequest = UIPrintInfoRequest +module UIPrintInfoRequestClass = UIPrintInfoRequestClass +module UIPrintInteractionController = UIPrintInteractionController +module UIPrintInteractionControllerClass = UIPrintInteractionControllerClass +module UIPrintPageRenderer = UIPrintPageRenderer +module UIPrintPanelViewController = UIPrintPanelViewController +module UIPrintPaper = UIPrintPaper +module UIPrintPaperClass = UIPrintPaperClass +module UIPrintPreviewState = UIPrintPreviewState +module UIPrintServiceExtension = UIPrintServiceExtension +module UIPrintServiceExtensionContext = UIPrintServiceExtensionContext +module UIPrinter = UIPrinter +module UIPrinterClass = UIPrinterClass +module UIPrinterDestination = UIPrinterDestination +module UIPrinterDestinationClass = UIPrinterDestinationClass +module UIPrinterPickerController = UIPrinterPickerController +module UIPrinterPickerControllerClass = UIPrinterPickerControllerClass +module UIPrinterSetupConnectingView = UIPrinterSetupConnectingView +module UIPrintingMessageView = UIPrintingMessageView +module UIProgressHUD = UIProgressHUD +module UIProgressIndicator = UIProgressIndicator +module UIProgressIndicatorClass = UIProgressIndicatorClass +module UIProgressView = UIProgressView +module UIProgressViewClass = UIProgressViewClass +module UIProgressViewMacVisualElement = UIProgressViewMacVisualElement +module UIProxyObject = UIProxyObject +module UIProxyObjectClass = UIProxyObjectClass +module UIPushBehavior = UIPushBehavior +module UIRecentInputTableCell = UIRecentInputTableCell +module UIRecentInputTableCellClass = UIRecentInputTableCellClass +module UIRecentsInputViewController = UIRecentsInputViewController +module UIReferenceLibraryViewController = UIReferenceLibraryViewController +module UIReferenceLibraryViewControllerClass = UIReferenceLibraryViewControllerClass +module UIRefreshControl = UIRefreshControl +module UIRegion = UIRegion +module UIRegionClass = UIRegionClass +module UIRemoteControlEvent = UIRemoteControlEvent +module UIRemoteInputViewControllerInterface = UIRemoteInputViewControllerInterface +module UIRemoteKeyboardWindow = UIRemoteKeyboardWindow +module UIRemoteKeyboardWindowClass = UIRemoteKeyboardWindowClass +module UIRemoteKeyboardWindowHosted = UIRemoteKeyboardWindowHosted +module UIRepeatedAction = UIRepeatedAction +module UIRepeatedActionClass = UIRepeatedActionClass +module UIResponder = UIResponder +module UIResponderClass = UIResponderClass +module UIRevealInteractionHighlighter = UIRevealInteractionHighlighter +module UIRootSceneWindow = UIRootSceneWindow +module UIRootWindowScenePresentationBinder = UIRootWindowScenePresentationBinder +module UIRotationGestureRecognizer = UIRotationGestureRecognizer +module UIRotationGestureRecognizerClass = UIRotationGestureRecognizerClass +module UIRoundedRectButton = UIRoundedRectButton +module UIRowMoveUpdateItem = UIRowMoveUpdateItem +module UIRuntimeAccessibilityConfiguration = UIRuntimeAccessibilityConfiguration +module UIRuntimeConnection = UIRuntimeConnection +module UIRuntimeEventConnection = UIRuntimeEventConnection +module UIRuntimeOutletCollectionConnection = UIRuntimeOutletCollectionConnection +module UIRuntimeOutletConnection = UIRuntimeOutletConnection +module UIScene = UIScene +module UISceneActivationConditions = UISceneActivationConditions +module UISceneActivationConditionsClass = UISceneActivationConditionsClass +module UISceneActivationRequestOptions = UISceneActivationRequestOptions +module UISceneAsynchronousRenderingOptions = UISceneAsynchronousRenderingOptions +module UISceneConfiguration = UISceneConfiguration +module UISceneConfigurationClass = UISceneConfigurationClass +module UISceneConnectionOptions = UISceneConnectionOptions +module UISceneHitTestAction = UISceneHitTestAction +module UISceneHitTestActionResponse = UISceneHitTestActionResponse +module UISceneLayerPresentationContext = UISceneLayerPresentationContext +module UISceneOpenExternalURLOptions = UISceneOpenExternalURLOptions +module UISceneOpenURLOptions = UISceneOpenURLOptions +module UIScenePresentationBinder = UIScenePresentationBinder +module UIScenePresentationContext = UIScenePresentationContext +module UIScenePresentationManager = UIScenePresentationManager +module UISceneProposalAction = UISceneProposalAction +module UISceneProposalActionResponse = UISceneProposalActionResponse +module UISceneProposalActionResponseClass = UISceneProposalActionResponseClass +module UISceneSession = UISceneSession +module UISceneSessionClass = UISceneSessionClass +module UISceneSizeRestrictions = UISceneSizeRestrictions +module UIScreen = UIScreen +module UIScreenClass = UIScreenClass +module UIScreenEdgePanGestureRecognizer = UIScreenEdgePanGestureRecognizer +module UIScreenEdgePanGestureRecognizerClass = UIScreenEdgePanGestureRecognizerClass +module UIScreenMode = UIScreenMode +module UIScreenshotMetadataRequestAction = UIScreenshotMetadataRequestAction +module UIScreenshotService = UIScreenshotService +module UIScribbleInteraction = UIScribbleInteraction +module UIScribbleInteractionClass = UIScribbleInteractionClass +module UIScrollAnimation = UIScrollAnimation +module UIScrollEvent = UIScrollEvent +module UIScrollTestParameters = UIScrollTestParameters +module UIScrollToDismissSupport = UIScrollToDismissSupport +module UIScrollView = UIScrollView +module UIScrollViewDelayedTouchesBeganGestureRecognizer = UIScrollViewDelayedTouchesBeganGestureRecognizer +module UIScrollViewDirectionalPressGestureRecognizer = UIScrollViewDirectionalPressGestureRecognizer +module UIScrollViewPagingSwipeGestureRecognizer = UIScrollViewPagingSwipeGestureRecognizer +module UIScrollViewPanGestureRecognizer = UIScrollViewPanGestureRecognizer +module UIScrollViewPinchGestureRecognizer = UIScrollViewPinchGestureRecognizer +module UIScrollViewScrollAnimation = UIScrollViewScrollAnimation +module UISearchBar = UISearchBar +module UISearchBarBackground = UISearchBarBackground +module UISearchBarTextFieldLabel = UISearchBarTextFieldLabel +module UISearchContainerViewController = UISearchContainerViewController +module UISearchController = UISearchController +module UISearchDisplayController = UISearchDisplayController +module UISearchDisplayControllerContainerView = UISearchDisplayControllerContainerView +module UISearchField = UISearchField +module UISearchFieldClass = UISearchFieldClass +module UISearchResultsTableView = UISearchResultsTableView +module UISearchTextField = UISearchTextField +module UISearchToken = UISearchToken +module UISearchTokenClass = UISearchTokenClass +module UISectionRowData = UISectionRowData +module UISegment = UISegment +module UISegmentLabel = UISegmentLabel +module UISegmentedControl = UISegmentedControl +module UISegmentedControlClass = UISegmentedControlClass +module UISelectionGrabber = UISelectionGrabber +module UISelectionGrabberClass = UISelectionGrabberClass +module UISelectionGrabberCustomPath = UISelectionGrabberCustomPath +module UISelectionGrabberDot = UISelectionGrabberDot +module UISelectionTapRecognizer = UISelectionTapRecognizer +module UIShadowView = UIShadowView +module UIShadowViewClass = UIShadowViewClass +module UISheetPresentationController = UISheetPresentationController +module UISimpleSelectionRect = UISimpleSelectionRect +module UISimpleSelectionRectClass = UISimpleSelectionRectClass +module UISimpleTextPrintFormatter = UISimpleTextPrintFormatter +module UISiriTaskAction = UISiriTaskAction +module UISlider = UISlider +module UISliderDataModel = UISliderDataModel +module UISlidingBarConfiguration = UISlidingBarConfiguration +module UISlidingBarState = UISlidingBarState +module UISlidingBarStateRequest = UISlidingBarStateRequest +module UISnapBehavior = UISnapBehavior +module UISnapshotModalViewController = UISnapshotModalViewController +module UISnapshotView = UISnapshotView +module UISoftwareDimmingWindow = UISoftwareDimmingWindow +module UISpecializedInputMode = UISpecializedInputMode +module UISplitKeyboardSupport = UISplitKeyboardSupport +module UISplitViewController = UISplitViewController +module UISplitViewControllerClass = UISplitViewControllerClass +module UISplitViewControllerPartitionAdapter = UISplitViewControllerPartitionAdapter +module UISpringLoadedGestureRecognizer = UISpringLoadedGestureRecognizer +module UISpringLoadedInteraction = UISpringLoadedInteraction +module UISpringLoadedInteractionClass = UISpringLoadedInteractionClass +module UISpringTimingParameters = UISpringTimingParameters +module UISpringTimingParametersClass = UISpringTimingParametersClass +module UIStackView = UIStackView +module UIStackViewClass = UIStackViewClass +module UIStateRestorationKeyedUnarchiver = UIStateRestorationKeyedUnarchiver +module UIStatusBar = UIStatusBar +module UIStatusBarCache = UIStatusBarCache +module UIStatusBarCacheClass = UIStatusBarCacheClass +module UIStatusBarClass = UIStatusBarClass +module UIStatusBarItem = UIStatusBarItem +module UIStatusBarItemClass = UIStatusBarItemClass +module UIStatusBarItemView = UIStatusBarItemView +module UIStatusBarItemViewClass = UIStatusBarItemViewClass +module UIStatusBarLayoutManager = UIStatusBarLayoutManager +module UIStatusBarManager = UIStatusBarManager +module UIStatusBarStyleAttributes = UIStatusBarStyleAttributes +module UIStatusBarTapAction = UIStatusBarTapAction +module UIStatusBarWindow = UIStatusBarWindow +module UIStatusBarWindowClass = UIStatusBarWindowClass +module UIStepper = UIStepper +module UIStepperClass = UIStepperClass +module UIStepperHorizontalVisualElement = UIStepperHorizontalVisualElement +module UIStepperHorizontalVisualElementClass = UIStepperHorizontalVisualElementClass +module UIStoryboard = UIStoryboard +module UIStoryboardClass = UIStoryboardClass +module UIStoryboardScene = UIStoryboardScene +module UIStoryboardSegue = UIStoryboardSegue +module UIStoryboardSegueClass = UIStoryboardSegueClass +module UIStoryboardSegueTemplate = UIStoryboardSegueTemplate +module UIStoryboardShowSegueTemplate = UIStoryboardShowSegueTemplate +module UIStoryboardUnwindSegueSource = UIStoryboardUnwindSegueSource +module UIStoryboardUnwindSegueTemplate = UIStoryboardUnwindSegueTemplate +module UISubTest = UISubTest +module UISwipeAction = UISwipeAction +module UISwipeActionButton = UISwipeActionButton +module UISwipeActionButtonClass = UISwipeActionButtonClass +module UISwipeActionCircularButton = UISwipeActionCircularButton +module UISwipeActionCircularButtonClass = UISwipeActionCircularButtonClass +module UISwipeActionClass = UISwipeActionClass +module UISwipeActionController = UISwipeActionController +module UISwipeActionDeleteScanlineView = UISwipeActionDeleteScanlineView +module UISwipeActionDeleteScanlineViewClass = UISwipeActionDeleteScanlineViewClass +module UISwipeActionPullView = UISwipeActionPullView +module UISwipeActionStandardButton = UISwipeActionStandardButton +module UISwipeActionsConfiguration = UISwipeActionsConfiguration +module UISwipeActionsConfigurationClass = UISwipeActionsConfigurationClass +module UISwipeGestureRecognizer = UISwipeGestureRecognizer +module UISwipeGestureRecognizerClass = UISwipeGestureRecognizerClass +module UISwipeOccurrence = UISwipeOccurrence +module UISwitch = UISwitch +module UISwitchClass = UISwitchClass +module UISwitchVisualElement = UISwitchVisualElement +module UISwitchVisualElementClass = UISwitchVisualElementClass +module UISystemGestureView = UISystemGestureView +module UISystemInputAssistantViewController = UISystemInputAssistantViewController +module UISystemInputViewController = UISystemInputViewController +module UISystemInputViewControllerClass = UISystemInputViewControllerClass +module UISystemKeyboardDockController = UISystemKeyboardDockController +module UISystemNavigationAction = UISystemNavigationAction +module UISystemShellApplication = UISystemShellApplication +module UISystemShellApplicationClass = UISystemShellApplicationClass +module UITabBar = UITabBar +module UITabBarAppearance = UITabBarAppearance +module UITabBarAppearanceClass = UITabBarAppearanceClass +module UITabBarButton = UITabBarButton +module UITabBarButtonLabel = UITabBarButtonLabel +module UITabBarController = UITabBarController +module UITabBarControllerClass = UITabBarControllerClass +module UITabBarCustomizeView = UITabBarCustomizeView +module UITabBarItem = UITabBarItem +module UITabBarItemAppearance = UITabBarItemAppearance +module UITabBarItemAppearanceClass = UITabBarItemAppearanceClass +module UITabBarItemProxy = UITabBarItemProxy +module UITabBarItemStateAppearance = UITabBarItemStateAppearance +module UITabBarSwappableImageView = UITabBarSwappableImageView +module UITableCellAccessoryLayout = UITableCellAccessoryLayout +module UITableView = UITableView +module UITableViewCell = UITableViewCell +module UITableViewCellContentMirror = UITableViewCellContentMirror +module UITableViewCellContentView = UITableViewCellContentView +module UITableViewCellContentViewClass = UITableViewCellContentViewClass +module UITableViewCellDetailDisclosureView = UITableViewCellDetailDisclosureView +module UITableViewCellEditControl = UITableViewCellEditControl +module UITableViewCellEditingData = UITableViewCellEditingData +module UITableViewCellFocusableEditControl = UITableViewCellFocusableEditControl +module UITableViewCellFocusableReorderControl = UITableViewCellFocusableReorderControl +module UITableViewCellLayoutManager = UITableViewCellLayoutManager +module UITableViewCellLayoutManagerClass = UITableViewCellLayoutManagerClass +module UITableViewCollectionCell = UITableViewCollectionCell +module UITableViewController = UITableViewController +module UITableViewCountView = UITableViewCountView +module UITableViewDataSource = UITableViewDataSource +module UITableViewDataSourceClass = UITableViewDataSourceClass +module UITableViewDiffableDataSource = UITableViewDiffableDataSource +module UITableViewDropPlaceholder = UITableViewDropPlaceholder +module UITableViewDropProposal = UITableViewDropProposal +module UITableViewFocusUpdateContext = UITableViewFocusUpdateContext +module UITableViewHeaderFooterView = UITableViewHeaderFooterView +module UITableViewHeaderFooterViewClass = UITableViewHeaderFooterViewClass +module UITableViewIndex = UITableViewIndex +module UITableViewLabel = UITableViewLabel +module UITableViewPlaceholder = UITableViewPlaceholder +module UITableViewRow = UITableViewRow +module UITableViewRowAction = UITableViewRowAction +module UITableViewRowActionClass = UITableViewRowActionClass +module UITableViewRowClass = UITableViewRowClass +module UITableViewRowData = UITableViewRowData +module UITableViewSection = UITableViewSection +module UITableViewSectionClass = UITableViewSectionClass +module UITableViewUpdateGap = UITableViewUpdateGap +module UITableViewUpdateGapClass = UITableViewUpdateGapClass +module UITableViewWrapperView = UITableViewWrapperView +module UITapAndAHalfRecognizer = UITapAndAHalfRecognizer +module UITapGestureRecognizer = UITapGestureRecognizer +module UITapGestureRecognizerClass = UITapGestureRecognizerClass +module UITapRecognizer = UITapRecognizer +module UITapRecognizerClass = UITapRecognizerClass +module UITargetedDragPreview = UITargetedDragPreview +module UITargetedDragPreviewClass = UITargetedDragPreviewClass +module UITargetedPreview = UITargetedPreview +module UITextAttachmentView = UITextAttachmentView +module UITextAutofillSuggestion = UITextAutofillSuggestion +module UITextAutofillSuggestionClass = UITextAutofillSuggestionClass +module UITextChecker = UITextChecker +module UITextCheckerClass = UITextCheckerClass +module UITextCheckingController = UITextCheckingController +module UITextContentView = UITextContentView +module UITextContentViewClass = UITextContentViewClass +module UITextCursorAssertionController = UITextCursorAssertionController +module UITextDragAssistant = UITextDragAssistant +module UITextDragFinishState = UITextDragFinishState +module UITextDragPreviewRenderer = UITextDragPreviewRenderer +module UITextDragRequest = UITextDragRequest +module UITextDraggableObject = UITextDraggableObject +module UITextDraggableObjectClass = UITextDraggableObjectClass +module UITextDropProposal = UITextDropProposal +module UITextDropRequest = UITextDropRequest +module UITextEffectsHostingInfo = UITextEffectsHostingInfo +module UITextEffectsHostingInfoClass = UITextEffectsHostingInfoClass +module UITextEffectsWindow = UITextEffectsWindow +module UITextEffectsWindowClass = UITextEffectsWindowClass +module UITextEffectsWindowHosted = UITextEffectsWindowHosted +module UITextField = UITextField +module UITextFieldBackgroundView = UITextFieldBackgroundView +module UITextFieldLabel = UITextFieldLabel +module UITextFieldLabelClass = UITextFieldLabelClass +module UITextFormattingCoordinator = UITextFormattingCoordinator +module UITextFormattingCoordinatorClass = UITextFormattingCoordinatorClass +module UITextGestureTuning = UITextGestureTuning +module UITextIndirectEditableInteraction = UITextIndirectEditableInteraction +module UITextIndirectNonEditableInteraction = UITextIndirectNonEditableInteraction +module UITextInputArrowKeyHistory = UITextInputArrowKeyHistory +module UITextInputAssistantItem = UITextInputAssistantItem +module UITextInputController = UITextInputController +module UITextInputMode = UITextInputMode +module UITextInputModeClass = UITextInputModeClass +module UITextInputPasswordRules = UITextInputPasswordRules +module UITextInputPasswordRulesClass = UITextInputPasswordRulesClass +module UITextInputPayloadController = UITextInputPayloadController +module UITextInputPayloadControllerClass = UITextInputPayloadControllerClass +module UITextInputStringTokenizer = UITextInputStringTokenizer +module UITextInputTraits = UITextInputTraits +module UITextInputTraitsClass = UITextInputTraitsClass +module UITextInteraction = UITextInteraction +module UITextInteractionAssistant = UITextInteractionAssistant +module UITextInteractionClass = UITextInteractionClass +module UITextInteractionInputDelegate = UITextInteractionInputDelegate +module UITextLabel = UITextLabel +module UITextLiveConversionInteraction = UITextLiveConversionInteraction +module UITextLoupeAcceleratedTouchBehavior = UITextLoupeAcceleratedTouchBehavior +module UITextLoupeCursorBehavior = UITextLoupeCursorBehavior +module UITextLoupeInteraction = UITextLoupeInteraction +module UITextLoupePanGestureRecognizer = UITextLoupePanGestureRecognizer +module UITextLoupeTouchBehavior = UITextLoupeTouchBehavior +module UITextMagnifier = UITextMagnifier +module UITextMagnifierClass = UITextMagnifierClass +module UITextMultiTapRecognizer = UITextMultiTapRecognizer +module UITextNonEditableInteraction = UITextNonEditableInteraction +module UITextPasteController = UITextPasteController +module UITextPasteControllerClass = UITextPasteControllerClass +module UITextPasteCoordinator = UITextPasteCoordinator +module UITextPasteItem = UITextPasteItem +module UITextPlaceholder = UITextPlaceholder +module UITextRange = UITextRange +module UITextRangeAdjustmentGestureRecognizer = UITextRangeAdjustmentGestureRecognizer +module UITextRangeView = UITextRangeView +module UITextRenderingAttributes = UITextRenderingAttributes +module UITextReplacement = UITextReplacement +module UITextReplacementCandidate = UITextReplacementCandidate +module UITextReplacementCandidateClass = UITextReplacementCandidateClass +module UITextReplacementClass = UITextReplacementClass +module UITextSelection = UITextSelection +module UITextSelectionInteraction = UITextSelectionInteraction +module UITextSelectionRect = UITextSelectionRect +module UITextSelectionRectClass = UITextSelectionRectClass +module UITextSelectionRectCustomHandleInfo = UITextSelectionRectCustomHandleInfo +module UITextSelectionRectView = UITextSelectionRectView +module UITextSelectionRectViewClass = UITextSelectionRectViewClass +module UITextSelectionView = UITextSelectionView +module UITextServicesInteraction = UITextServicesInteraction +module UITextSuggestion = UITextSuggestion +module UITextSuggestionClass = UITextSuggestionClass +module UITextSuggestionWithAction = UITextSuggestionWithAction +module UITextTapRecognizer = UITextTapRecognizer +module UITextTouchObservingInteraction = UITextTouchObservingInteraction +module UITextView = UITextView +module UITextViewPrintFormatter = UITextViewPrintFormatter +module UIThreadSafeNode = UIThreadSafeNode +module UIThreadSafeNodeClass = UIThreadSafeNodeClass +module UITintColor = UITintColor +module UITitlebar = UITitlebar +module UITitlebarClass = UITitlebarClass +module UIToolTipConfiguration = UIToolTipConfiguration +module UIToolTipConfigurationClass = UIToolTipConfigurationClass +module UIToolTipInteraction = UIToolTipInteraction +module UIToolbar = UIToolbar +module UIToolbarAppearance = UIToolbarAppearance +module UIToolbarAppearanceClass = UIToolbarAppearanceClass +module UIToolbarButton = UIToolbarButton +module UIToolbarButtonClass = UIToolbarButtonClass +module UIToolbarClass = UIToolbarClass +module UIToolbarTextButton = UIToolbarTextButton +module UITouch = UITouch +module UITouchForceGestureRecognizer = UITouchForceGestureRecognizer +module UITouchesEvent = UITouchesEvent +module UITrackingLayoutGuide = UITrackingLayoutGuide +module UITraitCollection = UITraitCollection +module UITraitCollectionClass = UITraitCollectionClass +module UITransform = UITransform +module UITransformClass = UITransformClass +module UITransformEvent = UITransformEvent +module UITransformer = UITransformer +module UITransitionView = UITransitionView +module UITransitionViewClass = UITransitionViewClass +module UITutorialAnimatedView = UITutorialAnimatedView +module UITutorialFramingView = UITutorialFramingView +module UIURLDragPreviewView = UIURLDragPreviewView +module UIURLDragPreviewViewClass = UIURLDragPreviewViewClass +module UIUndoTutorialView = UIUndoTutorialView +module UIUndoTutorialViewController = UIUndoTutorialViewController +module UIUnhandledBackButtonAction = UIUnhandledBackButtonAction +module UIUnhandledMenuButtonAction = UIUnhandledMenuButtonAction +module UIUpdateItem = UIUpdateItem +module UIUserNotificationAction = UIUserNotificationAction +module UIUserNotificationActionClass = UIUserNotificationActionClass +module UIUserNotificationActionSettings = UIUserNotificationActionSettings +module UIUserNotificationActionSettingsClass = UIUserNotificationActionSettingsClass +module UIUserNotificationCategory = UIUserNotificationCategory +module UIUserNotificationCategoryClass = UIUserNotificationCategoryClass +module UIUserNotificationSettings = UIUserNotificationSettings +module UIUserNotificationSettingsClass = UIUserNotificationSettingsClass +module UIVariableDelayLoupeGesture = UIVariableDelayLoupeGesture +module UIVectorLabel = UIVectorLabel +module UIVectorLabelClass = UIVectorLabelClass +module UIVibrancyEffect = UIVibrancyEffect +module UIVibrancyEffectClass = UIVibrancyEffectClass +module UIVideoEditorController = UIVideoEditorController +module UIVideoEditorControllerClass = UIVideoEditorControllerClass +module UIView = UIView +module UIViewAnimation = UIViewAnimation +module UIViewAnimationComposer = UIViewAnimationComposer +module UIViewAnimationContext = UIViewAnimationContext +module UIViewAnimationInfo = UIViewAnimationInfo +module UIViewAnimationState = UIViewAnimationState +module UIViewAnimationStateClass = UIViewAnimationStateClass +module UIViewClass = UIViewClass +module UIViewConfigurationState = UIViewConfigurationState +module UIViewConfigurationStateClass = UIViewConfigurationStateClass +module UIViewController = UIViewController +module UIViewControllerAction = UIViewControllerAction +module UIViewControllerClass = UIViewControllerClass +module UIViewControllerPreviewAction = UIViewControllerPreviewAction +module UIViewControllerPreviewActionClass = UIViewControllerPreviewActionClass +module UIViewControllerWrapperView = UIViewControllerWrapperView +module UIViewControllerWrapperViewClass = UIViewControllerWrapperViewClass +module UIViewFloatAnimatableProperty = UIViewFloatAnimatableProperty +module UIViewFrictionBounceAnimation = UIViewFrictionBounceAnimation +module UIViewPrintFormatter = UIViewPrintFormatter +module UIViewPropertyAnimator = UIViewPropertyAnimator +module UIViewPropertyAnimatorClass = UIViewPropertyAnimatorClass +module UIViewPropertyAnimatorTrackingState = UIViewPropertyAnimatorTrackingState +module UIViewPropertyCollectingAnimationState = UIViewPropertyCollectingAnimationState +module UIViewRunningAnimationEntry = UIViewRunningAnimationEntry +module UIViewSpringAnimation = UIViewSpringAnimation +module UIVisualEffect = UIVisualEffect +module UIVisualEffectClass = UIVisualEffectClass +module UIVisualEffectView = UIVisualEffectView +module UIVisualEffectViewClass = UIVisualEffectViewClass +module UIWebBrowserView = UIWebBrowserView +module UIWebBrowserViewClass = UIWebBrowserViewClass +module UIWebCaretRectTextPosition = UIWebCaretRectTextPosition +module UIWebCaretRectTextPositionClass = UIWebCaretRectTextPositionClass +module UIWebDateTimePopoverViewController = UIWebDateTimePopoverViewController +module UIWebDefaultDateTimePicker = UIWebDefaultDateTimePicker +module UIWebDefaultDateTimePopover = UIWebDefaultDateTimePopover +module UIWebDocumentView = UIWebDocumentView +module UIWebDocumentViewClass = UIWebDocumentViewClass +module UIWebDocumentViewPrintFormatter = UIWebDocumentViewPrintFormatter +module UIWebElementAction = UIWebElementAction +module UIWebElementActionClass = UIWebElementActionClass +module UIWebFileUploadPanel = UIWebFileUploadPanel +module UIWebFormAccessory = UIWebFormAccessory +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 +module UIWebPDFView = UIWebPDFView +module UIWebPDFViewClass = UIWebPDFViewClass +module UIWebPDFViewHandler = UIWebPDFViewHandler +module UIWebPaginationInfo = UIWebPaginationInfo +module UIWebPlaybackTargetPicker = UIWebPlaybackTargetPicker +module UIWebPlugInView = UIWebPlugInView +module UIWebRotatingAlertController = UIWebRotatingAlertController +module UIWebRotatingNodePopover = UIWebRotatingNodePopover +module UIWebScrollView = UIWebScrollView +module UIWebSelectMultiplePicker = UIWebSelectMultiplePicker +module UIWebSelectPopover = UIWebSelectPopover +module UIWebSelectSinglePicker = UIWebSelectSinglePicker +module UIWebSelectTableViewController = UIWebSelectTableViewController +module UIWebTextPlaceholder = UIWebTextPlaceholder +module UIWebTextPlaceholderClass = UIWebTextPlaceholderClass +module UIWebTiledView = UIWebTiledView +module UIWebTouchEventsGestureRecognizer = UIWebTouchEventsGestureRecognizer +module UIWebTouchEventsGestureRecognizerClass = UIWebTouchEventsGestureRecognizerClass +module UIWebView = UIWebView +module UIWebViewClass = UIWebViewClass +module UIWebViewWebViewDelegate = UIWebViewWebViewDelegate +module UIWheelEvent = UIWheelEvent +module UIWillPresentNotificationAction = UIWillPresentNotificationAction +module UIWillPresentNotificationActionResponse = UIWillPresentNotificationActionResponse +module UIWillPresentNotificationActionResponseClass = UIWillPresentNotificationActionResponseClass +module UIWindow = UIWindow +module UIWindowClass = UIWindowClass +module UIWindowController = UIWindowController +module UIWindowControllerClass = UIWindowControllerClass +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 diff --git a/uikit/UIKit_globals.ml b/uikit/UIKit_globals.ml index 35d6fc4c..beb863bb 100644 --- a/uikit/UIKit_globals.ml +++ b/uikit/UIKit_globals.ml @@ -4,10 +4,7 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals +open Foundation let _NSAttachmentAttributeName = new_string "NSAttachmentAttributeName" let _NSBackgroundColorAttributeName = new_string "NSBackgroundColorAttributeName" @@ -2103,7 +2100,7 @@ let _UIWindowSceneDismissalAnimationStandard = 1 let _UIWindowScenePresentationStyleAutomatic = 0 let _UIWindowScenePresentationStyleProminent = 2 let _UIWindowScenePresentationStyleStandard = 1 -(* let _API_DEPRECATED_WITH_REPLACEMENT = Foreign.foreign "API_DEPRECATED_WITH_REPLACEMENT" (void @-> returning int) *) +let _API_DEPRECATED_WITH_REPLACEMENT = Foreign.foreign "API_DEPRECATED_WITH_REPLACEMENT" (void @-> returning int) let _CGAffineTransformFromString = Foreign.foreign "CGAffineTransformFromString" (id @-> returning CGAffineTransform.t) let _CGPointFromString = Foreign.foreign "CGPointFromString" (id @-> returning CGPoint.t) let _CGRectFromString = Foreign.foreign "CGRectFromString" (id @-> returning CGRect.t) diff --git a/uikit/UILabel.ml b/uikit/UILabel.ml index ffc679ef..421d50cd 100644 --- a/uikit/UILabel.ml +++ b/uikit/UILabel.ml @@ -5,105 +5,104 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UILabel" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilabel?language=objc}UILabel} *) -module C = struct - let defaultFont self = msg_send ~self ~cmd:(selector "defaultFont") ~typ:(returning (id)) - let layerClass self = msg_send ~self ~cmd:(selector "layerClass") ~typ:(returning (_Class)) -end +let self = get_class "UILabel" -let adjustsFontForContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsFontForContentSizeCategory") ~typ:(returning (bool)) -let adjustsFontSizeToFitWidth self = msg_send ~self ~cmd:(selector "adjustsFontSizeToFitWidth") ~typ:(returning (bool)) -let adjustsLetterSpacingToFitWidth self = msg_send ~self ~cmd:(selector "adjustsLetterSpacingToFitWidth") ~typ:(returning (bool)) -let allowsDefaultTighteningForTruncation self = msg_send ~self ~cmd:(selector "allowsDefaultTighteningForTruncation") ~typ:(returning (bool)) -let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning (id)) -let autotrackTextToFit self = msg_send ~self ~cmd:(selector "autotrackTextToFit") ~typ:(returning (bool)) -let baselineAdjustment self = msg_send ~self ~cmd:(selector "baselineAdjustment") ~typ:(returning (llong)) -let canUseFastLayoutSizeCalulation self = msg_send ~self ~cmd:(selector "canUseFastLayoutSizeCalulation") ~typ:(returning (bool)) -let centersHorizontally self = msg_send ~self ~cmd:(selector "centersHorizontally") ~typ:(returning (bool)) -let color self = msg_send ~self ~cmd:(selector "color") ~typ:(returning (id)) -let currentTextColor self = msg_send ~self ~cmd:(selector "currentTextColor") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultAccessibilityTraits self = msg_send ~self ~cmd:(selector "defaultAccessibilityTraits") ~typ:(returning (ullong)) -let drawContentsInRect x self = msg_send ~self ~cmd:(selector "drawContentsInRect:") ~typ:(CGRect.t @-> returning (void)) x -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let drawTextInRect x self = msg_send ~self ~cmd:(selector "drawTextInRect:") ~typ:(CGRect.t @-> returning (void)) x -let drawsUnderline self = msg_send ~self ~cmd:(selector "drawsUnderline") ~typ:(returning (bool)) -let enablesMarqueeWhenAncestorFocused self = msg_send ~self ~cmd:(selector "enablesMarqueeWhenAncestorFocused") ~typ:(returning (bool)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let highlightedTextColor self = msg_send ~self ~cmd:(selector "highlightedTextColor") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let invalidateIntrinsicContentSize self = msg_send ~self ~cmd:(selector "invalidateIntrinsicContentSize") ~typ:(returning (void)) -let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning (bool)) -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning (bool)) -let isLayoutSizeDependentOnPerpendicularAxis self = msg_send ~self ~cmd:(selector "isLayoutSizeDependentOnPerpendicularAxis") ~typ:(returning (bool)) -let largeContentTitle self = msg_send ~self ~cmd:(selector "largeContentTitle") ~typ:(returning (id)) -let layerWillDraw x self = msg_send ~self ~cmd:(selector "layerWillDraw:") ~typ:(id @-> returning (void)) x -let lineBreakMode self = msg_send ~self ~cmd:(selector "lineBreakMode") ~typ:(returning (llong)) -let lineBreakStrategy self = msg_send ~self ~cmd:(selector "lineBreakStrategy") ~typ:(returning (ullong)) -let lineSpacing self = msg_send ~self ~cmd:(selector "lineSpacing") ~typ:(returning (llong)) -let marqueeEnabled self = msg_send ~self ~cmd:(selector "marqueeEnabled") ~typ:(returning (bool)) -let marqueeRunning self = msg_send ~self ~cmd:(selector "marqueeRunning") ~typ:(returning (bool)) -let minimumFontSize self = msg_send ~self ~cmd:(selector "minimumFontSize") ~typ:(returning (double)) -let minimumScaleFactor self = msg_send ~self ~cmd:(selector "minimumScaleFactor") ~typ:(returning (double)) -let numberOfLines self = msg_send ~self ~cmd:(selector "numberOfLines") ~typ:(returning (llong)) -let preferredMaxLayoutWidth self = msg_send ~self ~cmd:(selector "preferredMaxLayoutWidth") ~typ:(returning (double)) -let rawSize self = msg_send_stret ~self ~cmd:(selector "rawSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let setAdjustsFontForContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsFontForContentSizeCategory:") ~typ:(bool @-> returning (void)) x -let setAdjustsFontSizeToFitWidth x self = msg_send ~self ~cmd:(selector "setAdjustsFontSizeToFitWidth:") ~typ:(bool @-> returning (void)) x -let setAdjustsLetterSpacingToFitWidth x self = msg_send ~self ~cmd:(selector "setAdjustsLetterSpacingToFitWidth:") ~typ:(bool @-> returning (void)) x -let setAllowsDefaultTighteningForTruncation x self = msg_send ~self ~cmd:(selector "setAllowsDefaultTighteningForTruncation:") ~typ:(bool @-> returning (void)) x -let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning (void)) x -let setAutotrackTextToFit x self = msg_send ~self ~cmd:(selector "setAutotrackTextToFit:") ~typ:(bool @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBaselineAdjustment x self = msg_send ~self ~cmd:(selector "setBaselineAdjustment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setCentersHorizontally x self = msg_send ~self ~cmd:(selector "setCentersHorizontally:") ~typ:(bool @-> returning (void)) x -let setColor x self = msg_send ~self ~cmd:(selector "setColor:") ~typ:(id @-> returning (void)) x -let setDrawsUnderline x self = msg_send ~self ~cmd:(selector "setDrawsUnderline:") ~typ:(bool @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setEnablesMarqueeWhenAncestorFocused x self = msg_send ~self ~cmd:(selector "setEnablesMarqueeWhenAncestorFocused:") ~typ:(bool @-> returning (void)) x -let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setHighlightedTextColor x self = msg_send ~self ~cmd:(selector "setHighlightedTextColor:") ~typ:(id @-> returning (void)) x -let setLineBreakMode x self = msg_send ~self ~cmd:(selector "setLineBreakMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setLineBreakStrategy x self = msg_send ~self ~cmd:(selector "setLineBreakStrategy:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setLineSpacing x self = msg_send ~self ~cmd:(selector "setLineSpacing:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setMarqueeEnabled x self = msg_send ~self ~cmd:(selector "setMarqueeEnabled:") ~typ:(bool @-> returning (void)) x -let setMarqueeRunning x self = msg_send ~self ~cmd:(selector "setMarqueeRunning:") ~typ:(bool @-> returning (void)) x -let setMinimumFontSize x self = msg_send ~self ~cmd:(selector "setMinimumFontSize:") ~typ:(double @-> returning (void)) x -let setMinimumScaleFactor x self = msg_send ~self ~cmd:(selector "setMinimumScaleFactor:") ~typ:(double @-> returning (void)) x -let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning (void)) -let setNumberOfLines x self = msg_send ~self ~cmd:(selector "setNumberOfLines:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPreferredMaxLayoutWidth x self = msg_send ~self ~cmd:(selector "setPreferredMaxLayoutWidth:") ~typ:(double @-> returning (void)) x -let setRawSize x self = msg_send ~self ~cmd:(selector "setRawSize:") ~typ:(CGSize.t @-> returning (void)) x -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShadowBlur x self = msg_send ~self ~cmd:(selector "setShadowBlur:") ~typ:(double @-> returning (void)) x -let setShadowColor x self = msg_send ~self ~cmd:(selector "setShadowColor:") ~typ:(id @-> returning (void)) x -let setShadowOffset x self = msg_send ~self ~cmd:(selector "setShadowOffset:") ~typ:(CGSize.t @-> returning (void)) x -let setShowsExpansionTextWhenTruncated x self = msg_send ~self ~cmd:(selector "setShowsExpansionTextWhenTruncated:") ~typ:(bool @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning (void)) x -let setUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabled:") ~typ:(bool @-> returning (void)) x -let shadowBlur self = msg_send ~self ~cmd:(selector "shadowBlur") ~typ:(returning (double)) -let shadowColor self = msg_send ~self ~cmd:(selector "shadowColor") ~typ:(returning (id)) -let shadowOffset self = msg_send_stret ~self ~cmd:(selector "shadowOffset") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let showsExpansionTextWhenTruncated self = msg_send ~self ~cmd:(selector "showsExpansionTextWhenTruncated") ~typ:(returning (bool)) -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning (llong)) -let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning (id)) -let textRectForBounds x self = msg_send_stret ~self ~cmd:(selector "textRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let textRectForBounds' x ~limitedToNumberOfLines self = msg_send_stret ~self ~cmd:(selector "textRectForBounds:limitedToNumberOfLines:") ~typ:(CGRect.t @-> llong @-> returning (CGRect.t)) ~return_type:CGRect.t x (LLong.of_int limitedToNumberOfLines) -let textSize self = msg_send_stret ~self ~cmd:(selector "textSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let textSizeForWidth x self = msg_send_stret ~self ~cmd:(selector "textSizeForWidth:") ~typ:(double @-> returning (CGSize.t)) ~return_type:CGSize.t x -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let adjustsFontForContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsFontForContentSizeCategory") ~typ:(returning bool) +let adjustsFontSizeToFitWidth self = msg_send ~self ~cmd:(selector "adjustsFontSizeToFitWidth") ~typ:(returning bool) +let adjustsLetterSpacingToFitWidth self = msg_send ~self ~cmd:(selector "adjustsLetterSpacingToFitWidth") ~typ:(returning bool) +let allowsDefaultTighteningForTruncation self = msg_send ~self ~cmd:(selector "allowsDefaultTighteningForTruncation") ~typ:(returning bool) +let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning id) +let autotrackTextToFit self = msg_send ~self ~cmd:(selector "autotrackTextToFit") ~typ:(returning bool) +let baselineAdjustment self = msg_send ~self ~cmd:(selector "baselineAdjustment") ~typ:(returning llong) +let canUseFastLayoutSizeCalulation self = msg_send ~self ~cmd:(selector "canUseFastLayoutSizeCalulation") ~typ:(returning bool) +let centersHorizontally self = msg_send ~self ~cmd:(selector "centersHorizontally") ~typ:(returning bool) +let color self = msg_send ~self ~cmd:(selector "color") ~typ:(returning id) +let currentTextColor self = msg_send ~self ~cmd:(selector "currentTextColor") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultAccessibilityTraits self = msg_send ~self ~cmd:(selector "defaultAccessibilityTraits") ~typ:(returning ullong) +let drawContentsInRect x self = msg_send ~self ~cmd:(selector "drawContentsInRect:") ~typ:(CGRect.t @-> returning void) x +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let drawTextInRect x self = msg_send ~self ~cmd:(selector "drawTextInRect:") ~typ:(CGRect.t @-> returning void) x +let drawsUnderline self = msg_send ~self ~cmd:(selector "drawsUnderline") ~typ:(returning bool) +let enablesMarqueeWhenAncestorFocused self = msg_send ~self ~cmd:(selector "enablesMarqueeWhenAncestorFocused") ~typ:(returning bool) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let highlightedTextColor self = msg_send ~self ~cmd:(selector "highlightedTextColor") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let invalidateIntrinsicContentSize self = msg_send ~self ~cmd:(selector "invalidateIntrinsicContentSize") ~typ:(returning void) +let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning bool) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning bool) +let isLayoutSizeDependentOnPerpendicularAxis self = msg_send ~self ~cmd:(selector "isLayoutSizeDependentOnPerpendicularAxis") ~typ:(returning bool) +let largeContentTitle self = msg_send ~self ~cmd:(selector "largeContentTitle") ~typ:(returning id) +let layerWillDraw x self = msg_send ~self ~cmd:(selector "layerWillDraw:") ~typ:(id @-> returning void) x +let lineBreakMode self = msg_send ~self ~cmd:(selector "lineBreakMode") ~typ:(returning llong) +let lineBreakStrategy self = msg_send ~self ~cmd:(selector "lineBreakStrategy") ~typ:(returning ullong) +let lineSpacing self = msg_send ~self ~cmd:(selector "lineSpacing") ~typ:(returning llong) +let marqueeEnabled self = msg_send ~self ~cmd:(selector "marqueeEnabled") ~typ:(returning bool) +let marqueeRunning self = msg_send ~self ~cmd:(selector "marqueeRunning") ~typ:(returning bool) +let minimumFontSize self = msg_send ~self ~cmd:(selector "minimumFontSize") ~typ:(returning double) +let minimumScaleFactor self = msg_send ~self ~cmd:(selector "minimumScaleFactor") ~typ:(returning double) +let numberOfLines self = msg_send ~self ~cmd:(selector "numberOfLines") ~typ:(returning llong) +let preferredMaxLayoutWidth self = msg_send ~self ~cmd:(selector "preferredMaxLayoutWidth") ~typ:(returning double) +let rawSize self = msg_send ~self ~cmd:(selector "rawSize") ~typ:(returning CGSize.t) +let setAdjustsFontForContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsFontForContentSizeCategory:") ~typ:(bool @-> returning void) x +let setAdjustsFontSizeToFitWidth x self = msg_send ~self ~cmd:(selector "setAdjustsFontSizeToFitWidth:") ~typ:(bool @-> returning void) x +let setAdjustsLetterSpacingToFitWidth x self = msg_send ~self ~cmd:(selector "setAdjustsLetterSpacingToFitWidth:") ~typ:(bool @-> returning void) x +let setAllowsDefaultTighteningForTruncation x self = msg_send ~self ~cmd:(selector "setAllowsDefaultTighteningForTruncation:") ~typ:(bool @-> returning void) x +let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning void) x +let setAutotrackTextToFit x self = msg_send ~self ~cmd:(selector "setAutotrackTextToFit:") ~typ:(bool @-> returning void) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBaselineAdjustment x self = msg_send ~self ~cmd:(selector "setBaselineAdjustment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setCentersHorizontally x self = msg_send ~self ~cmd:(selector "setCentersHorizontally:") ~typ:(bool @-> returning void) x +let setColor x self = msg_send ~self ~cmd:(selector "setColor:") ~typ:(id @-> returning void) x +let setDrawsUnderline x self = msg_send ~self ~cmd:(selector "setDrawsUnderline:") ~typ:(bool @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setEnablesMarqueeWhenAncestorFocused x self = msg_send ~self ~cmd:(selector "setEnablesMarqueeWhenAncestorFocused:") ~typ:(bool @-> returning void) x +let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setHighlightedTextColor x self = msg_send ~self ~cmd:(selector "setHighlightedTextColor:") ~typ:(id @-> returning void) x +let setLineBreakMode x self = msg_send ~self ~cmd:(selector "setLineBreakMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setLineBreakStrategy x self = msg_send ~self ~cmd:(selector "setLineBreakStrategy:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setLineSpacing x self = msg_send ~self ~cmd:(selector "setLineSpacing:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setMarqueeEnabled x self = msg_send ~self ~cmd:(selector "setMarqueeEnabled:") ~typ:(bool @-> returning void) x +let setMarqueeRunning x self = msg_send ~self ~cmd:(selector "setMarqueeRunning:") ~typ:(bool @-> returning void) x +let setMinimumFontSize x self = msg_send ~self ~cmd:(selector "setMinimumFontSize:") ~typ:(double @-> returning void) x +let setMinimumScaleFactor x self = msg_send ~self ~cmd:(selector "setMinimumScaleFactor:") ~typ:(double @-> returning void) x +let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning void) +let setNumberOfLines x self = msg_send ~self ~cmd:(selector "setNumberOfLines:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPreferredMaxLayoutWidth x self = msg_send ~self ~cmd:(selector "setPreferredMaxLayoutWidth:") ~typ:(double @-> returning void) x +let setRawSize x self = msg_send ~self ~cmd:(selector "setRawSize:") ~typ:(CGSize.t @-> returning void) x +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setShadowBlur x self = msg_send ~self ~cmd:(selector "setShadowBlur:") ~typ:(double @-> returning void) x +let setShadowColor x self = msg_send ~self ~cmd:(selector "setShadowColor:") ~typ:(id @-> returning void) x +let setShadowOffset x self = msg_send ~self ~cmd:(selector "setShadowOffset:") ~typ:(CGSize.t @-> returning void) x +let setShowsExpansionTextWhenTruncated x self = msg_send ~self ~cmd:(selector "setShowsExpansionTextWhenTruncated:") ~typ:(bool @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning void) x +let setUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabled:") ~typ:(bool @-> returning void) x +let shadowBlur self = msg_send ~self ~cmd:(selector "shadowBlur") ~typ:(returning double) +let shadowColor self = msg_send ~self ~cmd:(selector "shadowColor") ~typ:(returning id) +let shadowOffset self = msg_send ~self ~cmd:(selector "shadowOffset") ~typ:(returning CGSize.t) +let showsExpansionTextWhenTruncated self = msg_send ~self ~cmd:(selector "showsExpansionTextWhenTruncated") ~typ:(returning bool) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning llong) +let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning id) +let textRectForBounds x self = msg_send ~self ~cmd:(selector "textRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let textRectForBounds' x ~limitedToNumberOfLines self = msg_send ~self ~cmd:(selector "textRectForBounds:limitedToNumberOfLines:") ~typ:(CGRect.t @-> llong @-> returning CGRect.t) x (LLong.of_int limitedToNumberOfLines) +let textSize self = msg_send ~self ~cmd:(selector "textSize") ~typ:(returning CGSize.t) +let textSizeForWidth x self = msg_send ~self ~cmd:(selector "textSizeForWidth:") ~typ:(double @-> returning CGSize.t) x +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UILabelClass.ml b/uikit/UILabelClass.ml new file mode 100644 index 00000000..2d00c7b3 --- /dev/null +++ b/uikit/UILabelClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilabel?language=objc}UILabel} *) + +let defaultFont self = msg_send ~self ~cmd:(selector "defaultFont") ~typ:(returning id) +let layerClass self = msg_send ~self ~cmd:(selector "layerClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit/UILargeContentViewerInteraction.ml b/uikit/UILargeContentViewerInteraction.ml deleted file mode 100644 index 6f1c4fcf..00000000 --- a/uikit/UILargeContentViewerInteraction.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UILargeContentViewerInteraction" - -module C = struct - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -end - -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let gestureRecognizerForExclusionRelationship self = msg_send ~self ~cmd:(selector "gestureRecognizerForExclusionRelationship") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning (id)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UILayoutContainerView.ml b/uikit/UILayoutContainerView.ml index 23d873f1..e864dcb3 100644 --- a/uikit/UILayoutContainerView.ml +++ b/uikit/UILayoutContainerView.ml @@ -5,22 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UILayoutContainerView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilayoutcontainerview?language=objc}UILayoutContainerView} *) -let addSubview x self = msg_send ~self ~cmd:(selector "addSubview:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -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 layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setUsesInnerShadow x self = msg_send ~self ~cmd:(selector "setUsesInnerShadow:") ~typ:(bool @-> returning (void)) x -let setUsesRoundedCorners x self = msg_send ~self ~cmd:(selector "setUsesRoundedCorners:") ~typ:(bool @-> returning (void)) x -let usesInnerShadow self = msg_send ~self ~cmd:(selector "usesInnerShadow") ~typ:(returning (bool)) -let usesRoundedCorners self = msg_send ~self ~cmd:(selector "usesRoundedCorners") ~typ:(returning (bool)) -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UILayoutContainerView" + +let addSubview x self = msg_send ~self ~cmd:(selector "addSubview:") ~typ:(id @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +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 layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setUsesInnerShadow x self = msg_send ~self ~cmd:(selector "setUsesInnerShadow:") ~typ:(bool @-> returning void) x +let setUsesRoundedCorners x self = msg_send ~self ~cmd:(selector "setUsesRoundedCorners:") ~typ:(bool @-> returning void) x +let usesInnerShadow self = msg_send ~self ~cmd:(selector "usesInnerShadow") ~typ:(returning bool) +let usesRoundedCorners self = msg_send ~self ~cmd:(selector "usesRoundedCorners") ~typ:(returning bool) +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UILayoutGuide.ml b/uikit/UILayoutGuide.ml index 60b93adc..a5ee9fc0 100644 --- a/uikit/UILayoutGuide.ml +++ b/uikit/UILayoutGuide.ml @@ -5,34 +5,38 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UILayoutGuide" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilayoutguide?language=objc}UILayoutGuide} *) -let bottomAnchor self = msg_send ~self ~cmd:(selector "bottomAnchor") ~typ:(returning (id)) -let centerXAnchor self = msg_send ~self ~cmd:(selector "centerXAnchor") ~typ:(returning (id)) -let centerYAnchor self = msg_send ~self ~cmd:(selector "centerYAnchor") ~typ:(returning (id)) -let constraintsAffectingLayoutForAxis x self = msg_send ~self ~cmd:(selector "constraintsAffectingLayoutForAxis:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let firstBaselineAnchor self = msg_send ~self ~cmd:(selector "firstBaselineAnchor") ~typ:(returning (id)) -let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning (void)) x -let hasAmbiguousLayout self = msg_send ~self ~cmd:(selector "hasAmbiguousLayout") ~typ:(returning (bool)) -let heightAnchor self = msg_send ~self ~cmd:(selector "heightAnchor") ~typ:(returning (id)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let lastBaselineAnchor self = msg_send ~self ~cmd:(selector "lastBaselineAnchor") ~typ:(returning (id)) -let layoutFrame self = msg_send_stret ~self ~cmd:(selector "layoutFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let leadingAnchor self = msg_send ~self ~cmd:(selector "leadingAnchor") ~typ:(returning (id)) -let leftAnchor self = msg_send ~self ~cmd:(selector "leftAnchor") ~typ:(returning (id)) -let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning (id)) x -let owningView self = msg_send ~self ~cmd:(selector "owningView") ~typ:(returning (id)) -let rightAnchor self = msg_send ~self ~cmd:(selector "rightAnchor") ~typ:(returning (id)) -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let setOwningView x self = msg_send ~self ~cmd:(selector "setOwningView:") ~typ:(id @-> returning (void)) x -let topAnchor self = msg_send ~self ~cmd:(selector "topAnchor") ~typ:(returning (id)) -let trailingAnchor self = msg_send ~self ~cmd:(selector "trailingAnchor") ~typ:(returning (id)) -let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let widthAnchor self = msg_send ~self ~cmd:(selector "widthAnchor") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UILayoutGuide" + +let bottomAnchor self = msg_send ~self ~cmd:(selector "bottomAnchor") ~typ:(returning id) +let centerXAnchor self = msg_send ~self ~cmd:(selector "centerXAnchor") ~typ:(returning id) +let centerYAnchor self = msg_send ~self ~cmd:(selector "centerYAnchor") ~typ:(returning id) +let constraintsAffectingLayoutForAxis x self = msg_send ~self ~cmd:(selector "constraintsAffectingLayoutForAxis:") ~typ:(llong @-> returning id) (LLong.of_int x) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let firstBaselineAnchor self = msg_send ~self ~cmd:(selector "firstBaselineAnchor") ~typ:(returning id) +let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning void) x +let hasAmbiguousLayout self = msg_send ~self ~cmd:(selector "hasAmbiguousLayout") ~typ:(returning bool) +let heightAnchor self = msg_send ~self ~cmd:(selector "heightAnchor") ~typ:(returning id) +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let lastBaselineAnchor self = msg_send ~self ~cmd:(selector "lastBaselineAnchor") ~typ:(returning id) +let layoutFrame self = msg_send ~self ~cmd:(selector "layoutFrame") ~typ:(returning CGRect.t) +let leadingAnchor self = msg_send ~self ~cmd:(selector "leadingAnchor") ~typ:(returning id) +let leftAnchor self = msg_send ~self ~cmd:(selector "leftAnchor") ~typ:(returning id) +let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning id) x +let owningView self = msg_send ~self ~cmd:(selector "owningView") ~typ:(returning id) +let rightAnchor self = msg_send ~self ~cmd:(selector "rightAnchor") ~typ:(returning id) +let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning void) x +let setOwningView x self = msg_send ~self ~cmd:(selector "setOwningView:") ~typ:(id @-> returning void) x +let topAnchor self = msg_send ~self ~cmd:(selector "topAnchor") ~typ:(returning id) +let trailingAnchor self = msg_send ~self ~cmd:(selector "trailingAnchor") ~typ:(returning id) +let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let widthAnchor self = msg_send ~self ~cmd:(selector "widthAnchor") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UILexicon.ml b/uikit/UILexicon.ml index e5065de2..406a96a8 100644 --- a/uikit/UILexicon.ml +++ b/uikit/UILexicon.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UILexicon" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilexicon?language=objc}UILexicon} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let entries self = msg_send ~self ~cmd:(selector "entries") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let self = get_class "UILexicon" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let entries self = msg_send ~self ~cmd:(selector "entries") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UILexiconEntry.ml b/uikit/UILexiconEntry.ml index 50ad82ff..2bb6c0a8 100644 --- a/uikit/UILexiconEntry.ml +++ b/uikit/UILexiconEntry.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UILexiconEntry" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilexiconentry?language=objc}UILexiconEntry} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let documentText self = msg_send ~self ~cmd:(selector "documentText") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let userInput self = msg_send ~self ~cmd:(selector "userInput") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UILexiconEntry" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let documentText self = msg_send ~self ~cmd:(selector "documentText") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let userInput self = msg_send ~self ~cmd:(selector "userInput") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIListContentConfiguration.ml b/uikit/UIListContentConfiguration.ml index 778de7e2..e2ccc31c 100644 --- a/uikit/UIListContentConfiguration.ml +++ b/uikit/UIListContentConfiguration.ml @@ -5,56 +5,43 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIListContentConfiguration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilistcontentconfiguration?language=objc}UIListContentConfiguration} *) -module C = struct - let accompaniedSidebarCellConfiguration self = msg_send ~self ~cmd:(selector "accompaniedSidebarCellConfiguration") ~typ:(returning (id)) - let accompaniedSidebarSubtitleCellConfiguration self = msg_send ~self ~cmd:(selector "accompaniedSidebarSubtitleCellConfiguration") ~typ:(returning (id)) - let cellConfiguration self = msg_send ~self ~cmd:(selector "cellConfiguration") ~typ:(returning (id)) - let extraProminentInsetGroupedHeaderConfiguration self = msg_send ~self ~cmd:(selector "extraProminentInsetGroupedHeaderConfiguration") ~typ:(returning (id)) - let groupedFooterConfiguration self = msg_send ~self ~cmd:(selector "groupedFooterConfiguration") ~typ:(returning (id)) - let groupedHeaderConfiguration self = msg_send ~self ~cmd:(selector "groupedHeaderConfiguration") ~typ:(returning (id)) - let plainFooterConfiguration self = msg_send ~self ~cmd:(selector "plainFooterConfiguration") ~typ:(returning (id)) - let plainHeaderConfiguration self = msg_send ~self ~cmd:(selector "plainHeaderConfiguration") ~typ:(returning (id)) - let prominentInsetGroupedHeaderConfiguration self = msg_send ~self ~cmd:(selector "prominentInsetGroupedHeaderConfiguration") ~typ:(returning (id)) - let sidebarCellConfiguration self = msg_send ~self ~cmd:(selector "sidebarCellConfiguration") ~typ:(returning (id)) - let sidebarHeaderConfiguration self = msg_send ~self ~cmd:(selector "sidebarHeaderConfiguration") ~typ:(returning (id)) - let sidebarSubtitleCellConfiguration self = msg_send ~self ~cmd:(selector "sidebarSubtitleCellConfiguration") ~typ:(returning (id)) - let subtitleCellConfiguration self = msg_send ~self ~cmd:(selector "subtitleCellConfiguration") ~typ:(returning (id)) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) - let valueCellConfiguration self = msg_send ~self ~cmd:(selector "valueCellConfiguration") ~typ:(returning (id)) -end +let self = get_class "UIListContentConfiguration" -let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning (id)) -let axesPreservingSuperviewLayoutMargins self = msg_send ~self ~cmd:(selector "axesPreservingSuperviewLayoutMargins") ~typ:(returning (ullong)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let imageProperties self = msg_send ~self ~cmd:(selector "imageProperties") ~typ:(returning (id)) -let imageToTextPadding self = msg_send ~self ~cmd:(selector "imageToTextPadding") ~typ:(returning (double)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let makeContentView self = msg_send ~self ~cmd:(selector "makeContentView") ~typ:(returning (id)) -let prefersSideBySideTextAndSecondaryText self = msg_send ~self ~cmd:(selector "prefersSideBySideTextAndSecondaryText") ~typ:(returning (bool)) -let secondaryAttributedText self = msg_send ~self ~cmd:(selector "secondaryAttributedText") ~typ:(returning (id)) -let secondaryText self = msg_send ~self ~cmd:(selector "secondaryText") ~typ:(returning (id)) -let secondaryTextProperties self = msg_send ~self ~cmd:(selector "secondaryTextProperties") ~typ:(returning (id)) -let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning (void)) x -let setAxesPreservingSuperviewLayoutMargins x self = msg_send ~self ~cmd:(selector "setAxesPreservingSuperviewLayoutMargins:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDirectionalLayoutMargins x self = msg_send ~self ~cmd:(selector "setDirectionalLayoutMargins:") ~typ:(ptr void @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setImageToTextPadding x self = msg_send ~self ~cmd:(selector "setImageToTextPadding:") ~typ:(double @-> returning (void)) x -let setPrefersSideBySideTextAndSecondaryText x self = msg_send ~self ~cmd:(selector "setPrefersSideBySideTextAndSecondaryText:") ~typ:(bool @-> returning (void)) x -let setSecondaryAttributedText x self = msg_send ~self ~cmd:(selector "setSecondaryAttributedText:") ~typ:(id @-> returning (void)) x -let setSecondaryText x self = msg_send ~self ~cmd:(selector "setSecondaryText:") ~typ:(id @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let setTextToSecondaryTextHorizontalPadding x self = msg_send ~self ~cmd:(selector "setTextToSecondaryTextHorizontalPadding:") ~typ:(double @-> returning (void)) x -let setTextToSecondaryTextVerticalPadding x self = msg_send ~self ~cmd:(selector "setTextToSecondaryTextVerticalPadding:") ~typ:(double @-> returning (void)) x -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let textProperties self = msg_send ~self ~cmd:(selector "textProperties") ~typ:(returning (id)) -let textToSecondaryTextHorizontalPadding self = msg_send ~self ~cmd:(selector "textToSecondaryTextHorizontalPadding") ~typ:(returning (double)) -let textToSecondaryTextVerticalPadding self = msg_send ~self ~cmd:(selector "textToSecondaryTextVerticalPadding") ~typ:(returning (double)) -let updatedConfigurationForState x self = msg_send ~self ~cmd:(selector "updatedConfigurationForState:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning id) +let axesPreservingSuperviewLayoutMargins self = msg_send ~self ~cmd:(selector "axesPreservingSuperviewLayoutMargins") ~typ:(returning ullong) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let directionalLayoutMargins self = msg_send ~self ~cmd:(selector "directionalLayoutMargins") ~typ:(returning NSDirectionalEdgeInsets.t) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let imageProperties self = msg_send ~self ~cmd:(selector "imageProperties") ~typ:(returning id) +let imageToTextPadding self = msg_send ~self ~cmd:(selector "imageToTextPadding") ~typ:(returning double) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let makeContentView self = msg_send ~self ~cmd:(selector "makeContentView") ~typ:(returning id) +let prefersSideBySideTextAndSecondaryText self = msg_send ~self ~cmd:(selector "prefersSideBySideTextAndSecondaryText") ~typ:(returning bool) +let secondaryAttributedText self = msg_send ~self ~cmd:(selector "secondaryAttributedText") ~typ:(returning id) +let secondaryText self = msg_send ~self ~cmd:(selector "secondaryText") ~typ:(returning id) +let secondaryTextProperties self = msg_send ~self ~cmd:(selector "secondaryTextProperties") ~typ:(returning id) +let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning void) x +let setAxesPreservingSuperviewLayoutMargins x self = msg_send ~self ~cmd:(selector "setAxesPreservingSuperviewLayoutMargins:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDirectionalLayoutMargins x self = msg_send ~self ~cmd:(selector "setDirectionalLayoutMargins:") ~typ:(NSDirectionalEdgeInsets.t @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setImageToTextPadding x self = msg_send ~self ~cmd:(selector "setImageToTextPadding:") ~typ:(double @-> returning void) x +let setPrefersSideBySideTextAndSecondaryText x self = msg_send ~self ~cmd:(selector "setPrefersSideBySideTextAndSecondaryText:") ~typ:(bool @-> returning void) x +let setSecondaryAttributedText x self = msg_send ~self ~cmd:(selector "setSecondaryAttributedText:") ~typ:(id @-> returning void) x +let setSecondaryText x self = msg_send ~self ~cmd:(selector "setSecondaryText:") ~typ:(id @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let setTextToSecondaryTextHorizontalPadding x self = msg_send ~self ~cmd:(selector "setTextToSecondaryTextHorizontalPadding:") ~typ:(double @-> returning void) x +let setTextToSecondaryTextVerticalPadding x self = msg_send ~self ~cmd:(selector "setTextToSecondaryTextVerticalPadding:") ~typ:(double @-> returning void) x +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let textProperties self = msg_send ~self ~cmd:(selector "textProperties") ~typ:(returning id) +let textToSecondaryTextHorizontalPadding self = msg_send ~self ~cmd:(selector "textToSecondaryTextHorizontalPadding") ~typ:(returning double) +let textToSecondaryTextVerticalPadding self = msg_send ~self ~cmd:(selector "textToSecondaryTextVerticalPadding") ~typ:(returning double) +let updatedConfigurationForState x self = msg_send ~self ~cmd:(selector "updatedConfigurationForState:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIListContentConfigurationClass.ml b/uikit/UIListContentConfigurationClass.ml new file mode 100644 index 00000000..9e971963 --- /dev/null +++ b/uikit/UIListContentConfigurationClass.ml @@ -0,0 +1,27 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilistcontentconfiguration?language=objc}UIListContentConfiguration} *) + +let accompaniedSidebarCellConfiguration self = msg_send ~self ~cmd:(selector "accompaniedSidebarCellConfiguration") ~typ:(returning id) +let accompaniedSidebarSubtitleCellConfiguration self = msg_send ~self ~cmd:(selector "accompaniedSidebarSubtitleCellConfiguration") ~typ:(returning id) +let cellConfiguration self = msg_send ~self ~cmd:(selector "cellConfiguration") ~typ:(returning id) +let extraProminentInsetGroupedHeaderConfiguration self = msg_send ~self ~cmd:(selector "extraProminentInsetGroupedHeaderConfiguration") ~typ:(returning id) +let groupedFooterConfiguration self = msg_send ~self ~cmd:(selector "groupedFooterConfiguration") ~typ:(returning id) +let groupedHeaderConfiguration self = msg_send ~self ~cmd:(selector "groupedHeaderConfiguration") ~typ:(returning id) +let plainFooterConfiguration self = msg_send ~self ~cmd:(selector "plainFooterConfiguration") ~typ:(returning id) +let plainHeaderConfiguration self = msg_send ~self ~cmd:(selector "plainHeaderConfiguration") ~typ:(returning id) +let prominentInsetGroupedHeaderConfiguration self = msg_send ~self ~cmd:(selector "prominentInsetGroupedHeaderConfiguration") ~typ:(returning id) +let sidebarCellConfiguration self = msg_send ~self ~cmd:(selector "sidebarCellConfiguration") ~typ:(returning id) +let sidebarHeaderConfiguration self = msg_send ~self ~cmd:(selector "sidebarHeaderConfiguration") ~typ:(returning id) +let sidebarSubtitleCellConfiguration self = msg_send ~self ~cmd:(selector "sidebarSubtitleCellConfiguration") ~typ:(returning id) +let subtitleCellConfiguration self = msg_send ~self ~cmd:(selector "subtitleCellConfiguration") ~typ:(returning id) +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) +let valueCellConfiguration self = msg_send ~self ~cmd:(selector "valueCellConfiguration") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIListContentImageProperties.ml b/uikit/UIListContentImageProperties.ml index 6b5d7638..60e326e7 100644 --- a/uikit/UIListContentImageProperties.ml +++ b/uikit/UIListContentImageProperties.ml @@ -5,34 +5,34 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIListContentImageProperties" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilistcontentimageproperties?language=objc}UIListContentImageProperties} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIListContentImageProperties" -let accessibilityIgnoresInvertColors self = msg_send ~self ~cmd:(selector "accessibilityIgnoresInvertColors") ~typ:(returning (bool)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let cornerRadius self = msg_send ~self ~cmd:(selector "cornerRadius") ~typ:(returning (double)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let maximumSize self = msg_send_stret ~self ~cmd:(selector "maximumSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let preferredSymbolConfiguration self = msg_send ~self ~cmd:(selector "preferredSymbolConfiguration") ~typ:(returning (id)) -let reservedLayoutSize self = msg_send_stret ~self ~cmd:(selector "reservedLayoutSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let resolvedTintColorForTintColor x self = msg_send ~self ~cmd:(selector "resolvedTintColorForTintColor:") ~typ:(id @-> returning (id)) x -let setAccessibilityIgnoresInvertColors x self = msg_send ~self ~cmd:(selector "setAccessibilityIgnoresInvertColors:") ~typ:(bool @-> returning (void)) x -let setCornerRadius x self = msg_send ~self ~cmd:(selector "setCornerRadius:") ~typ:(double @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setMaximumSize x self = msg_send ~self ~cmd:(selector "setMaximumSize:") ~typ:(CGSize.t @-> returning (void)) x -let setPreferredSymbolConfiguration x self = msg_send ~self ~cmd:(selector "setPreferredSymbolConfiguration:") ~typ:(id @-> returning (void)) x -let setReservedLayoutSize x self = msg_send ~self ~cmd:(selector "setReservedLayoutSize:") ~typ:(CGSize.t @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let setTintColorTransformer x self = msg_send ~self ~cmd:(selector "setTintColorTransformer:") ~typ:(ptr void @-> returning (void)) x -let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning (id)) +let accessibilityIgnoresInvertColors self = msg_send ~self ~cmd:(selector "accessibilityIgnoresInvertColors") ~typ:(returning bool) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let cornerRadius self = msg_send ~self ~cmd:(selector "cornerRadius") ~typ:(returning double) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let maximumSize self = msg_send ~self ~cmd:(selector "maximumSize") ~typ:(returning CGSize.t) +let preferredSymbolConfiguration self = msg_send ~self ~cmd:(selector "preferredSymbolConfiguration") ~typ:(returning id) +let reservedLayoutSize self = msg_send ~self ~cmd:(selector "reservedLayoutSize") ~typ:(returning CGSize.t) +let resolvedTintColorForTintColor x self = msg_send ~self ~cmd:(selector "resolvedTintColorForTintColor:") ~typ:(id @-> returning id) x +let setAccessibilityIgnoresInvertColors x self = msg_send ~self ~cmd:(selector "setAccessibilityIgnoresInvertColors:") ~typ:(bool @-> returning void) x +let setCornerRadius x self = msg_send ~self ~cmd:(selector "setCornerRadius:") ~typ:(double @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setMaximumSize x self = msg_send ~self ~cmd:(selector "setMaximumSize:") ~typ:(CGSize.t @-> returning void) x +let setPreferredSymbolConfiguration x self = msg_send ~self ~cmd:(selector "setPreferredSymbolConfiguration:") ~typ:(id @-> returning void) x +let setReservedLayoutSize x self = msg_send ~self ~cmd:(selector "setReservedLayoutSize:") ~typ:(CGSize.t @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let setTintColorTransformer x self = msg_send ~self ~cmd:(selector "setTintColorTransformer:") ~typ:((ptr void) @-> returning void) x +let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning id) let tintColorTransformer self = msg_send ~self ~cmd:(selector "tintColorTransformer") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/uikit/UIListContentImagePropertiesClass.ml b/uikit/UIListContentImagePropertiesClass.ml new file mode 100644 index 00000000..cafb7611 --- /dev/null +++ b/uikit/UIListContentImagePropertiesClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilistcontentimageproperties?language=objc}UIListContentImageProperties} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIListContentTextProperties.ml b/uikit/UIListContentTextProperties.ml index 675f5a1a..4935d159 100644 --- a/uikit/UIListContentTextProperties.ml +++ b/uikit/UIListContentTextProperties.ml @@ -5,44 +5,44 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIListContentTextProperties" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilistcontenttextproperties?language=objc}UIListContentTextProperties} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIListContentTextProperties" -let adjustsFontForContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsFontForContentSizeCategory") ~typ:(returning (bool)) -let adjustsFontSizeToFitWidth self = msg_send ~self ~cmd:(selector "adjustsFontSizeToFitWidth") ~typ:(returning (bool)) -let alignment self = msg_send ~self ~cmd:(selector "alignment") ~typ:(returning (llong)) -let allowsDefaultTighteningForTruncation self = msg_send ~self ~cmd:(selector "allowsDefaultTighteningForTruncation") ~typ:(returning (bool)) -let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning (id)) -let color self = msg_send ~self ~cmd:(selector "color") ~typ:(returning (id)) +let adjustsFontForContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsFontForContentSizeCategory") ~typ:(returning bool) +let adjustsFontSizeToFitWidth self = msg_send ~self ~cmd:(selector "adjustsFontSizeToFitWidth") ~typ:(returning bool) +let alignment self = msg_send ~self ~cmd:(selector "alignment") ~typ:(returning llong) +let allowsDefaultTighteningForTruncation self = msg_send ~self ~cmd:(selector "allowsDefaultTighteningForTruncation") ~typ:(returning bool) +let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning id) +let color self = msg_send ~self ~cmd:(selector "color") ~typ:(returning id) let colorTransformer self = msg_send ~self ~cmd:(selector "colorTransformer") ~typ:(returning (ptr void)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let lineBreakMode self = msg_send ~self ~cmd:(selector "lineBreakMode") ~typ:(returning (llong)) -let minimumScaleFactor self = msg_send ~self ~cmd:(selector "minimumScaleFactor") ~typ:(returning (double)) -let numberOfLines self = msg_send ~self ~cmd:(selector "numberOfLines") ~typ:(returning (llong)) -let resolvedColor self = msg_send ~self ~cmd:(selector "resolvedColor") ~typ:(returning (id)) -let setAdjustsFontForContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsFontForContentSizeCategory:") ~typ:(bool @-> returning (void)) x -let setAdjustsFontSizeToFitWidth x self = msg_send ~self ~cmd:(selector "setAdjustsFontSizeToFitWidth:") ~typ:(bool @-> returning (void)) x -let setAlignment x self = msg_send ~self ~cmd:(selector "setAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setAllowsDefaultTighteningForTruncation x self = msg_send ~self ~cmd:(selector "setAllowsDefaultTighteningForTruncation:") ~typ:(bool @-> returning (void)) x -let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning (void)) x -let setColor x self = msg_send ~self ~cmd:(selector "setColor:") ~typ:(id @-> returning (void)) x -let setColorTransformer x self = msg_send ~self ~cmd:(selector "setColorTransformer:") ~typ:(ptr void @-> returning (void)) x -let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning (void)) x -let setLineBreakMode x self = msg_send ~self ~cmd:(selector "setLineBreakMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setMinimumScaleFactor x self = msg_send ~self ~cmd:(selector "setMinimumScaleFactor:") ~typ:(double @-> returning (void)) x -let setNumberOfLines x self = msg_send ~self ~cmd:(selector "setNumberOfLines:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let setTransform x self = msg_send ~self ~cmd:(selector "setTransform:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let transform self = msg_send ~self ~cmd:(selector "transform") ~typ:(returning (llong)) \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let lineBreakMode self = msg_send ~self ~cmd:(selector "lineBreakMode") ~typ:(returning llong) +let minimumScaleFactor self = msg_send ~self ~cmd:(selector "minimumScaleFactor") ~typ:(returning double) +let numberOfLines self = msg_send ~self ~cmd:(selector "numberOfLines") ~typ:(returning llong) +let resolvedColor self = msg_send ~self ~cmd:(selector "resolvedColor") ~typ:(returning id) +let setAdjustsFontForContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsFontForContentSizeCategory:") ~typ:(bool @-> returning void) x +let setAdjustsFontSizeToFitWidth x self = msg_send ~self ~cmd:(selector "setAdjustsFontSizeToFitWidth:") ~typ:(bool @-> returning void) x +let setAlignment x self = msg_send ~self ~cmd:(selector "setAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setAllowsDefaultTighteningForTruncation x self = msg_send ~self ~cmd:(selector "setAllowsDefaultTighteningForTruncation:") ~typ:(bool @-> returning void) x +let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning void) x +let setColor x self = msg_send ~self ~cmd:(selector "setColor:") ~typ:(id @-> returning void) x +let setColorTransformer x self = msg_send ~self ~cmd:(selector "setColorTransformer:") ~typ:((ptr void) @-> returning void) x +let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning void) x +let setLineBreakMode x self = msg_send ~self ~cmd:(selector "setLineBreakMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setMinimumScaleFactor x self = msg_send ~self ~cmd:(selector "setMinimumScaleFactor:") ~typ:(double @-> returning void) x +let setNumberOfLines x self = msg_send ~self ~cmd:(selector "setNumberOfLines:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let setTransform x self = msg_send ~self ~cmd:(selector "setTransform:") ~typ:(llong @-> returning void) (LLong.of_int x) +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let transform self = msg_send ~self ~cmd:(selector "transform") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIListContentTextPropertiesClass.ml b/uikit/UIListContentTextPropertiesClass.ml new file mode 100644 index 00000000..99b1ab12 --- /dev/null +++ b/uikit/UIListContentTextPropertiesClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilistcontenttextproperties?language=objc}UIListContentTextProperties} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIListContentView.ml b/uikit/UIListContentView.ml index 5c2789a2..92546200 100644 --- a/uikit/UIListContentView.ml +++ b/uikit/UIListContentView.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIListContentView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilistcontentview?language=objc}UIListContentView} *) -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let imageLayoutGuide self = msg_send ~self ~cmd:(selector "imageLayoutGuide") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithConfiguration x self = msg_send ~self ~cmd:(selector "initWithConfiguration:") ~typ:(id @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let secondaryTextLayoutGuide self = msg_send ~self ~cmd:(selector "secondaryTextLayoutGuide") ~typ:(returning (id)) -let setConfiguration x self = msg_send ~self ~cmd:(selector "setConfiguration:") ~typ:(id @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let systemLayoutSizeFittingSize x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send_stret ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning (CGSize.t)) ~return_type:CGSize.t x withHorizontalFittingPriority verticalFittingPriority -let textLayoutGuide self = msg_send ~self ~cmd:(selector "textLayoutGuide") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIListContentView" + +let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let imageLayoutGuide self = msg_send ~self ~cmd:(selector "imageLayoutGuide") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithConfiguration x self = msg_send ~self ~cmd:(selector "initWithConfiguration:") ~typ:(id @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let secondaryTextLayoutGuide self = msg_send ~self ~cmd:(selector "secondaryTextLayoutGuide") ~typ:(returning id) +let setConfiguration x self = msg_send ~self ~cmd:(selector "setConfiguration:") ~typ:(id @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let systemLayoutSizeFittingSize x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning CGSize.t) x withHorizontalFittingPriority verticalFittingPriority +let textLayoutGuide self = msg_send ~self ~cmd:(selector "textLayoutGuide") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIListSeparatorConfiguration.ml b/uikit/UIListSeparatorConfiguration.ml index 1581553c..c446d19b 100644 --- a/uikit/UIListSeparatorConfiguration.ml +++ b/uikit/UIListSeparatorConfiguration.ml @@ -5,29 +5,31 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIListSeparatorConfiguration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilistseparatorconfiguration?language=objc}UIListSeparatorConfiguration} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIListSeparatorConfiguration" -let bottomSeparatorVisibility self = msg_send ~self ~cmd:(selector "bottomSeparatorVisibility") ~typ:(returning (llong)) -let color self = msg_send ~self ~cmd:(selector "color") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithListAppearance x self = msg_send ~self ~cmd:(selector "initWithListAppearance:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let multipleSelectionColor self = msg_send ~self ~cmd:(selector "multipleSelectionColor") ~typ:(returning (id)) -let setBottomSeparatorInsets x self = msg_send ~self ~cmd:(selector "setBottomSeparatorInsets:") ~typ:(ptr void @-> returning (void)) x -let setBottomSeparatorVisibility x self = msg_send ~self ~cmd:(selector "setBottomSeparatorVisibility:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setColor x self = msg_send ~self ~cmd:(selector "setColor:") ~typ:(id @-> returning (void)) x -let setMultipleSelectionColor x self = msg_send ~self ~cmd:(selector "setMultipleSelectionColor:") ~typ:(id @-> returning (void)) x -let setTopSeparatorInsets x self = msg_send ~self ~cmd:(selector "setTopSeparatorInsets:") ~typ:(ptr void @-> returning (void)) x -let setTopSeparatorVisibility x self = msg_send ~self ~cmd:(selector "setTopSeparatorVisibility:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setVisualEffect x self = msg_send ~self ~cmd:(selector "setVisualEffect:") ~typ:(id @-> returning (void)) x -let topSeparatorVisibility self = msg_send ~self ~cmd:(selector "topSeparatorVisibility") ~typ:(returning (llong)) -let visualEffect self = msg_send ~self ~cmd:(selector "visualEffect") ~typ:(returning (id)) \ No newline at end of file +let bottomSeparatorInsets self = msg_send ~self ~cmd:(selector "bottomSeparatorInsets") ~typ:(returning NSDirectionalEdgeInsets.t) +let bottomSeparatorVisibility self = msg_send ~self ~cmd:(selector "bottomSeparatorVisibility") ~typ:(returning llong) +let color self = msg_send ~self ~cmd:(selector "color") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithListAppearance x self = msg_send ~self ~cmd:(selector "initWithListAppearance:") ~typ:(llong @-> returning id) (LLong.of_int x) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let multipleSelectionColor self = msg_send ~self ~cmd:(selector "multipleSelectionColor") ~typ:(returning id) +let setBottomSeparatorInsets x self = msg_send ~self ~cmd:(selector "setBottomSeparatorInsets:") ~typ:(NSDirectionalEdgeInsets.t @-> returning void) x +let setBottomSeparatorVisibility x self = msg_send ~self ~cmd:(selector "setBottomSeparatorVisibility:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setColor x self = msg_send ~self ~cmd:(selector "setColor:") ~typ:(id @-> returning void) x +let setMultipleSelectionColor x self = msg_send ~self ~cmd:(selector "setMultipleSelectionColor:") ~typ:(id @-> returning void) x +let setTopSeparatorInsets x self = msg_send ~self ~cmd:(selector "setTopSeparatorInsets:") ~typ:(NSDirectionalEdgeInsets.t @-> returning void) x +let setTopSeparatorVisibility x self = msg_send ~self ~cmd:(selector "setTopSeparatorVisibility:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setVisualEffect x self = msg_send ~self ~cmd:(selector "setVisualEffect:") ~typ:(id @-> returning void) x +let topSeparatorInsets self = msg_send ~self ~cmd:(selector "topSeparatorInsets") ~typ:(returning NSDirectionalEdgeInsets.t) +let topSeparatorVisibility self = msg_send ~self ~cmd:(selector "topSeparatorVisibility") ~typ:(returning llong) +let visualEffect self = msg_send ~self ~cmd:(selector "visualEffect") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIListSeparatorConfigurationClass.ml b/uikit/UIListSeparatorConfigurationClass.ml new file mode 100644 index 00000000..7340902e --- /dev/null +++ b/uikit/UIListSeparatorConfigurationClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilistseparatorconfiguration?language=objc}UIListSeparatorConfiguration} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UILocalNotification.ml b/uikit/UILocalNotification.ml index d4d49d79..08df0015 100644 --- a/uikit/UILocalNotification.ml +++ b/uikit/UILocalNotification.ml @@ -5,22 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UILocalNotification" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilocalnotification?language=objc}UILocalNotification} *) -module C = struct - let alloc self = msg_send ~self ~cmd:(selector "alloc") ~typ:(returning (id)) - let allocWithZone x self = msg_send ~self ~cmd:(selector "allocWithZone:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UILocalNotification" -let compareFireDates x self = msg_send ~self ~cmd:(selector "compareFireDates:") ~typ:(id @-> returning (llong)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isTriggeredByDate self = msg_send ~self ~cmd:(selector "isTriggeredByDate") ~typ:(returning (bool)) -let isTriggeredByRegion self = msg_send ~self ~cmd:(selector "isTriggeredByRegion") ~typ:(returning (bool)) -let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning (bool)) -let nextFireDateAfterDate x ~localTimeZone self = msg_send ~self ~cmd:(selector "nextFireDateAfterDate:localTimeZone:") ~typ:(id @-> id @-> returning (id)) x localTimeZone -let nextFireDateForLastFireDate x self = msg_send ~self ~cmd:(selector "nextFireDateForLastFireDate:") ~typ:(id @-> returning (id)) x -let validate self = msg_send ~self ~cmd:(selector "validate") ~typ:(returning (void)) \ No newline at end of file +let compareFireDates x self = msg_send ~self ~cmd:(selector "compareFireDates:") ~typ:(id @-> returning llong) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isTriggeredByDate self = msg_send ~self ~cmd:(selector "isTriggeredByDate") ~typ:(returning bool) +let isTriggeredByRegion self = msg_send ~self ~cmd:(selector "isTriggeredByRegion") ~typ:(returning bool) +let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning bool) +let nextFireDateAfterDate x ~localTimeZone self = msg_send ~self ~cmd:(selector "nextFireDateAfterDate:localTimeZone:") ~typ:(id @-> id @-> returning id) x localTimeZone +let nextFireDateForLastFireDate x self = msg_send ~self ~cmd:(selector "nextFireDateForLastFireDate:") ~typ:(id @-> returning id) x +let validate self = msg_send ~self ~cmd:(selector "validate") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UILocalizedIndexedCollation.ml b/uikit/UILocalizedIndexedCollation.ml index 25a5272f..94f14295 100644 --- a/uikit/UILocalizedIndexedCollation.ml +++ b/uikit/UILocalizedIndexedCollation.ml @@ -5,20 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UILocalizedIndexedCollation" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilocalizedindexedcollation?language=objc}UILocalizedIndexedCollation} *) -module C = struct - let collationWithDictionary x self = msg_send ~self ~cmd:(selector "collationWithDictionary:") ~typ:(id @-> returning (id)) x - let currentCollation self = msg_send ~self ~cmd:(selector "currentCollation") ~typ:(returning (id)) -end +let self = get_class "UILocalizedIndexedCollation" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithDictionary x self = msg_send ~self ~cmd:(selector "initWithDictionary:") ~typ:(id @-> returning (id)) x -let sectionForObject x ~collationStringSelector self = msg_send ~self ~cmd:(selector "sectionForObject:collationStringSelector:") ~typ:(id @-> _SEL @-> returning (llong)) x collationStringSelector -let sectionForSectionIndexTitleAtIndex x self = msg_send ~self ~cmd:(selector "sectionForSectionIndexTitleAtIndex:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let sectionIndexTitles self = msg_send ~self ~cmd:(selector "sectionIndexTitles") ~typ:(returning (id)) -let sectionTitles self = msg_send ~self ~cmd:(selector "sectionTitles") ~typ:(returning (id)) -let sortedArrayFromArray x ~collationStringSelector self = msg_send ~self ~cmd:(selector "sortedArrayFromArray:collationStringSelector:") ~typ:(id @-> _SEL @-> returning (id)) x collationStringSelector -let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning (ptr void)) -let transformedCollationStringForString x self = msg_send ~self ~cmd:(selector "transformedCollationStringForString:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithDictionary x self = msg_send ~self ~cmd:(selector "initWithDictionary:") ~typ:(id @-> returning id) x +let sectionForObject x ~collationStringSelector self = msg_send ~self ~cmd:(selector "sectionForObject:collationStringSelector:") ~typ:(id @-> _SEL @-> returning llong) x collationStringSelector +let sectionForSectionIndexTitleAtIndex x self = msg_send ~self ~cmd:(selector "sectionForSectionIndexTitleAtIndex:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let sectionIndexTitles self = msg_send ~self ~cmd:(selector "sectionIndexTitles") ~typ:(returning id) +let sectionTitles self = msg_send ~self ~cmd:(selector "sectionTitles") ~typ:(returning id) +let sortedArrayFromArray x ~collationStringSelector self = msg_send ~self ~cmd:(selector "sortedArrayFromArray:collationStringSelector:") ~typ:(id @-> _SEL @-> returning id) x collationStringSelector +let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning (ptr CFStringTokenizer.t)) +let transformedCollationStringForString x self = msg_send ~self ~cmd:(selector "transformedCollationStringForString:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UILocalizedIndexedCollationClass.ml b/uikit/UILocalizedIndexedCollationClass.ml new file mode 100644 index 00000000..2bb37926 --- /dev/null +++ b/uikit/UILocalizedIndexedCollationClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilocalizedindexedcollation?language=objc}UILocalizedIndexedCollation} *) + +let collationWithDictionary x self = msg_send ~self ~cmd:(selector "collationWithDictionary:") ~typ:(id @-> returning id) x +let currentCollation self = msg_send ~self ~cmd:(selector "currentCollation") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UILongPressGestureRecognizer.ml b/uikit/UILongPressGestureRecognizer.ml index bb022522..38348437 100644 --- a/uikit/UILongPressGestureRecognizer.ml +++ b/uikit/UILongPressGestureRecognizer.ml @@ -5,60 +5,60 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UILongPressGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilongpressgesturerecognizer?language=objc}UILongPressGestureRecognizer} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UILongPressGestureRecognizer" -let activeTouchesExceedAllowableSeparation self = msg_send ~self ~cmd:(selector "activeTouchesExceedAllowableSeparation") ~typ:(returning (bool)) -let allowableMovement self = msg_send ~self ~cmd:(selector "allowableMovement") ~typ:(returning (double)) -let buttonMaskRequired self = msg_send ~self ~cmd:(selector "buttonMaskRequired") ~typ:(returning (llong)) -let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let cancelPastAllowableMovement self = msg_send ~self ~cmd:(selector "cancelPastAllowableMovement") ~typ:(returning (bool)) -let centroid self = msg_send_stret ~self ~cmd:(selector "centroid") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let clearTimer self = msg_send ~self ~cmd:(selector "clearTimer") ~typ:(returning (void)) -let delay self = msg_send ~self ~cmd:(selector "delay") ~typ:(returning (double)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let enoughTimeElapsed x self = msg_send ~self ~cmd:(selector "enoughTimeElapsed:") ~typ:(id @-> returning (void)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let lastSceneReferenceLocation self = msg_send_stret ~self ~cmd:(selector "lastSceneReferenceLocation") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let lastTouchTime self = msg_send ~self ~cmd:(selector "lastTouchTime") ~typ:(returning (double)) -let lastUnadjustedSceneReferenceLocation self = msg_send_stret ~self ~cmd:(selector "lastUnadjustedSceneReferenceLocation") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let locationOfTouch x ~inView self = msg_send_stret ~self ~cmd:(selector "locationOfTouch:inView:") ~typ:(ullong @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t (ULLong.of_int x) inView -let minimumPressDuration self = msg_send ~self ~cmd:(selector "minimumPressDuration") ~typ:(returning (double)) -let numberOfTapsRequired self = msg_send ~self ~cmd:(selector "numberOfTapsRequired") ~typ:(returning (ullong)) -let numberOfTouches self = msg_send ~self ~cmd:(selector "numberOfTouches") ~typ:(returning (ullong)) -let numberOfTouchesRequired self = msg_send ~self ~cmd:(selector "numberOfTouchesRequired") ~typ:(returning (ullong)) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let setAllowableMovement x self = msg_send ~self ~cmd:(selector "setAllowableMovement:") ~typ:(double @-> returning (void)) x -let setButtonMaskRequired x self = msg_send ~self ~cmd:(selector "setButtonMaskRequired:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCancelPastAllowableMovement x self = msg_send ~self ~cmd:(selector "setCancelPastAllowableMovement:") ~typ:(bool @-> returning (void)) x -let setDelay x self = msg_send ~self ~cmd:(selector "setDelay:") ~typ:(double @-> returning (void)) x -let setLastSceneReferenceLocation x self = msg_send ~self ~cmd:(selector "setLastSceneReferenceLocation:") ~typ:(CGPoint.t @-> returning (void)) x -let setLastTouchTime x self = msg_send ~self ~cmd:(selector "setLastTouchTime:") ~typ:(double @-> returning (void)) x -let setLastUnadjustedSceneReferenceLocation x self = msg_send ~self ~cmd:(selector "setLastUnadjustedSceneReferenceLocation:") ~typ:(CGPoint.t @-> returning (void)) x -let setMinimumPressDuration x self = msg_send ~self ~cmd:(selector "setMinimumPressDuration:") ~typ:(double @-> returning (void)) x -let setNumberOfTapsRequired x self = msg_send ~self ~cmd:(selector "setNumberOfTapsRequired:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setNumberOfTouchesRequired x self = msg_send ~self ~cmd:(selector "setNumberOfTouchesRequired:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setTouches x self = msg_send ~self ~cmd:(selector "setTouches:") ~typ:(id @-> returning (void)) x -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let startPoint self = msg_send_stret ~self ~cmd:(selector "startPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let startTimer self = msg_send ~self ~cmd:(selector "startTimer") ~typ:(returning (void)) -let tapIsPossibleForTapRecognizer x self = msg_send ~self ~cmd:(selector "tapIsPossibleForTapRecognizer:") ~typ:(id @-> returning (bool)) x -let tapRecognizerFailedToRecognizeTap x self = msg_send ~self ~cmd:(selector "tapRecognizerFailedToRecognizeTap:") ~typ:(id @-> returning (void)) x -let tapRecognizerRecognizedTap x self = msg_send ~self ~cmd:(selector "tapRecognizerRecognizedTap:") ~typ:(id @-> returning (void)) x -let tooMuchElapsed x self = msg_send ~self ~cmd:(selector "tooMuchElapsed:") ~typ:(id @-> returning (void)) x -let touches self = msg_send ~self ~cmd:(selector "touches") ~typ:(returning (id)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let velocityInView x self = msg_send_stret ~self ~cmd:(selector "velocityInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x \ No newline at end of file +let activeTouchesExceedAllowableSeparation self = msg_send ~self ~cmd:(selector "activeTouchesExceedAllowableSeparation") ~typ:(returning bool) +let allowableMovement self = msg_send ~self ~cmd:(selector "allowableMovement") ~typ:(returning double) +let buttonMaskRequired self = msg_send ~self ~cmd:(selector "buttonMaskRequired") ~typ:(returning llong) +let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning bool) x +let cancelPastAllowableMovement self = msg_send ~self ~cmd:(selector "cancelPastAllowableMovement") ~typ:(returning bool) +let centroid self = msg_send ~self ~cmd:(selector "centroid") ~typ:(returning CGPoint.t) +let clearTimer self = msg_send ~self ~cmd:(selector "clearTimer") ~typ:(returning void) +let delay self = msg_send ~self ~cmd:(selector "delay") ~typ:(returning double) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let enoughTimeElapsed x self = msg_send ~self ~cmd:(selector "enoughTimeElapsed:") ~typ:(id @-> returning void) x +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let lastSceneReferenceLocation self = msg_send ~self ~cmd:(selector "lastSceneReferenceLocation") ~typ:(returning CGPoint.t) +let lastTouchTime self = msg_send ~self ~cmd:(selector "lastTouchTime") ~typ:(returning double) +let lastUnadjustedSceneReferenceLocation self = msg_send ~self ~cmd:(selector "lastUnadjustedSceneReferenceLocation") ~typ:(returning CGPoint.t) +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let locationOfTouch x ~inView self = msg_send ~self ~cmd:(selector "locationOfTouch:inView:") ~typ:(ullong @-> id @-> returning CGPoint.t) (ULLong.of_int x) inView +let minimumPressDuration self = msg_send ~self ~cmd:(selector "minimumPressDuration") ~typ:(returning double) +let numberOfTapsRequired self = msg_send ~self ~cmd:(selector "numberOfTapsRequired") ~typ:(returning ullong) +let numberOfTouches self = msg_send ~self ~cmd:(selector "numberOfTouches") ~typ:(returning ullong) +let numberOfTouchesRequired self = msg_send ~self ~cmd:(selector "numberOfTouchesRequired") ~typ:(returning ullong) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let setAllowableMovement x self = msg_send ~self ~cmd:(selector "setAllowableMovement:") ~typ:(double @-> returning void) x +let setButtonMaskRequired x self = msg_send ~self ~cmd:(selector "setButtonMaskRequired:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCancelPastAllowableMovement x self = msg_send ~self ~cmd:(selector "setCancelPastAllowableMovement:") ~typ:(bool @-> returning void) x +let setDelay x self = msg_send ~self ~cmd:(selector "setDelay:") ~typ:(double @-> returning void) x +let setLastSceneReferenceLocation x self = msg_send ~self ~cmd:(selector "setLastSceneReferenceLocation:") ~typ:(CGPoint.t @-> returning void) x +let setLastTouchTime x self = msg_send ~self ~cmd:(selector "setLastTouchTime:") ~typ:(double @-> returning void) x +let setLastUnadjustedSceneReferenceLocation x self = msg_send ~self ~cmd:(selector "setLastUnadjustedSceneReferenceLocation:") ~typ:(CGPoint.t @-> returning void) x +let setMinimumPressDuration x self = msg_send ~self ~cmd:(selector "setMinimumPressDuration:") ~typ:(double @-> returning void) x +let setNumberOfTapsRequired x self = msg_send ~self ~cmd:(selector "setNumberOfTapsRequired:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setNumberOfTouchesRequired x self = msg_send ~self ~cmd:(selector "setNumberOfTouchesRequired:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setTouches x self = msg_send ~self ~cmd:(selector "setTouches:") ~typ:(id @-> returning void) x +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let startPoint self = msg_send ~self ~cmd:(selector "startPoint") ~typ:(returning CGPoint.t) +let startTimer self = msg_send ~self ~cmd:(selector "startTimer") ~typ:(returning void) +let tapIsPossibleForTapRecognizer x self = msg_send ~self ~cmd:(selector "tapIsPossibleForTapRecognizer:") ~typ:(id @-> returning bool) x +let tapRecognizerFailedToRecognizeTap x self = msg_send ~self ~cmd:(selector "tapRecognizerFailedToRecognizeTap:") ~typ:(id @-> returning void) x +let tapRecognizerRecognizedTap x self = msg_send ~self ~cmd:(selector "tapRecognizerRecognizedTap:") ~typ:(id @-> returning void) x +let tooMuchElapsed x self = msg_send ~self ~cmd:(selector "tooMuchElapsed:") ~typ:(id @-> returning void) x +let touches self = msg_send ~self ~cmd:(selector "touches") ~typ:(returning id) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let velocityInView x self = msg_send ~self ~cmd:(selector "velocityInView:") ~typ:(id @-> returning CGPoint.t) x \ No newline at end of file diff --git a/uikit/UILongPressGestureRecognizerClass.ml b/uikit/UILongPressGestureRecognizerClass.ml new file mode 100644 index 00000000..98cdc042 --- /dev/null +++ b/uikit/UILongPressGestureRecognizerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilongpressgesturerecognizer?language=objc}UILongPressGestureRecognizer} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UILookupEvent.ml b/uikit/UILookupEvent.ml index 913fbd7a..92fd0063 100644 --- a/uikit/UILookupEvent.ml +++ b/uikit/UILookupEvent.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UILookupEvent" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilookupevent?language=objc}UILookupEvent} *) -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let phase self = msg_send ~self ~cmd:(selector "phase") ~typ:(returning (ullong)) -let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning (llong)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UILookupEvent" + +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let phase self = msg_send ~self ~cmd:(selector "phase") ~typ:(returning ullong) +let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning llong) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIMacSystemColor.ml b/uikit/UIMacSystemColor.ml index 760139b4..7b36fa9a 100644 --- a/uikit/UIMacSystemColor.ml +++ b/uikit/UIMacSystemColor.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMacSystemColor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimacsystemcolor?language=objc}UIMacSystemColor} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithName x ~macSelector self = msg_send ~self ~cmd:(selector "initWithName:macSelector:") ~typ:(id @-> _SEL @-> returning (id)) x macSelector -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let self = get_class "UIMacSystemColor" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithName x ~macSelector self = msg_send ~self ~cmd:(selector "initWithName:macSelector:") ~typ:(id @-> _SEL @-> returning id) x macSelector +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIManagedDocument.ml b/uikit/UIManagedDocument.ml index d282b9d4..64458a19 100644 --- a/uikit/UIManagedDocument.ml +++ b/uikit/UIManagedDocument.ml @@ -5,31 +5,28 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIManagedDocument" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimanageddocument?language=objc}UIManagedDocument} *) -module C = struct - let additionalContentPathComponent self = msg_send ~self ~cmd:(selector "additionalContentPathComponent") ~typ:(returning (id)) - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let isPersistentStoreSynchronizedViaUbiquitousContentWithOptions x self = msg_send ~self ~cmd:(selector "isPersistentStoreSynchronizedViaUbiquitousContentWithOptions:") ~typ:(id @-> returning (bool)) x - let persistentStoreName self = msg_send ~self ~cmd:(selector "persistentStoreName") ~typ:(returning (id)) -end +let self = get_class "UIManagedDocument" -let additionalContentForURL x ~error self = msg_send ~self ~cmd:(selector "additionalContentForURL:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let configurePersistentStoreCoordinatorForURL x ~ofType ~modelConfiguration ~storeOptions ~error self = msg_send ~self ~cmd:(selector "configurePersistentStoreCoordinatorForURL:ofType:modelConfiguration:storeOptions:error:") ~typ:(id @-> id @-> id @-> id @-> ptr (id) @-> returning (bool)) x ofType modelConfiguration storeOptions error -let contentsForType x ~error self = msg_send ~self ~cmd:(selector "contentsForType:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithFileURL x self = msg_send ~self ~cmd:(selector "initWithFileURL:") ~typ:(id @-> returning (id)) x -let managedObjectContext self = msg_send ~self ~cmd:(selector "managedObjectContext") ~typ:(returning (id)) -let managedObjectModel self = msg_send ~self ~cmd:(selector "managedObjectModel") ~typ:(returning (id)) -let modelConfiguration self = msg_send ~self ~cmd:(selector "modelConfiguration") ~typ:(returning (id)) -let persistentStoreOptions self = msg_send ~self ~cmd:(selector "persistentStoreOptions") ~typ:(returning (id)) -let persistentStoreTypeForFileType x self = msg_send ~self ~cmd:(selector "persistentStoreTypeForFileType:") ~typ:(id @-> returning (id)) x -let readAdditionalContentFromURL x ~error self = msg_send ~self ~cmd:(selector "readAdditionalContentFromURL:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let readFromURL x ~error self = msg_send ~self ~cmd:(selector "readFromURL:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let revertToContentsOfURL x ~completionHandler self = msg_send ~self ~cmd:(selector "revertToContentsOfURL:completionHandler:") ~typ:(id @-> ptr void @-> returning (void)) x completionHandler -let setModelConfiguration x self = msg_send ~self ~cmd:(selector "setModelConfiguration:") ~typ:(id @-> returning (void)) x -let setPersistentStoreOptions x self = msg_send ~self ~cmd:(selector "setPersistentStoreOptions:") ~typ:(id @-> returning (void)) x -let writeAdditionalContent x ~toURL ~originalContentsURL ~error self = msg_send ~self ~cmd:(selector "writeAdditionalContent:toURL:originalContentsURL:error:") ~typ:(id @-> id @-> id @-> ptr (id) @-> returning (bool)) x toURL originalContentsURL error -let writeContents x ~andAttributes ~safelyToURL ~forSaveOperation ~error self = msg_send ~self ~cmd:(selector "writeContents:andAttributes:safelyToURL:forSaveOperation:error:") ~typ:(id @-> id @-> id @-> llong @-> ptr (id) @-> returning (bool)) x andAttributes safelyToURL (LLong.of_int forSaveOperation) error -let writeContents' x ~toURL ~forSaveOperation ~originalContentsURL ~error self = msg_send ~self ~cmd:(selector "writeContents:toURL:forSaveOperation:originalContentsURL:error:") ~typ:(id @-> id @-> llong @-> id @-> ptr (id) @-> returning (bool)) x toURL (LLong.of_int forSaveOperation) originalContentsURL error \ No newline at end of file +let additionalContentForURL x ~error self = msg_send ~self ~cmd:(selector "additionalContentForURL:error:") ~typ:(id @-> (ptr id) @-> returning id) x error +let configurePersistentStoreCoordinatorForURL x ~ofType ~modelConfiguration ~storeOptions ~error self = msg_send ~self ~cmd:(selector "configurePersistentStoreCoordinatorForURL:ofType:modelConfiguration:storeOptions:error:") ~typ:(id @-> id @-> id @-> id @-> (ptr id) @-> returning bool) x ofType modelConfiguration storeOptions error +let contentsForType x ~error self = msg_send ~self ~cmd:(selector "contentsForType:error:") ~typ:(id @-> (ptr id) @-> returning id) x error +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithFileURL x self = msg_send ~self ~cmd:(selector "initWithFileURL:") ~typ:(id @-> returning id) x +let managedObjectContext self = msg_send ~self ~cmd:(selector "managedObjectContext") ~typ:(returning id) +let managedObjectModel self = msg_send ~self ~cmd:(selector "managedObjectModel") ~typ:(returning id) +let modelConfiguration self = msg_send ~self ~cmd:(selector "modelConfiguration") ~typ:(returning id) +let persistentStoreOptions self = msg_send ~self ~cmd:(selector "persistentStoreOptions") ~typ:(returning id) +let persistentStoreTypeForFileType x self = msg_send ~self ~cmd:(selector "persistentStoreTypeForFileType:") ~typ:(id @-> returning id) x +let readAdditionalContentFromURL x ~error self = msg_send ~self ~cmd:(selector "readAdditionalContentFromURL:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let readFromURL x ~error self = msg_send ~self ~cmd:(selector "readFromURL:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let revertToContentsOfURL x ~completionHandler self = msg_send ~self ~cmd:(selector "revertToContentsOfURL:completionHandler:") ~typ:(id @-> (ptr void) @-> returning void) x completionHandler +let setModelConfiguration x self = msg_send ~self ~cmd:(selector "setModelConfiguration:") ~typ:(id @-> returning void) x +let setPersistentStoreOptions x self = msg_send ~self ~cmd:(selector "setPersistentStoreOptions:") ~typ:(id @-> returning void) x +let writeAdditionalContent x ~toURL ~originalContentsURL ~error self = msg_send ~self ~cmd:(selector "writeAdditionalContent:toURL:originalContentsURL:error:") ~typ:(id @-> id @-> id @-> (ptr id) @-> returning bool) x toURL originalContentsURL error +let writeContents x ~andAttributes ~safelyToURL ~forSaveOperation ~error self = msg_send ~self ~cmd:(selector "writeContents:andAttributes:safelyToURL:forSaveOperation:error:") ~typ:(id @-> id @-> id @-> llong @-> (ptr id) @-> returning bool) x andAttributes safelyToURL (LLong.of_int forSaveOperation) error +let writeContents' x ~toURL ~forSaveOperation ~originalContentsURL ~error self = msg_send ~self ~cmd:(selector "writeContents:toURL:forSaveOperation:originalContentsURL:error:") ~typ:(id @-> id @-> llong @-> id @-> (ptr id) @-> returning bool) x toURL (LLong.of_int forSaveOperation) originalContentsURL error \ No newline at end of file diff --git a/uikit/UIManagedDocumentClass.ml b/uikit/UIManagedDocumentClass.ml new file mode 100644 index 00000000..131264fe --- /dev/null +++ b/uikit/UIManagedDocumentClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimanageddocument?language=objc}UIManagedDocument} *) + +let additionalContentPathComponent self = msg_send ~self ~cmd:(selector "additionalContentPathComponent") ~typ:(returning id) +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) +let isPersistentStoreSynchronizedViaUbiquitousContentWithOptions x self = msg_send ~self ~cmd:(selector "isPersistentStoreSynchronizedViaUbiquitousContentWithOptions:") ~typ:(id @-> returning bool) x +let persistentStoreName self = msg_send ~self ~cmd:(selector "persistentStoreName") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIMarkupTextPrintFormatter.ml b/uikit/UIMarkupTextPrintFormatter.ml index 2e826a99..73c15f40 100644 --- a/uikit/UIMarkupTextPrintFormatter.ml +++ b/uikit/UIMarkupTextPrintFormatter.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMarkupTextPrintFormatter" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimarkuptextprintformatter?language=objc}UIMarkupTextPrintFormatter} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let drawInRect x ~forPageAtIndex self = msg_send ~self ~cmd:(selector "drawInRect:forPageAtIndex:") ~typ:(CGRect.t @-> llong @-> returning (void)) x (LLong.of_int forPageAtIndex) -let initWithMarkupText x self = msg_send ~self ~cmd:(selector "initWithMarkupText:") ~typ:(id @-> returning (id)) x -let markupText self = msg_send ~self ~cmd:(selector "markupText") ~typ:(returning (id)) -let rectForPageAtIndex x self = msg_send_stret ~self ~cmd:(selector "rectForPageAtIndex:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) -let removeFromPrintPageRenderer self = msg_send ~self ~cmd:(selector "removeFromPrintPageRenderer") ~typ:(returning (void)) -let setMarkupText x self = msg_send ~self ~cmd:(selector "setMarkupText:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIMarkupTextPrintFormatter" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let drawInRect x ~forPageAtIndex self = msg_send ~self ~cmd:(selector "drawInRect:forPageAtIndex:") ~typ:(CGRect.t @-> llong @-> returning void) x (LLong.of_int forPageAtIndex) +let initWithMarkupText x self = msg_send ~self ~cmd:(selector "initWithMarkupText:") ~typ:(id @-> returning id) x +let markupText self = msg_send ~self ~cmd:(selector "markupText") ~typ:(returning id) +let rectForPageAtIndex x self = msg_send ~self ~cmd:(selector "rectForPageAtIndex:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) +let removeFromPrintPageRenderer self = msg_send ~self ~cmd:(selector "removeFromPrintPageRenderer") ~typ:(returning void) +let setMarkupText x self = msg_send ~self ~cmd:(selector "setMarkupText:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIMenu.ml b/uikit/UIMenu.ml index eb508bf7..f0bf8c8d 100644 --- a/uikit/UIMenu.ml +++ b/uikit/UIMenu.ml @@ -5,38 +5,35 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMenu" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimenu?language=objc}UIMenu} *) -module C = struct - let menuWithChildren x self = msg_send ~self ~cmd:(selector "menuWithChildren:") ~typ:(id @-> returning (id)) x - let menuWithTitle x ~children self = msg_send ~self ~cmd:(selector "menuWithTitle:children:") ~typ:(id @-> id @-> returning (id)) x children - let menuWithTitle1 x ~image ~identifier ~options ~children self = msg_send ~self ~cmd:(selector "menuWithTitle:image:identifier:options:children:") ~typ:(id @-> id @-> id @-> ullong @-> id @-> returning (id)) x image identifier (ULLong.of_int options) children - let menuWithTitle2 x ~imageName ~identifier ~options ~children self = msg_send ~self ~cmd:(selector "menuWithTitle:imageName:identifier:options:children:") ~typ:(id @-> id @-> id @-> ullong @-> id @-> returning (id)) x imageName identifier (ULLong.of_int options) children - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIMenu" -let addAsStateObserver self = msg_send ~self ~cmd:(selector "addAsStateObserver") ~typ:(returning (void)) -let childElementForElement x self = msg_send ~self ~cmd:(selector "childElementForElement:") ~typ:(id @-> returning (id)) x -let children self = msg_send ~self ~cmd:(selector "children") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let establishInitialDefaultSingleSelection self = msg_send ~self ~cmd:(selector "establishInitialDefaultSingleSelection") ~typ:(returning (void)) -let forceAutomaticSelection self = msg_send ~self ~cmd:(selector "forceAutomaticSelection") ~typ:(returning (bool)) -let forcedAutomaticSelectionDelegate self = msg_send ~self ~cmd:(selector "forcedAutomaticSelectionDelegate") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithMenu x ~overrideChildren self = msg_send ~self ~cmd:(selector "initWithMenu:overrideChildren:") ~typ:(id @-> id @-> returning (id)) x overrideChildren -let initWithTitle x ~image ~imageName ~identifier ~options ~children self = msg_send ~self ~cmd:(selector "initWithTitle:image:imageName:identifier:options:children:") ~typ:(id @-> id @-> id @-> id @-> ullong @-> id @-> returning (id)) x image imageName identifier (ULLong.of_int options) children -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let menuByReplacingChildren x self = msg_send ~self ~cmd:(selector "menuByReplacingChildren:") ~typ:(id @-> returning (id)) x -let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning (ullong)) -let recurisvelySelectDefaultForcedSelection self = msg_send ~self ~cmd:(selector "recurisvelySelectDefaultForcedSelection") ~typ:(returning (id)) -let removeAsStateObserver self = msg_send ~self ~cmd:(selector "removeAsStateObserver") ~typ:(returning (void)) -let selectedElements self = msg_send ~self ~cmd:(selector "selectedElements") ~typ:(returning (id)) -let setForceAutomaticSelection x self = msg_send ~self ~cmd:(selector "setForceAutomaticSelection:") ~typ:(bool @-> returning (void)) x -let setForcedAutomaticSelectionDelegate x self = msg_send ~self ~cmd:(selector "setForcedAutomaticSelectionDelegate:") ~typ:(id @-> returning (void)) x -let setMetadata x self = msg_send ~self ~cmd:(selector "setMetadata:") ~typ:(ptr void @-> returning (void)) x -let updateChildrenForSingleSelectedElement x self = msg_send ~self ~cmd:(selector "updateChildrenForSingleSelectedElement:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let addAsStateObserver self = msg_send ~self ~cmd:(selector "addAsStateObserver") ~typ:(returning void) +let childElementForElement x self = msg_send ~self ~cmd:(selector "childElementForElement:") ~typ:(id @-> returning id) x +let children self = msg_send ~self ~cmd:(selector "children") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let establishInitialDefaultSingleSelection self = msg_send ~self ~cmd:(selector "establishInitialDefaultSingleSelection") ~typ:(returning void) +let forceAutomaticSelection self = msg_send ~self ~cmd:(selector "forceAutomaticSelection") ~typ:(returning bool) +let forcedAutomaticSelectionDelegate self = msg_send ~self ~cmd:(selector "forcedAutomaticSelectionDelegate") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithMenu x ~overrideChildren self = msg_send ~self ~cmd:(selector "initWithMenu:overrideChildren:") ~typ:(id @-> id @-> returning id) x overrideChildren +let initWithTitle x ~image ~imageName ~identifier ~options ~children self = msg_send ~self ~cmd:(selector "initWithTitle:image:imageName:identifier:options:children:") ~typ:(id @-> id @-> id @-> id @-> ullong @-> id @-> returning id) x image imageName identifier (ULLong.of_int options) children +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let menuByReplacingChildren x self = msg_send ~self ~cmd:(selector "menuByReplacingChildren:") ~typ:(id @-> returning id) x +let metadata self = msg_send ~self ~cmd:(selector "metadata") ~typ:(returning void) +let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning ullong) +let recurisvelySelectDefaultForcedSelection self = msg_send ~self ~cmd:(selector "recurisvelySelectDefaultForcedSelection") ~typ:(returning id) +let removeAsStateObserver self = msg_send ~self ~cmd:(selector "removeAsStateObserver") ~typ:(returning void) +let selectedElements self = msg_send ~self ~cmd:(selector "selectedElements") ~typ:(returning id) +let setForceAutomaticSelection x self = msg_send ~self ~cmd:(selector "setForceAutomaticSelection:") ~typ:(bool @-> returning void) x +let setForcedAutomaticSelectionDelegate x self = msg_send ~self ~cmd:(selector "setForcedAutomaticSelectionDelegate:") ~typ:(id @-> returning void) x +let setMetadata x self = msg_send ~self ~cmd:(selector "setMetadata:") ~typ:(void @-> returning void) x +let updateChildrenForSingleSelectedElement x self = msg_send ~self ~cmd:(selector "updateChildrenForSingleSelectedElement:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIMenuClass.ml b/uikit/UIMenuClass.ml new file mode 100644 index 00000000..1acac0dd --- /dev/null +++ b/uikit/UIMenuClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimenu?language=objc}UIMenu} *) + +let menuWithChildren x self = msg_send ~self ~cmd:(selector "menuWithChildren:") ~typ:(id @-> returning id) x +let menuWithTitle x ~children self = msg_send ~self ~cmd:(selector "menuWithTitle:children:") ~typ:(id @-> id @-> returning id) x children +let menuWithTitle1 x ~image ~identifier ~options ~children self = msg_send ~self ~cmd:(selector "menuWithTitle:image:identifier:options:children:") ~typ:(id @-> id @-> id @-> ullong @-> id @-> returning id) x image identifier (ULLong.of_int options) children +let menuWithTitle2 x ~imageName ~identifier ~options ~children self = msg_send ~self ~cmd:(selector "menuWithTitle:imageName:identifier:options:children:") ~typ:(id @-> id @-> id @-> ullong @-> id @-> returning id) x imageName identifier (ULLong.of_int options) children +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIMenuController.ml b/uikit/UIMenuController.ml index 9618eff6..e9a2cfe9 100644 --- a/uikit/UIMenuController.ml +++ b/uikit/UIMenuController.ml @@ -5,27 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMenuController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimenucontroller?language=objc}UIMenuController} *) -module C = struct - let sharedMenuController self = msg_send ~self ~cmd:(selector "sharedMenuController") ~typ:(returning (id)) -end +let self = get_class "UIMenuController" -let arrowDirection self = msg_send ~self ~cmd:(selector "arrowDirection") ~typ:(returning (llong)) -let calloutBar x ~didFinishAnimation self = msg_send ~self ~cmd:(selector "calloutBar:didFinishAnimation:") ~typ:(id @-> id @-> returning (void)) x didFinishAnimation -let calloutBar' x ~willStartAnimation self = msg_send ~self ~cmd:(selector "calloutBar:willStartAnimation:") ~typ:(id @-> id @-> returning (void)) x willStartAnimation -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let hideMenu self = msg_send ~self ~cmd:(selector "hideMenu") ~typ:(returning (void)) -let hideMenuFromView x self = msg_send ~self ~cmd:(selector "hideMenuFromView:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isMenuVisible self = msg_send ~self ~cmd:(selector "isMenuVisible") ~typ:(returning (bool)) -let menuFrame self = msg_send_stret ~self ~cmd:(selector "menuFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let menuItems self = msg_send ~self ~cmd:(selector "menuItems") ~typ:(returning (id)) -let setArrowDirection x self = msg_send ~self ~cmd:(selector "setArrowDirection:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setMenuItems x self = msg_send ~self ~cmd:(selector "setMenuItems:") ~typ:(id @-> returning (void)) x -let setMenuVisible x self = msg_send ~self ~cmd:(selector "setMenuVisible:") ~typ:(bool @-> returning (void)) x -let setMenuVisible' x ~animated self = msg_send ~self ~cmd:(selector "setMenuVisible:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setTargetRect x ~inView self = msg_send ~self ~cmd:(selector "setTargetRect:inView:") ~typ:(CGRect.t @-> id @-> returning (void)) x inView -let showMenuFromView x ~rect self = msg_send ~self ~cmd:(selector "showMenuFromView:rect:") ~typ:(id @-> CGRect.t @-> returning (void)) x rect -let update self = msg_send ~self ~cmd:(selector "update") ~typ:(returning (void)) \ No newline at end of file +let arrowDirection self = msg_send ~self ~cmd:(selector "arrowDirection") ~typ:(returning llong) +let calloutBar x ~didFinishAnimation self = msg_send ~self ~cmd:(selector "calloutBar:didFinishAnimation:") ~typ:(id @-> id @-> returning void) x didFinishAnimation +let calloutBar' x ~willStartAnimation self = msg_send ~self ~cmd:(selector "calloutBar:willStartAnimation:") ~typ:(id @-> id @-> returning void) x willStartAnimation +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let hideMenu self = msg_send ~self ~cmd:(selector "hideMenu") ~typ:(returning void) +let hideMenuFromView x self = msg_send ~self ~cmd:(selector "hideMenuFromView:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isMenuVisible self = msg_send ~self ~cmd:(selector "isMenuVisible") ~typ:(returning bool) +let menuFrame self = msg_send ~self ~cmd:(selector "menuFrame") ~typ:(returning CGRect.t) +let menuItems self = msg_send ~self ~cmd:(selector "menuItems") ~typ:(returning id) +let setArrowDirection x self = msg_send ~self ~cmd:(selector "setArrowDirection:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setMenuItems x self = msg_send ~self ~cmd:(selector "setMenuItems:") ~typ:(id @-> returning void) x +let setMenuVisible x self = msg_send ~self ~cmd:(selector "setMenuVisible:") ~typ:(bool @-> returning void) x +let setMenuVisible' x ~animated self = msg_send ~self ~cmd:(selector "setMenuVisible:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setTargetRect x ~inView self = msg_send ~self ~cmd:(selector "setTargetRect:inView:") ~typ:(CGRect.t @-> id @-> returning void) x inView +let showMenuFromView x ~rect self = msg_send ~self ~cmd:(selector "showMenuFromView:rect:") ~typ:(id @-> CGRect.t @-> returning void) x rect +let update self = msg_send ~self ~cmd:(selector "update") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIMenuControllerClass.ml b/uikit/UIMenuControllerClass.ml new file mode 100644 index 00000000..3222f916 --- /dev/null +++ b/uikit/UIMenuControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimenucontroller?language=objc}UIMenuController} *) + +let sharedMenuController self = msg_send ~self ~cmd:(selector "sharedMenuController") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIMenuElement.ml b/uikit/UIMenuElement.ml index ff931144..f5177b58 100644 --- a/uikit/UIMenuElement.ml +++ b/uikit/UIMenuElement.ml @@ -5,23 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMenuElement" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimenuelement?language=objc}UIMenuElement} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIMenuElement" -let accessibilityIdentifier self = msg_send ~self ~cmd:(selector "accessibilityIdentifier") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let imageOrName self = msg_send ~self ~cmd:(selector "imageOrName") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithTitle x ~image ~imageName self = msg_send ~self ~cmd:(selector "initWithTitle:image:imageName:") ~typ:(id @-> id @-> id @-> returning (id)) x image imageName -let isLeaf self = msg_send ~self ~cmd:(selector "isLeaf") ~typ:(returning (bool)) -let isLoadingPlaceholder self = msg_send ~self ~cmd:(selector "isLoadingPlaceholder") ~typ:(returning (bool)) -let setAccessibilityIdentifier x self = msg_send ~self ~cmd:(selector "setAccessibilityIdentifier:") ~typ:(id @-> returning (void)) x -let setSubtitle x self = msg_send ~self ~cmd:(selector "setSubtitle:") ~typ:(id @-> returning (void)) x -let subtitle self = msg_send ~self ~cmd:(selector "subtitle") ~typ:(returning (id)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let accessibilityIdentifier self = msg_send ~self ~cmd:(selector "accessibilityIdentifier") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let imageOrName self = msg_send ~self ~cmd:(selector "imageOrName") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithTitle x ~image ~imageName self = msg_send ~self ~cmd:(selector "initWithTitle:image:imageName:") ~typ:(id @-> id @-> id @-> returning id) x image imageName +let isLeaf self = msg_send ~self ~cmd:(selector "isLeaf") ~typ:(returning bool) +let isLoadingPlaceholder self = msg_send ~self ~cmd:(selector "isLoadingPlaceholder") ~typ:(returning bool) +let setAccessibilityIdentifier x self = msg_send ~self ~cmd:(selector "setAccessibilityIdentifier:") ~typ:(id @-> returning void) x +let setSubtitle x self = msg_send ~self ~cmd:(selector "setSubtitle:") ~typ:(id @-> returning void) x +let subtitle self = msg_send ~self ~cmd:(selector "subtitle") ~typ:(returning id) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIMenuElementClass.ml b/uikit/UIMenuElementClass.ml new file mode 100644 index 00000000..5d08606b --- /dev/null +++ b/uikit/UIMenuElementClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimenuelement?language=objc}UIMenuElement} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIMenuItem.ml b/uikit/UIMenuItem.ml index 0317bd40..5503cd83 100644 --- a/uikit/UIMenuItem.ml +++ b/uikit/UIMenuItem.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMenuItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimenuitem?language=objc}UIMenuItem} *) -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (_SEL)) -let dontDismiss self = msg_send ~self ~cmd:(selector "dontDismiss") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithTitle x ~action self = msg_send ~self ~cmd:(selector "initWithTitle:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(_SEL @-> returning (void)) x -let setDontDismiss x self = msg_send ~self ~cmd:(selector "setDontDismiss:") ~typ:(bool @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIMenuItem" + +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning _SEL) +let dontDismiss self = msg_send ~self ~cmd:(selector "dontDismiss") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithTitle x ~action self = msg_send ~self ~cmd:(selector "initWithTitle:action:") ~typ:(id @-> _SEL @-> returning id) x action +let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(_SEL @-> returning void) x +let setDontDismiss x self = msg_send ~self ~cmd:(selector "setDontDismiss:") ~typ:(bool @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIMenuSystem.ml b/uikit/UIMenuSystem.ml index 042f861c..9f5b4a1b 100644 --- a/uikit/UIMenuSystem.ml +++ b/uikit/UIMenuSystem.ml @@ -5,14 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMenuSystem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimenusystem?language=objc}UIMenuSystem} *) -module C = struct - let contextSystem self = msg_send ~self ~cmd:(selector "contextSystem") ~typ:(returning (id)) - let mainSystem self = msg_send ~self ~cmd:(selector "mainSystem") ~typ:(returning (id)) -end +let self = get_class "UIMenuSystem" -let initWithRootMenuChildren x self = msg_send ~self ~cmd:(selector "initWithRootMenuChildren:") ~typ:(id @-> returning (id)) x -let setNeedsRebuild self = msg_send ~self ~cmd:(selector "setNeedsRebuild") ~typ:(returning (void)) -let setNeedsRevalidate self = msg_send ~self ~cmd:(selector "setNeedsRevalidate") ~typ:(returning (void)) \ No newline at end of file +let initWithRootMenuChildren x self = msg_send ~self ~cmd:(selector "initWithRootMenuChildren:") ~typ:(id @-> returning id) x +let setNeedsRebuild self = msg_send ~self ~cmd:(selector "setNeedsRebuild") ~typ:(returning void) +let setNeedsRevalidate self = msg_send ~self ~cmd:(selector "setNeedsRevalidate") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIMenuSystemClass.ml b/uikit/UIMenuSystemClass.ml new file mode 100644 index 00000000..483a2a55 --- /dev/null +++ b/uikit/UIMenuSystemClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimenusystem?language=objc}UIMenuSystem} *) + +let contextSystem self = msg_send ~self ~cmd:(selector "contextSystem") ~typ:(returning id) +let mainSystem self = msg_send ~self ~cmd:(selector "mainSystem") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIMoreListCellLayoutManager.ml b/uikit/UIMoreListCellLayoutManager.ml index 04222684..c4fa8867 100644 --- a/uikit/UIMoreListCellLayoutManager.ml +++ b/uikit/UIMoreListCellLayoutManager.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMoreListCellLayoutManager" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimorelistcelllayoutmanager?language=objc}UIMoreListCellLayoutManager} *) -let layoutSubviewsOfCell x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfCell:") ~typ:(id @-> returning (void)) x -let setWidestImageWidthFromViewControllers x self = msg_send ~self ~cmd:(selector "setWidestImageWidthFromViewControllers:") ~typ:(id @-> returning (double)) x -let standardLayoutImageViewFrameForCell x ~forSizing self = msg_send_stret ~self ~cmd:(selector "standardLayoutImageViewFrameForCell:forSizing:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forSizing \ No newline at end of file +let self = get_class "UIMoreListCellLayoutManager" + +let layoutSubviewsOfCell x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfCell:") ~typ:(id @-> returning void) x +let setWidestImageWidthFromViewControllers x self = msg_send ~self ~cmd:(selector "setWidestImageWidthFromViewControllers:") ~typ:(id @-> returning double) x +let standardLayoutImageViewFrameForCell x ~forSizing self = msg_send ~self ~cmd:(selector "standardLayoutImageViewFrameForCell:forSizing:") ~typ:(id @-> bool @-> returning CGRect.t) x forSizing \ No newline at end of file diff --git a/uikit/UIMoreListController.ml b/uikit/UIMoreListController.ml index 6d4b013a..15613266 100644 --- a/uikit/UIMoreListController.ml +++ b/uikit/UIMoreListController.ml @@ -5,25 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMoreListController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimorelistcontroller?language=objc}UIMoreListController} *) -let allowsCustomizing self = msg_send ~self ~cmd:(selector "allowsCustomizing") ~typ:(returning (bool)) -let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let moreViewControllers self = msg_send ~self ~cmd:(selector "moreViewControllers") ~typ:(returning (id)) -let moreViewControllersChanged self = msg_send ~self ~cmd:(selector "moreViewControllersChanged") ~typ:(returning (bool)) -let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning (llong)) x -let setAllowsCustomizing x self = msg_send ~self ~cmd:(selector "setAllowsCustomizing:") ~typ:(bool @-> returning (void)) x -let setMoreViewControllers x self = msg_send ~self ~cmd:(selector "setMoreViewControllers:") ~typ:(id @-> returning (void)) x -let setMoreViewControllersChanged x self = msg_send ~self ~cmd:(selector "setMoreViewControllersChanged:") ~typ:(bool @-> returning (void)) x -let tabBarItem self = msg_send ~self ~cmd:(selector "tabBarItem") ~typ:(returning (id)) -let table self = msg_send ~self ~cmd:(selector "table") ~typ:(returning (id)) -let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didSelectRowAtIndexPath -let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let tableView3 x ~willDisplayCell ~forRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willDisplayCell:forRowAtIndexPath:") ~typ:(id @-> id @-> id @-> returning (void)) x willDisplayCell forRowAtIndexPath -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIMoreListController" + +let allowsCustomizing self = msg_send ~self ~cmd:(selector "allowsCustomizing") ~typ:(returning bool) +let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let moreViewControllers self = msg_send ~self ~cmd:(selector "moreViewControllers") ~typ:(returning id) +let moreViewControllersChanged self = msg_send ~self ~cmd:(selector "moreViewControllersChanged") ~typ:(returning bool) +let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning llong) x +let setAllowsCustomizing x self = msg_send ~self ~cmd:(selector "setAllowsCustomizing:") ~typ:(bool @-> returning void) x +let setMoreViewControllers x self = msg_send ~self ~cmd:(selector "setMoreViewControllers:") ~typ:(id @-> returning void) x +let setMoreViewControllersChanged x self = msg_send ~self ~cmd:(selector "setMoreViewControllersChanged:") ~typ:(bool @-> returning void) x +let tabBarItem self = msg_send ~self ~cmd:(selector "tabBarItem") ~typ:(returning id) +let table self = msg_send ~self ~cmd:(selector "table") ~typ:(returning id) +let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x didSelectRowAtIndexPath +let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let tableView3 x ~willDisplayCell ~forRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willDisplayCell:forRowAtIndexPath:") ~typ:(id @-> id @-> id @-> returning void) x willDisplayCell forRowAtIndexPath +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIMoreNavigationController.ml b/uikit/UIMoreNavigationController.ml index 9f32805a..dd9e4cd0 100644 --- a/uikit/UIMoreNavigationController.ml +++ b/uikit/UIMoreNavigationController.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMoreNavigationController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimorenavigationcontroller?language=objc}UIMoreNavigationController} *) -let allowsCustomizing self = msg_send ~self ~cmd:(selector "allowsCustomizing") ~typ:(returning (bool)) -let didShowViewController x ~animated self = msg_send ~self ~cmd:(selector "didShowViewController:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let displayedViewController self = msg_send ~self ~cmd:(selector "displayedViewController") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let moreListController self = msg_send ~self ~cmd:(selector "moreListController") ~typ:(returning (id)) -let moreViewControllers self = msg_send ~self ~cmd:(selector "moreViewControllers") ~typ:(returning (id)) -let moreViewControllersChanged self = msg_send ~self ~cmd:(selector "moreViewControllersChanged") ~typ:(returning (bool)) -let pushViewController x ~animated self = msg_send ~self ~cmd:(selector "pushViewController:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let restoreOriginalNavigationControllerIfNecessary x self = msg_send ~self ~cmd:(selector "restoreOriginalNavigationControllerIfNecessary:") ~typ:(id @-> returning (void)) x -let setAllowsCustomizing x self = msg_send ~self ~cmd:(selector "setAllowsCustomizing:") ~typ:(bool @-> returning (void)) x -let setDisplayedViewController x self = msg_send ~self ~cmd:(selector "setDisplayedViewController:") ~typ:(id @-> returning (void)) x -let setMoreViewControllers x self = msg_send ~self ~cmd:(selector "setMoreViewControllers:") ~typ:(id @-> returning (void)) x -let setMoreViewControllersChanged x self = msg_send ~self ~cmd:(selector "setMoreViewControllersChanged:") ~typ:(bool @-> returning (void)) x -let viewDidMoveToWindow x ~shouldAppearOrDisappear self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow:shouldAppearOrDisappear:") ~typ:(id @-> bool @-> returning (void)) x shouldAppearOrDisappear \ No newline at end of file +let self = get_class "UIMoreNavigationController" + +let allowsCustomizing self = msg_send ~self ~cmd:(selector "allowsCustomizing") ~typ:(returning bool) +let didShowViewController x ~animated self = msg_send ~self ~cmd:(selector "didShowViewController:animated:") ~typ:(id @-> bool @-> returning void) x animated +let displayedViewController self = msg_send ~self ~cmd:(selector "displayedViewController") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let moreListController self = msg_send ~self ~cmd:(selector "moreListController") ~typ:(returning id) +let moreViewControllers self = msg_send ~self ~cmd:(selector "moreViewControllers") ~typ:(returning id) +let moreViewControllersChanged self = msg_send ~self ~cmd:(selector "moreViewControllersChanged") ~typ:(returning bool) +let pushViewController x ~animated self = msg_send ~self ~cmd:(selector "pushViewController:animated:") ~typ:(id @-> bool @-> returning void) x animated +let restoreOriginalNavigationControllerIfNecessary x self = msg_send ~self ~cmd:(selector "restoreOriginalNavigationControllerIfNecessary:") ~typ:(id @-> returning void) x +let setAllowsCustomizing x self = msg_send ~self ~cmd:(selector "setAllowsCustomizing:") ~typ:(bool @-> returning void) x +let setDisplayedViewController x self = msg_send ~self ~cmd:(selector "setDisplayedViewController:") ~typ:(id @-> returning void) x +let setMoreViewControllers x self = msg_send ~self ~cmd:(selector "setMoreViewControllers:") ~typ:(id @-> returning void) x +let setMoreViewControllersChanged x self = msg_send ~self ~cmd:(selector "setMoreViewControllersChanged:") ~typ:(bool @-> returning void) x +let viewDidMoveToWindow x ~shouldAppearOrDisappear self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow:shouldAppearOrDisappear:") ~typ:(id @-> bool @-> returning void) x shouldAppearOrDisappear \ No newline at end of file diff --git a/uikit/UIMorphingLabel.ml b/uikit/UIMorphingLabel.ml index 58fdb90a..446772f7 100644 --- a/uikit/UIMorphingLabel.ml +++ b/uikit/UIMorphingLabel.ml @@ -5,73 +5,73 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMorphingLabel" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimorphinglabel?language=objc}UIMorphingLabel} *) -module C = struct - let preferredFontWithSize x self = msg_send ~self ~cmd:(selector "preferredFontWithSize:") ~typ:(double @-> returning (id)) x -end +let self = get_class "UIMorphingLabel" -let alphaForFrame x self = msg_send ~self ~cmd:(selector "alphaForFrame:") ~typ:(CGRect.t @-> returning (double)) x -let animateAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "animateAlignmentHunkAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let animateChangeInWidthOutsideAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "animateChangeInWidthOutsideAlignmentHunkAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let animateDeletionAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "animateDeletionAlignmentHunkAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let animateGlyph x ~toPosition ~delay self = msg_send ~self ~cmd:(selector "animateGlyph:toPosition:delay:") ~typ:(id @-> CGPoint.t @-> double @-> returning (void)) x toPosition delay -let animateGlyph1 x ~toScale ~delay self = msg_send ~self ~cmd:(selector "animateGlyph:toScale:delay:") ~typ:(id @-> double @-> double @-> returning (void)) x toScale delay -let animateGlyph2 x ~toAlpha ~duration ~delay self = msg_send ~self ~cmd:(selector "animateGlyph:toAlpha:duration:delay:") ~typ:(id @-> double @-> double @-> double @-> returning (void)) x toAlpha duration delay -let animateGlyphs self = msg_send ~self ~cmd:(selector "animateGlyphs") ~typ:(returning (void)) -let animateGlyphsInRange x ~ofGlyphSet ~byOffset ~delay self = msg_send ~self ~cmd:(selector "animateGlyphsInRange:ofGlyphSet:byOffset:delay:") ~typ:(NSRange.t @-> id @-> double @-> double @-> returning (void)) x ofGlyphSet byOffset delay -let animateHideGlyph x ~alphaDuration ~delay self = msg_send ~self ~cmd:(selector "animateHideGlyph:alphaDuration:delay:") ~typ:(id @-> double @-> double @-> returning (void)) x alphaDuration delay -let animateInsertionAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "animateInsertionAlignmentHunkAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let animateMovementAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "animateMovementAlignmentHunkAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let animateShowGlyph x ~alphaDuration ~delay self = msg_send ~self ~cmd:(selector "animateShowGlyph:alphaDuration:delay:") ~typ:(id @-> double @-> double @-> returning (void)) x alphaDuration delay -let animateShowGlyph' x ~alpha ~alphaDuration ~delay self = msg_send ~self ~cmd:(selector "animateShowGlyph:alpha:alphaDuration:delay:") ~typ:(id @-> double @-> double @-> double @-> returning (void)) x alpha alphaDuration delay -let animateSubstitutionAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "animateSubstitutionAlignmentHunkAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let attributedString self = msg_send ~self ~cmd:(selector "attributedString") ~typ:(returning (id)) -let attributedStringForText x self = msg_send ~self ~cmd:(selector "attributedStringForText:") ~typ:(id @-> returning (id)) x -let baseInit self = msg_send ~self ~cmd:(selector "baseInit") ~typ:(returning (void)) -let calculateGlyphAlignment self = msg_send ~self ~cmd:(selector "calculateGlyphAlignment") ~typ:(returning (void)) -let calculateHardAlignmentAtIndex x ~fromGlyphsInRange ~toGlyphsInRange self = msg_send ~self ~cmd:(selector "calculateHardAlignmentAtIndex:fromGlyphsInRange:toGlyphsInRange:") ~typ:(ullong @-> NSRange.t @-> NSRange.t @-> returning (ullong)) (ULLong.of_int x) fromGlyphsInRange toGlyphsInRange -let canFitText x self = msg_send ~self ~cmd:(selector "canFitText:") ~typ:(id @-> returning (bool)) x -let changeInWidthDueToAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "changeInWidthDueToAlignmentHunkAtIndex:") ~typ:(ullong @-> returning (double)) (ULLong.of_int x) -let contentSizeDidChange x self = msg_send ~self ~cmd:(selector "contentSizeDidChange:") ~typ:(id @-> returning (void)) x -let copyStateFromGlyph x ~toGlyph self = msg_send ~self ~cmd:(selector "copyStateFromGlyph:toGlyph:") ~typ:(id @-> id @-> returning (void)) x toGlyph -let currentMediaTime self = msg_send ~self ~cmd:(selector "currentMediaTime") ~typ:(returning (double)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let dstRangeOfAlignmentHunkAtIndex x self = msg_send_stret ~self ~cmd:(selector "dstRangeOfAlignmentHunkAtIndex:") ~typ:(ullong @-> returning (NSRange.t)) ~return_type:NSRange.t (ULLong.of_int x) -let enableAnimation self = msg_send ~self ~cmd:(selector "enableAnimation") ~typ:(returning (bool)) -let flushAmount self = msg_send ~self ~cmd:(selector "flushAmount") ~typ:(returning (double)) -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let glyphScaleAnimationSpeed self = msg_send ~self ~cmd:(selector "glyphScaleAnimationSpeed") ~typ:(returning (double)) -let glyphViewWithImage x ~isColorGlyph self = msg_send ~self ~cmd:(selector "glyphViewWithImage:isColorGlyph:") ~typ:(id @-> bool @-> returning (id)) x isColorGlyph -let hideGlyph x self = msg_send ~self ~cmd:(selector "hideGlyph:") ~typ:(id @-> returning (void)) x -let initAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "initAlignmentHunkAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let initDeletionAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "initDeletionAlignmentHunkAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let initInsertionAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "initInsertionAlignmentHunkAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let initMovementAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "initMovementAlignmentHunkAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let initSubstitutionAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "initSubstitutionAlignmentHunkAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initialScale self = msg_send ~self ~cmd:(selector "initialScale") ~typ:(returning (double)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let requiredWidthForText x self = msg_send ~self ~cmd:(selector "requiredWidthForText:") ~typ:(id @-> returning (double)) x -let rippleDuration self = msg_send ~self ~cmd:(selector "rippleDuration") ~typ:(returning (double)) -let setEnableAnimation x self = msg_send ~self ~cmd:(selector "setEnableAnimation:") ~typ:(bool @-> returning (void)) x -let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning (void)) x -let setGlyphScaleAnimationSpeed x self = msg_send ~self ~cmd:(selector "setGlyphScaleAnimationSpeed:") ~typ:(double @-> returning (void)) x -let setInitialScale x self = msg_send ~self ~cmd:(selector "setInitialScale:") ~typ:(double @-> returning (void)) x -let setRippleDuration x self = msg_send ~self ~cmd:(selector "setRippleDuration:") ~typ:(double @-> returning (void)) x -let setSuppressLayoutSubviews x self = msg_send ~self ~cmd:(selector "setSuppressLayoutSubviews:") ~typ:(bool @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning (void)) x -let setVisibleRect x self = msg_send ~self ~cmd:(selector "setVisibleRect:") ~typ:(CGRect.t @-> returning (void)) x -let srcRangeOfAlignmentHunkAtIndex x self = msg_send_stret ~self ~cmd:(selector "srcRangeOfAlignmentHunkAtIndex:") ~typ:(ullong @-> returning (NSRange.t)) ~return_type:NSRange.t (ULLong.of_int x) -let suppressLayoutSubviews self = msg_send ~self ~cmd:(selector "suppressLayoutSubviews") ~typ:(returning (bool)) -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning (llong)) -let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning (id)) -let totalLeftOffsetForAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "totalLeftOffsetForAlignmentHunkAtIndex:") ~typ:(ullong @-> returning (double)) (ULLong.of_int x) -let totalRightOffsetForAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "totalRightOffsetForAlignmentHunkAtIndex:") ~typ:(ullong @-> returning (double)) (ULLong.of_int x) -let uniqueString self = msg_send ~self ~cmd:(selector "uniqueString") ~typ:(returning (id)) -let visibleRect self = msg_send_stret ~self ~cmd:(selector "visibleRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t \ No newline at end of file +let alphaForFrame x self = msg_send ~self ~cmd:(selector "alphaForFrame:") ~typ:(CGRect.t @-> returning double) x +let animateAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "animateAlignmentHunkAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let animateChangeInWidthOutsideAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "animateChangeInWidthOutsideAlignmentHunkAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let animateDeletionAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "animateDeletionAlignmentHunkAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let animateGlyph x ~toPosition ~delay self = msg_send ~self ~cmd:(selector "animateGlyph:toPosition:delay:") ~typ:(id @-> CGPoint.t @-> double @-> returning void) x toPosition delay +let animateGlyph1 x ~toScale ~delay self = msg_send ~self ~cmd:(selector "animateGlyph:toScale:delay:") ~typ:(id @-> double @-> double @-> returning void) x toScale delay +let animateGlyph2 x ~toAlpha ~duration ~delay self = msg_send ~self ~cmd:(selector "animateGlyph:toAlpha:duration:delay:") ~typ:(id @-> double @-> double @-> double @-> returning void) x toAlpha duration delay +let animateGlyphs self = msg_send ~self ~cmd:(selector "animateGlyphs") ~typ:(returning void) +let animateGlyphsInRange x ~ofGlyphSet ~byOffset ~delay self = msg_send ~self ~cmd:(selector "animateGlyphsInRange:ofGlyphSet:byOffset:delay:") ~typ:(NSRange.t @-> id @-> double @-> double @-> returning void) x ofGlyphSet byOffset delay +let animateHideGlyph x ~alphaDuration ~delay self = msg_send ~self ~cmd:(selector "animateHideGlyph:alphaDuration:delay:") ~typ:(id @-> double @-> double @-> returning void) x alphaDuration delay +let animateInsertionAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "animateInsertionAlignmentHunkAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let animateMovementAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "animateMovementAlignmentHunkAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let animateShowGlyph x ~alphaDuration ~delay self = msg_send ~self ~cmd:(selector "animateShowGlyph:alphaDuration:delay:") ~typ:(id @-> double @-> double @-> returning void) x alphaDuration delay +let animateShowGlyph' x ~alpha ~alphaDuration ~delay self = msg_send ~self ~cmd:(selector "animateShowGlyph:alpha:alphaDuration:delay:") ~typ:(id @-> double @-> double @-> double @-> returning void) x alpha alphaDuration delay +let animateSubstitutionAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "animateSubstitutionAlignmentHunkAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let attributedString self = msg_send ~self ~cmd:(selector "attributedString") ~typ:(returning id) +let attributedStringForText x self = msg_send ~self ~cmd:(selector "attributedStringForText:") ~typ:(id @-> returning id) x +let baseInit self = msg_send ~self ~cmd:(selector "baseInit") ~typ:(returning void) +let calculateGlyphAlignment self = msg_send ~self ~cmd:(selector "calculateGlyphAlignment") ~typ:(returning void) +let calculateHardAlignmentAtIndex x ~fromGlyphsInRange ~toGlyphsInRange self = msg_send ~self ~cmd:(selector "calculateHardAlignmentAtIndex:fromGlyphsInRange:toGlyphsInRange:") ~typ:(ullong @-> NSRange.t @-> NSRange.t @-> returning ullong) (ULLong.of_int x) fromGlyphsInRange toGlyphsInRange +let canFitText x self = msg_send ~self ~cmd:(selector "canFitText:") ~typ:(id @-> returning bool) x +let changeInWidthDueToAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "changeInWidthDueToAlignmentHunkAtIndex:") ~typ:(ullong @-> returning double) (ULLong.of_int x) +let contentSizeDidChange x self = msg_send ~self ~cmd:(selector "contentSizeDidChange:") ~typ:(id @-> returning void) x +let copyStateFromGlyph x ~toGlyph self = msg_send ~self ~cmd:(selector "copyStateFromGlyph:toGlyph:") ~typ:(id @-> id @-> returning void) x toGlyph +let currentMediaTime self = msg_send ~self ~cmd:(selector "currentMediaTime") ~typ:(returning double) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let dstRangeOfAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "dstRangeOfAlignmentHunkAtIndex:") ~typ:(ullong @-> returning NSRange.t) (ULLong.of_int x) +let enableAnimation self = msg_send ~self ~cmd:(selector "enableAnimation") ~typ:(returning bool) +let flushAmount self = msg_send ~self ~cmd:(selector "flushAmount") ~typ:(returning double) +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let glyphScaleAnimationSpeed self = msg_send ~self ~cmd:(selector "glyphScaleAnimationSpeed") ~typ:(returning double) +let glyphViewWithImage x ~isColorGlyph self = msg_send ~self ~cmd:(selector "glyphViewWithImage:isColorGlyph:") ~typ:(id @-> bool @-> returning id) x isColorGlyph +let hideGlyph x self = msg_send ~self ~cmd:(selector "hideGlyph:") ~typ:(id @-> returning void) x +let initAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "initAlignmentHunkAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let initDeletionAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "initDeletionAlignmentHunkAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let initInsertionAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "initInsertionAlignmentHunkAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let initMovementAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "initMovementAlignmentHunkAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let initSubstitutionAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "initSubstitutionAlignmentHunkAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initialScale self = msg_send ~self ~cmd:(selector "initialScale") ~typ:(returning double) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let requiredWidthForText x self = msg_send ~self ~cmd:(selector "requiredWidthForText:") ~typ:(id @-> returning double) x +let rippleDuration self = msg_send ~self ~cmd:(selector "rippleDuration") ~typ:(returning double) +let setEnableAnimation x self = msg_send ~self ~cmd:(selector "setEnableAnimation:") ~typ:(bool @-> returning void) x +let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning void) x +let setGlyphScaleAnimationSpeed x self = msg_send ~self ~cmd:(selector "setGlyphScaleAnimationSpeed:") ~typ:(double @-> returning void) x +let setInitialScale x self = msg_send ~self ~cmd:(selector "setInitialScale:") ~typ:(double @-> returning void) x +let setRippleDuration x self = msg_send ~self ~cmd:(selector "setRippleDuration:") ~typ:(double @-> returning void) x +let setSuppressLayoutSubviews x self = msg_send ~self ~cmd:(selector "setSuppressLayoutSubviews:") ~typ:(bool @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning void) x +let setVisibleRect x self = msg_send ~self ~cmd:(selector "setVisibleRect:") ~typ:(CGRect.t @-> returning void) x +let srcRangeOfAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "srcRangeOfAlignmentHunkAtIndex:") ~typ:(ullong @-> returning NSRange.t) (ULLong.of_int x) +let suppressLayoutSubviews self = msg_send ~self ~cmd:(selector "suppressLayoutSubviews") ~typ:(returning bool) +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning llong) +let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning id) +let totalLeftOffsetForAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "totalLeftOffsetForAlignmentHunkAtIndex:") ~typ:(ullong @-> returning double) (ULLong.of_int x) +let totalRightOffsetForAlignmentHunkAtIndex x self = msg_send ~self ~cmd:(selector "totalRightOffsetForAlignmentHunkAtIndex:") ~typ:(ullong @-> returning double) (ULLong.of_int x) +let uniqueString self = msg_send ~self ~cmd:(selector "uniqueString") ~typ:(returning id) +let visibleRect self = msg_send ~self ~cmd:(selector "visibleRect") ~typ:(returning CGRect.t) \ No newline at end of file diff --git a/uikit/UIMorphingLabelClass.ml b/uikit/UIMorphingLabelClass.ml new file mode 100644 index 00000000..d4b71f53 --- /dev/null +++ b/uikit/UIMorphingLabelClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimorphinglabel?language=objc}UIMorphingLabel} *) + +let preferredFontWithSize x self = msg_send ~self ~cmd:(selector "preferredFontWithSize:") ~typ:(double @-> returning id) x \ No newline at end of file diff --git a/uikit/UIMorphingLabelGlyphSet.ml b/uikit/UIMorphingLabelGlyphSet.ml index bf576c80..6e538fa9 100644 --- a/uikit/UIMorphingLabelGlyphSet.ml +++ b/uikit/UIMorphingLabelGlyphSet.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMorphingLabelGlyphSet" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimorphinglabelglyphset?language=objc}UIMorphingLabelGlyphSet} *) -let attributedString self = msg_send ~self ~cmd:(selector "attributedString") ~typ:(returning (id)) -let boundingRectForGlyphsInRange x self = msg_send_stret ~self ~cmd:(selector "boundingRectForGlyphsInRange:") ~typ:(NSRange.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let buildGlyphViews self = msg_send ~self ~cmd:(selector "buildGlyphViews") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let glyphCount self = msg_send ~self ~cmd:(selector "glyphCount") ~typ:(returning (ullong)) -let glyphFrames self = msg_send ~self ~cmd:(selector "glyphFrames") ~typ:(returning (ptr (CGRect.t))) -let glyphPositions self = msg_send ~self ~cmd:(selector "glyphPositions") ~typ:(returning (ptr (CGPoint.t))) -let glyphViews self = msg_send ~self ~cmd:(selector "glyphViews") ~typ:(returning (id)) -let glyphs self = msg_send ~self ~cmd:(selector "glyphs") ~typ:(returning (ptr (ushort))) -let initWithLabel x ~attributedString self = msg_send ~self ~cmd:(selector "initWithLabel:attributedString:") ~typ:(id @-> id @-> returning (id)) x attributedString -let lineOrigin self = msg_send_stret ~self ~cmd:(selector "lineOrigin") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let lineWidth self = msg_send ~self ~cmd:(selector "lineWidth") ~typ:(returning (double)) -let placeGlyphs self = msg_send ~self ~cmd:(selector "placeGlyphs") ~typ:(returning (void)) -let removeGlyphs self = msg_send ~self ~cmd:(selector "removeGlyphs") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIMorphingLabelGlyphSet" + +let attributedString self = msg_send ~self ~cmd:(selector "attributedString") ~typ:(returning id) +let boundingRectForGlyphsInRange x self = msg_send ~self ~cmd:(selector "boundingRectForGlyphsInRange:") ~typ:(NSRange.t @-> returning CGRect.t) x +let buildGlyphViews self = msg_send ~self ~cmd:(selector "buildGlyphViews") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let glyphCount self = msg_send ~self ~cmd:(selector "glyphCount") ~typ:(returning ullong) +let glyphFrames self = msg_send ~self ~cmd:(selector "glyphFrames") ~typ:(returning (ptr CGRect.t)) +let glyphPositions self = msg_send ~self ~cmd:(selector "glyphPositions") ~typ:(returning (ptr CGPoint.t)) +let glyphViews self = msg_send ~self ~cmd:(selector "glyphViews") ~typ:(returning id) +let glyphs self = msg_send ~self ~cmd:(selector "glyphs") ~typ:(returning (ptr ushort)) +let initWithLabel x ~attributedString self = msg_send ~self ~cmd:(selector "initWithLabel:attributedString:") ~typ:(id @-> id @-> returning id) x attributedString +let lineOrigin self = msg_send ~self ~cmd:(selector "lineOrigin") ~typ:(returning CGPoint.t) +let lineWidth self = msg_send ~self ~cmd:(selector "lineWidth") ~typ:(returning double) +let placeGlyphs self = msg_send ~self ~cmd:(selector "placeGlyphs") ~typ:(returning void) +let removeGlyphs self = msg_send ~self ~cmd:(selector "removeGlyphs") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIMorphingLabelImage.ml b/uikit/UIMorphingLabelImage.ml index 5af25ebb..5d7429a8 100644 --- a/uikit/UIMorphingLabelImage.ml +++ b/uikit/UIMorphingLabelImage.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMorphingLabelImage" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimorphinglabelimage?language=objc}UIMorphingLabelImage} *) -let contentsRect self = msg_send_stret ~self ~cmd:(selector "contentsRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let setContentsRect x self = msg_send ~self ~cmd:(selector "setContentsRect:") ~typ:(CGRect.t @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let size self = msg_send_stret ~self ~cmd:(selector "size") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t \ No newline at end of file +let self = get_class "UIMorphingLabelImage" + +let contentsRect self = msg_send ~self ~cmd:(selector "contentsRect") ~typ:(returning CGRect.t) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let setContentsRect x self = msg_send ~self ~cmd:(selector "setContentsRect:") ~typ:(CGRect.t @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let size self = msg_send ~self ~cmd:(selector "size") ~typ:(returning CGSize.t) \ No newline at end of file diff --git a/uikit/UIMorphingLabelImageView.ml b/uikit/UIMorphingLabelImageView.ml index 5228f7e4..9ca38326 100644 --- a/uikit/UIMorphingLabelImageView.ml +++ b/uikit/UIMorphingLabelImageView.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMorphingLabelImageView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimorphinglabelimageview?language=objc}UIMorphingLabelImageView} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let initWithImage x self = msg_send ~self ~cmd:(selector "initWithImage:") ~typ:(id @-> returning (id)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIMorphingLabelImageView" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let initWithImage x self = msg_send ~self ~cmd:(selector "initWithImage:") ~typ:(id @-> returning id) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIMotionEffect.ml b/uikit/UIMotionEffect.ml index 27291de2..fc55325a 100644 --- a/uikit/UIMotionEffect.ml +++ b/uikit/UIMotionEffect.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMotionEffect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimotioneffect?language=objc}UIMotionEffect} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let keyPathsAndRelativeValuesForViewerOffset x self = msg_send ~self ~cmd:(selector "keyPathsAndRelativeValuesForViewerOffset:") ~typ:(ptr void @-> returning (id)) x \ No newline at end of file +let self = get_class "UIMotionEffect" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let keyPathsAndRelativeValuesForViewerOffset x self = msg_send ~self ~cmd:(selector "keyPathsAndRelativeValuesForViewerOffset:") ~typ:(UIOffset.t @-> returning id) x \ No newline at end of file diff --git a/uikit/UIMotionEffectGroup.ml b/uikit/UIMotionEffectGroup.ml index 7a97cb3f..35582e8b 100644 --- a/uikit/UIMotionEffectGroup.ml +++ b/uikit/UIMotionEffectGroup.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMotionEffectGroup" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimotioneffectgroup?language=objc}UIMotionEffectGroup} *) -let motionEffects self = msg_send ~self ~cmd:(selector "motionEffects") ~typ:(returning (id)) -let setMotionEffects x self = msg_send ~self ~cmd:(selector "setMotionEffects:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIMotionEffectGroup" + +let motionEffects self = msg_send ~self ~cmd:(selector "motionEffects") ~typ:(returning id) +let setMotionEffects x self = msg_send ~self ~cmd:(selector "setMotionEffects:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIMotionEvent.ml b/uikit/UIMotionEvent.ml index ff7f8627..bb923e59 100644 --- a/uikit/UIMotionEvent.ml +++ b/uikit/UIMotionEvent.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMotionEvent" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimotionevent?language=objc}UIMotionEvent} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let setShakeState x self = msg_send ~self ~cmd:(selector "setShakeState:") ~typ:(int @-> returning (void)) x -let shakeState self = msg_send ~self ~cmd:(selector "shakeState") ~typ:(returning (int)) -let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning (llong)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIMotionEvent" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let setShakeState x self = msg_send ~self ~cmd:(selector "setShakeState:") ~typ:(int @-> returning void) x +let shakeState self = msg_send ~self ~cmd:(selector "shakeState") ~typ:(returning int) +let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning llong) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIMovieScrubber.ml b/uikit/UIMovieScrubber.ml index ca48b7fa..ed49c587 100644 --- a/uikit/UIMovieScrubber.ml +++ b/uikit/UIMovieScrubber.ml @@ -5,82 +5,83 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMovieScrubber" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimoviescrubber?language=objc}UIMovieScrubber} *) -module C = struct - let timeStringForSeconds x ~forceFullWidthComponents ~isElapsed self = msg_send ~self ~cmd:(selector "timeStringForSeconds:forceFullWidthComponents:isElapsed:") ~typ:(int @-> bool @-> bool @-> returning (id)) x forceFullWidthComponents isElapsed -end +let self = get_class "UIMovieScrubber" -let animateAfterEdit self = msg_send ~self ~cmd:(selector "animateAfterEdit") ~typ:(returning (void)) -let animateCancelEdit self = msg_send ~self ~cmd:(selector "animateCancelEdit") ~typ:(returning (void)) -let beginTrackingWithLocatable x self = msg_send ~self ~cmd:(selector "beginTrackingWithLocatable:") ~typ:(id @-> returning (void)) x -let cancelTouchTracking self = msg_send ~self ~cmd:(selector "cancelTouchTracking") ~typ:(returning (bool)) -let continueTrackingWithLocatable x self = msg_send ~self ~cmd:(selector "continueTrackingWithLocatable:") ~typ:(id @-> returning (void)) x -let dataSource self = msg_send ~self ~cmd:(selector "dataSource") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning (double)) -let edgeInset self = msg_send ~self ~cmd:(selector "edgeInset") ~typ:(returning (double)) -let endTrackingWithLocatable x self = msg_send ~self ~cmd:(selector "endTrackingWithLocatable:") ~typ:(id @-> returning (void)) x -let forceUnzoom self = msg_send ~self ~cmd:(selector "forceUnzoom") ~typ:(returning (void)) -let forceZoom self = msg_send ~self ~cmd:(selector "forceZoom") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let isAnimatingValueChange self = msg_send ~self ~cmd:(selector "isAnimatingValueChange") ~typ:(returning (bool)) -let isContinuous self = msg_send ~self ~cmd:(selector "isContinuous") ~typ:(returning (bool)) -let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning (bool)) -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let isInsideNavigationBar self = msg_send ~self ~cmd:(selector "isInsideNavigationBar") ~typ:(returning (bool)) -let isZoomAnimating self = msg_send ~self ~cmd:(selector "isZoomAnimating") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let maximumTrimLength self = msg_send ~self ~cmd:(selector "maximumTrimLength") ~typ:(returning (double)) -let minimumTrimLength self = msg_send ~self ~cmd:(selector "minimumTrimLength") ~typ:(returning (double)) -let movieScrubberTrackView x ~requestThumbnailImageForTimestamp ~isSummaryThumbnail self = msg_send ~self ~cmd:(selector "movieScrubberTrackView:requestThumbnailImageForTimestamp:isSummaryThumbnail:") ~typ:(id @-> id @-> bool @-> returning (void)) x requestThumbnailImageForTimestamp isSummaryThumbnail -let movieScrubberTrackView1 x ~evenlySpacedTimestamps ~startingAt ~endingAt self = msg_send ~self ~cmd:(selector "movieScrubberTrackView:evenlySpacedTimestamps:startingAt:endingAt:") ~typ:(id @-> int @-> id @-> id @-> returning (id)) x evenlySpacedTimestamps startingAt endingAt -let movieScrubberTrackView2 x ~clampedSizeWidthDelta ~actualSizeWidthDelta ~originXDelta ~minimumVisibleValue ~maximumVisibleValue self = msg_send ~self ~cmd:(selector "movieScrubberTrackView:clampedSizeWidthDelta:actualSizeWidthDelta:originXDelta:minimumVisibleValue:maximumVisibleValue:") ~typ:(id @-> double @-> double @-> double @-> double @-> double @-> returning (void)) x clampedSizeWidthDelta actualSizeWidthDelta originXDelta minimumVisibleValue maximumVisibleValue -let movieScrubberTrackViewDidCollapse x self = msg_send ~self ~cmd:(selector "movieScrubberTrackViewDidCollapse:") ~typ:(id @-> returning (void)) x -let movieScrubberTrackViewDidExpand x self = msg_send ~self ~cmd:(selector "movieScrubberTrackViewDidExpand:") ~typ:(id @-> returning (void)) x -let movieScrubberTrackViewDidFinishRequestingThumbnails x self = msg_send ~self ~cmd:(selector "movieScrubberTrackViewDidFinishRequestingThumbnails:") ~typ:(id @-> returning (void)) x -let movieScrubberTrackViewDuration x self = msg_send ~self ~cmd:(selector "movieScrubberTrackViewDuration:") ~typ:(id @-> returning (double)) x -let movieScrubberTrackViewThumbnailAspectRatio x self = msg_send ~self ~cmd:(selector "movieScrubberTrackViewThumbnailAspectRatio:") ~typ:(id @-> returning (double)) x -let movieScrubberTrackViewWillBeginRequestingThumbnails x self = msg_send ~self ~cmd:(selector "movieScrubberTrackViewWillBeginRequestingThumbnails:") ~typ:(id @-> returning (void)) x -let movieScrubberTrackViewZoomAnimationDelay x self = msg_send ~self ~cmd:(selector "movieScrubberTrackViewZoomAnimationDelay:") ~typ:(id @-> returning (double)) x -let movieScrubberTrackViewZoomAnimationDuration x self = msg_send ~self ~cmd:(selector "movieScrubberTrackViewZoomAnimationDuration:") ~typ:(id @-> returning (double)) x -let pointInsideThumb x ~withEvent self = msg_send ~self ~cmd:(selector "pointInsideThumb:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let reloadData self = msg_send ~self ~cmd:(selector "reloadData") ~typ:(returning (void)) -let setContinuous x self = msg_send ~self ~cmd:(selector "setContinuous:") ~typ:(bool @-> returning (void)) x -let setDataSource x self = msg_send ~self ~cmd:(selector "setDataSource:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDuration x self = msg_send ~self ~cmd:(selector "setDuration:") ~typ:(double @-> returning (void)) x -let setEdgeInset x self = msg_send ~self ~cmd:(selector "setEdgeInset:") ~typ:(double @-> returning (void)) x -let setEditable x self = msg_send ~self ~cmd:(selector "setEditable:") ~typ:(bool @-> returning (void)) x -let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning (void)) x -let setEditing' x ~animated self = msg_send ~self ~cmd:(selector "setEditing:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setMaximumTrimLength x self = msg_send ~self ~cmd:(selector "setMaximumTrimLength:") ~typ:(double @-> returning (void)) x -let setMinimumTrimLength x self = msg_send ~self ~cmd:(selector "setMinimumTrimLength:") ~typ:(double @-> returning (void)) x -let setRotationDisabled x self = msg_send ~self ~cmd:(selector "setRotationDisabled:") ~typ:(bool @-> returning (void)) x -let setShowTimeViews x self = msg_send ~self ~cmd:(selector "setShowTimeViews:") ~typ:(bool @-> returning (void)) x -let setThumbIsVisible x self = msg_send ~self ~cmd:(selector "setThumbIsVisible:") ~typ:(bool @-> returning (void)) x -let setThumbnailImage x ~forTimestamp self = msg_send ~self ~cmd:(selector "setThumbnailImage:forTimestamp:") ~typ:(id @-> id @-> returning (void)) x forTimestamp -let setTrimEndValue x self = msg_send ~self ~cmd:(selector "setTrimEndValue:") ~typ:(double @-> returning (void)) x -let setTrimStartValue x self = msg_send ~self ~cmd:(selector "setTrimStartValue:") ~typ:(double @-> returning (void)) x -let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(double @-> returning (void)) x -let setValue' x ~animated self = msg_send ~self ~cmd:(selector "setValue:animated:") ~typ:(double @-> bool @-> returning (void)) x animated -let setZoomAnimationDuration x self = msg_send ~self ~cmd:(selector "setZoomAnimationDuration:") ~typ:(double @-> returning (void)) x -let setZoomDelay x self = msg_send ~self ~cmd:(selector "setZoomDelay:") ~typ:(double @-> returning (void)) x -let showTimeViews self = msg_send ~self ~cmd:(selector "showTimeViews") ~typ:(returning (bool)) -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let thumbIsVisible self = msg_send ~self ~cmd:(selector "thumbIsVisible") ~typ:(returning (bool)) -let thumbRectForValue x self = msg_send_stret ~self ~cmd:(selector "thumbRectForValue:") ~typ:(double @-> returning (CGRect.t)) ~return_type:CGRect.t x -let trackRect self = msg_send_stret ~self ~cmd:(selector "trackRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let trimEndValue self = msg_send ~self ~cmd:(selector "trimEndValue") ~typ:(returning (double)) -let trimStartValue self = msg_send ~self ~cmd:(selector "trimStartValue") ~typ:(returning (double)) -let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning (double)) -let zoomDelay self = msg_send ~self ~cmd:(selector "zoomDelay") ~typ:(returning (double)) -let zoomMaximumValue self = msg_send ~self ~cmd:(selector "zoomMaximumValue") ~typ:(returning (double)) -let zoomMinimumValue self = msg_send ~self ~cmd:(selector "zoomMinimumValue") ~typ:(returning (double)) \ No newline at end of file +let alignmentMargins self = msg_send ~self ~cmd:(selector "alignmentMargins") ~typ:(returning UIEdgeInsets.t) +let animateAfterEdit self = msg_send ~self ~cmd:(selector "animateAfterEdit") ~typ:(returning void) +let animateCancelEdit self = msg_send ~self ~cmd:(selector "animateCancelEdit") ~typ:(returning void) +let beginTrackingWithLocatable x self = msg_send ~self ~cmd:(selector "beginTrackingWithLocatable:") ~typ:(id @-> returning void) x +let cancelTouchTracking self = msg_send ~self ~cmd:(selector "cancelTouchTracking") ~typ:(returning bool) +let continueTrackingWithLocatable x self = msg_send ~self ~cmd:(selector "continueTrackingWithLocatable:") ~typ:(id @-> returning void) x +let dataSource self = msg_send ~self ~cmd:(selector "dataSource") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning double) +let edgeInset self = msg_send ~self ~cmd:(selector "edgeInset") ~typ:(returning double) +let endTrackingWithLocatable x self = msg_send ~self ~cmd:(selector "endTrackingWithLocatable:") ~typ:(id @-> returning void) x +let forceUnzoom self = msg_send ~self ~cmd:(selector "forceUnzoom") ~typ:(returning void) +let forceZoom self = msg_send ~self ~cmd:(selector "forceZoom") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let isAnimatingValueChange self = msg_send ~self ~cmd:(selector "isAnimatingValueChange") ~typ:(returning bool) +let isContinuous self = msg_send ~self ~cmd:(selector "isContinuous") ~typ:(returning bool) +let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning bool) +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let isInsideNavigationBar self = msg_send ~self ~cmd:(selector "isInsideNavigationBar") ~typ:(returning bool) +let isZoomAnimating self = msg_send ~self ~cmd:(selector "isZoomAnimating") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let maximumTrimLength self = msg_send ~self ~cmd:(selector "maximumTrimLength") ~typ:(returning double) +let minimumTrimLength self = msg_send ~self ~cmd:(selector "minimumTrimLength") ~typ:(returning double) +let movieScrubberTrackView x ~requestThumbnailImageForTimestamp ~isSummaryThumbnail self = msg_send ~self ~cmd:(selector "movieScrubberTrackView:requestThumbnailImageForTimestamp:isSummaryThumbnail:") ~typ:(id @-> id @-> bool @-> returning void) x requestThumbnailImageForTimestamp isSummaryThumbnail +let movieScrubberTrackView1 x ~evenlySpacedTimestamps ~startingAt ~endingAt self = msg_send ~self ~cmd:(selector "movieScrubberTrackView:evenlySpacedTimestamps:startingAt:endingAt:") ~typ:(id @-> int @-> id @-> id @-> returning id) x evenlySpacedTimestamps startingAt endingAt +let movieScrubberTrackView2 x ~clampedSizeWidthDelta ~actualSizeWidthDelta ~originXDelta ~minimumVisibleValue ~maximumVisibleValue self = msg_send ~self ~cmd:(selector "movieScrubberTrackView:clampedSizeWidthDelta:actualSizeWidthDelta:originXDelta:minimumVisibleValue:maximumVisibleValue:") ~typ:(id @-> double @-> double @-> double @-> double @-> double @-> returning void) x clampedSizeWidthDelta actualSizeWidthDelta originXDelta minimumVisibleValue maximumVisibleValue +let movieScrubberTrackViewDidCollapse x self = msg_send ~self ~cmd:(selector "movieScrubberTrackViewDidCollapse:") ~typ:(id @-> returning void) x +let movieScrubberTrackViewDidExpand x self = msg_send ~self ~cmd:(selector "movieScrubberTrackViewDidExpand:") ~typ:(id @-> returning void) x +let movieScrubberTrackViewDidFinishRequestingThumbnails x self = msg_send ~self ~cmd:(selector "movieScrubberTrackViewDidFinishRequestingThumbnails:") ~typ:(id @-> returning void) x +let movieScrubberTrackViewDuration x self = msg_send ~self ~cmd:(selector "movieScrubberTrackViewDuration:") ~typ:(id @-> returning double) x +let movieScrubberTrackViewThumbnailAspectRatio x self = msg_send ~self ~cmd:(selector "movieScrubberTrackViewThumbnailAspectRatio:") ~typ:(id @-> returning double) x +let movieScrubberTrackViewWillBeginRequestingThumbnails x self = msg_send ~self ~cmd:(selector "movieScrubberTrackViewWillBeginRequestingThumbnails:") ~typ:(id @-> returning void) x +let movieScrubberTrackViewZoomAnimationDelay x self = msg_send ~self ~cmd:(selector "movieScrubberTrackViewZoomAnimationDelay:") ~typ:(id @-> returning double) x +let movieScrubberTrackViewZoomAnimationDuration x self = msg_send ~self ~cmd:(selector "movieScrubberTrackViewZoomAnimationDuration:") ~typ:(id @-> returning double) x +let pointInsideThumb x ~withEvent self = msg_send ~self ~cmd:(selector "pointInsideThumb:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let reloadData self = msg_send ~self ~cmd:(selector "reloadData") ~typ:(returning void) +let setContinuous x self = msg_send ~self ~cmd:(selector "setContinuous:") ~typ:(bool @-> returning void) x +let setDataSource x self = msg_send ~self ~cmd:(selector "setDataSource:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDuration x self = msg_send ~self ~cmd:(selector "setDuration:") ~typ:(double @-> returning void) x +let setEdgeInset x self = msg_send ~self ~cmd:(selector "setEdgeInset:") ~typ:(double @-> returning void) x +let setEditable x self = msg_send ~self ~cmd:(selector "setEditable:") ~typ:(bool @-> returning void) x +let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning void) x +let setEditing' x ~animated self = msg_send ~self ~cmd:(selector "setEditing:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setMaximumTrimLength x self = msg_send ~self ~cmd:(selector "setMaximumTrimLength:") ~typ:(double @-> returning void) x +let setMinimumTrimLength x self = msg_send ~self ~cmd:(selector "setMinimumTrimLength:") ~typ:(double @-> returning void) x +let setRotationDisabled x self = msg_send ~self ~cmd:(selector "setRotationDisabled:") ~typ:(bool @-> returning void) x +let setShowTimeViews x self = msg_send ~self ~cmd:(selector "setShowTimeViews:") ~typ:(bool @-> returning void) x +let setThumbIsVisible x self = msg_send ~self ~cmd:(selector "setThumbIsVisible:") ~typ:(bool @-> returning void) x +let setThumbnailImage x ~forTimestamp self = msg_send ~self ~cmd:(selector "setThumbnailImage:forTimestamp:") ~typ:((ptr CGImage.t) @-> id @-> returning void) x forTimestamp +let setTrimEndValue x self = msg_send ~self ~cmd:(selector "setTrimEndValue:") ~typ:(double @-> returning void) x +let setTrimStartValue x self = msg_send ~self ~cmd:(selector "setTrimStartValue:") ~typ:(double @-> returning void) x +let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(double @-> returning void) x +let setValue' x ~animated self = msg_send ~self ~cmd:(selector "setValue:animated:") ~typ:(double @-> bool @-> returning void) x animated +let setZoomAnimationDuration x self = msg_send ~self ~cmd:(selector "setZoomAnimationDuration:") ~typ:(double @-> returning void) x +let setZoomDelay x self = msg_send ~self ~cmd:(selector "setZoomDelay:") ~typ:(double @-> returning void) x +let showTimeViews self = msg_send ~self ~cmd:(selector "showTimeViews") ~typ:(returning bool) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let thumbIsVisible self = msg_send ~self ~cmd:(selector "thumbIsVisible") ~typ:(returning bool) +let thumbRectForValue x self = msg_send ~self ~cmd:(selector "thumbRectForValue:") ~typ:(double @-> returning CGRect.t) x +let trackRect self = msg_send ~self ~cmd:(selector "trackRect") ~typ:(returning CGRect.t) +let trimEndValue self = msg_send ~self ~cmd:(selector "trimEndValue") ~typ:(returning double) +let trimStartValue self = msg_send ~self ~cmd:(selector "trimStartValue") ~typ:(returning double) +let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning double) +let zoomDelay self = msg_send ~self ~cmd:(selector "zoomDelay") ~typ:(returning double) +let zoomMaximumValue self = msg_send ~self ~cmd:(selector "zoomMaximumValue") ~typ:(returning double) +let zoomMinimumValue self = msg_send ~self ~cmd:(selector "zoomMinimumValue") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIMovieScrubberClass.ml b/uikit/UIMovieScrubberClass.ml new file mode 100644 index 00000000..2fe79f1c --- /dev/null +++ b/uikit/UIMovieScrubberClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimoviescrubber?language=objc}UIMovieScrubber} *) + +let timeStringForSeconds x ~forceFullWidthComponents ~isElapsed self = msg_send ~self ~cmd:(selector "timeStringForSeconds:forceFullWidthComponents:isElapsed:") ~typ:(int @-> bool @-> bool @-> returning id) x forceFullWidthComponents isElapsed \ No newline at end of file diff --git a/uikit/UIMovieScrubberEditingView.ml b/uikit/UIMovieScrubberEditingView.ml index 705150a1..42641968 100644 --- a/uikit/UIMovieScrubberEditingView.ml +++ b/uikit/UIMovieScrubberEditingView.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMovieScrubberEditingView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimoviescrubbereditingview?language=objc}UIMovieScrubberEditingView} *) -let bounce self = msg_send ~self ~cmd:(selector "bounce") ~typ:(returning (void)) -let edgeInset self = msg_send ~self ~cmd:(selector "edgeInset") ~typ:(returning (double)) -let handleForPoint x ~hitOffset self = msg_send ~self ~cmd:(selector "handleForPoint:hitOffset:") ~typ:(CGPoint.t @-> ptr (double) @-> returning (int)) x hitOffset -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let pointInsideLeftHandle x self = msg_send ~self ~cmd:(selector "pointInsideLeftHandle:") ~typ:(CGPoint.t @-> returning (bool)) x -let pointInsideRightHandle x self = msg_send ~self ~cmd:(selector "pointInsideRightHandle:") ~typ:(CGPoint.t @-> returning (bool)) x -let setEdgeInset x self = msg_send ~self ~cmd:(selector "setEdgeInset:") ~typ:(double @-> returning (void)) x -let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIMovieScrubberEditingView" + +let bounce self = msg_send ~self ~cmd:(selector "bounce") ~typ:(returning void) +let edgeInset self = msg_send ~self ~cmd:(selector "edgeInset") ~typ:(returning double) +let handleForPoint x ~hitOffset self = msg_send ~self ~cmd:(selector "handleForPoint:hitOffset:") ~typ:(CGPoint.t @-> (ptr double) @-> returning int) x hitOffset +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let pointInsideLeftHandle x self = msg_send ~self ~cmd:(selector "pointInsideLeftHandle:") ~typ:(CGPoint.t @-> returning bool) x +let pointInsideRightHandle x self = msg_send ~self ~cmd:(selector "pointInsideRightHandle:") ~typ:(CGPoint.t @-> returning bool) x +let setEdgeInset x self = msg_send ~self ~cmd:(selector "setEdgeInset:") ~typ:(double @-> returning void) x +let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIMovieScrubberThumbnailView.ml b/uikit/UIMovieScrubberThumbnailView.ml index ec51bcf4..3d866f88 100644 --- a/uikit/UIMovieScrubberThumbnailView.ml +++ b/uikit/UIMovieScrubberThumbnailView.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMovieScrubberThumbnailView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimoviescrubberthumbnailview?language=objc}UIMovieScrubberThumbnailView} *) -let hasPlaceholderImage self = msg_send ~self ~cmd:(selector "hasPlaceholderImage") ~typ:(returning (bool)) -let setHasPlaceholderImage x self = msg_send ~self ~cmd:(selector "setHasPlaceholderImage:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIMovieScrubberThumbnailView" + +let hasPlaceholderImage self = msg_send ~self ~cmd:(selector "hasPlaceholderImage") ~typ:(returning bool) +let setHasPlaceholderImage x self = msg_send ~self ~cmd:(selector "setHasPlaceholderImage:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIMovieScrubberTrackOverlayView.ml b/uikit/UIMovieScrubberTrackOverlayView.ml index de118bd5..f6ee8212 100644 --- a/uikit/UIMovieScrubberTrackOverlayView.ml +++ b/uikit/UIMovieScrubberTrackOverlayView.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMovieScrubberTrackOverlayView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimoviescrubbertrackoverlayview?language=objc}UIMovieScrubberTrackOverlayView} *) -let animateFillFramesAway self = msg_send ~self ~cmd:(selector "animateFillFramesAway") ~typ:(returning (void)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning (void)) x -let setEditingHandle x self = msg_send ~self ~cmd:(selector "setEditingHandle:") ~typ:(int @-> returning (void)) x -let setEndValue x self = msg_send ~self ~cmd:(selector "setEndValue:") ~typ:(double @-> returning (void)) x -let setIsZoomed x self = msg_send ~self ~cmd:(selector "setIsZoomed:") ~typ:(bool @-> returning (void)) x -let setMaximumValue x self = msg_send ~self ~cmd:(selector "setMaximumValue:") ~typ:(double @-> returning (void)) x -let setMinimumValue x self = msg_send ~self ~cmd:(selector "setMinimumValue:") ~typ:(double @-> returning (void)) x -let setStartValue x self = msg_send ~self ~cmd:(selector "setStartValue:") ~typ:(double @-> returning (void)) x -let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(double @-> returning (void)) x \ No newline at end of file +let self = get_class "UIMovieScrubberTrackOverlayView" + +let animateFillFramesAway self = msg_send ~self ~cmd:(selector "animateFillFramesAway") ~typ:(returning void) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning void) x +let setEditingHandle x self = msg_send ~self ~cmd:(selector "setEditingHandle:") ~typ:(int @-> returning void) x +let setEndValue x self = msg_send ~self ~cmd:(selector "setEndValue:") ~typ:(double @-> returning void) x +let setIsZoomed x self = msg_send ~self ~cmd:(selector "setIsZoomed:") ~typ:(bool @-> returning void) x +let setMaximumValue x self = msg_send ~self ~cmd:(selector "setMaximumValue:") ~typ:(double @-> returning void) x +let setMinimumValue x self = msg_send ~self ~cmd:(selector "setMinimumValue:") ~typ:(double @-> returning void) x +let setStartValue x self = msg_send ~self ~cmd:(selector "setStartValue:") ~typ:(double @-> returning void) x +let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit/UIMovieScrubberTrackView.ml b/uikit/UIMovieScrubberTrackView.ml index d8468cf2..bd6c5865 100644 --- a/uikit/UIMovieScrubberTrackView.ml +++ b/uikit/UIMovieScrubberTrackView.ml @@ -5,24 +5,28 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMovieScrubberTrackView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimoviescrubbertrackview?language=objc}UIMovieScrubberTrackView} *) -let animateFillFramesAway self = msg_send ~self ~cmd:(selector "animateFillFramesAway") ~typ:(returning (void)) -let clear self = msg_send ~self ~cmd:(selector "clear") ~typ:(returning (void)) -let dataSource self = msg_send ~self ~cmd:(selector "dataSource") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let reloadData self = msg_send ~self ~cmd:(selector "reloadData") ~typ:(returning (void)) -let setDataSource x self = msg_send ~self ~cmd:(selector "setDataSource:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning (void)) x -let setEndValue x self = msg_send ~self ~cmd:(selector "setEndValue:") ~typ:(double @-> returning (void)) x -let setStartValue x self = msg_send ~self ~cmd:(selector "setStartValue:") ~typ:(double @-> returning (void)) x -let setThumbnailImage x ~forTimestamp self = msg_send ~self ~cmd:(selector "setThumbnailImage:forTimestamp:") ~typ:(id @-> id @-> returning (void)) x forTimestamp -let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(double @-> returning (void)) x -let setZoomAnimationDuration x self = msg_send ~self ~cmd:(selector "setZoomAnimationDuration:") ~typ:(double @-> returning (void)) x -let unzoom self = msg_send ~self ~cmd:(selector "unzoom") ~typ:(returning (void)) -let zoomAnimationDuration self = msg_send ~self ~cmd:(selector "zoomAnimationDuration") ~typ:(returning (double)) -let zoomAtPoint x self = msg_send ~self ~cmd:(selector "zoomAtPoint:") ~typ:(CGPoint.t @-> returning (bool)) x \ No newline at end of file +let self = get_class "UIMovieScrubberTrackView" + +let animateFillFramesAway self = msg_send ~self ~cmd:(selector "animateFillFramesAway") ~typ:(returning void) +let clear self = msg_send ~self ~cmd:(selector "clear") ~typ:(returning void) +let dataSource self = msg_send ~self ~cmd:(selector "dataSource") ~typ:(returning id) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let reloadData self = msg_send ~self ~cmd:(selector "reloadData") ~typ:(returning void) +let setDataSource x self = msg_send ~self ~cmd:(selector "setDataSource:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning void) x +let setEndValue x self = msg_send ~self ~cmd:(selector "setEndValue:") ~typ:(double @-> returning void) x +let setStartValue x self = msg_send ~self ~cmd:(selector "setStartValue:") ~typ:(double @-> returning void) x +let setThumbnailImage x ~forTimestamp self = msg_send ~self ~cmd:(selector "setThumbnailImage:forTimestamp:") ~typ:((ptr CGImage.t) @-> id @-> returning void) x forTimestamp +let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(double @-> returning void) x +let setZoomAnimationDuration x self = msg_send ~self ~cmd:(selector "setZoomAnimationDuration:") ~typ:(double @-> returning void) x +let unzoom self = msg_send ~self ~cmd:(selector "unzoom") ~typ:(returning void) +let zoomAnimationDuration self = msg_send ~self ~cmd:(selector "zoomAnimationDuration") ~typ:(returning double) +let zoomAtPoint x self = msg_send ~self ~cmd:(selector "zoomAtPoint:") ~typ:(CGPoint.t @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIMultiColumnViewController.ml b/uikit/UIMultiColumnViewController.ml index 53168cdd..99234258 100644 --- a/uikit/UIMultiColumnViewController.ml +++ b/uikit/UIMultiColumnViewController.ml @@ -5,30 +5,34 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMultiColumnViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimulticolumnviewcontroller?language=objc}UIMultiColumnViewController} *) -let childViewControllerForStatusBarStyle self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarStyle") ~typ:(returning (id)) -let columnCount self = msg_send ~self ~cmd:(selector "columnCount") ~typ:(returning (ullong)) -let columnWidths self = msg_send ~self ~cmd:(selector "columnWidths") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let initWithNavController x ~viewControllers self = msg_send ~self ~cmd:(selector "initWithNavController:viewControllers:") ~typ:(id @-> id @-> returning (id)) x viewControllers -let initWithNavController' x ~viewControllers ~columnWidths self = msg_send ~self ~cmd:(selector "initWithNavController:viewControllers:columnWidths:") ~typ:(id @-> id @-> id @-> returning (id)) x viewControllers columnWidths -let keyboardInset self = msg_send ~self ~cmd:(selector "keyboardInset") ~typ:(returning (double)) -let navControllers self = msg_send ~self ~cmd:(selector "navControllers") ~typ:(returning (id)) -let requestColumnCount x ~animated self = msg_send ~self ~cmd:(selector "requestColumnCount:animated:") ~typ:(ullong @-> bool @-> returning (void)) (ULLong.of_int x) animated -let separateSecondaryViewControllerForSplitViewController x self = msg_send ~self ~cmd:(selector "separateSecondaryViewControllerForSplitViewController:") ~typ:(id @-> returning (id)) x -let setColumnWidths x self = msg_send ~self ~cmd:(selector "setColumnWidths:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setKeyboardInset x self = msg_send ~self ~cmd:(selector "setKeyboardInset:") ~typ:(double @-> returning (void)) x -let setNavControllers x self = msg_send ~self ~cmd:(selector "setNavControllers:") ~typ:(id @-> returning (void)) x -let setViewControllers x self = msg_send ~self ~cmd:(selector "setViewControllers:") ~typ:(id @-> returning (void)) x -let showViewController x ~sender self = msg_send ~self ~cmd:(selector "showViewController:sender:") ~typ:(id @-> id @-> returning (void)) x sender -let sizeMightAllowMultipleColumns x self = msg_send ~self ~cmd:(selector "sizeMightAllowMultipleColumns:") ~typ:(CGSize.t @-> returning (bool)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let viewControllers self = msg_send ~self ~cmd:(selector "viewControllers") ~typ:(returning (id)) -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "viewWillLayoutSubviews") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIMultiColumnViewController" + +let childViewControllerForStatusBarStyle self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarStyle") ~typ:(returning id) +let columnCount self = msg_send ~self ~cmd:(selector "columnCount") ~typ:(returning ullong) +let columnWidths self = msg_send ~self ~cmd:(selector "columnWidths") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let initWithNavController x ~viewControllers self = msg_send ~self ~cmd:(selector "initWithNavController:viewControllers:") ~typ:(id @-> id @-> returning id) x viewControllers +let initWithNavController' x ~viewControllers ~columnWidths self = msg_send ~self ~cmd:(selector "initWithNavController:viewControllers:columnWidths:") ~typ:(id @-> id @-> id @-> returning id) x viewControllers columnWidths +let keyboardInset self = msg_send ~self ~cmd:(selector "keyboardInset") ~typ:(returning double) +let navControllers self = msg_send ~self ~cmd:(selector "navControllers") ~typ:(returning id) +let requestColumnCount x ~animated self = msg_send ~self ~cmd:(selector "requestColumnCount:animated:") ~typ:(ullong @-> bool @-> returning void) (ULLong.of_int x) animated +let separateSecondaryViewControllerForSplitViewController x self = msg_send ~self ~cmd:(selector "separateSecondaryViewControllerForSplitViewController:") ~typ:(id @-> returning id) x +let setColumnWidths x self = msg_send ~self ~cmd:(selector "setColumnWidths:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setKeyboardInset x self = msg_send ~self ~cmd:(selector "setKeyboardInset:") ~typ:(double @-> returning void) x +let setNavControllers x self = msg_send ~self ~cmd:(selector "setNavControllers:") ~typ:(id @-> returning void) x +let setViewControllers x self = msg_send ~self ~cmd:(selector "setViewControllers:") ~typ:(id @-> returning void) x +let showViewController x ~sender self = msg_send ~self ~cmd:(selector "showViewController:sender:") ~typ:(id @-> id @-> returning void) x sender +let sizeMightAllowMultipleColumns x self = msg_send ~self ~cmd:(selector "sizeMightAllowMultipleColumns:") ~typ:(CGSize.t @-> returning bool) x +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let viewControllers self = msg_send ~self ~cmd:(selector "viewControllers") ~typ:(returning id) +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "viewWillLayoutSubviews") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIMultiSelectInteraction.ml b/uikit/UIMultiSelectInteraction.ml index 0768f438..28403643 100644 --- a/uikit/UIMultiSelectInteraction.ml +++ b/uikit/UIMultiSelectInteraction.ml @@ -5,25 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMultiSelectInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimultiselectinteraction?language=objc}UIMultiSelectInteraction} *) -let activeGestureType self = msg_send ~self ~cmd:(selector "activeGestureType") ~typ:(returning (llong)) -let bandSelectionInteraction self = msg_send ~self ~cmd:(selector "bandSelectionInteraction") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let gestureRecognizer x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning (bool)) x shouldReceiveTouch -let gestureRecognizer' x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRecognizeSimultaneouslyWithGestureRecognizer -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let gesturesForFailureRequirements self = msg_send ~self ~cmd:(selector "gesturesForFailureRequirements") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let keyCommandsForSelectionExtension self = msg_send ~self ~cmd:(selector "keyCommandsForSelectionExtension") ~typ:(returning (id)) -let multiSelectOneFingerPanGestureShouldPreventDragInteractionGesture x self = msg_send ~self ~cmd:(selector "multiSelectOneFingerPanGestureShouldPreventDragInteractionGesture:") ~typ:(id @-> returning (bool)) x -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let setBandSelectionInteraction x self = msg_send ~self ~cmd:(selector "setBandSelectionInteraction:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setSingleTouchPanGestureHysteresis x self = msg_send ~self ~cmd:(selector "setSingleTouchPanGestureHysteresis:") ~typ:(double @-> returning (void)) x -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let singleTouchPanGestureHysteresis self = msg_send ~self ~cmd:(selector "singleTouchPanGestureHysteresis") ~typ:(returning (double)) -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIMultiSelectInteraction" + +let activeGestureType self = msg_send ~self ~cmd:(selector "activeGestureType") ~typ:(returning llong) +let bandSelectionInteraction self = msg_send ~self ~cmd:(selector "bandSelectionInteraction") ~typ:(returning id) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let gestureRecognizer x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning bool) x shouldReceiveTouch +let gestureRecognizer' x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldRecognizeSimultaneouslyWithGestureRecognizer +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let gesturesForFailureRequirements self = msg_send ~self ~cmd:(selector "gesturesForFailureRequirements") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let keyCommandsForSelectionExtension self = msg_send ~self ~cmd:(selector "keyCommandsForSelectionExtension") ~typ:(returning id) +let multiSelectOneFingerPanGestureShouldPreventDragInteractionGesture x self = msg_send ~self ~cmd:(selector "multiSelectOneFingerPanGestureShouldPreventDragInteractionGesture:") ~typ:(id @-> returning bool) x +let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x ofObject change context +let setBandSelectionInteraction x self = msg_send ~self ~cmd:(selector "setBandSelectionInteraction:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setSingleTouchPanGestureHysteresis x self = msg_send ~self ~cmd:(selector "setSingleTouchPanGestureHysteresis:") ~typ:(double @-> returning void) x +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let singleTouchPanGestureHysteresis self = msg_send ~self ~cmd:(selector "singleTouchPanGestureHysteresis") ~typ:(returning double) +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIMultiSelectInteractionState.ml b/uikit/UIMultiSelectInteractionState.ml index c852e96e..226ea643 100644 --- a/uikit/UIMultiSelectInteractionState.ml +++ b/uikit/UIMultiSelectInteractionState.ml @@ -5,30 +5,34 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMultiSelectInteractionState" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimultiselectinteractionstate?language=objc}UIMultiSelectInteractionState} *) -let allSelectedIndexPaths self = msg_send ~self ~cmd:(selector "allSelectedIndexPaths") ~typ:(returning (id)) -let beginMultiselectInteraction self = msg_send ~self ~cmd:(selector "beginMultiselectInteraction") ~typ:(returning (void)) -let beginSelectingWithStartingIndexPath x ~otherSelectedIndexPaths ~keepCurrentSelection self = msg_send ~self ~cmd:(selector "beginSelectingWithStartingIndexPath:otherSelectedIndexPaths:keepCurrentSelection:") ~typ:(id @-> id @-> bool @-> returning (void)) x otherSelectedIndexPaths keepCurrentSelection -let endIndexPath self = msg_send ~self ~cmd:(selector "endIndexPath") ~typ:(returning (id)) -let endMultiselectInteraction self = msg_send ~self ~cmd:(selector "endMultiselectInteraction") ~typ:(returning (void)) -let ignoreSelectionChangedNotificationsWithBlock x self = msg_send ~self ~cmd:(selector "ignoreSelectionChangedNotificationsWithBlock:") ~typ:(ptr void @-> returning (void)) x -let ignoringSelectionChangedNotifications self = msg_send ~self ~cmd:(selector "ignoringSelectionChangedNotifications") ~typ:(returning (bool)) -let initWithCurrentSelection x self = msg_send ~self ~cmd:(selector "initWithCurrentSelection:") ~typ:(id @-> returning (id)) x -let isInMultiselectInteraction self = msg_send ~self ~cmd:(selector "isInMultiselectInteraction") ~typ:(returning (bool)) -let isSelecting self = msg_send ~self ~cmd:(selector "isSelecting") ~typ:(returning (bool)) -let originallySelectedIndexPaths self = msg_send ~self ~cmd:(selector "originallySelectedIndexPaths") ~typ:(returning (id)) -let pathsToDeselectForInterpolatedIndexPaths x ~currentlySelectedIndexPaths self = msg_send ~self ~cmd:(selector "pathsToDeselectForInterpolatedIndexPaths:currentlySelectedIndexPaths:") ~typ:(id @-> id @-> returning (id)) x currentlySelectedIndexPaths -let pathsToSelectForInterpolatedIndexPaths x self = msg_send ~self ~cmd:(selector "pathsToSelectForInterpolatedIndexPaths:") ~typ:(id @-> returning (id)) x -let setAllSelectedIndexPaths x self = msg_send ~self ~cmd:(selector "setAllSelectedIndexPaths:") ~typ:(id @-> returning (void)) x -let setEndIndexPath x self = msg_send ~self ~cmd:(selector "setEndIndexPath:") ~typ:(id @-> returning (void)) x -let setOriginallySelectedIndexPaths x self = msg_send ~self ~cmd:(selector "setOriginallySelectedIndexPaths:") ~typ:(id @-> returning (void)) x -let setSelecting x self = msg_send ~self ~cmd:(selector "setSelecting:") ~typ:(bool @-> returning (void)) x -let setStartIndexPath x self = msg_send ~self ~cmd:(selector "setStartIndexPath:") ~typ:(id @-> returning (void)) x -let setStartPoint x self = msg_send ~self ~cmd:(selector "setStartPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let startIndexPath self = msg_send ~self ~cmd:(selector "startIndexPath") ~typ:(returning (id)) -let startPoint self = msg_send_stret ~self ~cmd:(selector "startPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let stillValidForSelectedIndexPaths x self = msg_send ~self ~cmd:(selector "stillValidForSelectedIndexPaths:") ~typ:(id @-> returning (bool)) x -let updateStateWithDifferenceFromCurrentSelection x self = msg_send ~self ~cmd:(selector "updateStateWithDifferenceFromCurrentSelection:") ~typ:(id @-> returning (void)) x -let updateStateWithStartingIndexPath x ~otherSelectedIndexPaths self = msg_send ~self ~cmd:(selector "updateStateWithStartingIndexPath:otherSelectedIndexPaths:") ~typ:(id @-> id @-> returning (void)) x otherSelectedIndexPaths \ No newline at end of file +let self = get_class "UIMultiSelectInteractionState" + +let allSelectedIndexPaths self = msg_send ~self ~cmd:(selector "allSelectedIndexPaths") ~typ:(returning id) +let beginMultiselectInteraction self = msg_send ~self ~cmd:(selector "beginMultiselectInteraction") ~typ:(returning void) +let beginSelectingWithStartingIndexPath x ~otherSelectedIndexPaths ~keepCurrentSelection self = msg_send ~self ~cmd:(selector "beginSelectingWithStartingIndexPath:otherSelectedIndexPaths:keepCurrentSelection:") ~typ:(id @-> id @-> bool @-> returning void) x otherSelectedIndexPaths keepCurrentSelection +let endIndexPath self = msg_send ~self ~cmd:(selector "endIndexPath") ~typ:(returning id) +let endMultiselectInteraction self = msg_send ~self ~cmd:(selector "endMultiselectInteraction") ~typ:(returning void) +let ignoreSelectionChangedNotificationsWithBlock x self = msg_send ~self ~cmd:(selector "ignoreSelectionChangedNotificationsWithBlock:") ~typ:((ptr void) @-> returning void) x +let ignoringSelectionChangedNotifications self = msg_send ~self ~cmd:(selector "ignoringSelectionChangedNotifications") ~typ:(returning bool) +let initWithCurrentSelection x self = msg_send ~self ~cmd:(selector "initWithCurrentSelection:") ~typ:(id @-> returning id) x +let isInMultiselectInteraction self = msg_send ~self ~cmd:(selector "isInMultiselectInteraction") ~typ:(returning bool) +let isSelecting self = msg_send ~self ~cmd:(selector "isSelecting") ~typ:(returning bool) +let originallySelectedIndexPaths self = msg_send ~self ~cmd:(selector "originallySelectedIndexPaths") ~typ:(returning id) +let pathsToDeselectForInterpolatedIndexPaths x ~currentlySelectedIndexPaths self = msg_send ~self ~cmd:(selector "pathsToDeselectForInterpolatedIndexPaths:currentlySelectedIndexPaths:") ~typ:(id @-> id @-> returning id) x currentlySelectedIndexPaths +let pathsToSelectForInterpolatedIndexPaths x self = msg_send ~self ~cmd:(selector "pathsToSelectForInterpolatedIndexPaths:") ~typ:(id @-> returning id) x +let setAllSelectedIndexPaths x self = msg_send ~self ~cmd:(selector "setAllSelectedIndexPaths:") ~typ:(id @-> returning void) x +let setEndIndexPath x self = msg_send ~self ~cmd:(selector "setEndIndexPath:") ~typ:(id @-> returning void) x +let setOriginallySelectedIndexPaths x self = msg_send ~self ~cmd:(selector "setOriginallySelectedIndexPaths:") ~typ:(id @-> returning void) x +let setSelecting x self = msg_send ~self ~cmd:(selector "setSelecting:") ~typ:(bool @-> returning void) x +let setStartIndexPath x self = msg_send ~self ~cmd:(selector "setStartIndexPath:") ~typ:(id @-> returning void) x +let setStartPoint x self = msg_send ~self ~cmd:(selector "setStartPoint:") ~typ:(CGPoint.t @-> returning void) x +let startIndexPath self = msg_send ~self ~cmd:(selector "startIndexPath") ~typ:(returning id) +let startPoint self = msg_send ~self ~cmd:(selector "startPoint") ~typ:(returning CGPoint.t) +let stillValidForSelectedIndexPaths x self = msg_send ~self ~cmd:(selector "stillValidForSelectedIndexPaths:") ~typ:(id @-> returning bool) x +let updateStateWithDifferenceFromCurrentSelection x self = msg_send ~self ~cmd:(selector "updateStateWithDifferenceFromCurrentSelection:") ~typ:(id @-> returning void) x +let updateStateWithStartingIndexPath x ~otherSelectedIndexPaths self = msg_send ~self ~cmd:(selector "updateStateWithStartingIndexPath:otherSelectedIndexPaths:") ~typ:(id @-> id @-> returning void) x otherSelectedIndexPaths \ No newline at end of file diff --git a/uikit/UIMutableApplicationSceneSettings.ml b/uikit/UIMutableApplicationSceneSettings.ml new file mode 100644 index 00000000..f1924a79 --- /dev/null +++ b/uikit/UIMutableApplicationSceneSettings.ml @@ -0,0 +1,82 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimutableapplicationscenesettings?language=objc}UIMutableApplicationSceneSettings} *) + +let self = get_class "UIMutableApplicationSceneSettings" + +let accessibilityContrast self = msg_send ~self ~cmd:(selector "accessibilityContrast") ~typ:(returning llong) +let artworkSubtype self = msg_send ~self ~cmd:(selector "artworkSubtype") ~typ:(returning ullong) +let canShowAlerts self = msg_send ~self ~cmd:(selector "canShowAlerts") ~typ:(returning bool) +let catalystHostWindowFrame self = msg_send ~self ~cmd:(selector "catalystHostWindowFrame") ~typ:(returning CGRect.t) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let cornerRadiusConfiguration self = msg_send ~self ~cmd:(selector "cornerRadiusConfiguration") ~typ:(returning id) +let deactivationReasons self = msg_send ~self ~cmd:(selector "deactivationReasons") ~typ:(returning ullong) +let defaultStatusBarHeightForOrientation x self = msg_send ~self ~cmd:(selector "defaultStatusBarHeightForOrientation:") ~typ:(llong @-> returning double) (LLong.of_int x) +let deviceOrientation self = msg_send ~self ~cmd:(selector "deviceOrientation") ~typ:(returning llong) +let deviceOrientationEventsEnabled self = msg_send ~self ~cmd:(selector "deviceOrientationEventsEnabled") ~typ:(returning bool) +let forcedStatusBarForegroundTransparent self = msg_send ~self ~cmd:(selector "forcedStatusBarForegroundTransparent") ~typ:(returning bool) +let forcedStatusBarStyle self = msg_send ~self ~cmd:(selector "forcedStatusBarStyle") ~typ:(returning id) +let homeAffordanceOverlayAllowance self = msg_send ~self ~cmd:(selector "homeAffordanceOverlayAllowance") ~typ:(returning double) +let hostContextIdentifierForSnapshotting self = msg_send ~self ~cmd:(selector "hostContextIdentifierForSnapshotting") ~typ:(returning uint) +let idleModeEnabled self = msg_send ~self ~cmd:(selector "idleModeEnabled") ~typ:(returning bool) +let interfaceOrientationMode self = msg_send ~self ~cmd:(selector "interfaceOrientationMode") ~typ:(returning llong) +let isUISubclass self = msg_send ~self ~cmd:(selector "isUISubclass") ~typ:(returning bool) +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let peripheryInsets self = msg_send ~self ~cmd:(selector "peripheryInsets") ~typ:(returning UIEdgeInsets.t) +let persistenceIdentifier self = msg_send ~self ~cmd:(selector "persistenceIdentifier") ~typ:(returning id) +let pointerLockStatus self = msg_send ~self ~cmd:(selector "pointerLockStatus") ~typ:(returning llong) +let safeAreaInsetsLandscapeLeft self = msg_send ~self ~cmd:(selector "safeAreaInsetsLandscapeLeft") ~typ:(returning UIEdgeInsets.t) +let safeAreaInsetsLandscapeRight self = msg_send ~self ~cmd:(selector "safeAreaInsetsLandscapeRight") ~typ:(returning UIEdgeInsets.t) +let safeAreaInsetsPortrait self = msg_send ~self ~cmd:(selector "safeAreaInsetsPortrait") ~typ:(returning UIEdgeInsets.t) +let safeAreaInsetsPortraitUpsideDown self = msg_send ~self ~cmd:(selector "safeAreaInsetsPortraitUpsideDown") ~typ:(returning UIEdgeInsets.t) +let scenePresenterRenderIdentifierForSnapshotting self = msg_send ~self ~cmd:(selector "scenePresenterRenderIdentifierForSnapshotting") ~typ:(returning ullong) +let setAccessibilityContrast x self = msg_send ~self ~cmd:(selector "setAccessibilityContrast:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setArtworkSubtype x self = msg_send ~self ~cmd:(selector "setArtworkSubtype:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setCanShowAlerts x self = msg_send ~self ~cmd:(selector "setCanShowAlerts:") ~typ:(bool @-> returning void) x +let setCatalystHostWindowFrame x self = msg_send ~self ~cmd:(selector "setCatalystHostWindowFrame:") ~typ:(CGRect.t @-> returning void) x +let setCornerRadiusConfiguration x self = msg_send ~self ~cmd:(selector "setCornerRadiusConfiguration:") ~typ:(id @-> returning void) x +let setDeactivationReasons x self = msg_send ~self ~cmd:(selector "setDeactivationReasons:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDefaultStatusBarHeight x ~forOrientation self = msg_send ~self ~cmd:(selector "setDefaultStatusBarHeight:forOrientation:") ~typ:(double @-> llong @-> returning void) x (LLong.of_int forOrientation) +let setDeviceOrientation x self = msg_send ~self ~cmd:(selector "setDeviceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setDeviceOrientationEventsEnabled x self = msg_send ~self ~cmd:(selector "setDeviceOrientationEventsEnabled:") ~typ:(bool @-> returning void) x +let setForcedStatusBarForegroundTransparent x self = msg_send ~self ~cmd:(selector "setForcedStatusBarForegroundTransparent:") ~typ:(bool @-> returning void) x +let setForcedStatusBarStyle x self = msg_send ~self ~cmd:(selector "setForcedStatusBarStyle:") ~typ:(id @-> returning void) x +let setHomeAffordanceOverlayAllowance x self = msg_send ~self ~cmd:(selector "setHomeAffordanceOverlayAllowance:") ~typ:(double @-> returning void) x +let setHostContextIdentifierForSnapshotting x self = msg_send ~self ~cmd:(selector "setHostContextIdentifierForSnapshotting:") ~typ:(uint @-> returning void) x +let setIdleModeEnabled x self = msg_send ~self ~cmd:(selector "setIdleModeEnabled:") ~typ:(bool @-> returning void) x +let setInterfaceOrientationMode x self = msg_send ~self ~cmd:(selector "setInterfaceOrientationMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPeripheryInsets x self = msg_send ~self ~cmd:(selector "setPeripheryInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setPersistenceIdentifier x self = msg_send ~self ~cmd:(selector "setPersistenceIdentifier:") ~typ:(id @-> returning void) x +let setPointerLockStatus x self = msg_send ~self ~cmd:(selector "setPointerLockStatus:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSafeAreaInsetsLandscapeLeft x self = msg_send ~self ~cmd:(selector "setSafeAreaInsetsLandscapeLeft:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setSafeAreaInsetsLandscapeRight x self = msg_send ~self ~cmd:(selector "setSafeAreaInsetsLandscapeRight:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setSafeAreaInsetsPortrait x self = msg_send ~self ~cmd:(selector "setSafeAreaInsetsPortrait:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setSafeAreaInsetsPortraitUpsideDown x self = msg_send ~self ~cmd:(selector "setSafeAreaInsetsPortraitUpsideDown:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setScenePresenterRenderIdentifierForSnapshotting x self = msg_send ~self ~cmd:(selector "setScenePresenterRenderIdentifierForSnapshotting:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setStatusBarAvoidanceFrame x self = msg_send ~self ~cmd:(selector "setStatusBarAvoidanceFrame:") ~typ:(CGRect.t @-> returning void) x +let setStatusBarDisabled x self = msg_send ~self ~cmd:(selector "setStatusBarDisabled:") ~typ:(bool @-> returning void) x +let setStatusBarHeight x self = msg_send ~self ~cmd:(selector "setStatusBarHeight:") ~typ:(double @-> returning void) x +let setStatusBarParts x self = msg_send ~self ~cmd:(selector "setStatusBarParts:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setStatusBarStyleOverridesToSuppress x self = msg_send ~self ~cmd:(selector "setStatusBarStyleOverridesToSuppress:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setSystemMinimumMargin x self = msg_send ~self ~cmd:(selector "setSystemMinimumMargin:") ~typ:(double @-> returning void) x +let setTargetOfEventDeferringEnvironments x self = msg_send ~self ~cmd:(selector "setTargetOfEventDeferringEnvironments:") ~typ:(id @-> returning void) x +let setUnderLock x self = msg_send ~self ~cmd:(selector "setUnderLock:") ~typ:(bool @-> returning void) x +let setUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setUserInterfaceStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let statusBarAvoidanceFrame self = msg_send ~self ~cmd:(selector "statusBarAvoidanceFrame") ~typ:(returning CGRect.t) +let statusBarDisabled self = msg_send ~self ~cmd:(selector "statusBarDisabled") ~typ:(returning bool) +let statusBarHeight self = msg_send ~self ~cmd:(selector "statusBarHeight") ~typ:(returning double) +let statusBarParts self = msg_send ~self ~cmd:(selector "statusBarParts") ~typ:(returning llong) +let statusBarStyleOverridesToSuppress self = msg_send ~self ~cmd:(selector "statusBarStyleOverridesToSuppress") ~typ:(returning ullong) +let systemMinimumMargin self = msg_send ~self ~cmd:(selector "systemMinimumMargin") ~typ:(returning double) +let targetOfEventDeferringEnvironments self = msg_send ~self ~cmd:(selector "targetOfEventDeferringEnvironments") ~typ:(returning id) +let underLock self = msg_send ~self ~cmd:(selector "underLock") ~typ:(returning bool) +let userInterfaceStyle self = msg_send ~self ~cmd:(selector "userInterfaceStyle") ~typ:(returning llong) +let valueDescriptionForFlag x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning id) (LLong.of_int x) object_ (ULLong.of_int ofSetting) \ No newline at end of file diff --git a/uikit/UIMutableTransformer.ml b/uikit/UIMutableTransformer.ml new file mode 100644 index 00000000..6b830f2b --- /dev/null +++ b/uikit/UIMutableTransformer.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimutabletransformer?language=objc}UIMutableTransformer} *) + +let self = get_class "UIMutableTransformer" + +let addTransform x ~reason self = msg_send ~self ~cmd:(selector "addTransform:reason:") ~typ:(id @-> id @-> returning void) x reason +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning id) x +let removeAll self = msg_send ~self ~cmd:(selector "removeAll") ~typ:(returning void) +let removeTransform x self = msg_send ~self ~cmd:(selector "removeTransform:") ~typ:(id @-> returning void) x +let replaceTransform x ~withTransform ~reason self = msg_send ~self ~cmd:(selector "replaceTransform:withTransform:reason:") ~typ:(id @-> id @-> id @-> returning void) x withTransform reason \ No newline at end of file diff --git a/uikit/UINSAlertButton.ml b/uikit/UINSAlertButton.ml index fba1fdc5..35e411f2 100644 --- a/uikit/UINSAlertButton.ml +++ b/uikit/UINSAlertButton.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UINSAlertButton" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinsalertbutton?language=objc}UINSAlertButton} *) -let destructive self = msg_send ~self ~cmd:(selector "destructive") ~typ:(returning (bool)) -let enabled self = msg_send ~self ~cmd:(selector "enabled") ~typ:(returning (bool)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (llong)) -let keyEquivalent self = msg_send ~self ~cmd:(selector "keyEquivalent") ~typ:(returning (id)) -let setDestructive x self = msg_send ~self ~cmd:(selector "setDestructive:") ~typ:(bool @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setKeyEquivalent x self = msg_send ~self ~cmd:(selector "setKeyEquivalent:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UINSAlertButton" + +let destructive self = msg_send ~self ~cmd:(selector "destructive") ~typ:(returning bool) +let enabled self = msg_send ~self ~cmd:(selector "enabled") ~typ:(returning bool) +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning llong) +let keyEquivalent self = msg_send ~self ~cmd:(selector "keyEquivalent") ~typ:(returning id) +let setDestructive x self = msg_send ~self ~cmd:(selector "setDestructive:") ~typ:(bool @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setKeyEquivalent x self = msg_send ~self ~cmd:(selector "setKeyEquivalent:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UINSFocusDoubleRingShapeLayer.ml b/uikit/UINSFocusDoubleRingShapeLayer.ml deleted file mode 100644 index 2e633ead..00000000 --- a/uikit/UINSFocusDoubleRingShapeLayer.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSFocusDoubleRingShapeLayer" - -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let setPath x self = msg_send ~self ~cmd:(selector "setPath:") ~typ:(ptr void @-> returning (void)) x -let setTopBorderLayer x self = msg_send ~self ~cmd:(selector "setTopBorderLayer:") ~typ:(id @-> returning (void)) x -let topBorderLayer self = msg_send ~self ~cmd:(selector "topBorderLayer") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UINSFocusRingShapeLayer.ml b/uikit/UINSFocusRingShapeLayer.ml deleted file mode 100644 index 37bec2be..00000000 --- a/uikit/UINSFocusRingShapeLayer.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSFocusRingShapeLayer" - -module C = struct - let focusLayerForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "focusLayerForUserInterfaceStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let parentLayerForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "parentLayerForUserInterfaceStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let selectedLayerForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "selectedLayerForUserInterfaceStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let selectedParentLayerForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "selectedParentLayerForUserInterfaceStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -end - -let bottomBorderLayer self = msg_send ~self ~cmd:(selector "bottomBorderLayer") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let setBottomBorderLayer x self = msg_send ~self ~cmd:(selector "setBottomBorderLayer:") ~typ:(id @-> returning (void)) x -let setPath x self = msg_send ~self ~cmd:(selector "setPath:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UINavigationBar.ml b/uikit/UINavigationBar.ml index e79186a8..3d4da254 100644 --- a/uikit/UINavigationBar.ml +++ b/uikit/UINavigationBar.ml @@ -5,150 +5,145 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UINavigationBar" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinavigationbar?language=objc}UINavigationBar} *) -module C = struct - let defaultAnimationDuration self = msg_send ~self ~cmd:(selector "defaultAnimationDuration") ~typ:(returning (double)) - let defaultPromptFont self = msg_send ~self ~cmd:(selector "defaultPromptFont") ~typ:(returning (id)) - let defaultSize self = msg_send_stret ~self ~cmd:(selector "defaultSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t - let defaultSizeForOrientation x self = msg_send_stret ~self ~cmd:(selector "defaultSizeForOrientation:") ~typ:(llong @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) - let defaultSizeWithPrompt self = msg_send_stret ~self ~cmd:(selector "defaultSizeWithPrompt") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t - let defaultSizeWithPromptForOrientation x self = msg_send_stret ~self ~cmd:(selector "defaultSizeWithPromptForOrientation:") ~typ:(llong @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) -end +let self = get_class "UINavigationBar" -let addConstraint x self = msg_send ~self ~cmd:(selector "addConstraint:") ~typ:(id @-> returning (void)) x -let alwaysUseDefaultMetrics self = msg_send ~self ~cmd:(selector "alwaysUseDefaultMetrics") ~typ:(returning (bool)) -let animationDisabledCount self = msg_send ~self ~cmd:(selector "animationDisabledCount") ~typ:(returning (llong)) -let animationFactory self = msg_send ~self ~cmd:(selector "animationFactory") ~typ:(returning (id)) -let availableTitleArea self = msg_send_stret ~self ~cmd:(selector "availableTitleArea") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let backButtonViewAtPoint x self = msg_send ~self ~cmd:(selector "backButtonViewAtPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let backIndicatorImage self = msg_send ~self ~cmd:(selector "backIndicatorImage") ~typ:(returning (id)) -let backIndicatorTransitionMaskImage self = msg_send ~self ~cmd:(selector "backIndicatorTransitionMaskImage") ~typ:(returning (id)) -let backItem self = msg_send ~self ~cmd:(selector "backItem") ~typ:(returning (id)) -let backgroundEffects self = msg_send ~self ~cmd:(selector "backgroundEffects") ~typ:(returning (id)) -let backgroundImageForBarMetrics x self = msg_send ~self ~cmd:(selector "backgroundImageForBarMetrics:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let backgroundImageForBarPosition x ~barMetrics self = msg_send ~self ~cmd:(selector "backgroundImageForBarPosition:barMetrics:") ~typ:(llong @-> llong @-> returning (id)) (LLong.of_int x) (LLong.of_int barMetrics) -let barPosition self = msg_send ~self ~cmd:(selector "barPosition") ~typ:(returning (llong)) -let barStyle self = msg_send ~self ~cmd:(selector "barStyle") ~typ:(returning (llong)) -let barTintColor self = msg_send ~self ~cmd:(selector "barTintColor") ~typ:(returning (id)) -let buttonItemShadowColor self = msg_send ~self ~cmd:(selector "buttonItemShadowColor") ~typ:(returning (id)) -let buttonItemTextColor self = msg_send ~self ~cmd:(selector "buttonItemTextColor") ~typ:(returning (id)) -let compactAppearance self = msg_send ~self ~cmd:(selector "compactAppearance") ~typ:(returning (id)) -let compactScrollEdgeAppearance self = msg_send ~self ~cmd:(selector "compactScrollEdgeAppearance") ~typ:(returning (id)) -let createButtonWithContents x ~width ~barStyle ~buttonStyle ~isRight self = msg_send ~self ~cmd:(selector "createButtonWithContents:width:barStyle:buttonStyle:isRight:") ~typ:(id @-> double @-> llong @-> int @-> bool @-> returning (id)) x width (LLong.of_int barStyle) buttonStyle isRight -let currentBackButton self = msg_send ~self ~cmd:(selector "currentBackButton") ~typ:(returning (id)) -let currentContentSize self = msg_send ~self ~cmd:(selector "currentContentSize") ~typ:(returning (llong)) -let currentLeftView self = msg_send ~self ~cmd:(selector "currentLeftView") ~typ:(returning (id)) -let currentRightView self = msg_send ~self ~cmd:(selector "currentRightView") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultBackButtonAlignmentHeight self = msg_send ~self ~cmd:(selector "defaultBackButtonAlignmentHeight") ~typ:(returning (double)) -let defaultHeight self = msg_send ~self ~cmd:(selector "defaultHeight") ~typ:(returning (double)) -let defaultHeightForMetrics x self = msg_send ~self ~cmd:(selector "defaultHeightForMetrics:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let defaultSizeForOrientation x self = msg_send_stret ~self ~cmd:(selector "defaultSizeForOrientation:") ~typ:(llong @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let didAddSubview x self = msg_send ~self ~cmd:(selector "didAddSubview:") ~typ:(id @-> returning (void)) x -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let disableAnimation self = msg_send ~self ~cmd:(selector "disableAnimation") ~typ:(returning (void)) -let drawBackButtonBackgroundInRect x ~withStyle ~pressed self = msg_send ~self ~cmd:(selector "drawBackButtonBackgroundInRect:withStyle:pressed:") ~typ:(CGRect.t @-> llong @-> bool @-> returning (void)) x (LLong.of_int withStyle) pressed -let drawBackgroundInRect x ~withStyle self = msg_send ~self ~cmd:(selector "drawBackgroundInRect:withStyle:") ~typ:(CGRect.t @-> llong @-> returning (void)) x (LLong.of_int withStyle) -let effectiveInterfaceOrientation self = msg_send ~self ~cmd:(selector "effectiveInterfaceOrientation") ~typ:(returning (llong)) -let enableAnimation self = msg_send ~self ~cmd:(selector "enableAnimation") ~typ:(returning (void)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let forceFullHeightInLandscape self = msg_send ~self ~cmd:(selector "forceFullHeightInLandscape") ~typ:(returning (bool)) -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let hideButtons self = msg_send ~self ~cmd:(selector "hideButtons") ~typ:(returning (void)) -let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (id)) x forEvent -let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let invalidateIntrinsicContentSize self = msg_send ~self ~cmd:(selector "invalidateIntrinsicContentSize") ~typ:(returning (void)) -let isAnimationEnabled self = msg_send ~self ~cmd:(selector "isAnimationEnabled") ~typ:(returning (bool)) -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isLocked self = msg_send ~self ~cmd:(selector "isLocked") ~typ:(returning (bool)) -let isMinibar self = msg_send ~self ~cmd:(selector "isMinibar") ~typ:(returning (bool)) -let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning (bool)) -let isTransparentFocusItem self = msg_send ~self ~cmd:(selector "isTransparentFocusItem") ~typ:(returning (bool)) -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let largeTitleTextAttributes self = msg_send ~self ~cmd:(selector "largeTitleTextAttributes") ~typ:(returning (id)) -let layoutMarginsDidChange self = msg_send ~self ~cmd:(selector "layoutMarginsDidChange") ~typ:(returning (void)) -let layoutSublayersOfLayer x self = msg_send ~self ~cmd:(selector "layoutSublayersOfLayer:") ~typ:(id @-> returning (void)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let navigationItemAtPoint x self = msg_send ~self ~cmd:(selector "navigationItemAtPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let navigationItems self = msg_send ~self ~cmd:(selector "navigationItems") ~typ:(returning (id)) -let popForCarplayPressAtFakePoint x self = msg_send ~self ~cmd:(selector "popForCarplayPressAtFakePoint:") ~typ:(CGPoint.t @-> returning (void)) x -let popNavigationItem self = msg_send ~self ~cmd:(selector "popNavigationItem") ~typ:(returning (void)) -let popNavigationItemAnimated x self = msg_send ~self ~cmd:(selector "popNavigationItemAnimated:") ~typ:(bool @-> returning (id)) x -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let prefersLargeTitles self = msg_send ~self ~cmd:(selector "prefersLargeTitles") ~typ:(returning (bool)) -let prompt self = msg_send ~self ~cmd:(selector "prompt") ~typ:(returning (id)) -let promptBounds self = msg_send_stret ~self ~cmd:(selector "promptBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let promptView self = msg_send ~self ~cmd:(selector "promptView") ~typ:(returning (id)) -let pushNavigationItem x self = msg_send ~self ~cmd:(selector "pushNavigationItem:") ~typ:(id @-> returning (void)) x -let pushNavigationItem' x ~animated self = msg_send ~self ~cmd:(selector "pushNavigationItem:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let refreshControlHost self = msg_send ~self ~cmd:(selector "refreshControlHost") ~typ:(returning (id)) -let removeConstraint x self = msg_send ~self ~cmd:(selector "removeConstraint:") ~typ:(id @-> returning (void)) x -let requestedContentSize self = msg_send ~self ~cmd:(selector "requestedContentSize") ~typ:(returning (llong)) -let safeAreaInsetsDidChange self = msg_send ~self ~cmd:(selector "safeAreaInsetsDidChange") ~typ:(returning (void)) -let scrollEdgeAppearance self = msg_send ~self ~cmd:(selector "scrollEdgeAppearance") ~typ:(returning (id)) -let setBackIndicatorImage x self = msg_send ~self ~cmd:(selector "setBackIndicatorImage:") ~typ:(id @-> returning (void)) x -let setBackIndicatorTransitionMaskImage x self = msg_send ~self ~cmd:(selector "setBackIndicatorTransitionMaskImage:") ~typ:(id @-> returning (void)) x -let setBackgroundEffects x self = msg_send ~self ~cmd:(selector "setBackgroundEffects:") ~typ:(id @-> returning (void)) x -let setBackgroundImage x ~forBarMetrics self = msg_send ~self ~cmd:(selector "setBackgroundImage:forBarMetrics:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forBarMetrics) -let setBackgroundImage' x ~forBarPosition ~barMetrics self = msg_send ~self ~cmd:(selector "setBackgroundImage:forBarPosition:barMetrics:") ~typ:(id @-> llong @-> llong @-> returning (void)) x (LLong.of_int forBarPosition) (LLong.of_int barMetrics) -let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBarTintColor x self = msg_send ~self ~cmd:(selector "setBarTintColor:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setButton x ~enabled self = msg_send ~self ~cmd:(selector "setButton:enabled:") ~typ:(int @-> bool @-> returning (void)) x enabled -let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning (void)) x -let setCompactAppearance x self = msg_send ~self ~cmd:(selector "setCompactAppearance:") ~typ:(id @-> returning (void)) x -let setCompactScrollEdgeAppearance x self = msg_send ~self ~cmd:(selector "setCompactScrollEdgeAppearance:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setForceFullHeightInLandscape x self = msg_send ~self ~cmd:(selector "setForceFullHeightInLandscape:") ~typ:(bool @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setItems x self = msg_send ~self ~cmd:(selector "setItems:") ~typ:(id @-> returning (void)) x -let setItems' x ~animated self = msg_send ~self ~cmd:(selector "setItems:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setLargeTitleTextAttributes x self = msg_send ~self ~cmd:(selector "setLargeTitleTextAttributes:") ~typ:(id @-> returning (void)) x -let setLocked x self = msg_send ~self ~cmd:(selector "setLocked:") ~typ:(bool @-> returning (void)) x -let setNavigationItems x self = msg_send ~self ~cmd:(selector "setNavigationItems:") ~typ:(id @-> returning (void)) x -let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning (void)) -let setPrefersLargeTitles x self = msg_send ~self ~cmd:(selector "setPrefersLargeTitles:") ~typ:(bool @-> returning (void)) x -let setPrompt x self = msg_send ~self ~cmd:(selector "setPrompt:") ~typ:(id @-> returning (void)) x -let setRefreshControlHost x self = msg_send ~self ~cmd:(selector "setRefreshControlHost:") ~typ:(id @-> returning (void)) x -let setRequestedContentSize x self = msg_send ~self ~cmd:(selector "setRequestedContentSize:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setRightMargin x self = msg_send ~self ~cmd:(selector "setRightMargin:") ~typ:(double @-> returning (void)) x -let setScrollEdgeAppearance x self = msg_send ~self ~cmd:(selector "setScrollEdgeAppearance:") ~typ:(id @-> returning (void)) x -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShadowImage x self = msg_send ~self ~cmd:(selector "setShadowImage:") ~typ:(id @-> returning (void)) x -let setStandardAppearance x self = msg_send ~self ~cmd:(selector "setStandardAppearance:") ~typ:(id @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let setTitleAutoresizesToFit x self = msg_send ~self ~cmd:(selector "setTitleAutoresizesToFit:") ~typ:(bool @-> returning (void)) x -let setTitleTextAttributes x self = msg_send ~self ~cmd:(selector "setTitleTextAttributes:") ~typ:(id @-> returning (void)) x -let setTitleVerticalPositionAdjustment x ~forBarMetrics self = msg_send ~self ~cmd:(selector "setTitleVerticalPositionAdjustment:forBarMetrics:") ~typ:(double @-> llong @-> returning (void)) x (LLong.of_int forBarMetrics) -let setTitleView x self = msg_send ~self ~cmd:(selector "setTitleView:") ~typ:(id @-> returning (void)) x -let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning (void)) x -let setTranslucent x self = msg_send ~self ~cmd:(selector "setTranslucent:") ~typ:(bool @-> returning (void)) x -let shadowImage self = msg_send ~self ~cmd:(selector "shadowImage") ~typ:(returning (id)) -let showBackButton x ~animated self = msg_send ~self ~cmd:(selector "showBackButton:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let showButtonsWithLeft x ~right ~leftBack self = msg_send ~self ~cmd:(selector "showButtonsWithLeft:right:leftBack:") ~typ:(id @-> id @-> bool @-> returning (void)) x right leftBack -let showButtonsWithLeftTitle x ~rightTitle self = msg_send ~self ~cmd:(selector "showButtonsWithLeftTitle:rightTitle:") ~typ:(id @-> id @-> returning (void)) x rightTitle -let showButtonsWithLeftTitle' x ~rightTitle ~leftBack self = msg_send ~self ~cmd:(selector "showButtonsWithLeftTitle:rightTitle:leftBack:") ~typ:(id @-> id @-> bool @-> returning (void)) x rightTitle leftBack -let showLeftButton x ~withStyle ~rightButton ~withStyle_ self = msg_send ~self ~cmd:(selector "showLeftButton:withStyle:rightButton:withStyle:") ~typ:(id @-> int @-> id @-> int @-> returning (void)) x withStyle rightButton withStyle_ -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let standardAppearance self = msg_send ~self ~cmd:(selector "standardAppearance") ~typ:(returning (id)) -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (int)) -let supportsRefreshControlHosting self = msg_send ~self ~cmd:(selector "supportsRefreshControlHosting") ~typ:(returning (bool)) -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let titleAutoresizesToFit self = msg_send ~self ~cmd:(selector "titleAutoresizesToFit") ~typ:(returning (bool)) -let titleTextAttributes self = msg_send ~self ~cmd:(selector "titleTextAttributes") ~typ:(returning (id)) -let titleVerticalPositionAdjustmentForBarMetrics x self = msg_send ~self ~cmd:(selector "titleVerticalPositionAdjustmentForBarMetrics:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let topItem self = msg_send ~self ~cmd:(selector "topItem") ~typ:(returning (id)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning (void)) -let updatePrompt self = msg_send ~self ~cmd:(selector "updatePrompt") ~typ:(returning (void)) \ No newline at end of file +let addConstraint x self = msg_send ~self ~cmd:(selector "addConstraint:") ~typ:(id @-> returning void) x +let alwaysUseDefaultMetrics self = msg_send ~self ~cmd:(selector "alwaysUseDefaultMetrics") ~typ:(returning bool) +let animationDisabledCount self = msg_send ~self ~cmd:(selector "animationDisabledCount") ~typ:(returning llong) +let animationFactory self = msg_send ~self ~cmd:(selector "animationFactory") ~typ:(returning id) +let availableTitleArea self = msg_send ~self ~cmd:(selector "availableTitleArea") ~typ:(returning CGRect.t) +let backButtonViewAtPoint x self = msg_send ~self ~cmd:(selector "backButtonViewAtPoint:") ~typ:(CGPoint.t @-> returning id) x +let backIndicatorImage self = msg_send ~self ~cmd:(selector "backIndicatorImage") ~typ:(returning id) +let backIndicatorTransitionMaskImage self = msg_send ~self ~cmd:(selector "backIndicatorTransitionMaskImage") ~typ:(returning id) +let backItem self = msg_send ~self ~cmd:(selector "backItem") ~typ:(returning id) +let backgroundEffects self = msg_send ~self ~cmd:(selector "backgroundEffects") ~typ:(returning id) +let backgroundImageForBarMetrics x self = msg_send ~self ~cmd:(selector "backgroundImageForBarMetrics:") ~typ:(llong @-> returning id) (LLong.of_int x) +let backgroundImageForBarPosition x ~barMetrics self = msg_send ~self ~cmd:(selector "backgroundImageForBarPosition:barMetrics:") ~typ:(llong @-> llong @-> returning id) (LLong.of_int x) (LLong.of_int barMetrics) +let barPosition self = msg_send ~self ~cmd:(selector "barPosition") ~typ:(returning llong) +let barStyle self = msg_send ~self ~cmd:(selector "barStyle") ~typ:(returning llong) +let barTintColor self = msg_send ~self ~cmd:(selector "barTintColor") ~typ:(returning id) +let buttonItemShadowColor self = msg_send ~self ~cmd:(selector "buttonItemShadowColor") ~typ:(returning id) +let buttonItemTextColor self = msg_send ~self ~cmd:(selector "buttonItemTextColor") ~typ:(returning id) +let compactAppearance self = msg_send ~self ~cmd:(selector "compactAppearance") ~typ:(returning id) +let compactScrollEdgeAppearance self = msg_send ~self ~cmd:(selector "compactScrollEdgeAppearance") ~typ:(returning id) +let createButtonWithContents x ~width ~barStyle ~buttonStyle ~isRight self = msg_send ~self ~cmd:(selector "createButtonWithContents:width:barStyle:buttonStyle:isRight:") ~typ:(id @-> double @-> llong @-> int @-> bool @-> returning id) x width (LLong.of_int barStyle) buttonStyle isRight +let currentBackButton self = msg_send ~self ~cmd:(selector "currentBackButton") ~typ:(returning id) +let currentContentSize self = msg_send ~self ~cmd:(selector "currentContentSize") ~typ:(returning llong) +let currentLeftView self = msg_send ~self ~cmd:(selector "currentLeftView") ~typ:(returning id) +let currentRightView self = msg_send ~self ~cmd:(selector "currentRightView") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultBackButtonAlignmentHeight self = msg_send ~self ~cmd:(selector "defaultBackButtonAlignmentHeight") ~typ:(returning double) +let defaultHeight self = msg_send ~self ~cmd:(selector "defaultHeight") ~typ:(returning double) +let defaultHeightForMetrics x self = msg_send ~self ~cmd:(selector "defaultHeightForMetrics:") ~typ:(llong @-> returning double) (LLong.of_int x) +let defaultSizeForOrientation x self = msg_send ~self ~cmd:(selector "defaultSizeForOrientation:") ~typ:(llong @-> returning CGSize.t) (LLong.of_int x) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let didAddSubview x self = msg_send ~self ~cmd:(selector "didAddSubview:") ~typ:(id @-> returning void) x +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let disableAnimation self = msg_send ~self ~cmd:(selector "disableAnimation") ~typ:(returning void) +let drawBackButtonBackgroundInRect x ~withStyle ~pressed self = msg_send ~self ~cmd:(selector "drawBackButtonBackgroundInRect:withStyle:pressed:") ~typ:(CGRect.t @-> llong @-> bool @-> returning void) x (LLong.of_int withStyle) pressed +let drawBackgroundInRect x ~withStyle self = msg_send ~self ~cmd:(selector "drawBackgroundInRect:withStyle:") ~typ:(CGRect.t @-> llong @-> returning void) x (LLong.of_int withStyle) +let effectiveInterfaceOrientation self = msg_send ~self ~cmd:(selector "effectiveInterfaceOrientation") ~typ:(returning llong) +let enableAnimation self = msg_send ~self ~cmd:(selector "enableAnimation") ~typ:(returning void) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let forceFullHeightInLandscape self = msg_send ~self ~cmd:(selector "forceFullHeightInLandscape") ~typ:(returning bool) +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let hideButtons self = msg_send ~self ~cmd:(selector "hideButtons") ~typ:(returning void) +let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning id) x forEvent +let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let invalidateIntrinsicContentSize self = msg_send ~self ~cmd:(selector "invalidateIntrinsicContentSize") ~typ:(returning void) +let isAnimationEnabled self = msg_send ~self ~cmd:(selector "isAnimationEnabled") ~typ:(returning bool) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isLocked self = msg_send ~self ~cmd:(selector "isLocked") ~typ:(returning bool) +let isMinibar self = msg_send ~self ~cmd:(selector "isMinibar") ~typ:(returning bool) +let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning bool) +let isTransparentFocusItem self = msg_send ~self ~cmd:(selector "isTransparentFocusItem") ~typ:(returning bool) +let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning id) +let largeTitleTextAttributes self = msg_send ~self ~cmd:(selector "largeTitleTextAttributes") ~typ:(returning id) +let layoutMarginsDidChange self = msg_send ~self ~cmd:(selector "layoutMarginsDidChange") ~typ:(returning void) +let layoutSublayersOfLayer x self = msg_send ~self ~cmd:(selector "layoutSublayersOfLayer:") ~typ:(id @-> returning void) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let navigationItemAtPoint x self = msg_send ~self ~cmd:(selector "navigationItemAtPoint:") ~typ:(CGPoint.t @-> returning id) x +let navigationItems self = msg_send ~self ~cmd:(selector "navigationItems") ~typ:(returning id) +let popForCarplayPressAtFakePoint x self = msg_send ~self ~cmd:(selector "popForCarplayPressAtFakePoint:") ~typ:(CGPoint.t @-> returning void) x +let popNavigationItem self = msg_send ~self ~cmd:(selector "popNavigationItem") ~typ:(returning void) +let popNavigationItemAnimated x self = msg_send ~self ~cmd:(selector "popNavigationItemAnimated:") ~typ:(bool @-> returning id) x +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let prefersLargeTitles self = msg_send ~self ~cmd:(selector "prefersLargeTitles") ~typ:(returning bool) +let prompt self = msg_send ~self ~cmd:(selector "prompt") ~typ:(returning id) +let promptBounds self = msg_send ~self ~cmd:(selector "promptBounds") ~typ:(returning CGRect.t) +let promptView self = msg_send ~self ~cmd:(selector "promptView") ~typ:(returning id) +let pushNavigationItem x self = msg_send ~self ~cmd:(selector "pushNavigationItem:") ~typ:(id @-> returning void) x +let pushNavigationItem' x ~animated self = msg_send ~self ~cmd:(selector "pushNavigationItem:animated:") ~typ:(id @-> bool @-> returning void) x animated +let refreshControlHost self = msg_send ~self ~cmd:(selector "refreshControlHost") ~typ:(returning id) +let removeConstraint x self = msg_send ~self ~cmd:(selector "removeConstraint:") ~typ:(id @-> returning void) x +let requestedContentSize self = msg_send ~self ~cmd:(selector "requestedContentSize") ~typ:(returning llong) +let safeAreaInsetsDidChange self = msg_send ~self ~cmd:(selector "safeAreaInsetsDidChange") ~typ:(returning void) +let scrollEdgeAppearance self = msg_send ~self ~cmd:(selector "scrollEdgeAppearance") ~typ:(returning id) +let setBackIndicatorImage x self = msg_send ~self ~cmd:(selector "setBackIndicatorImage:") ~typ:(id @-> returning void) x +let setBackIndicatorTransitionMaskImage x self = msg_send ~self ~cmd:(selector "setBackIndicatorTransitionMaskImage:") ~typ:(id @-> returning void) x +let setBackgroundEffects x self = msg_send ~self ~cmd:(selector "setBackgroundEffects:") ~typ:(id @-> returning void) x +let setBackgroundImage x ~forBarMetrics self = msg_send ~self ~cmd:(selector "setBackgroundImage:forBarMetrics:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forBarMetrics) +let setBackgroundImage' x ~forBarPosition ~barMetrics self = msg_send ~self ~cmd:(selector "setBackgroundImage:forBarPosition:barMetrics:") ~typ:(id @-> llong @-> llong @-> returning void) x (LLong.of_int forBarPosition) (LLong.of_int barMetrics) +let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBarTintColor x self = msg_send ~self ~cmd:(selector "setBarTintColor:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setButton x ~enabled self = msg_send ~self ~cmd:(selector "setButton:enabled:") ~typ:(int @-> bool @-> returning void) x enabled +let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning void) x +let setCompactAppearance x self = msg_send ~self ~cmd:(selector "setCompactAppearance:") ~typ:(id @-> returning void) x +let setCompactScrollEdgeAppearance x self = msg_send ~self ~cmd:(selector "setCompactScrollEdgeAppearance:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setForceFullHeightInLandscape x self = msg_send ~self ~cmd:(selector "setForceFullHeightInLandscape:") ~typ:(bool @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setItems x self = msg_send ~self ~cmd:(selector "setItems:") ~typ:(id @-> returning void) x +let setItems' x ~animated self = msg_send ~self ~cmd:(selector "setItems:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setLargeTitleTextAttributes x self = msg_send ~self ~cmd:(selector "setLargeTitleTextAttributes:") ~typ:(id @-> returning void) x +let setLocked x self = msg_send ~self ~cmd:(selector "setLocked:") ~typ:(bool @-> returning void) x +let setNavigationItems x self = msg_send ~self ~cmd:(selector "setNavigationItems:") ~typ:(id @-> returning void) x +let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning void) +let setPrefersLargeTitles x self = msg_send ~self ~cmd:(selector "setPrefersLargeTitles:") ~typ:(bool @-> returning void) x +let setPrompt x self = msg_send ~self ~cmd:(selector "setPrompt:") ~typ:(id @-> returning void) x +let setRefreshControlHost x self = msg_send ~self ~cmd:(selector "setRefreshControlHost:") ~typ:(id @-> returning void) x +let setRequestedContentSize x self = msg_send ~self ~cmd:(selector "setRequestedContentSize:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setRightMargin x self = msg_send ~self ~cmd:(selector "setRightMargin:") ~typ:(double @-> returning void) x +let setScrollEdgeAppearance x self = msg_send ~self ~cmd:(selector "setScrollEdgeAppearance:") ~typ:(id @-> returning void) x +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setShadowImage x self = msg_send ~self ~cmd:(selector "setShadowImage:") ~typ:(id @-> returning void) x +let setStandardAppearance x self = msg_send ~self ~cmd:(selector "setStandardAppearance:") ~typ:(id @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let setTitleAutoresizesToFit x self = msg_send ~self ~cmd:(selector "setTitleAutoresizesToFit:") ~typ:(bool @-> returning void) x +let setTitleTextAttributes x self = msg_send ~self ~cmd:(selector "setTitleTextAttributes:") ~typ:(id @-> returning void) x +let setTitleVerticalPositionAdjustment x ~forBarMetrics self = msg_send ~self ~cmd:(selector "setTitleVerticalPositionAdjustment:forBarMetrics:") ~typ:(double @-> llong @-> returning void) x (LLong.of_int forBarMetrics) +let setTitleView x self = msg_send ~self ~cmd:(selector "setTitleView:") ~typ:(id @-> returning void) x +let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning void) x +let setTranslucent x self = msg_send ~self ~cmd:(selector "setTranslucent:") ~typ:(bool @-> returning void) x +let shadowImage self = msg_send ~self ~cmd:(selector "shadowImage") ~typ:(returning id) +let showBackButton x ~animated self = msg_send ~self ~cmd:(selector "showBackButton:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let showButtonsWithLeft x ~right ~leftBack self = msg_send ~self ~cmd:(selector "showButtonsWithLeft:right:leftBack:") ~typ:(id @-> id @-> bool @-> returning void) x right leftBack +let showButtonsWithLeftTitle x ~rightTitle self = msg_send ~self ~cmd:(selector "showButtonsWithLeftTitle:rightTitle:") ~typ:(id @-> id @-> returning void) x rightTitle +let showButtonsWithLeftTitle' x ~rightTitle ~leftBack self = msg_send ~self ~cmd:(selector "showButtonsWithLeftTitle:rightTitle:leftBack:") ~typ:(id @-> id @-> bool @-> returning void) x rightTitle leftBack +let showLeftButton x ~withStyle ~rightButton ~withStyle_ self = msg_send ~self ~cmd:(selector "showLeftButton:withStyle:rightButton:withStyle:") ~typ:(id @-> int @-> id @-> int @-> returning void) x withStyle rightButton withStyle_ +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let standardAppearance self = msg_send ~self ~cmd:(selector "standardAppearance") ~typ:(returning id) +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning int) +let supportsRefreshControlHosting self = msg_send ~self ~cmd:(selector "supportsRefreshControlHosting") ~typ:(returning bool) +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let titleAutoresizesToFit self = msg_send ~self ~cmd:(selector "titleAutoresizesToFit") ~typ:(returning bool) +let titleTextAttributes self = msg_send ~self ~cmd:(selector "titleTextAttributes") ~typ:(returning id) +let titleVerticalPositionAdjustmentForBarMetrics x self = msg_send ~self ~cmd:(selector "titleVerticalPositionAdjustmentForBarMetrics:") ~typ:(llong @-> returning double) (LLong.of_int x) +let topItem self = msg_send ~self ~cmd:(selector "topItem") ~typ:(returning id) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning void) +let updatePrompt self = msg_send ~self ~cmd:(selector "updatePrompt") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UINavigationBarAppearance.ml b/uikit/UINavigationBarAppearance.ml index fa93d398..69df6d14 100644 --- a/uikit/UINavigationBarAppearance.ml +++ b/uikit/UINavigationBarAppearance.ml @@ -5,25 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UINavigationBarAppearance" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinavigationbarappearance?language=objc}UINavigationBarAppearance} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UINavigationBarAppearance" -let backButtonAppearance self = msg_send ~self ~cmd:(selector "backButtonAppearance") ~typ:(returning (id)) -let backIndicatorImage self = msg_send ~self ~cmd:(selector "backIndicatorImage") ~typ:(returning (id)) -let backIndicatorTransitionMaskImage self = msg_send ~self ~cmd:(selector "backIndicatorTransitionMaskImage") ~typ:(returning (id)) -let buttonAppearance self = msg_send ~self ~cmd:(selector "buttonAppearance") ~typ:(returning (id)) -let doneButtonAppearance self = msg_send ~self ~cmd:(selector "doneButtonAppearance") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let largeTitleTextAttributes self = msg_send ~self ~cmd:(selector "largeTitleTextAttributes") ~typ:(returning (id)) -let setBackButtonAppearance x self = msg_send ~self ~cmd:(selector "setBackButtonAppearance:") ~typ:(id @-> returning (void)) x -let setBackIndicatorImage x ~transitionMaskImage self = msg_send ~self ~cmd:(selector "setBackIndicatorImage:transitionMaskImage:") ~typ:(id @-> id @-> returning (void)) x transitionMaskImage -let setButtonAppearance x self = msg_send ~self ~cmd:(selector "setButtonAppearance:") ~typ:(id @-> returning (void)) x -let setDoneButtonAppearance x self = msg_send ~self ~cmd:(selector "setDoneButtonAppearance:") ~typ:(id @-> returning (void)) x -let setLargeTitleTextAttributes x self = msg_send ~self ~cmd:(selector "setLargeTitleTextAttributes:") ~typ:(id @-> returning (void)) x -let setTitlePositionAdjustment x self = msg_send ~self ~cmd:(selector "setTitlePositionAdjustment:") ~typ:(ptr void @-> returning (void)) x -let setTitleTextAttributes x self = msg_send ~self ~cmd:(selector "setTitleTextAttributes:") ~typ:(id @-> returning (void)) x -let titleTextAttributes self = msg_send ~self ~cmd:(selector "titleTextAttributes") ~typ:(returning (id)) \ No newline at end of file +let backButtonAppearance self = msg_send ~self ~cmd:(selector "backButtonAppearance") ~typ:(returning id) +let backIndicatorImage self = msg_send ~self ~cmd:(selector "backIndicatorImage") ~typ:(returning id) +let backIndicatorTransitionMaskImage self = msg_send ~self ~cmd:(selector "backIndicatorTransitionMaskImage") ~typ:(returning id) +let buttonAppearance self = msg_send ~self ~cmd:(selector "buttonAppearance") ~typ:(returning id) +let doneButtonAppearance self = msg_send ~self ~cmd:(selector "doneButtonAppearance") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let largeTitleTextAttributes self = msg_send ~self ~cmd:(selector "largeTitleTextAttributes") ~typ:(returning id) +let setBackButtonAppearance x self = msg_send ~self ~cmd:(selector "setBackButtonAppearance:") ~typ:(id @-> returning void) x +let setBackIndicatorImage x ~transitionMaskImage self = msg_send ~self ~cmd:(selector "setBackIndicatorImage:transitionMaskImage:") ~typ:(id @-> id @-> returning void) x transitionMaskImage +let setButtonAppearance x self = msg_send ~self ~cmd:(selector "setButtonAppearance:") ~typ:(id @-> returning void) x +let setDoneButtonAppearance x self = msg_send ~self ~cmd:(selector "setDoneButtonAppearance:") ~typ:(id @-> returning void) x +let setLargeTitleTextAttributes x self = msg_send ~self ~cmd:(selector "setLargeTitleTextAttributes:") ~typ:(id @-> returning void) x +let setTitlePositionAdjustment x self = msg_send ~self ~cmd:(selector "setTitlePositionAdjustment:") ~typ:(UIOffset.t @-> returning void) x +let setTitleTextAttributes x self = msg_send ~self ~cmd:(selector "setTitleTextAttributes:") ~typ:(id @-> returning void) x +let titlePositionAdjustment self = msg_send ~self ~cmd:(selector "titlePositionAdjustment") ~typ:(returning UIOffset.t) +let titleTextAttributes self = msg_send ~self ~cmd:(selector "titleTextAttributes") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UINavigationBarAppearanceClass.ml b/uikit/UINavigationBarAppearanceClass.ml new file mode 100644 index 00000000..116b16b1 --- /dev/null +++ b/uikit/UINavigationBarAppearanceClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinavigationbarappearance?language=objc}UINavigationBarAppearance} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UINavigationBarClass.ml b/uikit/UINavigationBarClass.ml new file mode 100644 index 00000000..4b43a26c --- /dev/null +++ b/uikit/UINavigationBarClass.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinavigationbar?language=objc}UINavigationBar} *) + +let defaultAnimationDuration self = msg_send ~self ~cmd:(selector "defaultAnimationDuration") ~typ:(returning double) +let defaultPromptFont self = msg_send ~self ~cmd:(selector "defaultPromptFont") ~typ:(returning id) +let defaultSize self = msg_send ~self ~cmd:(selector "defaultSize") ~typ:(returning CGSize.t) +let defaultSizeForOrientation x self = msg_send ~self ~cmd:(selector "defaultSizeForOrientation:") ~typ:(llong @-> returning CGSize.t) (LLong.of_int x) +let defaultSizeWithPrompt self = msg_send ~self ~cmd:(selector "defaultSizeWithPrompt") ~typ:(returning CGSize.t) +let defaultSizeWithPromptForOrientation x self = msg_send ~self ~cmd:(selector "defaultSizeWithPromptForOrientation:") ~typ:(llong @-> returning CGSize.t) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UINavigationButton.ml b/uikit/UINavigationButton.ml index 5ba2cef1..60ac10b4 100644 --- a/uikit/UINavigationButton.ml +++ b/uikit/UINavigationButton.ml @@ -5,47 +5,47 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UINavigationButton" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinavigationbutton?language=objc}UINavigationButton} *) -module C = struct - let defaultFont self = msg_send ~self ~cmd:(selector "defaultFont") ~typ:(returning (id)) -end +let self = get_class "UINavigationButton" -let barStyle self = msg_send ~self ~cmd:(selector "barStyle") ~typ:(returning (llong)) -let buttonType self = msg_send ~self ~cmd:(selector "buttonType") ~typ:(returning (llong)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let contentsEqualTo x ~withStyle self = msg_send ~self ~cmd:(selector "contentsEqualTo:withStyle:") ~typ:(id @-> int @-> returning (bool)) x withStyle -let controlSize self = msg_send ~self ~cmd:(selector "controlSize") ~typ:(returning (int)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let initWithImage x self = msg_send ~self ~cmd:(selector "initWithImage:") ~typ:(id @-> returning (id)) x -let initWithImage1 x ~style self = msg_send ~self ~cmd:(selector "initWithImage:style:") ~typ:(id @-> int @-> returning (id)) x style -let initWithImage2 x ~width ~style self = msg_send ~self ~cmd:(selector "initWithImage:width:style:") ~typ:(id @-> double @-> int @-> returning (id)) x width style -let initWithImage3 x ~width ~style ~applyBezel ~forBarStyle ~buttonItemStyle self = msg_send ~self ~cmd:(selector "initWithImage:width:style:applyBezel:forBarStyle:buttonItemStyle:") ~typ:(id @-> double @-> int @-> bool @-> llong @-> llong @-> returning (id)) x width style applyBezel (LLong.of_int forBarStyle) (LLong.of_int buttonItemStyle) -let initWithTitle x self = msg_send ~self ~cmd:(selector "initWithTitle:") ~typ:(id @-> returning (id)) x -let initWithTitle1 x ~style self = msg_send ~self ~cmd:(selector "initWithTitle:style:") ~typ:(id @-> int @-> returning (id)) x style -let initWithTitle2 x ~possibleTitles ~style self = msg_send ~self ~cmd:(selector "initWithTitle:possibleTitles:style:") ~typ:(id @-> id @-> int @-> returning (id)) x possibleTitles style -let initWithValue x ~width ~style ~barStyle ~possibleTitles ~tintColor self = msg_send ~self ~cmd:(selector "initWithValue:width:style:barStyle:possibleTitles:tintColor:") ~typ:(id @-> double @-> int @-> llong @-> id @-> id @-> returning (id)) x width style (LLong.of_int barStyle) possibleTitles tintColor -let initWithValue' x ~width ~style ~barStyle ~possibleTitles ~possibleSystemItems ~tintColor ~applyBezel ~forButtonItemStyle self = msg_send ~self ~cmd:(selector "initWithValue:width:style:barStyle:possibleTitles:possibleSystemItems:tintColor:applyBezel:forButtonItemStyle:") ~typ:(id @-> double @-> int @-> llong @-> id @-> id @-> id @-> bool @-> llong @-> returning (id)) x width style (LLong.of_int barStyle) possibleTitles possibleSystemItems tintColor applyBezel (LLong.of_int forButtonItemStyle) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let maximumWidth self = msg_send ~self ~cmd:(selector "maximumWidth") ~typ:(returning (double)) -let minimumWidth self = msg_send ~self ~cmd:(selector "minimumWidth") ~typ:(returning (double)) -let originatingButtonItem self = msg_send ~self ~cmd:(selector "originatingButtonItem") ~typ:(returning (id)) -let originatingNavigationItem self = msg_send ~self ~cmd:(selector "originatingNavigationItem") ~typ:(returning (id)) -let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setControlSize x self = msg_send ~self ~cmd:(selector "setControlSize:") ~typ:(int @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setMaximumWidth x self = msg_send ~self ~cmd:(selector "setMaximumWidth:") ~typ:(double @-> returning (void)) x -let setMinimumWidth x self = msg_send ~self ~cmd:(selector "setMinimumWidth:") ~typ:(double @-> returning (void)) x -let setNavigationBarTintColor x self = msg_send ~self ~cmd:(selector "setNavigationBarTintColor:") ~typ:(id @-> returning (void)) x -let setOriginatingButtonItem x self = msg_send ~self ~cmd:(selector "setOriginatingButtonItem:") ~typ:(id @-> returning (void)) x -let setOriginatingNavigationItem x self = msg_send ~self ~cmd:(selector "setOriginatingNavigationItem:") ~typ:(id @-> returning (void)) x -let setPointerInteractionEnabled x self = msg_send ~self ~cmd:(selector "setPointerInteractionEnabled:") ~typ:(bool @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(int @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (int)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let barStyle self = msg_send ~self ~cmd:(selector "barStyle") ~typ:(returning llong) +let buttonType self = msg_send ~self ~cmd:(selector "buttonType") ~typ:(returning llong) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let contentsEqualTo x ~withStyle self = msg_send ~self ~cmd:(selector "contentsEqualTo:withStyle:") ~typ:(id @-> int @-> returning bool) x withStyle +let controlSize self = msg_send ~self ~cmd:(selector "controlSize") ~typ:(returning int) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let initWithImage x self = msg_send ~self ~cmd:(selector "initWithImage:") ~typ:(id @-> returning id) x +let initWithImage1 x ~style self = msg_send ~self ~cmd:(selector "initWithImage:style:") ~typ:(id @-> int @-> returning id) x style +let initWithImage2 x ~width ~style self = msg_send ~self ~cmd:(selector "initWithImage:width:style:") ~typ:(id @-> double @-> int @-> returning id) x width style +let initWithImage3 x ~width ~style ~applyBezel ~forBarStyle ~buttonItemStyle self = msg_send ~self ~cmd:(selector "initWithImage:width:style:applyBezel:forBarStyle:buttonItemStyle:") ~typ:(id @-> double @-> int @-> bool @-> llong @-> llong @-> returning id) x width style applyBezel (LLong.of_int forBarStyle) (LLong.of_int buttonItemStyle) +let initWithTitle x self = msg_send ~self ~cmd:(selector "initWithTitle:") ~typ:(id @-> returning id) x +let initWithTitle1 x ~style self = msg_send ~self ~cmd:(selector "initWithTitle:style:") ~typ:(id @-> int @-> returning id) x style +let initWithTitle2 x ~possibleTitles ~style self = msg_send ~self ~cmd:(selector "initWithTitle:possibleTitles:style:") ~typ:(id @-> id @-> int @-> returning id) x possibleTitles style +let initWithValue x ~width ~style ~barStyle ~possibleTitles ~tintColor self = msg_send ~self ~cmd:(selector "initWithValue:width:style:barStyle:possibleTitles:tintColor:") ~typ:(id @-> double @-> int @-> llong @-> id @-> id @-> returning id) x width style (LLong.of_int barStyle) possibleTitles tintColor +let initWithValue' x ~width ~style ~barStyle ~possibleTitles ~possibleSystemItems ~tintColor ~applyBezel ~forButtonItemStyle self = msg_send ~self ~cmd:(selector "initWithValue:width:style:barStyle:possibleTitles:possibleSystemItems:tintColor:applyBezel:forButtonItemStyle:") ~typ:(id @-> double @-> int @-> llong @-> id @-> id @-> id @-> bool @-> llong @-> returning id) x width style (LLong.of_int barStyle) possibleTitles possibleSystemItems tintColor applyBezel (LLong.of_int forButtonItemStyle) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let maximumWidth self = msg_send ~self ~cmd:(selector "maximumWidth") ~typ:(returning double) +let minimumWidth self = msg_send ~self ~cmd:(selector "minimumWidth") ~typ:(returning double) +let originatingButtonItem self = msg_send ~self ~cmd:(selector "originatingButtonItem") ~typ:(returning id) +let originatingNavigationItem self = msg_send ~self ~cmd:(selector "originatingNavigationItem") ~typ:(returning id) +let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setControlSize x self = msg_send ~self ~cmd:(selector "setControlSize:") ~typ:(int @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setMaximumWidth x self = msg_send ~self ~cmd:(selector "setMaximumWidth:") ~typ:(double @-> returning void) x +let setMinimumWidth x self = msg_send ~self ~cmd:(selector "setMinimumWidth:") ~typ:(double @-> returning void) x +let setNavigationBarTintColor x self = msg_send ~self ~cmd:(selector "setNavigationBarTintColor:") ~typ:(id @-> returning void) x +let setOriginatingButtonItem x self = msg_send ~self ~cmd:(selector "setOriginatingButtonItem:") ~typ:(id @-> returning void) x +let setOriginatingNavigationItem x self = msg_send ~self ~cmd:(selector "setOriginatingNavigationItem:") ~typ:(id @-> returning void) x +let setPointerInteractionEnabled x self = msg_send ~self ~cmd:(selector "setPointerInteractionEnabled:") ~typ:(bool @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(int @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning int) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UINavigationButtonClass.ml b/uikit/UINavigationButtonClass.ml new file mode 100644 index 00000000..d3169a28 --- /dev/null +++ b/uikit/UINavigationButtonClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinavigationbutton?language=objc}UINavigationButton} *) + +let defaultFont self = msg_send ~self ~cmd:(selector "defaultFont") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UINavigationContentAdjustments.ml b/uikit/UINavigationContentAdjustments.ml index 401c6570..8ca2741e 100644 --- a/uikit/UINavigationContentAdjustments.ml +++ b/uikit/UINavigationContentAdjustments.ml @@ -5,9 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UINavigationContentAdjustments" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinavigationcontentadjustments?language=objc}UINavigationContentAdjustments} *) -let adjustedScrollView self = msg_send ~self ~cmd:(selector "adjustedScrollView") ~typ:(returning (id)) -let setAdjustedScrollView x self = msg_send ~self ~cmd:(selector "setAdjustedScrollView:") ~typ:(id @-> returning (void)) x -let setInsetAdjustment x self = msg_send ~self ~cmd:(selector "setInsetAdjustment:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file +let self = get_class "UINavigationContentAdjustments" + +let adjustedScrollView self = msg_send ~self ~cmd:(selector "adjustedScrollView") ~typ:(returning id) +let insetAdjustment self = msg_send ~self ~cmd:(selector "insetAdjustment") ~typ:(returning UIEdgeInsets.t) +let setAdjustedScrollView x self = msg_send ~self ~cmd:(selector "setAdjustedScrollView:") ~typ:(id @-> returning void) x +let setInsetAdjustment x self = msg_send ~self ~cmd:(selector "setInsetAdjustment:") ~typ:(UIEdgeInsets.t @-> returning void) x \ No newline at end of file diff --git a/uikit/UINavigationController.ml b/uikit/UINavigationController.ml index d12b4d22..a370ca2d 100644 --- a/uikit/UINavigationController.ml +++ b/uikit/UINavigationController.ml @@ -5,169 +5,169 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UINavigationController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinavigationcontroller?language=objc}UINavigationController} *) -module C = struct - let doesOverridePreferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "doesOverridePreferredInterfaceOrientationForPresentation") ~typ:(returning (bool)) -end +let self = get_class "UINavigationController" -let allowUserInteractionDuringTransition self = msg_send ~self ~cmd:(selector "allowUserInteractionDuringTransition") ~typ:(returning (bool)) -let allowedChildViewControllersForUnwindingFromSource x self = msg_send ~self ~cmd:(selector "allowedChildViewControllersForUnwindingFromSource:") ~typ:(id @-> returning (id)) x -let attachPalette x ~isPinned self = msg_send ~self ~cmd:(selector "attachPalette:isPinned:") ~typ:(id @-> bool @-> returning (void)) x isPinned -let avoidMovingNavBarOffscreenBeforeUnhiding self = msg_send ~self ~cmd:(selector "avoidMovingNavBarOffscreenBeforeUnhiding") ~typ:(returning (bool)) -let barHideOnSwipeGestureRecognizer self = msg_send ~self ~cmd:(selector "barHideOnSwipeGestureRecognizer") ~typ:(returning (id)) -let barHideOnTapGestureRecognizer self = msg_send ~self ~cmd:(selector "barHideOnTapGestureRecognizer") ~typ:(returning (id)) -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let bottomViewController self = msg_send ~self ~cmd:(selector "bottomViewController") ~typ:(returning (id)) -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let childViewControllerForHomeIndicatorAutoHidden self = msg_send ~self ~cmd:(selector "childViewControllerForHomeIndicatorAutoHidden") ~typ:(returning (id)) -let childViewControllerForPointerLock self = msg_send ~self ~cmd:(selector "childViewControllerForPointerLock") ~typ:(returning (id)) -let childViewControllerForScreenEdgesDeferringSystemGestures self = msg_send ~self ~cmd:(selector "childViewControllerForScreenEdgesDeferringSystemGestures") ~typ:(returning (id)) -let childViewControllerForStatusBarHidden self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarHidden") ~typ:(returning (id)) -let childViewControllerForStatusBarStyle self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarStyle") ~typ:(returning (id)) -let childViewControllerForTouchBar self = msg_send ~self ~cmd:(selector "childViewControllerForTouchBar") ~typ:(returning (id)) -let childViewControllerForUserInterfaceStyle self = msg_send ~self ~cmd:(selector "childViewControllerForUserInterfaceStyle") ~typ:(returning (id)) -let childViewControllerForWhitePointAdaptivityStyle self = msg_send ~self ~cmd:(selector "childViewControllerForWhitePointAdaptivityStyle") ~typ:(returning (id)) -let collapseSecondaryViewController x ~forSplitViewController self = msg_send ~self ~cmd:(selector "collapseSecondaryViewController:forSplitViewController:") ~typ:(id @-> id @-> returning (void)) x forSplitViewController -let condensesBarsOnSwipe self = msg_send ~self ~cmd:(selector "condensesBarsOnSwipe") ~typ:(returning (bool)) -let contentSizeForViewInPopover self = msg_send_stret ~self ~cmd:(selector "contentSizeForViewInPopover") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let customNavigationTransitionDuration self = msg_send ~self ~cmd:(selector "customNavigationTransitionDuration") ~typ:(returning (double)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let defaultPNGName self = msg_send ~self ~cmd:(selector "defaultPNGName") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let detachPalette x self = msg_send ~self ~cmd:(selector "detachPalette:") ~typ:(id @-> returning (void)) x -let detachPalette' x ~isInPaletteTransition self = msg_send ~self ~cmd:(selector "detachPalette:isInPaletteTransition:") ~typ:(id @-> bool @-> returning (void)) x isInPaletteTransition -let detailViewController self = msg_send ~self ~cmd:(selector "detailViewController") ~typ:(returning (id)) -let didAnimateFirstHalfOfRotationToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didAnimateFirstHalfOfRotationToInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let didMoveToParentViewController x self = msg_send ~self ~cmd:(selector "didMoveToParentViewController:") ~typ:(id @-> returning (void)) x -let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let didShowViewController x ~animated self = msg_send ~self ~cmd:(selector "didShowViewController:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let disappearingViewController self = msg_send ~self ~cmd:(selector "disappearingViewController") ~typ:(returning (id)) -let durationForTransition x self = msg_send ~self ~cmd:(selector "durationForTransition:") ~typ:(int @-> returning (double)) x -let editing self = msg_send ~self ~cmd:(selector "editing") ~typ:(returning (bool)) -let enableBackButtonDuringTransition self = msg_send ~self ~cmd:(selector "enableBackButtonDuringTransition") ~typ:(returning (bool)) -let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let existingPaletteForEdge x self = msg_send ~self ~cmd:(selector "existingPaletteForEdge:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let hidesBarsOnSwipe self = msg_send ~self ~cmd:(selector "hidesBarsOnSwipe") ~typ:(returning (bool)) -let hidesBarsOnTap self = msg_send ~self ~cmd:(selector "hidesBarsOnTap") ~typ:(returning (bool)) -let hidesBarsWhenKeyboardAppears self = msg_send ~self ~cmd:(selector "hidesBarsWhenKeyboardAppears") ~typ:(returning (bool)) -let hidesBarsWhenVerticallyCompact self = msg_send ~self ~cmd:(selector "hidesBarsWhenVerticallyCompact") ~typ:(returning (bool)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithNavigationBarClass x ~toolbarClass self = msg_send ~self ~cmd:(selector "initWithNavigationBarClass:toolbarClass:") ~typ:(_Class @-> _Class @-> returning (id)) x toolbarClass -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let initWithRootViewController x self = msg_send ~self ~cmd:(selector "initWithRootViewController:") ~typ:(id @-> returning (id)) x -let interactivePopGestureRecognizer self = msg_send ~self ~cmd:(selector "interactivePopGestureRecognizer") ~typ:(returning (id)) -let isBuiltinTransition self = msg_send ~self ~cmd:(selector "isBuiltinTransition") ~typ:(returning (bool)) -let isCustomTransition self = msg_send ~self ~cmd:(selector "isCustomTransition") ~typ:(returning (bool)) -let isExpanded self = msg_send ~self ~cmd:(selector "isExpanded") ~typ:(returning (bool)) -let isInteractiveTransition self = msg_send ~self ~cmd:(selector "isInteractiveTransition") ~typ:(returning (bool)) -let isModalInPopover self = msg_send ~self ~cmd:(selector "isModalInPopover") ~typ:(returning (bool)) -let isNavigationBarHidden self = msg_send ~self ~cmd:(selector "isNavigationBarHidden") ~typ:(returning (bool)) -let isShown self = msg_send ~self ~cmd:(selector "isShown") ~typ:(returning (bool)) -let isToolbarHidden self = msg_send ~self ~cmd:(selector "isToolbarHidden") ~typ:(returning (bool)) -let lastOperation self = msg_send ~self ~cmd:(selector "lastOperation") ~typ:(returning (llong)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let modalTransitionStyle self = msg_send ~self ~cmd:(selector "modalTransitionStyle") ~typ:(returning (llong)) -let moreListImage self = msg_send ~self ~cmd:(selector "moreListImage") ~typ:(returning (id)) -let moreListSelectedImage self = msg_send ~self ~cmd:(selector "moreListSelectedImage") ~typ:(returning (id)) -let moreListTableCell self = msg_send ~self ~cmd:(selector "moreListTableCell") ~typ:(returning (id)) -let navigationBar self = msg_send ~self ~cmd:(selector "navigationBar") ~typ:(returning (id)) -let navigationBar' x ~shouldPopItem self = msg_send ~self ~cmd:(selector "navigationBar:shouldPopItem:") ~typ:(id @-> id @-> returning (bool)) x shouldPopItem -let navigationBarClass self = msg_send ~self ~cmd:(selector "navigationBarClass") ~typ:(returning (_Class)) -let navigationBarDidChangeOpacity x self = msg_send ~self ~cmd:(selector "navigationBarDidChangeOpacity:") ~typ:(id @-> returning (void)) x -let navigationBarDidResizeForPrompt x self = msg_send ~self ~cmd:(selector "navigationBarDidResizeForPrompt:") ~typ:(id @-> returning (void)) x -let navigationItem self = msg_send ~self ~cmd:(selector "navigationItem") ~typ:(returning (id)) -let navigationTransitionView self = msg_send ~self ~cmd:(selector "navigationTransitionView") ~typ:(returning (id)) -let navigationTransitionView1 x ~didStartTransition self = msg_send ~self ~cmd:(selector "navigationTransitionView:didStartTransition:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int didStartTransition) -let navigationTransitionView2 x ~durationForTransition self = msg_send ~self ~cmd:(selector "navigationTransitionView:durationForTransition:") ~typ:(id @-> llong @-> returning (double)) x (LLong.of_int durationForTransition) -let navigationTransitionView3 x ~didEndTransition ~fromView ~toView self = msg_send ~self ~cmd:(selector "navigationTransitionView:didEndTransition:fromView:toView:") ~typ:(id @-> llong @-> id @-> id @-> returning (void)) x (LLong.of_int didEndTransition) fromView toView -let needsDeferredTransition self = msg_send ~self ~cmd:(selector "needsDeferredTransition") ~typ:(returning (bool)) -let paletteForEdge x ~size self = msg_send ~self ~cmd:(selector "paletteForEdge:size:") ~typ:(ullong @-> CGSize.t @-> returning (id)) (ULLong.of_int x) size -let popToRootViewControllerAnimated x self = msg_send ~self ~cmd:(selector "popToRootViewControllerAnimated:") ~typ:(bool @-> returning (id)) x -let popToRootViewControllerWithTransition x self = msg_send ~self ~cmd:(selector "popToRootViewControllerWithTransition:") ~typ:(int @-> returning (id)) x -let popToViewController x ~animated self = msg_send ~self ~cmd:(selector "popToViewController:animated:") ~typ:(id @-> bool @-> returning (id)) x animated -let popToViewController' x ~transition self = msg_send ~self ~cmd:(selector "popToViewController:transition:") ~typ:(id @-> int @-> returning (id)) x transition -let popToViewControllerWithSnapbackIdentifier x ~animated self = msg_send ~self ~cmd:(selector "popToViewControllerWithSnapbackIdentifier:animated:") ~typ:(id @-> bool @-> returning (id)) x animated -let popViewControllerAnimated x self = msg_send ~self ~cmd:(selector "popViewControllerAnimated:") ~typ:(bool @-> returning (id)) x -let popViewControllerWithAnimationTransition x ~duration ~curve self = msg_send ~self ~cmd:(selector "popViewControllerWithAnimationTransition:duration:curve:") ~typ:(llong @-> double @-> llong @-> returning (id)) (LLong.of_int x) duration (LLong.of_int curve) -let popViewControllerWithTransition x self = msg_send ~self ~cmd:(selector "popViewControllerWithTransition:") ~typ:(int @-> returning (id)) x -let preferredContentSize self = msg_send_stret ~self ~cmd:(selector "preferredContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning (void)) x -let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning (id)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let preferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "preferredInterfaceOrientationForPresentation") ~typ:(returning (llong)) -let preferredStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredStatusBarStyle") ~typ:(returning (llong)) -let pretendNavBarHidden self = msg_send ~self ~cmd:(selector "pretendNavBarHidden") ~typ:(returning (bool)) -let previousViewController self = msg_send ~self ~cmd:(selector "previousViewController") ~typ:(returning (id)) -let pushViewController x ~animated self = msg_send ~self ~cmd:(selector "pushViewController:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let pushViewController1 x ~transition self = msg_send ~self ~cmd:(selector "pushViewController:transition:") ~typ:(id @-> int @-> returning (void)) x transition -let pushViewController2 x ~transition ~forceImmediate self = msg_send ~self ~cmd:(selector "pushViewController:transition:forceImmediate:") ~typ:(id @-> int @-> bool @-> returning (void)) x transition forceImmediate -let removeChildViewController x ~notifyDidMove self = msg_send ~self ~cmd:(selector "removeChildViewController:notifyDidMove:") ~typ:(id @-> bool @-> returning (void)) x notifyDidMove -let rotatingFooterView self = msg_send ~self ~cmd:(selector "rotatingFooterView") ~typ:(returning (id)) -let rotatingHeaderView self = msg_send ~self ~cmd:(selector "rotatingHeaderView") ~typ:(returning (id)) -let rotatingSnapshotViewForWindow x self = msg_send ~self ~cmd:(selector "rotatingSnapshotViewForWindow:") ~typ:(id @-> returning (id)) x -let searchBarHidNavBar self = msg_send ~self ~cmd:(selector "searchBarHidNavBar") ~typ:(returning (bool)) -let segueForUnwindingToViewController x ~fromViewController ~identifier self = msg_send ~self ~cmd:(selector "segueForUnwindingToViewController:fromViewController:identifier:") ~typ:(id @-> id @-> id @-> returning (id)) x fromViewController identifier -let separateSecondaryViewControllerForSplitViewController x self = msg_send ~self ~cmd:(selector "separateSecondaryViewControllerForSplitViewController:") ~typ:(id @-> returning (id)) x -let setAllowUserInteractionDuringTransition x self = msg_send ~self ~cmd:(selector "setAllowUserInteractionDuringTransition:") ~typ:(bool @-> returning (void)) x -let setAvoidMovingNavBarOffscreenBeforeUnhiding x self = msg_send ~self ~cmd:(selector "setAvoidMovingNavBarOffscreenBeforeUnhiding:") ~typ:(bool @-> returning (void)) x -let setCondensesBarsOnSwipe x self = msg_send ~self ~cmd:(selector "setCondensesBarsOnSwipe:") ~typ:(bool @-> returning (void)) x -let setContentSizeForViewInPopover x self = msg_send ~self ~cmd:(selector "setContentSizeForViewInPopover:") ~typ:(CGSize.t @-> returning (void)) x -let setCustomNavigationTransitionDuration x self = msg_send ~self ~cmd:(selector "setCustomNavigationTransitionDuration:") ~typ:(double @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDetailViewController x self = msg_send ~self ~cmd:(selector "setDetailViewController:") ~typ:(id @-> returning (void)) x -let setDisappearingViewController x self = msg_send ~self ~cmd:(selector "setDisappearingViewController:") ~typ:(id @-> returning (void)) x -let setEditing x ~animated self = msg_send ~self ~cmd:(selector "setEditing:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setEnableBackButtonDuringTransition x self = msg_send ~self ~cmd:(selector "setEnableBackButtonDuringTransition:") ~typ:(bool @-> returning (void)) x -let setHidesBarsOnSwipe x self = msg_send ~self ~cmd:(selector "setHidesBarsOnSwipe:") ~typ:(bool @-> returning (void)) x -let setHidesBarsOnTap x self = msg_send ~self ~cmd:(selector "setHidesBarsOnTap:") ~typ:(bool @-> returning (void)) x -let setHidesBarsWhenKeyboardAppears x self = msg_send ~self ~cmd:(selector "setHidesBarsWhenKeyboardAppears:") ~typ:(bool @-> returning (void)) x -let setHidesBarsWhenVerticallyCompact x self = msg_send ~self ~cmd:(selector "setHidesBarsWhenVerticallyCompact:") ~typ:(bool @-> returning (void)) x -let setInteractiveTransition x self = msg_send ~self ~cmd:(selector "setInteractiveTransition:") ~typ:(bool @-> returning (void)) x -let setIsExpanded x self = msg_send ~self ~cmd:(selector "setIsExpanded:") ~typ:(bool @-> returning (void)) x -let setNavigationBar x self = msg_send ~self ~cmd:(selector "setNavigationBar:") ~typ:(id @-> returning (void)) x -let setNavigationBarClass x self = msg_send ~self ~cmd:(selector "setNavigationBarClass:") ~typ:(_Class @-> returning (void)) x -let setNavigationBarHidden x self = msg_send ~self ~cmd:(selector "setNavigationBarHidden:") ~typ:(bool @-> returning (void)) x -let setNavigationBarHidden' x ~animated self = msg_send ~self ~cmd:(selector "setNavigationBarHidden:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setNeedsDeferredTransition self = msg_send ~self ~cmd:(selector "setNeedsDeferredTransition") ~typ:(returning (void)) -let setNeedsDeferredTransition' x self = msg_send ~self ~cmd:(selector "setNeedsDeferredTransition:") ~typ:(bool @-> returning (void)) x -let setPreferredContentSize x self = msg_send ~self ~cmd:(selector "setPreferredContentSize:") ~typ:(CGSize.t @-> returning (void)) x -let setPretendNavBarHidden x self = msg_send ~self ~cmd:(selector "setPretendNavBarHidden:") ~typ:(bool @-> returning (void)) x -let setSearchBarHidNavBar x self = msg_send ~self ~cmd:(selector "setSearchBarHidNavBar:") ~typ:(bool @-> returning (void)) x -let setToolbar x self = msg_send ~self ~cmd:(selector "setToolbar:") ~typ:(id @-> returning (void)) x -let setToolbarHidden x self = msg_send ~self ~cmd:(selector "setToolbarHidden:") ~typ:(bool @-> returning (void)) x -let setToolbarHidden' x ~animated self = msg_send ~self ~cmd:(selector "setToolbarHidden:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setViewControllers x self = msg_send ~self ~cmd:(selector "setViewControllers:") ~typ:(id @-> returning (void)) x -let setViewControllers' x ~animated self = msg_send ~self ~cmd:(selector "setViewControllers:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let showViewController x ~sender self = msg_send ~self ~cmd:(selector "showViewController:sender:") ~typ:(id @-> id @-> returning (void)) x sender -let sizeForChildContentContainer x ~withParentContainerSize self = msg_send_stret ~self ~cmd:(selector "sizeForChildContentContainer:withParentContainerSize:") ~typ:(id @-> CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x withParentContainerSize -let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning (ullong)) -let tabBarItem self = msg_send ~self ~cmd:(selector "tabBarItem") ~typ:(returning (id)) -let toolbar self = msg_send ~self ~cmd:(selector "toolbar") ~typ:(returning (id)) -let topViewController self = msg_send ~self ~cmd:(selector "topViewController") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let unwindForSegue x ~towardsViewController self = msg_send ~self ~cmd:(selector "unwindForSegue:towardsViewController:") ~typ:(id @-> id @-> returning (void)) x towardsViewController -let updateTabBarItemForViewController x self = msg_send ~self ~cmd:(selector "updateTabBarItemForViewController:") ~typ:(id @-> returning (void)) x -let updateTitleForViewController x self = msg_send ~self ~cmd:(selector "updateTitleForViewController:") ~typ:(id @-> returning (void)) x -let valueForUndefinedKey x self = msg_send ~self ~cmd:(selector "valueForUndefinedKey:") ~typ:(id @-> returning (id)) x -let viewControllerForUnwindSegueAction x ~fromViewController ~withSender self = msg_send ~self ~cmd:(selector "viewControllerForUnwindSegueAction:fromViewController:withSender:") ~typ:(_SEL @-> id @-> id @-> returning (id)) x fromViewController withSender -let viewControllers self = msg_send ~self ~cmd:(selector "viewControllers") ~typ:(returning (id)) -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewDidMoveToWindow x ~shouldAppearOrDisappear self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow:shouldAppearOrDisappear:") ~typ:(id @-> bool @-> returning (void)) x shouldAppearOrDisappear -let viewDidUnload self = msg_send ~self ~cmd:(selector "viewDidUnload") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning (void)) x withTransitionCoordinator -let visibleViewController self = msg_send ~self ~cmd:(selector "visibleViewController") ~typ:(returning (id)) -let wasLastOperationAnimated self = msg_send ~self ~cmd:(selector "wasLastOperationAnimated") ~typ:(returning (bool)) -let willAnimateFirstHalfOfRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateFirstHalfOfRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willAnimateSecondHalfOfRotationFromInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateSecondHalfOfRotationFromInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willShowViewController x ~animated self = msg_send ~self ~cmd:(selector "willShowViewController:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning (void)) x withTransitionCoordinator \ No newline at end of file +let allowUserInteractionDuringTransition self = msg_send ~self ~cmd:(selector "allowUserInteractionDuringTransition") ~typ:(returning bool) +let allowedChildViewControllersForUnwindingFromSource x self = msg_send ~self ~cmd:(selector "allowedChildViewControllersForUnwindingFromSource:") ~typ:(id @-> returning id) x +let attachPalette x ~isPinned self = msg_send ~self ~cmd:(selector "attachPalette:isPinned:") ~typ:(id @-> bool @-> returning void) x isPinned +let avoidMovingNavBarOffscreenBeforeUnhiding self = msg_send ~self ~cmd:(selector "avoidMovingNavBarOffscreenBeforeUnhiding") ~typ:(returning bool) +let barHideOnSwipeGestureRecognizer self = msg_send ~self ~cmd:(selector "barHideOnSwipeGestureRecognizer") ~typ:(returning id) +let barHideOnTapGestureRecognizer self = msg_send ~self ~cmd:(selector "barHideOnTapGestureRecognizer") ~typ:(returning id) +let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning bool) +let bottomViewController self = msg_send ~self ~cmd:(selector "bottomViewController") ~typ:(returning id) +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let childViewControllerForHomeIndicatorAutoHidden self = msg_send ~self ~cmd:(selector "childViewControllerForHomeIndicatorAutoHidden") ~typ:(returning id) +let childViewControllerForPointerLock self = msg_send ~self ~cmd:(selector "childViewControllerForPointerLock") ~typ:(returning id) +let childViewControllerForScreenEdgesDeferringSystemGestures self = msg_send ~self ~cmd:(selector "childViewControllerForScreenEdgesDeferringSystemGestures") ~typ:(returning id) +let childViewControllerForStatusBarHidden self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarHidden") ~typ:(returning id) +let childViewControllerForStatusBarStyle self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarStyle") ~typ:(returning id) +let childViewControllerForTouchBar self = msg_send ~self ~cmd:(selector "childViewControllerForTouchBar") ~typ:(returning id) +let childViewControllerForUserInterfaceStyle self = msg_send ~self ~cmd:(selector "childViewControllerForUserInterfaceStyle") ~typ:(returning id) +let childViewControllerForWhitePointAdaptivityStyle self = msg_send ~self ~cmd:(selector "childViewControllerForWhitePointAdaptivityStyle") ~typ:(returning id) +let collapseSecondaryViewController x ~forSplitViewController self = msg_send ~self ~cmd:(selector "collapseSecondaryViewController:forSplitViewController:") ~typ:(id @-> id @-> returning void) x forSplitViewController +let condensesBarsOnSwipe self = msg_send ~self ~cmd:(selector "condensesBarsOnSwipe") ~typ:(returning bool) +let contentSizeForViewInPopover self = msg_send ~self ~cmd:(selector "contentSizeForViewInPopover") ~typ:(returning CGSize.t) +let customNavigationTransitionDuration self = msg_send ~self ~cmd:(selector "customNavigationTransitionDuration") ~typ:(returning double) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let defaultPNGName self = msg_send ~self ~cmd:(selector "defaultPNGName") ~typ:(returning id) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let detachPalette x self = msg_send ~self ~cmd:(selector "detachPalette:") ~typ:(id @-> returning void) x +let detachPalette' x ~isInPaletteTransition self = msg_send ~self ~cmd:(selector "detachPalette:isInPaletteTransition:") ~typ:(id @-> bool @-> returning void) x isInPaletteTransition +let detailViewController self = msg_send ~self ~cmd:(selector "detailViewController") ~typ:(returning id) +let didAnimateFirstHalfOfRotationToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didAnimateFirstHalfOfRotationToInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let didMoveToParentViewController x self = msg_send ~self ~cmd:(selector "didMoveToParentViewController:") ~typ:(id @-> returning void) x +let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let didShowViewController x ~animated self = msg_send ~self ~cmd:(selector "didShowViewController:animated:") ~typ:(id @-> bool @-> returning void) x animated +let disappearingViewController self = msg_send ~self ~cmd:(selector "disappearingViewController") ~typ:(returning id) +let durationForTransition x self = msg_send ~self ~cmd:(selector "durationForTransition:") ~typ:(int @-> returning double) x +let editing self = msg_send ~self ~cmd:(selector "editing") ~typ:(returning bool) +let enableBackButtonDuringTransition self = msg_send ~self ~cmd:(selector "enableBackButtonDuringTransition") ~typ:(returning bool) +let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let existingPaletteForEdge x self = msg_send ~self ~cmd:(selector "existingPaletteForEdge:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let hidesBarsOnSwipe self = msg_send ~self ~cmd:(selector "hidesBarsOnSwipe") ~typ:(returning bool) +let hidesBarsOnTap self = msg_send ~self ~cmd:(selector "hidesBarsOnTap") ~typ:(returning bool) +let hidesBarsWhenKeyboardAppears self = msg_send ~self ~cmd:(selector "hidesBarsWhenKeyboardAppears") ~typ:(returning bool) +let hidesBarsWhenVerticallyCompact self = msg_send ~self ~cmd:(selector "hidesBarsWhenVerticallyCompact") ~typ:(returning bool) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithNavigationBarClass x ~toolbarClass self = msg_send ~self ~cmd:(selector "initWithNavigationBarClass:toolbarClass:") ~typ:(_Class @-> _Class @-> returning id) x toolbarClass +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let initWithRootViewController x self = msg_send ~self ~cmd:(selector "initWithRootViewController:") ~typ:(id @-> returning id) x +let interactivePopGestureRecognizer self = msg_send ~self ~cmd:(selector "interactivePopGestureRecognizer") ~typ:(returning id) +let isBuiltinTransition self = msg_send ~self ~cmd:(selector "isBuiltinTransition") ~typ:(returning bool) +let isCustomTransition self = msg_send ~self ~cmd:(selector "isCustomTransition") ~typ:(returning bool) +let isExpanded self = msg_send ~self ~cmd:(selector "isExpanded") ~typ:(returning bool) +let isInteractiveTransition self = msg_send ~self ~cmd:(selector "isInteractiveTransition") ~typ:(returning bool) +let isModalInPopover self = msg_send ~self ~cmd:(selector "isModalInPopover") ~typ:(returning bool) +let isNavigationBarHidden self = msg_send ~self ~cmd:(selector "isNavigationBarHidden") ~typ:(returning bool) +let isShown self = msg_send ~self ~cmd:(selector "isShown") ~typ:(returning bool) +let isToolbarHidden self = msg_send ~self ~cmd:(selector "isToolbarHidden") ~typ:(returning bool) +let lastOperation self = msg_send ~self ~cmd:(selector "lastOperation") ~typ:(returning llong) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let modalTransitionStyle self = msg_send ~self ~cmd:(selector "modalTransitionStyle") ~typ:(returning llong) +let moreListImage self = msg_send ~self ~cmd:(selector "moreListImage") ~typ:(returning id) +let moreListSelectedImage self = msg_send ~self ~cmd:(selector "moreListSelectedImage") ~typ:(returning id) +let moreListTableCell self = msg_send ~self ~cmd:(selector "moreListTableCell") ~typ:(returning id) +let navigationBar self = msg_send ~self ~cmd:(selector "navigationBar") ~typ:(returning id) +let navigationBar' x ~shouldPopItem self = msg_send ~self ~cmd:(selector "navigationBar:shouldPopItem:") ~typ:(id @-> id @-> returning bool) x shouldPopItem +let navigationBarClass self = msg_send ~self ~cmd:(selector "navigationBarClass") ~typ:(returning _Class) +let navigationBarDidChangeOpacity x self = msg_send ~self ~cmd:(selector "navigationBarDidChangeOpacity:") ~typ:(id @-> returning void) x +let navigationBarDidResizeForPrompt x self = msg_send ~self ~cmd:(selector "navigationBarDidResizeForPrompt:") ~typ:(id @-> returning void) x +let navigationItem self = msg_send ~self ~cmd:(selector "navigationItem") ~typ:(returning id) +let navigationTransitionView self = msg_send ~self ~cmd:(selector "navigationTransitionView") ~typ:(returning id) +let navigationTransitionView1 x ~didStartTransition self = msg_send ~self ~cmd:(selector "navigationTransitionView:didStartTransition:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int didStartTransition) +let navigationTransitionView2 x ~durationForTransition self = msg_send ~self ~cmd:(selector "navigationTransitionView:durationForTransition:") ~typ:(id @-> llong @-> returning double) x (LLong.of_int durationForTransition) +let navigationTransitionView3 x ~didEndTransition ~fromView ~toView self = msg_send ~self ~cmd:(selector "navigationTransitionView:didEndTransition:fromView:toView:") ~typ:(id @-> llong @-> id @-> id @-> returning void) x (LLong.of_int didEndTransition) fromView toView +let needsDeferredTransition self = msg_send ~self ~cmd:(selector "needsDeferredTransition") ~typ:(returning bool) +let paletteForEdge x ~size self = msg_send ~self ~cmd:(selector "paletteForEdge:size:") ~typ:(ullong @-> CGSize.t @-> returning id) (ULLong.of_int x) size +let popToRootViewControllerAnimated x self = msg_send ~self ~cmd:(selector "popToRootViewControllerAnimated:") ~typ:(bool @-> returning id) x +let popToRootViewControllerWithTransition x self = msg_send ~self ~cmd:(selector "popToRootViewControllerWithTransition:") ~typ:(int @-> returning id) x +let popToViewController x ~animated self = msg_send ~self ~cmd:(selector "popToViewController:animated:") ~typ:(id @-> bool @-> returning id) x animated +let popToViewController' x ~transition self = msg_send ~self ~cmd:(selector "popToViewController:transition:") ~typ:(id @-> int @-> returning id) x transition +let popToViewControllerWithSnapbackIdentifier x ~animated self = msg_send ~self ~cmd:(selector "popToViewControllerWithSnapbackIdentifier:animated:") ~typ:(id @-> bool @-> returning id) x animated +let popViewControllerAnimated x self = msg_send ~self ~cmd:(selector "popViewControllerAnimated:") ~typ:(bool @-> returning id) x +let popViewControllerWithAnimationTransition x ~duration ~curve self = msg_send ~self ~cmd:(selector "popViewControllerWithAnimationTransition:duration:curve:") ~typ:(llong @-> double @-> llong @-> returning id) (LLong.of_int x) duration (LLong.of_int curve) +let popViewControllerWithTransition x self = msg_send ~self ~cmd:(selector "popViewControllerWithTransition:") ~typ:(int @-> returning id) x +let preferredContentSize self = msg_send ~self ~cmd:(selector "preferredContentSize") ~typ:(returning CGSize.t) +let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning void) x +let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning id) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let preferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "preferredInterfaceOrientationForPresentation") ~typ:(returning llong) +let preferredStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredStatusBarStyle") ~typ:(returning llong) +let pretendNavBarHidden self = msg_send ~self ~cmd:(selector "pretendNavBarHidden") ~typ:(returning bool) +let previousViewController self = msg_send ~self ~cmd:(selector "previousViewController") ~typ:(returning id) +let pushViewController x ~animated self = msg_send ~self ~cmd:(selector "pushViewController:animated:") ~typ:(id @-> bool @-> returning void) x animated +let pushViewController1 x ~transition self = msg_send ~self ~cmd:(selector "pushViewController:transition:") ~typ:(id @-> int @-> returning void) x transition +let pushViewController2 x ~transition ~forceImmediate self = msg_send ~self ~cmd:(selector "pushViewController:transition:forceImmediate:") ~typ:(id @-> int @-> bool @-> returning void) x transition forceImmediate +let removeChildViewController x ~notifyDidMove self = msg_send ~self ~cmd:(selector "removeChildViewController:notifyDidMove:") ~typ:(id @-> bool @-> returning void) x notifyDidMove +let rotatingFooterView self = msg_send ~self ~cmd:(selector "rotatingFooterView") ~typ:(returning id) +let rotatingHeaderView self = msg_send ~self ~cmd:(selector "rotatingHeaderView") ~typ:(returning id) +let rotatingSnapshotViewForWindow x self = msg_send ~self ~cmd:(selector "rotatingSnapshotViewForWindow:") ~typ:(id @-> returning id) x +let searchBarHidNavBar self = msg_send ~self ~cmd:(selector "searchBarHidNavBar") ~typ:(returning bool) +let segueForUnwindingToViewController x ~fromViewController ~identifier self = msg_send ~self ~cmd:(selector "segueForUnwindingToViewController:fromViewController:identifier:") ~typ:(id @-> id @-> id @-> returning id) x fromViewController identifier +let separateSecondaryViewControllerForSplitViewController x self = msg_send ~self ~cmd:(selector "separateSecondaryViewControllerForSplitViewController:") ~typ:(id @-> returning id) x +let setAllowUserInteractionDuringTransition x self = msg_send ~self ~cmd:(selector "setAllowUserInteractionDuringTransition:") ~typ:(bool @-> returning void) x +let setAvoidMovingNavBarOffscreenBeforeUnhiding x self = msg_send ~self ~cmd:(selector "setAvoidMovingNavBarOffscreenBeforeUnhiding:") ~typ:(bool @-> returning void) x +let setCondensesBarsOnSwipe x self = msg_send ~self ~cmd:(selector "setCondensesBarsOnSwipe:") ~typ:(bool @-> returning void) x +let setContentSizeForViewInPopover x self = msg_send ~self ~cmd:(selector "setContentSizeForViewInPopover:") ~typ:(CGSize.t @-> returning void) x +let setCustomNavigationTransitionDuration x self = msg_send ~self ~cmd:(selector "setCustomNavigationTransitionDuration:") ~typ:(double @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDetailViewController x self = msg_send ~self ~cmd:(selector "setDetailViewController:") ~typ:(id @-> returning void) x +let setDisappearingViewController x self = msg_send ~self ~cmd:(selector "setDisappearingViewController:") ~typ:(id @-> returning void) x +let setEditing x ~animated self = msg_send ~self ~cmd:(selector "setEditing:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setEnableBackButtonDuringTransition x self = msg_send ~self ~cmd:(selector "setEnableBackButtonDuringTransition:") ~typ:(bool @-> returning void) x +let setHidesBarsOnSwipe x self = msg_send ~self ~cmd:(selector "setHidesBarsOnSwipe:") ~typ:(bool @-> returning void) x +let setHidesBarsOnTap x self = msg_send ~self ~cmd:(selector "setHidesBarsOnTap:") ~typ:(bool @-> returning void) x +let setHidesBarsWhenKeyboardAppears x self = msg_send ~self ~cmd:(selector "setHidesBarsWhenKeyboardAppears:") ~typ:(bool @-> returning void) x +let setHidesBarsWhenVerticallyCompact x self = msg_send ~self ~cmd:(selector "setHidesBarsWhenVerticallyCompact:") ~typ:(bool @-> returning void) x +let setInteractiveTransition x self = msg_send ~self ~cmd:(selector "setInteractiveTransition:") ~typ:(bool @-> returning void) x +let setIsExpanded x self = msg_send ~self ~cmd:(selector "setIsExpanded:") ~typ:(bool @-> returning void) x +let setNavigationBar x self = msg_send ~self ~cmd:(selector "setNavigationBar:") ~typ:(id @-> returning void) x +let setNavigationBarClass x self = msg_send ~self ~cmd:(selector "setNavigationBarClass:") ~typ:(_Class @-> returning void) x +let setNavigationBarHidden x self = msg_send ~self ~cmd:(selector "setNavigationBarHidden:") ~typ:(bool @-> returning void) x +let setNavigationBarHidden' x ~animated self = msg_send ~self ~cmd:(selector "setNavigationBarHidden:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setNeedsDeferredTransition self = msg_send ~self ~cmd:(selector "setNeedsDeferredTransition") ~typ:(returning void) +let setNeedsDeferredTransition' x self = msg_send ~self ~cmd:(selector "setNeedsDeferredTransition:") ~typ:(bool @-> returning void) x +let setPreferredContentSize x self = msg_send ~self ~cmd:(selector "setPreferredContentSize:") ~typ:(CGSize.t @-> returning void) x +let setPretendNavBarHidden x self = msg_send ~self ~cmd:(selector "setPretendNavBarHidden:") ~typ:(bool @-> returning void) x +let setSearchBarHidNavBar x self = msg_send ~self ~cmd:(selector "setSearchBarHidNavBar:") ~typ:(bool @-> returning void) x +let setToolbar x self = msg_send ~self ~cmd:(selector "setToolbar:") ~typ:(id @-> returning void) x +let setToolbarHidden x self = msg_send ~self ~cmd:(selector "setToolbarHidden:") ~typ:(bool @-> returning void) x +let setToolbarHidden' x ~animated self = msg_send ~self ~cmd:(selector "setToolbarHidden:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setViewControllers x self = msg_send ~self ~cmd:(selector "setViewControllers:") ~typ:(id @-> returning void) x +let setViewControllers' x ~animated self = msg_send ~self ~cmd:(selector "setViewControllers:animated:") ~typ:(id @-> bool @-> returning void) x animated +let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let showViewController x ~sender self = msg_send ~self ~cmd:(selector "showViewController:sender:") ~typ:(id @-> id @-> returning void) x sender +let sizeForChildContentContainer x ~withParentContainerSize self = msg_send ~self ~cmd:(selector "sizeForChildContentContainer:withParentContainerSize:") ~typ:(id @-> CGSize.t @-> returning CGSize.t) x withParentContainerSize +let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning ullong) +let tabBarItem self = msg_send ~self ~cmd:(selector "tabBarItem") ~typ:(returning id) +let toolbar self = msg_send ~self ~cmd:(selector "toolbar") ~typ:(returning id) +let topViewController self = msg_send ~self ~cmd:(selector "topViewController") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let unwindForSegue x ~towardsViewController self = msg_send ~self ~cmd:(selector "unwindForSegue:towardsViewController:") ~typ:(id @-> id @-> returning void) x towardsViewController +let updateTabBarItemForViewController x self = msg_send ~self ~cmd:(selector "updateTabBarItemForViewController:") ~typ:(id @-> returning void) x +let updateTitleForViewController x self = msg_send ~self ~cmd:(selector "updateTitleForViewController:") ~typ:(id @-> returning void) x +let valueForUndefinedKey x self = msg_send ~self ~cmd:(selector "valueForUndefinedKey:") ~typ:(id @-> returning id) x +let viewControllerForUnwindSegueAction x ~fromViewController ~withSender self = msg_send ~self ~cmd:(selector "viewControllerForUnwindSegueAction:fromViewController:withSender:") ~typ:(_SEL @-> id @-> id @-> returning id) x fromViewController withSender +let viewControllers self = msg_send ~self ~cmd:(selector "viewControllers") ~typ:(returning id) +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewDidMoveToWindow x ~shouldAppearOrDisappear self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow:shouldAppearOrDisappear:") ~typ:(id @-> bool @-> returning void) x shouldAppearOrDisappear +let viewDidUnload self = msg_send ~self ~cmd:(selector "viewDidUnload") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning void) x withTransitionCoordinator +let visibleViewController self = msg_send ~self ~cmd:(selector "visibleViewController") ~typ:(returning id) +let wasLastOperationAnimated self = msg_send ~self ~cmd:(selector "wasLastOperationAnimated") ~typ:(returning bool) +let willAnimateFirstHalfOfRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateFirstHalfOfRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willAnimateSecondHalfOfRotationFromInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateSecondHalfOfRotationFromInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willShowViewController x ~animated self = msg_send ~self ~cmd:(selector "willShowViewController:animated:") ~typ:(id @-> bool @-> returning void) x animated +let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning void) x withTransitionCoordinator \ No newline at end of file diff --git a/uikit/UINavigationControllerClass.ml b/uikit/UINavigationControllerClass.ml new file mode 100644 index 00000000..1cd1b59d --- /dev/null +++ b/uikit/UINavigationControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinavigationcontroller?language=objc}UINavigationController} *) + +let doesOverridePreferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "doesOverridePreferredInterfaceOrientationForPresentation") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UINavigationDeferredTransitionContext.ml b/uikit/UINavigationDeferredTransitionContext.ml index 890121ba..e86aa8ce 100644 --- a/uikit/UINavigationDeferredTransitionContext.ml +++ b/uikit/UINavigationDeferredTransitionContext.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UINavigationDeferredTransitionContext" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinavigationdeferredtransitioncontext?language=objc}UINavigationDeferredTransitionContext} *) -let incomingTopPalette self = msg_send ~self ~cmd:(selector "incomingTopPalette") ~typ:(returning (id)) -let outgoingTopPalette self = msg_send ~self ~cmd:(selector "outgoingTopPalette") ~typ:(returning (id)) -let setIncomingTopPalette x self = msg_send ~self ~cmd:(selector "setIncomingTopPalette:") ~typ:(id @-> returning (void)) x -let setOutgoingTopPalette x self = msg_send ~self ~cmd:(selector "setOutgoingTopPalette:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UINavigationDeferredTransitionContext" + +let incomingTopPalette self = msg_send ~self ~cmd:(selector "incomingTopPalette") ~typ:(returning id) +let outgoingTopPalette self = msg_send ~self ~cmd:(selector "outgoingTopPalette") ~typ:(returning id) +let setIncomingTopPalette x self = msg_send ~self ~cmd:(selector "setIncomingTopPalette:") ~typ:(id @-> returning void) x +let setOutgoingTopPalette x self = msg_send ~self ~cmd:(selector "setOutgoingTopPalette:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UINavigationItem.ml b/uikit/UINavigationItem.ml index b3c24fe8..afccbea9 100644 --- a/uikit/UINavigationItem.ml +++ b/uikit/UINavigationItem.ml @@ -5,88 +5,89 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UINavigationItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinavigationitem?language=objc}UINavigationItem} *) -module C = struct - let defaultFont self = msg_send ~self ~cmd:(selector "defaultFont") ~typ:(returning (id)) -end +let self = get_class "UINavigationItem" -let appearance x ~categoriesChanged self = msg_send ~self ~cmd:(selector "appearance:categoriesChanged:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int categoriesChanged) -let backBarButtonItem self = msg_send ~self ~cmd:(selector "backBarButtonItem") ~typ:(returning (id)) -let backButtonDisplayMode self = msg_send ~self ~cmd:(selector "backButtonDisplayMode") ~typ:(returning (llong)) -let backButtonTitle self = msg_send ~self ~cmd:(selector "backButtonTitle") ~typ:(returning (id)) -let backButtonView self = msg_send ~self ~cmd:(selector "backButtonView") ~typ:(returning (id)) -let compactAppearance self = msg_send ~self ~cmd:(selector "compactAppearance") ~typ:(returning (id)) -let compactScrollEdgeAppearance self = msg_send ~self ~cmd:(selector "compactScrollEdgeAppearance") ~typ:(returning (id)) -let context self = msg_send ~self ~cmd:(selector "context") ~typ:(returning (id)) -let currentBackButtonTitle self = msg_send ~self ~cmd:(selector "currentBackButtonTitle") ~typ:(returning (id)) -let customLeftItem self = msg_send ~self ~cmd:(selector "customLeftItem") ~typ:(returning (id)) -let customLeftView self = msg_send ~self ~cmd:(selector "customLeftView") ~typ:(returning (id)) -let customRightItem self = msg_send ~self ~cmd:(selector "customRightItem") ~typ:(returning (id)) -let customRightView self = msg_send ~self ~cmd:(selector "customRightView") ~typ:(returning (id)) -let customTitleView self = msg_send ~self ~cmd:(selector "customTitleView") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let existingBackButtonView self = msg_send ~self ~cmd:(selector "existingBackButtonView") ~typ:(returning (id)) -let hidesBackButton self = msg_send ~self ~cmd:(selector "hidesBackButton") ~typ:(returning (bool)) -let hidesSearchBarWhenScrolling self = msg_send ~self ~cmd:(selector "hidesSearchBarWhenScrolling") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithTitle x self = msg_send ~self ~cmd:(selector "initWithTitle:") ~typ:(id @-> returning (id)) x -let largeTitleDisplayMode self = msg_send ~self ~cmd:(selector "largeTitleDisplayMode") ~typ:(returning (llong)) -let leftBarButtonItem self = msg_send ~self ~cmd:(selector "leftBarButtonItem") ~typ:(returning (id)) -let leftBarButtonItems self = msg_send ~self ~cmd:(selector "leftBarButtonItems") ~typ:(returning (id)) -let leftItemsSupplementBackButton self = msg_send ~self ~cmd:(selector "leftItemsSupplementBackButton") ~typ:(returning (bool)) -let navigationBar self = msg_send ~self ~cmd:(selector "navigationBar") ~typ:(returning (id)) -let prompt self = msg_send ~self ~cmd:(selector "prompt") ~typ:(returning (id)) -let rightBarButtonItem self = msg_send ~self ~cmd:(selector "rightBarButtonItem") ~typ:(returning (id)) -let rightBarButtonItems self = msg_send ~self ~cmd:(selector "rightBarButtonItems") ~typ:(returning (id)) -let scrollEdgeAppearance self = msg_send ~self ~cmd:(selector "scrollEdgeAppearance") ~typ:(returning (id)) -let searchController self = msg_send ~self ~cmd:(selector "searchController") ~typ:(returning (id)) -let setBackBarButtonItem x self = msg_send ~self ~cmd:(selector "setBackBarButtonItem:") ~typ:(id @-> returning (void)) x -let setBackButtonDisplayMode x self = msg_send ~self ~cmd:(selector "setBackButtonDisplayMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBackButtonTitle x self = msg_send ~self ~cmd:(selector "setBackButtonTitle:") ~typ:(id @-> returning (void)) x -let setCompactAppearance x self = msg_send ~self ~cmd:(selector "setCompactAppearance:") ~typ:(id @-> returning (void)) x -let setCompactScrollEdgeAppearance x self = msg_send ~self ~cmd:(selector "setCompactScrollEdgeAppearance:") ~typ:(id @-> returning (void)) x -let setContext x self = msg_send ~self ~cmd:(selector "setContext:") ~typ:(id @-> returning (void)) x -let setCustomLeftItem x self = msg_send ~self ~cmd:(selector "setCustomLeftItem:") ~typ:(id @-> returning (void)) x -let setCustomLeftItem' x ~animated self = msg_send ~self ~cmd:(selector "setCustomLeftItem:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setCustomLeftView x self = msg_send ~self ~cmd:(selector "setCustomLeftView:") ~typ:(id @-> returning (void)) x -let setCustomLeftView' x ~animated self = msg_send ~self ~cmd:(selector "setCustomLeftView:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setCustomRightItem x self = msg_send ~self ~cmd:(selector "setCustomRightItem:") ~typ:(id @-> returning (void)) x -let setCustomRightItem' x ~animated self = msg_send ~self ~cmd:(selector "setCustomRightItem:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setCustomRightView x self = msg_send ~self ~cmd:(selector "setCustomRightView:") ~typ:(id @-> returning (void)) x -let setCustomRightView' x ~animated self = msg_send ~self ~cmd:(selector "setCustomRightView:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setCustomTitleView x self = msg_send ~self ~cmd:(selector "setCustomTitleView:") ~typ:(id @-> returning (void)) x -let setHidesBackButton x self = msg_send ~self ~cmd:(selector "setHidesBackButton:") ~typ:(bool @-> returning (void)) x -let setHidesBackButton' x ~animated self = msg_send ~self ~cmd:(selector "setHidesBackButton:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setHidesSearchBarWhenScrolling x self = msg_send ~self ~cmd:(selector "setHidesSearchBarWhenScrolling:") ~typ:(bool @-> returning (void)) x -let setLargeTitleDisplayMode x self = msg_send ~self ~cmd:(selector "setLargeTitleDisplayMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setLargeTitleInsets x self = msg_send ~self ~cmd:(selector "setLargeTitleInsets:") ~typ:(ptr void @-> returning (void)) x -let setLeftBarButtonItem x self = msg_send ~self ~cmd:(selector "setLeftBarButtonItem:") ~typ:(id @-> returning (void)) x -let setLeftBarButtonItem' x ~animated self = msg_send ~self ~cmd:(selector "setLeftBarButtonItem:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setLeftBarButtonItems x self = msg_send ~self ~cmd:(selector "setLeftBarButtonItems:") ~typ:(id @-> returning (void)) x -let setLeftBarButtonItems' x ~animated self = msg_send ~self ~cmd:(selector "setLeftBarButtonItems:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setLeftItemsSupplementBackButton x self = msg_send ~self ~cmd:(selector "setLeftItemsSupplementBackButton:") ~typ:(bool @-> returning (void)) x -let setNavigationBar x self = msg_send ~self ~cmd:(selector "setNavigationBar:") ~typ:(id @-> returning (void)) x -let setObject x ~forLeftRightKeyPath ~animated self = msg_send ~self ~cmd:(selector "setObject:forLeftRightKeyPath:animated:") ~typ:(id @-> id @-> bool @-> returning (void)) x forLeftRightKeyPath animated -let setPrompt x self = msg_send ~self ~cmd:(selector "setPrompt:") ~typ:(id @-> returning (void)) x -let setRightBarButtonItem x self = msg_send ~self ~cmd:(selector "setRightBarButtonItem:") ~typ:(id @-> returning (void)) x -let setRightBarButtonItem' x ~animated self = msg_send ~self ~cmd:(selector "setRightBarButtonItem:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setRightBarButtonItems x self = msg_send ~self ~cmd:(selector "setRightBarButtonItems:") ~typ:(id @-> returning (void)) x -let setRightBarButtonItems' x ~animated self = msg_send ~self ~cmd:(selector "setRightBarButtonItems:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setScrollEdgeAppearance x self = msg_send ~self ~cmd:(selector "setScrollEdgeAppearance:") ~typ:(id @-> returning (void)) x -let setSearchController x self = msg_send ~self ~cmd:(selector "setSearchController:") ~typ:(id @-> returning (void)) x -let setStandardAppearance x self = msg_send ~self ~cmd:(selector "setStandardAppearance:") ~typ:(id @-> returning (void)) x -let setTag x self = msg_send ~self ~cmd:(selector "setTag:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setTitleView x self = msg_send ~self ~cmd:(selector "setTitleView:") ~typ:(id @-> returning (void)) x -let setUseRelativeLargeTitleInsets x self = msg_send ~self ~cmd:(selector "setUseRelativeLargeTitleInsets:") ~typ:(bool @-> returning (void)) x -let standardAppearance self = msg_send ~self ~cmd:(selector "standardAppearance") ~typ:(returning (id)) -let tag self = msg_send ~self ~cmd:(selector "tag") ~typ:(returning (llong)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let titleView self = msg_send ~self ~cmd:(selector "titleView") ~typ:(returning (id)) -let updateNavigationBarButtonsAnimated x self = msg_send ~self ~cmd:(selector "updateNavigationBarButtonsAnimated:") ~typ:(bool @-> returning (void)) x -let useRelativeLargeTitleInsets self = msg_send ~self ~cmd:(selector "useRelativeLargeTitleInsets") ~typ:(returning (bool)) \ No newline at end of file +let appearance x ~categoriesChanged self = msg_send ~self ~cmd:(selector "appearance:categoriesChanged:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int categoriesChanged) +let backBarButtonItem self = msg_send ~self ~cmd:(selector "backBarButtonItem") ~typ:(returning id) +let backButtonDisplayMode self = msg_send ~self ~cmd:(selector "backButtonDisplayMode") ~typ:(returning llong) +let backButtonTitle self = msg_send ~self ~cmd:(selector "backButtonTitle") ~typ:(returning id) +let backButtonView self = msg_send ~self ~cmd:(selector "backButtonView") ~typ:(returning id) +let compactAppearance self = msg_send ~self ~cmd:(selector "compactAppearance") ~typ:(returning id) +let compactScrollEdgeAppearance self = msg_send ~self ~cmd:(selector "compactScrollEdgeAppearance") ~typ:(returning id) +let context self = msg_send ~self ~cmd:(selector "context") ~typ:(returning id) +let currentBackButtonTitle self = msg_send ~self ~cmd:(selector "currentBackButtonTitle") ~typ:(returning id) +let customLeftItem self = msg_send ~self ~cmd:(selector "customLeftItem") ~typ:(returning id) +let customLeftView self = msg_send ~self ~cmd:(selector "customLeftView") ~typ:(returning id) +let customRightItem self = msg_send ~self ~cmd:(selector "customRightItem") ~typ:(returning id) +let customRightView self = msg_send ~self ~cmd:(selector "customRightView") ~typ:(returning id) +let customTitleView self = msg_send ~self ~cmd:(selector "customTitleView") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let existingBackButtonView self = msg_send ~self ~cmd:(selector "existingBackButtonView") ~typ:(returning id) +let hidesBackButton self = msg_send ~self ~cmd:(selector "hidesBackButton") ~typ:(returning bool) +let hidesSearchBarWhenScrolling self = msg_send ~self ~cmd:(selector "hidesSearchBarWhenScrolling") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithTitle x self = msg_send ~self ~cmd:(selector "initWithTitle:") ~typ:(id @-> returning id) x +let largeTitleDisplayMode self = msg_send ~self ~cmd:(selector "largeTitleDisplayMode") ~typ:(returning llong) +let largeTitleInsets self = msg_send ~self ~cmd:(selector "largeTitleInsets") ~typ:(returning NSDirectionalEdgeInsets.t) +let leftBarButtonItem self = msg_send ~self ~cmd:(selector "leftBarButtonItem") ~typ:(returning id) +let leftBarButtonItems self = msg_send ~self ~cmd:(selector "leftBarButtonItems") ~typ:(returning id) +let leftItemsSupplementBackButton self = msg_send ~self ~cmd:(selector "leftItemsSupplementBackButton") ~typ:(returning bool) +let navigationBar self = msg_send ~self ~cmd:(selector "navigationBar") ~typ:(returning id) +let prompt self = msg_send ~self ~cmd:(selector "prompt") ~typ:(returning id) +let rightBarButtonItem self = msg_send ~self ~cmd:(selector "rightBarButtonItem") ~typ:(returning id) +let rightBarButtonItems self = msg_send ~self ~cmd:(selector "rightBarButtonItems") ~typ:(returning id) +let scrollEdgeAppearance self = msg_send ~self ~cmd:(selector "scrollEdgeAppearance") ~typ:(returning id) +let searchController self = msg_send ~self ~cmd:(selector "searchController") ~typ:(returning id) +let setBackBarButtonItem x self = msg_send ~self ~cmd:(selector "setBackBarButtonItem:") ~typ:(id @-> returning void) x +let setBackButtonDisplayMode x self = msg_send ~self ~cmd:(selector "setBackButtonDisplayMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBackButtonTitle x self = msg_send ~self ~cmd:(selector "setBackButtonTitle:") ~typ:(id @-> returning void) x +let setCompactAppearance x self = msg_send ~self ~cmd:(selector "setCompactAppearance:") ~typ:(id @-> returning void) x +let setCompactScrollEdgeAppearance x self = msg_send ~self ~cmd:(selector "setCompactScrollEdgeAppearance:") ~typ:(id @-> returning void) x +let setContext x self = msg_send ~self ~cmd:(selector "setContext:") ~typ:(id @-> returning void) x +let setCustomLeftItem x self = msg_send ~self ~cmd:(selector "setCustomLeftItem:") ~typ:(id @-> returning void) x +let setCustomLeftItem' x ~animated self = msg_send ~self ~cmd:(selector "setCustomLeftItem:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setCustomLeftView x self = msg_send ~self ~cmd:(selector "setCustomLeftView:") ~typ:(id @-> returning void) x +let setCustomLeftView' x ~animated self = msg_send ~self ~cmd:(selector "setCustomLeftView:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setCustomRightItem x self = msg_send ~self ~cmd:(selector "setCustomRightItem:") ~typ:(id @-> returning void) x +let setCustomRightItem' x ~animated self = msg_send ~self ~cmd:(selector "setCustomRightItem:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setCustomRightView x self = msg_send ~self ~cmd:(selector "setCustomRightView:") ~typ:(id @-> returning void) x +let setCustomRightView' x ~animated self = msg_send ~self ~cmd:(selector "setCustomRightView:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setCustomTitleView x self = msg_send ~self ~cmd:(selector "setCustomTitleView:") ~typ:(id @-> returning void) x +let setHidesBackButton x self = msg_send ~self ~cmd:(selector "setHidesBackButton:") ~typ:(bool @-> returning void) x +let setHidesBackButton' x ~animated self = msg_send ~self ~cmd:(selector "setHidesBackButton:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setHidesSearchBarWhenScrolling x self = msg_send ~self ~cmd:(selector "setHidesSearchBarWhenScrolling:") ~typ:(bool @-> returning void) x +let setLargeTitleDisplayMode x self = msg_send ~self ~cmd:(selector "setLargeTitleDisplayMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setLargeTitleInsets x self = msg_send ~self ~cmd:(selector "setLargeTitleInsets:") ~typ:(NSDirectionalEdgeInsets.t @-> returning void) x +let setLeftBarButtonItem x self = msg_send ~self ~cmd:(selector "setLeftBarButtonItem:") ~typ:(id @-> returning void) x +let setLeftBarButtonItem' x ~animated self = msg_send ~self ~cmd:(selector "setLeftBarButtonItem:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setLeftBarButtonItems x self = msg_send ~self ~cmd:(selector "setLeftBarButtonItems:") ~typ:(id @-> returning void) x +let setLeftBarButtonItems' x ~animated self = msg_send ~self ~cmd:(selector "setLeftBarButtonItems:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setLeftItemsSupplementBackButton x self = msg_send ~self ~cmd:(selector "setLeftItemsSupplementBackButton:") ~typ:(bool @-> returning void) x +let setNavigationBar x self = msg_send ~self ~cmd:(selector "setNavigationBar:") ~typ:(id @-> returning void) x +let setObject x ~forLeftRightKeyPath ~animated self = msg_send ~self ~cmd:(selector "setObject:forLeftRightKeyPath:animated:") ~typ:(id @-> id @-> bool @-> returning void) x forLeftRightKeyPath animated +let setPrompt x self = msg_send ~self ~cmd:(selector "setPrompt:") ~typ:(id @-> returning void) x +let setRightBarButtonItem x self = msg_send ~self ~cmd:(selector "setRightBarButtonItem:") ~typ:(id @-> returning void) x +let setRightBarButtonItem' x ~animated self = msg_send ~self ~cmd:(selector "setRightBarButtonItem:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setRightBarButtonItems x self = msg_send ~self ~cmd:(selector "setRightBarButtonItems:") ~typ:(id @-> returning void) x +let setRightBarButtonItems' x ~animated self = msg_send ~self ~cmd:(selector "setRightBarButtonItems:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setScrollEdgeAppearance x self = msg_send ~self ~cmd:(selector "setScrollEdgeAppearance:") ~typ:(id @-> returning void) x +let setSearchController x self = msg_send ~self ~cmd:(selector "setSearchController:") ~typ:(id @-> returning void) x +let setStandardAppearance x self = msg_send ~self ~cmd:(selector "setStandardAppearance:") ~typ:(id @-> returning void) x +let setTag x self = msg_send ~self ~cmd:(selector "setTag:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let setTitleView x self = msg_send ~self ~cmd:(selector "setTitleView:") ~typ:(id @-> returning void) x +let setUseRelativeLargeTitleInsets x self = msg_send ~self ~cmd:(selector "setUseRelativeLargeTitleInsets:") ~typ:(bool @-> returning void) x +let standardAppearance self = msg_send ~self ~cmd:(selector "standardAppearance") ~typ:(returning id) +let tag self = msg_send ~self ~cmd:(selector "tag") ~typ:(returning llong) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let titleView self = msg_send ~self ~cmd:(selector "titleView") ~typ:(returning id) +let updateNavigationBarButtonsAnimated x self = msg_send ~self ~cmd:(selector "updateNavigationBarButtonsAnimated:") ~typ:(bool @-> returning void) x +let useRelativeLargeTitleInsets self = msg_send ~self ~cmd:(selector "useRelativeLargeTitleInsets") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UINavigationItemClass.ml b/uikit/UINavigationItemClass.ml new file mode 100644 index 00000000..1163034e --- /dev/null +++ b/uikit/UINavigationItemClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinavigationitem?language=objc}UINavigationItem} *) + +let defaultFont self = msg_send ~self ~cmd:(selector "defaultFont") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UINavigationTransitionView.ml b/uikit/UINavigationTransitionView.ml index 292f5466..daec36a2 100644 --- a/uikit/UINavigationTransitionView.ml +++ b/uikit/UINavigationTransitionView.ml @@ -5,24 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UINavigationTransitionView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinavigationtransitionview?language=objc}UINavigationTransitionView} *) -module C = struct - let defaultDurationForTransition x self = msg_send ~self ~cmd:(selector "defaultDurationForTransition:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -end +let self = get_class "UINavigationTransitionView" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let fromView self = msg_send ~self ~cmd:(selector "fromView") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isTransitioning self = msg_send ~self ~cmd:(selector "isTransitioning") ~typ:(returning (bool)) -let popoverWillCleanUpNavigationTransition self = msg_send ~self ~cmd:(selector "popoverWillCleanUpNavigationTransition") ~typ:(returning (bool)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setPopoverWillCleanUpNavigationTransition x self = msg_send ~self ~cmd:(selector "setPopoverWillCleanUpNavigationTransition:") ~typ:(bool @-> returning (void)) x -let setUsesRoundedCorners x self = msg_send ~self ~cmd:(selector "setUsesRoundedCorners:") ~typ:(bool @-> returning (void)) x -let transition x ~toView self = msg_send ~self ~cmd:(selector "transition:toView:") ~typ:(llong @-> id @-> returning (bool)) (LLong.of_int x) toView -let transition' x ~fromView ~toView self = msg_send ~self ~cmd:(selector "transition:fromView:toView:") ~typ:(llong @-> id @-> id @-> returning (bool)) (LLong.of_int x) fromView toView -let usesRoundedCorners self = msg_send ~self ~cmd:(selector "usesRoundedCorners") ~typ:(returning (bool)) \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let fromView self = msg_send ~self ~cmd:(selector "fromView") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isTransitioning self = msg_send ~self ~cmd:(selector "isTransitioning") ~typ:(returning bool) +let popoverWillCleanUpNavigationTransition self = msg_send ~self ~cmd:(selector "popoverWillCleanUpNavigationTransition") ~typ:(returning bool) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setPopoverWillCleanUpNavigationTransition x self = msg_send ~self ~cmd:(selector "setPopoverWillCleanUpNavigationTransition:") ~typ:(bool @-> returning void) x +let setUsesRoundedCorners x self = msg_send ~self ~cmd:(selector "setUsesRoundedCorners:") ~typ:(bool @-> returning void) x +let transition x ~toView self = msg_send ~self ~cmd:(selector "transition:toView:") ~typ:(llong @-> id @-> returning bool) (LLong.of_int x) toView +let transition' x ~fromView ~toView self = msg_send ~self ~cmd:(selector "transition:fromView:toView:") ~typ:(llong @-> id @-> id @-> returning bool) (LLong.of_int x) fromView toView +let usesRoundedCorners self = msg_send ~self ~cmd:(selector "usesRoundedCorners") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UINavigationTransitionViewClass.ml b/uikit/UINavigationTransitionViewClass.ml new file mode 100644 index 00000000..492fe5e3 --- /dev/null +++ b/uikit/UINavigationTransitionViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinavigationtransitionview?language=objc}UINavigationTransitionView} *) + +let defaultDurationForTransition x self = msg_send ~self ~cmd:(selector "defaultDurationForTransition:") ~typ:(llong @-> returning double) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UINib.ml b/uikit/UINib.ml index ef27e84f..72e1a886 100644 --- a/uikit/UINib.ml +++ b/uikit/UINib.ml @@ -5,33 +5,32 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UINib" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinib?language=objc}UINib} *) -module C = struct - let nibWithData x ~bundle self = msg_send ~self ~cmd:(selector "nibWithData:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle - let nibWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "nibWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -end +let self = get_class "UINib" -let bundleResourcePath self = msg_send ~self ~cmd:(selector "bundleResourcePath") ~typ:(returning (id)) -let captureEnclosingNIBBundleOnDecode self = msg_send ~self ~cmd:(selector "captureEnclosingNIBBundleOnDecode") ~typ:(returning (bool)) -let captureImplicitLoadingContextOnDecode self = msg_send ~self ~cmd:(selector "captureImplicitLoadingContextOnDecode") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didReceiveMemoryWarning x self = msg_send ~self ~cmd:(selector "didReceiveMemoryWarning:") ~typ:(id @-> returning (void)) x -let effectiveBundle self = msg_send ~self ~cmd:(selector "effectiveBundle") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let identifierForStringsFile self = msg_send ~self ~cmd:(selector "identifierForStringsFile") ~typ:(returning (id)) -let initWithBundle x self = msg_send ~self ~cmd:(selector "initWithBundle:") ~typ:(id @-> returning (id)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithContentsOfFile x self = msg_send ~self ~cmd:(selector "initWithContentsOfFile:") ~typ:(id @-> returning (id)) x -let initWithData x ~bundle self = msg_send ~self ~cmd:(selector "initWithData:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let initWithNibName x ~directory ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:directory:bundle:") ~typ:(id @-> id @-> id @-> returning (id)) x directory bundle -let instantiateWithOwner x ~options self = msg_send ~self ~cmd:(selector "instantiateWithOwner:options:") ~typ:(id @-> id @-> returning (id)) x options -let instantiatingForSimulator self = msg_send ~self ~cmd:(selector "instantiatingForSimulator") ~typ:(returning (bool)) -let lazyArchiveData self = msg_send ~self ~cmd:(selector "lazyArchiveData") ~typ:(returning (id)) -let nibDataForPath x self = msg_send ~self ~cmd:(selector "nibDataForPath:") ~typ:(id @-> returning (id)) x -let setCaptureEnclosingNIBBundleOnDecode x self = msg_send ~self ~cmd:(selector "setCaptureEnclosingNIBBundleOnDecode:") ~typ:(bool @-> returning (void)) x -let setCaptureImplicitLoadingContextOnDecode x self = msg_send ~self ~cmd:(selector "setCaptureImplicitLoadingContextOnDecode:") ~typ:(bool @-> returning (void)) x -let setIdentifierForStringsFile x self = msg_send ~self ~cmd:(selector "setIdentifierForStringsFile:") ~typ:(id @-> returning (void)) x -let setInstantiatingForSimulator x self = msg_send ~self ~cmd:(selector "setInstantiatingForSimulator:") ~typ:(bool @-> returning (void)) x -let unarchiverForInstantiatingReturningError x self = msg_send ~self ~cmd:(selector "unarchiverForInstantiatingReturningError:") ~typ:(ptr (id) @-> returning (id)) x \ No newline at end of file +let bundleResourcePath self = msg_send ~self ~cmd:(selector "bundleResourcePath") ~typ:(returning id) +let captureEnclosingNIBBundleOnDecode self = msg_send ~self ~cmd:(selector "captureEnclosingNIBBundleOnDecode") ~typ:(returning bool) +let captureImplicitLoadingContextOnDecode self = msg_send ~self ~cmd:(selector "captureImplicitLoadingContextOnDecode") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didReceiveMemoryWarning x self = msg_send ~self ~cmd:(selector "didReceiveMemoryWarning:") ~typ:(id @-> returning void) x +let effectiveBundle self = msg_send ~self ~cmd:(selector "effectiveBundle") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let identifierForStringsFile self = msg_send ~self ~cmd:(selector "identifierForStringsFile") ~typ:(returning id) +let initWithBundle x self = msg_send ~self ~cmd:(selector "initWithBundle:") ~typ:(id @-> returning id) x +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithContentsOfFile x self = msg_send ~self ~cmd:(selector "initWithContentsOfFile:") ~typ:(id @-> returning id) x +let initWithData x ~bundle self = msg_send ~self ~cmd:(selector "initWithData:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let initWithNibName x ~directory ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:directory:bundle:") ~typ:(id @-> id @-> id @-> returning id) x directory bundle +let instantiateWithOwner x ~options self = msg_send ~self ~cmd:(selector "instantiateWithOwner:options:") ~typ:(id @-> id @-> returning id) x options +let instantiatingForSimulator self = msg_send ~self ~cmd:(selector "instantiatingForSimulator") ~typ:(returning bool) +let lazyArchiveData self = msg_send ~self ~cmd:(selector "lazyArchiveData") ~typ:(returning id) +let nibDataForPath x self = msg_send ~self ~cmd:(selector "nibDataForPath:") ~typ:(id @-> returning id) x +let setCaptureEnclosingNIBBundleOnDecode x self = msg_send ~self ~cmd:(selector "setCaptureEnclosingNIBBundleOnDecode:") ~typ:(bool @-> returning void) x +let setCaptureImplicitLoadingContextOnDecode x self = msg_send ~self ~cmd:(selector "setCaptureImplicitLoadingContextOnDecode:") ~typ:(bool @-> returning void) x +let setIdentifierForStringsFile x self = msg_send ~self ~cmd:(selector "setIdentifierForStringsFile:") ~typ:(id @-> returning void) x +let setInstantiatingForSimulator x self = msg_send ~self ~cmd:(selector "setInstantiatingForSimulator:") ~typ:(bool @-> returning void) x +let unarchiverForInstantiatingReturningError x self = msg_send ~self ~cmd:(selector "unarchiverForInstantiatingReturningError:") ~typ:((ptr id) @-> returning id) x \ No newline at end of file diff --git a/uikit/UINibClass.ml b/uikit/UINibClass.ml new file mode 100644 index 00000000..8f081073 --- /dev/null +++ b/uikit/UINibClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinib?language=objc}UINib} *) + +let nibWithData x ~bundle self = msg_send ~self ~cmd:(selector "nibWithData:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let nibWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "nibWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle \ No newline at end of file diff --git a/uikit/UINibKeyValuePair.ml b/uikit/UINibKeyValuePair.ml index b8f68e2e..4749dc2d 100644 --- a/uikit/UINibKeyValuePair.ml +++ b/uikit/UINibKeyValuePair.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UINibKeyValuePair" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinibkeyvaluepair?language=objc}UINibKeyValuePair} *) -let apply self = msg_send ~self ~cmd:(selector "apply") ~typ:(returning (void)) -let applyForSimulator self = msg_send ~self ~cmd:(selector "applyForSimulator") ~typ:(returning (void)) -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 initWithObject x ~keyPath ~value self = msg_send ~self ~cmd:(selector "initWithObject:keyPath:value:") ~typ:(id @-> id @-> id @-> returning (id)) x keyPath value -let keyPath self = msg_send ~self ~cmd:(selector "keyPath") ~typ:(returning (id)) -let object_ self = msg_send ~self ~cmd:(selector "object") ~typ:(returning (id)) -let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UINibKeyValuePair" + +let apply self = msg_send ~self ~cmd:(selector "apply") ~typ:(returning void) +let applyForSimulator self = msg_send ~self ~cmd:(selector "applyForSimulator") ~typ:(returning void) +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 initWithObject x ~keyPath ~value self = msg_send ~self ~cmd:(selector "initWithObject:keyPath:value:") ~typ:(id @-> id @-> id @-> returning id) x keyPath value +let keyPath self = msg_send ~self ~cmd:(selector "keyPath") ~typ:(returning id) +let object_ self = msg_send ~self ~cmd:(selector "object") ~typ:(returning id) +let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UINibStorage.ml b/uikit/UINibStorage.ml index 170fdd38..983a19ce 100644 --- a/uikit/UINibStorage.ml +++ b/uikit/UINibStorage.ml @@ -5,22 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UINibStorage" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinibstorage?language=objc}UINibStorage} *) -let archiveData self = msg_send ~self ~cmd:(selector "archiveData") ~typ:(returning (id)) -let bundle self = msg_send ~self ~cmd:(selector "bundle") ~typ:(returning (id)) -let bundleDirectoryName self = msg_send ~self ~cmd:(selector "bundleDirectoryName") ~typ:(returning (id)) -let bundleResourceName self = msg_send ~self ~cmd:(selector "bundleResourceName") ~typ:(returning (id)) -let captureImplicitLoadingContextOnDecode self = msg_send ~self ~cmd:(selector "captureImplicitLoadingContextOnDecode") ~typ:(returning (bool)) -let identifierForStringsFile self = msg_send ~self ~cmd:(selector "identifierForStringsFile") ~typ:(returning (id)) -let instantiatingForSimulator self = msg_send ~self ~cmd:(selector "instantiatingForSimulator") ~typ:(returning (bool)) -let nibDecoder self = msg_send ~self ~cmd:(selector "nibDecoder") ~typ:(returning (id)) -let setArchiveData x self = msg_send ~self ~cmd:(selector "setArchiveData:") ~typ:(id @-> returning (void)) x -let setBundle x self = msg_send ~self ~cmd:(selector "setBundle:") ~typ:(id @-> returning (void)) x -let setBundleDirectoryName x self = msg_send ~self ~cmd:(selector "setBundleDirectoryName:") ~typ:(id @-> returning (void)) x -let setBundleResourceName x self = msg_send ~self ~cmd:(selector "setBundleResourceName:") ~typ:(id @-> returning (void)) x -let setCaptureImplicitLoadingContextOnDecode x self = msg_send ~self ~cmd:(selector "setCaptureImplicitLoadingContextOnDecode:") ~typ:(bool @-> returning (void)) x -let setIdentifierForStringsFile x self = msg_send ~self ~cmd:(selector "setIdentifierForStringsFile:") ~typ:(id @-> returning (void)) x -let setInstantiatingForSimulator x self = msg_send ~self ~cmd:(selector "setInstantiatingForSimulator:") ~typ:(bool @-> returning (void)) x -let setNibDecoder x self = msg_send ~self ~cmd:(selector "setNibDecoder:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UINibStorage" + +let archiveData self = msg_send ~self ~cmd:(selector "archiveData") ~typ:(returning id) +let bundle self = msg_send ~self ~cmd:(selector "bundle") ~typ:(returning id) +let bundleDirectoryName self = msg_send ~self ~cmd:(selector "bundleDirectoryName") ~typ:(returning id) +let bundleResourceName self = msg_send ~self ~cmd:(selector "bundleResourceName") ~typ:(returning id) +let captureImplicitLoadingContextOnDecode self = msg_send ~self ~cmd:(selector "captureImplicitLoadingContextOnDecode") ~typ:(returning bool) +let identifierForStringsFile self = msg_send ~self ~cmd:(selector "identifierForStringsFile") ~typ:(returning id) +let instantiatingForSimulator self = msg_send ~self ~cmd:(selector "instantiatingForSimulator") ~typ:(returning bool) +let nibDecoder self = msg_send ~self ~cmd:(selector "nibDecoder") ~typ:(returning id) +let setArchiveData x self = msg_send ~self ~cmd:(selector "setArchiveData:") ~typ:(id @-> returning void) x +let setBundle x self = msg_send ~self ~cmd:(selector "setBundle:") ~typ:(id @-> returning void) x +let setBundleDirectoryName x self = msg_send ~self ~cmd:(selector "setBundleDirectoryName:") ~typ:(id @-> returning void) x +let setBundleResourceName x self = msg_send ~self ~cmd:(selector "setBundleResourceName:") ~typ:(id @-> returning void) x +let setCaptureImplicitLoadingContextOnDecode x self = msg_send ~self ~cmd:(selector "setCaptureImplicitLoadingContextOnDecode:") ~typ:(bool @-> returning void) x +let setIdentifierForStringsFile x self = msg_send ~self ~cmd:(selector "setIdentifierForStringsFile:") ~typ:(id @-> returning void) x +let setInstantiatingForSimulator x self = msg_send ~self ~cmd:(selector "setInstantiatingForSimulator:") ~typ:(bool @-> returning void) x +let setNibDecoder x self = msg_send ~self ~cmd:(selector "setNibDecoder:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UINotificationSettingsAction.ml b/uikit/UINotificationSettingsAction.ml index 9bab8eeb..d4755bc6 100644 --- a/uikit/UINotificationSettingsAction.ml +++ b/uikit/UINotificationSettingsAction.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UINotificationSettingsAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinotificationsettingsaction?language=objc}UINotificationSettingsAction} *) -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let initWithNotification x self = msg_send ~self ~cmd:(selector "initWithNotification:") ~typ:(id @-> returning (id)) x -let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning (id)) x -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let notification self = msg_send ~self ~cmd:(selector "notification") ~typ:(returning (id)) -let valueDescriptionForFlag x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning (id)) (LLong.of_int x) object_ (ULLong.of_int ofSetting) \ No newline at end of file +let self = get_class "UINotificationSettingsAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let initWithNotification x self = msg_send ~self ~cmd:(selector "initWithNotification:") ~typ:(id @-> returning id) x +let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning id) x +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let notification self = msg_send ~self ~cmd:(selector "notification") ~typ:(returning id) +let valueDescriptionForFlag x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning id) (LLong.of_int x) object_ (ULLong.of_int ofSetting) \ No newline at end of file diff --git a/uikit/UIOffset.ml b/uikit/UIOffset.ml index 602b8bb3..ea3e549b 100644 --- a/uikit/UIOffset.ml +++ b/uikit/UIOffset.ml @@ -3,6 +3,9 @@ open Runtime open Objc +[@@@ocaml.warning "-33"] +open Foundation + let t : [`UIOffset] structure typ = structure "UIOffset" (** Apple docs: {{:https://developer.apple.com/documentation/uikit/uioffset?language=objc}UIOffset} *) @@ -11,5 +14,13 @@ let vertical = field t "vertical" double let () = seal t +let init + ~horizontal:horizontal_v + ~vertical:vertical_v + = + let t = make t in + setf t horizontal horizontal_v; + setf t vertical vertical_v; + t let horizontal t = getf t horizontal let vertical t = getf t vertical diff --git a/uikit/UIOpenURLContext.ml b/uikit/UIOpenURLContext.ml index 94536ef0..f670019c 100644 --- a/uikit/UIOpenURLContext.ml +++ b/uikit/UIOpenURLContext.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIOpenURLContext" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiopenurlcontext?language=objc}UIOpenURLContext} *) -let _URL self = msg_send ~self ~cmd:(selector "URL") ~typ:(returning (id)) -let _URLOptionsDictionary self = msg_send ~self ~cmd:(selector "URLOptionsDictionary") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithURL x ~options self = msg_send ~self ~cmd:(selector "initWithURL:options:") ~typ:(id @-> id @-> returning (id)) x options -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning (id)) -let optionsDictionary self = msg_send ~self ~cmd:(selector "optionsDictionary") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIOpenURLContext" + +let _URL self = msg_send ~self ~cmd:(selector "URL") ~typ:(returning id) +let _URLOptionsDictionary self = msg_send ~self ~cmd:(selector "URLOptionsDictionary") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithURL x ~options self = msg_send ~self ~cmd:(selector "initWithURL:options:") ~typ:(id @-> id @-> returning id) x options +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning id) +let optionsDictionary self = msg_send ~self ~cmd:(selector "optionsDictionary") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPPTRequestAction.ml b/uikit/UIPPTRequestAction.ml index 1b369b2b..b30c4204 100644 --- a/uikit/UIPPTRequestAction.ml +++ b/uikit/UIPPTRequestAction.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPPTRequestAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipptrequestaction?language=objc}UIPPTRequestAction} *) -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let initWithDesiredOrientation x self = msg_send ~self ~cmd:(selector "initWithDesiredOrientation:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let orientationRequested self = msg_send ~self ~cmd:(selector "orientationRequested") ~typ:(returning (llong)) -let shouldChangeOrientation self = msg_send ~self ~cmd:(selector "shouldChangeOrientation") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIPPTRequestAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let initWithDesiredOrientation x self = msg_send ~self ~cmd:(selector "initWithDesiredOrientation:") ~typ:(llong @-> returning id) (LLong.of_int x) +let orientationRequested self = msg_send ~self ~cmd:(selector "orientationRequested") ~typ:(returning llong) +let shouldChangeOrientation self = msg_send ~self ~cmd:(selector "shouldChangeOrientation") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIPageControl.ml b/uikit/UIPageControl.ml index 16397961..c9714b80 100644 --- a/uikit/UIPageControl.ml +++ b/uikit/UIPageControl.ml @@ -5,48 +5,48 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPageControl" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipagecontrol?language=objc}UIPageControl} *) -module C = struct - let doesOverrideMethod x ~inBaseClass self = msg_send ~self ~cmd:(selector "doesOverrideMethod:inBaseClass:") ~typ:(_SEL @-> _Class @-> returning (bool)) x inBaseClass -end +let self = get_class "UIPageControl" -let allowsContinuousInteraction self = msg_send ~self ~cmd:(selector "allowsContinuousInteraction") ~typ:(returning (bool)) -let backgroundStyle self = msg_send ~self ~cmd:(selector "backgroundStyle") ~typ:(returning (llong)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let currentPage self = msg_send ~self ~cmd:(selector "currentPage") ~typ:(returning (llong)) -let currentPageIndicatorTintColor self = msg_send ~self ~cmd:(selector "currentPageIndicatorTintColor") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defersCurrentPageDisplay self = msg_send ~self ~cmd:(selector "defersCurrentPageDisplay") ~typ:(returning (bool)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let hidesForSinglePage self = msg_send ~self ~cmd:(selector "hidesForSinglePage") ~typ:(returning (bool)) -let indicatorImageForPage x self = msg_send ~self ~cmd:(selector "indicatorImageForPage:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let interactionState self = msg_send ~self ~cmd:(selector "interactionState") ~typ:(returning (llong)) -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let numberOfPages self = msg_send ~self ~cmd:(selector "numberOfPages") ~typ:(returning (llong)) -let pageIndicatorTintColor self = msg_send ~self ~cmd:(selector "pageIndicatorTintColor") ~typ:(returning (id)) -let preferredIndicatorImage self = msg_send ~self ~cmd:(selector "preferredIndicatorImage") ~typ:(returning (id)) -let previousPage self = msg_send ~self ~cmd:(selector "previousPage") ~typ:(returning (llong)) -let setAllowsContinuousInteraction x self = msg_send ~self ~cmd:(selector "setAllowsContinuousInteraction:") ~typ:(bool @-> returning (void)) x -let setBackgroundStyle x self = msg_send ~self ~cmd:(selector "setBackgroundStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCurrentPage x self = msg_send ~self ~cmd:(selector "setCurrentPage:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCurrentPageIndicatorTintColor x self = msg_send ~self ~cmd:(selector "setCurrentPageIndicatorTintColor:") ~typ:(id @-> returning (void)) x -let setDefersCurrentPageDisplay x self = msg_send ~self ~cmd:(selector "setDefersCurrentPageDisplay:") ~typ:(bool @-> returning (void)) x -let setHidesForSinglePage x self = msg_send ~self ~cmd:(selector "setHidesForSinglePage:") ~typ:(bool @-> returning (void)) x -let setIndicatorImage x ~forPage self = msg_send ~self ~cmd:(selector "setIndicatorImage:forPage:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forPage) -let setNumberOfPages x self = msg_send ~self ~cmd:(selector "setNumberOfPages:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPageIndicatorTintColor x self = msg_send ~self ~cmd:(selector "setPageIndicatorTintColor:") ~typ:(id @-> returning (void)) x -let setPreferredIndicatorImage x self = msg_send ~self ~cmd:(selector "setPreferredIndicatorImage:") ~typ:(id @-> returning (void)) x -let setPreviousPage x self = msg_send ~self ~cmd:(selector "setPreviousPage:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let shouldTrack self = msg_send ~self ~cmd:(selector "shouldTrack") ~typ:(returning (bool)) -let sizeForNumberOfPages x self = msg_send_stret ~self ~cmd:(selector "sizeForNumberOfPages:") ~typ:(llong @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let updateCurrentPageDisplay self = msg_send ~self ~cmd:(selector "updateCurrentPageDisplay") ~typ:(returning (void)) \ No newline at end of file +let allowsContinuousInteraction self = msg_send ~self ~cmd:(selector "allowsContinuousInteraction") ~typ:(returning bool) +let backgroundStyle self = msg_send ~self ~cmd:(selector "backgroundStyle") ~typ:(returning llong) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let currentPage self = msg_send ~self ~cmd:(selector "currentPage") ~typ:(returning llong) +let currentPageIndicatorTintColor self = msg_send ~self ~cmd:(selector "currentPageIndicatorTintColor") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defersCurrentPageDisplay self = msg_send ~self ~cmd:(selector "defersCurrentPageDisplay") ~typ:(returning bool) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let hidesForSinglePage self = msg_send ~self ~cmd:(selector "hidesForSinglePage") ~typ:(returning bool) +let indicatorImageForPage x self = msg_send ~self ~cmd:(selector "indicatorImageForPage:") ~typ:(llong @-> returning id) (LLong.of_int x) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let interactionState self = msg_send ~self ~cmd:(selector "interactionState") ~typ:(returning llong) +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let numberOfPages self = msg_send ~self ~cmd:(selector "numberOfPages") ~typ:(returning llong) +let pageIndicatorTintColor self = msg_send ~self ~cmd:(selector "pageIndicatorTintColor") ~typ:(returning id) +let preferredIndicatorImage self = msg_send ~self ~cmd:(selector "preferredIndicatorImage") ~typ:(returning id) +let previousPage self = msg_send ~self ~cmd:(selector "previousPage") ~typ:(returning llong) +let setAllowsContinuousInteraction x self = msg_send ~self ~cmd:(selector "setAllowsContinuousInteraction:") ~typ:(bool @-> returning void) x +let setBackgroundStyle x self = msg_send ~self ~cmd:(selector "setBackgroundStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCurrentPage x self = msg_send ~self ~cmd:(selector "setCurrentPage:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCurrentPageIndicatorTintColor x self = msg_send ~self ~cmd:(selector "setCurrentPageIndicatorTintColor:") ~typ:(id @-> returning void) x +let setDefersCurrentPageDisplay x self = msg_send ~self ~cmd:(selector "setDefersCurrentPageDisplay:") ~typ:(bool @-> returning void) x +let setHidesForSinglePage x self = msg_send ~self ~cmd:(selector "setHidesForSinglePage:") ~typ:(bool @-> returning void) x +let setIndicatorImage x ~forPage self = msg_send ~self ~cmd:(selector "setIndicatorImage:forPage:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forPage) +let setNumberOfPages x self = msg_send ~self ~cmd:(selector "setNumberOfPages:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPageIndicatorTintColor x self = msg_send ~self ~cmd:(selector "setPageIndicatorTintColor:") ~typ:(id @-> returning void) x +let setPreferredIndicatorImage x self = msg_send ~self ~cmd:(selector "setPreferredIndicatorImage:") ~typ:(id @-> returning void) x +let setPreviousPage x self = msg_send ~self ~cmd:(selector "setPreviousPage:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let shouldTrack self = msg_send ~self ~cmd:(selector "shouldTrack") ~typ:(returning bool) +let sizeForNumberOfPages x self = msg_send ~self ~cmd:(selector "sizeForNumberOfPages:") ~typ:(llong @-> returning CGSize.t) (LLong.of_int x) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let updateCurrentPageDisplay self = msg_send ~self ~cmd:(selector "updateCurrentPageDisplay") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIPageControlClass.ml b/uikit/UIPageControlClass.ml new file mode 100644 index 00000000..2b5db8a5 --- /dev/null +++ b/uikit/UIPageControlClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipagecontrol?language=objc}UIPageControl} *) + +let doesOverrideMethod x ~inBaseClass self = msg_send ~self ~cmd:(selector "doesOverrideMethod:inBaseClass:") ~typ:(_SEL @-> _Class @-> returning bool) x inBaseClass \ No newline at end of file diff --git a/uikit/UIPageController.ml b/uikit/UIPageController.ml index 4464b850..5bcb1ec2 100644 --- a/uikit/UIPageController.ml +++ b/uikit/UIPageController.ml @@ -5,39 +5,43 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPageController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipagecontroller?language=objc}UIPageController} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didAnimateFirstHalfOfRotationToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didAnimateFirstHalfOfRotationToInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let displaysPageControl self = msg_send ~self ~cmd:(selector "displaysPageControl") ~typ:(returning (bool)) -let indexOfViewController x self = msg_send ~self ~cmd:(selector "indexOfViewController:") ~typ:(id @-> returning (llong)) x -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let pageCount self = msg_send ~self ~cmd:(selector "pageCount") ~typ:(returning (llong)) -let pageSpacing self = msg_send ~self ~cmd:(selector "pageSpacing") ~typ:(returning (double)) -let reloadViewControllerAtIndex x self = msg_send ~self ~cmd:(selector "reloadViewControllerAtIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let rotatingFooterView self = msg_send ~self ~cmd:(selector "rotatingFooterView") ~typ:(returning (id)) -let rotatingHeaderView self = msg_send ~self ~cmd:(selector "rotatingHeaderView") ~typ:(returning (id)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDisplaysPageControl x self = msg_send ~self ~cmd:(selector "setDisplaysPageControl:") ~typ:(bool @-> returning (void)) x -let setPageCount x self = msg_send ~self ~cmd:(selector "setPageCount:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPageSpacing x self = msg_send ~self ~cmd:(selector "setPageSpacing:") ~typ:(double @-> returning (void)) x -let setVisibleIndex x self = msg_send ~self ~cmd:(selector "setVisibleIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setVisibleIndex1 x ~animated self = msg_send ~self ~cmd:(selector "setVisibleIndex:animated:") ~typ:(llong @-> bool @-> returning (void)) (LLong.of_int x) animated -let setVisibleIndex2 x ~preservingLoadedViewControllers ~animated self = msg_send ~self ~cmd:(selector "setVisibleIndex:preservingLoadedViewControllers:animated:") ~typ:(llong @-> bool @-> bool @-> returning (void)) (LLong.of_int x) preservingLoadedViewControllers animated -let setWraps x self = msg_send ~self ~cmd:(selector "setWraps:") ~typ:(bool @-> returning (void)) x -let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewDidUnload self = msg_send ~self ~cmd:(selector "viewDidUnload") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let visibleIndex self = msg_send ~self ~cmd:(selector "visibleIndex") ~typ:(returning (llong)) -let visibleViewController self = msg_send ~self ~cmd:(selector "visibleViewController") ~typ:(returning (id)) -let willAnimateFirstHalfOfRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateFirstHalfOfRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willAnimateSecondHalfOfRotationFromInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateSecondHalfOfRotationFromInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let wraps self = msg_send ~self ~cmd:(selector "wraps") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIPageController" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didAnimateFirstHalfOfRotationToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didAnimateFirstHalfOfRotationToInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let displaysPageControl self = msg_send ~self ~cmd:(selector "displaysPageControl") ~typ:(returning bool) +let indexOfViewController x self = msg_send ~self ~cmd:(selector "indexOfViewController:") ~typ:(id @-> returning llong) x +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let pageCount self = msg_send ~self ~cmd:(selector "pageCount") ~typ:(returning llong) +let pageSpacing self = msg_send ~self ~cmd:(selector "pageSpacing") ~typ:(returning double) +let reloadViewControllerAtIndex x self = msg_send ~self ~cmd:(selector "reloadViewControllerAtIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let rotatingFooterView self = msg_send ~self ~cmd:(selector "rotatingFooterView") ~typ:(returning id) +let rotatingHeaderView self = msg_send ~self ~cmd:(selector "rotatingHeaderView") ~typ:(returning id) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDisplaysPageControl x self = msg_send ~self ~cmd:(selector "setDisplaysPageControl:") ~typ:(bool @-> returning void) x +let setPageCount x self = msg_send ~self ~cmd:(selector "setPageCount:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPageSpacing x self = msg_send ~self ~cmd:(selector "setPageSpacing:") ~typ:(double @-> returning void) x +let setVisibleIndex x self = msg_send ~self ~cmd:(selector "setVisibleIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setVisibleIndex1 x ~animated self = msg_send ~self ~cmd:(selector "setVisibleIndex:animated:") ~typ:(llong @-> bool @-> returning void) (LLong.of_int x) animated +let setVisibleIndex2 x ~preservingLoadedViewControllers ~animated self = msg_send ~self ~cmd:(selector "setVisibleIndex:preservingLoadedViewControllers:animated:") ~typ:(llong @-> bool @-> bool @-> returning void) (LLong.of_int x) preservingLoadedViewControllers animated +let setWraps x self = msg_send ~self ~cmd:(selector "setWraps:") ~typ:(bool @-> returning void) x +let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewDidUnload self = msg_send ~self ~cmd:(selector "viewDidUnload") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let visibleIndex self = msg_send ~self ~cmd:(selector "visibleIndex") ~typ:(returning llong) +let visibleViewController self = msg_send ~self ~cmd:(selector "visibleViewController") ~typ:(returning id) +let willAnimateFirstHalfOfRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateFirstHalfOfRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willAnimateSecondHalfOfRotationFromInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateSecondHalfOfRotationFromInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let wraps self = msg_send ~self ~cmd:(selector "wraps") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIPageControllerScrollView.ml b/uikit/UIPageControllerScrollView.ml index 7b6ec19e..85f62a7c 100644 --- a/uikit/UIPageControllerScrollView.ml +++ b/uikit/UIPageControllerScrollView.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPageControllerScrollView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipagecontrollerscrollview?language=objc}UIPageControllerScrollView} *) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let pageController self = msg_send ~self ~cmd:(selector "pageController") ~typ:(returning (id)) -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setPageController x self = msg_send ~self ~cmd:(selector "setPageController:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIPageControllerScrollView" + +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let pageController self = msg_send ~self ~cmd:(selector "pageController") ~typ:(returning id) +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setPageController x self = msg_send ~self ~cmd:(selector "setPageController:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPageViewController.ml b/uikit/UIPageViewController.ml index ae6bfc53..0e610033 100644 --- a/uikit/UIPageViewController.ml +++ b/uikit/UIPageViewController.ml @@ -5,53 +5,52 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPageViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipageviewcontroller?language=objc}UIPageViewController} *) -module C = struct - let doesOverridePreferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "doesOverridePreferredInterfaceOrientationForPresentation") ~typ:(returning (bool)) - let stringForSpineLocation x self = msg_send ~self ~cmd:(selector "stringForSpineLocation:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -end +let self = get_class "UIPageViewController" -let dataSource self = msg_send ~self ~cmd:(selector "dataSource") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let gestureRecognizers self = msg_send ~self ~cmd:(selector "gestureRecognizers") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let initWithTransitionStyle x ~navigationOrientation ~options self = msg_send ~self ~cmd:(selector "initWithTransitionStyle:navigationOrientation:options:") ~typ:(llong @-> llong @-> id @-> returning (id)) (LLong.of_int x) (LLong.of_int navigationOrientation) options -let isDoubleSided self = msg_send ~self ~cmd:(selector "isDoubleSided") ~typ:(returning (bool)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let navigationOrientation self = msg_send ~self ~cmd:(selector "navigationOrientation") ~typ:(returning (llong)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let preferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "preferredInterfaceOrientationForPresentation") ~typ:(returning (llong)) -let queuingScrollView x ~attemptToPageInDirection self = msg_send ~self ~cmd:(selector "queuingScrollView:attemptToPageInDirection:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int attemptToPageInDirection) -let queuingScrollView1 x ~didBailoutOfScrollAndRevealedView self = msg_send ~self ~cmd:(selector "queuingScrollView:didBailoutOfScrollAndRevealedView:") ~typ:(id @-> id @-> returning (void)) x didBailoutOfScrollAndRevealedView -let queuingScrollView2 x ~viewAfterView self = msg_send ~self ~cmd:(selector "queuingScrollView:viewAfterView:") ~typ:(id @-> id @-> returning (id)) x viewAfterView -let queuingScrollView3 x ~viewBeforeView self = msg_send ~self ~cmd:(selector "queuingScrollView:viewBeforeView:") ~typ:(id @-> id @-> returning (id)) x viewBeforeView -let queuingScrollView4 x ~didFlushView ~animated self = msg_send ~self ~cmd:(selector "queuingScrollView:didFlushView:animated:") ~typ:(id @-> id @-> bool @-> returning (void)) x didFlushView animated -let queuingScrollView5 x ~willManuallyScroll ~toRevealView ~concealView ~animated self = msg_send ~self ~cmd:(selector "queuingScrollView:willManuallyScroll:toRevealView:concealView:animated:") ~typ:(id @-> bool @-> id @-> id @-> bool @-> returning (void)) x willManuallyScroll toRevealView concealView animated -let queuingScrollView6 x ~didCommitManualScroll ~toRevealView ~concealView ~direction ~animated ~canComplete self = msg_send ~self ~cmd:(selector "queuingScrollView:didCommitManualScroll:toRevealView:concealView:direction:animated:canComplete:") ~typ:(id @-> bool @-> id @-> id @-> llong @-> bool @-> bool @-> returning (void)) x didCommitManualScroll toRevealView concealView (LLong.of_int direction) animated canComplete -let queuingScrollView7 x ~didEndManualScroll ~toRevealView ~direction ~animated ~didFinish ~didComplete self = msg_send ~self ~cmd:(selector "queuingScrollView:didEndManualScroll:toRevealView:direction:animated:didFinish:didComplete:") ~typ:(id @-> bool @-> id @-> llong @-> bool @-> bool @-> bool @-> returning (void)) x didEndManualScroll toRevealView (LLong.of_int direction) animated didFinish didComplete -let queuingScrollViewDidFinishScrolling x self = msg_send ~self ~cmd:(selector "queuingScrollViewDidFinishScrolling:") ~typ:(id @-> returning (void)) x -let queuingScrollViewShouldLayoutSubviews x self = msg_send ~self ~cmd:(selector "queuingScrollViewShouldLayoutSubviews:") ~typ:(id @-> returning (bool)) x -let setDataSource x self = msg_send ~self ~cmd:(selector "setDataSource:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDoubleSided x self = msg_send ~self ~cmd:(selector "setDoubleSided:") ~typ:(bool @-> returning (void)) x -let setViewControllers x ~direction ~animated ~completion self = msg_send ~self ~cmd:(selector "setViewControllers:direction:animated:completion:") ~typ:(id @-> llong @-> bool @-> ptr void @-> returning (void)) x (LLong.of_int direction) animated completion -let shouldAutomaticallyForwardAppearanceMethods self = msg_send ~self ~cmd:(selector "shouldAutomaticallyForwardAppearanceMethods") ~typ:(returning (bool)) -let shouldAutomaticallyForwardRotationMethods self = msg_send ~self ~cmd:(selector "shouldAutomaticallyForwardRotationMethods") ~typ:(returning (bool)) -let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let spineLocation self = msg_send ~self ~cmd:(selector "spineLocation") ~typ:(returning (llong)) -let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning (ullong)) -let transitionStyle self = msg_send ~self ~cmd:(selector "transitionStyle") ~typ:(returning (llong)) -let viewControllers self = msg_send ~self ~cmd:(selector "viewControllers") ~typ:(returning (id)) -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillUnload self = msg_send ~self ~cmd:(selector "viewWillUnload") ~typ:(returning (void)) -let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration \ No newline at end of file +let dataSource self = msg_send ~self ~cmd:(selector "dataSource") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let gestureRecognizers self = msg_send ~self ~cmd:(selector "gestureRecognizers") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let initWithTransitionStyle x ~navigationOrientation ~options self = msg_send ~self ~cmd:(selector "initWithTransitionStyle:navigationOrientation:options:") ~typ:(llong @-> llong @-> id @-> returning id) (LLong.of_int x) (LLong.of_int navigationOrientation) options +let isDoubleSided self = msg_send ~self ~cmd:(selector "isDoubleSided") ~typ:(returning bool) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let navigationOrientation self = msg_send ~self ~cmd:(selector "navigationOrientation") ~typ:(returning llong) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let preferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "preferredInterfaceOrientationForPresentation") ~typ:(returning llong) +let queuingScrollView x ~attemptToPageInDirection self = msg_send ~self ~cmd:(selector "queuingScrollView:attemptToPageInDirection:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int attemptToPageInDirection) +let queuingScrollView1 x ~didBailoutOfScrollAndRevealedView self = msg_send ~self ~cmd:(selector "queuingScrollView:didBailoutOfScrollAndRevealedView:") ~typ:(id @-> id @-> returning void) x didBailoutOfScrollAndRevealedView +let queuingScrollView2 x ~viewAfterView self = msg_send ~self ~cmd:(selector "queuingScrollView:viewAfterView:") ~typ:(id @-> id @-> returning id) x viewAfterView +let queuingScrollView3 x ~viewBeforeView self = msg_send ~self ~cmd:(selector "queuingScrollView:viewBeforeView:") ~typ:(id @-> id @-> returning id) x viewBeforeView +let queuingScrollView4 x ~didFlushView ~animated self = msg_send ~self ~cmd:(selector "queuingScrollView:didFlushView:animated:") ~typ:(id @-> id @-> bool @-> returning void) x didFlushView animated +let queuingScrollView5 x ~willManuallyScroll ~toRevealView ~concealView ~animated self = msg_send ~self ~cmd:(selector "queuingScrollView:willManuallyScroll:toRevealView:concealView:animated:") ~typ:(id @-> bool @-> id @-> id @-> bool @-> returning void) x willManuallyScroll toRevealView concealView animated +let queuingScrollView6 x ~didCommitManualScroll ~toRevealView ~concealView ~direction ~animated ~canComplete self = msg_send ~self ~cmd:(selector "queuingScrollView:didCommitManualScroll:toRevealView:concealView:direction:animated:canComplete:") ~typ:(id @-> bool @-> id @-> id @-> llong @-> bool @-> bool @-> returning void) x didCommitManualScroll toRevealView concealView (LLong.of_int direction) animated canComplete +let queuingScrollView7 x ~didEndManualScroll ~toRevealView ~direction ~animated ~didFinish ~didComplete self = msg_send ~self ~cmd:(selector "queuingScrollView:didEndManualScroll:toRevealView:direction:animated:didFinish:didComplete:") ~typ:(id @-> bool @-> id @-> llong @-> bool @-> bool @-> bool @-> returning void) x didEndManualScroll toRevealView (LLong.of_int direction) animated didFinish didComplete +let queuingScrollViewDidFinishScrolling x self = msg_send ~self ~cmd:(selector "queuingScrollViewDidFinishScrolling:") ~typ:(id @-> returning void) x +let queuingScrollViewShouldLayoutSubviews x self = msg_send ~self ~cmd:(selector "queuingScrollViewShouldLayoutSubviews:") ~typ:(id @-> returning bool) x +let setDataSource x self = msg_send ~self ~cmd:(selector "setDataSource:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDoubleSided x self = msg_send ~self ~cmd:(selector "setDoubleSided:") ~typ:(bool @-> returning void) x +let setViewControllers x ~direction ~animated ~completion self = msg_send ~self ~cmd:(selector "setViewControllers:direction:animated:completion:") ~typ:(id @-> llong @-> bool @-> (ptr void) @-> returning void) x (LLong.of_int direction) animated completion +let shouldAutomaticallyForwardAppearanceMethods self = msg_send ~self ~cmd:(selector "shouldAutomaticallyForwardAppearanceMethods") ~typ:(returning bool) +let shouldAutomaticallyForwardRotationMethods self = msg_send ~self ~cmd:(selector "shouldAutomaticallyForwardRotationMethods") ~typ:(returning bool) +let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let spineLocation self = msg_send ~self ~cmd:(selector "spineLocation") ~typ:(returning llong) +let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning ullong) +let transitionStyle self = msg_send ~self ~cmd:(selector "transitionStyle") ~typ:(returning llong) +let viewControllers self = msg_send ~self ~cmd:(selector "viewControllers") ~typ:(returning id) +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let viewWillUnload self = msg_send ~self ~cmd:(selector "viewWillUnload") ~typ:(returning void) +let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration \ No newline at end of file diff --git a/uikit/UIPageViewControllerClass.ml b/uikit/UIPageViewControllerClass.ml new file mode 100644 index 00000000..f6455d84 --- /dev/null +++ b/uikit/UIPageViewControllerClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipageviewcontroller?language=objc}UIPageViewController} *) + +let doesOverridePreferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "doesOverridePreferredInterfaceOrientationForPresentation") ~typ:(returning bool) +let stringForSpineLocation x self = msg_send ~self ~cmd:(selector "stringForSpineLocation:") ~typ:(llong @-> returning id) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIPanGestureRecognizer.ml b/uikit/UIPanGestureRecognizer.ml index 7606c142..19f1de45 100644 --- a/uikit/UIPanGestureRecognizer.ml +++ b/uikit/UIPanGestureRecognizer.ml @@ -5,38 +5,38 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPanGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipangesturerecognizer?language=objc}UIPanGestureRecognizer} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIPanGestureRecognizer" -let allowedScrollTypesMask self = msg_send ~self ~cmd:(selector "allowedScrollTypesMask") ~typ:(returning (llong)) -let clearMultitouchTimer self = msg_send ~self ~cmd:(selector "clearMultitouchTimer") ~typ:(returning (void)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let failsPastMaxTouches self = msg_send ~self ~cmd:(selector "failsPastMaxTouches") ~typ:(returning (bool)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let isIOSMacScrollingEnabled self = msg_send ~self ~cmd:(selector "isIOSMacScrollingEnabled") ~typ:(returning (bool)) -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let locationOfTouch x ~inView self = msg_send_stret ~self ~cmd:(selector "locationOfTouch:inView:") ~typ:(ullong @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t (ULLong.of_int x) inView -let maximumNumberOfTouches self = msg_send ~self ~cmd:(selector "maximumNumberOfTouches") ~typ:(returning (ullong)) -let minimumNumberOfTouches self = msg_send ~self ~cmd:(selector "minimumNumberOfTouches") ~typ:(returning (ullong)) -let multitouchExpired x self = msg_send ~self ~cmd:(selector "multitouchExpired:") ~typ:(id @-> returning (void)) x -let numberOfTouches self = msg_send ~self ~cmd:(selector "numberOfTouches") ~typ:(returning (ullong)) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let setAllowedScrollTypesMask x self = msg_send ~self ~cmd:(selector "setAllowedScrollTypesMask:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setFailsPastMaxTouches x self = msg_send ~self ~cmd:(selector "setFailsPastMaxTouches:") ~typ:(bool @-> returning (void)) x -let setMaximumNumberOfTouches x self = msg_send ~self ~cmd:(selector "setMaximumNumberOfTouches:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setMinimumNumberOfTouches x self = msg_send ~self ~cmd:(selector "setMinimumNumberOfTouches:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setTranslation x ~inView self = msg_send ~self ~cmd:(selector "setTranslation:inView:") ~typ:(CGPoint.t @-> id @-> returning (void)) x inView -let shouldReceiveEvent x self = msg_send ~self ~cmd:(selector "shouldReceiveEvent:") ~typ:(id @-> returning (bool)) x -let startMultitouchTimer x self = msg_send ~self ~cmd:(selector "startMultitouchTimer:") ~typ:(double @-> returning (void)) x -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let translationInView x self = msg_send_stret ~self ~cmd:(selector "translationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let velocityInView x self = msg_send_stret ~self ~cmd:(selector "velocityInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x \ No newline at end of file +let allowedScrollTypesMask self = msg_send ~self ~cmd:(selector "allowedScrollTypesMask") ~typ:(returning llong) +let clearMultitouchTimer self = msg_send ~self ~cmd:(selector "clearMultitouchTimer") ~typ:(returning void) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let failsPastMaxTouches self = msg_send ~self ~cmd:(selector "failsPastMaxTouches") ~typ:(returning bool) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let isIOSMacScrollingEnabled self = msg_send ~self ~cmd:(selector "isIOSMacScrollingEnabled") ~typ:(returning bool) +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let locationOfTouch x ~inView self = msg_send ~self ~cmd:(selector "locationOfTouch:inView:") ~typ:(ullong @-> id @-> returning CGPoint.t) (ULLong.of_int x) inView +let maximumNumberOfTouches self = msg_send ~self ~cmd:(selector "maximumNumberOfTouches") ~typ:(returning ullong) +let minimumNumberOfTouches self = msg_send ~self ~cmd:(selector "minimumNumberOfTouches") ~typ:(returning ullong) +let multitouchExpired x self = msg_send ~self ~cmd:(selector "multitouchExpired:") ~typ:(id @-> returning void) x +let numberOfTouches self = msg_send ~self ~cmd:(selector "numberOfTouches") ~typ:(returning ullong) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let setAllowedScrollTypesMask x self = msg_send ~self ~cmd:(selector "setAllowedScrollTypesMask:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setFailsPastMaxTouches x self = msg_send ~self ~cmd:(selector "setFailsPastMaxTouches:") ~typ:(bool @-> returning void) x +let setMaximumNumberOfTouches x self = msg_send ~self ~cmd:(selector "setMaximumNumberOfTouches:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setMinimumNumberOfTouches x self = msg_send ~self ~cmd:(selector "setMinimumNumberOfTouches:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setTranslation x ~inView self = msg_send ~self ~cmd:(selector "setTranslation:inView:") ~typ:(CGPoint.t @-> id @-> returning void) x inView +let shouldReceiveEvent x self = msg_send ~self ~cmd:(selector "shouldReceiveEvent:") ~typ:(id @-> returning bool) x +let startMultitouchTimer x self = msg_send ~self ~cmd:(selector "startMultitouchTimer:") ~typ:(double @-> returning void) x +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let translationInView x self = msg_send ~self ~cmd:(selector "translationInView:") ~typ:(id @-> returning CGPoint.t) x +let velocityInView x self = msg_send ~self ~cmd:(selector "velocityInView:") ~typ:(id @-> returning CGPoint.t) x \ No newline at end of file diff --git a/uikit/UIPanGestureRecognizerClass.ml b/uikit/UIPanGestureRecognizerClass.ml new file mode 100644 index 00000000..b4b1667b --- /dev/null +++ b/uikit/UIPanGestureRecognizerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipangesturerecognizer?language=objc}UIPanGestureRecognizer} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIPanelBorderView.ml b/uikit/UIPanelBorderView.ml index 4cbfa90a..34ea6ed2 100644 --- a/uikit/UIPanelBorderView.ml +++ b/uikit/UIPanelBorderView.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPanelBorderView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipanelborderview?language=objc}UIPanelBorderView} *) -let backdropGroupName self = msg_send ~self ~cmd:(selector "backdropGroupName") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isDraggable self = msg_send ~self ~cmd:(selector "isDraggable") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let observesTime self = msg_send ~self ~cmd:(selector "observesTime") ~typ:(returning (bool)) -let replicatingView self = msg_send ~self ~cmd:(selector "replicatingView") ~typ:(returning (id)) -let setBackdropGroupName x self = msg_send ~self ~cmd:(selector "setBackdropGroupName:") ~typ:(id @-> returning (void)) x -let setDraggable x self = msg_send ~self ~cmd:(selector "setDraggable:") ~typ:(bool @-> returning (void)) x -let setObservesTime x self = msg_send ~self ~cmd:(selector "setObservesTime:") ~typ:(bool @-> returning (void)) x -let setReplicatingView x self = msg_send ~self ~cmd:(selector "setReplicatingView:") ~typ:(id @-> returning (void)) x -let setStatusBarAvoidance x self = msg_send ~self ~cmd:(selector "setStatusBarAvoidance:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let statusBarAvoidance self = msg_send ~self ~cmd:(selector "statusBarAvoidance") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIPanelBorderView" + +let backdropGroupName self = msg_send ~self ~cmd:(selector "backdropGroupName") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isDraggable self = msg_send ~self ~cmd:(selector "isDraggable") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let observesTime self = msg_send ~self ~cmd:(selector "observesTime") ~typ:(returning bool) +let replicatingView self = msg_send ~self ~cmd:(selector "replicatingView") ~typ:(returning id) +let setBackdropGroupName x self = msg_send ~self ~cmd:(selector "setBackdropGroupName:") ~typ:(id @-> returning void) x +let setDraggable x self = msg_send ~self ~cmd:(selector "setDraggable:") ~typ:(bool @-> returning void) x +let setObservesTime x self = msg_send ~self ~cmd:(selector "setObservesTime:") ~typ:(bool @-> returning void) x +let setReplicatingView x self = msg_send ~self ~cmd:(selector "setReplicatingView:") ~typ:(id @-> returning void) x +let setStatusBarAvoidance x self = msg_send ~self ~cmd:(selector "setStatusBarAvoidance:") ~typ:(llong @-> returning void) (LLong.of_int x) +let statusBarAvoidance self = msg_send ~self ~cmd:(selector "statusBarAvoidance") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIPanelController.ml b/uikit/UIPanelController.ml index 19cc5ff6..49350442 100644 --- a/uikit/UIPanelController.ml +++ b/uikit/UIPanelController.ml @@ -5,93 +5,98 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPanelController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipanelcontroller?language=objc}UIPanelController} *) -let addWrapperBlockForNextUpdate x self = msg_send ~self ~cmd:(selector "addWrapperBlockForNextUpdate:") ~typ:(ptr void @-> returning (void)) x -let allViewControllers self = msg_send ~self ~cmd:(selector "allViewControllers") ~typ:(returning (id)) -let animateToRequest x self = msg_send ~self ~cmd:(selector "animateToRequest:") ~typ:(id @-> returning (void)) x -let animateToRequest1 x ~forceOverlay self = msg_send ~self ~cmd:(selector "animateToRequest:forceOverlay:") ~typ:(id @-> bool @-> returning (void)) x forceOverlay -let animateToRequest2 x ~forceOverlay ~withVelocity self = msg_send ~self ~cmd:(selector "animateToRequest:forceOverlay:withVelocity:") ~typ:(id @-> bool @-> double @-> returning (void)) x forceOverlay withVelocity -let animationRequestShouldCoordinate self = msg_send ~self ~cmd:(selector "animationRequestShouldCoordinate") ~typ:(returning (bool)) -let areClippingViewsUnnecessary self = msg_send ~self ~cmd:(selector "areClippingViewsUnnecessary") ~typ:(returning (bool)) -let collapsedState self = msg_send ~self ~cmd:(selector "collapsedState") ~typ:(returning (llong)) -let collapsedViewController self = msg_send ~self ~cmd:(selector "collapsedViewController") ~typ:(returning (id)) -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) -let currentState self = msg_send ~self ~cmd:(selector "currentState") ~typ:(returning (id)) -let cursorInteraction x ~cursorForGestureRecognizerState self = msg_send ~self ~cmd:(selector "cursorInteraction:cursorForGestureRecognizerState:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int cursorForGestureRecognizerState) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let dimmingView self = msg_send ~self ~cmd:(selector "dimmingView") ~typ:(returning (id)) -let floatingBarButtonItem self = msg_send ~self ~cmd:(selector "floatingBarButtonItem") ~typ:(returning (id)) -let gatherMultitaskingDragExclusionRectsFromVisibleColumns self = msg_send ~self ~cmd:(selector "gatherMultitaskingDragExclusionRectsFromVisibleColumns") ~typ:(returning (id)) -let initWithOwningViewController x self = msg_send ~self ~cmd:(selector "initWithOwningViewController:") ~typ:(id @-> returning (id)) x -let interactiveStateRequest self = msg_send ~self ~cmd:(selector "interactiveStateRequest") ~typ:(returning (id)) -let interpolatedMarginForPrimaryNavigationBar x ~supplementaryOrSecondaryNavbar ~getInterpolatedAlpha self = msg_send ~self ~cmd:(selector "interpolatedMarginForPrimaryNavigationBar:supplementaryOrSecondaryNavbar:getInterpolatedAlpha:") ~typ:(id @-> id @-> ptr (double) @-> returning (double)) x supplementaryOrSecondaryNavbar getInterpolatedAlpha -let isAnimating self = msg_send ~self ~cmd:(selector "isAnimating") ~typ:(returning (bool)) -let isCollapsed self = msg_send ~self ~cmd:(selector "isCollapsed") ~typ:(returning (bool)) -let isLeadingViewControllerVisibleAfterAnimation self = msg_send ~self ~cmd:(selector "isLeadingViewControllerVisibleAfterAnimation") ~typ:(returning (bool)) -let isPresentationGestureActive self = msg_send ~self ~cmd:(selector "isPresentationGestureActive") ~typ:(returning (bool)) -let isRunExpandScheduled self = msg_send ~self ~cmd:(selector "isRunExpandScheduled") ~typ:(returning (bool)) -let isSupplementaryViewControllerVisibleAfterAnimation self = msg_send ~self ~cmd:(selector "isSupplementaryViewControllerVisibleAfterAnimation") ~typ:(returning (bool)) -let isTrailingViewControllerVisibleAfterAnimation self = msg_send ~self ~cmd:(selector "isTrailingViewControllerVisibleAfterAnimation") ~typ:(returning (bool)) -let leadingBarContentClippingView self = msg_send ~self ~cmd:(selector "leadingBarContentClippingView") ~typ:(returning (id)) -let leadingTrailingWrapsNavigationController self = msg_send ~self ~cmd:(selector "leadingTrailingWrapsNavigationController") ~typ:(returning (bool)) -let leadingViewController self = msg_send ~self ~cmd:(selector "leadingViewController") ~typ:(returning (id)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let mainViewController self = msg_send ~self ~cmd:(selector "mainViewController") ~typ:(returning (id)) -let maximumAllowedOriginXForBorderView x self = msg_send ~self ~cmd:(selector "maximumAllowedOriginXForBorderView:") ~typ:(id @-> returning (double)) x -let minimumAllowedOriginXForBorderView x self = msg_send ~self ~cmd:(selector "minimumAllowedOriginXForBorderView:") ~typ:(id @-> returning (double)) x -let navigationBarForContentLayoutGuideAnimation self = msg_send ~self ~cmd:(selector "navigationBarForContentLayoutGuideAnimation") ~typ:(returning (id)) -let navigationControllerDidChangeNavigationBarHidden x self = msg_send ~self ~cmd:(selector "navigationControllerDidChangeNavigationBarHidden:") ~typ:(id @-> returning (void)) x -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let owningViewController self = msg_send ~self ~cmd:(selector "owningViewController") ~typ:(returning (id)) -let possibleStates self = msg_send ~self ~cmd:(selector "possibleStates") ~typ:(returning (id)) -let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning (void)) x -let preservedDetailController self = msg_send ~self ~cmd:(selector "preservedDetailController") ~typ:(returning (id)) -let removeChildViewController x self = msg_send ~self ~cmd:(selector "removeChildViewController:") ~typ:(id @-> returning (void)) x -let setAdditionalSidebarSafeAreaInsets x self = msg_send ~self ~cmd:(selector "setAdditionalSidebarSafeAreaInsets:") ~typ:(ptr void @-> returning (void)) x -let setAnimationRequestShouldCoordinate x self = msg_send ~self ~cmd:(selector "setAnimationRequestShouldCoordinate:") ~typ:(bool @-> returning (void)) x -let setClippingViewsUnnecessary x self = msg_send ~self ~cmd:(selector "setClippingViewsUnnecessary:") ~typ:(bool @-> returning (void)) x -let setCollapsedViewController x self = msg_send ~self ~cmd:(selector "setCollapsedViewController:") ~typ:(id @-> returning (void)) x -let setConfiguration x self = msg_send ~self ~cmd:(selector "setConfiguration:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDimmingView x self = msg_send ~self ~cmd:(selector "setDimmingView:") ~typ:(id @-> returning (void)) x -let setFloatingBarButtonItem x self = msg_send ~self ~cmd:(selector "setFloatingBarButtonItem:") ~typ:(id @-> returning (void)) x -let setInteractiveStateRequest x self = msg_send ~self ~cmd:(selector "setInteractiveStateRequest:") ~typ:(id @-> returning (void)) x -let setLeadingBarContentClippingView x self = msg_send ~self ~cmd:(selector "setLeadingBarContentClippingView:") ~typ:(id @-> returning (void)) x -let setLeadingTrailingWrapsNavigationController x self = msg_send ~self ~cmd:(selector "setLeadingTrailingWrapsNavigationController:") ~typ:(bool @-> returning (void)) x -let setLeadingViewController x self = msg_send ~self ~cmd:(selector "setLeadingViewController:") ~typ:(id @-> returning (void)) x -let setLeadingViewController' x ~changingParentage self = msg_send ~self ~cmd:(selector "setLeadingViewController:changingParentage:") ~typ:(id @-> bool @-> returning (void)) x changingParentage -let setMainViewController x self = msg_send ~self ~cmd:(selector "setMainViewController:") ~typ:(id @-> returning (void)) x -let setMainViewController' x ~changingParentage self = msg_send ~self ~cmd:(selector "setMainViewController:changingParentage:") ~typ:(id @-> bool @-> returning (void)) x changingParentage -let setNavigationBarForContentLayoutGuideAnimation x self = msg_send ~self ~cmd:(selector "setNavigationBarForContentLayoutGuideAnimation:") ~typ:(id @-> returning (void)) x -let setNeedsUpdate self = msg_send ~self ~cmd:(selector "setNeedsUpdate") ~typ:(returning (void)) -let setOwningViewController x self = msg_send ~self ~cmd:(selector "setOwningViewController:") ~typ:(id @-> returning (void)) x -let setPresentationGestureActive x self = msg_send ~self ~cmd:(selector "setPresentationGestureActive:") ~typ:(bool @-> returning (void)) x -let setPreservedDetailController x self = msg_send ~self ~cmd:(selector "setPreservedDetailController:") ~typ:(id @-> returning (void)) x -let setRunExpandScheduled x self = msg_send ~self ~cmd:(selector "setRunExpandScheduled:") ~typ:(bool @-> returning (void)) x -let setStateRequest x self = msg_send ~self ~cmd:(selector "setStateRequest:") ~typ:(id @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSupplementaryBarContentClippingView x self = msg_send ~self ~cmd:(selector "setSupplementaryBarContentClippingView:") ~typ:(id @-> returning (void)) x -let setSupplementaryViewController x self = msg_send ~self ~cmd:(selector "setSupplementaryViewController:") ~typ:(id @-> returning (void)) x -let setSupplementaryViewController' x ~changingParentage self = msg_send ~self ~cmd:(selector "setSupplementaryViewController:changingParentage:") ~typ:(id @-> bool @-> returning (void)) x changingParentage -let setTrailingBarContentClippingView x self = msg_send ~self ~cmd:(selector "setTrailingBarContentClippingView:") ~typ:(id @-> returning (void)) x -let setTrailingViewController x self = msg_send ~self ~cmd:(selector "setTrailingViewController:") ~typ:(id @-> returning (void)) x -let setTrailingViewController' x ~changingParentage self = msg_send ~self ~cmd:(selector "setTrailingViewController:changingParentage:") ~typ:(id @-> bool @-> returning (void)) x changingParentage -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let stateRequest self = msg_send ~self ~cmd:(selector "stateRequest") ~typ:(returning (id)) -let stopAnimations self = msg_send ~self ~cmd:(selector "stopAnimations") ~typ:(returning (void)) -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let supplementaryBarContentClippingView self = msg_send ~self ~cmd:(selector "supplementaryBarContentClippingView") ~typ:(returning (id)) -let supplementaryViewController self = msg_send ~self ~cmd:(selector "supplementaryViewController") ~typ:(returning (id)) -let supportsColumnStyle self = msg_send ~self ~cmd:(selector "supportsColumnStyle") ~typ:(returning (bool)) -let trailingBarContentClippingView self = msg_send ~self ~cmd:(selector "trailingBarContentClippingView") ~typ:(returning (id)) -let trailingViewController self = msg_send ~self ~cmd:(selector "trailingViewController") ~typ:(returning (id)) -let traitCollectionDidChange x ~toNewTraits self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:toNewTraits:") ~typ:(id @-> id @-> returning (void)) x toNewTraits -let transitionCoordinator self = msg_send ~self ~cmd:(selector "transitionCoordinator") ~typ:(returning (id)) -let uncachedPossibleStates self = msg_send ~self ~cmd:(selector "uncachedPossibleStates") ~typ:(returning (id)) -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let viewWillTransitionToSize x ~withTransitionCoordinator ~superBlock self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:superBlock:") ~typ:(CGSize.t @-> id @-> ptr void @-> returning (void)) x withTransitionCoordinator superBlock -let willTransitionToTraitCollection x ~withTransitionCoordinator ~superBlock self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:superBlock:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x withTransitionCoordinator superBlock \ No newline at end of file +let self = get_class "UIPanelController" + +let addWrapperBlockForNextUpdate x self = msg_send ~self ~cmd:(selector "addWrapperBlockForNextUpdate:") ~typ:((ptr void) @-> returning void) x +let additionalSidebarSafeAreaInsets self = msg_send ~self ~cmd:(selector "additionalSidebarSafeAreaInsets") ~typ:(returning UIEdgeInsets.t) +let allViewControllers self = msg_send ~self ~cmd:(selector "allViewControllers") ~typ:(returning id) +let animateToRequest x self = msg_send ~self ~cmd:(selector "animateToRequest:") ~typ:(id @-> returning void) x +let animateToRequest1 x ~forceOverlay self = msg_send ~self ~cmd:(selector "animateToRequest:forceOverlay:") ~typ:(id @-> bool @-> returning void) x forceOverlay +let animateToRequest2 x ~forceOverlay ~withVelocity self = msg_send ~self ~cmd:(selector "animateToRequest:forceOverlay:withVelocity:") ~typ:(id @-> bool @-> double @-> returning void) x forceOverlay withVelocity +let animationRequestShouldCoordinate self = msg_send ~self ~cmd:(selector "animationRequestShouldCoordinate") ~typ:(returning bool) +let areClippingViewsUnnecessary self = msg_send ~self ~cmd:(selector "areClippingViewsUnnecessary") ~typ:(returning bool) +let collapsedState self = msg_send ~self ~cmd:(selector "collapsedState") ~typ:(returning llong) +let collapsedViewController self = msg_send ~self ~cmd:(selector "collapsedViewController") ~typ:(returning id) +let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning id) +let currentState self = msg_send ~self ~cmd:(selector "currentState") ~typ:(returning id) +let cursorInteraction x ~cursorForGestureRecognizerState self = msg_send ~self ~cmd:(selector "cursorInteraction:cursorForGestureRecognizerState:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int cursorForGestureRecognizerState) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let dimmingView self = msg_send ~self ~cmd:(selector "dimmingView") ~typ:(returning id) +let floatingBarButtonItem self = msg_send ~self ~cmd:(selector "floatingBarButtonItem") ~typ:(returning id) +let gatherMultitaskingDragExclusionRectsFromVisibleColumns self = msg_send ~self ~cmd:(selector "gatherMultitaskingDragExclusionRectsFromVisibleColumns") ~typ:(returning id) +let initWithOwningViewController x self = msg_send ~self ~cmd:(selector "initWithOwningViewController:") ~typ:(id @-> returning id) x +let interactiveStateRequest self = msg_send ~self ~cmd:(selector "interactiveStateRequest") ~typ:(returning id) +let interpolatedMarginForPrimaryNavigationBar x ~supplementaryOrSecondaryNavbar ~getInterpolatedAlpha self = msg_send ~self ~cmd:(selector "interpolatedMarginForPrimaryNavigationBar:supplementaryOrSecondaryNavbar:getInterpolatedAlpha:") ~typ:(id @-> id @-> (ptr double) @-> returning double) x supplementaryOrSecondaryNavbar getInterpolatedAlpha +let isAnimating self = msg_send ~self ~cmd:(selector "isAnimating") ~typ:(returning bool) +let isCollapsed self = msg_send ~self ~cmd:(selector "isCollapsed") ~typ:(returning bool) +let isLeadingViewControllerVisibleAfterAnimation self = msg_send ~self ~cmd:(selector "isLeadingViewControllerVisibleAfterAnimation") ~typ:(returning bool) +let isPresentationGestureActive self = msg_send ~self ~cmd:(selector "isPresentationGestureActive") ~typ:(returning bool) +let isRunExpandScheduled self = msg_send ~self ~cmd:(selector "isRunExpandScheduled") ~typ:(returning bool) +let isSupplementaryViewControllerVisibleAfterAnimation self = msg_send ~self ~cmd:(selector "isSupplementaryViewControllerVisibleAfterAnimation") ~typ:(returning bool) +let isTrailingViewControllerVisibleAfterAnimation self = msg_send ~self ~cmd:(selector "isTrailingViewControllerVisibleAfterAnimation") ~typ:(returning bool) +let leadingBarContentClippingView self = msg_send ~self ~cmd:(selector "leadingBarContentClippingView") ~typ:(returning id) +let leadingTrailingWrapsNavigationController self = msg_send ~self ~cmd:(selector "leadingTrailingWrapsNavigationController") ~typ:(returning bool) +let leadingViewController self = msg_send ~self ~cmd:(selector "leadingViewController") ~typ:(returning id) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let mainViewController self = msg_send ~self ~cmd:(selector "mainViewController") ~typ:(returning id) +let maximumAllowedOriginXForBorderView x self = msg_send ~self ~cmd:(selector "maximumAllowedOriginXForBorderView:") ~typ:(id @-> returning double) x +let minimumAllowedOriginXForBorderView x self = msg_send ~self ~cmd:(selector "minimumAllowedOriginXForBorderView:") ~typ:(id @-> returning double) x +let navigationBarForContentLayoutGuideAnimation self = msg_send ~self ~cmd:(selector "navigationBarForContentLayoutGuideAnimation") ~typ:(returning id) +let navigationControllerDidChangeNavigationBarHidden x self = msg_send ~self ~cmd:(selector "navigationControllerDidChangeNavigationBarHidden:") ~typ:(id @-> returning void) x +let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x ofObject change context +let owningViewController self = msg_send ~self ~cmd:(selector "owningViewController") ~typ:(returning id) +let possibleStates self = msg_send ~self ~cmd:(selector "possibleStates") ~typ:(returning id) +let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning void) x +let preservedDetailController self = msg_send ~self ~cmd:(selector "preservedDetailController") ~typ:(returning id) +let removeChildViewController x self = msg_send ~self ~cmd:(selector "removeChildViewController:") ~typ:(id @-> returning void) x +let setAdditionalSidebarSafeAreaInsets x self = msg_send ~self ~cmd:(selector "setAdditionalSidebarSafeAreaInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setAnimationRequestShouldCoordinate x self = msg_send ~self ~cmd:(selector "setAnimationRequestShouldCoordinate:") ~typ:(bool @-> returning void) x +let setClippingViewsUnnecessary x self = msg_send ~self ~cmd:(selector "setClippingViewsUnnecessary:") ~typ:(bool @-> returning void) x +let setCollapsedViewController x self = msg_send ~self ~cmd:(selector "setCollapsedViewController:") ~typ:(id @-> returning void) x +let setConfiguration x self = msg_send ~self ~cmd:(selector "setConfiguration:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDimmingView x self = msg_send ~self ~cmd:(selector "setDimmingView:") ~typ:(id @-> returning void) x +let setFloatingBarButtonItem x self = msg_send ~self ~cmd:(selector "setFloatingBarButtonItem:") ~typ:(id @-> returning void) x +let setInteractiveStateRequest x self = msg_send ~self ~cmd:(selector "setInteractiveStateRequest:") ~typ:(id @-> returning void) x +let setLeadingBarContentClippingView x self = msg_send ~self ~cmd:(selector "setLeadingBarContentClippingView:") ~typ:(id @-> returning void) x +let setLeadingTrailingWrapsNavigationController x self = msg_send ~self ~cmd:(selector "setLeadingTrailingWrapsNavigationController:") ~typ:(bool @-> returning void) x +let setLeadingViewController x self = msg_send ~self ~cmd:(selector "setLeadingViewController:") ~typ:(id @-> returning void) x +let setLeadingViewController' x ~changingParentage self = msg_send ~self ~cmd:(selector "setLeadingViewController:changingParentage:") ~typ:(id @-> bool @-> returning void) x changingParentage +let setMainViewController x self = msg_send ~self ~cmd:(selector "setMainViewController:") ~typ:(id @-> returning void) x +let setMainViewController' x ~changingParentage self = msg_send ~self ~cmd:(selector "setMainViewController:changingParentage:") ~typ:(id @-> bool @-> returning void) x changingParentage +let setNavigationBarForContentLayoutGuideAnimation x self = msg_send ~self ~cmd:(selector "setNavigationBarForContentLayoutGuideAnimation:") ~typ:(id @-> returning void) x +let setNeedsUpdate self = msg_send ~self ~cmd:(selector "setNeedsUpdate") ~typ:(returning void) +let setOwningViewController x self = msg_send ~self ~cmd:(selector "setOwningViewController:") ~typ:(id @-> returning void) x +let setPresentationGestureActive x self = msg_send ~self ~cmd:(selector "setPresentationGestureActive:") ~typ:(bool @-> returning void) x +let setPreservedDetailController x self = msg_send ~self ~cmd:(selector "setPreservedDetailController:") ~typ:(id @-> returning void) x +let setRunExpandScheduled x self = msg_send ~self ~cmd:(selector "setRunExpandScheduled:") ~typ:(bool @-> returning void) x +let setStateRequest x self = msg_send ~self ~cmd:(selector "setStateRequest:") ~typ:(id @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSupplementaryBarContentClippingView x self = msg_send ~self ~cmd:(selector "setSupplementaryBarContentClippingView:") ~typ:(id @-> returning void) x +let setSupplementaryViewController x self = msg_send ~self ~cmd:(selector "setSupplementaryViewController:") ~typ:(id @-> returning void) x +let setSupplementaryViewController' x ~changingParentage self = msg_send ~self ~cmd:(selector "setSupplementaryViewController:changingParentage:") ~typ:(id @-> bool @-> returning void) x changingParentage +let setTrailingBarContentClippingView x self = msg_send ~self ~cmd:(selector "setTrailingBarContentClippingView:") ~typ:(id @-> returning void) x +let setTrailingViewController x self = msg_send ~self ~cmd:(selector "setTrailingViewController:") ~typ:(id @-> returning void) x +let setTrailingViewController' x ~changingParentage self = msg_send ~self ~cmd:(selector "setTrailingViewController:changingParentage:") ~typ:(id @-> bool @-> returning void) x changingParentage +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let stateRequest self = msg_send ~self ~cmd:(selector "stateRequest") ~typ:(returning id) +let stopAnimations self = msg_send ~self ~cmd:(selector "stopAnimations") ~typ:(returning void) +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let supplementaryBarContentClippingView self = msg_send ~self ~cmd:(selector "supplementaryBarContentClippingView") ~typ:(returning id) +let supplementaryViewController self = msg_send ~self ~cmd:(selector "supplementaryViewController") ~typ:(returning id) +let supportsColumnStyle self = msg_send ~self ~cmd:(selector "supportsColumnStyle") ~typ:(returning bool) +let trailingBarContentClippingView self = msg_send ~self ~cmd:(selector "trailingBarContentClippingView") ~typ:(returning id) +let trailingViewController self = msg_send ~self ~cmd:(selector "trailingViewController") ~typ:(returning id) +let traitCollectionDidChange x ~toNewTraits self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:toNewTraits:") ~typ:(id @-> id @-> returning void) x toNewTraits +let transitionCoordinator self = msg_send ~self ~cmd:(selector "transitionCoordinator") ~typ:(returning id) +let uncachedPossibleStates self = msg_send ~self ~cmd:(selector "uncachedPossibleStates") ~typ:(returning id) +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let viewWillTransitionToSize x ~withTransitionCoordinator ~superBlock self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:superBlock:") ~typ:(CGSize.t @-> id @-> (ptr void) @-> returning void) x withTransitionCoordinator superBlock +let willTransitionToTraitCollection x ~withTransitionCoordinator ~superBlock self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:superBlock:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x withTransitionCoordinator superBlock \ No newline at end of file diff --git a/uikit/UIPasscodeField.ml b/uikit/UIPasscodeField.ml index 6e42ef0c..0dd778b9 100644 --- a/uikit/UIPasscodeField.ml +++ b/uikit/UIPasscodeField.ml @@ -5,35 +5,34 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPasscodeField" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipasscodefield?language=objc}UIPasscodeField} *) -module C = struct - let defaultHeight self = msg_send ~self ~cmd:(selector "defaultHeight") ~typ:(returning (double)) - let textFieldClass self = msg_send ~self ~cmd:(selector "textFieldClass") ~typ:(returning (_Class)) -end +let self = get_class "UIPasscodeField" -let appendString x self = msg_send ~self ~cmd:(selector "appendString:") ~typ:(id @-> returning (void)) x -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deleteLastCharacter self = msg_send ~self ~cmd:(selector "deleteLastCharacter") ~typ:(returning (void)) -let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (id)) x forEvent -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isFirstResponder self = msg_send ~self ~cmd:(selector "isFirstResponder") ~typ:(returning (bool)) -let numberOfEntryFields self = msg_send ~self ~cmd:(selector "numberOfEntryFields") ~typ:(returning (int)) -let okButtonClicked x self = msg_send ~self ~cmd:(selector "okButtonClicked:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setKeyboardType x self = msg_send ~self ~cmd:(selector "setKeyboardType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setKeyboardType1 x ~appearance self = msg_send ~self ~cmd:(selector "setKeyboardType:appearance:") ~typ:(llong @-> llong @-> returning (void)) (LLong.of_int x) (LLong.of_int appearance) -let setKeyboardType2 x ~appearance ~emptyContentReturnKeyType self = msg_send ~self ~cmd:(selector "setKeyboardType:appearance:emptyContentReturnKeyType:") ~typ:(llong @-> llong @-> int @-> returning (void)) (LLong.of_int x) (LLong.of_int appearance) emptyContentReturnKeyType -let setNumberOfEntryFields x self = msg_send ~self ~cmd:(selector "setNumberOfEntryFields:") ~typ:(int @-> returning (void)) x -let setNumberOfEntryFields' x ~opaqueBackground self = msg_send ~self ~cmd:(selector "setNumberOfEntryFields:opaqueBackground:") ~typ:(int @-> bool @-> returning (void)) x opaqueBackground -let setShowsOKButton x self = msg_send ~self ~cmd:(selector "setShowsOKButton:") ~typ:(bool @-> returning (void)) x -let setStringValue x self = msg_send ~self ~cmd:(selector "setStringValue:") ~typ:(id @-> returning (void)) x -let setTextCentersHorizontally x self = msg_send ~self ~cmd:(selector "setTextCentersHorizontally:") ~typ:(bool @-> returning (void)) x -let showsOKButton self = msg_send ~self ~cmd:(selector "showsOKButton") ~typ:(returning (bool)) -let stringValue self = msg_send ~self ~cmd:(selector "stringValue") ~typ:(returning (id)) -let textField x ~shouldInsertText ~replacingRange self = msg_send ~self ~cmd:(selector "textField:shouldInsertText:replacingRange:") ~typ:(id @-> id @-> NSRange.t @-> returning (bool)) x shouldInsertText replacingRange -let textFieldDidResignFirstResponder x self = msg_send ~self ~cmd:(selector "textFieldDidResignFirstResponder:") ~typ:(id @-> returning (void)) x -let textFieldShouldStartEditing x self = msg_send ~self ~cmd:(selector "textFieldShouldStartEditing:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let appendString x self = msg_send ~self ~cmd:(selector "appendString:") ~typ:(id @-> returning void) x +let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning bool) +let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let deleteLastCharacter self = msg_send ~self ~cmd:(selector "deleteLastCharacter") ~typ:(returning void) +let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning id) x forEvent +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isFirstResponder self = msg_send ~self ~cmd:(selector "isFirstResponder") ~typ:(returning bool) +let numberOfEntryFields self = msg_send ~self ~cmd:(selector "numberOfEntryFields") ~typ:(returning int) +let okButtonClicked x self = msg_send ~self ~cmd:(selector "okButtonClicked:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setKeyboardType x self = msg_send ~self ~cmd:(selector "setKeyboardType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setKeyboardType1 x ~appearance self = msg_send ~self ~cmd:(selector "setKeyboardType:appearance:") ~typ:(llong @-> llong @-> returning void) (LLong.of_int x) (LLong.of_int appearance) +let setKeyboardType2 x ~appearance ~emptyContentReturnKeyType self = msg_send ~self ~cmd:(selector "setKeyboardType:appearance:emptyContentReturnKeyType:") ~typ:(llong @-> llong @-> int @-> returning void) (LLong.of_int x) (LLong.of_int appearance) emptyContentReturnKeyType +let setNumberOfEntryFields x self = msg_send ~self ~cmd:(selector "setNumberOfEntryFields:") ~typ:(int @-> returning void) x +let setNumberOfEntryFields' x ~opaqueBackground self = msg_send ~self ~cmd:(selector "setNumberOfEntryFields:opaqueBackground:") ~typ:(int @-> bool @-> returning void) x opaqueBackground +let setShowsOKButton x self = msg_send ~self ~cmd:(selector "setShowsOKButton:") ~typ:(bool @-> returning void) x +let setStringValue x self = msg_send ~self ~cmd:(selector "setStringValue:") ~typ:(id @-> returning void) x +let setTextCentersHorizontally x self = msg_send ~self ~cmd:(selector "setTextCentersHorizontally:") ~typ:(bool @-> returning void) x +let showsOKButton self = msg_send ~self ~cmd:(selector "showsOKButton") ~typ:(returning bool) +let stringValue self = msg_send ~self ~cmd:(selector "stringValue") ~typ:(returning id) +let textField x ~shouldInsertText ~replacingRange self = msg_send ~self ~cmd:(selector "textField:shouldInsertText:replacingRange:") ~typ:(id @-> id @-> NSRange.t @-> returning bool) x shouldInsertText replacingRange +let textFieldDidResignFirstResponder x self = msg_send ~self ~cmd:(selector "textFieldDidResignFirstResponder:") ~typ:(id @-> returning void) x +let textFieldShouldStartEditing x self = msg_send ~self ~cmd:(selector "textFieldShouldStartEditing:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIPasscodeFieldClass.ml b/uikit/UIPasscodeFieldClass.ml new file mode 100644 index 00000000..3176a3c5 --- /dev/null +++ b/uikit/UIPasscodeFieldClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipasscodefield?language=objc}UIPasscodeField} *) + +let defaultHeight self = msg_send ~self ~cmd:(selector "defaultHeight") ~typ:(returning double) +let textFieldClass self = msg_send ~self ~cmd:(selector "textFieldClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit/UIPasteConfiguration.ml b/uikit/UIPasteConfiguration.ml index 3df382b7..5fa0a6d2 100644 --- a/uikit/UIPasteConfiguration.ml +++ b/uikit/UIPasteConfiguration.ml @@ -5,26 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPasteConfiguration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipasteconfiguration?language=objc}UIPasteConfiguration} *) -module C = struct - let pasteConfigurationForAcceptingClasses x self = msg_send ~self ~cmd:(selector "pasteConfigurationForAcceptingClasses:") ~typ:(id @-> returning (id)) x - let pasteConfigurationWithAcceptableTypes x self = msg_send ~self ~cmd:(selector "pasteConfigurationWithAcceptableTypes:") ~typ:(id @-> returning (id)) x - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIPasteConfiguration" -let acceptableTypeIdentifiers self = msg_send ~self ~cmd:(selector "acceptableTypeIdentifiers") ~typ:(returning (id)) -let acceptableTypes self = msg_send ~self ~cmd:(selector "acceptableTypes") ~typ:(returning (id)) -let addAcceptableTypeIdentifiers x self = msg_send ~self ~cmd:(selector "addAcceptableTypeIdentifiers:") ~typ:(id @-> returning (void)) x -let addTypeIdentifiersForAcceptingClass x self = msg_send ~self ~cmd:(selector "addTypeIdentifiersForAcceptingClass:") ~typ:(_Class @-> returning (void)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithAcceptableTypeIdentifiers x self = msg_send ~self ~cmd:(selector "initWithAcceptableTypeIdentifiers:") ~typ:(id @-> returning (id)) x -let initWithAcceptableTypes x self = msg_send ~self ~cmd:(selector "initWithAcceptableTypes:") ~typ:(id @-> returning (id)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithTypeIdentifiersForAcceptingClass x self = msg_send ~self ~cmd:(selector "initWithTypeIdentifiersForAcceptingClass:") ~typ:(_Class @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let setAcceptableTypeIdentifiers x self = msg_send ~self ~cmd:(selector "setAcceptableTypeIdentifiers:") ~typ:(id @-> returning (void)) x -let setAcceptableTypes x self = msg_send ~self ~cmd:(selector "setAcceptableTypes:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let acceptableTypeIdentifiers self = msg_send ~self ~cmd:(selector "acceptableTypeIdentifiers") ~typ:(returning id) +let acceptableTypes self = msg_send ~self ~cmd:(selector "acceptableTypes") ~typ:(returning id) +let addAcceptableTypeIdentifiers x self = msg_send ~self ~cmd:(selector "addAcceptableTypeIdentifiers:") ~typ:(id @-> returning void) x +let addTypeIdentifiersForAcceptingClass x self = msg_send ~self ~cmd:(selector "addTypeIdentifiersForAcceptingClass:") ~typ:(_Class @-> returning void) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithAcceptableTypeIdentifiers x self = msg_send ~self ~cmd:(selector "initWithAcceptableTypeIdentifiers:") ~typ:(id @-> returning id) x +let initWithAcceptableTypes x self = msg_send ~self ~cmd:(selector "initWithAcceptableTypes:") ~typ:(id @-> returning id) x +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithTypeIdentifiersForAcceptingClass x self = msg_send ~self ~cmd:(selector "initWithTypeIdentifiersForAcceptingClass:") ~typ:(_Class @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let setAcceptableTypeIdentifiers x self = msg_send ~self ~cmd:(selector "setAcceptableTypeIdentifiers:") ~typ:(id @-> returning void) x +let setAcceptableTypes x self = msg_send ~self ~cmd:(selector "setAcceptableTypes:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPasteConfigurationClass.ml b/uikit/UIPasteConfigurationClass.ml new file mode 100644 index 00000000..53e3b5e6 --- /dev/null +++ b/uikit/UIPasteConfigurationClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipasteconfiguration?language=objc}UIPasteConfiguration} *) + +let pasteConfigurationForAcceptingClasses x self = msg_send ~self ~cmd:(selector "pasteConfigurationForAcceptingClasses:") ~typ:(id @-> returning id) x +let pasteConfigurationWithAcceptableTypes x self = msg_send ~self ~cmd:(selector "pasteConfigurationWithAcceptableTypes:") ~typ:(id @-> returning id) x +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIPasteboard.ml b/uikit/UIPasteboard.ml index a33b06db..220059e6 100644 --- a/uikit/UIPasteboard.ml +++ b/uikit/UIPasteboard.ml @@ -5,72 +5,69 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPasteboard" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipasteboard?language=objc}UIPasteboard} *) -module C = struct - let generalPasteboard self = msg_send ~self ~cmd:(selector "generalPasteboard") ~typ:(returning (id)) - let pasteboardWithName x ~create self = msg_send ~self ~cmd:(selector "pasteboardWithName:create:") ~typ:(id @-> bool @-> returning (id)) x create - let pasteboardWithUniqueName self = msg_send ~self ~cmd:(selector "pasteboardWithUniqueName") ~typ:(returning (id)) - let removePasteboardWithName x self = msg_send ~self ~cmd:(selector "removePasteboardWithName:") ~typ:(id @-> returning (void)) x -end +let self = get_class "UIPasteboard" -let _URL self = msg_send ~self ~cmd:(selector "URL") ~typ:(returning (id)) -let _URLs self = msg_send ~self ~cmd:(selector "URLs") ~typ:(returning (id)) -let addItems x self = msg_send ~self ~cmd:(selector "addItems:") ~typ:(id @-> returning (void)) x -let akClearContents self = msg_send ~self ~cmd:(selector "akClearContents") ~typ:(returning (void)) -let akPasteboardAnnotations self = msg_send ~self ~cmd:(selector "akPasteboardAnnotations") ~typ:(returning (id)) -let akPasteboardContainsAnnotations self = msg_send ~self ~cmd:(selector "akPasteboardContainsAnnotations") ~typ:(returning (bool)) -let akPasteboardSetAnnotations x self = msg_send ~self ~cmd:(selector "akPasteboardSetAnnotations:") ~typ:(id @-> returning (void)) x -let availableTypes self = msg_send ~self ~cmd:(selector "availableTypes") ~typ:(returning (id)) -let canInstantiateObjectsOfClass x self = msg_send ~self ~cmd:(selector "canInstantiateObjectsOfClass:") ~typ:(_Class @-> returning (bool)) x -let changeCount self = msg_send ~self ~cmd:(selector "changeCount") ~typ:(returning (llong)) -let color self = msg_send ~self ~cmd:(selector "color") ~typ:(returning (id)) -let colors self = msg_send ~self ~cmd:(selector "colors") ~typ:(returning (id)) -let containsPasteboardTypes x self = msg_send ~self ~cmd:(selector "containsPasteboardTypes:") ~typ:(id @-> returning (bool)) x -let containsPasteboardTypes' x ~inItemSet self = msg_send ~self ~cmd:(selector "containsPasteboardTypes:inItemSet:") ~typ:(id @-> id @-> returning (bool)) x inItemSet -let dataForPasteboardType x self = msg_send ~self ~cmd:(selector "dataForPasteboardType:") ~typ:(id @-> returning (id)) x -let dataForPasteboardType' x ~inItemSet self = msg_send ~self ~cmd:(selector "dataForPasteboardType:inItemSet:") ~typ:(id @-> id @-> returning (id)) x inItemSet -let detectPatternsForPatterns x ~completionHandler self = msg_send ~self ~cmd:(selector "detectPatternsForPatterns:completionHandler:") ~typ:(id @-> ptr void @-> returning (void)) x completionHandler -let detectPatternsForPatterns' x ~inItemSet ~completionHandler self = msg_send ~self ~cmd:(selector "detectPatternsForPatterns:inItemSet:completionHandler:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x inItemSet completionHandler -let detectValuesForPatterns x ~completionHandler self = msg_send ~self ~cmd:(selector "detectValuesForPatterns:completionHandler:") ~typ:(id @-> ptr void @-> returning (void)) x completionHandler -let detectValuesForPatterns' x ~inItemSet ~completionHandler self = msg_send ~self ~cmd:(selector "detectValuesForPatterns:inItemSet:completionHandler:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x inItemSet completionHandler -let hasColors self = msg_send ~self ~cmd:(selector "hasColors") ~typ:(returning (bool)) -let hasImages self = msg_send ~self ~cmd:(selector "hasImages") ~typ:(returning (bool)) -let hasStrings self = msg_send ~self ~cmd:(selector "hasStrings") ~typ:(returning (bool)) -let hasURLs self = msg_send ~self ~cmd:(selector "hasURLs") ~typ:(returning (bool)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let images self = msg_send ~self ~cmd:(selector "images") ~typ:(returning (id)) -let isPersistent self = msg_send ~self ~cmd:(selector "isPersistent") ~typ:(returning (bool)) -let itemProviders self = msg_send ~self ~cmd:(selector "itemProviders") ~typ:(returning (id)) -let itemProvidersForInstantiatingObjectsOfClass x self = msg_send ~self ~cmd:(selector "itemProvidersForInstantiatingObjectsOfClass:") ~typ:(_Class @-> returning (id)) x -let itemSetWithPasteboardTypes x self = msg_send ~self ~cmd:(selector "itemSetWithPasteboardTypes:") ~typ:(id @-> returning (id)) x -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let numberOfItems self = msg_send ~self ~cmd:(selector "numberOfItems") ~typ:(returning (llong)) -let pasteboardTypes self = msg_send ~self ~cmd:(selector "pasteboardTypes") ~typ:(returning (id)) -let pasteboardTypesForItemSet x self = msg_send ~self ~cmd:(selector "pasteboardTypesForItemSet:") ~typ:(id @-> returning (id)) x -let setColor x self = msg_send ~self ~cmd:(selector "setColor:") ~typ:(id @-> returning (void)) x -let setColors x self = msg_send ~self ~cmd:(selector "setColors:") ~typ:(id @-> returning (void)) x -let setData x ~forPasteboardType self = msg_send ~self ~cmd:(selector "setData:forPasteboardType:") ~typ:(id @-> id @-> returning (void)) x forPasteboardType -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setImages x self = msg_send ~self ~cmd:(selector "setImages:") ~typ:(id @-> returning (void)) x -let setItemProviders x self = msg_send ~self ~cmd:(selector "setItemProviders:") ~typ:(id @-> returning (void)) x -let setItemProviders1 x ~options self = msg_send ~self ~cmd:(selector "setItemProviders:options:") ~typ:(id @-> id @-> returning (void)) x options -let setItemProviders2 x ~localOnly ~expirationDate self = msg_send ~self ~cmd:(selector "setItemProviders:localOnly:expirationDate:") ~typ:(id @-> bool @-> id @-> returning (void)) x localOnly expirationDate -let setItems x self = msg_send ~self ~cmd:(selector "setItems:") ~typ:(id @-> returning (void)) x -let setItems' x ~options self = msg_send ~self ~cmd:(selector "setItems:options:") ~typ:(id @-> id @-> returning (void)) x options -let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning (void)) x -let setObjects x self = msg_send ~self ~cmd:(selector "setObjects:") ~typ:(id @-> returning (void)) x -let setObjects1 x ~options self = msg_send ~self ~cmd:(selector "setObjects:options:") ~typ:(id @-> id @-> returning (void)) x options -let setObjects2 x ~localOnly ~expirationDate self = msg_send ~self ~cmd:(selector "setObjects:localOnly:expirationDate:") ~typ:(id @-> bool @-> id @-> returning (void)) x localOnly expirationDate -let setPersistent x self = msg_send ~self ~cmd:(selector "setPersistent:") ~typ:(bool @-> returning (void)) x -let setString x self = msg_send ~self ~cmd:(selector "setString:") ~typ:(id @-> returning (void)) x -let setStrings x self = msg_send ~self ~cmd:(selector "setStrings:") ~typ:(id @-> returning (void)) x -let setURL x self = msg_send ~self ~cmd:(selector "setURL:") ~typ:(id @-> returning (void)) x -let setURLs x self = msg_send ~self ~cmd:(selector "setURLs:") ~typ:(id @-> returning (void)) x -let setValue x ~forPasteboardType self = msg_send ~self ~cmd:(selector "setValue:forPasteboardType:") ~typ:(id @-> id @-> returning (void)) x forPasteboardType -let string_ self = msg_send ~self ~cmd:(selector "string") ~typ:(returning (id)) -let strings self = msg_send ~self ~cmd:(selector "strings") ~typ:(returning (id)) -let valueForPasteboardType x self = msg_send ~self ~cmd:(selector "valueForPasteboardType:") ~typ:(id @-> returning (id)) x -let valuesForPasteboardType x ~inItemSet self = msg_send ~self ~cmd:(selector "valuesForPasteboardType:inItemSet:") ~typ:(id @-> id @-> returning (id)) x inItemSet \ No newline at end of file +let _URL self = msg_send ~self ~cmd:(selector "URL") ~typ:(returning id) +let _URLs self = msg_send ~self ~cmd:(selector "URLs") ~typ:(returning id) +let addItems x self = msg_send ~self ~cmd:(selector "addItems:") ~typ:(id @-> returning void) x +let akClearContents self = msg_send ~self ~cmd:(selector "akClearContents") ~typ:(returning void) +let akPasteboardAnnotations self = msg_send ~self ~cmd:(selector "akPasteboardAnnotations") ~typ:(returning id) +let akPasteboardContainsAnnotations self = msg_send ~self ~cmd:(selector "akPasteboardContainsAnnotations") ~typ:(returning bool) +let akPasteboardSetAnnotations x self = msg_send ~self ~cmd:(selector "akPasteboardSetAnnotations:") ~typ:(id @-> returning void) x +let availableTypes self = msg_send ~self ~cmd:(selector "availableTypes") ~typ:(returning id) +let canInstantiateObjectsOfClass x self = msg_send ~self ~cmd:(selector "canInstantiateObjectsOfClass:") ~typ:(_Class @-> returning bool) x +let changeCount self = msg_send ~self ~cmd:(selector "changeCount") ~typ:(returning llong) +let color self = msg_send ~self ~cmd:(selector "color") ~typ:(returning id) +let colors self = msg_send ~self ~cmd:(selector "colors") ~typ:(returning id) +let containsPasteboardTypes x self = msg_send ~self ~cmd:(selector "containsPasteboardTypes:") ~typ:(id @-> returning bool) x +let containsPasteboardTypes' x ~inItemSet self = msg_send ~self ~cmd:(selector "containsPasteboardTypes:inItemSet:") ~typ:(id @-> id @-> returning bool) x inItemSet +let dataForPasteboardType x self = msg_send ~self ~cmd:(selector "dataForPasteboardType:") ~typ:(id @-> returning id) x +let dataForPasteboardType' x ~inItemSet self = msg_send ~self ~cmd:(selector "dataForPasteboardType:inItemSet:") ~typ:(id @-> id @-> returning id) x inItemSet +let detectPatternsForPatterns x ~completionHandler self = msg_send ~self ~cmd:(selector "detectPatternsForPatterns:completionHandler:") ~typ:(id @-> (ptr void) @-> returning void) x completionHandler +let detectPatternsForPatterns' x ~inItemSet ~completionHandler self = msg_send ~self ~cmd:(selector "detectPatternsForPatterns:inItemSet:completionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x inItemSet completionHandler +let detectValuesForPatterns x ~completionHandler self = msg_send ~self ~cmd:(selector "detectValuesForPatterns:completionHandler:") ~typ:(id @-> (ptr void) @-> returning void) x completionHandler +let detectValuesForPatterns' x ~inItemSet ~completionHandler self = msg_send ~self ~cmd:(selector "detectValuesForPatterns:inItemSet:completionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x inItemSet completionHandler +let hasColors self = msg_send ~self ~cmd:(selector "hasColors") ~typ:(returning bool) +let hasImages self = msg_send ~self ~cmd:(selector "hasImages") ~typ:(returning bool) +let hasStrings self = msg_send ~self ~cmd:(selector "hasStrings") ~typ:(returning bool) +let hasURLs self = msg_send ~self ~cmd:(selector "hasURLs") ~typ:(returning bool) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let images self = msg_send ~self ~cmd:(selector "images") ~typ:(returning id) +let isPersistent self = msg_send ~self ~cmd:(selector "isPersistent") ~typ:(returning bool) +let itemProviders self = msg_send ~self ~cmd:(selector "itemProviders") ~typ:(returning id) +let itemProvidersForInstantiatingObjectsOfClass x self = msg_send ~self ~cmd:(selector "itemProvidersForInstantiatingObjectsOfClass:") ~typ:(_Class @-> returning id) x +let itemSetWithPasteboardTypes x self = msg_send ~self ~cmd:(selector "itemSetWithPasteboardTypes:") ~typ:(id @-> returning id) x +let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning id) +let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) +let numberOfItems self = msg_send ~self ~cmd:(selector "numberOfItems") ~typ:(returning llong) +let pasteboardTypes self = msg_send ~self ~cmd:(selector "pasteboardTypes") ~typ:(returning id) +let pasteboardTypesForItemSet x self = msg_send ~self ~cmd:(selector "pasteboardTypesForItemSet:") ~typ:(id @-> returning id) x +let setColor x self = msg_send ~self ~cmd:(selector "setColor:") ~typ:(id @-> returning void) x +let setColors x self = msg_send ~self ~cmd:(selector "setColors:") ~typ:(id @-> returning void) x +let setData x ~forPasteboardType self = msg_send ~self ~cmd:(selector "setData:forPasteboardType:") ~typ:(id @-> id @-> returning void) x forPasteboardType +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setImages x self = msg_send ~self ~cmd:(selector "setImages:") ~typ:(id @-> returning void) x +let setItemProviders x self = msg_send ~self ~cmd:(selector "setItemProviders:") ~typ:(id @-> returning void) x +let setItemProviders1 x ~options self = msg_send ~self ~cmd:(selector "setItemProviders:options:") ~typ:(id @-> id @-> returning void) x options +let setItemProviders2 x ~localOnly ~expirationDate self = msg_send ~self ~cmd:(selector "setItemProviders:localOnly:expirationDate:") ~typ:(id @-> bool @-> id @-> returning void) x localOnly expirationDate +let setItems x self = msg_send ~self ~cmd:(selector "setItems:") ~typ:(id @-> returning void) x +let setItems' x ~options self = msg_send ~self ~cmd:(selector "setItems:options:") ~typ:(id @-> id @-> returning void) x options +let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning void) x +let setObjects x self = msg_send ~self ~cmd:(selector "setObjects:") ~typ:(id @-> returning void) x +let setObjects1 x ~options self = msg_send ~self ~cmd:(selector "setObjects:options:") ~typ:(id @-> id @-> returning void) x options +let setObjects2 x ~localOnly ~expirationDate self = msg_send ~self ~cmd:(selector "setObjects:localOnly:expirationDate:") ~typ:(id @-> bool @-> id @-> returning void) x localOnly expirationDate +let setPersistent x self = msg_send ~self ~cmd:(selector "setPersistent:") ~typ:(bool @-> returning void) x +let setString x self = msg_send ~self ~cmd:(selector "setString:") ~typ:(id @-> returning void) x +let setStrings x self = msg_send ~self ~cmd:(selector "setStrings:") ~typ:(id @-> returning void) x +let setURL x self = msg_send ~self ~cmd:(selector "setURL:") ~typ:(id @-> returning void) x +let setURLs x self = msg_send ~self ~cmd:(selector "setURLs:") ~typ:(id @-> returning void) x +let setValue x ~forPasteboardType self = msg_send ~self ~cmd:(selector "setValue:forPasteboardType:") ~typ:(id @-> id @-> returning void) x forPasteboardType +let string_ self = msg_send ~self ~cmd:(selector "string") ~typ:(returning id) +let strings self = msg_send ~self ~cmd:(selector "strings") ~typ:(returning id) +let valueForPasteboardType x self = msg_send ~self ~cmd:(selector "valueForPasteboardType:") ~typ:(id @-> returning id) x +let valuesForPasteboardType x ~inItemSet self = msg_send ~self ~cmd:(selector "valuesForPasteboardType:inItemSet:") ~typ:(id @-> id @-> returning id) x inItemSet \ No newline at end of file diff --git a/uikit/UIPasteboardClass.ml b/uikit/UIPasteboardClass.ml new file mode 100644 index 00000000..97390eb2 --- /dev/null +++ b/uikit/UIPasteboardClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipasteboard?language=objc}UIPasteboard} *) + +let generalPasteboard self = msg_send ~self ~cmd:(selector "generalPasteboard") ~typ:(returning id) +let pasteboardWithName x ~create self = msg_send ~self ~cmd:(selector "pasteboardWithName:create:") ~typ:(id @-> bool @-> returning id) x create +let pasteboardWithUniqueName self = msg_send ~self ~cmd:(selector "pasteboardWithUniqueName") ~typ:(returning id) +let removePasteboardWithName x self = msg_send ~self ~cmd:(selector "removePasteboardWithName:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPatternCGColor.ml b/uikit/UIPatternCGColor.ml index 3589e406..0e9fa713 100644 --- a/uikit/UIPatternCGColor.ml +++ b/uikit/UIPatternCGColor.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPatternCGColor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipatterncgcolor?language=objc}UIPatternCGColor} *) -let colorSpaceName self = msg_send ~self ~cmd:(selector "colorSpaceName") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let getHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "getHue:saturation:brightness:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (bool)) x saturation brightness alpha -let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (bool)) x green blue alpha -let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> returning (bool)) x alpha -let initWithCGColor x self = msg_send ~self ~cmd:(selector "initWithCGColor:") ~typ:(ptr void @-> returning (id)) x -let isPatternColor self = msg_send ~self ~cmd:(selector "isPatternColor") ~typ:(returning (bool)) -let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning (void)) -let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning (void)) -let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIPatternCGColor" + +let colorSpaceName self = msg_send ~self ~cmd:(selector "colorSpaceName") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let getHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "getHue:saturation:brightness:alpha:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> (ptr double) @-> returning bool) x saturation brightness alpha +let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> (ptr double) @-> returning bool) x green blue alpha +let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:((ptr double) @-> (ptr double) @-> returning bool) x alpha +let initWithCGColor x self = msg_send ~self ~cmd:(selector "initWithCGColor:") ~typ:((ptr CGColor.t) @-> returning id) x +let isPatternColor self = msg_send ~self ~cmd:(selector "isPatternColor") ~typ:(returning bool) +let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning void) +let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning void) +let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIPencilEvent.ml b/uikit/UIPencilEvent.ml index 44587631..001fd3d0 100644 --- a/uikit/UIPencilEvent.ml +++ b/uikit/UIPencilEvent.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPencilEvent" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipencilevent?language=objc}UIPencilEvent} *) -let collectAllActiveInteractions self = msg_send ~self ~cmd:(selector "collectAllActiveInteractions") ~typ:(returning (id)) -let deregisterAllInteractionsForWindow x self = msg_send ~self ~cmd:(selector "deregisterAllInteractionsForWindow:") ~typ:(id @-> returning (void)) x -let deregisterInteraction x self = msg_send ~self ~cmd:(selector "deregisterInteraction:") ~typ:(id @-> returning (void)) x -let registerInteraction x self = msg_send ~self ~cmd:(selector "registerInteraction:") ~typ:(id @-> returning (void)) x -let setTrackedInteractions x self = msg_send ~self ~cmd:(selector "setTrackedInteractions:") ~typ:(id @-> returning (void)) x -let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning (llong)) -let trackedInteractions self = msg_send ~self ~cmd:(selector "trackedInteractions") ~typ:(returning (id)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIPencilEvent" + +let collectAllActiveInteractions self = msg_send ~self ~cmd:(selector "collectAllActiveInteractions") ~typ:(returning id) +let deregisterAllInteractionsForWindow x self = msg_send ~self ~cmd:(selector "deregisterAllInteractionsForWindow:") ~typ:(id @-> returning void) x +let deregisterInteraction x self = msg_send ~self ~cmd:(selector "deregisterInteraction:") ~typ:(id @-> returning void) x +let registerInteraction x self = msg_send ~self ~cmd:(selector "registerInteraction:") ~typ:(id @-> returning void) x +let setTrackedInteractions x self = msg_send ~self ~cmd:(selector "setTrackedInteractions:") ~typ:(id @-> returning void) x +let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning llong) +let trackedInteractions self = msg_send ~self ~cmd:(selector "trackedInteractions") ~typ:(returning id) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIPencilInteraction.ml b/uikit/UIPencilInteraction.ml index eb5d4f53..70916bac 100644 --- a/uikit/UIPencilInteraction.ml +++ b/uikit/UIPencilInteraction.ml @@ -5,24 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPencilInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipencilinteraction?language=objc}UIPencilInteraction} *) -module C = struct - let hasSeenPencilPairingUI self = msg_send ~self ~cmd:(selector "hasSeenPencilPairingUI") ~typ:(returning (bool)) - let preferredTapAction self = msg_send ~self ~cmd:(selector "preferredTapAction") ~typ:(returning (llong)) - let prefersPencilOnlyDrawing self = msg_send ~self ~cmd:(selector "prefersPencilOnlyDrawing") ~typ:(returning (bool)) -end +let self = get_class "UIPencilInteraction" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let performDelegateDidTap self = msg_send ~self ~cmd:(selector "performDelegateDidTap") ~typ:(returning (void)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let performDelegateDidTap self = msg_send ~self ~cmd:(selector "performDelegateDidTap") ~typ:(returning void) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPencilInteractionClass.ml b/uikit/UIPencilInteractionClass.ml new file mode 100644 index 00000000..939c869d --- /dev/null +++ b/uikit/UIPencilInteractionClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipencilinteraction?language=objc}UIPencilInteraction} *) + +let hasSeenPencilPairingUI self = msg_send ~self ~cmd:(selector "hasSeenPencilPairingUI") ~typ:(returning bool) +let preferredTapAction self = msg_send ~self ~cmd:(selector "preferredTapAction") ~typ:(returning llong) +let prefersPencilOnlyDrawing self = msg_send ~self ~cmd:(selector "prefersPencilOnlyDrawing") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIPercentDrivenInteractiveTransition.ml b/uikit/UIPercentDrivenInteractiveTransition.ml deleted file mode 100644 index aeb6fd4e..00000000 --- a/uikit/UIPercentDrivenInteractiveTransition.ml +++ /dev/null @@ -1,27 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPercentDrivenInteractiveTransition" - -let cancelInteractiveTransition self = msg_send ~self ~cmd:(selector "cancelInteractiveTransition") ~typ:(returning (void)) -let completionCurve self = msg_send ~self ~cmd:(selector "completionCurve") ~typ:(returning (llong)) -let completionSpeed self = msg_send ~self ~cmd:(selector "completionSpeed") ~typ:(returning (double)) -let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning (double)) -let finishInteractiveTransition self = msg_send ~self ~cmd:(selector "finishInteractiveTransition") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let pauseInteractiveTransition self = msg_send ~self ~cmd:(selector "pauseInteractiveTransition") ~typ:(returning (void)) -let percentComplete self = msg_send ~self ~cmd:(selector "percentComplete") ~typ:(returning (double)) -let setCompletionCurve x self = msg_send ~self ~cmd:(selector "setCompletionCurve:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCompletionSpeed x self = msg_send ~self ~cmd:(selector "setCompletionSpeed:") ~typ:(double @-> returning (void)) x -let setTimingCurve x self = msg_send ~self ~cmd:(selector "setTimingCurve:") ~typ:(id @-> returning (void)) x -let setWantsInteractiveStart x self = msg_send ~self ~cmd:(selector "setWantsInteractiveStart:") ~typ:(bool @-> returning (void)) x -let startInteractiveTransition x self = msg_send ~self ~cmd:(selector "startInteractiveTransition:") ~typ:(id @-> returning (void)) x -let startInteractiveTransition' x ~containerViews ~animation self = msg_send ~self ~cmd:(selector "startInteractiveTransition:containerViews:animation:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x containerViews animation -let timingCurve self = msg_send ~self ~cmd:(selector "timingCurve") ~typ:(returning (id)) -let updateInteractiveTransition x self = msg_send ~self ~cmd:(selector "updateInteractiveTransition:") ~typ:(double @-> returning (void)) x -let wantsInteractiveStart self = msg_send ~self ~cmd:(selector "wantsInteractiveStart") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIPeripheralHost.ml b/uikit/UIPeripheralHost.ml index 24bb7545..413df067 100644 --- a/uikit/UIPeripheralHost.ml +++ b/uikit/UIPeripheralHost.ml @@ -5,192 +5,177 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPeripheralHost" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiperipheralhost?language=objc}UIPeripheralHost} *) -module C = struct - let activeInstance self = msg_send ~self ~cmd:(selector "activeInstance") ~typ:(returning (id)) - let adjustFloatingPersistentOffsetForKeyboardSize x self = msg_send ~self ~cmd:(selector "adjustFloatingPersistentOffsetForKeyboardSize:") ~typ:(CGSize.t @-> returning (void)) x - let allVisiblePeripheralFrames self = msg_send ~self ~cmd:(selector "allVisiblePeripheralFrames") ~typ:(returning (id)) - let defaultUndockedOffset self = msg_send_stret ~self ~cmd:(selector "defaultUndockedOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t - let endPlacementForInputViewSet x ~windowScene self = msg_send ~self ~cmd:(selector "endPlacementForInputViewSet:windowScene:") ~typ:(id @-> id @-> returning (id)) x windowScene - let gridViewRubberBandValueForValue x ~target ~timeInterval ~velocity self = msg_send ~self ~cmd:(selector "gridViewRubberBandValueForValue:target:timeInterval:velocity:") ~typ:(double @-> double @-> double @-> ptr (double) @-> returning (double)) x target timeInterval velocity - let hostViewClass self = msg_send ~self ~cmd:(selector "hostViewClass") ~typ:(returning (_Class)) - let inputViewSetContainsView x self = msg_send ~self ~cmd:(selector "inputViewSetContainsView:") ~typ:(id @-> returning (bool)) x - let passthroughViews self = msg_send ~self ~cmd:(selector "passthroughViews") ~typ:(returning (id)) - let pointIsWithinKeyboardContent x self = msg_send ~self ~cmd:(selector "pointIsWithinKeyboardContent:") ~typ:(CGPoint.t @-> returning (bool)) x - let screenBoundsInAppOrientation self = msg_send_stret ~self ~cmd:(selector "screenBoundsInAppOrientation") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t - let setFloating x ~onCompletion self = msg_send ~self ~cmd:(selector "setFloating:onCompletion:") ~typ:(bool @-> ptr void @-> returning (void)) x onCompletion - let setKeyboardOnScreenNotifyKey x self = msg_send ~self ~cmd:(selector "setKeyboardOnScreenNotifyKey:") ~typ:(bool @-> returning (void)) x - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) - let visibleInputViewFrame self = msg_send_stret ~self ~cmd:(selector "visibleInputViewFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t - let visiblePeripheralFrame self = msg_send_stret ~self ~cmd:(selector "visiblePeripheralFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -end +let self = get_class "UIPeripheralHost" -let adjustedPersistentOffset self = msg_send_stret ~self ~cmd:(selector "adjustedPersistentOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let ambiguousControlCenterActivationMargin self = msg_send ~self ~cmd:(selector "ambiguousControlCenterActivationMargin") ~typ:(returning (double)) -let animationFencingEnabled self = msg_send ~self ~cmd:(selector "animationFencingEnabled") ~typ:(returning (bool)) -let animationsEnabled self = msg_send ~self ~cmd:(selector "animationsEnabled") ~typ:(returning (bool)) -let automaticAppearanceEnabled self = msg_send ~self ~cmd:(selector "automaticAppearanceEnabled") ~typ:(returning (bool)) -let automaticAppearanceInternalEnabled self = msg_send ~self ~cmd:(selector "automaticAppearanceInternalEnabled") ~typ:(returning (bool)) -let automaticAppearanceReallyEnabled self = msg_send ~self ~cmd:(selector "automaticAppearanceReallyEnabled") ~typ:(returning (bool)) -let automaticKeyboard self = msg_send ~self ~cmd:(selector "automaticKeyboard") ~typ:(returning (id)) -let containerRootController self = msg_send ~self ~cmd:(selector "containerRootController") ~typ:(returning (id)) -let containerTextEffectsWindow self = msg_send ~self ~cmd:(selector "containerTextEffectsWindow") ~typ:(returning (id)) -let containerTextEffectsWindowAboveStatusBar self = msg_send ~self ~cmd:(selector "containerTextEffectsWindowAboveStatusBar") ~typ:(returning (id)) -let containerWindow self = msg_send ~self ~cmd:(selector "containerWindow") ~typ:(returning (id)) -let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning (id)) -let createAutomaticKeyboardIfNeeded self = msg_send ~self ~cmd:(selector "createAutomaticKeyboardIfNeeded") ~typ:(returning (void)) -let currentState self = msg_send ~self ~cmd:(selector "currentState") ~typ:(returning (int)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let disableInterfaceAutorotation x self = msg_send ~self ~cmd:(selector "disableInterfaceAutorotation:") ~typ:(bool @-> returning (void)) x -let documentInputMode self = msg_send ~self ~cmd:(selector "documentInputMode") ~typ:(returning (id)) -let enableKeyboardTyping self = msg_send ~self ~cmd:(selector "enableKeyboardTyping") ~typ:(returning (void)) -let existingContainerRootController self = msg_send ~self ~cmd:(selector "existingContainerRootController") ~typ:(returning (id)) -let extendKeyboardBackdropHeight x ~withDuration self = msg_send ~self ~cmd:(selector "extendKeyboardBackdropHeight:withDuration:") ~typ:(double @-> double @-> returning (void)) x withDuration -let fadeInInputViews x self = msg_send ~self ~cmd:(selector "fadeInInputViews:") ~typ:(bool @-> returning (void)) x -let fadeInputViewsIfNeeded self = msg_send ~self ~cmd:(selector "fadeInputViewsIfNeeded") ~typ:(returning (void)) -let finishRotation self = msg_send ~self ~cmd:(selector "finishRotation") ~typ:(returning (void)) -let finishRotationOfKeyboard x self = msg_send ~self ~cmd:(selector "finishRotationOfKeyboard:") ~typ:(id @-> returning (void)) x -let flushDelayedTasks self = msg_send ~self ~cmd:(selector "flushDelayedTasks") ~typ:(returning (void)) -let flushDelayedTasksForKey x self = msg_send ~self ~cmd:(selector "flushDelayedTasksForKey:") ~typ:(id @-> returning (void)) x -let forceOrderInAutomatic self = msg_send ~self ~cmd:(selector "forceOrderInAutomatic") ~typ:(returning (void)) -let forceOrderInAutomaticAnimated x self = msg_send ~self ~cmd:(selector "forceOrderInAutomaticAnimated:") ~typ:(bool @-> returning (void)) x -let forceOrderInAutomaticFromDirection x ~withDuration self = msg_send ~self ~cmd:(selector "forceOrderInAutomaticFromDirection:withDuration:") ~typ:(int @-> double @-> returning (void)) x withDuration -let forceOrderOutAutomatic self = msg_send ~self ~cmd:(selector "forceOrderOutAutomatic") ~typ:(returning (void)) -let forceOrderOutAutomaticAnimated x self = msg_send ~self ~cmd:(selector "forceOrderOutAutomaticAnimated:") ~typ:(bool @-> returning (void)) x -let forceOrderOutAutomaticToDirection x ~withDuration self = msg_send ~self ~cmd:(selector "forceOrderOutAutomaticToDirection:withDuration:") ~typ:(int @-> double @-> returning (void)) x withDuration -let forceReloadInputViews self = msg_send ~self ~cmd:(selector "forceReloadInputViews") ~typ:(returning (void)) -let getLastAutomaticDuration self = msg_send ~self ~cmd:(selector "getLastAutomaticDuration") ~typ:(returning (double)) -let getVerticalOverlapForView x ~usingKeyboardInfo self = msg_send ~self ~cmd:(selector "getVerticalOverlapForView:usingKeyboardInfo:") ~typ:(id @-> id @-> returning (double)) x usingKeyboardInfo -let hasCustomInputView self = msg_send ~self ~cmd:(selector "hasCustomInputView") ~typ:(returning (bool)) -let hasDelayedTasksForKey x self = msg_send ~self ~cmd:(selector "hasDelayedTasksForKey:") ~typ:(id @-> returning (bool)) x -let hasDictationKeyboard self = msg_send ~self ~cmd:(selector "hasDictationKeyboard") ~typ:(returning (bool)) -let ignoresPinning self = msg_send ~self ~cmd:(selector "ignoresPinning") ~typ:(returning (bool)) -let implBoundsHeightChangeDoneForGeometry x self = msg_send ~self ~cmd:(selector "implBoundsHeightChangeDoneForGeometry:") ~typ:(ptr void @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let inputModeChangedForRenderConfig x self = msg_send ~self ~cmd:(selector "inputModeChangedForRenderConfig:") ~typ:(id @-> returning (void)) x -let inputViews self = msg_send ~self ~cmd:(selector "inputViews") ~typ:(returning (id)) -let isHostingActiveImpl self = msg_send ~self ~cmd:(selector "isHostingActiveImpl") ~typ:(returning (bool)) -let isOffScreen self = msg_send ~self ~cmd:(selector "isOffScreen") ~typ:(returning (bool)) -let isOnScreen self = msg_send ~self ~cmd:(selector "isOnScreen") ~typ:(returning (bool)) -let isRotating self = msg_send ~self ~cmd:(selector "isRotating") ~typ:(returning (bool)) -let isSplitting self = msg_send ~self ~cmd:(selector "isSplitting") ~typ:(returning (bool)) -let isTranslating self = msg_send ~self ~cmd:(selector "isTranslating") ~typ:(returning (bool)) -let isUndocked self = msg_send ~self ~cmd:(selector "isUndocked") ~typ:(returning (bool)) -let keyClicksEnabled self = msg_send ~self ~cmd:(selector "keyClicksEnabled") ~typ:(returning (bool)) -let keyboardAttachedViewHeight self = msg_send ~self ~cmd:(selector "keyboardAttachedViewHeight") ~typ:(returning (double)) -let lastKeyplaneResize self = msg_send ~self ~cmd:(selector "lastKeyplaneResize") ~typ:(returning (double)) -let lastUsedInputModeForCurrentContext self = msg_send ~self ~cmd:(selector "lastUsedInputModeForCurrentContext") ~typ:(returning (id)) -let layoutIfNeeded self = msg_send ~self ~cmd:(selector "layoutIfNeeded") ~typ:(returning (void)) -let layoutInputViews self = msg_send ~self ~cmd:(selector "layoutInputViews") ~typ:(returning (void)) -let loadAwareInputViews self = msg_send ~self ~cmd:(selector "loadAwareInputViews") ~typ:(returning (id)) -let logGeometryDescriptionFromUserInfo x self = msg_send ~self ~cmd:(selector "logGeometryDescriptionFromUserInfo:") ~typ:(id @-> returning (void)) x -let manualKeyboardWasOrderedIn x self = msg_send ~self ~cmd:(selector "manualKeyboardWasOrderedIn:") ~typ:(id @-> returning (void)) x -let manualKeyboardWasOrderedOut x self = msg_send ~self ~cmd:(selector "manualKeyboardWasOrderedOut:") ~typ:(id @-> returning (void)) x -let manualKeyboardWillBeOrderedIn x self = msg_send ~self ~cmd:(selector "manualKeyboardWillBeOrderedIn:") ~typ:(id @-> returning (void)) x -let manualKeyboardWillBeOrderedOut x self = msg_send ~self ~cmd:(selector "manualKeyboardWillBeOrderedOut:") ~typ:(id @-> returning (void)) x -let maximize self = msg_send ~self ~cmd:(selector "maximize") ~typ:(returning (bool)) -let maximizeWithAnimation x self = msg_send ~self ~cmd:(selector "maximizeWithAnimation:") ~typ:(bool @-> returning (bool)) x -let minimize self = msg_send ~self ~cmd:(selector "minimize") ~typ:(returning (bool)) -let minimumOffsetForBuffer x self = msg_send ~self ~cmd:(selector "minimumOffsetForBuffer:") ~typ:(double @-> returning (double)) x -let moveToPersistentOffset self = msg_send ~self ~cmd:(selector "moveToPersistentOffset") ~typ:(returning (void)) -let nextAnimationStyle self = msg_send ~self ~cmd:(selector "nextAnimationStyle") ~typ:(returning (id)) -let nextAnimationStyle' x self = msg_send ~self ~cmd:(selector "nextAnimationStyle:") ~typ:(bool @-> returning (id)) x -let offHostPointForPoint x self = msg_send_stret ~self ~cmd:(selector "offHostPointForPoint:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let orderInAutomatic self = msg_send ~self ~cmd:(selector "orderInAutomatic") ~typ:(returning (void)) -let orderInAutomaticFromDirection x ~withDuration self = msg_send ~self ~cmd:(selector "orderInAutomaticFromDirection:withDuration:") ~typ:(int @-> double @-> returning (void)) x withDuration -let orderInAutomaticSkippingAnimation self = msg_send ~self ~cmd:(selector "orderInAutomaticSkippingAnimation") ~typ:(returning (void)) -let orderInWithAnimationStyle x self = msg_send ~self ~cmd:(selector "orderInWithAnimationStyle:") ~typ:(id @-> returning (void)) x -let orderOutAutomatic self = msg_send ~self ~cmd:(selector "orderOutAutomatic") ~typ:(returning (void)) -let orderOutAutomaticExceptAccessoryView self = msg_send ~self ~cmd:(selector "orderOutAutomaticExceptAccessoryView") ~typ:(returning (void)) -let orderOutAutomaticSkippingAnimation self = msg_send ~self ~cmd:(selector "orderOutAutomaticSkippingAnimation") ~typ:(returning (void)) -let orderOutAutomaticToDirection x ~withDuration self = msg_send ~self ~cmd:(selector "orderOutAutomaticToDirection:withDuration:") ~typ:(int @-> double @-> returning (void)) x withDuration -let orderOutWithAnimation x ~toDirection ~duration self = msg_send ~self ~cmd:(selector "orderOutWithAnimation:toDirection:duration:") ~typ:(bool @-> int @-> double @-> returning (void)) x toDirection duration -let orderOutWithAnimationStyle x self = msg_send ~self ~cmd:(selector "orderOutWithAnimationStyle:") ~typ:(id @-> returning (void)) x -let performMultipleOperations x ~withAnimationStyle self = msg_send ~self ~cmd:(selector "performMultipleOperations:withAnimationStyle:") ~typ:(ptr void @-> id @-> returning (void)) x withAnimationStyle -let performWithAllowingNilResponderReload x self = msg_send ~self ~cmd:(selector "performWithAllowingNilResponderReload:") ~typ:(ptr void @-> returning (void)) x -let performWithoutDeactivation x self = msg_send ~self ~cmd:(selector "performWithoutDeactivation:") ~typ:(ptr void @-> returning (void)) x -let peripheralHostWillResume x self = msg_send ~self ~cmd:(selector "peripheralHostWillResume:") ~typ:(id @-> returning (void)) x -let peripheralViewMinMaximized x ~state self = msg_send ~self ~cmd:(selector "peripheralViewMinMaximized:state:") ~typ:(bool @-> id @-> returning (void)) x state -let pinningPreventsInputViews x self = msg_send ~self ~cmd:(selector "pinningPreventsInputViews:") ~typ:(id @-> returning (bool)) x -let popAnimationStyle self = msg_send ~self ~cmd:(selector "popAnimationStyle") ~typ:(returning (void)) -let postDidHideNotification self = msg_send ~self ~cmd:(selector "postDidHideNotification") ~typ:(returning (void)) -let postDidHideNotificationForGeometry x self = msg_send ~self ~cmd:(selector "postDidHideNotificationForGeometry:") ~typ:(ptr void @-> returning (void)) x -let postDidShowNotification self = msg_send ~self ~cmd:(selector "postDidShowNotification") ~typ:(returning (void)) -let postDidShowNotificationForGeometry x self = msg_send ~self ~cmd:(selector "postDidShowNotificationForGeometry:") ~typ:(ptr void @-> returning (void)) x -let postKeyboardFrameChangeNotification x ~withInfo self = msg_send ~self ~cmd:(selector "postKeyboardFrameChangeNotification:withInfo:") ~typ:(id @-> id @-> returning (void)) x withInfo -let postPinningReloadState self = msg_send ~self ~cmd:(selector "postPinningReloadState") ~typ:(returning (id)) -let postWillHideNotificationForGeometry x ~duration self = msg_send ~self ~cmd:(selector "postWillHideNotificationForGeometry:duration:") ~typ:(ptr void @-> double @-> returning (void)) x duration -let postWillShowNotificationForGeometry x ~duration self = msg_send ~self ~cmd:(selector "postWillShowNotificationForGeometry:duration:") ~typ:(ptr void @-> double @-> returning (void)) x duration -let prepareForAlongsideTransitionWithContext x self = msg_send ~self ~cmd:(selector "prepareForAlongsideTransitionWithContext:") ~typ:(id @-> returning (void)) x -let prepareForPinning self = msg_send ~self ~cmd:(selector "prepareForPinning") ~typ:(returning (void)) -let prepareForRotationOfKeyboard x ~toOrientation self = msg_send ~self ~cmd:(selector "prepareForRotationOfKeyboard:toOrientation:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int toOrientation) -let prepareForRotationToOrientation x self = msg_send ~self ~cmd:(selector "prepareForRotationToOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let prepareToMoveKeyboardForInputViewSet x ~animationStyle self = msg_send ~self ~cmd:(selector "prepareToMoveKeyboardForInputViewSet:animationStyle:") ~typ:(id @-> id @-> returning (void)) x animationStyle -let preservingInputViews self = msg_send ~self ~cmd:(selector "preservingInputViews") ~typ:(returning (bool)) -let pushAnimationStyle x self = msg_send ~self ~cmd:(selector "pushAnimationStyle:") ~typ:(id @-> returning (void)) x -let queueDelayedTask x self = msg_send ~self ~cmd:(selector "queueDelayedTask:") ~typ:(ptr void @-> returning (void)) x -let queueDelayedTask' x ~forKey self = msg_send ~self ~cmd:(selector "queueDelayedTask:forKey:") ~typ:(ptr void @-> id @-> returning (void)) x forKey -let removePreservedInputViewSetForInputView x self = msg_send ~self ~cmd:(selector "removePreservedInputViewSetForInputView:") ~typ:(id @-> returning (void)) x -let resetCurrentOrderOutAnimationDuration x self = msg_send ~self ~cmd:(selector "resetCurrentOrderOutAnimationDuration:") ~typ:(double @-> returning (void)) x -let resetNextAutomaticOrderInDirectionAndDuration self = msg_send ~self ~cmd:(selector "resetNextAutomaticOrderInDirectionAndDuration") ~typ:(returning (void)) -let responder self = msg_send ~self ~cmd:(selector "responder") ~typ:(returning (id)) -let restorableRenderConfig self = msg_send ~self ~cmd:(selector "restorableRenderConfig") ~typ:(returning (id)) -let retain self = msg_send ~self ~cmd:(selector "retain") ~typ:(returning (id)) -let rotateKeyboard x ~toOrientation self = msg_send ~self ~cmd:(selector "rotateKeyboard:toOrientation:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int toOrientation) -let rotateToOrientation x self = msg_send ~self ~cmd:(selector "rotateToOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let rotationState self = msg_send ~self ~cmd:(selector "rotationState") ~typ:(returning (id)) -let screenRectFromBounds x ~atCenter ~applyingSourceHeightDelta self = msg_send_stret ~self ~cmd:(selector "screenRectFromBounds:atCenter:applyingSourceHeightDelta:") ~typ:(CGRect.t @-> CGPoint.t @-> double @-> returning (CGRect.t)) ~return_type:CGRect.t x atCenter applyingSourceHeightDelta -let scrollView x ~didFinishPanGesture self = msg_send ~self ~cmd:(selector "scrollView:didFinishPanGesture:") ~typ:(id @-> id @-> returning (void)) x didFinishPanGesture -let scrollView' x ~didPanWithGesture self = msg_send ~self ~cmd:(selector "scrollView:didPanWithGesture:") ~typ:(id @-> id @-> returning (void)) x didPanWithGesture -let selfHostingTrigger self = msg_send ~self ~cmd:(selector "selfHostingTrigger") ~typ:(returning (id)) -let setAccessoryViewVisible x ~delay self = msg_send ~self ~cmd:(selector "setAccessoryViewVisible:delay:") ~typ:(bool @-> double @-> returning (void)) x delay -let setAmbiguousControlCenterActivationMargin x self = msg_send ~self ~cmd:(selector "setAmbiguousControlCenterActivationMargin:") ~typ:(double @-> returning (void)) x -let setAnimationFencingEnabled x self = msg_send ~self ~cmd:(selector "setAnimationFencingEnabled:") ~typ:(bool @-> returning (void)) x -let setAutomaticAppearanceEnabled x self = msg_send ~self ~cmd:(selector "setAutomaticAppearanceEnabled:") ~typ:(bool @-> returning (void)) x -let setAutomaticAppearanceInternalEnabled x self = msg_send ~self ~cmd:(selector "setAutomaticAppearanceInternalEnabled:") ~typ:(bool @-> returning (void)) x -let setCurrentState x self = msg_send ~self ~cmd:(selector "setCurrentState:") ~typ:(int @-> returning (void)) x -let setDeactivatedKeyboard x ~forScene self = msg_send ~self ~cmd:(selector "setDeactivatedKeyboard:forScene:") ~typ:(bool @-> id @-> returning (void)) x forScene -let setDocumentInputMode x self = msg_send ~self ~cmd:(selector "setDocumentInputMode:") ~typ:(id @-> returning (void)) x -let setIgnoresPinning x self = msg_send ~self ~cmd:(selector "setIgnoresPinning:") ~typ:(bool @-> returning (void)) x -let setInputViews x self = msg_send ~self ~cmd:(selector "setInputViews:") ~typ:(id @-> returning (void)) x -let setInputViews1 x ~animated self = msg_send ~self ~cmd:(selector "setInputViews:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setInputViews2 x ~animationStyle self = msg_send ~self ~cmd:(selector "setInputViews:animationStyle:") ~typ:(id @-> id @-> returning (void)) x animationStyle -let setInputViewsHidden x self = msg_send ~self ~cmd:(selector "setInputViewsHidden:") ~typ:(bool @-> returning (void)) x -let setKeyboardFencingEnabled x self = msg_send ~self ~cmd:(selector "setKeyboardFencingEnabled:") ~typ:(bool @-> returning (void)) x -let setKeyboardOnScreenNotifyKey x self = msg_send ~self ~cmd:(selector "setKeyboardOnScreenNotifyKey:") ~typ:(bool @-> returning (void)) x -let setLastKeyplaneResize x self = msg_send ~self ~cmd:(selector "setLastKeyplaneResize:") ~typ:(double @-> returning (void)) x -let setNextAutomaticOrderInDirection x ~duration self = msg_send ~self ~cmd:(selector "setNextAutomaticOrderInDirection:duration:") ~typ:(int @-> double @-> returning (void)) x duration -let setPostPinningReloadState x self = msg_send ~self ~cmd:(selector "setPostPinningReloadState:") ~typ:(id @-> returning (void)) x -let setPreservingInputViews x self = msg_send ~self ~cmd:(selector "setPreservingInputViews:") ~typ:(bool @-> returning (void)) x -let setResponder x self = msg_send ~self ~cmd:(selector "setResponder:") ~typ:(id @-> returning (void)) x -let setRestorableRenderConfig x self = msg_send ~self ~cmd:(selector "setRestorableRenderConfig:") ~typ:(id @-> returning (void)) x -let setRotationState x self = msg_send ~self ~cmd:(selector "setRotationState:") ~typ:(id @-> returning (void)) x -let setSelfHostingTrigger x self = msg_send ~self ~cmd:(selector "setSelfHostingTrigger:") ~typ:(id @-> returning (void)) x -let setTargetState x self = msg_send ~self ~cmd:(selector "setTargetState:") ~typ:(id @-> returning (void)) x -let setTextEffectsWindowLevelForInputView x ~responder self = msg_send ~self ~cmd:(selector "setTextEffectsWindowLevelForInputView:responder:") ~typ:(id @-> id @-> returning (void)) x responder -let setUndockedWithOffset x ~animated self = msg_send ~self ~cmd:(selector "setUndockedWithOffset:animated:") ~typ:(CGPoint.t @-> bool @-> returning (void)) x animated -let setkeyboardAttachedViewHeight x self = msg_send ~self ~cmd:(selector "setkeyboardAttachedViewHeight:") ~typ:(double @-> returning (void)) x -let shouldApplySettingsForBackdropView x self = msg_send ~self ~cmd:(selector "shouldApplySettingsForBackdropView:") ~typ:(id @-> returning (bool)) x -let shouldUseHideNotificationForGeometry x self = msg_send ~self ~cmd:(selector "shouldUseHideNotificationForGeometry:") ~typ:(ptr void @-> returning (bool)) x -let showInputViewsIfNeeded self = msg_send ~self ~cmd:(selector "showInputViewsIfNeeded") ~typ:(returning (void)) -let sizeOfInputViewForInputViewSet x ~withInterfaceOrientation self = msg_send_stret ~self ~cmd:(selector "sizeOfInputViewForInputViewSet:withInterfaceOrientation:") ~typ:(id @-> llong @-> returning (CGSize.t)) ~return_type:CGSize.t x (LLong.of_int withInterfaceOrientation) -let targetState self = msg_send ~self ~cmd:(selector "targetState") ~typ:(returning (id)) -let textEffectsWindowDidRotate x self = msg_send ~self ~cmd:(selector "textEffectsWindowDidRotate:") ~typ:(id @-> returning (void)) x -let topAnimationStyle self = msg_send ~self ~cmd:(selector "topAnimationStyle") ~typ:(returning (id)) -let totalPeripheralSizeForOrientation x self = msg_send_stret ~self ~cmd:(selector "totalPeripheralSizeForOrientation:") ~typ:(llong @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) -let transformedContainerView self = msg_send ~self ~cmd:(selector "transformedContainerView") ~typ:(returning (id)) -let transitioningFrame self = msg_send_stret ~self ~cmd:(selector "transitioningFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let transitioningView self = msg_send ~self ~cmd:(selector "transitioningView") ~typ:(returning (id)) -let undockedInfoFromDefaultInfo x ~forNotification self = msg_send ~self ~cmd:(selector "undockedInfoFromDefaultInfo:forNotification:") ~typ:(id @-> id @-> returning (id)) x forNotification -let updateBackdrop self = msg_send ~self ~cmd:(selector "updateBackdrop") ~typ:(returning (void)) -let updateInputAccessoryViewVisibility x ~withDuration self = msg_send ~self ~cmd:(selector "updateInputAccessoryViewVisibility:withDuration:") ~typ:(bool @-> double @-> returning (void)) x withDuration -let updateRenderConfigForCurrentResponder self = msg_send ~self ~cmd:(selector "updateRenderConfigForCurrentResponder") ~typ:(returning (void)) -let updateRenderConfigForResponder x self = msg_send ~self ~cmd:(selector "updateRenderConfigForResponder:") ~typ:(id @-> returning (void)) x -let updateToPlacement x ~withNormalAnimationsAndNotifications self = msg_send ~self ~cmd:(selector "updateToPlacement:withNormalAnimationsAndNotifications:") ~typ:(id @-> bool @-> returning (void)) x withNormalAnimationsAndNotifications -let userInfoContainsActualGeometryChange x self = msg_send ~self ~cmd:(selector "userInfoContainsActualGeometryChange:") ~typ:(id @-> returning (bool)) x -let userInfoFromGeometry x ~duration ~forWill ~forShow self = msg_send ~self ~cmd:(selector "userInfoFromGeometry:duration:forWill:forShow:") ~typ:(ptr void @-> double @-> bool @-> bool @-> returning (id)) x duration forWill forShow -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let viewForTransitionScreenSnapshot self = msg_send ~self ~cmd:(selector "viewForTransitionScreenSnapshot") ~typ:(returning (id)) -let visiblePeripheralFrame x self = msg_send_stret ~self ~cmd:(selector "visiblePeripheralFrame:") ~typ:(bool @-> returning (CGRect.t)) ~return_type:CGRect.t x \ No newline at end of file +let adjustedPersistentOffset self = msg_send ~self ~cmd:(selector "adjustedPersistentOffset") ~typ:(returning CGPoint.t) +let ambiguousControlCenterActivationMargin self = msg_send ~self ~cmd:(selector "ambiguousControlCenterActivationMargin") ~typ:(returning double) +let animationFencingEnabled self = msg_send ~self ~cmd:(selector "animationFencingEnabled") ~typ:(returning bool) +let animationsEnabled self = msg_send ~self ~cmd:(selector "animationsEnabled") ~typ:(returning bool) +let automaticAppearanceEnabled self = msg_send ~self ~cmd:(selector "automaticAppearanceEnabled") ~typ:(returning bool) +let automaticAppearanceInternalEnabled self = msg_send ~self ~cmd:(selector "automaticAppearanceInternalEnabled") ~typ:(returning bool) +let automaticAppearanceReallyEnabled self = msg_send ~self ~cmd:(selector "automaticAppearanceReallyEnabled") ~typ:(returning bool) +let automaticKeyboard self = msg_send ~self ~cmd:(selector "automaticKeyboard") ~typ:(returning id) +let containerRootController self = msg_send ~self ~cmd:(selector "containerRootController") ~typ:(returning id) +let containerTextEffectsWindow self = msg_send ~self ~cmd:(selector "containerTextEffectsWindow") ~typ:(returning id) +let containerTextEffectsWindowAboveStatusBar self = msg_send ~self ~cmd:(selector "containerTextEffectsWindowAboveStatusBar") ~typ:(returning id) +let containerWindow self = msg_send ~self ~cmd:(selector "containerWindow") ~typ:(returning id) +let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning id) +let createAutomaticKeyboardIfNeeded self = msg_send ~self ~cmd:(selector "createAutomaticKeyboardIfNeeded") ~typ:(returning void) +let currentState self = msg_send ~self ~cmd:(selector "currentState") ~typ:(returning int) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let disableInterfaceAutorotation x self = msg_send ~self ~cmd:(selector "disableInterfaceAutorotation:") ~typ:(bool @-> returning void) x +let documentInputMode self = msg_send ~self ~cmd:(selector "documentInputMode") ~typ:(returning id) +let enableKeyboardTyping self = msg_send ~self ~cmd:(selector "enableKeyboardTyping") ~typ:(returning void) +let existingContainerRootController self = msg_send ~self ~cmd:(selector "existingContainerRootController") ~typ:(returning id) +let extendKeyboardBackdropHeight x ~withDuration self = msg_send ~self ~cmd:(selector "extendKeyboardBackdropHeight:withDuration:") ~typ:(double @-> double @-> returning void) x withDuration +let fadeInInputViews x self = msg_send ~self ~cmd:(selector "fadeInInputViews:") ~typ:(bool @-> returning void) x +let fadeInputViewsIfNeeded self = msg_send ~self ~cmd:(selector "fadeInputViewsIfNeeded") ~typ:(returning void) +let finishRotation self = msg_send ~self ~cmd:(selector "finishRotation") ~typ:(returning void) +let finishRotationOfKeyboard x self = msg_send ~self ~cmd:(selector "finishRotationOfKeyboard:") ~typ:(id @-> returning void) x +let flushDelayedTasks self = msg_send ~self ~cmd:(selector "flushDelayedTasks") ~typ:(returning void) +let flushDelayedTasksForKey x self = msg_send ~self ~cmd:(selector "flushDelayedTasksForKey:") ~typ:(id @-> returning void) x +let forceOrderInAutomatic self = msg_send ~self ~cmd:(selector "forceOrderInAutomatic") ~typ:(returning void) +let forceOrderInAutomaticAnimated x self = msg_send ~self ~cmd:(selector "forceOrderInAutomaticAnimated:") ~typ:(bool @-> returning void) x +let forceOrderInAutomaticFromDirection x ~withDuration self = msg_send ~self ~cmd:(selector "forceOrderInAutomaticFromDirection:withDuration:") ~typ:(int @-> double @-> returning void) x withDuration +let forceOrderOutAutomatic self = msg_send ~self ~cmd:(selector "forceOrderOutAutomatic") ~typ:(returning void) +let forceOrderOutAutomaticAnimated x self = msg_send ~self ~cmd:(selector "forceOrderOutAutomaticAnimated:") ~typ:(bool @-> returning void) x +let forceOrderOutAutomaticToDirection x ~withDuration self = msg_send ~self ~cmd:(selector "forceOrderOutAutomaticToDirection:withDuration:") ~typ:(int @-> double @-> returning void) x withDuration +let forceReloadInputViews self = msg_send ~self ~cmd:(selector "forceReloadInputViews") ~typ:(returning void) +let getLastAutomaticDuration self = msg_send ~self ~cmd:(selector "getLastAutomaticDuration") ~typ:(returning double) +let getVerticalOverlapForView x ~usingKeyboardInfo self = msg_send ~self ~cmd:(selector "getVerticalOverlapForView:usingKeyboardInfo:") ~typ:(id @-> id @-> returning double) x usingKeyboardInfo +let hasCustomInputView self = msg_send ~self ~cmd:(selector "hasCustomInputView") ~typ:(returning bool) +let hasDelayedTasksForKey x self = msg_send ~self ~cmd:(selector "hasDelayedTasksForKey:") ~typ:(id @-> returning bool) x +let hasDictationKeyboard self = msg_send ~self ~cmd:(selector "hasDictationKeyboard") ~typ:(returning bool) +let ignoresPinning self = msg_send ~self ~cmd:(selector "ignoresPinning") ~typ:(returning bool) +let implBoundsHeightChangeDoneForGeometry x self = msg_send ~self ~cmd:(selector "implBoundsHeightChangeDoneForGeometry:") ~typ:(ptr void @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let inputModeChangedForRenderConfig x self = msg_send ~self ~cmd:(selector "inputModeChangedForRenderConfig:") ~typ:(id @-> returning void) x +let inputViews self = msg_send ~self ~cmd:(selector "inputViews") ~typ:(returning id) +let isHostingActiveImpl self = msg_send ~self ~cmd:(selector "isHostingActiveImpl") ~typ:(returning bool) +let isOffScreen self = msg_send ~self ~cmd:(selector "isOffScreen") ~typ:(returning bool) +let isOnScreen self = msg_send ~self ~cmd:(selector "isOnScreen") ~typ:(returning bool) +let isRotating self = msg_send ~self ~cmd:(selector "isRotating") ~typ:(returning bool) +let isSplitting self = msg_send ~self ~cmd:(selector "isSplitting") ~typ:(returning bool) +let isTranslating self = msg_send ~self ~cmd:(selector "isTranslating") ~typ:(returning bool) +let isUndocked self = msg_send ~self ~cmd:(selector "isUndocked") ~typ:(returning bool) +let keyClicksEnabled self = msg_send ~self ~cmd:(selector "keyClicksEnabled") ~typ:(returning bool) +let keyboardAttachedViewHeight self = msg_send ~self ~cmd:(selector "keyboardAttachedViewHeight") ~typ:(returning double) +let lastKeyplaneResize self = msg_send ~self ~cmd:(selector "lastKeyplaneResize") ~typ:(returning double) +let lastUsedInputModeForCurrentContext self = msg_send ~self ~cmd:(selector "lastUsedInputModeForCurrentContext") ~typ:(returning id) +let layoutIfNeeded self = msg_send ~self ~cmd:(selector "layoutIfNeeded") ~typ:(returning void) +let layoutInputViews self = msg_send ~self ~cmd:(selector "layoutInputViews") ~typ:(returning void) +let loadAwareInputViews self = msg_send ~self ~cmd:(selector "loadAwareInputViews") ~typ:(returning id) +let logGeometryDescriptionFromUserInfo x self = msg_send ~self ~cmd:(selector "logGeometryDescriptionFromUserInfo:") ~typ:(id @-> returning void) x +let manualKeyboardWasOrderedIn x self = msg_send ~self ~cmd:(selector "manualKeyboardWasOrderedIn:") ~typ:(id @-> returning void) x +let manualKeyboardWasOrderedOut x self = msg_send ~self ~cmd:(selector "manualKeyboardWasOrderedOut:") ~typ:(id @-> returning void) x +let manualKeyboardWillBeOrderedIn x self = msg_send ~self ~cmd:(selector "manualKeyboardWillBeOrderedIn:") ~typ:(id @-> returning void) x +let manualKeyboardWillBeOrderedOut x self = msg_send ~self ~cmd:(selector "manualKeyboardWillBeOrderedOut:") ~typ:(id @-> returning void) x +let maximize self = msg_send ~self ~cmd:(selector "maximize") ~typ:(returning bool) +let maximizeWithAnimation x self = msg_send ~self ~cmd:(selector "maximizeWithAnimation:") ~typ:(bool @-> returning bool) x +let minimize self = msg_send ~self ~cmd:(selector "minimize") ~typ:(returning bool) +let minimumOffsetForBuffer x self = msg_send ~self ~cmd:(selector "minimumOffsetForBuffer:") ~typ:(double @-> returning double) x +let moveToPersistentOffset self = msg_send ~self ~cmd:(selector "moveToPersistentOffset") ~typ:(returning void) +let nextAnimationStyle self = msg_send ~self ~cmd:(selector "nextAnimationStyle") ~typ:(returning id) +let nextAnimationStyle' x self = msg_send ~self ~cmd:(selector "nextAnimationStyle:") ~typ:(bool @-> returning id) x +let offHostPointForPoint x self = msg_send ~self ~cmd:(selector "offHostPointForPoint:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let orderInAutomatic self = msg_send ~self ~cmd:(selector "orderInAutomatic") ~typ:(returning void) +let orderInAutomaticFromDirection x ~withDuration self = msg_send ~self ~cmd:(selector "orderInAutomaticFromDirection:withDuration:") ~typ:(int @-> double @-> returning void) x withDuration +let orderInAutomaticSkippingAnimation self = msg_send ~self ~cmd:(selector "orderInAutomaticSkippingAnimation") ~typ:(returning void) +let orderInWithAnimationStyle x self = msg_send ~self ~cmd:(selector "orderInWithAnimationStyle:") ~typ:(id @-> returning void) x +let orderOutAutomatic self = msg_send ~self ~cmd:(selector "orderOutAutomatic") ~typ:(returning void) +let orderOutAutomaticExceptAccessoryView self = msg_send ~self ~cmd:(selector "orderOutAutomaticExceptAccessoryView") ~typ:(returning void) +let orderOutAutomaticSkippingAnimation self = msg_send ~self ~cmd:(selector "orderOutAutomaticSkippingAnimation") ~typ:(returning void) +let orderOutAutomaticToDirection x ~withDuration self = msg_send ~self ~cmd:(selector "orderOutAutomaticToDirection:withDuration:") ~typ:(int @-> double @-> returning void) x withDuration +let orderOutWithAnimation x ~toDirection ~duration self = msg_send ~self ~cmd:(selector "orderOutWithAnimation:toDirection:duration:") ~typ:(bool @-> int @-> double @-> returning void) x toDirection duration +let orderOutWithAnimationStyle x self = msg_send ~self ~cmd:(selector "orderOutWithAnimationStyle:") ~typ:(id @-> returning void) x +let performMultipleOperations x ~withAnimationStyle self = msg_send ~self ~cmd:(selector "performMultipleOperations:withAnimationStyle:") ~typ:((ptr void) @-> id @-> returning void) x withAnimationStyle +let performWithAllowingNilResponderReload x self = msg_send ~self ~cmd:(selector "performWithAllowingNilResponderReload:") ~typ:((ptr void) @-> returning void) x +let performWithoutDeactivation x self = msg_send ~self ~cmd:(selector "performWithoutDeactivation:") ~typ:((ptr void) @-> returning void) x +let peripheralHostWillResume x self = msg_send ~self ~cmd:(selector "peripheralHostWillResume:") ~typ:(id @-> returning void) x +let peripheralViewMinMaximized x ~state self = msg_send ~self ~cmd:(selector "peripheralViewMinMaximized:state:") ~typ:(bool @-> id @-> returning void) x state +let pinningPreventsInputViews x self = msg_send ~self ~cmd:(selector "pinningPreventsInputViews:") ~typ:(id @-> returning bool) x +let popAnimationStyle self = msg_send ~self ~cmd:(selector "popAnimationStyle") ~typ:(returning void) +let postDidHideNotification self = msg_send ~self ~cmd:(selector "postDidHideNotification") ~typ:(returning void) +let postDidHideNotificationForGeometry x self = msg_send ~self ~cmd:(selector "postDidHideNotificationForGeometry:") ~typ:(ptr void @-> returning void) x +let postDidShowNotification self = msg_send ~self ~cmd:(selector "postDidShowNotification") ~typ:(returning void) +let postDidShowNotificationForGeometry x self = msg_send ~self ~cmd:(selector "postDidShowNotificationForGeometry:") ~typ:(ptr void @-> returning void) x +let postKeyboardFrameChangeNotification x ~withInfo self = msg_send ~self ~cmd:(selector "postKeyboardFrameChangeNotification:withInfo:") ~typ:(id @-> id @-> returning void) x withInfo +let postPinningReloadState self = msg_send ~self ~cmd:(selector "postPinningReloadState") ~typ:(returning id) +let postWillHideNotificationForGeometry x ~duration self = msg_send ~self ~cmd:(selector "postWillHideNotificationForGeometry:duration:") ~typ:(ptr void @-> double @-> returning void) x duration +let postWillShowNotificationForGeometry x ~duration self = msg_send ~self ~cmd:(selector "postWillShowNotificationForGeometry:duration:") ~typ:(ptr void @-> double @-> returning void) x duration +let prepareForAlongsideTransitionWithContext x self = msg_send ~self ~cmd:(selector "prepareForAlongsideTransitionWithContext:") ~typ:(id @-> returning void) x +let prepareForPinning self = msg_send ~self ~cmd:(selector "prepareForPinning") ~typ:(returning void) +let prepareForRotationOfKeyboard x ~toOrientation self = msg_send ~self ~cmd:(selector "prepareForRotationOfKeyboard:toOrientation:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int toOrientation) +let prepareForRotationToOrientation x self = msg_send ~self ~cmd:(selector "prepareForRotationToOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let prepareToMoveKeyboardForInputViewSet x ~animationStyle self = msg_send ~self ~cmd:(selector "prepareToMoveKeyboardForInputViewSet:animationStyle:") ~typ:(id @-> id @-> returning void) x animationStyle +let preservingInputViews self = msg_send ~self ~cmd:(selector "preservingInputViews") ~typ:(returning bool) +let pushAnimationStyle x self = msg_send ~self ~cmd:(selector "pushAnimationStyle:") ~typ:(id @-> returning void) x +let queueDelayedTask x self = msg_send ~self ~cmd:(selector "queueDelayedTask:") ~typ:((ptr void) @-> returning void) x +let queueDelayedTask' x ~forKey self = msg_send ~self ~cmd:(selector "queueDelayedTask:forKey:") ~typ:((ptr void) @-> id @-> returning void) x forKey +let removePreservedInputViewSetForInputView x self = msg_send ~self ~cmd:(selector "removePreservedInputViewSetForInputView:") ~typ:(id @-> returning void) x +let resetCurrentOrderOutAnimationDuration x self = msg_send ~self ~cmd:(selector "resetCurrentOrderOutAnimationDuration:") ~typ:(double @-> returning void) x +let resetNextAutomaticOrderInDirectionAndDuration self = msg_send ~self ~cmd:(selector "resetNextAutomaticOrderInDirectionAndDuration") ~typ:(returning void) +let responder self = msg_send ~self ~cmd:(selector "responder") ~typ:(returning id) +let restorableRenderConfig self = msg_send ~self ~cmd:(selector "restorableRenderConfig") ~typ:(returning id) +let retain self = msg_send ~self ~cmd:(selector "retain") ~typ:(returning id) +let rotateKeyboard x ~toOrientation self = msg_send ~self ~cmd:(selector "rotateKeyboard:toOrientation:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int toOrientation) +let rotateToOrientation x self = msg_send ~self ~cmd:(selector "rotateToOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let rotationState self = msg_send ~self ~cmd:(selector "rotationState") ~typ:(returning id) +let screenRectFromBounds x ~atCenter ~applyingSourceHeightDelta self = msg_send ~self ~cmd:(selector "screenRectFromBounds:atCenter:applyingSourceHeightDelta:") ~typ:(CGRect.t @-> CGPoint.t @-> double @-> returning CGRect.t) x atCenter applyingSourceHeightDelta +let scrollView x ~didFinishPanGesture self = msg_send ~self ~cmd:(selector "scrollView:didFinishPanGesture:") ~typ:(id @-> id @-> returning void) x didFinishPanGesture +let scrollView' x ~didPanWithGesture self = msg_send ~self ~cmd:(selector "scrollView:didPanWithGesture:") ~typ:(id @-> id @-> returning void) x didPanWithGesture +let selfHostingTrigger self = msg_send ~self ~cmd:(selector "selfHostingTrigger") ~typ:(returning id) +let setAccessoryViewVisible x ~delay self = msg_send ~self ~cmd:(selector "setAccessoryViewVisible:delay:") ~typ:(bool @-> double @-> returning void) x delay +let setAmbiguousControlCenterActivationMargin x self = msg_send ~self ~cmd:(selector "setAmbiguousControlCenterActivationMargin:") ~typ:(double @-> returning void) x +let setAnimationFencingEnabled x self = msg_send ~self ~cmd:(selector "setAnimationFencingEnabled:") ~typ:(bool @-> returning void) x +let setAutomaticAppearanceEnabled x self = msg_send ~self ~cmd:(selector "setAutomaticAppearanceEnabled:") ~typ:(bool @-> returning void) x +let setAutomaticAppearanceInternalEnabled x self = msg_send ~self ~cmd:(selector "setAutomaticAppearanceInternalEnabled:") ~typ:(bool @-> returning void) x +let setCurrentState x self = msg_send ~self ~cmd:(selector "setCurrentState:") ~typ:(int @-> returning void) x +let setDeactivatedKeyboard x ~forScene self = msg_send ~self ~cmd:(selector "setDeactivatedKeyboard:forScene:") ~typ:(bool @-> id @-> returning void) x forScene +let setDocumentInputMode x self = msg_send ~self ~cmd:(selector "setDocumentInputMode:") ~typ:(id @-> returning void) x +let setIgnoresPinning x self = msg_send ~self ~cmd:(selector "setIgnoresPinning:") ~typ:(bool @-> returning void) x +let setInputViews x self = msg_send ~self ~cmd:(selector "setInputViews:") ~typ:(id @-> returning void) x +let setInputViews1 x ~animated self = msg_send ~self ~cmd:(selector "setInputViews:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setInputViews2 x ~animationStyle self = msg_send ~self ~cmd:(selector "setInputViews:animationStyle:") ~typ:(id @-> id @-> returning void) x animationStyle +let setInputViewsHidden x self = msg_send ~self ~cmd:(selector "setInputViewsHidden:") ~typ:(bool @-> returning void) x +let setKeyboardFencingEnabled x self = msg_send ~self ~cmd:(selector "setKeyboardFencingEnabled:") ~typ:(bool @-> returning void) x +let setKeyboardOnScreenNotifyKey x self = msg_send ~self ~cmd:(selector "setKeyboardOnScreenNotifyKey:") ~typ:(bool @-> returning void) x +let setLastKeyplaneResize x self = msg_send ~self ~cmd:(selector "setLastKeyplaneResize:") ~typ:(double @-> returning void) x +let setNextAutomaticOrderInDirection x ~duration self = msg_send ~self ~cmd:(selector "setNextAutomaticOrderInDirection:duration:") ~typ:(int @-> double @-> returning void) x duration +let setPostPinningReloadState x self = msg_send ~self ~cmd:(selector "setPostPinningReloadState:") ~typ:(id @-> returning void) x +let setPreservingInputViews x self = msg_send ~self ~cmd:(selector "setPreservingInputViews:") ~typ:(bool @-> returning void) x +let setResponder x self = msg_send ~self ~cmd:(selector "setResponder:") ~typ:(id @-> returning void) x +let setRestorableRenderConfig x self = msg_send ~self ~cmd:(selector "setRestorableRenderConfig:") ~typ:(id @-> returning void) x +let setRotationState x self = msg_send ~self ~cmd:(selector "setRotationState:") ~typ:(id @-> returning void) x +let setSelfHostingTrigger x self = msg_send ~self ~cmd:(selector "setSelfHostingTrigger:") ~typ:(id @-> returning void) x +let setTargetState x self = msg_send ~self ~cmd:(selector "setTargetState:") ~typ:(id @-> returning void) x +let setTextEffectsWindowLevelForInputView x ~responder self = msg_send ~self ~cmd:(selector "setTextEffectsWindowLevelForInputView:responder:") ~typ:(id @-> id @-> returning void) x responder +let setUndockedWithOffset x ~animated self = msg_send ~self ~cmd:(selector "setUndockedWithOffset:animated:") ~typ:(CGPoint.t @-> bool @-> returning void) x animated +let setkeyboardAttachedViewHeight x self = msg_send ~self ~cmd:(selector "setkeyboardAttachedViewHeight:") ~typ:(double @-> returning void) x +let shouldApplySettingsForBackdropView x self = msg_send ~self ~cmd:(selector "shouldApplySettingsForBackdropView:") ~typ:(id @-> returning bool) x +let shouldUseHideNotificationForGeometry x self = msg_send ~self ~cmd:(selector "shouldUseHideNotificationForGeometry:") ~typ:(ptr void @-> returning bool) x +let showInputViewsIfNeeded self = msg_send ~self ~cmd:(selector "showInputViewsIfNeeded") ~typ:(returning void) +let sizeOfInputViewForInputViewSet x ~withInterfaceOrientation self = msg_send ~self ~cmd:(selector "sizeOfInputViewForInputViewSet:withInterfaceOrientation:") ~typ:(id @-> llong @-> returning CGSize.t) x (LLong.of_int withInterfaceOrientation) +let targetState self = msg_send ~self ~cmd:(selector "targetState") ~typ:(returning id) +let textEffectsWindowDidRotate x self = msg_send ~self ~cmd:(selector "textEffectsWindowDidRotate:") ~typ:(id @-> returning void) x +let topAnimationStyle self = msg_send ~self ~cmd:(selector "topAnimationStyle") ~typ:(returning id) +let totalPeripheralSizeForOrientation x self = msg_send ~self ~cmd:(selector "totalPeripheralSizeForOrientation:") ~typ:(llong @-> returning CGSize.t) (LLong.of_int x) +let transformedContainerView self = msg_send ~self ~cmd:(selector "transformedContainerView") ~typ:(returning id) +let transitioningFrame self = msg_send ~self ~cmd:(selector "transitioningFrame") ~typ:(returning CGRect.t) +let transitioningView self = msg_send ~self ~cmd:(selector "transitioningView") ~typ:(returning id) +let undockedInfoFromDefaultInfo x ~forNotification self = msg_send ~self ~cmd:(selector "undockedInfoFromDefaultInfo:forNotification:") ~typ:(id @-> id @-> returning id) x forNotification +let updateBackdrop self = msg_send ~self ~cmd:(selector "updateBackdrop") ~typ:(returning void) +let updateInputAccessoryViewVisibility x ~withDuration self = msg_send ~self ~cmd:(selector "updateInputAccessoryViewVisibility:withDuration:") ~typ:(bool @-> double @-> returning void) x withDuration +let updateRenderConfigForCurrentResponder self = msg_send ~self ~cmd:(selector "updateRenderConfigForCurrentResponder") ~typ:(returning void) +let updateRenderConfigForResponder x self = msg_send ~self ~cmd:(selector "updateRenderConfigForResponder:") ~typ:(id @-> returning void) x +let updateToPlacement x ~withNormalAnimationsAndNotifications self = msg_send ~self ~cmd:(selector "updateToPlacement:withNormalAnimationsAndNotifications:") ~typ:(id @-> bool @-> returning void) x withNormalAnimationsAndNotifications +let userInfoContainsActualGeometryChange x self = msg_send ~self ~cmd:(selector "userInfoContainsActualGeometryChange:") ~typ:(id @-> returning bool) x +let userInfoFromGeometry x ~duration ~forWill ~forShow self = msg_send ~self ~cmd:(selector "userInfoFromGeometry:duration:forWill:forShow:") ~typ:(ptr void @-> double @-> bool @-> bool @-> returning id) x duration forWill forShow +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let viewForTransitionScreenSnapshot self = msg_send ~self ~cmd:(selector "viewForTransitionScreenSnapshot") ~typ:(returning id) +let visiblePeripheralFrame x self = msg_send ~self ~cmd:(selector "visiblePeripheralFrame:") ~typ:(bool @-> returning CGRect.t) x \ No newline at end of file diff --git a/uikit/UIPeripheralHostClass.ml b/uikit/UIPeripheralHostClass.ml new file mode 100644 index 00000000..6d086bae --- /dev/null +++ b/uikit/UIPeripheralHostClass.ml @@ -0,0 +1,29 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiperipheralhost?language=objc}UIPeripheralHost} *) + +let activeInstance self = msg_send ~self ~cmd:(selector "activeInstance") ~typ:(returning id) +let adjustFloatingPersistentOffsetForKeyboardSize x self = msg_send ~self ~cmd:(selector "adjustFloatingPersistentOffsetForKeyboardSize:") ~typ:(CGSize.t @-> returning void) x +let allVisiblePeripheralFrames self = msg_send ~self ~cmd:(selector "allVisiblePeripheralFrames") ~typ:(returning id) +let defaultUndockedOffset self = msg_send ~self ~cmd:(selector "defaultUndockedOffset") ~typ:(returning CGPoint.t) +let endPlacementForInputViewSet x ~windowScene self = msg_send ~self ~cmd:(selector "endPlacementForInputViewSet:windowScene:") ~typ:(id @-> id @-> returning id) x windowScene +let floatingChromeBuffer self = msg_send ~self ~cmd:(selector "floatingChromeBuffer") ~typ:(returning UIEdgeInsets.t) +let gridViewRubberBandValueForValue x ~target ~timeInterval ~velocity self = msg_send ~self ~cmd:(selector "gridViewRubberBandValueForValue:target:timeInterval:velocity:") ~typ:(double @-> double @-> double @-> (ptr double) @-> returning double) x target timeInterval velocity +let hostViewClass self = msg_send ~self ~cmd:(selector "hostViewClass") ~typ:(returning _Class) +let inputViewSetContainsView x self = msg_send ~self ~cmd:(selector "inputViewSetContainsView:") ~typ:(id @-> returning bool) x +let passthroughViews self = msg_send ~self ~cmd:(selector "passthroughViews") ~typ:(returning id) +let pointIsWithinKeyboardContent x self = msg_send ~self ~cmd:(selector "pointIsWithinKeyboardContent:") ~typ:(CGPoint.t @-> returning bool) x +let screenBoundsInAppOrientation self = msg_send ~self ~cmd:(selector "screenBoundsInAppOrientation") ~typ:(returning CGRect.t) +let setFloating x ~onCompletion self = msg_send ~self ~cmd:(selector "setFloating:onCompletion:") ~typ:(bool @-> (ptr void) @-> returning void) x onCompletion +let setKeyboardOnScreenNotifyKey x self = msg_send ~self ~cmd:(selector "setKeyboardOnScreenNotifyKey:") ~typ:(bool @-> returning void) x +let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) +let visibleInputViewFrame self = msg_send ~self ~cmd:(selector "visibleInputViewFrame") ~typ:(returning CGRect.t) +let visiblePeripheralFrame self = msg_send ~self ~cmd:(selector "visiblePeripheralFrame") ~typ:(returning CGRect.t) \ No newline at end of file diff --git a/uikit/UIPeripheralHostState.ml b/uikit/UIPeripheralHostState.ml index 14c5d8f0..b7ed81b4 100644 --- a/uikit/UIPeripheralHostState.ml +++ b/uikit/UIPeripheralHostState.ml @@ -5,16 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPeripheralHostState" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiperipheralhoststate?language=objc}UIPeripheralHostState} *) -module C = struct - let stateWithGeometry x ~inPositionIsDestination self = msg_send ~self ~cmd:(selector "stateWithGeometry:inPositionIsDestination:") ~typ:(ptr void @-> bool @-> returning (id)) x inPositionIsDestination -end +let self = get_class "UIPeripheralHostState" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let inPositionIsDestination self = msg_send ~self ~cmd:(selector "inPositionIsDestination") ~typ:(returning (bool)) -let screenGeometry self = msg_send ~self ~cmd:(selector "screenGeometry") ~typ:(returning (id)) -let setGeometry x self = msg_send ~self ~cmd:(selector "setGeometry:") ~typ:(ptr void @-> returning (void)) x -let setInPositionIsDestination x self = msg_send ~self ~cmd:(selector "setInPositionIsDestination:") ~typ:(bool @-> returning (void)) x -let setScreenGeometry x self = msg_send ~self ~cmd:(selector "setScreenGeometry:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let inPositionIsDestination self = msg_send ~self ~cmd:(selector "inPositionIsDestination") ~typ:(returning bool) +let screenGeometry self = msg_send ~self ~cmd:(selector "screenGeometry") ~typ:(returning id) +let setGeometry x self = msg_send ~self ~cmd:(selector "setGeometry:") ~typ:(ptr void @-> returning void) x +let setInPositionIsDestination x self = msg_send ~self ~cmd:(selector "setInPositionIsDestination:") ~typ:(bool @-> returning void) x +let setScreenGeometry x self = msg_send ~self ~cmd:(selector "setScreenGeometry:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPeripheralHostStateClass.ml b/uikit/UIPeripheralHostStateClass.ml new file mode 100644 index 00000000..337f45aa --- /dev/null +++ b/uikit/UIPeripheralHostStateClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiperipheralhoststate?language=objc}UIPeripheralHostState} *) + +let stateWithGeometry x ~inPositionIsDestination self = msg_send ~self ~cmd:(selector "stateWithGeometry:inPositionIsDestination:") ~typ:(ptr void @-> bool @-> returning id) x inPositionIsDestination \ No newline at end of file diff --git a/uikit/UIPhraseBoundaryGestureRecognizer.ml b/uikit/UIPhraseBoundaryGestureRecognizer.ml index a690c828..a93ca778 100644 --- a/uikit/UIPhraseBoundaryGestureRecognizer.ml +++ b/uikit/UIPhraseBoundaryGestureRecognizer.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPhraseBoundaryGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiphraseboundarygesturerecognizer?language=objc}UIPhraseBoundaryGestureRecognizer} *) -let clearTimer self = msg_send ~self ~cmd:(selector "clearTimer") ~typ:(returning (void)) -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let secondDelay self = msg_send ~self ~cmd:(selector "secondDelay") ~typ:(returning (double)) -let secondDelayElapsed self = msg_send ~self ~cmd:(selector "secondDelayElapsed") ~typ:(returning (bool)) -let secondDelayElapsed' x self = msg_send ~self ~cmd:(selector "secondDelayElapsed:") ~typ:(id @-> returning (void)) x -let setSecondDelay x self = msg_send ~self ~cmd:(selector "setSecondDelay:") ~typ:(double @-> returning (void)) x -let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTextInput x self = msg_send ~self ~cmd:(selector "setTextInput:") ~typ:(id @-> returning (void)) x -let setUserData x self = msg_send ~self ~cmd:(selector "setUserData:") ~typ:(id @-> returning (void)) x -let startTimer self = msg_send ~self ~cmd:(selector "startTimer") ~typ:(returning (void)) -let textInput self = msg_send ~self ~cmd:(selector "textInput") ~typ:(returning (id)) -let userData self = msg_send ~self ~cmd:(selector "userData") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIPhraseBoundaryGestureRecognizer" + +let clearTimer self = msg_send ~self ~cmd:(selector "clearTimer") ~typ:(returning void) +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let secondDelay self = msg_send ~self ~cmd:(selector "secondDelay") ~typ:(returning double) +let secondDelayElapsed self = msg_send ~self ~cmd:(selector "secondDelayElapsed") ~typ:(returning bool) +let secondDelayElapsed' x self = msg_send ~self ~cmd:(selector "secondDelayElapsed:") ~typ:(id @-> returning void) x +let setSecondDelay x self = msg_send ~self ~cmd:(selector "setSecondDelay:") ~typ:(double @-> returning void) x +let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTextInput x self = msg_send ~self ~cmd:(selector "setTextInput:") ~typ:(id @-> returning void) x +let setUserData x self = msg_send ~self ~cmd:(selector "setUserData:") ~typ:(id @-> returning void) x +let startTimer self = msg_send ~self ~cmd:(selector "startTimer") ~typ:(returning void) +let textInput self = msg_send ~self ~cmd:(selector "textInput") ~typ:(returning id) +let userData self = msg_send ~self ~cmd:(selector "userData") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPhysicalKeyboardEvent.ml b/uikit/UIPhysicalKeyboardEvent.ml index 113ec6c6..06945caa 100644 --- a/uikit/UIPhysicalKeyboardEvent.ml +++ b/uikit/UIPhysicalKeyboardEvent.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPhysicalKeyboardEvent" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiphysicalkeyboardevent?language=objc}UIPhysicalKeyboardEvent} *) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let modifierFlags self = msg_send ~self ~cmd:(selector "modifierFlags") ~typ:(returning (llong)) -let setSource x self = msg_send ~self ~cmd:(selector "setSource:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let source self = msg_send ~self ~cmd:(selector "source") ~typ:(returning (llong)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIPhysicalKeyboardEvent" + +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let modifierFlags self = msg_send ~self ~cmd:(selector "modifierFlags") ~typ:(returning llong) +let setSource x self = msg_send ~self ~cmd:(selector "setSource:") ~typ:(llong @-> returning void) (LLong.of_int x) +let source self = msg_send ~self ~cmd:(selector "source") ~typ:(returning llong) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIPickerColumnView.ml b/uikit/UIPickerColumnView.ml index d5e3b68f..99aef884 100644 --- a/uikit/UIPickerColumnView.ml +++ b/uikit/UIPickerColumnView.ml @@ -5,34 +5,39 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPickerColumnView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipickercolumnview?language=objc}UIPickerColumnView} *) -let accessibilityFrame self = msg_send_stret ~self ~cmd:(selector "accessibilityFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let beginUpdates self = msg_send ~self ~cmd:(selector "beginUpdates") ~typ:(returning (void)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let cellForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "cellForRowAtIndexPath:") ~typ:(id @-> returning (id)) x -let endUpdates self = msg_send ~self ~cmd:(selector "endUpdates") ~typ:(returning (void)) -let initWithFrame x ~tableFrame ~middleBarHeight ~rowHeight ~pickerView ~transform self = msg_send ~self ~cmd:(selector "initWithFrame:tableFrame:middleBarHeight:rowHeight:pickerView:transform:") ~typ:(CGRect.t @-> CGRect.t @-> double @-> double @-> id @-> ptr void @-> returning (id)) x tableFrame middleBarHeight rowHeight pickerView transform -let isNoLongerInUse self = msg_send ~self ~cmd:(selector "isNoLongerInUse") ~typ:(returning (bool)) -let isRowChecked x self = msg_send ~self ~cmd:(selector "isRowChecked:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let leftHitTestExtension self = msg_send ~self ~cmd:(selector "leftHitTestExtension") ~typ:(returning (double)) -let markAsNoLongerInUse self = msg_send ~self ~cmd:(selector "markAsNoLongerInUse") ~typ:(returning (void)) -let numberOfRowsInSection x self = msg_send ~self ~cmd:(selector "numberOfRowsInSection:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let pickerTableView x ~didChangeSelectionBarRowFrom ~to_ self = msg_send ~self ~cmd:(selector "pickerTableView:didChangeSelectionBarRowFrom:to:") ~typ:(id @-> llong @-> llong @-> returning (void)) x (LLong.of_int didChangeSelectionBarRowFrom) (LLong.of_int to_) -let reloadData self = msg_send ~self ~cmd:(selector "reloadData") ~typ:(returning (void)) -let rightHitTestExtension self = msg_send ~self ~cmd:(selector "rightHitTestExtension") ~typ:(returning (double)) -let rowHeight self = msg_send ~self ~cmd:(selector "rowHeight") ~typ:(returning (double)) -let selectRow x ~animated ~notify self = msg_send ~self ~cmd:(selector "selectRow:animated:notify:") ~typ:(llong @-> bool @-> bool @-> returning (bool)) (LLong.of_int x) animated notify -let selectRow' x ~animated ~notify ~updateChecked self = msg_send ~self ~cmd:(selector "selectRow:animated:notify:updateChecked:") ~typ:(llong @-> bool @-> bool @-> bool @-> returning (bool)) (LLong.of_int x) animated notify updateChecked -let selectionBarRect self = msg_send_stret ~self ~cmd:(selector "selectionBarRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let selectionBarRow self = msg_send ~self ~cmd:(selector "selectionBarRow") ~typ:(returning (llong)) -let setAllowsMultipleSelection x self = msg_send ~self ~cmd:(selector "setAllowsMultipleSelection:") ~typ:(bool @-> returning (void)) x -let setIsNoLongerInUse x self = msg_send ~self ~cmd:(selector "setIsNoLongerInUse:") ~typ:(bool @-> returning (void)) x -let setLeftHitTestExtension x self = msg_send ~self ~cmd:(selector "setLeftHitTestExtension:") ~typ:(double @-> returning (void)) x -let setPerspectiveTransform x self = msg_send ~self ~cmd:(selector "setPerspectiveTransform:") ~typ:(ptr void @-> returning (void)) x -let setRightHitTestExtension x self = msg_send ~self ~cmd:(selector "setRightHitTestExtension:") ~typ:(double @-> returning (void)) x -let setRowHeight x self = msg_send ~self ~cmd:(selector "setRowHeight:") ~typ:(double @-> returning (void)) x -let setSelectionBarRect x self = msg_send ~self ~cmd:(selector "setSelectionBarRect:") ~typ:(CGRect.t @-> returning (void)) x -let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView' x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) \ No newline at end of file +let self = get_class "UIPickerColumnView" + +let accessibilityFrame self = msg_send ~self ~cmd:(selector "accessibilityFrame") ~typ:(returning CGRect.t) +let beginUpdates self = msg_send ~self ~cmd:(selector "beginUpdates") ~typ:(returning void) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let cellForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "cellForRowAtIndexPath:") ~typ:(id @-> returning id) x +let endUpdates self = msg_send ~self ~cmd:(selector "endUpdates") ~typ:(returning void) +let initWithFrame x ~tableFrame ~middleBarHeight ~rowHeight ~pickerView ~transform self = msg_send ~self ~cmd:(selector "initWithFrame:tableFrame:middleBarHeight:rowHeight:pickerView:transform:") ~typ:(CGRect.t @-> CGRect.t @-> double @-> double @-> id @-> CATransform3D.t @-> returning id) x tableFrame middleBarHeight rowHeight pickerView transform +let isNoLongerInUse self = msg_send ~self ~cmd:(selector "isNoLongerInUse") ~typ:(returning bool) +let isRowChecked x self = msg_send ~self ~cmd:(selector "isRowChecked:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let leftHitTestExtension self = msg_send ~self ~cmd:(selector "leftHitTestExtension") ~typ:(returning double) +let markAsNoLongerInUse self = msg_send ~self ~cmd:(selector "markAsNoLongerInUse") ~typ:(returning void) +let numberOfRowsInSection x self = msg_send ~self ~cmd:(selector "numberOfRowsInSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let perspectiveTransform self = msg_send ~self ~cmd:(selector "perspectiveTransform") ~typ:(returning CATransform3D.t) +let pickerTableView x ~didChangeSelectionBarRowFrom ~to_ self = msg_send ~self ~cmd:(selector "pickerTableView:didChangeSelectionBarRowFrom:to:") ~typ:(id @-> llong @-> llong @-> returning void) x (LLong.of_int didChangeSelectionBarRowFrom) (LLong.of_int to_) +let reloadData self = msg_send ~self ~cmd:(selector "reloadData") ~typ:(returning void) +let rightHitTestExtension self = msg_send ~self ~cmd:(selector "rightHitTestExtension") ~typ:(returning double) +let rowHeight self = msg_send ~self ~cmd:(selector "rowHeight") ~typ:(returning double) +let selectRow x ~animated ~notify self = msg_send ~self ~cmd:(selector "selectRow:animated:notify:") ~typ:(llong @-> bool @-> bool @-> returning bool) (LLong.of_int x) animated notify +let selectRow' x ~animated ~notify ~updateChecked self = msg_send ~self ~cmd:(selector "selectRow:animated:notify:updateChecked:") ~typ:(llong @-> bool @-> bool @-> bool @-> returning bool) (LLong.of_int x) animated notify updateChecked +let selectionBarRect self = msg_send ~self ~cmd:(selector "selectionBarRect") ~typ:(returning CGRect.t) +let selectionBarRow self = msg_send ~self ~cmd:(selector "selectionBarRow") ~typ:(returning llong) +let setAllowsMultipleSelection x self = msg_send ~self ~cmd:(selector "setAllowsMultipleSelection:") ~typ:(bool @-> returning void) x +let setIsNoLongerInUse x self = msg_send ~self ~cmd:(selector "setIsNoLongerInUse:") ~typ:(bool @-> returning void) x +let setLeftHitTestExtension x self = msg_send ~self ~cmd:(selector "setLeftHitTestExtension:") ~typ:(double @-> returning void) x +let setPerspectiveTransform x self = msg_send ~self ~cmd:(selector "setPerspectiveTransform:") ~typ:(CATransform3D.t @-> returning void) x +let setRightHitTestExtension x self = msg_send ~self ~cmd:(selector "setRightHitTestExtension:") ~typ:(double @-> returning void) x +let setRowHeight x self = msg_send ~self ~cmd:(selector "setRowHeight:") ~typ:(double @-> returning void) x +let setSelectionBarRect x self = msg_send ~self ~cmd:(selector "setSelectionBarRect:") ~typ:(CGRect.t @-> returning void) x +let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView' x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) \ No newline at end of file diff --git a/uikit/UIPickerContentView.ml b/uikit/UIPickerContentView.ml index 33638fa4..8469485d 100644 --- a/uikit/UIPickerContentView.ml +++ b/uikit/UIPickerContentView.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPickerContentView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipickercontentview?language=objc}UIPickerContentView} *) -let checkedColor self = msg_send ~self ~cmd:(selector "checkedColor") ~typ:(returning (id)) -let isChecked self = msg_send ~self ~cmd:(selector "isChecked") ~typ:(returning (bool)) -let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning (bool)) -let labelWidthForBounds x self = msg_send ~self ~cmd:(selector "labelWidthForBounds:") ~typ:(CGRect.t @-> returning (double)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setChecked x self = msg_send ~self ~cmd:(selector "setChecked:") ~typ:(bool @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let titleLabel self = msg_send ~self ~cmd:(selector "titleLabel") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIPickerContentView" + +let checkedColor self = msg_send ~self ~cmd:(selector "checkedColor") ~typ:(returning id) +let isChecked self = msg_send ~self ~cmd:(selector "isChecked") ~typ:(returning bool) +let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning bool) +let labelWidthForBounds x self = msg_send ~self ~cmd:(selector "labelWidthForBounds:") ~typ:(CGRect.t @-> returning double) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setChecked x self = msg_send ~self ~cmd:(selector "setChecked:") ~typ:(bool @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let titleLabel self = msg_send ~self ~cmd:(selector "titleLabel") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPickerTableView.ml b/uikit/UIPickerTableView.ml index 6968b7ab..4412441a 100644 --- a/uikit/UIPickerTableView.ml +++ b/uikit/UIPickerTableView.ml @@ -5,33 +5,37 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPickerTableView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipickertableview?language=objc}UIPickerTableView} *) -let contentOffsetForRowAtIndexPath x self = msg_send_stret ~self ~cmd:(selector "contentOffsetForRowAtIndexPath:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didSelectDisabled x self = msg_send ~self ~cmd:(selector "didSelectDisabled:") ~typ:(bool @-> returning (bool)) x -let generatorActivated self = msg_send ~self ~cmd:(selector "generatorActivated") ~typ:(returning (bool)) -let initWithFrame x ~style ~visibleRect self = msg_send ~self ~cmd:(selector "initWithFrame:style:visibleRect:") ~typ:(CGRect.t @-> llong @-> CGRect.t @-> returning (id)) x (LLong.of_int style) visibleRect -let isRowChecked x self = msg_send ~self ~cmd:(selector "isRowChecked:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let lastSelectedRow self = msg_send ~self ~cmd:(selector "lastSelectedRow") ~typ:(returning (llong)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let scrollViewDidEndDecelerating x self = msg_send ~self ~cmd:(selector "scrollViewDidEndDecelerating:") ~typ:(id @-> returning (void)) x -let scrollViewDidEndDragging x ~willDecelerate self = msg_send ~self ~cmd:(selector "scrollViewDidEndDragging:willDecelerate:") ~typ:(id @-> bool @-> returning (void)) x willDecelerate -let scrollViewDidEndScrollingAnimation x self = msg_send ~self ~cmd:(selector "scrollViewDidEndScrollingAnimation:") ~typ:(id @-> returning (void)) x -let scrollViewShouldScrollToTop x self = msg_send ~self ~cmd:(selector "scrollViewShouldScrollToTop:") ~typ:(id @-> returning (bool)) x -let scrollViewWillBeginDragging x self = msg_send ~self ~cmd:(selector "scrollViewWillBeginDragging:") ~typ:(id @-> returning (void)) x -let scrollViewWillEndDragging x ~withVelocity ~targetContentOffset self = msg_send ~self ~cmd:(selector "scrollViewWillEndDragging:withVelocity:targetContentOffset:") ~typ:(id @-> CGPoint.t @-> ptr (CGPoint.t) @-> returning (void)) x withVelocity targetContentOffset -let selectRow x ~animated ~notify self = msg_send ~self ~cmd:(selector "selectRow:animated:notify:") ~typ:(llong @-> bool @-> bool @-> returning (bool)) (LLong.of_int x) animated notify -let selectRow' x ~animated ~notify ~updateChecked self = msg_send ~self ~cmd:(selector "selectRow:animated:notify:updateChecked:") ~typ:(llong @-> bool @-> bool @-> bool @-> returning (bool)) (LLong.of_int x) animated notify updateChecked -let selectionBarRect self = msg_send_stret ~self ~cmd:(selector "selectionBarRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let selectionBarRow self = msg_send ~self ~cmd:(selector "selectionBarRow") ~typ:(returning (llong)) -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setGeneratorActivated x self = msg_send ~self ~cmd:(selector "setGeneratorActivated:") ~typ:(bool @-> returning (void)) x -let setLastSelectedRow x self = msg_send ~self ~cmd:(selector "setLastSelectedRow:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSelectionBarRect x self = msg_send ~self ~cmd:(selector "setSelectionBarRect:") ~typ:(CGRect.t @-> returning (void)) x -let tableView x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didSelectRowAtIndexPath -let tableView1 x ~willSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x willSelectRowAtIndexPath -let tableView2 x ~willDisplayCell ~forRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willDisplayCell:forRowAtIndexPath:") ~typ:(id @-> id @-> id @-> returning (void)) x willDisplayCell forRowAtIndexPath \ No newline at end of file +let self = get_class "UIPickerTableView" + +let contentOffsetForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "contentOffsetForRowAtIndexPath:") ~typ:(id @-> returning CGPoint.t) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didSelectDisabled x self = msg_send ~self ~cmd:(selector "didSelectDisabled:") ~typ:(bool @-> returning bool) x +let generatorActivated self = msg_send ~self ~cmd:(selector "generatorActivated") ~typ:(returning bool) +let initWithFrame x ~style ~visibleRect self = msg_send ~self ~cmd:(selector "initWithFrame:style:visibleRect:") ~typ:(CGRect.t @-> llong @-> CGRect.t @-> returning id) x (LLong.of_int style) visibleRect +let isRowChecked x self = msg_send ~self ~cmd:(selector "isRowChecked:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let lastSelectedRow self = msg_send ~self ~cmd:(selector "lastSelectedRow") ~typ:(returning llong) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let scrollViewDidEndDecelerating x self = msg_send ~self ~cmd:(selector "scrollViewDidEndDecelerating:") ~typ:(id @-> returning void) x +let scrollViewDidEndDragging x ~willDecelerate self = msg_send ~self ~cmd:(selector "scrollViewDidEndDragging:willDecelerate:") ~typ:(id @-> bool @-> returning void) x willDecelerate +let scrollViewDidEndScrollingAnimation x self = msg_send ~self ~cmd:(selector "scrollViewDidEndScrollingAnimation:") ~typ:(id @-> returning void) x +let scrollViewShouldScrollToTop x self = msg_send ~self ~cmd:(selector "scrollViewShouldScrollToTop:") ~typ:(id @-> returning bool) x +let scrollViewWillBeginDragging x self = msg_send ~self ~cmd:(selector "scrollViewWillBeginDragging:") ~typ:(id @-> returning void) x +let scrollViewWillEndDragging x ~withVelocity ~targetContentOffset self = msg_send ~self ~cmd:(selector "scrollViewWillEndDragging:withVelocity:targetContentOffset:") ~typ:(id @-> CGPoint.t @-> (ptr CGPoint.t) @-> returning void) x withVelocity targetContentOffset +let selectRow x ~animated ~notify self = msg_send ~self ~cmd:(selector "selectRow:animated:notify:") ~typ:(llong @-> bool @-> bool @-> returning bool) (LLong.of_int x) animated notify +let selectRow' x ~animated ~notify ~updateChecked self = msg_send ~self ~cmd:(selector "selectRow:animated:notify:updateChecked:") ~typ:(llong @-> bool @-> bool @-> bool @-> returning bool) (LLong.of_int x) animated notify updateChecked +let selectionBarRect self = msg_send ~self ~cmd:(selector "selectionBarRect") ~typ:(returning CGRect.t) +let selectionBarRow self = msg_send ~self ~cmd:(selector "selectionBarRow") ~typ:(returning llong) +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGPoint.t @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setGeneratorActivated x self = msg_send ~self ~cmd:(selector "setGeneratorActivated:") ~typ:(bool @-> returning void) x +let setLastSelectedRow x self = msg_send ~self ~cmd:(selector "setLastSelectedRow:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSelectionBarRect x self = msg_send ~self ~cmd:(selector "setSelectionBarRect:") ~typ:(CGRect.t @-> returning void) x +let tableView x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x didSelectRowAtIndexPath +let tableView1 x ~willSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x willSelectRowAtIndexPath +let tableView2 x ~willDisplayCell ~forRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willDisplayCell:forRowAtIndexPath:") ~typ:(id @-> id @-> id @-> returning void) x willDisplayCell forRowAtIndexPath \ No newline at end of file diff --git a/uikit/UIPickerTableViewCell.ml b/uikit/UIPickerTableViewCell.ml index e0aec453..4fd81294 100644 --- a/uikit/UIPickerTableViewCell.ml +++ b/uikit/UIPickerTableViewCell.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPickerTableViewCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipickertableviewcell?language=objc}UIPickerTableViewCell} *) -let initWithStyle x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithStyle:reuseIdentifier:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) reuseIdentifier -let pickerTable self = msg_send ~self ~cmd:(selector "pickerTable") ~typ:(returning (id)) -let setPickerTable x self = msg_send ~self ~cmd:(selector "setPickerTable:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIPickerTableViewCell" + +let initWithStyle x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithStyle:reuseIdentifier:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) reuseIdentifier +let pickerTable self = msg_send ~self ~cmd:(selector "pickerTable") ~typ:(returning id) +let setPickerTable x self = msg_send ~self ~cmd:(selector "setPickerTable:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPickerTableViewTitledCell.ml b/uikit/UIPickerTableViewTitledCell.ml index 263527e3..908cad68 100644 --- a/uikit/UIPickerTableViewTitledCell.ml +++ b/uikit/UIPickerTableViewTitledCell.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPickerTableViewTitledCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipickertableviewtitledcell?language=objc}UIPickerTableViewTitledCell} *) -let attributedTitle self = msg_send ~self ~cmd:(selector "attributedTitle") ~typ:(returning (id)) -let initWithStyle x ~reuseIdentifier ~textColor ~forceTextAlignmentCentered self = msg_send ~self ~cmd:(selector "initWithStyle:reuseIdentifier:textColor:forceTextAlignmentCentered:") ~typ:(llong @-> id @-> id @-> bool @-> returning (id)) (LLong.of_int x) reuseIdentifier textColor forceTextAlignmentCentered -let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning (void)) -let setAttributedTitle x self = msg_send ~self ~cmd:(selector "setAttributedTitle:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIPickerTableViewTitledCell" + +let attributedTitle self = msg_send ~self ~cmd:(selector "attributedTitle") ~typ:(returning id) +let initWithStyle x ~reuseIdentifier ~textColor ~forceTextAlignmentCentered self = msg_send ~self ~cmd:(selector "initWithStyle:reuseIdentifier:textColor:forceTextAlignmentCentered:") ~typ:(llong @-> id @-> id @-> bool @-> returning id) (LLong.of_int x) reuseIdentifier textColor forceTextAlignmentCentered +let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning void) +let setAttributedTitle x self = msg_send ~self ~cmd:(selector "setAttributedTitle:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPickerTableViewWrapperCell.ml b/uikit/UIPickerTableViewWrapperCell.ml index a8427825..03c21cef 100644 --- a/uikit/UIPickerTableViewWrapperCell.ml +++ b/uikit/UIPickerTableViewWrapperCell.ml @@ -5,12 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPickerTableViewWrapperCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipickertableviewwrappercell?language=objc}UIPickerTableViewWrapperCell} *) -let initWithStyle x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithStyle:reuseIdentifier:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) reuseIdentifier -let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning (void)) -let resizeSubviewsWithOldSize x self = msg_send ~self ~cmd:(selector "resizeSubviewsWithOldSize:") ~typ:(CGSize.t @-> returning (void)) x -let setWrappedView x self = msg_send ~self ~cmd:(selector "setWrappedView:") ~typ:(id @-> returning (void)) x -let setWrappedViewInsets x self = msg_send ~self ~cmd:(selector "setWrappedViewInsets:") ~typ:(ptr void @-> returning (void)) x -let wrappedView self = msg_send ~self ~cmd:(selector "wrappedView") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIPickerTableViewWrapperCell" + +let initWithStyle x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithStyle:reuseIdentifier:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) reuseIdentifier +let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning void) +let resizeSubviewsWithOldSize x self = msg_send ~self ~cmd:(selector "resizeSubviewsWithOldSize:") ~typ:(CGSize.t @-> returning void) x +let setWrappedView x self = msg_send ~self ~cmd:(selector "setWrappedView:") ~typ:(id @-> returning void) x +let setWrappedViewInsets x self = msg_send ~self ~cmd:(selector "setWrappedViewInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let wrappedView self = msg_send ~self ~cmd:(selector "wrappedView") ~typ:(returning id) +let wrappedViewInsets self = msg_send ~self ~cmd:(selector "wrappedViewInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit/UIPickerView.ml b/uikit/UIPickerView.ml index 6d87edf6..28cc4a04 100644 --- a/uikit/UIPickerView.ml +++ b/uikit/UIPickerView.ml @@ -5,64 +5,59 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPickerView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipickerview?language=objc}UIPickerView} *) -module C = struct - let defaultSizeForCurrentOrientation self = msg_send_stret ~self ~cmd:(selector "defaultSizeForCurrentOrientation") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t - let defaultSizeForMainScreenTraits self = msg_send_stret ~self ~cmd:(selector "defaultSizeForMainScreenTraits") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t - let defaultSizeForTraits x self = msg_send_stret ~self ~cmd:(selector "defaultSizeForTraits:") ~typ:(id @-> returning (CGSize.t)) ~return_type:CGSize.t x - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let sizeForMainScreenTraitsThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeForMainScreenTraitsThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x - let sizeThatFits x ~forTraits self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:forTraits:") ~typ:(CGSize.t @-> id @-> returning (CGSize.t)) ~return_type:CGSize.t x forTraits -end +let self = get_class "UIPickerView" -let allowsMultipleSelection self = msg_send ~self ~cmd:(selector "allowsMultipleSelection") ~typ:(returning (bool)) -let columnForTableView x self = msg_send ~self ~cmd:(selector "columnForTableView:") ~typ:(id @-> returning (llong)) x -let dataSource self = msg_send ~self ~cmd:(selector "dataSource") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultSize self = msg_send_stret ~self ~cmd:(selector "defaultSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let imageForPickerPiece x self = msg_send ~self ~cmd:(selector "imageForPickerPiece:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let numberOfColumns self = msg_send ~self ~cmd:(selector "numberOfColumns") ~typ:(returning (llong)) -let numberOfComponents self = msg_send ~self ~cmd:(selector "numberOfComponents") ~typ:(returning (llong)) -let numberOfRowsInColumn x self = msg_send ~self ~cmd:(selector "numberOfRowsInColumn:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let numberOfRowsInComponent x self = msg_send ~self ~cmd:(selector "numberOfRowsInComponent:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let pickerImageNamePrefix self = msg_send ~self ~cmd:(selector "pickerImageNamePrefix") ~typ:(returning (id)) -let reload self = msg_send ~self ~cmd:(selector "reload") ~typ:(returning (void)) -let reloadAllComponents self = msg_send ~self ~cmd:(selector "reloadAllComponents") ~typ:(returning (void)) -let reloadAllPickerPieces self = msg_send ~self ~cmd:(selector "reloadAllPickerPieces") ~typ:(returning (void)) -let reloadComponent x self = msg_send ~self ~cmd:(selector "reloadComponent:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let reloadData self = msg_send ~self ~cmd:(selector "reloadData") ~typ:(returning (void)) -let reloadDataForColumn x self = msg_send ~self ~cmd:(selector "reloadDataForColumn:") ~typ:(int @-> returning (void)) x -let rowSizeForComponent x self = msg_send_stret ~self ~cmd:(selector "rowSizeForComponent:") ~typ:(llong @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) -let scrollAnimationDuration self = msg_send ~self ~cmd:(selector "scrollAnimationDuration") ~typ:(returning (double)) -let selectRow x ~inColumn ~animated self = msg_send ~self ~cmd:(selector "selectRow:inColumn:animated:") ~typ:(int @-> int @-> bool @-> returning (void)) x inColumn animated -let selectRow' x ~inComponent ~animated self = msg_send ~self ~cmd:(selector "selectRow:inComponent:animated:") ~typ:(llong @-> llong @-> bool @-> returning (void)) (LLong.of_int x) (LLong.of_int inComponent) animated -let selectedRowForColumn x self = msg_send ~self ~cmd:(selector "selectedRowForColumn:") ~typ:(int @-> returning (int)) x -let selectedRowInComponent x self = msg_send ~self ~cmd:(selector "selectedRowInComponent:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let setAllowsMultipleSelection x self = msg_send ~self ~cmd:(selector "setAllowsMultipleSelection:") ~typ:(bool @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setDataSource x self = msg_send ~self ~cmd:(selector "setDataSource:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning (void)) -let setShowsSelectionIndicator x self = msg_send ~self ~cmd:(selector "setShowsSelectionIndicator:") ~typ:(bool @-> returning (void)) x -let setSoundsEnabled x self = msg_send ~self ~cmd:(selector "setSoundsEnabled:") ~typ:(bool @-> returning (void)) x -let showsSelectionIndicator self = msg_send ~self ~cmd:(selector "showsSelectionIndicator") ~typ:(returning (bool)) -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView' x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let tableViewForColumn x self = msg_send ~self ~cmd:(selector "tableViewForColumn:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let viewForRow x ~forComponent self = msg_send ~self ~cmd:(selector "viewForRow:forComponent:") ~typ:(llong @-> llong @-> returning (id)) (LLong.of_int x) (LLong.of_int forComponent) -let visibleRowsForColumn x self = msg_send_stret ~self ~cmd:(selector "visibleRowsForColumn:") ~typ:(int @-> returning (NSRange.t)) ~return_type:NSRange.t x \ No newline at end of file +let allowsMultipleSelection self = msg_send ~self ~cmd:(selector "allowsMultipleSelection") ~typ:(returning bool) +let columnForTableView x self = msg_send ~self ~cmd:(selector "columnForTableView:") ~typ:(id @-> returning llong) x +let dataSource self = msg_send ~self ~cmd:(selector "dataSource") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultSize self = msg_send ~self ~cmd:(selector "defaultSize") ~typ:(returning CGSize.t) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let imageForPickerPiece x self = msg_send ~self ~cmd:(selector "imageForPickerPiece:") ~typ:(llong @-> returning id) (LLong.of_int x) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let numberOfColumns self = msg_send ~self ~cmd:(selector "numberOfColumns") ~typ:(returning llong) +let numberOfComponents self = msg_send ~self ~cmd:(selector "numberOfComponents") ~typ:(returning llong) +let numberOfRowsInColumn x self = msg_send ~self ~cmd:(selector "numberOfRowsInColumn:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let numberOfRowsInComponent x self = msg_send ~self ~cmd:(selector "numberOfRowsInComponent:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let pickerImageNamePrefix self = msg_send ~self ~cmd:(selector "pickerImageNamePrefix") ~typ:(returning id) +let reload self = msg_send ~self ~cmd:(selector "reload") ~typ:(returning void) +let reloadAllComponents self = msg_send ~self ~cmd:(selector "reloadAllComponents") ~typ:(returning void) +let reloadAllPickerPieces self = msg_send ~self ~cmd:(selector "reloadAllPickerPieces") ~typ:(returning void) +let reloadComponent x self = msg_send ~self ~cmd:(selector "reloadComponent:") ~typ:(llong @-> returning void) (LLong.of_int x) +let reloadData self = msg_send ~self ~cmd:(selector "reloadData") ~typ:(returning void) +let reloadDataForColumn x self = msg_send ~self ~cmd:(selector "reloadDataForColumn:") ~typ:(int @-> returning void) x +let rowSizeForComponent x self = msg_send ~self ~cmd:(selector "rowSizeForComponent:") ~typ:(llong @-> returning CGSize.t) (LLong.of_int x) +let scrollAnimationDuration self = msg_send ~self ~cmd:(selector "scrollAnimationDuration") ~typ:(returning double) +let selectRow x ~inColumn ~animated self = msg_send ~self ~cmd:(selector "selectRow:inColumn:animated:") ~typ:(int @-> int @-> bool @-> returning void) x inColumn animated +let selectRow' x ~inComponent ~animated self = msg_send ~self ~cmd:(selector "selectRow:inComponent:animated:") ~typ:(llong @-> llong @-> bool @-> returning void) (LLong.of_int x) (LLong.of_int inComponent) animated +let selectedRowForColumn x self = msg_send ~self ~cmd:(selector "selectedRowForColumn:") ~typ:(int @-> returning int) x +let selectedRowInComponent x self = msg_send ~self ~cmd:(selector "selectedRowInComponent:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let setAllowsMultipleSelection x self = msg_send ~self ~cmd:(selector "setAllowsMultipleSelection:") ~typ:(bool @-> returning void) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setDataSource x self = msg_send ~self ~cmd:(selector "setDataSource:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning void) +let setShowsSelectionIndicator x self = msg_send ~self ~cmd:(selector "setShowsSelectionIndicator:") ~typ:(bool @-> returning void) x +let setSoundsEnabled x self = msg_send ~self ~cmd:(selector "setSoundsEnabled:") ~typ:(bool @-> returning void) x +let showsSelectionIndicator self = msg_send ~self ~cmd:(selector "showsSelectionIndicator") ~typ:(returning bool) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView' x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let tableViewForColumn x self = msg_send ~self ~cmd:(selector "tableViewForColumn:") ~typ:(llong @-> returning id) (LLong.of_int x) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let viewForRow x ~forComponent self = msg_send ~self ~cmd:(selector "viewForRow:forComponent:") ~typ:(llong @-> llong @-> returning id) (LLong.of_int x) (LLong.of_int forComponent) +let visibleRowsForColumn x self = msg_send ~self ~cmd:(selector "visibleRowsForColumn:") ~typ:(int @-> returning NSRange.t) x \ No newline at end of file diff --git a/uikit/UIPickerViewClass.ml b/uikit/UIPickerViewClass.ml new file mode 100644 index 00000000..451105cc --- /dev/null +++ b/uikit/UIPickerViewClass.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipickerview?language=objc}UIPickerView} *) + +let defaultSizeForCurrentOrientation self = msg_send ~self ~cmd:(selector "defaultSizeForCurrentOrientation") ~typ:(returning CGSize.t) +let defaultSizeForMainScreenTraits self = msg_send ~self ~cmd:(selector "defaultSizeForMainScreenTraits") ~typ:(returning CGSize.t) +let defaultSizeForTraits x self = msg_send ~self ~cmd:(selector "defaultSizeForTraits:") ~typ:(id @-> returning CGSize.t) x +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) +let sizeForMainScreenTraitsThatFits x self = msg_send ~self ~cmd:(selector "sizeForMainScreenTraitsThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let sizeThatFits x ~forTraits self = msg_send ~self ~cmd:(selector "sizeThatFits:forTraits:") ~typ:(CGSize.t @-> id @-> returning CGSize.t) x forTraits \ No newline at end of file diff --git a/uikit/UIPinchGestureRecognizer.ml b/uikit/UIPinchGestureRecognizer.ml index da514d94..0120fbe8 100644 --- a/uikit/UIPinchGestureRecognizer.ml +++ b/uikit/UIPinchGestureRecognizer.ml @@ -5,24 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPinchGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipinchgesturerecognizer?language=objc}UIPinchGestureRecognizer} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIPinchGestureRecognizer" -let anchorPoint self = msg_send_stret ~self ~cmd:(selector "anchorPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning (double)) -let scaleThreshold self = msg_send ~self ~cmd:(selector "scaleThreshold") ~typ:(returning (double)) -let setScale x self = msg_send ~self ~cmd:(selector "setScale:") ~typ:(double @-> returning (void)) x -let setScaleThreshold x self = msg_send ~self ~cmd:(selector "setScaleThreshold:") ~typ:(double @-> returning (void)) x -let setTransform x self = msg_send ~self ~cmd:(selector "setTransform:") ~typ:(ptr void @-> returning (void)) x -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning (double)) \ No newline at end of file +let anchorPoint self = msg_send ~self ~cmd:(selector "anchorPoint") ~typ:(returning CGPoint.t) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning double) +let scaleThreshold self = msg_send ~self ~cmd:(selector "scaleThreshold") ~typ:(returning double) +let setScale x self = msg_send ~self ~cmd:(selector "setScale:") ~typ:(double @-> returning void) x +let setScaleThreshold x self = msg_send ~self ~cmd:(selector "setScaleThreshold:") ~typ:(double @-> returning void) x +let setTransform x self = msg_send ~self ~cmd:(selector "setTransform:") ~typ:(CGAffineTransform.t @-> returning void) x +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let transform self = msg_send ~self ~cmd:(selector "transform") ~typ:(returning CGAffineTransform.t) +let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIPinchGestureRecognizerClass.ml b/uikit/UIPinchGestureRecognizerClass.ml new file mode 100644 index 00000000..5c97f4e9 --- /dev/null +++ b/uikit/UIPinchGestureRecognizerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipinchgesturerecognizer?language=objc}UIPinchGestureRecognizer} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIPointerAccessory.ml b/uikit/UIPointerAccessory.ml index 0e2c8f6e..ada6e2d8 100644 --- a/uikit/UIPointerAccessory.ml +++ b/uikit/UIPointerAccessory.ml @@ -5,19 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPointerAccessory" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipointeraccessory?language=objc}UIPointerAccessory} *) -module C = struct - let accessoryWithShape x ~position self = msg_send ~self ~cmd:(selector "accessoryWithShape:position:") ~typ:(id @-> ptr void @-> returning (id)) x position - let arrowAccessoryWithPosition x self = msg_send ~self ~cmd:(selector "arrowAccessoryWithPosition:") ~typ:(ptr void @-> returning (id)) x -end +let self = get_class "UIPointerAccessory" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let orientationMatchesAngle self = msg_send ~self ~cmd:(selector "orientationMatchesAngle") ~typ:(returning (bool)) -let setOrientationMatchesAngle x self = msg_send ~self ~cmd:(selector "setOrientationMatchesAngle:") ~typ:(bool @-> returning (void)) x -let setPosition x self = msg_send ~self ~cmd:(selector "setPosition:") ~typ:(ptr void @-> returning (void)) x -let setShape x self = msg_send ~self ~cmd:(selector "setShape:") ~typ:(id @-> returning (void)) x -let shape self = msg_send ~self ~cmd:(selector "shape") ~typ:(returning (id)) \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let orientationMatchesAngle self = msg_send ~self ~cmd:(selector "orientationMatchesAngle") ~typ:(returning bool) +let position self = msg_send ~self ~cmd:(selector "position") ~typ:(returning void) +let setOrientationMatchesAngle x self = msg_send ~self ~cmd:(selector "setOrientationMatchesAngle:") ~typ:(bool @-> returning void) x +let setPosition x self = msg_send ~self ~cmd:(selector "setPosition:") ~typ:(void @-> returning void) x +let setShape x self = msg_send ~self ~cmd:(selector "setShape:") ~typ:(id @-> returning void) x +let shape self = msg_send ~self ~cmd:(selector "shape") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPointerAccessoryClass.ml b/uikit/UIPointerAccessoryClass.ml new file mode 100644 index 00000000..42cf5b76 --- /dev/null +++ b/uikit/UIPointerAccessoryClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipointeraccessory?language=objc}UIPointerAccessory} *) + +let accessoryWithShape x ~position self = msg_send ~self ~cmd:(selector "accessoryWithShape:position:") ~typ:(id @-> void @-> returning id) x position +let arrowAccessoryWithPosition x self = msg_send ~self ~cmd:(selector "arrowAccessoryWithPosition:") ~typ:(void @-> returning id) x \ No newline at end of file diff --git a/uikit/UIPointerAccessoryPosition.ml b/uikit/UIPointerAccessoryPosition.ml index c0d23b1c..3c02caf0 100644 --- a/uikit/UIPointerAccessoryPosition.ml +++ b/uikit/UIPointerAccessoryPosition.ml @@ -3,6 +3,9 @@ open Runtime open Objc +[@@@ocaml.warning "-33"] +open Foundation + let t : [`UIPointerAccessoryPosition] structure typ = structure "_UIPointerAccessoryPosition" (** Apple docs: {{:https://developer.apple.com/documentation/uikit/_uipointeraccessoryposition?language=objc}_UIPointerAccessoryPosition} *) @@ -11,5 +14,13 @@ let angle = field t "angle" double let () = seal t +let init + ~offset:offset_v + ~angle:angle_v + = + let t = make t in + setf t offset offset_v; + setf t angle angle_v; + t let offset t = getf t offset let angle t = getf t angle diff --git a/uikit/UIPointerAppIconEffect.ml b/uikit/UIPointerAppIconEffect.ml index 16d2d1c1..9686af57 100644 --- a/uikit/UIPointerAppIconEffect.ml +++ b/uikit/UIPointerAppIconEffect.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPointerAppIconEffect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipointerappiconeffect?language=objc}UIPointerAppIconEffect} *) -let overrideSlipPoints self = msg_send ~self ~cmd:(selector "overrideSlipPoints") ~typ:(returning (id)) -let settings self = msg_send ~self ~cmd:(selector "settings") ~typ:(returning (id)) -let useSoftShadow self = msg_send ~self ~cmd:(selector "useSoftShadow") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIPointerAppIconEffect" + +let overrideSlipPoints self = msg_send ~self ~cmd:(selector "overrideSlipPoints") ~typ:(returning id) +let settings self = msg_send ~self ~cmd:(selector "settings") ~typ:(returning id) +let useSoftShadow self = msg_send ~self ~cmd:(selector "useSoftShadow") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIPointerEffect.ml b/uikit/UIPointerEffect.ml index 19f1c418..5b0043af 100644 --- a/uikit/UIPointerEffect.ml +++ b/uikit/UIPointerEffect.ml @@ -5,31 +5,31 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPointerEffect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipointereffect?language=objc}UIPointerEffect} *) -module C = struct - let effectWithPreview x self = msg_send ~self ~cmd:(selector "effectWithPreview:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIPointerEffect" -let allowsSanitization self = msg_send ~self ~cmd:(selector "allowsSanitization") ~typ:(returning (bool)) -let constrainedAxes self = msg_send ~self ~cmd:(selector "constrainedAxes") ~typ:(returning (ullong)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dampedAnimationDampingRatio self = msg_send ~self ~cmd:(selector "dampedAnimationDampingRatio") ~typ:(returning (double)) -let dampedAnimationResponse self = msg_send ~self ~cmd:(selector "dampedAnimationResponse") ~typ:(returning (double)) -let defaultPointerCornerRadius self = msg_send ~self ~cmd:(selector "defaultPointerCornerRadius") ~typ:(returning (double)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let maxSlip self = msg_send ~self ~cmd:(selector "maxSlip") ~typ:(returning (double)) -let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning (ullong)) -let overrideSlipPoints self = msg_send ~self ~cmd:(selector "overrideSlipPoints") ~typ:(returning (id)) -let parallaxAmount self = msg_send ~self ~cmd:(selector "parallaxAmount") ~typ:(returning (double)) -let preview self = msg_send ~self ~cmd:(selector "preview") ~typ:(returning (id)) -let scaleUpAnimationDampingRatio self = msg_send ~self ~cmd:(selector "scaleUpAnimationDampingRatio") ~typ:(returning (double)) -let scaleUpAnimationResponse self = msg_send ~self ~cmd:(selector "scaleUpAnimationResponse") ~typ:(returning (double)) -let scaleUpPoints self = msg_send ~self ~cmd:(selector "scaleUpPoints") ~typ:(returning (double)) -let setPreview x self = msg_send ~self ~cmd:(selector "setPreview:") ~typ:(id @-> returning (void)) x -let settings self = msg_send ~self ~cmd:(selector "settings") ~typ:(returning (id)) -let slipFactor self = msg_send_stret ~self ~cmd:(selector "slipFactor") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let useSoftShadow self = msg_send ~self ~cmd:(selector "useSoftShadow") ~typ:(returning (bool)) -let usesPointerArbiter self = msg_send ~self ~cmd:(selector "usesPointerArbiter") ~typ:(returning (bool)) \ No newline at end of file +let allowsSanitization self = msg_send ~self ~cmd:(selector "allowsSanitization") ~typ:(returning bool) +let constrainedAxes self = msg_send ~self ~cmd:(selector "constrainedAxes") ~typ:(returning ullong) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dampedAnimationDampingRatio self = msg_send ~self ~cmd:(selector "dampedAnimationDampingRatio") ~typ:(returning double) +let dampedAnimationResponse self = msg_send ~self ~cmd:(selector "dampedAnimationResponse") ~typ:(returning double) +let defaultPointerCornerRadius self = msg_send ~self ~cmd:(selector "defaultPointerCornerRadius") ~typ:(returning double) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let maxSlip self = msg_send ~self ~cmd:(selector "maxSlip") ~typ:(returning double) +let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning ullong) +let overrideSlipPoints self = msg_send ~self ~cmd:(selector "overrideSlipPoints") ~typ:(returning id) +let parallaxAmount self = msg_send ~self ~cmd:(selector "parallaxAmount") ~typ:(returning double) +let preview self = msg_send ~self ~cmd:(selector "preview") ~typ:(returning id) +let scaleUpAnimationDampingRatio self = msg_send ~self ~cmd:(selector "scaleUpAnimationDampingRatio") ~typ:(returning double) +let scaleUpAnimationResponse self = msg_send ~self ~cmd:(selector "scaleUpAnimationResponse") ~typ:(returning double) +let scaleUpPoints self = msg_send ~self ~cmd:(selector "scaleUpPoints") ~typ:(returning double) +let setPreview x self = msg_send ~self ~cmd:(selector "setPreview:") ~typ:(id @-> returning void) x +let settings self = msg_send ~self ~cmd:(selector "settings") ~typ:(returning id) +let slipFactor self = msg_send ~self ~cmd:(selector "slipFactor") ~typ:(returning CGPoint.t) +let useSoftShadow self = msg_send ~self ~cmd:(selector "useSoftShadow") ~typ:(returning bool) +let usesPointerArbiter self = msg_send ~self ~cmd:(selector "usesPointerArbiter") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIPointerEffectClass.ml b/uikit/UIPointerEffectClass.ml new file mode 100644 index 00000000..c2ae5f54 --- /dev/null +++ b/uikit/UIPointerEffectClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipointereffect?language=objc}UIPointerEffect} *) + +let effectWithPreview x self = msg_send ~self ~cmd:(selector "effectWithPreview:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIPointerHoverEffect.ml b/uikit/UIPointerHoverEffect.ml index 9e8071ed..05f1802d 100644 --- a/uikit/UIPointerHoverEffect.ml +++ b/uikit/UIPointerHoverEffect.ml @@ -5,21 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPointerHoverEffect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipointerhovereffect?language=objc}UIPointerHoverEffect} *) -let constrainedAxes self = msg_send ~self ~cmd:(selector "constrainedAxes") ~typ:(returning (ullong)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning (ullong)) -let preferredTintMode self = msg_send ~self ~cmd:(selector "preferredTintMode") ~typ:(returning (llong)) -let prefersScaledContent self = msg_send ~self ~cmd:(selector "prefersScaledContent") ~typ:(returning (bool)) -let prefersShadow self = msg_send ~self ~cmd:(selector "prefersShadow") ~typ:(returning (bool)) -let setPreferredTintMode x self = msg_send ~self ~cmd:(selector "setPreferredTintMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPrefersScaledContent x self = msg_send ~self ~cmd:(selector "setPrefersScaledContent:") ~typ:(bool @-> returning (void)) x -let setPrefersShadow x self = msg_send ~self ~cmd:(selector "setPrefersShadow:") ~typ:(bool @-> returning (void)) x -let setTintViewTakesOnPointerShape x self = msg_send ~self ~cmd:(selector "setTintViewTakesOnPointerShape:") ~typ:(bool @-> returning (void)) x -let settings self = msg_send ~self ~cmd:(selector "settings") ~typ:(returning (id)) -let tintViewTakesOnPointerShape self = msg_send ~self ~cmd:(selector "tintViewTakesOnPointerShape") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIPointerHoverEffect" + +let constrainedAxes self = msg_send ~self ~cmd:(selector "constrainedAxes") ~typ:(returning ullong) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning ullong) +let preferredTintMode self = msg_send ~self ~cmd:(selector "preferredTintMode") ~typ:(returning llong) +let prefersScaledContent self = msg_send ~self ~cmd:(selector "prefersScaledContent") ~typ:(returning bool) +let prefersShadow self = msg_send ~self ~cmd:(selector "prefersShadow") ~typ:(returning bool) +let setPreferredTintMode x self = msg_send ~self ~cmd:(selector "setPreferredTintMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPrefersScaledContent x self = msg_send ~self ~cmd:(selector "setPrefersScaledContent:") ~typ:(bool @-> returning void) x +let setPrefersShadow x self = msg_send ~self ~cmd:(selector "setPrefersShadow:") ~typ:(bool @-> returning void) x +let setTintViewTakesOnPointerShape x self = msg_send ~self ~cmd:(selector "setTintViewTakesOnPointerShape:") ~typ:(bool @-> returning void) x +let settings self = msg_send ~self ~cmd:(selector "settings") ~typ:(returning id) +let tintViewTakesOnPointerShape self = msg_send ~self ~cmd:(selector "tintViewTakesOnPointerShape") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIPointerInteraction.ml b/uikit/UIPointerInteraction.ml index 06eff380..c97505bb 100644 --- a/uikit/UIPointerInteraction.ml +++ b/uikit/UIPointerInteraction.ml @@ -5,25 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPointerInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipointerinteraction?language=objc}UIPointerInteraction} *) -let currentModifiers self = msg_send ~self ~cmd:(selector "currentModifiers") ~typ:(returning (llong)) -let currentRegion self = msg_send ~self ~cmd:(selector "currentRegion") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultRegion self = msg_send ~self ~cmd:(selector "defaultRegion") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let driver self = msg_send ~self ~cmd:(selector "driver") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning (id)) x -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let mostRecentRegion self = msg_send ~self ~cmd:(selector "mostRecentRegion") ~typ:(returning (id)) -let setCurrentModifiers x self = msg_send ~self ~cmd:(selector "setCurrentModifiers:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCurrentRegion x self = msg_send ~self ~cmd:(selector "setCurrentRegion:") ~typ:(id @-> returning (void)) x -let setDriver x self = msg_send ~self ~cmd:(selector "setDriver:") ~typ:(id @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setMostRecentRegion x self = msg_send ~self ~cmd:(selector "setMostRecentRegion:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIPointerInteraction" + +let currentModifiers self = msg_send ~self ~cmd:(selector "currentModifiers") ~typ:(returning llong) +let currentRegion self = msg_send ~self ~cmd:(selector "currentRegion") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultRegion self = msg_send ~self ~cmd:(selector "defaultRegion") ~typ:(returning id) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let driver self = msg_send ~self ~cmd:(selector "driver") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning id) x +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let mostRecentRegion self = msg_send ~self ~cmd:(selector "mostRecentRegion") ~typ:(returning id) +let setCurrentModifiers x self = msg_send ~self ~cmd:(selector "setCurrentModifiers:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCurrentRegion x self = msg_send ~self ~cmd:(selector "setCurrentRegion:") ~typ:(id @-> returning void) x +let setDriver x self = msg_send ~self ~cmd:(selector "setDriver:") ~typ:(id @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setMostRecentRegion x self = msg_send ~self ~cmd:(selector "setMostRecentRegion:") ~typ:(id @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPointerInteractionAnimator.ml b/uikit/UIPointerInteractionAnimator.ml index 6695ba13..e0ce7cec 100644 --- a/uikit/UIPointerInteractionAnimator.ml +++ b/uikit/UIPointerInteractionAnimator.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPointerInteractionAnimator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipointerinteractionanimator?language=objc}UIPointerInteractionAnimator} *) -let addAnimations x self = msg_send ~self ~cmd:(selector "addAnimations:") ~typ:(ptr void @-> returning (void)) x -let addCompletion x self = msg_send ~self ~cmd:(selector "addCompletion:") ~typ:(ptr void @-> returning (void)) x -let animations self = msg_send ~self ~cmd:(selector "animations") ~typ:(returning (id)) -let completions self = msg_send ~self ~cmd:(selector "completions") ~typ:(returning (id)) -let debugName self = msg_send ~self ~cmd:(selector "debugName") ~typ:(returning (id)) -let performAllAnimations self = msg_send ~self ~cmd:(selector "performAllAnimations") ~typ:(returning (void)) -let performAllCompletions x self = msg_send ~self ~cmd:(selector "performAllCompletions:") ~typ:(bool @-> returning (void)) x -let setAnimations x self = msg_send ~self ~cmd:(selector "setAnimations:") ~typ:(id @-> returning (void)) x -let setCompletions x self = msg_send ~self ~cmd:(selector "setCompletions:") ~typ:(id @-> returning (void)) x -let setDebugName x self = msg_send ~self ~cmd:(selector "setDebugName:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIPointerInteractionAnimator" + +let addAnimations x self = msg_send ~self ~cmd:(selector "addAnimations:") ~typ:((ptr void) @-> returning void) x +let addCompletion x self = msg_send ~self ~cmd:(selector "addCompletion:") ~typ:((ptr void) @-> returning void) x +let animations self = msg_send ~self ~cmd:(selector "animations") ~typ:(returning id) +let completions self = msg_send ~self ~cmd:(selector "completions") ~typ:(returning id) +let debugName self = msg_send ~self ~cmd:(selector "debugName") ~typ:(returning id) +let performAllAnimations self = msg_send ~self ~cmd:(selector "performAllAnimations") ~typ:(returning void) +let performAllCompletions x self = msg_send ~self ~cmd:(selector "performAllCompletions:") ~typ:(bool @-> returning void) x +let setAnimations x self = msg_send ~self ~cmd:(selector "setAnimations:") ~typ:(id @-> returning void) x +let setCompletions x self = msg_send ~self ~cmd:(selector "setCompletions:") ~typ:(id @-> returning void) x +let setDebugName x self = msg_send ~self ~cmd:(selector "setDebugName:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPointerLiftEffect.ml b/uikit/UIPointerLiftEffect.ml index aef22f77..85d116e1 100644 --- a/uikit/UIPointerLiftEffect.ml +++ b/uikit/UIPointerLiftEffect.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPointerLiftEffect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipointerlifteffect?language=objc}UIPointerLiftEffect} *) -let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning (ullong)) -let settings self = msg_send ~self ~cmd:(selector "settings") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIPointerLiftEffect" + +let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning ullong) +let settings self = msg_send ~self ~cmd:(selector "settings") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPointerLockState.ml b/uikit/UIPointerLockState.ml index e3436db4..7696d5c6 100644 --- a/uikit/UIPointerLockState.ml +++ b/uikit/UIPointerLockState.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPointerLockState" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipointerlockstate?language=objc}UIPointerLockState} *) -let initWithScene x self = msg_send ~self ~cmd:(selector "initWithScene:") ~typ:(id @-> returning (id)) x -let isLocked self = msg_send ~self ~cmd:(selector "isLocked") ~typ:(returning (bool)) -let windowHostingScene self = msg_send ~self ~cmd:(selector "windowHostingScene") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIPointerLockState" + +let initWithScene x self = msg_send ~self ~cmd:(selector "initWithScene:") ~typ:(id @-> returning id) x +let isLocked self = msg_send ~self ~cmd:(selector "isLocked") ~typ:(returning bool) +let windowHostingScene self = msg_send ~self ~cmd:(selector "windowHostingScene") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPointerRegion.ml b/uikit/UIPointerRegion.ml index f4b29118..cf0310f3 100644 --- a/uikit/UIPointerRegion.ml +++ b/uikit/UIPointerRegion.ml @@ -5,24 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPointerRegion" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipointerregion?language=objc}UIPointerRegion} *) -module C = struct - let regionWithRect x ~identifier self = msg_send ~self ~cmd:(selector "regionWithRect:identifier:") ~typ:(CGRect.t @-> id @-> returning (id)) x identifier -end +let self = get_class "UIPointerRegion" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let generationID self = msg_send ~self ~cmd:(selector "generationID") ~typ:(returning (ullong)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let latchingAxes self = msg_send ~self ~cmd:(selector "latchingAxes") ~typ:(returning (ullong)) -let rect self = msg_send_stret ~self ~cmd:(selector "rect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let referenceView self = msg_send ~self ~cmd:(selector "referenceView") ~typ:(returning (id)) -let setGenerationID x self = msg_send ~self ~cmd:(selector "setGenerationID:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let setLatchingAxes x self = msg_send ~self ~cmd:(selector "setLatchingAxes:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setRect x self = msg_send ~self ~cmd:(selector "setRect:") ~typ:(CGRect.t @-> returning (void)) x -let setReferenceView x self = msg_send ~self ~cmd:(selector "setReferenceView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let generationID self = msg_send ~self ~cmd:(selector "generationID") ~typ:(returning ullong) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let latchingAxes self = msg_send ~self ~cmd:(selector "latchingAxes") ~typ:(returning ullong) +let rect self = msg_send ~self ~cmd:(selector "rect") ~typ:(returning CGRect.t) +let referenceView self = msg_send ~self ~cmd:(selector "referenceView") ~typ:(returning id) +let setGenerationID x self = msg_send ~self ~cmd:(selector "setGenerationID:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning void) x +let setLatchingAxes x self = msg_send ~self ~cmd:(selector "setLatchingAxes:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setRect x self = msg_send ~self ~cmd:(selector "setRect:") ~typ:(CGRect.t @-> returning void) x +let setReferenceView x self = msg_send ~self ~cmd:(selector "setReferenceView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPointerRegionClass.ml b/uikit/UIPointerRegionClass.ml new file mode 100644 index 00000000..72b99e3e --- /dev/null +++ b/uikit/UIPointerRegionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipointerregion?language=objc}UIPointerRegion} *) + +let regionWithRect x ~identifier self = msg_send ~self ~cmd:(selector "regionWithRect:identifier:") ~typ:(CGRect.t @-> id @-> returning id) x identifier \ No newline at end of file diff --git a/uikit/UIPointerRegionRequest.ml b/uikit/UIPointerRegionRequest.ml index 6d36e3b9..e39079d4 100644 --- a/uikit/UIPointerRegionRequest.ml +++ b/uikit/UIPointerRegionRequest.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPointerRegionRequest" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipointerregionrequest?language=objc}UIPointerRegionRequest} *) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let location self = msg_send_stret ~self ~cmd:(selector "location") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let modifiers self = msg_send ~self ~cmd:(selector "modifiers") ~typ:(returning (llong)) -let setLocation x self = msg_send ~self ~cmd:(selector "setLocation:") ~typ:(CGPoint.t @-> returning (void)) x -let setModifiers x self = msg_send ~self ~cmd:(selector "setModifiers:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file +let self = get_class "UIPointerRegionRequest" + +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let location self = msg_send ~self ~cmd:(selector "location") ~typ:(returning CGPoint.t) +let modifiers self = msg_send ~self ~cmd:(selector "modifiers") ~typ:(returning llong) +let setLocation x self = msg_send ~self ~cmd:(selector "setLocation:") ~typ:(CGPoint.t @-> returning void) x +let setModifiers x self = msg_send ~self ~cmd:(selector "setModifiers:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIPointerShape.ml b/uikit/UIPointerShape.ml index cbb04217..42c918b1 100644 --- a/uikit/UIPointerShape.ml +++ b/uikit/UIPointerShape.ml @@ -5,38 +5,35 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPointerShape" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipointershape?language=objc}UIPointerShape} *) -module C = struct - let beamWithPreferredLength x ~axis self = msg_send ~self ~cmd:(selector "beamWithPreferredLength:axis:") ~typ:(double @-> ullong @-> returning (id)) x (ULLong.of_int axis) - let shapeWithPath x self = msg_send ~self ~cmd:(selector "shapeWithPath:") ~typ:(id @-> returning (id)) x - let shapeWithRoundedRect x self = msg_send ~self ~cmd:(selector "shapeWithRoundedRect:") ~typ:(CGRect.t @-> returning (id)) x - let shapeWithRoundedRect' x ~cornerRadius self = msg_send ~self ~cmd:(selector "shapeWithRoundedRect:cornerRadius:") ~typ:(CGRect.t @-> double @-> returning (id)) x cornerRadius -end +let self = get_class "UIPointerShape" -let beamLength self = msg_send ~self ~cmd:(selector "beamLength") ~typ:(returning (double)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let cornerCurve self = msg_send ~self ~cmd:(selector "cornerCurve") ~typ:(returning (id)) -let cornerRadius self = msg_send ~self ~cmd:(selector "cornerRadius") ~typ:(returning (double)) -let defaultCornerRadius self = msg_send ~self ~cmd:(selector "defaultCornerRadius") ~typ:(returning (double)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let effectiveCornerRadius self = msg_send ~self ~cmd:(selector "effectiveCornerRadius") ~typ:(returning (double)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let inherentConstrainedSlip self = msg_send_stret ~self ~cmd:(selector "inherentConstrainedSlip") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isCircle self = msg_send ~self ~cmd:(selector "isCircle") ~typ:(returning (bool)) -let isElastic self = msg_send ~self ~cmd:(selector "isElastic") ~typ:(returning (bool)) -let isEmpty self = msg_send ~self ~cmd:(selector "isEmpty") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let path self = msg_send ~self ~cmd:(selector "path") ~typ:(returning (id)) -let pinnedPoint self = msg_send_stret ~self ~cmd:(selector "pinnedPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let rect self = msg_send_stret ~self ~cmd:(selector "rect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let setBeamLength x self = msg_send ~self ~cmd:(selector "setBeamLength:") ~typ:(double @-> returning (void)) x -let setCornerRadius x self = msg_send ~self ~cmd:(selector "setCornerRadius:") ~typ:(double @-> returning (void)) x -let setDefaultCornerRadius x self = msg_send ~self ~cmd:(selector "setDefaultCornerRadius:") ~typ:(double @-> returning (void)) x -let setInherentConstrainedSlip x self = msg_send ~self ~cmd:(selector "setInherentConstrainedSlip:") ~typ:(CGPoint.t @-> returning (void)) x -let setPath x self = msg_send ~self ~cmd:(selector "setPath:") ~typ:(id @-> returning (void)) x -let setPinnedPoint x self = msg_send ~self ~cmd:(selector "setPinnedPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setRect x self = msg_send ~self ~cmd:(selector "setRect:") ~typ:(CGRect.t @-> returning (void)) x -let size self = msg_send_stret ~self ~cmd:(selector "size") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t \ No newline at end of file +let beamLength self = msg_send ~self ~cmd:(selector "beamLength") ~typ:(returning double) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let cornerCurve self = msg_send ~self ~cmd:(selector "cornerCurve") ~typ:(returning id) +let cornerRadius self = msg_send ~self ~cmd:(selector "cornerRadius") ~typ:(returning double) +let defaultCornerRadius self = msg_send ~self ~cmd:(selector "defaultCornerRadius") ~typ:(returning double) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let effectiveCornerRadius self = msg_send ~self ~cmd:(selector "effectiveCornerRadius") ~typ:(returning double) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let inherentConstrainedSlip self = msg_send ~self ~cmd:(selector "inherentConstrainedSlip") ~typ:(returning CGPoint.t) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isCircle self = msg_send ~self ~cmd:(selector "isCircle") ~typ:(returning bool) +let isElastic self = msg_send ~self ~cmd:(selector "isElastic") ~typ:(returning bool) +let isEmpty self = msg_send ~self ~cmd:(selector "isEmpty") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let path self = msg_send ~self ~cmd:(selector "path") ~typ:(returning id) +let pinnedPoint self = msg_send ~self ~cmd:(selector "pinnedPoint") ~typ:(returning CGPoint.t) +let rect self = msg_send ~self ~cmd:(selector "rect") ~typ:(returning CGRect.t) +let setBeamLength x self = msg_send ~self ~cmd:(selector "setBeamLength:") ~typ:(double @-> returning void) x +let setCornerRadius x self = msg_send ~self ~cmd:(selector "setCornerRadius:") ~typ:(double @-> returning void) x +let setDefaultCornerRadius x self = msg_send ~self ~cmd:(selector "setDefaultCornerRadius:") ~typ:(double @-> returning void) x +let setInherentConstrainedSlip x self = msg_send ~self ~cmd:(selector "setInherentConstrainedSlip:") ~typ:(CGPoint.t @-> returning void) x +let setPath x self = msg_send ~self ~cmd:(selector "setPath:") ~typ:(id @-> returning void) x +let setPinnedPoint x self = msg_send ~self ~cmd:(selector "setPinnedPoint:") ~typ:(CGPoint.t @-> returning void) x +let setRect x self = msg_send ~self ~cmd:(selector "setRect:") ~typ:(CGRect.t @-> returning void) x +let size self = msg_send ~self ~cmd:(selector "size") ~typ:(returning CGSize.t) \ No newline at end of file diff --git a/uikit/UIPointerShapeClass.ml b/uikit/UIPointerShapeClass.ml new file mode 100644 index 00000000..70a1a042 --- /dev/null +++ b/uikit/UIPointerShapeClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipointershape?language=objc}UIPointerShape} *) + +let beamWithPreferredLength x ~axis self = msg_send ~self ~cmd:(selector "beamWithPreferredLength:axis:") ~typ:(double @-> ullong @-> returning id) x (ULLong.of_int axis) +let shapeWithPath x self = msg_send ~self ~cmd:(selector "shapeWithPath:") ~typ:(id @-> returning id) x +let shapeWithRoundedRect x self = msg_send ~self ~cmd:(selector "shapeWithRoundedRect:") ~typ:(CGRect.t @-> returning id) x +let shapeWithRoundedRect' x ~cornerRadius self = msg_send ~self ~cmd:(selector "shapeWithRoundedRect:cornerRadius:") ~typ:(CGRect.t @-> double @-> returning id) x cornerRadius \ No newline at end of file diff --git a/uikit/UIPointerStyle.ml b/uikit/UIPointerStyle.ml index c5c0cf35..ae58fac9 100644 --- a/uikit/UIPointerStyle.ml +++ b/uikit/UIPointerStyle.ml @@ -5,34 +5,31 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPointerStyle" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipointerstyle?language=objc}UIPointerStyle} *) -module C = struct - let hiddenPointerStyle self = msg_send ~self ~cmd:(selector "hiddenPointerStyle") ~typ:(returning (id)) - let styleWithEffect x ~shape self = msg_send ~self ~cmd:(selector "styleWithEffect:shape:") ~typ:(id @-> id @-> returning (id)) x shape - let styleWithShape x ~constrainedAxes self = msg_send ~self ~cmd:(selector "styleWithShape:constrainedAxes:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int constrainedAxes) - let systemPointerStyle self = msg_send ~self ~cmd:(selector "systemPointerStyle") ~typ:(returning (id)) -end +let self = get_class "UIPointerStyle" -let accessories self = msg_send ~self ~cmd:(selector "accessories") ~typ:(returning (id)) -let canTransitionInPlaceToEffectWithDescriptor x self = msg_send ~self ~cmd:(selector "canTransitionInPlaceToEffectWithDescriptor:") ~typ:(id @-> returning (bool)) x -let compatibleDescriptors self = msg_send ~self ~cmd:(selector "compatibleDescriptors") ~typ:(returning (id)) -let constrainedAxes self = msg_send ~self ~cmd:(selector "constrainedAxes") ~typ:(returning (ullong)) -let contentScale self = msg_send ~self ~cmd:(selector "contentScale") ~typ:(returning (double)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let effect self = msg_send ~self ~cmd:(selector "effect") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning (ullong)) -let pointerShape self = msg_send ~self ~cmd:(selector "pointerShape") ~typ:(returning (id)) -let pointerUnderlapsContent self = msg_send ~self ~cmd:(selector "pointerUnderlapsContent") ~typ:(returning (bool)) -let setAccessories x self = msg_send ~self ~cmd:(selector "setAccessories:") ~typ:(id @-> returning (void)) x -let setConstrainedAxes x self = msg_send ~self ~cmd:(selector "setConstrainedAxes:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setEffect x self = msg_send ~self ~cmd:(selector "setEffect:") ~typ:(id @-> returning (void)) x -let setOptions x self = msg_send ~self ~cmd:(selector "setOptions:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setPointerShape x self = msg_send ~self ~cmd:(selector "setPointerShape:") ~typ:(id @-> returning (void)) x -let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let targetedPreview self = msg_send ~self ~cmd:(selector "targetedPreview") ~typ:(returning (id)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file +let accessories self = msg_send ~self ~cmd:(selector "accessories") ~typ:(returning id) +let canTransitionInPlaceToEffectWithDescriptor x self = msg_send ~self ~cmd:(selector "canTransitionInPlaceToEffectWithDescriptor:") ~typ:(id @-> returning bool) x +let compatibleDescriptors self = msg_send ~self ~cmd:(selector "compatibleDescriptors") ~typ:(returning id) +let constrainedAxes self = msg_send ~self ~cmd:(selector "constrainedAxes") ~typ:(returning ullong) +let contentScale self = msg_send ~self ~cmd:(selector "contentScale") ~typ:(returning double) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let effect self = msg_send ~self ~cmd:(selector "effect") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning ullong) +let pointerShape self = msg_send ~self ~cmd:(selector "pointerShape") ~typ:(returning id) +let pointerUnderlapsContent self = msg_send ~self ~cmd:(selector "pointerUnderlapsContent") ~typ:(returning bool) +let setAccessories x self = msg_send ~self ~cmd:(selector "setAccessories:") ~typ:(id @-> returning void) x +let setConstrainedAxes x self = msg_send ~self ~cmd:(selector "setConstrainedAxes:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setEffect x self = msg_send ~self ~cmd:(selector "setEffect:") ~typ:(id @-> returning void) x +let setOptions x self = msg_send ~self ~cmd:(selector "setOptions:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setPointerShape x self = msg_send ~self ~cmd:(selector "setPointerShape:") ~typ:(id @-> returning void) x +let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let targetedPreview self = msg_send ~self ~cmd:(selector "targetedPreview") ~typ:(returning id) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIPointerStyleClass.ml b/uikit/UIPointerStyleClass.ml new file mode 100644 index 00000000..5673ab58 --- /dev/null +++ b/uikit/UIPointerStyleClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipointerstyle?language=objc}UIPointerStyle} *) + +let hiddenPointerStyle self = msg_send ~self ~cmd:(selector "hiddenPointerStyle") ~typ:(returning id) +let styleWithEffect x ~shape self = msg_send ~self ~cmd:(selector "styleWithEffect:shape:") ~typ:(id @-> id @-> returning id) x shape +let styleWithShape x ~constrainedAxes self = msg_send ~self ~cmd:(selector "styleWithShape:constrainedAxes:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int constrainedAxes) +let systemPointerStyle self = msg_send ~self ~cmd:(selector "systemPointerStyle") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPopoverBackgroundView.ml b/uikit/UIPopoverBackgroundView.ml index 16fcfd6a..6d0be834 100644 --- a/uikit/UIPopoverBackgroundView.ml +++ b/uikit/UIPopoverBackgroundView.ml @@ -5,20 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPopoverBackgroundView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipopoverbackgroundview?language=objc}UIPopoverBackgroundView} *) -module C = struct - let arrowBase self = msg_send ~self ~cmd:(selector "arrowBase") ~typ:(returning (double)) - let arrowHeight self = msg_send ~self ~cmd:(selector "arrowHeight") ~typ:(returning (double)) - let cornerRadius self = msg_send ~self ~cmd:(selector "cornerRadius") ~typ:(returning (double)) - let wantsDefaultContentAppearance self = msg_send ~self ~cmd:(selector "wantsDefaultContentAppearance") ~typ:(returning (bool)) -end +let self = get_class "UIPopoverBackgroundView" -let actionForLayer x ~forKey self = msg_send ~self ~cmd:(selector "actionForLayer:forKey:") ~typ:(id @-> id @-> returning (id)) x forKey -let arrowDirection self = msg_send ~self ~cmd:(selector "arrowDirection") ~typ:(returning (ullong)) -let arrowOffset self = msg_send ~self ~cmd:(selector "arrowOffset") ~typ:(returning (double)) -let backgroundStyle self = msg_send ~self ~cmd:(selector "backgroundStyle") ~typ:(returning (llong)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setArrowDirection x self = msg_send ~self ~cmd:(selector "setArrowDirection:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setArrowOffset x self = msg_send ~self ~cmd:(selector "setArrowOffset:") ~typ:(double @-> returning (void)) x \ No newline at end of file +let actionForLayer x ~forKey self = msg_send ~self ~cmd:(selector "actionForLayer:forKey:") ~typ:(id @-> id @-> returning id) x forKey +let arrowDirection self = msg_send ~self ~cmd:(selector "arrowDirection") ~typ:(returning ullong) +let arrowOffset self = msg_send ~self ~cmd:(selector "arrowOffset") ~typ:(returning double) +let backgroundStyle self = msg_send ~self ~cmd:(selector "backgroundStyle") ~typ:(returning llong) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setArrowDirection x self = msg_send ~self ~cmd:(selector "setArrowDirection:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setArrowOffset x self = msg_send ~self ~cmd:(selector "setArrowOffset:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPopoverBackgroundViewClass.ml b/uikit/UIPopoverBackgroundViewClass.ml new file mode 100644 index 00000000..c0d7f8c5 --- /dev/null +++ b/uikit/UIPopoverBackgroundViewClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipopoverbackgroundview?language=objc}UIPopoverBackgroundView} *) + +let arrowBase self = msg_send ~self ~cmd:(selector "arrowBase") ~typ:(returning double) +let arrowHeight self = msg_send ~self ~cmd:(selector "arrowHeight") ~typ:(returning double) +let contentViewInsets self = msg_send ~self ~cmd:(selector "contentViewInsets") ~typ:(returning UIEdgeInsets.t) +let cornerRadius self = msg_send ~self ~cmd:(selector "cornerRadius") ~typ:(returning double) +let wantsDefaultContentAppearance self = msg_send ~self ~cmd:(selector "wantsDefaultContentAppearance") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIPopoverButton.ml b/uikit/UIPopoverButton.ml index c270a635..0abbe83c 100644 --- a/uikit/UIPopoverButton.ml +++ b/uikit/UIPopoverButton.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPopoverButton" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipopoverbutton?language=objc}UIPopoverButton} *) -let initWithFrame x ~buttonType self = msg_send ~self ~cmd:(selector "initWithFrame:buttonType:") ~typ:(CGRect.t @-> llong @-> returning (id)) x buttonType -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIPopoverButton" + +let initWithFrame x ~buttonType self = msg_send ~self ~cmd:(selector "initWithFrame:buttonType:") ~typ:(CGRect.t @-> llong @-> returning id) x (LLong.of_int buttonType) +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPopoverController.ml b/uikit/UIPopoverController.ml index 6c884627..2b6004aa 100644 --- a/uikit/UIPopoverController.ml +++ b/uikit/UIPopoverController.ml @@ -5,51 +5,56 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPopoverController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipopovercontroller?language=objc}UIPopoverController} *) -let adaptivePresentationStyleForPresentationController x self = msg_send ~self ~cmd:(selector "adaptivePresentationStyleForPresentationController:") ~typ:(id @-> returning (llong)) x -let adaptivePresentationStyleForPresentationController' x ~traitCollection self = msg_send ~self ~cmd:(selector "adaptivePresentationStyleForPresentationController:traitCollection:") ~typ:(id @-> id @-> returning (llong)) x traitCollection -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let contentViewController self = msg_send ~self ~cmd:(selector "contentViewController") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let dimmingView self = msg_send ~self ~cmd:(selector "dimmingView") ~typ:(returning (id)) -let dimmingViewWasTapped x self = msg_send ~self ~cmd:(selector "dimmingViewWasTapped:") ~typ:(id @-> returning (void)) x -let dismissPopoverAnimated x self = msg_send ~self ~cmd:(selector "dismissPopoverAnimated:") ~typ:(bool @-> returning (void)) x -let dismissesOnRotation self = msg_send ~self ~cmd:(selector "dismissesOnRotation") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithContentViewController x self = msg_send ~self ~cmd:(selector "initWithContentViewController:") ~typ:(id @-> returning (id)) x -let isPopoverVisible self = msg_send ~self ~cmd:(selector "isPopoverVisible") ~typ:(returning (bool)) -let isPresentingOrDismissing self = msg_send ~self ~cmd:(selector "isPresentingOrDismissing") ~typ:(returning (bool)) -let passthroughViews self = msg_send ~self ~cmd:(selector "passthroughViews") ~typ:(returning (id)) -let popoverArrowDirection self = msg_send ~self ~cmd:(selector "popoverArrowDirection") ~typ:(returning (ullong)) -let popoverBackgroundViewClass self = msg_send ~self ~cmd:(selector "popoverBackgroundViewClass") ~typ:(returning (_Class)) -let popoverContentSize self = msg_send_stret ~self ~cmd:(selector "popoverContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let popoverPresentationController x ~willRepositionPopoverToRect ~inView self = msg_send ~self ~cmd:(selector "popoverPresentationController:willRepositionPopoverToRect:inView:") ~typ:(id @-> ptr (CGRect.t) @-> ptr (id) @-> returning (void)) x willRepositionPopoverToRect inView -let popoverPresentationControllerDidDismissPopover x self = msg_send ~self ~cmd:(selector "popoverPresentationControllerDidDismissPopover:") ~typ:(id @-> returning (void)) x -let popoverPresentationControllerShouldDismissPopover x self = msg_send ~self ~cmd:(selector "popoverPresentationControllerShouldDismissPopover:") ~typ:(id @-> returning (bool)) x -let popoverView self = msg_send ~self ~cmd:(selector "popoverView") ~typ:(returning (id)) -let preferredLayoutInfo self = msg_send ~self ~cmd:(selector "preferredLayoutInfo") ~typ:(returning (id)) -let presentPopoverFromBarButtonItem x ~permittedArrowDirections ~animated self = msg_send ~self ~cmd:(selector "presentPopoverFromBarButtonItem:permittedArrowDirections:animated:") ~typ:(id @-> ullong @-> bool @-> returning (void)) x (ULLong.of_int permittedArrowDirections) animated -let presentPopoverFromRect x ~inView ~permittedArrowDirections ~animated self = msg_send ~self ~cmd:(selector "presentPopoverFromRect:inView:permittedArrowDirections:animated:") ~typ:(CGRect.t @-> id @-> ullong @-> bool @-> returning (void)) x inView (ULLong.of_int permittedArrowDirections) animated -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setContentViewController x self = msg_send ~self ~cmd:(selector "setContentViewController:") ~typ:(id @-> returning (void)) x -let setContentViewController' x ~animated self = msg_send ~self ~cmd:(selector "setContentViewController:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDimmingView x self = msg_send ~self ~cmd:(selector "setDimmingView:") ~typ:(id @-> returning (void)) x -let setDismissesOnRotation x self = msg_send ~self ~cmd:(selector "setDismissesOnRotation:") ~typ:(bool @-> returning (void)) x -let setPassthroughViews x self = msg_send ~self ~cmd:(selector "setPassthroughViews:") ~typ:(id @-> returning (void)) x -let setPopoverArrowDirection x self = msg_send ~self ~cmd:(selector "setPopoverArrowDirection:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setPopoverBackgroundViewClass x self = msg_send ~self ~cmd:(selector "setPopoverBackgroundViewClass:") ~typ:(_Class @-> returning (void)) x -let setPopoverContentSize x self = msg_send ~self ~cmd:(selector "setPopoverContentSize:") ~typ:(CGSize.t @-> returning (void)) x -let setPopoverContentSize' x ~animated self = msg_send ~self ~cmd:(selector "setPopoverContentSize:animated:") ~typ:(CGSize.t @-> bool @-> returning (void)) x animated -let setPopoverFrame x ~animated self = msg_send ~self ~cmd:(selector "setPopoverFrame:animated:") ~typ:(CGRect.t @-> bool @-> returning (void)) x animated -let setPopoverLayoutMargins x self = msg_send ~self ~cmd:(selector "setPopoverLayoutMargins:") ~typ:(ptr void @-> returning (void)) x -let setPreferredLayoutInfo x self = msg_send ~self ~cmd:(selector "setPreferredLayoutInfo:") ~typ:(id @-> returning (void)) x -let setShowsOrientationMarker x self = msg_send ~self ~cmd:(selector "setShowsOrientationMarker:") ~typ:(bool @-> returning (void)) x -let setShowsPresentationArea x self = msg_send ~self ~cmd:(selector "setShowsPresentationArea:") ~typ:(bool @-> returning (void)) x -let setShowsTargetRect x self = msg_send ~self ~cmd:(selector "setShowsTargetRect:") ~typ:(bool @-> returning (void)) x -let showsOrientationMarker self = msg_send ~self ~cmd:(selector "showsOrientationMarker") ~typ:(returning (bool)) -let showsPresentationArea self = msg_send ~self ~cmd:(selector "showsPresentationArea") ~typ:(returning (bool)) -let showsTargetRect self = msg_send ~self ~cmd:(selector "showsTargetRect") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIPopoverController" + +let adaptivePresentationStyleForPresentationController x self = msg_send ~self ~cmd:(selector "adaptivePresentationStyleForPresentationController:") ~typ:(id @-> returning llong) x +let adaptivePresentationStyleForPresentationController' x ~traitCollection self = msg_send ~self ~cmd:(selector "adaptivePresentationStyleForPresentationController:traitCollection:") ~typ:(id @-> id @-> returning llong) x traitCollection +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let contentViewController self = msg_send ~self ~cmd:(selector "contentViewController") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let dimmingView self = msg_send ~self ~cmd:(selector "dimmingView") ~typ:(returning id) +let dimmingViewWasTapped x self = msg_send ~self ~cmd:(selector "dimmingViewWasTapped:") ~typ:(id @-> returning void) x +let dismissPopoverAnimated x self = msg_send ~self ~cmd:(selector "dismissPopoverAnimated:") ~typ:(bool @-> returning void) x +let dismissesOnRotation self = msg_send ~self ~cmd:(selector "dismissesOnRotation") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithContentViewController x self = msg_send ~self ~cmd:(selector "initWithContentViewController:") ~typ:(id @-> returning id) x +let isPopoverVisible self = msg_send ~self ~cmd:(selector "isPopoverVisible") ~typ:(returning bool) +let isPresentingOrDismissing self = msg_send ~self ~cmd:(selector "isPresentingOrDismissing") ~typ:(returning bool) +let passthroughViews self = msg_send ~self ~cmd:(selector "passthroughViews") ~typ:(returning id) +let popoverArrowDirection self = msg_send ~self ~cmd:(selector "popoverArrowDirection") ~typ:(returning ullong) +let popoverBackgroundViewClass self = msg_send ~self ~cmd:(selector "popoverBackgroundViewClass") ~typ:(returning _Class) +let popoverContentSize self = msg_send ~self ~cmd:(selector "popoverContentSize") ~typ:(returning CGSize.t) +let popoverLayoutMargins self = msg_send ~self ~cmd:(selector "popoverLayoutMargins") ~typ:(returning UIEdgeInsets.t) +let popoverPresentationController x ~willRepositionPopoverToRect ~inView self = msg_send ~self ~cmd:(selector "popoverPresentationController:willRepositionPopoverToRect:inView:") ~typ:(id @-> (ptr CGRect.t) @-> (ptr id) @-> returning void) x willRepositionPopoverToRect inView +let popoverPresentationControllerDidDismissPopover x self = msg_send ~self ~cmd:(selector "popoverPresentationControllerDidDismissPopover:") ~typ:(id @-> returning void) x +let popoverPresentationControllerShouldDismissPopover x self = msg_send ~self ~cmd:(selector "popoverPresentationControllerShouldDismissPopover:") ~typ:(id @-> returning bool) x +let popoverView self = msg_send ~self ~cmd:(selector "popoverView") ~typ:(returning id) +let preferredLayoutInfo self = msg_send ~self ~cmd:(selector "preferredLayoutInfo") ~typ:(returning id) +let presentPopoverFromBarButtonItem x ~permittedArrowDirections ~animated self = msg_send ~self ~cmd:(selector "presentPopoverFromBarButtonItem:permittedArrowDirections:animated:") ~typ:(id @-> ullong @-> bool @-> returning void) x (ULLong.of_int permittedArrowDirections) animated +let presentPopoverFromRect x ~inView ~permittedArrowDirections ~animated self = msg_send ~self ~cmd:(selector "presentPopoverFromRect:inView:permittedArrowDirections:animated:") ~typ:(CGRect.t @-> id @-> ullong @-> bool @-> returning void) x inView (ULLong.of_int permittedArrowDirections) animated +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setContentViewController x self = msg_send ~self ~cmd:(selector "setContentViewController:") ~typ:(id @-> returning void) x +let setContentViewController' x ~animated self = msg_send ~self ~cmd:(selector "setContentViewController:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDimmingView x self = msg_send ~self ~cmd:(selector "setDimmingView:") ~typ:(id @-> returning void) x +let setDismissesOnRotation x self = msg_send ~self ~cmd:(selector "setDismissesOnRotation:") ~typ:(bool @-> returning void) x +let setPassthroughViews x self = msg_send ~self ~cmd:(selector "setPassthroughViews:") ~typ:(id @-> returning void) x +let setPopoverArrowDirection x self = msg_send ~self ~cmd:(selector "setPopoverArrowDirection:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setPopoverBackgroundViewClass x self = msg_send ~self ~cmd:(selector "setPopoverBackgroundViewClass:") ~typ:(_Class @-> returning void) x +let setPopoverContentSize x self = msg_send ~self ~cmd:(selector "setPopoverContentSize:") ~typ:(CGSize.t @-> returning void) x +let setPopoverContentSize' x ~animated self = msg_send ~self ~cmd:(selector "setPopoverContentSize:animated:") ~typ:(CGSize.t @-> bool @-> returning void) x animated +let setPopoverFrame x ~animated self = msg_send ~self ~cmd:(selector "setPopoverFrame:animated:") ~typ:(CGRect.t @-> bool @-> returning void) x animated +let setPopoverLayoutMargins x self = msg_send ~self ~cmd:(selector "setPopoverLayoutMargins:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setPreferredLayoutInfo x self = msg_send ~self ~cmd:(selector "setPreferredLayoutInfo:") ~typ:(id @-> returning void) x +let setShowsOrientationMarker x self = msg_send ~self ~cmd:(selector "setShowsOrientationMarker:") ~typ:(bool @-> returning void) x +let setShowsPresentationArea x self = msg_send ~self ~cmd:(selector "setShowsPresentationArea:") ~typ:(bool @-> returning void) x +let setShowsTargetRect x self = msg_send ~self ~cmd:(selector "setShowsTargetRect:") ~typ:(bool @-> returning void) x +let showsOrientationMarker self = msg_send ~self ~cmd:(selector "showsOrientationMarker") ~typ:(returning bool) +let showsPresentationArea self = msg_send ~self ~cmd:(selector "showsPresentationArea") ~typ:(returning bool) +let showsTargetRect self = msg_send ~self ~cmd:(selector "showsTargetRect") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIPopoverPresentationController.ml b/uikit/UIPopoverPresentationController.ml index c518e2bf..6200dd09 100644 --- a/uikit/UIPopoverPresentationController.ml +++ b/uikit/UIPopoverPresentationController.ml @@ -5,62 +5,67 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPopoverPresentationController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipopoverpresentationcontroller?language=objc}UIPopoverPresentationController} *) -let adaptiveSheetPresentationController self = msg_send ~self ~cmd:(selector "adaptiveSheetPresentationController") ~typ:(returning (id)) -let arrowBackgroundColor self = msg_send ~self ~cmd:(selector "arrowBackgroundColor") ~typ:(returning (id)) -let arrowDirection self = msg_send ~self ~cmd:(selector "arrowDirection") ~typ:(returning (ullong)) -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let canOverlapSourceViewRect self = msg_send ~self ~cmd:(selector "canOverlapSourceViewRect") ~typ:(returning (bool)) -let containerViewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "containerViewWillLayoutSubviews") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let dimmingView self = msg_send ~self ~cmd:(selector "dimmingView") ~typ:(returning (id)) -let dimmingViewWasTapped x ~withDismissCompletion self = msg_send ~self ~cmd:(selector "dimmingViewWasTapped:withDismissCompletion:") ~typ:(id @-> ptr void @-> returning (bool)) x withDismissCompletion -let dismissalTransitionDidEnd x self = msg_send ~self ~cmd:(selector "dismissalTransitionDidEnd:") ~typ:(bool @-> returning (void)) x -let dismissalTransitionWillBegin self = msg_send ~self ~cmd:(selector "dismissalTransitionWillBegin") ~typ:(returning (void)) -let dismissesOnRotation self = msg_send ~self ~cmd:(selector "dismissesOnRotation") ~typ:(returning (bool)) -let frameOfPresentedViewInContainerView self = msg_send_stret ~self ~cmd:(selector "frameOfPresentedViewInContainerView") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithPresentedViewController x ~presentingViewController self = msg_send ~self ~cmd:(selector "initWithPresentedViewController:presentingViewController:") ~typ:(id @-> id @-> returning (id)) x presentingViewController -let isPopoverVisible self = msg_send ~self ~cmd:(selector "isPopoverVisible") ~typ:(returning (bool)) -let isPresentingOrDismissing self = msg_send ~self ~cmd:(selector "isPresentingOrDismissing") ~typ:(returning (bool)) -let passthroughViews self = msg_send ~self ~cmd:(selector "passthroughViews") ~typ:(returning (id)) -let permittedArrowDirections self = msg_send ~self ~cmd:(selector "permittedArrowDirections") ~typ:(returning (ullong)) -let popoverArrowDirection self = msg_send ~self ~cmd:(selector "popoverArrowDirection") ~typ:(returning (ullong)) -let popoverBackgroundViewClass self = msg_send ~self ~cmd:(selector "popoverBackgroundViewClass") ~typ:(returning (_Class)) -let popoverContentSize self = msg_send_stret ~self ~cmd:(selector "popoverContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let popoverDimmingViewDidReceiveDismissalInteraction x self = msg_send ~self ~cmd:(selector "popoverDimmingViewDidReceiveDismissalInteraction:") ~typ:(id @-> returning (bool)) x -let popoverDimmingViewShouldAllowInteraction x self = msg_send ~self ~cmd:(selector "popoverDimmingViewShouldAllowInteraction:") ~typ:(id @-> returning (bool)) x -let popoverView self = msg_send ~self ~cmd:(selector "popoverView") ~typ:(returning (id)) -let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning (void)) x -let preferredLayoutInfo self = msg_send ~self ~cmd:(selector "preferredLayoutInfo") ~typ:(returning (id)) -let presentationStyle self = msg_send ~self ~cmd:(selector "presentationStyle") ~typ:(returning (llong)) -let presentationTransitionDidEnd x self = msg_send ~self ~cmd:(selector "presentationTransitionDidEnd:") ~typ:(bool @-> returning (void)) x -let presentationTransitionWillBegin self = msg_send ~self ~cmd:(selector "presentationTransitionWillBegin") ~typ:(returning (void)) -let presentedView self = msg_send ~self ~cmd:(selector "presentedView") ~typ:(returning (id)) -let retainedSelf self = msg_send ~self ~cmd:(selector "retainedSelf") ~typ:(returning (id)) -let setArrowBackgroundColor x self = msg_send ~self ~cmd:(selector "setArrowBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setCanOverlapSourceViewRect x self = msg_send ~self ~cmd:(selector "setCanOverlapSourceViewRect:") ~typ:(bool @-> returning (void)) x -let setDimmingView x self = msg_send ~self ~cmd:(selector "setDimmingView:") ~typ:(id @-> returning (void)) x -let setDismissesOnRotation x self = msg_send ~self ~cmd:(selector "setDismissesOnRotation:") ~typ:(bool @-> returning (void)) x -let setPassthroughViews x self = msg_send ~self ~cmd:(selector "setPassthroughViews:") ~typ:(id @-> returning (void)) x -let setPermittedArrowDirections x self = msg_send ~self ~cmd:(selector "setPermittedArrowDirections:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setPopoverArrowDirection x self = msg_send ~self ~cmd:(selector "setPopoverArrowDirection:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setPopoverBackgroundViewClass x self = msg_send ~self ~cmd:(selector "setPopoverBackgroundViewClass:") ~typ:(_Class @-> returning (void)) x -let setPopoverContentSize x self = msg_send ~self ~cmd:(selector "setPopoverContentSize:") ~typ:(CGSize.t @-> returning (void)) x -let setPopoverContentSize' x ~animated self = msg_send ~self ~cmd:(selector "setPopoverContentSize:animated:") ~typ:(CGSize.t @-> bool @-> returning (void)) x animated -let setPopoverFrame x ~animated self = msg_send ~self ~cmd:(selector "setPopoverFrame:animated:") ~typ:(CGRect.t @-> bool @-> returning (void)) x animated -let setPopoverLayoutMargins x self = msg_send ~self ~cmd:(selector "setPopoverLayoutMargins:") ~typ:(ptr void @-> returning (void)) x -let setPreferredLayoutInfo x self = msg_send ~self ~cmd:(selector "setPreferredLayoutInfo:") ~typ:(id @-> returning (void)) x -let setRetainedSelf x self = msg_send ~self ~cmd:(selector "setRetainedSelf:") ~typ:(id @-> returning (void)) x -let setShowsOrientationMarker x self = msg_send ~self ~cmd:(selector "setShowsOrientationMarker:") ~typ:(bool @-> returning (void)) x -let setShowsPresentationArea x self = msg_send ~self ~cmd:(selector "setShowsPresentationArea:") ~typ:(bool @-> returning (void)) x -let setShowsTargetRect x self = msg_send ~self ~cmd:(selector "setShowsTargetRect:") ~typ:(bool @-> returning (void)) x -let shouldPresentInFullscreen self = msg_send ~self ~cmd:(selector "shouldPresentInFullscreen") ~typ:(returning (bool)) -let showsOrientationMarker self = msg_send ~self ~cmd:(selector "showsOrientationMarker") ~typ:(returning (bool)) -let showsPresentationArea self = msg_send ~self ~cmd:(selector "showsPresentationArea") ~typ:(returning (bool)) -let showsTargetRect self = msg_send ~self ~cmd:(selector "showsTargetRect") ~typ:(returning (bool)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning (void)) x withTransitionCoordinator \ No newline at end of file +let self = get_class "UIPopoverPresentationController" + +let adaptiveSheetPresentationController self = msg_send ~self ~cmd:(selector "adaptiveSheetPresentationController") ~typ:(returning id) +let arrowBackgroundColor self = msg_send ~self ~cmd:(selector "arrowBackgroundColor") ~typ:(returning id) +let arrowDirection self = msg_send ~self ~cmd:(selector "arrowDirection") ~typ:(returning ullong) +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let canOverlapSourceViewRect self = msg_send ~self ~cmd:(selector "canOverlapSourceViewRect") ~typ:(returning bool) +let containerViewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "containerViewWillLayoutSubviews") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let dimmingView self = msg_send ~self ~cmd:(selector "dimmingView") ~typ:(returning id) +let dimmingViewWasTapped x ~withDismissCompletion self = msg_send ~self ~cmd:(selector "dimmingViewWasTapped:withDismissCompletion:") ~typ:(id @-> (ptr void) @-> returning bool) x withDismissCompletion +let dismissalTransitionDidEnd x self = msg_send ~self ~cmd:(selector "dismissalTransitionDidEnd:") ~typ:(bool @-> returning void) x +let dismissalTransitionWillBegin self = msg_send ~self ~cmd:(selector "dismissalTransitionWillBegin") ~typ:(returning void) +let dismissesOnRotation self = msg_send ~self ~cmd:(selector "dismissesOnRotation") ~typ:(returning bool) +let frameOfPresentedViewInContainerView self = msg_send ~self ~cmd:(selector "frameOfPresentedViewInContainerView") ~typ:(returning CGRect.t) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithPresentedViewController x ~presentingViewController self = msg_send ~self ~cmd:(selector "initWithPresentedViewController:presentingViewController:") ~typ:(id @-> id @-> returning id) x presentingViewController +let isPopoverVisible self = msg_send ~self ~cmd:(selector "isPopoverVisible") ~typ:(returning bool) +let isPresentingOrDismissing self = msg_send ~self ~cmd:(selector "isPresentingOrDismissing") ~typ:(returning bool) +let passthroughViews self = msg_send ~self ~cmd:(selector "passthroughViews") ~typ:(returning id) +let permittedArrowDirections self = msg_send ~self ~cmd:(selector "permittedArrowDirections") ~typ:(returning ullong) +let popoverArrowDirection self = msg_send ~self ~cmd:(selector "popoverArrowDirection") ~typ:(returning ullong) +let popoverBackgroundViewClass self = msg_send ~self ~cmd:(selector "popoverBackgroundViewClass") ~typ:(returning _Class) +let popoverContentSize self = msg_send ~self ~cmd:(selector "popoverContentSize") ~typ:(returning CGSize.t) +let popoverDimmingViewDidReceiveDismissalInteraction x self = msg_send ~self ~cmd:(selector "popoverDimmingViewDidReceiveDismissalInteraction:") ~typ:(id @-> returning bool) x +let popoverDimmingViewShouldAllowInteraction x self = msg_send ~self ~cmd:(selector "popoverDimmingViewShouldAllowInteraction:") ~typ:(id @-> returning bool) x +let popoverLayoutMargins self = msg_send ~self ~cmd:(selector "popoverLayoutMargins") ~typ:(returning UIEdgeInsets.t) +let popoverView self = msg_send ~self ~cmd:(selector "popoverView") ~typ:(returning id) +let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning void) x +let preferredLayoutInfo self = msg_send ~self ~cmd:(selector "preferredLayoutInfo") ~typ:(returning id) +let presentationStyle self = msg_send ~self ~cmd:(selector "presentationStyle") ~typ:(returning llong) +let presentationTransitionDidEnd x self = msg_send ~self ~cmd:(selector "presentationTransitionDidEnd:") ~typ:(bool @-> returning void) x +let presentationTransitionWillBegin self = msg_send ~self ~cmd:(selector "presentationTransitionWillBegin") ~typ:(returning void) +let presentedView self = msg_send ~self ~cmd:(selector "presentedView") ~typ:(returning id) +let retainedSelf self = msg_send ~self ~cmd:(selector "retainedSelf") ~typ:(returning id) +let setArrowBackgroundColor x self = msg_send ~self ~cmd:(selector "setArrowBackgroundColor:") ~typ:(id @-> returning void) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setCanOverlapSourceViewRect x self = msg_send ~self ~cmd:(selector "setCanOverlapSourceViewRect:") ~typ:(bool @-> returning void) x +let setDimmingView x self = msg_send ~self ~cmd:(selector "setDimmingView:") ~typ:(id @-> returning void) x +let setDismissesOnRotation x self = msg_send ~self ~cmd:(selector "setDismissesOnRotation:") ~typ:(bool @-> returning void) x +let setPassthroughViews x self = msg_send ~self ~cmd:(selector "setPassthroughViews:") ~typ:(id @-> returning void) x +let setPermittedArrowDirections x self = msg_send ~self ~cmd:(selector "setPermittedArrowDirections:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setPopoverArrowDirection x self = msg_send ~self ~cmd:(selector "setPopoverArrowDirection:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setPopoverBackgroundViewClass x self = msg_send ~self ~cmd:(selector "setPopoverBackgroundViewClass:") ~typ:(_Class @-> returning void) x +let setPopoverContentSize x self = msg_send ~self ~cmd:(selector "setPopoverContentSize:") ~typ:(CGSize.t @-> returning void) x +let setPopoverContentSize' x ~animated self = msg_send ~self ~cmd:(selector "setPopoverContentSize:animated:") ~typ:(CGSize.t @-> bool @-> returning void) x animated +let setPopoverFrame x ~animated self = msg_send ~self ~cmd:(selector "setPopoverFrame:animated:") ~typ:(CGRect.t @-> bool @-> returning void) x animated +let setPopoverLayoutMargins x self = msg_send ~self ~cmd:(selector "setPopoverLayoutMargins:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setPreferredLayoutInfo x self = msg_send ~self ~cmd:(selector "setPreferredLayoutInfo:") ~typ:(id @-> returning void) x +let setRetainedSelf x self = msg_send ~self ~cmd:(selector "setRetainedSelf:") ~typ:(id @-> returning void) x +let setShowsOrientationMarker x self = msg_send ~self ~cmd:(selector "setShowsOrientationMarker:") ~typ:(bool @-> returning void) x +let setShowsPresentationArea x self = msg_send ~self ~cmd:(selector "setShowsPresentationArea:") ~typ:(bool @-> returning void) x +let setShowsTargetRect x self = msg_send ~self ~cmd:(selector "setShowsTargetRect:") ~typ:(bool @-> returning void) x +let shouldPresentInFullscreen self = msg_send ~self ~cmd:(selector "shouldPresentInFullscreen") ~typ:(returning bool) +let showsOrientationMarker self = msg_send ~self ~cmd:(selector "showsOrientationMarker") ~typ:(returning bool) +let showsPresentationArea self = msg_send ~self ~cmd:(selector "showsPresentationArea") ~typ:(returning bool) +let showsTargetRect self = msg_send ~self ~cmd:(selector "showsTargetRect") ~typ:(returning bool) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning void) x withTransitionCoordinator \ No newline at end of file diff --git a/uikit/UIPredictionViewController.ml b/uikit/UIPredictionViewController.ml index 9ca8dd3a..b23c4203 100644 --- a/uikit/UIPredictionViewController.ml +++ b/uikit/UIPredictionViewController.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPredictionViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipredictionviewcontroller?language=objc}UIPredictionViewController} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let hidesExpandableButton self = msg_send ~self ~cmd:(selector "hidesExpandableButton") ~typ:(returning (bool)) -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let isVisibleForInputDelegate x ~inputViews self = msg_send ~self ~cmd:(selector "isVisibleForInputDelegate:inputViews:") ~typ:(id @-> id @-> returning (bool)) x inputViews -let predictionView self = msg_send ~self ~cmd:(selector "predictionView") ~typ:(returning (id)) -let preferredHeightForTraitCollection x self = msg_send ~self ~cmd:(selector "preferredHeightForTraitCollection:") ~typ:(id @-> returning (double)) x \ No newline at end of file +let self = get_class "UIPredictionViewController" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let hidesExpandableButton self = msg_send ~self ~cmd:(selector "hidesExpandableButton") ~typ:(returning bool) +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let isVisibleForInputDelegate x ~inputViews self = msg_send ~self ~cmd:(selector "isVisibleForInputDelegate:inputViews:") ~typ:(id @-> id @-> returning bool) x inputViews +let predictionView self = msg_send ~self ~cmd:(selector "predictionView") ~typ:(returning id) +let preferredHeightForTraitCollection x self = msg_send ~self ~cmd:(selector "preferredHeightForTraitCollection:") ~typ:(id @-> returning double) x \ No newline at end of file diff --git a/uikit/UIPresentationController.ml b/uikit/UIPresentationController.ml index 5b9d0af9..3f131dce 100644 --- a/uikit/UIPresentationController.ml +++ b/uikit/UIPresentationController.ml @@ -5,68 +5,68 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPresentationController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipresentationcontroller?language=objc}UIPresentationController} *) -module C = struct - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) -end +let self = get_class "UIPresentationController" -let adaptivePresentationStyle self = msg_send ~self ~cmd:(selector "adaptivePresentationStyle") ~typ:(returning (llong)) -let adaptivePresentationStyleForTraitCollection x self = msg_send ~self ~cmd:(selector "adaptivePresentationStyleForTraitCollection:") ~typ:(id @-> returning (llong)) x -let barButtonItem self = msg_send ~self ~cmd:(selector "barButtonItem") ~typ:(returning (id)) -let completeCurrentTransitionImmediately self = msg_send ~self ~cmd:(selector "completeCurrentTransitionImmediately") ~typ:(returning (void)) -let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning (id)) -let containerViewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "containerViewDidLayoutSubviews") ~typ:(returning (void)) -let containerViewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "containerViewWillLayoutSubviews") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let dismissalTransitionDidEnd x self = msg_send ~self ~cmd:(selector "dismissalTransitionDidEnd:") ~typ:(bool @-> returning (void)) x -let dismissalTransitionWillBegin self = msg_send ~self ~cmd:(selector "dismissalTransitionWillBegin") ~typ:(returning (void)) -let dismissed self = msg_send ~self ~cmd:(selector "dismissed") ~typ:(returning (bool)) -let dismissing self = msg_send ~self ~cmd:(selector "dismissing") ~typ:(returning (bool)) -let focusItemContainer self = msg_send ~self ~cmd:(selector "focusItemContainer") ~typ:(returning (id)) -let frameOfPresentedViewInContainerView self = msg_send_stret ~self ~cmd:(selector "frameOfPresentedViewInContainerView") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithPresentedViewController x ~presentingViewController self = msg_send ~self ~cmd:(selector "initWithPresentedViewController:presentingViewController:") ~typ:(id @-> id @-> returning (id)) x presentingViewController -let isCurrentStateCancelled self = msg_send ~self ~cmd:(selector "isCurrentStateCancelled") ~typ:(returning (bool)) -let overrideTraitCollection self = msg_send ~self ~cmd:(selector "overrideTraitCollection") ~typ:(returning (id)) -let parentFocusEnvironment self = msg_send ~self ~cmd:(selector "parentFocusEnvironment") ~typ:(returning (id)) -let preferredContentSize self = msg_send_stret ~self ~cmd:(selector "preferredContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning (void)) x -let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning (id)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let presentationStyle self = msg_send ~self ~cmd:(selector "presentationStyle") ~typ:(returning (llong)) -let presentationTransitionDidEnd x self = msg_send ~self ~cmd:(selector "presentationTransitionDidEnd:") ~typ:(bool @-> returning (void)) x -let presentationTransitionWillBegin self = msg_send ~self ~cmd:(selector "presentationTransitionWillBegin") ~typ:(returning (void)) -let presented self = msg_send ~self ~cmd:(selector "presented") ~typ:(returning (bool)) -let presentedContentContainer self = msg_send ~self ~cmd:(selector "presentedContentContainer") ~typ:(returning (id)) -let presentedView self = msg_send ~self ~cmd:(selector "presentedView") ~typ:(returning (id)) -let presentedViewController self = msg_send ~self ~cmd:(selector "presentedViewController") ~typ:(returning (id)) -let presenting self = msg_send ~self ~cmd:(selector "presenting") ~typ:(returning (bool)) -let presentingViewController self = msg_send ~self ~cmd:(selector "presentingViewController") ~typ:(returning (id)) -let runTransitionForCurrentState self = msg_send ~self ~cmd:(selector "runTransitionForCurrentState") ~typ:(returning (void)) -let setBarButtonItem x self = msg_send ~self ~cmd:(selector "setBarButtonItem:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setIsCurrentStateCancelled x self = msg_send ~self ~cmd:(selector "setIsCurrentStateCancelled:") ~typ:(bool @-> returning (void)) x -let setNeedsFocusUpdate self = msg_send ~self ~cmd:(selector "setNeedsFocusUpdate") ~typ:(returning (void)) -let setOverrideTraitCollection x self = msg_send ~self ~cmd:(selector "setOverrideTraitCollection:") ~typ:(id @-> returning (void)) x -let setSourceRect x self = msg_send ~self ~cmd:(selector "setSourceRect:") ~typ:(CGRect.t @-> returning (void)) x -let setSourceView x self = msg_send ~self ~cmd:(selector "setSourceView:") ~typ:(id @-> returning (void)) x -let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let shouldPresentInFullscreen self = msg_send ~self ~cmd:(selector "shouldPresentInFullscreen") ~typ:(returning (bool)) -let shouldRemovePresentersView self = msg_send ~self ~cmd:(selector "shouldRemovePresentersView") ~typ:(returning (bool)) -let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning (bool)) x -let sizeForChildContentContainer x ~withParentContainerSize self = msg_send_stret ~self ~cmd:(selector "sizeForChildContentContainer:withParentContainerSize:") ~typ:(id @-> CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x withParentContainerSize -let sourceRect self = msg_send_stret ~self ~cmd:(selector "sourceRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let sourceView self = msg_send ~self ~cmd:(selector "sourceView") ~typ:(returning (id)) -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (llong)) -let systemLayoutFittingSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "systemLayoutFittingSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning (void)) x -let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let transitionDidFinish x self = msg_send ~self ~cmd:(selector "transitionDidFinish:") ~typ:(bool @-> returning (void)) x -let transitionDidStart self = msg_send ~self ~cmd:(selector "transitionDidStart") ~typ:(returning (void)) -let updateFocusIfNeeded self = msg_send ~self ~cmd:(selector "updateFocusIfNeeded") ~typ:(returning (void)) -let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning (void)) x withTransitionCoordinator -let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning (void)) x withTransitionCoordinator \ No newline at end of file +let adaptivePresentationStyle self = msg_send ~self ~cmd:(selector "adaptivePresentationStyle") ~typ:(returning llong) +let adaptivePresentationStyleForTraitCollection x self = msg_send ~self ~cmd:(selector "adaptivePresentationStyleForTraitCollection:") ~typ:(id @-> returning llong) x +let barButtonItem self = msg_send ~self ~cmd:(selector "barButtonItem") ~typ:(returning id) +let completeCurrentTransitionImmediately self = msg_send ~self ~cmd:(selector "completeCurrentTransitionImmediately") ~typ:(returning void) +let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning id) +let containerViewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "containerViewDidLayoutSubviews") ~typ:(returning void) +let containerViewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "containerViewWillLayoutSubviews") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let dismissalTransitionDidEnd x self = msg_send ~self ~cmd:(selector "dismissalTransitionDidEnd:") ~typ:(bool @-> returning void) x +let dismissalTransitionWillBegin self = msg_send ~self ~cmd:(selector "dismissalTransitionWillBegin") ~typ:(returning void) +let dismissed self = msg_send ~self ~cmd:(selector "dismissed") ~typ:(returning bool) +let dismissing self = msg_send ~self ~cmd:(selector "dismissing") ~typ:(returning bool) +let focusItemContainer self = msg_send ~self ~cmd:(selector "focusItemContainer") ~typ:(returning id) +let frameOfPresentedViewInContainerView self = msg_send ~self ~cmd:(selector "frameOfPresentedViewInContainerView") ~typ:(returning CGRect.t) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithPresentedViewController x ~presentingViewController self = msg_send ~self ~cmd:(selector "initWithPresentedViewController:presentingViewController:") ~typ:(id @-> id @-> returning id) x presentingViewController +let isCurrentStateCancelled self = msg_send ~self ~cmd:(selector "isCurrentStateCancelled") ~typ:(returning bool) +let overrideTraitCollection self = msg_send ~self ~cmd:(selector "overrideTraitCollection") ~typ:(returning id) +let parentFocusEnvironment self = msg_send ~self ~cmd:(selector "parentFocusEnvironment") ~typ:(returning id) +let preferredContentSize self = msg_send ~self ~cmd:(selector "preferredContentSize") ~typ:(returning CGSize.t) +let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning void) x +let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning id) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let presentationStyle self = msg_send ~self ~cmd:(selector "presentationStyle") ~typ:(returning llong) +let presentationTransitionDidEnd x self = msg_send ~self ~cmd:(selector "presentationTransitionDidEnd:") ~typ:(bool @-> returning void) x +let presentationTransitionWillBegin self = msg_send ~self ~cmd:(selector "presentationTransitionWillBegin") ~typ:(returning void) +let presented self = msg_send ~self ~cmd:(selector "presented") ~typ:(returning bool) +let presentedContentContainer self = msg_send ~self ~cmd:(selector "presentedContentContainer") ~typ:(returning id) +let presentedView self = msg_send ~self ~cmd:(selector "presentedView") ~typ:(returning id) +let presentedViewController self = msg_send ~self ~cmd:(selector "presentedViewController") ~typ:(returning id) +let presenting self = msg_send ~self ~cmd:(selector "presenting") ~typ:(returning bool) +let presentingViewController self = msg_send ~self ~cmd:(selector "presentingViewController") ~typ:(returning id) +let runTransitionForCurrentState self = msg_send ~self ~cmd:(selector "runTransitionForCurrentState") ~typ:(returning void) +let setBarButtonItem x self = msg_send ~self ~cmd:(selector "setBarButtonItem:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setIsCurrentStateCancelled x self = msg_send ~self ~cmd:(selector "setIsCurrentStateCancelled:") ~typ:(bool @-> returning void) x +let setNeedsFocusUpdate self = msg_send ~self ~cmd:(selector "setNeedsFocusUpdate") ~typ:(returning void) +let setOverrideTraitCollection x self = msg_send ~self ~cmd:(selector "setOverrideTraitCollection:") ~typ:(id @-> returning void) x +let setSourceRect x self = msg_send ~self ~cmd:(selector "setSourceRect:") ~typ:(CGRect.t @-> returning void) x +let setSourceView x self = msg_send ~self ~cmd:(selector "setSourceView:") ~typ:(id @-> returning void) x +let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let shouldPresentInFullscreen self = msg_send ~self ~cmd:(selector "shouldPresentInFullscreen") ~typ:(returning bool) +let shouldRemovePresentersView self = msg_send ~self ~cmd:(selector "shouldRemovePresentersView") ~typ:(returning bool) +let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning bool) x +let sizeForChildContentContainer x ~withParentContainerSize self = msg_send ~self ~cmd:(selector "sizeForChildContentContainer:withParentContainerSize:") ~typ:(id @-> CGSize.t @-> returning CGSize.t) x withParentContainerSize +let sourceRect self = msg_send ~self ~cmd:(selector "sourceRect") ~typ:(returning CGRect.t) +let sourceView self = msg_send ~self ~cmd:(selector "sourceView") ~typ:(returning id) +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning llong) +let systemLayoutFittingSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "systemLayoutFittingSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning void) x +let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let transitionDidFinish x self = msg_send ~self ~cmd:(selector "transitionDidFinish:") ~typ:(bool @-> returning void) x +let transitionDidStart self = msg_send ~self ~cmd:(selector "transitionDidStart") ~typ:(returning void) +let updateFocusIfNeeded self = msg_send ~self ~cmd:(selector "updateFocusIfNeeded") ~typ:(returning void) +let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning void) x withTransitionCoordinator +let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning void) x withTransitionCoordinator \ No newline at end of file diff --git a/uikit/UIPresentationControllerClass.ml b/uikit/UIPresentationControllerClass.ml new file mode 100644 index 00000000..eac6e57a --- /dev/null +++ b/uikit/UIPresentationControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipresentationcontroller?language=objc}UIPresentationController} *) + +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIPress.ml b/uikit/UIPress.ml index 7e2e6613..6d26a34f 100644 --- a/uikit/UIPress.ml +++ b/uikit/UIPress.ml @@ -5,34 +5,38 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPress" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipress?language=objc}UIPress} *) -let clickCount self = msg_send ~self ~cmd:(selector "clickCount") ~typ:(returning (ullong)) -let contextID self = msg_send ~self ~cmd:(selector "contextID") ~typ:(returning (uint)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let force self = msg_send ~self ~cmd:(selector "force") ~typ:(returning (double)) -let gestureRecognizers self = msg_send ~self ~cmd:(selector "gestureRecognizers") ~typ:(returning (id)) -let isDelayed self = msg_send ~self ~cmd:(selector "isDelayed") ~typ:(returning (bool)) -let isLongClick self = msg_send ~self ~cmd:(selector "isLongClick") ~typ:(returning (bool)) -let key self = msg_send ~self ~cmd:(selector "key") ~typ:(returning (id)) -let modifierFlags self = msg_send ~self ~cmd:(selector "modifierFlags") ~typ:(returning (llong)) -let phase self = msg_send ~self ~cmd:(selector "phase") ~typ:(returning (llong)) -let responder self = msg_send ~self ~cmd:(selector "responder") ~typ:(returning (id)) -let sentPressesEnded self = msg_send ~self ~cmd:(selector "sentPressesEnded") ~typ:(returning (bool)) -let setClickCount x self = msg_send ~self ~cmd:(selector "setClickCount:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setForce x self = msg_send ~self ~cmd:(selector "setForce:") ~typ:(double @-> returning (void)) x -let setGestureRecognizers x self = msg_send ~self ~cmd:(selector "setGestureRecognizers:") ~typ:(id @-> returning (void)) x -let setIsDelayed x self = msg_send ~self ~cmd:(selector "setIsDelayed:") ~typ:(bool @-> returning (void)) x -let setKey x self = msg_send ~self ~cmd:(selector "setKey:") ~typ:(id @-> returning (void)) x -let setLongClick x self = msg_send ~self ~cmd:(selector "setLongClick:") ~typ:(bool @-> returning (void)) x -let setModifierFlags x self = msg_send ~self ~cmd:(selector "setModifierFlags:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPhase x self = msg_send ~self ~cmd:(selector "setPhase:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setResponder x self = msg_send ~self ~cmd:(selector "setResponder:") ~typ:(id @-> returning (void)) x -let setSentPressesEnded x self = msg_send ~self ~cmd:(selector "setSentPressesEnded:") ~typ:(bool @-> returning (void)) x -let setTimestamp x self = msg_send ~self ~cmd:(selector "setTimestamp:") ~typ:(double @-> returning (void)) x -let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setWindow x self = msg_send ~self ~cmd:(selector "setWindow:") ~typ:(id @-> returning (void)) x -let timestamp self = msg_send ~self ~cmd:(selector "timestamp") ~typ:(returning (double)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) -let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIPress" + +let clickCount self = msg_send ~self ~cmd:(selector "clickCount") ~typ:(returning ullong) +let contextID self = msg_send ~self ~cmd:(selector "contextID") ~typ:(returning uint) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let force self = msg_send ~self ~cmd:(selector "force") ~typ:(returning double) +let gestureRecognizers self = msg_send ~self ~cmd:(selector "gestureRecognizers") ~typ:(returning id) +let isDelayed self = msg_send ~self ~cmd:(selector "isDelayed") ~typ:(returning bool) +let isLongClick self = msg_send ~self ~cmd:(selector "isLongClick") ~typ:(returning bool) +let key self = msg_send ~self ~cmd:(selector "key") ~typ:(returning id) +let modifierFlags self = msg_send ~self ~cmd:(selector "modifierFlags") ~typ:(returning llong) +let phase self = msg_send ~self ~cmd:(selector "phase") ~typ:(returning llong) +let responder self = msg_send ~self ~cmd:(selector "responder") ~typ:(returning id) +let sentPressesEnded self = msg_send ~self ~cmd:(selector "sentPressesEnded") ~typ:(returning bool) +let setClickCount x self = msg_send ~self ~cmd:(selector "setClickCount:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setForce x self = msg_send ~self ~cmd:(selector "setForce:") ~typ:(double @-> returning void) x +let setGestureRecognizers x self = msg_send ~self ~cmd:(selector "setGestureRecognizers:") ~typ:(id @-> returning void) x +let setIsDelayed x self = msg_send ~self ~cmd:(selector "setIsDelayed:") ~typ:(bool @-> returning void) x +let setKey x self = msg_send ~self ~cmd:(selector "setKey:") ~typ:(id @-> returning void) x +let setLongClick x self = msg_send ~self ~cmd:(selector "setLongClick:") ~typ:(bool @-> returning void) x +let setModifierFlags x self = msg_send ~self ~cmd:(selector "setModifierFlags:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPhase x self = msg_send ~self ~cmd:(selector "setPhase:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setResponder x self = msg_send ~self ~cmd:(selector "setResponder:") ~typ:(id @-> returning void) x +let setSentPressesEnded x self = msg_send ~self ~cmd:(selector "setSentPressesEnded:") ~typ:(bool @-> returning void) x +let setTimestamp x self = msg_send ~self ~cmd:(selector "setTimestamp:") ~typ:(double @-> returning void) x +let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setWindow x self = msg_send ~self ~cmd:(selector "setWindow:") ~typ:(id @-> returning void) x +let timestamp self = msg_send ~self ~cmd:(selector "timestamp") ~typ:(returning double) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) +let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPressInfo.ml b/uikit/UIPressInfo.ml index 31d6fa0a..4af50539 100644 --- a/uikit/UIPressInfo.ml +++ b/uikit/UIPressInfo.ml @@ -5,30 +5,34 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPressInfo" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipressinfo?language=objc}UIPressInfo} *) -let clickCount self = msg_send ~self ~cmd:(selector "clickCount") ~typ:(returning (ullong)) -let contextID self = msg_send ~self ~cmd:(selector "contextID") ~typ:(returning (uint)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let force self = msg_send ~self ~cmd:(selector "force") ~typ:(returning (double)) -let gameControllerComponent self = msg_send ~self ~cmd:(selector "gameControllerComponent") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isLongClick self = msg_send ~self ~cmd:(selector "isLongClick") ~typ:(returning (bool)) -let key self = msg_send ~self ~cmd:(selector "key") ~typ:(returning (id)) -let modifierFlags self = msg_send ~self ~cmd:(selector "modifierFlags") ~typ:(returning (llong)) -let phase self = msg_send ~self ~cmd:(selector "phase") ~typ:(returning (llong)) -let setClickCount x self = msg_send ~self ~cmd:(selector "setClickCount:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setContextID x self = msg_send ~self ~cmd:(selector "setContextID:") ~typ:(uint @-> returning (void)) x -let setForce x self = msg_send ~self ~cmd:(selector "setForce:") ~typ:(double @-> returning (void)) x -let setGameControllerComponent x self = msg_send ~self ~cmd:(selector "setGameControllerComponent:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setKey x self = msg_send ~self ~cmd:(selector "setKey:") ~typ:(id @-> returning (void)) x -let setLongClick x self = msg_send ~self ~cmd:(selector "setLongClick:") ~typ:(bool @-> returning (void)) x -let setModifierFlags x self = msg_send ~self ~cmd:(selector "setModifierFlags:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPhase x self = msg_send ~self ~cmd:(selector "setPhase:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSource x self = msg_send ~self ~cmd:(selector "setSource:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setTimestamp x self = msg_send ~self ~cmd:(selector "setTimestamp:") ~typ:(double @-> returning (void)) x -let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let source self = msg_send ~self ~cmd:(selector "source") ~typ:(returning (ullong)) -let timestamp self = msg_send ~self ~cmd:(selector "timestamp") ~typ:(returning (double)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIPressInfo" + +let clickCount self = msg_send ~self ~cmd:(selector "clickCount") ~typ:(returning ullong) +let contextID self = msg_send ~self ~cmd:(selector "contextID") ~typ:(returning uint) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let force self = msg_send ~self ~cmd:(selector "force") ~typ:(returning double) +let gameControllerComponent self = msg_send ~self ~cmd:(selector "gameControllerComponent") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isLongClick self = msg_send ~self ~cmd:(selector "isLongClick") ~typ:(returning bool) +let key self = msg_send ~self ~cmd:(selector "key") ~typ:(returning id) +let modifierFlags self = msg_send ~self ~cmd:(selector "modifierFlags") ~typ:(returning llong) +let phase self = msg_send ~self ~cmd:(selector "phase") ~typ:(returning llong) +let setClickCount x self = msg_send ~self ~cmd:(selector "setClickCount:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setContextID x self = msg_send ~self ~cmd:(selector "setContextID:") ~typ:(uint @-> returning void) x +let setForce x self = msg_send ~self ~cmd:(selector "setForce:") ~typ:(double @-> returning void) x +let setGameControllerComponent x self = msg_send ~self ~cmd:(selector "setGameControllerComponent:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setKey x self = msg_send ~self ~cmd:(selector "setKey:") ~typ:(id @-> returning void) x +let setLongClick x self = msg_send ~self ~cmd:(selector "setLongClick:") ~typ:(bool @-> returning void) x +let setModifierFlags x self = msg_send ~self ~cmd:(selector "setModifierFlags:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPhase x self = msg_send ~self ~cmd:(selector "setPhase:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSource x self = msg_send ~self ~cmd:(selector "setSource:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setTimestamp x self = msg_send ~self ~cmd:(selector "setTimestamp:") ~typ:(double @-> returning void) x +let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let source self = msg_send ~self ~cmd:(selector "source") ~typ:(returning ullong) +let timestamp self = msg_send ~self ~cmd:(selector "timestamp") ~typ:(returning double) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIPressesEvent.ml b/uikit/UIPressesEvent.ml index 16bc5c15..707176b8 100644 --- a/uikit/UIPressesEvent.ml +++ b/uikit/UIPressesEvent.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPressesEvent" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipressesevent?language=objc}UIPressesEvent} *) -let allPresses self = msg_send ~self ~cmd:(selector "allPresses") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let physicalButtonsForWindow x self = msg_send ~self ~cmd:(selector "physicalButtonsForWindow:") ~typ:(id @-> returning (id)) x -let pressesForGestureRecognizer x self = msg_send ~self ~cmd:(selector "pressesForGestureRecognizer:") ~typ:(id @-> returning (id)) x -let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning (llong)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIPressesEvent" + +let allPresses self = msg_send ~self ~cmd:(selector "allPresses") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let physicalButtonsForWindow x self = msg_send ~self ~cmd:(selector "physicalButtonsForWindow:") ~typ:(id @-> returning id) x +let pressesForGestureRecognizer x self = msg_send ~self ~cmd:(selector "pressesForGestureRecognizer:") ~typ:(id @-> returning id) x +let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning llong) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIPreviewAction.ml b/uikit/UIPreviewAction.ml index 34158838..74328e6b 100644 --- a/uikit/UIPreviewAction.ml +++ b/uikit/UIPreviewAction.ml @@ -5,21 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPreviewAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipreviewaction?language=objc}UIPreviewAction} *) -module C = struct - let actionWithTitle x ~style ~handler self = msg_send ~self ~cmd:(selector "actionWithTitle:style:handler:") ~typ:(id @-> llong @-> ptr void @-> returning (id)) x (LLong.of_int style) handler -end +let self = get_class "UIPreviewAction" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let handler self = msg_send ~self ~cmd:(selector "handler") ~typ:(returning (ptr void)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:(ptr void @-> returning (void)) x -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:((ptr void) @-> returning void) x +let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPreviewActionClass.ml b/uikit/UIPreviewActionClass.ml new file mode 100644 index 00000000..e7b9557f --- /dev/null +++ b/uikit/UIPreviewActionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipreviewaction?language=objc}UIPreviewAction} *) + +let actionWithTitle x ~style ~handler self = msg_send ~self ~cmd:(selector "actionWithTitle:style:handler:") ~typ:(id @-> llong @-> (ptr void) @-> returning id) x (LLong.of_int style) handler \ No newline at end of file diff --git a/uikit/UIPreviewActionGroup.ml b/uikit/UIPreviewActionGroup.ml index 6ba12f3a..b2e0a4ed 100644 --- a/uikit/UIPreviewActionGroup.ml +++ b/uikit/UIPreviewActionGroup.ml @@ -5,19 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPreviewActionGroup" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipreviewactiongroup?language=objc}UIPreviewActionGroup} *) -module C = struct - let actionGroupWithTitle x ~style ~actions self = msg_send ~self ~cmd:(selector "actionGroupWithTitle:style:actions:") ~typ:(id @-> llong @-> id @-> returning (id)) x (LLong.of_int style) actions -end +let self = get_class "UIPreviewActionGroup" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPreviewActionGroupClass.ml b/uikit/UIPreviewActionGroupClass.ml new file mode 100644 index 00000000..7ceeb5e0 --- /dev/null +++ b/uikit/UIPreviewActionGroupClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipreviewactiongroup?language=objc}UIPreviewActionGroup} *) + +let actionGroupWithTitle x ~style ~actions self = msg_send ~self ~cmd:(selector "actionGroupWithTitle:style:actions:") ~typ:(id @-> llong @-> id @-> returning id) x (LLong.of_int style) actions \ No newline at end of file diff --git a/uikit/UIPreviewForceInteractionProgress.ml b/uikit/UIPreviewForceInteractionProgress.ml index a9540505..a32f0773 100644 --- a/uikit/UIPreviewForceInteractionProgress.ml +++ b/uikit/UIPreviewForceInteractionProgress.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPreviewForceInteractionProgress" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipreviewforceinteractionprogress?language=objc}UIPreviewForceInteractionProgress} *) -let completesAtTargetState self = msg_send ~self ~cmd:(selector "completesAtTargetState") ~typ:(returning (bool)) -let didEnd self = msg_send ~self ~cmd:(selector "didEnd") ~typ:(returning (bool)) -let enteredMinimumState self = msg_send ~self ~cmd:(selector "enteredMinimumState") ~typ:(returning (bool)) -let initWithGestureRecognizer x self = msg_send ~self ~cmd:(selector "initWithGestureRecognizer:") ~typ:(id @-> returning (id)) x -let initWithGestureRecognizer' x ~minimumRequiredState self = msg_send ~self ~cmd:(selector "initWithGestureRecognizer:minimumRequiredState:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int minimumRequiredState) -let initWithView x ~targetState self = msg_send ~self ~cmd:(selector "initWithView:targetState:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int targetState) -let initWithView' x ~targetState ~minimumRequiredState self = msg_send ~self ~cmd:(selector "initWithView:targetState:minimumRequiredState:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int targetState) (LLong.of_int minimumRequiredState) -let setCompletesAtTargetState x self = msg_send ~self ~cmd:(selector "setCompletesAtTargetState:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIPreviewForceInteractionProgress" + +let completesAtTargetState self = msg_send ~self ~cmd:(selector "completesAtTargetState") ~typ:(returning bool) +let didEnd self = msg_send ~self ~cmd:(selector "didEnd") ~typ:(returning bool) +let enteredMinimumState self = msg_send ~self ~cmd:(selector "enteredMinimumState") ~typ:(returning bool) +let initWithGestureRecognizer x self = msg_send ~self ~cmd:(selector "initWithGestureRecognizer:") ~typ:(id @-> returning id) x +let initWithGestureRecognizer' x ~minimumRequiredState self = msg_send ~self ~cmd:(selector "initWithGestureRecognizer:minimumRequiredState:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int minimumRequiredState) +let initWithView x ~targetState self = msg_send ~self ~cmd:(selector "initWithView:targetState:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int targetState) +let initWithView' x ~targetState ~minimumRequiredState self = msg_send ~self ~cmd:(selector "initWithView:targetState:minimumRequiredState:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int targetState) (LLong.of_int minimumRequiredState) +let setCompletesAtTargetState x self = msg_send ~self ~cmd:(selector "setCompletesAtTargetState:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPreviewInteraction.ml b/uikit/UIPreviewInteraction.ml index 6b103219..ee27c0ba 100644 --- a/uikit/UIPreviewInteraction.ml +++ b/uikit/UIPreviewInteraction.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPreviewInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipreviewinteraction?language=objc}UIPreviewInteraction} *) -let forwardingTargetForSelector x self = msg_send ~self ~cmd:(selector "forwardingTargetForSelector:") ~typ:(_SEL @-> returning (id)) x -let initClickBasedImplementationWithView x self = msg_send ~self ~cmd:(selector "initClickBasedImplementationWithView:") ~typ:(id @-> returning (id)) x -let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning (id)) x -let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning (id)) x -let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning (bool)) x \ No newline at end of file +let self = get_class "UIPreviewInteraction" + +let forwardingTargetForSelector x self = msg_send ~self ~cmd:(selector "forwardingTargetForSelector:") ~typ:(_SEL @-> returning id) x +let initClickBasedImplementationWithView x self = msg_send ~self ~cmd:(selector "initClickBasedImplementationWithView:") ~typ:(id @-> returning id) x +let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning id) x +let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning id) x +let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIPreviewInteractionController.ml b/uikit/UIPreviewInteractionController.ml index 3cc97c15..d43eae09 100644 --- a/uikit/UIPreviewInteractionController.ml +++ b/uikit/UIPreviewInteractionController.ml @@ -5,73 +5,77 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPreviewInteractionController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipreviewinteractioncontroller?language=objc}UIPreviewInteractionController} *) -let beginPreviewGestureRecognizer self = msg_send ~self ~cmd:(selector "beginPreviewGestureRecognizer") ~typ:(returning (id)) -let cancelInteractivePreview self = msg_send ~self ~cmd:(selector "cancelInteractivePreview") ~typ:(returning (void)) -let commitInteractivePreview self = msg_send ~self ~cmd:(selector "commitInteractivePreview") ~typ:(returning (void)) -let configureRevealTransformSourceViewSnapshotSuppressionFromLocation x ~inView self = msg_send ~self ~cmd:(selector "configureRevealTransformSourceViewSnapshotSuppressionFromLocation:inView:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x inView -let configureRevealTransformWithInteractionProgress x ~forLocation ~inView ~containerView self = msg_send ~self ~cmd:(selector "configureRevealTransformWithInteractionProgress:forLocation:inView:containerView:") ~typ:(id @-> CGPoint.t @-> id @-> id @-> returning (void)) x forLocation inView containerView -let currentCommitTransition self = msg_send ~self ~cmd:(selector "currentCommitTransition") ~typ:(returning (id)) -let currentPresentationController self = msg_send ~self ~cmd:(selector "currentPresentationController") ~typ:(returning (id)) -let currentPreviewViewController self = msg_send ~self ~cmd:(selector "currentPreviewViewController") ~typ:(returning (id)) -let currentTransitionDelegate self = msg_send ~self ~cmd:(selector "currentTransitionDelegate") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deepPressAnalyzer self = msg_send ~self ~cmd:(selector "deepPressAnalyzer") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didSendDelegateWillDismissViewController self = msg_send ~self ~cmd:(selector "didSendDelegateWillDismissViewController") ~typ:(returning (bool)) -let feedbackGenerator self = msg_send ~self ~cmd:(selector "feedbackGenerator") ~typ:(returning (id)) -let forcePresentationController x ~didSelectMenuItem self = msg_send ~self ~cmd:(selector "forcePresentationController:didSelectMenuItem:") ~typ:(id @-> id @-> returning (void)) x didSelectMenuItem -let forcePresentationControllerDidDismiss x self = msg_send ~self ~cmd:(selector "forcePresentationControllerDidDismiss:") ~typ:(id @-> returning (void)) x -let forcePresentationControllerWantsToCommit x self = msg_send ~self ~cmd:(selector "forcePresentationControllerWantsToCommit:") ~typ:(id @-> returning (void)) x -let forcePresentationControllerWillDismiss x self = msg_send ~self ~cmd:(selector "forcePresentationControllerWillDismiss:") ~typ:(id @-> returning (void)) x -let forcePresentationTransitionWillBegin x self = msg_send ~self ~cmd:(selector "forcePresentationTransitionWillBegin:") ~typ:(id @-> returning (void)) x -let gestureRecognizer x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRecognizeSimultaneouslyWithGestureRecognizer -let gestureRecognizers self = msg_send ~self ~cmd:(selector "gestureRecognizers") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initGestureRecognizers self = msg_send ~self ~cmd:(selector "initGestureRecognizers") ~typ:(returning (void)) -let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning (id)) x -let interactionProgress x ~didEnd self = msg_send ~self ~cmd:(selector "interactionProgress:didEnd:") ~typ:(id @-> bool @-> returning (void)) x didEnd -let interactionProgressDidUpdate x self = msg_send ~self ~cmd:(selector "interactionProgressDidUpdate:") ~typ:(id @-> returning (void)) x -let interactionProgressForCommit self = msg_send ~self ~cmd:(selector "interactionProgressForCommit") ~typ:(returning (id)) -let interactionProgressForPresentation self = msg_send ~self ~cmd:(selector "interactionProgressForPresentation") ~typ:(returning (id)) -let location self = msg_send_stret ~self ~cmd:(selector "location") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let modalPanGestureRecognizer self = msg_send ~self ~cmd:(selector "modalPanGestureRecognizer") ~typ:(returning (id)) -let presentationGestureRecognizer self = msg_send ~self ~cmd:(selector "presentationGestureRecognizer") ~typ:(returning (id)) -let presentingViewController self = msg_send ~self ~cmd:(selector "presentingViewController") ~typ:(returning (id)) -let previewGestureRecognizer self = msg_send ~self ~cmd:(selector "previewGestureRecognizer") ~typ:(returning (id)) -let previewInteraction self = msg_send ~self ~cmd:(selector "previewInteraction") ~typ:(returning (id)) -let previewInteraction1 x ~didUpdateCommitTransition ~ended self = msg_send ~self ~cmd:(selector "previewInteraction:didUpdateCommitTransition:ended:") ~typ:(id @-> double @-> bool @-> returning (void)) x didUpdateCommitTransition ended -let previewInteraction2 x ~didUpdatePreviewTransition ~ended self = msg_send ~self ~cmd:(selector "previewInteraction:didUpdatePreviewTransition:ended:") ~typ:(id @-> double @-> bool @-> returning (void)) x didUpdatePreviewTransition ended -let previewInteractionDidCancel x self = msg_send ~self ~cmd:(selector "previewInteractionDidCancel:") ~typ:(id @-> returning (void)) x -let previewInteractionShouldBegin x self = msg_send ~self ~cmd:(selector "previewInteractionShouldBegin:") ~typ:(id @-> returning (bool)) x -let previewingContext self = msg_send ~self ~cmd:(selector "previewingContext") ~typ:(returning (id)) -let revealGestureRecognizer self = msg_send ~self ~cmd:(selector "revealGestureRecognizer") ~typ:(returning (id)) -let setCurrentCommitTransition x self = msg_send ~self ~cmd:(selector "setCurrentCommitTransition:") ~typ:(id @-> returning (void)) x -let setCurrentPresentationController x self = msg_send ~self ~cmd:(selector "setCurrentPresentationController:") ~typ:(id @-> returning (void)) x -let setCurrentPreviewViewController x self = msg_send ~self ~cmd:(selector "setCurrentPreviewViewController:") ~typ:(id @-> returning (void)) x -let setCurrentTransitionDelegate x self = msg_send ~self ~cmd:(selector "setCurrentTransitionDelegate:") ~typ:(id @-> returning (void)) x -let setDeepPressAnalyzer x self = msg_send ~self ~cmd:(selector "setDeepPressAnalyzer:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDidSendDelegateWillDismissViewController x self = msg_send ~self ~cmd:(selector "setDidSendDelegateWillDismissViewController:") ~typ:(bool @-> returning (void)) x -let setFeedbackGenerator x self = msg_send ~self ~cmd:(selector "setFeedbackGenerator:") ~typ:(id @-> returning (void)) x -let setInteractionProgressForCommit x self = msg_send ~self ~cmd:(selector "setInteractionProgressForCommit:") ~typ:(id @-> returning (void)) x -let setInteractionProgressForPresentation x self = msg_send ~self ~cmd:(selector "setInteractionProgressForPresentation:") ~typ:(id @-> returning (void)) x -let setLocation x self = msg_send ~self ~cmd:(selector "setLocation:") ~typ:(CGPoint.t @-> returning (void)) x -let setModalPanGestureRecognizer x self = msg_send ~self ~cmd:(selector "setModalPanGestureRecognizer:") ~typ:(id @-> returning (void)) x -let setPresentingViewController x self = msg_send ~self ~cmd:(selector "setPresentingViewController:") ~typ:(id @-> returning (void)) x -let setPreviewGestureRecognizer x self = msg_send ~self ~cmd:(selector "setPreviewGestureRecognizer:") ~typ:(id @-> returning (void)) x -let setPreviewInteraction x self = msg_send ~self ~cmd:(selector "setPreviewInteraction:") ~typ:(id @-> returning (void)) x -let setPreviewingContext x self = msg_send ~self ~cmd:(selector "setPreviewingContext:") ~typ:(id @-> returning (void)) x -let setRevealGestureRecognizer x self = msg_send ~self ~cmd:(selector "setRevealGestureRecognizer:") ~typ:(id @-> returning (void)) x -let setSourceView x self = msg_send ~self ~cmd:(selector "setSourceView:") ~typ:(id @-> returning (void)) x -let setStatusBarWasHidden x self = msg_send ~self ~cmd:(selector "setStatusBarWasHidden:") ~typ:(bool @-> returning (void)) x -let setTouchObservingGestureRecognizer x self = msg_send ~self ~cmd:(selector "setTouchObservingGestureRecognizer:") ~typ:(id @-> returning (void)) x -let setWindowForPreviewPresentation x self = msg_send ~self ~cmd:(selector "setWindowForPreviewPresentation:") ~typ:(id @-> returning (void)) x -let sourceView self = msg_send ~self ~cmd:(selector "sourceView") ~typ:(returning (id)) -let startInteractivePreviewAtLocation x ~inView self = msg_send ~self ~cmd:(selector "startInteractivePreviewAtLocation:inView:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x inView -let startInteractivePreviewWithGestureRecognizer x self = msg_send ~self ~cmd:(selector "startInteractivePreviewWithGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let statusBarWasHidden self = msg_send ~self ~cmd:(selector "statusBarWasHidden") ~typ:(returning (bool)) -let touchObservingGestureRecognizer self = msg_send ~self ~cmd:(selector "touchObservingGestureRecognizer") ~typ:(returning (id)) -let windowForPreviewPresentation self = msg_send ~self ~cmd:(selector "windowForPreviewPresentation") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIPreviewInteractionController" + +let beginPreviewGestureRecognizer self = msg_send ~self ~cmd:(selector "beginPreviewGestureRecognizer") ~typ:(returning id) +let cancelInteractivePreview self = msg_send ~self ~cmd:(selector "cancelInteractivePreview") ~typ:(returning void) +let commitInteractivePreview self = msg_send ~self ~cmd:(selector "commitInteractivePreview") ~typ:(returning void) +let configureRevealTransformSourceViewSnapshotSuppressionFromLocation x ~inView self = msg_send ~self ~cmd:(selector "configureRevealTransformSourceViewSnapshotSuppressionFromLocation:inView:") ~typ:(CGPoint.t @-> id @-> returning bool) x inView +let configureRevealTransformWithInteractionProgress x ~forLocation ~inView ~containerView self = msg_send ~self ~cmd:(selector "configureRevealTransformWithInteractionProgress:forLocation:inView:containerView:") ~typ:(id @-> CGPoint.t @-> id @-> id @-> returning void) x forLocation inView containerView +let currentCommitTransition self = msg_send ~self ~cmd:(selector "currentCommitTransition") ~typ:(returning id) +let currentPresentationController self = msg_send ~self ~cmd:(selector "currentPresentationController") ~typ:(returning id) +let currentPreviewViewController self = msg_send ~self ~cmd:(selector "currentPreviewViewController") ~typ:(returning id) +let currentTransitionDelegate self = msg_send ~self ~cmd:(selector "currentTransitionDelegate") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let deepPressAnalyzer self = msg_send ~self ~cmd:(selector "deepPressAnalyzer") ~typ:(returning id) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didSendDelegateWillDismissViewController self = msg_send ~self ~cmd:(selector "didSendDelegateWillDismissViewController") ~typ:(returning bool) +let feedbackGenerator self = msg_send ~self ~cmd:(selector "feedbackGenerator") ~typ:(returning id) +let forcePresentationController x ~didSelectMenuItem self = msg_send ~self ~cmd:(selector "forcePresentationController:didSelectMenuItem:") ~typ:(id @-> id @-> returning void) x didSelectMenuItem +let forcePresentationControllerDidDismiss x self = msg_send ~self ~cmd:(selector "forcePresentationControllerDidDismiss:") ~typ:(id @-> returning void) x +let forcePresentationControllerWantsToCommit x self = msg_send ~self ~cmd:(selector "forcePresentationControllerWantsToCommit:") ~typ:(id @-> returning void) x +let forcePresentationControllerWillDismiss x self = msg_send ~self ~cmd:(selector "forcePresentationControllerWillDismiss:") ~typ:(id @-> returning void) x +let forcePresentationTransitionWillBegin x self = msg_send ~self ~cmd:(selector "forcePresentationTransitionWillBegin:") ~typ:(id @-> returning void) x +let gestureRecognizer x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldRecognizeSimultaneouslyWithGestureRecognizer +let gestureRecognizers self = msg_send ~self ~cmd:(selector "gestureRecognizers") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initGestureRecognizers self = msg_send ~self ~cmd:(selector "initGestureRecognizers") ~typ:(returning void) +let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning id) x +let interactionProgress x ~didEnd self = msg_send ~self ~cmd:(selector "interactionProgress:didEnd:") ~typ:(id @-> bool @-> returning void) x didEnd +let interactionProgressDidUpdate x self = msg_send ~self ~cmd:(selector "interactionProgressDidUpdate:") ~typ:(id @-> returning void) x +let interactionProgressForCommit self = msg_send ~self ~cmd:(selector "interactionProgressForCommit") ~typ:(returning id) +let interactionProgressForPresentation self = msg_send ~self ~cmd:(selector "interactionProgressForPresentation") ~typ:(returning id) +let location self = msg_send ~self ~cmd:(selector "location") ~typ:(returning CGPoint.t) +let modalPanGestureRecognizer self = msg_send ~self ~cmd:(selector "modalPanGestureRecognizer") ~typ:(returning id) +let presentationGestureRecognizer self = msg_send ~self ~cmd:(selector "presentationGestureRecognizer") ~typ:(returning id) +let presentingViewController self = msg_send ~self ~cmd:(selector "presentingViewController") ~typ:(returning id) +let previewGestureRecognizer self = msg_send ~self ~cmd:(selector "previewGestureRecognizer") ~typ:(returning id) +let previewInteraction self = msg_send ~self ~cmd:(selector "previewInteraction") ~typ:(returning id) +let previewInteraction1 x ~didUpdateCommitTransition ~ended self = msg_send ~self ~cmd:(selector "previewInteraction:didUpdateCommitTransition:ended:") ~typ:(id @-> double @-> bool @-> returning void) x didUpdateCommitTransition ended +let previewInteraction2 x ~didUpdatePreviewTransition ~ended self = msg_send ~self ~cmd:(selector "previewInteraction:didUpdatePreviewTransition:ended:") ~typ:(id @-> double @-> bool @-> returning void) x didUpdatePreviewTransition ended +let previewInteractionDidCancel x self = msg_send ~self ~cmd:(selector "previewInteractionDidCancel:") ~typ:(id @-> returning void) x +let previewInteractionShouldBegin x self = msg_send ~self ~cmd:(selector "previewInteractionShouldBegin:") ~typ:(id @-> returning bool) x +let previewingContext self = msg_send ~self ~cmd:(selector "previewingContext") ~typ:(returning id) +let revealGestureRecognizer self = msg_send ~self ~cmd:(selector "revealGestureRecognizer") ~typ:(returning id) +let setCurrentCommitTransition x self = msg_send ~self ~cmd:(selector "setCurrentCommitTransition:") ~typ:(id @-> returning void) x +let setCurrentPresentationController x self = msg_send ~self ~cmd:(selector "setCurrentPresentationController:") ~typ:(id @-> returning void) x +let setCurrentPreviewViewController x self = msg_send ~self ~cmd:(selector "setCurrentPreviewViewController:") ~typ:(id @-> returning void) x +let setCurrentTransitionDelegate x self = msg_send ~self ~cmd:(selector "setCurrentTransitionDelegate:") ~typ:(id @-> returning void) x +let setDeepPressAnalyzer x self = msg_send ~self ~cmd:(selector "setDeepPressAnalyzer:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDidSendDelegateWillDismissViewController x self = msg_send ~self ~cmd:(selector "setDidSendDelegateWillDismissViewController:") ~typ:(bool @-> returning void) x +let setFeedbackGenerator x self = msg_send ~self ~cmd:(selector "setFeedbackGenerator:") ~typ:(id @-> returning void) x +let setInteractionProgressForCommit x self = msg_send ~self ~cmd:(selector "setInteractionProgressForCommit:") ~typ:(id @-> returning void) x +let setInteractionProgressForPresentation x self = msg_send ~self ~cmd:(selector "setInteractionProgressForPresentation:") ~typ:(id @-> returning void) x +let setLocation x self = msg_send ~self ~cmd:(selector "setLocation:") ~typ:(CGPoint.t @-> returning void) x +let setModalPanGestureRecognizer x self = msg_send ~self ~cmd:(selector "setModalPanGestureRecognizer:") ~typ:(id @-> returning void) x +let setPresentingViewController x self = msg_send ~self ~cmd:(selector "setPresentingViewController:") ~typ:(id @-> returning void) x +let setPreviewGestureRecognizer x self = msg_send ~self ~cmd:(selector "setPreviewGestureRecognizer:") ~typ:(id @-> returning void) x +let setPreviewInteraction x self = msg_send ~self ~cmd:(selector "setPreviewInteraction:") ~typ:(id @-> returning void) x +let setPreviewingContext x self = msg_send ~self ~cmd:(selector "setPreviewingContext:") ~typ:(id @-> returning void) x +let setRevealGestureRecognizer x self = msg_send ~self ~cmd:(selector "setRevealGestureRecognizer:") ~typ:(id @-> returning void) x +let setSourceView x self = msg_send ~self ~cmd:(selector "setSourceView:") ~typ:(id @-> returning void) x +let setStatusBarWasHidden x self = msg_send ~self ~cmd:(selector "setStatusBarWasHidden:") ~typ:(bool @-> returning void) x +let setTouchObservingGestureRecognizer x self = msg_send ~self ~cmd:(selector "setTouchObservingGestureRecognizer:") ~typ:(id @-> returning void) x +let setWindowForPreviewPresentation x self = msg_send ~self ~cmd:(selector "setWindowForPreviewPresentation:") ~typ:(id @-> returning void) x +let sourceView self = msg_send ~self ~cmd:(selector "sourceView") ~typ:(returning id) +let startInteractivePreviewAtLocation x ~inView self = msg_send ~self ~cmd:(selector "startInteractivePreviewAtLocation:inView:") ~typ:(CGPoint.t @-> id @-> returning bool) x inView +let startInteractivePreviewWithGestureRecognizer x self = msg_send ~self ~cmd:(selector "startInteractivePreviewWithGestureRecognizer:") ~typ:(id @-> returning bool) x +let statusBarWasHidden self = msg_send ~self ~cmd:(selector "statusBarWasHidden") ~typ:(returning bool) +let touchObservingGestureRecognizer self = msg_send ~self ~cmd:(selector "touchObservingGestureRecognizer") ~typ:(returning id) +let windowForPreviewPresentation self = msg_send ~self ~cmd:(selector "windowForPreviewPresentation") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPreviewItemController.ml b/uikit/UIPreviewItemController.ml index cd74d97f..5d0c746b 100644 --- a/uikit/UIPreviewItemController.ml +++ b/uikit/UIPreviewItemController.ml @@ -5,36 +5,40 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPreviewItemController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipreviewitemcontroller?language=objc}UIPreviewItemController} *) -let clearPreviewIndicator self = msg_send ~self ~cmd:(selector "clearPreviewIndicator") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let gestureRecognizers self = msg_send ~self ~cmd:(selector "gestureRecognizers") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning (id)) x -let interactionInProgress self = msg_send ~self ~cmd:(selector "interactionInProgress") ~typ:(returning (bool)) -let interactionProgress x ~didEnd self = msg_send ~self ~cmd:(selector "interactionProgress:didEnd:") ~typ:(id @-> bool @-> returning (void)) x didEnd -let interactionProgressDidUpdate x self = msg_send ~self ~cmd:(selector "interactionProgressDidUpdate:") ~typ:(id @-> returning (void)) x -let performsViewControllerCommitTransitionForPreviewInteractionController x self = msg_send ~self ~cmd:(selector "performsViewControllerCommitTransitionForPreviewInteractionController:") ~typ:(id @-> returning (bool)) x -let preparePreviewIndicatorViewInSourceView x ~updateScreen self = msg_send ~self ~cmd:(selector "preparePreviewIndicatorViewInSourceView:updateScreen:") ~typ:(id @-> bool @-> returning (void)) x updateScreen -let presentationGestureRecognizer self = msg_send ~self ~cmd:(selector "presentationGestureRecognizer") ~typ:(returning (id)) -let presentationSecondaryGestureRecognizer self = msg_send ~self ~cmd:(selector "presentationSecondaryGestureRecognizer") ~typ:(returning (id)) -let presentedViewController self = msg_send ~self ~cmd:(selector "presentedViewController") ~typ:(returning (id)) -let presentingViewController self = msg_send ~self ~cmd:(selector "presentingViewController") ~typ:(returning (id)) -let previewData self = msg_send ~self ~cmd:(selector "previewData") ~typ:(returning (id)) -let previewInteractionController x ~didDismissViewController ~committing self = msg_send ~self ~cmd:(selector "previewInteractionController:didDismissViewController:committing:") ~typ:(id @-> id @-> bool @-> returning (void)) x didDismissViewController committing -let previewInteractionController1 x ~performCommitForPreviewViewController ~committedViewController self = msg_send ~self ~cmd:(selector "previewInteractionController:performCommitForPreviewViewController:committedViewController:") ~typ:(id @-> id @-> id @-> returning (void)) x performCommitForPreviewViewController committedViewController -let previewInteractionController2 x ~shouldUseStandardRevealTransformForPreviewingAtLocation ~inView self = msg_send ~self ~cmd:(selector "previewInteractionController:shouldUseStandardRevealTransformForPreviewingAtLocation:inView:") ~typ:(id @-> CGPoint.t @-> id @-> returning (bool)) x shouldUseStandardRevealTransformForPreviewingAtLocation inView -let previewInteractionController3 x ~viewControllerForPreviewingAtPosition ~inView ~presentingViewController self = msg_send ~self ~cmd:(selector "previewInteractionController:viewControllerForPreviewingAtPosition:inView:presentingViewController:") ~typ:(id @-> CGPoint.t @-> id @-> ptr (id) @-> returning (id)) x viewControllerForPreviewingAtPosition inView presentingViewController -let previewInteractionController4 x ~willPresentViewController ~forPosition ~inSourceView self = msg_send ~self ~cmd:(selector "previewInteractionController:willPresentViewController:forPosition:inSourceView:") ~typ:(id @-> id @-> CGPoint.t @-> id @-> returning (void)) x willPresentViewController forPosition inSourceView -let previewInteractionController5 x ~interactionProgress ~forRevealAtLocation ~inSourceView ~containerView self = msg_send ~self ~cmd:(selector "previewInteractionController:interactionProgress:forRevealAtLocation:inSourceView:containerView:") ~typ:(id @-> id @-> CGPoint.t @-> id @-> id @-> returning (void)) x interactionProgress forRevealAtLocation inSourceView containerView -let previewViewControllerForPosition x ~inSourceView ~documentProperties self = msg_send ~self ~cmd:(selector "previewViewControllerForPosition:inSourceView:documentProperties:") ~typ:(CGPoint.t @-> id @-> id @-> returning (id)) x inSourceView documentProperties -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setupPreviewIndicatorInSourceView x self = msg_send ~self ~cmd:(selector "setupPreviewIndicatorInSourceView:") ~typ:(id @-> returning (void)) x -let startInteraction self = msg_send ~self ~cmd:(selector "startInteraction") ~typ:(returning (void)) -let stopInteraction self = msg_send ~self ~cmd:(selector "stopInteraction") ~typ:(returning (void)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) -let updatePreviewIndicatorAnimation x self = msg_send ~self ~cmd:(selector "updatePreviewIndicatorAnimation:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIPreviewItemController" + +let clearPreviewIndicator self = msg_send ~self ~cmd:(selector "clearPreviewIndicator") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let gestureRecognizers self = msg_send ~self ~cmd:(selector "gestureRecognizers") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning id) x +let interactionInProgress self = msg_send ~self ~cmd:(selector "interactionInProgress") ~typ:(returning bool) +let interactionProgress x ~didEnd self = msg_send ~self ~cmd:(selector "interactionProgress:didEnd:") ~typ:(id @-> bool @-> returning void) x didEnd +let interactionProgressDidUpdate x self = msg_send ~self ~cmd:(selector "interactionProgressDidUpdate:") ~typ:(id @-> returning void) x +let performsViewControllerCommitTransitionForPreviewInteractionController x self = msg_send ~self ~cmd:(selector "performsViewControllerCommitTransitionForPreviewInteractionController:") ~typ:(id @-> returning bool) x +let preparePreviewIndicatorViewInSourceView x ~updateScreen self = msg_send ~self ~cmd:(selector "preparePreviewIndicatorViewInSourceView:updateScreen:") ~typ:(id @-> bool @-> returning void) x updateScreen +let presentationGestureRecognizer self = msg_send ~self ~cmd:(selector "presentationGestureRecognizer") ~typ:(returning id) +let presentationSecondaryGestureRecognizer self = msg_send ~self ~cmd:(selector "presentationSecondaryGestureRecognizer") ~typ:(returning id) +let presentedViewController self = msg_send ~self ~cmd:(selector "presentedViewController") ~typ:(returning id) +let presentingViewController self = msg_send ~self ~cmd:(selector "presentingViewController") ~typ:(returning id) +let previewData self = msg_send ~self ~cmd:(selector "previewData") ~typ:(returning id) +let previewInteractionController x ~didDismissViewController ~committing self = msg_send ~self ~cmd:(selector "previewInteractionController:didDismissViewController:committing:") ~typ:(id @-> id @-> bool @-> returning void) x didDismissViewController committing +let previewInteractionController1 x ~performCommitForPreviewViewController ~committedViewController self = msg_send ~self ~cmd:(selector "previewInteractionController:performCommitForPreviewViewController:committedViewController:") ~typ:(id @-> id @-> id @-> returning void) x performCommitForPreviewViewController committedViewController +let previewInteractionController2 x ~shouldUseStandardRevealTransformForPreviewingAtLocation ~inView self = msg_send ~self ~cmd:(selector "previewInteractionController:shouldUseStandardRevealTransformForPreviewingAtLocation:inView:") ~typ:(id @-> CGPoint.t @-> id @-> returning bool) x shouldUseStandardRevealTransformForPreviewingAtLocation inView +let previewInteractionController3 x ~viewControllerForPreviewingAtPosition ~inView ~presentingViewController self = msg_send ~self ~cmd:(selector "previewInteractionController:viewControllerForPreviewingAtPosition:inView:presentingViewController:") ~typ:(id @-> CGPoint.t @-> id @-> (ptr id) @-> returning id) x viewControllerForPreviewingAtPosition inView presentingViewController +let previewInteractionController4 x ~willPresentViewController ~forPosition ~inSourceView self = msg_send ~self ~cmd:(selector "previewInteractionController:willPresentViewController:forPosition:inSourceView:") ~typ:(id @-> id @-> CGPoint.t @-> id @-> returning void) x willPresentViewController forPosition inSourceView +let previewInteractionController5 x ~interactionProgress ~forRevealAtLocation ~inSourceView ~containerView self = msg_send ~self ~cmd:(selector "previewInteractionController:interactionProgress:forRevealAtLocation:inSourceView:containerView:") ~typ:(id @-> id @-> CGPoint.t @-> id @-> id @-> returning void) x interactionProgress forRevealAtLocation inSourceView containerView +let previewViewControllerForPosition x ~inSourceView ~documentProperties self = msg_send ~self ~cmd:(selector "previewViewControllerForPosition:inSourceView:documentProperties:") ~typ:(CGPoint.t @-> id @-> id @-> returning id) x inSourceView documentProperties +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setupPreviewIndicatorInSourceView x self = msg_send ~self ~cmd:(selector "setupPreviewIndicatorInSourceView:") ~typ:(id @-> returning void) x +let startInteraction self = msg_send ~self ~cmd:(selector "startInteraction") ~typ:(returning void) +let stopInteraction self = msg_send ~self ~cmd:(selector "stopInteraction") ~typ:(returning void) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) +let updatePreviewIndicatorAnimation x self = msg_send ~self ~cmd:(selector "updatePreviewIndicatorAnimation:") ~typ:(id @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPreviewMenuItem.ml b/uikit/UIPreviewMenuItem.ml index cfdf52cd..7e3f7c0c 100644 --- a/uikit/UIPreviewMenuItem.ml +++ b/uikit/UIPreviewMenuItem.ml @@ -5,23 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPreviewMenuItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipreviewmenuitem?language=objc}UIPreviewMenuItem} *) -module C = struct - let itemWithTitle x ~style ~handler self = msg_send ~self ~cmd:(selector "itemWithTitle:style:handler:") ~typ:(id @-> llong @-> ptr void @-> returning (id)) x (LLong.of_int style) handler - let itemWithTitle' x ~style ~items self = msg_send ~self ~cmd:(selector "itemWithTitle:style:items:") ~typ:(id @-> llong @-> id @-> returning (id)) x (LLong.of_int style) items - let itemWithViewControllerPreviewAction x self = msg_send ~self ~cmd:(selector "itemWithViewControllerPreviewAction:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIPreviewMenuItem" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let handler self = msg_send ~self ~cmd:(selector "handler") ~typ:(returning (ptr void)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:(ptr void @-> returning (void)) x -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:((ptr void) @-> returning void) x +let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPreviewMenuItemClass.ml b/uikit/UIPreviewMenuItemClass.ml new file mode 100644 index 00000000..6c36910d --- /dev/null +++ b/uikit/UIPreviewMenuItemClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipreviewmenuitem?language=objc}UIPreviewMenuItem} *) + +let itemWithTitle x ~style ~handler self = msg_send ~self ~cmd:(selector "itemWithTitle:style:handler:") ~typ:(id @-> llong @-> (ptr void) @-> returning id) x (LLong.of_int style) handler +let itemWithTitle' x ~style ~items self = msg_send ~self ~cmd:(selector "itemWithTitle:style:items:") ~typ:(id @-> llong @-> id @-> returning id) x (LLong.of_int style) items +let itemWithViewControllerPreviewAction x self = msg_send ~self ~cmd:(selector "itemWithViewControllerPreviewAction:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIPreviewParameters.ml b/uikit/UIPreviewParameters.ml index 78f055db..216875c9 100644 --- a/uikit/UIPreviewParameters.ml +++ b/uikit/UIPreviewParameters.ml @@ -5,23 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPreviewParameters" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipreviewparameters?language=objc}UIPreviewParameters} *) -let appliesShadow self = msg_send ~self ~cmd:(selector "appliesShadow") ~typ:(returning (bool)) -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let effectiveShadowPath self = msg_send ~self ~cmd:(selector "effectiveShadowPath") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let hidesSourceViewDuringDropAnimation self = msg_send ~self ~cmd:(selector "hidesSourceViewDuringDropAnimation") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithTextLineRects x self = msg_send ~self ~cmd:(selector "initWithTextLineRects:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let setAppliesShadow x self = msg_send ~self ~cmd:(selector "setAppliesShadow:") ~typ:(bool @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setHidesSourceViewDuringDropAnimation x self = msg_send ~self ~cmd:(selector "setHidesSourceViewDuringDropAnimation:") ~typ:(bool @-> returning (void)) x -let setShadowPath x self = msg_send ~self ~cmd:(selector "setShadowPath:") ~typ:(id @-> returning (void)) x -let setVisiblePath x self = msg_send ~self ~cmd:(selector "setVisiblePath:") ~typ:(id @-> returning (void)) x -let shadowPath self = msg_send ~self ~cmd:(selector "shadowPath") ~typ:(returning (id)) -let visiblePath self = msg_send ~self ~cmd:(selector "visiblePath") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIPreviewParameters" + +let appliesShadow self = msg_send ~self ~cmd:(selector "appliesShadow") ~typ:(returning bool) +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let effectiveShadowPath self = msg_send ~self ~cmd:(selector "effectiveShadowPath") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let hidesSourceViewDuringDropAnimation self = msg_send ~self ~cmd:(selector "hidesSourceViewDuringDropAnimation") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithTextLineRects x self = msg_send ~self ~cmd:(selector "initWithTextLineRects:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let setAppliesShadow x self = msg_send ~self ~cmd:(selector "setAppliesShadow:") ~typ:(bool @-> returning void) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setHidesSourceViewDuringDropAnimation x self = msg_send ~self ~cmd:(selector "setHidesSourceViewDuringDropAnimation:") ~typ:(bool @-> returning void) x +let setShadowPath x self = msg_send ~self ~cmd:(selector "setShadowPath:") ~typ:(id @-> returning void) x +let setVisiblePath x self = msg_send ~self ~cmd:(selector "setVisiblePath:") ~typ:(id @-> returning void) x +let shadowPath self = msg_send ~self ~cmd:(selector "shadowPath") ~typ:(returning id) +let visiblePath self = msg_send ~self ~cmd:(selector "visiblePath") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPreviewPresentationController.ml b/uikit/UIPreviewPresentationController.ml index 8ab226d2..7a82696f 100644 --- a/uikit/UIPreviewPresentationController.ml +++ b/uikit/UIPreviewPresentationController.ml @@ -5,35 +5,39 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPreviewPresentationController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipreviewpresentationcontroller?language=objc}UIPreviewPresentationController} *) -let appliesVisualEffectsToPresentingView self = msg_send ~self ~cmd:(selector "appliesVisualEffectsToPresentingView") ~typ:(returning (bool)) +let self = get_class "UIPreviewPresentationController" + +let appliesVisualEffectsToPresentingView self = msg_send ~self ~cmd:(selector "appliesVisualEffectsToPresentingView") ~typ:(returning bool) let containerViewConfigurationBlock self = msg_send ~self ~cmd:(selector "containerViewConfigurationBlock") ~typ:(returning (ptr void)) -let currentPinnedResponder self = msg_send ~self ~cmd:(selector "currentPinnedResponder") ~typ:(returning (id)) -let dismissGestureRecognizer self = msg_send ~self ~cmd:(selector "dismissGestureRecognizer") ~typ:(returning (id)) -let dismissalTransitionDidEnd x self = msg_send ~self ~cmd:(selector "dismissalTransitionDidEnd:") ~typ:(bool @-> returning (void)) x +let currentPinnedResponder self = msg_send ~self ~cmd:(selector "currentPinnedResponder") ~typ:(returning id) +let dismissGestureRecognizer self = msg_send ~self ~cmd:(selector "dismissGestureRecognizer") ~typ:(returning id) +let dismissalTransitionDidEnd x self = msg_send ~self ~cmd:(selector "dismissalTransitionDidEnd:") ~typ:(bool @-> returning void) x let dismissalTransitionDidEndBlock self = msg_send ~self ~cmd:(selector "dismissalTransitionDidEndBlock") ~typ:(returning (ptr void)) -let dismissalTransitionWillBegin self = msg_send ~self ~cmd:(selector "dismissalTransitionWillBegin") ~typ:(returning (void)) -let gestureRecognizer x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning (bool)) x shouldReceiveTouch -let initWithPresentedViewController x ~presentingViewController self = msg_send ~self ~cmd:(selector "initWithPresentedViewController:presentingViewController:") ~typ:(id @-> id @-> returning (id)) x presentingViewController -let keyboardSnapshotters self = msg_send ~self ~cmd:(selector "keyboardSnapshotters") ~typ:(returning (id)) -let keyboardWindows self = msg_send ~self ~cmd:(selector "keyboardWindows") ~typ:(returning (id)) -let localStatusBar self = msg_send ~self ~cmd:(selector "localStatusBar") ~typ:(returning (id)) -let presentationContainerEffectView self = msg_send ~self ~cmd:(selector "presentationContainerEffectView") ~typ:(returning (id)) -let presentationStyle self = msg_send ~self ~cmd:(selector "presentationStyle") ~typ:(returning (llong)) -let presentationTransitionDidEnd x self = msg_send ~self ~cmd:(selector "presentationTransitionDidEnd:") ~typ:(bool @-> returning (void)) x -let presentationTransitionWillBegin self = msg_send ~self ~cmd:(selector "presentationTransitionWillBegin") ~typ:(returning (void)) -let presentationWindow self = msg_send ~self ~cmd:(selector "presentationWindow") ~typ:(returning (id)) -let previewPresentationDelegate self = msg_send ~self ~cmd:(selector "previewPresentationDelegate") ~typ:(returning (id)) -let setAppliesVisualEffectsToPresentingView x self = msg_send ~self ~cmd:(selector "setAppliesVisualEffectsToPresentingView:") ~typ:(bool @-> returning (void)) x -let setContainerViewConfigurationBlock x self = msg_send ~self ~cmd:(selector "setContainerViewConfigurationBlock:") ~typ:(ptr void @-> returning (void)) x -let setCurrentPinnedResponder x self = msg_send ~self ~cmd:(selector "setCurrentPinnedResponder:") ~typ:(id @-> returning (void)) x -let setDismissGestureRecognizer x self = msg_send ~self ~cmd:(selector "setDismissGestureRecognizer:") ~typ:(id @-> returning (void)) x -let setDismissalTransitionDidEndBlock x self = msg_send ~self ~cmd:(selector "setDismissalTransitionDidEndBlock:") ~typ:(ptr void @-> returning (void)) x -let setKeyboardSnapshotters x self = msg_send ~self ~cmd:(selector "setKeyboardSnapshotters:") ~typ:(id @-> returning (void)) x -let setKeyboardWindows x self = msg_send ~self ~cmd:(selector "setKeyboardWindows:") ~typ:(id @-> returning (void)) x -let setLocalStatusBar x self = msg_send ~self ~cmd:(selector "setLocalStatusBar:") ~typ:(id @-> returning (void)) x -let setPresentationContainerEffectView x self = msg_send ~self ~cmd:(selector "setPresentationContainerEffectView:") ~typ:(id @-> returning (void)) x -let setPresentationWindow x self = msg_send ~self ~cmd:(selector "setPresentationWindow:") ~typ:(id @-> returning (void)) x -let setPreviewPresentationDelegate x self = msg_send ~self ~cmd:(selector "setPreviewPresentationDelegate:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let dismissalTransitionWillBegin self = msg_send ~self ~cmd:(selector "dismissalTransitionWillBegin") ~typ:(returning void) +let gestureRecognizer x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning bool) x shouldReceiveTouch +let initWithPresentedViewController x ~presentingViewController self = msg_send ~self ~cmd:(selector "initWithPresentedViewController:presentingViewController:") ~typ:(id @-> id @-> returning id) x presentingViewController +let keyboardSnapshotters self = msg_send ~self ~cmd:(selector "keyboardSnapshotters") ~typ:(returning id) +let keyboardWindows self = msg_send ~self ~cmd:(selector "keyboardWindows") ~typ:(returning id) +let localStatusBar self = msg_send ~self ~cmd:(selector "localStatusBar") ~typ:(returning id) +let presentationContainerEffectView self = msg_send ~self ~cmd:(selector "presentationContainerEffectView") ~typ:(returning id) +let presentationStyle self = msg_send ~self ~cmd:(selector "presentationStyle") ~typ:(returning llong) +let presentationTransitionDidEnd x self = msg_send ~self ~cmd:(selector "presentationTransitionDidEnd:") ~typ:(bool @-> returning void) x +let presentationTransitionWillBegin self = msg_send ~self ~cmd:(selector "presentationTransitionWillBegin") ~typ:(returning void) +let presentationWindow self = msg_send ~self ~cmd:(selector "presentationWindow") ~typ:(returning id) +let previewPresentationDelegate self = msg_send ~self ~cmd:(selector "previewPresentationDelegate") ~typ:(returning id) +let setAppliesVisualEffectsToPresentingView x self = msg_send ~self ~cmd:(selector "setAppliesVisualEffectsToPresentingView:") ~typ:(bool @-> returning void) x +let setContainerViewConfigurationBlock x self = msg_send ~self ~cmd:(selector "setContainerViewConfigurationBlock:") ~typ:((ptr void) @-> returning void) x +let setCurrentPinnedResponder x self = msg_send ~self ~cmd:(selector "setCurrentPinnedResponder:") ~typ:(id @-> returning void) x +let setDismissGestureRecognizer x self = msg_send ~self ~cmd:(selector "setDismissGestureRecognizer:") ~typ:(id @-> returning void) x +let setDismissalTransitionDidEndBlock x self = msg_send ~self ~cmd:(selector "setDismissalTransitionDidEndBlock:") ~typ:((ptr void) @-> returning void) x +let setKeyboardSnapshotters x self = msg_send ~self ~cmd:(selector "setKeyboardSnapshotters:") ~typ:(id @-> returning void) x +let setKeyboardWindows x self = msg_send ~self ~cmd:(selector "setKeyboardWindows:") ~typ:(id @-> returning void) x +let setLocalStatusBar x self = msg_send ~self ~cmd:(selector "setLocalStatusBar:") ~typ:(id @-> returning void) x +let setPresentationContainerEffectView x self = msg_send ~self ~cmd:(selector "setPresentationContainerEffectView:") ~typ:(id @-> returning void) x +let setPresentationWindow x self = msg_send ~self ~cmd:(selector "setPresentationWindow:") ~typ:(id @-> returning void) x +let setPreviewPresentationDelegate x self = msg_send ~self ~cmd:(selector "setPreviewPresentationDelegate:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPreviewTarget.ml b/uikit/UIPreviewTarget.ml index e16ade84..8aa1bbc5 100644 --- a/uikit/UIPreviewTarget.ml +++ b/uikit/UIPreviewTarget.ml @@ -5,19 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPreviewTarget" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipreviewtarget?language=objc}UIPreviewTarget} *) -module C = struct - let new_ self = msg_send ~self ~cmd:(selector "new") ~typ:(returning (id)) -end +let self = get_class "UIPreviewTarget" -let center self = msg_send_stret ~self ~cmd:(selector "center") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let container self = msg_send ~self ~cmd:(selector "container") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithContainer x ~center self = msg_send ~self ~cmd:(selector "initWithContainer:center:") ~typ:(id @-> CGPoint.t @-> returning (id)) x center -let initWithContainer' x ~center ~transform self = msg_send ~self ~cmd:(selector "initWithContainer:center:transform:") ~typ:(id @-> CGPoint.t @-> ptr void @-> returning (id)) x center transform -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let center self = msg_send ~self ~cmd:(selector "center") ~typ:(returning CGPoint.t) +let container self = msg_send ~self ~cmd:(selector "container") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithContainer x ~center self = msg_send ~self ~cmd:(selector "initWithContainer:center:") ~typ:(id @-> CGPoint.t @-> returning id) x center +let initWithContainer' x ~center ~transform self = msg_send ~self ~cmd:(selector "initWithContainer:center:transform:") ~typ:(id @-> CGPoint.t @-> CGAffineTransform.t @-> returning id) x center transform +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let transform self = msg_send ~self ~cmd:(selector "transform") ~typ:(returning CGAffineTransform.t) \ No newline at end of file diff --git a/uikit/UIPrintFormatter.ml b/uikit/UIPrintFormatter.ml new file mode 100644 index 00000000..1e324858 --- /dev/null +++ b/uikit/UIPrintFormatter.ml @@ -0,0 +1,34 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprintformatter?language=objc}UIPrintFormatter} *) + +let self = get_class "UIPrintFormatter" + +let contentInsets self = msg_send ~self ~cmd:(selector "contentInsets") ~typ:(returning UIEdgeInsets.t) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let drawInRect x ~forPageAtIndex self = msg_send ~self ~cmd:(selector "drawInRect:forPageAtIndex:") ~typ:(CGRect.t @-> llong @-> returning void) x (LLong.of_int forPageAtIndex) +let imagePDFAnnotations self = msg_send ~self ~cmd:(selector "imagePDFAnnotations") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let maximumContentHeight self = msg_send ~self ~cmd:(selector "maximumContentHeight") ~typ:(returning double) +let maximumContentWidth self = msg_send ~self ~cmd:(selector "maximumContentWidth") ~typ:(returning double) +let pageCount self = msg_send ~self ~cmd:(selector "pageCount") ~typ:(returning llong) +let perPageContentInsets self = msg_send ~self ~cmd:(selector "perPageContentInsets") ~typ:(returning UIEdgeInsets.t) +let printPageRenderer self = msg_send ~self ~cmd:(selector "printPageRenderer") ~typ:(returning id) +let rectForPageAtIndex x self = msg_send ~self ~cmd:(selector "rectForPageAtIndex:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) +let removeFromPrintPageRenderer self = msg_send ~self ~cmd:(selector "removeFromPrintPageRenderer") ~typ:(returning void) +let setContentInsets x self = msg_send ~self ~cmd:(selector "setContentInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setImagePDFAnnotations x self = msg_send ~self ~cmd:(selector "setImagePDFAnnotations:") ~typ:(bool @-> returning void) x +let setMaximumContentHeight x self = msg_send ~self ~cmd:(selector "setMaximumContentHeight:") ~typ:(double @-> returning void) x +let setMaximumContentWidth x self = msg_send ~self ~cmd:(selector "setMaximumContentWidth:") ~typ:(double @-> returning void) x +let setPerPageContentInsets x self = msg_send ~self ~cmd:(selector "setPerPageContentInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setPrintPageRenderer x self = msg_send ~self ~cmd:(selector "setPrintPageRenderer:") ~typ:(id @-> returning void) x +let setStartPage x self = msg_send ~self ~cmd:(selector "setStartPage:") ~typ:(llong @-> returning void) (LLong.of_int x) +let startPage self = msg_send ~self ~cmd:(selector "startPage") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIPrintInfo.ml b/uikit/UIPrintInfo.ml new file mode 100644 index 00000000..b24eaaee --- /dev/null +++ b/uikit/UIPrintInfo.ml @@ -0,0 +1,74 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprintinfo?language=objc}UIPrintInfo} *) + +let self = get_class "UIPrintInfo" + +let coat self = msg_send ~self ~cmd:(selector "coat") ~typ:(returning llong) +let copies self = msg_send ~self ~cmd:(selector "copies") ~typ:(returning llong) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dictionaryRepresentation self = msg_send ~self ~cmd:(selector "dictionaryRepresentation") ~typ:(returning id) +let duplex self = msg_send ~self ~cmd:(selector "duplex") ~typ:(returning llong) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let finishingTemplate self = msg_send ~self ~cmd:(selector "finishingTemplate") ~typ:(returning id) +let fold self = msg_send ~self ~cmd:(selector "fold") ~typ:(returning llong) +let imagePDFAnnotations self = msg_send ~self ~cmd:(selector "imagePDFAnnotations") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let inputSlot self = msg_send ~self ~cmd:(selector "inputSlot") ~typ:(returning id) +let jobAccountID self = msg_send ~self ~cmd:(selector "jobAccountID") ~typ:(returning id) +let jobName self = msg_send ~self ~cmd:(selector "jobName") ~typ:(returning id) +let laminate self = msg_send ~self ~cmd:(selector "laminate") ~typ:(returning llong) +let mediaType self = msg_send ~self ~cmd:(selector "mediaType") ~typ:(returning id) +let orientation self = msg_send ~self ~cmd:(selector "orientation") ~typ:(returning llong) +let outputBin self = msg_send ~self ~cmd:(selector "outputBin") ~typ:(returning id) +let outputType self = msg_send ~self ~cmd:(selector "outputType") ~typ:(returning llong) +let pageCount self = msg_send ~self ~cmd:(selector "pageCount") ~typ:(returning llong) +let pageRanges self = msg_send ~self ~cmd:(selector "pageRanges") ~typ:(returning id) +let pageStackOrder self = msg_send ~self ~cmd:(selector "pageStackOrder") ~typ:(returning id) +let pdfAnnotationsAvailable self = msg_send ~self ~cmd:(selector "pdfAnnotationsAvailable") ~typ:(returning bool) +let pdfPassword self = msg_send ~self ~cmd:(selector "pdfPassword") ~typ:(returning id) +let printerID self = msg_send ~self ~cmd:(selector "printerID") ~typ:(returning id) +let punch self = msg_send ~self ~cmd:(selector "punch") ~typ:(returning llong) +let quality self = msg_send ~self ~cmd:(selector "quality") ~typ:(returning llong) +let scaleDownOnly self = msg_send ~self ~cmd:(selector "scaleDownOnly") ~typ:(returning bool) +let scaleToFit self = msg_send ~self ~cmd:(selector "scaleToFit") ~typ:(returning bool) +let scaleUp self = msg_send ~self ~cmd:(selector "scaleUp") ~typ:(returning bool) +let setCoat x self = msg_send ~self ~cmd:(selector "setCoat:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCopies x self = msg_send ~self ~cmd:(selector "setCopies:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setDuplex x self = msg_send ~self ~cmd:(selector "setDuplex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setFinishingTemplate x self = msg_send ~self ~cmd:(selector "setFinishingTemplate:") ~typ:(id @-> returning void) x +let setFold x self = msg_send ~self ~cmd:(selector "setFold:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setImagePDFAnnotations x self = msg_send ~self ~cmd:(selector "setImagePDFAnnotations:") ~typ:(bool @-> returning void) x +let setInputSlot x self = msg_send ~self ~cmd:(selector "setInputSlot:") ~typ:(id @-> returning void) x +let setJobAccountID x self = msg_send ~self ~cmd:(selector "setJobAccountID:") ~typ:(id @-> returning void) x +let setJobName x self = msg_send ~self ~cmd:(selector "setJobName:") ~typ:(id @-> returning void) x +let setLaminate x self = msg_send ~self ~cmd:(selector "setLaminate:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setMediaType x self = msg_send ~self ~cmd:(selector "setMediaType:") ~typ:(id @-> returning void) x +let setOrientation x self = msg_send ~self ~cmd:(selector "setOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setOutputBin x self = msg_send ~self ~cmd:(selector "setOutputBin:") ~typ:(id @-> returning void) x +let setOutputType x self = msg_send ~self ~cmd:(selector "setOutputType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPageCount x self = msg_send ~self ~cmd:(selector "setPageCount:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPageRanges x self = msg_send ~self ~cmd:(selector "setPageRanges:") ~typ:(id @-> returning void) x +let setPageStackOrder x self = msg_send ~self ~cmd:(selector "setPageStackOrder:") ~typ:(id @-> returning void) x +let setPdfAnnotationsAvailable x self = msg_send ~self ~cmd:(selector "setPdfAnnotationsAvailable:") ~typ:(bool @-> returning void) x +let setPdfPassword x self = msg_send ~self ~cmd:(selector "setPdfPassword:") ~typ:(id @-> returning void) x +let setPrinterID x self = msg_send ~self ~cmd:(selector "setPrinterID:") ~typ:(id @-> returning void) x +let setPunch x self = msg_send ~self ~cmd:(selector "setPunch:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setQuality x self = msg_send ~self ~cmd:(selector "setQuality:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setScaleDownOnly x self = msg_send ~self ~cmd:(selector "setScaleDownOnly:") ~typ:(bool @-> returning void) x +let setScaleToFit x self = msg_send ~self ~cmd:(selector "setScaleToFit:") ~typ:(bool @-> returning void) x +let setScaleUp x self = msg_send ~self ~cmd:(selector "setScaleUp:") ~typ:(bool @-> returning void) x +let setStaple x self = msg_send ~self ~cmd:(selector "setStaple:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTrim x self = msg_send ~self ~cmd:(selector "setTrim:") ~typ:(llong @-> returning void) (LLong.of_int x) +let staple self = msg_send ~self ~cmd:(selector "staple") ~typ:(returning llong) +let trim self = msg_send ~self ~cmd:(selector "trim") ~typ:(returning llong) +let updateWithDictionary x self = msg_send ~self ~cmd:(selector "updateWithDictionary:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPrintInfoClass.ml b/uikit/UIPrintInfoClass.ml new file mode 100644 index 00000000..86373bfa --- /dev/null +++ b/uikit/UIPrintInfoClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprintinfo?language=objc}UIPrintInfo} *) + +let printInfo self = msg_send ~self ~cmd:(selector "printInfo") ~typ:(returning id) +let printInfoWithDictionary x self = msg_send ~self ~cmd:(selector "printInfoWithDictionary:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIPrintInfoRequest.ml b/uikit/UIPrintInfoRequest.ml new file mode 100644 index 00000000..383b864c --- /dev/null +++ b/uikit/UIPrintInfoRequest.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprintinforequest?language=objc}UIPrintInfoRequest} *) + +let self = get_class "UIPrintInfoRequest" + +let completionHandler self = msg_send ~self ~cmd:(selector "completionHandler") ~typ:(returning (ptr void)) +let requestPrintInfo self = msg_send ~self ~cmd:(selector "requestPrintInfo") ~typ:(returning void) +let requestState self = msg_send ~self ~cmd:(selector "requestState") ~typ:(returning int) +let setCompletionHandler x self = msg_send ~self ~cmd:(selector "setCompletionHandler:") ~typ:((ptr void) @-> returning void) x +let setRequestState x self = msg_send ~self ~cmd:(selector "setRequestState:") ~typ:(int @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPrintInfoRequestClass.ml b/uikit/UIPrintInfoRequestClass.ml new file mode 100644 index 00000000..523d6291 --- /dev/null +++ b/uikit/UIPrintInfoRequestClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprintinforequest?language=objc}UIPrintInfoRequest} *) + +let requestInfoForPrinter x self = msg_send ~self ~cmd:(selector "requestInfoForPrinter:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIPrintInteractionController.ml b/uikit/UIPrintInteractionController.ml new file mode 100644 index 00000000..404528e1 --- /dev/null +++ b/uikit/UIPrintInteractionController.ml @@ -0,0 +1,97 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprintinteractioncontroller?language=objc}UIPrintInteractionController} *) + +let self = get_class "UIPrintInteractionController" + +let activePrintInfo self = msg_send ~self ~cmd:(selector "activePrintInfo") ~typ:(returning id) +let currentPage self = msg_send ~self ~cmd:(selector "currentPage") ~typ:(returning llong) +let currentRange self = msg_send ~self ~cmd:(selector "currentRange") ~typ:(returning NSRange.t) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let dismissAnimated x self = msg_send ~self ~cmd:(selector "dismissAnimated:") ~typ:(bool @-> returning void) x +let drawPagesWithRange x ~withExistsURL ~withPreviewState self = msg_send ~self ~cmd:(selector "drawPagesWithRange:withExistsURL:withPreviewState:") ~typ:(NSRange.t @-> id @-> id @-> returning id) x withExistsURL withPreviewState +let formatterRenderer self = msg_send ~self ~cmd:(selector "formatterRenderer") ~typ:(returning id) +let hostingWindowScene self = msg_send ~self ~cmd:(selector "hostingWindowScene") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isContentManaged self = msg_send ~self ~cmd:(selector "isContentManaged") ~typ:(returning bool) +let manualPrintPageEnabled self = msg_send ~self ~cmd:(selector "manualPrintPageEnabled") ~typ:(returning bool) +let pageCount self = msg_send ~self ~cmd:(selector "pageCount") ~typ:(returning llong) +let pageCountWithRanges self = msg_send ~self ~cmd:(selector "pageCountWithRanges") ~typ:(returning llong) +let pageRanges self = msg_send ~self ~cmd:(selector "pageRanges") ~typ:(returning id) +let pagesDrawn self = msg_send ~self ~cmd:(selector "pagesDrawn") ~typ:(returning llong) +let paper self = msg_send ~self ~cmd:(selector "paper") ~typ:(returning id) +let pdfPassword self = msg_send ~self ~cmd:(selector "pdfPassword") ~typ:(returning id) +let presentAnimated x ~completionHandler self = msg_send ~self ~cmd:(selector "presentAnimated:completionHandler:") ~typ:(bool @-> (ptr void) @-> returning bool) x completionHandler +let presentAnimated' x ~hostingScene ~completionHandler self = msg_send ~self ~cmd:(selector "presentAnimated:hostingScene:completionHandler:") ~typ:(bool @-> id @-> (ptr void) @-> returning bool) x hostingScene completionHandler +let presentFromBarButtonItem x ~animated ~completionHandler self = msg_send ~self ~cmd:(selector "presentFromBarButtonItem:animated:completionHandler:") ~typ:(id @-> bool @-> (ptr void) @-> returning bool) x animated completionHandler +let presentFromRect x ~inView ~animated ~completionHandler self = msg_send ~self ~cmd:(selector "presentFromRect:inView:animated:completionHandler:") ~typ:(CGRect.t @-> id @-> bool @-> (ptr void) @-> returning bool) x inView animated completionHandler +let previewStates self = msg_send ~self ~cmd:(selector "previewStates") ~typ:(returning id) +let printActivityDelegate self = msg_send ~self ~cmd:(selector "printActivityDelegate") ~typ:(returning id) +let printFormatter self = msg_send ~self ~cmd:(selector "printFormatter") ~typ:(returning id) +let printInfo self = msg_send ~self ~cmd:(selector "printInfo") ~typ:(returning id) +let printInfoState self = msg_send ~self ~cmd:(selector "printInfoState") ~typ:(returning int) +let printPageRenderer self = msg_send ~self ~cmd:(selector "printPageRenderer") ~typ:(returning id) +let printPanelViewController self = msg_send ~self ~cmd:(selector "printPanelViewController") ~typ:(returning id) +let printPaper self = msg_send ~self ~cmd:(selector "printPaper") ~typ:(returning id) +let printSettings self = msg_send ~self ~cmd:(selector "printSettings") ~typ:(returning id) +let printStateActive self = msg_send ~self ~cmd:(selector "printStateActive") ~typ:(returning bool) +let printToPrinter x ~completionHandler self = msg_send ~self ~cmd:(selector "printToPrinter:completionHandler:") ~typ:(id @-> (ptr void) @-> returning bool) x completionHandler +let printer self = msg_send ~self ~cmd:(selector "printer") ~typ:(returning id) +let printingItem self = msg_send ~self ~cmd:(selector "printingItem") ~typ:(returning id) +let printingItems self = msg_send ~self ~cmd:(selector "printingItems") ~typ:(returning id) +let removeFileAtURL x self = msg_send ~self ~cmd:(selector "removeFileAtURL:") ~typ:(id @-> returning void) x +let rendererToUse self = msg_send ~self ~cmd:(selector "rendererToUse") ~typ:(returning id) +let saveFileURL self = msg_send ~self ~cmd:(selector "saveFileURL") ~typ:(returning id) +let savePDFToURL x ~completionHandler self = msg_send ~self ~cmd:(selector "savePDFToURL:completionHandler:") ~typ:(id @-> (ptr void) @-> returning bool) x completionHandler +let savePDFToURL1 x ~showProgress ~completionHandler self = msg_send ~self ~cmd:(selector "savePDFToURL:showProgress:completionHandler:") ~typ:(id @-> bool @-> (ptr void) @-> returning bool) x showProgress completionHandler +let savePDFToURL2 x ~showProgress ~hostingScene ~completionHandler self = msg_send ~self ~cmd:(selector "savePDFToURL:showProgress:hostingScene:completionHandler:") ~typ:(id @-> bool @-> id @-> (ptr void) @-> returning bool) x showProgress hostingScene completionHandler +let setActivePrintInfo x self = msg_send ~self ~cmd:(selector "setActivePrintInfo:") ~typ:(id @-> returning void) x +let setCurrentPage x self = msg_send ~self ~cmd:(selector "setCurrentPage:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCurrentRange x self = msg_send ~self ~cmd:(selector "setCurrentRange:") ~typ:(NSRange.t @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setFormatterRenderer x self = msg_send ~self ~cmd:(selector "setFormatterRenderer:") ~typ:(id @-> returning void) x +let setHostingWindowScene x self = msg_send ~self ~cmd:(selector "setHostingWindowScene:") ~typ:(id @-> returning void) x +let setIsContentManaged x self = msg_send ~self ~cmd:(selector "setIsContentManaged:") ~typ:(bool @-> returning void) x +let setManualPrintPageEnabled x self = msg_send ~self ~cmd:(selector "setManualPrintPageEnabled:") ~typ:(bool @-> returning void) x +let setPageCount x self = msg_send ~self ~cmd:(selector "setPageCount:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPageCountWithRanges x self = msg_send ~self ~cmd:(selector "setPageCountWithRanges:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPageRanges x self = msg_send ~self ~cmd:(selector "setPageRanges:") ~typ:(id @-> returning void) x +let setPagesDrawn x self = msg_send ~self ~cmd:(selector "setPagesDrawn:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPaper x self = msg_send ~self ~cmd:(selector "setPaper:") ~typ:(id @-> returning void) x +let setPdfPassword x self = msg_send ~self ~cmd:(selector "setPdfPassword:") ~typ:(id @-> returning void) x +let setPreviewStates x self = msg_send ~self ~cmd:(selector "setPreviewStates:") ~typ:(id @-> returning void) x +let setPrintActivityDelegate x self = msg_send ~self ~cmd:(selector "setPrintActivityDelegate:") ~typ:(id @-> returning void) x +let setPrintFormatter x self = msg_send ~self ~cmd:(selector "setPrintFormatter:") ~typ:(id @-> returning void) x +let setPrintInfo x self = msg_send ~self ~cmd:(selector "setPrintInfo:") ~typ:(id @-> returning void) x +let setPrintInfoState x self = msg_send ~self ~cmd:(selector "setPrintInfoState:") ~typ:(int @-> returning void) x +let setPrintPageRenderer x self = msg_send ~self ~cmd:(selector "setPrintPageRenderer:") ~typ:(id @-> returning void) x +let setPrintPanelViewController x self = msg_send ~self ~cmd:(selector "setPrintPanelViewController:") ~typ:(id @-> returning void) x +let setPrintSettings x self = msg_send ~self ~cmd:(selector "setPrintSettings:") ~typ:(id @-> returning void) x +let setPrintStateActive x self = msg_send ~self ~cmd:(selector "setPrintStateActive:") ~typ:(bool @-> returning void) x +let setPrinter x self = msg_send ~self ~cmd:(selector "setPrinter:") ~typ:(id @-> returning void) x +let setPrintingItem x self = msg_send ~self ~cmd:(selector "setPrintingItem:") ~typ:(id @-> returning void) x +let setPrintingItems x self = msg_send ~self ~cmd:(selector "setPrintingItems:") ~typ:(id @-> returning void) x +let setSaveFileURL x self = msg_send ~self ~cmd:(selector "setSaveFileURL:") ~typ:(id @-> returning void) x +let setShowPrintingProgress x self = msg_send ~self ~cmd:(selector "setShowPrintingProgress:") ~typ:(bool @-> returning void) x +let setShowsNumberOfCopies x self = msg_send ~self ~cmd:(selector "setShowsNumberOfCopies:") ~typ:(bool @-> returning void) x +let setShowsPageRange x self = msg_send ~self ~cmd:(selector "setShowsPageRange:") ~typ:(bool @-> returning void) x +let setShowsPaperOrientation x self = msg_send ~self ~cmd:(selector "setShowsPaperOrientation:") ~typ:(bool @-> returning void) x +let setShowsPaperSelectionForLoadedPapers x self = msg_send ~self ~cmd:(selector "setShowsPaperSelectionForLoadedPapers:") ~typ:(bool @-> returning void) x +let setSupressNotifyDismissed x self = msg_send ~self ~cmd:(selector "setSupressNotifyDismissed:") ~typ:(bool @-> returning void) x +let setTempPreviewFileURL x self = msg_send ~self ~cmd:(selector "setTempPreviewFileURL:") ~typ:(id @-> returning void) x +let showPrintingProgress self = msg_send ~self ~cmd:(selector "showPrintingProgress") ~typ:(returning bool) +let showsNumberOfCopies self = msg_send ~self ~cmd:(selector "showsNumberOfCopies") ~typ:(returning bool) +let showsPageRange self = msg_send ~self ~cmd:(selector "showsPageRange") ~typ:(returning bool) +let showsPaperOrientation self = msg_send ~self ~cmd:(selector "showsPaperOrientation") ~typ:(returning bool) +let showsPaperSelectionForLoadedPapers self = msg_send ~self ~cmd:(selector "showsPaperSelectionForLoadedPapers") ~typ:(returning bool) +let supressNotifyDismissed self = msg_send ~self ~cmd:(selector "supressNotifyDismissed") ~typ:(returning bool) +let tempPreviewFileURL self = msg_send ~self ~cmd:(selector "tempPreviewFileURL") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPrintInteractionControllerClass.ml b/uikit/UIPrintInteractionControllerClass.ml new file mode 100644 index 00000000..d1c6359d --- /dev/null +++ b/uikit/UIPrintInteractionControllerClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprintinteractioncontroller?language=objc}UIPrintInteractionController} *) + +let canPrintData x self = msg_send ~self ~cmd:(selector "canPrintData:") ~typ:(id @-> returning bool) x +let canPrintURL x self = msg_send ~self ~cmd:(selector "canPrintURL:") ~typ:(id @-> returning bool) x +let isPrintingAvailable self = msg_send ~self ~cmd:(selector "isPrintingAvailable") ~typ:(returning bool) +let printableUTIs self = msg_send ~self ~cmd:(selector "printableUTIs") ~typ:(returning id) +let sharedPrintController self = msg_send ~self ~cmd:(selector "sharedPrintController") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPrintPageRenderer.ml b/uikit/UIPrintPageRenderer.ml new file mode 100644 index 00000000..50f0c175 --- /dev/null +++ b/uikit/UIPrintPageRenderer.ml @@ -0,0 +1,39 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprintpagerenderer?language=objc}UIPrintPageRenderer} *) + +let self = get_class "UIPrintPageRenderer" + +let addPrintFormatter x ~startingAtPageAtIndex self = msg_send ~self ~cmd:(selector "addPrintFormatter:startingAtPageAtIndex:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int startingAtPageAtIndex) +let currentRenderingQuality self = msg_send ~self ~cmd:(selector "currentRenderingQuality") ~typ:(returning llong) +let currentRenderingQualityForRequestedRenderingQuality x self = msg_send ~self ~cmd:(selector "currentRenderingQualityForRequestedRenderingQuality:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let drawContentForPageAtIndex x ~inRect self = msg_send ~self ~cmd:(selector "drawContentForPageAtIndex:inRect:") ~typ:(llong @-> CGRect.t @-> returning void) (LLong.of_int x) inRect +let drawFooterForPageAtIndex x ~inRect self = msg_send ~self ~cmd:(selector "drawFooterForPageAtIndex:inRect:") ~typ:(llong @-> CGRect.t @-> returning void) (LLong.of_int x) inRect +let drawHeaderForPageAtIndex x ~inRect self = msg_send ~self ~cmd:(selector "drawHeaderForPageAtIndex:inRect:") ~typ:(llong @-> CGRect.t @-> returning void) (LLong.of_int x) inRect +let drawPageAtIndex x ~inRect self = msg_send ~self ~cmd:(selector "drawPageAtIndex:inRect:") ~typ:(llong @-> CGRect.t @-> returning void) (LLong.of_int x) inRect +let drawPrintFormatter x ~forPageAtIndex self = msg_send ~self ~cmd:(selector "drawPrintFormatter:forPageAtIndex:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forPageAtIndex) +let footerHeight self = msg_send ~self ~cmd:(selector "footerHeight") ~typ:(returning double) +let headerHeight self = msg_send ~self ~cmd:(selector "headerHeight") ~typ:(returning double) +let numberOfPages self = msg_send ~self ~cmd:(selector "numberOfPages") ~typ:(returning llong) +let paperRect self = msg_send ~self ~cmd:(selector "paperRect") ~typ:(returning CGRect.t) +let prepareForDrawingPages x self = msg_send ~self ~cmd:(selector "prepareForDrawingPages:") ~typ:(NSRange.t @-> returning void) x +let printFormatters self = msg_send ~self ~cmd:(selector "printFormatters") ~typ:(returning id) +let printFormattersForPageAtIndex x self = msg_send ~self ~cmd:(selector "printFormattersForPageAtIndex:") ~typ:(llong @-> returning id) (LLong.of_int x) +let printableRect self = msg_send ~self ~cmd:(selector "printableRect") ~typ:(returning CGRect.t) +let requestedRenderingQuality self = msg_send ~self ~cmd:(selector "requestedRenderingQuality") ~typ:(returning llong) +let setCurrentRenderingQuality x self = msg_send ~self ~cmd:(selector "setCurrentRenderingQuality:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setFooterHeight x self = msg_send ~self ~cmd:(selector "setFooterHeight:") ~typ:(double @-> returning void) x +let setHeaderHeight x self = msg_send ~self ~cmd:(selector "setHeaderHeight:") ~typ:(double @-> returning void) x +let setPaperRect x self = msg_send ~self ~cmd:(selector "setPaperRect:") ~typ:(CGRect.t @-> returning void) x +let setPrintFormatters x self = msg_send ~self ~cmd:(selector "setPrintFormatters:") ~typ:(id @-> returning void) x +let setPrintableRect x self = msg_send ~self ~cmd:(selector "setPrintableRect:") ~typ:(CGRect.t @-> returning void) x +let setRequestedRenderingQuality x self = msg_send ~self ~cmd:(selector "setRequestedRenderingQuality:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIPrintPanelViewController.ml b/uikit/UIPrintPanelViewController.ml new file mode 100644 index 00000000..f6ccba70 --- /dev/null +++ b/uikit/UIPrintPanelViewController.ml @@ -0,0 +1,38 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprintpanelviewcontroller?language=objc}UIPrintPanelViewController} *) + +let self = get_class "UIPrintPanelViewController" + +let appPrintExtensionController self = msg_send ~self ~cmd:(selector "appPrintExtensionController") ~typ:(returning id) +let cancelPrinting self = msg_send ~self ~cmd:(selector "cancelPrinting") ~typ:(returning void) +let dismissAnimated x self = msg_send ~self ~cmd:(selector "dismissAnimated:") ~typ:(bool @-> returning void) x +let filtersPrinters self = msg_send ~self ~cmd:(selector "filtersPrinters") ~typ:(returning bool) +let initWithPrintInterationController x ~inParentController self = msg_send ~self ~cmd:(selector "initWithPrintInterationController:inParentController:") ~typ:(id @-> id @-> returning id) x inParentController +let presentPrintPanelAnimated x ~hostingScene self = msg_send ~self ~cmd:(selector "presentPrintPanelAnimated:hostingScene:") ~typ:(bool @-> id @-> returning void) x hostingScene +let presentPrintPanelFromBarButtonItem x ~animated self = msg_send ~self ~cmd:(selector "presentPrintPanelFromBarButtonItem:animated:") ~typ:(id @-> bool @-> returning void) x animated +let presentPrintPanelFromRect x ~inView ~animated self = msg_send ~self ~cmd:(selector "presentPrintPanelFromRect:inView:animated:") ~typ:(CGRect.t @-> id @-> bool @-> returning void) x inView animated +let printInfo self = msg_send ~self ~cmd:(selector "printInfo") ~typ:(returning id) +let printInteractionController self = msg_send ~self ~cmd:(selector "printInteractionController") ~typ:(returning id) +let printOptionsNavController self = msg_send ~self ~cmd:(selector "printOptionsNavController") ~typ:(returning id) +let printOptionsTableView self = msg_send ~self ~cmd:(selector "printOptionsTableView") ~typ:(returning id) +let printPaper self = msg_send ~self ~cmd:(selector "printPaper") ~typ:(returning id) +let printer self = msg_send ~self ~cmd:(selector "printer") ~typ:(returning id) +let setAppPrintExtensionController x self = msg_send ~self ~cmd:(selector "setAppPrintExtensionController:") ~typ:(id @-> returning void) x +let setPrintInfo x self = msg_send ~self ~cmd:(selector "setPrintInfo:") ~typ:(id @-> returning void) x +let setPrintInteractionController x self = msg_send ~self ~cmd:(selector "setPrintInteractionController:") ~typ:(id @-> returning void) x +let setPrintOptionsNavController x self = msg_send ~self ~cmd:(selector "setPrintOptionsNavController:") ~typ:(id @-> returning void) x +let setPrintOptionsTableView x self = msg_send ~self ~cmd:(selector "setPrintOptionsTableView:") ~typ:(id @-> returning void) x +let setPrintPaper x self = msg_send ~self ~cmd:(selector "setPrintPaper:") ~typ:(id @-> returning void) x +let setPrinter x self = msg_send ~self ~cmd:(selector "setPrinter:") ~typ:(id @-> returning void) x +let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let startPrinting self = msg_send ~self ~cmd:(selector "startPrinting") ~typ:(returning void) +let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning ullong) \ No newline at end of file diff --git a/uikit/UIPrintPaper.ml b/uikit/UIPrintPaper.ml new file mode 100644 index 00000000..95449b01 --- /dev/null +++ b/uikit/UIPrintPaper.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprintpaper?language=objc}UIPrintPaper} *) + +let self = get_class "UIPrintPaper" + +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let paperSize self = msg_send ~self ~cmd:(selector "paperSize") ~typ:(returning CGSize.t) +let printRect self = msg_send ~self ~cmd:(selector "printRect") ~typ:(returning CGRect.t) +let printableRect self = msg_send ~self ~cmd:(selector "printableRect") ~typ:(returning CGRect.t) \ No newline at end of file diff --git a/uikit/UIPrintPaperClass.ml b/uikit/UIPrintPaperClass.ml new file mode 100644 index 00000000..7ee66ca2 --- /dev/null +++ b/uikit/UIPrintPaperClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprintpaper?language=objc}UIPrintPaper} *) + +let bestPaperForPageSize x ~withPapersFromArray self = msg_send ~self ~cmd:(selector "bestPaperForPageSize:withPapersFromArray:") ~typ:(CGSize.t @-> id @-> returning id) x withPapersFromArray +let bestPaperForPageSize' x ~andContentType ~withPapersFromArray self = msg_send ~self ~cmd:(selector "bestPaperForPageSize:andContentType:withPapersFromArray:") ~typ:(CGSize.t @-> llong @-> id @-> returning id) x (LLong.of_int andContentType) withPapersFromArray \ No newline at end of file diff --git a/uikit/UIPrintPreviewState.ml b/uikit/UIPrintPreviewState.ml new file mode 100644 index 00000000..71568c0f --- /dev/null +++ b/uikit/UIPrintPreviewState.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprintpreviewstate?language=objc}UIPrintPreviewState} *) + +let self = get_class "UIPrintPreviewState" + +let cancelled self = msg_send ~self ~cmd:(selector "cancelled") ~typ:(returning bool) +let setCancelled x self = msg_send ~self ~cmd:(selector "setCancelled:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPrintServiceExtension.ml b/uikit/UIPrintServiceExtension.ml new file mode 100644 index 00000000..ff098b3f --- /dev/null +++ b/uikit/UIPrintServiceExtension.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprintserviceextension?language=objc}UIPrintServiceExtension} *) + +let self = get_class "UIPrintServiceExtension" + +let beginRequestWithExtensionContext x self = msg_send ~self ~cmd:(selector "beginRequestWithExtensionContext:") ~typ:(id @-> returning void) x +let extensionContext self = msg_send ~self ~cmd:(selector "extensionContext") ~typ:(returning id) +let printerDestinationsForPrintInfo x self = msg_send ~self ~cmd:(selector "printerDestinationsForPrintInfo:") ~typ:(id @-> returning id) x +let setExtensionContext x self = msg_send ~self ~cmd:(selector "setExtensionContext:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPrintServiceExtensionContext.ml b/uikit/UIPrintServiceExtensionContext.ml new file mode 100644 index 00000000..6ac75b56 --- /dev/null +++ b/uikit/UIPrintServiceExtensionContext.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprintserviceextensioncontext?language=objc}UIPrintServiceExtensionContext} *) + +let self = get_class "UIPrintServiceExtensionContext" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPrinter.ml b/uikit/UIPrinter.ml new file mode 100644 index 00000000..ce9cd101 --- /dev/null +++ b/uikit/UIPrinter.ml @@ -0,0 +1,34 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprinter?language=objc}UIPrinter} *) + +let self = get_class "UIPrinter" + +let _URL self = msg_send ~self ~cmd:(selector "URL") ~typ:(returning id) +let contactPrinter x self = msg_send ~self ~cmd:(selector "contactPrinter:") ~typ:((ptr void) @-> returning void) x +let displayLocation self = msg_send ~self ~cmd:(selector "displayLocation") ~typ:(returning id) +let displayName self = msg_send ~self ~cmd:(selector "displayName") ~typ:(returning id) +let finishingTemplates self = msg_send ~self ~cmd:(selector "finishingTemplates") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let jobAccountIDSupport self = msg_send ~self ~cmd:(selector "jobAccountIDSupport") ~typ:(returning llong) +let loadedPapers self = msg_send ~self ~cmd:(selector "loadedPapers") ~typ:(returning id) +let makeAndModel self = msg_send ~self ~cmd:(selector "makeAndModel") ~typ:(returning id) +let outputBins self = msg_send ~self ~cmd:(selector "outputBins") ~typ:(returning id) +let printerFinishingOptions self = msg_send ~self ~cmd:(selector "printerFinishingOptions") ~typ:(returning id) +let supportedJobTypes self = msg_send ~self ~cmd:(selector "supportedJobTypes") ~typ:(returning llong) +let supportedMediaTypes self = msg_send ~self ~cmd:(selector "supportedMediaTypes") ~typ:(returning id) +let supportedPapers self = msg_send ~self ~cmd:(selector "supportedPapers") ~typ:(returning id) +let supportedPresets self = msg_send ~self ~cmd:(selector "supportedPresets") ~typ:(returning id) +let supportedQualities self = msg_send ~self ~cmd:(selector "supportedQualities") ~typ:(returning id) +let supportedTrays self = msg_send ~self ~cmd:(selector "supportedTrays") ~typ:(returning id) +let supportsColor self = msg_send ~self ~cmd:(selector "supportsColor") ~typ:(returning bool) +let supportsDuplex self = msg_send ~self ~cmd:(selector "supportsDuplex") ~typ:(returning bool) +let supportsJobAccountID self = msg_send ~self ~cmd:(selector "supportsJobAccountID") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIPrinterClass.ml b/uikit/UIPrinterClass.ml new file mode 100644 index 00000000..516f57e6 --- /dev/null +++ b/uikit/UIPrinterClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprinter?language=objc}UIPrinter} *) + +let printerWithURL x self = msg_send ~self ~cmd:(selector "printerWithURL:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIPrinterDestination.ml b/uikit/UIPrinterDestination.ml new file mode 100644 index 00000000..9da7fb41 --- /dev/null +++ b/uikit/UIPrinterDestination.ml @@ -0,0 +1,24 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprinterdestination?language=objc}UIPrinterDestination} *) + +let self = get_class "UIPrinterDestination" + +let _URL self = msg_send ~self ~cmd:(selector "URL") ~typ:(returning id) +let dictionaryRepresentation self = msg_send ~self ~cmd:(selector "dictionaryRepresentation") ~typ:(returning id) +let displayName self = msg_send ~self ~cmd:(selector "displayName") ~typ:(returning id) +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 initWithURL x self = msg_send ~self ~cmd:(selector "initWithURL:") ~typ:(id @-> returning id) x +let setDisplayName x self = msg_send ~self ~cmd:(selector "setDisplayName:") ~typ:(id @-> returning void) x +let setTxtRecord x self = msg_send ~self ~cmd:(selector "setTxtRecord:") ~typ:(id @-> returning void) x +let setURL x self = msg_send ~self ~cmd:(selector "setURL:") ~typ:(id @-> returning void) x +let txtRecord self = msg_send ~self ~cmd:(selector "txtRecord") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIPrinterDestinationClass.ml b/uikit/UIPrinterDestinationClass.ml new file mode 100644 index 00000000..cdd348f8 --- /dev/null +++ b/uikit/UIPrinterDestinationClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprinterdestination?language=objc}UIPrinterDestination} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIPrinterPickerController.ml b/uikit/UIPrinterPickerController.ml new file mode 100644 index 00000000..06f83d86 --- /dev/null +++ b/uikit/UIPrinterPickerController.ml @@ -0,0 +1,24 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprinterpickercontroller?language=objc}UIPrinterPickerController} *) + +let self = get_class "UIPrinterPickerController" + +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let dismissAnimated x self = msg_send ~self ~cmd:(selector "dismissAnimated:") ~typ:(bool @-> returning void) x +let initWithInitiallySelectedPrinter x self = msg_send ~self ~cmd:(selector "initWithInitiallySelectedPrinter:") ~typ:(id @-> returning id) x +let presentAnimated x ~completionHandler self = msg_send ~self ~cmd:(selector "presentAnimated:completionHandler:") ~typ:(bool @-> (ptr void) @-> returning bool) x completionHandler +let presentAnimated' x ~hostingScene ~completionHandler self = msg_send ~self ~cmd:(selector "presentAnimated:hostingScene:completionHandler:") ~typ:(bool @-> id @-> (ptr void) @-> returning bool) x hostingScene completionHandler +let presentFromBarButtonItem x ~animated ~completionHandler self = msg_send ~self ~cmd:(selector "presentFromBarButtonItem:animated:completionHandler:") ~typ:(id @-> bool @-> (ptr void) @-> returning bool) x animated completionHandler +let presentFromRect x ~inView ~animated ~completionHandler self = msg_send ~self ~cmd:(selector "presentFromRect:inView:animated:completionHandler:") ~typ:(CGRect.t @-> id @-> bool @-> (ptr void) @-> returning bool) x inView animated completionHandler +let selectedPrinter self = msg_send ~self ~cmd:(selector "selectedPrinter") ~typ:(returning id) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setSelectedPrinter x self = msg_send ~self ~cmd:(selector "setSelectedPrinter:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPrinterPickerControllerClass.ml b/uikit/UIPrinterPickerControllerClass.ml new file mode 100644 index 00000000..2b1ea528 --- /dev/null +++ b/uikit/UIPrinterPickerControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprinterpickercontroller?language=objc}UIPrinterPickerController} *) + +let printerPickerControllerWithInitiallySelectedPrinter x self = msg_send ~self ~cmd:(selector "printerPickerControllerWithInitiallySelectedPrinter:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIPrinterSetupConnectingView.ml b/uikit/UIPrinterSetupConnectingView.ml new file mode 100644 index 00000000..3430fc14 --- /dev/null +++ b/uikit/UIPrinterSetupConnectingView.ml @@ -0,0 +1,25 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprintersetupconnectingview?language=objc}UIPrinterSetupConnectingView} *) + +let self = get_class "UIPrinterSetupConnectingView" + +let activityIndicator self = msg_send ~self ~cmd:(selector "activityIndicator") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let presentView self = msg_send ~self ~cmd:(selector "presentView") ~typ:(returning void) +let presentationTime self = msg_send ~self ~cmd:(selector "presentationTime") ~typ:(returning double) +let setActivityIndicator x self = msg_send ~self ~cmd:(selector "setActivityIndicator:") ~typ:(id @-> returning void) x +let setLabel x self = msg_send ~self ~cmd:(selector "setLabel:") ~typ:(id @-> returning void) x +let setMessage x ~active self = msg_send ~self ~cmd:(selector "setMessage:active:") ~typ:(id @-> bool @-> returning void) x active +let setPresentationTime x self = msg_send ~self ~cmd:(selector "setPresentationTime:") ~typ:(double @-> returning void) x +let willMoveToSuperview x self = msg_send ~self ~cmd:(selector "willMoveToSuperview:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPrintingMessageView.ml b/uikit/UIPrintingMessageView.ml new file mode 100644 index 00000000..81cf06f3 --- /dev/null +++ b/uikit/UIPrintingMessageView.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprintingmessageview?language=objc}UIPrintingMessageView} *) + +let self = get_class "UIPrintingMessageView" + +let initInView x ~title self = msg_send ~self ~cmd:(selector "initInView:title:") ~typ:(id @-> id @-> returning id) x title +let setMessage x self = msg_send ~self ~cmd:(selector "setMessage:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIProgressHUD.ml b/uikit/UIProgressHUD.ml index f195bb14..9b4517c6 100644 --- a/uikit/UIProgressHUD.ml +++ b/uikit/UIProgressHUD.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIProgressHUD" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprogresshud?language=objc}UIProgressHUD} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let done_ self = msg_send ~self ~cmd:(selector "done") ~typ:(returning (void)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let hide self = msg_send ~self ~cmd:(selector "hide") ~typ:(returning (void)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithWindow x self = msg_send ~self ~cmd:(selector "initWithWindow:") ~typ:(id @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setFontSize x self = msg_send ~self ~cmd:(selector "setFontSize:") ~typ:(int @-> returning (void)) x -let setShowsText x self = msg_send ~self ~cmd:(selector "setShowsText:") ~typ:(bool @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let show x self = msg_send ~self ~cmd:(selector "show:") ~typ:(bool @-> returning (void)) x -let showInView x self = msg_send ~self ~cmd:(selector "showInView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIProgressHUD" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let done_ self = msg_send ~self ~cmd:(selector "done") ~typ:(returning void) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let hide self = msg_send ~self ~cmd:(selector "hide") ~typ:(returning void) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithWindow x self = msg_send ~self ~cmd:(selector "initWithWindow:") ~typ:(id @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setFontSize x self = msg_send ~self ~cmd:(selector "setFontSize:") ~typ:(int @-> returning void) x +let setShowsText x self = msg_send ~self ~cmd:(selector "setShowsText:") ~typ:(bool @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let show x self = msg_send ~self ~cmd:(selector "show:") ~typ:(bool @-> returning void) x +let showInView x self = msg_send ~self ~cmd:(selector "showInView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIProgressIndicator.ml b/uikit/UIProgressIndicator.ml index 19947af7..021f4a87 100644 --- a/uikit/UIProgressIndicator.ml +++ b/uikit/UIProgressIndicator.ml @@ -5,16 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIProgressIndicator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprogressindicator?language=objc}UIProgressIndicator} *) -module C = struct - let size self = msg_send_stret ~self ~cmd:(selector "size") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -end +let self = get_class "UIProgressIndicator" -let progressIndicatorStyle self = msg_send ~self ~cmd:(selector "progressIndicatorStyle") ~typ:(returning (int)) -let setAnimating x self = msg_send ~self ~cmd:(selector "setAnimating:") ~typ:(bool @-> returning (void)) x -let setProgressIndicatorStyle x self = msg_send ~self ~cmd:(selector "setProgressIndicatorStyle:") ~typ:(int @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(int @-> returning (void)) x -let startAnimation self = msg_send ~self ~cmd:(selector "startAnimation") ~typ:(returning (void)) -let stopAnimation self = msg_send ~self ~cmd:(selector "stopAnimation") ~typ:(returning (void)) \ No newline at end of file +let progressIndicatorStyle self = msg_send ~self ~cmd:(selector "progressIndicatorStyle") ~typ:(returning int) +let setAnimating x self = msg_send ~self ~cmd:(selector "setAnimating:") ~typ:(bool @-> returning void) x +let setProgressIndicatorStyle x self = msg_send ~self ~cmd:(selector "setProgressIndicatorStyle:") ~typ:(int @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(int @-> returning void) x +let startAnimation self = msg_send ~self ~cmd:(selector "startAnimation") ~typ:(returning void) +let stopAnimation self = msg_send ~self ~cmd:(selector "stopAnimation") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIProgressIndicatorClass.ml b/uikit/UIProgressIndicatorClass.ml new file mode 100644 index 00000000..393e42d9 --- /dev/null +++ b/uikit/UIProgressIndicatorClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprogressindicator?language=objc}UIProgressIndicator} *) + +let size self = msg_send ~self ~cmd:(selector "size") ~typ:(returning CGSize.t) \ No newline at end of file diff --git a/uikit/UIProgressView.ml b/uikit/UIProgressView.ml index 9b9ddfaa..c6b2c17f 100644 --- a/uikit/UIProgressView.ml +++ b/uikit/UIProgressView.ml @@ -5,38 +5,39 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIProgressView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprogressview?language=objc}UIProgressView} *) -module C = struct - let defaultSize self = msg_send_stret ~self ~cmd:(selector "defaultSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -end +let self = get_class "UIProgressView" -let barStyle self = msg_send ~self ~cmd:(selector "barStyle") ~typ:(returning (llong)) -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 initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithProgressViewStyle x self = msg_send ~self ~cmd:(selector "initWithProgressViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let observedProgress self = msg_send ~self ~cmd:(selector "observedProgress") ~typ:(returning (id)) -let progress self = msg_send ~self ~cmd:(selector "progress") ~typ:(returning (float)) -let progressImage self = msg_send ~self ~cmd:(selector "progressImage") ~typ:(returning (id)) -let progressTintColor self = msg_send ~self ~cmd:(selector "progressTintColor") ~typ:(returning (id)) -let progressViewStyle self = msg_send ~self ~cmd:(selector "progressViewStyle") ~typ:(returning (llong)) -let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setObservedProgress x self = msg_send ~self ~cmd:(selector "setObservedProgress:") ~typ:(id @-> returning (void)) x -let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(float @-> returning (void)) x -let setProgress' x ~animated self = msg_send ~self ~cmd:(selector "setProgress:animated:") ~typ:(float @-> bool @-> returning (void)) x animated -let setProgressImage x self = msg_send ~self ~cmd:(selector "setProgressImage:") ~typ:(id @-> returning (void)) x -let setProgressTintColor x self = msg_send ~self ~cmd:(selector "setProgressTintColor:") ~typ:(id @-> returning (void)) x -let setProgressViewStyle x self = msg_send ~self ~cmd:(selector "setProgressViewStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTrackImage x self = msg_send ~self ~cmd:(selector "setTrackImage:") ~typ:(id @-> returning (void)) x -let setTrackTintColor x self = msg_send ~self ~cmd:(selector "setTrackTintColor:") ~typ:(id @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let trackImage self = msg_send ~self ~cmd:(selector "trackImage") ~typ:(returning (id)) -let trackTintColor self = msg_send ~self ~cmd:(selector "trackTintColor") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let barStyle self = msg_send ~self ~cmd:(selector "barStyle") ~typ:(returning llong) +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 initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithProgressViewStyle x self = msg_send ~self ~cmd:(selector "initWithProgressViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let observedProgress self = msg_send ~self ~cmd:(selector "observedProgress") ~typ:(returning id) +let progress self = msg_send ~self ~cmd:(selector "progress") ~typ:(returning float) +let progressImage self = msg_send ~self ~cmd:(selector "progressImage") ~typ:(returning id) +let progressTintColor self = msg_send ~self ~cmd:(selector "progressTintColor") ~typ:(returning id) +let progressViewStyle self = msg_send ~self ~cmd:(selector "progressViewStyle") ~typ:(returning llong) +let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setObservedProgress x self = msg_send ~self ~cmd:(selector "setObservedProgress:") ~typ:(id @-> returning void) x +let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(float @-> returning void) x +let setProgress' x ~animated self = msg_send ~self ~cmd:(selector "setProgress:animated:") ~typ:(float @-> bool @-> returning void) x animated +let setProgressImage x self = msg_send ~self ~cmd:(selector "setProgressImage:") ~typ:(id @-> returning void) x +let setProgressTintColor x self = msg_send ~self ~cmd:(selector "setProgressTintColor:") ~typ:(id @-> returning void) x +let setProgressViewStyle x self = msg_send ~self ~cmd:(selector "setProgressViewStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTrackImage x self = msg_send ~self ~cmd:(selector "setTrackImage:") ~typ:(id @-> returning void) x +let setTrackTintColor x self = msg_send ~self ~cmd:(selector "setTrackTintColor:") ~typ:(id @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let trackImage self = msg_send ~self ~cmd:(selector "trackImage") ~typ:(returning id) +let trackTintColor self = msg_send ~self ~cmd:(selector "trackTintColor") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIProgressViewClass.ml b/uikit/UIProgressViewClass.ml new file mode 100644 index 00000000..67008150 --- /dev/null +++ b/uikit/UIProgressViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprogressview?language=objc}UIProgressView} *) + +let defaultSize self = msg_send ~self ~cmd:(selector "defaultSize") ~typ:(returning CGSize.t) \ No newline at end of file diff --git a/uikit/UIProgressViewMacVisualElement.ml b/uikit/UIProgressViewMacVisualElement.ml index bfd97216..e0968c69 100644 --- a/uikit/UIProgressViewMacVisualElement.ml +++ b/uikit/UIProgressViewMacVisualElement.ml @@ -5,9 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIProgressViewMacVisualElement" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiprogressviewmacvisualelement?language=objc}UIProgressViewMacVisualElement} *) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let setControlSize x self = msg_send ~self ~cmd:(selector "setControlSize:") ~typ:(int @-> returning (void)) x -let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(float @-> returning (void)) x \ No newline at end of file +let self = get_class "UIProgressViewMacVisualElement" + +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let setControlSize x self = msg_send ~self ~cmd:(selector "setControlSize:") ~typ:(int @-> returning void) x +let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(float @-> returning void) x \ No newline at end of file diff --git a/uikit/UIProxyObject.ml b/uikit/UIProxyObject.ml index 29a9a06a..26d384f4 100644 --- a/uikit/UIProxyObject.ml +++ b/uikit/UIProxyObject.ml @@ -5,18 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIProxyObject" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiproxyobject?language=objc}UIProxyObject} *) -module C = struct - let addMappingFromIdentifier x ~toObject ~forCoder self = msg_send ~self ~cmd:(selector "addMappingFromIdentifier:toObject:forCoder:") ~typ:(id @-> id @-> id @-> returning (void)) x toObject forCoder - let addMappings x ~forCoder self = msg_send ~self ~cmd:(selector "addMappings:forCoder:") ~typ:(id @-> id @-> returning (void)) x forCoder - let mappedObjectForCoder x ~withIdentifier self = msg_send ~self ~cmd:(selector "mappedObjectForCoder:withIdentifier:") ~typ:(id @-> id @-> returning (id)) x withIdentifier - let proxyDecodingMap self = msg_send ~self ~cmd:(selector "proxyDecodingMap") ~typ:(returning (ptr void)) - let removeMappingsForCoder x self = msg_send ~self ~cmd:(selector "removeMappingsForCoder:") ~typ:(id @-> returning (void)) x -end +let self = get_class "UIProxyObject" -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 proxiedObjectIdentifier self = msg_send ~self ~cmd:(selector "proxiedObjectIdentifier") ~typ:(returning (id)) -let setProxiedObjectIdentifier x self = msg_send ~self ~cmd:(selector "setProxiedObjectIdentifier:") ~typ:(id @-> returning (void)) x \ No newline at end of file +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 proxiedObjectIdentifier self = msg_send ~self ~cmd:(selector "proxiedObjectIdentifier") ~typ:(returning id) +let setProxiedObjectIdentifier x self = msg_send ~self ~cmd:(selector "setProxiedObjectIdentifier:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIProxyObjectClass.ml b/uikit/UIProxyObjectClass.ml new file mode 100644 index 00000000..9c96bc85 --- /dev/null +++ b/uikit/UIProxyObjectClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiproxyobject?language=objc}UIProxyObject} *) + +let addMappingFromIdentifier x ~toObject ~forCoder self = msg_send ~self ~cmd:(selector "addMappingFromIdentifier:toObject:forCoder:") ~typ:(id @-> id @-> id @-> returning void) x toObject forCoder +let addMappings x ~forCoder self = msg_send ~self ~cmd:(selector "addMappings:forCoder:") ~typ:(id @-> id @-> returning void) x forCoder +let mappedObjectForCoder x ~withIdentifier self = msg_send ~self ~cmd:(selector "mappedObjectForCoder:withIdentifier:") ~typ:(id @-> id @-> returning id) x withIdentifier +let proxyDecodingMap self = msg_send ~self ~cmd:(selector "proxyDecodingMap") ~typ:(returning (ptr CFDictionary.t)) +let removeMappingsForCoder x self = msg_send ~self ~cmd:(selector "removeMappingsForCoder:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIPushBehavior.ml b/uikit/UIPushBehavior.ml index 3e6ef2b8..d44ba8ff 100644 --- a/uikit/UIPushBehavior.ml +++ b/uikit/UIPushBehavior.ml @@ -5,30 +5,36 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIPushBehavior" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipushbehavior?language=objc}UIPushBehavior} *) -let active self = msg_send ~self ~cmd:(selector "active") ~typ:(returning (bool)) -let addItem x self = msg_send ~self ~cmd:(selector "addItem:") ~typ:(id @-> returning (void)) x -let angle self = msg_send ~self ~cmd:(selector "angle") ~typ:(returning (double)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithItems x self = msg_send ~self ~cmd:(selector "initWithItems:") ~typ:(id @-> returning (id)) x -let initWithItems' x ~mode self = msg_send ~self ~cmd:(selector "initWithItems:mode:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int mode) -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let magnitude self = msg_send ~self ~cmd:(selector "magnitude") ~typ:(returning (double)) -let mode self = msg_send ~self ~cmd:(selector "mode") ~typ:(returning (llong)) -let removeItem x self = msg_send ~self ~cmd:(selector "removeItem:") ~typ:(id @-> returning (void)) x -let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning (void)) x -let setAngle x self = msg_send ~self ~cmd:(selector "setAngle:") ~typ:(double @-> returning (void)) x -let setAngle' x ~magnitude self = msg_send ~self ~cmd:(selector "setAngle:magnitude:") ~typ:(double @-> double @-> returning (void)) x magnitude -let setMagnitude x self = msg_send ~self ~cmd:(selector "setMagnitude:") ~typ:(double @-> returning (void)) x -let setPushDirection x self = msg_send ~self ~cmd:(selector "setPushDirection:") ~typ:(ptr void @-> returning (void)) x -let setTargetOffsetFromCenter x ~forItem self = msg_send ~self ~cmd:(selector "setTargetOffsetFromCenter:forItem:") ~typ:(ptr void @-> id @-> returning (void)) x forItem -let setTargetPoint x ~forItem self = msg_send ~self ~cmd:(selector "setTargetPoint:forItem:") ~typ:(CGPoint.t @-> id @-> returning (void)) x forItem -let setXComponent x self = msg_send ~self ~cmd:(selector "setXComponent:") ~typ:(double @-> returning (void)) x -let setXComponent' x ~yComponent self = msg_send ~self ~cmd:(selector "setXComponent:yComponent:") ~typ:(double @-> double @-> returning (void)) x yComponent -let setYComponent x self = msg_send ~self ~cmd:(selector "setYComponent:") ~typ:(double @-> returning (void)) x -let targetPointForItem x self = msg_send_stret ~self ~cmd:(selector "targetPointForItem:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let xComponent self = msg_send ~self ~cmd:(selector "xComponent") ~typ:(returning (double)) -let yComponent self = msg_send ~self ~cmd:(selector "yComponent") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIPushBehavior" + +let active self = msg_send ~self ~cmd:(selector "active") ~typ:(returning bool) +let addItem x self = msg_send ~self ~cmd:(selector "addItem:") ~typ:(id @-> returning void) x +let angle self = msg_send ~self ~cmd:(selector "angle") ~typ:(returning double) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithItems x self = msg_send ~self ~cmd:(selector "initWithItems:") ~typ:(id @-> returning id) x +let initWithItems' x ~mode self = msg_send ~self ~cmd:(selector "initWithItems:mode:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int mode) +let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning id) +let magnitude self = msg_send ~self ~cmd:(selector "magnitude") ~typ:(returning double) +let mode self = msg_send ~self ~cmd:(selector "mode") ~typ:(returning llong) +let pushDirection self = msg_send ~self ~cmd:(selector "pushDirection") ~typ:(returning CGVector.t) +let removeItem x self = msg_send ~self ~cmd:(selector "removeItem:") ~typ:(id @-> returning void) x +let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning void) x +let setAngle x self = msg_send ~self ~cmd:(selector "setAngle:") ~typ:(double @-> returning void) x +let setAngle' x ~magnitude self = msg_send ~self ~cmd:(selector "setAngle:magnitude:") ~typ:(double @-> double @-> returning void) x magnitude +let setMagnitude x self = msg_send ~self ~cmd:(selector "setMagnitude:") ~typ:(double @-> returning void) x +let setPushDirection x self = msg_send ~self ~cmd:(selector "setPushDirection:") ~typ:(CGVector.t @-> returning void) x +let setTargetOffsetFromCenter x ~forItem self = msg_send ~self ~cmd:(selector "setTargetOffsetFromCenter:forItem:") ~typ:(UIOffset.t @-> id @-> returning void) x forItem +let setTargetPoint x ~forItem self = msg_send ~self ~cmd:(selector "setTargetPoint:forItem:") ~typ:(CGPoint.t @-> id @-> returning void) x forItem +let setXComponent x self = msg_send ~self ~cmd:(selector "setXComponent:") ~typ:(double @-> returning void) x +let setXComponent' x ~yComponent self = msg_send ~self ~cmd:(selector "setXComponent:yComponent:") ~typ:(double @-> double @-> returning void) x yComponent +let setYComponent x self = msg_send ~self ~cmd:(selector "setYComponent:") ~typ:(double @-> returning void) x +let targetOffsetFromCenterForItem x self = msg_send ~self ~cmd:(selector "targetOffsetFromCenterForItem:") ~typ:(id @-> returning UIOffset.t) x +let targetPointForItem x self = msg_send ~self ~cmd:(selector "targetPointForItem:") ~typ:(id @-> returning CGPoint.t) x +let xComponent self = msg_send ~self ~cmd:(selector "xComponent") ~typ:(returning double) +let yComponent self = msg_send ~self ~cmd:(selector "yComponent") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIQuickLookInternalSceneSpecification.ml b/uikit/UIQuickLookInternalSceneSpecification.ml deleted file mode 100644 index 735daafc..00000000 --- a/uikit/UIQuickLookInternalSceneSpecification.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIQuickLookInternalSceneSpecification" - -let affectsAppLifecycleIfInternal self = msg_send ~self ~cmd:(selector "affectsAppLifecycleIfInternal") ~typ:(returning (bool)) -let initialActionHandlers self = msg_send ~self ~cmd:(selector "initialActionHandlers") ~typ:(returning (id)) -let isInternal self = msg_send ~self ~cmd:(selector "isInternal") ~typ:(returning (bool)) -let uiSceneSessionRole self = msg_send ~self ~cmd:(selector "uiSceneSessionRole") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIQuickLookSceneConfigurationAction.ml b/uikit/UIQuickLookSceneConfigurationAction.ml deleted file mode 100644 index af1b12c1..00000000 --- a/uikit/UIQuickLookSceneConfigurationAction.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIQuickLookSceneConfigurationAction" - -module Class = struct - let actionWithSceneConfiguration x self = msg_send ~self ~cmd:(selector "actionWithSceneConfiguration:") ~typ:(id @-> returning (id)) x -end - -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let loadSceneConfiguration self = msg_send ~self ~cmd:(selector "loadSceneConfiguration") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIRecentInputTableCell.ml b/uikit/UIRecentInputTableCell.ml index 3ccfff60..91c9554c 100644 --- a/uikit/UIRecentInputTableCell.ml +++ b/uikit/UIRecentInputTableCell.ml @@ -5,24 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRecentInputTableCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uirecentinputtablecell?language=objc}UIRecentInputTableCell} *) -module C = struct - let backgroundColorForBlurEffectStyle x self = msg_send ~self ~cmd:(selector "backgroundColorForBlurEffectStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let focusedTextColorForBlurEffectStyle x self = msg_send ~self ~cmd:(selector "focusedTextColorForBlurEffectStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let unfocusedTextColorForBlurEffectStyle x self = msg_send ~self ~cmd:(selector "unfocusedTextColorForBlurEffectStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -end +let self = get_class "UIRecentInputTableCell" -let blurEffectStyle self = msg_send ~self ~cmd:(selector "blurEffectStyle") ~typ:(returning (llong)) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let floatingContentView self = msg_send ~self ~cmd:(selector "floatingContentView") ~typ:(returning (id)) -let floatingLabel self = msg_send ~self ~cmd:(selector "floatingLabel") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setBlurEffectStyle x self = msg_send ~self ~cmd:(selector "setBlurEffectStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setFloatingLabel x self = msg_send ~self ~cmd:(selector "setFloatingLabel:") ~typ:(id @-> returning (void)) x -let setHighlighted x ~animated self = msg_send ~self ~cmd:(selector "setHighlighted:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setInputText x ~withBlurStyle self = msg_send ~self ~cmd:(selector "setInputText:withBlurStyle:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int withBlurStyle) -let setTextInputTraits x self = msg_send ~self ~cmd:(selector "setTextInputTraits:") ~typ:(id @-> returning (void)) x -let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let blurEffectStyle self = msg_send ~self ~cmd:(selector "blurEffectStyle") ~typ:(returning llong) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let floatingContentView self = msg_send ~self ~cmd:(selector "floatingContentView") ~typ:(returning id) +let floatingLabel self = msg_send ~self ~cmd:(selector "floatingLabel") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setBlurEffectStyle x self = msg_send ~self ~cmd:(selector "setBlurEffectStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setFloatingLabel x self = msg_send ~self ~cmd:(selector "setFloatingLabel:") ~typ:(id @-> returning void) x +let setHighlighted x ~animated self = msg_send ~self ~cmd:(selector "setHighlighted:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setInputText x ~withBlurStyle self = msg_send ~self ~cmd:(selector "setInputText:withBlurStyle:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int withBlurStyle) +let setTextInputTraits x self = msg_send ~self ~cmd:(selector "setTextInputTraits:") ~typ:(id @-> returning void) x +let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIRecentInputTableCellClass.ml b/uikit/UIRecentInputTableCellClass.ml new file mode 100644 index 00000000..35d5739a --- /dev/null +++ b/uikit/UIRecentInputTableCellClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uirecentinputtablecell?language=objc}UIRecentInputTableCell} *) + +let backgroundColorForBlurEffectStyle x self = msg_send ~self ~cmd:(selector "backgroundColorForBlurEffectStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let focusedTextColorForBlurEffectStyle x self = msg_send ~self ~cmd:(selector "focusedTextColorForBlurEffectStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let unfocusedTextColorForBlurEffectStyle x self = msg_send ~self ~cmd:(selector "unfocusedTextColorForBlurEffectStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIRecentsInputViewController.ml b/uikit/UIRecentsInputViewController.ml index 4cb39266..4c08f4ff 100644 --- a/uikit/UIRecentsInputViewController.ml +++ b/uikit/UIRecentsInputViewController.ml @@ -5,50 +5,54 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRecentsInputViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uirecentsinputviewcontroller?language=objc}UIRecentsInputViewController} *) -let canManageList self = msg_send ~self ~cmd:(selector "canManageList") ~typ:(returning (bool)) -let clearAllString self = msg_send ~self ~cmd:(selector "clearAllString") ~typ:(returning (id)) -let containingEffectStyle self = msg_send ~self ~cmd:(selector "containingEffectStyle") ~typ:(returning (llong)) -let customHeaderView self = msg_send ~self ~cmd:(selector "customHeaderView") ~typ:(returning (id)) -let didSelectButtonAtIndexPath x self = msg_send ~self ~cmd:(selector "didSelectButtonAtIndexPath:") ~typ:(id @-> returning (void)) x -let ensureConstraints self = msg_send ~self ~cmd:(selector "ensureConstraints") ~typ:(returning (void)) -let enterNewString self = msg_send ~self ~cmd:(selector "enterNewString") ~typ:(returning (id)) -let headerContainerView self = msg_send ~self ~cmd:(selector "headerContainerView") ~typ:(returning (id)) -let headerContainerViewController self = msg_send ~self ~cmd:(selector "headerContainerViewController") ~typ:(returning (id)) -let headerView self = msg_send ~self ~cmd:(selector "headerView") ~typ:(returning (id)) -let heightConstraint self = msg_send ~self ~cmd:(selector "heightConstraint") ~typ:(returning (id)) -let indexPathForPreferredFocusedViewInTableView x self = msg_send ~self ~cmd:(selector "indexPathForPreferredFocusedViewInTableView:") ~typ:(id @-> returning (id)) x -let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning (llong)) x -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let previouslyUsedString self = msg_send ~self ~cmd:(selector "previouslyUsedString") ~typ:(returning (id)) -let recentInputDelegate self = msg_send ~self ~cmd:(selector "recentInputDelegate") ~typ:(returning (id)) -let recentInputs self = msg_send ~self ~cmd:(selector "recentInputs") ~typ:(returning (id)) -let scrollViewDidChangeContentSize x self = msg_send ~self ~cmd:(selector "scrollViewDidChangeContentSize:") ~typ:(id @-> returning (void)) x -let setCanManageList x self = msg_send ~self ~cmd:(selector "setCanManageList:") ~typ:(bool @-> returning (void)) x -let setClearAllString x self = msg_send ~self ~cmd:(selector "setClearAllString:") ~typ:(id @-> returning (void)) x -let setContainingEffectStyle x self = msg_send ~self ~cmd:(selector "setContainingEffectStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCustomHeaderView x self = msg_send ~self ~cmd:(selector "setCustomHeaderView:") ~typ:(id @-> returning (void)) x -let setEnterNewString x self = msg_send ~self ~cmd:(selector "setEnterNewString:") ~typ:(id @-> returning (void)) x -let setHeaderContainerView x self = msg_send ~self ~cmd:(selector "setHeaderContainerView:") ~typ:(id @-> returning (void)) x -let setHeaderContainerViewController x self = msg_send ~self ~cmd:(selector "setHeaderContainerViewController:") ~typ:(id @-> returning (void)) x -let setHeaderView x self = msg_send ~self ~cmd:(selector "setHeaderView:") ~typ:(id @-> returning (void)) x -let setHeightConstraint x self = msg_send ~self ~cmd:(selector "setHeightConstraint:") ~typ:(id @-> returning (void)) x -let setPreviouslyUsedString x self = msg_send ~self ~cmd:(selector "setPreviouslyUsedString:") ~typ:(id @-> returning (void)) x -let setRecentInputDelegate x self = msg_send ~self ~cmd:(selector "setRecentInputDelegate:") ~typ:(id @-> returning (void)) x -let setRecentInputs x self = msg_send ~self ~cmd:(selector "setRecentInputs:") ~typ:(id @-> returning (void)) x -let setWidthConstraint x self = msg_send ~self ~cmd:(selector "setWidthConstraint:") ~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 ~canFocusRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:canFocusRowAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) x canFocusRowAtIndexPath -let tableView2 x ~canMoveRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:canMoveRowAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) x canMoveRowAtIndexPath -let tableView3 x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView4 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didSelectRowAtIndexPath -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 ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let tableView7 x ~titleForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:titleForHeaderInSection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int titleForHeaderInSection) -let updateTableViewWidth self = msg_send ~self ~cmd:(selector "updateTableViewWidth") ~typ:(returning (void)) -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let widthConstraint self = msg_send ~self ~cmd:(selector "widthConstraint") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIRecentsInputViewController" + +let canManageList self = msg_send ~self ~cmd:(selector "canManageList") ~typ:(returning bool) +let clearAllString self = msg_send ~self ~cmd:(selector "clearAllString") ~typ:(returning id) +let containingEffectStyle self = msg_send ~self ~cmd:(selector "containingEffectStyle") ~typ:(returning llong) +let customHeaderView self = msg_send ~self ~cmd:(selector "customHeaderView") ~typ:(returning id) +let didSelectButtonAtIndexPath x self = msg_send ~self ~cmd:(selector "didSelectButtonAtIndexPath:") ~typ:(id @-> returning void) x +let ensureConstraints self = msg_send ~self ~cmd:(selector "ensureConstraints") ~typ:(returning void) +let enterNewString self = msg_send ~self ~cmd:(selector "enterNewString") ~typ:(returning id) +let headerContainerView self = msg_send ~self ~cmd:(selector "headerContainerView") ~typ:(returning id) +let headerContainerViewController self = msg_send ~self ~cmd:(selector "headerContainerViewController") ~typ:(returning id) +let headerView self = msg_send ~self ~cmd:(selector "headerView") ~typ:(returning id) +let heightConstraint self = msg_send ~self ~cmd:(selector "heightConstraint") ~typ:(returning id) +let indexPathForPreferredFocusedViewInTableView x self = msg_send ~self ~cmd:(selector "indexPathForPreferredFocusedViewInTableView:") ~typ:(id @-> returning id) x +let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning llong) x +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let previouslyUsedString self = msg_send ~self ~cmd:(selector "previouslyUsedString") ~typ:(returning id) +let recentInputDelegate self = msg_send ~self ~cmd:(selector "recentInputDelegate") ~typ:(returning id) +let recentInputs self = msg_send ~self ~cmd:(selector "recentInputs") ~typ:(returning id) +let scrollViewDidChangeContentSize x self = msg_send ~self ~cmd:(selector "scrollViewDidChangeContentSize:") ~typ:(id @-> returning void) x +let setCanManageList x self = msg_send ~self ~cmd:(selector "setCanManageList:") ~typ:(bool @-> returning void) x +let setClearAllString x self = msg_send ~self ~cmd:(selector "setClearAllString:") ~typ:(id @-> returning void) x +let setContainingEffectStyle x self = msg_send ~self ~cmd:(selector "setContainingEffectStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCustomHeaderView x self = msg_send ~self ~cmd:(selector "setCustomHeaderView:") ~typ:(id @-> returning void) x +let setEnterNewString x self = msg_send ~self ~cmd:(selector "setEnterNewString:") ~typ:(id @-> returning void) x +let setHeaderContainerView x self = msg_send ~self ~cmd:(selector "setHeaderContainerView:") ~typ:(id @-> returning void) x +let setHeaderContainerViewController x self = msg_send ~self ~cmd:(selector "setHeaderContainerViewController:") ~typ:(id @-> returning void) x +let setHeaderView x self = msg_send ~self ~cmd:(selector "setHeaderView:") ~typ:(id @-> returning void) x +let setHeightConstraint x self = msg_send ~self ~cmd:(selector "setHeightConstraint:") ~typ:(id @-> returning void) x +let setPreviouslyUsedString x self = msg_send ~self ~cmd:(selector "setPreviouslyUsedString:") ~typ:(id @-> returning void) x +let setRecentInputDelegate x self = msg_send ~self ~cmd:(selector "setRecentInputDelegate:") ~typ:(id @-> returning void) x +let setRecentInputs x self = msg_send ~self ~cmd:(selector "setRecentInputs:") ~typ:(id @-> returning void) x +let setWidthConstraint x self = msg_send ~self ~cmd:(selector "setWidthConstraint:") ~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 ~canFocusRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:canFocusRowAtIndexPath:") ~typ:(id @-> id @-> returning bool) x canFocusRowAtIndexPath +let tableView2 x ~canMoveRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:canMoveRowAtIndexPath:") ~typ:(id @-> id @-> returning bool) x canMoveRowAtIndexPath +let tableView3 x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView4 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x didSelectRowAtIndexPath +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 ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let tableView7 x ~titleForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:titleForHeaderInSection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int titleForHeaderInSection) +let updateTableViewWidth self = msg_send ~self ~cmd:(selector "updateTableViewWidth") ~typ:(returning void) +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let widthConstraint self = msg_send ~self ~cmd:(selector "widthConstraint") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIReferenceLibraryViewController.ml b/uikit/UIReferenceLibraryViewController.ml index 3e28b1c6..f86dd6a1 100644 --- a/uikit/UIReferenceLibraryViewController.ml +++ b/uikit/UIReferenceLibraryViewController.ml @@ -5,33 +5,33 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIReferenceLibraryViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uireferencelibraryviewcontroller?language=objc}UIReferenceLibraryViewController} *) -module C = struct - let dictionaryHasDefinitionForTerm x self = msg_send ~self ~cmd:(selector "dictionaryHasDefinitionForTerm:") ~typ:(id @-> returning (bool)) x -end +let self = get_class "UIReferenceLibraryViewController" let dismissCompletionHandler self = msg_send ~self ~cmd:(selector "dismissCompletionHandler") ~typ:(returning (ptr void)) -let enableRotation self = msg_send ~self ~cmd:(selector "enableRotation") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let initWithTerm x self = msg_send ~self ~cmd:(selector "initWithTerm:") ~typ:(id @-> returning (id)) x -let navigationController x ~willShowViewController ~animated self = msg_send ~self ~cmd:(selector "navigationController:willShowViewController:animated:") ~typ:(id @-> id @-> bool @-> returning (void)) x willShowViewController animated -let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning (llong)) x -let pushDownloadManager x self = msg_send ~self ~cmd:(selector "pushDownloadManager:") ~typ:(id @-> returning (void)) x -let setDismissCompletionHandler x self = msg_send ~self ~cmd:(selector "setDismissCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let setEnableRotation x self = msg_send ~self ~cmd:(selector "setEnableRotation:") ~typ:(bool @-> returning (void)) x -let shouldAutorotate self = msg_send ~self ~cmd:(selector "shouldAutorotate") ~typ:(returning (bool)) -let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning (ullong)) -let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView1 x ~heightForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:heightForRowAtIndexPath:") ~typ:(id @-> id @-> returning (double)) x heightForRowAtIndexPath -let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let tableView3 x ~titleForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:titleForHeaderInSection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int titleForHeaderInSection) -let tableView4 x ~willSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x willSelectRowAtIndexPath -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "viewWillLayoutSubviews") ~typ:(returning (void)) -let window x ~setupWithInterfaceOrientation self = msg_send ~self ~cmd:(selector "window:setupWithInterfaceOrientation:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int setupWithInterfaceOrientation) \ No newline at end of file +let enableRotation self = msg_send ~self ~cmd:(selector "enableRotation") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let initWithTerm x self = msg_send ~self ~cmd:(selector "initWithTerm:") ~typ:(id @-> returning id) x +let navigationController x ~willShowViewController ~animated self = msg_send ~self ~cmd:(selector "navigationController:willShowViewController:animated:") ~typ:(id @-> id @-> bool @-> returning void) x willShowViewController animated +let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning llong) x +let pushDownloadManager x self = msg_send ~self ~cmd:(selector "pushDownloadManager:") ~typ:(id @-> returning void) x +let setDismissCompletionHandler x self = msg_send ~self ~cmd:(selector "setDismissCompletionHandler:") ~typ:((ptr void) @-> returning void) x +let setEnableRotation x self = msg_send ~self ~cmd:(selector "setEnableRotation:") ~typ:(bool @-> returning void) x +let shouldAutorotate self = msg_send ~self ~cmd:(selector "shouldAutorotate") ~typ:(returning bool) +let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning ullong) +let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView1 x ~heightForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:heightForRowAtIndexPath:") ~typ:(id @-> id @-> returning double) x heightForRowAtIndexPath +let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let tableView3 x ~titleForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:titleForHeaderInSection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int titleForHeaderInSection) +let tableView4 x ~willSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x willSelectRowAtIndexPath +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "viewWillLayoutSubviews") ~typ:(returning void) +let window x ~setupWithInterfaceOrientation self = msg_send ~self ~cmd:(selector "window:setupWithInterfaceOrientation:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int setupWithInterfaceOrientation) \ No newline at end of file diff --git a/uikit/UIReferenceLibraryViewControllerClass.ml b/uikit/UIReferenceLibraryViewControllerClass.ml new file mode 100644 index 00000000..a0b7faa1 --- /dev/null +++ b/uikit/UIReferenceLibraryViewControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uireferencelibraryviewcontroller?language=objc}UIReferenceLibraryViewController} *) + +let dictionaryHasDefinitionForTerm x self = msg_send ~self ~cmd:(selector "dictionaryHasDefinitionForTerm:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIRefreshControl.ml b/uikit/UIRefreshControl.ml index 33c35939..be649fca 100644 --- a/uikit/UIRefreshControl.ml +++ b/uikit/UIRefreshControl.ml @@ -5,29 +5,33 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRefreshControl" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uirefreshcontrol?language=objc}UIRefreshControl} *) -let attributedTitle self = msg_send ~self ~cmd:(selector "attributedTitle") ~typ:(returning (id)) -let beginRefreshing self = msg_send ~self ~cmd:(selector "beginRefreshing") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let endRefreshing self = msg_send ~self ~cmd:(selector "endRefreshing") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithStyle x self = msg_send ~self ~cmd:(selector "initWithStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let isRefreshing self = msg_send ~self ~cmd:(selector "isRefreshing") ~typ:(returning (bool)) -let refreshControlState self = msg_send ~self ~cmd:(selector "refreshControlState") ~typ:(returning (llong)) -let revealedFraction self = msg_send ~self ~cmd:(selector "revealedFraction") ~typ:(returning (double)) -let setAttributedTitle x self = msg_send ~self ~cmd:(selector "setAttributedTitle:") ~typ:(id @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setRefreshControlState x self = msg_send ~self ~cmd:(selector "setRefreshControlState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let sizeToFit self = msg_send ~self ~cmd:(selector "sizeToFit") ~typ:(returning (void)) -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIRefreshControl" + +let attributedTitle self = msg_send ~self ~cmd:(selector "attributedTitle") ~typ:(returning id) +let beginRefreshing self = msg_send ~self ~cmd:(selector "beginRefreshing") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let endRefreshing self = msg_send ~self ~cmd:(selector "endRefreshing") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithStyle x self = msg_send ~self ~cmd:(selector "initWithStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let isRefreshing self = msg_send ~self ~cmd:(selector "isRefreshing") ~typ:(returning bool) +let refreshControlState self = msg_send ~self ~cmd:(selector "refreshControlState") ~typ:(returning llong) +let revealedFraction self = msg_send ~self ~cmd:(selector "revealedFraction") ~typ:(returning double) +let setAttributedTitle x self = msg_send ~self ~cmd:(selector "setAttributedTitle:") ~typ:(id @-> returning void) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setRefreshControlState x self = msg_send ~self ~cmd:(selector "setRefreshControlState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let sizeToFit self = msg_send ~self ~cmd:(selector "sizeToFit") ~typ:(returning void) +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIRegion.ml b/uikit/UIRegion.ml index c7a5cd8d..e1469336 100644 --- a/uikit/UIRegion.ml +++ b/uikit/UIRegion.ml @@ -5,23 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRegion" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiregion?language=objc}UIRegion} *) -module C = struct - let infiniteRegion self = msg_send ~self ~cmd:(selector "infiniteRegion") ~typ:(returning (id)) -end +let self = get_class "UIRegion" -let containsPoint x self = msg_send ~self ~cmd:(selector "containsPoint:") ~typ:(CGPoint.t @-> returning (bool)) x -let containsPoints x ~locationStride ~results ~resultsStride ~count self = msg_send ~self ~cmd:(selector "containsPoints:locationStride:results:resultsStride:count:") ~typ:(ptr (float) @-> llong @-> string @-> llong @-> int @-> returning (void)) x (LLong.of_int locationStride) results (LLong.of_int resultsStride) count -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -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 initWithPath x self = msg_send ~self ~cmd:(selector "initWithPath:") ~typ:(id @-> returning (id)) x -let initWithRadius x self = msg_send ~self ~cmd:(selector "initWithRadius:") ~typ:(double @-> returning (id)) x -let initWithSize x self = msg_send ~self ~cmd:(selector "initWithSize:") ~typ:(CGSize.t @-> returning (id)) x -let inverseRegion self = msg_send ~self ~cmd:(selector "inverseRegion") ~typ:(returning (id)) -let path self = msg_send ~self ~cmd:(selector "path") ~typ:(returning (id)) -let regionByDifferenceFromRegion x self = msg_send ~self ~cmd:(selector "regionByDifferenceFromRegion:") ~typ:(id @-> returning (id)) x -let regionByIntersectionWithRegion x self = msg_send ~self ~cmd:(selector "regionByIntersectionWithRegion:") ~typ:(id @-> returning (id)) x -let regionByUnionWithRegion x self = msg_send ~self ~cmd:(selector "regionByUnionWithRegion:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let containsPoint x self = msg_send ~self ~cmd:(selector "containsPoint:") ~typ:(CGPoint.t @-> returning bool) x +let containsPoints x ~locationStride ~results ~resultsStride ~count self = msg_send ~self ~cmd:(selector "containsPoints:locationStride:results:resultsStride:count:") ~typ:((ptr float) @-> llong @-> string @-> llong @-> int @-> returning void) x (LLong.of_int locationStride) results (LLong.of_int resultsStride) count +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +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 initWithPath x self = msg_send ~self ~cmd:(selector "initWithPath:") ~typ:(id @-> returning id) x +let initWithRadius x self = msg_send ~self ~cmd:(selector "initWithRadius:") ~typ:(double @-> returning id) x +let initWithSize x self = msg_send ~self ~cmd:(selector "initWithSize:") ~typ:(CGSize.t @-> returning id) x +let inverseRegion self = msg_send ~self ~cmd:(selector "inverseRegion") ~typ:(returning id) +let path self = msg_send ~self ~cmd:(selector "path") ~typ:(returning id) +let regionByDifferenceFromRegion x self = msg_send ~self ~cmd:(selector "regionByDifferenceFromRegion:") ~typ:(id @-> returning id) x +let regionByIntersectionWithRegion x self = msg_send ~self ~cmd:(selector "regionByIntersectionWithRegion:") ~typ:(id @-> returning id) x +let regionByUnionWithRegion x self = msg_send ~self ~cmd:(selector "regionByUnionWithRegion:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIRegionClass.ml b/uikit/UIRegionClass.ml new file mode 100644 index 00000000..f317fa6d --- /dev/null +++ b/uikit/UIRegionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiregion?language=objc}UIRegion} *) + +let infiniteRegion self = msg_send ~self ~cmd:(selector "infiniteRegion") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIRemoteControlEvent.ml b/uikit/UIRemoteControlEvent.ml index ffd40064..c8a3ce6e 100644 --- a/uikit/UIRemoteControlEvent.ml +++ b/uikit/UIRemoteControlEvent.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRemoteControlEvent" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiremotecontrolevent?language=objc}UIRemoteControlEvent} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning (llong)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIRemoteControlEvent" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning llong) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIRemoteInputViewControllerInterface.ml b/uikit/UIRemoteInputViewControllerInterface.ml index 2005486d..59529627 100644 --- a/uikit/UIRemoteInputViewControllerInterface.ml +++ b/uikit/UIRemoteInputViewControllerInterface.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRemoteInputViewControllerInterface" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiremoteinputviewcontrollerinterface?language=objc}UIRemoteInputViewControllerInterface} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let responseDelegate self = msg_send ~self ~cmd:(selector "responseDelegate") ~typ:(returning (id)) -let setResponseDelegate x self = msg_send ~self ~cmd:(selector "setResponseDelegate:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIRemoteInputViewControllerInterface" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let responseDelegate self = msg_send ~self ~cmd:(selector "responseDelegate") ~typ:(returning id) +let setResponseDelegate x self = msg_send ~self ~cmd:(selector "setResponseDelegate:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIRemoteKeyboardWindow.ml b/uikit/UIRemoteKeyboardWindow.ml index 97060f59..ffc642cc 100644 --- a/uikit/UIRemoteKeyboardWindow.ml +++ b/uikit/UIRemoteKeyboardWindow.ml @@ -5,21 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRemoteKeyboardWindow" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiremotekeyboardwindow?language=objc}UIRemoteKeyboardWindow} *) -module C = struct - let remoteKeyboardWindowForScreen x ~create self = msg_send ~self ~cmd:(selector "remoteKeyboardWindowForScreen:create:") ~typ:(id @-> bool @-> returning (id)) x create -end +let self = get_class "UIRemoteKeyboardWindow" -let activeSceneIdentity self = msg_send ~self ~cmd:(selector "activeSceneIdentity") ~typ:(returning (id)) -let attachBindable self = msg_send ~self ~cmd:(selector "attachBindable") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let detachBindable self = msg_send ~self ~cmd:(selector "detachBindable") ~typ:(returning (void)) -let endDisablingInterfaceAutorotation self = msg_send ~self ~cmd:(selector "endDisablingInterfaceAutorotation") ~typ:(returning (void)) -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let isTransparentFocusItem self = msg_send ~self ~cmd:(selector "isTransparentFocusItem") ~typ:(returning (bool)) -let resetScene self = msg_send ~self ~cmd:(selector "resetScene") ~typ:(returning (void)) -let setWindowLevel x self = msg_send ~self ~cmd:(selector "setWindowLevel:") ~typ:(double @-> returning (void)) x -let shouldAttachBindable self = msg_send ~self ~cmd:(selector "shouldAttachBindable") ~typ:(returning (bool)) -let shouldDetachBindable self = msg_send ~self ~cmd:(selector "shouldDetachBindable") ~typ:(returning (bool)) \ No newline at end of file +let activeSceneIdentity self = msg_send ~self ~cmd:(selector "activeSceneIdentity") ~typ:(returning id) +let attachBindable self = msg_send ~self ~cmd:(selector "attachBindable") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let detachBindable self = msg_send ~self ~cmd:(selector "detachBindable") ~typ:(returning void) +let endDisablingInterfaceAutorotation self = msg_send ~self ~cmd:(selector "endDisablingInterfaceAutorotation") ~typ:(returning void) +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let isTransparentFocusItem self = msg_send ~self ~cmd:(selector "isTransparentFocusItem") ~typ:(returning bool) +let resetScene self = msg_send ~self ~cmd:(selector "resetScene") ~typ:(returning void) +let setWindowLevel x self = msg_send ~self ~cmd:(selector "setWindowLevel:") ~typ:(double @-> returning void) x +let shouldAttachBindable self = msg_send ~self ~cmd:(selector "shouldAttachBindable") ~typ:(returning bool) +let shouldDetachBindable self = msg_send ~self ~cmd:(selector "shouldDetachBindable") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIRemoteKeyboardWindowClass.ml b/uikit/UIRemoteKeyboardWindowClass.ml new file mode 100644 index 00000000..d7aa53b8 --- /dev/null +++ b/uikit/UIRemoteKeyboardWindowClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiremotekeyboardwindow?language=objc}UIRemoteKeyboardWindow} *) + +let remoteKeyboardWindowForScreen x ~create self = msg_send ~self ~cmd:(selector "remoteKeyboardWindowForScreen:create:") ~typ:(id @-> bool @-> returning id) x create \ No newline at end of file diff --git a/uikit/UIRemoteKeyboardWindowHosted.ml b/uikit/UIRemoteKeyboardWindowHosted.ml index 8289b4a3..b6716e29 100644 --- a/uikit/UIRemoteKeyboardWindowHosted.ml +++ b/uikit/UIRemoteKeyboardWindowHosted.ml @@ -5,8 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRemoteKeyboardWindowHosted" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiremotekeyboardwindowhosted?language=objc}UIRemoteKeyboardWindowHosted} *) -let keyboardScreenReferenceSize self = msg_send ~self ~cmd:(selector "keyboardScreenReferenceSize") ~typ:(returning (CGSize.t)) -let keyboardWidthForCurrentDevice self = msg_send ~self ~cmd:(selector "keyboardWidthForCurrentDevice") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIRemoteKeyboardWindowHosted" + +let keyboardScreenReferenceSize self = msg_send ~self ~cmd:(selector "keyboardScreenReferenceSize") ~typ:(returning CGSize.t) +let keyboardWidthForCurrentDevice self = msg_send ~self ~cmd:(selector "keyboardWidthForCurrentDevice") ~typ:(returning double) +let safeAreaInsets self = msg_send ~self ~cmd:(selector "safeAreaInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit/UIRepeatedAction.ml b/uikit/UIRepeatedAction.ml index aa50d699..8b10a73b 100644 --- a/uikit/UIRepeatedAction.ml +++ b/uikit/UIRepeatedAction.ml @@ -5,36 +5,36 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRepeatedAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uirepeatedaction?language=objc}UIRepeatedAction} *) -module C = struct - let actionWithTarget x ~selector_ ~object_ self = msg_send ~self ~cmd:(selector "actionWithTarget:selector:object:") ~typ:(id @-> _SEL @-> id @-> returning (id)) x selector_ object_ -end +let self = get_class "UIRepeatedAction" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let disableRepeat self = msg_send ~self ~cmd:(selector "disableRepeat") ~typ:(returning (bool)) -let initWithInvocation x self = msg_send ~self ~cmd:(selector "initWithInvocation:") ~typ:(id @-> returning (id)) x -let initWithTarget x ~selector_ ~object_ self = msg_send ~self ~cmd:(selector "initWithTarget:selector:object:") ~typ:(id @-> _SEL @-> id @-> returning (id)) x selector_ object_ -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let invocation self = msg_send ~self ~cmd:(selector "invocation") ~typ:(returning (id)) -let invocationArgument self = msg_send ~self ~cmd:(selector "invocationArgument") ~typ:(returning (id)) -let invocationDelay self = msg_send ~self ~cmd:(selector "invocationDelay") ~typ:(returning (double)) -let invoke self = msg_send ~self ~cmd:(selector "invoke") ~typ:(returning (bool)) -let preInvocationDelay self = msg_send ~self ~cmd:(selector "preInvocationDelay") ~typ:(returning (double)) -let repeatedDelay self = msg_send ~self ~cmd:(selector "repeatedDelay") ~typ:(returning (double)) -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let schedule self = msg_send ~self ~cmd:(selector "schedule") ~typ:(returning (void)) -let scheduleWithTarget x ~selector_ ~object_ self = msg_send ~self ~cmd:(selector "scheduleWithTarget:selector:object:") ~typ:(id @-> _SEL @-> id @-> returning (void)) x selector_ object_ -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDisableRepeat x self = msg_send ~self ~cmd:(selector "setDisableRepeat:") ~typ:(bool @-> returning (void)) x -let setInvocation x self = msg_send ~self ~cmd:(selector "setInvocation:") ~typ:(id @-> returning (void)) x -let setInvocationArgument x self = msg_send ~self ~cmd:(selector "setInvocationArgument:") ~typ:(id @-> returning (void)) x -let setInvocationDelay x self = msg_send ~self ~cmd:(selector "setInvocationDelay:") ~typ:(double @-> returning (void)) x -let setPreInvocationDelay x self = msg_send ~self ~cmd:(selector "setPreInvocationDelay:") ~typ:(double @-> returning (void)) x -let setRepeatedDelay x self = msg_send ~self ~cmd:(selector "setRepeatedDelay:") ~typ:(double @-> returning (void)) x -let setSkipInitialFire x self = msg_send ~self ~cmd:(selector "setSkipInitialFire:") ~typ:(bool @-> returning (void)) x -let setTimer x self = msg_send ~self ~cmd:(selector "setTimer:") ~typ:(id @-> returning (void)) x -let skipInitialFire self = msg_send ~self ~cmd:(selector "skipInitialFire") ~typ:(returning (bool)) -let timer self = msg_send ~self ~cmd:(selector "timer") ~typ:(returning (id)) \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let disableRepeat self = msg_send ~self ~cmd:(selector "disableRepeat") ~typ:(returning bool) +let initWithInvocation x self = msg_send ~self ~cmd:(selector "initWithInvocation:") ~typ:(id @-> returning id) x +let initWithTarget x ~selector_ ~object_ self = msg_send ~self ~cmd:(selector "initWithTarget:selector:object:") ~typ:(id @-> _SEL @-> id @-> returning id) x selector_ object_ +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let invocation self = msg_send ~self ~cmd:(selector "invocation") ~typ:(returning id) +let invocationArgument self = msg_send ~self ~cmd:(selector "invocationArgument") ~typ:(returning id) +let invocationDelay self = msg_send ~self ~cmd:(selector "invocationDelay") ~typ:(returning double) +let invoke self = msg_send ~self ~cmd:(selector "invoke") ~typ:(returning bool) +let preInvocationDelay self = msg_send ~self ~cmd:(selector "preInvocationDelay") ~typ:(returning double) +let repeatedDelay self = msg_send ~self ~cmd:(selector "repeatedDelay") ~typ:(returning double) +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let schedule self = msg_send ~self ~cmd:(selector "schedule") ~typ:(returning void) +let scheduleWithTarget x ~selector_ ~object_ self = msg_send ~self ~cmd:(selector "scheduleWithTarget:selector:object:") ~typ:(id @-> _SEL @-> id @-> returning void) x selector_ object_ +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDisableRepeat x self = msg_send ~self ~cmd:(selector "setDisableRepeat:") ~typ:(bool @-> returning void) x +let setInvocation x self = msg_send ~self ~cmd:(selector "setInvocation:") ~typ:(id @-> returning void) x +let setInvocationArgument x self = msg_send ~self ~cmd:(selector "setInvocationArgument:") ~typ:(id @-> returning void) x +let setInvocationDelay x self = msg_send ~self ~cmd:(selector "setInvocationDelay:") ~typ:(double @-> returning void) x +let setPreInvocationDelay x self = msg_send ~self ~cmd:(selector "setPreInvocationDelay:") ~typ:(double @-> returning void) x +let setRepeatedDelay x self = msg_send ~self ~cmd:(selector "setRepeatedDelay:") ~typ:(double @-> returning void) x +let setSkipInitialFire x self = msg_send ~self ~cmd:(selector "setSkipInitialFire:") ~typ:(bool @-> returning void) x +let setTimer x self = msg_send ~self ~cmd:(selector "setTimer:") ~typ:(id @-> returning void) x +let skipInitialFire self = msg_send ~self ~cmd:(selector "skipInitialFire") ~typ:(returning bool) +let timer self = msg_send ~self ~cmd:(selector "timer") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIRepeatedActionClass.ml b/uikit/UIRepeatedActionClass.ml new file mode 100644 index 00000000..3ee8201f --- /dev/null +++ b/uikit/UIRepeatedActionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uirepeatedaction?language=objc}UIRepeatedAction} *) + +let actionWithTarget x ~selector_ ~object_ self = msg_send ~self ~cmd:(selector "actionWithTarget:selector:object:") ~typ:(id @-> _SEL @-> id @-> returning id) x selector_ object_ \ No newline at end of file diff --git a/uikit/UIResponder.ml b/uikit/UIResponder.ml index 743ef710..6950a130 100644 --- a/uikit/UIResponder.ml +++ b/uikit/UIResponder.ml @@ -5,83 +5,82 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIResponder" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiresponder?language=objc}UIResponder} *) -module C = struct - let clearTextInputContextIdentifier x self = msg_send ~self ~cmd:(selector "clearTextInputContextIdentifier:") ~typ:(id @-> returning (void)) x - let objectWithRestorationIdentifierPath x self = msg_send ~self ~cmd:(selector "objectWithRestorationIdentifierPath:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIResponder" -let activityItemsConfiguration self = msg_send ~self ~cmd:(selector "activityItemsConfiguration") ~typ:(returning (id)) -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let beginSelectionChange self = msg_send ~self ~cmd:(selector "beginSelectionChange") ~typ:(returning (void)) -let buildMenuWithBuilder x self = msg_send ~self ~cmd:(selector "buildMenuWithBuilder:") ~typ:(id @-> returning (void)) x -let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning (bool)) -let canPasteItemProviders x self = msg_send ~self ~cmd:(selector "canPasteItemProviders:") ~typ:(id @-> returning (bool)) x -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let canResignFirstResponder self = msg_send ~self ~cmd:(selector "canResignFirstResponder") ~typ:(returning (bool)) -let captureTextFromCamera x self = msg_send ~self ~cmd:(selector "captureTextFromCamera:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let doesNotRecognizeSelector x self = msg_send ~self ~cmd:(selector "doesNotRecognizeSelector:") ~typ:(_SEL @-> returning (void)) x -let editingInteractionConfiguration self = msg_send ~self ~cmd:(selector "editingInteractionConfiguration") ~typ:(returning (llong)) -let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let endSelectionChange self = msg_send ~self ~cmd:(selector "endSelectionChange") ~typ:(returning (void)) -let firstResponder self = msg_send ~self ~cmd:(selector "firstResponder") ~typ:(returning (id)) -let gestureChanged x self = msg_send ~self ~cmd:(selector "gestureChanged:") ~typ:(ptr void @-> returning (void)) x -let gestureEnded x self = msg_send ~self ~cmd:(selector "gestureEnded:") ~typ:(ptr void @-> returning (void)) x -let gestureStarted x self = msg_send ~self ~cmd:(selector "gestureStarted:") ~typ:(ptr void @-> returning (void)) x -let inputAccessoryView self = msg_send ~self ~cmd:(selector "inputAccessoryView") ~typ:(returning (id)) -let inputAccessoryViewController self = msg_send ~self ~cmd:(selector "inputAccessoryViewController") ~typ:(returning (id)) -let inputAssistantItem self = msg_send ~self ~cmd:(selector "inputAssistantItem") ~typ:(returning (id)) -let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning (id)) -let inputViewController self = msg_send ~self ~cmd:(selector "inputViewController") ~typ:(returning (id)) -let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning (id)) -let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning (bool)) -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let isFirstResponder self = msg_send ~self ~cmd:(selector "isFirstResponder") ~typ:(returning (bool)) -let keyCommands self = msg_send ~self ~cmd:(selector "keyCommands") ~typ:(returning (id)) -let makeTouchBar self = msg_send ~self ~cmd:(selector "makeTouchBar") ~typ:(returning (id)) -let motionBegan x ~withEvent self = msg_send ~self ~cmd:(selector "motionBegan:withEvent:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) withEvent -let motionCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "motionCancelled:withEvent:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) withEvent -let motionEnded x ~withEvent self = msg_send ~self ~cmd:(selector "motionEnded:withEvent:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) withEvent -let nextFirstResponder self = msg_send ~self ~cmd:(selector "nextFirstResponder") ~typ:(returning (id)) -let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning (id)) -let pasteConfiguration self = msg_send ~self ~cmd:(selector "pasteConfiguration") ~typ:(returning (id)) -let pasteItemProviders x self = msg_send ~self ~cmd:(selector "pasteItemProviders:") ~typ:(id @-> returning (void)) x -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let recentsAccessoryView self = msg_send ~self ~cmd:(selector "recentsAccessoryView") ~typ:(returning (id)) -let reloadInputViews self = msg_send ~self ~cmd:(selector "reloadInputViews") ~typ:(returning (void)) -let reloadInputViewsWithoutReset self = msg_send ~self ~cmd:(selector "reloadInputViewsWithoutReset") ~typ:(returning (void)) -let remoteControlReceivedWithEvent x self = msg_send ~self ~cmd:(selector "remoteControlReceivedWithEvent:") ~typ:(id @-> returning (void)) x -let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning (bool)) -let restorationIdentifier self = msg_send ~self ~cmd:(selector "restorationIdentifier") ~typ:(returning (id)) -let restoreUserActivityState x self = msg_send ~self ~cmd:(selector "restoreUserActivityState:") ~typ:(id @-> returning (void)) x -let scrollWheel x self = msg_send ~self ~cmd:(selector "scrollWheel:") ~typ:(ptr void @-> returning (void)) x -let selectionAffinity self = msg_send ~self ~cmd:(selector "selectionAffinity") ~typ:(returning (llong)) -let setActivityItemsConfiguration x self = msg_send ~self ~cmd:(selector "setActivityItemsConfiguration:") ~typ:(id @-> returning (void)) x -let setPasteConfiguration x self = msg_send ~self ~cmd:(selector "setPasteConfiguration:") ~typ:(id @-> returning (void)) x -let setRestorationIdentifier x self = msg_send ~self ~cmd:(selector "setRestorationIdentifier:") ~typ:(id @-> returning (void)) x -let setTouchBar x self = msg_send ~self ~cmd:(selector "setTouchBar:") ~typ:(id @-> returning (void)) x -let setUserActivity x self = msg_send ~self ~cmd:(selector "setUserActivity:") ~typ:(id @-> returning (void)) x -let shouldReloadInputViews self = msg_send ~self ~cmd:(selector "shouldReloadInputViews") ~typ:(returning (bool)) -let targetForAction x ~withSender self = msg_send ~self ~cmd:(selector "targetForAction:withSender:") ~typ:(_SEL @-> id @-> returning (id)) x withSender -let textInputContextIdentifier self = msg_send ~self ~cmd:(selector "textInputContextIdentifier") ~typ:(returning (id)) -let textInputMode self = msg_send ~self ~cmd:(selector "textInputMode") ~typ:(returning (id)) -let textInputSuggestionDelegate self = msg_send ~self ~cmd:(selector "textInputSuggestionDelegate") ~typ:(returning (id)) -let textInputView self = msg_send ~self ~cmd:(selector "textInputView") ~typ:(returning (id)) -let touchBar self = msg_send ~self ~cmd:(selector "touchBar") ~typ:(returning (id)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEstimatedPropertiesUpdated x self = msg_send ~self ~cmd:(selector "touchesEstimatedPropertiesUpdated:") ~typ:(id @-> returning (void)) x -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning (id)) -let updateTextAttributesWithConversionHandler x self = msg_send ~self ~cmd:(selector "updateTextAttributesWithConversionHandler:") ~typ:(ptr void @-> returning (void)) x -let updateUserActivityState x self = msg_send ~self ~cmd:(selector "updateUserActivityState:") ~typ:(id @-> returning (void)) x -let userActivity self = msg_send ~self ~cmd:(selector "userActivity") ~typ:(returning (id)) -let validateCommand x self = msg_send ~self ~cmd:(selector "validateCommand:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let activityItemsConfiguration self = msg_send ~self ~cmd:(selector "activityItemsConfiguration") ~typ:(returning id) +let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning bool) +let beginSelectionChange self = msg_send ~self ~cmd:(selector "beginSelectionChange") ~typ:(returning void) +let buildMenuWithBuilder x self = msg_send ~self ~cmd:(selector "buildMenuWithBuilder:") ~typ:(id @-> returning void) x +let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning bool) +let canPasteItemProviders x self = msg_send ~self ~cmd:(selector "canPasteItemProviders:") ~typ:(id @-> returning bool) x +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let canResignFirstResponder self = msg_send ~self ~cmd:(selector "canResignFirstResponder") ~typ:(returning bool) +let captureTextFromCamera x self = msg_send ~self ~cmd:(selector "captureTextFromCamera:") ~typ:(id @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let doesNotRecognizeSelector x self = msg_send ~self ~cmd:(selector "doesNotRecognizeSelector:") ~typ:(_SEL @-> returning void) x +let editingInteractionConfiguration self = msg_send ~self ~cmd:(selector "editingInteractionConfiguration") ~typ:(returning llong) +let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let endSelectionChange self = msg_send ~self ~cmd:(selector "endSelectionChange") ~typ:(returning void) +let firstResponder self = msg_send ~self ~cmd:(selector "firstResponder") ~typ:(returning id) +let gestureChanged x self = msg_send ~self ~cmd:(selector "gestureChanged:") ~typ:((ptr void) @-> returning void) x +let gestureEnded x self = msg_send ~self ~cmd:(selector "gestureEnded:") ~typ:((ptr void) @-> returning void) x +let gestureStarted x self = msg_send ~self ~cmd:(selector "gestureStarted:") ~typ:((ptr void) @-> returning void) x +let inputAccessoryView self = msg_send ~self ~cmd:(selector "inputAccessoryView") ~typ:(returning id) +let inputAccessoryViewController self = msg_send ~self ~cmd:(selector "inputAccessoryViewController") ~typ:(returning id) +let inputAssistantItem self = msg_send ~self ~cmd:(selector "inputAssistantItem") ~typ:(returning id) +let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning id) +let inputViewController self = msg_send ~self ~cmd:(selector "inputViewController") ~typ:(returning id) +let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning id) +let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning bool) +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let isFirstResponder self = msg_send ~self ~cmd:(selector "isFirstResponder") ~typ:(returning bool) +let keyCommands self = msg_send ~self ~cmd:(selector "keyCommands") ~typ:(returning id) +let makeTouchBar self = msg_send ~self ~cmd:(selector "makeTouchBar") ~typ:(returning id) +let motionBegan x ~withEvent self = msg_send ~self ~cmd:(selector "motionBegan:withEvent:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) withEvent +let motionCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "motionCancelled:withEvent:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) withEvent +let motionEnded x ~withEvent self = msg_send ~self ~cmd:(selector "motionEnded:withEvent:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) withEvent +let nextFirstResponder self = msg_send ~self ~cmd:(selector "nextFirstResponder") ~typ:(returning id) +let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning id) +let pasteConfiguration self = msg_send ~self ~cmd:(selector "pasteConfiguration") ~typ:(returning id) +let pasteItemProviders x self = msg_send ~self ~cmd:(selector "pasteItemProviders:") ~typ:(id @-> returning void) x +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let recentsAccessoryView self = msg_send ~self ~cmd:(selector "recentsAccessoryView") ~typ:(returning id) +let reloadInputViews self = msg_send ~self ~cmd:(selector "reloadInputViews") ~typ:(returning void) +let reloadInputViewsWithoutReset self = msg_send ~self ~cmd:(selector "reloadInputViewsWithoutReset") ~typ:(returning void) +let remoteControlReceivedWithEvent x self = msg_send ~self ~cmd:(selector "remoteControlReceivedWithEvent:") ~typ:(id @-> returning void) x +let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning bool) +let restorationIdentifier self = msg_send ~self ~cmd:(selector "restorationIdentifier") ~typ:(returning id) +let restoreUserActivityState x self = msg_send ~self ~cmd:(selector "restoreUserActivityState:") ~typ:(id @-> returning void) x +let scrollWheel x self = msg_send ~self ~cmd:(selector "scrollWheel:") ~typ:((ptr void) @-> returning void) x +let selectionAffinity self = msg_send ~self ~cmd:(selector "selectionAffinity") ~typ:(returning llong) +let setActivityItemsConfiguration x self = msg_send ~self ~cmd:(selector "setActivityItemsConfiguration:") ~typ:(id @-> returning void) x +let setPasteConfiguration x self = msg_send ~self ~cmd:(selector "setPasteConfiguration:") ~typ:(id @-> returning void) x +let setRestorationIdentifier x self = msg_send ~self ~cmd:(selector "setRestorationIdentifier:") ~typ:(id @-> returning void) x +let setTouchBar x self = msg_send ~self ~cmd:(selector "setTouchBar:") ~typ:(id @-> returning void) x +let setUserActivity x self = msg_send ~self ~cmd:(selector "setUserActivity:") ~typ:(id @-> returning void) x +let shouldReloadInputViews self = msg_send ~self ~cmd:(selector "shouldReloadInputViews") ~typ:(returning bool) +let targetForAction x ~withSender self = msg_send ~self ~cmd:(selector "targetForAction:withSender:") ~typ:(_SEL @-> id @-> returning id) x withSender +let textInputContextIdentifier self = msg_send ~self ~cmd:(selector "textInputContextIdentifier") ~typ:(returning id) +let textInputMode self = msg_send ~self ~cmd:(selector "textInputMode") ~typ:(returning id) +let textInputSuggestionDelegate self = msg_send ~self ~cmd:(selector "textInputSuggestionDelegate") ~typ:(returning id) +let textInputView self = msg_send ~self ~cmd:(selector "textInputView") ~typ:(returning id) +let touchBar self = msg_send ~self ~cmd:(selector "touchBar") ~typ:(returning id) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEstimatedPropertiesUpdated x self = msg_send ~self ~cmd:(selector "touchesEstimatedPropertiesUpdated:") ~typ:(id @-> returning void) x +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning id) +let updateTextAttributesWithConversionHandler x self = msg_send ~self ~cmd:(selector "updateTextAttributesWithConversionHandler:") ~typ:((ptr void) @-> returning void) x +let updateUserActivityState x self = msg_send ~self ~cmd:(selector "updateUserActivityState:") ~typ:(id @-> returning void) x +let userActivity self = msg_send ~self ~cmd:(selector "userActivity") ~typ:(returning id) +let validateCommand x self = msg_send ~self ~cmd:(selector "validateCommand:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIResponderClass.ml b/uikit/UIResponderClass.ml new file mode 100644 index 00000000..bdbef121 --- /dev/null +++ b/uikit/UIResponderClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiresponder?language=objc}UIResponder} *) + +let clearTextInputContextIdentifier x self = msg_send ~self ~cmd:(selector "clearTextInputContextIdentifier:") ~typ:(id @-> returning void) x +let objectWithRestorationIdentifierPath x self = msg_send ~self ~cmd:(selector "objectWithRestorationIdentifierPath:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIRevealInteractionHighlighter.ml b/uikit/UIRevealInteractionHighlighter.ml index c89a8c3d..d22ed382 100644 --- a/uikit/UIRevealInteractionHighlighter.ml +++ b/uikit/UIRevealInteractionHighlighter.ml @@ -5,21 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRevealInteractionHighlighter" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uirevealinteractionhighlighter?language=objc}UIRevealInteractionHighlighter} *) -let completeHighlightingItem x self = msg_send ~self ~cmd:(selector "completeHighlightingItem:") ~typ:(id @-> returning (void)) x -let drawHighlightContentForItem x ~context self = msg_send ~self ~cmd:(selector "drawHighlightContentForItem:context:") ~typ:(id @-> id @-> returning (void)) x context -let highlightItem x ~withProgress self = msg_send ~self ~cmd:(selector "highlightItem:withProgress:") ~typ:(id @-> double @-> returning (void)) x withProgress -let highlightRangeChangedForItem x self = msg_send ~self ~cmd:(selector "highlightRangeChangedForItem:") ~typ:(id @-> returning (void)) x -let highlightRects self = msg_send ~self ~cmd:(selector "highlightRects") ~typ:(returning (id)) -let highlightRectsForItem x self = msg_send ~self ~cmd:(selector "highlightRectsForItem:") ~typ:(id @-> returning (id)) x -let highlighting self = msg_send ~self ~cmd:(selector "highlighting") ~typ:(returning (bool)) -let initWithTextInput x ~view self = msg_send ~self ~cmd:(selector "initWithTextInput:view:") ~typ:(id @-> id @-> returning (id)) x view -let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning (id)) -let setHighlightRects x self = msg_send ~self ~cmd:(selector "setHighlightRects:") ~typ:(id @-> returning (void)) x -let setHighlighting x self = msg_send ~self ~cmd:(selector "setHighlighting:") ~typ:(bool @-> returning (void)) x -let startHighlightingItem x self = msg_send ~self ~cmd:(selector "startHighlightingItem:") ~typ:(id @-> returning (void)) x -let stopHighlightingItem x self = msg_send ~self ~cmd:(selector "stopHighlightingItem:") ~typ:(id @-> returning (void)) x -let textInput self = msg_send ~self ~cmd:(selector "textInput") ~typ:(returning (id)) -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIRevealInteractionHighlighter" + +let completeHighlightingItem x self = msg_send ~self ~cmd:(selector "completeHighlightingItem:") ~typ:(id @-> returning void) x +let drawHighlightContentForItem x ~context self = msg_send ~self ~cmd:(selector "drawHighlightContentForItem:context:") ~typ:(id @-> (ptr CGContext.t) @-> returning void) x context +let highlightItem x ~withProgress self = msg_send ~self ~cmd:(selector "highlightItem:withProgress:") ~typ:(id @-> double @-> returning void) x withProgress +let highlightRangeChangedForItem x self = msg_send ~self ~cmd:(selector "highlightRangeChangedForItem:") ~typ:(id @-> returning void) x +let highlightRects self = msg_send ~self ~cmd:(selector "highlightRects") ~typ:(returning id) +let highlightRectsForItem x self = msg_send ~self ~cmd:(selector "highlightRectsForItem:") ~typ:(id @-> returning id) x +let highlighting self = msg_send ~self ~cmd:(selector "highlighting") ~typ:(returning bool) +let initWithTextInput x ~view self = msg_send ~self ~cmd:(selector "initWithTextInput:view:") ~typ:(id @-> id @-> returning id) x view +let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning id) +let setHighlightRects x self = msg_send ~self ~cmd:(selector "setHighlightRects:") ~typ:(id @-> returning void) x +let setHighlighting x self = msg_send ~self ~cmd:(selector "setHighlighting:") ~typ:(bool @-> returning void) x +let startHighlightingItem x self = msg_send ~self ~cmd:(selector "startHighlightingItem:") ~typ:(id @-> returning void) x +let stopHighlightingItem x self = msg_send ~self ~cmd:(selector "stopHighlightingItem:") ~typ:(id @-> returning void) x +let textInput self = msg_send ~self ~cmd:(selector "textInput") ~typ:(returning id) +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIRootSceneWindow.ml b/uikit/UIRootSceneWindow.ml index c233cd00..8e88d1aa 100644 --- a/uikit/UIRootSceneWindow.ml +++ b/uikit/UIRootSceneWindow.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRootSceneWindow" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uirootscenewindow?language=objc}UIRootSceneWindow} *) -let canBecomeKeyWindow self = msg_send ~self ~cmd:(selector "canBecomeKeyWindow") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let displayConfiguration self = msg_send ~self ~cmd:(selector "displayConfiguration") ~typ:(returning (id)) -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let initWithDisplay x self = msg_send ~self ~cmd:(selector "initWithDisplay:") ~typ:(id @-> returning (id)) x -let initWithDisplayConfiguration x self = msg_send ~self ~cmd:(selector "initWithDisplayConfiguration:") ~typ:(id @-> returning (id)) x -let initWithScreen x self = msg_send ~self ~cmd:(selector "initWithScreen:") ~typ:(id @-> returning (id)) x -let sceneTransformer self = msg_send ~self ~cmd:(selector "sceneTransformer") ~typ:(returning (id)) -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let transformsDidChange x self = msg_send ~self ~cmd:(selector "transformsDidChange:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIRootSceneWindow" + +let canBecomeKeyWindow self = msg_send ~self ~cmd:(selector "canBecomeKeyWindow") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let displayConfiguration self = msg_send ~self ~cmd:(selector "displayConfiguration") ~typ:(returning id) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let initWithDisplay x self = msg_send ~self ~cmd:(selector "initWithDisplay:") ~typ:(id @-> returning id) x +let initWithDisplayConfiguration x self = msg_send ~self ~cmd:(selector "initWithDisplayConfiguration:") ~typ:(id @-> returning id) x +let initWithScreen x self = msg_send ~self ~cmd:(selector "initWithScreen:") ~typ:(id @-> returning id) x +let sceneTransformer self = msg_send ~self ~cmd:(selector "sceneTransformer") ~typ:(returning id) +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let transformsDidChange x self = msg_send ~self ~cmd:(selector "transformsDidChange:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIRootWindowScenePresentationBinder.ml b/uikit/UIRootWindowScenePresentationBinder.ml index 8060c9fa..535bf11f 100644 --- a/uikit/UIRootWindowScenePresentationBinder.ml +++ b/uikit/UIRootWindowScenePresentationBinder.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRootWindowScenePresentationBinder" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uirootwindowscenepresentationbinder?language=objc}UIRootWindowScenePresentationBinder} *) -let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let initWithIdentifier x ~priority ~appearanceStyle ~rootWindow self = msg_send ~self ~cmd:(selector "initWithIdentifier:priority:appearanceStyle:rootWindow:") ~typ:(id @-> llong @-> ullong @-> id @-> returning (id)) x (LLong.of_int priority) (ULLong.of_int appearanceStyle) rootWindow -let initWithPriority x ~displayConfiguration self = msg_send ~self ~cmd:(selector "initWithPriority:displayConfiguration:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) displayConfiguration -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let sceneTransformer self = msg_send ~self ~cmd:(selector "sceneTransformer") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIRootWindowScenePresentationBinder" + +let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning id) x +let initWithIdentifier x ~priority ~appearanceStyle ~rootWindow self = msg_send ~self ~cmd:(selector "initWithIdentifier:priority:appearanceStyle:rootWindow:") ~typ:(id @-> llong @-> ullong @-> id @-> returning id) x (LLong.of_int priority) (ULLong.of_int appearanceStyle) rootWindow +let initWithPriority x ~displayConfiguration self = msg_send ~self ~cmd:(selector "initWithPriority:displayConfiguration:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) displayConfiguration +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let sceneTransformer self = msg_send ~self ~cmd:(selector "sceneTransformer") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIRotationGestureRecognizer.ml b/uikit/UIRotationGestureRecognizer.ml index ac5aa538..341a9c89 100644 --- a/uikit/UIRotationGestureRecognizer.ml +++ b/uikit/UIRotationGestureRecognizer.ml @@ -5,21 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRotationGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uirotationgesturerecognizer?language=objc}UIRotationGestureRecognizer} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIRotationGestureRecognizer" -let anchorPoint self = msg_send_stret ~self ~cmd:(selector "anchorPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let rotation self = msg_send ~self ~cmd:(selector "rotation") ~typ:(returning (double)) -let setRotation x self = msg_send ~self ~cmd:(selector "setRotation:") ~typ:(double @-> returning (void)) x -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning (double)) \ No newline at end of file +let anchorPoint self = msg_send ~self ~cmd:(selector "anchorPoint") ~typ:(returning CGPoint.t) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let rotation self = msg_send ~self ~cmd:(selector "rotation") ~typ:(returning double) +let setRotation x self = msg_send ~self ~cmd:(selector "setRotation:") ~typ:(double @-> returning void) x +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIRotationGestureRecognizerClass.ml b/uikit/UIRotationGestureRecognizerClass.ml new file mode 100644 index 00000000..ac9ab580 --- /dev/null +++ b/uikit/UIRotationGestureRecognizerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uirotationgesturerecognizer?language=objc}UIRotationGestureRecognizer} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIRoundedRectButton.ml b/uikit/UIRoundedRectButton.ml index 4fe07982..035b36ed 100644 --- a/uikit/UIRoundedRectButton.ml +++ b/uikit/UIRoundedRectButton.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRoundedRectButton" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiroundedrectbutton?language=objc}UIRoundedRectButton} *) -let buttonType self = msg_send ~self ~cmd:(selector "buttonType") ~typ:(returning (llong)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithFrame' x ~fillColor self = msg_send ~self ~cmd:(selector "initWithFrame:fillColor:") ~typ:(CGRect.t @-> id @-> returning (id)) x fillColor -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIRoundedRectButton" + +let buttonType self = msg_send ~self ~cmd:(selector "buttonType") ~typ:(returning llong) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithFrame' x ~fillColor self = msg_send ~self ~cmd:(selector "initWithFrame:fillColor:") ~typ:(CGRect.t @-> id @-> returning id) x fillColor +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIRowMoveUpdateItem.ml b/uikit/UIRowMoveUpdateItem.ml index 4065e17f..a784d14f 100644 --- a/uikit/UIRowMoveUpdateItem.ml +++ b/uikit/UIRowMoveUpdateItem.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRowMoveUpdateItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uirowmoveupdateitem?language=objc}UIRowMoveUpdateItem} *) -let collectionViewUpdateItem self = msg_send ~self ~cmd:(selector "collectionViewUpdateItem") ~typ:(returning (id)) -let initWithOldIndexPath x ~newIndexPath self = msg_send ~self ~cmd:(selector "initWithOldIndexPath:newIndexPath:") ~typ:(id @-> id @-> returning (id)) x newIndexPath -let newIndexPath self = msg_send ~self ~cmd:(selector "newIndexPath") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIRowMoveUpdateItem" + +let collectionViewUpdateItem self = msg_send ~self ~cmd:(selector "collectionViewUpdateItem") ~typ:(returning id) +let initWithOldIndexPath x ~newIndexPath self = msg_send ~self ~cmd:(selector "initWithOldIndexPath:newIndexPath:") ~typ:(id @-> id @-> returning id) x newIndexPath +let newIndexPath self = msg_send ~self ~cmd:(selector "newIndexPath") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIRuntimeAccessibilityConfiguration.ml b/uikit/UIRuntimeAccessibilityConfiguration.ml index e500254c..86882ad8 100644 --- a/uikit/UIRuntimeAccessibilityConfiguration.ml +++ b/uikit/UIRuntimeAccessibilityConfiguration.ml @@ -5,23 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRuntimeAccessibilityConfiguration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiruntimeaccessibilityconfiguration?language=objc}UIRuntimeAccessibilityConfiguration} *) -let accessibilityConfigurationHint self = msg_send ~self ~cmd:(selector "accessibilityConfigurationHint") ~typ:(returning (id)) -let accessibilityConfigurationIdentifier self = msg_send ~self ~cmd:(selector "accessibilityConfigurationIdentifier") ~typ:(returning (id)) -let accessibilityConfigurationLabel self = msg_send ~self ~cmd:(selector "accessibilityConfigurationLabel") ~typ:(returning (id)) -let accessibilityConfigurationTraits self = msg_send ~self ~cmd:(selector "accessibilityConfigurationTraits") ~typ:(returning (id)) -let applyConfiguration self = msg_send ~self ~cmd:(selector "applyConfiguration") ~typ:(returning (void)) -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 initWithObject x ~label ~hint ~traits ~andIsAccessibilityElement self = msg_send ~self ~cmd:(selector "initWithObject:label:hint:traits:andIsAccessibilityElement:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (id)) x label hint traits andIsAccessibilityElement -let initWithObject' x ~label ~identifier ~hint ~traits ~andIsAccessibilityElement self = msg_send ~self ~cmd:(selector "initWithObject:label:identifier:hint:traits:andIsAccessibilityElement:") ~typ:(id @-> id @-> id @-> id @-> id @-> id @-> returning (id)) x label identifier hint traits andIsAccessibilityElement -let isAccessibilityConfigurationElement self = msg_send ~self ~cmd:(selector "isAccessibilityConfigurationElement") ~typ:(returning (id)) -let object_ self = msg_send ~self ~cmd:(selector "object") ~typ:(returning (id)) -let setAccessibilityConfigurationHint x self = msg_send ~self ~cmd:(selector "setAccessibilityConfigurationHint:") ~typ:(id @-> returning (void)) x -let setAccessibilityConfigurationIdentifier x self = msg_send ~self ~cmd:(selector "setAccessibilityConfigurationIdentifier:") ~typ:(id @-> returning (void)) x -let setAccessibilityConfigurationLabel x self = msg_send ~self ~cmd:(selector "setAccessibilityConfigurationLabel:") ~typ:(id @-> returning (void)) x -let setAccessibilityConfigurationTraits x self = msg_send ~self ~cmd:(selector "setAccessibilityConfigurationTraits:") ~typ:(id @-> returning (void)) x -let setIsAccessibilityConfigurationElement x self = msg_send ~self ~cmd:(selector "setIsAccessibilityConfigurationElement:") ~typ:(id @-> returning (void)) x -let setObject x self = msg_send ~self ~cmd:(selector "setObject:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIRuntimeAccessibilityConfiguration" + +let accessibilityConfigurationHint self = msg_send ~self ~cmd:(selector "accessibilityConfigurationHint") ~typ:(returning id) +let accessibilityConfigurationIdentifier self = msg_send ~self ~cmd:(selector "accessibilityConfigurationIdentifier") ~typ:(returning id) +let accessibilityConfigurationLabel self = msg_send ~self ~cmd:(selector "accessibilityConfigurationLabel") ~typ:(returning id) +let accessibilityConfigurationTraits self = msg_send ~self ~cmd:(selector "accessibilityConfigurationTraits") ~typ:(returning id) +let applyConfiguration self = msg_send ~self ~cmd:(selector "applyConfiguration") ~typ:(returning void) +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 initWithObject x ~label ~hint ~traits ~andIsAccessibilityElement self = msg_send ~self ~cmd:(selector "initWithObject:label:hint:traits:andIsAccessibilityElement:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning id) x label hint traits andIsAccessibilityElement +let initWithObject' x ~label ~identifier ~hint ~traits ~andIsAccessibilityElement self = msg_send ~self ~cmd:(selector "initWithObject:label:identifier:hint:traits:andIsAccessibilityElement:") ~typ:(id @-> id @-> id @-> id @-> id @-> id @-> returning id) x label identifier hint traits andIsAccessibilityElement +let isAccessibilityConfigurationElement self = msg_send ~self ~cmd:(selector "isAccessibilityConfigurationElement") ~typ:(returning id) +let object_ self = msg_send ~self ~cmd:(selector "object") ~typ:(returning id) +let setAccessibilityConfigurationHint x self = msg_send ~self ~cmd:(selector "setAccessibilityConfigurationHint:") ~typ:(id @-> returning void) x +let setAccessibilityConfigurationIdentifier x self = msg_send ~self ~cmd:(selector "setAccessibilityConfigurationIdentifier:") ~typ:(id @-> returning void) x +let setAccessibilityConfigurationLabel x self = msg_send ~self ~cmd:(selector "setAccessibilityConfigurationLabel:") ~typ:(id @-> returning void) x +let setAccessibilityConfigurationTraits x self = msg_send ~self ~cmd:(selector "setAccessibilityConfigurationTraits:") ~typ:(id @-> returning void) x +let setIsAccessibilityConfigurationElement x self = msg_send ~self ~cmd:(selector "setIsAccessibilityConfigurationElement:") ~typ:(id @-> returning void) x +let setObject x self = msg_send ~self ~cmd:(selector "setObject:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIRuntimeConnection.ml b/uikit/UIRuntimeConnection.ml index f27d7ae9..54fb5160 100644 --- a/uikit/UIRuntimeConnection.ml +++ b/uikit/UIRuntimeConnection.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRuntimeConnection" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiruntimeconnection?language=objc}UIRuntimeConnection} *) -let connect self = msg_send ~self ~cmd:(selector "connect") ~typ:(returning (void)) -let connectForSimulator self = msg_send ~self ~cmd:(selector "connectForSimulator") ~typ:(returning (void)) -let destination self = msg_send ~self ~cmd:(selector "destination") ~typ:(returning (id)) -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 label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning (id)) -let setDestination x self = msg_send ~self ~cmd:(selector "setDestination:") ~typ:(id @-> returning (void)) x -let setLabel x self = msg_send ~self ~cmd:(selector "setLabel:") ~typ:(id @-> returning (void)) x -let setSource x self = msg_send ~self ~cmd:(selector "setSource:") ~typ:(id @-> returning (void)) x -let source self = msg_send ~self ~cmd:(selector "source") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIRuntimeConnection" + +let connect self = msg_send ~self ~cmd:(selector "connect") ~typ:(returning void) +let connectForSimulator self = msg_send ~self ~cmd:(selector "connectForSimulator") ~typ:(returning void) +let destination self = msg_send ~self ~cmd:(selector "destination") ~typ:(returning id) +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 label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) +let setDestination x self = msg_send ~self ~cmd:(selector "setDestination:") ~typ:(id @-> returning void) x +let setLabel x self = msg_send ~self ~cmd:(selector "setLabel:") ~typ:(id @-> returning void) x +let setSource x self = msg_send ~self ~cmd:(selector "setSource:") ~typ:(id @-> returning void) x +let source self = msg_send ~self ~cmd:(selector "source") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIRuntimeEventConnection.ml b/uikit/UIRuntimeEventConnection.ml index d4e70a6f..dcddce34 100644 --- a/uikit/UIRuntimeEventConnection.ml +++ b/uikit/UIRuntimeEventConnection.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRuntimeEventConnection" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiruntimeeventconnection?language=objc}UIRuntimeEventConnection} *) -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (_SEL)) -let connect self = msg_send ~self ~cmd:(selector "connect") ~typ:(returning (void)) -let connectForSimulator self = msg_send ~self ~cmd:(selector "connectForSimulator") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let eventMask self = msg_send ~self ~cmd:(selector "eventMask") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let setEventMask x self = msg_send ~self ~cmd:(selector "setEventMask:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIRuntimeEventConnection" + +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning _SEL) +let connect self = msg_send ~self ~cmd:(selector "connect") ~typ:(returning void) +let connectForSimulator self = msg_send ~self ~cmd:(selector "connectForSimulator") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let eventMask self = msg_send ~self ~cmd:(selector "eventMask") ~typ:(returning ullong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let setEventMask x self = msg_send ~self ~cmd:(selector "setEventMask:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIRuntimeOutletCollectionConnection.ml b/uikit/UIRuntimeOutletCollectionConnection.ml index 77d50c60..99b0fdf4 100644 --- a/uikit/UIRuntimeOutletCollectionConnection.ml +++ b/uikit/UIRuntimeOutletCollectionConnection.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRuntimeOutletCollectionConnection" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiruntimeoutletcollectionconnection?language=objc}UIRuntimeOutletCollectionConnection} *) -let addsContentToExistingCollection self = msg_send ~self ~cmd:(selector "addsContentToExistingCollection") ~typ:(returning (bool)) -let connect self = msg_send ~self ~cmd:(selector "connect") ~typ:(returning (void)) -let connectForSimulator self = msg_send ~self ~cmd:(selector "connectForSimulator") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -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 performConnect self = msg_send ~self ~cmd:(selector "performConnect") ~typ:(returning (void)) -let runtimeCollectionClassName self = msg_send ~self ~cmd:(selector "runtimeCollectionClassName") ~typ:(returning (id)) -let setAddsContentToExistingCollection x self = msg_send ~self ~cmd:(selector "setAddsContentToExistingCollection:") ~typ:(bool @-> returning (void)) x -let setRuntimeCollectionClassName x self = msg_send ~self ~cmd:(selector "setRuntimeCollectionClassName:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIRuntimeOutletCollectionConnection" + +let addsContentToExistingCollection self = msg_send ~self ~cmd:(selector "addsContentToExistingCollection") ~typ:(returning bool) +let connect self = msg_send ~self ~cmd:(selector "connect") ~typ:(returning void) +let connectForSimulator self = msg_send ~self ~cmd:(selector "connectForSimulator") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +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 performConnect self = msg_send ~self ~cmd:(selector "performConnect") ~typ:(returning void) +let runtimeCollectionClassName self = msg_send ~self ~cmd:(selector "runtimeCollectionClassName") ~typ:(returning id) +let setAddsContentToExistingCollection x self = msg_send ~self ~cmd:(selector "setAddsContentToExistingCollection:") ~typ:(bool @-> returning void) x +let setRuntimeCollectionClassName x self = msg_send ~self ~cmd:(selector "setRuntimeCollectionClassName:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIRuntimeOutletConnection.ml b/uikit/UIRuntimeOutletConnection.ml index 5ba1eeaa..3609965f 100644 --- a/uikit/UIRuntimeOutletConnection.ml +++ b/uikit/UIRuntimeOutletConnection.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIRuntimeOutletConnection" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiruntimeoutletconnection?language=objc}UIRuntimeOutletConnection} *) -let connect self = msg_send ~self ~cmd:(selector "connect") ~typ:(returning (void)) -let connectForSimulator self = msg_send ~self ~cmd:(selector "connectForSimulator") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIRuntimeOutletConnection" + +let connect self = msg_send ~self ~cmd:(selector "connect") ~typ:(returning void) +let connectForSimulator self = msg_send ~self ~cmd:(selector "connectForSimulator") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIScene.ml b/uikit/UIScene.ml index 248b4474..a8eb0a4d 100644 --- a/uikit/UIScene.ml +++ b/uikit/UIScene.ml @@ -5,26 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScene" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscene?language=objc}UIScene} *) -let activationConditions self = msg_send ~self ~cmd:(selector "activationConditions") ~typ:(returning (id)) -let activationState self = msg_send ~self ~cmd:(selector "activationState") ~typ:(returning (llong)) -let completeStateRestoration self = msg_send ~self ~cmd:(selector "completeStateRestoration") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let extendStateRestoration self = msg_send ~self ~cmd:(selector "extendStateRestoration") ~typ:(returning (void)) -let initWithSession x ~connectionOptions self = msg_send ~self ~cmd:(selector "initWithSession:connectionOptions:") ~typ:(id @-> id @-> returning (id)) x connectionOptions -let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning (id)) -let openURL x ~options ~completionHandler self = msg_send ~self ~cmd:(selector "openURL:options:completionHandler:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x options completionHandler -let pointerLockState self = msg_send ~self ~cmd:(selector "pointerLockState") ~typ:(returning (id)) -let scene x ~didReceiveActions self = msg_send ~self ~cmd:(selector "scene:didReceiveActions:") ~typ:(id @-> id @-> returning (void)) x didReceiveActions -let scene1 x ~didReceiveActions ~fromTransitionContext self = msg_send ~self ~cmd:(selector "scene:didReceiveActions:fromTransitionContext:") ~typ:(id @-> id @-> id @-> returning (void)) x didReceiveActions fromTransitionContext -let scene2 x ~didUpdateWithDiff ~transitionContext ~completion self = msg_send ~self ~cmd:(selector "scene:didUpdateWithDiff:transitionContext:completion:") ~typ:(id @-> id @-> id @-> ptr void @-> returning (void)) x didUpdateWithDiff transitionContext completion -let session self = msg_send ~self ~cmd:(selector "session") ~typ:(returning (id)) -let setActivationConditions x self = msg_send ~self ~cmd:(selector "setActivationConditions:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setSubtitle x self = msg_send ~self ~cmd:(selector "setSubtitle:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let subtitle self = msg_send ~self ~cmd:(selector "subtitle") ~typ:(returning (id)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIScene" + +let activationConditions self = msg_send ~self ~cmd:(selector "activationConditions") ~typ:(returning id) +let activationState self = msg_send ~self ~cmd:(selector "activationState") ~typ:(returning llong) +let completeStateRestoration self = msg_send ~self ~cmd:(selector "completeStateRestoration") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let extendStateRestoration self = msg_send ~self ~cmd:(selector "extendStateRestoration") ~typ:(returning void) +let initWithSession x ~connectionOptions self = msg_send ~self ~cmd:(selector "initWithSession:connectionOptions:") ~typ:(id @-> id @-> returning id) x connectionOptions +let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning id) +let openURL x ~options ~completionHandler self = msg_send ~self ~cmd:(selector "openURL:options:completionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x options completionHandler +let pointerLockState self = msg_send ~self ~cmd:(selector "pointerLockState") ~typ:(returning id) +let scene x ~didReceiveActions self = msg_send ~self ~cmd:(selector "scene:didReceiveActions:") ~typ:(id @-> id @-> returning void) x didReceiveActions +let scene1 x ~didReceiveActions ~fromTransitionContext self = msg_send ~self ~cmd:(selector "scene:didReceiveActions:fromTransitionContext:") ~typ:(id @-> id @-> id @-> returning void) x didReceiveActions fromTransitionContext +let scene2 x ~didUpdateWithDiff ~transitionContext ~completion self = msg_send ~self ~cmd:(selector "scene:didUpdateWithDiff:transitionContext:completion:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x didUpdateWithDiff transitionContext completion +let session self = msg_send ~self ~cmd:(selector "session") ~typ:(returning id) +let setActivationConditions x self = msg_send ~self ~cmd:(selector "setActivationConditions:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setSubtitle x self = msg_send ~self ~cmd:(selector "setSubtitle:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let subtitle self = msg_send ~self ~cmd:(selector "subtitle") ~typ:(returning id) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISceneActivationConditions.ml b/uikit/UISceneActivationConditions.ml index cfcaa63a..4f8027c4 100644 --- a/uikit/UISceneActivationConditions.ml +++ b/uikit/UISceneActivationConditions.ml @@ -5,21 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISceneActivationConditions" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisceneactivationconditions?language=objc}UISceneActivationConditions} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UISceneActivationConditions" -let canActivateForTargetContentIdentifierPredicate self = msg_send ~self ~cmd:(selector "canActivateForTargetContentIdentifierPredicate") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let prefersToActivateForTargetContentIdentifierPredicate self = msg_send ~self ~cmd:(selector "prefersToActivateForTargetContentIdentifierPredicate") ~typ:(returning (id)) -let setCanActivateForTargetContentIdentifierPredicate x self = msg_send ~self ~cmd:(selector "setCanActivateForTargetContentIdentifierPredicate:") ~typ:(id @-> returning (void)) x -let setPrefersToActivateForTargetContentIdentifierPredicate x self = msg_send ~self ~cmd:(selector "setPrefersToActivateForTargetContentIdentifierPredicate:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let canActivateForTargetContentIdentifierPredicate self = msg_send ~self ~cmd:(selector "canActivateForTargetContentIdentifierPredicate") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let prefersToActivateForTargetContentIdentifierPredicate self = msg_send ~self ~cmd:(selector "prefersToActivateForTargetContentIdentifierPredicate") ~typ:(returning id) +let setCanActivateForTargetContentIdentifierPredicate x self = msg_send ~self ~cmd:(selector "setCanActivateForTargetContentIdentifierPredicate:") ~typ:(id @-> returning void) x +let setPrefersToActivateForTargetContentIdentifierPredicate x self = msg_send ~self ~cmd:(selector "setPrefersToActivateForTargetContentIdentifierPredicate:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UISceneActivationConditionsClass.ml b/uikit/UISceneActivationConditionsClass.ml new file mode 100644 index 00000000..f2c648ca --- /dev/null +++ b/uikit/UISceneActivationConditionsClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisceneactivationconditions?language=objc}UISceneActivationConditions} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UISceneActivationRequestOptions.ml b/uikit/UISceneActivationRequestOptions.ml index b5917854..af1fe614 100644 --- a/uikit/UISceneActivationRequestOptions.ml +++ b/uikit/UISceneActivationRequestOptions.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISceneActivationRequestOptions" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisceneactivationrequestoptions?language=objc}UISceneActivationRequestOptions} *) -let collectionJoinBehavior self = msg_send ~self ~cmd:(selector "collectionJoinBehavior") ~typ:(returning (llong)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let preserveLayout self = msg_send ~self ~cmd:(selector "preserveLayout") ~typ:(returning (bool)) -let requestingScene self = msg_send ~self ~cmd:(selector "requestingScene") ~typ:(returning (id)) -let setCollectionJoinBehavior x self = msg_send ~self ~cmd:(selector "setCollectionJoinBehavior:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPreserveLayout x self = msg_send ~self ~cmd:(selector "setPreserveLayout:") ~typ:(bool @-> returning (void)) x -let setRequestingScene x self = msg_send ~self ~cmd:(selector "setRequestingScene:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UISceneActivationRequestOptions" + +let collectionJoinBehavior self = msg_send ~self ~cmd:(selector "collectionJoinBehavior") ~typ:(returning llong) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let preserveLayout self = msg_send ~self ~cmd:(selector "preserveLayout") ~typ:(returning bool) +let requestingScene self = msg_send ~self ~cmd:(selector "requestingScene") ~typ:(returning id) +let setCollectionJoinBehavior x self = msg_send ~self ~cmd:(selector "setCollectionJoinBehavior:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPreserveLayout x self = msg_send ~self ~cmd:(selector "setPreserveLayout:") ~typ:(bool @-> returning void) x +let setRequestingScene x self = msg_send ~self ~cmd:(selector "setRequestingScene:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UISceneAsynchronousRenderingOptions.ml b/uikit/UISceneAsynchronousRenderingOptions.ml index caed5d1f..a3d43a0a 100644 --- a/uikit/UISceneAsynchronousRenderingOptions.ml +++ b/uikit/UISceneAsynchronousRenderingOptions.ml @@ -5,21 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISceneAsynchronousRenderingOptions" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisceneasynchronousrenderingoptions?language=objc}UISceneAsynchronousRenderingOptions} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let descriptionWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithOptions x self = msg_send ~self ~cmd:(selector "initWithOptions:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:(id @-> returning (id)) x -let renderMaxAPL self = msg_send ~self ~cmd:(selector "renderMaxAPL") ~typ:(returning (float)) -let renderPeriod self = msg_send ~self ~cmd:(selector "renderPeriod") ~typ:(returning (double)) -let renderTimes self = msg_send ~self ~cmd:(selector "renderTimes") ~typ:(returning (id)) -let succinctDescription self = msg_send ~self ~cmd:(selector "succinctDescription") ~typ:(returning (id)) -let succinctDescriptionBuilder self = msg_send ~self ~cmd:(selector "succinctDescriptionBuilder") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UISceneAsynchronousRenderingOptions" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning id) x +let descriptionWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionWithMultilinePrefix:") ~typ:(id @-> returning id) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithOptions x self = msg_send ~self ~cmd:(selector "initWithOptions:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:((ptr void) @-> returning id) x +let renderMaxAPL self = msg_send ~self ~cmd:(selector "renderMaxAPL") ~typ:(returning float) +let renderPeriod self = msg_send ~self ~cmd:(selector "renderPeriod") ~typ:(returning double) +let renderTimes self = msg_send ~self ~cmd:(selector "renderTimes") ~typ:(returning id) +let succinctDescription self = msg_send ~self ~cmd:(selector "succinctDescription") ~typ:(returning id) +let succinctDescriptionBuilder self = msg_send ~self ~cmd:(selector "succinctDescriptionBuilder") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISceneConfiguration.ml b/uikit/UISceneConfiguration.ml index 015663d3..d87e9509 100644 --- a/uikit/UISceneConfiguration.ml +++ b/uikit/UISceneConfiguration.ml @@ -5,27 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISceneConfiguration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisceneconfiguration?language=objc}UISceneConfiguration} *) -module C = struct - let configurationWithName x ~sessionRole self = msg_send ~self ~cmd:(selector "configurationWithName:sessionRole:") ~typ:(id @-> id @-> returning (id)) x sessionRole - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UISceneConfiguration" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let delegateClass self = msg_send ~self ~cmd:(selector "delegateClass") ~typ:(returning (_Class)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithName x ~sessionRole self = msg_send ~self ~cmd:(selector "initWithName:sessionRole:") ~typ:(id @-> id @-> returning (id)) x sessionRole -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let role self = msg_send ~self ~cmd:(selector "role") ~typ:(returning (id)) -let sceneClass self = msg_send ~self ~cmd:(selector "sceneClass") ~typ:(returning (_Class)) -let setDelegateClass x self = msg_send ~self ~cmd:(selector "setDelegateClass:") ~typ:(_Class @-> returning (void)) x -let setSceneClass x self = msg_send ~self ~cmd:(selector "setSceneClass:") ~typ:(_Class @-> returning (void)) x -let setStoryboard x self = msg_send ~self ~cmd:(selector "setStoryboard:") ~typ:(id @-> returning (void)) x -let storyboard self = msg_send ~self ~cmd:(selector "storyboard") ~typ:(returning (id)) \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let delegateClass self = msg_send ~self ~cmd:(selector "delegateClass") ~typ:(returning _Class) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithName x ~sessionRole self = msg_send ~self ~cmd:(selector "initWithName:sessionRole:") ~typ:(id @-> id @-> returning id) x sessionRole +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) +let role self = msg_send ~self ~cmd:(selector "role") ~typ:(returning id) +let sceneClass self = msg_send ~self ~cmd:(selector "sceneClass") ~typ:(returning _Class) +let setDelegateClass x self = msg_send ~self ~cmd:(selector "setDelegateClass:") ~typ:(_Class @-> returning void) x +let setSceneClass x self = msg_send ~self ~cmd:(selector "setSceneClass:") ~typ:(_Class @-> returning void) x +let setStoryboard x self = msg_send ~self ~cmd:(selector "setStoryboard:") ~typ:(id @-> returning void) x +let storyboard self = msg_send ~self ~cmd:(selector "storyboard") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISceneConfigurationClass.ml b/uikit/UISceneConfigurationClass.ml new file mode 100644 index 00000000..9ad35dbd --- /dev/null +++ b/uikit/UISceneConfigurationClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisceneconfiguration?language=objc}UISceneConfiguration} *) + +let configurationWithName x ~sessionRole self = msg_send ~self ~cmd:(selector "configurationWithName:sessionRole:") ~typ:(id @-> id @-> returning id) x sessionRole +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UISceneConnectionOptions.ml b/uikit/UISceneConnectionOptions.ml index 6ac27011..eea8085a 100644 --- a/uikit/UISceneConnectionOptions.ml +++ b/uikit/UISceneConnectionOptions.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISceneConnectionOptions" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisceneconnectionoptions?language=objc}UISceneConnectionOptions} *) -let _URLContexts self = msg_send ~self ~cmd:(selector "URLContexts") ~typ:(returning (id)) -let cloudKitShareMetadata self = msg_send ~self ~cmd:(selector "cloudKitShareMetadata") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let handoffUserActivityType self = msg_send ~self ~cmd:(selector "handoffUserActivityType") ~typ:(returning (id)) -let notificationResponse self = msg_send ~self ~cmd:(selector "notificationResponse") ~typ:(returning (id)) -let shortcutItem self = msg_send ~self ~cmd:(selector "shortcutItem") ~typ:(returning (id)) -let sourceApplication self = msg_send ~self ~cmd:(selector "sourceApplication") ~typ:(returning (id)) -let userActivities self = msg_send ~self ~cmd:(selector "userActivities") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UISceneConnectionOptions" + +let _URLContexts self = msg_send ~self ~cmd:(selector "URLContexts") ~typ:(returning id) +let cloudKitShareMetadata self = msg_send ~self ~cmd:(selector "cloudKitShareMetadata") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let handoffUserActivityType self = msg_send ~self ~cmd:(selector "handoffUserActivityType") ~typ:(returning id) +let notificationResponse self = msg_send ~self ~cmd:(selector "notificationResponse") ~typ:(returning id) +let shortcutItem self = msg_send ~self ~cmd:(selector "shortcutItem") ~typ:(returning id) +let sourceApplication self = msg_send ~self ~cmd:(selector "sourceApplication") ~typ:(returning id) +let userActivities self = msg_send ~self ~cmd:(selector "userActivities") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISceneHitTestAction.ml b/uikit/UISceneHitTestAction.ml index 5028ee83..041ae3bf 100644 --- a/uikit/UISceneHitTestAction.ml +++ b/uikit/UISceneHitTestAction.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISceneHitTestAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscenehittestaction?language=objc}UISceneHitTestAction} *) -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let initWithTouchLocation x ~responseHandler self = msg_send ~self ~cmd:(selector "initWithTouchLocation:responseHandler:") ~typ:(CGPoint.t @-> ptr void @-> returning (id)) x responseHandler -let sendResponse x self = msg_send ~self ~cmd:(selector "sendResponse:") ~typ:(id @-> returning (void)) x -let touchLocation self = msg_send_stret ~self ~cmd:(selector "touchLocation") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UISceneHitTestAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let initWithTouchLocation x ~responseHandler self = msg_send ~self ~cmd:(selector "initWithTouchLocation:responseHandler:") ~typ:(CGPoint.t @-> (ptr void) @-> returning id) x responseHandler +let sendResponse x self = msg_send ~self ~cmd:(selector "sendResponse:") ~typ:(id @-> returning void) x +let touchLocation self = msg_send ~self ~cmd:(selector "touchLocation") ~typ:(returning CGPoint.t) \ No newline at end of file diff --git a/uikit/UISceneHitTestActionResponse.ml b/uikit/UISceneHitTestActionResponse.ml index c83b73f7..7e777c92 100644 --- a/uikit/UISceneHitTestActionResponse.ml +++ b/uikit/UISceneHitTestActionResponse.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISceneHitTestActionResponse" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscenehittestactionresponse?language=objc}UISceneHitTestActionResponse} *) -let initWithProcessIdentifier x self = msg_send ~self ~cmd:(selector "initWithProcessIdentifier:") ~typ:(int @-> returning (id)) x -let processIdentifer self = msg_send ~self ~cmd:(selector "processIdentifer") ~typ:(returning (int)) \ No newline at end of file +let self = get_class "UISceneHitTestActionResponse" + +let initWithProcessIdentifier x self = msg_send ~self ~cmd:(selector "initWithProcessIdentifier:") ~typ:(int @-> returning id) x +let processIdentifer self = msg_send ~self ~cmd:(selector "processIdentifer") ~typ:(returning int) \ No newline at end of file diff --git a/uikit/UISceneLayerPresentationContext.ml b/uikit/UISceneLayerPresentationContext.ml index 586224ed..d62d02cf 100644 --- a/uikit/UISceneLayerPresentationContext.ml +++ b/uikit/UISceneLayerPresentationContext.ml @@ -5,26 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISceneLayerPresentationContext" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscenelayerpresentationcontext?language=objc}UISceneLayerPresentationContext} *) -let alpha self = msg_send ~self ~cmd:(selector "alpha") ~typ:(returning (double)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let descriptionWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isClippingDisabled self = msg_send ~self ~cmd:(selector "isClippingDisabled") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isHidden self = msg_send ~self ~cmd:(selector "isHidden") ~typ:(returning (bool)) -let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:(id @-> returning (id)) x -let renderingMode self = msg_send ~self ~cmd:(selector "renderingMode") ~typ:(returning (ullong)) -let setAlpha x self = msg_send ~self ~cmd:(selector "setAlpha:") ~typ:(double @-> returning (void)) x -let setClippingDisabled x self = msg_send ~self ~cmd:(selector "setClippingDisabled:") ~typ:(bool @-> returning (void)) x -let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning (void)) x -let setRenderingMode x self = msg_send ~self ~cmd:(selector "setRenderingMode:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setTransformer x self = msg_send ~self ~cmd:(selector "setTransformer:") ~typ:(id @-> returning (void)) x -let succinctDescription self = msg_send ~self ~cmd:(selector "succinctDescription") ~typ:(returning (id)) -let succinctDescriptionBuilder self = msg_send ~self ~cmd:(selector "succinctDescriptionBuilder") ~typ:(returning (id)) -let transformer self = msg_send ~self ~cmd:(selector "transformer") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UISceneLayerPresentationContext" + +let alpha self = msg_send ~self ~cmd:(selector "alpha") ~typ:(returning double) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning id) x +let descriptionWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionWithMultilinePrefix:") ~typ:(id @-> returning id) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isClippingDisabled self = msg_send ~self ~cmd:(selector "isClippingDisabled") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isHidden self = msg_send ~self ~cmd:(selector "isHidden") ~typ:(returning bool) +let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:((ptr void) @-> returning id) x +let renderingMode self = msg_send ~self ~cmd:(selector "renderingMode") ~typ:(returning ullong) +let setAlpha x self = msg_send ~self ~cmd:(selector "setAlpha:") ~typ:(double @-> returning void) x +let setClippingDisabled x self = msg_send ~self ~cmd:(selector "setClippingDisabled:") ~typ:(bool @-> returning void) x +let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning void) x +let setRenderingMode x self = msg_send ~self ~cmd:(selector "setRenderingMode:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setTransformer x self = msg_send ~self ~cmd:(selector "setTransformer:") ~typ:(id @-> returning void) x +let succinctDescription self = msg_send ~self ~cmd:(selector "succinctDescription") ~typ:(returning id) +let succinctDescriptionBuilder self = msg_send ~self ~cmd:(selector "succinctDescriptionBuilder") ~typ:(returning id) +let transformer self = msg_send ~self ~cmd:(selector "transformer") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISceneOpenExternalURLOptions.ml b/uikit/UISceneOpenExternalURLOptions.ml index fe8bfbee..6b9169e3 100644 --- a/uikit/UISceneOpenExternalURLOptions.ml +++ b/uikit/UISceneOpenExternalURLOptions.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISceneOpenExternalURLOptions" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisceneopenexternalurloptions?language=objc}UISceneOpenExternalURLOptions} *) -let eventAttribution self = msg_send ~self ~cmd:(selector "eventAttribution") ~typ:(returning (id)) -let setEventAttribution x self = msg_send ~self ~cmd:(selector "setEventAttribution:") ~typ:(id @-> returning (void)) x -let setUniversalLinksOnly x self = msg_send ~self ~cmd:(selector "setUniversalLinksOnly:") ~typ:(bool @-> returning (void)) x -let universalLinksOnly self = msg_send ~self ~cmd:(selector "universalLinksOnly") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UISceneOpenExternalURLOptions" + +let eventAttribution self = msg_send ~self ~cmd:(selector "eventAttribution") ~typ:(returning id) +let setEventAttribution x self = msg_send ~self ~cmd:(selector "setEventAttribution:") ~typ:(id @-> returning void) x +let setUniversalLinksOnly x self = msg_send ~self ~cmd:(selector "setUniversalLinksOnly:") ~typ:(bool @-> returning void) x +let universalLinksOnly self = msg_send ~self ~cmd:(selector "universalLinksOnly") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UISceneOpenURLOptions.ml b/uikit/UISceneOpenURLOptions.ml index 386085f8..9ecaa8bc 100644 --- a/uikit/UISceneOpenURLOptions.ml +++ b/uikit/UISceneOpenURLOptions.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISceneOpenURLOptions" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisceneopenurloptions?language=objc}UISceneOpenURLOptions} *) -let annotation self = msg_send ~self ~cmd:(selector "annotation") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let eventAttribution self = msg_send ~self ~cmd:(selector "eventAttribution") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let openInPlace self = msg_send ~self ~cmd:(selector "openInPlace") ~typ:(returning (bool)) -let sourceApplication self = msg_send ~self ~cmd:(selector "sourceApplication") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UISceneOpenURLOptions" + +let annotation self = msg_send ~self ~cmd:(selector "annotation") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let eventAttribution self = msg_send ~self ~cmd:(selector "eventAttribution") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let openInPlace self = msg_send ~self ~cmd:(selector "openInPlace") ~typ:(returning bool) +let sourceApplication self = msg_send ~self ~cmd:(selector "sourceApplication") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIScenePresentationBinder.ml b/uikit/UIScenePresentationBinder.ml index b4c30105..9f8e1e19 100644 --- a/uikit/UIScenePresentationBinder.ml +++ b/uikit/UIScenePresentationBinder.ml @@ -5,23 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScenePresentationBinder" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscenepresentationbinder?language=objc}UIScenePresentationBinder} *) -let addScene x self = msg_send ~self ~cmd:(selector "addScene:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let descriptionWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let initWithIdentifier x ~priority ~rootView ~appearanceStyle self = msg_send ~self ~cmd:(selector "initWithIdentifier:priority:rootView:appearanceStyle:") ~typ:(id @-> llong @-> id @-> ullong @-> returning (id)) x (LLong.of_int priority) rootView (ULLong.of_int appearanceStyle) -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let removeScene x self = msg_send ~self ~cmd:(selector "removeScene:") ~typ:(id @-> returning (void)) x -let scene x ~didApplyUpdateWithContext self = msg_send ~self ~cmd:(selector "scene:didApplyUpdateWithContext:") ~typ:(id @-> id @-> returning (void)) x didApplyUpdateWithContext -let sceneDidInvalidate x self = msg_send ~self ~cmd:(selector "sceneDidInvalidate:") ~typ:(id @-> returning (void)) x -let sceneLayerManagerDidStartTrackingLayers x self = msg_send ~self ~cmd:(selector "sceneLayerManagerDidStartTrackingLayers:") ~typ:(id @-> returning (void)) x -let sceneLayerManagerDidStopTrackingLayers x self = msg_send ~self ~cmd:(selector "sceneLayerManagerDidStopTrackingLayers:") ~typ:(id @-> returning (void)) x -let scenes self = msg_send ~self ~cmd:(selector "scenes") ~typ:(returning (id)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let succinctDescription self = msg_send ~self ~cmd:(selector "succinctDescription") ~typ:(returning (id)) -let succinctDescriptionBuilder self = msg_send ~self ~cmd:(selector "succinctDescriptionBuilder") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIScenePresentationBinder" + +let addScene x self = msg_send ~self ~cmd:(selector "addScene:") ~typ:(id @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning id) x +let descriptionWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionWithMultilinePrefix:") ~typ:(id @-> returning id) x +let initWithIdentifier x ~priority ~rootView ~appearanceStyle self = msg_send ~self ~cmd:(selector "initWithIdentifier:priority:rootView:appearanceStyle:") ~typ:(id @-> llong @-> id @-> ullong @-> returning id) x (LLong.of_int priority) rootView (ULLong.of_int appearanceStyle) +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let removeScene x self = msg_send ~self ~cmd:(selector "removeScene:") ~typ:(id @-> returning void) x +let scene x ~didApplyUpdateWithContext self = msg_send ~self ~cmd:(selector "scene:didApplyUpdateWithContext:") ~typ:(id @-> id @-> returning void) x didApplyUpdateWithContext +let sceneDidInvalidate x self = msg_send ~self ~cmd:(selector "sceneDidInvalidate:") ~typ:(id @-> returning void) x +let sceneLayerManagerDidStartTrackingLayers x self = msg_send ~self ~cmd:(selector "sceneLayerManagerDidStartTrackingLayers:") ~typ:(id @-> returning void) x +let sceneLayerManagerDidStopTrackingLayers x self = msg_send ~self ~cmd:(selector "sceneLayerManagerDidStopTrackingLayers:") ~typ:(id @-> returning void) x +let scenes self = msg_send ~self ~cmd:(selector "scenes") ~typ:(returning id) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let succinctDescription self = msg_send ~self ~cmd:(selector "succinctDescription") ~typ:(returning id) +let succinctDescriptionBuilder self = msg_send ~self ~cmd:(selector "succinctDescriptionBuilder") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIScenePresentationContext.ml b/uikit/UIScenePresentationContext.ml index 23e2fa11..0623e4f4 100644 --- a/uikit/UIScenePresentationContext.ml +++ b/uikit/UIScenePresentationContext.ml @@ -5,25 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScenePresentationContext" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscenepresentationcontext?language=objc}UIScenePresentationContext} *) -let appearanceStyle self = msg_send ~self ~cmd:(selector "appearanceStyle") ~typ:(returning (ullong)) -let asynchronousRenderingOptions self = msg_send ~self ~cmd:(selector "asynchronousRenderingOptions") ~typ:(returning (id)) -let backgroundColorWhileHosting self = msg_send ~self ~cmd:(selector "backgroundColorWhileHosting") ~typ:(returning (id)) -let backgroundColorWhileNotHosting self = msg_send ~self ~cmd:(selector "backgroundColorWhileNotHosting") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let descriptionWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let hostTransformer self = msg_send ~self ~cmd:(selector "hostTransformer") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isClippingDisabled self = msg_send ~self ~cmd:(selector "isClippingDisabled") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let layerPresentationOverrides self = msg_send ~self ~cmd:(selector "layerPresentationOverrides") ~typ:(returning (id)) -let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:(id @-> returning (id)) x -let presentedLayerTypes self = msg_send ~self ~cmd:(selector "presentedLayerTypes") ~typ:(returning (ullong)) -let renderingMode self = msg_send ~self ~cmd:(selector "renderingMode") ~typ:(returning (ullong)) -let succinctDescription self = msg_send ~self ~cmd:(selector "succinctDescription") ~typ:(returning (id)) -let succinctDescriptionBuilder self = msg_send ~self ~cmd:(selector "succinctDescriptionBuilder") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIScenePresentationContext" + +let appearanceStyle self = msg_send ~self ~cmd:(selector "appearanceStyle") ~typ:(returning ullong) +let asynchronousRenderingOptions self = msg_send ~self ~cmd:(selector "asynchronousRenderingOptions") ~typ:(returning id) +let backgroundColorWhileHosting self = msg_send ~self ~cmd:(selector "backgroundColorWhileHosting") ~typ:(returning id) +let backgroundColorWhileNotHosting self = msg_send ~self ~cmd:(selector "backgroundColorWhileNotHosting") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning id) x +let descriptionWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionWithMultilinePrefix:") ~typ:(id @-> returning id) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let hostTransformer self = msg_send ~self ~cmd:(selector "hostTransformer") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isClippingDisabled self = msg_send ~self ~cmd:(selector "isClippingDisabled") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let layerPresentationOverrides self = msg_send ~self ~cmd:(selector "layerPresentationOverrides") ~typ:(returning id) +let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:((ptr void) @-> returning id) x +let presentedLayerTypes self = msg_send ~self ~cmd:(selector "presentedLayerTypes") ~typ:(returning ullong) +let renderingMode self = msg_send ~self ~cmd:(selector "renderingMode") ~typ:(returning ullong) +let succinctDescription self = msg_send ~self ~cmd:(selector "succinctDescription") ~typ:(returning id) +let succinctDescriptionBuilder self = msg_send ~self ~cmd:(selector "succinctDescriptionBuilder") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIScenePresentationManager.ml b/uikit/UIScenePresentationManager.ml index e239a80b..fb711130 100644 --- a/uikit/UIScenePresentationManager.ml +++ b/uikit/UIScenePresentationManager.ml @@ -5,28 +5,32 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScenePresentationManager" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscenepresentationmanager?language=objc}UIScenePresentationManager} *) -let createPresenterForLayerTarget x ~identifier self = msg_send ~self ~cmd:(selector "createPresenterForLayerTarget:identifier:") ~typ:(id @-> id @-> returning (id)) x identifier -let createPresenterForLayerTarget' x ~identifier ~priority self = msg_send ~self ~cmd:(selector "createPresenterForLayerTarget:identifier:priority:") ~typ:(id @-> id @-> llong @-> returning (id)) x identifier (LLong.of_int priority) -let createPresenterWithIdentifier x self = msg_send ~self ~cmd:(selector "createPresenterWithIdentifier:") ~typ:(id @-> returning (id)) x -let createPresenterWithIdentifier' x ~priority self = msg_send ~self ~cmd:(selector "createPresenterWithIdentifier:priority:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int priority) -let defaultPresentationContext self = msg_send ~self ~cmd:(selector "defaultPresentationContext") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let descriptionWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isInvalidated self = msg_send ~self ~cmd:(selector "isInvalidated") ~typ:(returning (bool)) -let modifyDefaultPresentationContext x self = msg_send ~self ~cmd:(selector "modifyDefaultPresentationContext:") ~typ:(ptr void @-> returning (void)) x -let owner x ~willPrioritizePresenter ~deactivatePresenter self = msg_send ~self ~cmd:(selector "owner:willPrioritizePresenter:deactivatePresenter:") ~typ:(id @-> id @-> id @-> returning (void)) x willPrioritizePresenter deactivatePresenter -let ownerDidInvalidateLastPresenter x self = msg_send ~self ~cmd:(selector "ownerDidInvalidateLastPresenter:") ~typ:(id @-> returning (void)) x -let scene self = msg_send ~self ~cmd:(selector "scene") ~typ:(returning (id)) -let sceneContentStateDidChange x self = msg_send ~self ~cmd:(selector "sceneContentStateDidChange:") ~typ:(id @-> returning (void)) x -let sceneDidInvalidate x self = msg_send ~self ~cmd:(selector "sceneDidInvalidate:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let snapshotContext self = msg_send ~self ~cmd:(selector "snapshotContext") ~typ:(returning (id)) -let snapshotPresentationForSnapshot x self = msg_send ~self ~cmd:(selector "snapshotPresentationForSnapshot:") ~typ:(id @-> returning (id)) x -let succinctDescription self = msg_send ~self ~cmd:(selector "succinctDescription") ~typ:(returning (id)) -let succinctDescriptionBuilder self = msg_send ~self ~cmd:(selector "succinctDescriptionBuilder") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIScenePresentationManager" + +let createPresenterForLayerTarget x ~identifier self = msg_send ~self ~cmd:(selector "createPresenterForLayerTarget:identifier:") ~typ:(id @-> id @-> returning id) x identifier +let createPresenterForLayerTarget' x ~identifier ~priority self = msg_send ~self ~cmd:(selector "createPresenterForLayerTarget:identifier:priority:") ~typ:(id @-> id @-> llong @-> returning id) x identifier (LLong.of_int priority) +let createPresenterWithIdentifier x self = msg_send ~self ~cmd:(selector "createPresenterWithIdentifier:") ~typ:(id @-> returning id) x +let createPresenterWithIdentifier' x ~priority self = msg_send ~self ~cmd:(selector "createPresenterWithIdentifier:priority:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int priority) +let defaultPresentationContext self = msg_send ~self ~cmd:(selector "defaultPresentationContext") ~typ:(returning id) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning id) x +let descriptionWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionWithMultilinePrefix:") ~typ:(id @-> returning id) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isInvalidated self = msg_send ~self ~cmd:(selector "isInvalidated") ~typ:(returning bool) +let modifyDefaultPresentationContext x self = msg_send ~self ~cmd:(selector "modifyDefaultPresentationContext:") ~typ:((ptr void) @-> returning void) x +let owner x ~willPrioritizePresenter ~deactivatePresenter self = msg_send ~self ~cmd:(selector "owner:willPrioritizePresenter:deactivatePresenter:") ~typ:(id @-> id @-> id @-> returning void) x willPrioritizePresenter deactivatePresenter +let ownerDidInvalidateLastPresenter x self = msg_send ~self ~cmd:(selector "ownerDidInvalidateLastPresenter:") ~typ:(id @-> returning void) x +let scene self = msg_send ~self ~cmd:(selector "scene") ~typ:(returning id) +let sceneContentStateDidChange x self = msg_send ~self ~cmd:(selector "sceneContentStateDidChange:") ~typ:(id @-> returning void) x +let sceneDidInvalidate x self = msg_send ~self ~cmd:(selector "sceneDidInvalidate:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let snapshotContext self = msg_send ~self ~cmd:(selector "snapshotContext") ~typ:(returning id) +let snapshotPresentationForSnapshot x self = msg_send ~self ~cmd:(selector "snapshotPresentationForSnapshot:") ~typ:(id @-> returning id) x +let succinctDescription self = msg_send ~self ~cmd:(selector "succinctDescription") ~typ:(returning id) +let succinctDescriptionBuilder self = msg_send ~self ~cmd:(selector "succinctDescriptionBuilder") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISceneProposalAction.ml b/uikit/UISceneProposalAction.ml index 3e8ae0de..50dcab0a 100644 --- a/uikit/UISceneProposalAction.ml +++ b/uikit/UISceneProposalAction.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISceneProposalAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisceneproposalaction?language=objc}UISceneProposalAction} *) -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (id)) -let initWithPersistentIdentifier x ~action ~queue ~completion self = msg_send ~self ~cmd:(selector "initWithPersistentIdentifier:action:queue:completion:") ~typ:(id @-> id @-> id @-> ptr void @-> returning (id)) x action queue completion -let initWithSceneIdentifier x ~action ~queue ~completion self = msg_send ~self ~cmd:(selector "initWithSceneIdentifier:action:queue:completion:") ~typ:(id @-> id @-> id @-> ptr void @-> returning (id)) x action queue completion -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let persistentIdentifier self = msg_send ~self ~cmd:(selector "persistentIdentifier") ~typ:(returning (id)) -let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UISceneProposalAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning id) +let initWithPersistentIdentifier x ~action ~queue ~completion self = msg_send ~self ~cmd:(selector "initWithPersistentIdentifier:action:queue:completion:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning id) x action queue completion +let initWithSceneIdentifier x ~action ~queue ~completion self = msg_send ~self ~cmd:(selector "initWithSceneIdentifier:action:queue:completion:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning id) x action queue completion +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let persistentIdentifier self = msg_send ~self ~cmd:(selector "persistentIdentifier") ~typ:(returning id) +let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISceneProposalActionResponse.ml b/uikit/UISceneProposalActionResponse.ml index b55a1c67..c5e49a5f 100644 --- a/uikit/UISceneProposalActionResponse.ml +++ b/uikit/UISceneProposalActionResponse.ml @@ -5,15 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISceneProposalActionResponse" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisceneproposalactionresponse?language=objc}UISceneProposalActionResponse} *) -module C = struct - let responseWithPersistentIdentifier x self = msg_send ~self ~cmd:(selector "responseWithPersistentIdentifier:") ~typ:(id @-> returning (id)) x - let responseWithSceneID x self = msg_send ~self ~cmd:(selector "responseWithSceneID:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UISceneProposalActionResponse" -let initWithInfo x ~error self = msg_send ~self ~cmd:(selector "initWithInfo:error:") ~typ:(id @-> id @-> returning (id)) x error -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let persistentIdentifier self = msg_send ~self ~cmd:(selector "persistentIdentifier") ~typ:(returning (id)) -let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning (id)) \ No newline at end of file +let initWithInfo x ~error self = msg_send ~self ~cmd:(selector "initWithInfo:error:") ~typ:(id @-> id @-> returning id) x error +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let persistentIdentifier self = msg_send ~self ~cmd:(selector "persistentIdentifier") ~typ:(returning id) +let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISceneProposalActionResponseClass.ml b/uikit/UISceneProposalActionResponseClass.ml new file mode 100644 index 00000000..67e9327a --- /dev/null +++ b/uikit/UISceneProposalActionResponseClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisceneproposalactionresponse?language=objc}UISceneProposalActionResponse} *) + +let responseWithPersistentIdentifier x self = msg_send ~self ~cmd:(selector "responseWithPersistentIdentifier:") ~typ:(id @-> returning id) x +let responseWithSceneID x self = msg_send ~self ~cmd:(selector "responseWithSceneID:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UISceneSession.ml b/uikit/UISceneSession.ml index 5500fdfb..44d0eb01 100644 --- a/uikit/UISceneSession.ml +++ b/uikit/UISceneSession.ml @@ -5,31 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISceneSession" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscenesession?language=objc}UISceneSession} *) -module C = struct - let canvasRepresentationForSystemType x self = msg_send ~self ~cmd:(selector "canvasRepresentationForSystemType:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let defaultCanvasRepresentation self = msg_send ~self ~cmd:(selector "defaultCanvasRepresentation") ~typ:(returning (id)) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UISceneSession" -let canvasSubclass self = msg_send ~self ~cmd:(selector "canvasSubclass") ~typ:(returning (_Class)) -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let delegateClass self = msg_send ~self ~cmd:(selector "delegateClass") ~typ:(returning (_Class)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:(id @-> returning (id)) x -let persistentIdentifier self = msg_send ~self ~cmd:(selector "persistentIdentifier") ~typ:(returning (id)) -let representedCanvas self = msg_send ~self ~cmd:(selector "representedCanvas") ~typ:(returning (id)) -let role self = msg_send ~self ~cmd:(selector "role") ~typ:(returning (id)) -let scene self = msg_send ~self ~cmd:(selector "scene") ~typ:(returning (id)) -let setStateRestorationActivity x self = msg_send ~self ~cmd:(selector "setStateRestorationActivity:") ~typ:(id @-> returning (void)) x -let setUserInfo x self = msg_send ~self ~cmd:(selector "setUserInfo:") ~typ:(id @-> returning (void)) x -let stateRestorationActivity self = msg_send ~self ~cmd:(selector "stateRestorationActivity") ~typ:(returning (id)) -let systemType self = msg_send ~self ~cmd:(selector "systemType") ~typ:(returning (llong)) -let userInfo self = msg_send ~self ~cmd:(selector "userInfo") ~typ:(returning (id)) \ No newline at end of file +let canvasSubclass self = msg_send ~self ~cmd:(selector "canvasSubclass") ~typ:(returning _Class) +let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let delegateClass self = msg_send ~self ~cmd:(selector "delegateClass") ~typ:(returning _Class) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:((ptr void) @-> returning id) x +let persistentIdentifier self = msg_send ~self ~cmd:(selector "persistentIdentifier") ~typ:(returning id) +let representedCanvas self = msg_send ~self ~cmd:(selector "representedCanvas") ~typ:(returning id) +let role self = msg_send ~self ~cmd:(selector "role") ~typ:(returning id) +let scene self = msg_send ~self ~cmd:(selector "scene") ~typ:(returning id) +let setStateRestorationActivity x self = msg_send ~self ~cmd:(selector "setStateRestorationActivity:") ~typ:(id @-> returning void) x +let setUserInfo x self = msg_send ~self ~cmd:(selector "setUserInfo:") ~typ:(id @-> returning void) x +let stateRestorationActivity self = msg_send ~self ~cmd:(selector "stateRestorationActivity") ~typ:(returning id) +let systemType self = msg_send ~self ~cmd:(selector "systemType") ~typ:(returning llong) +let userInfo self = msg_send ~self ~cmd:(selector "userInfo") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISceneSessionClass.ml b/uikit/UISceneSessionClass.ml new file mode 100644 index 00000000..81506e13 --- /dev/null +++ b/uikit/UISceneSessionClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscenesession?language=objc}UISceneSession} *) + +let canvasRepresentationForSystemType x self = msg_send ~self ~cmd:(selector "canvasRepresentationForSystemType:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultCanvasRepresentation self = msg_send ~self ~cmd:(selector "defaultCanvasRepresentation") ~typ:(returning id) +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UISceneSizeRestrictions.ml b/uikit/UISceneSizeRestrictions.ml index 73f5f16a..224b78b2 100644 --- a/uikit/UISceneSizeRestrictions.ml +++ b/uikit/UISceneSizeRestrictions.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISceneSizeRestrictions" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscenesizerestrictions?language=objc}UISceneSizeRestrictions} *) -let maximumSize self = msg_send_stret ~self ~cmd:(selector "maximumSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let minimumSize self = msg_send_stret ~self ~cmd:(selector "minimumSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let setMaximumSize x self = msg_send ~self ~cmd:(selector "setMaximumSize:") ~typ:(CGSize.t @-> returning (void)) x -let setMinimumSize x self = msg_send ~self ~cmd:(selector "setMinimumSize:") ~typ:(CGSize.t @-> returning (void)) x \ No newline at end of file +let self = get_class "UISceneSizeRestrictions" + +let maximumSize self = msg_send ~self ~cmd:(selector "maximumSize") ~typ:(returning CGSize.t) +let minimumSize self = msg_send ~self ~cmd:(selector "minimumSize") ~typ:(returning CGSize.t) +let setMaximumSize x self = msg_send ~self ~cmd:(selector "setMaximumSize:") ~typ:(CGSize.t @-> returning void) x +let setMinimumSize x self = msg_send ~self ~cmd:(selector "setMinimumSize:") ~typ:(CGSize.t @-> returning void) x \ No newline at end of file diff --git a/uikit/UIScreen.ml b/uikit/UIScreen.ml index 7a516f07..58750a0e 100644 --- a/uikit/UIScreen.ml +++ b/uikit/UIScreen.ml @@ -5,74 +5,69 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScreen" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscreen?language=objc}UIScreen} *) -module C = struct - let convertPoint x ~fromView self = msg_send_stret ~self ~cmd:(selector "convertPoint:fromView:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x fromView - let convertPoint' x ~toView self = msg_send_stret ~self ~cmd:(selector "convertPoint:toView:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x toView - let convertRect x ~fromView self = msg_send_stret ~self ~cmd:(selector "convertRect:fromView:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x fromView - let convertRect' x ~toView self = msg_send_stret ~self ~cmd:(selector "convertRect:toView:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x toView - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let mainScreen self = msg_send ~self ~cmd:(selector "mainScreen") ~typ:(returning (id)) - let screens self = msg_send ~self ~cmd:(selector "screens") ~typ:(returning (id)) -end +let self = get_class "UIScreen" -let applicationFrame self = msg_send_stret ~self ~cmd:(selector "applicationFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let availableModes self = msg_send ~self ~cmd:(selector "availableModes") ~typ:(returning (id)) -let bitsPerComponent self = msg_send ~self ~cmd:(selector "bitsPerComponent") ~typ:(returning (int)) -let bounds self = msg_send_stret ~self ~cmd:(selector "bounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let brightness self = msg_send ~self ~cmd:(selector "brightness") ~typ:(returning (double)) -let calibratedLatency self = msg_send ~self ~cmd:(selector "calibratedLatency") ~typ:(returning (double)) -let convertPoint x ~fromCoordinateSpace self = msg_send_stret ~self ~cmd:(selector "convertPoint:fromCoordinateSpace:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x fromCoordinateSpace -let convertPoint' x ~toCoordinateSpace self = msg_send_stret ~self ~cmd:(selector "convertPoint:toCoordinateSpace:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x toCoordinateSpace -let convertRect x ~fromCoordinateSpace self = msg_send_stret ~self ~cmd:(selector "convertRect:fromCoordinateSpace:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x fromCoordinateSpace -let convertRect' x ~toCoordinateSpace self = msg_send_stret ~self ~cmd:(selector "convertRect:toCoordinateSpace:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x toCoordinateSpace -let coordinateSpace self = msg_send ~self ~cmd:(selector "coordinateSpace") ~typ:(returning (id)) -let currentMode self = msg_send ~self ~cmd:(selector "currentMode") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let displayConfiguration self = msg_send ~self ~cmd:(selector "displayConfiguration") ~typ:(returning (id)) -let displayIdentity self = msg_send ~self ~cmd:(selector "displayIdentity") ~typ:(returning (id)) -let displayLinkWithTarget x ~selector_ self = msg_send ~self ~cmd:(selector "displayLinkWithTarget:selector:") ~typ:(id @-> _SEL @-> returning (id)) x selector_ -let fbsDisplay self = msg_send ~self ~cmd:(selector "fbsDisplay") ~typ:(returning (id)) -let fixedCoordinateSpace self = msg_send ~self ~cmd:(selector "fixedCoordinateSpace") ~typ:(returning (id)) -let focusItemContainer self = msg_send ~self ~cmd:(selector "focusItemContainer") ~typ:(returning (id)) -let focusItemsInRect x self = msg_send ~self ~cmd:(selector "focusItemsInRect:") ~typ:(CGRect.t @-> returning (id)) x -let focusedItem self = msg_send ~self ~cmd:(selector "focusedItem") ~typ:(returning (id)) -let focusedView self = msg_send ~self ~cmd:(selector "focusedView") ~typ:(returning (id)) -let gamut self = msg_send ~self ~cmd:(selector "gamut") ~typ:(returning (llong)) -let initWithDisplayConfiguration x self = msg_send ~self ~cmd:(selector "initWithDisplayConfiguration:") ~typ:(id @-> returning (id)) x -let initWithDisplayConfiguration' x ~forceMainScreen self = msg_send ~self ~cmd:(selector "initWithDisplayConfiguration:forceMainScreen:") ~typ:(id @-> bool @-> returning (id)) x forceMainScreen -let isCaptured self = msg_send ~self ~cmd:(selector "isCaptured") ~typ:(returning (bool)) -let maximumFramesPerSecond self = msg_send ~self ~cmd:(selector "maximumFramesPerSecond") ~typ:(returning (llong)) -let mirroredScreen self = msg_send ~self ~cmd:(selector "mirroredScreen") ~typ:(returning (id)) -let nativeBounds self = msg_send_stret ~self ~cmd:(selector "nativeBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let nativeScale self = msg_send ~self ~cmd:(selector "nativeScale") ~typ:(returning (double)) -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let overscanCompensation self = msg_send ~self ~cmd:(selector "overscanCompensation") ~typ:(returning (llong)) -let parentFocusEnvironment self = msg_send ~self ~cmd:(selector "parentFocusEnvironment") ~typ:(returning (id)) -let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning (id)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let preferredMode self = msg_send ~self ~cmd:(selector "preferredMode") ~typ:(returning (id)) -let rawBrightnessForBacklightLevel x self = msg_send ~self ~cmd:(selector "rawBrightnessForBacklightLevel:") ~typ:(float @-> returning (float)) x -let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning (double)) -let screenType self = msg_send ~self ~cmd:(selector "screenType") ~typ:(returning (int)) -let setBitsPerComponent x self = msg_send ~self ~cmd:(selector "setBitsPerComponent:") ~typ:(int @-> returning (void)) x -let setBrightness x self = msg_send ~self ~cmd:(selector "setBrightness:") ~typ:(double @-> returning (void)) x -let setCurrentMode x self = msg_send ~self ~cmd:(selector "setCurrentMode:") ~typ:(id @-> returning (void)) x -let setDisplayConfiguration x self = msg_send ~self ~cmd:(selector "setDisplayConfiguration:") ~typ:(id @-> returning (void)) x -let setFocusEnabled x self = msg_send ~self ~cmd:(selector "setFocusEnabled:") ~typ:(bool @-> returning (void)) x -let setNeedsFocusUpdate self = msg_send ~self ~cmd:(selector "setNeedsFocusUpdate") ~typ:(returning (void)) -let setOverscanCompensation x self = msg_send ~self ~cmd:(selector "setOverscanCompensation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setWantsSoftwareDimming x self = msg_send ~self ~cmd:(selector "setWantsSoftwareDimming:") ~typ:(bool @-> returning (void)) x -let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning (bool)) x -let snapshot self = msg_send ~self ~cmd:(selector "snapshot") ~typ:(returning (id)) -let snapshotView self = msg_send ~self ~cmd:(selector "snapshotView") ~typ:(returning (id)) -let snapshotViewAfterScreenUpdates x self = msg_send ~self ~cmd:(selector "snapshotViewAfterScreenUpdates:") ~typ:(bool @-> returning (id)) x -let supportsFocus self = msg_send ~self ~cmd:(selector "supportsFocus") ~typ:(returning (bool)) -let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateFocusIfNeeded self = msg_send ~self ~cmd:(selector "updateFocusIfNeeded") ~typ:(returning (void)) -let wantsSoftwareDimming self = msg_send ~self ~cmd:(selector "wantsSoftwareDimming") ~typ:(returning (bool)) \ No newline at end of file +let applicationFrame self = msg_send ~self ~cmd:(selector "applicationFrame") ~typ:(returning CGRect.t) +let availableModes self = msg_send ~self ~cmd:(selector "availableModes") ~typ:(returning id) +let bitsPerComponent self = msg_send ~self ~cmd:(selector "bitsPerComponent") ~typ:(returning int) +let bounds self = msg_send ~self ~cmd:(selector "bounds") ~typ:(returning CGRect.t) +let brightness self = msg_send ~self ~cmd:(selector "brightness") ~typ:(returning double) +let calibratedLatency self = msg_send ~self ~cmd:(selector "calibratedLatency") ~typ:(returning double) +let convertPoint x ~fromCoordinateSpace self = msg_send ~self ~cmd:(selector "convertPoint:fromCoordinateSpace:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x fromCoordinateSpace +let convertPoint' x ~toCoordinateSpace self = msg_send ~self ~cmd:(selector "convertPoint:toCoordinateSpace:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x toCoordinateSpace +let convertRect x ~fromCoordinateSpace self = msg_send ~self ~cmd:(selector "convertRect:fromCoordinateSpace:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x fromCoordinateSpace +let convertRect' x ~toCoordinateSpace self = msg_send ~self ~cmd:(selector "convertRect:toCoordinateSpace:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x toCoordinateSpace +let coordinateSpace self = msg_send ~self ~cmd:(selector "coordinateSpace") ~typ:(returning id) +let currentMode self = msg_send ~self ~cmd:(selector "currentMode") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let displayConfiguration self = msg_send ~self ~cmd:(selector "displayConfiguration") ~typ:(returning id) +let displayIdentity self = msg_send ~self ~cmd:(selector "displayIdentity") ~typ:(returning id) +let displayLinkWithTarget x ~selector_ self = msg_send ~self ~cmd:(selector "displayLinkWithTarget:selector:") ~typ:(id @-> _SEL @-> returning id) x selector_ +let fbsDisplay self = msg_send ~self ~cmd:(selector "fbsDisplay") ~typ:(returning id) +let fixedCoordinateSpace self = msg_send ~self ~cmd:(selector "fixedCoordinateSpace") ~typ:(returning id) +let focusItemContainer self = msg_send ~self ~cmd:(selector "focusItemContainer") ~typ:(returning id) +let focusItemsInRect x self = msg_send ~self ~cmd:(selector "focusItemsInRect:") ~typ:(CGRect.t @-> returning id) x +let focusedItem self = msg_send ~self ~cmd:(selector "focusedItem") ~typ:(returning id) +let focusedView self = msg_send ~self ~cmd:(selector "focusedView") ~typ:(returning id) +let gamut self = msg_send ~self ~cmd:(selector "gamut") ~typ:(returning llong) +let initWithDisplayConfiguration x self = msg_send ~self ~cmd:(selector "initWithDisplayConfiguration:") ~typ:(id @-> returning id) x +let initWithDisplayConfiguration' x ~forceMainScreen self = msg_send ~self ~cmd:(selector "initWithDisplayConfiguration:forceMainScreen:") ~typ:(id @-> bool @-> returning id) x forceMainScreen +let isCaptured self = msg_send ~self ~cmd:(selector "isCaptured") ~typ:(returning bool) +let maximumFramesPerSecond self = msg_send ~self ~cmd:(selector "maximumFramesPerSecond") ~typ:(returning llong) +let mirroredScreen self = msg_send ~self ~cmd:(selector "mirroredScreen") ~typ:(returning id) +let nativeBounds self = msg_send ~self ~cmd:(selector "nativeBounds") ~typ:(returning CGRect.t) +let nativeScale self = msg_send ~self ~cmd:(selector "nativeScale") ~typ:(returning double) +let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x ofObject change context +let overscanCompensation self = msg_send ~self ~cmd:(selector "overscanCompensation") ~typ:(returning llong) +let overscanCompensationInsets self = msg_send ~self ~cmd:(selector "overscanCompensationInsets") ~typ:(returning UIEdgeInsets.t) +let parentFocusEnvironment self = msg_send ~self ~cmd:(selector "parentFocusEnvironment") ~typ:(returning id) +let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning id) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let preferredMode self = msg_send ~self ~cmd:(selector "preferredMode") ~typ:(returning id) +let rawBrightnessForBacklightLevel x self = msg_send ~self ~cmd:(selector "rawBrightnessForBacklightLevel:") ~typ:(float @-> returning float) x +let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning double) +let screenType self = msg_send ~self ~cmd:(selector "screenType") ~typ:(returning int) +let setBitsPerComponent x self = msg_send ~self ~cmd:(selector "setBitsPerComponent:") ~typ:(int @-> returning void) x +let setBrightness x self = msg_send ~self ~cmd:(selector "setBrightness:") ~typ:(double @-> returning void) x +let setCurrentMode x self = msg_send ~self ~cmd:(selector "setCurrentMode:") ~typ:(id @-> returning void) x +let setDisplayConfiguration x self = msg_send ~self ~cmd:(selector "setDisplayConfiguration:") ~typ:(id @-> returning void) x +let setFocusEnabled x self = msg_send ~self ~cmd:(selector "setFocusEnabled:") ~typ:(bool @-> returning void) x +let setNeedsFocusUpdate self = msg_send ~self ~cmd:(selector "setNeedsFocusUpdate") ~typ:(returning void) +let setOverscanCompensation x self = msg_send ~self ~cmd:(selector "setOverscanCompensation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setWantsSoftwareDimming x self = msg_send ~self ~cmd:(selector "setWantsSoftwareDimming:") ~typ:(bool @-> returning void) x +let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning bool) x +let snapshot self = msg_send ~self ~cmd:(selector "snapshot") ~typ:(returning id) +let snapshotView self = msg_send ~self ~cmd:(selector "snapshotView") ~typ:(returning id) +let snapshotViewAfterScreenUpdates x self = msg_send ~self ~cmd:(selector "snapshotViewAfterScreenUpdates:") ~typ:(bool @-> returning id) x +let supportsFocus self = msg_send ~self ~cmd:(selector "supportsFocus") ~typ:(returning bool) +let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let updateFocusIfNeeded self = msg_send ~self ~cmd:(selector "updateFocusIfNeeded") ~typ:(returning void) +let wantsSoftwareDimming self = msg_send ~self ~cmd:(selector "wantsSoftwareDimming") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIScreenClass.ml b/uikit/UIScreenClass.ml new file mode 100644 index 00000000..c5069ed4 --- /dev/null +++ b/uikit/UIScreenClass.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscreen?language=objc}UIScreen} *) + +let convertPoint x ~fromView self = msg_send ~self ~cmd:(selector "convertPoint:fromView:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x fromView +let convertPoint' x ~toView self = msg_send ~self ~cmd:(selector "convertPoint:toView:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x toView +let convertRect x ~fromView self = msg_send ~self ~cmd:(selector "convertRect:fromView:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x fromView +let convertRect' x ~toView self = msg_send ~self ~cmd:(selector "convertRect:toView:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x toView +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) +let mainScreen self = msg_send ~self ~cmd:(selector "mainScreen") ~typ:(returning id) +let screens self = msg_send ~self ~cmd:(selector "screens") ~typ:(returning id) +let transformForScreenOriginRotation x self = msg_send ~self ~cmd:(selector "transformForScreenOriginRotation:") ~typ:(double @-> returning CGAffineTransform.t) x +let transformToRotateScreen x self = msg_send ~self ~cmd:(selector "transformToRotateScreen:") ~typ:(double @-> returning CGAffineTransform.t) x \ No newline at end of file diff --git a/uikit/UIScreenEdgePanGestureRecognizer.ml b/uikit/UIScreenEdgePanGestureRecognizer.ml index 2c43bc40..ecabef2a 100644 --- a/uikit/UIScreenEdgePanGestureRecognizer.ml +++ b/uikit/UIScreenEdgePanGestureRecognizer.ml @@ -5,24 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScreenEdgePanGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscreenedgepangesturerecognizer?language=objc}UIScreenEdgePanGestureRecognizer} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIScreenEdgePanGestureRecognizer" -let debugDictionary self = msg_send ~self ~cmd:(selector "debugDictionary") ~typ:(returning (id)) -let edges self = msg_send ~self ~cmd:(selector "edges") ~typ:(returning (ullong)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let featureDidChangeState x self = msg_send ~self ~cmd:(selector "featureDidChangeState:") ~typ:(id @-> returning (void)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let initWithTarget' x ~action ~type_ ~options self = msg_send ~self ~cmd:(selector "initWithTarget:action:type:options:") ~typ:(id @-> _SEL @-> llong @-> ullong @-> returning (id)) x action (LLong.of_int type_) (ULLong.of_int options) -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let setEdges x self = msg_send ~self ~cmd:(selector "setEdges:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setMinimumNumberOfTouches x self = msg_send ~self ~cmd:(selector "setMinimumNumberOfTouches:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let touchedEdges self = msg_send ~self ~cmd:(selector "touchedEdges") ~typ:(returning (ullong)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let debugDictionary self = msg_send ~self ~cmd:(selector "debugDictionary") ~typ:(returning id) +let edges self = msg_send ~self ~cmd:(selector "edges") ~typ:(returning ullong) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let featureDidChangeState x self = msg_send ~self ~cmd:(selector "featureDidChangeState:") ~typ:(id @-> returning void) x +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let initWithTarget' x ~action ~type_ ~options self = msg_send ~self ~cmd:(selector "initWithTarget:action:type:options:") ~typ:(id @-> _SEL @-> llong @-> ullong @-> returning id) x action (LLong.of_int type_) (ULLong.of_int options) +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let setEdges x self = msg_send ~self ~cmd:(selector "setEdges:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setMinimumNumberOfTouches x self = msg_send ~self ~cmd:(selector "setMinimumNumberOfTouches:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let touchedEdges self = msg_send ~self ~cmd:(selector "touchedEdges") ~typ:(returning ullong) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UIScreenEdgePanGestureRecognizerClass.ml b/uikit/UIScreenEdgePanGestureRecognizerClass.ml new file mode 100644 index 00000000..3ade7ae3 --- /dev/null +++ b/uikit/UIScreenEdgePanGestureRecognizerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscreenedgepangesturerecognizer?language=objc}UIScreenEdgePanGestureRecognizer} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIScreenMode.ml b/uikit/UIScreenMode.ml index 3d545707..cdb027f0 100644 --- a/uikit/UIScreenMode.ml +++ b/uikit/UIScreenMode.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScreenMode" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscreenmode?language=objc}UIScreenMode} *) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let initWithDisplayMode x ~mainScreen self = msg_send ~self ~cmd:(selector "initWithDisplayMode:mainScreen:") ~typ:(id @-> bool @-> returning (id)) x mainScreen -let pixelAspectRatio self = msg_send ~self ~cmd:(selector "pixelAspectRatio") ~typ:(returning (double)) -let size self = msg_send_stret ~self ~cmd:(selector "size") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t \ No newline at end of file +let self = get_class "UIScreenMode" + +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let initWithDisplayMode x ~mainScreen self = msg_send ~self ~cmd:(selector "initWithDisplayMode:mainScreen:") ~typ:(id @-> bool @-> returning id) x mainScreen +let pixelAspectRatio self = msg_send ~self ~cmd:(selector "pixelAspectRatio") ~typ:(returning double) +let size self = msg_send ~self ~cmd:(selector "size") ~typ:(returning CGSize.t) \ No newline at end of file diff --git a/uikit/UIScreenshotMetadataRequestAction.ml b/uikit/UIScreenshotMetadataRequestAction.ml index b8282588..cc831c2f 100644 --- a/uikit/UIScreenshotMetadataRequestAction.ml +++ b/uikit/UIScreenshotMetadataRequestAction.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScreenshotMetadataRequestAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscreenshotmetadatarequestaction?language=objc}UIScreenshotMetadataRequestAction} *) -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let fulfillRequest self = msg_send ~self ~cmd:(selector "fulfillRequest") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIScreenshotMetadataRequestAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let fulfillRequest self = msg_send ~self ~cmd:(selector "fulfillRequest") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIScreenshotService.ml b/uikit/UIScreenshotService.ml index eb12734a..a49c7d3a 100644 --- a/uikit/UIScreenshotService.ml +++ b/uikit/UIScreenshotService.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScreenshotService" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscreenshotservice?language=objc}UIScreenshotService} *) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let initWithScene x self = msg_send ~self ~cmd:(selector "initWithScene:") ~typ:(id @-> returning (id)) x -let privateDelegate self = msg_send ~self ~cmd:(selector "privateDelegate") ~typ:(returning (id)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setPrivateDelegate x self = msg_send ~self ~cmd:(selector "setPrivateDelegate:") ~typ:(id @-> returning (void)) x -let windowScene self = msg_send ~self ~cmd:(selector "windowScene") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIScreenshotService" + +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let initWithScene x self = msg_send ~self ~cmd:(selector "initWithScene:") ~typ:(id @-> returning id) x +let privateDelegate self = msg_send ~self ~cmd:(selector "privateDelegate") ~typ:(returning id) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setPrivateDelegate x self = msg_send ~self ~cmd:(selector "setPrivateDelegate:") ~typ:(id @-> returning void) x +let windowScene self = msg_send ~self ~cmd:(selector "windowScene") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIScribbleInteraction.ml b/uikit/UIScribbleInteraction.ml index fb05a7f1..0e507904 100644 --- a/uikit/UIScribbleInteraction.ml +++ b/uikit/UIScribbleInteraction.ml @@ -5,17 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScribbleInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscribbleinteraction?language=objc}UIScribbleInteraction} *) -module C = struct - let isPencilInputExpected self = msg_send ~self ~cmd:(selector "isPencilInputExpected") ~typ:(returning (bool)) -end +let self = get_class "UIScribbleInteraction" -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning (id)) x -let isHandlingWriting self = msg_send ~self ~cmd:(selector "isHandlingWriting") ~typ:(returning (bool)) -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning id) x +let isHandlingWriting self = msg_send ~self ~cmd:(selector "isHandlingWriting") ~typ:(returning bool) +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIScribbleInteractionClass.ml b/uikit/UIScribbleInteractionClass.ml new file mode 100644 index 00000000..9204754a --- /dev/null +++ b/uikit/UIScribbleInteractionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscribbleinteraction?language=objc}UIScribbleInteraction} *) + +let isPencilInputExpected self = msg_send ~self ~cmd:(selector "isPencilInputExpected") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIScrollAnimation.ml b/uikit/UIScrollAnimation.ml index 3390539c..f6b9a5b8 100644 --- a/uikit/UIScrollAnimation.ml +++ b/uikit/UIScrollAnimation.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScrollAnimation" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscrollanimation?language=objc}UIScrollAnimation} *) -let setEndPoint x self = msg_send ~self ~cmd:(selector "setEndPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(float @-> returning (void)) x -let setStartPoint x self = msg_send ~self ~cmd:(selector "setStartPoint:") ~typ:(CGPoint.t @-> returning (void)) x \ No newline at end of file +let self = get_class "UIScrollAnimation" + +let setEndPoint x self = msg_send ~self ~cmd:(selector "setEndPoint:") ~typ:(CGPoint.t @-> returning void) x +let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(float @-> returning void) x +let setStartPoint x self = msg_send ~self ~cmd:(selector "setStartPoint:") ~typ:(CGPoint.t @-> returning void) x \ No newline at end of file diff --git a/uikit/UIScrollEvent.ml b/uikit/UIScrollEvent.ml index 5d98d1e2..6eff7123 100644 --- a/uikit/UIScrollEvent.ml +++ b/uikit/UIScrollEvent.ml @@ -5,11 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScrollEvent" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscrollevent?language=objc}UIScrollEvent} *) -let directionInvertedFromDevice self = msg_send ~self ~cmd:(selector "directionInvertedFromDevice") ~typ:(returning (bool)) -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let phase self = msg_send ~self ~cmd:(selector "phase") ~typ:(returning (ullong)) -let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning (llong)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIScrollEvent" + +let acceleratedDelta self = msg_send ~self ~cmd:(selector "acceleratedDelta") ~typ:(returning CGVector.t) +let directionInvertedFromDevice self = msg_send ~self ~cmd:(selector "directionInvertedFromDevice") ~typ:(returning bool) +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let nonAcceleratedDelta self = msg_send ~self ~cmd:(selector "nonAcceleratedDelta") ~typ:(returning CGVector.t) +let phase self = msg_send ~self ~cmd:(selector "phase") ~typ:(returning ullong) +let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning llong) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIScrollTestParameters.ml b/uikit/UIScrollTestParameters.ml index e1fc8bef..725b6e30 100644 --- a/uikit/UIScrollTestParameters.ml +++ b/uikit/UIScrollTestParameters.ml @@ -5,28 +5,32 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScrollTestParameters" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscrolltestparameters?language=objc}UIScrollTestParameters} *) -let axis self = msg_send ~self ~cmd:(selector "axis") ~typ:(returning (ullong)) +let self = get_class "UIScrollTestParameters" + +let axis self = msg_send ~self ~cmd:(selector "axis") ~typ:(returning ullong) let completionBlock self = msg_send ~self ~cmd:(selector "completionBlock") ~typ:(returning (ptr void)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delta self = msg_send ~self ~cmd:(selector "delta") ~typ:(returning (double)) -let displayLink self = msg_send ~self ~cmd:(selector "displayLink") ~typ:(returning (id)) -let endOffset self = msg_send ~self ~cmd:(selector "endOffset") ~typ:(returning (double)) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delta self = msg_send ~self ~cmd:(selector "delta") ~typ:(returning double) +let displayLink self = msg_send ~self ~cmd:(selector "displayLink") ~typ:(returning id) +let endOffset self = msg_send ~self ~cmd:(selector "endOffset") ~typ:(returning double) let extraResultsBlock self = msg_send ~self ~cmd:(selector "extraResultsBlock") ~typ:(returning (ptr void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let iterations self = msg_send ~self ~cmd:(selector "iterations") ~typ:(returning (llong)) -let length self = msg_send ~self ~cmd:(selector "length") ~typ:(returning (double)) -let setAxis x self = msg_send ~self ~cmd:(selector "setAxis:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setCompletionBlock x self = msg_send ~self ~cmd:(selector "setCompletionBlock:") ~typ:(ptr void @-> returning (void)) x -let setDelta x self = msg_send ~self ~cmd:(selector "setDelta:") ~typ:(double @-> returning (void)) x -let setDisplayLink x self = msg_send ~self ~cmd:(selector "setDisplayLink:") ~typ:(id @-> returning (void)) x -let setExtraResultsBlock x self = msg_send ~self ~cmd:(selector "setExtraResultsBlock:") ~typ:(ptr void @-> returning (void)) x -let setIterations x self = msg_send ~self ~cmd:(selector "setIterations:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setLength x self = msg_send ~self ~cmd:(selector "setLength:") ~typ:(double @-> returning (void)) x -let setStartOffset x self = msg_send ~self ~cmd:(selector "setStartOffset:") ~typ:(double @-> returning (void)) x -let setTestName x self = msg_send ~self ~cmd:(selector "setTestName:") ~typ:(id @-> returning (void)) x -let startOffset self = msg_send ~self ~cmd:(selector "startOffset") ~typ:(returning (double)) -let testName self = msg_send ~self ~cmd:(selector "testName") ~typ:(returning (id)) \ No newline at end of file +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let iterations self = msg_send ~self ~cmd:(selector "iterations") ~typ:(returning llong) +let length self = msg_send ~self ~cmd:(selector "length") ~typ:(returning double) +let setAxis x self = msg_send ~self ~cmd:(selector "setAxis:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setCompletionBlock x self = msg_send ~self ~cmd:(selector "setCompletionBlock:") ~typ:((ptr void) @-> returning void) x +let setDelta x self = msg_send ~self ~cmd:(selector "setDelta:") ~typ:(double @-> returning void) x +let setDisplayLink x self = msg_send ~self ~cmd:(selector "setDisplayLink:") ~typ:(id @-> returning void) x +let setExtraResultsBlock x self = msg_send ~self ~cmd:(selector "setExtraResultsBlock:") ~typ:((ptr void) @-> returning void) x +let setIterations x self = msg_send ~self ~cmd:(selector "setIterations:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setLength x self = msg_send ~self ~cmd:(selector "setLength:") ~typ:(double @-> returning void) x +let setStartOffset x self = msg_send ~self ~cmd:(selector "setStartOffset:") ~typ:(double @-> returning void) x +let setTestName x self = msg_send ~self ~cmd:(selector "setTestName:") ~typ:(id @-> returning void) x +let startOffset self = msg_send ~self ~cmd:(selector "startOffset") ~typ:(returning double) +let testName self = msg_send ~self ~cmd:(selector "testName") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIScrollToDismissSupport.ml b/uikit/UIScrollToDismissSupport.ml index 21e0829b..4e8ab7e3 100644 --- a/uikit/UIScrollToDismissSupport.ml +++ b/uikit/UIScrollToDismissSupport.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScrollToDismissSupport" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscrolltodismisssupport?language=objc}UIScrollToDismissSupport} *) -let cancelNotificationsForMode x self = msg_send ~self ~cmd:(selector "cancelNotificationsForMode:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let completeKeyboardDismiss x ~withDuration self = msg_send ~self ~cmd:(selector "completeKeyboardDismiss:withDuration:") ~typ:(ullong @-> double @-> returning (void)) (ULLong.of_int x) withDuration -let completedPlacementFrom x ~to_ ~forController self = msg_send ~self ~cmd:(selector "completedPlacementFrom:to:forController:") ~typ:(id @-> id @-> id @-> returning (void)) x to_ forController -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let finishScrollViewTransition self = msg_send ~self ~cmd:(selector "finishScrollViewTransition") ~typ:(returning (void)) -let finishScrollViewTransitionForController x self = msg_send ~self ~cmd:(selector "finishScrollViewTransitionForController:") ~typ:(id @-> returning (void)) x -let hideScrollViewHorizontalScrollIndicator x self = msg_send ~self ~cmd:(selector "hideScrollViewHorizontalScrollIndicator:") ~typ:(bool @-> returning (void)) x -let scrollView x ~didFinishPanGesture self = msg_send ~self ~cmd:(selector "scrollView:didFinishPanGesture:") ~typ:(id @-> id @-> returning (void)) x didFinishPanGesture -let scrollView' x ~didPanWithGesture self = msg_send ~self ~cmd:(selector "scrollView:didPanWithGesture:") ~typ:(id @-> id @-> returning (void)) x didPanWithGesture -let setInterfaceAutorotationDisabled x ~forController self = msg_send ~self ~cmd:(selector "setInterfaceAutorotationDisabled:forController:") ~typ:(bool @-> id @-> returning (void)) x forController -let updateScrollViewContentInsetBottom x self = msg_send ~self ~cmd:(selector "updateScrollViewContentInsetBottom:") ~typ:(double @-> returning (void)) x \ No newline at end of file +let self = get_class "UIScrollToDismissSupport" + +let cancelNotificationsForMode x self = msg_send ~self ~cmd:(selector "cancelNotificationsForMode:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let completeKeyboardDismiss x ~withDuration self = msg_send ~self ~cmd:(selector "completeKeyboardDismiss:withDuration:") ~typ:(ullong @-> double @-> returning void) (ULLong.of_int x) withDuration +let completedPlacementFrom x ~to_ ~forController self = msg_send ~self ~cmd:(selector "completedPlacementFrom:to:forController:") ~typ:(id @-> id @-> id @-> returning void) x to_ forController +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let finishScrollViewTransition self = msg_send ~self ~cmd:(selector "finishScrollViewTransition") ~typ:(returning void) +let finishScrollViewTransitionForController x self = msg_send ~self ~cmd:(selector "finishScrollViewTransitionForController:") ~typ:(id @-> returning void) x +let hideScrollViewHorizontalScrollIndicator x self = msg_send ~self ~cmd:(selector "hideScrollViewHorizontalScrollIndicator:") ~typ:(bool @-> returning void) x +let scrollView x ~didFinishPanGesture self = msg_send ~self ~cmd:(selector "scrollView:didFinishPanGesture:") ~typ:(id @-> id @-> returning void) x didFinishPanGesture +let scrollView' x ~didPanWithGesture self = msg_send ~self ~cmd:(selector "scrollView:didPanWithGesture:") ~typ:(id @-> id @-> returning void) x didPanWithGesture +let setInterfaceAutorotationDisabled x ~forController self = msg_send ~self ~cmd:(selector "setInterfaceAutorotationDisabled:forController:") ~typ:(bool @-> id @-> returning void) x forController +let updateScrollViewContentInsetBottom x self = msg_send ~self ~cmd:(selector "updateScrollViewContentInsetBottom:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit/UIScrollView.ml b/uikit/UIScrollView.ml index 85fce460..1e11c061 100644 --- a/uikit/UIScrollView.ml +++ b/uikit/UIScrollView.ml @@ -5,173 +5,183 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScrollView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscrollview?language=objc}UIScrollView} *) -let _PDFKitDocumentVisibleRectIncludingContentInsets self = msg_send_stret ~self ~cmd:(selector "PDFKitDocumentVisibleRectIncludingContentInsets") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let accessoryInsetsDidChange x self = msg_send ~self ~cmd:(selector "accessoryInsetsDidChange:") ~typ:(ptr void @-> returning (void)) x -let accessoryViewAtEdge x self = msg_send ~self ~cmd:(selector "accessoryViewAtEdge:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let accessoryViews self = msg_send ~self ~cmd:(selector "accessoryViews") ~typ:(returning (id)) -let adjustedContentInsetDidChange self = msg_send ~self ~cmd:(selector "adjustedContentInsetDidChange") ~typ:(returning (void)) -let akMagnification self = msg_send ~self ~cmd:(selector "akMagnification") ~typ:(returning (double)) -let allowsMultipleFingers self = msg_send ~self ~cmd:(selector "allowsMultipleFingers") ~typ:(returning (bool)) -let alwaysBounceHorizontal self = msg_send ~self ~cmd:(selector "alwaysBounceHorizontal") ~typ:(returning (bool)) -let alwaysBounceVertical self = msg_send ~self ~cmd:(selector "alwaysBounceVertical") ~typ:(returning (bool)) -let animator x ~startAnimation self = msg_send ~self ~cmd:(selector "animator:startAnimation:") ~typ:(id @-> id @-> returning (void)) x startAnimation -let animator' x ~stopAnimation ~fraction self = msg_send ~self ~cmd:(selector "animator:stopAnimation:fraction:") ~typ:(id @-> id @-> float @-> returning (void)) x stopAnimation fraction -let automaticallyAdjustsScrollIndicatorInsets self = msg_send ~self ~cmd:(selector "automaticallyAdjustsScrollIndicatorInsets") ~typ:(returning (bool)) -let autoscrollContentOffset self = msg_send_stret ~self ~cmd:(selector "autoscrollContentOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let bounces self = msg_send ~self ~cmd:(selector "bounces") ~typ:(returning (bool)) -let bouncesHorizontally self = msg_send ~self ~cmd:(selector "bouncesHorizontally") ~typ:(returning (bool)) -let bouncesVertically self = msg_send ~self ~cmd:(selector "bouncesVertically") ~typ:(returning (bool)) -let bouncesZoom self = msg_send ~self ~cmd:(selector "bouncesZoom") ~typ:(returning (bool)) -let canCancelContentTouches self = msg_send ~self ~cmd:(selector "canCancelContentTouches") ~typ:(returning (bool)) -let cancelMouseTracking self = msg_send ~self ~cmd:(selector "cancelMouseTracking") ~typ:(returning (bool)) -let cancelTouchTracking self = msg_send ~self ~cmd:(selector "cancelTouchTracking") ~typ:(returning (bool)) -let contentAreaRectForScrollerImpPair x self = msg_send_stret ~self ~cmd:(selector "contentAreaRectForScrollerImpPair:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let contentFrameForView x self = msg_send_stret ~self ~cmd:(selector "contentFrameForView:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let contentInsetAdjustmentBehavior self = msg_send ~self ~cmd:(selector "contentInsetAdjustmentBehavior") ~typ:(returning (llong)) -let contentLayoutGuide self = msg_send ~self ~cmd:(selector "contentLayoutGuide") ~typ:(returning (id)) -let contentOffset self = msg_send_stret ~self ~cmd:(selector "contentOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let contentSize self = msg_send_stret ~self ~cmd:(selector "contentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let decelerationRate self = msg_send ~self ~cmd:(selector "decelerationRate") ~typ:(returning (double)) -let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let delayed x self = msg_send ~self ~cmd:(selector "delayed:") ~typ:(id @-> returning (void)) x -let delaysContentTouches self = msg_send ~self ~cmd:(selector "delaysContentTouches") ~typ:(returning (bool)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let directionalPressGestureRecognizer self = msg_send ~self ~cmd:(selector "directionalPressGestureRecognizer") ~typ:(returning (id)) -let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let flashScrollIndicators self = msg_send ~self ~cmd:(selector "flashScrollIndicators") ~typ:(returning (void)) -let frameLayoutGuide self = msg_send ~self ~cmd:(selector "frameLayoutGuide") ~typ:(returning (id)) -let gestureRecognizer x ~canPreventGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:canPreventGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x canPreventGestureRecognizer -let gestureRecognizer' x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning (bool)) x shouldReceiveTouch -let handlePan x self = msg_send ~self ~cmd:(selector "handlePan:") ~typ:(id @-> returning (void)) x -let handlePinch x self = msg_send ~self ~cmd:(selector "handlePinch:") ~typ:(id @-> returning (void)) x -let hasScrolledContentsUnderTitlebar self = msg_send ~self ~cmd:(selector "hasScrolledContentsUnderTitlebar") ~typ:(returning (bool)) -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let horizontalScrollDecelerationFactor self = msg_send ~self ~cmd:(selector "horizontalScrollDecelerationFactor") ~typ:(returning (double)) -let inLiveResizeForScrollerImpPair x self = msg_send ~self ~cmd:(selector "inLiveResizeForScrollerImpPair:") ~typ:(id @-> returning (bool)) x -let indexBarAccessoryView x ~contentOffsetForEntry ~atIndex self = msg_send_stret ~self ~cmd:(selector "indexBarAccessoryView:contentOffsetForEntry:atIndex:") ~typ:(id @-> id @-> llong @-> returning (CGPoint.t)) ~return_type:CGPoint.t x contentOffsetForEntry (LLong.of_int atIndex) -let indexDisplayMode self = msg_send ~self ~cmd:(selector "indexDisplayMode") ~typ:(returning (llong)) -let indicatorStyle self = msg_send ~self ~cmd:(selector "indicatorStyle") ~typ:(returning (llong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isAutomaticContentOffsetAdjustmentsAnimated self = msg_send ~self ~cmd:(selector "isAutomaticContentOffsetAdjustmentsAnimated") ~typ:(returning (bool)) -let isDecelerating self = msg_send ~self ~cmd:(selector "isDecelerating") ~typ:(returning (bool)) -let isDirectionalLockEnabled self = msg_send ~self ~cmd:(selector "isDirectionalLockEnabled") ~typ:(returning (bool)) -let isDragging self = msg_send ~self ~cmd:(selector "isDragging") ~typ:(returning (bool)) -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isPagingEnabled self = msg_send ~self ~cmd:(selector "isPagingEnabled") ~typ:(returning (bool)) -let isProgrammaticScrollEnabled self = msg_send ~self ~cmd:(selector "isProgrammaticScrollEnabled") ~typ:(returning (bool)) -let isScrollEnabled self = msg_send ~self ~cmd:(selector "isScrollEnabled") ~typ:(returning (bool)) -let isTracking self = msg_send ~self ~cmd:(selector "isTracking") ~typ:(returning (bool)) -let isZoomBouncing self = msg_send ~self ~cmd:(selector "isZoomBouncing") ~typ:(returning (bool)) -let isZoomEnabled self = msg_send ~self ~cmd:(selector "isZoomEnabled") ~typ:(returning (bool)) -let isZooming self = msg_send ~self ~cmd:(selector "isZooming") ~typ:(returning (bool)) -let keyboardBottomInsetAdjustmentDelta self = msg_send ~self ~cmd:(selector "keyboardBottomInsetAdjustmentDelta") ~typ:(returning (double)) -let keyboardDismissMode self = msg_send ~self ~cmd:(selector "keyboardDismissMode") ~typ:(returning (llong)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let maximumZoomScale self = msg_send ~self ~cmd:(selector "maximumZoomScale") ~typ:(returning (double)) -let minimumZoomScale self = msg_send ~self ~cmd:(selector "minimumZoomScale") ~typ:(returning (double)) -let mouseLocationInContentAreaForScrollerImpPair x self = msg_send_stret ~self ~cmd:(selector "mouseLocationInContentAreaForScrollerImpPair:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let mouseLocationInScrollerForScrollerImp x self = msg_send_stret ~self ~cmd:(selector "mouseLocationInScrollerForScrollerImp:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let panGestureRecognizer self = msg_send ~self ~cmd:(selector "panGestureRecognizer") ~typ:(returning (id)) -let performWhileAnimatingAutomaticContentOffsetAdjustments x self = msg_send ~self ~cmd:(selector "performWhileAnimatingAutomaticContentOffsetAdjustments:") ~typ:(ptr void @-> returning (void)) x -let pinchGestureRecognizer self = msg_send ~self ~cmd:(selector "pinchGestureRecognizer") ~typ:(returning (id)) -let preservesCenterDuringRotation self = msg_send ~self ~cmd:(selector "preservesCenterDuringRotation") ~typ:(returning (bool)) -let refreshControl self = msg_send ~self ~cmd:(selector "refreshControl") ~typ:(returning (id)) -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let scrollRectToVisible x ~animated self = msg_send ~self ~cmd:(selector "scrollRectToVisible:animated:") ~typ:(CGRect.t @-> bool @-> returning (void)) x animated -let scrollTestParameters self = msg_send ~self ~cmd:(selector "scrollTestParameters") ~typ:(returning (id)) -let scrollViewFrame self = msg_send_stret ~self ~cmd:(selector "scrollViewFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let scrollerImp x ~animateExpansionTransitionWithDuration self = msg_send ~self ~cmd:(selector "scrollerImp:animateExpansionTransitionWithDuration:") ~typ:(id @-> double @-> returning (void)) x animateExpansionTransitionWithDuration -let scrollerImp1 x ~animateUIStateTransitionWithDuration self = msg_send ~self ~cmd:(selector "scrollerImp:animateUIStateTransitionWithDuration:") ~typ:(id @-> double @-> returning (void)) x animateUIStateTransitionWithDuration -let scrollerImp2 x ~convertRectFromBacking self = msg_send_stret ~self ~cmd:(selector "scrollerImp:convertRectFromBacking:") ~typ:(id @-> CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x convertRectFromBacking -let scrollerImp3 x ~convertRectToBacking self = msg_send_stret ~self ~cmd:(selector "scrollerImp:convertRectToBacking:") ~typ:(id @-> CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x convertRectToBacking -let scrollerImp4 x ~convertRectToLayer self = msg_send_stret ~self ~cmd:(selector "scrollerImp:convertRectToLayer:") ~typ:(id @-> CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x convertRectToLayer -let scrollerImp5 x ~overlayScrollerStateChangedTo self = msg_send ~self ~cmd:(selector "scrollerImp:overlayScrollerStateChangedTo:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int overlayScrollerStateChangedTo) -let scrollerImp6 x ~animateKnobAlphaTo ~duration self = msg_send ~self ~cmd:(selector "scrollerImp:animateKnobAlphaTo:duration:") ~typ:(id @-> double @-> double @-> returning (void)) x animateKnobAlphaTo duration -let scrollerImp7 x ~animateTrackAlphaTo ~duration self = msg_send ~self ~cmd:(selector "scrollerImp:animateTrackAlphaTo:duration:") ~typ:(id @-> double @-> double @-> returning (void)) x animateTrackAlphaTo duration -let scrollerImpPair x ~isContentPointVisible self = msg_send ~self ~cmd:(selector "scrollerImpPair:isContentPointVisible:") ~typ:(id @-> CGPoint.t @-> returning (bool)) x isContentPointVisible -let scrollerImpPair1 x ~setContentAreaNeedsDisplayInRect self = msg_send ~self ~cmd:(selector "scrollerImpPair:setContentAreaNeedsDisplayInRect:") ~typ:(id @-> CGRect.t @-> returning (void)) x setContentAreaNeedsDisplayInRect -let scrollerImpPair2 x ~updateScrollerStyleForNewRecommendedScrollerStyle self = msg_send ~self ~cmd:(selector "scrollerImpPair:updateScrollerStyleForNewRecommendedScrollerStyle:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int updateScrollerStyleForNewRecommendedScrollerStyle) -let scrollerImpPair3 x ~convertContentPoint ~toScrollerImp self = msg_send_stret ~self ~cmd:(selector "scrollerImpPair:convertContentPoint:toScrollerImp:") ~typ:(id @-> CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x convertContentPoint toScrollerImp -let scrollsToTop self = msg_send ~self ~cmd:(selector "scrollsToTop") ~typ:(returning (bool)) -let separatorOffset self = msg_send ~self ~cmd:(selector "separatorOffset") ~typ:(returning (double)) -let setAccessoryView x ~atEdge self = msg_send ~self ~cmd:(selector "setAccessoryView:atEdge:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int atEdge) -let setAccessoryViews x self = msg_send ~self ~cmd:(selector "setAccessoryViews:") ~typ:(id @-> returning (void)) x -let setAllowsMultipleFingers x self = msg_send ~self ~cmd:(selector "setAllowsMultipleFingers:") ~typ:(bool @-> returning (void)) x -let setAlwaysBounceHorizontal x self = msg_send ~self ~cmd:(selector "setAlwaysBounceHorizontal:") ~typ:(bool @-> returning (void)) x -let setAlwaysBounceVertical x self = msg_send ~self ~cmd:(selector "setAlwaysBounceVertical:") ~typ:(bool @-> returning (void)) x -let setAutomaticallyAdjustsScrollIndicatorInsets x self = msg_send ~self ~cmd:(selector "setAutomaticallyAdjustsScrollIndicatorInsets:") ~typ:(bool @-> returning (void)) x -let setAutoscrollContentOffset x self = msg_send ~self ~cmd:(selector "setAutoscrollContentOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let setBounces x self = msg_send ~self ~cmd:(selector "setBounces:") ~typ:(bool @-> returning (void)) x -let setBouncesHorizontally x self = msg_send ~self ~cmd:(selector "setBouncesHorizontally:") ~typ:(bool @-> returning (void)) x -let setBouncesVertically x self = msg_send ~self ~cmd:(selector "setBouncesVertically:") ~typ:(bool @-> returning (void)) x -let setBouncesZoom x self = msg_send ~self ~cmd:(selector "setBouncesZoom:") ~typ:(bool @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setCanCancelContentTouches x self = msg_send ~self ~cmd:(selector "setCanCancelContentTouches:") ~typ:(bool @-> returning (void)) x -let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning (void)) x -let setContentInset x self = msg_send ~self ~cmd:(selector "setContentInset:") ~typ:(ptr void @-> returning (void)) x -let setContentInsetAdjustmentBehavior x self = msg_send ~self ~cmd:(selector "setContentInsetAdjustmentBehavior:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let setContentOffset' x ~animated self = msg_send ~self ~cmd:(selector "setContentOffset:animated:") ~typ:(CGPoint.t @-> bool @-> returning (void)) x animated -let setContentSize x self = msg_send ~self ~cmd:(selector "setContentSize:") ~typ:(CGSize.t @-> returning (void)) x -let setDecelerationRate x self = msg_send ~self ~cmd:(selector "setDecelerationRate:") ~typ:(double @-> returning (void)) x -let setDelaysContentTouches x self = msg_send ~self ~cmd:(selector "setDelaysContentTouches:") ~typ:(bool @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDirectionalLockEnabled x self = msg_send ~self ~cmd:(selector "setDirectionalLockEnabled:") ~typ:(bool @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHorizontalScrollDecelerationFactor x self = msg_send ~self ~cmd:(selector "setHorizontalScrollDecelerationFactor:") ~typ:(double @-> returning (void)) x -let setHorizontalScrollIndicatorInsets x self = msg_send ~self ~cmd:(selector "setHorizontalScrollIndicatorInsets:") ~typ:(ptr void @-> returning (void)) x -let setIndexDisplayMode x self = msg_send ~self ~cmd:(selector "setIndexDisplayMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setIndicatorStyle x self = msg_send ~self ~cmd:(selector "setIndicatorStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setKeyboardDismissMode x self = msg_send ~self ~cmd:(selector "setKeyboardDismissMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setMaximumZoomScale x self = msg_send ~self ~cmd:(selector "setMaximumZoomScale:") ~typ:(double @-> returning (void)) x -let setMinimumZoomScale x self = msg_send ~self ~cmd:(selector "setMinimumZoomScale:") ~typ:(double @-> returning (void)) x -let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning (void)) -let setPagingEnabled x self = msg_send ~self ~cmd:(selector "setPagingEnabled:") ~typ:(bool @-> returning (void)) x -let setPreservesCenterDuringRotation x self = msg_send ~self ~cmd:(selector "setPreservesCenterDuringRotation:") ~typ:(bool @-> returning (void)) x -let setProgrammaticScrollEnabled x self = msg_send ~self ~cmd:(selector "setProgrammaticScrollEnabled:") ~typ:(bool @-> returning (void)) x -let setRefreshControl x self = msg_send ~self ~cmd:(selector "setRefreshControl:") ~typ:(id @-> returning (void)) x -let setSafeAreaInsets x self = msg_send ~self ~cmd:(selector "setSafeAreaInsets:") ~typ:(ptr void @-> returning (void)) x -let setScrollEnabled x self = msg_send ~self ~cmd:(selector "setScrollEnabled:") ~typ:(bool @-> returning (void)) x -let setScrollIndicatorInsets x self = msg_send ~self ~cmd:(selector "setScrollIndicatorInsets:") ~typ:(ptr void @-> returning (void)) x -let setScrollTestParameters x self = msg_send ~self ~cmd:(selector "setScrollTestParameters:") ~typ:(id @-> returning (void)) x -let setScrollingEnabled x self = msg_send ~self ~cmd:(selector "setScrollingEnabled:") ~typ:(bool @-> returning (void)) x -let setScrollsToTop x self = msg_send ~self ~cmd:(selector "setScrollsToTop:") ~typ:(bool @-> returning (void)) x -let setShowBackgroundShadow x self = msg_send ~self ~cmd:(selector "setShowBackgroundShadow:") ~typ:(bool @-> returning (void)) x -let setShowsHorizontalScrollIndicator x self = msg_send ~self ~cmd:(selector "setShowsHorizontalScrollIndicator:") ~typ:(bool @-> returning (void)) x -let setShowsVerticalScrollIndicator x self = msg_send ~self ~cmd:(selector "setShowsVerticalScrollIndicator:") ~typ:(bool @-> returning (void)) x -let setTracksImmediatelyWhileDecelerating x self = msg_send ~self ~cmd:(selector "setTracksImmediatelyWhileDecelerating:") ~typ:(bool @-> returning (void)) x -let setUpdateInsetBottomDuringKeyboardDismiss x self = msg_send ~self ~cmd:(selector "setUpdateInsetBottomDuringKeyboardDismiss:") ~typ:(bool @-> returning (void)) x -let setUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabled:") ~typ:(bool @-> returning (void)) x -let setVerticalScrollDecelerationFactor x self = msg_send ~self ~cmd:(selector "setVerticalScrollDecelerationFactor:") ~typ:(double @-> returning (void)) x -let setVerticalScrollIndicatorInsets x self = msg_send ~self ~cmd:(selector "setVerticalScrollIndicatorInsets:") ~typ:(ptr void @-> returning (void)) x -let setZoomEnabled x self = msg_send ~self ~cmd:(selector "setZoomEnabled:") ~typ:(bool @-> returning (void)) x -let setZoomScale x self = msg_send ~self ~cmd:(selector "setZoomScale:") ~typ:(double @-> returning (void)) x -let setZoomScale1 x ~animated self = msg_send ~self ~cmd:(selector "setZoomScale:animated:") ~typ:(double @-> bool @-> returning (void)) x animated -let setZoomScale2 x ~withAnchorPoint ~allowRubberbanding ~animated ~duration ~notifyDelegate self = msg_send ~self ~cmd:(selector "setZoomScale:withAnchorPoint:allowRubberbanding:animated:duration:notifyDelegate:") ~typ:(double @-> CGPoint.t @-> bool @-> bool @-> double @-> bool @-> returning (void)) x withAnchorPoint allowRubberbanding animated duration notifyDelegate -let setZoomScale3 x ~withAnchorPoint ~allowRubberbanding ~animated ~duration ~notifyDelegate ~force self = msg_send ~self ~cmd:(selector "setZoomScale:withAnchorPoint:allowRubberbanding:animated:duration:notifyDelegate:force:") ~typ:(double @-> CGPoint.t @-> bool @-> bool @-> double @-> bool @-> bool @-> returning (void)) x withAnchorPoint allowRubberbanding animated duration notifyDelegate force -let showsHorizontalScrollIndicator self = msg_send ~self ~cmd:(selector "showsHorizontalScrollIndicator") ~typ:(returning (bool)) -let showsVerticalScrollIndicator self = msg_send ~self ~cmd:(selector "showsVerticalScrollIndicator") ~typ:(returning (bool)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesShouldBegin x ~withEvent ~inContentView self = msg_send ~self ~cmd:(selector "touchesShouldBegin:withEvent:inContentView:") ~typ:(id @-> id @-> id @-> returning (bool)) x withEvent inContentView -let touchesShouldCancelInContentView x self = msg_send ~self ~cmd:(selector "touchesShouldCancelInContentView:") ~typ:(id @-> returning (bool)) x -let tracksImmediatelyWhileDecelerating self = msg_send ~self ~cmd:(selector "tracksImmediatelyWhileDecelerating") ~typ:(returning (bool)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let traitCollectionForScrollerImp x self = msg_send ~self ~cmd:(selector "traitCollectionForScrollerImp:") ~typ:(id @-> returning (id)) x -let updateInsetBottomDuringKeyboardDismiss self = msg_send ~self ~cmd:(selector "updateInsetBottomDuringKeyboardDismiss") ~typ:(returning (bool)) -let verticalScrollDecelerationFactor self = msg_send ~self ~cmd:(selector "verticalScrollDecelerationFactor") ~typ:(returning (double)) -let visibleBounds self = msg_send_stret ~self ~cmd:(selector "visibleBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let visibleSize self = msg_send_stret ~self ~cmd:(selector "visibleSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let willAnimateRotationToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:") ~typ:(id @-> returning (void)) x -let willRotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:") ~typ:(id @-> returning (void)) x -let zoomScale self = msg_send ~self ~cmd:(selector "zoomScale") ~typ:(returning (double)) -let zoomToRect x ~animated self = msg_send ~self ~cmd:(selector "zoomToRect:animated:") ~typ:(CGRect.t @-> bool @-> returning (void)) x animated \ No newline at end of file +let self = get_class "UIScrollView" + +let _PDFKitDocumentVisibleRectIncludingContentInsets self = msg_send ~self ~cmd:(selector "PDFKitDocumentVisibleRectIncludingContentInsets") ~typ:(returning CGRect.t) +let accessoryInsets self = msg_send ~self ~cmd:(selector "accessoryInsets") ~typ:(returning UIEdgeInsets.t) +let accessoryInsetsDidChange x self = msg_send ~self ~cmd:(selector "accessoryInsetsDidChange:") ~typ:(UIEdgeInsets.t @-> returning void) x +let accessoryViewAtEdge x self = msg_send ~self ~cmd:(selector "accessoryViewAtEdge:") ~typ:(llong @-> returning id) (LLong.of_int x) +let accessoryViews self = msg_send ~self ~cmd:(selector "accessoryViews") ~typ:(returning id) +let adjustedContentInset self = msg_send ~self ~cmd:(selector "adjustedContentInset") ~typ:(returning UIEdgeInsets.t) +let adjustedContentInsetDidChange self = msg_send ~self ~cmd:(selector "adjustedContentInsetDidChange") ~typ:(returning void) +let akMagnification self = msg_send ~self ~cmd:(selector "akMagnification") ~typ:(returning double) +let allowsMultipleFingers self = msg_send ~self ~cmd:(selector "allowsMultipleFingers") ~typ:(returning bool) +let alwaysBounceHorizontal self = msg_send ~self ~cmd:(selector "alwaysBounceHorizontal") ~typ:(returning bool) +let alwaysBounceVertical self = msg_send ~self ~cmd:(selector "alwaysBounceVertical") ~typ:(returning bool) +let animator x ~startAnimation self = msg_send ~self ~cmd:(selector "animator:startAnimation:") ~typ:(id @-> id @-> returning void) x startAnimation +let animator' x ~stopAnimation ~fraction self = msg_send ~self ~cmd:(selector "animator:stopAnimation:fraction:") ~typ:(id @-> id @-> float @-> returning void) x stopAnimation fraction +let automaticallyAdjustsScrollIndicatorInsets self = msg_send ~self ~cmd:(selector "automaticallyAdjustsScrollIndicatorInsets") ~typ:(returning bool) +let autoscrollContentOffset self = msg_send ~self ~cmd:(selector "autoscrollContentOffset") ~typ:(returning CGPoint.t) +let bounces self = msg_send ~self ~cmd:(selector "bounces") ~typ:(returning bool) +let bouncesHorizontally self = msg_send ~self ~cmd:(selector "bouncesHorizontally") ~typ:(returning bool) +let bouncesVertically self = msg_send ~self ~cmd:(selector "bouncesVertically") ~typ:(returning bool) +let bouncesZoom self = msg_send ~self ~cmd:(selector "bouncesZoom") ~typ:(returning bool) +let canCancelContentTouches self = msg_send ~self ~cmd:(selector "canCancelContentTouches") ~typ:(returning bool) +let cancelMouseTracking self = msg_send ~self ~cmd:(selector "cancelMouseTracking") ~typ:(returning bool) +let cancelTouchTracking self = msg_send ~self ~cmd:(selector "cancelTouchTracking") ~typ:(returning bool) +let contentAreaRectForScrollerImpPair x self = msg_send ~self ~cmd:(selector "contentAreaRectForScrollerImpPair:") ~typ:(id @-> returning CGRect.t) x +let contentFrameForView x self = msg_send ~self ~cmd:(selector "contentFrameForView:") ~typ:(id @-> returning CGRect.t) x +let contentInset self = msg_send ~self ~cmd:(selector "contentInset") ~typ:(returning UIEdgeInsets.t) +let contentInsetAdjustmentBehavior self = msg_send ~self ~cmd:(selector "contentInsetAdjustmentBehavior") ~typ:(returning llong) +let contentLayoutGuide self = msg_send ~self ~cmd:(selector "contentLayoutGuide") ~typ:(returning id) +let contentOffset self = msg_send ~self ~cmd:(selector "contentOffset") ~typ:(returning CGPoint.t) +let contentSize self = msg_send ~self ~cmd:(selector "contentSize") ~typ:(returning CGSize.t) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let decelerationRate self = msg_send ~self ~cmd:(selector "decelerationRate") ~typ:(returning double) +let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let delayed x self = msg_send ~self ~cmd:(selector "delayed:") ~typ:(id @-> returning void) x +let delaysContentTouches self = msg_send ~self ~cmd:(selector "delaysContentTouches") ~typ:(returning bool) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let directionalPressGestureRecognizer self = msg_send ~self ~cmd:(selector "directionalPressGestureRecognizer") ~typ:(returning id) +let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let flashScrollIndicators self = msg_send ~self ~cmd:(selector "flashScrollIndicators") ~typ:(returning void) +let frameLayoutGuide self = msg_send ~self ~cmd:(selector "frameLayoutGuide") ~typ:(returning id) +let gestureRecognizer x ~canPreventGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:canPreventGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x canPreventGestureRecognizer +let gestureRecognizer' x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning bool) x shouldReceiveTouch +let handlePan x self = msg_send ~self ~cmd:(selector "handlePan:") ~typ:(id @-> returning void) x +let handlePinch x self = msg_send ~self ~cmd:(selector "handlePinch:") ~typ:(id @-> returning void) x +let hasScrolledContentsUnderTitlebar self = msg_send ~self ~cmd:(selector "hasScrolledContentsUnderTitlebar") ~typ:(returning bool) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let horizontalScrollDecelerationFactor self = msg_send ~self ~cmd:(selector "horizontalScrollDecelerationFactor") ~typ:(returning double) +let horizontalScrollIndicatorInsets self = msg_send ~self ~cmd:(selector "horizontalScrollIndicatorInsets") ~typ:(returning UIEdgeInsets.t) +let inLiveResizeForScrollerImpPair x self = msg_send ~self ~cmd:(selector "inLiveResizeForScrollerImpPair:") ~typ:(id @-> returning bool) x +let indexBarAccessoryView x ~contentOffsetForEntry ~atIndex self = msg_send ~self ~cmd:(selector "indexBarAccessoryView:contentOffsetForEntry:atIndex:") ~typ:(id @-> id @-> llong @-> returning CGPoint.t) x contentOffsetForEntry (LLong.of_int atIndex) +let indexDisplayMode self = msg_send ~self ~cmd:(selector "indexDisplayMode") ~typ:(returning llong) +let indicatorStyle self = msg_send ~self ~cmd:(selector "indicatorStyle") ~typ:(returning llong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isAutomaticContentOffsetAdjustmentsAnimated self = msg_send ~self ~cmd:(selector "isAutomaticContentOffsetAdjustmentsAnimated") ~typ:(returning bool) +let isDecelerating self = msg_send ~self ~cmd:(selector "isDecelerating") ~typ:(returning bool) +let isDirectionalLockEnabled self = msg_send ~self ~cmd:(selector "isDirectionalLockEnabled") ~typ:(returning bool) +let isDragging self = msg_send ~self ~cmd:(selector "isDragging") ~typ:(returning bool) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isPagingEnabled self = msg_send ~self ~cmd:(selector "isPagingEnabled") ~typ:(returning bool) +let isProgrammaticScrollEnabled self = msg_send ~self ~cmd:(selector "isProgrammaticScrollEnabled") ~typ:(returning bool) +let isScrollEnabled self = msg_send ~self ~cmd:(selector "isScrollEnabled") ~typ:(returning bool) +let isTracking self = msg_send ~self ~cmd:(selector "isTracking") ~typ:(returning bool) +let isZoomBouncing self = msg_send ~self ~cmd:(selector "isZoomBouncing") ~typ:(returning bool) +let isZoomEnabled self = msg_send ~self ~cmd:(selector "isZoomEnabled") ~typ:(returning bool) +let isZooming self = msg_send ~self ~cmd:(selector "isZooming") ~typ:(returning bool) +let keyboardBottomInsetAdjustmentDelta self = msg_send ~self ~cmd:(selector "keyboardBottomInsetAdjustmentDelta") ~typ:(returning double) +let keyboardDismissMode self = msg_send ~self ~cmd:(selector "keyboardDismissMode") ~typ:(returning llong) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let maximumZoomScale self = msg_send ~self ~cmd:(selector "maximumZoomScale") ~typ:(returning double) +let minimumZoomScale self = msg_send ~self ~cmd:(selector "minimumZoomScale") ~typ:(returning double) +let mouseLocationInContentAreaForScrollerImpPair x self = msg_send ~self ~cmd:(selector "mouseLocationInContentAreaForScrollerImpPair:") ~typ:(id @-> returning CGPoint.t) x +let mouseLocationInScrollerForScrollerImp x self = msg_send ~self ~cmd:(selector "mouseLocationInScrollerForScrollerImp:") ~typ:(id @-> returning CGPoint.t) x +let panGestureRecognizer self = msg_send ~self ~cmd:(selector "panGestureRecognizer") ~typ:(returning id) +let performWhileAnimatingAutomaticContentOffsetAdjustments x self = msg_send ~self ~cmd:(selector "performWhileAnimatingAutomaticContentOffsetAdjustments:") ~typ:((ptr void) @-> returning void) x +let pinchGestureRecognizer self = msg_send ~self ~cmd:(selector "pinchGestureRecognizer") ~typ:(returning id) +let preservesCenterDuringRotation self = msg_send ~self ~cmd:(selector "preservesCenterDuringRotation") ~typ:(returning bool) +let refreshControl self = msg_send ~self ~cmd:(selector "refreshControl") ~typ:(returning id) +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let scrollIndicatorInsets self = msg_send ~self ~cmd:(selector "scrollIndicatorInsets") ~typ:(returning UIEdgeInsets.t) +let scrollRectToVisible x ~animated self = msg_send ~self ~cmd:(selector "scrollRectToVisible:animated:") ~typ:(CGRect.t @-> bool @-> returning void) x animated +let scrollTestParameters self = msg_send ~self ~cmd:(selector "scrollTestParameters") ~typ:(returning id) +let scrollViewFrame self = msg_send ~self ~cmd:(selector "scrollViewFrame") ~typ:(returning CGRect.t) +let scrollerImp x ~animateExpansionTransitionWithDuration self = msg_send ~self ~cmd:(selector "scrollerImp:animateExpansionTransitionWithDuration:") ~typ:(id @-> double @-> returning void) x animateExpansionTransitionWithDuration +let scrollerImp1 x ~animateUIStateTransitionWithDuration self = msg_send ~self ~cmd:(selector "scrollerImp:animateUIStateTransitionWithDuration:") ~typ:(id @-> double @-> returning void) x animateUIStateTransitionWithDuration +let scrollerImp2 x ~convertRectFromBacking self = msg_send ~self ~cmd:(selector "scrollerImp:convertRectFromBacking:") ~typ:(id @-> CGRect.t @-> returning CGRect.t) x convertRectFromBacking +let scrollerImp3 x ~convertRectToBacking self = msg_send ~self ~cmd:(selector "scrollerImp:convertRectToBacking:") ~typ:(id @-> CGRect.t @-> returning CGRect.t) x convertRectToBacking +let scrollerImp4 x ~convertRectToLayer self = msg_send ~self ~cmd:(selector "scrollerImp:convertRectToLayer:") ~typ:(id @-> CGRect.t @-> returning CGRect.t) x convertRectToLayer +let scrollerImp5 x ~overlayScrollerStateChangedTo self = msg_send ~self ~cmd:(selector "scrollerImp:overlayScrollerStateChangedTo:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int overlayScrollerStateChangedTo) +let scrollerImp6 x ~animateKnobAlphaTo ~duration self = msg_send ~self ~cmd:(selector "scrollerImp:animateKnobAlphaTo:duration:") ~typ:(id @-> double @-> double @-> returning void) x animateKnobAlphaTo duration +let scrollerImp7 x ~animateTrackAlphaTo ~duration self = msg_send ~self ~cmd:(selector "scrollerImp:animateTrackAlphaTo:duration:") ~typ:(id @-> double @-> double @-> returning void) x animateTrackAlphaTo duration +let scrollerImpPair x ~isContentPointVisible self = msg_send ~self ~cmd:(selector "scrollerImpPair:isContentPointVisible:") ~typ:(id @-> CGPoint.t @-> returning bool) x isContentPointVisible +let scrollerImpPair1 x ~setContentAreaNeedsDisplayInRect self = msg_send ~self ~cmd:(selector "scrollerImpPair:setContentAreaNeedsDisplayInRect:") ~typ:(id @-> CGRect.t @-> returning void) x setContentAreaNeedsDisplayInRect +let scrollerImpPair2 x ~updateScrollerStyleForNewRecommendedScrollerStyle self = msg_send ~self ~cmd:(selector "scrollerImpPair:updateScrollerStyleForNewRecommendedScrollerStyle:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int updateScrollerStyleForNewRecommendedScrollerStyle) +let scrollerImpPair3 x ~convertContentPoint ~toScrollerImp self = msg_send ~self ~cmd:(selector "scrollerImpPair:convertContentPoint:toScrollerImp:") ~typ:(id @-> CGPoint.t @-> id @-> returning CGPoint.t) x convertContentPoint toScrollerImp +let scrollsToTop self = msg_send ~self ~cmd:(selector "scrollsToTop") ~typ:(returning bool) +let separatorOffset self = msg_send ~self ~cmd:(selector "separatorOffset") ~typ:(returning double) +let setAccessoryView x ~atEdge self = msg_send ~self ~cmd:(selector "setAccessoryView:atEdge:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int atEdge) +let setAccessoryViews x self = msg_send ~self ~cmd:(selector "setAccessoryViews:") ~typ:(id @-> returning void) x +let setAllowsMultipleFingers x self = msg_send ~self ~cmd:(selector "setAllowsMultipleFingers:") ~typ:(bool @-> returning void) x +let setAlwaysBounceHorizontal x self = msg_send ~self ~cmd:(selector "setAlwaysBounceHorizontal:") ~typ:(bool @-> returning void) x +let setAlwaysBounceVertical x self = msg_send ~self ~cmd:(selector "setAlwaysBounceVertical:") ~typ:(bool @-> returning void) x +let setAutomaticallyAdjustsScrollIndicatorInsets x self = msg_send ~self ~cmd:(selector "setAutomaticallyAdjustsScrollIndicatorInsets:") ~typ:(bool @-> returning void) x +let setAutoscrollContentOffset x self = msg_send ~self ~cmd:(selector "setAutoscrollContentOffset:") ~typ:(CGPoint.t @-> returning void) x +let setBounces x self = msg_send ~self ~cmd:(selector "setBounces:") ~typ:(bool @-> returning void) x +let setBouncesHorizontally x self = msg_send ~self ~cmd:(selector "setBouncesHorizontally:") ~typ:(bool @-> returning void) x +let setBouncesVertically x self = msg_send ~self ~cmd:(selector "setBouncesVertically:") ~typ:(bool @-> returning void) x +let setBouncesZoom x self = msg_send ~self ~cmd:(selector "setBouncesZoom:") ~typ:(bool @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setCanCancelContentTouches x self = msg_send ~self ~cmd:(selector "setCanCancelContentTouches:") ~typ:(bool @-> returning void) x +let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning void) x +let setContentInset x self = msg_send ~self ~cmd:(selector "setContentInset:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setContentInsetAdjustmentBehavior x self = msg_send ~self ~cmd:(selector "setContentInsetAdjustmentBehavior:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGPoint.t @-> returning void) x +let setContentOffset' x ~animated self = msg_send ~self ~cmd:(selector "setContentOffset:animated:") ~typ:(CGPoint.t @-> bool @-> returning void) x animated +let setContentSize x self = msg_send ~self ~cmd:(selector "setContentSize:") ~typ:(CGSize.t @-> returning void) x +let setDecelerationRate x self = msg_send ~self ~cmd:(selector "setDecelerationRate:") ~typ:(double @-> returning void) x +let setDelaysContentTouches x self = msg_send ~self ~cmd:(selector "setDelaysContentTouches:") ~typ:(bool @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDirectionalLockEnabled x self = msg_send ~self ~cmd:(selector "setDirectionalLockEnabled:") ~typ:(bool @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHorizontalScrollDecelerationFactor x self = msg_send ~self ~cmd:(selector "setHorizontalScrollDecelerationFactor:") ~typ:(double @-> returning void) x +let setHorizontalScrollIndicatorInsets x self = msg_send ~self ~cmd:(selector "setHorizontalScrollIndicatorInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setIndexDisplayMode x self = msg_send ~self ~cmd:(selector "setIndexDisplayMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setIndicatorStyle x self = msg_send ~self ~cmd:(selector "setIndicatorStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setKeyboardDismissMode x self = msg_send ~self ~cmd:(selector "setKeyboardDismissMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setMaximumZoomScale x self = msg_send ~self ~cmd:(selector "setMaximumZoomScale:") ~typ:(double @-> returning void) x +let setMinimumZoomScale x self = msg_send ~self ~cmd:(selector "setMinimumZoomScale:") ~typ:(double @-> returning void) x +let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning void) +let setPagingEnabled x self = msg_send ~self ~cmd:(selector "setPagingEnabled:") ~typ:(bool @-> returning void) x +let setPreservesCenterDuringRotation x self = msg_send ~self ~cmd:(selector "setPreservesCenterDuringRotation:") ~typ:(bool @-> returning void) x +let setProgrammaticScrollEnabled x self = msg_send ~self ~cmd:(selector "setProgrammaticScrollEnabled:") ~typ:(bool @-> returning void) x +let setRefreshControl x self = msg_send ~self ~cmd:(selector "setRefreshControl:") ~typ:(id @-> returning void) x +let setSafeAreaInsets x self = msg_send ~self ~cmd:(selector "setSafeAreaInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setScrollEnabled x self = msg_send ~self ~cmd:(selector "setScrollEnabled:") ~typ:(bool @-> returning void) x +let setScrollIndicatorInsets x self = msg_send ~self ~cmd:(selector "setScrollIndicatorInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setScrollTestParameters x self = msg_send ~self ~cmd:(selector "setScrollTestParameters:") ~typ:(id @-> returning void) x +let setScrollingEnabled x self = msg_send ~self ~cmd:(selector "setScrollingEnabled:") ~typ:(bool @-> returning void) x +let setScrollsToTop x self = msg_send ~self ~cmd:(selector "setScrollsToTop:") ~typ:(bool @-> returning void) x +let setShowBackgroundShadow x self = msg_send ~self ~cmd:(selector "setShowBackgroundShadow:") ~typ:(bool @-> returning void) x +let setShowsHorizontalScrollIndicator x self = msg_send ~self ~cmd:(selector "setShowsHorizontalScrollIndicator:") ~typ:(bool @-> returning void) x +let setShowsVerticalScrollIndicator x self = msg_send ~self ~cmd:(selector "setShowsVerticalScrollIndicator:") ~typ:(bool @-> returning void) x +let setTracksImmediatelyWhileDecelerating x self = msg_send ~self ~cmd:(selector "setTracksImmediatelyWhileDecelerating:") ~typ:(bool @-> returning void) x +let setUpdateInsetBottomDuringKeyboardDismiss x self = msg_send ~self ~cmd:(selector "setUpdateInsetBottomDuringKeyboardDismiss:") ~typ:(bool @-> returning void) x +let setUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabled:") ~typ:(bool @-> returning void) x +let setVerticalScrollDecelerationFactor x self = msg_send ~self ~cmd:(selector "setVerticalScrollDecelerationFactor:") ~typ:(double @-> returning void) x +let setVerticalScrollIndicatorInsets x self = msg_send ~self ~cmd:(selector "setVerticalScrollIndicatorInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setZoomEnabled x self = msg_send ~self ~cmd:(selector "setZoomEnabled:") ~typ:(bool @-> returning void) x +let setZoomScale x self = msg_send ~self ~cmd:(selector "setZoomScale:") ~typ:(double @-> returning void) x +let setZoomScale1 x ~animated self = msg_send ~self ~cmd:(selector "setZoomScale:animated:") ~typ:(double @-> bool @-> returning void) x animated +let setZoomScale2 x ~withAnchorPoint ~allowRubberbanding ~animated ~duration ~notifyDelegate self = msg_send ~self ~cmd:(selector "setZoomScale:withAnchorPoint:allowRubberbanding:animated:duration:notifyDelegate:") ~typ:(double @-> CGPoint.t @-> bool @-> bool @-> double @-> bool @-> returning void) x withAnchorPoint allowRubberbanding animated duration notifyDelegate +let setZoomScale3 x ~withAnchorPoint ~allowRubberbanding ~animated ~duration ~notifyDelegate ~force self = msg_send ~self ~cmd:(selector "setZoomScale:withAnchorPoint:allowRubberbanding:animated:duration:notifyDelegate:force:") ~typ:(double @-> CGPoint.t @-> bool @-> bool @-> double @-> bool @-> bool @-> returning void) x withAnchorPoint allowRubberbanding animated duration notifyDelegate force +let showsHorizontalScrollIndicator self = msg_send ~self ~cmd:(selector "showsHorizontalScrollIndicator") ~typ:(returning bool) +let showsVerticalScrollIndicator self = msg_send ~self ~cmd:(selector "showsVerticalScrollIndicator") ~typ:(returning bool) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesShouldBegin x ~withEvent ~inContentView self = msg_send ~self ~cmd:(selector "touchesShouldBegin:withEvent:inContentView:") ~typ:(id @-> id @-> id @-> returning bool) x withEvent inContentView +let touchesShouldCancelInContentView x self = msg_send ~self ~cmd:(selector "touchesShouldCancelInContentView:") ~typ:(id @-> returning bool) x +let tracksImmediatelyWhileDecelerating self = msg_send ~self ~cmd:(selector "tracksImmediatelyWhileDecelerating") ~typ:(returning bool) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let traitCollectionForScrollerImp x self = msg_send ~self ~cmd:(selector "traitCollectionForScrollerImp:") ~typ:(id @-> returning id) x +let updateInsetBottomDuringKeyboardDismiss self = msg_send ~self ~cmd:(selector "updateInsetBottomDuringKeyboardDismiss") ~typ:(returning bool) +let verticalScrollDecelerationFactor self = msg_send ~self ~cmd:(selector "verticalScrollDecelerationFactor") ~typ:(returning double) +let verticalScrollIndicatorInsets self = msg_send ~self ~cmd:(selector "verticalScrollIndicatorInsets") ~typ:(returning UIEdgeInsets.t) +let visibleBounds self = msg_send ~self ~cmd:(selector "visibleBounds") ~typ:(returning CGRect.t) +let visibleSize self = msg_send ~self ~cmd:(selector "visibleSize") ~typ:(returning CGSize.t) +let willAnimateRotationToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:") ~typ:(id @-> returning void) x +let willRotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:") ~typ:(id @-> returning void) x +let zoomScale self = msg_send ~self ~cmd:(selector "zoomScale") ~typ:(returning double) +let zoomToRect x ~animated self = msg_send ~self ~cmd:(selector "zoomToRect:animated:") ~typ:(CGRect.t @-> bool @-> returning void) x animated \ No newline at end of file diff --git a/uikit/UIScrollViewDelayedTouchesBeganGestureRecognizer.ml b/uikit/UIScrollViewDelayedTouchesBeganGestureRecognizer.ml index f3e862b1..44203667 100644 --- a/uikit/UIScrollViewDelayedTouchesBeganGestureRecognizer.ml +++ b/uikit/UIScrollViewDelayedTouchesBeganGestureRecognizer.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScrollViewDelayedTouchesBeganGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscrollviewdelayedtouchesbegangesturerecognizer?language=objc}UIScrollViewDelayedTouchesBeganGestureRecognizer} *) -let clearTimer self = msg_send ~self ~cmd:(selector "clearTimer") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let sendDelayedTouches self = msg_send ~self ~cmd:(selector "sendDelayedTouches") ~typ:(returning (void)) -let sendTouchesShouldBeginForDelayedTouches x self = msg_send ~self ~cmd:(selector "sendTouchesShouldBeginForDelayedTouches:") ~typ:(id @-> returning (void)) x -let sendTouchesShouldBeginForTouches x ~withEvent self = msg_send ~self ~cmd:(selector "sendTouchesShouldBeginForTouches:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let self = get_class "UIScrollViewDelayedTouchesBeganGestureRecognizer" + +let clearTimer self = msg_send ~self ~cmd:(selector "clearTimer") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let sendDelayedTouches self = msg_send ~self ~cmd:(selector "sendDelayedTouches") ~typ:(returning void) +let sendTouchesShouldBeginForDelayedTouches x self = msg_send ~self ~cmd:(selector "sendTouchesShouldBeginForDelayedTouches:") ~typ:(id @-> returning void) x +let sendTouchesShouldBeginForTouches x ~withEvent self = msg_send ~self ~cmd:(selector "sendTouchesShouldBeginForTouches:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UIScrollViewDirectionalPressGestureRecognizer.ml b/uikit/UIScrollViewDirectionalPressGestureRecognizer.ml index f61842ff..4b70828c 100644 --- a/uikit/UIScrollViewDirectionalPressGestureRecognizer.ml +++ b/uikit/UIScrollViewDirectionalPressGestureRecognizer.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScrollViewDirectionalPressGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscrollviewdirectionalpressgesturerecognizer?language=objc}UIScrollViewDirectionalPressGestureRecognizer} *) -let activePressType self = msg_send ~self ~cmd:(selector "activePressType") ~typ:(returning (llong)) -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning (id)) -let setAllowedPressTypes x self = msg_send ~self ~cmd:(selector "setAllowedPressTypes:") ~typ:(id @-> returning (void)) x -let setAllowedTouchTypes x self = msg_send ~self ~cmd:(selector "setAllowedTouchTypes:") ~typ:(id @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setScrollView x self = msg_send ~self ~cmd:(selector "setScrollView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIScrollViewDirectionalPressGestureRecognizer" + +let activePressType self = msg_send ~self ~cmd:(selector "activePressType") ~typ:(returning llong) +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning id) +let setAllowedPressTypes x self = msg_send ~self ~cmd:(selector "setAllowedPressTypes:") ~typ:(id @-> returning void) x +let setAllowedTouchTypes x self = msg_send ~self ~cmd:(selector "setAllowedTouchTypes:") ~typ:(id @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setScrollView x self = msg_send ~self ~cmd:(selector "setScrollView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIScrollViewPagingSwipeGestureRecognizer.ml b/uikit/UIScrollViewPagingSwipeGestureRecognizer.ml index 4e6f2e3c..6efb6c27 100644 --- a/uikit/UIScrollViewPagingSwipeGestureRecognizer.ml +++ b/uikit/UIScrollViewPagingSwipeGestureRecognizer.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScrollViewPagingSwipeGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscrollviewpagingswipegesturerecognizer?language=objc}UIScrollViewPagingSwipeGestureRecognizer} *) -let clearTimer self = msg_send ~self ~cmd:(selector "clearTimer") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let enoughTimeElapsed x self = msg_send ~self ~cmd:(selector "enoughTimeElapsed:") ~typ:(id @-> returning (void)) x -let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning (id)) -let setScrollView x self = msg_send ~self ~cmd:(selector "setScrollView:") ~typ:(id @-> returning (void)) x -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let self = get_class "UIScrollViewPagingSwipeGestureRecognizer" + +let clearTimer self = msg_send ~self ~cmd:(selector "clearTimer") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let enoughTimeElapsed x self = msg_send ~self ~cmd:(selector "enoughTimeElapsed:") ~typ:(id @-> returning void) x +let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning id) +let setScrollView x self = msg_send ~self ~cmd:(selector "setScrollView:") ~typ:(id @-> returning void) x +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UIScrollViewPanGestureRecognizer.ml b/uikit/UIScrollViewPanGestureRecognizer.ml index db9c5be6..2cef4a14 100644 --- a/uikit/UIScrollViewPanGestureRecognizer.ml +++ b/uikit/UIScrollViewPanGestureRecognizer.ml @@ -5,28 +5,32 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScrollViewPanGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscrollviewpangesturerecognizer?language=objc}UIScrollViewPanGestureRecognizer} *) -let canBePreventedByGestureRecognizer x self = msg_send ~self ~cmd:(selector "canBePreventedByGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let delaysTouchesBegan self = msg_send ~self ~cmd:(selector "delaysTouchesBegan") ~typ:(returning (bool)) -let directionalPressGestureRecognizer self = msg_send ~self ~cmd:(selector "directionalPressGestureRecognizer") ~typ:(returning (id)) -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let isDirectionalLockEnabled self = msg_send ~self ~cmd:(selector "isDirectionalLockEnabled") ~typ:(returning (bool)) -let removeTarget x ~action self = msg_send ~self ~cmd:(selector "removeTarget:action:") ~typ:(id @-> _SEL @-> returning (void)) x action -let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning (id)) -let setAllowedTouchTypes x self = msg_send ~self ~cmd:(selector "setAllowedTouchTypes:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDirectionalLockEnabled x self = msg_send ~self ~cmd:(selector "setDirectionalLockEnabled:") ~typ:(bool @-> returning (void)) x -let setDirectionalPressGestureRecognizer x self = msg_send ~self ~cmd:(selector "setDirectionalPressGestureRecognizer:") ~typ:(id @-> returning (void)) x -let setScrollView x self = msg_send ~self ~cmd:(selector "setScrollView:") ~typ:(id @-> returning (void)) x -let setTranslationScaleFactor x self = msg_send ~self ~cmd:(selector "setTranslationScaleFactor:") ~typ:(double @-> returning (void)) x -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let shouldBeRequiredToFailByGestureRecognizer x self = msg_send ~self ~cmd:(selector "shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let shouldReceiveEvent x self = msg_send ~self ~cmd:(selector "shouldReceiveEvent:") ~typ:(id @-> returning (bool)) x -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let translationInView x self = msg_send_stret ~self ~cmd:(selector "translationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let translationScaleFactor self = msg_send ~self ~cmd:(selector "translationScaleFactor") ~typ:(returning (double)) -let velocityInView x self = msg_send_stret ~self ~cmd:(selector "velocityInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x \ No newline at end of file +let self = get_class "UIScrollViewPanGestureRecognizer" + +let canBePreventedByGestureRecognizer x self = msg_send ~self ~cmd:(selector "canBePreventedByGestureRecognizer:") ~typ:(id @-> returning bool) x +let delaysTouchesBegan self = msg_send ~self ~cmd:(selector "delaysTouchesBegan") ~typ:(returning bool) +let directionalPressGestureRecognizer self = msg_send ~self ~cmd:(selector "directionalPressGestureRecognizer") ~typ:(returning id) +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let isDirectionalLockEnabled self = msg_send ~self ~cmd:(selector "isDirectionalLockEnabled") ~typ:(returning bool) +let removeTarget x ~action self = msg_send ~self ~cmd:(selector "removeTarget:action:") ~typ:(id @-> _SEL @-> returning void) x action +let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning id) +let setAllowedTouchTypes x self = msg_send ~self ~cmd:(selector "setAllowedTouchTypes:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDirectionalLockEnabled x self = msg_send ~self ~cmd:(selector "setDirectionalLockEnabled:") ~typ:(bool @-> returning void) x +let setDirectionalPressGestureRecognizer x self = msg_send ~self ~cmd:(selector "setDirectionalPressGestureRecognizer:") ~typ:(id @-> returning void) x +let setScrollView x self = msg_send ~self ~cmd:(selector "setScrollView:") ~typ:(id @-> returning void) x +let setTranslationScaleFactor x self = msg_send ~self ~cmd:(selector "setTranslationScaleFactor:") ~typ:(double @-> returning void) x +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let shouldBeRequiredToFailByGestureRecognizer x self = msg_send ~self ~cmd:(selector "shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> returning bool) x +let shouldReceiveEvent x self = msg_send ~self ~cmd:(selector "shouldReceiveEvent:") ~typ:(id @-> returning bool) x +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let translationInView x self = msg_send ~self ~cmd:(selector "translationInView:") ~typ:(id @-> returning CGPoint.t) x +let translationScaleFactor self = msg_send ~self ~cmd:(selector "translationScaleFactor") ~typ:(returning double) +let velocityInView x self = msg_send ~self ~cmd:(selector "velocityInView:") ~typ:(id @-> returning CGPoint.t) x \ No newline at end of file diff --git a/uikit/UIScrollViewPinchGestureRecognizer.ml b/uikit/UIScrollViewPinchGestureRecognizer.ml index 0c03dde1..6aac5413 100644 --- a/uikit/UIScrollViewPinchGestureRecognizer.ml +++ b/uikit/UIScrollViewPinchGestureRecognizer.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScrollViewPinchGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscrollviewpinchgesturerecognizer?language=objc}UIScrollViewPinchGestureRecognizer} *) -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let removeTarget x ~action self = msg_send ~self ~cmd:(selector "removeTarget:action:") ~typ:(id @-> _SEL @-> returning (void)) x action -let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning (id)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setScrollView x self = msg_send ~self ~cmd:(selector "setScrollView:") ~typ:(id @-> returning (void)) x -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let self = get_class "UIScrollViewPinchGestureRecognizer" + +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let removeTarget x ~action self = msg_send ~self ~cmd:(selector "removeTarget:action:") ~typ:(id @-> _SEL @-> returning void) x action +let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning id) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setScrollView x self = msg_send ~self ~cmd:(selector "setScrollView:") ~typ:(id @-> returning void) x +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UIScrollViewScrollAnimation.ml b/uikit/UIScrollViewScrollAnimation.ml index 7d22c0fb..0083cc76 100644 --- a/uikit/UIScrollViewScrollAnimation.ml +++ b/uikit/UIScrollViewScrollAnimation.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIScrollViewScrollAnimation" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiscrollviewscrollanimation?language=objc}UIScrollViewScrollAnimation} *) -let adjustForContentOffsetDelta x self = msg_send ~self ~cmd:(selector "adjustForContentOffsetDelta:") ~typ:(CGPoint.t @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let progressForFraction x self = msg_send ~self ~cmd:(selector "progressForFraction:") ~typ:(float @-> returning (float)) x -let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(float @-> returning (void)) x \ No newline at end of file +let self = get_class "UIScrollViewScrollAnimation" + +let adjustForContentOffsetDelta x self = msg_send ~self ~cmd:(selector "adjustForContentOffsetDelta:") ~typ:(CGPoint.t @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let progressForFraction x self = msg_send ~self ~cmd:(selector "progressForFraction:") ~typ:(float @-> returning float) x +let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(float @-> returning void) x \ No newline at end of file diff --git a/uikit/UISearchBar.ml b/uikit/UISearchBar.ml index 5f3d9c46..e7288302 100644 --- a/uikit/UISearchBar.ml +++ b/uikit/UISearchBar.ml @@ -5,128 +5,136 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISearchBar" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisearchbar?language=objc}UISearchBar} *) -let backgroundImage self = msg_send ~self ~cmd:(selector "backgroundImage") ~typ:(returning (id)) -let backgroundImageForBarPosition x ~barMetrics self = msg_send ~self ~cmd:(selector "backgroundImageForBarPosition:barMetrics:") ~typ:(llong @-> llong @-> returning (id)) (LLong.of_int x) (LLong.of_int barMetrics) -let barPosition self = msg_send ~self ~cmd:(selector "barPosition") ~typ:(returning (llong)) -let barStyle self = msg_send ~self ~cmd:(selector "barStyle") ~typ:(returning (llong)) -let barTintColor self = msg_send ~self ~cmd:(selector "barTintColor") ~typ:(returning (id)) -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let bringSubviewToFront x self = msg_send ~self ~cmd:(selector "bringSubviewToFront:") ~typ:(id @-> returning (void)) x -let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning (bool)) -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let canResignFirstResponder self = msg_send ~self ~cmd:(selector "canResignFirstResponder") ~typ:(returning (bool)) -let cancelButton self = msg_send ~self ~cmd:(selector "cancelButton") ~typ:(returning (id)) -let centerPlaceholder self = msg_send ~self ~cmd:(selector "centerPlaceholder") ~typ:(returning (bool)) -let controller self = msg_send ~self ~cmd:(selector "controller") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let drawsBackground self = msg_send ~self ~cmd:(selector "drawsBackground") ~typ:(returning (bool)) -let drawsBackgroundInPalette self = msg_send ~self ~cmd:(selector "drawsBackgroundInPalette") ~typ:(returning (bool)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let focusGroupIdentifier self = msg_send ~self ~cmd:(selector "focusGroupIdentifier") ~typ:(returning (id)) -let forwardingTargetForSelector x self = msg_send ~self ~cmd:(selector "forwardingTargetForSelector:") ~typ:(_SEL @-> returning (id)) x -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let imageForSearchBarIcon x ~state self = msg_send ~self ~cmd:(selector "imageForSearchBarIcon:state:") ~typ:(llong @-> ullong @-> returning (id)) (LLong.of_int x) (ULLong.of_int state) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let inputAccessoryView self = msg_send ~self ~cmd:(selector "inputAccessoryView") ~typ:(returning (id)) -let inputAssistantItem self = msg_send ~self ~cmd:(selector "inputAssistantItem") ~typ:(returning (id)) -let insertTextSuggestion x self = msg_send ~self ~cmd:(selector "insertTextSuggestion:") ~typ:(id @-> returning (void)) x -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isFirstResponder self = msg_send ~self ~cmd:(selector "isFirstResponder") ~typ:(returning (bool)) -let isSearchResultsButtonSelected self = msg_send ~self ~cmd:(selector "isSearchResultsButtonSelected") ~typ:(returning (bool)) -let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning (bool)) -let keyCommands self = msg_send ~self ~cmd:(selector "keyCommands") ~typ:(returning (id)) -let layoutMarginsDidChange self = msg_send ~self ~cmd:(selector "layoutMarginsDidChange") ~typ:(returning (void)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning (id)) x -let placeholder self = msg_send ~self ~cmd:(selector "placeholder") ~typ:(returning (id)) -let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning (id)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let pretendsIsInBar self = msg_send ~self ~cmd:(selector "pretendsIsInBar") ~typ:(returning (bool)) -let prompt self = msg_send ~self ~cmd:(selector "prompt") ~typ:(returning (id)) -let reloadInputViews self = msg_send ~self ~cmd:(selector "reloadInputViews") ~typ:(returning (void)) -let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning (bool)) -let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning (bool)) x -let safeAreaInsetsDidChange self = msg_send ~self ~cmd:(selector "safeAreaInsetsDidChange") ~typ:(returning (void)) -let scopeBarBackgroundImage self = msg_send ~self ~cmd:(selector "scopeBarBackgroundImage") ~typ:(returning (id)) -let scopeBarButtonBackgroundImageForState x self = msg_send ~self ~cmd:(selector "scopeBarButtonBackgroundImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let scopeBarButtonDividerImageForLeftSegmentState x ~rightSegmentState self = msg_send ~self ~cmd:(selector "scopeBarButtonDividerImageForLeftSegmentState:rightSegmentState:") ~typ:(ullong @-> ullong @-> returning (id)) (ULLong.of_int x) (ULLong.of_int rightSegmentState) -let scopeBarButtonTitleTextAttributesForState x self = msg_send ~self ~cmd:(selector "scopeBarButtonTitleTextAttributesForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let scopeButtonTitles self = msg_send ~self ~cmd:(selector "scopeButtonTitles") ~typ:(returning (id)) -let searchBarStyle self = msg_send ~self ~cmd:(selector "searchBarStyle") ~typ:(returning (ullong)) -let searchField self = msg_send ~self ~cmd:(selector "searchField") ~typ:(returning (id)) -let searchFieldBackgroundImageForState x self = msg_send ~self ~cmd:(selector "searchFieldBackgroundImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let searchFieldLeftViewMode self = msg_send ~self ~cmd:(selector "searchFieldLeftViewMode") ~typ:(returning (llong)) -let searchTextField self = msg_send ~self ~cmd:(selector "searchTextField") ~typ:(returning (id)) -let selectedScopeButtonIndex self = msg_send ~self ~cmd:(selector "selectedScopeButtonIndex") ~typ:(returning (llong)) -let sendSubviewToBack x self = msg_send ~self ~cmd:(selector "sendSubviewToBack:") ~typ:(id @-> returning (void)) x -let setBackgroundImage x self = msg_send ~self ~cmd:(selector "setBackgroundImage:") ~typ:(id @-> returning (void)) x -let setBackgroundImage1 x ~forBarMetrics self = msg_send ~self ~cmd:(selector "setBackgroundImage:forBarMetrics:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forBarMetrics) -let setBackgroundImage2 x ~forBarPosition ~barMetrics self = msg_send ~self ~cmd:(selector "setBackgroundImage:forBarPosition:barMetrics:") ~typ:(id @-> llong @-> llong @-> returning (void)) x (LLong.of_int forBarPosition) (LLong.of_int barMetrics) -let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBarTintColor x self = msg_send ~self ~cmd:(selector "setBarTintColor:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setCancelButton x self = msg_send ~self ~cmd:(selector "setCancelButton:") ~typ:(id @-> returning (void)) x -let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning (void)) x -let setCenterPlaceholder x self = msg_send ~self ~cmd:(selector "setCenterPlaceholder:") ~typ:(bool @-> returning (void)) x -let setContentInset x self = msg_send ~self ~cmd:(selector "setContentInset:") ~typ:(ptr void @-> returning (void)) x -let setController x self = msg_send ~self ~cmd:(selector "setController:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDrawsBackground x self = msg_send ~self ~cmd:(selector "setDrawsBackground:") ~typ:(bool @-> returning (void)) x -let setDrawsBackgroundInPalette x self = msg_send ~self ~cmd:(selector "setDrawsBackgroundInPalette:") ~typ:(bool @-> returning (void)) x -let setFocusGroupIdentifier x self = msg_send ~self ~cmd:(selector "setFocusGroupIdentifier:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setImage x ~forSearchBarIcon ~state self = msg_send ~self ~cmd:(selector "setImage:forSearchBarIcon:state:") ~typ:(id @-> llong @-> ullong @-> returning (void)) x (LLong.of_int forSearchBarIcon) (ULLong.of_int state) -let setInputAccessoryView x self = msg_send ~self ~cmd:(selector "setInputAccessoryView:") ~typ:(id @-> returning (void)) x -let setKeyboardAppearance x self = msg_send ~self ~cmd:(selector "setKeyboardAppearance:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning (void)) -let setPlaceholder x self = msg_send ~self ~cmd:(selector "setPlaceholder:") ~typ:(id @-> returning (void)) x -let setPositionAdjustment x ~forSearchBarIcon self = msg_send ~self ~cmd:(selector "setPositionAdjustment:forSearchBarIcon:") ~typ:(ptr void @-> llong @-> returning (void)) x (LLong.of_int forSearchBarIcon) -let setPretendsIsInBar x self = msg_send ~self ~cmd:(selector "setPretendsIsInBar:") ~typ:(bool @-> returning (void)) x -let setPrompt x self = msg_send ~self ~cmd:(selector "setPrompt:") ~typ:(id @-> returning (void)) x -let setScopeBarBackgroundImage x self = msg_send ~self ~cmd:(selector "setScopeBarBackgroundImage:") ~typ:(id @-> returning (void)) x -let setScopeBarButtonBackgroundImage x ~forState self = msg_send ~self ~cmd:(selector "setScopeBarButtonBackgroundImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setScopeBarButtonDividerImage x ~forLeftSegmentState ~rightSegmentState self = msg_send ~self ~cmd:(selector "setScopeBarButtonDividerImage:forLeftSegmentState:rightSegmentState:") ~typ:(id @-> ullong @-> ullong @-> returning (void)) x (ULLong.of_int forLeftSegmentState) (ULLong.of_int rightSegmentState) -let setScopeBarButtonTitleTextAttributes x ~forState self = msg_send ~self ~cmd:(selector "setScopeBarButtonTitleTextAttributes:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setScopeButtonTitles x self = msg_send ~self ~cmd:(selector "setScopeButtonTitles:") ~typ:(id @-> returning (void)) x -let setSearchBarStyle x self = msg_send ~self ~cmd:(selector "setSearchBarStyle:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setSearchFieldBackgroundImage x ~forState self = msg_send ~self ~cmd:(selector "setSearchFieldBackgroundImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setSearchFieldBackgroundPositionAdjustment x self = msg_send ~self ~cmd:(selector "setSearchFieldBackgroundPositionAdjustment:") ~typ:(ptr void @-> returning (void)) x -let setSearchFieldLeftViewMode x self = msg_send ~self ~cmd:(selector "setSearchFieldLeftViewMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSearchResultsButtonSelected x self = msg_send ~self ~cmd:(selector "setSearchResultsButtonSelected:") ~typ:(bool @-> returning (void)) x -let setSearchTextPositionAdjustment x self = msg_send ~self ~cmd:(selector "setSearchTextPositionAdjustment:") ~typ:(ptr void @-> returning (void)) x -let setSelectedScopeButtonIndex x self = msg_send ~self ~cmd:(selector "setSelectedScopeButtonIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShowsBookmarkButton x self = msg_send ~self ~cmd:(selector "setShowsBookmarkButton:") ~typ:(bool @-> returning (void)) x -let setShowsCancelButton x self = msg_send ~self ~cmd:(selector "setShowsCancelButton:") ~typ:(bool @-> returning (void)) x -let setShowsCancelButton' x ~animated self = msg_send ~self ~cmd:(selector "setShowsCancelButton:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setShowsScopeBar x self = msg_send ~self ~cmd:(selector "setShowsScopeBar:") ~typ:(bool @-> returning (void)) x -let setShowsScopeBar' x ~animated self = msg_send ~self ~cmd:(selector "setShowsScopeBar:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setShowsSearchResultsButton x self = msg_send ~self ~cmd:(selector "setShowsSearchResultsButton:") ~typ:(bool @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let setTranslucent x self = msg_send ~self ~cmd:(selector "setTranslucent:") ~typ:(bool @-> returning (void)) x -let setUsesEmbeddedAppearance x self = msg_send ~self ~cmd:(selector "setUsesEmbeddedAppearance:") ~typ:(bool @-> returning (void)) x -let showsBookmarkButton self = msg_send ~self ~cmd:(selector "showsBookmarkButton") ~typ:(returning (bool)) -let showsCancelButton self = msg_send ~self ~cmd:(selector "showsCancelButton") ~typ:(returning (bool)) -let showsScopeBar self = msg_send ~self ~cmd:(selector "showsScopeBar") ~typ:(returning (bool)) -let showsSearchResultsButton self = msg_send ~self ~cmd:(selector "showsSearchResultsButton") ~typ:(returning (bool)) -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let takeTraitsFrom x self = msg_send ~self ~cmd:(selector "takeTraitsFrom:") ~typ:(id @-> returning (void)) x -let tappedSearchBar x self = msg_send ~self ~cmd:(selector "tappedSearchBar:") ~typ:(id @-> returning (void)) x -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let usesEmbeddedAppearance self = msg_send ~self ~cmd:(selector "usesEmbeddedAppearance") ~typ:(returning (bool)) -let willMoveToSuperview x self = msg_send ~self ~cmd:(selector "willMoveToSuperview:") ~typ:(id @-> returning (void)) x -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UISearchBar" + +let backgroundImage self = msg_send ~self ~cmd:(selector "backgroundImage") ~typ:(returning id) +let backgroundImageForBarPosition x ~barMetrics self = msg_send ~self ~cmd:(selector "backgroundImageForBarPosition:barMetrics:") ~typ:(llong @-> llong @-> returning id) (LLong.of_int x) (LLong.of_int barMetrics) +let barPosition self = msg_send ~self ~cmd:(selector "barPosition") ~typ:(returning llong) +let barStyle self = msg_send ~self ~cmd:(selector "barStyle") ~typ:(returning llong) +let barTintColor self = msg_send ~self ~cmd:(selector "barTintColor") ~typ:(returning id) +let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning bool) +let bringSubviewToFront x self = msg_send ~self ~cmd:(selector "bringSubviewToFront:") ~typ:(id @-> returning void) x +let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning bool) +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let canResignFirstResponder self = msg_send ~self ~cmd:(selector "canResignFirstResponder") ~typ:(returning bool) +let cancelButton self = msg_send ~self ~cmd:(selector "cancelButton") ~typ:(returning id) +let centerPlaceholder self = msg_send ~self ~cmd:(selector "centerPlaceholder") ~typ:(returning bool) +let contentInset self = msg_send ~self ~cmd:(selector "contentInset") ~typ:(returning UIEdgeInsets.t) +let controller self = msg_send ~self ~cmd:(selector "controller") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let drawsBackground self = msg_send ~self ~cmd:(selector "drawsBackground") ~typ:(returning bool) +let drawsBackgroundInPalette self = msg_send ~self ~cmd:(selector "drawsBackgroundInPalette") ~typ:(returning bool) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let focusGroupIdentifier self = msg_send ~self ~cmd:(selector "focusGroupIdentifier") ~typ:(returning id) +let forwardingTargetForSelector x self = msg_send ~self ~cmd:(selector "forwardingTargetForSelector:") ~typ:(_SEL @-> returning id) x +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let imageForSearchBarIcon x ~state self = msg_send ~self ~cmd:(selector "imageForSearchBarIcon:state:") ~typ:(llong @-> ullong @-> returning id) (LLong.of_int x) (ULLong.of_int state) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let inputAccessoryView self = msg_send ~self ~cmd:(selector "inputAccessoryView") ~typ:(returning id) +let inputAssistantItem self = msg_send ~self ~cmd:(selector "inputAssistantItem") ~typ:(returning id) +let insertTextSuggestion x self = msg_send ~self ~cmd:(selector "insertTextSuggestion:") ~typ:(id @-> returning void) x +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isFirstResponder self = msg_send ~self ~cmd:(selector "isFirstResponder") ~typ:(returning bool) +let isSearchResultsButtonSelected self = msg_send ~self ~cmd:(selector "isSearchResultsButtonSelected") ~typ:(returning bool) +let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning bool) +let keyCommands self = msg_send ~self ~cmd:(selector "keyCommands") ~typ:(returning id) +let layoutMarginsDidChange self = msg_send ~self ~cmd:(selector "layoutMarginsDidChange") ~typ:(returning void) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning id) x +let placeholder self = msg_send ~self ~cmd:(selector "placeholder") ~typ:(returning id) +let positionAdjustmentForSearchBarIcon x self = msg_send ~self ~cmd:(selector "positionAdjustmentForSearchBarIcon:") ~typ:(llong @-> returning UIOffset.t) (LLong.of_int x) +let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning id) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let pretendsIsInBar self = msg_send ~self ~cmd:(selector "pretendsIsInBar") ~typ:(returning bool) +let prompt self = msg_send ~self ~cmd:(selector "prompt") ~typ:(returning id) +let reloadInputViews self = msg_send ~self ~cmd:(selector "reloadInputViews") ~typ:(returning void) +let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning bool) +let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning bool) x +let safeAreaInsetsDidChange self = msg_send ~self ~cmd:(selector "safeAreaInsetsDidChange") ~typ:(returning void) +let scopeBarBackgroundImage self = msg_send ~self ~cmd:(selector "scopeBarBackgroundImage") ~typ:(returning id) +let scopeBarButtonBackgroundImageForState x self = msg_send ~self ~cmd:(selector "scopeBarButtonBackgroundImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let scopeBarButtonDividerImageForLeftSegmentState x ~rightSegmentState self = msg_send ~self ~cmd:(selector "scopeBarButtonDividerImageForLeftSegmentState:rightSegmentState:") ~typ:(ullong @-> ullong @-> returning id) (ULLong.of_int x) (ULLong.of_int rightSegmentState) +let scopeBarButtonTitleTextAttributesForState x self = msg_send ~self ~cmd:(selector "scopeBarButtonTitleTextAttributesForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let scopeButtonTitles self = msg_send ~self ~cmd:(selector "scopeButtonTitles") ~typ:(returning id) +let searchBarStyle self = msg_send ~self ~cmd:(selector "searchBarStyle") ~typ:(returning ullong) +let searchField self = msg_send ~self ~cmd:(selector "searchField") ~typ:(returning id) +let searchFieldBackgroundImageForState x self = msg_send ~self ~cmd:(selector "searchFieldBackgroundImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let searchFieldBackgroundPositionAdjustment self = msg_send ~self ~cmd:(selector "searchFieldBackgroundPositionAdjustment") ~typ:(returning UIOffset.t) +let searchFieldLeftViewMode self = msg_send ~self ~cmd:(selector "searchFieldLeftViewMode") ~typ:(returning llong) +let searchTextField self = msg_send ~self ~cmd:(selector "searchTextField") ~typ:(returning id) +let searchTextPositionAdjustment self = msg_send ~self ~cmd:(selector "searchTextPositionAdjustment") ~typ:(returning UIOffset.t) +let selectedScopeButtonIndex self = msg_send ~self ~cmd:(selector "selectedScopeButtonIndex") ~typ:(returning llong) +let sendSubviewToBack x self = msg_send ~self ~cmd:(selector "sendSubviewToBack:") ~typ:(id @-> returning void) x +let setBackgroundImage x self = msg_send ~self ~cmd:(selector "setBackgroundImage:") ~typ:(id @-> returning void) x +let setBackgroundImage1 x ~forBarMetrics self = msg_send ~self ~cmd:(selector "setBackgroundImage:forBarMetrics:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forBarMetrics) +let setBackgroundImage2 x ~forBarPosition ~barMetrics self = msg_send ~self ~cmd:(selector "setBackgroundImage:forBarPosition:barMetrics:") ~typ:(id @-> llong @-> llong @-> returning void) x (LLong.of_int forBarPosition) (LLong.of_int barMetrics) +let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBarTintColor x self = msg_send ~self ~cmd:(selector "setBarTintColor:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setCancelButton x self = msg_send ~self ~cmd:(selector "setCancelButton:") ~typ:(id @-> returning void) x +let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning void) x +let setCenterPlaceholder x self = msg_send ~self ~cmd:(selector "setCenterPlaceholder:") ~typ:(bool @-> returning void) x +let setContentInset x self = msg_send ~self ~cmd:(selector "setContentInset:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setController x self = msg_send ~self ~cmd:(selector "setController:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDrawsBackground x self = msg_send ~self ~cmd:(selector "setDrawsBackground:") ~typ:(bool @-> returning void) x +let setDrawsBackgroundInPalette x self = msg_send ~self ~cmd:(selector "setDrawsBackgroundInPalette:") ~typ:(bool @-> returning void) x +let setFocusGroupIdentifier x self = msg_send ~self ~cmd:(selector "setFocusGroupIdentifier:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setImage x ~forSearchBarIcon ~state self = msg_send ~self ~cmd:(selector "setImage:forSearchBarIcon:state:") ~typ:(id @-> llong @-> ullong @-> returning void) x (LLong.of_int forSearchBarIcon) (ULLong.of_int state) +let setInputAccessoryView x self = msg_send ~self ~cmd:(selector "setInputAccessoryView:") ~typ:(id @-> returning void) x +let setKeyboardAppearance x self = msg_send ~self ~cmd:(selector "setKeyboardAppearance:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning void) +let setPlaceholder x self = msg_send ~self ~cmd:(selector "setPlaceholder:") ~typ:(id @-> returning void) x +let setPositionAdjustment x ~forSearchBarIcon self = msg_send ~self ~cmd:(selector "setPositionAdjustment:forSearchBarIcon:") ~typ:(UIOffset.t @-> llong @-> returning void) x (LLong.of_int forSearchBarIcon) +let setPretendsIsInBar x self = msg_send ~self ~cmd:(selector "setPretendsIsInBar:") ~typ:(bool @-> returning void) x +let setPrompt x self = msg_send ~self ~cmd:(selector "setPrompt:") ~typ:(id @-> returning void) x +let setScopeBarBackgroundImage x self = msg_send ~self ~cmd:(selector "setScopeBarBackgroundImage:") ~typ:(id @-> returning void) x +let setScopeBarButtonBackgroundImage x ~forState self = msg_send ~self ~cmd:(selector "setScopeBarButtonBackgroundImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setScopeBarButtonDividerImage x ~forLeftSegmentState ~rightSegmentState self = msg_send ~self ~cmd:(selector "setScopeBarButtonDividerImage:forLeftSegmentState:rightSegmentState:") ~typ:(id @-> ullong @-> ullong @-> returning void) x (ULLong.of_int forLeftSegmentState) (ULLong.of_int rightSegmentState) +let setScopeBarButtonTitleTextAttributes x ~forState self = msg_send ~self ~cmd:(selector "setScopeBarButtonTitleTextAttributes:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setScopeButtonTitles x self = msg_send ~self ~cmd:(selector "setScopeButtonTitles:") ~typ:(id @-> returning void) x +let setSearchBarStyle x self = msg_send ~self ~cmd:(selector "setSearchBarStyle:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setSearchFieldBackgroundImage x ~forState self = msg_send ~self ~cmd:(selector "setSearchFieldBackgroundImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setSearchFieldBackgroundPositionAdjustment x self = msg_send ~self ~cmd:(selector "setSearchFieldBackgroundPositionAdjustment:") ~typ:(UIOffset.t @-> returning void) x +let setSearchFieldLeftViewMode x self = msg_send ~self ~cmd:(selector "setSearchFieldLeftViewMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSearchResultsButtonSelected x self = msg_send ~self ~cmd:(selector "setSearchResultsButtonSelected:") ~typ:(bool @-> returning void) x +let setSearchTextPositionAdjustment x self = msg_send ~self ~cmd:(selector "setSearchTextPositionAdjustment:") ~typ:(UIOffset.t @-> returning void) x +let setSelectedScopeButtonIndex x self = msg_send ~self ~cmd:(selector "setSelectedScopeButtonIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setShowsBookmarkButton x self = msg_send ~self ~cmd:(selector "setShowsBookmarkButton:") ~typ:(bool @-> returning void) x +let setShowsCancelButton x self = msg_send ~self ~cmd:(selector "setShowsCancelButton:") ~typ:(bool @-> returning void) x +let setShowsCancelButton' x ~animated self = msg_send ~self ~cmd:(selector "setShowsCancelButton:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setShowsScopeBar x self = msg_send ~self ~cmd:(selector "setShowsScopeBar:") ~typ:(bool @-> returning void) x +let setShowsScopeBar' x ~animated self = msg_send ~self ~cmd:(selector "setShowsScopeBar:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setShowsSearchResultsButton x self = msg_send ~self ~cmd:(selector "setShowsSearchResultsButton:") ~typ:(bool @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let setTranslucent x self = msg_send ~self ~cmd:(selector "setTranslucent:") ~typ:(bool @-> returning void) x +let setUsesEmbeddedAppearance x self = msg_send ~self ~cmd:(selector "setUsesEmbeddedAppearance:") ~typ:(bool @-> returning void) x +let showsBookmarkButton self = msg_send ~self ~cmd:(selector "showsBookmarkButton") ~typ:(returning bool) +let showsCancelButton self = msg_send ~self ~cmd:(selector "showsCancelButton") ~typ:(returning bool) +let showsScopeBar self = msg_send ~self ~cmd:(selector "showsScopeBar") ~typ:(returning bool) +let showsSearchResultsButton self = msg_send ~self ~cmd:(selector "showsSearchResultsButton") ~typ:(returning bool) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let takeTraitsFrom x self = msg_send ~self ~cmd:(selector "takeTraitsFrom:") ~typ:(id @-> returning void) x +let tappedSearchBar x self = msg_send ~self ~cmd:(selector "tappedSearchBar:") ~typ:(id @-> returning void) x +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let usesEmbeddedAppearance self = msg_send ~self ~cmd:(selector "usesEmbeddedAppearance") ~typ:(returning bool) +let willMoveToSuperview x self = msg_send ~self ~cmd:(selector "willMoveToSuperview:") ~typ:(id @-> returning void) x +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UISearchBarBackground.ml b/uikit/UISearchBarBackground.ml index 84fb9dcb..e6d697b2 100644 --- a/uikit/UISearchBarBackground.ml +++ b/uikit/UISearchBarBackground.ml @@ -5,24 +5,28 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISearchBarBackground" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisearchbarbackground?language=objc}UISearchBarBackground} *) -let backgroundImage self = msg_send ~self ~cmd:(selector "backgroundImage") ~typ:(returning (id)) -let backgroundImagePrompt self = msg_send ~self ~cmd:(selector "backgroundImagePrompt") ~typ:(returning (id)) -let barStyle self = msg_send ~self ~cmd:(selector "barStyle") ~typ:(returning (llong)) -let barTintColor self = msg_send ~self ~cmd:(selector "barTintColor") ~typ:(returning (id)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning (bool)) -let searchBarStyle self = msg_send ~self ~cmd:(selector "searchBarStyle") ~typ:(returning (ullong)) -let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBarTintColor x self = msg_send ~self ~cmd:(selector "setBarTintColor:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setSearchBarStyle x self = msg_send ~self ~cmd:(selector "setSearchBarStyle:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setTranslucent x self = msg_send ~self ~cmd:(selector "setTranslucent:") ~typ:(bool @-> returning (void)) x -let setUsesContiguousBarBackground x self = msg_send ~self ~cmd:(selector "setUsesContiguousBarBackground:") ~typ:(bool @-> returning (void)) x -let setUsesEmbeddedAppearance x self = msg_send ~self ~cmd:(selector "setUsesEmbeddedAppearance:") ~typ:(bool @-> returning (void)) x -let usesContiguousBarBackground self = msg_send ~self ~cmd:(selector "usesContiguousBarBackground") ~typ:(returning (bool)) -let usesEmbeddedAppearance self = msg_send ~self ~cmd:(selector "usesEmbeddedAppearance") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UISearchBarBackground" + +let backgroundImage self = msg_send ~self ~cmd:(selector "backgroundImage") ~typ:(returning id) +let backgroundImagePrompt self = msg_send ~self ~cmd:(selector "backgroundImagePrompt") ~typ:(returning id) +let barStyle self = msg_send ~self ~cmd:(selector "barStyle") ~typ:(returning llong) +let barTintColor self = msg_send ~self ~cmd:(selector "barTintColor") ~typ:(returning id) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning bool) +let searchBarStyle self = msg_send ~self ~cmd:(selector "searchBarStyle") ~typ:(returning ullong) +let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBarTintColor x self = msg_send ~self ~cmd:(selector "setBarTintColor:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setSearchBarStyle x self = msg_send ~self ~cmd:(selector "setSearchBarStyle:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setTranslucent x self = msg_send ~self ~cmd:(selector "setTranslucent:") ~typ:(bool @-> returning void) x +let setUsesContiguousBarBackground x self = msg_send ~self ~cmd:(selector "setUsesContiguousBarBackground:") ~typ:(bool @-> returning void) x +let setUsesEmbeddedAppearance x self = msg_send ~self ~cmd:(selector "setUsesEmbeddedAppearance:") ~typ:(bool @-> returning void) x +let usesContiguousBarBackground self = msg_send ~self ~cmd:(selector "usesContiguousBarBackground") ~typ:(returning bool) +let usesEmbeddedAppearance self = msg_send ~self ~cmd:(selector "usesEmbeddedAppearance") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UISearchBarTextFieldLabel.ml b/uikit/UISearchBarTextFieldLabel.ml index e6e0d35f..34c18ce0 100644 --- a/uikit/UISearchBarTextFieldLabel.ml +++ b/uikit/UISearchBarTextFieldLabel.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISearchBarTextFieldLabel" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisearchbartextfieldlabel?language=objc}UISearchBarTextFieldLabel} *) -let ignoresGeometryChanges self = msg_send ~self ~cmd:(selector "ignoresGeometryChanges") ~typ:(returning (bool)) -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setIgnoresGeometryChanges x self = msg_send ~self ~cmd:(selector "setIgnoresGeometryChanges:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UISearchBarTextFieldLabel" + +let ignoresGeometryChanges self = msg_send ~self ~cmd:(selector "ignoresGeometryChanges") ~typ:(returning bool) +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setIgnoresGeometryChanges x self = msg_send ~self ~cmd:(selector "setIgnoresGeometryChanges:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UISearchContainerViewController.ml b/uikit/UISearchContainerViewController.ml index 51b6e267..c72cae58 100644 --- a/uikit/UISearchContainerViewController.ml +++ b/uikit/UISearchContainerViewController.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISearchContainerViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisearchcontainerviewcontroller?language=objc}UISearchContainerViewController} *) -let commonInit self = msg_send ~self ~cmd:(selector "commonInit") ~typ:(returning (void)) -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 initWithSearchController x self = msg_send ~self ~cmd:(selector "initWithSearchController:") ~typ:(id @-> returning (id)) x -let searchController self = msg_send ~self ~cmd:(selector "searchController") ~typ:(returning (id)) -let setSearchController x self = msg_send ~self ~cmd:(selector "setSearchController:") ~typ:(id @-> returning (void)) x -let setTabBarObservedScrollView x self = msg_send ~self ~cmd:(selector "setTabBarObservedScrollView:") ~typ:(id @-> returning (void)) x -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UISearchContainerViewController" + +let commonInit self = msg_send ~self ~cmd:(selector "commonInit") ~typ:(returning void) +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 initWithSearchController x self = msg_send ~self ~cmd:(selector "initWithSearchController:") ~typ:(id @-> returning id) x +let searchController self = msg_send ~self ~cmd:(selector "searchController") ~typ:(returning id) +let setSearchController x self = msg_send ~self ~cmd:(selector "setSearchController:") ~typ:(id @-> returning void) x +let setTabBarObservedScrollView x self = msg_send ~self ~cmd:(selector "setTabBarObservedScrollView:") ~typ:(id @-> returning void) x +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UISearchController.ml b/uikit/UISearchController.ml index 5ac64122..59ffad7c 100644 --- a/uikit/UISearchController.ml +++ b/uikit/UISearchController.ml @@ -5,69 +5,73 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISearchController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisearchcontroller?language=objc}UISearchController} *) -let animateTransition x self = msg_send ~self ~cmd:(selector "animateTransition:") ~typ:(id @-> returning (void)) x -let animationControllerForDismissedController x self = msg_send ~self ~cmd:(selector "animationControllerForDismissedController:") ~typ:(id @-> returning (id)) x -let animationControllerForPresentedController x ~presentingController ~sourceController self = msg_send ~self ~cmd:(selector "animationControllerForPresentedController:presentingController:sourceController:") ~typ:(id @-> id @-> id @-> returning (id)) x presentingController sourceController -let applicationDidEnterBackground x self = msg_send ~self ~cmd:(selector "applicationDidEnterBackground:") ~typ:(id @-> returning (void)) x -let applicationWillEnterForeground x self = msg_send ~self ~cmd:(selector "applicationWillEnterForeground:") ~typ:(id @-> returning (void)) x -let automaticallyShowsCancelButton self = msg_send ~self ~cmd:(selector "automaticallyShowsCancelButton") ~typ:(returning (bool)) -let automaticallyShowsScopeBar self = msg_send ~self ~cmd:(selector "automaticallyShowsScopeBar") ~typ:(returning (bool)) -let automaticallyShowsSearchResultsController self = msg_send ~self ~cmd:(selector "automaticallyShowsSearchResultsController") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let dimsBackgroundDuringPresentation self = msg_send ~self ~cmd:(selector "dimsBackgroundDuringPresentation") ~typ:(returning (bool)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let focusItemContainer self = msg_send ~self ~cmd:(selector "focusItemContainer") ~typ:(returning (id)) -let hidesNavigationBarDuringPresentation self = msg_send ~self ~cmd:(selector "hidesNavigationBarDuringPresentation") ~typ:(returning (bool)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let initWithSearchResultsController x self = msg_send ~self ~cmd:(selector "initWithSearchResultsController:") ~typ:(id @-> returning (id)) x -let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning (bool)) -let keyboardToSearchResultsFocusGuide self = msg_send ~self ~cmd:(selector "keyboardToSearchResultsFocusGuide") ~typ:(returning (id)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let obscuresBackgroundDuringPresentation self = msg_send ~self ~cmd:(selector "obscuresBackgroundDuringPresentation") ~typ:(returning (bool)) -let preferredContentSize self = msg_send_stret ~self ~cmd:(selector "preferredContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning (id)) -let searchBar self = msg_send ~self ~cmd:(selector "searchBar") ~typ:(returning (id)) -let searchControllerObservedScrollView self = msg_send ~self ~cmd:(selector "searchControllerObservedScrollView") ~typ:(returning (id)) -let searchHints self = msg_send ~self ~cmd:(selector "searchHints") ~typ:(returning (id)) -let searchPlaceholderColor self = msg_send ~self ~cmd:(selector "searchPlaceholderColor") ~typ:(returning (id)) -let searchResultsController self = msg_send ~self ~cmd:(selector "searchResultsController") ~typ:(returning (id)) -let searchResultsToHiddenKeyboardFocusGuide self = msg_send ~self ~cmd:(selector "searchResultsToHiddenKeyboardFocusGuide") ~typ:(returning (id)) -let searchResultsUpdater self = msg_send ~self ~cmd:(selector "searchResultsUpdater") ~typ:(returning (id)) -let searchResultsUpdaterPrivate self = msg_send ~self ~cmd:(selector "searchResultsUpdaterPrivate") ~typ:(returning (id)) -let searchSuggestions self = msg_send ~self ~cmd:(selector "searchSuggestions") ~typ:(returning (id)) -let searchTextColor self = msg_send ~self ~cmd:(selector "searchTextColor") ~typ:(returning (id)) -let searchTextField self = msg_send ~self ~cmd:(selector "searchTextField") ~typ:(returning (id)) -let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning (void)) x -let setAutomaticallyShowsCancelButton x self = msg_send ~self ~cmd:(selector "setAutomaticallyShowsCancelButton:") ~typ:(bool @-> returning (void)) x -let setAutomaticallyShowsScopeBar x self = msg_send ~self ~cmd:(selector "setAutomaticallyShowsScopeBar:") ~typ:(bool @-> returning (void)) x -let setAutomaticallyShowsSearchResultsController x self = msg_send ~self ~cmd:(selector "setAutomaticallyShowsSearchResultsController:") ~typ:(bool @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDimsBackgroundDuringPresentation x self = msg_send ~self ~cmd:(selector "setDimsBackgroundDuringPresentation:") ~typ:(bool @-> returning (void)) x -let setHidesNavigationBarDuringPresentation x self = msg_send ~self ~cmd:(selector "setHidesNavigationBarDuringPresentation:") ~typ:(bool @-> returning (void)) x -let setKeyboardToSearchResultsFocusGuide x self = msg_send ~self ~cmd:(selector "setKeyboardToSearchResultsFocusGuide:") ~typ:(id @-> returning (void)) x -let setModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setModalPresentationStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setObscuresBackgroundDuringPresentation x self = msg_send ~self ~cmd:(selector "setObscuresBackgroundDuringPresentation:") ~typ:(bool @-> returning (void)) x -let setSearchControllerObservedScrollView x self = msg_send ~self ~cmd:(selector "setSearchControllerObservedScrollView:") ~typ:(id @-> returning (void)) x -let setSearchHints x self = msg_send ~self ~cmd:(selector "setSearchHints:") ~typ:(id @-> returning (void)) x -let setSearchResultsToHiddenKeyboardFocusGuide x self = msg_send ~self ~cmd:(selector "setSearchResultsToHiddenKeyboardFocusGuide:") ~typ:(id @-> returning (void)) x -let setSearchResultsUpdater x self = msg_send ~self ~cmd:(selector "setSearchResultsUpdater:") ~typ:(id @-> returning (void)) x -let setSearchResultsUpdaterPrivate x self = msg_send ~self ~cmd:(selector "setSearchResultsUpdaterPrivate:") ~typ:(id @-> returning (void)) x -let setSearchSuggestions x self = msg_send ~self ~cmd:(selector "setSearchSuggestions:") ~typ:(id @-> returning (void)) x -let setShowsSearchResultsController x self = msg_send ~self ~cmd:(selector "setShowsSearchResultsController:") ~typ:(bool @-> returning (void)) x -let showsSearchResultsController self = msg_send ~self ~cmd:(selector "showsSearchResultsController") ~typ:(returning (bool)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let transitionDuration x self = msg_send ~self ~cmd:(selector "transitionDuration:") ~typ:(id @-> returning (double)) x -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning (void)) -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewDidMoveToWindow x ~shouldAppearOrDisappear self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow:shouldAppearOrDisappear:") ~typ:(id @-> bool @-> returning (void)) x shouldAppearOrDisappear -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning (void)) x withTransitionCoordinator \ No newline at end of file +let self = get_class "UISearchController" + +let animateTransition x self = msg_send ~self ~cmd:(selector "animateTransition:") ~typ:(id @-> returning void) x +let animationControllerForDismissedController x self = msg_send ~self ~cmd:(selector "animationControllerForDismissedController:") ~typ:(id @-> returning id) x +let animationControllerForPresentedController x ~presentingController ~sourceController self = msg_send ~self ~cmd:(selector "animationControllerForPresentedController:presentingController:sourceController:") ~typ:(id @-> id @-> id @-> returning id) x presentingController sourceController +let applicationDidEnterBackground x self = msg_send ~self ~cmd:(selector "applicationDidEnterBackground:") ~typ:(id @-> returning void) x +let applicationWillEnterForeground x self = msg_send ~self ~cmd:(selector "applicationWillEnterForeground:") ~typ:(id @-> returning void) x +let automaticallyShowsCancelButton self = msg_send ~self ~cmd:(selector "automaticallyShowsCancelButton") ~typ:(returning bool) +let automaticallyShowsScopeBar self = msg_send ~self ~cmd:(selector "automaticallyShowsScopeBar") ~typ:(returning bool) +let automaticallyShowsSearchResultsController self = msg_send ~self ~cmd:(selector "automaticallyShowsSearchResultsController") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let dimsBackgroundDuringPresentation self = msg_send ~self ~cmd:(selector "dimsBackgroundDuringPresentation") ~typ:(returning bool) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let focusItemContainer self = msg_send ~self ~cmd:(selector "focusItemContainer") ~typ:(returning id) +let hidesNavigationBarDuringPresentation self = msg_send ~self ~cmd:(selector "hidesNavigationBarDuringPresentation") ~typ:(returning bool) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let initWithSearchResultsController x self = msg_send ~self ~cmd:(selector "initWithSearchResultsController:") ~typ:(id @-> returning id) x +let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning bool) +let keyboardToSearchResultsFocusGuide self = msg_send ~self ~cmd:(selector "keyboardToSearchResultsFocusGuide") ~typ:(returning id) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let obscuresBackgroundDuringPresentation self = msg_send ~self ~cmd:(selector "obscuresBackgroundDuringPresentation") ~typ:(returning bool) +let preferredContentSize self = msg_send ~self ~cmd:(selector "preferredContentSize") ~typ:(returning CGSize.t) +let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning id) +let searchBar self = msg_send ~self ~cmd:(selector "searchBar") ~typ:(returning id) +let searchControllerObservedScrollView self = msg_send ~self ~cmd:(selector "searchControllerObservedScrollView") ~typ:(returning id) +let searchHints self = msg_send ~self ~cmd:(selector "searchHints") ~typ:(returning id) +let searchPlaceholderColor self = msg_send ~self ~cmd:(selector "searchPlaceholderColor") ~typ:(returning id) +let searchResultsController self = msg_send ~self ~cmd:(selector "searchResultsController") ~typ:(returning id) +let searchResultsToHiddenKeyboardFocusGuide self = msg_send ~self ~cmd:(selector "searchResultsToHiddenKeyboardFocusGuide") ~typ:(returning id) +let searchResultsUpdater self = msg_send ~self ~cmd:(selector "searchResultsUpdater") ~typ:(returning id) +let searchResultsUpdaterPrivate self = msg_send ~self ~cmd:(selector "searchResultsUpdaterPrivate") ~typ:(returning id) +let searchSuggestions self = msg_send ~self ~cmd:(selector "searchSuggestions") ~typ:(returning id) +let searchTextColor self = msg_send ~self ~cmd:(selector "searchTextColor") ~typ:(returning id) +let searchTextField self = msg_send ~self ~cmd:(selector "searchTextField") ~typ:(returning id) +let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning void) x +let setAutomaticallyShowsCancelButton x self = msg_send ~self ~cmd:(selector "setAutomaticallyShowsCancelButton:") ~typ:(bool @-> returning void) x +let setAutomaticallyShowsScopeBar x self = msg_send ~self ~cmd:(selector "setAutomaticallyShowsScopeBar:") ~typ:(bool @-> returning void) x +let setAutomaticallyShowsSearchResultsController x self = msg_send ~self ~cmd:(selector "setAutomaticallyShowsSearchResultsController:") ~typ:(bool @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDimsBackgroundDuringPresentation x self = msg_send ~self ~cmd:(selector "setDimsBackgroundDuringPresentation:") ~typ:(bool @-> returning void) x +let setHidesNavigationBarDuringPresentation x self = msg_send ~self ~cmd:(selector "setHidesNavigationBarDuringPresentation:") ~typ:(bool @-> returning void) x +let setKeyboardToSearchResultsFocusGuide x self = msg_send ~self ~cmd:(selector "setKeyboardToSearchResultsFocusGuide:") ~typ:(id @-> returning void) x +let setModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setModalPresentationStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setObscuresBackgroundDuringPresentation x self = msg_send ~self ~cmd:(selector "setObscuresBackgroundDuringPresentation:") ~typ:(bool @-> returning void) x +let setSearchControllerObservedScrollView x self = msg_send ~self ~cmd:(selector "setSearchControllerObservedScrollView:") ~typ:(id @-> returning void) x +let setSearchHints x self = msg_send ~self ~cmd:(selector "setSearchHints:") ~typ:(id @-> returning void) x +let setSearchResultsToHiddenKeyboardFocusGuide x self = msg_send ~self ~cmd:(selector "setSearchResultsToHiddenKeyboardFocusGuide:") ~typ:(id @-> returning void) x +let setSearchResultsUpdater x self = msg_send ~self ~cmd:(selector "setSearchResultsUpdater:") ~typ:(id @-> returning void) x +let setSearchResultsUpdaterPrivate x self = msg_send ~self ~cmd:(selector "setSearchResultsUpdaterPrivate:") ~typ:(id @-> returning void) x +let setSearchSuggestions x self = msg_send ~self ~cmd:(selector "setSearchSuggestions:") ~typ:(id @-> returning void) x +let setShowsSearchResultsController x self = msg_send ~self ~cmd:(selector "setShowsSearchResultsController:") ~typ:(bool @-> returning void) x +let showsSearchResultsController self = msg_send ~self ~cmd:(selector "showsSearchResultsController") ~typ:(returning bool) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let transitionDuration x self = msg_send ~self ~cmd:(selector "transitionDuration:") ~typ:(id @-> returning double) x +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning void) +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewDidMoveToWindow x ~shouldAppearOrDisappear self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow:shouldAppearOrDisappear:") ~typ:(id @-> bool @-> returning void) x shouldAppearOrDisappear +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning void) x withTransitionCoordinator \ No newline at end of file diff --git a/uikit/UISearchDisplayController.ml b/uikit/UISearchDisplayController.ml index bd0df5a2..ecb97d0e 100644 --- a/uikit/UISearchDisplayController.ml +++ b/uikit/UISearchDisplayController.ml @@ -5,58 +5,62 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISearchDisplayController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisearchdisplaycontroller?language=objc}UISearchDisplayController} *) -let automaticallyShowsNoResultsMessage self = msg_send ~self ~cmd:(selector "automaticallyShowsNoResultsMessage") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let dimTableViewOnEmptySearchString self = msg_send ~self ~cmd:(selector "dimTableViewOnEmptySearchString") ~typ:(returning (bool)) -let displaysSearchBarInNavigationBar self = msg_send ~self ~cmd:(selector "displaysSearchBarInNavigationBar") ~typ:(returning (bool)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hidNavigationBar self = msg_send ~self ~cmd:(selector "hidNavigationBar") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithSearchBar x ~contentsController self = msg_send ~self ~cmd:(selector "initWithSearchBar:contentsController:") ~typ:(id @-> id @-> returning (id)) x contentsController -let initWithSearchBar' x ~contentsController ~searchResultsTableViewStyle self = msg_send ~self ~cmd:(selector "initWithSearchBar:contentsController:searchResultsTableViewStyle:") ~typ:(id @-> id @-> llong @-> returning (id)) x contentsController (LLong.of_int searchResultsTableViewStyle) -let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning (bool)) -let isNavigationBarHidingEnabled self = msg_send ~self ~cmd:(selector "isNavigationBarHidingEnabled") ~typ:(returning (bool)) -let navigationBarSearchFieldSizing self = msg_send ~self ~cmd:(selector "navigationBarSearchFieldSizing") ~typ:(returning (ullong)) -let navigationControllerDidCancelShowingViewController x self = msg_send ~self ~cmd:(selector "navigationControllerDidCancelShowingViewController:") ~typ:(id @-> returning (void)) x -let navigationControllerDidShowViewController x self = msg_send ~self ~cmd:(selector "navigationControllerDidShowViewController:") ~typ:(id @-> returning (void)) x -let navigationControllerWillShowViewController x self = msg_send ~self ~cmd:(selector "navigationControllerWillShowViewController:") ~typ:(id @-> returning (void)) x -let navigationItem self = msg_send ~self ~cmd:(selector "navigationItem") ~typ:(returning (id)) -let noResultsMessage self = msg_send ~self ~cmd:(selector "noResultsMessage") ~typ:(returning (id)) -let noResultsMessageVisible self = msg_send ~self ~cmd:(selector "noResultsMessageVisible") ~typ:(returning (bool)) -let popoverController x ~animationCompleted self = msg_send ~self ~cmd:(selector "popoverController:animationCompleted:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int animationCompleted) -let popoverControllerShouldDismissPopover x self = msg_send ~self ~cmd:(selector "popoverControllerShouldDismissPopover:") ~typ:(id @-> returning (bool)) x -let searchBar self = msg_send ~self ~cmd:(selector "searchBar") ~typ:(returning (id)) -let searchBar1 x ~selectedScopeButtonIndexDidChange self = msg_send ~self ~cmd:(selector "searchBar:selectedScopeButtonIndexDidChange:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int selectedScopeButtonIndexDidChange) -let searchBar2 x ~textDidChange self = msg_send ~self ~cmd:(selector "searchBar:textDidChange:") ~typ:(id @-> id @-> returning (void)) x textDidChange -let searchBarCancelButtonClicked x self = msg_send ~self ~cmd:(selector "searchBarCancelButtonClicked:") ~typ:(id @-> returning (void)) x -let searchBarResultsListButtonClicked x self = msg_send ~self ~cmd:(selector "searchBarResultsListButtonClicked:") ~typ:(id @-> returning (void)) x -let searchBarSearchButtonClicked x self = msg_send ~self ~cmd:(selector "searchBarSearchButtonClicked:") ~typ:(id @-> returning (void)) x -let searchBarTextDidBeginEditing x self = msg_send ~self ~cmd:(selector "searchBarTextDidBeginEditing:") ~typ:(id @-> returning (void)) x -let searchContentsController self = msg_send ~self ~cmd:(selector "searchContentsController") ~typ:(returning (id)) -let searchResultsDataSource self = msg_send ~self ~cmd:(selector "searchResultsDataSource") ~typ:(returning (id)) -let searchResultsDelegate self = msg_send ~self ~cmd:(selector "searchResultsDelegate") ~typ:(returning (id)) -let searchResultsTableView self = msg_send ~self ~cmd:(selector "searchResultsTableView") ~typ:(returning (id)) -let searchResultsTitle self = msg_send ~self ~cmd:(selector "searchResultsTitle") ~typ:(returning (id)) -let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning (void)) x -let setActive' x ~animated self = msg_send ~self ~cmd:(selector "setActive:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setAutomaticallyShowsNoResultsMessage x self = msg_send ~self ~cmd:(selector "setAutomaticallyShowsNoResultsMessage:") ~typ:(bool @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDimTableViewOnEmptySearchString x self = msg_send ~self ~cmd:(selector "setDimTableViewOnEmptySearchString:") ~typ:(bool @-> returning (void)) x -let setDisplaysSearchBarInNavigationBar x self = msg_send ~self ~cmd:(selector "setDisplaysSearchBarInNavigationBar:") ~typ:(bool @-> returning (void)) x -let setNavigationBarHidingEnabled x self = msg_send ~self ~cmd:(selector "setNavigationBarHidingEnabled:") ~typ:(bool @-> returning (void)) x -let setNavigationBarSearchFieldSizing x self = msg_send ~self ~cmd:(selector "setNavigationBarSearchFieldSizing:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setNoResultsMessage x self = msg_send ~self ~cmd:(selector "setNoResultsMessage:") ~typ:(id @-> returning (void)) x -let setNoResultsMessageVisible x self = msg_send ~self ~cmd:(selector "setNoResultsMessageVisible:") ~typ:(bool @-> returning (void)) x -let setSearchBar x self = msg_send ~self ~cmd:(selector "setSearchBar:") ~typ:(id @-> returning (void)) x -let setSearchContentsController x self = msg_send ~self ~cmd:(selector "setSearchContentsController:") ~typ:(id @-> returning (void)) x -let setSearchResultsDataSource x self = msg_send ~self ~cmd:(selector "setSearchResultsDataSource:") ~typ:(id @-> returning (void)) x -let setSearchResultsDelegate x self = msg_send ~self ~cmd:(selector "setSearchResultsDelegate:") ~typ:(id @-> returning (void)) x -let setSearchResultsTitle x self = msg_send ~self ~cmd:(selector "setSearchResultsTitle:") ~typ:(id @-> returning (void)) x -let showHideAnimationDidFinish self = msg_send ~self ~cmd:(selector "showHideAnimationDidFinish") ~typ:(returning (void)) -let windowDidRotate x self = msg_send ~self ~cmd:(selector "windowDidRotate:") ~typ:(id @-> returning (void)) x -let windowWillAnimateRotation x self = msg_send ~self ~cmd:(selector "windowWillAnimateRotation:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UISearchDisplayController" + +let automaticallyShowsNoResultsMessage self = msg_send ~self ~cmd:(selector "automaticallyShowsNoResultsMessage") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let dimTableViewOnEmptySearchString self = msg_send ~self ~cmd:(selector "dimTableViewOnEmptySearchString") ~typ:(returning bool) +let displaysSearchBarInNavigationBar self = msg_send ~self ~cmd:(selector "displaysSearchBarInNavigationBar") ~typ:(returning bool) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hidNavigationBar self = msg_send ~self ~cmd:(selector "hidNavigationBar") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithSearchBar x ~contentsController self = msg_send ~self ~cmd:(selector "initWithSearchBar:contentsController:") ~typ:(id @-> id @-> returning id) x contentsController +let initWithSearchBar' x ~contentsController ~searchResultsTableViewStyle self = msg_send ~self ~cmd:(selector "initWithSearchBar:contentsController:searchResultsTableViewStyle:") ~typ:(id @-> id @-> llong @-> returning id) x contentsController (LLong.of_int searchResultsTableViewStyle) +let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning bool) +let isNavigationBarHidingEnabled self = msg_send ~self ~cmd:(selector "isNavigationBarHidingEnabled") ~typ:(returning bool) +let navigationBarSearchFieldSizing self = msg_send ~self ~cmd:(selector "navigationBarSearchFieldSizing") ~typ:(returning ullong) +let navigationControllerDidCancelShowingViewController x self = msg_send ~self ~cmd:(selector "navigationControllerDidCancelShowingViewController:") ~typ:(id @-> returning void) x +let navigationControllerDidShowViewController x self = msg_send ~self ~cmd:(selector "navigationControllerDidShowViewController:") ~typ:(id @-> returning void) x +let navigationControllerWillShowViewController x self = msg_send ~self ~cmd:(selector "navigationControllerWillShowViewController:") ~typ:(id @-> returning void) x +let navigationItem self = msg_send ~self ~cmd:(selector "navigationItem") ~typ:(returning id) +let noResultsMessage self = msg_send ~self ~cmd:(selector "noResultsMessage") ~typ:(returning id) +let noResultsMessageVisible self = msg_send ~self ~cmd:(selector "noResultsMessageVisible") ~typ:(returning bool) +let popoverController x ~animationCompleted self = msg_send ~self ~cmd:(selector "popoverController:animationCompleted:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int animationCompleted) +let popoverControllerShouldDismissPopover x self = msg_send ~self ~cmd:(selector "popoverControllerShouldDismissPopover:") ~typ:(id @-> returning bool) x +let searchBar self = msg_send ~self ~cmd:(selector "searchBar") ~typ:(returning id) +let searchBar1 x ~selectedScopeButtonIndexDidChange self = msg_send ~self ~cmd:(selector "searchBar:selectedScopeButtonIndexDidChange:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int selectedScopeButtonIndexDidChange) +let searchBar2 x ~textDidChange self = msg_send ~self ~cmd:(selector "searchBar:textDidChange:") ~typ:(id @-> id @-> returning void) x textDidChange +let searchBarCancelButtonClicked x self = msg_send ~self ~cmd:(selector "searchBarCancelButtonClicked:") ~typ:(id @-> returning void) x +let searchBarResultsListButtonClicked x self = msg_send ~self ~cmd:(selector "searchBarResultsListButtonClicked:") ~typ:(id @-> returning void) x +let searchBarSearchButtonClicked x self = msg_send ~self ~cmd:(selector "searchBarSearchButtonClicked:") ~typ:(id @-> returning void) x +let searchBarTextDidBeginEditing x self = msg_send ~self ~cmd:(selector "searchBarTextDidBeginEditing:") ~typ:(id @-> returning void) x +let searchContentsController self = msg_send ~self ~cmd:(selector "searchContentsController") ~typ:(returning id) +let searchResultsDataSource self = msg_send ~self ~cmd:(selector "searchResultsDataSource") ~typ:(returning id) +let searchResultsDelegate self = msg_send ~self ~cmd:(selector "searchResultsDelegate") ~typ:(returning id) +let searchResultsTableView self = msg_send ~self ~cmd:(selector "searchResultsTableView") ~typ:(returning id) +let searchResultsTitle self = msg_send ~self ~cmd:(selector "searchResultsTitle") ~typ:(returning id) +let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning void) x +let setActive' x ~animated self = msg_send ~self ~cmd:(selector "setActive:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setAutomaticallyShowsNoResultsMessage x self = msg_send ~self ~cmd:(selector "setAutomaticallyShowsNoResultsMessage:") ~typ:(bool @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDimTableViewOnEmptySearchString x self = msg_send ~self ~cmd:(selector "setDimTableViewOnEmptySearchString:") ~typ:(bool @-> returning void) x +let setDisplaysSearchBarInNavigationBar x self = msg_send ~self ~cmd:(selector "setDisplaysSearchBarInNavigationBar:") ~typ:(bool @-> returning void) x +let setNavigationBarHidingEnabled x self = msg_send ~self ~cmd:(selector "setNavigationBarHidingEnabled:") ~typ:(bool @-> returning void) x +let setNavigationBarSearchFieldSizing x self = msg_send ~self ~cmd:(selector "setNavigationBarSearchFieldSizing:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setNoResultsMessage x self = msg_send ~self ~cmd:(selector "setNoResultsMessage:") ~typ:(id @-> returning void) x +let setNoResultsMessageVisible x self = msg_send ~self ~cmd:(selector "setNoResultsMessageVisible:") ~typ:(bool @-> returning void) x +let setSearchBar x self = msg_send ~self ~cmd:(selector "setSearchBar:") ~typ:(id @-> returning void) x +let setSearchContentsController x self = msg_send ~self ~cmd:(selector "setSearchContentsController:") ~typ:(id @-> returning void) x +let setSearchResultsDataSource x self = msg_send ~self ~cmd:(selector "setSearchResultsDataSource:") ~typ:(id @-> returning void) x +let setSearchResultsDelegate x self = msg_send ~self ~cmd:(selector "setSearchResultsDelegate:") ~typ:(id @-> returning void) x +let setSearchResultsTitle x self = msg_send ~self ~cmd:(selector "setSearchResultsTitle:") ~typ:(id @-> returning void) x +let showHideAnimationDidFinish self = msg_send ~self ~cmd:(selector "showHideAnimationDidFinish") ~typ:(returning void) +let windowDidRotate x self = msg_send ~self ~cmd:(selector "windowDidRotate:") ~typ:(id @-> returning void) x +let windowWillAnimateRotation x self = msg_send ~self ~cmd:(selector "windowWillAnimateRotation:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UISearchDisplayControllerContainerView.ml b/uikit/UISearchDisplayControllerContainerView.ml index e5fea408..99faa17d 100644 --- a/uikit/UISearchDisplayControllerContainerView.ml +++ b/uikit/UISearchDisplayControllerContainerView.ml @@ -5,22 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISearchDisplayControllerContainerView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisearchdisplaycontrollercontainerview?language=objc}UISearchDisplayControllerContainerView} *) -let adjustTopAttributeConstantByDelta x self = msg_send ~self ~cmd:(selector "adjustTopAttributeConstantByDelta:") ~typ:(double @-> returning (void)) x -let behindView self = msg_send ~self ~cmd:(selector "behindView") ~typ:(returning (id)) -let bottomView self = msg_send ~self ~cmd:(selector "bottomView") ~typ:(returning (id)) -let collapseTopView self = msg_send ~self ~cmd:(selector "collapseTopView") ~typ:(returning (void)) -let configureInteractionForContainment x self = msg_send ~self ~cmd:(selector "configureInteractionForContainment:") ~typ:(bool @-> returning (void)) x -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let initWithFrame x ~topViewHeight self = msg_send ~self ~cmd:(selector "initWithFrame:topViewHeight:") ~typ:(CGRect.t @-> double @-> returning (id)) x topViewHeight -let setBottomViewUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setBottomViewUserInteractionEnabled:") ~typ:(bool @-> returning (void)) x -let setTopViewAttributeTopConstraint x self = msg_send ~self ~cmd:(selector "setTopViewAttributeTopConstraint:") ~typ:(id @-> returning (void)) x -let setTopViewHeightConstraint x self = msg_send ~self ~cmd:(selector "setTopViewHeightConstraint:") ~typ:(id @-> returning (void)) x -let topView self = msg_send ~self ~cmd:(selector "topView") ~typ:(returning (id)) -let topViewAttributeTopConstraint self = msg_send ~self ~cmd:(selector "topViewAttributeTopConstraint") ~typ:(returning (id)) -let topViewHeightConstraint self = msg_send ~self ~cmd:(selector "topViewHeightConstraint") ~typ:(returning (id)) -let updateTopAttributeConstant x self = msg_send ~self ~cmd:(selector "updateTopAttributeConstant:") ~typ:(double @-> returning (void)) x -let updateTopViewHeight x self = msg_send ~self ~cmd:(selector "updateTopViewHeight:") ~typ:(double @-> returning (void)) x -let updateTopViewHeight' x ~animateUpdate self = msg_send ~self ~cmd:(selector "updateTopViewHeight:animateUpdate:") ~typ:(double @-> bool @-> returning (void)) x animateUpdate \ No newline at end of file +let self = get_class "UISearchDisplayControllerContainerView" + +let adjustTopAttributeConstantByDelta x self = msg_send ~self ~cmd:(selector "adjustTopAttributeConstantByDelta:") ~typ:(double @-> returning void) x +let behindView self = msg_send ~self ~cmd:(selector "behindView") ~typ:(returning id) +let bottomView self = msg_send ~self ~cmd:(selector "bottomView") ~typ:(returning id) +let collapseTopView self = msg_send ~self ~cmd:(selector "collapseTopView") ~typ:(returning void) +let configureInteractionForContainment x self = msg_send ~self ~cmd:(selector "configureInteractionForContainment:") ~typ:(bool @-> returning void) x +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let initWithFrame x ~topViewHeight self = msg_send ~self ~cmd:(selector "initWithFrame:topViewHeight:") ~typ:(CGRect.t @-> double @-> returning id) x topViewHeight +let setBottomViewUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setBottomViewUserInteractionEnabled:") ~typ:(bool @-> returning void) x +let setTopViewAttributeTopConstraint x self = msg_send ~self ~cmd:(selector "setTopViewAttributeTopConstraint:") ~typ:(id @-> returning void) x +let setTopViewHeightConstraint x self = msg_send ~self ~cmd:(selector "setTopViewHeightConstraint:") ~typ:(id @-> returning void) x +let topView self = msg_send ~self ~cmd:(selector "topView") ~typ:(returning id) +let topViewAttributeTopConstraint self = msg_send ~self ~cmd:(selector "topViewAttributeTopConstraint") ~typ:(returning id) +let topViewHeightConstraint self = msg_send ~self ~cmd:(selector "topViewHeightConstraint") ~typ:(returning id) +let updateTopAttributeConstant x self = msg_send ~self ~cmd:(selector "updateTopAttributeConstant:") ~typ:(double @-> returning void) x +let updateTopViewHeight x self = msg_send ~self ~cmd:(selector "updateTopViewHeight:") ~typ:(double @-> returning void) x +let updateTopViewHeight' x ~animateUpdate self = msg_send ~self ~cmd:(selector "updateTopViewHeight:animateUpdate:") ~typ:(double @-> bool @-> returning void) x animateUpdate \ No newline at end of file diff --git a/uikit/UISearchField.ml b/uikit/UISearchField.ml index b30ddff2..ad870894 100644 --- a/uikit/UISearchField.ml +++ b/uikit/UISearchField.ml @@ -5,14 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISearchField" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisearchfield?language=objc}UISearchField} *) -module C = struct - let defaultHeight self = msg_send ~self ~cmd:(selector "defaultHeight") ~typ:(returning (double)) -end +let self = get_class "UISearchField" -let iconRect self = msg_send_stret ~self ~cmd:(selector "iconRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let rightViewRectForBounds x self = msg_send_stret ~self ~cmd:(selector "rightViewRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let setPaddingTop x ~paddingLeft self = msg_send ~self ~cmd:(selector "setPaddingTop:paddingLeft:") ~typ:(float @-> float @-> returning (void)) x paddingLeft \ No newline at end of file +let iconRect self = msg_send ~self ~cmd:(selector "iconRect") ~typ:(returning CGRect.t) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let rightViewRectForBounds x self = msg_send ~self ~cmd:(selector "rightViewRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let setPaddingTop x ~paddingLeft self = msg_send ~self ~cmd:(selector "setPaddingTop:paddingLeft:") ~typ:(float @-> float @-> returning void) x paddingLeft \ No newline at end of file diff --git a/uikit/UISearchFieldClass.ml b/uikit/UISearchFieldClass.ml new file mode 100644 index 00000000..f8041a26 --- /dev/null +++ b/uikit/UISearchFieldClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisearchfield?language=objc}UISearchField} *) + +let defaultHeight self = msg_send ~self ~cmd:(selector "defaultHeight") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UISearchResultsTableView.ml b/uikit/UISearchResultsTableView.ml index 75f614f3..1e42f6a1 100644 --- a/uikit/UISearchResultsTableView.ml +++ b/uikit/UISearchResultsTableView.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISearchResultsTableView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisearchresultstableview?language=objc}UISearchResultsTableView} *) -let controller self = msg_send ~self ~cmd:(selector "controller") ~typ:(returning (id)) -let initWithFrame x ~style self = msg_send ~self ~cmd:(selector "initWithFrame:style:") ~typ:(CGRect.t @-> llong @-> returning (id)) x (LLong.of_int style) -let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let setController x self = msg_send ~self ~cmd:(selector "setController:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UISearchResultsTableView" + +let controller self = msg_send ~self ~cmd:(selector "controller") ~typ:(returning id) +let initWithFrame x ~style self = msg_send ~self ~cmd:(selector "initWithFrame:style:") ~typ:(CGRect.t @-> llong @-> returning id) x (LLong.of_int style) +let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGPoint.t @-> returning void) x +let setController x self = msg_send ~self ~cmd:(selector "setController:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UISearchTextField.ml b/uikit/UISearchTextField.ml index ed9abf24..02eedae1 100644 --- a/uikit/UISearchTextField.ml +++ b/uikit/UISearchTextField.ml @@ -5,63 +5,67 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISearchTextField" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisearchtextfield?language=objc}UISearchTextField} *) -let allowsCopyingTokens self = msg_send ~self ~cmd:(selector "allowsCopyingTokens") ~typ:(returning (bool)) -let allowsDeletingTokens self = msg_send ~self ~cmd:(selector "allowsDeletingTokens") ~typ:(returning (bool)) -let allowsDraggingAttachments self = msg_send ~self ~cmd:(selector "allowsDraggingAttachments") ~typ:(returning (bool)) -let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning (id)) -let attributedTextInRange x self = msg_send ~self ~cmd:(selector "attributedTextInRange:") ~typ:(id @-> returning (id)) x -let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning (bool)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let canResignFirstResponder self = msg_send ~self ~cmd:(selector "canResignFirstResponder") ~typ:(returning (bool)) -let clearButtonRectForBounds x self = msg_send_stret ~self ~cmd:(selector "clearButtonRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning (void)) x -let cut x self = msg_send ~self ~cmd:(selector "cut:") ~typ:(id @-> returning (void)) x -let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning (void)) -let didAddTextAttachmentViews x self = msg_send ~self ~cmd:(selector "didAddTextAttachmentViews:") ~typ:(id @-> returning (void)) x -let didLayoutTextAttachmentView x ~inFragmentRect self = msg_send ~self ~cmd:(selector "didLayoutTextAttachmentView:inFragmentRect:") ~typ:(id @-> CGRect.t @-> returning (void)) x inFragmentRect -let didRemoveTextAttachmentViews x self = msg_send ~self ~cmd:(selector "didRemoveTextAttachmentViews:") ~typ:(id @-> returning (void)) x -let editingRectForBounds x self = msg_send_stret ~self ~cmd:(selector "editingRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let fieldEditorDidChangeSelection x self = msg_send ~self ~cmd:(selector "fieldEditorDidChangeSelection:") ~typ:(id @-> returning (void)) x -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let insertAttributedText x self = msg_send ~self ~cmd:(selector "insertAttributedText:") ~typ:(id @-> returning (void)) x -let insertFilteredText x self = msg_send_stret ~self ~cmd:(selector "insertFilteredText:") ~typ:(id @-> returning (NSRange.t)) ~return_type:NSRange.t x -let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning (void)) x -let insertTextSuggestion x self = msg_send ~self ~cmd:(selector "insertTextSuggestion:") ~typ:(id @-> returning (void)) x -let insertToken x ~atIndex self = msg_send ~self ~cmd:(selector "insertToken:atIndex:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int atIndex) -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let leftViewRectForBounds x self = msg_send_stret ~self ~cmd:(selector "leftViewRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let paste x self = msg_send ~self ~cmd:(selector "paste:") ~typ:(id @-> returning (void)) x -let placeholderRectForBounds x self = msg_send_stret ~self ~cmd:(selector "placeholderRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let positionOfTokenAtIndex x self = msg_send ~self ~cmd:(selector "positionOfTokenAtIndex:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let removeTokenAtIndex x self = msg_send ~self ~cmd:(selector "removeTokenAtIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let replaceRange x ~withAttributedText self = msg_send ~self ~cmd:(selector "replaceRange:withAttributedText:") ~typ:(id @-> id @-> returning (void)) x withAttributedText -let replaceRange' x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning (void)) x withText -let replaceRangeWithTextWithoutClosingTyping x ~replacementText self = msg_send ~self ~cmd:(selector "replaceRangeWithTextWithoutClosingTyping:replacementText:") ~typ:(id @-> id @-> returning (void)) x replacementText -let replaceTextualPortionOfRange x ~withToken ~atIndex self = msg_send ~self ~cmd:(selector "replaceTextualPortionOfRange:withToken:atIndex:") ~typ:(id @-> id @-> ullong @-> returning (void)) x withToken (ULLong.of_int atIndex) -let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning (bool)) -let rightViewRectForBounds x self = msg_send_stret ~self ~cmd:(selector "rightViewRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let selectedTokens self = msg_send ~self ~cmd:(selector "selectedTokens") ~typ:(returning (id)) -let setAllowsCopyingTokens x self = msg_send ~self ~cmd:(selector "setAllowsCopyingTokens:") ~typ:(bool @-> returning (void)) x -let setAllowsDeletingTokens x self = msg_send ~self ~cmd:(selector "setAllowsDeletingTokens:") ~typ:(bool @-> returning (void)) x -let setAttributedMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setAttributedMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning (void)) x selectedRange -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning (void)) x selectedRange -let setTokenBackgroundColor x self = msg_send ~self ~cmd:(selector "setTokenBackgroundColor:") ~typ:(id @-> returning (void)) x -let setTokens x self = msg_send ~self ~cmd:(selector "setTokens:") ~typ:(id @-> returning (void)) x -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning (id)) x -let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning (id)) -let textRectForBounds x self = msg_send_stret ~self ~cmd:(selector "textRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let textualRange self = msg_send ~self ~cmd:(selector "textualRange") ~typ:(returning (id)) -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let tokenBackgroundColor self = msg_send ~self ~cmd:(selector "tokenBackgroundColor") ~typ:(returning (id)) -let tokens self = msg_send ~self ~cmd:(selector "tokens") ~typ:(returning (id)) -let tokensInRange x self = msg_send ~self ~cmd:(selector "tokensInRange:") ~typ:(id @-> returning (id)) x -let updateForBackdropStyle x self = msg_send ~self ~cmd:(selector "updateForBackdropStyle:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) \ No newline at end of file +let self = get_class "UISearchTextField" + +let allowsCopyingTokens self = msg_send ~self ~cmd:(selector "allowsCopyingTokens") ~typ:(returning bool) +let allowsDeletingTokens self = msg_send ~self ~cmd:(selector "allowsDeletingTokens") ~typ:(returning bool) +let allowsDraggingAttachments self = msg_send ~self ~cmd:(selector "allowsDraggingAttachments") ~typ:(returning bool) +let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning id) +let attributedTextInRange x self = msg_send ~self ~cmd:(selector "attributedTextInRange:") ~typ:(id @-> returning id) x +let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning bool) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let canResignFirstResponder self = msg_send ~self ~cmd:(selector "canResignFirstResponder") ~typ:(returning bool) +let clearButtonRectForBounds x self = msg_send ~self ~cmd:(selector "clearButtonRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning void) x +let cut x self = msg_send ~self ~cmd:(selector "cut:") ~typ:(id @-> returning void) x +let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning void) +let didAddTextAttachmentViews x self = msg_send ~self ~cmd:(selector "didAddTextAttachmentViews:") ~typ:(id @-> returning void) x +let didLayoutTextAttachmentView x ~inFragmentRect self = msg_send ~self ~cmd:(selector "didLayoutTextAttachmentView:inFragmentRect:") ~typ:(id @-> CGRect.t @-> returning void) x inFragmentRect +let didRemoveTextAttachmentViews x self = msg_send ~self ~cmd:(selector "didRemoveTextAttachmentViews:") ~typ:(id @-> returning void) x +let editingRectForBounds x self = msg_send ~self ~cmd:(selector "editingRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let fieldEditorDidChangeSelection x self = msg_send ~self ~cmd:(selector "fieldEditorDidChangeSelection:") ~typ:(id @-> returning void) x +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let insertAttributedText x self = msg_send ~self ~cmd:(selector "insertAttributedText:") ~typ:(id @-> returning void) x +let insertFilteredText x self = msg_send ~self ~cmd:(selector "insertFilteredText:") ~typ:(id @-> returning NSRange.t) x +let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning void) x +let insertTextSuggestion x self = msg_send ~self ~cmd:(selector "insertTextSuggestion:") ~typ:(id @-> returning void) x +let insertToken x ~atIndex self = msg_send ~self ~cmd:(selector "insertToken:atIndex:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int atIndex) +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let leftViewRectForBounds x self = msg_send ~self ~cmd:(selector "leftViewRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let paste x self = msg_send ~self ~cmd:(selector "paste:") ~typ:(id @-> returning void) x +let placeholderRectForBounds x self = msg_send ~self ~cmd:(selector "placeholderRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let positionOfTokenAtIndex x self = msg_send ~self ~cmd:(selector "positionOfTokenAtIndex:") ~typ:(llong @-> returning id) (LLong.of_int x) +let removeTokenAtIndex x self = msg_send ~self ~cmd:(selector "removeTokenAtIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let replaceRange x ~withAttributedText self = msg_send ~self ~cmd:(selector "replaceRange:withAttributedText:") ~typ:(id @-> id @-> returning void) x withAttributedText +let replaceRange' x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning void) x withText +let replaceRangeWithTextWithoutClosingTyping x ~replacementText self = msg_send ~self ~cmd:(selector "replaceRangeWithTextWithoutClosingTyping:replacementText:") ~typ:(id @-> id @-> returning void) x replacementText +let replaceTextualPortionOfRange x ~withToken ~atIndex self = msg_send ~self ~cmd:(selector "replaceTextualPortionOfRange:withToken:atIndex:") ~typ:(id @-> id @-> ullong @-> returning void) x withToken (ULLong.of_int atIndex) +let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning bool) +let rightViewRectForBounds x self = msg_send ~self ~cmd:(selector "rightViewRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let selectedTokens self = msg_send ~self ~cmd:(selector "selectedTokens") ~typ:(returning id) +let setAllowsCopyingTokens x self = msg_send ~self ~cmd:(selector "setAllowsCopyingTokens:") ~typ:(bool @-> returning void) x +let setAllowsDeletingTokens x self = msg_send ~self ~cmd:(selector "setAllowsDeletingTokens:") ~typ:(bool @-> returning void) x +let setAttributedMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setAttributedMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning void) x selectedRange +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning void) x selectedRange +let setTokenBackgroundColor x self = msg_send ~self ~cmd:(selector "setTokenBackgroundColor:") ~typ:(id @-> returning void) x +let setTokens x self = msg_send ~self ~cmd:(selector "setTokens:") ~typ:(id @-> returning void) x +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning id) x +let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning id) +let textRectForBounds x self = msg_send ~self ~cmd:(selector "textRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let textualRange self = msg_send ~self ~cmd:(selector "textualRange") ~typ:(returning id) +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let tokenBackgroundColor self = msg_send ~self ~cmd:(selector "tokenBackgroundColor") ~typ:(returning id) +let tokens self = msg_send ~self ~cmd:(selector "tokens") ~typ:(returning id) +let tokensInRange x self = msg_send ~self ~cmd:(selector "tokensInRange:") ~typ:(id @-> returning id) x +let updateForBackdropStyle x self = msg_send ~self ~cmd:(selector "updateForBackdropStyle:") ~typ:(ullong @-> returning void) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UISearchToken.ml b/uikit/UISearchToken.ml index b3d2791c..57e2a3ef 100644 --- a/uikit/UISearchToken.ml +++ b/uikit/UISearchToken.ml @@ -5,17 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISearchToken" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisearchtoken?language=objc}UISearchToken} *) -module C = struct - let tokenWithIcon x ~text self = msg_send ~self ~cmd:(selector "tokenWithIcon:text:") ~typ:(id @-> id @-> returning (id)) x text - let tokenWithImage x self = msg_send ~self ~cmd:(selector "tokenWithImage:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UISearchToken" -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let representedObject self = msg_send ~self ~cmd:(selector "representedObject") ~typ:(returning (id)) -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setRepresentedObject x self = msg_send ~self ~cmd:(selector "setRepresentedObject:") ~typ:(id @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) \ No newline at end of file +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let representedObject self = msg_send ~self ~cmd:(selector "representedObject") ~typ:(returning id) +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setRepresentedObject x self = msg_send ~self ~cmd:(selector "setRepresentedObject:") ~typ:(id @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISearchTokenClass.ml b/uikit/UISearchTokenClass.ml new file mode 100644 index 00000000..bd47a71c --- /dev/null +++ b/uikit/UISearchTokenClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisearchtoken?language=objc}UISearchToken} *) + +let tokenWithIcon x ~text self = msg_send ~self ~cmd:(selector "tokenWithIcon:text:") ~typ:(id @-> id @-> returning id) x text +let tokenWithImage x self = msg_send ~self ~cmd:(selector "tokenWithImage:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UISectionRowData.ml b/uikit/UISectionRowData.ml index d772cc77..a4d83b78 100644 --- a/uikit/UISectionRowData.ml +++ b/uikit/UISectionRowData.ml @@ -5,30 +5,34 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISectionRowData" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisectionrowdata?language=objc}UISectionRowData} *) -let addOffset x ~fromRow self = msg_send ~self ~cmd:(selector "addOffset:fromRow:") ~typ:(double @-> llong @-> returning (void)) x (LLong.of_int fromRow) -let allocateArraysWithCapacity x ~forSection self = msg_send ~self ~cmd:(selector "allocateArraysWithCapacity:forSection:") ~typ:(ullong @-> llong @-> returning (void)) (ULLong.of_int x) (LLong.of_int forSection) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultSectionFooterHeight self = msg_send ~self ~cmd:(selector "defaultSectionFooterHeight") ~typ:(returning (double)) -let defaultSectionHeaderHeight self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeight") ~typ:(returning (double)) -let deleteRowAtIndex x self = msg_send ~self ~cmd:(selector "deleteRowAtIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let heightForEmptySection x ~inTableView ~rowData self = msg_send ~self ~cmd:(selector "heightForEmptySection:inTableView:rowData:") ~typ:(llong @-> id @-> id @-> returning (double)) (LLong.of_int x) inTableView rowData -let heightForFooterInSection x ~canGuess self = msg_send ~self ~cmd:(selector "heightForFooterInSection:canGuess:") ~typ:(llong @-> bool @-> returning (double)) (LLong.of_int x) canGuess -let heightForHeaderInSection x ~canGuess self = msg_send ~self ~cmd:(selector "heightForHeaderInSection:canGuess:") ~typ:(llong @-> bool @-> returning (double)) (LLong.of_int x) canGuess -let heightForRow x ~inSection ~canGuess self = msg_send ~self ~cmd:(selector "heightForRow:inSection:canGuess:") ~typ:(llong @-> llong @-> bool @-> returning (double)) (LLong.of_int x) (LLong.of_int inSection) canGuess -let initWithRowData x self = msg_send ~self ~cmd:(selector "initWithRowData:") ~typ:(id @-> returning (id)) x -let insertRowAtIndex x ~inSection ~rowHeight ~tableViewRowData self = msg_send ~self ~cmd:(selector "insertRowAtIndex:inSection:rowHeight:tableViewRowData:") ~typ:(llong @-> llong @-> double @-> id @-> returning (void)) (LLong.of_int x) (LLong.of_int inSection) rowHeight tableViewRowData -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let invalidateSectionOffset self = msg_send ~self ~cmd:(selector "invalidateSectionOffset") ~typ:(returning (void)) -let offsetForRow x ~adjustedForGap self = msg_send ~self ~cmd:(selector "offsetForRow:adjustedForGap:") ~typ:(llong @-> bool @-> returning (double)) (LLong.of_int x) adjustedForGap -let refreshWithSection x ~tableView ~tableViewRowData self = msg_send ~self ~cmd:(selector "refreshWithSection:tableView:tableViewRowData:") ~typ:(llong @-> id @-> id @-> returning (void)) (LLong.of_int x) tableView tableViewRowData -let sectionLocationForReorderedRow x self = msg_send ~self ~cmd:(selector "sectionLocationForReorderedRow:") ~typ:(llong @-> returning (int)) (LLong.of_int x) -let sectionLocationForRow x self = msg_send ~self ~cmd:(selector "sectionLocationForRow:") ~typ:(llong @-> returning (int)) (LLong.of_int x) -let setHeight x ~forFooterInSection self = msg_send ~self ~cmd:(selector "setHeight:forFooterInSection:") ~typ:(double @-> llong @-> returning (void)) x (LLong.of_int forFooterInSection) -let setHeight1 x ~forHeaderInSection self = msg_send ~self ~cmd:(selector "setHeight:forHeaderInSection:") ~typ:(double @-> llong @-> returning (void)) x (LLong.of_int forHeaderInSection) -let setHeight2 x ~forRow ~inSection self = msg_send ~self ~cmd:(selector "setHeight:forRow:inSection:") ~typ:(double @-> llong @-> llong @-> returning (void)) x (LLong.of_int forRow) (LLong.of_int inSection) -let updateSectionHeightWithDelta x ~section ~updateFooterOffset self = msg_send ~self ~cmd:(selector "updateSectionHeightWithDelta:section:updateFooterOffset:") ~typ:(double @-> llong @-> bool @-> returning (void)) x (LLong.of_int section) updateFooterOffset \ No newline at end of file +let self = get_class "UISectionRowData" + +let addOffset x ~fromRow self = msg_send ~self ~cmd:(selector "addOffset:fromRow:") ~typ:(double @-> llong @-> returning void) x (LLong.of_int fromRow) +let allocateArraysWithCapacity x ~forSection self = msg_send ~self ~cmd:(selector "allocateArraysWithCapacity:forSection:") ~typ:(ullong @-> llong @-> returning void) (ULLong.of_int x) (LLong.of_int forSection) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultSectionFooterHeight self = msg_send ~self ~cmd:(selector "defaultSectionFooterHeight") ~typ:(returning double) +let defaultSectionHeaderHeight self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeight") ~typ:(returning double) +let deleteRowAtIndex x self = msg_send ~self ~cmd:(selector "deleteRowAtIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let heightForEmptySection x ~inTableView ~rowData self = msg_send ~self ~cmd:(selector "heightForEmptySection:inTableView:rowData:") ~typ:(llong @-> id @-> id @-> returning double) (LLong.of_int x) inTableView rowData +let heightForFooterInSection x ~canGuess self = msg_send ~self ~cmd:(selector "heightForFooterInSection:canGuess:") ~typ:(llong @-> bool @-> returning double) (LLong.of_int x) canGuess +let heightForHeaderInSection x ~canGuess self = msg_send ~self ~cmd:(selector "heightForHeaderInSection:canGuess:") ~typ:(llong @-> bool @-> returning double) (LLong.of_int x) canGuess +let heightForRow x ~inSection ~canGuess self = msg_send ~self ~cmd:(selector "heightForRow:inSection:canGuess:") ~typ:(llong @-> llong @-> bool @-> returning double) (LLong.of_int x) (LLong.of_int inSection) canGuess +let initWithRowData x self = msg_send ~self ~cmd:(selector "initWithRowData:") ~typ:(id @-> returning id) x +let insertRowAtIndex x ~inSection ~rowHeight ~tableViewRowData self = msg_send ~self ~cmd:(selector "insertRowAtIndex:inSection:rowHeight:tableViewRowData:") ~typ:(llong @-> llong @-> double @-> id @-> returning void) (LLong.of_int x) (LLong.of_int inSection) rowHeight tableViewRowData +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let invalidateSectionOffset self = msg_send ~self ~cmd:(selector "invalidateSectionOffset") ~typ:(returning void) +let offsetForRow x ~adjustedForGap self = msg_send ~self ~cmd:(selector "offsetForRow:adjustedForGap:") ~typ:(llong @-> bool @-> returning double) (LLong.of_int x) adjustedForGap +let refreshWithSection x ~tableView ~tableViewRowData self = msg_send ~self ~cmd:(selector "refreshWithSection:tableView:tableViewRowData:") ~typ:(llong @-> id @-> id @-> returning void) (LLong.of_int x) tableView tableViewRowData +let sectionLocationForReorderedRow x self = msg_send ~self ~cmd:(selector "sectionLocationForReorderedRow:") ~typ:(llong @-> returning int) (LLong.of_int x) +let sectionLocationForRow x self = msg_send ~self ~cmd:(selector "sectionLocationForRow:") ~typ:(llong @-> returning int) (LLong.of_int x) +let setHeight x ~forFooterInSection self = msg_send ~self ~cmd:(selector "setHeight:forFooterInSection:") ~typ:(double @-> llong @-> returning void) x (LLong.of_int forFooterInSection) +let setHeight1 x ~forHeaderInSection self = msg_send ~self ~cmd:(selector "setHeight:forHeaderInSection:") ~typ:(double @-> llong @-> returning void) x (LLong.of_int forHeaderInSection) +let setHeight2 x ~forRow ~inSection self = msg_send ~self ~cmd:(selector "setHeight:forRow:inSection:") ~typ:(double @-> llong @-> llong @-> returning void) x (LLong.of_int forRow) (LLong.of_int inSection) +let updateSectionHeightWithDelta x ~section ~updateFooterOffset self = msg_send ~self ~cmd:(selector "updateSectionHeightWithDelta:section:updateFooterOffset:") ~typ:(double @-> llong @-> bool @-> returning void) x (LLong.of_int section) updateFooterOffset \ No newline at end of file diff --git a/uikit/UISegment.ml b/uikit/UISegment.ml index 32d55048..f6d4f348 100644 --- a/uikit/UISegment.ml +++ b/uikit/UISegment.ml @@ -5,74 +5,78 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISegment" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisegment?language=objc}UISegment} *) -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (id)) -let animateAdd x self = msg_send ~self ~cmd:(selector "animateAdd:") ~typ:(bool @-> returning (void)) x -let animateRemoveForWidth x self = msg_send ~self ~cmd:(selector "animateRemoveForWidth:") ~typ:(double @-> returning (void)) x -let animationDidStop x ~finished self = msg_send ~self ~cmd:(selector "animationDidStop:finished:") ~typ:(id @-> bool @-> returning (void)) x finished -let badgeValue self = msg_send ~self ~cmd:(selector "badgeValue") ~typ:(returning (id)) -let badgeView self = msg_send ~self ~cmd:(selector "badgeView") ~typ:(returning (id)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let contentRect self = msg_send_stret ~self ~cmd:(selector "contentRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let contentSize self = msg_send_stret ~self ~cmd:(selector "contentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let controlSize self = msg_send ~self ~cmd:(selector "controlSize") ~typ:(returning (int)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let disabledTextColor self = msg_send ~self ~cmd:(selector "disabledTextColor") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let focusEffect self = msg_send ~self ~cmd:(selector "focusEffect") ~typ:(returning (id)) -let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (id)) x forEvent -let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithInfo x ~size ~barStyle ~tintColor ~appearanceStorage ~position ~autosizeText ~adjustsForContentSizeCategory self = msg_send ~self ~cmd:(selector "initWithInfo:size:barStyle:tintColor:appearanceStorage:position:autosizeText:adjustsForContentSizeCategory:") ~typ:(id @-> int @-> llong @-> id @-> id @-> uint @-> bool @-> bool @-> returning (id)) x size (LLong.of_int barStyle) tintColor appearanceStorage position autosizeText adjustsForContentSizeCategory -let insertDividerView self = msg_send ~self ~cmd:(selector "insertDividerView") ~typ:(returning (void)) -let isAnimatingSelectionIndicator self = msg_send ~self ~cmd:(selector "isAnimatingSelectionIndicator") ~typ:(returning (bool)) -let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning (bool)) -let isHovered self = msg_send ~self ~cmd:(selector "isHovered") ~typ:(returning (bool)) -let isMomentary self = msg_send ~self ~cmd:(selector "isMomentary") ~typ:(returning (bool)) -let isRightHighlighted self = msg_send ~self ~cmd:(selector "isRightHighlighted") ~typ:(returning (bool)) -let isRightSelected self = msg_send ~self ~cmd:(selector "isRightSelected") ~typ:(returning (bool)) -let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning (bool)) -let isSelectionIndicatorDragged self = msg_send ~self ~cmd:(selector "isSelectionIndicatorDragged") ~typ:(returning (bool)) -let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let objectValue self = msg_send ~self ~cmd:(selector "objectValue") ~typ:(returning (id)) -let position self = msg_send ~self ~cmd:(selector "position") ~typ:(returning (uint)) -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let requestedScaleFactor self = msg_send ~self ~cmd:(selector "requestedScaleFactor") ~typ:(returning (double)) -let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(id @-> returning (void)) x -let setAdjustsForContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsForContentSizeCategory:") ~typ:(bool @-> returning (void)) x -let setAnimatingSelectionIndicator x self = msg_send ~self ~cmd:(selector "setAnimatingSelectionIndicator:") ~typ:(bool @-> returning (void)) x -let setAutosizeText x self = msg_send ~self ~cmd:(selector "setAutosizeText:") ~typ:(bool @-> returning (void)) x -let setBadgeValue x self = msg_send ~self ~cmd:(selector "setBadgeValue:") ~typ:(id @-> returning (void)) x -let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGSize.t @-> returning (void)) x -let setControlSize x self = msg_send ~self ~cmd:(selector "setControlSize:") ~typ:(int @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setHovered x self = msg_send ~self ~cmd:(selector "setHovered:") ~typ:(bool @-> returning (void)) x -let setMomentary x self = msg_send ~self ~cmd:(selector "setMomentary:") ~typ:(bool @-> returning (void)) x -let setNeedsBackgroundAndContentViewUpdate self = msg_send ~self ~cmd:(selector "setNeedsBackgroundAndContentViewUpdate") ~typ:(returning (void)) -let setObjectValue x self = msg_send ~self ~cmd:(selector "setObjectValue:") ~typ:(id @-> returning (void)) x -let setPosition x self = msg_send ~self ~cmd:(selector "setPosition:") ~typ:(uint @-> returning (void)) x -let setRequestedScaleFactor x self = msg_send ~self ~cmd:(selector "setRequestedScaleFactor:") ~typ:(double @-> returning (void)) x -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setSelected' x ~highlighted self = msg_send ~self ~cmd:(selector "setSelected:highlighted:") ~typ:(bool @-> bool @-> returning (void)) x highlighted -let setSelectionIndicatorDragged x self = msg_send ~self ~cmd:(selector "setSelectionIndicatorDragged:") ~typ:(bool @-> returning (void)) x -let setShowDivider x self = msg_send ~self ~cmd:(selector "setShowDivider:") ~typ:(bool @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let setUsesAXTextSize x self = msg_send ~self ~cmd:(selector "setUsesAXTextSize:") ~typ:(bool @-> returning (void)) x -let setWasSelected x self = msg_send ~self ~cmd:(selector "setWasSelected:") ~typ:(bool @-> returning (void)) x -let showDivider self = msg_send ~self ~cmd:(selector "showDivider") ~typ:(returning (bool)) -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning (void)) -let updateDividerViewForChangedSegment x self = msg_send ~self ~cmd:(selector "updateDividerViewForChangedSegment:") ~typ:(id @-> returning (void)) x -let updateForAppearance x self = msg_send ~self ~cmd:(selector "updateForAppearance:") ~typ:(id @-> returning (void)) x -let updateMasking self = msg_send ~self ~cmd:(selector "updateMasking") ~typ:(returning (void)) -let useBlockyMagnificationInClassic self = msg_send ~self ~cmd:(selector "useBlockyMagnificationInClassic") ~typ:(returning (bool)) -let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UISegment" + +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning id) +let animateAdd x self = msg_send ~self ~cmd:(selector "animateAdd:") ~typ:(bool @-> returning void) x +let animateRemoveForWidth x self = msg_send ~self ~cmd:(selector "animateRemoveForWidth:") ~typ:(double @-> returning void) x +let animationDidStop x ~finished self = msg_send ~self ~cmd:(selector "animationDidStop:finished:") ~typ:(id @-> bool @-> returning void) x finished +let badgeValue self = msg_send ~self ~cmd:(selector "badgeValue") ~typ:(returning id) +let badgeView self = msg_send ~self ~cmd:(selector "badgeView") ~typ:(returning id) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let contentRect self = msg_send ~self ~cmd:(selector "contentRect") ~typ:(returning CGRect.t) +let contentSize self = msg_send ~self ~cmd:(selector "contentSize") ~typ:(returning CGSize.t) +let controlSize self = msg_send ~self ~cmd:(selector "controlSize") ~typ:(returning int) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let disabledTextColor self = msg_send ~self ~cmd:(selector "disabledTextColor") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let focusEffect self = msg_send ~self ~cmd:(selector "focusEffect") ~typ:(returning id) +let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning id) x forEvent +let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithInfo x ~size ~barStyle ~tintColor ~appearanceStorage ~position ~autosizeText ~adjustsForContentSizeCategory self = msg_send ~self ~cmd:(selector "initWithInfo:size:barStyle:tintColor:appearanceStorage:position:autosizeText:adjustsForContentSizeCategory:") ~typ:(id @-> int @-> llong @-> id @-> id @-> uint @-> bool @-> bool @-> returning id) x size (LLong.of_int barStyle) tintColor appearanceStorage position autosizeText adjustsForContentSizeCategory +let insertDividerView self = msg_send ~self ~cmd:(selector "insertDividerView") ~typ:(returning void) +let isAnimatingSelectionIndicator self = msg_send ~self ~cmd:(selector "isAnimatingSelectionIndicator") ~typ:(returning bool) +let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning bool) +let isHovered self = msg_send ~self ~cmd:(selector "isHovered") ~typ:(returning bool) +let isMomentary self = msg_send ~self ~cmd:(selector "isMomentary") ~typ:(returning bool) +let isRightHighlighted self = msg_send ~self ~cmd:(selector "isRightHighlighted") ~typ:(returning bool) +let isRightSelected self = msg_send ~self ~cmd:(selector "isRightSelected") ~typ:(returning bool) +let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning bool) +let isSelectionIndicatorDragged self = msg_send ~self ~cmd:(selector "isSelectionIndicatorDragged") ~typ:(returning bool) +let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let objectValue self = msg_send ~self ~cmd:(selector "objectValue") ~typ:(returning id) +let position self = msg_send ~self ~cmd:(selector "position") ~typ:(returning uint) +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let requestedScaleFactor self = msg_send ~self ~cmd:(selector "requestedScaleFactor") ~typ:(returning double) +let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(id @-> returning void) x +let setAdjustsForContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsForContentSizeCategory:") ~typ:(bool @-> returning void) x +let setAnimatingSelectionIndicator x self = msg_send ~self ~cmd:(selector "setAnimatingSelectionIndicator:") ~typ:(bool @-> returning void) x +let setAutosizeText x self = msg_send ~self ~cmd:(selector "setAutosizeText:") ~typ:(bool @-> returning void) x +let setBadgeValue x self = msg_send ~self ~cmd:(selector "setBadgeValue:") ~typ:(id @-> returning void) x +let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGSize.t @-> returning void) x +let setControlSize x self = msg_send ~self ~cmd:(selector "setControlSize:") ~typ:(int @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setHovered x self = msg_send ~self ~cmd:(selector "setHovered:") ~typ:(bool @-> returning void) x +let setMomentary x self = msg_send ~self ~cmd:(selector "setMomentary:") ~typ:(bool @-> returning void) x +let setNeedsBackgroundAndContentViewUpdate self = msg_send ~self ~cmd:(selector "setNeedsBackgroundAndContentViewUpdate") ~typ:(returning void) +let setObjectValue x self = msg_send ~self ~cmd:(selector "setObjectValue:") ~typ:(id @-> returning void) x +let setPosition x self = msg_send ~self ~cmd:(selector "setPosition:") ~typ:(uint @-> returning void) x +let setRequestedScaleFactor x self = msg_send ~self ~cmd:(selector "setRequestedScaleFactor:") ~typ:(double @-> returning void) x +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setSelected' x ~highlighted self = msg_send ~self ~cmd:(selector "setSelected:highlighted:") ~typ:(bool @-> bool @-> returning void) x highlighted +let setSelectionIndicatorDragged x self = msg_send ~self ~cmd:(selector "setSelectionIndicatorDragged:") ~typ:(bool @-> returning void) x +let setShowDivider x self = msg_send ~self ~cmd:(selector "setShowDivider:") ~typ:(bool @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let setUsesAXTextSize x self = msg_send ~self ~cmd:(selector "setUsesAXTextSize:") ~typ:(bool @-> returning void) x +let setWasSelected x self = msg_send ~self ~cmd:(selector "setWasSelected:") ~typ:(bool @-> returning void) x +let showDivider self = msg_send ~self ~cmd:(selector "showDivider") ~typ:(returning bool) +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning void) +let updateDividerViewForChangedSegment x self = msg_send ~self ~cmd:(selector "updateDividerViewForChangedSegment:") ~typ:(id @-> returning void) x +let updateForAppearance x self = msg_send ~self ~cmd:(selector "updateForAppearance:") ~typ:(id @-> returning void) x +let updateMasking self = msg_send ~self ~cmd:(selector "updateMasking") ~typ:(returning void) +let useBlockyMagnificationInClassic self = msg_send ~self ~cmd:(selector "useBlockyMagnificationInClassic") ~typ:(returning bool) +let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISegmentAccessibilityButton.ml b/uikit/UISegmentAccessibilityButton.ml deleted file mode 100644 index 0dc3075e..00000000 --- a/uikit/UISegmentAccessibilityButton.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISegmentAccessibilityButton" - -module C = struct - let buttonWithSegment x self = msg_send ~self ~cmd:(selector "buttonWithSegment:") ~typ:(id @-> returning (id)) x -end - -let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (id)) x forEvent -let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let segment self = msg_send ~self ~cmd:(selector "segment") ~typ:(returning (id)) -let setSegment x self = msg_send ~self ~cmd:(selector "setSegment:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UISegmentLabel.ml b/uikit/UISegmentLabel.ml index 8959b58d..dea2f097 100644 --- a/uikit/UISegmentLabel.ml +++ b/uikit/UISegmentLabel.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISegmentLabel" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisegmentlabel?language=objc}UISegmentLabel} *) -let associatedLabel self = msg_send ~self ~cmd:(selector "associatedLabel") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let setAssociatedLabel x self = msg_send ~self ~cmd:(selector "setAssociatedLabel:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UISegmentLabel" + +let associatedLabel self = msg_send ~self ~cmd:(selector "associatedLabel") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let setAssociatedLabel x self = msg_send ~self ~cmd:(selector "setAssociatedLabel:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UISegmentedControl.ml b/uikit/UISegmentedControl.ml index 697e22b1..c3ca44d6 100644 --- a/uikit/UISegmentedControl.ml +++ b/uikit/UISegmentedControl.ml @@ -5,128 +5,127 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISegmentedControl" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisegmentedcontrol?language=objc}UISegmentedControl} *) -module C = struct - let automaticallyNotifiesObserversForKey x self = msg_send ~self ~cmd:(selector "automaticallyNotifiesObserversForKey:") ~typ:(id @-> returning (bool)) x - let defaultHeight self = msg_send ~self ~cmd:(selector "defaultHeight") ~typ:(returning (double)) - let defaultHeightForStyle x self = msg_send ~self ~cmd:(selector "defaultHeightForStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) - let defaultHeightForStyle' x ~size self = msg_send ~self ~cmd:(selector "defaultHeightForStyle:size:") ~typ:(llong @-> int @-> returning (double)) (LLong.of_int x) size -end +let self = get_class "UISegmentedControl" -let actionForSegmentAtIndex x self = msg_send ~self ~cmd:(selector "actionForSegmentAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let adaptivePresentationStyleForPresentationController x self = msg_send ~self ~cmd:(selector "adaptivePresentationStyleForPresentationController:") ~typ:(id @-> returning (llong)) x -let adaptivePresentationStyleForPresentationController' x ~traitCollection self = msg_send ~self ~cmd:(selector "adaptivePresentationStyleForPresentationController:traitCollection:") ~typ:(id @-> id @-> returning (llong)) x traitCollection -let addSegmentWithTitle x self = msg_send ~self ~cmd:(selector "addSegmentWithTitle:") ~typ:(id @-> returning (void)) x -let adjustsForContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsForContentSizeCategory") ~typ:(returning (bool)) -let animationDidStop x ~finished self = msg_send ~self ~cmd:(selector "animationDidStop:finished:") ~typ:(id @-> bool @-> returning (void)) x finished -let apportionsSegmentWidthsByContent self = msg_send ~self ~cmd:(selector "apportionsSegmentWidthsByContent") ~typ:(returning (bool)) -let axLongPressGestureRecognizer self = msg_send ~self ~cmd:(selector "axLongPressGestureRecognizer") ~typ:(returning (id)) -let backgroundImageForState x ~barMetrics self = msg_send ~self ~cmd:(selector "backgroundImageForState:barMetrics:") ~typ:(ullong @-> llong @-> returning (id)) (ULLong.of_int x) (LLong.of_int barMetrics) -let barStyle self = msg_send ~self ~cmd:(selector "barStyle") ~typ:(returning (llong)) -let bounds self = msg_send_stret ~self ~cmd:(selector "bounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let contentOffsetForSegment x self = msg_send_stret ~self ~cmd:(selector "contentOffsetForSegment:") ~typ:(ullong @-> returning (CGSize.t)) ~return_type:CGSize.t (ULLong.of_int x) -let contentOffsetForSegmentAtIndex x self = msg_send_stret ~self ~cmd:(selector "contentOffsetForSegmentAtIndex:") ~typ:(ullong @-> returning (CGSize.t)) ~return_type:CGSize.t (ULLong.of_int x) -let controlSize self = msg_send ~self ~cmd:(selector "controlSize") ~typ:(returning (int)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let dividerImageForLeftSegmentState x ~rightSegmentState ~barMetrics self = msg_send ~self ~cmd:(selector "dividerImageForLeftSegmentState:rightSegmentState:barMetrics:") ~typ:(ullong @-> ullong @-> llong @-> returning (id)) (ULLong.of_int x) (ULLong.of_int rightSegmentState) (LLong.of_int barMetrics) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let frame self = msg_send_stret ~self ~cmd:(selector "frame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let hoverOffSegment x self = msg_send ~self ~cmd:(selector "hoverOffSegment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let hoverOnSegment x self = msg_send ~self ~cmd:(selector "hoverOnSegment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let imageForSegment x self = msg_send ~self ~cmd:(selector "imageForSegment:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let imageForSegmentAtIndex x self = msg_send ~self ~cmd:(selector "imageForSegmentAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let infoViewForSegment x self = msg_send ~self ~cmd:(selector "infoViewForSegment:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithFrame1 x ~actions self = msg_send ~self ~cmd:(selector "initWithFrame:actions:") ~typ:(CGRect.t @-> id @-> returning (id)) x actions -let initWithFrame2 x ~withStyle ~withItems self = msg_send ~self ~cmd:(selector "initWithFrame:withStyle:withItems:") ~typ:(CGRect.t @-> llong @-> id @-> returning (id)) x (LLong.of_int withStyle) withItems -let initWithItems x self = msg_send ~self ~cmd:(selector "initWithItems:") ~typ:(id @-> returning (id)) x -let insertSegment x ~withImage ~animated self = msg_send ~self ~cmd:(selector "insertSegment:withImage:animated:") ~typ:(ullong @-> id @-> bool @-> returning (void)) (ULLong.of_int x) withImage animated -let insertSegment' x ~withTitle ~animated self = msg_send ~self ~cmd:(selector "insertSegment:withTitle:animated:") ~typ:(ullong @-> id @-> bool @-> returning (void)) (ULLong.of_int x) withTitle animated -let insertSegmentWithAction x ~atIndex ~animated self = msg_send ~self ~cmd:(selector "insertSegmentWithAction:atIndex:animated:") ~typ:(id @-> ullong @-> bool @-> returning (void)) x (ULLong.of_int atIndex) animated -let insertSegmentWithImage x ~atIndex ~animated self = msg_send ~self ~cmd:(selector "insertSegmentWithImage:atIndex:animated:") ~typ:(id @-> ullong @-> bool @-> returning (void)) x (ULLong.of_int atIndex) animated -let insertSegmentWithTitle x ~atIndex ~animated self = msg_send ~self ~cmd:(selector "insertSegmentWithTitle:atIndex:animated:") ~typ:(id @-> ullong @-> bool @-> returning (void)) x (ULLong.of_int atIndex) animated -let isEnabledForSegment x self = msg_send ~self ~cmd:(selector "isEnabledForSegment:") ~typ:(ullong @-> returning (bool)) (ULLong.of_int x) -let isEnabledForSegmentAtIndex x self = msg_send ~self ~cmd:(selector "isEnabledForSegmentAtIndex:") ~typ:(ullong @-> returning (bool)) (ULLong.of_int x) -let isMomentary self = msg_send ~self ~cmd:(selector "isMomentary") ~typ:(returning (bool)) -let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let numberOfSegments self = msg_send ~self ~cmd:(selector "numberOfSegments") ~typ:(returning (ullong)) -let pointMostlyInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointMostlyInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning (id)) x styleForRegion -let pointerInteraction1 x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning (id)) x regionForRequest defaultRegion -let pointerInteraction2 x ~willEnterRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willEnterRegion:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willEnterRegion animator -let pointerInteraction3 x ~willExitRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willExitRegion:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willExitRegion animator -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let removeAllSegments self = msg_send ~self ~cmd:(selector "removeAllSegments") ~typ:(returning (void)) -let removeSegment x ~animated self = msg_send ~self ~cmd:(selector "removeSegment:animated:") ~typ:(ullong @-> bool @-> returning (void)) (ULLong.of_int x) animated -let removeSegmentAtIndex x ~animated self = msg_send ~self ~cmd:(selector "removeSegmentAtIndex:animated:") ~typ:(ullong @-> bool @-> returning (void)) (ULLong.of_int x) animated -let removedSegment self = msg_send ~self ~cmd:(selector "removedSegment") ~typ:(returning (id)) -let segmentControlStyle self = msg_send ~self ~cmd:(selector "segmentControlStyle") ~typ:(returning (llong)) -let segmentIndexForActionIdentifier x self = msg_send ~self ~cmd:(selector "segmentIndexForActionIdentifier:") ~typ:(id @-> returning (llong)) x -let segmentedControlStyle self = msg_send ~self ~cmd:(selector "segmentedControlStyle") ~typ:(returning (llong)) -let selectSegment x self = msg_send ~self ~cmd:(selector "selectSegment:") ~typ:(int @-> returning (void)) x -let selectedSegment self = msg_send ~self ~cmd:(selector "selectedSegment") ~typ:(returning (llong)) -let selectedSegmentIndex self = msg_send ~self ~cmd:(selector "selectedSegmentIndex") ~typ:(returning (llong)) -let selectedSegmentTintColor self = msg_send ~self ~cmd:(selector "selectedSegmentTintColor") ~typ:(returning (id)) -let setAction x ~forSegmentAtIndex self = msg_send ~self ~cmd:(selector "setAction:forSegmentAtIndex:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forSegmentAtIndex) -let setAdjustsForContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsForContentSizeCategory:") ~typ:(bool @-> returning (void)) x -let setAlpha x self = msg_send ~self ~cmd:(selector "setAlpha:") ~typ:(double @-> returning (void)) x -let setAlwaysNotifiesDelegateOfSegmentClicks x self = msg_send ~self ~cmd:(selector "setAlwaysNotifiesDelegateOfSegmentClicks:") ~typ:(bool @-> returning (void)) x -let setApportionsSegmentWidthsByContent x self = msg_send ~self ~cmd:(selector "setApportionsSegmentWidthsByContent:") ~typ:(bool @-> returning (void)) x -let setAxLongPressGestureRecognizer x self = msg_send ~self ~cmd:(selector "setAxLongPressGestureRecognizer:") ~typ:(id @-> returning (void)) x -let setBackgroundImage x ~forState ~barMetrics self = msg_send ~self ~cmd:(selector "setBackgroundImage:forState:barMetrics:") ~typ:(id @-> ullong @-> llong @-> returning (void)) x (ULLong.of_int forState) (LLong.of_int barMetrics) -let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setContentOffset x ~forSegment self = msg_send ~self ~cmd:(selector "setContentOffset:forSegment:") ~typ:(CGSize.t @-> ullong @-> returning (void)) x (ULLong.of_int forSegment) -let setContentOffset' x ~forSegmentAtIndex self = msg_send ~self ~cmd:(selector "setContentOffset:forSegmentAtIndex:") ~typ:(CGSize.t @-> ullong @-> returning (void)) x (ULLong.of_int forSegmentAtIndex) -let setContentPositionAdjustment x ~forSegmentType ~barMetrics self = msg_send ~self ~cmd:(selector "setContentPositionAdjustment:forSegmentType:barMetrics:") ~typ:(ptr void @-> llong @-> llong @-> returning (void)) x (LLong.of_int forSegmentType) (LLong.of_int barMetrics) -let setControlSize x self = msg_send ~self ~cmd:(selector "setControlSize:") ~typ:(int @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDividerImage x ~forLeftSegmentState ~rightSegmentState ~barMetrics self = msg_send ~self ~cmd:(selector "setDividerImage:forLeftSegmentState:rightSegmentState:barMetrics:") ~typ:(id @-> ullong @-> ullong @-> llong @-> returning (void)) x (ULLong.of_int forLeftSegmentState) (ULLong.of_int rightSegmentState) (LLong.of_int barMetrics) -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setEnabled1 x ~forSegment self = msg_send ~self ~cmd:(selector "setEnabled:forSegment:") ~typ:(bool @-> ullong @-> returning (void)) x (ULLong.of_int forSegment) -let setEnabled2 x ~forSegmentAtIndex self = msg_send ~self ~cmd:(selector "setEnabled:forSegmentAtIndex:") ~typ:(bool @-> ullong @-> returning (void)) x (ULLong.of_int forSegmentAtIndex) -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setImage x ~forSegment self = msg_send ~self ~cmd:(selector "setImage:forSegment:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forSegment) -let setImage' x ~forSegmentAtIndex self = msg_send ~self ~cmd:(selector "setImage:forSegmentAtIndex:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forSegmentAtIndex) -let setImagePadding x ~forSegment self = msg_send ~self ~cmd:(selector "setImagePadding:forSegment:") ~typ:(CGSize.t @-> ullong @-> returning (void)) x (ULLong.of_int forSegment) -let setMomentary x self = msg_send ~self ~cmd:(selector "setMomentary:") ~typ:(bool @-> returning (void)) x -let setRemovedSegment x self = msg_send ~self ~cmd:(selector "setRemovedSegment:") ~typ:(id @-> returning (void)) x -let setSegmentControlStyle x self = msg_send ~self ~cmd:(selector "setSegmentControlStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSegmentedControlStyle x self = msg_send ~self ~cmd:(selector "setSegmentedControlStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSelectedSegment x self = msg_send ~self ~cmd:(selector "setSelectedSegment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSelectedSegmentIndex x self = msg_send ~self ~cmd:(selector "setSelectedSegmentIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSelectedSegmentTintColor x self = msg_send ~self ~cmd:(selector "setSelectedSegmentTintColor:") ~typ:(id @-> returning (void)) x -let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning (void)) x -let setTitle x ~forSegment self = msg_send ~self ~cmd:(selector "setTitle:forSegment:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forSegment) -let setTitle' x ~forSegmentAtIndex self = msg_send ~self ~cmd:(selector "setTitle:forSegmentAtIndex:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forSegmentAtIndex) -let setTitleTextAttributes x ~forState self = msg_send ~self ~cmd:(selector "setTitleTextAttributes:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setTransparentBackground x self = msg_send ~self ~cmd:(selector "setTransparentBackground:") ~typ:(bool @-> returning (void)) x -let setWidth x ~forSegment self = msg_send ~self ~cmd:(selector "setWidth:forSegment:") ~typ:(float @-> ullong @-> returning (void)) x (ULLong.of_int forSegment) -let setWidth' x ~forSegmentAtIndex self = msg_send ~self ~cmd:(selector "setWidth:forSegmentAtIndex:") ~typ:(double @-> ullong @-> returning (void)) x (ULLong.of_int forSegmentAtIndex) -let shouldTrack self = msg_send ~self ~cmd:(selector "shouldTrack") ~typ:(returning (bool)) -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let sizeToFit self = msg_send ~self ~cmd:(selector "sizeToFit") ~typ:(returning (void)) -let titleForSegment x self = msg_send ~self ~cmd:(selector "titleForSegment:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let titleForSegmentAtIndex x self = msg_send ~self ~cmd:(selector "titleForSegmentAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let titleTextAttributesForState x self = msg_send ~self ~cmd:(selector "titleTextAttributesForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let transparentBackground self = msg_send ~self ~cmd:(selector "transparentBackground") ~typ:(returning (bool)) -let updateForMiniBarState x self = msg_send ~self ~cmd:(selector "updateForMiniBarState:") ~typ:(bool @-> returning (void)) x -let useBlockyMagnificationInClassic self = msg_send ~self ~cmd:(selector "useBlockyMagnificationInClassic") ~typ:(returning (bool)) -let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning (id)) -let widthForSegment x self = msg_send ~self ~cmd:(selector "widthForSegment:") ~typ:(ullong @-> returning (float)) (ULLong.of_int x) -let widthForSegmentAtIndex x self = msg_send ~self ~cmd:(selector "widthForSegmentAtIndex:") ~typ:(ullong @-> returning (double)) (ULLong.of_int x) \ No newline at end of file +let actionForSegmentAtIndex x self = msg_send ~self ~cmd:(selector "actionForSegmentAtIndex:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let adaptivePresentationStyleForPresentationController x self = msg_send ~self ~cmd:(selector "adaptivePresentationStyleForPresentationController:") ~typ:(id @-> returning llong) x +let adaptivePresentationStyleForPresentationController' x ~traitCollection self = msg_send ~self ~cmd:(selector "adaptivePresentationStyleForPresentationController:traitCollection:") ~typ:(id @-> id @-> returning llong) x traitCollection +let addSegmentWithTitle x self = msg_send ~self ~cmd:(selector "addSegmentWithTitle:") ~typ:(id @-> returning void) x +let adjustsForContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsForContentSizeCategory") ~typ:(returning bool) +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let animationDidStop x ~finished self = msg_send ~self ~cmd:(selector "animationDidStop:finished:") ~typ:(id @-> bool @-> returning void) x finished +let apportionsSegmentWidthsByContent self = msg_send ~self ~cmd:(selector "apportionsSegmentWidthsByContent") ~typ:(returning bool) +let axLongPressGestureRecognizer self = msg_send ~self ~cmd:(selector "axLongPressGestureRecognizer") ~typ:(returning id) +let backgroundImageForState x ~barMetrics self = msg_send ~self ~cmd:(selector "backgroundImageForState:barMetrics:") ~typ:(ullong @-> llong @-> returning id) (ULLong.of_int x) (LLong.of_int barMetrics) +let barStyle self = msg_send ~self ~cmd:(selector "barStyle") ~typ:(returning llong) +let bounds self = msg_send ~self ~cmd:(selector "bounds") ~typ:(returning CGRect.t) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let contentOffsetForSegment x self = msg_send ~self ~cmd:(selector "contentOffsetForSegment:") ~typ:(ullong @-> returning CGSize.t) (ULLong.of_int x) +let contentOffsetForSegmentAtIndex x self = msg_send ~self ~cmd:(selector "contentOffsetForSegmentAtIndex:") ~typ:(ullong @-> returning CGSize.t) (ULLong.of_int x) +let contentPositionAdjustmentForSegmentType x ~barMetrics self = msg_send ~self ~cmd:(selector "contentPositionAdjustmentForSegmentType:barMetrics:") ~typ:(llong @-> llong @-> returning UIOffset.t) (LLong.of_int x) (LLong.of_int barMetrics) +let controlSize self = msg_send ~self ~cmd:(selector "controlSize") ~typ:(returning int) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let dividerImageForLeftSegmentState x ~rightSegmentState ~barMetrics self = msg_send ~self ~cmd:(selector "dividerImageForLeftSegmentState:rightSegmentState:barMetrics:") ~typ:(ullong @-> ullong @-> llong @-> returning id) (ULLong.of_int x) (ULLong.of_int rightSegmentState) (LLong.of_int barMetrics) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let frame self = msg_send ~self ~cmd:(selector "frame") ~typ:(returning CGRect.t) +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let hoverOffSegment x self = msg_send ~self ~cmd:(selector "hoverOffSegment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let hoverOnSegment x self = msg_send ~self ~cmd:(selector "hoverOnSegment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let imageForSegment x self = msg_send ~self ~cmd:(selector "imageForSegment:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let imageForSegmentAtIndex x self = msg_send ~self ~cmd:(selector "imageForSegmentAtIndex:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let infoViewForSegment x self = msg_send ~self ~cmd:(selector "infoViewForSegment:") ~typ:(llong @-> returning id) (LLong.of_int x) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithFrame1 x ~actions self = msg_send ~self ~cmd:(selector "initWithFrame:actions:") ~typ:(CGRect.t @-> id @-> returning id) x actions +let initWithFrame2 x ~withStyle ~withItems self = msg_send ~self ~cmd:(selector "initWithFrame:withStyle:withItems:") ~typ:(CGRect.t @-> llong @-> id @-> returning id) x (LLong.of_int withStyle) withItems +let initWithItems x self = msg_send ~self ~cmd:(selector "initWithItems:") ~typ:(id @-> returning id) x +let insertSegment x ~withImage ~animated self = msg_send ~self ~cmd:(selector "insertSegment:withImage:animated:") ~typ:(ullong @-> id @-> bool @-> returning void) (ULLong.of_int x) withImage animated +let insertSegment' x ~withTitle ~animated self = msg_send ~self ~cmd:(selector "insertSegment:withTitle:animated:") ~typ:(ullong @-> id @-> bool @-> returning void) (ULLong.of_int x) withTitle animated +let insertSegmentWithAction x ~atIndex ~animated self = msg_send ~self ~cmd:(selector "insertSegmentWithAction:atIndex:animated:") ~typ:(id @-> ullong @-> bool @-> returning void) x (ULLong.of_int atIndex) animated +let insertSegmentWithImage x ~atIndex ~animated self = msg_send ~self ~cmd:(selector "insertSegmentWithImage:atIndex:animated:") ~typ:(id @-> ullong @-> bool @-> returning void) x (ULLong.of_int atIndex) animated +let insertSegmentWithTitle x ~atIndex ~animated self = msg_send ~self ~cmd:(selector "insertSegmentWithTitle:atIndex:animated:") ~typ:(id @-> ullong @-> bool @-> returning void) x (ULLong.of_int atIndex) animated +let isEnabledForSegment x self = msg_send ~self ~cmd:(selector "isEnabledForSegment:") ~typ:(ullong @-> returning bool) (ULLong.of_int x) +let isEnabledForSegmentAtIndex x self = msg_send ~self ~cmd:(selector "isEnabledForSegmentAtIndex:") ~typ:(ullong @-> returning bool) (ULLong.of_int x) +let isMomentary self = msg_send ~self ~cmd:(selector "isMomentary") ~typ:(returning bool) +let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let numberOfSegments self = msg_send ~self ~cmd:(selector "numberOfSegments") ~typ:(returning ullong) +let pointMostlyInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointMostlyInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning id) x styleForRegion +let pointerInteraction1 x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning id) x regionForRequest defaultRegion +let pointerInteraction2 x ~willEnterRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willEnterRegion:animator:") ~typ:(id @-> id @-> id @-> returning void) x willEnterRegion animator +let pointerInteraction3 x ~willExitRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willExitRegion:animator:") ~typ:(id @-> id @-> id @-> returning void) x willExitRegion animator +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let removeAllSegments self = msg_send ~self ~cmd:(selector "removeAllSegments") ~typ:(returning void) +let removeSegment x ~animated self = msg_send ~self ~cmd:(selector "removeSegment:animated:") ~typ:(ullong @-> bool @-> returning void) (ULLong.of_int x) animated +let removeSegmentAtIndex x ~animated self = msg_send ~self ~cmd:(selector "removeSegmentAtIndex:animated:") ~typ:(ullong @-> bool @-> returning void) (ULLong.of_int x) animated +let removedSegment self = msg_send ~self ~cmd:(selector "removedSegment") ~typ:(returning id) +let segmentControlStyle self = msg_send ~self ~cmd:(selector "segmentControlStyle") ~typ:(returning llong) +let segmentIndexForActionIdentifier x self = msg_send ~self ~cmd:(selector "segmentIndexForActionIdentifier:") ~typ:(id @-> returning llong) x +let segmentedControlStyle self = msg_send ~self ~cmd:(selector "segmentedControlStyle") ~typ:(returning llong) +let selectSegment x self = msg_send ~self ~cmd:(selector "selectSegment:") ~typ:(int @-> returning void) x +let selectedSegment self = msg_send ~self ~cmd:(selector "selectedSegment") ~typ:(returning llong) +let selectedSegmentIndex self = msg_send ~self ~cmd:(selector "selectedSegmentIndex") ~typ:(returning llong) +let selectedSegmentTintColor self = msg_send ~self ~cmd:(selector "selectedSegmentTintColor") ~typ:(returning id) +let setAction x ~forSegmentAtIndex self = msg_send ~self ~cmd:(selector "setAction:forSegmentAtIndex:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forSegmentAtIndex) +let setAdjustsForContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsForContentSizeCategory:") ~typ:(bool @-> returning void) x +let setAlpha x self = msg_send ~self ~cmd:(selector "setAlpha:") ~typ:(double @-> returning void) x +let setAlwaysNotifiesDelegateOfSegmentClicks x self = msg_send ~self ~cmd:(selector "setAlwaysNotifiesDelegateOfSegmentClicks:") ~typ:(bool @-> returning void) x +let setApportionsSegmentWidthsByContent x self = msg_send ~self ~cmd:(selector "setApportionsSegmentWidthsByContent:") ~typ:(bool @-> returning void) x +let setAxLongPressGestureRecognizer x self = msg_send ~self ~cmd:(selector "setAxLongPressGestureRecognizer:") ~typ:(id @-> returning void) x +let setBackgroundImage x ~forState ~barMetrics self = msg_send ~self ~cmd:(selector "setBackgroundImage:forState:barMetrics:") ~typ:(id @-> ullong @-> llong @-> returning void) x (ULLong.of_int forState) (LLong.of_int barMetrics) +let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setContentOffset x ~forSegment self = msg_send ~self ~cmd:(selector "setContentOffset:forSegment:") ~typ:(CGSize.t @-> ullong @-> returning void) x (ULLong.of_int forSegment) +let setContentOffset' x ~forSegmentAtIndex self = msg_send ~self ~cmd:(selector "setContentOffset:forSegmentAtIndex:") ~typ:(CGSize.t @-> ullong @-> returning void) x (ULLong.of_int forSegmentAtIndex) +let setContentPositionAdjustment x ~forSegmentType ~barMetrics self = msg_send ~self ~cmd:(selector "setContentPositionAdjustment:forSegmentType:barMetrics:") ~typ:(UIOffset.t @-> llong @-> llong @-> returning void) x (LLong.of_int forSegmentType) (LLong.of_int barMetrics) +let setControlSize x self = msg_send ~self ~cmd:(selector "setControlSize:") ~typ:(int @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDividerImage x ~forLeftSegmentState ~rightSegmentState ~barMetrics self = msg_send ~self ~cmd:(selector "setDividerImage:forLeftSegmentState:rightSegmentState:barMetrics:") ~typ:(id @-> ullong @-> ullong @-> llong @-> returning void) x (ULLong.of_int forLeftSegmentState) (ULLong.of_int rightSegmentState) (LLong.of_int barMetrics) +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setEnabled1 x ~forSegment self = msg_send ~self ~cmd:(selector "setEnabled:forSegment:") ~typ:(bool @-> ullong @-> returning void) x (ULLong.of_int forSegment) +let setEnabled2 x ~forSegmentAtIndex self = msg_send ~self ~cmd:(selector "setEnabled:forSegmentAtIndex:") ~typ:(bool @-> ullong @-> returning void) x (ULLong.of_int forSegmentAtIndex) +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setImage x ~forSegment self = msg_send ~self ~cmd:(selector "setImage:forSegment:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forSegment) +let setImage' x ~forSegmentAtIndex self = msg_send ~self ~cmd:(selector "setImage:forSegmentAtIndex:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forSegmentAtIndex) +let setImagePadding x ~forSegment self = msg_send ~self ~cmd:(selector "setImagePadding:forSegment:") ~typ:(CGSize.t @-> ullong @-> returning void) x (ULLong.of_int forSegment) +let setMomentary x self = msg_send ~self ~cmd:(selector "setMomentary:") ~typ:(bool @-> returning void) x +let setRemovedSegment x self = msg_send ~self ~cmd:(selector "setRemovedSegment:") ~typ:(id @-> returning void) x +let setSegmentControlStyle x self = msg_send ~self ~cmd:(selector "setSegmentControlStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSegmentedControlStyle x self = msg_send ~self ~cmd:(selector "setSegmentedControlStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSelectedSegment x self = msg_send ~self ~cmd:(selector "setSelectedSegment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSelectedSegmentIndex x self = msg_send ~self ~cmd:(selector "setSelectedSegmentIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSelectedSegmentTintColor x self = msg_send ~self ~cmd:(selector "setSelectedSegmentTintColor:") ~typ:(id @-> returning void) x +let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning void) x +let setTitle x ~forSegment self = msg_send ~self ~cmd:(selector "setTitle:forSegment:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forSegment) +let setTitle' x ~forSegmentAtIndex self = msg_send ~self ~cmd:(selector "setTitle:forSegmentAtIndex:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forSegmentAtIndex) +let setTitleTextAttributes x ~forState self = msg_send ~self ~cmd:(selector "setTitleTextAttributes:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setTransparentBackground x self = msg_send ~self ~cmd:(selector "setTransparentBackground:") ~typ:(bool @-> returning void) x +let setWidth x ~forSegment self = msg_send ~self ~cmd:(selector "setWidth:forSegment:") ~typ:(float @-> ullong @-> returning void) x (ULLong.of_int forSegment) +let setWidth' x ~forSegmentAtIndex self = msg_send ~self ~cmd:(selector "setWidth:forSegmentAtIndex:") ~typ:(double @-> ullong @-> returning void) x (ULLong.of_int forSegmentAtIndex) +let shouldTrack self = msg_send ~self ~cmd:(selector "shouldTrack") ~typ:(returning bool) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let sizeToFit self = msg_send ~self ~cmd:(selector "sizeToFit") ~typ:(returning void) +let titleForSegment x self = msg_send ~self ~cmd:(selector "titleForSegment:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let titleForSegmentAtIndex x self = msg_send ~self ~cmd:(selector "titleForSegmentAtIndex:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let titleTextAttributesForState x self = msg_send ~self ~cmd:(selector "titleTextAttributesForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let transparentBackground self = msg_send ~self ~cmd:(selector "transparentBackground") ~typ:(returning bool) +let updateForMiniBarState x self = msg_send ~self ~cmd:(selector "updateForMiniBarState:") ~typ:(bool @-> returning void) x +let useBlockyMagnificationInClassic self = msg_send ~self ~cmd:(selector "useBlockyMagnificationInClassic") ~typ:(returning bool) +let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning id) +let widthForSegment x self = msg_send ~self ~cmd:(selector "widthForSegment:") ~typ:(ullong @-> returning float) (ULLong.of_int x) +let widthForSegmentAtIndex x self = msg_send ~self ~cmd:(selector "widthForSegmentAtIndex:") ~typ:(ullong @-> returning double) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UISegmentedControlClass.ml b/uikit/UISegmentedControlClass.ml new file mode 100644 index 00000000..a60221b9 --- /dev/null +++ b/uikit/UISegmentedControlClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisegmentedcontrol?language=objc}UISegmentedControl} *) + +let automaticallyNotifiesObserversForKey x self = msg_send ~self ~cmd:(selector "automaticallyNotifiesObserversForKey:") ~typ:(id @-> returning bool) x +let defaultHeight self = msg_send ~self ~cmd:(selector "defaultHeight") ~typ:(returning double) +let defaultHeightForStyle x self = msg_send ~self ~cmd:(selector "defaultHeightForStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let defaultHeightForStyle' x ~size self = msg_send ~self ~cmd:(selector "defaultHeightForStyle:size:") ~typ:(llong @-> int @-> returning double) (LLong.of_int x) size \ No newline at end of file diff --git a/uikit/UISegmentedControlMacBezelView.ml b/uikit/UISegmentedControlMacBezelView.ml deleted file mode 100644 index 5660a47a..00000000 --- a/uikit/UISegmentedControlMacBezelView.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISegmentedControlMacBezelView" - -module C = struct - let heightForControlSize x self = msg_send ~self ~cmd:(selector "heightForControlSize:") ~typ:(int @-> returning (double)) x -end - -let contentOffsetForSegment x self = msg_send_stret ~self ~cmd:(selector "contentOffsetForSegment:") ~typ:(id @-> returning (CGSize.t)) ~return_type:CGSize.t x -let coreUIWidget self = msg_send ~self ~cmd:(selector "coreUIWidget") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setContentScaleFactor x self = msg_send ~self ~cmd:(selector "setContentScaleFactor:") ~typ:(double @-> returning (void)) x -let setCoreUIWidget x self = msg_send ~self ~cmd:(selector "setCoreUIWidget:") ~typ:(id @-> returning (void)) x -let updateForSegment x ~inSegmentedControl self = msg_send ~self ~cmd:(selector "updateForSegment:inSegmentedControl:") ~typ:(id @-> id @-> returning (void)) x inSegmentedControl \ No newline at end of file diff --git a/uikit/UISegmentedControlSpringLoadedEffect.ml b/uikit/UISegmentedControlSpringLoadedEffect.ml deleted file mode 100644 index 53338319..00000000 --- a/uikit/UISegmentedControlSpringLoadedEffect.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISegmentedControlSpringLoadedEffect" - -let blinkEffect self = msg_send ~self ~cmd:(selector "blinkEffect") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let interaction x ~didChangeWithContext self = msg_send ~self ~cmd:(selector "interaction:didChangeWithContext:") ~typ:(id @-> id @-> returning (void)) x didChangeWithContext -let setBlinkEffect x self = msg_send ~self ~cmd:(selector "setBlinkEffect:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UISelectionFeedbackGenerator.ml b/uikit/UISelectionFeedbackGenerator.ml deleted file mode 100644 index 884ae3a5..00000000 --- a/uikit/UISelectionFeedbackGenerator.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISelectionFeedbackGenerator" - -let lastSelectionChangeTime self = msg_send ~self ~cmd:(selector "lastSelectionChangeTime") ~typ:(returning (double)) -let selectionChanged self = msg_send ~self ~cmd:(selector "selectionChanged") ~typ:(returning (void)) -let setLastSelectionChangeTime x self = msg_send ~self ~cmd:(selector "setLastSelectionChangeTime:") ~typ:(double @-> returning (void)) x -let userInteractionCancelled self = msg_send ~self ~cmd:(selector "userInteractionCancelled") ~typ:(returning (void)) -let userInteractionEnded self = msg_send ~self ~cmd:(selector "userInteractionEnded") ~typ:(returning (void)) -let userInteractionStarted self = msg_send ~self ~cmd:(selector "userInteractionStarted") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit/UISelectionGrabber.ml b/uikit/UISelectionGrabber.ml index fe9890f1..9b4c815f 100644 --- a/uikit/UISelectionGrabber.ml +++ b/uikit/UISelectionGrabber.ml @@ -5,68 +5,68 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISelectionGrabber" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiselectiongrabber?language=objc}UISelectionGrabber} *) -module C = struct - let layerClass self = msg_send ~self ~cmd:(selector "layerClass") ~typ:(returning (_Class)) -end +let self = get_class "UISelectionGrabber" -let activeFlattened self = msg_send ~self ~cmd:(selector "activeFlattened") ~typ:(returning (bool)) -let alertFlattened self = msg_send ~self ~cmd:(selector "alertFlattened") ~typ:(returning (bool)) -let animateGrabberInWithCompletion x self = msg_send ~self ~cmd:(selector "animateGrabberInWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let animateGrabberOutWithCompletion x self = msg_send ~self ~cmd:(selector "animateGrabberOutWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let animating self = msg_send ~self ~cmd:(selector "animating") ~typ:(returning (bool)) -let autoscrolled self = msg_send ~self ~cmd:(selector "autoscrolled") ~typ:(returning (bool)) -let bezierPathFromCustomPath x self = msg_send ~self ~cmd:(selector "bezierPathFromCustomPath:") ~typ:(id @-> returning (id)) x -let canExpandAfterAlert x self = msg_send ~self ~cmd:(selector "canExpandAfterAlert:") ~typ:(id @-> returning (void)) x -let canExpandAfterBecomeActive x self = msg_send ~self ~cmd:(selector "canExpandAfterBecomeActive:") ~typ:(id @-> returning (void)) x -let canExpandAfterNavigationTransition x self = msg_send ~self ~cmd:(selector "canExpandAfterNavigationTransition:") ~typ:(id @-> returning (void)) x -let canExpandAfterSheet x self = msg_send ~self ~cmd:(selector "canExpandAfterSheet:") ~typ:(id @-> returning (void)) x -let clipDot x self = msg_send ~self ~cmd:(selector "clipDot:") ~typ:(CGRect.t @-> returning (bool)) x -let customPath self = msg_send ~self ~cmd:(selector "customPath") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let dotIsVisibleInDocument x self = msg_send ~self ~cmd:(selector "dotIsVisibleInDocument:") ~typ:(CGRect.t @-> returning (bool)) x -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let fillColor self = msg_send ~self ~cmd:(selector "fillColor") ~typ:(returning (id)) -let hostView self = msg_send ~self ~cmd:(selector "hostView") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let inputViewIsChanging self = msg_send ~self ~cmd:(selector "inputViewIsChanging") ~typ:(returning (bool)) -let isDotted self = msg_send ~self ~cmd:(selector "isDotted") ~typ:(returning (bool)) -let isPointedDown self = msg_send ~self ~cmd:(selector "isPointedDown") ~typ:(returning (bool)) -let isPointedLeft self = msg_send ~self ~cmd:(selector "isPointedLeft") ~typ:(returning (bool)) -let isPointedRight self = msg_send ~self ~cmd:(selector "isPointedRight") ~typ:(returning (bool)) -let isPointedUp self = msg_send ~self ~cmd:(selector "isPointedUp") ~typ:(returning (bool)) -let isRotating self = msg_send ~self ~cmd:(selector "isRotating") ~typ:(returning (bool)) -let isScaling self = msg_send ~self ~cmd:(selector "isScaling") ~typ:(returning (bool)) -let isScrolling self = msg_send ~self ~cmd:(selector "isScrolling") ~typ:(returning (bool)) -let isVertical self = msg_send ~self ~cmd:(selector "isVertical") ~typ:(returning (bool)) -let mustFlattenForAlert x self = msg_send ~self ~cmd:(selector "mustFlattenForAlert:") ~typ:(id @-> returning (void)) x -let mustFlattenForNavigationTransition x self = msg_send ~self ~cmd:(selector "mustFlattenForNavigationTransition:") ~typ:(id @-> returning (void)) x -let mustFlattenForResignActive x self = msg_send ~self ~cmd:(selector "mustFlattenForResignActive:") ~typ:(id @-> returning (void)) x -let mustFlattenForSheet x self = msg_send ~self ~cmd:(selector "mustFlattenForSheet:") ~typ:(id @-> returning (void)) x -let navigationTransitionFlattened self = msg_send ~self ~cmd:(selector "navigationTransitionFlattened") ~typ:(returning (bool)) -let orientation self = msg_send ~self ~cmd:(selector "orientation") ~typ:(returning (llong)) -let redrawDotForScale x self = msg_send ~self ~cmd:(selector "redrawDotForScale:") ~typ:(double @-> returning (void)) x -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let saveDeactivationReason x self = msg_send ~self ~cmd:(selector "saveDeactivationReason:") ~typ:(id @-> returning (void)) x -let scroller x ~fullyContainSelectionRect self = msg_send ~self ~cmd:(selector "scroller:fullyContainSelectionRect:") ~typ:(id @-> CGRect.t @-> returning (bool)) x fullyContainSelectionRect -let setActiveFlattened x self = msg_send ~self ~cmd:(selector "setActiveFlattened:") ~typ:(bool @-> returning (void)) x -let setAlertFlattened x self = msg_send ~self ~cmd:(selector "setAlertFlattened:") ~typ:(bool @-> returning (void)) x -let setAnimating x self = msg_send ~self ~cmd:(selector "setAnimating:") ~typ:(bool @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning (void)) x -let setCustomPath x self = msg_send ~self ~cmd:(selector "setCustomPath:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning (void)) x -let setIsDotted x self = msg_send ~self ~cmd:(selector "setIsDotted:") ~typ:(bool @-> returning (void)) x -let setNavigationTransitionFlattened x self = msg_send ~self ~cmd:(selector "setNavigationTransitionFlattened:") ~typ:(bool @-> returning (void)) x -let setOrientation x self = msg_send ~self ~cmd:(selector "setOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSheetFlattened x self = msg_send ~self ~cmd:(selector "setSheetFlattened:") ~typ:(bool @-> returning (void)) x -let shapeLayer self = msg_send ~self ~cmd:(selector "shapeLayer") ~typ:(returning (id)) -let sheetFlattened self = msg_send ~self ~cmd:(selector "sheetFlattened") ~typ:(returning (bool)) -let transitionDot x ~completion self = msg_send ~self ~cmd:(selector "transitionDot:completion:") ~typ:(llong @-> ptr void @-> returning (void)) (LLong.of_int x) completion -let updateDot self = msg_send ~self ~cmd:(selector "updateDot") ~typ:(returning (void)) -let updatePathForBoundsChangeIfNecessary self = msg_send ~self ~cmd:(selector "updatePathForBoundsChangeIfNecessary") ~typ:(returning (void)) -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let activeFlattened self = msg_send ~self ~cmd:(selector "activeFlattened") ~typ:(returning bool) +let alertFlattened self = msg_send ~self ~cmd:(selector "alertFlattened") ~typ:(returning bool) +let animateGrabberInWithCompletion x self = msg_send ~self ~cmd:(selector "animateGrabberInWithCompletion:") ~typ:((ptr void) @-> returning void) x +let animateGrabberOutWithCompletion x self = msg_send ~self ~cmd:(selector "animateGrabberOutWithCompletion:") ~typ:((ptr void) @-> returning void) x +let animating self = msg_send ~self ~cmd:(selector "animating") ~typ:(returning bool) +let autoscrolled self = msg_send ~self ~cmd:(selector "autoscrolled") ~typ:(returning bool) +let bezierPathFromCustomPath x self = msg_send ~self ~cmd:(selector "bezierPathFromCustomPath:") ~typ:(id @-> returning id) x +let canExpandAfterAlert x self = msg_send ~self ~cmd:(selector "canExpandAfterAlert:") ~typ:(id @-> returning void) x +let canExpandAfterBecomeActive x self = msg_send ~self ~cmd:(selector "canExpandAfterBecomeActive:") ~typ:(id @-> returning void) x +let canExpandAfterNavigationTransition x self = msg_send ~self ~cmd:(selector "canExpandAfterNavigationTransition:") ~typ:(id @-> returning void) x +let canExpandAfterSheet x self = msg_send ~self ~cmd:(selector "canExpandAfterSheet:") ~typ:(id @-> returning void) x +let clipDot x self = msg_send ~self ~cmd:(selector "clipDot:") ~typ:(CGRect.t @-> returning bool) x +let customPath self = msg_send ~self ~cmd:(selector "customPath") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let dotIsVisibleInDocument x self = msg_send ~self ~cmd:(selector "dotIsVisibleInDocument:") ~typ:(CGRect.t @-> returning bool) x +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let fillColor self = msg_send ~self ~cmd:(selector "fillColor") ~typ:(returning id) +let hostView self = msg_send ~self ~cmd:(selector "hostView") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let inputViewIsChanging self = msg_send ~self ~cmd:(selector "inputViewIsChanging") ~typ:(returning bool) +let isDotted self = msg_send ~self ~cmd:(selector "isDotted") ~typ:(returning bool) +let isPointedDown self = msg_send ~self ~cmd:(selector "isPointedDown") ~typ:(returning bool) +let isPointedLeft self = msg_send ~self ~cmd:(selector "isPointedLeft") ~typ:(returning bool) +let isPointedRight self = msg_send ~self ~cmd:(selector "isPointedRight") ~typ:(returning bool) +let isPointedUp self = msg_send ~self ~cmd:(selector "isPointedUp") ~typ:(returning bool) +let isRotating self = msg_send ~self ~cmd:(selector "isRotating") ~typ:(returning bool) +let isScaling self = msg_send ~self ~cmd:(selector "isScaling") ~typ:(returning bool) +let isScrolling self = msg_send ~self ~cmd:(selector "isScrolling") ~typ:(returning bool) +let isVertical self = msg_send ~self ~cmd:(selector "isVertical") ~typ:(returning bool) +let mustFlattenForAlert x self = msg_send ~self ~cmd:(selector "mustFlattenForAlert:") ~typ:(id @-> returning void) x +let mustFlattenForNavigationTransition x self = msg_send ~self ~cmd:(selector "mustFlattenForNavigationTransition:") ~typ:(id @-> returning void) x +let mustFlattenForResignActive x self = msg_send ~self ~cmd:(selector "mustFlattenForResignActive:") ~typ:(id @-> returning void) x +let mustFlattenForSheet x self = msg_send ~self ~cmd:(selector "mustFlattenForSheet:") ~typ:(id @-> returning void) x +let navigationTransitionFlattened self = msg_send ~self ~cmd:(selector "navigationTransitionFlattened") ~typ:(returning bool) +let orientation self = msg_send ~self ~cmd:(selector "orientation") ~typ:(returning llong) +let redrawDotForScale x self = msg_send ~self ~cmd:(selector "redrawDotForScale:") ~typ:(double @-> returning void) x +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let saveDeactivationReason x self = msg_send ~self ~cmd:(selector "saveDeactivationReason:") ~typ:(id @-> returning void) x +let scroller x ~fullyContainSelectionRect self = msg_send ~self ~cmd:(selector "scroller:fullyContainSelectionRect:") ~typ:(id @-> CGRect.t @-> returning bool) x fullyContainSelectionRect +let setActiveFlattened x self = msg_send ~self ~cmd:(selector "setActiveFlattened:") ~typ:(bool @-> returning void) x +let setAlertFlattened x self = msg_send ~self ~cmd:(selector "setAlertFlattened:") ~typ:(bool @-> returning void) x +let setAnimating x self = msg_send ~self ~cmd:(selector "setAnimating:") ~typ:(bool @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning void) x +let setCustomPath x self = msg_send ~self ~cmd:(selector "setCustomPath:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning void) x +let setIsDotted x self = msg_send ~self ~cmd:(selector "setIsDotted:") ~typ:(bool @-> returning void) x +let setNavigationTransitionFlattened x self = msg_send ~self ~cmd:(selector "setNavigationTransitionFlattened:") ~typ:(bool @-> returning void) x +let setOrientation x self = msg_send ~self ~cmd:(selector "setOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSheetFlattened x self = msg_send ~self ~cmd:(selector "setSheetFlattened:") ~typ:(bool @-> returning void) x +let shapeLayer self = msg_send ~self ~cmd:(selector "shapeLayer") ~typ:(returning id) +let sheetFlattened self = msg_send ~self ~cmd:(selector "sheetFlattened") ~typ:(returning bool) +let transitionDot x ~completion self = msg_send ~self ~cmd:(selector "transitionDot:completion:") ~typ:(llong @-> (ptr void) @-> returning void) (LLong.of_int x) completion +let updateDot self = msg_send ~self ~cmd:(selector "updateDot") ~typ:(returning void) +let updatePathForBoundsChangeIfNecessary self = msg_send ~self ~cmd:(selector "updatePathForBoundsChangeIfNecessary") ~typ:(returning void) +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UISelectionGrabberClass.ml b/uikit/UISelectionGrabberClass.ml new file mode 100644 index 00000000..593fc062 --- /dev/null +++ b/uikit/UISelectionGrabberClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiselectiongrabber?language=objc}UISelectionGrabber} *) + +let layerClass self = msg_send ~self ~cmd:(selector "layerClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit/UISelectionGrabberCustomPath.ml b/uikit/UISelectionGrabberCustomPath.ml index 2d70b293..6c6ddff5 100644 --- a/uikit/UISelectionGrabberCustomPath.ml +++ b/uikit/UISelectionGrabberCustomPath.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISelectionGrabberCustomPath" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiselectiongrabbercustompath?language=objc}UISelectionGrabberCustomPath} *) -let bottomPoint self = msg_send_stret ~self ~cmd:(selector "bottomPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let boundingEdgeRect self = msg_send_stret ~self ~cmd:(selector "boundingEdgeRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let boundingRect self = msg_send_stret ~self ~cmd:(selector "boundingRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let containsZeroPoint self = msg_send ~self ~cmd:(selector "containsZeroPoint") ~typ:(returning (bool)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let lineWidth self = msg_send ~self ~cmd:(selector "lineWidth") ~typ:(returning (double)) -let setBottomPoint x self = msg_send ~self ~cmd:(selector "setBottomPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setLineWidth x self = msg_send ~self ~cmd:(selector "setLineWidth:") ~typ:(double @-> returning (void)) x -let setTopPoint x self = msg_send ~self ~cmd:(selector "setTopPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let summaryDescription self = msg_send ~self ~cmd:(selector "summaryDescription") ~typ:(returning (id)) -let topPoint self = msg_send_stret ~self ~cmd:(selector "topPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UISelectionGrabberCustomPath" + +let bottomPoint self = msg_send ~self ~cmd:(selector "bottomPoint") ~typ:(returning CGPoint.t) +let boundingEdgeRect self = msg_send ~self ~cmd:(selector "boundingEdgeRect") ~typ:(returning CGRect.t) +let boundingRect self = msg_send ~self ~cmd:(selector "boundingRect") ~typ:(returning CGRect.t) +let containsZeroPoint self = msg_send ~self ~cmd:(selector "containsZeroPoint") ~typ:(returning bool) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let lineWidth self = msg_send ~self ~cmd:(selector "lineWidth") ~typ:(returning double) +let setBottomPoint x self = msg_send ~self ~cmd:(selector "setBottomPoint:") ~typ:(CGPoint.t @-> returning void) x +let setLineWidth x self = msg_send ~self ~cmd:(selector "setLineWidth:") ~typ:(double @-> returning void) x +let setTopPoint x self = msg_send ~self ~cmd:(selector "setTopPoint:") ~typ:(CGPoint.t @-> returning void) x +let summaryDescription self = msg_send ~self ~cmd:(selector "summaryDescription") ~typ:(returning id) +let topPoint self = msg_send ~self ~cmd:(selector "topPoint") ~typ:(returning CGPoint.t) \ No newline at end of file diff --git a/uikit/UISelectionGrabberDot.ml b/uikit/UISelectionGrabberDot.ml index c57a76ab..c2cf0c0c 100644 --- a/uikit/UISelectionGrabberDot.ml +++ b/uikit/UISelectionGrabberDot.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISelectionGrabberDot" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiselectiongrabberdot?language=objc}UISelectionGrabberDot} *) -let grabber self = msg_send ~self ~cmd:(selector "grabber") ~typ:(returning (id)) -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let initWithFrame x ~container self = msg_send ~self ~cmd:(selector "initWithFrame:container:") ~typ:(CGRect.t @-> id @-> returning (id)) x container -let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let redrawRasterizedImageForScale x self = msg_send ~self ~cmd:(selector "redrawRasterizedImageForScale:") ~typ:(double @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setGrabber x self = msg_send ~self ~cmd:(selector "setGrabber:") ~typ:(id @-> returning (void)) x -let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning (int)) -let textEffectsVisibilityLevelInKeyboardWindow self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevelInKeyboardWindow") ~typ:(returning (int)) \ No newline at end of file +let self = get_class "UISelectionGrabberDot" + +let grabber self = msg_send ~self ~cmd:(selector "grabber") ~typ:(returning id) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let initWithFrame x ~container self = msg_send ~self ~cmd:(selector "initWithFrame:container:") ~typ:(CGRect.t @-> id @-> returning id) x container +let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let redrawRasterizedImageForScale x self = msg_send ~self ~cmd:(selector "redrawRasterizedImageForScale:") ~typ:(double @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setGrabber x self = msg_send ~self ~cmd:(selector "setGrabber:") ~typ:(id @-> returning void) x +let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning int) +let textEffectsVisibilityLevelInKeyboardWindow self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevelInKeyboardWindow") ~typ:(returning int) \ No newline at end of file diff --git a/uikit/UISelectionTapRecognizer.ml b/uikit/UISelectionTapRecognizer.ml index 00a8d533..5d21e65a 100644 --- a/uikit/UISelectionTapRecognizer.ml +++ b/uikit/UISelectionTapRecognizer.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISelectionTapRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiselectiontaprecognizer?language=objc}UISelectionTapRecognizer} *) -let isCloseToSelection self = msg_send ~self ~cmd:(selector "isCloseToSelection") ~typ:(returning (bool)) -let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTextView x self = msg_send ~self ~cmd:(selector "setTextView:") ~typ:(id @-> returning (void)) x -let textView self = msg_send ~self ~cmd:(selector "textView") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UISelectionTapRecognizer" + +let isCloseToSelection self = msg_send ~self ~cmd:(selector "isCloseToSelection") ~typ:(returning bool) +let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTextView x self = msg_send ~self ~cmd:(selector "setTextView:") ~typ:(id @-> returning void) x +let textView self = msg_send ~self ~cmd:(selector "textView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIShadowView.ml b/uikit/UIShadowView.ml index 152429e8..337fc05c 100644 --- a/uikit/UIShadowView.ml +++ b/uikit/UIShadowView.ml @@ -5,14 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIShadowView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uishadowview?language=objc}UIShadowView} *) -module C = struct - let bottomShadowImage self = msg_send ~self ~cmd:(selector "bottomShadowImage") ~typ:(returning (id)) - let topShadowImage self = msg_send ~self ~cmd:(selector "topShadowImage") ~typ:(returning (id)) -end +let self = get_class "UIShadowView" -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let setShadowImage x ~forEdge ~inside self = msg_send ~self ~cmd:(selector "setShadowImage:forEdge:inside:") ~typ:(id @-> ullong @-> bool @-> returning (void)) x (ULLong.of_int forEdge) inside \ No newline at end of file +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let setShadowImage x ~forEdge ~inside self = msg_send ~self ~cmd:(selector "setShadowImage:forEdge:inside:") ~typ:(id @-> ullong @-> bool @-> returning void) x (ULLong.of_int forEdge) inside \ No newline at end of file diff --git a/uikit/UIShadowViewClass.ml b/uikit/UIShadowViewClass.ml new file mode 100644 index 00000000..9444fbd9 --- /dev/null +++ b/uikit/UIShadowViewClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uishadowview?language=objc}UIShadowView} *) + +let bottomShadowImage self = msg_send ~self ~cmd:(selector "bottomShadowImage") ~typ:(returning id) +let topShadowImage self = msg_send ~self ~cmd:(selector "topShadowImage") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISheetPresentationController.ml b/uikit/UISheetPresentationController.ml index dff0044e..e084331f 100644 --- a/uikit/UISheetPresentationController.ml +++ b/uikit/UISheetPresentationController.ml @@ -5,51 +5,55 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISheetPresentationController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisheetpresentationcontroller?language=objc}UISheetPresentationController} *) -let animateChanges x self = msg_send ~self ~cmd:(selector "animateChanges:") ~typ:(ptr void @-> returning (void)) x -let containerViewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "containerViewDidLayoutSubviews") ~typ:(returning (void)) -let containerViewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "containerViewWillLayoutSubviews") ~typ:(returning (void)) -let detents self = msg_send ~self ~cmd:(selector "detents") ~typ:(returning (id)) -let dimmingView self = msg_send ~self ~cmd:(selector "dimmingView") ~typ:(returning (id)) -let dimmingViewWasTapped x self = msg_send ~self ~cmd:(selector "dimmingViewWasTapped:") ~typ:(id @-> returning (void)) x -let dismissalTransitionDidEnd x self = msg_send ~self ~cmd:(selector "dismissalTransitionDidEnd:") ~typ:(bool @-> returning (void)) x -let dismissalTransitionWillBegin self = msg_send ~self ~cmd:(selector "dismissalTransitionWillBegin") ~typ:(returning (void)) -let dragInteraction x ~itemsForBeginningSession self = msg_send ~self ~cmd:(selector "dragInteraction:itemsForBeginningSession:") ~typ:(id @-> id @-> returning (id)) x itemsForBeginningSession -let dragInteraction1 x ~prefersFullSizePreviewsForSession self = msg_send ~self ~cmd:(selector "dragInteraction:prefersFullSizePreviewsForSession:") ~typ:(id @-> id @-> returning (bool)) x prefersFullSizePreviewsForSession -let dragInteraction2 x ~sessionWillBegin self = msg_send ~self ~cmd:(selector "dragInteraction:sessionWillBegin:") ~typ:(id @-> id @-> returning (void)) x sessionWillBegin -let dragInteraction3 x ~item ~willAnimateCancelWithAnimator self = msg_send ~self ~cmd:(selector "dragInteraction:item:willAnimateCancelWithAnimator:") ~typ:(id @-> id @-> id @-> returning (void)) x item willAnimateCancelWithAnimator -let dragInteraction4 x ~previewForCancellingItem ~withDefault self = msg_send ~self ~cmd:(selector "dragInteraction:previewForCancellingItem:withDefault:") ~typ:(id @-> id @-> id @-> returning (id)) x previewForCancellingItem withDefault -let dragInteraction5 x ~previewForLiftingItem ~session self = msg_send ~self ~cmd:(selector "dragInteraction:previewForLiftingItem:session:") ~typ:(id @-> id @-> id @-> returning (id)) x previewForLiftingItem session -let dragInteraction6 x ~session ~didEndWithOperation self = msg_send ~self ~cmd:(selector "dragInteraction:session:didEndWithOperation:") ~typ:(id @-> id @-> ullong @-> returning (void)) x session (ULLong.of_int didEndWithOperation) -let dropShadowView self = msg_send ~self ~cmd:(selector "dropShadowView") ~typ:(returning (id)) -let frameOfPresentedViewInContainerView self = msg_send_stret ~self ~cmd:(selector "frameOfPresentedViewInContainerView") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let initWithPresentedViewController x ~presentingViewController self = msg_send ~self ~cmd:(selector "initWithPresentedViewController:presentingViewController:") ~typ:(id @-> id @-> returning (id)) x presentingViewController -let largestUndimmedDetentIdentifier self = msg_send ~self ~cmd:(selector "largestUndimmedDetentIdentifier") ~typ:(returning (id)) -let offsetForInterruptedAnimationInSheetInteraction x self = msg_send_stret ~self ~cmd:(selector "offsetForInterruptedAnimationInSheetInteraction:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning (void)) x -let preferredCornerRadius self = msg_send ~self ~cmd:(selector "preferredCornerRadius") ~typ:(returning (double)) -let prefersEdgeAttachedInCompactHeight self = msg_send ~self ~cmd:(selector "prefersEdgeAttachedInCompactHeight") ~typ:(returning (bool)) -let prefersGrabberVisible self = msg_send ~self ~cmd:(selector "prefersGrabberVisible") ~typ:(returning (bool)) -let prefersScrollingExpandsWhenScrolledToEdge self = msg_send ~self ~cmd:(selector "prefersScrollingExpandsWhenScrolledToEdge") ~typ:(returning (bool)) -let presentationStyle self = msg_send ~self ~cmd:(selector "presentationStyle") ~typ:(returning (llong)) -let presentationTransitionDidEnd x self = msg_send ~self ~cmd:(selector "presentationTransitionDidEnd:") ~typ:(bool @-> returning (void)) x -let presentationTransitionWillBegin self = msg_send ~self ~cmd:(selector "presentationTransitionWillBegin") ~typ:(returning (void)) -let presentedView self = msg_send ~self ~cmd:(selector "presentedView") ~typ:(returning (id)) -let selectedDetentIdentifier self = msg_send ~self ~cmd:(selector "selectedDetentIdentifier") ~typ:(returning (id)) -let setDetents x self = msg_send ~self ~cmd:(selector "setDetents:") ~typ:(id @-> returning (void)) x -let setFrameOfPresentedViewInContainerView x self = msg_send ~self ~cmd:(selector "setFrameOfPresentedViewInContainerView:") ~typ:(CGRect.t @-> returning (void)) x -let setLargestUndimmedDetentIdentifier x self = msg_send ~self ~cmd:(selector "setLargestUndimmedDetentIdentifier:") ~typ:(id @-> returning (void)) x -let setPreferredCornerRadius x self = msg_send ~self ~cmd:(selector "setPreferredCornerRadius:") ~typ:(double @-> returning (void)) x -let setPrefersEdgeAttachedInCompactHeight x self = msg_send ~self ~cmd:(selector "setPrefersEdgeAttachedInCompactHeight:") ~typ:(bool @-> returning (void)) x -let setPrefersGrabberVisible x self = msg_send ~self ~cmd:(selector "setPrefersGrabberVisible:") ~typ:(bool @-> returning (void)) x -let setPrefersScrollingExpandsWhenScrolledToEdge x self = msg_send ~self ~cmd:(selector "setPrefersScrollingExpandsWhenScrolledToEdge:") ~typ:(bool @-> returning (void)) x -let setSelectedDetentIdentifier x self = msg_send ~self ~cmd:(selector "setSelectedDetentIdentifier:") ~typ:(id @-> returning (void)) x -let setSmallestUndimmedDetentIdentifier x self = msg_send ~self ~cmd:(selector "setSmallestUndimmedDetentIdentifier:") ~typ:(id @-> returning (void)) x -let setWidthFollowsPreferredContentSizeWhenEdgeAttached x self = msg_send ~self ~cmd:(selector "setWidthFollowsPreferredContentSizeWhenEdgeAttached:") ~typ:(bool @-> returning (void)) x -let sheetInteraction x ~didChangeOffset self = msg_send ~self ~cmd:(selector "sheetInteraction:didChangeOffset:") ~typ:(id @-> CGPoint.t @-> returning (void)) x didChangeOffset -let sheetInteraction1 x ~shouldAllowVerticalRubberBandingWithEvent self = msg_send ~self ~cmd:(selector "sheetInteraction:shouldAllowVerticalRubberBandingWithEvent:") ~typ:(id @-> id @-> returning (bool)) x shouldAllowVerticalRubberBandingWithEvent -let sheetInteraction2 x ~shouldBeginHorizontalRubberBandingWithGestureRecognizer self = msg_send ~self ~cmd:(selector "sheetInteraction:shouldBeginHorizontalRubberBandingWithGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldBeginHorizontalRubberBandingWithGestureRecognizer -let smallestUndimmedDetentIdentifier self = msg_send ~self ~cmd:(selector "smallestUndimmedDetentIdentifier") ~typ:(returning (id)) -let widthFollowsPreferredContentSizeWhenEdgeAttached self = msg_send ~self ~cmd:(selector "widthFollowsPreferredContentSizeWhenEdgeAttached") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UISheetPresentationController" + +let animateChanges x self = msg_send ~self ~cmd:(selector "animateChanges:") ~typ:((ptr void) @-> returning void) x +let containerViewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "containerViewDidLayoutSubviews") ~typ:(returning void) +let containerViewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "containerViewWillLayoutSubviews") ~typ:(returning void) +let detents self = msg_send ~self ~cmd:(selector "detents") ~typ:(returning id) +let dimmingView self = msg_send ~self ~cmd:(selector "dimmingView") ~typ:(returning id) +let dimmingViewWasTapped x self = msg_send ~self ~cmd:(selector "dimmingViewWasTapped:") ~typ:(id @-> returning void) x +let dismissalTransitionDidEnd x self = msg_send ~self ~cmd:(selector "dismissalTransitionDidEnd:") ~typ:(bool @-> returning void) x +let dismissalTransitionWillBegin self = msg_send ~self ~cmd:(selector "dismissalTransitionWillBegin") ~typ:(returning void) +let dragInteraction x ~itemsForBeginningSession self = msg_send ~self ~cmd:(selector "dragInteraction:itemsForBeginningSession:") ~typ:(id @-> id @-> returning id) x itemsForBeginningSession +let dragInteraction1 x ~prefersFullSizePreviewsForSession self = msg_send ~self ~cmd:(selector "dragInteraction:prefersFullSizePreviewsForSession:") ~typ:(id @-> id @-> returning bool) x prefersFullSizePreviewsForSession +let dragInteraction2 x ~sessionWillBegin self = msg_send ~self ~cmd:(selector "dragInteraction:sessionWillBegin:") ~typ:(id @-> id @-> returning void) x sessionWillBegin +let dragInteraction3 x ~item ~willAnimateCancelWithAnimator self = msg_send ~self ~cmd:(selector "dragInteraction:item:willAnimateCancelWithAnimator:") ~typ:(id @-> id @-> id @-> returning void) x item willAnimateCancelWithAnimator +let dragInteraction4 x ~previewForCancellingItem ~withDefault self = msg_send ~self ~cmd:(selector "dragInteraction:previewForCancellingItem:withDefault:") ~typ:(id @-> id @-> id @-> returning id) x previewForCancellingItem withDefault +let dragInteraction5 x ~previewForLiftingItem ~session self = msg_send ~self ~cmd:(selector "dragInteraction:previewForLiftingItem:session:") ~typ:(id @-> id @-> id @-> returning id) x previewForLiftingItem session +let dragInteraction6 x ~session ~didEndWithOperation self = msg_send ~self ~cmd:(selector "dragInteraction:session:didEndWithOperation:") ~typ:(id @-> id @-> ullong @-> returning void) x session (ULLong.of_int didEndWithOperation) +let dropShadowView self = msg_send ~self ~cmd:(selector "dropShadowView") ~typ:(returning id) +let frameOfPresentedViewInContainerView self = msg_send ~self ~cmd:(selector "frameOfPresentedViewInContainerView") ~typ:(returning CGRect.t) +let initWithPresentedViewController x ~presentingViewController self = msg_send ~self ~cmd:(selector "initWithPresentedViewController:presentingViewController:") ~typ:(id @-> id @-> returning id) x presentingViewController +let largestUndimmedDetentIdentifier self = msg_send ~self ~cmd:(selector "largestUndimmedDetentIdentifier") ~typ:(returning id) +let offsetForInterruptedAnimationInSheetInteraction x self = msg_send ~self ~cmd:(selector "offsetForInterruptedAnimationInSheetInteraction:") ~typ:(id @-> returning CGPoint.t) x +let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning void) x +let preferredCornerRadius self = msg_send ~self ~cmd:(selector "preferredCornerRadius") ~typ:(returning double) +let prefersEdgeAttachedInCompactHeight self = msg_send ~self ~cmd:(selector "prefersEdgeAttachedInCompactHeight") ~typ:(returning bool) +let prefersGrabberVisible self = msg_send ~self ~cmd:(selector "prefersGrabberVisible") ~typ:(returning bool) +let prefersScrollingExpandsWhenScrolledToEdge self = msg_send ~self ~cmd:(selector "prefersScrollingExpandsWhenScrolledToEdge") ~typ:(returning bool) +let presentationStyle self = msg_send ~self ~cmd:(selector "presentationStyle") ~typ:(returning llong) +let presentationTransitionDidEnd x self = msg_send ~self ~cmd:(selector "presentationTransitionDidEnd:") ~typ:(bool @-> returning void) x +let presentationTransitionWillBegin self = msg_send ~self ~cmd:(selector "presentationTransitionWillBegin") ~typ:(returning void) +let presentedView self = msg_send ~self ~cmd:(selector "presentedView") ~typ:(returning id) +let selectedDetentIdentifier self = msg_send ~self ~cmd:(selector "selectedDetentIdentifier") ~typ:(returning id) +let setDetents x self = msg_send ~self ~cmd:(selector "setDetents:") ~typ:(id @-> returning void) x +let setFrameOfPresentedViewInContainerView x self = msg_send ~self ~cmd:(selector "setFrameOfPresentedViewInContainerView:") ~typ:(CGRect.t @-> returning void) x +let setLargestUndimmedDetentIdentifier x self = msg_send ~self ~cmd:(selector "setLargestUndimmedDetentIdentifier:") ~typ:(id @-> returning void) x +let setPreferredCornerRadius x self = msg_send ~self ~cmd:(selector "setPreferredCornerRadius:") ~typ:(double @-> returning void) x +let setPrefersEdgeAttachedInCompactHeight x self = msg_send ~self ~cmd:(selector "setPrefersEdgeAttachedInCompactHeight:") ~typ:(bool @-> returning void) x +let setPrefersGrabberVisible x self = msg_send ~self ~cmd:(selector "setPrefersGrabberVisible:") ~typ:(bool @-> returning void) x +let setPrefersScrollingExpandsWhenScrolledToEdge x self = msg_send ~self ~cmd:(selector "setPrefersScrollingExpandsWhenScrolledToEdge:") ~typ:(bool @-> returning void) x +let setSelectedDetentIdentifier x self = msg_send ~self ~cmd:(selector "setSelectedDetentIdentifier:") ~typ:(id @-> returning void) x +let setSmallestUndimmedDetentIdentifier x self = msg_send ~self ~cmd:(selector "setSmallestUndimmedDetentIdentifier:") ~typ:(id @-> returning void) x +let setWidthFollowsPreferredContentSizeWhenEdgeAttached x self = msg_send ~self ~cmd:(selector "setWidthFollowsPreferredContentSizeWhenEdgeAttached:") ~typ:(bool @-> returning void) x +let sheetInteraction x ~didChangeOffset self = msg_send ~self ~cmd:(selector "sheetInteraction:didChangeOffset:") ~typ:(id @-> CGPoint.t @-> returning void) x didChangeOffset +let sheetInteraction1 x ~shouldAllowVerticalRubberBandingWithEvent self = msg_send ~self ~cmd:(selector "sheetInteraction:shouldAllowVerticalRubberBandingWithEvent:") ~typ:(id @-> id @-> returning bool) x shouldAllowVerticalRubberBandingWithEvent +let sheetInteraction2 x ~shouldBeginHorizontalRubberBandingWithGestureRecognizer self = msg_send ~self ~cmd:(selector "sheetInteraction:shouldBeginHorizontalRubberBandingWithGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldBeginHorizontalRubberBandingWithGestureRecognizer +let smallestUndimmedDetentIdentifier self = msg_send ~self ~cmd:(selector "smallestUndimmedDetentIdentifier") ~typ:(returning id) +let widthFollowsPreferredContentSizeWhenEdgeAttached self = msg_send ~self ~cmd:(selector "widthFollowsPreferredContentSizeWhenEdgeAttached") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UISheetPresentationControllerDetent.ml b/uikit/UISheetPresentationControllerDetent.ml deleted file mode 100644 index 583d2b3f..00000000 --- a/uikit/UISheetPresentationControllerDetent.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISheetPresentationControllerDetent" - -module C = struct - let largeDetent self = msg_send ~self ~cmd:(selector "largeDetent") ~typ:(returning (id)) - let mediumDetent self = msg_send ~self ~cmd:(selector "mediumDetent") ~typ:(returning (id)) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -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 initWithType x ~identifier ~internalBlock ~constant self = msg_send ~self ~cmd:(selector "initWithType:identifier:internalBlock:constant:") ~typ:(llong @-> id @-> ptr void @-> double @-> returning (id)) (LLong.of_int x) identifier internalBlock constant -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/uikit/UISimpleSelectionRect.ml b/uikit/UISimpleSelectionRect.ml index 64a17ce9..300bdce7 100644 --- a/uikit/UISimpleSelectionRect.ml +++ b/uikit/UISimpleSelectionRect.ml @@ -5,12 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISimpleSelectionRect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisimpleselectionrect?language=objc}UISimpleSelectionRect} *) -module Class = struct - let rectWithCGRect x self = msg_send ~self ~cmd:(selector "rectWithCGRect:") ~typ:(CGRect.t @-> returning (id)) x -end +let self = get_class "UISimpleSelectionRect" -let rect self = msg_send ~self ~cmd:(selector "rect") ~typ:(returning (CGRect.t)) -let setRect x self = msg_send ~self ~cmd:(selector "setRect:") ~typ:(CGRect.t @-> returning (void)) x \ No newline at end of file +let rect self = msg_send ~self ~cmd:(selector "rect") ~typ:(returning CGRect.t) +let setRect x self = msg_send ~self ~cmd:(selector "setRect:") ~typ:(CGRect.t @-> returning void) x \ No newline at end of file diff --git a/uikit/UISimpleSelectionRectClass.ml b/uikit/UISimpleSelectionRectClass.ml new file mode 100644 index 00000000..9ce9acda --- /dev/null +++ b/uikit/UISimpleSelectionRectClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisimpleselectionrect?language=objc}UISimpleSelectionRect} *) + +let rectWithCGRect x self = msg_send ~self ~cmd:(selector "rectWithCGRect:") ~typ:(CGRect.t @-> returning id) x \ No newline at end of file diff --git a/uikit/UISimpleTextPrintFormatter.ml b/uikit/UISimpleTextPrintFormatter.ml index 0675f597..4d8804ce 100644 --- a/uikit/UISimpleTextPrintFormatter.ml +++ b/uikit/UISimpleTextPrintFormatter.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISimpleTextPrintFormatter" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisimpletextprintformatter?language=objc}UISimpleTextPrintFormatter} *) -let initWithAttributedText x self = msg_send ~self ~cmd:(selector "initWithAttributedText:") ~typ:(id @-> returning (id)) x -let initWithText x self = msg_send ~self ~cmd:(selector "initWithText:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let self = get_class "UISimpleTextPrintFormatter" + +let initWithAttributedText x self = msg_send ~self ~cmd:(selector "initWithAttributedText:") ~typ:(id @-> returning id) x +let initWithText x self = msg_send ~self ~cmd:(selector "initWithText:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UISiriTaskAction.ml b/uikit/UISiriTaskAction.ml index 74ffab93..8fd7d1c8 100644 --- a/uikit/UISiriTaskAction.ml +++ b/uikit/UISiriTaskAction.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISiriTaskAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisiritaskaction?language=objc}UISiriTaskAction} *) -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let initWithInfo x ~timeout ~forResponseOnQueue ~withHandler self = msg_send ~self ~cmd:(selector "initWithInfo:timeout:forResponseOnQueue:withHandler:") ~typ:(id @-> double @-> id @-> ptr void @-> returning (id)) x timeout forResponseOnQueue withHandler -let initWithPayload x self = msg_send ~self ~cmd:(selector "initWithPayload:") ~typ:(id @-> returning (id)) x -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let payload self = msg_send ~self ~cmd:(selector "payload") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UISiriTaskAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let initWithInfo x ~timeout ~forResponseOnQueue ~withHandler self = msg_send ~self ~cmd:(selector "initWithInfo:timeout:forResponseOnQueue:withHandler:") ~typ:(id @-> double @-> id @-> (ptr void) @-> returning id) x timeout forResponseOnQueue withHandler +let initWithPayload x self = msg_send ~self ~cmd:(selector "initWithPayload:") ~typ:(id @-> returning id) x +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let payload self = msg_send ~self ~cmd:(selector "payload") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISlider.ml b/uikit/UISlider.ml index b79c3f10..02078805 100644 --- a/uikit/UISlider.ml +++ b/uikit/UISlider.ml @@ -5,77 +5,82 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISlider" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uislider?language=objc}UISlider} *) -let akMaximumValue self = msg_send ~self ~cmd:(selector "akMaximumValue") ~typ:(returning (double)) -let akMinimumValue self = msg_send ~self ~cmd:(selector "akMinimumValue") ~typ:(returning (double)) -let akValue self = msg_send ~self ~cmd:(selector "akValue") ~typ:(returning (double)) -let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let behavioralStyle self = msg_send ~self ~cmd:(selector "behavioralStyle") ~typ:(returning (ullong)) -let cancelMouseTracking self = msg_send ~self ~cmd:(selector "cancelMouseTracking") ~typ:(returning (bool)) -let cancelTouchTracking self = msg_send ~self ~cmd:(selector "cancelTouchTracking") ~typ:(returning (bool)) -let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let createThumbView self = msg_send ~self ~cmd:(selector "createThumbView") ~typ:(returning (id)) -let currentMaximumTrackImage self = msg_send ~self ~cmd:(selector "currentMaximumTrackImage") ~typ:(returning (id)) -let currentMinimumTrackImage self = msg_send ~self ~cmd:(selector "currentMinimumTrackImage") ~typ:(returning (id)) -let currentThumbImage self = msg_send ~self ~cmd:(selector "currentThumbImage") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning (bool)) -let isAnimatingValueChange self = msg_send ~self ~cmd:(selector "isAnimatingValueChange") ~typ:(returning (bool)) -let isContinuous self = msg_send ~self ~cmd:(selector "isContinuous") ~typ:(returning (bool)) -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isTracking self = msg_send ~self ~cmd:(selector "isTracking") ~typ:(returning (bool)) -let keyCommands self = msg_send ~self ~cmd:(selector "keyCommands") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let maximumTrackImageForState x self = msg_send ~self ~cmd:(selector "maximumTrackImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let maximumTrackTintColor self = msg_send ~self ~cmd:(selector "maximumTrackTintColor") ~typ:(returning (id)) -let maximumValue self = msg_send ~self ~cmd:(selector "maximumValue") ~typ:(returning (float)) -let maximumValueImage self = msg_send ~self ~cmd:(selector "maximumValueImage") ~typ:(returning (id)) -let maximumValueImageRectForBounds x self = msg_send_stret ~self ~cmd:(selector "maximumValueImageRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let minimumTrackImageForState x self = msg_send ~self ~cmd:(selector "minimumTrackImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let minimumTrackTintColor self = msg_send ~self ~cmd:(selector "minimumTrackTintColor") ~typ:(returning (id)) -let minimumValue self = msg_send ~self ~cmd:(selector "minimumValue") ~typ:(returning (float)) -let minimumValueImage self = msg_send ~self ~cmd:(selector "minimumValueImage") ~typ:(returning (id)) -let minimumValueImageRectForBounds x self = msg_send_stret ~self ~cmd:(selector "minimumValueImageRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let preferredBehavioralStyle self = msg_send ~self ~cmd:(selector "preferredBehavioralStyle") ~typ:(returning (ullong)) -let setAkMaximumValue x self = msg_send ~self ~cmd:(selector "setAkMaximumValue:") ~typ:(double @-> returning (void)) x -let setAkMinimumValue x self = msg_send ~self ~cmd:(selector "setAkMinimumValue:") ~typ:(double @-> returning (void)) x -let setAkValue x self = msg_send ~self ~cmd:(selector "setAkValue:") ~typ:(double @-> returning (void)) x -let setContinuous x self = msg_send ~self ~cmd:(selector "setContinuous:") ~typ:(bool @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setMaximumTrackImage x ~forState self = msg_send ~self ~cmd:(selector "setMaximumTrackImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setMaximumTrackImage' x ~forStates self = msg_send ~self ~cmd:(selector "setMaximumTrackImage:forStates:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forStates) -let setMaximumTrackTintColor x self = msg_send ~self ~cmd:(selector "setMaximumTrackTintColor:") ~typ:(id @-> returning (void)) x -let setMaximumValue x self = msg_send ~self ~cmd:(selector "setMaximumValue:") ~typ:(float @-> returning (void)) x -let setMaximumValueImage x self = msg_send ~self ~cmd:(selector "setMaximumValueImage:") ~typ:(id @-> returning (void)) x -let setMinimumTrackImage x ~forState self = msg_send ~self ~cmd:(selector "setMinimumTrackImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setMinimumTrackImage' x ~forStates self = msg_send ~self ~cmd:(selector "setMinimumTrackImage:forStates:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forStates) -let setMinimumTrackTintColor x self = msg_send ~self ~cmd:(selector "setMinimumTrackTintColor:") ~typ:(id @-> returning (void)) x -let setMinimumValue x self = msg_send ~self ~cmd:(selector "setMinimumValue:") ~typ:(float @-> returning (void)) x -let setMinimumValueImage x self = msg_send ~self ~cmd:(selector "setMinimumValueImage:") ~typ:(id @-> returning (void)) x -let setPreferredBehavioralStyle x self = msg_send ~self ~cmd:(selector "setPreferredBehavioralStyle:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShowValue x self = msg_send ~self ~cmd:(selector "setShowValue:") ~typ:(bool @-> returning (void)) x -let setThumbImage x ~forState self = msg_send ~self ~cmd:(selector "setThumbImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setThumbImage' x ~forStates self = msg_send ~self ~cmd:(selector "setThumbImage:forStates:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forStates) -let setThumbTintColor x self = msg_send ~self ~cmd:(selector "setThumbTintColor:") ~typ:(id @-> returning (void)) x -let setTracking x self = msg_send ~self ~cmd:(selector "setTracking:") ~typ:(bool @-> returning (void)) x -let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(float @-> returning (void)) x -let setValue' x ~animated self = msg_send ~self ~cmd:(selector "setValue:animated:") ~typ:(float @-> bool @-> returning (void)) x animated -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let thumbImageForState x self = msg_send ~self ~cmd:(selector "thumbImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let thumbRectForBounds x ~trackRect ~value self = msg_send_stret ~self ~cmd:(selector "thumbRectForBounds:trackRect:value:") ~typ:(CGRect.t @-> CGRect.t @-> float @-> returning (CGRect.t)) ~return_type:CGRect.t x trackRect value -let thumbTintColor self = msg_send ~self ~cmd:(selector "thumbTintColor") ~typ:(returning (id)) -let trackRectForBounds x self = msg_send_stret ~self ~cmd:(selector "trackRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning (float)) -let valueTextRectForBounds x self = msg_send_stret ~self ~cmd:(selector "valueTextRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x \ No newline at end of file +let self = get_class "UISlider" + +let akMaximumValue self = msg_send ~self ~cmd:(selector "akMaximumValue") ~typ:(returning double) +let akMinimumValue self = msg_send ~self ~cmd:(selector "akMinimumValue") ~typ:(returning double) +let akValue self = msg_send ~self ~cmd:(selector "akValue") ~typ:(returning double) +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let behavioralStyle self = msg_send ~self ~cmd:(selector "behavioralStyle") ~typ:(returning ullong) +let cancelMouseTracking self = msg_send ~self ~cmd:(selector "cancelMouseTracking") ~typ:(returning bool) +let cancelTouchTracking self = msg_send ~self ~cmd:(selector "cancelTouchTracking") ~typ:(returning bool) +let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let createThumbView self = msg_send ~self ~cmd:(selector "createThumbView") ~typ:(returning id) +let currentMaximumTrackImage self = msg_send ~self ~cmd:(selector "currentMaximumTrackImage") ~typ:(returning id) +let currentMinimumTrackImage self = msg_send ~self ~cmd:(selector "currentMinimumTrackImage") ~typ:(returning id) +let currentThumbImage self = msg_send ~self ~cmd:(selector "currentThumbImage") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning bool) +let isAnimatingValueChange self = msg_send ~self ~cmd:(selector "isAnimatingValueChange") ~typ:(returning bool) +let isContinuous self = msg_send ~self ~cmd:(selector "isContinuous") ~typ:(returning bool) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isTracking self = msg_send ~self ~cmd:(selector "isTracking") ~typ:(returning bool) +let keyCommands self = msg_send ~self ~cmd:(selector "keyCommands") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let maximumTrackImageForState x self = msg_send ~self ~cmd:(selector "maximumTrackImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let maximumTrackTintColor self = msg_send ~self ~cmd:(selector "maximumTrackTintColor") ~typ:(returning id) +let maximumValue self = msg_send ~self ~cmd:(selector "maximumValue") ~typ:(returning float) +let maximumValueImage self = msg_send ~self ~cmd:(selector "maximumValueImage") ~typ:(returning id) +let maximumValueImageRectForBounds x self = msg_send ~self ~cmd:(selector "maximumValueImageRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let minimumTrackImageForState x self = msg_send ~self ~cmd:(selector "minimumTrackImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let minimumTrackTintColor self = msg_send ~self ~cmd:(selector "minimumTrackTintColor") ~typ:(returning id) +let minimumValue self = msg_send ~self ~cmd:(selector "minimumValue") ~typ:(returning float) +let minimumValueImage self = msg_send ~self ~cmd:(selector "minimumValueImage") ~typ:(returning id) +let minimumValueImageRectForBounds x self = msg_send ~self ~cmd:(selector "minimumValueImageRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let preferredBehavioralStyle self = msg_send ~self ~cmd:(selector "preferredBehavioralStyle") ~typ:(returning ullong) +let setAkMaximumValue x self = msg_send ~self ~cmd:(selector "setAkMaximumValue:") ~typ:(double @-> returning void) x +let setAkMinimumValue x self = msg_send ~self ~cmd:(selector "setAkMinimumValue:") ~typ:(double @-> returning void) x +let setAkValue x self = msg_send ~self ~cmd:(selector "setAkValue:") ~typ:(double @-> returning void) x +let setContinuous x self = msg_send ~self ~cmd:(selector "setContinuous:") ~typ:(bool @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setMaximumTrackImage x ~forState self = msg_send ~self ~cmd:(selector "setMaximumTrackImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setMaximumTrackImage' x ~forStates self = msg_send ~self ~cmd:(selector "setMaximumTrackImage:forStates:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forStates) +let setMaximumTrackTintColor x self = msg_send ~self ~cmd:(selector "setMaximumTrackTintColor:") ~typ:(id @-> returning void) x +let setMaximumValue x self = msg_send ~self ~cmd:(selector "setMaximumValue:") ~typ:(float @-> returning void) x +let setMaximumValueImage x self = msg_send ~self ~cmd:(selector "setMaximumValueImage:") ~typ:(id @-> returning void) x +let setMinimumTrackImage x ~forState self = msg_send ~self ~cmd:(selector "setMinimumTrackImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setMinimumTrackImage' x ~forStates self = msg_send ~self ~cmd:(selector "setMinimumTrackImage:forStates:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forStates) +let setMinimumTrackTintColor x self = msg_send ~self ~cmd:(selector "setMinimumTrackTintColor:") ~typ:(id @-> returning void) x +let setMinimumValue x self = msg_send ~self ~cmd:(selector "setMinimumValue:") ~typ:(float @-> returning void) x +let setMinimumValueImage x self = msg_send ~self ~cmd:(selector "setMinimumValueImage:") ~typ:(id @-> returning void) x +let setPreferredBehavioralStyle x self = msg_send ~self ~cmd:(selector "setPreferredBehavioralStyle:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setShowValue x self = msg_send ~self ~cmd:(selector "setShowValue:") ~typ:(bool @-> returning void) x +let setThumbImage x ~forState self = msg_send ~self ~cmd:(selector "setThumbImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setThumbImage' x ~forStates self = msg_send ~self ~cmd:(selector "setThumbImage:forStates:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forStates) +let setThumbTintColor x self = msg_send ~self ~cmd:(selector "setThumbTintColor:") ~typ:(id @-> returning void) x +let setTracking x self = msg_send ~self ~cmd:(selector "setTracking:") ~typ:(bool @-> returning void) x +let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(float @-> returning void) x +let setValue' x ~animated self = msg_send ~self ~cmd:(selector "setValue:animated:") ~typ:(float @-> bool @-> returning void) x animated +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let thumbImageForState x self = msg_send ~self ~cmd:(selector "thumbImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let thumbRectForBounds x ~trackRect ~value self = msg_send ~self ~cmd:(selector "thumbRectForBounds:trackRect:value:") ~typ:(CGRect.t @-> CGRect.t @-> float @-> returning CGRect.t) x trackRect value +let thumbTintColor self = msg_send ~self ~cmd:(selector "thumbTintColor") ~typ:(returning id) +let trackRectForBounds x self = msg_send ~self ~cmd:(selector "trackRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning float) +let valueTextRectForBounds x self = msg_send ~self ~cmd:(selector "valueTextRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x \ No newline at end of file diff --git a/uikit/UISliderDataModel.ml b/uikit/UISliderDataModel.ml index 0f5f401c..5ca3d0d6 100644 --- a/uikit/UISliderDataModel.ml +++ b/uikit/UISliderDataModel.ml @@ -5,55 +5,59 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISliderDataModel" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisliderdatamodel?language=objc}UISliderDataModel} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let edgeFeedbackGenerator self = msg_send ~self ~cmd:(selector "edgeFeedbackGenerator") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isContinuous self = msg_send ~self ~cmd:(selector "isContinuous") ~typ:(returning (bool)) -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning (bool)) -let isMinimumTrackVisible self = msg_send ~self ~cmd:(selector "isMinimumTrackVisible") ~typ:(returning (bool)) -let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning (bool)) -let isThumbEnabled self = msg_send ~self ~cmd:(selector "isThumbEnabled") ~typ:(returning (bool)) -let isTrackEnabled self = msg_send ~self ~cmd:(selector "isTrackEnabled") ~typ:(returning (bool)) -let isTracking self = msg_send ~self ~cmd:(selector "isTracking") ~typ:(returning (bool)) -let maximumTrackImageForState x self = msg_send ~self ~cmd:(selector "maximumTrackImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let maximumTrackTintColor self = msg_send ~self ~cmd:(selector "maximumTrackTintColor") ~typ:(returning (id)) -let maximumValue self = msg_send ~self ~cmd:(selector "maximumValue") ~typ:(returning (float)) -let maximumValueImage self = msg_send ~self ~cmd:(selector "maximumValueImage") ~typ:(returning (id)) -let minimumTrackImageForState x self = msg_send ~self ~cmd:(selector "minimumTrackImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let minimumTrackTintColor self = msg_send ~self ~cmd:(selector "minimumTrackTintColor") ~typ:(returning (id)) -let minimumValue self = msg_send ~self ~cmd:(selector "minimumValue") ~typ:(returning (float)) -let minimumValueImage self = msg_send ~self ~cmd:(selector "minimumValueImage") ~typ:(returning (id)) -let modulationFeedbackGenerator self = msg_send ~self ~cmd:(selector "modulationFeedbackGenerator") ~typ:(returning (id)) -let setContinuous x self = msg_send ~self ~cmd:(selector "setContinuous:") ~typ:(bool @-> returning (void)) x -let setEdgeFeedbackGenerator x self = msg_send ~self ~cmd:(selector "setEdgeFeedbackGenerator:") ~typ:(id @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setMaximumTrackImage x ~forState self = msg_send ~self ~cmd:(selector "setMaximumTrackImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setMaximumTrackImage' x ~forStates self = msg_send ~self ~cmd:(selector "setMaximumTrackImage:forStates:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forStates) -let setMaximumTrackTintColor x self = msg_send ~self ~cmd:(selector "setMaximumTrackTintColor:") ~typ:(id @-> returning (void)) x -let setMaximumValue x self = msg_send ~self ~cmd:(selector "setMaximumValue:") ~typ:(float @-> returning (bool)) x -let setMaximumValueImage x self = msg_send ~self ~cmd:(selector "setMaximumValueImage:") ~typ:(id @-> returning (void)) x -let setMinimumTrackImage x ~forState self = msg_send ~self ~cmd:(selector "setMinimumTrackImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setMinimumTrackImage' x ~forStates self = msg_send ~self ~cmd:(selector "setMinimumTrackImage:forStates:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forStates) -let setMinimumTrackTintColor x self = msg_send ~self ~cmd:(selector "setMinimumTrackTintColor:") ~typ:(id @-> returning (void)) x -let setMinimumTrackVisible x self = msg_send ~self ~cmd:(selector "setMinimumTrackVisible:") ~typ:(bool @-> returning (void)) x -let setMinimumValue x self = msg_send ~self ~cmd:(selector "setMinimumValue:") ~typ:(float @-> returning (bool)) x -let setMinimumValueImage x self = msg_send ~self ~cmd:(selector "setMinimumValueImage:") ~typ:(id @-> returning (void)) x -let setModulationFeedbackGenerator x self = msg_send ~self ~cmd:(selector "setModulationFeedbackGenerator:") ~typ:(id @-> returning (void)) x -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setShowValue x self = msg_send ~self ~cmd:(selector "setShowValue:") ~typ:(bool @-> returning (void)) x -let setThumbEnabled x self = msg_send ~self ~cmd:(selector "setThumbEnabled:") ~typ:(bool @-> returning (void)) x -let setThumbImage x ~forState self = msg_send ~self ~cmd:(selector "setThumbImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setThumbImage' x ~forStates self = msg_send ~self ~cmd:(selector "setThumbImage:forStates:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forStates) -let setThumbTintColor x self = msg_send ~self ~cmd:(selector "setThumbTintColor:") ~typ:(id @-> returning (void)) x -let setTrackEnabled x self = msg_send ~self ~cmd:(selector "setTrackEnabled:") ~typ:(bool @-> returning (void)) x -let setTracking x self = msg_send ~self ~cmd:(selector "setTracking:") ~typ:(bool @-> returning (void)) x -let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(float @-> returning (bool)) x -let showValue self = msg_send ~self ~cmd:(selector "showValue") ~typ:(returning (bool)) -let thumbImageForState x self = msg_send ~self ~cmd:(selector "thumbImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let thumbTintColor self = msg_send ~self ~cmd:(selector "thumbTintColor") ~typ:(returning (id)) -let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning (float)) \ No newline at end of file +let self = get_class "UISliderDataModel" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let edgeFeedbackGenerator self = msg_send ~self ~cmd:(selector "edgeFeedbackGenerator") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isContinuous self = msg_send ~self ~cmd:(selector "isContinuous") ~typ:(returning bool) +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning bool) +let isMinimumTrackVisible self = msg_send ~self ~cmd:(selector "isMinimumTrackVisible") ~typ:(returning bool) +let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning bool) +let isThumbEnabled self = msg_send ~self ~cmd:(selector "isThumbEnabled") ~typ:(returning bool) +let isTrackEnabled self = msg_send ~self ~cmd:(selector "isTrackEnabled") ~typ:(returning bool) +let isTracking self = msg_send ~self ~cmd:(selector "isTracking") ~typ:(returning bool) +let maximumTrackImageForState x self = msg_send ~self ~cmd:(selector "maximumTrackImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let maximumTrackTintColor self = msg_send ~self ~cmd:(selector "maximumTrackTintColor") ~typ:(returning id) +let maximumValue self = msg_send ~self ~cmd:(selector "maximumValue") ~typ:(returning float) +let maximumValueImage self = msg_send ~self ~cmd:(selector "maximumValueImage") ~typ:(returning id) +let minimumTrackImageForState x self = msg_send ~self ~cmd:(selector "minimumTrackImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let minimumTrackTintColor self = msg_send ~self ~cmd:(selector "minimumTrackTintColor") ~typ:(returning id) +let minimumValue self = msg_send ~self ~cmd:(selector "minimumValue") ~typ:(returning float) +let minimumValueImage self = msg_send ~self ~cmd:(selector "minimumValueImage") ~typ:(returning id) +let modulationFeedbackGenerator self = msg_send ~self ~cmd:(selector "modulationFeedbackGenerator") ~typ:(returning id) +let setContinuous x self = msg_send ~self ~cmd:(selector "setContinuous:") ~typ:(bool @-> returning void) x +let setEdgeFeedbackGenerator x self = msg_send ~self ~cmd:(selector "setEdgeFeedbackGenerator:") ~typ:(id @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setMaximumTrackImage x ~forState self = msg_send ~self ~cmd:(selector "setMaximumTrackImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setMaximumTrackImage' x ~forStates self = msg_send ~self ~cmd:(selector "setMaximumTrackImage:forStates:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forStates) +let setMaximumTrackTintColor x self = msg_send ~self ~cmd:(selector "setMaximumTrackTintColor:") ~typ:(id @-> returning void) x +let setMaximumValue x self = msg_send ~self ~cmd:(selector "setMaximumValue:") ~typ:(float @-> returning bool) x +let setMaximumValueImage x self = msg_send ~self ~cmd:(selector "setMaximumValueImage:") ~typ:(id @-> returning void) x +let setMinimumTrackImage x ~forState self = msg_send ~self ~cmd:(selector "setMinimumTrackImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setMinimumTrackImage' x ~forStates self = msg_send ~self ~cmd:(selector "setMinimumTrackImage:forStates:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forStates) +let setMinimumTrackTintColor x self = msg_send ~self ~cmd:(selector "setMinimumTrackTintColor:") ~typ:(id @-> returning void) x +let setMinimumTrackVisible x self = msg_send ~self ~cmd:(selector "setMinimumTrackVisible:") ~typ:(bool @-> returning void) x +let setMinimumValue x self = msg_send ~self ~cmd:(selector "setMinimumValue:") ~typ:(float @-> returning bool) x +let setMinimumValueImage x self = msg_send ~self ~cmd:(selector "setMinimumValueImage:") ~typ:(id @-> returning void) x +let setModulationFeedbackGenerator x self = msg_send ~self ~cmd:(selector "setModulationFeedbackGenerator:") ~typ:(id @-> returning void) x +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setShowValue x self = msg_send ~self ~cmd:(selector "setShowValue:") ~typ:(bool @-> returning void) x +let setThumbEnabled x self = msg_send ~self ~cmd:(selector "setThumbEnabled:") ~typ:(bool @-> returning void) x +let setThumbImage x ~forState self = msg_send ~self ~cmd:(selector "setThumbImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setThumbImage' x ~forStates self = msg_send ~self ~cmd:(selector "setThumbImage:forStates:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forStates) +let setThumbTintColor x self = msg_send ~self ~cmd:(selector "setThumbTintColor:") ~typ:(id @-> returning void) x +let setTrackEnabled x self = msg_send ~self ~cmd:(selector "setTrackEnabled:") ~typ:(bool @-> returning void) x +let setTracking x self = msg_send ~self ~cmd:(selector "setTracking:") ~typ:(bool @-> returning void) x +let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(float @-> returning bool) x +let showValue self = msg_send ~self ~cmd:(selector "showValue") ~typ:(returning bool) +let thumbImageForState x self = msg_send ~self ~cmd:(selector "thumbImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let thumbTintColor self = msg_send ~self ~cmd:(selector "thumbTintColor") ~typ:(returning id) +let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning float) \ No newline at end of file diff --git a/uikit/UISlidingBarConfiguration.ml b/uikit/UISlidingBarConfiguration.ml index 1a9894d0..5f833234 100644 --- a/uikit/UISlidingBarConfiguration.ml +++ b/uikit/UISlidingBarConfiguration.ml @@ -5,49 +5,53 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISlidingBarConfiguration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uislidingbarconfiguration?language=objc}UISlidingBarConfiguration} *) -let allowMixedSideBySideAndOverlay self = msg_send ~self ~cmd:(selector "allowMixedSideBySideAndOverlay") ~typ:(returning (bool)) -let allowTotalWidthGreaterThanParent self = msg_send ~self ~cmd:(selector "allowTotalWidthGreaterThanParent") ~typ:(returning (bool)) -let borderColor self = msg_send ~self ~cmd:(selector "borderColor") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let forceOverlay self = msg_send ~self ~cmd:(selector "forceOverlay") ~typ:(returning (bool)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let leadingBorderWidthForScale x self = msg_send ~self ~cmd:(selector "leadingBorderWidthForScale:") ~typ:(double @-> returning (double)) x -let leadingMayBeHidden self = msg_send ~self ~cmd:(selector "leadingMayBeHidden") ~typ:(returning (bool)) -let leadingWidths self = msg_send ~self ~cmd:(selector "leadingWidths") ~typ:(returning (id)) -let maximumMainWidth self = msg_send ~self ~cmd:(selector "maximumMainWidth") ~typ:(returning (double)) -let minimumMainWidthFraction self = msg_send ~self ~cmd:(selector "minimumMainWidthFraction") ~typ:(returning (double)) -let minimumMainWidthFractionForSecondColumn self = msg_send ~self ~cmd:(selector "minimumMainWidthFractionForSecondColumn") ~typ:(returning (double)) -let rubberBandExtension self = msg_send ~self ~cmd:(selector "rubberBandExtension") ~typ:(returning (double)) -let setAllowMixedSideBySideAndOverlay x self = msg_send ~self ~cmd:(selector "setAllowMixedSideBySideAndOverlay:") ~typ:(bool @-> returning (void)) x -let setAllowTotalWidthGreaterThanParent x self = msg_send ~self ~cmd:(selector "setAllowTotalWidthGreaterThanParent:") ~typ:(bool @-> returning (void)) x -let setBorderColor x self = msg_send ~self ~cmd:(selector "setBorderColor:") ~typ:(id @-> returning (void)) x -let setForceOverlay x self = msg_send ~self ~cmd:(selector "setForceOverlay:") ~typ:(bool @-> returning (void)) x -let setLeadingBorderWidthInPixels x self = msg_send ~self ~cmd:(selector "setLeadingBorderWidthInPixels:") ~typ:(double @-> returning (void)) x -let setLeadingBorderWidthInPoints x self = msg_send ~self ~cmd:(selector "setLeadingBorderWidthInPoints:") ~typ:(double @-> returning (void)) x -let setLeadingMayBeHidden x self = msg_send ~self ~cmd:(selector "setLeadingMayBeHidden:") ~typ:(bool @-> returning (void)) x -let setLeadingWidths x self = msg_send ~self ~cmd:(selector "setLeadingWidths:") ~typ:(id @-> returning (void)) x -let setMaximumMainWidth x self = msg_send ~self ~cmd:(selector "setMaximumMainWidth:") ~typ:(double @-> returning (void)) x -let setMinimumMainWidthFraction x self = msg_send ~self ~cmd:(selector "setMinimumMainWidthFraction:") ~typ:(double @-> returning (void)) x -let setMinimumMainWidthFractionForSecondColumn x self = msg_send ~self ~cmd:(selector "setMinimumMainWidthFractionForSecondColumn:") ~typ:(double @-> returning (void)) x -let setRubberBandExtension x self = msg_send ~self ~cmd:(selector "setRubberBandExtension:") ~typ:(double @-> returning (void)) x -let setShouldFadeStaticNavBarButton x self = msg_send ~self ~cmd:(selector "setShouldFadeStaticNavBarButton:") ~typ:(bool @-> returning (void)) x -let setSupplementaryEdge x self = msg_send ~self ~cmd:(selector "setSupplementaryEdge:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSupplementaryMayBeHidden x self = msg_send ~self ~cmd:(selector "setSupplementaryMayBeHidden:") ~typ:(bool @-> returning (void)) x -let setSupplementaryWidths x self = msg_send ~self ~cmd:(selector "setSupplementaryWidths:") ~typ:(id @-> returning (void)) x -let setTrailingBorderWidthInPixels x self = msg_send ~self ~cmd:(selector "setTrailingBorderWidthInPixels:") ~typ:(double @-> returning (void)) x -let setTrailingBorderWidthInPoints x self = msg_send ~self ~cmd:(selector "setTrailingBorderWidthInPoints:") ~typ:(double @-> returning (void)) x -let setTrailingMayBeHidden x self = msg_send ~self ~cmd:(selector "setTrailingMayBeHidden:") ~typ:(bool @-> returning (void)) x -let setTrailingWidths x self = msg_send ~self ~cmd:(selector "setTrailingWidths:") ~typ:(id @-> returning (void)) x -let shouldFadeStaticNavBarButton self = msg_send ~self ~cmd:(selector "shouldFadeStaticNavBarButton") ~typ:(returning (bool)) -let supplementaryEdge self = msg_send ~self ~cmd:(selector "supplementaryEdge") ~typ:(returning (llong)) -let supplementaryMayBeHidden self = msg_send ~self ~cmd:(selector "supplementaryMayBeHidden") ~typ:(returning (bool)) -let supplementaryWidths self = msg_send ~self ~cmd:(selector "supplementaryWidths") ~typ:(returning (id)) -let trailingBorderWidthForScale x self = msg_send ~self ~cmd:(selector "trailingBorderWidthForScale:") ~typ:(double @-> returning (double)) x -let trailingMayBeHidden self = msg_send ~self ~cmd:(selector "trailingMayBeHidden") ~typ:(returning (bool)) -let trailingWidths self = msg_send ~self ~cmd:(selector "trailingWidths") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UISlidingBarConfiguration" + +let allowMixedSideBySideAndOverlay self = msg_send ~self ~cmd:(selector "allowMixedSideBySideAndOverlay") ~typ:(returning bool) +let allowTotalWidthGreaterThanParent self = msg_send ~self ~cmd:(selector "allowTotalWidthGreaterThanParent") ~typ:(returning bool) +let borderColor self = msg_send ~self ~cmd:(selector "borderColor") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let forceOverlay self = msg_send ~self ~cmd:(selector "forceOverlay") ~typ:(returning bool) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let leadingBorderWidthForScale x self = msg_send ~self ~cmd:(selector "leadingBorderWidthForScale:") ~typ:(double @-> returning double) x +let leadingMayBeHidden self = msg_send ~self ~cmd:(selector "leadingMayBeHidden") ~typ:(returning bool) +let leadingWidths self = msg_send ~self ~cmd:(selector "leadingWidths") ~typ:(returning id) +let maximumMainWidth self = msg_send ~self ~cmd:(selector "maximumMainWidth") ~typ:(returning double) +let minimumMainWidthFraction self = msg_send ~self ~cmd:(selector "minimumMainWidthFraction") ~typ:(returning double) +let minimumMainWidthFractionForSecondColumn self = msg_send ~self ~cmd:(selector "minimumMainWidthFractionForSecondColumn") ~typ:(returning double) +let rubberBandExtension self = msg_send ~self ~cmd:(selector "rubberBandExtension") ~typ:(returning double) +let setAllowMixedSideBySideAndOverlay x self = msg_send ~self ~cmd:(selector "setAllowMixedSideBySideAndOverlay:") ~typ:(bool @-> returning void) x +let setAllowTotalWidthGreaterThanParent x self = msg_send ~self ~cmd:(selector "setAllowTotalWidthGreaterThanParent:") ~typ:(bool @-> returning void) x +let setBorderColor x self = msg_send ~self ~cmd:(selector "setBorderColor:") ~typ:(id @-> returning void) x +let setForceOverlay x self = msg_send ~self ~cmd:(selector "setForceOverlay:") ~typ:(bool @-> returning void) x +let setLeadingBorderWidthInPixels x self = msg_send ~self ~cmd:(selector "setLeadingBorderWidthInPixels:") ~typ:(double @-> returning void) x +let setLeadingBorderWidthInPoints x self = msg_send ~self ~cmd:(selector "setLeadingBorderWidthInPoints:") ~typ:(double @-> returning void) x +let setLeadingMayBeHidden x self = msg_send ~self ~cmd:(selector "setLeadingMayBeHidden:") ~typ:(bool @-> returning void) x +let setLeadingWidths x self = msg_send ~self ~cmd:(selector "setLeadingWidths:") ~typ:(id @-> returning void) x +let setMaximumMainWidth x self = msg_send ~self ~cmd:(selector "setMaximumMainWidth:") ~typ:(double @-> returning void) x +let setMinimumMainWidthFraction x self = msg_send ~self ~cmd:(selector "setMinimumMainWidthFraction:") ~typ:(double @-> returning void) x +let setMinimumMainWidthFractionForSecondColumn x self = msg_send ~self ~cmd:(selector "setMinimumMainWidthFractionForSecondColumn:") ~typ:(double @-> returning void) x +let setRubberBandExtension x self = msg_send ~self ~cmd:(selector "setRubberBandExtension:") ~typ:(double @-> returning void) x +let setShouldFadeStaticNavBarButton x self = msg_send ~self ~cmd:(selector "setShouldFadeStaticNavBarButton:") ~typ:(bool @-> returning void) x +let setSupplementaryEdge x self = msg_send ~self ~cmd:(selector "setSupplementaryEdge:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSupplementaryMayBeHidden x self = msg_send ~self ~cmd:(selector "setSupplementaryMayBeHidden:") ~typ:(bool @-> returning void) x +let setSupplementaryWidths x self = msg_send ~self ~cmd:(selector "setSupplementaryWidths:") ~typ:(id @-> returning void) x +let setTrailingBorderWidthInPixels x self = msg_send ~self ~cmd:(selector "setTrailingBorderWidthInPixels:") ~typ:(double @-> returning void) x +let setTrailingBorderWidthInPoints x self = msg_send ~self ~cmd:(selector "setTrailingBorderWidthInPoints:") ~typ:(double @-> returning void) x +let setTrailingMayBeHidden x self = msg_send ~self ~cmd:(selector "setTrailingMayBeHidden:") ~typ:(bool @-> returning void) x +let setTrailingWidths x self = msg_send ~self ~cmd:(selector "setTrailingWidths:") ~typ:(id @-> returning void) x +let shouldFadeStaticNavBarButton self = msg_send ~self ~cmd:(selector "shouldFadeStaticNavBarButton") ~typ:(returning bool) +let supplementaryEdge self = msg_send ~self ~cmd:(selector "supplementaryEdge") ~typ:(returning llong) +let supplementaryMayBeHidden self = msg_send ~self ~cmd:(selector "supplementaryMayBeHidden") ~typ:(returning bool) +let supplementaryWidths self = msg_send ~self ~cmd:(selector "supplementaryWidths") ~typ:(returning id) +let trailingBorderWidthForScale x self = msg_send ~self ~cmd:(selector "trailingBorderWidthForScale:") ~typ:(double @-> returning double) x +let trailingMayBeHidden self = msg_send ~self ~cmd:(selector "trailingMayBeHidden") ~typ:(returning bool) +let trailingWidths self = msg_send ~self ~cmd:(selector "trailingWidths") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISlidingBarState.ml b/uikit/UISlidingBarState.ml index edd17030..d11a1f65 100644 --- a/uikit/UISlidingBarState.ml +++ b/uikit/UISlidingBarState.ml @@ -5,41 +5,45 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISlidingBarState" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uislidingbarstate?language=objc}UISlidingBarState} *) -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let isCollapsed self = msg_send ~self ~cmd:(selector "isCollapsed") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isLeadingVisible self = msg_send ~self ~cmd:(selector "isLeadingVisible") ~typ:(returning (bool)) -let isSupplementaryVisible self = msg_send ~self ~cmd:(selector "isSupplementaryVisible") ~typ:(returning (bool)) -let isTrailingVisible self = msg_send ~self ~cmd:(selector "isTrailingVisible") ~typ:(returning (bool)) -let leadingDragOffset self = msg_send ~self ~cmd:(selector "leadingDragOffset") ~typ:(returning (double)) -let leadingOffscreenWidth self = msg_send ~self ~cmd:(selector "leadingOffscreenWidth") ~typ:(returning (double)) -let leadingOverlapsMain self = msg_send ~self ~cmd:(selector "leadingOverlapsMain") ~typ:(returning (bool)) -let leadingWidth self = msg_send ~self ~cmd:(selector "leadingWidth") ~typ:(returning (double)) -let mainWidth self = msg_send ~self ~cmd:(selector "mainWidth") ~typ:(returning (double)) -let matchesRequest x self = msg_send ~self ~cmd:(selector "matchesRequest:") ~typ:(id @-> returning (bool)) x -let setConfiguration x self = msg_send ~self ~cmd:(selector "setConfiguration:") ~typ:(id @-> returning (void)) x -let setLeadingDragOffset x self = msg_send ~self ~cmd:(selector "setLeadingDragOffset:") ~typ:(double @-> returning (void)) x -let setLeadingOffscreenWidth x self = msg_send ~self ~cmd:(selector "setLeadingOffscreenWidth:") ~typ:(double @-> returning (void)) x -let setLeadingWidth x self = msg_send ~self ~cmd:(selector "setLeadingWidth:") ~typ:(double @-> returning (void)) x -let setMainWidth x self = msg_send ~self ~cmd:(selector "setMainWidth:") ~typ:(double @-> returning (void)) x -let setSupplementaryDragOffset x self = msg_send ~self ~cmd:(selector "setSupplementaryDragOffset:") ~typ:(double @-> returning (void)) x -let setSupplementaryOffscreenWidth x self = msg_send ~self ~cmd:(selector "setSupplementaryOffscreenWidth:") ~typ:(double @-> returning (void)) x -let setSupplementaryWidth x self = msg_send ~self ~cmd:(selector "setSupplementaryWidth:") ~typ:(double @-> returning (void)) x -let setTrailingDragOffset x self = msg_send ~self ~cmd:(selector "setTrailingDragOffset:") ~typ:(double @-> returning (void)) x -let setTrailingOffscreenWidth x self = msg_send ~self ~cmd:(selector "setTrailingOffscreenWidth:") ~typ:(double @-> returning (void)) x -let setTrailingWidth x self = msg_send ~self ~cmd:(selector "setTrailingWidth:") ~typ:(double @-> returning (void)) x -let stateRequest self = msg_send ~self ~cmd:(selector "stateRequest") ~typ:(returning (id)) -let supplementaryDragOffset self = msg_send ~self ~cmd:(selector "supplementaryDragOffset") ~typ:(returning (double)) -let supplementaryOffscreenWidth self = msg_send ~self ~cmd:(selector "supplementaryOffscreenWidth") ~typ:(returning (double)) -let supplementaryOverlapsMain self = msg_send ~self ~cmd:(selector "supplementaryOverlapsMain") ~typ:(returning (bool)) -let supplementaryWidth self = msg_send ~self ~cmd:(selector "supplementaryWidth") ~typ:(returning (double)) -let trailingDragOffset self = msg_send ~self ~cmd:(selector "trailingDragOffset") ~typ:(returning (double)) -let trailingOffscreenWidth self = msg_send ~self ~cmd:(selector "trailingOffscreenWidth") ~typ:(returning (double)) -let trailingOverlapsMain self = msg_send ~self ~cmd:(selector "trailingOverlapsMain") ~typ:(returning (bool)) -let trailingWidth self = msg_send ~self ~cmd:(selector "trailingWidth") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UISlidingBarState" + +let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let isCollapsed self = msg_send ~self ~cmd:(selector "isCollapsed") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isLeadingVisible self = msg_send ~self ~cmd:(selector "isLeadingVisible") ~typ:(returning bool) +let isSupplementaryVisible self = msg_send ~self ~cmd:(selector "isSupplementaryVisible") ~typ:(returning bool) +let isTrailingVisible self = msg_send ~self ~cmd:(selector "isTrailingVisible") ~typ:(returning bool) +let leadingDragOffset self = msg_send ~self ~cmd:(selector "leadingDragOffset") ~typ:(returning double) +let leadingOffscreenWidth self = msg_send ~self ~cmd:(selector "leadingOffscreenWidth") ~typ:(returning double) +let leadingOverlapsMain self = msg_send ~self ~cmd:(selector "leadingOverlapsMain") ~typ:(returning bool) +let leadingWidth self = msg_send ~self ~cmd:(selector "leadingWidth") ~typ:(returning double) +let mainWidth self = msg_send ~self ~cmd:(selector "mainWidth") ~typ:(returning double) +let matchesRequest x self = msg_send ~self ~cmd:(selector "matchesRequest:") ~typ:(id @-> returning bool) x +let setConfiguration x self = msg_send ~self ~cmd:(selector "setConfiguration:") ~typ:(id @-> returning void) x +let setLeadingDragOffset x self = msg_send ~self ~cmd:(selector "setLeadingDragOffset:") ~typ:(double @-> returning void) x +let setLeadingOffscreenWidth x self = msg_send ~self ~cmd:(selector "setLeadingOffscreenWidth:") ~typ:(double @-> returning void) x +let setLeadingWidth x self = msg_send ~self ~cmd:(selector "setLeadingWidth:") ~typ:(double @-> returning void) x +let setMainWidth x self = msg_send ~self ~cmd:(selector "setMainWidth:") ~typ:(double @-> returning void) x +let setSupplementaryDragOffset x self = msg_send ~self ~cmd:(selector "setSupplementaryDragOffset:") ~typ:(double @-> returning void) x +let setSupplementaryOffscreenWidth x self = msg_send ~self ~cmd:(selector "setSupplementaryOffscreenWidth:") ~typ:(double @-> returning void) x +let setSupplementaryWidth x self = msg_send ~self ~cmd:(selector "setSupplementaryWidth:") ~typ:(double @-> returning void) x +let setTrailingDragOffset x self = msg_send ~self ~cmd:(selector "setTrailingDragOffset:") ~typ:(double @-> returning void) x +let setTrailingOffscreenWidth x self = msg_send ~self ~cmd:(selector "setTrailingOffscreenWidth:") ~typ:(double @-> returning void) x +let setTrailingWidth x self = msg_send ~self ~cmd:(selector "setTrailingWidth:") ~typ:(double @-> returning void) x +let stateRequest self = msg_send ~self ~cmd:(selector "stateRequest") ~typ:(returning id) +let supplementaryDragOffset self = msg_send ~self ~cmd:(selector "supplementaryDragOffset") ~typ:(returning double) +let supplementaryOffscreenWidth self = msg_send ~self ~cmd:(selector "supplementaryOffscreenWidth") ~typ:(returning double) +let supplementaryOverlapsMain self = msg_send ~self ~cmd:(selector "supplementaryOverlapsMain") ~typ:(returning bool) +let supplementaryWidth self = msg_send ~self ~cmd:(selector "supplementaryWidth") ~typ:(returning double) +let trailingDragOffset self = msg_send ~self ~cmd:(selector "trailingDragOffset") ~typ:(returning double) +let trailingOffscreenWidth self = msg_send ~self ~cmd:(selector "trailingOffscreenWidth") ~typ:(returning double) +let trailingOverlapsMain self = msg_send ~self ~cmd:(selector "trailingOverlapsMain") ~typ:(returning bool) +let trailingWidth self = msg_send ~self ~cmd:(selector "trailingWidth") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UISlidingBarStateRequest.ml b/uikit/UISlidingBarStateRequest.ml index adb15c06..7aa0dbaf 100644 --- a/uikit/UISlidingBarStateRequest.ml +++ b/uikit/UISlidingBarStateRequest.ml @@ -5,29 +5,33 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISlidingBarStateRequest" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uislidingbarstaterequest?language=objc}UISlidingBarStateRequest} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let leadingOffscreenWidth self = msg_send ~self ~cmd:(selector "leadingOffscreenWidth") ~typ:(returning (double)) -let leadingWidth self = msg_send ~self ~cmd:(selector "leadingWidth") ~typ:(returning (double)) -let mainWidth self = msg_send ~self ~cmd:(selector "mainWidth") ~typ:(returning (double)) -let rubberBandInset self = msg_send ~self ~cmd:(selector "rubberBandInset") ~typ:(returning (double)) -let setLeadingOffscreenWidth x self = msg_send ~self ~cmd:(selector "setLeadingOffscreenWidth:") ~typ:(double @-> returning (void)) x -let setLeadingWidth x self = msg_send ~self ~cmd:(selector "setLeadingWidth:") ~typ:(double @-> returning (void)) x -let setMainWidth x self = msg_send ~self ~cmd:(selector "setMainWidth:") ~typ:(double @-> returning (void)) x -let setRubberBandInset x self = msg_send ~self ~cmd:(selector "setRubberBandInset:") ~typ:(double @-> returning (void)) x -let setSupplementaryOffscreenWidth x self = msg_send ~self ~cmd:(selector "setSupplementaryOffscreenWidth:") ~typ:(double @-> returning (void)) x -let setSupplementaryWidth x self = msg_send ~self ~cmd:(selector "setSupplementaryWidth:") ~typ:(double @-> returning (void)) x -let setTrailingOffscreenWidth x self = msg_send ~self ~cmd:(selector "setTrailingOffscreenWidth:") ~typ:(double @-> returning (void)) x -let setTrailingWidth x self = msg_send ~self ~cmd:(selector "setTrailingWidth:") ~typ:(double @-> returning (void)) x -let setUserInitiated x self = msg_send ~self ~cmd:(selector "setUserInitiated:") ~typ:(bool @-> returning (void)) x -let supplementaryOffscreenWidth self = msg_send ~self ~cmd:(selector "supplementaryOffscreenWidth") ~typ:(returning (double)) -let supplementaryWidth self = msg_send ~self ~cmd:(selector "supplementaryWidth") ~typ:(returning (double)) -let trailingOffscreenWidth self = msg_send ~self ~cmd:(selector "trailingOffscreenWidth") ~typ:(returning (double)) -let trailingWidth self = msg_send ~self ~cmd:(selector "trailingWidth") ~typ:(returning (double)) -let userInitiated self = msg_send ~self ~cmd:(selector "userInitiated") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UISlidingBarStateRequest" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let leadingOffscreenWidth self = msg_send ~self ~cmd:(selector "leadingOffscreenWidth") ~typ:(returning double) +let leadingWidth self = msg_send ~self ~cmd:(selector "leadingWidth") ~typ:(returning double) +let mainWidth self = msg_send ~self ~cmd:(selector "mainWidth") ~typ:(returning double) +let rubberBandInset self = msg_send ~self ~cmd:(selector "rubberBandInset") ~typ:(returning double) +let setLeadingOffscreenWidth x self = msg_send ~self ~cmd:(selector "setLeadingOffscreenWidth:") ~typ:(double @-> returning void) x +let setLeadingWidth x self = msg_send ~self ~cmd:(selector "setLeadingWidth:") ~typ:(double @-> returning void) x +let setMainWidth x self = msg_send ~self ~cmd:(selector "setMainWidth:") ~typ:(double @-> returning void) x +let setRubberBandInset x self = msg_send ~self ~cmd:(selector "setRubberBandInset:") ~typ:(double @-> returning void) x +let setSupplementaryOffscreenWidth x self = msg_send ~self ~cmd:(selector "setSupplementaryOffscreenWidth:") ~typ:(double @-> returning void) x +let setSupplementaryWidth x self = msg_send ~self ~cmd:(selector "setSupplementaryWidth:") ~typ:(double @-> returning void) x +let setTrailingOffscreenWidth x self = msg_send ~self ~cmd:(selector "setTrailingOffscreenWidth:") ~typ:(double @-> returning void) x +let setTrailingWidth x self = msg_send ~self ~cmd:(selector "setTrailingWidth:") ~typ:(double @-> returning void) x +let setUserInitiated x self = msg_send ~self ~cmd:(selector "setUserInitiated:") ~typ:(bool @-> returning void) x +let supplementaryOffscreenWidth self = msg_send ~self ~cmd:(selector "supplementaryOffscreenWidth") ~typ:(returning double) +let supplementaryWidth self = msg_send ~self ~cmd:(selector "supplementaryWidth") ~typ:(returning double) +let trailingOffscreenWidth self = msg_send ~self ~cmd:(selector "trailingOffscreenWidth") ~typ:(returning double) +let trailingWidth self = msg_send ~self ~cmd:(selector "trailingWidth") ~typ:(returning double) +let userInitiated self = msg_send ~self ~cmd:(selector "userInitiated") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UISnapBehavior.ml b/uikit/UISnapBehavior.ml index a0dc86ff..406a78d9 100644 --- a/uikit/UISnapBehavior.ml +++ b/uikit/UISnapBehavior.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISnapBehavior" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisnapbehavior?language=objc}UISnapBehavior} *) -let damping self = msg_send ~self ~cmd:(selector "damping") ~typ:(returning (double)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithItem x ~snapToPoint self = msg_send ~self ~cmd:(selector "initWithItem:snapToPoint:") ~typ:(id @-> CGPoint.t @-> returning (id)) x snapToPoint -let setDamping x self = msg_send ~self ~cmd:(selector "setDamping:") ~typ:(double @-> returning (void)) x -let setSnapPoint x self = msg_send ~self ~cmd:(selector "setSnapPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let snapPoint self = msg_send_stret ~self ~cmd:(selector "snapPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UISnapBehavior" + +let damping self = msg_send ~self ~cmd:(selector "damping") ~typ:(returning double) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithItem x ~snapToPoint self = msg_send ~self ~cmd:(selector "initWithItem:snapToPoint:") ~typ:(id @-> CGPoint.t @-> returning id) x snapToPoint +let setDamping x self = msg_send ~self ~cmd:(selector "setDamping:") ~typ:(double @-> returning void) x +let setSnapPoint x self = msg_send ~self ~cmd:(selector "setSnapPoint:") ~typ:(CGPoint.t @-> returning void) x +let snapPoint self = msg_send ~self ~cmd:(selector "snapPoint") ~typ:(returning CGPoint.t) \ No newline at end of file diff --git a/uikit/UISnapshotModalViewController.ml b/uikit/UISnapshotModalViewController.ml index b170a525..67bf6c16 100644 --- a/uikit/UISnapshotModalViewController.ml +++ b/uikit/UISnapshotModalViewController.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISnapshotModalViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisnapshotmodalviewcontroller?language=objc}UISnapshotModalViewController} *) -let disappearingViewController self = msg_send ~self ~cmd:(selector "disappearingViewController") ~typ:(returning (id)) -let initWithInterfaceOrientation x self = msg_send ~self ~cmd:(selector "initWithInterfaceOrientation:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let setDisappearingViewController x self = msg_send ~self ~cmd:(selector "setDisappearingViewController:") ~typ:(id @-> returning (void)) x -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UISnapshotModalViewController" + +let disappearingViewController self = msg_send ~self ~cmd:(selector "disappearingViewController") ~typ:(returning id) +let initWithInterfaceOrientation x self = msg_send ~self ~cmd:(selector "initWithInterfaceOrientation:") ~typ:(llong @-> returning id) (LLong.of_int x) +let setDisappearingViewController x self = msg_send ~self ~cmd:(selector "setDisappearingViewController:") ~typ:(id @-> returning void) x +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UISnapshotView.ml b/uikit/UISnapshotView.ml index e9f67087..cf4753db 100644 --- a/uikit/UISnapshotView.ml +++ b/uikit/UISnapshotView.ml @@ -5,24 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISnapshotView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisnapshotview?language=objc}UISnapshotView} *) -let captureSnapshotOfView x ~withSnapshotType self = msg_send ~self ~cmd:(selector "captureSnapshotOfView:withSnapshotType:") ~typ:(id @-> int @-> returning (void)) x withSnapshotType -let captureSnapshotRect x ~fromView ~withSnapshotType self = msg_send ~self ~cmd:(selector "captureSnapshotRect:fromView:withSnapshotType:") ~typ:(CGRect.t @-> id @-> int @-> returning (void)) x fromView withSnapshotType -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let edgePaddingColor self = msg_send ~self ~cmd:(selector "edgePaddingColor") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isEdgeAntialiasingEnabled self = msg_send ~self ~cmd:(selector "isEdgeAntialiasingEnabled") ~typ:(returning (bool)) -let isVerticalStretchEnabled self = msg_send ~self ~cmd:(selector "isVerticalStretchEnabled") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setContentStretch x self = msg_send ~self ~cmd:(selector "setContentStretch:") ~typ:(CGRect.t @-> returning (void)) x -let setEdgeAntialiasingEnabled x self = msg_send ~self ~cmd:(selector "setEdgeAntialiasingEnabled:") ~typ:(bool @-> returning (void)) x -let setEdgeInsets x self = msg_send ~self ~cmd:(selector "setEdgeInsets:") ~typ:(ptr void @-> returning (void)) x -let setEdgePadding x self = msg_send ~self ~cmd:(selector "setEdgePadding:") ~typ:(ptr void @-> returning (void)) x -let setEdgePaddingColor x self = msg_send ~self ~cmd:(selector "setEdgePaddingColor:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setShadowView x self = msg_send ~self ~cmd:(selector "setShadowView:") ~typ:(id @-> returning (void)) x -let setVerticalStretchEnabled x self = msg_send ~self ~cmd:(selector "setVerticalStretchEnabled:") ~typ:(bool @-> returning (void)) x -let shadowView self = msg_send ~self ~cmd:(selector "shadowView") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UISnapshotView" + +let captureSnapshotOfView x ~withSnapshotType self = msg_send ~self ~cmd:(selector "captureSnapshotOfView:withSnapshotType:") ~typ:(id @-> int @-> returning void) x withSnapshotType +let captureSnapshotRect x ~fromView ~withSnapshotType self = msg_send ~self ~cmd:(selector "captureSnapshotRect:fromView:withSnapshotType:") ~typ:(CGRect.t @-> id @-> int @-> returning void) x fromView withSnapshotType +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let edgeInsets self = msg_send ~self ~cmd:(selector "edgeInsets") ~typ:(returning UIEdgeInsets.t) +let edgePadding self = msg_send ~self ~cmd:(selector "edgePadding") ~typ:(returning UIEdgeInsets.t) +let edgePaddingColor self = msg_send ~self ~cmd:(selector "edgePaddingColor") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isEdgeAntialiasingEnabled self = msg_send ~self ~cmd:(selector "isEdgeAntialiasingEnabled") ~typ:(returning bool) +let isVerticalStretchEnabled self = msg_send ~self ~cmd:(selector "isVerticalStretchEnabled") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setContentStretch x self = msg_send ~self ~cmd:(selector "setContentStretch:") ~typ:(CGRect.t @-> returning void) x +let setEdgeAntialiasingEnabled x self = msg_send ~self ~cmd:(selector "setEdgeAntialiasingEnabled:") ~typ:(bool @-> returning void) x +let setEdgeInsets x self = msg_send ~self ~cmd:(selector "setEdgeInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setEdgePadding x self = msg_send ~self ~cmd:(selector "setEdgePadding:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setEdgePaddingColor x self = msg_send ~self ~cmd:(selector "setEdgePaddingColor:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setShadowView x self = msg_send ~self ~cmd:(selector "setShadowView:") ~typ:(id @-> returning void) x +let setVerticalStretchEnabled x self = msg_send ~self ~cmd:(selector "setVerticalStretchEnabled:") ~typ:(bool @-> returning void) x +let shadowView self = msg_send ~self ~cmd:(selector "shadowView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISnapshottingAssertionManager.ml b/uikit/UISnapshottingAssertionManager.ml deleted file mode 100644 index 2a330ae7..00000000 --- a/uikit/UISnapshottingAssertionManager.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISnapshottingAssertionManager" - -module C = struct - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end - -let acquireNewAssertion self = msg_send ~self ~cmd:(selector "acquireNewAssertion") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let executeIfNoActiveAssertions x self = msg_send ~self ~cmd:(selector "executeIfNoActiveAssertions:") ~typ:(ptr void @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let relinquishAssertion x self = msg_send ~self ~cmd:(selector "relinquishAssertion:") ~typ:(id @-> returning (void)) x -let withLock x self = msg_send ~self ~cmd:(selector "withLock:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UISoftwareDimmingWindow.ml b/uikit/UISoftwareDimmingWindow.ml index 72a41754..eb84fa31 100644 --- a/uikit/UISoftwareDimmingWindow.ml +++ b/uikit/UISoftwareDimmingWindow.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISoftwareDimmingWindow" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisoftwaredimmingwindow?language=objc}UISoftwareDimmingWindow} *) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let overlayLevel self = msg_send ~self ~cmd:(selector "overlayLevel") ~typ:(returning (float)) -let setOverlayLevel x self = msg_send ~self ~cmd:(selector "setOverlayLevel:") ~typ:(float @-> returning (void)) x -let updateOverlayColor self = msg_send ~self ~cmd:(selector "updateOverlayColor") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UISoftwareDimmingWindow" + +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let overlayLevel self = msg_send ~self ~cmd:(selector "overlayLevel") ~typ:(returning float) +let setOverlayLevel x self = msg_send ~self ~cmd:(selector "setOverlayLevel:") ~typ:(float @-> returning void) x +let updateOverlayColor self = msg_send ~self ~cmd:(selector "updateOverlayColor") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UISpecializedInputMode.ml b/uikit/UISpecializedInputMode.ml index 18581009..75f0503b 100644 --- a/uikit/UISpecializedInputMode.ml +++ b/uikit/UISpecializedInputMode.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISpecializedInputMode" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uispecializedinputmode?language=objc}UISpecializedInputMode} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let hardwareLayout self = msg_send ~self ~cmd:(selector "hardwareLayout") ~typ:(returning (id)) -let includeBarHeight self = msg_send ~self ~cmd:(selector "includeBarHeight") ~typ:(returning (bool)) -let isSpecializedInputMode self = msg_send ~self ~cmd:(selector "isSpecializedInputMode") ~typ:(returning (bool)) -let setViewControllerClass x self = msg_send ~self ~cmd:(selector "setViewControllerClass:") ~typ:(_Class @-> returning (void)) x -let showSWLayoutWithHWKeyboard self = msg_send ~self ~cmd:(selector "showSWLayoutWithHWKeyboard") ~typ:(returning (bool)) -let viewControllerClass self = msg_send ~self ~cmd:(selector "viewControllerClass") ~typ:(returning (_Class)) \ No newline at end of file +let self = get_class "UISpecializedInputMode" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let hardwareLayout self = msg_send ~self ~cmd:(selector "hardwareLayout") ~typ:(returning id) +let includeBarHeight self = msg_send ~self ~cmd:(selector "includeBarHeight") ~typ:(returning bool) +let isSpecializedInputMode self = msg_send ~self ~cmd:(selector "isSpecializedInputMode") ~typ:(returning bool) +let setViewControllerClass x self = msg_send ~self ~cmd:(selector "setViewControllerClass:") ~typ:(_Class @-> returning void) x +let showSWLayoutWithHWKeyboard self = msg_send ~self ~cmd:(selector "showSWLayoutWithHWKeyboard") ~typ:(returning bool) +let viewControllerClass self = msg_send ~self ~cmd:(selector "viewControllerClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit/UISplitKeyboardSupport.ml b/uikit/UISplitKeyboardSupport.ml index 00df76c7..3ff4b547 100644 --- a/uikit/UISplitKeyboardSupport.ml +++ b/uikit/UISplitKeyboardSupport.ml @@ -5,28 +5,32 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISplitKeyboardSupport" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisplitkeyboardsupport?language=objc}UISplitKeyboardSupport} *) -let bounceAnimationDidFinish self = msg_send ~self ~cmd:(selector "bounceAnimationDidFinish") ~typ:(returning (void)) -let cancelBounceAnimation self = msg_send ~self ~cmd:(selector "cancelBounceAnimation") ~typ:(returning (void)) -let cancelGestureRecognizers self = msg_send ~self ~cmd:(selector "cancelGestureRecognizers") ~typ:(returning (void)) -let completedPlacementFrom x ~to_ ~forController self = msg_send ~self ~cmd:(selector "completedPlacementFrom:to:forController:") ~typ:(id @-> id @-> id @-> returning (bool)) x to_ forController -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let dock self = msg_send ~self ~cmd:(selector "dock") ~typ:(returning (void)) -let finishTransitionWithCompletion x self = msg_send ~self ~cmd:(selector "finishTransitionWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let generateSplitNotificationForNewPlacement x self = msg_send ~self ~cmd:(selector "generateSplitNotificationForNewPlacement:") ~typ:(id @-> returning (bool)) x -let gestureRecognizer x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning (bool)) x shouldReceiveTouch -let gestureRecognizer' x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRecognizeSimultaneouslyWithGestureRecognizer -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let invalidateDisplayLink self = msg_send ~self ~cmd:(selector "invalidateDisplayLink") ~typ:(returning (void)) -let isSplitting self = msg_send ~self ~cmd:(selector "isSplitting") ~typ:(returning (bool)) -let isTranslating self = msg_send ~self ~cmd:(selector "isTranslating") ~typ:(returning (bool)) -let prepareForTransition self = msg_send ~self ~cmd:(selector "prepareForTransition") ~typ:(returning (void)) -let startedPlacementFrom x ~to_ ~forController self = msg_send ~self ~cmd:(selector "startedPlacementFrom:to:forController:") ~typ:(id @-> id @-> id @-> returning (bool)) x to_ forController -let transitionDidFinish x self = msg_send ~self ~cmd:(selector "transitionDidFinish:") ~typ:(bool @-> returning (void)) x -let translateDetected x self = msg_send ~self ~cmd:(selector "translateDetected:") ~typ:(id @-> returning (void)) x -let undock self = msg_send ~self ~cmd:(selector "undock") ~typ:(returning (void)) -let updateProgress x ~startHeight ~endHeight self = msg_send ~self ~cmd:(selector "updateProgress:startHeight:endHeight:") ~typ:(double @-> double @-> double @-> returning (void)) x startHeight endHeight -let updatedControllerApplicator x self = msg_send ~self ~cmd:(selector "updatedControllerApplicator:") ~typ:(id @-> returning (void)) x -let willPerformPlacementFrom x ~to_ ~forController self = msg_send ~self ~cmd:(selector "willPerformPlacementFrom:to:forController:") ~typ:(id @-> id @-> id @-> returning (void)) x to_ forController \ No newline at end of file +let self = get_class "UISplitKeyboardSupport" + +let bounceAnimationDidFinish self = msg_send ~self ~cmd:(selector "bounceAnimationDidFinish") ~typ:(returning void) +let cancelBounceAnimation self = msg_send ~self ~cmd:(selector "cancelBounceAnimation") ~typ:(returning void) +let cancelGestureRecognizers self = msg_send ~self ~cmd:(selector "cancelGestureRecognizers") ~typ:(returning void) +let completedPlacementFrom x ~to_ ~forController self = msg_send ~self ~cmd:(selector "completedPlacementFrom:to:forController:") ~typ:(id @-> id @-> id @-> returning bool) x to_ forController +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let dock self = msg_send ~self ~cmd:(selector "dock") ~typ:(returning void) +let finishTransitionWithCompletion x self = msg_send ~self ~cmd:(selector "finishTransitionWithCompletion:") ~typ:((ptr void) @-> returning void) x +let generateSplitNotificationForNewPlacement x self = msg_send ~self ~cmd:(selector "generateSplitNotificationForNewPlacement:") ~typ:(id @-> returning bool) x +let gestureRecognizer x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning bool) x shouldReceiveTouch +let gestureRecognizer' x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldRecognizeSimultaneouslyWithGestureRecognizer +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let invalidateDisplayLink self = msg_send ~self ~cmd:(selector "invalidateDisplayLink") ~typ:(returning void) +let isSplitting self = msg_send ~self ~cmd:(selector "isSplitting") ~typ:(returning bool) +let isTranslating self = msg_send ~self ~cmd:(selector "isTranslating") ~typ:(returning bool) +let prepareForTransition self = msg_send ~self ~cmd:(selector "prepareForTransition") ~typ:(returning void) +let startedPlacementFrom x ~to_ ~forController self = msg_send ~self ~cmd:(selector "startedPlacementFrom:to:forController:") ~typ:(id @-> id @-> id @-> returning bool) x to_ forController +let transitionDidFinish x self = msg_send ~self ~cmd:(selector "transitionDidFinish:") ~typ:(bool @-> returning void) x +let translateDetected x self = msg_send ~self ~cmd:(selector "translateDetected:") ~typ:(id @-> returning void) x +let undock self = msg_send ~self ~cmd:(selector "undock") ~typ:(returning void) +let updateProgress x ~startHeight ~endHeight self = msg_send ~self ~cmd:(selector "updateProgress:startHeight:endHeight:") ~typ:(double @-> double @-> double @-> returning void) x startHeight endHeight +let updatedControllerApplicator x self = msg_send ~self ~cmd:(selector "updatedControllerApplicator:") ~typ:(id @-> returning void) x +let willPerformPlacementFrom x ~to_ ~forController self = msg_send ~self ~cmd:(selector "willPerformPlacementFrom:to:forController:") ~typ:(id @-> id @-> id @-> returning void) x to_ forController \ No newline at end of file diff --git a/uikit/UISplitViewController.ml b/uikit/UISplitViewController.ml index 598e65f8..db98e1f3 100644 --- a/uikit/UISplitViewController.ml +++ b/uikit/UISplitViewController.ml @@ -5,140 +5,140 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISplitViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisplitviewcontroller?language=objc}UISplitViewController} *) -module C = struct - let doesOverridePreferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "doesOverridePreferredInterfaceOrientationForPresentation") ~typ:(returning (bool)) -end +let self = get_class "UISplitViewController" -let addChildViewController x self = msg_send ~self ~cmd:(selector "addChildViewController:") ~typ:(id @-> returning (void)) x -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let childViewControllerForStatusBarStyle self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarStyle") ~typ:(returning (id)) -let childViewControllerForTouchBar self = msg_send ~self ~cmd:(selector "childViewControllerForTouchBar") ~typ:(returning (id)) -let composition self = msg_send ~self ~cmd:(selector "composition") ~typ:(returning (llong)) -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) -let currentState self = msg_send ~self ~cmd:(selector "currentState") ~typ:(returning (id)) -let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let detailViewController self = msg_send ~self ~cmd:(selector "detailViewController") ~typ:(returning (id)) -let didMoveToParentViewController x self = msg_send ~self ~cmd:(selector "didMoveToParentViewController:") ~typ:(id @-> returning (void)) x -let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let displayMode self = msg_send ~self ~cmd:(selector "displayMode") ~typ:(returning (llong)) -let displayModeButtonItem self = msg_send ~self ~cmd:(selector "displayModeButtonItem") ~typ:(returning (id)) -let displayModeButtonVisibility self = msg_send ~self ~cmd:(selector "displayModeButtonVisibility") ~typ:(returning (llong)) -let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let gutterWidth self = msg_send ~self ~cmd:(selector "gutterWidth") ~typ:(returning (float)) -let hideColumn x self = msg_send ~self ~cmd:(selector "hideColumn:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let hidesMasterViewInPortrait self = msg_send ~self ~cmd:(selector "hidesMasterViewInPortrait") ~typ:(returning (bool)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithComposition x self = msg_send ~self ~cmd:(selector "initWithComposition:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let initWithStyle x self = msg_send ~self ~cmd:(selector "initWithStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let isCollapsed self = msg_send ~self ~cmd:(selector "isCollapsed") ~typ:(returning (bool)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let masterViewController self = msg_send ~self ~cmd:(selector "masterViewController") ~typ:(returning (id)) -let maximumPrimaryColumnWidth self = msg_send ~self ~cmd:(selector "maximumPrimaryColumnWidth") ~typ:(returning (double)) -let maximumSupplementalColumnWidth self = msg_send ~self ~cmd:(selector "maximumSupplementalColumnWidth") ~typ:(returning (double)) -let maximumSupplementaryColumnWidth self = msg_send ~self ~cmd:(selector "maximumSupplementaryColumnWidth") ~typ:(returning (double)) -let minimumPrimaryColumnWidth self = msg_send ~self ~cmd:(selector "minimumPrimaryColumnWidth") ~typ:(returning (double)) -let minimumSupplementalColumnWidth self = msg_send ~self ~cmd:(selector "minimumSupplementalColumnWidth") ~typ:(returning (double)) -let minimumSupplementaryColumnWidth self = msg_send ~self ~cmd:(selector "minimumSupplementaryColumnWidth") ~typ:(returning (double)) -let possibleStates self = msg_send ~self ~cmd:(selector "possibleStates") ~typ:(returning (id)) -let preferredCenterStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredCenterStatusBarStyle") ~typ:(returning (llong)) -let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning (void)) x -let preferredDisplayMode self = msg_send ~self ~cmd:(selector "preferredDisplayMode") ~typ:(returning (llong)) -let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning (id)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let preferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "preferredInterfaceOrientationForPresentation") ~typ:(returning (llong)) -let preferredLeadingStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredLeadingStatusBarStyle") ~typ:(returning (llong)) -let preferredPrimaryColumnWidth self = msg_send ~self ~cmd:(selector "preferredPrimaryColumnWidth") ~typ:(returning (double)) -let preferredPrimaryColumnWidthFraction self = msg_send ~self ~cmd:(selector "preferredPrimaryColumnWidthFraction") ~typ:(returning (double)) -let preferredSplitBehavior self = msg_send ~self ~cmd:(selector "preferredSplitBehavior") ~typ:(returning (llong)) -let preferredSupplementalColumnWidthFraction self = msg_send ~self ~cmd:(selector "preferredSupplementalColumnWidthFraction") ~typ:(returning (double)) -let preferredSupplementaryColumnWidth self = msg_send ~self ~cmd:(selector "preferredSupplementaryColumnWidth") ~typ:(returning (double)) -let preferredSupplementaryColumnWidthFraction self = msg_send ~self ~cmd:(selector "preferredSupplementaryColumnWidthFraction") ~typ:(returning (double)) -let preferredTrailingStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredTrailingStatusBarStyle") ~typ:(returning (llong)) -let prefersSecondaryOnlyShortcutButtonVisible self = msg_send ~self ~cmd:(selector "prefersSecondaryOnlyShortcutButtonVisible") ~typ:(returning (bool)) -let presentsWithGesture self = msg_send ~self ~cmd:(selector "presentsWithGesture") ~typ:(returning (bool)) -let primaryBackgroundStyle self = msg_send ~self ~cmd:(selector "primaryBackgroundStyle") ~typ:(returning (llong)) -let primaryColumnWidth self = msg_send ~self ~cmd:(selector "primaryColumnWidth") ~typ:(returning (double)) -let primaryEdge self = msg_send ~self ~cmd:(selector "primaryEdge") ~typ:(returning (llong)) -let removeChildViewController x self = msg_send ~self ~cmd:(selector "removeChildViewController:") ~typ:(id @-> returning (void)) x -let removeFromParentViewController self = msg_send ~self ~cmd:(selector "removeFromParentViewController") ~typ:(returning (void)) -let setAutomaticallyAdjustsScrollViewInsets x self = msg_send ~self ~cmd:(selector "setAutomaticallyAdjustsScrollViewInsets:") ~typ:(bool @-> returning (void)) x -let setComposition x self = msg_send ~self ~cmd:(selector "setComposition:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setConfiguration x self = msg_send ~self ~cmd:(selector "setConfiguration:") ~typ:(id @-> returning (void)) x -let setDefinesPresentationContext x self = msg_send ~self ~cmd:(selector "setDefinesPresentationContext:") ~typ:(bool @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDisplayModeButtonVisibility x self = msg_send ~self ~cmd:(selector "setDisplayModeButtonVisibility:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setEdgesForExtendedLayout x self = msg_send ~self ~cmd:(selector "setEdgesForExtendedLayout:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setExtendedLayoutIncludesOpaqueBars x self = msg_send ~self ~cmd:(selector "setExtendedLayoutIncludesOpaqueBars:") ~typ:(bool @-> returning (void)) x -let setGutterWidth x self = msg_send ~self ~cmd:(selector "setGutterWidth:") ~typ:(float @-> returning (void)) x -let setHidesMasterViewInPortrait x self = msg_send ~self ~cmd:(selector "setHidesMasterViewInPortrait:") ~typ:(bool @-> returning (void)) x -let setMaximumPrimaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMaximumPrimaryColumnWidth:") ~typ:(double @-> returning (void)) x -let setMaximumSupplementalColumnWidth x self = msg_send ~self ~cmd:(selector "setMaximumSupplementalColumnWidth:") ~typ:(double @-> returning (void)) x -let setMaximumSupplementaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMaximumSupplementaryColumnWidth:") ~typ:(double @-> returning (void)) x -let setMinimumPrimaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMinimumPrimaryColumnWidth:") ~typ:(double @-> returning (void)) x -let setMinimumSupplementalColumnWidth x self = msg_send ~self ~cmd:(selector "setMinimumSupplementalColumnWidth:") ~typ:(double @-> returning (void)) x -let setMinimumSupplementaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMinimumSupplementaryColumnWidth:") ~typ:(double @-> returning (void)) x -let setModalPresentationCapturesStatusBarAppearance x self = msg_send ~self ~cmd:(selector "setModalPresentationCapturesStatusBarAppearance:") ~typ:(bool @-> returning (void)) x -let setModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setModalPresentationStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setModalTransitionStyle x self = msg_send ~self ~cmd:(selector "setModalTransitionStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setOverrideTraitCollection x self = msg_send ~self ~cmd:(selector "setOverrideTraitCollection:") ~typ:(id @-> returning (void)) x -let setPreferredContentSize x self = msg_send ~self ~cmd:(selector "setPreferredContentSize:") ~typ:(CGSize.t @-> returning (void)) x -let setPreferredDisplayMode x self = msg_send ~self ~cmd:(selector "setPreferredDisplayMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPreferredPrimaryColumnWidth x self = msg_send ~self ~cmd:(selector "setPreferredPrimaryColumnWidth:") ~typ:(double @-> returning (void)) x -let setPreferredPrimaryColumnWidthFraction x self = msg_send ~self ~cmd:(selector "setPreferredPrimaryColumnWidthFraction:") ~typ:(double @-> returning (void)) x -let setPreferredSplitBehavior x self = msg_send ~self ~cmd:(selector "setPreferredSplitBehavior:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPreferredSupplementalColumnWidthFraction x self = msg_send ~self ~cmd:(selector "setPreferredSupplementalColumnWidthFraction:") ~typ:(double @-> returning (void)) x -let setPreferredSupplementaryColumnWidth x self = msg_send ~self ~cmd:(selector "setPreferredSupplementaryColumnWidth:") ~typ:(double @-> returning (void)) x -let setPreferredSupplementaryColumnWidthFraction x self = msg_send ~self ~cmd:(selector "setPreferredSupplementaryColumnWidthFraction:") ~typ:(double @-> returning (void)) x -let setPrefersSecondaryOnlyShortcutButtonVisible x self = msg_send ~self ~cmd:(selector "setPrefersSecondaryOnlyShortcutButtonVisible:") ~typ:(bool @-> returning (void)) x -let setPresentsWithGesture x self = msg_send ~self ~cmd:(selector "setPresentsWithGesture:") ~typ:(bool @-> returning (void)) x -let setPrimaryBackgroundStyle x self = msg_send ~self ~cmd:(selector "setPrimaryBackgroundStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPrimaryEdge x self = msg_send ~self ~cmd:(selector "setPrimaryEdge:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setProvidesPresentationContextTransitionStyle x self = msg_send ~self ~cmd:(selector "setProvidesPresentationContextTransitionStyle:") ~typ:(bool @-> returning (void)) x -let setRestoresFocusAfterTransition x self = msg_send ~self ~cmd:(selector "setRestoresFocusAfterTransition:") ~typ:(bool @-> returning (void)) x -let setShowsFullScreenShortcutButtonIfApplicable x self = msg_send ~self ~cmd:(selector "setShowsFullScreenShortcutButtonIfApplicable:") ~typ:(bool @-> returning (void)) x -let setShowsSecondaryOnlyButton x self = msg_send ~self ~cmd:(selector "setShowsSecondaryOnlyButton:") ~typ:(bool @-> returning (void)) x -let setStateRequest x self = msg_send ~self ~cmd:(selector "setStateRequest:") ~typ:(id @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let setViewController x ~forColumn self = msg_send ~self ~cmd:(selector "setViewController:forColumn:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forColumn) -let setViewControllers x self = msg_send ~self ~cmd:(selector "setViewControllers:") ~typ:(id @-> returning (void)) x -let setViewRespectsSystemMinimumLayoutMargins x self = msg_send ~self ~cmd:(selector "setViewRespectsSystemMinimumLayoutMargins:") ~typ:(bool @-> returning (void)) x -let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning (bool)) x -let showColumn x self = msg_send ~self ~cmd:(selector "showColumn:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let showDetailViewController x ~sender self = msg_send ~self ~cmd:(selector "showDetailViewController:sender:") ~typ:(id @-> id @-> returning (void)) x sender -let showViewController x ~sender self = msg_send ~self ~cmd:(selector "showViewController:sender:") ~typ:(id @-> id @-> returning (void)) x sender -let showsFullScreenShortcutButtonIfApplicable self = msg_send ~self ~cmd:(selector "showsFullScreenShortcutButtonIfApplicable") ~typ:(returning (bool)) -let showsSecondaryOnlyButton self = msg_send ~self ~cmd:(selector "showsSecondaryOnlyButton") ~typ:(returning (bool)) -let sizeForChildContentContainer x ~withParentContainerSize self = msg_send_stret ~self ~cmd:(selector "sizeForChildContentContainer:withParentContainerSize:") ~typ:(id @-> CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x withParentContainerSize -let splitBehavior self = msg_send ~self ~cmd:(selector "splitBehavior") ~typ:(returning (llong)) -let stateRequest self = msg_send ~self ~cmd:(selector "stateRequest") ~typ:(returning (id)) -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let supplementalColumnWidth self = msg_send ~self ~cmd:(selector "supplementalColumnWidth") ~typ:(returning (double)) -let supplementaryColumnWidth self = msg_send ~self ~cmd:(selector "supplementaryColumnWidth") ~typ:(returning (double)) -let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning (ullong)) -let toggleMasterVisible x self = msg_send ~self ~cmd:(selector "toggleMasterVisible:") ~typ:(id @-> returning (void)) x -let toggleSidebar x self = msg_send ~self ~cmd:(selector "toggleSidebar:") ~typ:(id @-> returning (void)) x -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let transitionCoordinator self = msg_send ~self ~cmd:(selector "transitionCoordinator") ~typ:(returning (id)) -let unloadViewForced x self = msg_send ~self ~cmd:(selector "unloadViewForced:") ~typ:(bool @-> returning (void)) x -let validateCommand x self = msg_send ~self ~cmd:(selector "validateCommand:") ~typ:(id @-> returning (void)) x -let validateToolbarItem x self = msg_send ~self ~cmd:(selector "validateToolbarItem:") ~typ:(id @-> returning (bool)) x -let viewControllerForColumn x self = msg_send ~self ~cmd:(selector "viewControllerForColumn:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let viewControllers self = msg_send ~self ~cmd:(selector "viewControllers") ~typ:(returning (id)) -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning (void)) x withTransitionCoordinator -let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning (void)) x withTransitionCoordinator \ No newline at end of file +let addChildViewController x self = msg_send ~self ~cmd:(selector "addChildViewController:") ~typ:(id @-> returning void) x +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let childViewControllerForStatusBarStyle self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarStyle") ~typ:(returning id) +let childViewControllerForTouchBar self = msg_send ~self ~cmd:(selector "childViewControllerForTouchBar") ~typ:(returning id) +let composition self = msg_send ~self ~cmd:(selector "composition") ~typ:(returning llong) +let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning id) +let currentState self = msg_send ~self ~cmd:(selector "currentState") ~typ:(returning id) +let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let detailViewController self = msg_send ~self ~cmd:(selector "detailViewController") ~typ:(returning id) +let didMoveToParentViewController x self = msg_send ~self ~cmd:(selector "didMoveToParentViewController:") ~typ:(id @-> returning void) x +let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let displayMode self = msg_send ~self ~cmd:(selector "displayMode") ~typ:(returning llong) +let displayModeButtonItem self = msg_send ~self ~cmd:(selector "displayModeButtonItem") ~typ:(returning id) +let displayModeButtonVisibility self = msg_send ~self ~cmd:(selector "displayModeButtonVisibility") ~typ:(returning llong) +let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let gutterWidth self = msg_send ~self ~cmd:(selector "gutterWidth") ~typ:(returning float) +let hideColumn x self = msg_send ~self ~cmd:(selector "hideColumn:") ~typ:(llong @-> returning void) (LLong.of_int x) +let hidesMasterViewInPortrait self = msg_send ~self ~cmd:(selector "hidesMasterViewInPortrait") ~typ:(returning bool) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithComposition x self = msg_send ~self ~cmd:(selector "initWithComposition:") ~typ:(llong @-> returning id) (LLong.of_int x) +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let initWithStyle x self = msg_send ~self ~cmd:(selector "initWithStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let isCollapsed self = msg_send ~self ~cmd:(selector "isCollapsed") ~typ:(returning bool) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let masterViewController self = msg_send ~self ~cmd:(selector "masterViewController") ~typ:(returning id) +let maximumPrimaryColumnWidth self = msg_send ~self ~cmd:(selector "maximumPrimaryColumnWidth") ~typ:(returning double) +let maximumSupplementalColumnWidth self = msg_send ~self ~cmd:(selector "maximumSupplementalColumnWidth") ~typ:(returning double) +let maximumSupplementaryColumnWidth self = msg_send ~self ~cmd:(selector "maximumSupplementaryColumnWidth") ~typ:(returning double) +let minimumPrimaryColumnWidth self = msg_send ~self ~cmd:(selector "minimumPrimaryColumnWidth") ~typ:(returning double) +let minimumSupplementalColumnWidth self = msg_send ~self ~cmd:(selector "minimumSupplementalColumnWidth") ~typ:(returning double) +let minimumSupplementaryColumnWidth self = msg_send ~self ~cmd:(selector "minimumSupplementaryColumnWidth") ~typ:(returning double) +let possibleStates self = msg_send ~self ~cmd:(selector "possibleStates") ~typ:(returning id) +let preferredCenterStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredCenterStatusBarStyle") ~typ:(returning llong) +let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning void) x +let preferredDisplayMode self = msg_send ~self ~cmd:(selector "preferredDisplayMode") ~typ:(returning llong) +let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning id) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let preferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "preferredInterfaceOrientationForPresentation") ~typ:(returning llong) +let preferredLeadingStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredLeadingStatusBarStyle") ~typ:(returning llong) +let preferredPrimaryColumnWidth self = msg_send ~self ~cmd:(selector "preferredPrimaryColumnWidth") ~typ:(returning double) +let preferredPrimaryColumnWidthFraction self = msg_send ~self ~cmd:(selector "preferredPrimaryColumnWidthFraction") ~typ:(returning double) +let preferredSplitBehavior self = msg_send ~self ~cmd:(selector "preferredSplitBehavior") ~typ:(returning llong) +let preferredSupplementalColumnWidthFraction self = msg_send ~self ~cmd:(selector "preferredSupplementalColumnWidthFraction") ~typ:(returning double) +let preferredSupplementaryColumnWidth self = msg_send ~self ~cmd:(selector "preferredSupplementaryColumnWidth") ~typ:(returning double) +let preferredSupplementaryColumnWidthFraction self = msg_send ~self ~cmd:(selector "preferredSupplementaryColumnWidthFraction") ~typ:(returning double) +let preferredTrailingStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredTrailingStatusBarStyle") ~typ:(returning llong) +let prefersSecondaryOnlyShortcutButtonVisible self = msg_send ~self ~cmd:(selector "prefersSecondaryOnlyShortcutButtonVisible") ~typ:(returning bool) +let presentsWithGesture self = msg_send ~self ~cmd:(selector "presentsWithGesture") ~typ:(returning bool) +let primaryBackgroundStyle self = msg_send ~self ~cmd:(selector "primaryBackgroundStyle") ~typ:(returning llong) +let primaryColumnWidth self = msg_send ~self ~cmd:(selector "primaryColumnWidth") ~typ:(returning double) +let primaryEdge self = msg_send ~self ~cmd:(selector "primaryEdge") ~typ:(returning llong) +let removeChildViewController x self = msg_send ~self ~cmd:(selector "removeChildViewController:") ~typ:(id @-> returning void) x +let removeFromParentViewController self = msg_send ~self ~cmd:(selector "removeFromParentViewController") ~typ:(returning void) +let setAutomaticallyAdjustsScrollViewInsets x self = msg_send ~self ~cmd:(selector "setAutomaticallyAdjustsScrollViewInsets:") ~typ:(bool @-> returning void) x +let setComposition x self = msg_send ~self ~cmd:(selector "setComposition:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setConfiguration x self = msg_send ~self ~cmd:(selector "setConfiguration:") ~typ:(id @-> returning void) x +let setDefinesPresentationContext x self = msg_send ~self ~cmd:(selector "setDefinesPresentationContext:") ~typ:(bool @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDisplayModeButtonVisibility x self = msg_send ~self ~cmd:(selector "setDisplayModeButtonVisibility:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setEdgesForExtendedLayout x self = msg_send ~self ~cmd:(selector "setEdgesForExtendedLayout:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setExtendedLayoutIncludesOpaqueBars x self = msg_send ~self ~cmd:(selector "setExtendedLayoutIncludesOpaqueBars:") ~typ:(bool @-> returning void) x +let setGutterWidth x self = msg_send ~self ~cmd:(selector "setGutterWidth:") ~typ:(float @-> returning void) x +let setHidesMasterViewInPortrait x self = msg_send ~self ~cmd:(selector "setHidesMasterViewInPortrait:") ~typ:(bool @-> returning void) x +let setMaximumPrimaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMaximumPrimaryColumnWidth:") ~typ:(double @-> returning void) x +let setMaximumSupplementalColumnWidth x self = msg_send ~self ~cmd:(selector "setMaximumSupplementalColumnWidth:") ~typ:(double @-> returning void) x +let setMaximumSupplementaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMaximumSupplementaryColumnWidth:") ~typ:(double @-> returning void) x +let setMinimumPrimaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMinimumPrimaryColumnWidth:") ~typ:(double @-> returning void) x +let setMinimumSupplementalColumnWidth x self = msg_send ~self ~cmd:(selector "setMinimumSupplementalColumnWidth:") ~typ:(double @-> returning void) x +let setMinimumSupplementaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMinimumSupplementaryColumnWidth:") ~typ:(double @-> returning void) x +let setModalPresentationCapturesStatusBarAppearance x self = msg_send ~self ~cmd:(selector "setModalPresentationCapturesStatusBarAppearance:") ~typ:(bool @-> returning void) x +let setModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setModalPresentationStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setModalTransitionStyle x self = msg_send ~self ~cmd:(selector "setModalTransitionStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setOverrideTraitCollection x self = msg_send ~self ~cmd:(selector "setOverrideTraitCollection:") ~typ:(id @-> returning void) x +let setPreferredContentSize x self = msg_send ~self ~cmd:(selector "setPreferredContentSize:") ~typ:(CGSize.t @-> returning void) x +let setPreferredDisplayMode x self = msg_send ~self ~cmd:(selector "setPreferredDisplayMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPreferredPrimaryColumnWidth x self = msg_send ~self ~cmd:(selector "setPreferredPrimaryColumnWidth:") ~typ:(double @-> returning void) x +let setPreferredPrimaryColumnWidthFraction x self = msg_send ~self ~cmd:(selector "setPreferredPrimaryColumnWidthFraction:") ~typ:(double @-> returning void) x +let setPreferredSplitBehavior x self = msg_send ~self ~cmd:(selector "setPreferredSplitBehavior:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPreferredSupplementalColumnWidthFraction x self = msg_send ~self ~cmd:(selector "setPreferredSupplementalColumnWidthFraction:") ~typ:(double @-> returning void) x +let setPreferredSupplementaryColumnWidth x self = msg_send ~self ~cmd:(selector "setPreferredSupplementaryColumnWidth:") ~typ:(double @-> returning void) x +let setPreferredSupplementaryColumnWidthFraction x self = msg_send ~self ~cmd:(selector "setPreferredSupplementaryColumnWidthFraction:") ~typ:(double @-> returning void) x +let setPrefersSecondaryOnlyShortcutButtonVisible x self = msg_send ~self ~cmd:(selector "setPrefersSecondaryOnlyShortcutButtonVisible:") ~typ:(bool @-> returning void) x +let setPresentsWithGesture x self = msg_send ~self ~cmd:(selector "setPresentsWithGesture:") ~typ:(bool @-> returning void) x +let setPrimaryBackgroundStyle x self = msg_send ~self ~cmd:(selector "setPrimaryBackgroundStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPrimaryEdge x self = msg_send ~self ~cmd:(selector "setPrimaryEdge:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setProvidesPresentationContextTransitionStyle x self = msg_send ~self ~cmd:(selector "setProvidesPresentationContextTransitionStyle:") ~typ:(bool @-> returning void) x +let setRestoresFocusAfterTransition x self = msg_send ~self ~cmd:(selector "setRestoresFocusAfterTransition:") ~typ:(bool @-> returning void) x +let setShowsFullScreenShortcutButtonIfApplicable x self = msg_send ~self ~cmd:(selector "setShowsFullScreenShortcutButtonIfApplicable:") ~typ:(bool @-> returning void) x +let setShowsSecondaryOnlyButton x self = msg_send ~self ~cmd:(selector "setShowsSecondaryOnlyButton:") ~typ:(bool @-> returning void) x +let setStateRequest x self = msg_send ~self ~cmd:(selector "setStateRequest:") ~typ:(id @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let setViewController x ~forColumn self = msg_send ~self ~cmd:(selector "setViewController:forColumn:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forColumn) +let setViewControllers x self = msg_send ~self ~cmd:(selector "setViewControllers:") ~typ:(id @-> returning void) x +let setViewRespectsSystemMinimumLayoutMargins x self = msg_send ~self ~cmd:(selector "setViewRespectsSystemMinimumLayoutMargins:") ~typ:(bool @-> returning void) x +let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning bool) x +let showColumn x self = msg_send ~self ~cmd:(selector "showColumn:") ~typ:(llong @-> returning void) (LLong.of_int x) +let showDetailViewController x ~sender self = msg_send ~self ~cmd:(selector "showDetailViewController:sender:") ~typ:(id @-> id @-> returning void) x sender +let showViewController x ~sender self = msg_send ~self ~cmd:(selector "showViewController:sender:") ~typ:(id @-> id @-> returning void) x sender +let showsFullScreenShortcutButtonIfApplicable self = msg_send ~self ~cmd:(selector "showsFullScreenShortcutButtonIfApplicable") ~typ:(returning bool) +let showsSecondaryOnlyButton self = msg_send ~self ~cmd:(selector "showsSecondaryOnlyButton") ~typ:(returning bool) +let sizeForChildContentContainer x ~withParentContainerSize self = msg_send ~self ~cmd:(selector "sizeForChildContentContainer:withParentContainerSize:") ~typ:(id @-> CGSize.t @-> returning CGSize.t) x withParentContainerSize +let splitBehavior self = msg_send ~self ~cmd:(selector "splitBehavior") ~typ:(returning llong) +let stateRequest self = msg_send ~self ~cmd:(selector "stateRequest") ~typ:(returning id) +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let supplementalColumnWidth self = msg_send ~self ~cmd:(selector "supplementalColumnWidth") ~typ:(returning double) +let supplementaryColumnWidth self = msg_send ~self ~cmd:(selector "supplementaryColumnWidth") ~typ:(returning double) +let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning ullong) +let toggleMasterVisible x self = msg_send ~self ~cmd:(selector "toggleMasterVisible:") ~typ:(id @-> returning void) x +let toggleSidebar x self = msg_send ~self ~cmd:(selector "toggleSidebar:") ~typ:(id @-> returning void) x +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let transitionCoordinator self = msg_send ~self ~cmd:(selector "transitionCoordinator") ~typ:(returning id) +let unloadViewForced x self = msg_send ~self ~cmd:(selector "unloadViewForced:") ~typ:(bool @-> returning void) x +let validateCommand x self = msg_send ~self ~cmd:(selector "validateCommand:") ~typ:(id @-> returning void) x +let validateToolbarItem x self = msg_send ~self ~cmd:(selector "validateToolbarItem:") ~typ:(id @-> returning bool) x +let viewControllerForColumn x self = msg_send ~self ~cmd:(selector "viewControllerForColumn:") ~typ:(llong @-> returning id) (LLong.of_int x) +let viewControllers self = msg_send ~self ~cmd:(selector "viewControllers") ~typ:(returning id) +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning void) x withTransitionCoordinator +let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning void) x withTransitionCoordinator \ No newline at end of file diff --git a/uikit/UISplitViewControllerClass.ml b/uikit/UISplitViewControllerClass.ml new file mode 100644 index 00000000..a1949886 --- /dev/null +++ b/uikit/UISplitViewControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisplitviewcontroller?language=objc}UISplitViewController} *) + +let doesOverridePreferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "doesOverridePreferredInterfaceOrientationForPresentation") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UISplitViewControllerClassicImpl.ml b/uikit/UISplitViewControllerClassicImpl.ml deleted file mode 100644 index 94583edf..00000000 --- a/uikit/UISplitViewControllerClassicImpl.ml +++ /dev/null @@ -1,83 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISplitViewControllerClassicImpl" - -let childViewControllerForStatusBarStyle self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarStyle") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let detailViewController self = msg_send ~self ~cmd:(selector "detailViewController") ~typ:(returning (id)) -let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let displayMode self = msg_send ~self ~cmd:(selector "displayMode") ~typ:(returning (llong)) -let displayModeButtonItem self = msg_send ~self ~cmd:(selector "displayModeButtonItem") ~typ:(returning (id)) -let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let gutterWidth self = msg_send ~self ~cmd:(selector "gutterWidth") ~typ:(returning (float)) -let hidesMasterViewInLandscape self = msg_send ~self ~cmd:(selector "hidesMasterViewInLandscape") ~typ:(returning (bool)) -let hidesMasterViewInPortrait self = msg_send ~self ~cmd:(selector "hidesMasterViewInPortrait") ~typ:(returning (bool)) -let inCollapsingToProposedTopColumnCallback self = msg_send ~self ~cmd:(selector "inCollapsingToProposedTopColumnCallback") ~typ:(returning (bool)) -let initWithSplitViewController x self = msg_send ~self ~cmd:(selector "initWithSplitViewController:") ~typ:(id @-> returning (id)) x -let isCollapsed self = msg_send ~self ~cmd:(selector "isCollapsed") ~typ:(returning (bool)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let lockedForDelegateCallback self = msg_send ~self ~cmd:(selector "lockedForDelegateCallback") ~typ:(returning (bool)) -let masterViewController self = msg_send ~self ~cmd:(selector "masterViewController") ~typ:(returning (id)) -let maximumPrimaryColumnWidth self = msg_send ~self ~cmd:(selector "maximumPrimaryColumnWidth") ~typ:(returning (double)) -let minimumPrimaryColumnWidth self = msg_send ~self ~cmd:(selector "minimumPrimaryColumnWidth") ~typ:(returning (double)) -let popoverWillAppear x self = msg_send ~self ~cmd:(selector "popoverWillAppear:") ~typ:(id @-> returning (void)) x -let preferredCenterStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredCenterStatusBarStyle") ~typ:(returning (llong)) -let preferredDisplayMode self = msg_send ~self ~cmd:(selector "preferredDisplayMode") ~typ:(returning (llong)) -let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning (id)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let preferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "preferredInterfaceOrientationForPresentation") ~typ:(returning (llong)) -let preferredLeadingStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredLeadingStatusBarStyle") ~typ:(returning (llong)) -let preferredPrimaryColumnWidthFraction self = msg_send ~self ~cmd:(selector "preferredPrimaryColumnWidthFraction") ~typ:(returning (double)) -let preferredTrailingStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredTrailingStatusBarStyle") ~typ:(returning (llong)) -let prefersOverlayInRegularWidthPhone self = msg_send ~self ~cmd:(selector "prefersOverlayInRegularWidthPhone") ~typ:(returning (bool)) -let presentsWithGesture self = msg_send ~self ~cmd:(selector "presentsWithGesture") ~typ:(returning (bool)) -let primaryBackgroundStyle self = msg_send ~self ~cmd:(selector "primaryBackgroundStyle") ~typ:(returning (llong)) -let primaryColumnWidth self = msg_send ~self ~cmd:(selector "primaryColumnWidth") ~typ:(returning (double)) -let primaryEdge self = msg_send ~self ~cmd:(selector "primaryEdge") ~typ:(returning (llong)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setGutterWidth x self = msg_send ~self ~cmd:(selector "setGutterWidth:") ~typ:(float @-> returning (void)) x -let setHidesMasterViewInPortrait x self = msg_send ~self ~cmd:(selector "setHidesMasterViewInPortrait:") ~typ:(bool @-> returning (void)) x -let setMaximumPrimaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMaximumPrimaryColumnWidth:") ~typ:(double @-> returning (void)) x -let setMinimumPrimaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMinimumPrimaryColumnWidth:") ~typ:(double @-> returning (void)) x -let setPreferredDisplayMode x self = msg_send ~self ~cmd:(selector "setPreferredDisplayMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPreferredPrimaryColumnWidthFraction x self = msg_send ~self ~cmd:(selector "setPreferredPrimaryColumnWidthFraction:") ~typ:(double @-> returning (void)) x -let setPrefersOverlayInRegularWidthPhone x self = msg_send ~self ~cmd:(selector "setPrefersOverlayInRegularWidthPhone:") ~typ:(bool @-> returning (void)) x -let setPresentsWithGesture x self = msg_send ~self ~cmd:(selector "setPresentsWithGesture:") ~typ:(bool @-> returning (void)) x -let setPrimaryBackgroundStyle x self = msg_send ~self ~cmd:(selector "setPrimaryBackgroundStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPrimaryEdge x self = msg_send ~self ~cmd:(selector "setPrimaryEdge:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setUsesDeviceOverlayPreferences x self = msg_send ~self ~cmd:(selector "setUsesDeviceOverlayPreferences:") ~typ:(bool @-> returning (void)) x -let setViewControllers x self = msg_send ~self ~cmd:(selector "setViewControllers:") ~typ:(id @-> returning (void)) x -let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning (bool)) x -let showDetailViewController x ~sender self = msg_send ~self ~cmd:(selector "showDetailViewController:sender:") ~typ:(id @-> id @-> returning (void)) x sender -let showViewController x ~sender self = msg_send ~self ~cmd:(selector "showViewController:sender:") ~typ:(id @-> id @-> returning (void)) x sender -let sizeForChildContentContainer x ~withParentContainerSize self = msg_send_stret ~self ~cmd:(selector "sizeForChildContentContainer:withParentContainerSize:") ~typ:(id @-> CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x withParentContainerSize -let snapshotAllViews self = msg_send ~self ~cmd:(selector "snapshotAllViews") ~typ:(returning (void)) -let snapshotForRotationFromInterfaceOrientation x ~toInterfaceOrientation ~masterChange self = msg_send ~self ~cmd:(selector "snapshotForRotationFromInterfaceOrientation:toInterfaceOrientation:masterChange:") ~typ:(llong @-> llong @-> llong @-> returning (void)) (LLong.of_int x) (LLong.of_int toInterfaceOrientation) (LLong.of_int masterChange) -let snapshotMasterView self = msg_send ~self ~cmd:(selector "snapshotMasterView") ~typ:(returning (void)) -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning (ullong)) -let toggleMasterVisible x self = msg_send ~self ~cmd:(selector "toggleMasterVisible:") ~typ:(id @-> returning (void)) x -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let unloadViewForced x self = msg_send ~self ~cmd:(selector "unloadViewForced:") ~typ:(bool @-> returning (void)) x -let usesDeviceOverlayPreferences self = msg_send ~self ~cmd:(selector "usesDeviceOverlayPreferences") ~typ:(returning (bool)) -let viewControllers self = msg_send ~self ~cmd:(selector "viewControllers") ~typ:(returning (id)) -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning (void)) x withTransitionCoordinator -let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning (void)) x withTransitionCoordinator \ No newline at end of file diff --git a/uikit/UISplitViewControllerDisplayModeBarButtonItem.ml b/uikit/UISplitViewControllerDisplayModeBarButtonItem.ml deleted file mode 100644 index 67de9199..00000000 --- a/uikit/UISplitViewControllerDisplayModeBarButtonItem.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISplitViewControllerDisplayModeBarButtonItem" - -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (_SEL)) -let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UISplitViewControllerPanelImpl.ml b/uikit/UISplitViewControllerPanelImpl.ml deleted file mode 100644 index 2203cbd9..00000000 --- a/uikit/UISplitViewControllerPanelImpl.ml +++ /dev/null @@ -1,164 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISplitViewControllerPanelImpl" - -let allowedDisplayModeForCurrentSplitBehaviorGivenDisplayMode x self = msg_send ~self ~cmd:(selector "allowedDisplayModeForCurrentSplitBehaviorGivenDisplayMode:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let allowsSecondaryOnlyShortcutButton self = msg_send ~self ~cmd:(selector "allowsSecondaryOnlyShortcutButton") ~typ:(returning (bool)) -let animateToRequest x self = msg_send ~self ~cmd:(selector "animateToRequest:") ~typ:(id @-> returning (void)) x -let callDeprecatedWillHideDelegateCallbackIfNecessary self = msg_send ~self ~cmd:(selector "callDeprecatedWillHideDelegateCallbackIfNecessary") ~typ:(returning (void)) -let callDeprecatedWillShowDelegateCallbackIfNecessary self = msg_send ~self ~cmd:(selector "callDeprecatedWillShowDelegateCallbackIfNecessary") ~typ:(returning (void)) -let childViewControllerForStatusBarStyle self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarStyle") ~typ:(returning (id)) -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) -let currentState self = msg_send ~self ~cmd:(selector "currentState") ~typ:(returning (id)) -let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let defaultDisplayModeForSize x self = msg_send ~self ~cmd:(selector "defaultDisplayModeForSize:") ~typ:(CGSize.t @-> returning (llong)) x -let defaultDisplayModeForSplitBehavior x self = msg_send ~self ~cmd:(selector "defaultDisplayModeForSplitBehavior:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let detailViewController self = msg_send ~self ~cmd:(selector "detailViewController") ~typ:(returning (id)) -let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let dimmingViewWasTapped x self = msg_send ~self ~cmd:(selector "dimmingViewWasTapped:") ~typ:(id @-> returning (void)) x -let displayMode self = msg_send ~self ~cmd:(selector "displayMode") ~typ:(returning (llong)) -let displayModeButtonItem self = msg_send ~self ~cmd:(selector "displayModeButtonItem") ~typ:(returning (id)) -let displayModeButtonVisibility self = msg_send ~self ~cmd:(selector "displayModeButtonVisibility") ~typ:(returning (llong)) -let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let gestureRecognizer x ~shouldBeRequiredToFailByGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldBeRequiredToFailByGestureRecognizer -let gestureRecognizer1 x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning (bool)) x shouldReceiveTouch -let gestureRecognizer2 x ~shouldRequireFailureOfGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRequireFailureOfGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRequireFailureOfGestureRecognizer -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let getPrimaryColumnWidth x ~supplementaryColumnWidth ~forSize ~displayMode ~shouldUseOverlay self = msg_send ~self ~cmd:(selector "getPrimaryColumnWidth:supplementaryColumnWidth:forSize:displayMode:shouldUseOverlay:") ~typ:(ptr (double) @-> ptr (double) @-> CGSize.t @-> llong @-> bool @-> returning (void)) x supplementaryColumnWidth forSize (LLong.of_int displayMode) shouldUseOverlay -let getPrimaryColumnWidth' x ~supplementaryColumnWidth ~forSize ~displayMode ~isCompact ~shouldUseOverlay self = msg_send ~self ~cmd:(selector "getPrimaryColumnWidth:supplementaryColumnWidth:forSize:displayMode:isCompact:shouldUseOverlay:") ~typ:(ptr (double) @-> ptr (double) @-> CGSize.t @-> llong @-> bool @-> bool @-> returning (void)) x supplementaryColumnWidth forSize (LLong.of_int displayMode) isCompact shouldUseOverlay -let gutterWidth self = msg_send ~self ~cmd:(selector "gutterWidth") ~typ:(returning (float)) -let hideColumn x self = msg_send ~self ~cmd:(selector "hideColumn:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let hidesMasterViewInPortrait self = msg_send ~self ~cmd:(selector "hidesMasterViewInPortrait") ~typ:(returning (bool)) -let inCollapsingToProposedTopColumnCallback self = msg_send ~self ~cmd:(selector "inCollapsingToProposedTopColumnCallback") ~typ:(returning (bool)) -let initWithSplitViewController x self = msg_send ~self ~cmd:(selector "initWithSplitViewController:") ~typ:(id @-> returning (id)) x -let isCollapsed self = msg_send ~self ~cmd:(selector "isCollapsed") ~typ:(returning (bool)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let lockedForDelegateCallback self = msg_send ~self ~cmd:(selector "lockedForDelegateCallback") ~typ:(returning (bool)) -let masterViewController self = msg_send ~self ~cmd:(selector "masterViewController") ~typ:(returning (id)) -let maximumPrimaryColumnWidth self = msg_send ~self ~cmd:(selector "maximumPrimaryColumnWidth") ~typ:(returning (double)) -let maximumSupplementaryColumnWidth self = msg_send ~self ~cmd:(selector "maximumSupplementaryColumnWidth") ~typ:(returning (double)) -let minimumPrimaryColumnWidth self = msg_send ~self ~cmd:(selector "minimumPrimaryColumnWidth") ~typ:(returning (double)) -let minimumSupplementaryColumnWidth self = msg_send ~self ~cmd:(selector "minimumSupplementaryColumnWidth") ~typ:(returning (double)) -let panelController self = msg_send ~self ~cmd:(selector "panelController") ~typ:(returning (id)) -let panelController1 x ~collapseOntoPrimaryViewController self = msg_send ~self ~cmd:(selector "panelController:collapseOntoPrimaryViewController:") ~typ:(id @-> id @-> returning (bool)) x collapseOntoPrimaryViewController -let panelController2 x ~didEndAnimatedTransitionToStateRequest self = msg_send ~self ~cmd:(selector "panelController:didEndAnimatedTransitionToStateRequest:") ~typ:(id @-> id @-> returning (void)) x didEndAnimatedTransitionToStateRequest -let panelController3 x ~didEndResizingColumn self = msg_send ~self ~cmd:(selector "panelController:didEndResizingColumn:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int didEndResizingColumn) -let panelController4 x ~expectedWidthForColumnForViewController self = msg_send ~self ~cmd:(selector "panelController:expectedWidthForColumnForViewController:") ~typ:(id @-> id @-> returning (double)) x expectedWidthForColumnForViewController -let panelController5 x ~navigationBarForViewController self = msg_send ~self ~cmd:(selector "panelController:navigationBarForViewController:") ~typ:(id @-> id @-> returning (id)) x navigationBarForViewController -let panelController6 x ~separateSecondaryViewControllerFromPrimaryViewController self = msg_send ~self ~cmd:(selector "panelController:separateSecondaryViewControllerFromPrimaryViewController:") ~typ:(id @-> id @-> returning (id)) x separateSecondaryViewControllerFromPrimaryViewController -let panelController7 x ~separateSupplementaryViewControllerFromPrimaryViewController self = msg_send ~self ~cmd:(selector "panelController:separateSupplementaryViewControllerFromPrimaryViewController:") ~typ:(id @-> id @-> returning (id)) x separateSupplementaryViewControllerFromPrimaryViewController -let panelController8 x ~unspecifiedStyleSeparateSecondaryViewControllerFromPrimaryViewController self = msg_send ~self ~cmd:(selector "panelController:unspecifiedStyleSeparateSecondaryViewControllerFromPrimaryViewController:") ~typ:(id @-> id @-> returning (id)) x unspecifiedStyleSeparateSecondaryViewControllerFromPrimaryViewController -let panelController9 x ~willBeginResizingColumn self = msg_send ~self ~cmd:(selector "panelController:willBeginResizingColumn:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int willBeginResizingColumn) -let panelController10 x ~willChangeToState self = msg_send ~self ~cmd:(selector "panelController:willChangeToState:") ~typ:(id @-> id @-> returning (void)) x willChangeToState -let panelController11 x ~adjustLeadingViewController ~forKeyboardInfo self = msg_send ~self ~cmd:(selector "panelController:adjustLeadingViewController:forKeyboardInfo:") ~typ:(id @-> id @-> id @-> returning (void)) x adjustLeadingViewController forKeyboardInfo -let panelController12 x ~adjustTrailingViewController ~forKeyboardInfo self = msg_send ~self ~cmd:(selector "panelController:adjustTrailingViewController:forKeyboardInfo:") ~typ:(id @-> id @-> id @-> returning (void)) x adjustTrailingViewController forKeyboardInfo -let panelController13 x ~didChangeToState ~withSize self = msg_send ~self ~cmd:(selector "panelController:didChangeToState:withSize:") ~typ:(id @-> id @-> CGSize.t @-> returning (void)) x didChangeToState withSize -let panelController14 x ~requestResizeColumn ~toWidth self = msg_send ~self ~cmd:(selector "panelController:requestResizeColumn:toWidth:") ~typ:(id @-> llong @-> double @-> returning (void)) x (LLong.of_int requestResizeColumn) toWidth -let panelController15 x ~animateTransitionToStateRequest ~predictedEndState ~predictedDuration self = msg_send ~self ~cmd:(selector "panelController:animateTransitionToStateRequest:predictedEndState:predictedDuration:") ~typ:(id @-> id @-> id @-> double @-> returning (void)) x animateTransitionToStateRequest predictedEndState predictedDuration -let panelController16 x ~collapsePrimaryViewController ~withFallbackSecondaryViewController ~transitionCoordinator self = msg_send ~self ~cmd:(selector "panelController:collapsePrimaryViewController:withFallbackSecondaryViewController:transitionCoordinator:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x collapsePrimaryViewController withFallbackSecondaryViewController transitionCoordinator -let panelController17 x ~willBeginAnimatedTransitionToStateRequest ~predictedEndState ~predictedDuration self = msg_send ~self ~cmd:(selector "panelController:willBeginAnimatedTransitionToStateRequest:predictedEndState:predictedDuration:") ~typ:(id @-> id @-> id @-> double @-> returning (void)) x willBeginAnimatedTransitionToStateRequest predictedEndState predictedDuration -let panelController18 x ~willBeginAnimationToPrimarySize ~supplementarySize ~secondarySize self = msg_send ~self ~cmd:(selector "panelController:willBeginAnimationToPrimarySize:supplementarySize:secondarySize:") ~typ:(id @-> CGSize.t @-> CGSize.t @-> CGSize.t @-> returning (void)) x willBeginAnimationToPrimarySize supplementarySize secondarySize -let panelController19 x ~collapsePrimaryViewController ~withFallbackSecondaryViewController ~onTopOfSupplementaryViewController ~transitionCoordinator self = msg_send ~self ~cmd:(selector "panelController:collapsePrimaryViewController:withFallbackSecondaryViewController:onTopOfSupplementaryViewController:transitionCoordinator:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (bool)) x collapsePrimaryViewController withFallbackSecondaryViewController onTopOfSupplementaryViewController transitionCoordinator -let panelControllerDidCollapse x self = msg_send ~self ~cmd:(selector "panelControllerDidCollapse:") ~typ:(id @-> returning (void)) x -let panelControllerDidExpand x self = msg_send ~self ~cmd:(selector "panelControllerDidExpand:") ~typ:(id @-> returning (void)) x -let panelControllerWillUpdate x self = msg_send ~self ~cmd:(selector "panelControllerWillUpdate:") ~typ:(id @-> returning (ptr void)) x -let possibleStates self = msg_send ~self ~cmd:(selector "possibleStates") ~typ:(returning (id)) -let preferredCenterStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredCenterStatusBarStyle") ~typ:(returning (llong)) -let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning (void)) x -let preferredDisplayMode self = msg_send ~self ~cmd:(selector "preferredDisplayMode") ~typ:(returning (llong)) -let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning (id)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let preferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "preferredInterfaceOrientationForPresentation") ~typ:(returning (llong)) -let preferredLeadingStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredLeadingStatusBarStyle") ~typ:(returning (llong)) -let preferredPrimaryColumnWidth self = msg_send ~self ~cmd:(selector "preferredPrimaryColumnWidth") ~typ:(returning (double)) -let preferredPrimaryColumnWidthFraction self = msg_send ~self ~cmd:(selector "preferredPrimaryColumnWidthFraction") ~typ:(returning (double)) -let preferredSplitBehavior self = msg_send ~self ~cmd:(selector "preferredSplitBehavior") ~typ:(returning (llong)) -let preferredSupplementaryColumnWidth self = msg_send ~self ~cmd:(selector "preferredSupplementaryColumnWidth") ~typ:(returning (double)) -let preferredSupplementaryColumnWidthFraction self = msg_send ~self ~cmd:(selector "preferredSupplementaryColumnWidthFraction") ~typ:(returning (double)) -let preferredTrailingStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredTrailingStatusBarStyle") ~typ:(returning (llong)) -let prefersOverlayInRegularWidthPhone self = msg_send ~self ~cmd:(selector "prefersOverlayInRegularWidthPhone") ~typ:(returning (bool)) -let preparePanelControllerForCollapse self = msg_send ~self ~cmd:(selector "preparePanelControllerForCollapse") ~typ:(returning (void)) -let presentsWithGesture self = msg_send ~self ~cmd:(selector "presentsWithGesture") ~typ:(returning (bool)) -let primaryBackgroundStyle self = msg_send ~self ~cmd:(selector "primaryBackgroundStyle") ~typ:(returning (llong)) -let primaryColumnWidth self = msg_send ~self ~cmd:(selector "primaryColumnWidth") ~typ:(returning (double)) -let primaryEdge self = msg_send ~self ~cmd:(selector "primaryEdge") ~typ:(returning (llong)) -let primaryViewControllerForCollapsingPanelController x self = msg_send ~self ~cmd:(selector "primaryViewControllerForCollapsingPanelController:") ~typ:(id @-> returning (id)) x -let primaryViewControllerForExpandingPanelController x self = msg_send ~self ~cmd:(selector "primaryViewControllerForExpandingPanelController:") ~typ:(id @-> returning (id)) x -let removeChildViewController x self = msg_send ~self ~cmd:(selector "removeChildViewController:") ~typ:(id @-> returning (void)) x -let sendColumnShowHideNotificationsForNewState x ~newDisplayMode ~oldDisplayMode self = msg_send ~self ~cmd:(selector "sendColumnShowHideNotificationsForNewState:newDisplayMode:oldDisplayMode:") ~typ:(id @-> llong @-> llong @-> returning (void)) x (LLong.of_int newDisplayMode) (LLong.of_int oldDisplayMode) -let sendWillHideColumn x self = msg_send ~self ~cmd:(selector "sendWillHideColumn:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let sendWillShowColumn x self = msg_send ~self ~cmd:(selector "sendWillShowColumn:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setConfiguration x self = msg_send ~self ~cmd:(selector "setConfiguration:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDisplayModeButtonVisibility x self = msg_send ~self ~cmd:(selector "setDisplayModeButtonVisibility:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setGutterWidth x self = msg_send ~self ~cmd:(selector "setGutterWidth:") ~typ:(float @-> returning (void)) x -let setHidesMasterViewInPortrait x self = msg_send ~self ~cmd:(selector "setHidesMasterViewInPortrait:") ~typ:(bool @-> returning (void)) x -let setMaximumPrimaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMaximumPrimaryColumnWidth:") ~typ:(double @-> returning (void)) x -let setMaximumSupplementaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMaximumSupplementaryColumnWidth:") ~typ:(double @-> returning (void)) x -let setMinimumPrimaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMinimumPrimaryColumnWidth:") ~typ:(double @-> returning (void)) x -let setMinimumSupplementaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMinimumSupplementaryColumnWidth:") ~typ:(double @-> returning (void)) x -let setPanelController x self = msg_send ~self ~cmd:(selector "setPanelController:") ~typ:(id @-> returning (void)) x -let setPreferredDisplayMode x self = msg_send ~self ~cmd:(selector "setPreferredDisplayMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPreferredPrimaryColumnWidth x self = msg_send ~self ~cmd:(selector "setPreferredPrimaryColumnWidth:") ~typ:(double @-> returning (void)) x -let setPreferredPrimaryColumnWidthFraction x self = msg_send ~self ~cmd:(selector "setPreferredPrimaryColumnWidthFraction:") ~typ:(double @-> returning (void)) x -let setPreferredSplitBehavior x self = msg_send ~self ~cmd:(selector "setPreferredSplitBehavior:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPreferredSupplementaryColumnWidth x self = msg_send ~self ~cmd:(selector "setPreferredSupplementaryColumnWidth:") ~typ:(double @-> returning (void)) x -let setPreferredSupplementaryColumnWidthFraction x self = msg_send ~self ~cmd:(selector "setPreferredSupplementaryColumnWidthFraction:") ~typ:(double @-> returning (void)) x -let setPrefersOverlayInRegularWidthPhone x self = msg_send ~self ~cmd:(selector "setPrefersOverlayInRegularWidthPhone:") ~typ:(bool @-> returning (void)) x -let setPresentsWithGesture x self = msg_send ~self ~cmd:(selector "setPresentsWithGesture:") ~typ:(bool @-> returning (void)) x -let setPrimaryBackgroundStyle x self = msg_send ~self ~cmd:(selector "setPrimaryBackgroundStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPrimaryEdge x self = msg_send ~self ~cmd:(selector "setPrimaryEdge:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShowsSecondaryOnlyButton x self = msg_send ~self ~cmd:(selector "setShowsSecondaryOnlyButton:") ~typ:(bool @-> returning (void)) x -let setStateRequest x self = msg_send ~self ~cmd:(selector "setStateRequest:") ~typ:(id @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setUserGeneratedDisplayMode x self = msg_send ~self ~cmd:(selector "setUserGeneratedDisplayMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setUsesDeviceOverlayPreferences x self = msg_send ~self ~cmd:(selector "setUsesDeviceOverlayPreferences:") ~typ:(bool @-> returning (void)) x -let setViewController x ~forColumn self = msg_send ~self ~cmd:(selector "setViewController:forColumn:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forColumn) -let setViewControllers x self = msg_send ~self ~cmd:(selector "setViewControllers:") ~typ:(id @-> returning (void)) x -let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning (bool)) x -let showColumn x self = msg_send ~self ~cmd:(selector "showColumn:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let showDetailViewController x ~sender self = msg_send ~self ~cmd:(selector "showDetailViewController:sender:") ~typ:(id @-> id @-> returning (void)) x sender -let showViewController x ~sender self = msg_send ~self ~cmd:(selector "showViewController:sender:") ~typ:(id @-> id @-> returning (void)) x sender -let showsSecondaryOnlyButton self = msg_send ~self ~cmd:(selector "showsSecondaryOnlyButton") ~typ:(returning (bool)) -let sidebarBlurEffectForPanelController x self = msg_send ~self ~cmd:(selector "sidebarBlurEffectForPanelController:") ~typ:(id @-> returning (id)) x -let sizeForChildContentContainer x ~withParentContainerSize self = msg_send_stret ~self ~cmd:(selector "sizeForChildContentContainer:withParentContainerSize:") ~typ:(id @-> CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x withParentContainerSize -let splitBehavior self = msg_send ~self ~cmd:(selector "splitBehavior") ~typ:(returning (llong)) -let splitBehaviorForSize x self = msg_send ~self ~cmd:(selector "splitBehaviorForSize:") ~typ:(CGSize.t @-> returning (llong)) x -let splitBehaviorInCurrentEnvironment self = msg_send ~self ~cmd:(selector "splitBehaviorInCurrentEnvironment") ~typ:(returning (llong)) -let stateRequest self = msg_send ~self ~cmd:(selector "stateRequest") ~typ:(returning (id)) -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let supplementaryColumnWidth self = msg_send ~self ~cmd:(selector "supplementaryColumnWidth") ~typ:(returning (double)) -let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning (ullong)) -let toggleMasterVisible x self = msg_send ~self ~cmd:(selector "toggleMasterVisible:") ~typ:(id @-> returning (void)) x -let topColumnForCollapsingPanelController x self = msg_send ~self ~cmd:(selector "topColumnForCollapsingPanelController:") ~typ:(id @-> returning (llong)) x -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let transitionCoordinator self = msg_send ~self ~cmd:(selector "transitionCoordinator") ~typ:(returning (id)) -let unloadViewForced x self = msg_send ~self ~cmd:(selector "unloadViewForced:") ~typ:(bool @-> returning (void)) x -let updateDisplayModeButtonItem self = msg_send ~self ~cmd:(selector "updateDisplayModeButtonItem") ~typ:(returning (void)) -let updatePanelControllerForViewControllerChangeInColumn x self = msg_send ~self ~cmd:(selector "updatePanelControllerForViewControllerChangeInColumn:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let updatePanelControllerForViewControllerChangeInColumn' x ~alwaysAnimate self = msg_send ~self ~cmd:(selector "updatePanelControllerForViewControllerChangeInColumn:alwaysAnimate:") ~typ:(llong @-> bool @-> returning (void)) (LLong.of_int x) alwaysAnimate -let userGeneratedDisplayMode self = msg_send ~self ~cmd:(selector "userGeneratedDisplayMode") ~typ:(returning (llong)) -let usesDeviceOverlayPreferences self = msg_send ~self ~cmd:(selector "usesDeviceOverlayPreferences") ~typ:(returning (bool)) -let validDisplayModeWithAllColumns self = msg_send ~self ~cmd:(selector "validDisplayModeWithAllColumns") ~typ:(returning (llong)) -let viewClassForPanelController x self = msg_send ~self ~cmd:(selector "viewClassForPanelController:") ~typ:(id @-> returning (_Class)) x -let viewControllerForColumn x self = msg_send ~self ~cmd:(selector "viewControllerForColumn:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let viewControllers self = msg_send ~self ~cmd:(selector "viewControllers") ~typ:(returning (id)) -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning (void)) x withTransitionCoordinator -let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning (void)) x withTransitionCoordinator \ No newline at end of file diff --git a/uikit/UISplitViewControllerPartitionAdapter.ml b/uikit/UISplitViewControllerPartitionAdapter.ml index 4a7e1150..31454c68 100644 --- a/uikit/UISplitViewControllerPartitionAdapter.ml +++ b/uikit/UISplitViewControllerPartitionAdapter.ml @@ -5,19 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISplitViewControllerPartitionAdapter" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisplitviewcontrollerpartitionadapter?language=objc}UISplitViewControllerPartitionAdapter} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let depthOfView self = msg_send ~self ~cmd:(selector "depthOfView") ~typ:(returning (llong)) -let dividerWidth self = msg_send ~self ~cmd:(selector "dividerWidth") ~typ:(returning (double)) -let initWithSplitViewController x ~splitViewColumn self = msg_send ~self ~cmd:(selector "initWithSplitViewController:splitViewColumn:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int splitViewColumn) -let isCollapsed self = msg_send ~self ~cmd:(selector "isCollapsed") ~typ:(returning (bool)) -let minimumDividerPosition self = msg_send ~self ~cmd:(selector "minimumDividerPosition") ~typ:(returning (double)) -let representedView self = msg_send ~self ~cmd:(selector "representedView") ~typ:(returning (id)) -let setSidebarAdditionalSafeAreaInsets x self = msg_send ~self ~cmd:(selector "setSidebarAdditionalSafeAreaInsets:") ~typ:(ptr void @-> returning (void)) x -let sidebarDividerPosition self = msg_send ~self ~cmd:(selector "sidebarDividerPosition") ~typ:(returning (double)) -let splitViewColumn self = msg_send ~self ~cmd:(selector "splitViewColumn") ~typ:(returning (llong)) -let splitViewController self = msg_send ~self ~cmd:(selector "splitViewController") ~typ:(returning (id)) -let toggleSidebar x self = msg_send ~self ~cmd:(selector "toggleSidebar:") ~typ:(id @-> returning (void)) x -let validateToolbarItem x self = msg_send ~self ~cmd:(selector "validateToolbarItem:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let self = get_class "UISplitViewControllerPartitionAdapter" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let depthOfView self = msg_send ~self ~cmd:(selector "depthOfView") ~typ:(returning llong) +let dividerWidth self = msg_send ~self ~cmd:(selector "dividerWidth") ~typ:(returning double) +let initWithSplitViewController x ~splitViewColumn self = msg_send ~self ~cmd:(selector "initWithSplitViewController:splitViewColumn:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int splitViewColumn) +let isCollapsed self = msg_send ~self ~cmd:(selector "isCollapsed") ~typ:(returning bool) +let minimumDividerPosition self = msg_send ~self ~cmd:(selector "minimumDividerPosition") ~typ:(returning double) +let representedView self = msg_send ~self ~cmd:(selector "representedView") ~typ:(returning id) +let setSidebarAdditionalSafeAreaInsets x self = msg_send ~self ~cmd:(selector "setSidebarAdditionalSafeAreaInsets:") ~typ:(NSEdgeInsets.t @-> returning void) x +let sidebarAdditionalSafeAreaInsets self = msg_send ~self ~cmd:(selector "sidebarAdditionalSafeAreaInsets") ~typ:(returning NSEdgeInsets.t) +let sidebarDividerPosition self = msg_send ~self ~cmd:(selector "sidebarDividerPosition") ~typ:(returning double) +let splitViewColumn self = msg_send ~self ~cmd:(selector "splitViewColumn") ~typ:(returning llong) +let splitViewController self = msg_send ~self ~cmd:(selector "splitViewController") ~typ:(returning id) +let toggleSidebar x self = msg_send ~self ~cmd:(selector "toggleSidebar:") ~typ:(id @-> returning void) x +let validateToolbarItem x self = msg_send ~self ~cmd:(selector "validateToolbarItem:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UISplitViewControllerSeparatorTrackingAdapter.ml b/uikit/UISplitViewControllerSeparatorTrackingAdapter.ml deleted file mode 100644 index 5498ad8e..00000000 --- a/uikit/UISplitViewControllerSeparatorTrackingAdapter.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISplitViewControllerSeparatorTrackingAdapter" - -let initWithSplitViewController x self = msg_send ~self ~cmd:(selector "initWithSplitViewController:") ~typ:(id @-> returning (id)) x -let isSidebar self = msg_send ~self ~cmd:(selector "isSidebar") ~typ:(returning (bool)) -let setSplitViewController x self = msg_send ~self ~cmd:(selector "setSplitViewController:") ~typ:(id @-> returning (void)) x -let splitFrame self = msg_send_stret ~self ~cmd:(selector "splitFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let splitViewController self = msg_send ~self ~cmd:(selector "splitViewController") ~typ:(returning (id)) -let titlebarSeparatorStyle self = msg_send ~self ~cmd:(selector "titlebarSeparatorStyle") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit/UISpringLoadedGestureRecognizer.ml b/uikit/UISpringLoadedGestureRecognizer.ml index 6770d594..09e7e1ea 100644 --- a/uikit/UISpringLoadedGestureRecognizer.ml +++ b/uikit/UISpringLoadedGestureRecognizer.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISpringLoadedGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uispringloadedgesturerecognizer?language=objc}UISpringLoadedGestureRecognizer} *) -let canBePreventedByGestureRecognizer x self = msg_send ~self ~cmd:(selector "canBePreventedByGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let shouldReceiveEvent x self = msg_send ~self ~cmd:(selector "shouldReceiveEvent:") ~typ:(id @-> returning (bool)) x -let spring self = msg_send ~self ~cmd:(selector "spring") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UISpringLoadedGestureRecognizer" + +let canBePreventedByGestureRecognizer x self = msg_send ~self ~cmd:(selector "canBePreventedByGestureRecognizer:") ~typ:(id @-> returning bool) x +let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning bool) x +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let shouldReceiveEvent x self = msg_send ~self ~cmd:(selector "shouldReceiveEvent:") ~typ:(id @-> returning bool) x +let spring self = msg_send ~self ~cmd:(selector "spring") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UISpringLoadedInteraction.ml b/uikit/UISpringLoadedInteraction.ml index a7176ed6..ac3fa689 100644 --- a/uikit/UISpringLoadedInteraction.ml +++ b/uikit/UISpringLoadedInteraction.ml @@ -5,28 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISpringLoadedInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uispringloadedinteraction?language=objc}UISpringLoadedInteraction} *) -module C = struct - let hysteresisBehaviorWithBeginningVelocity x ~cancelingVelocity self = msg_send ~self ~cmd:(selector "hysteresisBehaviorWithBeginningVelocity:cancelingVelocity:") ~typ:(double @-> double @-> returning (id)) x cancelingVelocity - let springLoadedInteractionWithHandler x self = msg_send ~self ~cmd:(selector "springLoadedInteractionWithHandler:") ~typ:(ptr void @-> returning (id)) x -end +let self = get_class "UISpringLoadedInteraction" -let activateAction self = msg_send ~self ~cmd:(selector "activateAction") ~typ:(returning (id)) -let context self = msg_send ~self ~cmd:(selector "context") ~typ:(returning (id)) -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let emphasizeAction self = msg_send ~self ~cmd:(selector "emphasizeAction") ~typ:(returning (id)) +let activateAction self = msg_send ~self ~cmd:(selector "activateAction") ~typ:(returning id) +let context self = msg_send ~self ~cmd:(selector "context") ~typ:(returning id) +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let emphasizeAction self = msg_send ~self ~cmd:(selector "emphasizeAction") ~typ:(returning id) let handler self = msg_send ~self ~cmd:(selector "handler") ~typ:(returning (ptr void)) -let initWithActivationHandler x self = msg_send ~self ~cmd:(selector "initWithActivationHandler:") ~typ:(ptr void @-> returning (id)) x -let initWithInteractionBehavior x ~interactionEffect ~activationHandler self = msg_send ~self ~cmd:(selector "initWithInteractionBehavior:interactionEffect:activationHandler:") ~typ:(id @-> id @-> ptr void @-> returning (id)) x interactionEffect activationHandler -let interactionBehavior self = msg_send ~self ~cmd:(selector "interactionBehavior") ~typ:(returning (id)) -let interactionEffect self = msg_send ~self ~cmd:(selector "interactionEffect") ~typ:(returning (id)) -let setActivateAction x self = msg_send ~self ~cmd:(selector "setActivateAction:") ~typ:(id @-> returning (void)) x -let setContext x self = msg_send ~self ~cmd:(selector "setContext:") ~typ:(id @-> returning (void)) x -let setEmphasizeAction x self = msg_send ~self ~cmd:(selector "setEmphasizeAction:") ~typ:(id @-> returning (void)) x -let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:(ptr void @-> returning (void)) x -let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let initWithActivationHandler x self = msg_send ~self ~cmd:(selector "initWithActivationHandler:") ~typ:((ptr void) @-> returning id) x +let initWithInteractionBehavior x ~interactionEffect ~activationHandler self = msg_send ~self ~cmd:(selector "initWithInteractionBehavior:interactionEffect:activationHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning id) x interactionEffect activationHandler +let interactionBehavior self = msg_send ~self ~cmd:(selector "interactionBehavior") ~typ:(returning id) +let interactionEffect self = msg_send ~self ~cmd:(selector "interactionEffect") ~typ:(returning id) +let setActivateAction x self = msg_send ~self ~cmd:(selector "setActivateAction:") ~typ:(id @-> returning void) x +let setContext x self = msg_send ~self ~cmd:(selector "setContext:") ~typ:(id @-> returning void) x +let setEmphasizeAction x self = msg_send ~self ~cmd:(selector "setEmphasizeAction:") ~typ:(id @-> returning void) x +let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:((ptr void) @-> returning void) x +let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UISpringLoadedInteractionClass.ml b/uikit/UISpringLoadedInteractionClass.ml new file mode 100644 index 00000000..b16a360b --- /dev/null +++ b/uikit/UISpringLoadedInteractionClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uispringloadedinteraction?language=objc}UISpringLoadedInteraction} *) + +let hysteresisBehaviorWithBeginningVelocity x ~cancelingVelocity self = msg_send ~self ~cmd:(selector "hysteresisBehaviorWithBeginningVelocity:cancelingVelocity:") ~typ:(double @-> double @-> returning id) x cancelingVelocity +let springLoadedInteractionWithHandler x self = msg_send ~self ~cmd:(selector "springLoadedInteractionWithHandler:") ~typ:((ptr void) @-> returning id) x \ No newline at end of file diff --git a/uikit/UISpringLoadedInteractionContextImpl.ml b/uikit/UISpringLoadedInteractionContextImpl.ml deleted file mode 100644 index f307ca1e..00000000 --- a/uikit/UISpringLoadedInteractionContextImpl.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISpringLoadedInteractionContextImpl" - -let currentRecognizer self = msg_send ~self ~cmd:(selector "currentRecognizer") ~typ:(returning (id)) -let dropSession self = msg_send ~self ~cmd:(selector "dropSession") ~typ:(returning (id)) -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let overrideTargetItem self = msg_send ~self ~cmd:(selector "overrideTargetItem") ~typ:(returning (id)) -let overrideTargetView self = msg_send ~self ~cmd:(selector "overrideTargetView") ~typ:(returning (id)) -let setCurrentRecognizer x self = msg_send ~self ~cmd:(selector "setCurrentRecognizer:") ~typ:(id @-> returning (void)) x -let setOverrideTargetItem x self = msg_send ~self ~cmd:(selector "setOverrideTargetItem:") ~typ:(id @-> returning (void)) x -let setOverrideTargetView x self = msg_send ~self ~cmd:(selector "setOverrideTargetView:") ~typ:(id @-> returning (void)) x -let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTargetItem x self = msg_send ~self ~cmd:(selector "setTargetItem:") ~typ:(id @-> returning (void)) x -let setTargetView x self = msg_send ~self ~cmd:(selector "setTargetView:") ~typ:(id @-> returning (void)) x -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (llong)) -let targetItem self = msg_send ~self ~cmd:(selector "targetItem") ~typ:(returning (id)) -let targetView self = msg_send ~self ~cmd:(selector "targetView") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UISpringTimingParameters.ml b/uikit/UISpringTimingParameters.ml index a8c954c8..45e2a340 100644 --- a/uikit/UISpringTimingParameters.ml +++ b/uikit/UISpringTimingParameters.ml @@ -5,38 +5,39 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISpringTimingParameters" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uispringtimingparameters?language=objc}UISpringTimingParameters} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UISpringTimingParameters" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let cubicTimingParameters self = msg_send ~self ~cmd:(selector "cubicTimingParameters") ~typ:(returning (id)) -let damping self = msg_send ~self ~cmd:(selector "damping") ~typ:(returning (double)) -let dampingRatio self = msg_send ~self ~cmd:(selector "dampingRatio") ~typ:(returning (double)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let effectiveTimingFunction self = msg_send ~self ~cmd:(selector "effectiveTimingFunction") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let implicitDuration self = msg_send ~self ~cmd:(selector "implicitDuration") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithDampingRatio x self = msg_send ~self ~cmd:(selector "initWithDampingRatio:") ~typ:(double @-> returning (id)) x -let initWithDampingRatio1 x ~initialVelocity self = msg_send ~self ~cmd:(selector "initWithDampingRatio:initialVelocity:") ~typ:(double @-> ptr void @-> returning (id)) x initialVelocity -let initWithDampingRatio2 x ~response self = msg_send ~self ~cmd:(selector "initWithDampingRatio:response:") ~typ:(double @-> double @-> returning (id)) x response -let initWithDampingRatio3 x ~response ~initialVelocity self = msg_send ~self ~cmd:(selector "initWithDampingRatio:response:initialVelocity:") ~typ:(double @-> double @-> ptr void @-> returning (id)) x response initialVelocity -let initWithMass x ~stiffness ~damping ~initialVelocity self = msg_send ~self ~cmd:(selector "initWithMass:stiffness:damping:initialVelocity:") ~typ:(double @-> double @-> double @-> ptr void @-> returning (id)) x stiffness damping initialVelocity -let initWithParameters x self = msg_send ~self ~cmd:(selector "initWithParameters:") ~typ:(id @-> returning (id)) x -let initWithParameters' x ~initialVelocity self = msg_send ~self ~cmd:(selector "initWithParameters:initialVelocity:") ~typ:(id @-> ptr void @-> returning (id)) x initialVelocity -let initWithVelocity x self = msg_send ~self ~cmd:(selector "initWithVelocity:") ~typ:(ptr void @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let mass self = msg_send ~self ~cmd:(selector "mass") ~typ:(returning (double)) -let setDamping x self = msg_send ~self ~cmd:(selector "setDamping:") ~typ:(double @-> returning (void)) x -let setImplicitDuration x self = msg_send ~self ~cmd:(selector "setImplicitDuration:") ~typ:(bool @-> returning (void)) x -let setMass x self = msg_send ~self ~cmd:(selector "setMass:") ~typ:(double @-> returning (void)) x -let setStiffness x self = msg_send ~self ~cmd:(selector "setStiffness:") ~typ:(double @-> returning (void)) x -let settlingDuration self = msg_send ~self ~cmd:(selector "settlingDuration") ~typ:(returning (double)) -let springTimingParameters self = msg_send ~self ~cmd:(selector "springTimingParameters") ~typ:(returning (id)) -let stiffness self = msg_send ~self ~cmd:(selector "stiffness") ~typ:(returning (double)) -let timingCurveType self = msg_send ~self ~cmd:(selector "timingCurveType") ~typ:(returning (llong)) \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let cubicTimingParameters self = msg_send ~self ~cmd:(selector "cubicTimingParameters") ~typ:(returning id) +let damping self = msg_send ~self ~cmd:(selector "damping") ~typ:(returning double) +let dampingRatio self = msg_send ~self ~cmd:(selector "dampingRatio") ~typ:(returning double) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let effectiveTimingFunction self = msg_send ~self ~cmd:(selector "effectiveTimingFunction") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let implicitDuration self = msg_send ~self ~cmd:(selector "implicitDuration") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithDampingRatio x self = msg_send ~self ~cmd:(selector "initWithDampingRatio:") ~typ:(double @-> returning id) x +let initWithDampingRatio1 x ~initialVelocity self = msg_send ~self ~cmd:(selector "initWithDampingRatio:initialVelocity:") ~typ:(double @-> CGVector.t @-> returning id) x initialVelocity +let initWithDampingRatio2 x ~response self = msg_send ~self ~cmd:(selector "initWithDampingRatio:response:") ~typ:(double @-> double @-> returning id) x response +let initWithDampingRatio3 x ~response ~initialVelocity self = msg_send ~self ~cmd:(selector "initWithDampingRatio:response:initialVelocity:") ~typ:(double @-> double @-> CGVector.t @-> returning id) x response initialVelocity +let initWithMass x ~stiffness ~damping ~initialVelocity self = msg_send ~self ~cmd:(selector "initWithMass:stiffness:damping:initialVelocity:") ~typ:(double @-> double @-> double @-> CGVector.t @-> returning id) x stiffness damping initialVelocity +let initWithParameters x self = msg_send ~self ~cmd:(selector "initWithParameters:") ~typ:(id @-> returning id) x +let initWithParameters' x ~initialVelocity self = msg_send ~self ~cmd:(selector "initWithParameters:initialVelocity:") ~typ:(id @-> CGVector.t @-> returning id) x initialVelocity +let initWithVelocity x self = msg_send ~self ~cmd:(selector "initWithVelocity:") ~typ:(CGVector.t @-> returning id) x +let initialVelocity self = msg_send ~self ~cmd:(selector "initialVelocity") ~typ:(returning CGVector.t) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let mass self = msg_send ~self ~cmd:(selector "mass") ~typ:(returning double) +let setDamping x self = msg_send ~self ~cmd:(selector "setDamping:") ~typ:(double @-> returning void) x +let setImplicitDuration x self = msg_send ~self ~cmd:(selector "setImplicitDuration:") ~typ:(bool @-> returning void) x +let setMass x self = msg_send ~self ~cmd:(selector "setMass:") ~typ:(double @-> returning void) x +let setStiffness x self = msg_send ~self ~cmd:(selector "setStiffness:") ~typ:(double @-> returning void) x +let settlingDuration self = msg_send ~self ~cmd:(selector "settlingDuration") ~typ:(returning double) +let springTimingParameters self = msg_send ~self ~cmd:(selector "springTimingParameters") ~typ:(returning id) +let stiffness self = msg_send ~self ~cmd:(selector "stiffness") ~typ:(returning double) +let timingCurveType self = msg_send ~self ~cmd:(selector "timingCurveType") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UISpringTimingParametersClass.ml b/uikit/UISpringTimingParametersClass.ml new file mode 100644 index 00000000..c0312c93 --- /dev/null +++ b/uikit/UISpringTimingParametersClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uispringtimingparameters?language=objc}UISpringTimingParameters} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIStackView.ml b/uikit/UIStackView.ml index 877dc1da..3f138081 100644 --- a/uikit/UIStackView.ml +++ b/uikit/UIStackView.ml @@ -5,39 +5,39 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStackView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistackview?language=objc}UIStackView} *) -module C = struct - let layerClass self = msg_send ~self ~cmd:(selector "layerClass") ~typ:(returning (_Class)) -end +let self = get_class "UIStackView" -let addArrangedSubview x self = msg_send ~self ~cmd:(selector "addArrangedSubview:") ~typ:(id @-> returning (void)) x -let alignment self = msg_send ~self ~cmd:(selector "alignment") ~typ:(returning (llong)) -let arrangedSubviews self = msg_send ~self ~cmd:(selector "arrangedSubviews") ~typ:(returning (id)) -let axis self = msg_send ~self ~cmd:(selector "axis") ~typ:(returning (llong)) -let customSpacingAfterView x self = msg_send ~self ~cmd:(selector "customSpacingAfterView:") ~typ:(id @-> returning (double)) x -let distribution self = msg_send ~self ~cmd:(selector "distribution") ~typ:(returning (llong)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let initWithArrangedSubviews x self = msg_send ~self ~cmd:(selector "initWithArrangedSubviews:") ~typ:(id @-> returning (id)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let insertArrangedSubview x ~atIndex self = msg_send ~self ~cmd:(selector "insertArrangedSubview:atIndex:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int atIndex) -let isBaselineRelativeArrangement self = msg_send ~self ~cmd:(selector "isBaselineRelativeArrangement") ~typ:(returning (bool)) -let isLayoutMarginsRelativeArrangement self = msg_send ~self ~cmd:(selector "isLayoutMarginsRelativeArrangement") ~typ:(returning (bool)) -let removeArrangedSubview x self = msg_send ~self ~cmd:(selector "removeArrangedSubview:") ~typ:(id @-> returning (void)) x -let setAlignment x self = msg_send ~self ~cmd:(selector "setAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setArrangedSubviews x self = msg_send ~self ~cmd:(selector "setArrangedSubviews:") ~typ:(id @-> returning (void)) x -let setAxis x self = msg_send ~self ~cmd:(selector "setAxis:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBaselineRelativeArrangement x self = msg_send ~self ~cmd:(selector "setBaselineRelativeArrangement:") ~typ:(bool @-> returning (void)) x -let setCustomSpacing x ~afterView self = msg_send ~self ~cmd:(selector "setCustomSpacing:afterView:") ~typ:(double @-> id @-> returning (void)) x afterView -let setDistribution x self = msg_send ~self ~cmd:(selector "setDistribution:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setLayoutMarginsRelativeArrangement x self = msg_send ~self ~cmd:(selector "setLayoutMarginsRelativeArrangement:") ~typ:(bool @-> returning (void)) x -let setOpaque x self = msg_send ~self ~cmd:(selector "setOpaque:") ~typ:(bool @-> returning (void)) x -let setSpacing x self = msg_send ~self ~cmd:(selector "setSpacing:") ~typ:(double @-> returning (void)) x -let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning (void)) x -let spacing self = msg_send ~self ~cmd:(selector "spacing") ~typ:(returning (double)) -let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning (void)) -let viewForFirstBaselineLayout self = msg_send ~self ~cmd:(selector "viewForFirstBaselineLayout") ~typ:(returning (id)) -let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning (id)) \ No newline at end of file +let addArrangedSubview x self = msg_send ~self ~cmd:(selector "addArrangedSubview:") ~typ:(id @-> returning void) x +let alignment self = msg_send ~self ~cmd:(selector "alignment") ~typ:(returning llong) +let arrangedSubviews self = msg_send ~self ~cmd:(selector "arrangedSubviews") ~typ:(returning id) +let axis self = msg_send ~self ~cmd:(selector "axis") ~typ:(returning llong) +let customSpacingAfterView x self = msg_send ~self ~cmd:(selector "customSpacingAfterView:") ~typ:(id @-> returning double) x +let distribution self = msg_send ~self ~cmd:(selector "distribution") ~typ:(returning llong) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let initWithArrangedSubviews x self = msg_send ~self ~cmd:(selector "initWithArrangedSubviews:") ~typ:(id @-> returning id) x +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let insertArrangedSubview x ~atIndex self = msg_send ~self ~cmd:(selector "insertArrangedSubview:atIndex:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int atIndex) +let isBaselineRelativeArrangement self = msg_send ~self ~cmd:(selector "isBaselineRelativeArrangement") ~typ:(returning bool) +let isLayoutMarginsRelativeArrangement self = msg_send ~self ~cmd:(selector "isLayoutMarginsRelativeArrangement") ~typ:(returning bool) +let removeArrangedSubview x self = msg_send ~self ~cmd:(selector "removeArrangedSubview:") ~typ:(id @-> returning void) x +let setAlignment x self = msg_send ~self ~cmd:(selector "setAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setArrangedSubviews x self = msg_send ~self ~cmd:(selector "setArrangedSubviews:") ~typ:(id @-> returning void) x +let setAxis x self = msg_send ~self ~cmd:(selector "setAxis:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBaselineRelativeArrangement x self = msg_send ~self ~cmd:(selector "setBaselineRelativeArrangement:") ~typ:(bool @-> returning void) x +let setCustomSpacing x ~afterView self = msg_send ~self ~cmd:(selector "setCustomSpacing:afterView:") ~typ:(double @-> id @-> returning void) x afterView +let setDistribution x self = msg_send ~self ~cmd:(selector "setDistribution:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setLayoutMarginsRelativeArrangement x self = msg_send ~self ~cmd:(selector "setLayoutMarginsRelativeArrangement:") ~typ:(bool @-> returning void) x +let setOpaque x self = msg_send ~self ~cmd:(selector "setOpaque:") ~typ:(bool @-> returning void) x +let setSpacing x self = msg_send ~self ~cmd:(selector "setSpacing:") ~typ:(double @-> returning void) x +let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning void) x +let spacing self = msg_send ~self ~cmd:(selector "spacing") ~typ:(returning double) +let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning void) +let viewForFirstBaselineLayout self = msg_send ~self ~cmd:(selector "viewForFirstBaselineLayout") ~typ:(returning id) +let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIStackViewClass.ml b/uikit/UIStackViewClass.ml new file mode 100644 index 00000000..5352b0de --- /dev/null +++ b/uikit/UIStackViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistackview?language=objc}UIStackView} *) + +let layerClass self = msg_send ~self ~cmd:(selector "layerClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit/UIStateRestorationKeyedUnarchiver.ml b/uikit/UIStateRestorationKeyedUnarchiver.ml index bb59f84e..e42d094c 100644 --- a/uikit/UIStateRestorationKeyedUnarchiver.ml +++ b/uikit/UIStateRestorationKeyedUnarchiver.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStateRestorationKeyedUnarchiver" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistaterestorationkeyedunarchiver?language=objc}UIStateRestorationKeyedUnarchiver} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let decodeObjectForKey x self = msg_send ~self ~cmd:(selector "decodeObjectForKey:") ~typ:(id @-> returning (id)) x -let decodeObjectOfClasses x ~forKey self = msg_send ~self ~cmd:(selector "decodeObjectOfClasses:forKey:") ~typ:(id @-> id @-> returning (id)) x forKey -let decodeTopLevelObjectOfClasses x ~forKey ~error self = msg_send ~self ~cmd:(selector "decodeTopLevelObjectOfClasses:forKey:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (id)) x forKey error -let initForReadingWithData x ~defaultValues ~requiresSecureCoding self = msg_send ~self ~cmd:(selector "initForReadingWithData:defaultValues:requiresSecureCoding:") ~typ:(id @-> id @-> bool @-> returning (id)) x defaultValues requiresSecureCoding \ No newline at end of file +let self = get_class "UIStateRestorationKeyedUnarchiver" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let decodeObjectForKey x self = msg_send ~self ~cmd:(selector "decodeObjectForKey:") ~typ:(id @-> returning id) x +let decodeObjectOfClasses x ~forKey self = msg_send ~self ~cmd:(selector "decodeObjectOfClasses:forKey:") ~typ:(id @-> id @-> returning id) x forKey +let decodeTopLevelObjectOfClasses x ~forKey ~error self = msg_send ~self ~cmd:(selector "decodeTopLevelObjectOfClasses:forKey:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x forKey error +let initForReadingWithData x ~defaultValues ~requiresSecureCoding self = msg_send ~self ~cmd:(selector "initForReadingWithData:defaultValues:requiresSecureCoding:") ~typ:(id @-> id @-> bool @-> returning id) x defaultValues requiresSecureCoding \ No newline at end of file diff --git a/uikit/UIStatusBar.ml b/uikit/UIStatusBar.ml index 04e44f89..75705b88 100644 --- a/uikit/UIStatusBar.ml +++ b/uikit/UIStatusBar.ml @@ -5,62 +5,59 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStatusBar" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbar?language=objc}UIStatusBar} *) -module C = struct - let defaultStyleForRequestedStyle x ~styleOverrides self = msg_send ~self ~cmd:(selector "defaultStyleForRequestedStyle:styleOverrides:") ~typ:(llong @-> ullong @-> returning (llong)) (LLong.of_int x) (ULLong.of_int styleOverrides) - let enumerateStatusBarStyleOverridesWithBlock x self = msg_send ~self ~cmd:(selector "enumerateStatusBarStyleOverridesWithBlock:") ~typ:(ptr void @-> returning (void)) x - let getData x ~forRequestedData ~withOverrides self = msg_send ~self ~cmd:(selector "getData:forRequestedData:withOverrides:") ~typ:(ptr void @-> ptr void @-> ptr void @-> returning (void)) x forRequestedData withOverrides - let lowBatteryLevel self = msg_send ~self ~cmd:(selector "lowBatteryLevel") ~typ:(returning (llong)) -end +let self = get_class "UIStatusBar" -let actionForPartWithIdentifier x self = msg_send ~self ~cmd:(selector "actionForPartWithIdentifier:") ~typ:(id @-> returning (id)) x -let animateUnlock self = msg_send ~self ~cmd:(selector "animateUnlock") ~typ:(returning (void)) -let currentStyle self = msg_send ~self ~cmd:(selector "currentStyle") ~typ:(returning (llong)) -let currentStyleRequestForStyle x self = msg_send ~self ~cmd:(selector "currentStyleRequestForStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultDoubleHeight self = msg_send ~self ~cmd:(selector "defaultDoubleHeight") ~typ:(returning (double)) -let defaultHeight self = msg_send ~self ~cmd:(selector "defaultHeight") ~typ:(returning (double)) -let disablesRasterization self = msg_send ~self ~cmd:(selector "disablesRasterization") ~typ:(returning (bool)) -let enabledPartIdentifiers self = msg_send ~self ~cmd:(selector "enabledPartIdentifiers") ~typ:(returning (id)) -let forceUpdate x self = msg_send ~self ~cmd:(selector "forceUpdate:") ~typ:(bool @-> returning (void)) x -let forceUpdateData x self = msg_send ~self ~cmd:(selector "forceUpdateData:") ~typ:(bool @-> returning (void)) x -let forceUpdateDoubleHeightStatus self = msg_send ~self ~cmd:(selector "forceUpdateDoubleHeightStatus") ~typ:(returning (void)) -let forceUpdateToData x ~animated self = msg_send ~self ~cmd:(selector "forceUpdateToData:animated:") ~typ:(ptr void @-> bool @-> returning (void)) x animated -let forgetEitherSideHistory self = msg_send ~self ~cmd:(selector "forgetEitherSideHistory") ~typ:(returning (void)) -let frameForOrientation x self = msg_send_stret ~self ~cmd:(selector "frameForOrientation:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) -let frameForPartWithIdentifier x self = msg_send_stret ~self ~cmd:(selector "frameForPartWithIdentifier:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let heightForOrientation x self = msg_send ~self ~cmd:(selector "heightForOrientation:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let isDoubleHeight self = msg_send ~self ~cmd:(selector "isDoubleHeight") ~typ:(returning (bool)) -let isTimeHidden self = msg_send ~self ~cmd:(selector "isTimeHidden") ~typ:(returning (bool)) -let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning (bool)) -let jiggleLockIcon self = msg_send ~self ~cmd:(selector "jiggleLockIcon") ~typ:(returning (void)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let requestStyle x ~animation ~startTime ~duration ~curve self = msg_send ~self ~cmd:(selector "requestStyle:animation:startTime:duration:curve:") ~typ:(llong @-> int @-> double @-> double @-> llong @-> returning (void)) (LLong.of_int x) animation startTime duration (LLong.of_int curve) -let setAction x ~forPartWithIdentifier self = msg_send ~self ~cmd:(selector "setAction:forPartWithIdentifier:") ~typ:(id @-> id @-> returning (void)) x forPartWithIdentifier -let setEnabledCenterItems x ~duration self = msg_send ~self ~cmd:(selector "setEnabledCenterItems:duration:") ~typ:(id @-> double @-> returning (void)) x duration -let setEnabledPartIdentifiers x self = msg_send ~self ~cmd:(selector "setEnabledPartIdentifiers:") ~typ:(id @-> returning (void)) x -let setForegroundAlpha x ~animationParameters self = msg_send ~self ~cmd:(selector "setForegroundAlpha:animationParameters:") ~typ:(double @-> id @-> returning (void)) x animationParameters -let setForegroundColor x ~animationParameters self = msg_send ~self ~cmd:(selector "setForegroundColor:animationParameters:") ~typ:(id @-> id @-> returning (void)) x animationParameters -let setLegibilityStyle x ~animationParameters self = msg_send ~self ~cmd:(selector "setLegibilityStyle:animationParameters:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) animationParameters -let setOrientation x self = msg_send ~self ~cmd:(selector "setOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPersistentAnimationsEnabled x self = msg_send ~self ~cmd:(selector "setPersistentAnimationsEnabled:") ~typ:(bool @-> returning (void)) x -let setRegistered x self = msg_send ~self ~cmd:(selector "setRegistered:") ~typ:(bool @-> returning (void)) x -let setShowsOnlyCenterItems x self = msg_send ~self ~cmd:(selector "setShowsOnlyCenterItems:") ~typ:(bool @-> returning (void)) x -let setStyleRequest x ~animationParameters self = msg_send ~self ~cmd:(selector "setStyleRequest:animationParameters:") ~typ:(id @-> id @-> returning (void)) x animationParameters -let setSuppressesHiddenSideEffects x self = msg_send ~self ~cmd:(selector "setSuppressesHiddenSideEffects:") ~typ:(bool @-> returning (void)) x -let setTimeHidden x self = msg_send ~self ~cmd:(selector "setTimeHidden:") ~typ:(bool @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let setTintColor' x ~withDuration self = msg_send ~self ~cmd:(selector "setTintColor:withDuration:") ~typ:(id @-> double @-> returning (void)) x withDuration -let statusBarServer x ~didReceiveStyleOverrides self = msg_send ~self ~cmd:(selector "statusBarServer:didReceiveStyleOverrides:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int didReceiveStyleOverrides) -let statusBarServer1 x ~didReceiveDoubleHeightStatusString ~forStyle self = msg_send ~self ~cmd:(selector "statusBarServer:didReceiveDoubleHeightStatusString:forStyle:") ~typ:(id @-> id @-> llong @-> returning (void)) x didReceiveDoubleHeightStatusString (LLong.of_int forStyle) -let statusBarServer2 x ~didReceiveGlowAnimationState ~forStyle self = msg_send ~self ~cmd:(selector "statusBarServer:didReceiveGlowAnimationState:forStyle:") ~typ:(id @-> bool @-> llong @-> returning (void)) x didReceiveGlowAnimationState (LLong.of_int forStyle) -let statusBarServer3 x ~didReceiveStatusBarData ~withActions self = msg_send ~self ~cmd:(selector "statusBarServer:didReceiveStatusBarData:withActions:") ~typ:(id @-> ptr void @-> int @-> returning (void)) x didReceiveStatusBarData withActions -let statusBarStateProvider x ~didChangeDoubleHeightStatusStringForStyle self = msg_send ~self ~cmd:(selector "statusBarStateProvider:didChangeDoubleHeightStatusStringForStyle:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int didChangeDoubleHeightStatusStringForStyle) -let statusBarStateProvider' x ~didPostStatusBarData ~withActions self = msg_send ~self ~cmd:(selector "statusBarStateProvider:didPostStatusBarData:withActions:") ~typ:(id @-> ptr void @-> int @-> returning (void)) x didPostStatusBarData withActions -let statusBarWindow self = msg_send ~self ~cmd:(selector "statusBarWindow") ~typ:(returning (id)) -let styleRequest self = msg_send ~self ~cmd:(selector "styleRequest") ~typ:(returning (id)) -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let actionForPartWithIdentifier x self = msg_send ~self ~cmd:(selector "actionForPartWithIdentifier:") ~typ:(id @-> returning id) x +let animateUnlock self = msg_send ~self ~cmd:(selector "animateUnlock") ~typ:(returning void) +let currentStyle self = msg_send ~self ~cmd:(selector "currentStyle") ~typ:(returning llong) +let currentStyleRequestForStyle x self = msg_send ~self ~cmd:(selector "currentStyleRequestForStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultDoubleHeight self = msg_send ~self ~cmd:(selector "defaultDoubleHeight") ~typ:(returning double) +let defaultHeight self = msg_send ~self ~cmd:(selector "defaultHeight") ~typ:(returning double) +let disablesRasterization self = msg_send ~self ~cmd:(selector "disablesRasterization") ~typ:(returning bool) +let enabledPartIdentifiers self = msg_send ~self ~cmd:(selector "enabledPartIdentifiers") ~typ:(returning id) +let forceUpdate x self = msg_send ~self ~cmd:(selector "forceUpdate:") ~typ:(bool @-> returning void) x +let forceUpdateData x self = msg_send ~self ~cmd:(selector "forceUpdateData:") ~typ:(bool @-> returning void) x +let forceUpdateDoubleHeightStatus self = msg_send ~self ~cmd:(selector "forceUpdateDoubleHeightStatus") ~typ:(returning void) +let forceUpdateToData x ~animated self = msg_send ~self ~cmd:(selector "forceUpdateToData:animated:") ~typ:((ptr void) @-> bool @-> returning void) x animated +let forgetEitherSideHistory self = msg_send ~self ~cmd:(selector "forgetEitherSideHistory") ~typ:(returning void) +let frameForOrientation x self = msg_send ~self ~cmd:(selector "frameForOrientation:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) +let frameForPartWithIdentifier x self = msg_send ~self ~cmd:(selector "frameForPartWithIdentifier:") ~typ:(id @-> returning CGRect.t) x +let heightForOrientation x self = msg_send ~self ~cmd:(selector "heightForOrientation:") ~typ:(llong @-> returning double) (LLong.of_int x) +let isDoubleHeight self = msg_send ~self ~cmd:(selector "isDoubleHeight") ~typ:(returning bool) +let isTimeHidden self = msg_send ~self ~cmd:(selector "isTimeHidden") ~typ:(returning bool) +let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning bool) +let jiggleLockIcon self = msg_send ~self ~cmd:(selector "jiggleLockIcon") ~typ:(returning void) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x ofObject change context +let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let requestStyle x ~animation ~startTime ~duration ~curve self = msg_send ~self ~cmd:(selector "requestStyle:animation:startTime:duration:curve:") ~typ:(llong @-> int @-> double @-> double @-> llong @-> returning void) (LLong.of_int x) animation startTime duration (LLong.of_int curve) +let setAction x ~forPartWithIdentifier self = msg_send ~self ~cmd:(selector "setAction:forPartWithIdentifier:") ~typ:(id @-> id @-> returning void) x forPartWithIdentifier +let setEnabledCenterItems x ~duration self = msg_send ~self ~cmd:(selector "setEnabledCenterItems:duration:") ~typ:(id @-> double @-> returning void) x duration +let setEnabledPartIdentifiers x self = msg_send ~self ~cmd:(selector "setEnabledPartIdentifiers:") ~typ:(id @-> returning void) x +let setForegroundAlpha x ~animationParameters self = msg_send ~self ~cmd:(selector "setForegroundAlpha:animationParameters:") ~typ:(double @-> id @-> returning void) x animationParameters +let setForegroundColor x ~animationParameters self = msg_send ~self ~cmd:(selector "setForegroundColor:animationParameters:") ~typ:(id @-> id @-> returning void) x animationParameters +let setLegibilityStyle x ~animationParameters self = msg_send ~self ~cmd:(selector "setLegibilityStyle:animationParameters:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) animationParameters +let setOrientation x self = msg_send ~self ~cmd:(selector "setOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPersistentAnimationsEnabled x self = msg_send ~self ~cmd:(selector "setPersistentAnimationsEnabled:") ~typ:(bool @-> returning void) x +let setRegistered x self = msg_send ~self ~cmd:(selector "setRegistered:") ~typ:(bool @-> returning void) x +let setShowsOnlyCenterItems x self = msg_send ~self ~cmd:(selector "setShowsOnlyCenterItems:") ~typ:(bool @-> returning void) x +let setStyleRequest x ~animationParameters self = msg_send ~self ~cmd:(selector "setStyleRequest:animationParameters:") ~typ:(id @-> id @-> returning void) x animationParameters +let setSuppressesHiddenSideEffects x self = msg_send ~self ~cmd:(selector "setSuppressesHiddenSideEffects:") ~typ:(bool @-> returning void) x +let setTimeHidden x self = msg_send ~self ~cmd:(selector "setTimeHidden:") ~typ:(bool @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let setTintColor' x ~withDuration self = msg_send ~self ~cmd:(selector "setTintColor:withDuration:") ~typ:(id @-> double @-> returning void) x withDuration +let statusBarServer x ~didReceiveStyleOverrides self = msg_send ~self ~cmd:(selector "statusBarServer:didReceiveStyleOverrides:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int didReceiveStyleOverrides) +let statusBarServer1 x ~didReceiveDoubleHeightStatusString ~forStyle self = msg_send ~self ~cmd:(selector "statusBarServer:didReceiveDoubleHeightStatusString:forStyle:") ~typ:(id @-> id @-> llong @-> returning void) x didReceiveDoubleHeightStatusString (LLong.of_int forStyle) +let statusBarServer2 x ~didReceiveGlowAnimationState ~forStyle self = msg_send ~self ~cmd:(selector "statusBarServer:didReceiveGlowAnimationState:forStyle:") ~typ:(id @-> bool @-> llong @-> returning void) x didReceiveGlowAnimationState (LLong.of_int forStyle) +let statusBarServer3 x ~didReceiveStatusBarData ~withActions self = msg_send ~self ~cmd:(selector "statusBarServer:didReceiveStatusBarData:withActions:") ~typ:(id @-> (ptr void) @-> int @-> returning void) x didReceiveStatusBarData withActions +let statusBarStateProvider x ~didChangeDoubleHeightStatusStringForStyle self = msg_send ~self ~cmd:(selector "statusBarStateProvider:didChangeDoubleHeightStatusStringForStyle:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int didChangeDoubleHeightStatusStringForStyle) +let statusBarStateProvider' x ~didPostStatusBarData ~withActions self = msg_send ~self ~cmd:(selector "statusBarStateProvider:didPostStatusBarData:withActions:") ~typ:(id @-> (ptr void) @-> int @-> returning void) x didPostStatusBarData withActions +let statusBarWindow self = msg_send ~self ~cmd:(selector "statusBarWindow") ~typ:(returning id) +let styleRequest self = msg_send ~self ~cmd:(selector "styleRequest") ~typ:(returning id) +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UIStatusBarActivityItemView.ml b/uikit/UIStatusBarActivityItemView.ml deleted file mode 100644 index 074e741d..00000000 --- a/uikit/UIStatusBarActivityItemView.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarActivityItemView" - -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let setVisible x self = msg_send ~self ~cmd:(selector "setVisible:") ~typ:(bool @-> returning (void)) x -let shadowPadding self = msg_send ~self ~cmd:(selector "shadowPadding") ~typ:(returning (double)) -let updateContentsAndWidth self = msg_send ~self ~cmd:(selector "updateContentsAndWidth") ~typ:(returning (double)) -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file diff --git a/uikit/UIStatusBarAirplaneModeItemView.ml b/uikit/UIStatusBarAirplaneModeItemView.ml deleted file mode 100644 index 521483e2..00000000 --- a/uikit/UIStatusBarAirplaneModeItemView.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarAirplaneModeItemView" - -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let setVisible x ~frame ~duration self = msg_send ~self ~cmd:(selector "setVisible:frame:duration:") ~typ:(bool @-> CGRect.t @-> double @-> returning (void)) x frame duration \ No newline at end of file diff --git a/uikit/UIStatusBarAnimationParameters.ml b/uikit/UIStatusBarAnimationParameters.ml deleted file mode 100644 index faf5f0eb..00000000 --- a/uikit/UIStatusBarAnimationParameters.ml +++ /dev/null @@ -1,34 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarAnimationParameters" - -module C = struct - let animateWithParameters x ~animations ~completion self = msg_send ~self ~cmd:(selector "animateWithParameters:animations:completion:") ~typ:(id @-> ptr void @-> ptr void @-> returning (void)) x animations completion - let animateWithParameters1 x ~fromCurrentState ~animations ~completion self = msg_send ~self ~cmd:(selector "animateWithParameters:fromCurrentState:animations:completion:") ~typ:(id @-> bool @-> ptr void @-> ptr void @-> returning (void)) x fromCurrentState animations completion - let animateWithParameters2 x ~fromCurrentState ~frameInterval ~animations ~completion self = msg_send ~self ~cmd:(selector "animateWithParameters:fromCurrentState:frameInterval:animations:completion:") ~typ:(id @-> bool @-> double @-> ptr void @-> ptr void @-> returning (void)) x fromCurrentState frameInterval animations completion - let fencingAnimation self = msg_send ~self ~cmd:(selector "fencingAnimation") ~typ:(returning (id)) -end - -let animationFactory self = msg_send ~self ~cmd:(selector "animationFactory") ~typ:(returning (id)) -let bsAnimationSettings self = msg_send ~self ~cmd:(selector "bsAnimationSettings") ~typ:(returning (id)) -let curve self = msg_send ~self ~cmd:(selector "curve") ~typ:(returning (llong)) -let delay self = msg_send ~self ~cmd:(selector "delay") ~typ:(returning (double)) -let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning (double)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithDefaultParameters self = msg_send ~self ~cmd:(selector "initWithDefaultParameters") ~typ:(returning (id)) -let initWithEmptyParameters self = msg_send ~self ~cmd:(selector "initWithEmptyParameters") ~typ:(returning (id)) -let setAnimationFactory x self = msg_send ~self ~cmd:(selector "setAnimationFactory:") ~typ:(id @-> returning (void)) x -let setCurve x self = msg_send ~self ~cmd:(selector "setCurve:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setDelay x self = msg_send ~self ~cmd:(selector "setDelay:") ~typ:(double @-> returning (void)) x -let setDuration x self = msg_send ~self ~cmd:(selector "setDuration:") ~typ:(double @-> returning (void)) x -let setSkipFencing x self = msg_send ~self ~cmd:(selector "setSkipFencing:") ~typ:(bool @-> returning (void)) x -let setStartTime x self = msg_send ~self ~cmd:(selector "setStartTime:") ~typ:(double @-> returning (void)) x -let shouldAnimate self = msg_send ~self ~cmd:(selector "shouldAnimate") ~typ:(returning (bool)) -let skipFencing self = msg_send ~self ~cmd:(selector "skipFencing") ~typ:(returning (bool)) -let startTime self = msg_send ~self ~cmd:(selector "startTime") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit/UIStatusBarBackgroundView.ml b/uikit/UIStatusBarBackgroundView.ml deleted file mode 100644 index a97f9203..00000000 --- a/uikit/UIStatusBarBackgroundView.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarBackgroundView" - -let initWithFrame x ~style ~backgroundColor self = msg_send ~self ~cmd:(selector "initWithFrame:style:backgroundColor:") ~typ:(CGRect.t @-> id @-> id @-> returning (id)) x style backgroundColor -let setGlowAnimationEnabled x self = msg_send ~self ~cmd:(selector "setGlowAnimationEnabled:") ~typ:(bool @-> returning (void)) x -let setSuppressesGlow x self = msg_send ~self ~cmd:(selector "setSuppressesGlow:") ~typ:(bool @-> returning (void)) x -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIStatusBarBatteryItemView.ml b/uikit/UIStatusBarBatteryItemView.ml deleted file mode 100644 index 4b20458c..00000000 --- a/uikit/UIStatusBarBatteryItemView.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarBatteryItemView" - -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let cachedAXHUDCapacity self = msg_send ~self ~cmd:(selector "cachedAXHUDCapacity") ~typ:(returning (int)) -let cachedAXHUDImage self = msg_send ~self ~cmd:(selector "cachedAXHUDImage") ~typ:(returning (id)) -let cachedAXHUDStyle self = msg_send ~self ~cmd:(selector "cachedAXHUDStyle") ~typ:(returning (ullong)) -let cachedBatteryStyle self = msg_send ~self ~cmd:(selector "cachedBatteryStyle") ~typ:(returning (ullong)) -let cachedCapacity self = msg_send ~self ~cmd:(selector "cachedCapacity") ~typ:(returning (int)) -let cachedImageHasAccessoryImage self = msg_send ~self ~cmd:(selector "cachedImageHasAccessoryImage") ~typ:(returning (bool)) -let cachedImageSet self = msg_send ~self ~cmd:(selector "cachedImageSet") ~typ:(returning (id)) -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning (double)) -let legibilityStrength self = msg_send ~self ~cmd:(selector "legibilityStrength") ~typ:(returning (double)) -let setCachedAXHUDCapacity x self = msg_send ~self ~cmd:(selector "setCachedAXHUDCapacity:") ~typ:(int @-> returning (void)) x -let setCachedAXHUDImage x self = msg_send ~self ~cmd:(selector "setCachedAXHUDImage:") ~typ:(id @-> returning (void)) x -let setCachedAXHUDStyle x self = msg_send ~self ~cmd:(selector "setCachedAXHUDStyle:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setCachedBatteryStyle x self = msg_send ~self ~cmd:(selector "setCachedBatteryStyle:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setCachedCapacity x self = msg_send ~self ~cmd:(selector "setCachedCapacity:") ~typ:(int @-> returning (void)) x -let setCachedImageHasAccessoryImage x self = msg_send ~self ~cmd:(selector "setCachedImageHasAccessoryImage:") ~typ:(bool @-> returning (void)) x -let setCachedImageSet x self = msg_send ~self ~cmd:(selector "setCachedImageSet:") ~typ:(id @-> returning (void)) x -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file diff --git a/uikit/UIStatusBarBatteryPercentItemView.ml b/uikit/UIStatusBarBatteryPercentItemView.ml deleted file mode 100644 index d47d2b88..00000000 --- a/uikit/UIStatusBarBatteryPercentItemView.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarBatteryPercentItemView" - -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let animatesDataChange self = msg_send ~self ~cmd:(selector "animatesDataChange") ~typ:(returning (bool)) -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning (double)) -let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning (llong)) -let textStyle self = msg_send ~self ~cmd:(selector "textStyle") ~typ:(returning (llong)) -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file diff --git a/uikit/UIStatusBarBluetoothBatteryItemView.ml b/uikit/UIStatusBarBluetoothBatteryItemView.ml deleted file mode 100644 index d7f7b2cf..00000000 --- a/uikit/UIStatusBarBluetoothBatteryItemView.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarBluetoothBatteryItemView" - -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let extraLeftPadding self = msg_send ~self ~cmd:(selector "extraLeftPadding") ~typ:(returning (double)) -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file diff --git a/uikit/UIStatusBarBluetoothItemView.ml b/uikit/UIStatusBarBluetoothItemView.ml deleted file mode 100644 index 06e27035..00000000 --- a/uikit/UIStatusBarBluetoothItemView.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarBluetoothItemView" - -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let alphaForConnected x self = msg_send ~self ~cmd:(selector "alphaForConnected:") ~typ:(bool @-> returning (double)) x -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let performPendedActions self = msg_send ~self ~cmd:(selector "performPendedActions") ~typ:(returning (void)) -let setVisible x self = msg_send ~self ~cmd:(selector "setVisible:") ~typ:(bool @-> returning (void)) x -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file diff --git a/uikit/UIStatusBarBreadcrumbItemView.ml b/uikit/UIStatusBarBreadcrumbItemView.ml deleted file mode 100644 index 5d47d21e..00000000 --- a/uikit/UIStatusBarBreadcrumbItemView.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarBreadcrumbItemView" - -let destinationText self = msg_send ~self ~cmd:(selector "destinationText") ~typ:(returning (id)) -let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning (double)) -let labelLineBreakMode self = msg_send ~self ~cmd:(selector "labelLineBreakMode") ~typ:(returning (llong)) -let setDestinationText x self = msg_send ~self ~cmd:(selector "setDestinationText:") ~typ:(id @-> returning (void)) x -let setSystemNavigationAction x self = msg_send ~self ~cmd:(selector "setSystemNavigationAction:") ~typ:(id @-> returning (void)) x -let shortenedTitleWithCompressionLevel x self = msg_send ~self ~cmd:(selector "shortenedTitleWithCompressionLevel:") ~typ:(int @-> returning (id)) x -let systemNavigationAction self = msg_send ~self ~cmd:(selector "systemNavigationAction") ~typ:(returning (id)) -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions -let userDidActivateButton x self = msg_send ~self ~cmd:(selector "userDidActivateButton:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIStatusBarButtonActionItemView.ml b/uikit/UIStatusBarButtonActionItemView.ml deleted file mode 100644 index 93ea8c51..00000000 --- a/uikit/UIStatusBarButtonActionItemView.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarButtonActionItemView" - -let allowsUserInteraction self = msg_send ~self ~cmd:(selector "allowsUserInteraction") ~typ:(returning (bool)) -let buttonType self = msg_send ~self ~cmd:(selector "buttonType") ~typ:(returning (llong)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let extendsHitTestingFrame self = msg_send ~self ~cmd:(selector "extendsHitTestingFrame") ~typ:(returning (bool)) -let highlightImage self = msg_send ~self ~cmd:(selector "highlightImage") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let ringLayer self = msg_send ~self ~cmd:(selector "ringLayer") ~typ:(returning (id)) -let selected self = msg_send ~self ~cmd:(selector "selected") ~typ:(returning (bool)) -let setLayerHighlightImage x self = msg_send ~self ~cmd:(selector "setLayerHighlightImage:") ~typ:(id @-> returning (void)) x -let setRingLayer x self = msg_send ~self ~cmd:(selector "setRingLayer:") ~typ:(id @-> returning (void)) x -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let showsTouchWhenHighlighted self = msg_send ~self ~cmd:(selector "showsTouchWhenHighlighted") ~typ:(returning (bool)) -let updateContentsAndWidth self = msg_send ~self ~cmd:(selector "updateContentsAndWidth") ~typ:(returning (double)) -let usesAdvancedActions self = msg_send ~self ~cmd:(selector "usesAdvancedActions") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIStatusBarCache.ml b/uikit/UIStatusBarCache.ml index 801eba87..1b373915 100644 --- a/uikit/UIStatusBarCache.ml +++ b/uikit/UIStatusBarCache.ml @@ -5,15 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStatusBarCache" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarcache?language=objc}UIStatusBarCache} *) -module C = struct - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end +let self = get_class "UIStatusBarCache" -let cacheImage x ~named ~forGroup self = msg_send ~self ~cmd:(selector "cacheImage:named:forGroup:") ~typ:(id @-> id @-> id @-> returning (void)) x named forGroup -let imageNamed x ~forGroup ~withScale self = msg_send ~self ~cmd:(selector "imageNamed:forGroup:withScale:") ~typ:(id @-> id @-> double @-> returning (id)) x forGroup withScale -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isWriteable self = msg_send ~self ~cmd:(selector "isWriteable") ~typ:(returning (bool)) -let removeImagesInGroup x self = msg_send ~self ~cmd:(selector "removeImagesInGroup:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let cacheImage x ~named ~forGroup self = msg_send ~self ~cmd:(selector "cacheImage:named:forGroup:") ~typ:(id @-> id @-> id @-> returning void) x named forGroup +let imageNamed x ~forGroup ~withScale self = msg_send ~self ~cmd:(selector "imageNamed:forGroup:withScale:") ~typ:(id @-> id @-> double @-> returning id) x forGroup withScale +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isWriteable self = msg_send ~self ~cmd:(selector "isWriteable") ~typ:(returning bool) +let removeImagesInGroup x self = msg_send ~self ~cmd:(selector "removeImagesInGroup:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIStatusBarCacheClass.ml b/uikit/UIStatusBarCacheClass.ml new file mode 100644 index 00000000..9bf979eb --- /dev/null +++ b/uikit/UIStatusBarCacheClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarcache?language=objc}UIStatusBarCache} *) + +let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIStatusBarClass.ml b/uikit/UIStatusBarClass.ml new file mode 100644 index 00000000..4e2f6187 --- /dev/null +++ b/uikit/UIStatusBarClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbar?language=objc}UIStatusBar} *) + +let defaultStyleForRequestedStyle x ~styleOverrides self = msg_send ~self ~cmd:(selector "defaultStyleForRequestedStyle:styleOverrides:") ~typ:(llong @-> ullong @-> returning llong) (LLong.of_int x) (ULLong.of_int styleOverrides) +let enumerateStatusBarStyleOverridesWithBlock x self = msg_send ~self ~cmd:(selector "enumerateStatusBarStyleOverridesWithBlock:") ~typ:((ptr void) @-> returning void) x +let getData x ~forRequestedData ~withOverrides self = msg_send ~self ~cmd:(selector "getData:forRequestedData:withOverrides:") ~typ:((ptr void) @-> (ptr void) @-> (ptr void) @-> returning void) x forRequestedData withOverrides +let lowBatteryLevel self = msg_send ~self ~cmd:(selector "lowBatteryLevel") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIStatusBarComposedData.ml b/uikit/UIStatusBarComposedData.ml deleted file mode 100644 index 27b1bf8d..00000000 --- a/uikit/UIStatusBarComposedData.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarComposedData" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let doubleHeightStatus self = msg_send ~self ~cmd:(selector "doubleHeightStatus") ~typ:(returning (id)) -let initWithRawData x self = msg_send ~self ~cmd:(selector "initWithRawData:") ~typ:(ptr void @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isItemEnabled x self = msg_send ~self ~cmd:(selector "isItemEnabled:") ~typ:(int @-> returning (bool)) x -let rawData self = msg_send ~self ~cmd:(selector "rawData") ~typ:(returning (ptr void)) -let setDoubleHeightStatus x self = msg_send ~self ~cmd:(selector "setDoubleHeightStatus:") ~typ:(id @-> returning (void)) x -let setItem x ~enabled self = msg_send ~self ~cmd:(selector "setItem:enabled:") ~typ:(int @-> bool @-> returning (void)) x enabled -let setSystemNavigationItem x self = msg_send ~self ~cmd:(selector "setSystemNavigationItem:") ~typ:(id @-> returning (void)) x -let systemNavigationItem self = msg_send ~self ~cmd:(selector "systemNavigationItem") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIStatusBarDataNetworkItemView.ml b/uikit/UIStatusBarDataNetworkItemView.ml deleted file mode 100644 index b0e2449a..00000000 --- a/uikit/UIStatusBarDataNetworkItemView.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarDataNetworkItemView" - -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let extraLeftPadding self = msg_send ~self ~cmd:(selector "extraLeftPadding") ~typ:(returning (double)) -let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning (double)) -let maximumOverlap self = msg_send ~self ~cmd:(selector "maximumOverlap") ~typ:(returning (double)) -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file diff --git a/uikit/UIStatusBarDateTimeItemView.ml b/uikit/UIStatusBarDateTimeItemView.ml deleted file mode 100644 index 7c95ba5c..00000000 --- a/uikit/UIStatusBarDateTimeItemView.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarDateTimeItemView" - -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let dateTimeString self = msg_send ~self ~cmd:(selector "dateTimeString") ~typ:(returning (id)) -let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning (double)) -let setDateTimeString x self = msg_send ~self ~cmd:(selector "setDateTimeString:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setUseCustomFadeAnimation x self = msg_send ~self ~cmd:(selector "setUseCustomFadeAnimation:") ~typ:(bool @-> returning (void)) x -let setVisible x ~frame ~duration self = msg_send ~self ~cmd:(selector "setVisible:frame:duration:") ~typ:(bool @-> CGRect.t @-> double @-> returning (void)) x frame duration -let shouldTintContentImage self = msg_send ~self ~cmd:(selector "shouldTintContentImage") ~typ:(returning (bool)) -let textStyle self = msg_send ~self ~cmd:(selector "textStyle") ~typ:(returning (llong)) -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions -let useCustomFadeAnimation self = msg_send ~self ~cmd:(selector "useCustomFadeAnimation") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIStatusBarDoubleHeightItemView.ml b/uikit/UIStatusBarDoubleHeightItemView.ml deleted file mode 100644 index 5d0ee434..00000000 --- a/uikit/UIStatusBarDoubleHeightItemView.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarDoubleHeightItemView" - -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning (double)) -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file diff --git a/uikit/UIStatusBarElectronicTollCollectionItemView.ml b/uikit/UIStatusBarElectronicTollCollectionItemView.ml deleted file mode 100644 index 21177496..00000000 --- a/uikit/UIStatusBarElectronicTollCollectionItemView.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarElectronicTollCollectionItemView" - -let alphaForAvailable x self = msg_send ~self ~cmd:(selector "alphaForAvailable:") ~typ:(bool @-> returning (double)) x -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let setVisible x self = msg_send ~self ~cmd:(selector "setVisible:") ~typ:(bool @-> returning (void)) x -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file diff --git a/uikit/UIStatusBarExternalForegroundStyleAttributes.ml b/uikit/UIStatusBarExternalForegroundStyleAttributes.ml deleted file mode 100644 index f021ca00..00000000 --- a/uikit/UIStatusBarExternalForegroundStyleAttributes.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarExternalForegroundStyleAttributes" - -let activityIndicatorStyleWithSyncActivity x self = msg_send ~self ~cmd:(selector "activityIndicatorStyleWithSyncActivity:") ~typ:(bool @-> returning (llong)) x -let leftEdgePadding self = msg_send ~self ~cmd:(selector "leftEdgePadding") ~typ:(returning (double)) -let makeTextFontForStyle x self = msg_send ~self ~cmd:(selector "makeTextFontForStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let middlePadding self = msg_send ~self ~cmd:(selector "middlePadding") ~typ:(returning (double)) -let rightEdgePadding self = msg_send ~self ~cmd:(selector "rightEdgePadding") ~typ:(returning (double)) -let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning (double)) -let standardPadding self = msg_send ~self ~cmd:(selector "standardPadding") ~typ:(returning (double)) -let textForNetworkType x self = msg_send ~self ~cmd:(selector "textForNetworkType:") ~typ:(int @-> returning (id)) x -let textOffsetForStyle x self = msg_send ~self ~cmd:(selector "textOffsetForStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let uniqueIdentifier self = msg_send ~self ~cmd:(selector "uniqueIdentifier") ~typ:(returning (id)) -let usesVerticalLayout self = msg_send ~self ~cmd:(selector "usesVerticalLayout") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIStatusBarExternalStyleAttributes.ml b/uikit/UIStatusBarExternalStyleAttributes.ml deleted file mode 100644 index 4e12b0d0..00000000 --- a/uikit/UIStatusBarExternalStyleAttributes.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarExternalStyleAttributes" - -let backgroundImageName self = msg_send ~self ~cmd:(selector "backgroundImageName") ~typ:(returning (id)) -let foregroundStyleClass self = msg_send ~self ~cmd:(selector "foregroundStyleClass") ~typ:(returning (_Class)) -let heightForMetrics x self = msg_send ~self ~cmd:(selector "heightForMetrics:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let idiom self = msg_send ~self ~cmd:(selector "idiom") ~typ:(returning (llong)) -let shouldShowInternalItemType x ~withScreenCapabilities self = msg_send ~self ~cmd:(selector "shouldShowInternalItemType:withScreenCapabilities:") ~typ:(int @-> id @-> returning (bool)) x withScreenCapabilities -let tapButtonType self = msg_send ~self ~cmd:(selector "tapButtonType") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit/UIStatusBarForegroundStyleAttributes.ml b/uikit/UIStatusBarForegroundStyleAttributes.ml deleted file mode 100644 index 2c55f6ed..00000000 --- a/uikit/UIStatusBarForegroundStyleAttributes.ml +++ /dev/null @@ -1,63 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarForegroundStyleAttributes" - -let accessibilityHUDImageNamed x self = msg_send ~self ~cmd:(selector "accessibilityHUDImageNamed:") ~typ:(id @-> returning (id)) x -let activityIndicatorStyleWithSyncActivity x self = msg_send ~self ~cmd:(selector "activityIndicatorStyleWithSyncActivity:") ~typ:(bool @-> returning (llong)) x -let baselineOffsetForStyle x self = msg_send ~self ~cmd:(selector "baselineOffsetForStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let batteryAccessoryMargin self = msg_send ~self ~cmd:(selector "batteryAccessoryMargin") ~typ:(returning (double)) -let batteryColorForCapacity x ~style ~usingTintColor self = msg_send ~self ~cmd:(selector "batteryColorForCapacity:style:usingTintColor:") ~typ:(int @-> ullong @-> bool @-> returning (id)) x (ULLong.of_int style) usingTintColor -let bluetoothBatteryColorForCapacity x ~usingTintColor self = msg_send ~self ~cmd:(selector "bluetoothBatteryColorForCapacity:usingTintColor:") ~typ:(double @-> bool @-> returning (id)) x usingTintColor -let bluetoothBatteryExtraPadding self = msg_send ~self ~cmd:(selector "bluetoothBatteryExtraPadding") ~typ:(returning (double)) -let bluetoothBatteryImageNameWithCapacity x self = msg_send ~self ~cmd:(selector "bluetoothBatteryImageNameWithCapacity:") ~typ:(double @-> returning (id)) x -let cacheImage x ~named ~inTempGroup self = msg_send ~self ~cmd:(selector "cacheImage:named:inTempGroup:") ~typ:(id @-> id @-> id @-> returning (void)) x named inTempGroup -let cachedImageNamed x ~inTempGroup self = msg_send ~self ~cmd:(selector "cachedImageNamed:inTempGroup:") ~typ:(id @-> id @-> returning (id)) x inTempGroup -let cachedImageWithText x ~forWidth ~lineBreakMode ~letterSpacing ~textAlignment ~style ~itemType self = msg_send ~self ~cmd:(selector "cachedImageWithText:forWidth:lineBreakMode:letterSpacing:textAlignment:style:itemType:") ~typ:(id @-> double @-> llong @-> double @-> llong @-> llong @-> int @-> returning (id)) x forWidth (LLong.of_int lineBreakMode) letterSpacing (LLong.of_int textAlignment) (LLong.of_int style) itemType -let canShowBreadcrumbs self = msg_send ~self ~cmd:(selector "canShowBreadcrumbs") ~typ:(returning (bool)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let drawBatteryInsidesWithSize x ~capacity ~style self = msg_send ~self ~cmd:(selector "drawBatteryInsidesWithSize:capacity:style:") ~typ:(CGSize.t @-> int @-> ullong @-> returning (void)) x capacity (ULLong.of_int style) -let drawBatteryInsidesWithSize' x ~capacity ~style ~usingTintColor self = msg_send ~self ~cmd:(selector "drawBatteryInsidesWithSize:capacity:style:usingTintColor:") ~typ:(CGSize.t @-> int @-> ullong @-> bool @-> returning (void)) x capacity (ULLong.of_int style) usingTintColor -let drawBluetoothBatteryInsidesWithSize x ~capacity self = msg_send ~self ~cmd:(selector "drawBluetoothBatteryInsidesWithSize:capacity:") ~typ:(CGSize.t @-> double @-> returning (void)) x capacity -let drawText x ~forWidth ~lineBreakMode ~letterSpacing ~textAlignment ~style ~textSize ~textHeight self = msg_send ~self ~cmd:(selector "drawText:forWidth:lineBreakMode:letterSpacing:textAlignment:style:textSize:textHeight:") ~typ:(id @-> double @-> llong @-> double @-> llong @-> llong @-> CGSize.t @-> double @-> returning (void)) x forWidth (LLong.of_int lineBreakMode) letterSpacing (LLong.of_int textAlignment) (LLong.of_int style) textSize textHeight -let drawTextInRect x ~withColor ~withBlock self = msg_send ~self ~cmd:(selector "drawTextInRect:withColor:withBlock:") ~typ:(CGRect.t @-> id @-> ptr void @-> returning (void)) x withColor withBlock -let expandedNameForImageName x self = msg_send ~self ~cmd:(selector "expandedNameForImageName:") ~typ:(id @-> returning (id)) x -let generateUniqueIdentifier self = msg_send ~self ~cmd:(selector "generateUniqueIdentifier") ~typ:(returning (id)) -let height self = msg_send ~self ~cmd:(selector "height") ~typ:(returning (double)) -let idiom self = msg_send ~self ~cmd:(selector "idiom") ~typ:(returning (llong)) -let imageIdWithText x ~forWidth ~lineBreakMode ~letterSpacing ~style self = msg_send ~self ~cmd:(selector "imageIdWithText:forWidth:lineBreakMode:letterSpacing:style:") ~typ:(id @-> double @-> llong @-> double @-> llong @-> returning (id)) x forWidth (LLong.of_int lineBreakMode) letterSpacing (LLong.of_int style) -let imageNamed x self = msg_send ~self ~cmd:(selector "imageNamed:") ~typ:(id @-> returning (id)) x -let imageNamed' x ~withLegibilityStyle ~legibilityStrength self = msg_send ~self ~cmd:(selector "imageNamed:withLegibilityStyle:legibilityStrength:") ~typ:(id @-> llong @-> double @-> returning (id)) x (LLong.of_int withLegibilityStyle) legibilityStrength -let imageWithText x ~ofItemType ~forWidth ~lineBreakMode ~letterSpacing ~textAlignment ~style ~withLegibilityStyle ~legibilityStrength self = msg_send ~self ~cmd:(selector "imageWithText:ofItemType:forWidth:lineBreakMode:letterSpacing:textAlignment:style:withLegibilityStyle:legibilityStrength:") ~typ:(id @-> int @-> double @-> llong @-> double @-> llong @-> llong @-> llong @-> double @-> returning (id)) x ofItemType forWidth (LLong.of_int lineBreakMode) letterSpacing (LLong.of_int textAlignment) (LLong.of_int style) (LLong.of_int withLegibilityStyle) legibilityStrength -let imageWithText' x ~ofItemType ~forWidth ~lineBreakMode ~letterSpacing ~textAlignment ~style ~withLegibilityStyle ~legibilityStrength ~shouldCache self = msg_send ~self ~cmd:(selector "imageWithText:ofItemType:forWidth:lineBreakMode:letterSpacing:textAlignment:style:withLegibilityStyle:legibilityStrength:shouldCache:") ~typ:(id @-> int @-> double @-> llong @-> double @-> llong @-> llong @-> llong @-> double @-> bool @-> returning (id)) x ofItemType forWidth (LLong.of_int lineBreakMode) letterSpacing (LLong.of_int textAlignment) (LLong.of_int style) (LLong.of_int withLegibilityStyle) legibilityStrength shouldCache -let initWithHeight x ~legibilityStyle ~tintColor ~hasBusyBackground self = msg_send ~self ~cmd:(selector "initWithHeight:legibilityStyle:tintColor:hasBusyBackground:") ~typ:(double @-> llong @-> id @-> bool @-> returning (id)) x (LLong.of_int legibilityStyle) tintColor hasBusyBackground -let initWithHeight' x ~legibilityStyle ~tintColor ~hasBusyBackground ~idiom self = msg_send ~self ~cmd:(selector "initWithHeight:legibilityStyle:tintColor:hasBusyBackground:idiom:") ~typ:(double @-> llong @-> id @-> bool @-> llong @-> returning (id)) x (LLong.of_int legibilityStyle) tintColor hasBusyBackground (LLong.of_int idiom) -let leftEdgePadding self = msg_send ~self ~cmd:(selector "leftEdgePadding") ~typ:(returning (double)) -let legibilityStyle self = msg_send ~self ~cmd:(selector "legibilityStyle") ~typ:(returning (llong)) -let makeTextFontForStyle x self = msg_send ~self ~cmd:(selector "makeTextFontForStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let middlePadding self = msg_send ~self ~cmd:(selector "middlePadding") ~typ:(returning (double)) -let positionForMoonMaskInBounds x self = msg_send_stret ~self ~cmd:(selector "positionForMoonMaskInBounds:") ~typ:(CGRect.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let rightEdgePadding self = msg_send ~self ~cmd:(selector "rightEdgePadding") ~typ:(returning (double)) -let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning (double)) -let setCanShowBreadcrumbs x self = msg_send ~self ~cmd:(selector "setCanShowBreadcrumbs:") ~typ:(bool @-> returning (void)) x -let shadowImageForImage x ~withIdentifier ~forStyle ~withStrength self = msg_send ~self ~cmd:(selector "shadowImageForImage:withIdentifier:forStyle:withStrength:") ~typ:(id @-> id @-> llong @-> double @-> returning (id)) x withIdentifier (LLong.of_int forStyle) withStrength -let shadowImageForImage1 x ~withIdentifier ~forStyle ~withStrength ~inTempGroup self = msg_send ~self ~cmd:(selector "shadowImageForImage:withIdentifier:forStyle:withStrength:inTempGroup:") ~typ:(id @-> id @-> llong @-> double @-> id @-> returning (id)) x withIdentifier (LLong.of_int forStyle) withStrength inTempGroup -let shadowImageForImage2 x ~withIdentifier ~forStyle ~withStrength ~inTempGroup ~shouldCache self = msg_send ~self ~cmd:(selector "shadowImageForImage:withIdentifier:forStyle:withStrength:inTempGroup:shouldCache:") ~typ:(id @-> id @-> llong @-> double @-> id @-> bool @-> returning (id)) x withIdentifier (LLong.of_int forStyle) withStrength inTempGroup shouldCache -let shadowPadding self = msg_send ~self ~cmd:(selector "shadowPadding") ~typ:(returning (double)) -let sizeForMoonMaskVisible x self = msg_send ~self ~cmd:(selector "sizeForMoonMaskVisible:") ~typ:(bool @-> returning (double)) x -let standardPadding self = msg_send ~self ~cmd:(selector "standardPadding") ~typ:(returning (double)) -let supportsShowingBuildVersion self = msg_send ~self ~cmd:(selector "supportsShowingBuildVersion") ~typ:(returning (bool)) -let textColorForStyle x self = msg_send ~self ~cmd:(selector "textColorForStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let textFontForStyle x self = msg_send ~self ~cmd:(selector "textFontForStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let textForNetworkType x self = msg_send ~self ~cmd:(selector "textForNetworkType:") ~typ:(int @-> returning (id)) x -let textOffsetForStyle x self = msg_send ~self ~cmd:(selector "textOffsetForStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning (id)) -let uncachedImageNamed x self = msg_send ~self ~cmd:(selector "uncachedImageNamed:") ~typ:(id @-> returning (id)) x -let uniqueIdentifier self = msg_send ~self ~cmd:(selector "uniqueIdentifier") ~typ:(returning (id)) -let untintedImageNamed x self = msg_send ~self ~cmd:(selector "untintedImageNamed:") ~typ:(id @-> returning (id)) x -let usesVerticalLayout self = msg_send ~self ~cmd:(selector "usesVerticalLayout") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIStatusBarForegroundView.ml b/uikit/UIStatusBarForegroundView.ml deleted file mode 100644 index bc080c88..00000000 --- a/uikit/UIStatusBarForegroundView.ml +++ /dev/null @@ -1,38 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarForegroundView" - -let animateUnlock self = msg_send ~self ~cmd:(selector "animateUnlock") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let foregroundStyle self = msg_send ~self ~cmd:(selector "foregroundStyle") ~typ:(returning (id)) -let frameForAllItemsInRegion x self = msg_send_stret ~self ~cmd:(selector "frameForAllItemsInRegion:") ~typ:(int @-> returning (CGRect.t)) ~return_type:CGRect.t x -let frameForItemOfType x self = msg_send_stret ~self ~cmd:(selector "frameForItemOfType:") ~typ:(int @-> returning (CGRect.t)) ~return_type:CGRect.t x -let idiom self = msg_send ~self ~cmd:(selector "idiom") ~typ:(returning (llong)) -let ignoringData self = msg_send ~self ~cmd:(selector "ignoringData") ~typ:(returning (bool)) -let initWithFrame x ~foregroundStyle ~usesVerticalLayout self = msg_send ~self ~cmd:(selector "initWithFrame:foregroundStyle:usesVerticalLayout:") ~typ:(CGRect.t @-> id @-> bool @-> returning (id)) x foregroundStyle usesVerticalLayout -let isShowingBreadcrumb self = msg_send ~self ~cmd:(selector "isShowingBreadcrumb") ~typ:(returning (bool)) -let jiggleLockIcon self = msg_send ~self ~cmd:(selector "jiggleLockIcon") ~typ:(returning (void)) -let leftEdgePadding self = msg_send ~self ~cmd:(selector "leftEdgePadding") ~typ:(returning (double)) -let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let rectIntersectsBatteryItem x self = msg_send ~self ~cmd:(selector "rectIntersectsBatteryItem:") ~typ:(CGRect.t @-> returning (bool)) x -let rectIntersectsTimeItem x self = msg_send ~self ~cmd:(selector "rectIntersectsTimeItem:") ~typ:(CGRect.t @-> returning (bool)) x -let reflowItemViews x self = msg_send ~self ~cmd:(selector "reflowItemViews:") ~typ:(bool @-> returning (void)) x -let reflowItemViewsCrossfadingCenter x ~duration self = msg_send ~self ~cmd:(selector "reflowItemViewsCrossfadingCenter:duration:") ~typ:(id @-> double @-> returning (void)) x duration -let reflowItemViewsForgettingEitherSideItemHistory self = msg_send ~self ~cmd:(selector "reflowItemViewsForgettingEitherSideItemHistory") ~typ:(returning (void)) -let rightEdgePadding self = msg_send ~self ~cmd:(selector "rightEdgePadding") ~typ:(returning (double)) -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setIdiom x self = msg_send ~self ~cmd:(selector "setIdiom:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPersistentAnimationsEnabled x self = msg_send ~self ~cmd:(selector "setPersistentAnimationsEnabled:") ~typ:(bool @-> returning (void)) x -let setStatusBarData x ~actions ~animated self = msg_send ~self ~cmd:(selector "setStatusBarData:actions:animated:") ~typ:(id @-> int @-> bool @-> returning (void)) x actions animated -let startIgnoringData self = msg_send ~self ~cmd:(selector "startIgnoringData") ~typ:(returning (void)) -let statusBar self = msg_send ~self ~cmd:(selector "statusBar") ~typ:(returning (id)) -let stopIgnoringData x self = msg_send ~self ~cmd:(selector "stopIgnoringData:") ~typ:(bool @-> returning (void)) x -let willChangeNavigationItemDisplayWithSystemNavigationAction x self = msg_send ~self ~cmd:(selector "willChangeNavigationItemDisplayWithSystemNavigationAction:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/uikit/UIStatusBarHideAnimationParameters.ml b/uikit/UIStatusBarHideAnimationParameters.ml deleted file mode 100644 index 39c45bb8..00000000 --- a/uikit/UIStatusBarHideAnimationParameters.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarHideAnimationParameters" - -let additionalSlideHeight self = msg_send ~self ~cmd:(selector "additionalSlideHeight") ~typ:(returning (double)) -let hideAnimation self = msg_send ~self ~cmd:(selector "hideAnimation") ~typ:(returning (int)) -let initWithDefaultParameters self = msg_send ~self ~cmd:(selector "initWithDefaultParameters") ~typ:(returning (id)) -let setAdditionalSlideHeight x self = msg_send ~self ~cmd:(selector "setAdditionalSlideHeight:") ~typ:(double @-> returning (void)) x -let setHideAnimation x self = msg_send ~self ~cmd:(selector "setHideAnimation:") ~typ:(int @-> returning (void)) x -let shouldAnimate self = msg_send ~self ~cmd:(selector "shouldAnimate") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIStatusBarHomeItemView.ml b/uikit/UIStatusBarHomeItemView.ml deleted file mode 100644 index 8a131f3f..00000000 --- a/uikit/UIStatusBarHomeItemView.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarHomeItemView" - -let buttonType self = msg_send ~self ~cmd:(selector "buttonType") ~typ:(returning (llong)) -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let extendsHitTestingFrame self = msg_send ~self ~cmd:(selector "extendsHitTestingFrame") ~typ:(returning (bool)) -let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning (double)) -let highlightImage self = msg_send ~self ~cmd:(selector "highlightImage") ~typ:(returning (id)) -let usesAdvancedActions self = msg_send ~self ~cmd:(selector "usesAdvancedActions") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIStatusBarHoverRegionAction.ml b/uikit/UIStatusBarHoverRegionAction.ml deleted file mode 100644 index 6b6bbec3..00000000 --- a/uikit/UIStatusBarHoverRegionAction.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarHoverRegionAction" - -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let initWithRegion x self = msg_send ~self ~cmd:(selector "initWithRegion:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let region self = msg_send ~self ~cmd:(selector "region") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit/UIStatusBarIndicatorItemView.ml b/uikit/UIStatusBarIndicatorItemView.ml deleted file mode 100644 index 72e93578..00000000 --- a/uikit/UIStatusBarIndicatorItemView.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarIndicatorItemView" - -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIStatusBarItem.ml b/uikit/UIStatusBarItem.ml index 7125baee..f6ab04a6 100644 --- a/uikit/UIStatusBarItem.ml +++ b/uikit/UIStatusBarItem.ml @@ -5,31 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStatusBarItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbaritem?language=objc}UIStatusBarItem} *) -module C = struct - let isItemWithTypeExclusive x ~outBlacklistItems ~outWhitelistItems self = msg_send ~self ~cmd:(selector "isItemWithTypeExclusive:outBlacklistItems:outWhitelistItems:") ~typ:(int @-> ptr (id) @-> ptr (id) @-> returning (bool)) x outBlacklistItems outWhitelistItems - let itemType x ~idiom ~appearsInRegion self = msg_send ~self ~cmd:(selector "itemType:idiom:appearsInRegion:") ~typ:(int @-> llong @-> int @-> returning (bool)) x (LLong.of_int idiom) appearsInRegion - let itemType' x ~idiom ~canBeEnabledForData ~style self = msg_send ~self ~cmd:(selector "itemType:idiom:canBeEnabledForData:style:") ~typ:(int @-> llong @-> id @-> id @-> returning (bool)) x (LLong.of_int idiom) canBeEnabledForData style - let itemWithType x ~idiom self = msg_send ~self ~cmd:(selector "itemWithType:idiom:") ~typ:(int @-> llong @-> returning (id)) x (LLong.of_int idiom) - let typeIsValid x self = msg_send ~self ~cmd:(selector "typeIsValid:") ~typ:(int @-> returning (bool)) x -end +let self = get_class "UIStatusBarItem" -let appearsInRegion x self = msg_send ~self ~cmd:(selector "appearsInRegion:") ~typ:(int @-> returning (bool)) x -let appearsOnCenter self = msg_send ~self ~cmd:(selector "appearsOnCenter") ~typ:(returning (bool)) -let appearsOnLeft self = msg_send ~self ~cmd:(selector "appearsOnLeft") ~typ:(returning (bool)) -let appearsOnRight self = msg_send ~self ~cmd:(selector "appearsOnRight") ~typ:(returning (bool)) -let centerOrder self = msg_send ~self ~cmd:(selector "centerOrder") ~typ:(returning (int)) -let compareCenterOrder x self = msg_send ~self ~cmd:(selector "compareCenterOrder:") ~typ:(id @-> returning (llong)) x -let compareLeftOrder x self = msg_send ~self ~cmd:(selector "compareLeftOrder:") ~typ:(id @-> returning (llong)) x -let comparePriority x self = msg_send ~self ~cmd:(selector "comparePriority:") ~typ:(id @-> returning (llong)) x -let compareRightOrder x self = msg_send ~self ~cmd:(selector "compareRightOrder:") ~typ:(id @-> returning (llong)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let indicatorName self = msg_send ~self ~cmd:(selector "indicatorName") ~typ:(returning (id)) -let initWithType x self = msg_send ~self ~cmd:(selector "initWithType:") ~typ:(int @-> returning (id)) x -let leftOrder self = msg_send ~self ~cmd:(selector "leftOrder") ~typ:(returning (int)) -let priority self = msg_send ~self ~cmd:(selector "priority") ~typ:(returning (int)) -let rightOrder self = msg_send ~self ~cmd:(selector "rightOrder") ~typ:(returning (int)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (int)) -let viewClass self = msg_send ~self ~cmd:(selector "viewClass") ~typ:(returning (_Class)) \ No newline at end of file +let appearsInRegion x self = msg_send ~self ~cmd:(selector "appearsInRegion:") ~typ:(int @-> returning bool) x +let appearsOnCenter self = msg_send ~self ~cmd:(selector "appearsOnCenter") ~typ:(returning bool) +let appearsOnLeft self = msg_send ~self ~cmd:(selector "appearsOnLeft") ~typ:(returning bool) +let appearsOnRight self = msg_send ~self ~cmd:(selector "appearsOnRight") ~typ:(returning bool) +let centerOrder self = msg_send ~self ~cmd:(selector "centerOrder") ~typ:(returning int) +let compareCenterOrder x self = msg_send ~self ~cmd:(selector "compareCenterOrder:") ~typ:(id @-> returning llong) x +let compareLeftOrder x self = msg_send ~self ~cmd:(selector "compareLeftOrder:") ~typ:(id @-> returning llong) x +let comparePriority x self = msg_send ~self ~cmd:(selector "comparePriority:") ~typ:(id @-> returning llong) x +let compareRightOrder x self = msg_send ~self ~cmd:(selector "compareRightOrder:") ~typ:(id @-> returning llong) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let indicatorName self = msg_send ~self ~cmd:(selector "indicatorName") ~typ:(returning id) +let initWithType x self = msg_send ~self ~cmd:(selector "initWithType:") ~typ:(int @-> returning id) x +let leftOrder self = msg_send ~self ~cmd:(selector "leftOrder") ~typ:(returning int) +let priority self = msg_send ~self ~cmd:(selector "priority") ~typ:(returning int) +let rightOrder self = msg_send ~self ~cmd:(selector "rightOrder") ~typ:(returning int) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning int) +let viewClass self = msg_send ~self ~cmd:(selector "viewClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit/UIStatusBarItemClass.ml b/uikit/UIStatusBarItemClass.ml new file mode 100644 index 00000000..0f3ca265 --- /dev/null +++ b/uikit/UIStatusBarItemClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbaritem?language=objc}UIStatusBarItem} *) + +let isItemWithTypeExclusive x ~outBlacklistItems ~outWhitelistItems self = msg_send ~self ~cmd:(selector "isItemWithTypeExclusive:outBlacklistItems:outWhitelistItems:") ~typ:(int @-> (ptr id) @-> (ptr id) @-> returning bool) x outBlacklistItems outWhitelistItems +let itemType x ~idiom ~appearsInRegion self = msg_send ~self ~cmd:(selector "itemType:idiom:appearsInRegion:") ~typ:(int @-> llong @-> int @-> returning bool) x (LLong.of_int idiom) appearsInRegion +let itemType' x ~idiom ~canBeEnabledForData ~style self = msg_send ~self ~cmd:(selector "itemType:idiom:canBeEnabledForData:style:") ~typ:(int @-> llong @-> id @-> id @-> returning bool) x (LLong.of_int idiom) canBeEnabledForData style +let itemWithType x ~idiom self = msg_send ~self ~cmd:(selector "itemWithType:idiom:") ~typ:(int @-> llong @-> returning id) x (LLong.of_int idiom) +let typeIsValid x self = msg_send ~self ~cmd:(selector "typeIsValid:") ~typ:(int @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIStatusBarItemView.ml b/uikit/UIStatusBarItemView.ml index 9f81b61d..932162a0 100644 --- a/uikit/UIStatusBarItemView.ml +++ b/uikit/UIStatusBarItemView.ml @@ -5,67 +5,67 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStatusBarItemView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbaritemview?language=objc}UIStatusBarItemView} *) -module C = struct - let createViewForItem x ~withData ~actions ~foregroundStyle self = msg_send ~self ~cmd:(selector "createViewForItem:withData:actions:foregroundStyle:") ~typ:(id @-> id @-> int @-> id @-> returning (id)) x withData actions foregroundStyle -end +let self = get_class "UIStatusBarItemView" -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let addContentOverlap x self = msg_send ~self ~cmd:(selector "addContentOverlap:") ~typ:(double @-> returning (double)) x -let adjustFrameToNewSize x self = msg_send ~self ~cmd:(selector "adjustFrameToNewSize:") ~typ:(double @-> returning (double)) x -let allowsUpdates self = msg_send ~self ~cmd:(selector "allowsUpdates") ~typ:(returning (bool)) -let allowsUserInteraction self = msg_send ~self ~cmd:(selector "allowsUserInteraction") ~typ:(returning (bool)) -let animatesDataChange self = msg_send ~self ~cmd:(selector "animatesDataChange") ~typ:(returning (bool)) -let beginDisablingRasterization self = msg_send ~self ~cmd:(selector "beginDisablingRasterization") ~typ:(returning (void)) -let beginImageContextWithMinimumWidth x self = msg_send ~self ~cmd:(selector "beginImageContextWithMinimumWidth:") ~typ:(double @-> returning (void)) x -let cachedImageWithText x ~truncatedWithEllipsesAtMaxWidth ~letterSpacing self = msg_send ~self ~cmd:(selector "cachedImageWithText:truncatedWithEllipsesAtMaxWidth:letterSpacing:") ~typ:(id @-> double @-> double @-> returning (id)) x truncatedWithEllipsesAtMaxWidth letterSpacing -let clearCachedTextImage self = msg_send ~self ~cmd:(selector "clearCachedTextImage") ~typ:(returning (void)) -let contentsIOSurface self = msg_send ~self ~cmd:(selector "contentsIOSurface") ~typ:(returning (id)) -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let currentLeftOverlap self = msg_send ~self ~cmd:(selector "currentLeftOverlap") ~typ:(returning (double)) -let currentOverlap self = msg_send ~self ~cmd:(selector "currentOverlap") ~typ:(returning (double)) -let currentRightOverlap self = msg_send ~self ~cmd:(selector "currentRightOverlap") ~typ:(returning (double)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let endDisablingRasterization self = msg_send ~self ~cmd:(selector "endDisablingRasterization") ~typ:(returning (void)) -let endImageContext self = msg_send ~self ~cmd:(selector "endImageContext") ~typ:(returning (void)) -let extraLeftPadding self = msg_send ~self ~cmd:(selector "extraLeftPadding") ~typ:(returning (double)) -let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning (double)) -let foregroundStyle self = msg_send ~self ~cmd:(selector "foregroundStyle") ~typ:(returning (id)) -let foregroundView self = msg_send ~self ~cmd:(selector "foregroundView") ~typ:(returning (id)) -let imageFromImageContextClippedToWidth x self = msg_send ~self ~cmd:(selector "imageFromImageContextClippedToWidth:") ~typ:(double @-> returning (id)) x -let imageWithShadowNamed x self = msg_send ~self ~cmd:(selector "imageWithShadowNamed:") ~typ:(id @-> returning (id)) x -let imageWithText x self = msg_send ~self ~cmd:(selector "imageWithText:") ~typ:(id @-> returning (id)) x -let imageWithText' x ~shouldCache self = msg_send ~self ~cmd:(selector "imageWithText:shouldCache:") ~typ:(id @-> bool @-> returning (id)) x shouldCache -let initWithItem x ~data ~actions ~style self = msg_send ~self ~cmd:(selector "initWithItem:data:actions:style:") ~typ:(id @-> id @-> int @-> id @-> returning (id)) x data actions style -let isVisible self = msg_send ~self ~cmd:(selector "isVisible") ~typ:(returning (bool)) -let item self = msg_send ~self ~cmd:(selector "item") ~typ:(returning (id)) -let layoutManager self = msg_send ~self ~cmd:(selector "layoutManager") ~typ:(returning (id)) -let legibilityStrength self = msg_send ~self ~cmd:(selector "legibilityStrength") ~typ:(returning (double)) -let legibilityStyle self = msg_send ~self ~cmd:(selector "legibilityStyle") ~typ:(returning (llong)) -let maximumOverlap self = msg_send ~self ~cmd:(selector "maximumOverlap") ~typ:(returning (double)) -let neededSizeForImageSet x self = msg_send ~self ~cmd:(selector "neededSizeForImageSet:") ~typ:(id @-> returning (double)) x -let performPendedActions self = msg_send ~self ~cmd:(selector "performPendedActions") ~typ:(returning (void)) -let resetContentOverlap self = msg_send ~self ~cmd:(selector "resetContentOverlap") ~typ:(returning (double)) -let setAllowsUpdates x self = msg_send ~self ~cmd:(selector "setAllowsUpdates:") ~typ:(bool @-> returning (void)) x -let setContentMode x self = msg_send ~self ~cmd:(selector "setContentMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCurrentOverlap x self = msg_send ~self ~cmd:(selector "setCurrentOverlap:") ~typ:(double @-> returning (void)) x -let setLayerContentsImage x self = msg_send ~self ~cmd:(selector "setLayerContentsImage:") ~typ:(id @-> returning (void)) x -let setLayoutManager x self = msg_send ~self ~cmd:(selector "setLayoutManager:") ~typ:(id @-> returning (void)) x -let setPersistentAnimationsEnabled x self = msg_send ~self ~cmd:(selector "setPersistentAnimationsEnabled:") ~typ:(bool @-> returning (void)) x -let setStatusBarData x ~actions self = msg_send ~self ~cmd:(selector "setStatusBarData:actions:") ~typ:(id @-> int @-> returning (double)) x actions -let setVisible x self = msg_send ~self ~cmd:(selector "setVisible:") ~typ:(bool @-> returning (void)) x -let setVisible1 x ~settingAlpha self = msg_send ~self ~cmd:(selector "setVisible:settingAlpha:") ~typ:(bool @-> bool @-> returning (void)) x settingAlpha -let setVisible2 x ~frame ~duration self = msg_send ~self ~cmd:(selector "setVisible:frame:duration:") ~typ:(bool @-> CGRect.t @-> double @-> returning (void)) x frame duration -let shadowPadding self = msg_send ~self ~cmd:(selector "shadowPadding") ~typ:(returning (double)) -let shouldTintContentImage self = msg_send ~self ~cmd:(selector "shouldTintContentImage") ~typ:(returning (bool)) -let standardPadding self = msg_send ~self ~cmd:(selector "standardPadding") ~typ:(returning (double)) -let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning (llong)) -let textFont self = msg_send ~self ~cmd:(selector "textFont") ~typ:(returning (id)) -let textStyle self = msg_send ~self ~cmd:(selector "textStyle") ~typ:(returning (llong)) -let updateContentsAndWidth self = msg_send ~self ~cmd:(selector "updateContentsAndWidth") ~typ:(returning (double)) -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions -let updateForNewStyle x self = msg_send ~self ~cmd:(selector "updateForNewStyle:") ~typ:(id @-> returning (void)) x -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let addContentOverlap x self = msg_send ~self ~cmd:(selector "addContentOverlap:") ~typ:(double @-> returning double) x +let adjustFrameToNewSize x self = msg_send ~self ~cmd:(selector "adjustFrameToNewSize:") ~typ:(double @-> returning double) x +let allowsUpdates self = msg_send ~self ~cmd:(selector "allowsUpdates") ~typ:(returning bool) +let allowsUserInteraction self = msg_send ~self ~cmd:(selector "allowsUserInteraction") ~typ:(returning bool) +let animatesDataChange self = msg_send ~self ~cmd:(selector "animatesDataChange") ~typ:(returning bool) +let beginDisablingRasterization self = msg_send ~self ~cmd:(selector "beginDisablingRasterization") ~typ:(returning void) +let beginImageContextWithMinimumWidth x self = msg_send ~self ~cmd:(selector "beginImageContextWithMinimumWidth:") ~typ:(double @-> returning void) x +let cachedImageWithText x ~truncatedWithEllipsesAtMaxWidth ~letterSpacing self = msg_send ~self ~cmd:(selector "cachedImageWithText:truncatedWithEllipsesAtMaxWidth:letterSpacing:") ~typ:(id @-> double @-> double @-> returning id) x truncatedWithEllipsesAtMaxWidth letterSpacing +let clearCachedTextImage self = msg_send ~self ~cmd:(selector "clearCachedTextImage") ~typ:(returning void) +let contentsIOSurface self = msg_send ~self ~cmd:(selector "contentsIOSurface") ~typ:(returning id) +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let currentLeftOverlap self = msg_send ~self ~cmd:(selector "currentLeftOverlap") ~typ:(returning double) +let currentOverlap self = msg_send ~self ~cmd:(selector "currentOverlap") ~typ:(returning double) +let currentRightOverlap self = msg_send ~self ~cmd:(selector "currentRightOverlap") ~typ:(returning double) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let endDisablingRasterization self = msg_send ~self ~cmd:(selector "endDisablingRasterization") ~typ:(returning void) +let endImageContext self = msg_send ~self ~cmd:(selector "endImageContext") ~typ:(returning void) +let extraLeftPadding self = msg_send ~self ~cmd:(selector "extraLeftPadding") ~typ:(returning double) +let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning double) +let foregroundStyle self = msg_send ~self ~cmd:(selector "foregroundStyle") ~typ:(returning id) +let foregroundView self = msg_send ~self ~cmd:(selector "foregroundView") ~typ:(returning id) +let imageFromImageContextClippedToWidth x self = msg_send ~self ~cmd:(selector "imageFromImageContextClippedToWidth:") ~typ:(double @-> returning id) x +let imageWithShadowNamed x self = msg_send ~self ~cmd:(selector "imageWithShadowNamed:") ~typ:(id @-> returning id) x +let imageWithText x self = msg_send ~self ~cmd:(selector "imageWithText:") ~typ:(id @-> returning id) x +let imageWithText' x ~shouldCache self = msg_send ~self ~cmd:(selector "imageWithText:shouldCache:") ~typ:(id @-> bool @-> returning id) x shouldCache +let initWithItem x ~data ~actions ~style self = msg_send ~self ~cmd:(selector "initWithItem:data:actions:style:") ~typ:(id @-> id @-> int @-> id @-> returning id) x data actions style +let isVisible self = msg_send ~self ~cmd:(selector "isVisible") ~typ:(returning bool) +let item self = msg_send ~self ~cmd:(selector "item") ~typ:(returning id) +let layoutManager self = msg_send ~self ~cmd:(selector "layoutManager") ~typ:(returning id) +let legibilityStrength self = msg_send ~self ~cmd:(selector "legibilityStrength") ~typ:(returning double) +let legibilityStyle self = msg_send ~self ~cmd:(selector "legibilityStyle") ~typ:(returning llong) +let maximumOverlap self = msg_send ~self ~cmd:(selector "maximumOverlap") ~typ:(returning double) +let neededSizeForImageSet x self = msg_send ~self ~cmd:(selector "neededSizeForImageSet:") ~typ:(id @-> returning double) x +let performPendedActions self = msg_send ~self ~cmd:(selector "performPendedActions") ~typ:(returning void) +let resetContentOverlap self = msg_send ~self ~cmd:(selector "resetContentOverlap") ~typ:(returning double) +let setAllowsUpdates x self = msg_send ~self ~cmd:(selector "setAllowsUpdates:") ~typ:(bool @-> returning void) x +let setContentMode x self = msg_send ~self ~cmd:(selector "setContentMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCurrentOverlap x self = msg_send ~self ~cmd:(selector "setCurrentOverlap:") ~typ:(double @-> returning void) x +let setLayerContentsImage x self = msg_send ~self ~cmd:(selector "setLayerContentsImage:") ~typ:(id @-> returning void) x +let setLayoutManager x self = msg_send ~self ~cmd:(selector "setLayoutManager:") ~typ:(id @-> returning void) x +let setPersistentAnimationsEnabled x self = msg_send ~self ~cmd:(selector "setPersistentAnimationsEnabled:") ~typ:(bool @-> returning void) x +let setStatusBarData x ~actions self = msg_send ~self ~cmd:(selector "setStatusBarData:actions:") ~typ:(id @-> int @-> returning double) x actions +let setVisible x self = msg_send ~self ~cmd:(selector "setVisible:") ~typ:(bool @-> returning void) x +let setVisible1 x ~settingAlpha self = msg_send ~self ~cmd:(selector "setVisible:settingAlpha:") ~typ:(bool @-> bool @-> returning void) x settingAlpha +let setVisible2 x ~frame ~duration self = msg_send ~self ~cmd:(selector "setVisible:frame:duration:") ~typ:(bool @-> CGRect.t @-> double @-> returning void) x frame duration +let shadowPadding self = msg_send ~self ~cmd:(selector "shadowPadding") ~typ:(returning double) +let shouldTintContentImage self = msg_send ~self ~cmd:(selector "shouldTintContentImage") ~typ:(returning bool) +let standardPadding self = msg_send ~self ~cmd:(selector "standardPadding") ~typ:(returning double) +let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning llong) +let textFont self = msg_send ~self ~cmd:(selector "textFont") ~typ:(returning id) +let textStyle self = msg_send ~self ~cmd:(selector "textStyle") ~typ:(returning llong) +let updateContentsAndWidth self = msg_send ~self ~cmd:(selector "updateContentsAndWidth") ~typ:(returning double) +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions +let updateForNewStyle x self = msg_send ~self ~cmd:(selector "updateForNewStyle:") ~typ:(id @-> returning void) x +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIStatusBarItemViewClass.ml b/uikit/UIStatusBarItemViewClass.ml new file mode 100644 index 00000000..7456d1e6 --- /dev/null +++ b/uikit/UIStatusBarItemViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbaritemview?language=objc}UIStatusBarItemView} *) + +let createViewForItem x ~withData ~actions ~foregroundStyle self = msg_send ~self ~cmd:(selector "createViewForItem:withData:actions:foregroundStyle:") ~typ:(id @-> id @-> int @-> id @-> returning id) x withData actions foregroundStyle \ No newline at end of file diff --git a/uikit/UIStatusBarLayoutManager.ml b/uikit/UIStatusBarLayoutManager.ml index 883af5e8..95bef089 100644 --- a/uikit/UIStatusBarLayoutManager.ml +++ b/uikit/UIStatusBarLayoutManager.ml @@ -5,37 +5,41 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStatusBarLayoutManager" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarlayoutmanager?language=objc}UIStatusBarLayoutManager} *) -let allItemViews self = msg_send ~self ~cmd:(selector "allItemViews") ~typ:(returning (id)) -let assignedStartPosition self = msg_send ~self ~cmd:(selector "assignedStartPosition") ~typ:(returning (id)) -let clearOverlapFromItems x self = msg_send ~self ~cmd:(selector "clearOverlapFromItems:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let distributeOverlap x ~amongItems self = msg_send ~self ~cmd:(selector "distributeOverlap:amongItems:") ~typ:(double @-> id @-> returning (double)) x amongItems -let foregroundView self = msg_send ~self ~cmd:(selector "foregroundView") ~typ:(returning (id)) -let initWithRegion x ~foregroundView ~usesVerticalLayout self = msg_send ~self ~cmd:(selector "initWithRegion:foregroundView:usesVerticalLayout:") ~typ:(int @-> id @-> bool @-> returning (id)) x foregroundView usesVerticalLayout -let itemIsVisible x self = msg_send ~self ~cmd:(selector "itemIsVisible:") ~typ:(id @-> returning (bool)) x -let itemView x ~sizeChangedBy self = msg_send ~self ~cmd:(selector "itemView:sizeChangedBy:") ~typ:(id @-> double @-> returning (void)) x sizeChangedBy -let itemViewOfType x self = msg_send ~self ~cmd:(selector "itemViewOfType:") ~typ:(int @-> returning (id)) x -let makeVisibleItemsPerformPendedActions self = msg_send ~self ~cmd:(selector "makeVisibleItemsPerformPendedActions") ~typ:(returning (void)) -let persistentAnimationsEnabled self = msg_send ~self ~cmd:(selector "persistentAnimationsEnabled") ~typ:(returning (bool)) -let positionInvisibleItems self = msg_send ~self ~cmd:(selector "positionInvisibleItems") ~typ:(returning (void)) -let prepareDoubleHeightItemWithEnabledItems x self = msg_send ~self ~cmd:(selector "prepareDoubleHeightItemWithEnabledItems:") ~typ:(ptr (bool) @-> returning (bool)) x -let prepareEnabledItems x ~withData ~actions self = msg_send ~self ~cmd:(selector "prepareEnabledItems:withData:actions:") ~typ:(ptr (bool) @-> id @-> int @-> returning (bool)) x withData actions -let rectForItems x self = msg_send_stret ~self ~cmd:(selector "rectForItems:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let reflowWithVisibleItems x ~duration self = msg_send ~self ~cmd:(selector "reflowWithVisibleItems:duration:") ~typ:(id @-> double @-> returning (void)) x duration -let removeDisabledItems x self = msg_send ~self ~cmd:(selector "removeDisabledItems:") ~typ:(ptr (bool) @-> returning (void)) x -let removeOverlap x ~fromItems self = msg_send ~self ~cmd:(selector "removeOverlap:fromItems:") ~typ:(double @-> id @-> returning (double)) x fromItems -let setAssignedStartPosition x self = msg_send ~self ~cmd:(selector "setAssignedStartPosition:") ~typ:(id @-> returning (void)) x -let setForegroundView x self = msg_send ~self ~cmd:(selector "setForegroundView:") ~typ:(id @-> returning (void)) x -let setPersistentAnimationsEnabled x self = msg_send ~self ~cmd:(selector "setPersistentAnimationsEnabled:") ~typ:(bool @-> returning (void)) x -let setVisibilityOfAllItems x self = msg_send ~self ~cmd:(selector "setVisibilityOfAllItems:") ~typ:(bool @-> returning (void)) x -let setVisibilityOfItem x ~visible self = msg_send ~self ~cmd:(selector "setVisibilityOfItem:visible:") ~typ:(id @-> bool @-> returning (void)) x visible -let setVisibilityOfItemType x ~visible self = msg_send ~self ~cmd:(selector "setVisibilityOfItemType:visible:") ~typ:(int @-> bool @-> returning (void)) x visible -let sizeNeededForItem x self = msg_send ~self ~cmd:(selector "sizeNeededForItem:") ~typ:(id @-> returning (double)) x -let sizeNeededForItems x self = msg_send ~self ~cmd:(selector "sizeNeededForItems:") ~typ:(id @-> returning (double)) x -let updateDoubleHeightItem self = msg_send ~self ~cmd:(selector "updateDoubleHeightItem") ~typ:(returning (bool)) -let updateItemsWithData x ~actions ~animated self = msg_send ~self ~cmd:(selector "updateItemsWithData:actions:animated:") ~typ:(id @-> int @-> bool @-> returning (bool)) x actions animated -let usesVerticalLayout self = msg_send ~self ~cmd:(selector "usesVerticalLayout") ~typ:(returning (bool)) -let visibleItemViewAtPoint x ~inForegroundView self = msg_send ~self ~cmd:(selector "visibleItemViewAtPoint:inForegroundView:") ~typ:(CGPoint.t @-> id @-> returning (id)) x inForegroundView \ No newline at end of file +let self = get_class "UIStatusBarLayoutManager" + +let allItemViews self = msg_send ~self ~cmd:(selector "allItemViews") ~typ:(returning id) +let assignedStartPosition self = msg_send ~self ~cmd:(selector "assignedStartPosition") ~typ:(returning id) +let clearOverlapFromItems x self = msg_send ~self ~cmd:(selector "clearOverlapFromItems:") ~typ:(id @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let distributeOverlap x ~amongItems self = msg_send ~self ~cmd:(selector "distributeOverlap:amongItems:") ~typ:(double @-> id @-> returning double) x amongItems +let foregroundView self = msg_send ~self ~cmd:(selector "foregroundView") ~typ:(returning id) +let initWithRegion x ~foregroundView ~usesVerticalLayout self = msg_send ~self ~cmd:(selector "initWithRegion:foregroundView:usesVerticalLayout:") ~typ:(int @-> id @-> bool @-> returning id) x foregroundView usesVerticalLayout +let itemIsVisible x self = msg_send ~self ~cmd:(selector "itemIsVisible:") ~typ:(id @-> returning bool) x +let itemView x ~sizeChangedBy self = msg_send ~self ~cmd:(selector "itemView:sizeChangedBy:") ~typ:(id @-> double @-> returning void) x sizeChangedBy +let itemViewOfType x self = msg_send ~self ~cmd:(selector "itemViewOfType:") ~typ:(int @-> returning id) x +let makeVisibleItemsPerformPendedActions self = msg_send ~self ~cmd:(selector "makeVisibleItemsPerformPendedActions") ~typ:(returning void) +let persistentAnimationsEnabled self = msg_send ~self ~cmd:(selector "persistentAnimationsEnabled") ~typ:(returning bool) +let positionInvisibleItems self = msg_send ~self ~cmd:(selector "positionInvisibleItems") ~typ:(returning void) +let prepareDoubleHeightItemWithEnabledItems x self = msg_send ~self ~cmd:(selector "prepareDoubleHeightItemWithEnabledItems:") ~typ:((ptr bool) @-> returning bool) x +let prepareEnabledItems x ~withData ~actions self = msg_send ~self ~cmd:(selector "prepareEnabledItems:withData:actions:") ~typ:((ptr bool) @-> id @-> int @-> returning bool) x withData actions +let rectForItems x self = msg_send ~self ~cmd:(selector "rectForItems:") ~typ:(id @-> returning CGRect.t) x +let reflowWithVisibleItems x ~duration self = msg_send ~self ~cmd:(selector "reflowWithVisibleItems:duration:") ~typ:(id @-> double @-> returning void) x duration +let removeDisabledItems x self = msg_send ~self ~cmd:(selector "removeDisabledItems:") ~typ:((ptr bool) @-> returning void) x +let removeOverlap x ~fromItems self = msg_send ~self ~cmd:(selector "removeOverlap:fromItems:") ~typ:(double @-> id @-> returning double) x fromItems +let setAssignedStartPosition x self = msg_send ~self ~cmd:(selector "setAssignedStartPosition:") ~typ:(id @-> returning void) x +let setForegroundView x self = msg_send ~self ~cmd:(selector "setForegroundView:") ~typ:(id @-> returning void) x +let setPersistentAnimationsEnabled x self = msg_send ~self ~cmd:(selector "setPersistentAnimationsEnabled:") ~typ:(bool @-> returning void) x +let setVisibilityOfAllItems x self = msg_send ~self ~cmd:(selector "setVisibilityOfAllItems:") ~typ:(bool @-> returning void) x +let setVisibilityOfItem x ~visible self = msg_send ~self ~cmd:(selector "setVisibilityOfItem:visible:") ~typ:(id @-> bool @-> returning void) x visible +let setVisibilityOfItemType x ~visible self = msg_send ~self ~cmd:(selector "setVisibilityOfItemType:visible:") ~typ:(int @-> bool @-> returning void) x visible +let sizeNeededForItem x self = msg_send ~self ~cmd:(selector "sizeNeededForItem:") ~typ:(id @-> returning double) x +let sizeNeededForItems x self = msg_send ~self ~cmd:(selector "sizeNeededForItems:") ~typ:(id @-> returning double) x +let updateDoubleHeightItem self = msg_send ~self ~cmd:(selector "updateDoubleHeightItem") ~typ:(returning bool) +let updateItemsWithData x ~actions ~animated self = msg_send ~self ~cmd:(selector "updateItemsWithData:actions:animated:") ~typ:(id @-> int @-> bool @-> returning bool) x actions animated +let usesVerticalLayout self = msg_send ~self ~cmd:(selector "usesVerticalLayout") ~typ:(returning bool) +let visibleItemViewAtPoint x ~inForegroundView self = msg_send ~self ~cmd:(selector "visibleItemViewAtPoint:inForegroundView:") ~typ:(CGPoint.t @-> id @-> returning id) x inForegroundView \ No newline at end of file diff --git a/uikit/UIStatusBarLiquidDetectionItemView.ml b/uikit/UIStatusBarLiquidDetectionItemView.ml deleted file mode 100644 index 13a045bd..00000000 --- a/uikit/UIStatusBarLiquidDetectionItemView.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarLiquidDetectionItemView" - -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIStatusBarLocationItemView.ml b/uikit/UIStatusBarLocationItemView.ml deleted file mode 100644 index eb836959..00000000 --- a/uikit/UIStatusBarLocationItemView.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarLocationItemView" - -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file diff --git a/uikit/UIStatusBarLockItemView.ml b/uikit/UIStatusBarLockItemView.ml deleted file mode 100644 index 6aa3b7d0..00000000 --- a/uikit/UIStatusBarLockItemView.ml +++ /dev/null @@ -1,46 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarLockItemView" - -module C = struct - let lockSlideAnimationDuration self = msg_send ~self ~cmd:(selector "lockSlideAnimationDuration") ~typ:(returning (double)) -end - -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let alongsideViewIsBecomingVisible self = msg_send ~self ~cmd:(selector "alongsideViewIsBecomingVisible") ~typ:(returning (bool)) -let animateUnlockForegroundView x ~timeItemSnapshot ~completionBlock self = msg_send ~self ~cmd:(selector "animateUnlockForegroundView:timeItemSnapshot:completionBlock:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x timeItemSnapshot completionBlock -let animationCompletionBlock self = msg_send ~self ~cmd:(selector "animationCompletionBlock") ~typ:(returning (ptr void)) -let animationCount self = msg_send ~self ~cmd:(selector "animationCount") ~typ:(returning (int)) -let animationDidStop x ~finished self = msg_send ~self ~cmd:(selector "animationDidStop:finished:") ~typ:(id @-> bool @-> returning (void)) x finished -let isExclusive self = msg_send ~self ~cmd:(selector "isExclusive") ~typ:(returning (bool)) -let jiggleCompletionBlock x self = msg_send ~self ~cmd:(selector "jiggleCompletionBlock:") ~typ:(ptr void @-> returning (void)) x -let padlockView self = msg_send ~self ~cmd:(selector "padlockView") ~typ:(returning (id)) -let padlockViewCenterOffsetFromForegroundViewCenter self = msg_send ~self ~cmd:(selector "padlockViewCenterOffsetFromForegroundViewCenter") ~typ:(returning (double)) -let setAlongsideViewIsBecomingVisible x self = msg_send ~self ~cmd:(selector "setAlongsideViewIsBecomingVisible:") ~typ:(bool @-> returning (void)) x -let setAnimationCompletionBlock x self = msg_send ~self ~cmd:(selector "setAnimationCompletionBlock:") ~typ:(ptr void @-> returning (void)) x -let setAnimationCount x self = msg_send ~self ~cmd:(selector "setAnimationCount:") ~typ:(int @-> returning (void)) x -let setPadlockView x self = msg_send ~self ~cmd:(selector "setPadlockView:") ~typ:(id @-> returning (void)) x -let setPadlockViewCenterOffsetFromForegroundViewCenter x self = msg_send ~self ~cmd:(selector "setPadlockViewCenterOffsetFromForegroundViewCenter:") ~typ:(double @-> returning (void)) x -let setTextClippingView x self = msg_send ~self ~cmd:(selector "setTextClippingView:") ~typ:(id @-> returning (void)) x -let setTextView x self = msg_send ~self ~cmd:(selector "setTextView:") ~typ:(id @-> returning (void)) x -let setTimeItemSnapshot x self = msg_send ~self ~cmd:(selector "setTimeItemSnapshot:") ~typ:(id @-> returning (void)) x -let setTimeItemSnapshotCenterOffsetFromForegroundViewCenter x self = msg_send ~self ~cmd:(selector "setTimeItemSnapshotCenterOffsetFromForegroundViewCenter:") ~typ:(double @-> returning (void)) x -let setViewToAnimateAlongside x self = msg_send ~self ~cmd:(selector "setViewToAnimateAlongside:") ~typ:(id @-> returning (void)) x -let setVisible x ~frame ~duration self = msg_send ~self ~cmd:(selector "setVisible:frame:duration:") ~typ:(bool @-> CGRect.t @-> double @-> returning (void)) x frame duration -let setWidthNeededDuringAnimation x self = msg_send ~self ~cmd:(selector "setWidthNeededDuringAnimation:") ~typ:(double @-> returning (void)) x -let setWidthNeededForFinalState x self = msg_send ~self ~cmd:(selector "setWidthNeededForFinalState:") ~typ:(double @-> returning (void)) x -let textClippingView self = msg_send ~self ~cmd:(selector "textClippingView") ~typ:(returning (id)) -let textView self = msg_send ~self ~cmd:(selector "textView") ~typ:(returning (id)) -let timeItemSnapshot self = msg_send ~self ~cmd:(selector "timeItemSnapshot") ~typ:(returning (id)) -let timeItemSnapshotCenterOffsetFromForegroundViewCenter self = msg_send ~self ~cmd:(selector "timeItemSnapshotCenterOffsetFromForegroundViewCenter") ~typ:(returning (double)) -let updateContentsAndWidth self = msg_send ~self ~cmd:(selector "updateContentsAndWidth") ~typ:(returning (double)) -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions -let viewToAnimateAlongside self = msg_send ~self ~cmd:(selector "viewToAnimateAlongside") ~typ:(returning (id)) -let widthNeededDuringAnimation self = msg_send ~self ~cmd:(selector "widthNeededDuringAnimation") ~typ:(returning (double)) -let widthNeededForFinalState self = msg_send ~self ~cmd:(selector "widthNeededForFinalState") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit/UIStatusBarLockScreenForegroundStyleAttributes.ml b/uikit/UIStatusBarLockScreenForegroundStyleAttributes.ml deleted file mode 100644 index 45885bac..00000000 --- a/uikit/UIStatusBarLockScreenForegroundStyleAttributes.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarLockScreenForegroundStyleAttributes" - -let activityIndicatorStyleWithSyncActivity x self = msg_send ~self ~cmd:(selector "activityIndicatorStyleWithSyncActivity:") ~typ:(bool @-> returning (llong)) x -let expandedNameForImageName x self = msg_send ~self ~cmd:(selector "expandedNameForImageName:") ~typ:(id @-> returning (id)) x -let makeTextFontForStyle x self = msg_send ~self ~cmd:(selector "makeTextFontForStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let positionForMoonMaskInBounds x self = msg_send_stret ~self ~cmd:(selector "positionForMoonMaskInBounds:") ~typ:(CGRect.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let sizeForMoonMaskVisible x self = msg_send ~self ~cmd:(selector "sizeForMoonMaskVisible:") ~typ:(bool @-> returning (double)) x -let supportsShowingBuildVersion self = msg_send ~self ~cmd:(selector "supportsShowingBuildVersion") ~typ:(returning (bool)) -let textOffsetForStyle x self = msg_send ~self ~cmd:(selector "textOffsetForStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIStatusBarLockScreenStyleAttributes.ml b/uikit/UIStatusBarLockScreenStyleAttributes.ml deleted file mode 100644 index 7ac1c192..00000000 --- a/uikit/UIStatusBarLockScreenStyleAttributes.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarLockScreenStyleAttributes" - -let foregroundStyleClass self = msg_send ~self ~cmd:(selector "foregroundStyleClass") ~typ:(returning (_Class)) -let heightForMetrics x self = msg_send ~self ~cmd:(selector "heightForMetrics:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let isLockScreen self = msg_send ~self ~cmd:(selector "isLockScreen") ~typ:(returning (bool)) -let shouldShowInternalItemType x ~withScreenCapabilities self = msg_send ~self ~cmd:(selector "shouldShowInternalItemType:withScreenCapabilities:") ~typ:(int @-> id @-> returning (bool)) x withScreenCapabilities \ No newline at end of file diff --git a/uikit/UIStatusBarManager.ml b/uikit/UIStatusBarManager.ml index 55bfb7f6..66a84ca9 100644 --- a/uikit/UIStatusBarManager.ml +++ b/uikit/UIStatusBarManager.ml @@ -5,34 +5,38 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStatusBarManager" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarmanager?language=objc}UIStatusBarManager} *) -let activateLocalStatusBar x self = msg_send ~self ~cmd:(selector "activateLocalStatusBar:") ~typ:(id @-> returning (void)) x -let createLocalStatusBar self = msg_send ~self ~cmd:(selector "createLocalStatusBar") ~typ:(returning (id)) -let deactivateLocalStatusBar x self = msg_send ~self ~cmd:(selector "deactivateLocalStatusBar:") ~typ:(id @-> returning (void)) x +let self = get_class "UIStatusBarManager" + +let activateLocalStatusBar x self = msg_send ~self ~cmd:(selector "activateLocalStatusBar:") ~typ:(id @-> returning void) x +let createLocalStatusBar self = msg_send ~self ~cmd:(selector "createLocalStatusBar") ~typ:(returning id) +let deactivateLocalStatusBar x self = msg_send ~self ~cmd:(selector "deactivateLocalStatusBar:") ~typ:(id @-> returning void) x let debugMenuHandler self = msg_send ~self ~cmd:(selector "debugMenuHandler") ~typ:(returning (ptr void)) -let defaultStatusBarHeight self = msg_send ~self ~cmd:(selector "defaultStatusBarHeight") ~typ:(returning (double)) -let defaultStatusBarHeightInOrientation x self = msg_send ~self ~cmd:(selector "defaultStatusBarHeightInOrientation:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let handleTapAction x self = msg_send ~self ~cmd:(selector "handleTapAction:") ~typ:(id @-> returning (void)) x -let initWithScene x self = msg_send ~self ~cmd:(selector "initWithScene:") ~typ:(id @-> returning (id)) x -let isInStatusBarFadeAnimation self = msg_send ~self ~cmd:(selector "isInStatusBarFadeAnimation") ~typ:(returning (bool)) -let isStatusBarHidden self = msg_send ~self ~cmd:(selector "isStatusBarHidden") ~typ:(returning (bool)) -let localStatusBars self = msg_send ~self ~cmd:(selector "localStatusBars") ~typ:(returning (id)) -let setDebugMenuHandler x self = msg_send ~self ~cmd:(selector "setDebugMenuHandler:") ~typ:(ptr void @-> returning (void)) x -let setLocalStatusBars x self = msg_send ~self ~cmd:(selector "setLocalStatusBars:") ~typ:(id @-> returning (void)) x -let setWindowScene x self = msg_send ~self ~cmd:(selector "setWindowScene:") ~typ:(id @-> returning (void)) x -let setupForSingleLocalStatusBar self = msg_send ~self ~cmd:(selector "setupForSingleLocalStatusBar") ~typ:(returning (void)) -let statusBarAlpha self = msg_send ~self ~cmd:(selector "statusBarAlpha") ~typ:(returning (double)) -let statusBarFrame self = msg_send_stret ~self ~cmd:(selector "statusBarFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let statusBarFrameForStatusBarHeight x self = msg_send_stret ~self ~cmd:(selector "statusBarFrameForStatusBarHeight:") ~typ:(double @-> returning (CGRect.t)) ~return_type:CGRect.t x -let statusBarFrameForStatusBarHeight' x ~inOrientation self = msg_send_stret ~self ~cmd:(selector "statusBarFrameForStatusBarHeight:inOrientation:") ~typ:(double @-> llong @-> returning (CGRect.t)) ~return_type:CGRect.t x (LLong.of_int inOrientation) -let statusBarHeight self = msg_send ~self ~cmd:(selector "statusBarHeight") ~typ:(returning (double)) -let statusBarHidden self = msg_send ~self ~cmd:(selector "statusBarHidden") ~typ:(returning (bool)) -let statusBarPartStyles self = msg_send ~self ~cmd:(selector "statusBarPartStyles") ~typ:(returning (id)) -let statusBarStyle self = msg_send ~self ~cmd:(selector "statusBarStyle") ~typ:(returning (llong)) -let updateLocalStatusBars self = msg_send ~self ~cmd:(selector "updateLocalStatusBars") ~typ:(returning (void)) -let updateStatusBarAppearance self = msg_send ~self ~cmd:(selector "updateStatusBarAppearance") ~typ:(returning (void)) -let updateStatusBarAppearanceWithAnimationParameters x self = msg_send ~self ~cmd:(selector "updateStatusBarAppearanceWithAnimationParameters:") ~typ:(id @-> returning (void)) x +let defaultStatusBarHeight self = msg_send ~self ~cmd:(selector "defaultStatusBarHeight") ~typ:(returning double) +let defaultStatusBarHeightInOrientation x self = msg_send ~self ~cmd:(selector "defaultStatusBarHeightInOrientation:") ~typ:(llong @-> returning double) (LLong.of_int x) +let handleTapAction x self = msg_send ~self ~cmd:(selector "handleTapAction:") ~typ:(id @-> returning void) x +let initWithScene x self = msg_send ~self ~cmd:(selector "initWithScene:") ~typ:(id @-> returning id) x +let isInStatusBarFadeAnimation self = msg_send ~self ~cmd:(selector "isInStatusBarFadeAnimation") ~typ:(returning bool) +let isStatusBarHidden self = msg_send ~self ~cmd:(selector "isStatusBarHidden") ~typ:(returning bool) +let localStatusBars self = msg_send ~self ~cmd:(selector "localStatusBars") ~typ:(returning id) +let setDebugMenuHandler x self = msg_send ~self ~cmd:(selector "setDebugMenuHandler:") ~typ:((ptr void) @-> returning void) x +let setLocalStatusBars x self = msg_send ~self ~cmd:(selector "setLocalStatusBars:") ~typ:(id @-> returning void) x +let setWindowScene x self = msg_send ~self ~cmd:(selector "setWindowScene:") ~typ:(id @-> returning void) x +let setupForSingleLocalStatusBar self = msg_send ~self ~cmd:(selector "setupForSingleLocalStatusBar") ~typ:(returning void) +let statusBarAlpha self = msg_send ~self ~cmd:(selector "statusBarAlpha") ~typ:(returning double) +let statusBarFrame self = msg_send ~self ~cmd:(selector "statusBarFrame") ~typ:(returning CGRect.t) +let statusBarFrameForStatusBarHeight x self = msg_send ~self ~cmd:(selector "statusBarFrameForStatusBarHeight:") ~typ:(double @-> returning CGRect.t) x +let statusBarFrameForStatusBarHeight' x ~inOrientation self = msg_send ~self ~cmd:(selector "statusBarFrameForStatusBarHeight:inOrientation:") ~typ:(double @-> llong @-> returning CGRect.t) x (LLong.of_int inOrientation) +let statusBarHeight self = msg_send ~self ~cmd:(selector "statusBarHeight") ~typ:(returning double) +let statusBarHidden self = msg_send ~self ~cmd:(selector "statusBarHidden") ~typ:(returning bool) +let statusBarPartStyles self = msg_send ~self ~cmd:(selector "statusBarPartStyles") ~typ:(returning id) +let statusBarStyle self = msg_send ~self ~cmd:(selector "statusBarStyle") ~typ:(returning llong) +let updateLocalStatusBars self = msg_send ~self ~cmd:(selector "updateLocalStatusBars") ~typ:(returning void) +let updateStatusBarAppearance self = msg_send ~self ~cmd:(selector "updateStatusBarAppearance") ~typ:(returning void) +let updateStatusBarAppearanceWithAnimationParameters x self = msg_send ~self ~cmd:(selector "updateStatusBarAppearanceWithAnimationParameters:") ~typ:(id @-> returning void) x let updateStatusBarAppearanceWithClientSettings x ~transitionContext self = msg_send ~self ~cmd:(selector "updateStatusBarAppearanceWithClientSettings:transitionContext:") ~typ:(id @-> id @-> returning (ptr void)) x transitionContext -let windowScene self = msg_send ~self ~cmd:(selector "windowScene") ~typ:(returning (id)) \ No newline at end of file +let windowScene self = msg_send ~self ~cmd:(selector "windowScene") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIStatusBarNewUIActionableStyleAttributes.ml b/uikit/UIStatusBarNewUIActionableStyleAttributes.ml deleted file mode 100644 index 3c9a565b..00000000 --- a/uikit/UIStatusBarNewUIActionableStyleAttributes.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarNewUIActionableStyleAttributes" - -let initWithRequest x ~backgroundColor ~foregroundColor ~hasBusyBackground self = msg_send ~self ~cmd:(selector "initWithRequest:backgroundColor:foregroundColor:hasBusyBackground:") ~typ:(id @-> id @-> id @-> bool @-> returning (id)) x backgroundColor foregroundColor hasBusyBackground -let shouldProduceReturnEvent self = msg_send ~self ~cmd:(selector "shouldProduceReturnEvent") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIStatusBarNewUIDoubleHeightStyleAttributes.ml b/uikit/UIStatusBarNewUIDoubleHeightStyleAttributes.ml deleted file mode 100644 index d4bb59d2..00000000 --- a/uikit/UIStatusBarNewUIDoubleHeightStyleAttributes.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarNewUIDoubleHeightStyleAttributes" - -let heightForMetrics x self = msg_send ~self ~cmd:(selector "heightForMetrics:") ~typ:(llong @-> returning (double)) x -let isDoubleHeight self = msg_send ~self ~cmd:(selector "isDoubleHeight") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIStatusBarNewUIStyleAttributes.ml b/uikit/UIStatusBarNewUIStyleAttributes.ml deleted file mode 100644 index e374e4d5..00000000 --- a/uikit/UIStatusBarNewUIStyleAttributes.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarNewUIStyleAttributes" - -let backgroundColorWithTintColor x self = msg_send ~self ~cmd:(selector "backgroundColorWithTintColor:") ~typ:(id @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let foregroundColor self = msg_send ~self ~cmd:(selector "foregroundColor") ~typ:(returning (id)) -let foregroundStyleClass self = msg_send ~self ~cmd:(selector "foregroundStyleClass") ~typ:(returning (_Class)) -let initWithRequest x self = msg_send ~self ~cmd:(selector "initWithRequest:") ~typ:(id @-> returning (id)) x -let initWithRequest1 x ~backgroundColor ~foregroundColor self = msg_send ~self ~cmd:(selector "initWithRequest:backgroundColor:foregroundColor:") ~typ:(id @-> id @-> id @-> returning (id)) x backgroundColor foregroundColor -let initWithRequest2 x ~backgroundColor ~foregroundColor ~hasBusyBackground self = msg_send ~self ~cmd:(selector "initWithRequest:backgroundColor:foregroundColor:hasBusyBackground:") ~typ:(id @-> id @-> id @-> bool @-> returning (id)) x backgroundColor foregroundColor hasBusyBackground -let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning (bool)) -let isTransparent self = msg_send ~self ~cmd:(selector "isTransparent") ~typ:(returning (bool)) -let legibilityStyle self = msg_send ~self ~cmd:(selector "legibilityStyle") ~typ:(returning (llong)) -let newForegroundStyleWithHeight x self = msg_send ~self ~cmd:(selector "newForegroundStyleWithHeight:") ~typ:(double @-> returning (id)) x -let shouldUseVisualAltitude self = msg_send ~self ~cmd:(selector "shouldUseVisualAltitude") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIStatusBarNotChargingItemView.ml b/uikit/UIStatusBarNotChargingItemView.ml deleted file mode 100644 index cb3aee04..00000000 --- a/uikit/UIStatusBarNotChargingItemView.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarNotChargingItemView" - -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file diff --git a/uikit/UIStatusBarOpenInSafariItemView.ml b/uikit/UIStatusBarOpenInSafariItemView.ml deleted file mode 100644 index 31f4689b..00000000 --- a/uikit/UIStatusBarOpenInSafariItemView.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarOpenInSafariItemView" - -let destinationText self = msg_send ~self ~cmd:(selector "destinationText") ~typ:(returning (id)) -let layoutImageOnTrailingEdge self = msg_send ~self ~cmd:(selector "layoutImageOnTrailingEdge") ~typ:(returning (bool)) -let setDestinationText x self = msg_send ~self ~cmd:(selector "setDestinationText:") ~typ:(id @-> returning (void)) x -let setSystemNavigationAction x self = msg_send ~self ~cmd:(selector "setSystemNavigationAction:") ~typ:(id @-> returning (void)) x -let shortenedTitleWithCompressionLevel x self = msg_send ~self ~cmd:(selector "shortenedTitleWithCompressionLevel:") ~typ:(int @-> returning (id)) x -let systemNavigationAction self = msg_send ~self ~cmd:(selector "systemNavigationAction") ~typ:(returning (id)) -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions -let userDidActivateButton x self = msg_send ~self ~cmd:(selector "userDidActivateButton:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIStatusBarOrientationAnimationParameters.ml b/uikit/UIStatusBarOrientationAnimationParameters.ml deleted file mode 100644 index b3a59e8a..00000000 --- a/uikit/UIStatusBarOrientationAnimationParameters.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarOrientationAnimationParameters" - -let initWithDefaultParameters self = msg_send ~self ~cmd:(selector "initWithDefaultParameters") ~typ:(returning (id)) -let orientationAnimation self = msg_send ~self ~cmd:(selector "orientationAnimation") ~typ:(returning (int)) -let setOrientationAnimation x self = msg_send ~self ~cmd:(selector "setOrientationAnimation:") ~typ:(int @-> returning (void)) x -let shouldAnimate self = msg_send ~self ~cmd:(selector "shouldAnimate") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIStatusBarPersonNameItemView.ml b/uikit/UIStatusBarPersonNameItemView.ml deleted file mode 100644 index a0162701..00000000 --- a/uikit/UIStatusBarPersonNameItemView.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarPersonNameItemView" - -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let addContentOverlap x self = msg_send ~self ~cmd:(selector "addContentOverlap:") ~typ:(double @-> returning (double)) x -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning (double)) -let legibilityStyle self = msg_send ~self ~cmd:(selector "legibilityStyle") ~typ:(returning (llong)) -let resetContentOverlap self = msg_send ~self ~cmd:(selector "resetContentOverlap") ~typ:(returning (double)) -let standardPadding self = msg_send ~self ~cmd:(selector "standardPadding") ~typ:(returning (double)) -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file diff --git a/uikit/UIStatusBarQuietModeItemView.ml b/uikit/UIStatusBarQuietModeItemView.ml deleted file mode 100644 index 2416b8f0..00000000 --- a/uikit/UIStatusBarQuietModeItemView.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarQuietModeItemView" - -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let animationDidStop x ~finished self = msg_send ~self ~cmd:(selector "animationDidStop:finished:") ~typ:(id @-> bool @-> returning (void)) x finished -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let setVisible x self = msg_send ~self ~cmd:(selector "setVisible:") ~typ:(bool @-> returning (void)) x -let setVisible' x ~frame ~duration self = msg_send ~self ~cmd:(selector "setVisible:frame:duration:") ~typ:(bool @-> CGRect.t @-> double @-> returning (void)) x frame duration -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file diff --git a/uikit/UIStatusBarRadarItemView.ml b/uikit/UIStatusBarRadarItemView.ml deleted file mode 100644 index a5b78a1c..00000000 --- a/uikit/UIStatusBarRadarItemView.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarRadarItemView" - -let buttonType self = msg_send ~self ~cmd:(selector "buttonType") ~typ:(returning (llong)) -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning (double)) -let highlightImage self = msg_send ~self ~cmd:(selector "highlightImage") ~typ:(returning (id)) -let usesAdvancedActions self = msg_send ~self ~cmd:(selector "usesAdvancedActions") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIStatusBarSecondarySignalStrengthItemView.ml b/uikit/UIStatusBarSecondarySignalStrengthItemView.ml deleted file mode 100644 index 9bc1d936..00000000 --- a/uikit/UIStatusBarSecondarySignalStrengthItemView.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarSecondarySignalStrengthItemView" - -let extraLeftPadding self = msg_send ~self ~cmd:(selector "extraLeftPadding") ~typ:(returning (double)) -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file diff --git a/uikit/UIStatusBarServer.ml b/uikit/UIStatusBarServer.ml deleted file mode 100644 index 63d6cf4c..00000000 --- a/uikit/UIStatusBarServer.ml +++ /dev/null @@ -1,32 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarServer" - -module C = struct - let addStatusBarItem x self = msg_send ~self ~cmd:(selector "addStatusBarItem:") ~typ:(int @-> returning (void)) x - let addStyleOverrides x self = msg_send ~self ~cmd:(selector "addStyleOverrides:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) - let getDoubleHeightStatusStringForStyle x self = msg_send ~self ~cmd:(selector "getDoubleHeightStatusStringForStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let getGlowAnimationEndTimeForStyle x self = msg_send ~self ~cmd:(selector "getGlowAnimationEndTimeForStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) - let getGlowAnimationStateForStyle x self = msg_send ~self ~cmd:(selector "getGlowAnimationStateForStyle:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) - let getStatusBarData self = msg_send ~self ~cmd:(selector "getStatusBarData") ~typ:(returning (ptr void)) - let getStyleOverrides self = msg_send ~self ~cmd:(selector "getStyleOverrides") ~typ:(returning (ullong)) - let permanentizeStatusBarOverrideData self = msg_send ~self ~cmd:(selector "permanentizeStatusBarOverrideData") ~typ:(returning (void)) - let postDoubleHeightStatusString x ~forStyle self = msg_send ~self ~cmd:(selector "postDoubleHeightStatusString:forStyle:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forStyle) - let postGlowAnimationState x ~forStyle self = msg_send ~self ~cmd:(selector "postGlowAnimationState:forStyle:") ~typ:(bool @-> llong @-> returning (void)) x (LLong.of_int forStyle) - let postStatusBarData x ~withActions self = msg_send ~self ~cmd:(selector "postStatusBarData:withActions:") ~typ:(ptr void @-> int @-> returning (void)) x withActions - let postStatusBarOverrideData x self = msg_send ~self ~cmd:(selector "postStatusBarOverrideData:") ~typ:(ptr void @-> returning (void)) x - let removeStatusBarItem x self = msg_send ~self ~cmd:(selector "removeStatusBarItem:") ~typ:(int @-> returning (void)) x - let removeStyleOverrides x self = msg_send ~self ~cmd:(selector "removeStyleOverrides:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) - let runServer self = msg_send ~self ~cmd:(selector "runServer") ~typ:(returning (void)) - let serviceName self = msg_send ~self ~cmd:(selector "serviceName") ~typ:(returning (string)) -end - -let initWithStatusBar x self = msg_send ~self ~cmd:(selector "initWithStatusBar:") ~typ:(id @-> returning (id)) x -let setStatusBar x self = msg_send ~self ~cmd:(selector "setStatusBar:") ~typ:(id @-> returning (void)) x -let statusBar self = msg_send ~self ~cmd:(selector "statusBar") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIStatusBarServiceItemView.ml b/uikit/UIStatusBarServiceItemView.ml deleted file mode 100644 index e3b9e91b..00000000 --- a/uikit/UIStatusBarServiceItemView.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarServiceItemView" - -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let addContentOverlap x self = msg_send ~self ~cmd:(selector "addContentOverlap:") ~typ:(double @-> returning (double)) x -let animatesDataChange self = msg_send ~self ~cmd:(selector "animatesDataChange") ~typ:(returning (bool)) -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning (double)) -let legibilityStyle self = msg_send ~self ~cmd:(selector "legibilityStyle") ~typ:(returning (llong)) -let performPendedActions self = msg_send ~self ~cmd:(selector "performPendedActions") ~typ:(returning (void)) -let resetContentOverlap self = msg_send ~self ~cmd:(selector "resetContentOverlap") ~typ:(returning (double)) -let setVisible x ~frame ~duration self = msg_send ~self ~cmd:(selector "setVisible:frame:duration:") ~typ:(bool @-> CGRect.t @-> double @-> returning (void)) x frame duration -let standardPadding self = msg_send ~self ~cmd:(selector "standardPadding") ~typ:(returning (double)) -let updateContentsAndWidth self = msg_send ~self ~cmd:(selector "updateContentsAndWidth") ~typ:(returning (double)) -let updateForContentType x ~serviceString ~serviceCrossfadeString ~maxWidth ~actions self = msg_send ~self ~cmd:(selector "updateForContentType:serviceString:serviceCrossfadeString:maxWidth:actions:") ~typ:(int @-> id @-> id @-> double @-> int @-> returning (bool)) x serviceString serviceCrossfadeString maxWidth actions -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file diff --git a/uikit/UIStatusBarSignalStrengthItemView.ml b/uikit/UIStatusBarSignalStrengthItemView.ml deleted file mode 100644 index ccc8daf2..00000000 --- a/uikit/UIStatusBarSignalStrengthItemView.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarSignalStrengthItemView" - -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let extraLeftPadding self = msg_send ~self ~cmd:(selector "extraLeftPadding") ~typ:(returning (double)) -let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning (double)) -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file diff --git a/uikit/UIStatusBarStyleAnimationParameters.ml b/uikit/UIStatusBarStyleAnimationParameters.ml deleted file mode 100644 index 62c086c1..00000000 --- a/uikit/UIStatusBarStyleAnimationParameters.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarStyleAnimationParameters" - -let initWithDefaultParameters self = msg_send ~self ~cmd:(selector "initWithDefaultParameters") ~typ:(returning (id)) -let setStyleAnimation x self = msg_send ~self ~cmd:(selector "setStyleAnimation:") ~typ:(int @-> returning (void)) x -let shouldAnimate self = msg_send ~self ~cmd:(selector "shouldAnimate") ~typ:(returning (bool)) -let styleAnimation self = msg_send ~self ~cmd:(selector "styleAnimation") ~typ:(returning (int)) \ No newline at end of file diff --git a/uikit/UIStatusBarStyleAttributes.ml b/uikit/UIStatusBarStyleAttributes.ml index f77ffee4..a870dc0c 100644 --- a/uikit/UIStatusBarStyleAttributes.ml +++ b/uikit/UIStatusBarStyleAttributes.ml @@ -5,33 +5,37 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStatusBarStyleAttributes" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarstyleattributes?language=objc}UIStatusBarStyleAttributes} *) -let backgroundColorWithTintColor x self = msg_send ~self ~cmd:(selector "backgroundColorWithTintColor:") ~typ:(id @-> returning (id)) x -let backgroundImageName self = msg_send ~self ~cmd:(selector "backgroundImageName") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let foregroundAlpha self = msg_send ~self ~cmd:(selector "foregroundAlpha") ~typ:(returning (double)) -let foregroundStyle self = msg_send ~self ~cmd:(selector "foregroundStyle") ~typ:(returning (id)) -let glowAnimationDuration self = msg_send ~self ~cmd:(selector "glowAnimationDuration") ~typ:(returning (double)) -let heightForMetrics x self = msg_send ~self ~cmd:(selector "heightForMetrics:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let heightForOrientation x self = msg_send ~self ~cmd:(selector "heightForOrientation:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let idiom self = msg_send ~self ~cmd:(selector "idiom") ~typ:(returning (llong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithRequest x self = msg_send ~self ~cmd:(selector "initWithRequest:") ~typ:(id @-> returning (id)) x -let isDoubleHeight self = msg_send ~self ~cmd:(selector "isDoubleHeight") ~typ:(returning (bool)) -let isLockScreen self = msg_send ~self ~cmd:(selector "isLockScreen") ~typ:(returning (bool)) -let isPulsingAnimationEnabled self = msg_send ~self ~cmd:(selector "isPulsingAnimationEnabled") ~typ:(returning (bool)) -let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning (bool)) -let isTransparent self = msg_send ~self ~cmd:(selector "isTransparent") ~typ:(returning (bool)) -let legibilityStyle self = msg_send ~self ~cmd:(selector "legibilityStyle") ~typ:(returning (llong)) -let newForegroundStyleWithHeight x self = msg_send ~self ~cmd:(selector "newForegroundStyleWithHeight:") ~typ:(double @-> returning (id)) x -let setForegroundAlpha x self = msg_send ~self ~cmd:(selector "setForegroundAlpha:") ~typ:(double @-> returning (void)) x -let setPulsingAnimationEnabled x self = msg_send ~self ~cmd:(selector "setPulsingAnimationEnabled:") ~typ:(bool @-> returning (void)) x -let shouldProduceReturnEvent self = msg_send ~self ~cmd:(selector "shouldProduceReturnEvent") ~typ:(returning (bool)) -let shouldShowInternalItemType x ~withScreenCapabilities self = msg_send ~self ~cmd:(selector "shouldShowInternalItemType:withScreenCapabilities:") ~typ:(int @-> id @-> returning (bool)) x withScreenCapabilities -let shouldUseVisualAltitude self = msg_send ~self ~cmd:(selector "shouldUseVisualAltitude") ~typ:(returning (bool)) -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let supportsRasterization self = msg_send ~self ~cmd:(selector "supportsRasterization") ~typ:(returning (bool)) -let tapButtonType self = msg_send ~self ~cmd:(selector "tapButtonType") ~typ:(returning (llong)) -let usesVerticalLayout self = msg_send ~self ~cmd:(selector "usesVerticalLayout") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIStatusBarStyleAttributes" + +let backgroundColorWithTintColor x self = msg_send ~self ~cmd:(selector "backgroundColorWithTintColor:") ~typ:(id @-> returning id) x +let backgroundImageName self = msg_send ~self ~cmd:(selector "backgroundImageName") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let foregroundAlpha self = msg_send ~self ~cmd:(selector "foregroundAlpha") ~typ:(returning double) +let foregroundStyle self = msg_send ~self ~cmd:(selector "foregroundStyle") ~typ:(returning id) +let glowAnimationDuration self = msg_send ~self ~cmd:(selector "glowAnimationDuration") ~typ:(returning double) +let heightForMetrics x self = msg_send ~self ~cmd:(selector "heightForMetrics:") ~typ:(llong @-> returning double) (LLong.of_int x) +let heightForOrientation x self = msg_send ~self ~cmd:(selector "heightForOrientation:") ~typ:(llong @-> returning double) (LLong.of_int x) +let idiom self = msg_send ~self ~cmd:(selector "idiom") ~typ:(returning llong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithRequest x self = msg_send ~self ~cmd:(selector "initWithRequest:") ~typ:(id @-> returning id) x +let isDoubleHeight self = msg_send ~self ~cmd:(selector "isDoubleHeight") ~typ:(returning bool) +let isLockScreen self = msg_send ~self ~cmd:(selector "isLockScreen") ~typ:(returning bool) +let isPulsingAnimationEnabled self = msg_send ~self ~cmd:(selector "isPulsingAnimationEnabled") ~typ:(returning bool) +let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning bool) +let isTransparent self = msg_send ~self ~cmd:(selector "isTransparent") ~typ:(returning bool) +let legibilityStyle self = msg_send ~self ~cmd:(selector "legibilityStyle") ~typ:(returning llong) +let newForegroundStyleWithHeight x self = msg_send ~self ~cmd:(selector "newForegroundStyleWithHeight:") ~typ:(double @-> returning id) x +let setForegroundAlpha x self = msg_send ~self ~cmd:(selector "setForegroundAlpha:") ~typ:(double @-> returning void) x +let setPulsingAnimationEnabled x self = msg_send ~self ~cmd:(selector "setPulsingAnimationEnabled:") ~typ:(bool @-> returning void) x +let shouldProduceReturnEvent self = msg_send ~self ~cmd:(selector "shouldProduceReturnEvent") ~typ:(returning bool) +let shouldShowInternalItemType x ~withScreenCapabilities self = msg_send ~self ~cmd:(selector "shouldShowInternalItemType:withScreenCapabilities:") ~typ:(int @-> id @-> returning bool) x withScreenCapabilities +let shouldUseVisualAltitude self = msg_send ~self ~cmd:(selector "shouldUseVisualAltitude") ~typ:(returning bool) +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let supportsRasterization self = msg_send ~self ~cmd:(selector "supportsRasterization") ~typ:(returning bool) +let tapButtonType self = msg_send ~self ~cmd:(selector "tapButtonType") ~typ:(returning llong) +let usesVerticalLayout self = msg_send ~self ~cmd:(selector "usesVerticalLayout") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIStatusBarStyleRequest.ml b/uikit/UIStatusBarStyleRequest.ml deleted file mode 100644 index 3011315a..00000000 --- a/uikit/UIStatusBarStyleRequest.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarStyleRequest" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let foregroundAlpha self = msg_send ~self ~cmd:(selector "foregroundAlpha") ~typ:(returning (double)) -let foregroundColor self = msg_send ~self ~cmd:(selector "foregroundColor") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithStyle x ~legibilityStyle ~foregroundColor self = msg_send ~self ~cmd:(selector "initWithStyle:legibilityStyle:foregroundColor:") ~typ:(llong @-> llong @-> id @-> returning (id)) (LLong.of_int x) (LLong.of_int legibilityStyle) foregroundColor -let initWithStyle1 x ~legacy ~legibilityStyle ~foregroundColor self = msg_send ~self ~cmd:(selector "initWithStyle:legacy:legibilityStyle:foregroundColor:") ~typ:(llong @-> bool @-> llong @-> id @-> returning (id)) (LLong.of_int x) legacy (LLong.of_int legibilityStyle) foregroundColor -let initWithStyle2 x ~legibilityStyle ~foregroundColor ~foregroundAlpha self = msg_send ~self ~cmd:(selector "initWithStyle:legibilityStyle:foregroundColor:foregroundAlpha:") ~typ:(llong @-> llong @-> id @-> double @-> returning (id)) (LLong.of_int x) (LLong.of_int legibilityStyle) foregroundColor foregroundAlpha -let initWithStyle3 x ~legibilityStyle ~foregroundColor ~overrideHeight self = msg_send ~self ~cmd:(selector "initWithStyle:legibilityStyle:foregroundColor:overrideHeight:") ~typ:(llong @-> llong @-> id @-> id @-> returning (id)) (LLong.of_int x) (LLong.of_int legibilityStyle) foregroundColor overrideHeight -let initWithStyle4 x ~legacy ~legibilityStyle ~foregroundColor ~foregroundAlpha self = msg_send ~self ~cmd:(selector "initWithStyle:legacy:legibilityStyle:foregroundColor:foregroundAlpha:") ~typ:(llong @-> bool @-> llong @-> id @-> double @-> returning (id)) (LLong.of_int x) legacy (LLong.of_int legibilityStyle) foregroundColor foregroundAlpha -let initWithStyle5 x ~legibilityStyle ~foregroundColor ~foregroundAlpha ~overrideHeight self = msg_send ~self ~cmd:(selector "initWithStyle:legibilityStyle:foregroundColor:foregroundAlpha:overrideHeight:") ~typ:(llong @-> llong @-> id @-> double @-> id @-> returning (id)) (LLong.of_int x) (LLong.of_int legibilityStyle) foregroundColor foregroundAlpha overrideHeight -let isDoubleHeight self = msg_send ~self ~cmd:(selector "isDoubleHeight") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isLegacy self = msg_send ~self ~cmd:(selector "isLegacy") ~typ:(returning (bool)) -let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning (bool)) -let legibilityStyle self = msg_send ~self ~cmd:(selector "legibilityStyle") ~typ:(returning (llong)) -let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:(id @-> returning (id)) x -let overrideHeight self = msg_send ~self ~cmd:(selector "overrideHeight") ~typ:(returning (id)) -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit/UIStatusBarSystemNavigationItemView.ml b/uikit/UIStatusBarSystemNavigationItemView.ml deleted file mode 100644 index c9acf8cd..00000000 --- a/uikit/UIStatusBarSystemNavigationItemView.ml +++ /dev/null @@ -1,28 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarSystemNavigationItemView" - -let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning (id)) -let addContentOverlap x self = msg_send ~self ~cmd:(selector "addContentOverlap:") ~typ:(double @-> returning (double)) x -let button self = msg_send ~self ~cmd:(selector "button") ~typ:(returning (id)) -let currentLabelCompressionLevel self = msg_send ~self ~cmd:(selector "currentLabelCompressionLevel") ~typ:(returning (int)) -let extraLeftPadding self = msg_send ~self ~cmd:(selector "extraLeftPadding") ~typ:(returning (double)) -let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning (double)) -let labelLineBreakMode self = msg_send ~self ~cmd:(selector "labelLineBreakMode") ~typ:(returning (llong)) -let layoutImageOnTrailingEdge self = msg_send ~self ~cmd:(selector "layoutImageOnTrailingEdge") ~typ:(returning (bool)) -let maxWidth self = msg_send ~self ~cmd:(selector "maxWidth") ~typ:(returning (double)) -let resetContentOverlap self = msg_send ~self ~cmd:(selector "resetContentOverlap") ~typ:(returning (double)) -let setButton x self = msg_send ~self ~cmd:(selector "setButton:") ~typ:(id @-> returning (void)) x -let setCurrentLabelCompressionLevel x self = msg_send ~self ~cmd:(selector "setCurrentLabelCompressionLevel:") ~typ:(int @-> returning (void)) x -let setMaxWidth x self = msg_send ~self ~cmd:(selector "setMaxWidth:") ~typ:(double @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let shortenedTitleWithCompressionLevel x self = msg_send ~self ~cmd:(selector "shortenedTitleWithCompressionLevel:") ~typ:(int @-> returning (id)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let updateContentsAndWidth self = msg_send ~self ~cmd:(selector "updateContentsAndWidth") ~typ:(returning (double)) -let userDidActivateButton x self = msg_send ~self ~cmd:(selector "userDidActivateButton:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIStatusBarTapAction.ml b/uikit/UIStatusBarTapAction.ml index 8bceb7ac..4432b2f7 100644 --- a/uikit/UIStatusBarTapAction.ml +++ b/uikit/UIStatusBarTapAction.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStatusBarTapAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbartapaction?language=objc}UIStatusBarTapAction} *) -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let initWithType x ~xPosition self = msg_send ~self ~cmd:(selector "initWithType:xPosition:") ~typ:(llong @-> double @-> returning (id)) (LLong.of_int x) xPosition -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) -let xPosition self = msg_send ~self ~cmd:(selector "xPosition") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIStatusBarTapAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let initWithType x ~xPosition self = msg_send ~self ~cmd:(selector "initWithType:xPosition:") ~typ:(llong @-> double @-> returning id) (LLong.of_int x) xPosition +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) +let xPosition self = msg_send ~self ~cmd:(selector "xPosition") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIStatusBarTetheringItemView.ml b/uikit/UIStatusBarTetheringItemView.ml deleted file mode 100644 index 533d3547..00000000 --- a/uikit/UIStatusBarTetheringItemView.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarTetheringItemView" - -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file diff --git a/uikit/UIStatusBarThermalColorItemView.ml b/uikit/UIStatusBarThermalColorItemView.ml deleted file mode 100644 index 2df518cb..00000000 --- a/uikit/UIStatusBarThermalColorItemView.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStatusBarThermalColorItemView" - -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file diff --git a/uikit/UIStatusBarWindow.ml b/uikit/UIStatusBarWindow.ml index a9375407..0ba6107a 100644 --- a/uikit/UIStatusBarWindow.ml +++ b/uikit/UIStatusBarWindow.ml @@ -5,16 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStatusBarWindow" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarwindow?language=objc}UIStatusBarWindow} *) -module C = struct - let statusBarWindowFrame self = msg_send_stret ~self ~cmd:(selector "statusBarWindowFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -end +let self = get_class "UIStatusBarWindow" -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let orientation self = msg_send ~self ~cmd:(selector "orientation") ~typ:(returning (llong)) -let setOrientation x ~animationParameters self = msg_send ~self ~cmd:(selector "setOrientation:animationParameters:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) animationParameters -let setStatusBar x self = msg_send ~self ~cmd:(selector "setStatusBar:") ~typ:(id @-> returning (void)) x -let statusBarWindowFrame self = msg_send_stret ~self ~cmd:(selector "statusBarWindowFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t \ No newline at end of file +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let orientation self = msg_send ~self ~cmd:(selector "orientation") ~typ:(returning llong) +let safeAreaInsets self = msg_send ~self ~cmd:(selector "safeAreaInsets") ~typ:(returning UIEdgeInsets.t) +let setOrientation x ~animationParameters self = msg_send ~self ~cmd:(selector "setOrientation:animationParameters:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) animationParameters +let setStatusBar x self = msg_send ~self ~cmd:(selector "setStatusBar:") ~typ:(id @-> returning void) x +let statusBarWindowFrame self = msg_send ~self ~cmd:(selector "statusBarWindowFrame") ~typ:(returning CGRect.t) \ No newline at end of file diff --git a/uikit/UIStatusBarWindowClass.ml b/uikit/UIStatusBarWindowClass.ml new file mode 100644 index 00000000..d328fb5a --- /dev/null +++ b/uikit/UIStatusBarWindowClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarwindow?language=objc}UIStatusBarWindow} *) + +let statusBarWindowFrame self = msg_send ~self ~cmd:(selector "statusBarWindowFrame") ~typ:(returning CGRect.t) \ No newline at end of file diff --git a/uikit/UIStepper.ml b/uikit/UIStepper.ml index da195ab6..262539d5 100644 --- a/uikit/UIStepper.ml +++ b/uikit/UIStepper.ml @@ -5,56 +5,56 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStepper" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistepper?language=objc}UIStepper} *) -module C = struct - let visualElementClassForTraitCollection x self = msg_send ~self ~cmd:(selector "visualElementClassForTraitCollection:") ~typ:(id @-> returning (_Class)) x - let visualElementForTraitCollection x self = msg_send ~self ~cmd:(selector "visualElementForTraitCollection:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIStepper" -let autorepeat self = msg_send ~self ~cmd:(selector "autorepeat") ~typ:(returning (bool)) -let backgroundImageForState x self = msg_send ~self ~cmd:(selector "backgroundImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let cancelTrackingWithEvent x self = msg_send ~self ~cmd:(selector "cancelTrackingWithEvent:") ~typ:(id @-> returning (void)) x -let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let decrementImageForState x self = msg_send ~self ~cmd:(selector "decrementImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let dividerImageForLeftSegmentState x ~rightSegmentState self = msg_send ~self ~cmd:(selector "dividerImageForLeftSegmentState:rightSegmentState:") ~typ:(ullong @-> ullong @-> returning (id)) (ULLong.of_int x) (ULLong.of_int rightSegmentState) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let incrementImageForState x self = msg_send ~self ~cmd:(selector "incrementImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isContinuous self = msg_send ~self ~cmd:(selector "isContinuous") ~typ:(returning (bool)) -let maximumValue self = msg_send ~self ~cmd:(selector "maximumValue") ~typ:(returning (double)) -let minimumValue self = msg_send ~self ~cmd:(selector "minimumValue") ~typ:(returning (double)) -let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning (id)) x styleForRegion -let pointerInteraction1 x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning (id)) x regionForRequest defaultRegion -let pointerInteraction2 x ~willEnterRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willEnterRegion:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willEnterRegion animator -let pointerInteraction3 x ~willExitRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willExitRegion:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willExitRegion animator -let setAutorepeat x self = msg_send ~self ~cmd:(selector "setAutorepeat:") ~typ:(bool @-> returning (void)) x -let setBackgroundImage x ~forState self = msg_send ~self ~cmd:(selector "setBackgroundImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setContinuous x self = msg_send ~self ~cmd:(selector "setContinuous:") ~typ:(bool @-> returning (void)) x -let setDecrementImage x ~forState self = msg_send ~self ~cmd:(selector "setDecrementImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setDividerImage x ~forLeftSegmentState ~rightSegmentState self = msg_send ~self ~cmd:(selector "setDividerImage:forLeftSegmentState:rightSegmentState:") ~typ:(id @-> ullong @-> ullong @-> returning (void)) x (ULLong.of_int forLeftSegmentState) (ULLong.of_int rightSegmentState) -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setIncrementImage x ~forState self = msg_send ~self ~cmd:(selector "setIncrementImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setMaximumValue x self = msg_send ~self ~cmd:(selector "setMaximumValue:") ~typ:(double @-> returning (void)) x -let setMinimumValue x self = msg_send ~self ~cmd:(selector "setMinimumValue:") ~typ:(double @-> returning (void)) x -let setStepValue x self = msg_send ~self ~cmd:(selector "setStepValue:") ~typ:(double @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(double @-> returning (void)) x -let setVisualElement x self = msg_send ~self ~cmd:(selector "setVisualElement:") ~typ:(id @-> returning (void)) x -let setWraps x self = msg_send ~self ~cmd:(selector "setWraps:") ~typ:(bool @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let stepValue self = msg_send ~self ~cmd:(selector "stepValue") ~typ:(returning (double)) -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning (double)) -let visualElement self = msg_send ~self ~cmd:(selector "visualElement") ~typ:(returning (id)) -let visualElementDidSetValue x self = msg_send ~self ~cmd:(selector "visualElementDidSetValue:") ~typ:(id @-> returning (void)) x -let visualElementSendValueChangedEvent x self = msg_send ~self ~cmd:(selector "visualElementSendValueChangedEvent:") ~typ:(id @-> returning (void)) x -let wraps self = msg_send ~self ~cmd:(selector "wraps") ~typ:(returning (bool)) \ No newline at end of file +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let autorepeat self = msg_send ~self ~cmd:(selector "autorepeat") ~typ:(returning bool) +let backgroundImageForState x self = msg_send ~self ~cmd:(selector "backgroundImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let cancelTrackingWithEvent x self = msg_send ~self ~cmd:(selector "cancelTrackingWithEvent:") ~typ:(id @-> returning void) x +let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let decrementImageForState x self = msg_send ~self ~cmd:(selector "decrementImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let dividerImageForLeftSegmentState x ~rightSegmentState self = msg_send ~self ~cmd:(selector "dividerImageForLeftSegmentState:rightSegmentState:") ~typ:(ullong @-> ullong @-> returning id) (ULLong.of_int x) (ULLong.of_int rightSegmentState) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let incrementImageForState x self = msg_send ~self ~cmd:(selector "incrementImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isContinuous self = msg_send ~self ~cmd:(selector "isContinuous") ~typ:(returning bool) +let maximumValue self = msg_send ~self ~cmd:(selector "maximumValue") ~typ:(returning double) +let minimumValue self = msg_send ~self ~cmd:(selector "minimumValue") ~typ:(returning double) +let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning id) x styleForRegion +let pointerInteraction1 x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning id) x regionForRequest defaultRegion +let pointerInteraction2 x ~willEnterRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willEnterRegion:animator:") ~typ:(id @-> id @-> id @-> returning void) x willEnterRegion animator +let pointerInteraction3 x ~willExitRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willExitRegion:animator:") ~typ:(id @-> id @-> id @-> returning void) x willExitRegion animator +let setAutorepeat x self = msg_send ~self ~cmd:(selector "setAutorepeat:") ~typ:(bool @-> returning void) x +let setBackgroundImage x ~forState self = msg_send ~self ~cmd:(selector "setBackgroundImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setContinuous x self = msg_send ~self ~cmd:(selector "setContinuous:") ~typ:(bool @-> returning void) x +let setDecrementImage x ~forState self = msg_send ~self ~cmd:(selector "setDecrementImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setDividerImage x ~forLeftSegmentState ~rightSegmentState self = msg_send ~self ~cmd:(selector "setDividerImage:forLeftSegmentState:rightSegmentState:") ~typ:(id @-> ullong @-> ullong @-> returning void) x (ULLong.of_int forLeftSegmentState) (ULLong.of_int rightSegmentState) +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setIncrementImage x ~forState self = msg_send ~self ~cmd:(selector "setIncrementImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setMaximumValue x self = msg_send ~self ~cmd:(selector "setMaximumValue:") ~typ:(double @-> returning void) x +let setMinimumValue x self = msg_send ~self ~cmd:(selector "setMinimumValue:") ~typ:(double @-> returning void) x +let setStepValue x self = msg_send ~self ~cmd:(selector "setStepValue:") ~typ:(double @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(double @-> returning void) x +let setVisualElement x self = msg_send ~self ~cmd:(selector "setVisualElement:") ~typ:(id @-> returning void) x +let setWraps x self = msg_send ~self ~cmd:(selector "setWraps:") ~typ:(bool @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let stepValue self = msg_send ~self ~cmd:(selector "stepValue") ~typ:(returning double) +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning double) +let visualElement self = msg_send ~self ~cmd:(selector "visualElement") ~typ:(returning id) +let visualElementDidSetValue x self = msg_send ~self ~cmd:(selector "visualElementDidSetValue:") ~typ:(id @-> returning void) x +let visualElementSendValueChangedEvent x self = msg_send ~self ~cmd:(selector "visualElementSendValueChangedEvent:") ~typ:(id @-> returning void) x +let wraps self = msg_send ~self ~cmd:(selector "wraps") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIStepperClass.ml b/uikit/UIStepperClass.ml new file mode 100644 index 00000000..6028bcb5 --- /dev/null +++ b/uikit/UIStepperClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistepper?language=objc}UIStepper} *) + +let visualElementClassForTraitCollection x self = msg_send ~self ~cmd:(selector "visualElementClassForTraitCollection:") ~typ:(id @-> returning _Class) x +let visualElementForTraitCollection x self = msg_send ~self ~cmd:(selector "visualElementForTraitCollection:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIStepperHorizontalVisualElement.ml b/uikit/UIStepperHorizontalVisualElement.ml index 2e60ce6b..0633a82e 100644 --- a/uikit/UIStepperHorizontalVisualElement.ml +++ b/uikit/UIStepperHorizontalVisualElement.ml @@ -5,53 +5,53 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStepperHorizontalVisualElement" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistepperhorizontalvisualelement?language=objc}UIStepperHorizontalVisualElement} *) -module C = struct - let initialIntrinsicSize self = msg_send_stret ~self ~cmd:(selector "initialIntrinsicSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t - let initialSize self = msg_send_stret ~self ~cmd:(selector "initialSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -end +let self = get_class "UIStepperHorizontalVisualElement" -let autorepeat self = msg_send ~self ~cmd:(selector "autorepeat") ~typ:(returning (bool)) -let backgroundImageForState x self = msg_send ~self ~cmd:(selector "backgroundImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let cancelTrackingWithEvent x self = msg_send ~self ~cmd:(selector "cancelTrackingWithEvent:") ~typ:(id @-> returning (void)) x -let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let decrementImageForState x self = msg_send ~self ~cmd:(selector "decrementImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let dividerImageForLeftSegmentState x ~rightSegmentState self = msg_send ~self ~cmd:(selector "dividerImageForLeftSegmentState:rightSegmentState:") ~typ:(ullong @-> ullong @-> returning (id)) (ULLong.of_int x) (ULLong.of_int rightSegmentState) -let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let incrementImageForState x self = msg_send ~self ~cmd:(selector "incrementImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let intrinsicSizeWithinSize x ~forControl self = msg_send_stret ~self ~cmd:(selector "intrinsicSizeWithinSize:forControl:") ~typ:(CGSize.t @-> id @-> returning (CGSize.t)) ~return_type:CGSize.t x forControl -let isContinuous self = msg_send ~self ~cmd:(selector "isContinuous") ~typ:(returning (bool)) -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let maximumValue self = msg_send ~self ~cmd:(selector "maximumValue") ~typ:(returning (double)) -let minimumValue self = msg_send ~self ~cmd:(selector "minimumValue") ~typ:(returning (double)) -let pointMostlyInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointMostlyInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning (id)) x styleForRegion -let pointerInteraction1 x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning (id)) x regionForRequest defaultRegion -let pointerInteraction2 x ~willEnterRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willEnterRegion:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willEnterRegion animator -let pointerInteraction3 x ~willExitRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willExitRegion:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willExitRegion animator -let setAutorepeat x self = msg_send ~self ~cmd:(selector "setAutorepeat:") ~typ:(bool @-> returning (void)) x -let setBackgroundImage x ~forState self = msg_send ~self ~cmd:(selector "setBackgroundImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setContinuous x self = msg_send ~self ~cmd:(selector "setContinuous:") ~typ:(bool @-> returning (void)) x -let setDecrementImage x ~forState self = msg_send ~self ~cmd:(selector "setDecrementImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setDividerImage x ~forLeftSegmentState ~rightSegmentState self = msg_send ~self ~cmd:(selector "setDividerImage:forLeftSegmentState:rightSegmentState:") ~typ:(id @-> ullong @-> ullong @-> returning (void)) x (ULLong.of_int forLeftSegmentState) (ULLong.of_int rightSegmentState) -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setIncrementImage x ~forState self = msg_send ~self ~cmd:(selector "setIncrementImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setMaximumValue x self = msg_send ~self ~cmd:(selector "setMaximumValue:") ~typ:(double @-> returning (void)) x -let setMinimumValue x self = msg_send ~self ~cmd:(selector "setMinimumValue:") ~typ:(double @-> returning (void)) x -let setStepValue x self = msg_send ~self ~cmd:(selector "setStepValue:") ~typ:(double @-> returning (void)) x -let setStepperControl x self = msg_send ~self ~cmd:(selector "setStepperControl:") ~typ:(id @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(double @-> returning (void)) x -let setWraps x self = msg_send ~self ~cmd:(selector "setWraps:") ~typ:(bool @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let sizeThatFits' x ~forControl self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:forControl:") ~typ:(CGSize.t @-> id @-> returning (CGSize.t)) ~return_type:CGSize.t x forControl -let stepValue self = msg_send ~self ~cmd:(selector "stepValue") ~typ:(returning (double)) -let stepperControl self = msg_send ~self ~cmd:(selector "stepperControl") ~typ:(returning (id)) -let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning (double)) -let wraps self = msg_send ~self ~cmd:(selector "wraps") ~typ:(returning (bool)) \ No newline at end of file +let alignmentRectInsetsForControl x self = msg_send ~self ~cmd:(selector "alignmentRectInsetsForControl:") ~typ:(id @-> returning UIEdgeInsets.t) x +let autorepeat self = msg_send ~self ~cmd:(selector "autorepeat") ~typ:(returning bool) +let backgroundImageForState x self = msg_send ~self ~cmd:(selector "backgroundImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let cancelTrackingWithEvent x self = msg_send ~self ~cmd:(selector "cancelTrackingWithEvent:") ~typ:(id @-> returning void) x +let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let decrementImageForState x self = msg_send ~self ~cmd:(selector "decrementImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let dividerImageForLeftSegmentState x ~rightSegmentState self = msg_send ~self ~cmd:(selector "dividerImageForLeftSegmentState:rightSegmentState:") ~typ:(ullong @-> ullong @-> returning id) (ULLong.of_int x) (ULLong.of_int rightSegmentState) +let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let incrementImageForState x self = msg_send ~self ~cmd:(selector "incrementImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let intrinsicSizeWithinSize x ~forControl self = msg_send ~self ~cmd:(selector "intrinsicSizeWithinSize:forControl:") ~typ:(CGSize.t @-> id @-> returning CGSize.t) x forControl +let isContinuous self = msg_send ~self ~cmd:(selector "isContinuous") ~typ:(returning bool) +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let maximumValue self = msg_send ~self ~cmd:(selector "maximumValue") ~typ:(returning double) +let minimumValue self = msg_send ~self ~cmd:(selector "minimumValue") ~typ:(returning double) +let pointMostlyInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointMostlyInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning id) x styleForRegion +let pointerInteraction1 x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning id) x regionForRequest defaultRegion +let pointerInteraction2 x ~willEnterRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willEnterRegion:animator:") ~typ:(id @-> id @-> id @-> returning void) x willEnterRegion animator +let pointerInteraction3 x ~willExitRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willExitRegion:animator:") ~typ:(id @-> id @-> id @-> returning void) x willExitRegion animator +let setAutorepeat x self = msg_send ~self ~cmd:(selector "setAutorepeat:") ~typ:(bool @-> returning void) x +let setBackgroundImage x ~forState self = msg_send ~self ~cmd:(selector "setBackgroundImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setContinuous x self = msg_send ~self ~cmd:(selector "setContinuous:") ~typ:(bool @-> returning void) x +let setDecrementImage x ~forState self = msg_send ~self ~cmd:(selector "setDecrementImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setDividerImage x ~forLeftSegmentState ~rightSegmentState self = msg_send ~self ~cmd:(selector "setDividerImage:forLeftSegmentState:rightSegmentState:") ~typ:(id @-> ullong @-> ullong @-> returning void) x (ULLong.of_int forLeftSegmentState) (ULLong.of_int rightSegmentState) +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setIncrementImage x ~forState self = msg_send ~self ~cmd:(selector "setIncrementImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setMaximumValue x self = msg_send ~self ~cmd:(selector "setMaximumValue:") ~typ:(double @-> returning void) x +let setMinimumValue x self = msg_send ~self ~cmd:(selector "setMinimumValue:") ~typ:(double @-> returning void) x +let setStepValue x self = msg_send ~self ~cmd:(selector "setStepValue:") ~typ:(double @-> returning void) x +let setStepperControl x self = msg_send ~self ~cmd:(selector "setStepperControl:") ~typ:(id @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(double @-> returning void) x +let setWraps x self = msg_send ~self ~cmd:(selector "setWraps:") ~typ:(bool @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let sizeThatFits' x ~forControl self = msg_send ~self ~cmd:(selector "sizeThatFits:forControl:") ~typ:(CGSize.t @-> id @-> returning CGSize.t) x forControl +let stepValue self = msg_send ~self ~cmd:(selector "stepValue") ~typ:(returning double) +let stepperControl self = msg_send ~self ~cmd:(selector "stepperControl") ~typ:(returning id) +let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning double) +let wraps self = msg_send ~self ~cmd:(selector "wraps") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIStepperHorizontalVisualElementClass.ml b/uikit/UIStepperHorizontalVisualElementClass.ml new file mode 100644 index 00000000..cf398427 --- /dev/null +++ b/uikit/UIStepperHorizontalVisualElementClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistepperhorizontalvisualelement?language=objc}UIStepperHorizontalVisualElement} *) + +let initialAlignmentRectInsets self = msg_send ~self ~cmd:(selector "initialAlignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let initialIntrinsicSize self = msg_send ~self ~cmd:(selector "initialIntrinsicSize") ~typ:(returning CGSize.t) +let initialSize self = msg_send ~self ~cmd:(selector "initialSize") ~typ:(returning CGSize.t) \ No newline at end of file diff --git a/uikit/UIStepperMacVisualElement.ml b/uikit/UIStepperMacVisualElement.ml deleted file mode 100644 index 702c51aa..00000000 --- a/uikit/UIStepperMacVisualElement.ml +++ /dev/null @@ -1,49 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStepperMacVisualElement" - -module C = struct - let initialIntrinsicSize self = msg_send_stret ~self ~cmd:(selector "initialIntrinsicSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t - let initialSize self = msg_send_stret ~self ~cmd:(selector "initialSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -end - -let autorepeat self = msg_send ~self ~cmd:(selector "autorepeat") ~typ:(returning (bool)) -let backgroundImageForState x self = msg_send ~self ~cmd:(selector "backgroundImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let cancelTrackingWithEvent x self = msg_send ~self ~cmd:(selector "cancelTrackingWithEvent:") ~typ:(id @-> returning (void)) x -let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let decrementImageForState x self = msg_send ~self ~cmd:(selector "decrementImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let dividerImageForLeftSegmentState x ~rightSegmentState self = msg_send ~self ~cmd:(selector "dividerImageForLeftSegmentState:rightSegmentState:") ~typ:(ullong @-> ullong @-> returning (id)) (ULLong.of_int x) (ULLong.of_int rightSegmentState) -let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let incrementImageForState x self = msg_send ~self ~cmd:(selector "incrementImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let intrinsicSizeWithinSize x ~forControl self = msg_send_stret ~self ~cmd:(selector "intrinsicSizeWithinSize:forControl:") ~typ:(CGSize.t @-> id @-> returning (CGSize.t)) ~return_type:CGSize.t x forControl -let isContinuous self = msg_send ~self ~cmd:(selector "isContinuous") ~typ:(returning (bool)) -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let layoutSublayersOfLayer x self = msg_send ~self ~cmd:(selector "layoutSublayersOfLayer:") ~typ:(id @-> returning (void)) x -let maximumValue self = msg_send ~self ~cmd:(selector "maximumValue") ~typ:(returning (double)) -let minimumValue self = msg_send ~self ~cmd:(selector "minimumValue") ~typ:(returning (double)) -let setAutorepeat x self = msg_send ~self ~cmd:(selector "setAutorepeat:") ~typ:(bool @-> returning (void)) x -let setBackgroundImage x ~forState self = msg_send ~self ~cmd:(selector "setBackgroundImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setContinuous x self = msg_send ~self ~cmd:(selector "setContinuous:") ~typ:(bool @-> returning (void)) x -let setDecrementImage x ~forState self = msg_send ~self ~cmd:(selector "setDecrementImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setDividerImage x ~forLeftSegmentState ~rightSegmentState self = msg_send ~self ~cmd:(selector "setDividerImage:forLeftSegmentState:rightSegmentState:") ~typ:(id @-> ullong @-> ullong @-> returning (void)) x (ULLong.of_int forLeftSegmentState) (ULLong.of_int rightSegmentState) -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setIncrementImage x ~forState self = msg_send ~self ~cmd:(selector "setIncrementImage:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setMaximumValue x self = msg_send ~self ~cmd:(selector "setMaximumValue:") ~typ:(double @-> returning (void)) x -let setMinimumValue x self = msg_send ~self ~cmd:(selector "setMinimumValue:") ~typ:(double @-> returning (void)) x -let setStepValue x self = msg_send ~self ~cmd:(selector "setStepValue:") ~typ:(double @-> returning (void)) x -let setStepperControl x self = msg_send ~self ~cmd:(selector "setStepperControl:") ~typ:(id @-> returning (void)) x -let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(double @-> returning (void)) x -let setWraps x self = msg_send ~self ~cmd:(selector "setWraps:") ~typ:(bool @-> returning (void)) x -let sizeThatFits x ~forControl self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:forControl:") ~typ:(CGSize.t @-> id @-> returning (CGSize.t)) ~return_type:CGSize.t x forControl -let stepValue self = msg_send ~self ~cmd:(selector "stepValue") ~typ:(returning (double)) -let stepperControl self = msg_send ~self ~cmd:(selector "stepperControl") ~typ:(returning (id)) -let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning (double)) -let wraps self = msg_send ~self ~cmd:(selector "wraps") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIStoryboard.ml b/uikit/UIStoryboard.ml index 0def01ea..444cc551 100644 --- a/uikit/UIStoryboard.ml +++ b/uikit/UIStoryboard.ml @@ -5,29 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStoryboard" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboard?language=objc}UIStoryboard} *) -module C = struct - let storyboardWithName x ~bundle self = msg_send ~self ~cmd:(selector "storyboardWithName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -end +let self = get_class "UIStoryboard" -let bundle self = msg_send ~self ~cmd:(selector "bundle") ~typ:(returning (id)) -let containsNibNamed x self = msg_send ~self ~cmd:(selector "containsNibNamed:") ~typ:(id @-> returning (bool)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let designatedEntryPointIdentifier self = msg_send ~self ~cmd:(selector "designatedEntryPointIdentifier") ~typ:(returning (id)) -let designatedMenuIdentifier self = msg_send ~self ~cmd:(selector "designatedMenuIdentifier") ~typ:(returning (id)) -let identifierForStringsFile self = msg_send ~self ~cmd:(selector "identifierForStringsFile") ~typ:(returning (id)) -let identifierToExternalStoryboardReferenceMap self = msg_send ~self ~cmd:(selector "identifierToExternalStoryboardReferenceMap") ~typ:(returning (id)) -let identifierToNibNameMap self = msg_send ~self ~cmd:(selector "identifierToNibNameMap") ~typ:(returning (id)) -let identifierToUINibMap self = msg_send ~self ~cmd:(selector "identifierToUINibMap") ~typ:(returning (id)) -let initWithBundle x ~storyboardFileName ~identifierToNibNameMap ~identifierToExternalStoryboardReferenceMap ~designatedEntryPointIdentifier ~designatedMenuIdentifier self = msg_send ~self ~cmd:(selector "initWithBundle:storyboardFileName:identifierToNibNameMap:identifierToExternalStoryboardReferenceMap:designatedEntryPointIdentifier:designatedMenuIdentifier:") ~typ:(id @-> id @-> id @-> id @-> id @-> id @-> returning (id)) x storyboardFileName identifierToNibNameMap identifierToExternalStoryboardReferenceMap designatedEntryPointIdentifier designatedMenuIdentifier -let instantiateInitialViewController self = msg_send ~self ~cmd:(selector "instantiateInitialViewController") ~typ:(returning (id)) -let instantiateInitialViewControllerWithCreator x self = msg_send ~self ~cmd:(selector "instantiateInitialViewControllerWithCreator:") ~typ:(ptr void @-> returning (id)) x -let instantiateViewControllerWithIdentifier x self = msg_send ~self ~cmd:(selector "instantiateViewControllerWithIdentifier:") ~typ:(id @-> returning (id)) x -let instantiateViewControllerWithIdentifier' x ~creator self = msg_send ~self ~cmd:(selector "instantiateViewControllerWithIdentifier:creator:") ~typ:(id @-> ptr void @-> returning (id)) x creator -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let nibForStoryboardNibNamed x self = msg_send ~self ~cmd:(selector "nibForStoryboardNibNamed:") ~typ:(id @-> returning (id)) x -let nibForViewControllerWithIdentifier x self = msg_send ~self ~cmd:(selector "nibForViewControllerWithIdentifier:") ~typ:(id @-> returning (id)) x -let referencedStoryboardForExternalReferenceInfo x self = msg_send ~self ~cmd:(selector "referencedStoryboardForExternalReferenceInfo:") ~typ:(id @-> returning (id)) x -let storyboardFileName self = msg_send ~self ~cmd:(selector "storyboardFileName") ~typ:(returning (id)) \ No newline at end of file +let bundle self = msg_send ~self ~cmd:(selector "bundle") ~typ:(returning id) +let containsNibNamed x self = msg_send ~self ~cmd:(selector "containsNibNamed:") ~typ:(id @-> returning bool) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let designatedEntryPointIdentifier self = msg_send ~self ~cmd:(selector "designatedEntryPointIdentifier") ~typ:(returning id) +let designatedMenuIdentifier self = msg_send ~self ~cmd:(selector "designatedMenuIdentifier") ~typ:(returning id) +let identifierForStringsFile self = msg_send ~self ~cmd:(selector "identifierForStringsFile") ~typ:(returning id) +let identifierToExternalStoryboardReferenceMap self = msg_send ~self ~cmd:(selector "identifierToExternalStoryboardReferenceMap") ~typ:(returning id) +let identifierToNibNameMap self = msg_send ~self ~cmd:(selector "identifierToNibNameMap") ~typ:(returning id) +let identifierToUINibMap self = msg_send ~self ~cmd:(selector "identifierToUINibMap") ~typ:(returning id) +let initWithBundle x ~storyboardFileName ~identifierToNibNameMap ~identifierToExternalStoryboardReferenceMap ~designatedEntryPointIdentifier ~designatedMenuIdentifier self = msg_send ~self ~cmd:(selector "initWithBundle:storyboardFileName:identifierToNibNameMap:identifierToExternalStoryboardReferenceMap:designatedEntryPointIdentifier:designatedMenuIdentifier:") ~typ:(id @-> id @-> id @-> id @-> id @-> id @-> returning id) x storyboardFileName identifierToNibNameMap identifierToExternalStoryboardReferenceMap designatedEntryPointIdentifier designatedMenuIdentifier +let instantiateInitialViewController self = msg_send ~self ~cmd:(selector "instantiateInitialViewController") ~typ:(returning id) +let instantiateInitialViewControllerWithCreator x self = msg_send ~self ~cmd:(selector "instantiateInitialViewControllerWithCreator:") ~typ:((ptr void) @-> returning id) x +let instantiateViewControllerWithIdentifier x self = msg_send ~self ~cmd:(selector "instantiateViewControllerWithIdentifier:") ~typ:(id @-> returning id) x +let instantiateViewControllerWithIdentifier' x ~creator self = msg_send ~self ~cmd:(selector "instantiateViewControllerWithIdentifier:creator:") ~typ:(id @-> (ptr void) @-> returning id) x creator +let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) +let nibForStoryboardNibNamed x self = msg_send ~self ~cmd:(selector "nibForStoryboardNibNamed:") ~typ:(id @-> returning id) x +let nibForViewControllerWithIdentifier x self = msg_send ~self ~cmd:(selector "nibForViewControllerWithIdentifier:") ~typ:(id @-> returning id) x +let referencedStoryboardForExternalReferenceInfo x self = msg_send ~self ~cmd:(selector "referencedStoryboardForExternalReferenceInfo:") ~typ:(id @-> returning id) x +let storyboardFileName self = msg_send ~self ~cmd:(selector "storyboardFileName") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIStoryboardClass.ml b/uikit/UIStoryboardClass.ml new file mode 100644 index 00000000..d2657989 --- /dev/null +++ b/uikit/UIStoryboardClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboard?language=objc}UIStoryboard} *) + +let storyboardWithName x ~bundle self = msg_send ~self ~cmd:(selector "storyboardWithName:bundle:") ~typ:(id @-> id @-> returning id) x bundle \ No newline at end of file diff --git a/uikit/UIStoryboardDecodingContext.ml b/uikit/UIStoryboardDecodingContext.ml deleted file mode 100644 index 7830b732..00000000 --- a/uikit/UIStoryboardDecodingContext.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStoryboardDecodingContext" - -let childViewControllerIndex self = msg_send ~self ~cmd:(selector "childViewControllerIndex") ~typ:(returning (llong)) -let classSwapperTemplate self = msg_send ~self ~cmd:(selector "classSwapperTemplate") ~typ:(returning (id)) -let creator self = msg_send ~self ~cmd:(selector "creator") ~typ:(returning (ptr void)) -let parentViewController self = msg_send ~self ~cmd:(selector "parentViewController") ~typ:(returning (id)) -let sender self = msg_send ~self ~cmd:(selector "sender") ~typ:(returning (id)) -let setChildViewControllerIndex x self = msg_send ~self ~cmd:(selector "setChildViewControllerIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setClassSwapperTemplate x self = msg_send ~self ~cmd:(selector "setClassSwapperTemplate:") ~typ:(id @-> returning (void)) x -let setCreator x self = msg_send ~self ~cmd:(selector "setCreator:") ~typ:(ptr void @-> returning (void)) x -let setParentViewController x self = msg_send ~self ~cmd:(selector "setParentViewController:") ~typ:(id @-> returning (void)) x -let setSender x self = msg_send ~self ~cmd:(selector "setSender:") ~typ:(id @-> returning (void)) x -let setSourceSegueTemplate x self = msg_send ~self ~cmd:(selector "setSourceSegueTemplate:") ~typ:(id @-> returning (void)) x -let sourceSegueTemplate self = msg_send ~self ~cmd:(selector "sourceSegueTemplate") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIStoryboardEmbedSegueTemplate.ml b/uikit/UIStoryboardEmbedSegueTemplate.ml deleted file mode 100644 index c54f6e6c..00000000 --- a/uikit/UIStoryboardEmbedSegueTemplate.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStoryboardEmbedSegueTemplate" - -let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning (id)) -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 newDefaultPerformHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPerformHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x -let setContainerView x self = msg_send ~self ~cmd:(selector "setContainerView:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIStoryboardModalSegueTemplate.ml b/uikit/UIStoryboardModalSegueTemplate.ml deleted file mode 100644 index 37f30202..00000000 --- a/uikit/UIStoryboardModalSegueTemplate.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStoryboardModalSegueTemplate" - -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 modalPresentationStyle self = msg_send ~self ~cmd:(selector "modalPresentationStyle") ~typ:(returning (llong)) -let modalTransitionStyle self = msg_send ~self ~cmd:(selector "modalTransitionStyle") ~typ:(returning (llong)) -let newDefaultPerformHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPerformHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x -let setModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setModalPresentationStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setModalTransitionStyle x self = msg_send ~self ~cmd:(selector "setModalTransitionStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setUseDefaultModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setUseDefaultModalPresentationStyle:") ~typ:(bool @-> returning (void)) x -let setUseDefaultModalTransitionStyle x self = msg_send ~self ~cmd:(selector "setUseDefaultModalTransitionStyle:") ~typ:(bool @-> returning (void)) x -let useDefaultModalPresentationStyle self = msg_send ~self ~cmd:(selector "useDefaultModalPresentationStyle") ~typ:(returning (bool)) -let useDefaultModalTransitionStyle self = msg_send ~self ~cmd:(selector "useDefaultModalTransitionStyle") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIStoryboardPopoverPresentationSegueTemplate.ml b/uikit/UIStoryboardPopoverPresentationSegueTemplate.ml deleted file mode 100644 index 6c8451f6..00000000 --- a/uikit/UIStoryboardPopoverPresentationSegueTemplate.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStoryboardPopoverPresentationSegueTemplate" - -let anchorBarButtonItem self = msg_send ~self ~cmd:(selector "anchorBarButtonItem") ~typ:(returning (id)) -let anchorView self = msg_send ~self ~cmd:(selector "anchorView") ~typ:(returning (id)) -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 newDefaultPerformHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPerformHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x -let newDefaultPrepareHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPrepareHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x -let passthroughViews self = msg_send ~self ~cmd:(selector "passthroughViews") ~typ:(returning (id)) -let permittedArrowDirections self = msg_send ~self ~cmd:(selector "permittedArrowDirections") ~typ:(returning (ullong)) -let setAnchorBarButtonItem x self = msg_send ~self ~cmd:(selector "setAnchorBarButtonItem:") ~typ:(id @-> returning (void)) x -let setAnchorView x self = msg_send ~self ~cmd:(selector "setAnchorView:") ~typ:(id @-> returning (void)) x -let setPassthroughViews x self = msg_send ~self ~cmd:(selector "setPassthroughViews:") ~typ:(id @-> returning (void)) x -let setPermittedArrowDirections x self = msg_send ~self ~cmd:(selector "setPermittedArrowDirections:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UIStoryboardPopoverSegue.ml b/uikit/UIStoryboardPopoverSegue.ml deleted file mode 100644 index c8efe988..00000000 --- a/uikit/UIStoryboardPopoverSegue.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStoryboardPopoverSegue" - -let perform self = msg_send ~self ~cmd:(selector "perform") ~typ:(returning (void)) -let popoverController self = msg_send ~self ~cmd:(selector "popoverController") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIStoryboardPopoverSegueTemplate.ml b/uikit/UIStoryboardPopoverSegueTemplate.ml deleted file mode 100644 index a8231827..00000000 --- a/uikit/UIStoryboardPopoverSegueTemplate.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStoryboardPopoverSegueTemplate" - -let anchorBarButtonItem self = msg_send ~self ~cmd:(selector "anchorBarButtonItem") ~typ:(returning (id)) -let anchorView self = msg_send ~self ~cmd:(selector "anchorView") ~typ:(returning (id)) -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 passthroughViews self = msg_send ~self ~cmd:(selector "passthroughViews") ~typ:(returning (id)) -let permittedArrowDirections self = msg_send ~self ~cmd:(selector "permittedArrowDirections") ~typ:(returning (ullong)) -let segueWithDestinationViewController x self = msg_send ~self ~cmd:(selector "segueWithDestinationViewController:") ~typ:(id @-> returning (id)) x -let setAnchorBarButtonItem x self = msg_send ~self ~cmd:(selector "setAnchorBarButtonItem:") ~typ:(id @-> returning (void)) x -let setAnchorView x self = msg_send ~self ~cmd:(selector "setAnchorView:") ~typ:(id @-> returning (void)) x -let setPassthroughViews x self = msg_send ~self ~cmd:(selector "setPassthroughViews:") ~typ:(id @-> returning (void)) x -let setPermittedArrowDirections x self = msg_send ~self ~cmd:(selector "setPermittedArrowDirections:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UIStoryboardPresentationSegueTemplate.ml b/uikit/UIStoryboardPresentationSegueTemplate.ml deleted file mode 100644 index fec8a8e9..00000000 --- a/uikit/UIStoryboardPresentationSegueTemplate.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStoryboardPresentationSegueTemplate" - -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 modalPresentationStyle self = msg_send ~self ~cmd:(selector "modalPresentationStyle") ~typ:(returning (llong)) -let modalTransitionStyle self = msg_send ~self ~cmd:(selector "modalTransitionStyle") ~typ:(returning (llong)) -let newDefaultPerformHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPerformHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x -let newDefaultPrepareHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPrepareHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x -let setModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setModalPresentationStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setModalTransitionStyle x self = msg_send ~self ~cmd:(selector "setModalTransitionStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setUseDefaultModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setUseDefaultModalPresentationStyle:") ~typ:(bool @-> returning (void)) x -let setUseDefaultModalTransitionStyle x self = msg_send ~self ~cmd:(selector "setUseDefaultModalTransitionStyle:") ~typ:(bool @-> returning (void)) x -let useDefaultModalPresentationStyle self = msg_send ~self ~cmd:(selector "useDefaultModalPresentationStyle") ~typ:(returning (bool)) -let useDefaultModalTransitionStyle self = msg_send ~self ~cmd:(selector "useDefaultModalTransitionStyle") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIStoryboardPreviewingRegistrant.ml b/uikit/UIStoryboardPreviewingRegistrant.ml deleted file mode 100644 index 808a3095..00000000 --- a/uikit/UIStoryboardPreviewingRegistrant.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStoryboardPreviewingRegistrant" - -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 previewingContext x ~commitViewController self = msg_send ~self ~cmd:(selector "previewingContext:commitViewController:") ~typ:(id @-> id @-> returning (void)) x commitViewController -let previewingContext' x ~viewControllerForLocation self = msg_send ~self ~cmd:(selector "previewingContext:viewControllerForLocation:") ~typ:(id @-> CGPoint.t @-> returning (id)) x viewControllerForLocation -let registerForPreviewing self = msg_send ~self ~cmd:(selector "registerForPreviewing") ~typ:(returning (void)) -let setSourceView x self = msg_send ~self ~cmd:(selector "setSourceView:") ~typ:(id @-> returning (void)) x -let setViewController x self = msg_send ~self ~cmd:(selector "setViewController:") ~typ:(id @-> returning (void)) x -let sourceView self = msg_send ~self ~cmd:(selector "sourceView") ~typ:(returning (id)) -let unregisterForPreviewing self = msg_send ~self ~cmd:(selector "unregisterForPreviewing") ~typ:(returning (void)) -let viewController self = msg_send ~self ~cmd:(selector "viewController") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIStoryboardPreviewingSegueTemplateStorage.ml b/uikit/UIStoryboardPreviewingSegueTemplateStorage.ml deleted file mode 100644 index ff8ee4c3..00000000 --- a/uikit/UIStoryboardPreviewingSegueTemplateStorage.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStoryboardPreviewingSegueTemplateStorage" - -let commitTemplate self = msg_send ~self ~cmd:(selector "commitTemplate") ~typ:(returning (id)) -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 previewTemplate self = msg_send ~self ~cmd:(selector "previewTemplate") ~typ:(returning (id)) -let sender self = msg_send ~self ~cmd:(selector "sender") ~typ:(returning (id)) -let setCommitTemplate x self = msg_send ~self ~cmd:(selector "setCommitTemplate:") ~typ:(id @-> returning (void)) x -let setPreviewTemplate x self = msg_send ~self ~cmd:(selector "setPreviewTemplate:") ~typ:(id @-> returning (void)) x -let setSender x self = msg_send ~self ~cmd:(selector "setSender:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIStoryboardPushSegueTemplate.ml b/uikit/UIStoryboardPushSegueTemplate.ml deleted file mode 100644 index 9f2b9b12..00000000 --- a/uikit/UIStoryboardPushSegueTemplate.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStoryboardPushSegueTemplate" - -let destinationContainmentContext self = msg_send ~self ~cmd:(selector "destinationContainmentContext") ~typ:(returning (llong)) -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 newDefaultPerformHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPerformHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x -let setDestinationContainmentContext x self = msg_send ~self ~cmd:(selector "setDestinationContainmentContext:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSplitViewControllerIndex x self = msg_send ~self ~cmd:(selector "setSplitViewControllerIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let splitViewControllerIndex self = msg_send ~self ~cmd:(selector "splitViewControllerIndex") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit/UIStoryboardReplaceSegueTemplate.ml b/uikit/UIStoryboardReplaceSegueTemplate.ml deleted file mode 100644 index eb3494ab..00000000 --- a/uikit/UIStoryboardReplaceSegueTemplate.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIStoryboardReplaceSegueTemplate" - -let destinationContainmentContext self = msg_send ~self ~cmd:(selector "destinationContainmentContext") ~typ:(returning (llong)) -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 newDefaultPerformHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPerformHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x -let setDestinationContainmentContext x self = msg_send ~self ~cmd:(selector "setDestinationContainmentContext:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSplitViewControllerIndex x self = msg_send ~self ~cmd:(selector "setSplitViewControllerIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let splitViewControllerIndex self = msg_send ~self ~cmd:(selector "splitViewControllerIndex") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit/UIStoryboardScene.ml b/uikit/UIStoryboardScene.ml index 49155548..63c706d7 100644 --- a/uikit/UIStoryboardScene.ml +++ b/uikit/UIStoryboardScene.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStoryboardScene" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboardscene?language=objc}UIStoryboardScene} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let sceneViewController self = msg_send ~self ~cmd:(selector "sceneViewController") ~typ:(returning (id)) -let setSceneViewController x self = msg_send ~self ~cmd:(selector "setSceneViewController:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIStoryboardScene" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let sceneViewController self = msg_send ~self ~cmd:(selector "sceneViewController") ~typ:(returning id) +let setSceneViewController x self = msg_send ~self ~cmd:(selector "setSceneViewController:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIStoryboardSegue.ml b/uikit/UIStoryboardSegue.ml index 5b7a12a6..fe0b76f9 100644 --- a/uikit/UIStoryboardSegue.ml +++ b/uikit/UIStoryboardSegue.ml @@ -5,22 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStoryboardSegue" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboardsegue?language=objc}UIStoryboardSegue} *) -module C = struct - let segueWithIdentifier x ~source ~destination ~performHandler self = msg_send ~self ~cmd:(selector "segueWithIdentifier:source:destination:performHandler:") ~typ:(id @-> id @-> id @-> ptr void @-> returning (id)) x source destination performHandler -end +let self = get_class "UIStoryboardSegue" -let destinationViewController self = msg_send ~self ~cmd:(selector "destinationViewController") ~typ:(returning (id)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithIdentifier x ~source ~destination self = msg_send ~self ~cmd:(selector "initWithIdentifier:source:destination:") ~typ:(id @-> id @-> id @-> returning (id)) x source destination -let perform self = msg_send ~self ~cmd:(selector "perform") ~typ:(returning (void)) +let destinationViewController self = msg_send ~self ~cmd:(selector "destinationViewController") ~typ:(returning id) +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithIdentifier x ~source ~destination self = msg_send ~self ~cmd:(selector "initWithIdentifier:source:destination:") ~typ:(id @-> id @-> id @-> returning id) x source destination +let perform self = msg_send ~self ~cmd:(selector "perform") ~typ:(returning void) let performHandler self = msg_send ~self ~cmd:(selector "performHandler") ~typ:(returning (ptr void)) let prepareHandler self = msg_send ~self ~cmd:(selector "prepareHandler") ~typ:(returning (ptr void)) -let sender self = msg_send ~self ~cmd:(selector "sender") ~typ:(returning (id)) -let setPerformHandler x self = msg_send ~self ~cmd:(selector "setPerformHandler:") ~typ:(ptr void @-> returning (void)) x -let setPrepareHandler x self = msg_send ~self ~cmd:(selector "setPrepareHandler:") ~typ:(ptr void @-> returning (void)) x -let setSender x self = msg_send ~self ~cmd:(selector "setSender:") ~typ:(id @-> returning (void)) x -let sourceViewController self = msg_send ~self ~cmd:(selector "sourceViewController") ~typ:(returning (id)) \ No newline at end of file +let sender self = msg_send ~self ~cmd:(selector "sender") ~typ:(returning id) +let setPerformHandler x self = msg_send ~self ~cmd:(selector "setPerformHandler:") ~typ:((ptr void) @-> returning void) x +let setPrepareHandler x self = msg_send ~self ~cmd:(selector "setPrepareHandler:") ~typ:((ptr void) @-> returning void) x +let setSender x self = msg_send ~self ~cmd:(selector "setSender:") ~typ:(id @-> returning void) x +let sourceViewController self = msg_send ~self ~cmd:(selector "sourceViewController") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIStoryboardSegueClass.ml b/uikit/UIStoryboardSegueClass.ml new file mode 100644 index 00000000..b99b524d --- /dev/null +++ b/uikit/UIStoryboardSegueClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboardsegue?language=objc}UIStoryboardSegue} *) + +let segueWithIdentifier x ~source ~destination ~performHandler self = msg_send ~self ~cmd:(selector "segueWithIdentifier:source:destination:performHandler:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning id) x source destination performHandler \ No newline at end of file diff --git a/uikit/UIStoryboardSegueTemplate.ml b/uikit/UIStoryboardSegueTemplate.ml index 0bc6ad0e..06aeb698 100644 --- a/uikit/UIStoryboardSegueTemplate.ml +++ b/uikit/UIStoryboardSegueTemplate.ml @@ -5,24 +5,28 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStoryboardSegueTemplate" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboardseguetemplate?language=objc}UIStoryboardSegueTemplate} *) -let animates self = msg_send ~self ~cmd:(selector "animates") ~typ:(returning (bool)) -let customPrepareForChildViewControllerSelectorName self = msg_send ~self ~cmd:(selector "customPrepareForChildViewControllerSelectorName") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let instantiateOrFindDestinationViewControllerWithSender x self = msg_send ~self ~cmd:(selector "instantiateOrFindDestinationViewControllerWithSender:") ~typ:(id @-> returning (id)) x +let self = get_class "UIStoryboardSegueTemplate" + +let animates self = msg_send ~self ~cmd:(selector "animates") ~typ:(returning bool) +let customPrepareForChildViewControllerSelectorName self = msg_send ~self ~cmd:(selector "customPrepareForChildViewControllerSelectorName") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let instantiateOrFindDestinationViewControllerWithSender x self = msg_send ~self ~cmd:(selector "instantiateOrFindDestinationViewControllerWithSender:") ~typ:(id @-> returning id) x let newDefaultPerformHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPerformHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x let newDefaultPrepareHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPrepareHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x -let perform x self = msg_send ~self ~cmd:(selector "perform:") ~typ:(id @-> returning (id)) x -let performOnViewLoad self = msg_send ~self ~cmd:(selector "performOnViewLoad") ~typ:(returning (bool)) -let prepareForChildViewControllerSelector self = msg_send ~self ~cmd:(selector "prepareForChildViewControllerSelector") ~typ:(returning (_SEL)) -let segueWithDestinationViewController x self = msg_send ~self ~cmd:(selector "segueWithDestinationViewController:") ~typ:(id @-> returning (id)) x -let setAnimates x self = msg_send ~self ~cmd:(selector "setAnimates:") ~typ:(bool @-> returning (void)) x -let setCustomPrepareForChildViewControllerSelectorName x self = msg_send ~self ~cmd:(selector "setCustomPrepareForChildViewControllerSelectorName:") ~typ:(id @-> returning (void)) x -let setPerformOnViewLoad x self = msg_send ~self ~cmd:(selector "setPerformOnViewLoad:") ~typ:(bool @-> returning (void)) x -let setViewController x self = msg_send ~self ~cmd:(selector "setViewController:") ~typ:(id @-> returning (void)) x -let viewController self = msg_send ~self ~cmd:(selector "viewController") ~typ:(returning (id)) \ No newline at end of file +let perform x self = msg_send ~self ~cmd:(selector "perform:") ~typ:(id @-> returning id) x +let performOnViewLoad self = msg_send ~self ~cmd:(selector "performOnViewLoad") ~typ:(returning bool) +let prepareForChildViewControllerSelector self = msg_send ~self ~cmd:(selector "prepareForChildViewControllerSelector") ~typ:(returning _SEL) +let segueWithDestinationViewController x self = msg_send ~self ~cmd:(selector "segueWithDestinationViewController:") ~typ:(id @-> returning id) x +let setAnimates x self = msg_send ~self ~cmd:(selector "setAnimates:") ~typ:(bool @-> returning void) x +let setCustomPrepareForChildViewControllerSelectorName x self = msg_send ~self ~cmd:(selector "setCustomPrepareForChildViewControllerSelectorName:") ~typ:(id @-> returning void) x +let setPerformOnViewLoad x self = msg_send ~self ~cmd:(selector "setPerformOnViewLoad:") ~typ:(bool @-> returning void) x +let setViewController x self = msg_send ~self ~cmd:(selector "setViewController:") ~typ:(id @-> returning void) x +let viewController self = msg_send ~self ~cmd:(selector "viewController") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIStoryboardShowSegueTemplate.ml b/uikit/UIStoryboardShowSegueTemplate.ml index 14478a80..f00309f7 100644 --- a/uikit/UIStoryboardShowSegueTemplate.ml +++ b/uikit/UIStoryboardShowSegueTemplate.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStoryboardShowSegueTemplate" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboardshowseguetemplate?language=objc}UIStoryboardShowSegueTemplate} *) -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (id)) -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 self = get_class "UIStoryboardShowSegueTemplate" + +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning id) +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 newDefaultPerformHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPerformHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x -let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIStoryboardUnwindSegueSource.ml b/uikit/UIStoryboardUnwindSegueSource.ml index 4a056ca4..23c58feb 100644 --- a/uikit/UIStoryboardUnwindSegueSource.ml +++ b/uikit/UIStoryboardUnwindSegueSource.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStoryboardUnwindSegueSource" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboardunwindseguesource?language=objc}UIStoryboardUnwindSegueSource} *) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let sender self = msg_send ~self ~cmd:(selector "sender") ~typ:(returning (id)) -let sourceViewController self = msg_send ~self ~cmd:(selector "sourceViewController") ~typ:(returning (id)) -let unwindAction self = msg_send ~self ~cmd:(selector "unwindAction") ~typ:(returning (_SEL)) \ No newline at end of file +let self = get_class "UIStoryboardUnwindSegueSource" + +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let sender self = msg_send ~self ~cmd:(selector "sender") ~typ:(returning id) +let sourceViewController self = msg_send ~self ~cmd:(selector "sourceViewController") ~typ:(returning id) +let unwindAction self = msg_send ~self ~cmd:(selector "unwindAction") ~typ:(returning _SEL) \ No newline at end of file diff --git a/uikit/UIStoryboardUnwindSegueTemplate.ml b/uikit/UIStoryboardUnwindSegueTemplate.ml index 06564f05..ec1f5579 100644 --- a/uikit/UIStoryboardUnwindSegueTemplate.ml +++ b/uikit/UIStoryboardUnwindSegueTemplate.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStoryboardUnwindSegueTemplate" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboardunwindseguetemplate?language=objc}UIStoryboardUnwindSegueTemplate} *) -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (id)) -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 instantiateOrFindDestinationViewControllerWithSender x self = msg_send ~self ~cmd:(selector "instantiateOrFindDestinationViewControllerWithSender:") ~typ:(id @-> returning (id)) x +let self = get_class "UIStoryboardUnwindSegueTemplate" + +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning id) +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 instantiateOrFindDestinationViewControllerWithSender x self = msg_send ~self ~cmd:(selector "instantiateOrFindDestinationViewControllerWithSender:") ~typ:(id @-> returning id) x let newDefaultPerformHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPerformHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x -let segueWithDestinationViewController x self = msg_send ~self ~cmd:(selector "segueWithDestinationViewController:") ~typ:(id @-> returning (id)) x -let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let segueWithDestinationViewController x self = msg_send ~self ~cmd:(selector "segueWithDestinationViewController:") ~typ:(id @-> returning id) x +let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UISubTest.ml b/uikit/UISubTest.ml index 9e327480..a4285a47 100644 --- a/uikit/UISubTest.ml +++ b/uikit/UISubTest.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISubTest" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisubtest?language=objc}UISubTest} *) -let getObjectForKey x self = msg_send ~self ~cmd:(selector "getObjectForKey:") ~typ:(id @-> returning (id)) x -let initWithName x ~metrics self = msg_send ~self ~cmd:(selector "initWithName:metrics:") ~typ:(id @-> id @-> returning (id)) x metrics -let outputData self = msg_send ~self ~cmd:(selector "outputData") ~typ:(returning (id)) -let setObject x ~forKey self = msg_send ~self ~cmd:(selector "setObject:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let startTime self = msg_send ~self ~cmd:(selector "startTime") ~typ:(returning (id)) -let startWithFrameCount x self = msg_send ~self ~cmd:(selector "startWithFrameCount:") ~typ:(id @-> returning (void)) x -let stopWithFrameCount x self = msg_send ~self ~cmd:(selector "stopWithFrameCount:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UISubTest" + +let getObjectForKey x self = msg_send ~self ~cmd:(selector "getObjectForKey:") ~typ:(id @-> returning id) x +let initWithName x ~metrics self = msg_send ~self ~cmd:(selector "initWithName:metrics:") ~typ:(id @-> id @-> returning id) x metrics +let outputData self = msg_send ~self ~cmd:(selector "outputData") ~typ:(returning id) +let setObject x ~forKey self = msg_send ~self ~cmd:(selector "setObject:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let startTime self = msg_send ~self ~cmd:(selector "startTime") ~typ:(returning id) +let startWithFrameCount x self = msg_send ~self ~cmd:(selector "startWithFrameCount:") ~typ:(id @-> returning void) x +let stopWithFrameCount x self = msg_send ~self ~cmd:(selector "stopWithFrameCount:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UISwipeAction.ml b/uikit/UISwipeAction.ml index 89b80e9e..e29580c2 100644 --- a/uikit/UISwipeAction.ml +++ b/uikit/UISwipeAction.ml @@ -5,24 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISwipeAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswipeaction?language=objc}UISwipeAction} *) -module C = struct - let swipeActionWithStyle x ~title ~handler self = msg_send ~self ~cmd:(selector "swipeActionWithStyle:title:handler:") ~typ:(llong @-> id @-> ptr void @-> returning (id)) (LLong.of_int x) title handler -end +let self = get_class "UISwipeAction" -let backgroundEffect self = msg_send ~self ~cmd:(selector "backgroundEffect") ~typ:(returning (id)) -let canBeTriggeredBySwipe self = msg_send ~self ~cmd:(selector "canBeTriggeredBySwipe") ~typ:(returning (bool)) -let color self = msg_send ~self ~cmd:(selector "color") ~typ:(returning (id)) +let backgroundEffect self = msg_send ~self ~cmd:(selector "backgroundEffect") ~typ:(returning id) +let canBeTriggeredBySwipe self = msg_send ~self ~cmd:(selector "canBeTriggeredBySwipe") ~typ:(returning bool) +let color self = msg_send ~self ~cmd:(selector "color") ~typ:(returning id) let completionHandler self = msg_send ~self ~cmd:(selector "completionHandler") ~typ:(returning (ptr void)) -let icon self = msg_send ~self ~cmd:(selector "icon") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let resetSwipedRow self = msg_send ~self ~cmd:(selector "resetSwipedRow") ~typ:(returning (void)) -let resetsSwipedRow self = msg_send ~self ~cmd:(selector "resetsSwipedRow") ~typ:(returning (bool)) -let setBackgroundEffect x self = msg_send ~self ~cmd:(selector "setBackgroundEffect:") ~typ:(id @-> returning (void)) x -let setCanBeTriggeredBySwipe x self = msg_send ~self ~cmd:(selector "setCanBeTriggeredBySwipe:") ~typ:(bool @-> returning (void)) x -let setColor x self = msg_send ~self ~cmd:(selector "setColor:") ~typ:(id @-> returning (void)) x -let setCompletionHandler x self = msg_send ~self ~cmd:(selector "setCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let setIcon x self = msg_send ~self ~cmd:(selector "setIcon:") ~typ:(id @-> returning (void)) x -let setResetsSwipedRow x self = msg_send ~self ~cmd:(selector "setResetsSwipedRow:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let icon self = msg_send ~self ~cmd:(selector "icon") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let resetSwipedRow self = msg_send ~self ~cmd:(selector "resetSwipedRow") ~typ:(returning void) +let resetsSwipedRow self = msg_send ~self ~cmd:(selector "resetsSwipedRow") ~typ:(returning bool) +let setBackgroundEffect x self = msg_send ~self ~cmd:(selector "setBackgroundEffect:") ~typ:(id @-> returning void) x +let setCanBeTriggeredBySwipe x self = msg_send ~self ~cmd:(selector "setCanBeTriggeredBySwipe:") ~typ:(bool @-> returning void) x +let setColor x self = msg_send ~self ~cmd:(selector "setColor:") ~typ:(id @-> returning void) x +let setCompletionHandler x self = msg_send ~self ~cmd:(selector "setCompletionHandler:") ~typ:((ptr void) @-> returning void) x +let setIcon x self = msg_send ~self ~cmd:(selector "setIcon:") ~typ:(id @-> returning void) x +let setResetsSwipedRow x self = msg_send ~self ~cmd:(selector "setResetsSwipedRow:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UISwipeActionButton.ml b/uikit/UISwipeActionButton.ml index 662aaed8..64203bf5 100644 --- a/uikit/UISwipeActionButton.ml +++ b/uikit/UISwipeActionButton.ml @@ -5,27 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISwipeActionButton" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswipeactionbutton?language=objc}UISwipeActionButton} *) -module C = struct - let defaultButtonWidth self = msg_send ~self ~cmd:(selector "defaultButtonWidth") ~typ:(returning (double)) - let titleFont self = msg_send ~self ~cmd:(selector "titleFont") ~typ:(returning (id)) - let titleFontOfSize x self = msg_send ~self ~cmd:(selector "titleFontOfSize:") ~typ:(double @-> returning (id)) x -end +let self = get_class "UISwipeActionButton" -let autosizes self = msg_send ~self ~cmd:(selector "autosizes") ~typ:(returning (bool)) -let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning (id)) -let buttonWidth self = msg_send ~self ~cmd:(selector "buttonWidth") ~typ:(returning (double)) -let defaultBackgroundColor self = msg_send ~self ~cmd:(selector "defaultBackgroundColor") ~typ:(returning (id)) -let highlightedBackgroundColor self = msg_send ~self ~cmd:(selector "highlightedBackgroundColor") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let setAutosizes x self = msg_send ~self ~cmd:(selector "setAutosizes:") ~typ:(bool @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning (void)) x -let setDefaultBackgroundColor x self = msg_send ~self ~cmd:(selector "setDefaultBackgroundColor:") ~typ:(id @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setHighlightedBackgroundColor x self = msg_send ~self ~cmd:(selector "setHighlightedBackgroundColor:") ~typ:(id @-> returning (void)) x -let setTitle x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let sourceView self = msg_send ~self ~cmd:(selector "sourceView") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let autosizes self = msg_send ~self ~cmd:(selector "autosizes") ~typ:(returning bool) +let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning id) +let buttonWidth self = msg_send ~self ~cmd:(selector "buttonWidth") ~typ:(returning double) +let defaultBackgroundColor self = msg_send ~self ~cmd:(selector "defaultBackgroundColor") ~typ:(returning id) +let highlightedBackgroundColor self = msg_send ~self ~cmd:(selector "highlightedBackgroundColor") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let setAutosizes x self = msg_send ~self ~cmd:(selector "setAutosizes:") ~typ:(bool @-> returning void) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning void) x +let setDefaultBackgroundColor x self = msg_send ~self ~cmd:(selector "setDefaultBackgroundColor:") ~typ:(id @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setHighlightedBackgroundColor x self = msg_send ~self ~cmd:(selector "setHighlightedBackgroundColor:") ~typ:(id @-> returning void) x +let setTitle x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let sourceView self = msg_send ~self ~cmd:(selector "sourceView") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UISwipeActionButtonClass.ml b/uikit/UISwipeActionButtonClass.ml new file mode 100644 index 00000000..d87d52c6 --- /dev/null +++ b/uikit/UISwipeActionButtonClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswipeactionbutton?language=objc}UISwipeActionButton} *) + +let defaultButtonWidth self = msg_send ~self ~cmd:(selector "defaultButtonWidth") ~typ:(returning double) +let titleFont self = msg_send ~self ~cmd:(selector "titleFont") ~typ:(returning id) +let titleFontOfSize x self = msg_send ~self ~cmd:(selector "titleFontOfSize:") ~typ:(double @-> returning id) x \ No newline at end of file diff --git a/uikit/UISwipeActionCircularButton.ml b/uikit/UISwipeActionCircularButton.ml index eb2ec162..2bd3234f 100644 --- a/uikit/UISwipeActionCircularButton.ml +++ b/uikit/UISwipeActionCircularButton.ml @@ -5,16 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISwipeActionCircularButton" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswipeactioncircularbutton?language=objc}UISwipeActionCircularButton} *) -module C = struct - let defaultButtonWidth self = msg_send ~self ~cmd:(selector "defaultButtonWidth") ~typ:(returning (double)) - let maximumButtonHeight self = msg_send ~self ~cmd:(selector "maximumButtonHeight") ~typ:(returning (double)) - let titleFont self = msg_send ~self ~cmd:(selector "titleFont") ~typ:(returning (id)) -end +let self = get_class "UISwipeActionCircularButton" -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setTitle x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) \ No newline at end of file +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setTitle x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) \ No newline at end of file diff --git a/uikit/UISwipeActionCircularButtonClass.ml b/uikit/UISwipeActionCircularButtonClass.ml new file mode 100644 index 00000000..6f8fbcab --- /dev/null +++ b/uikit/UISwipeActionCircularButtonClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswipeactioncircularbutton?language=objc}UISwipeActionCircularButton} *) + +let defaultButtonWidth self = msg_send ~self ~cmd:(selector "defaultButtonWidth") ~typ:(returning double) +let maximumButtonHeight self = msg_send ~self ~cmd:(selector "maximumButtonHeight") ~typ:(returning double) +let titleFont self = msg_send ~self ~cmd:(selector "titleFont") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISwipeActionClass.ml b/uikit/UISwipeActionClass.ml new file mode 100644 index 00000000..15750328 --- /dev/null +++ b/uikit/UISwipeActionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswipeaction?language=objc}UISwipeAction} *) + +let swipeActionWithStyle x ~title ~handler self = msg_send ~self ~cmd:(selector "swipeActionWithStyle:title:handler:") ~typ:(llong @-> id @-> (ptr void) @-> returning id) (LLong.of_int x) title handler \ No newline at end of file diff --git a/uikit/UISwipeActionController.ml b/uikit/UISwipeActionController.ml index 769712fd..c9e938e5 100644 --- a/uikit/UISwipeActionController.ml +++ b/uikit/UISwipeActionController.ml @@ -5,48 +5,53 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISwipeActionController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswipeactioncontroller?language=objc}UISwipeActionController} *) -let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning (id)) -let currentSwipeOccurrence self = msg_send ~self ~cmd:(selector "currentSwipeOccurrence") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deleteRowAtIndexPath x self = msg_send ~self ~cmd:(selector "deleteRowAtIndexPath:") ~typ:(id @-> returning (void)) x -let deleteSectionAtIndex x self = msg_send ~self ~cmd:(selector "deleteSectionAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let incomingSwipeActionsConfiguration self = msg_send ~self ~cmd:(selector "incomingSwipeActionsConfiguration") ~typ:(returning (id)) -let initWithSwipeActionHost x ~style self = msg_send ~self ~cmd:(selector "initWithSwipeActionHost:style:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int style) -let insertRowAtIndexPath x self = msg_send ~self ~cmd:(selector "insertRowAtIndexPath:") ~typ:(id @-> returning (void)) x -let insertSectionAtIndex x self = msg_send ~self ~cmd:(selector "insertSectionAtIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let moveRowAtIndexPath x ~toIndexPath self = msg_send ~self ~cmd:(selector "moveRowAtIndexPath:toIndexPath:") ~typ:(id @-> id @-> returning (void)) x toIndexPath -let moveSectionAtIndex x ~toIndex self = msg_send ~self ~cmd:(selector "moveSectionAtIndex:toIndex:") ~typ:(ullong @-> ullong @-> returning (void)) (ULLong.of_int x) (ULLong.of_int toIndex) -let prepareForSwipeDirection x ~startingAtTouchLocation self = msg_send ~self ~cmd:(selector "prepareForSwipeDirection:startingAtTouchLocation:") ~typ:(ullong @-> CGPoint.t @-> returning (void)) (ULLong.of_int x) startingAtTouchLocation -let reconfigureActiveSwipeOccurrences self = msg_send ~self ~cmd:(selector "reconfigureActiveSwipeOccurrences") ~typ:(returning (void)) -let reloadData self = msg_send ~self ~cmd:(selector "reloadData") ~typ:(returning (void)) -let resetSwipedItemAnimated x ~completion self = msg_send ~self ~cmd:(selector "resetSwipedItemAnimated:completion:") ~typ:(bool @-> ptr void @-> returning (void)) x completion -let setContainerView x self = msg_send ~self ~cmd:(selector "setContainerView:") ~typ:(id @-> returning (void)) x -let setCurrentSwipeOccurrence x self = msg_send ~self ~cmd:(selector "setCurrentSwipeOccurrence:") ~typ:(id @-> returning (void)) x -let setIncomingSwipeActionsConfiguration x self = msg_send ~self ~cmd:(selector "setIncomingSwipeActionsConfiguration:") ~typ:(id @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setSwipeActionHost x self = msg_send ~self ~cmd:(selector "setSwipeActionHost:") ~typ:(id @-> returning (void)) x -let setSwipeEnabled x self = msg_send ~self ~cmd:(selector "setSwipeEnabled:") ~typ:(bool @-> returning (void)) x -let setSwipeHandler x self = msg_send ~self ~cmd:(selector "setSwipeHandler:") ~typ:(id @-> returning (void)) x -let setSwipeOccurrences x self = msg_send ~self ~cmd:(selector "setSwipeOccurrences:") ~typ:(id @-> returning (void)) x -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (ullong)) -let swipeActionHost self = msg_send ~self ~cmd:(selector "swipeActionHost") ~typ:(returning (id)) -let swipeEnabled self = msg_send ~self ~cmd:(selector "swipeEnabled") ~typ:(returning (bool)) -let swipeHandler self = msg_send ~self ~cmd:(selector "swipeHandler") ~typ:(returning (id)) -let swipeHandler1 x ~didConfirmSwipeWithInfo self = msg_send ~self ~cmd:(selector "swipeHandler:didConfirmSwipeWithInfo:") ~typ:(id @-> ptr void @-> returning (void)) x didConfirmSwipeWithInfo -let swipeHandler2 x ~didGenerateSwipeWithInfo ~isTracking self = msg_send ~self ~cmd:(selector "swipeHandler:didGenerateSwipeWithInfo:isTracking:") ~typ:(id @-> ptr void @-> bool @-> returning (void)) x didGenerateSwipeWithInfo isTracking -let swipeHandler3 x ~mayBeginSwipeAtLocation ~withProposedDirection self = msg_send ~self ~cmd:(selector "swipeHandler:mayBeginSwipeAtLocation:withProposedDirection:") ~typ:(id @-> CGPoint.t @-> ullong @-> returning (bool)) x mayBeginSwipeAtLocation (ULLong.of_int withProposedDirection) -let swipeHandlerDidBeginSwipe x self = msg_send ~self ~cmd:(selector "swipeHandlerDidBeginSwipe:") ~typ:(id @-> returning (void)) x -let swipeHandlerRestingFrame x self = msg_send_stret ~self ~cmd:(selector "swipeHandlerRestingFrame:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let swipeItemAtIndexPath x ~configuration ~direction ~animated ~completion self = msg_send ~self ~cmd:(selector "swipeItemAtIndexPath:configuration:direction:animated:completion:") ~typ:(id @-> id @-> ullong @-> bool @-> ptr void @-> returning (void)) x configuration (ULLong.of_int direction) animated completion -let swipeOccurrence x ~didChangeStateFrom self = msg_send ~self ~cmd:(selector "swipeOccurrence:didChangeStateFrom:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int didChangeStateFrom) -let swipeOccurrence' x ~willFinishWithDeletion self = msg_send ~self ~cmd:(selector "swipeOccurrence:willFinishWithDeletion:") ~typ:(id @-> bool @-> returning (void)) x willFinishWithDeletion -let swipeOccurrenceDidFinish x self = msg_send ~self ~cmd:(selector "swipeOccurrenceDidFinish:") ~typ:(id @-> returning (void)) x -let swipeOccurrences self = msg_send ~self ~cmd:(selector "swipeOccurrences") ~typ:(returning (id)) -let swipedIndexPath self = msg_send ~self ~cmd:(selector "swipedIndexPath") ~typ:(returning (id)) -let swipedIndexPaths self = msg_send ~self ~cmd:(selector "swipedIndexPaths") ~typ:(returning (id)) -let swipedItemView self = msg_send ~self ~cmd:(selector "swipedItemView") ~typ:(returning (id)) -let touchAtLocationShouldDismissSwipedItem x ~isTouchUp self = msg_send ~self ~cmd:(selector "touchAtLocationShouldDismissSwipedItem:isTouchUp:") ~typ:(CGPoint.t @-> bool @-> returning (bool)) x isTouchUp -let updateLayout self = msg_send ~self ~cmd:(selector "updateLayout") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UISwipeActionController" + +let configureForSwipeDirection x ~configuration ~startingAtTouchLocation self = msg_send ~self ~cmd:(selector "configureForSwipeDirection:configuration:startingAtTouchLocation:") ~typ:(ullong @-> id @-> CGPoint.t @-> returning void) (ULLong.of_int x) configuration startingAtTouchLocation +let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning id) +let currentSwipeOccurrence self = msg_send ~self ~cmd:(selector "currentSwipeOccurrence") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let deleteRowAtIndexPath x self = msg_send ~self ~cmd:(selector "deleteRowAtIndexPath:") ~typ:(id @-> returning void) x +let deleteSectionAtIndex x self = msg_send ~self ~cmd:(selector "deleteSectionAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let incomingSwipeActionsConfiguration self = msg_send ~self ~cmd:(selector "incomingSwipeActionsConfiguration") ~typ:(returning id) +let initWithSwipeActionHost x ~style self = msg_send ~self ~cmd:(selector "initWithSwipeActionHost:style:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int style) +let insertRowAtIndexPath x self = msg_send ~self ~cmd:(selector "insertRowAtIndexPath:") ~typ:(id @-> returning void) x +let insertSectionAtIndex x self = msg_send ~self ~cmd:(selector "insertSectionAtIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let moveRowAtIndexPath x ~toIndexPath self = msg_send ~self ~cmd:(selector "moveRowAtIndexPath:toIndexPath:") ~typ:(id @-> id @-> returning void) x toIndexPath +let moveSectionAtIndex x ~toIndex self = msg_send ~self ~cmd:(selector "moveSectionAtIndex:toIndex:") ~typ:(ullong @-> ullong @-> returning void) (ULLong.of_int x) (ULLong.of_int toIndex) +let prepareForSwipeDirection x ~startingAtTouchLocation self = msg_send ~self ~cmd:(selector "prepareForSwipeDirection:startingAtTouchLocation:") ~typ:(ullong @-> CGPoint.t @-> returning void) (ULLong.of_int x) startingAtTouchLocation +let reconfigureActiveSwipeOccurrences self = msg_send ~self ~cmd:(selector "reconfigureActiveSwipeOccurrences") ~typ:(returning void) +let reloadData self = msg_send ~self ~cmd:(selector "reloadData") ~typ:(returning void) +let resetSwipedItemAnimated x ~completion self = msg_send ~self ~cmd:(selector "resetSwipedItemAnimated:completion:") ~typ:(bool @-> (ptr void) @-> returning void) x completion +let setContainerView x self = msg_send ~self ~cmd:(selector "setContainerView:") ~typ:(id @-> returning void) x +let setCurrentSwipeOccurrence x self = msg_send ~self ~cmd:(selector "setCurrentSwipeOccurrence:") ~typ:(id @-> returning void) x +let setIncomingSwipeActionsConfiguration x self = msg_send ~self ~cmd:(selector "setIncomingSwipeActionsConfiguration:") ~typ:(id @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setSwipeActionHost x self = msg_send ~self ~cmd:(selector "setSwipeActionHost:") ~typ:(id @-> returning void) x +let setSwipeEnabled x self = msg_send ~self ~cmd:(selector "setSwipeEnabled:") ~typ:(bool @-> returning void) x +let setSwipeHandler x self = msg_send ~self ~cmd:(selector "setSwipeHandler:") ~typ:(id @-> returning void) x +let setSwipeOccurrences x self = msg_send ~self ~cmd:(selector "setSwipeOccurrences:") ~typ:(id @-> returning void) x +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning ullong) +let swipeActionHost self = msg_send ~self ~cmd:(selector "swipeActionHost") ~typ:(returning id) +let swipeEnabled self = msg_send ~self ~cmd:(selector "swipeEnabled") ~typ:(returning bool) +let swipeHandler self = msg_send ~self ~cmd:(selector "swipeHandler") ~typ:(returning id) +let swipeHandler1 x ~didConfirmSwipeWithInfo self = msg_send ~self ~cmd:(selector "swipeHandler:didConfirmSwipeWithInfo:") ~typ:(id @-> void @-> returning void) x didConfirmSwipeWithInfo +let swipeHandler2 x ~didGenerateSwipeWithInfo ~isTracking self = msg_send ~self ~cmd:(selector "swipeHandler:didGenerateSwipeWithInfo:isTracking:") ~typ:(id @-> void @-> bool @-> returning void) x didGenerateSwipeWithInfo isTracking +let swipeHandler3 x ~mayBeginSwipeAtLocation ~withProposedDirection self = msg_send ~self ~cmd:(selector "swipeHandler:mayBeginSwipeAtLocation:withProposedDirection:") ~typ:(id @-> CGPoint.t @-> ullong @-> returning bool) x mayBeginSwipeAtLocation (ULLong.of_int withProposedDirection) +let swipeHandlerDidBeginSwipe x self = msg_send ~self ~cmd:(selector "swipeHandlerDidBeginSwipe:") ~typ:(id @-> returning void) x +let swipeHandlerRestingFrame x self = msg_send ~self ~cmd:(selector "swipeHandlerRestingFrame:") ~typ:(id @-> returning CGRect.t) x +let swipeItemAtIndexPath x ~configuration ~direction ~animated ~completion self = msg_send ~self ~cmd:(selector "swipeItemAtIndexPath:configuration:direction:animated:completion:") ~typ:(id @-> id @-> ullong @-> bool @-> (ptr void) @-> returning void) x configuration (ULLong.of_int direction) animated completion +let swipeOccurrence x ~didChangeStateFrom self = msg_send ~self ~cmd:(selector "swipeOccurrence:didChangeStateFrom:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int didChangeStateFrom) +let swipeOccurrence' x ~willFinishWithDeletion self = msg_send ~self ~cmd:(selector "swipeOccurrence:willFinishWithDeletion:") ~typ:(id @-> bool @-> returning void) x willFinishWithDeletion +let swipeOccurrenceDidFinish x self = msg_send ~self ~cmd:(selector "swipeOccurrenceDidFinish:") ~typ:(id @-> returning void) x +let swipeOccurrences self = msg_send ~self ~cmd:(selector "swipeOccurrences") ~typ:(returning id) +let swipedIndexPath self = msg_send ~self ~cmd:(selector "swipedIndexPath") ~typ:(returning id) +let swipedIndexPaths self = msg_send ~self ~cmd:(selector "swipedIndexPaths") ~typ:(returning id) +let swipedItemView self = msg_send ~self ~cmd:(selector "swipedItemView") ~typ:(returning id) +let touchAtLocationShouldDismissSwipedItem x ~isTouchUp self = msg_send ~self ~cmd:(selector "touchAtLocationShouldDismissSwipedItem:isTouchUp:") ~typ:(CGPoint.t @-> bool @-> returning bool) x isTouchUp +let updateLayout self = msg_send ~self ~cmd:(selector "updateLayout") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UISwipeActionDeleteScanlineView.ml b/uikit/UISwipeActionDeleteScanlineView.ml index ca846dde..284a9496 100644 --- a/uikit/UISwipeActionDeleteScanlineView.ml +++ b/uikit/UISwipeActionDeleteScanlineView.ml @@ -5,14 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISwipeActionDeleteScanlineView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswipeactiondeletescanlineview?language=objc}UISwipeActionDeleteScanlineView} *) -module C = struct - let lineHeight self = msg_send ~self ~cmd:(selector "lineHeight") ~typ:(returning (double)) -end +let self = get_class "UISwipeActionDeleteScanlineView" -let deleteLineColor self = msg_send ~self ~cmd:(selector "deleteLineColor") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setDeleteLineColor x self = msg_send ~self ~cmd:(selector "setDeleteLineColor:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let deleteLineColor self = msg_send ~self ~cmd:(selector "deleteLineColor") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setDeleteLineColor x self = msg_send ~self ~cmd:(selector "setDeleteLineColor:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UISwipeActionDeleteScanlineViewClass.ml b/uikit/UISwipeActionDeleteScanlineViewClass.ml new file mode 100644 index 00000000..c37b6dd2 --- /dev/null +++ b/uikit/UISwipeActionDeleteScanlineViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswipeactiondeletescanlineview?language=objc}UISwipeActionDeleteScanlineView} *) + +let lineHeight self = msg_send ~self ~cmd:(selector "lineHeight") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UISwipeActionPullView.ml b/uikit/UISwipeActionPullView.ml index e7a62aaa..6c9bcf14 100644 --- a/uikit/UISwipeActionPullView.ml +++ b/uikit/UISwipeActionPullView.ml @@ -5,36 +5,41 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISwipeActionPullView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswipeactionpullview?language=objc}UISwipeActionPullView} *) -let autosizesButtons self = msg_send ~self ~cmd:(selector "autosizesButtons") ~typ:(returning (bool)) -let backgroundPullColor self = msg_send ~self ~cmd:(selector "backgroundPullColor") ~typ:(returning (id)) -let buttonsUnderlapSwipedView self = msg_send ~self ~cmd:(selector "buttonsUnderlapSwipedView") ~typ:(returning (bool)) -let cellEdge self = msg_send ~self ~cmd:(selector "cellEdge") ~typ:(returning (ullong)) -let configureWithSwipeActions x self = msg_send ~self ~cmd:(selector "configureWithSwipeActions:") ~typ:(id @-> returning (void)) x -let confirmationThreshold self = msg_send ~self ~cmd:(selector "confirmationThreshold") ~typ:(returning (double)) -let currentOffset self = msg_send ~self ~cmd:(selector "currentOffset") ~typ:(returning (double)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let freeze self = msg_send ~self ~cmd:(selector "freeze") ~typ:(returning (void)) -let hasActions self = msg_send ~self ~cmd:(selector "hasActions") ~typ:(returning (bool)) -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let initWithFrame x ~cellEdge ~style self = msg_send ~self ~cmd:(selector "initWithFrame:cellEdge:style:") ~typ:(CGRect.t @-> ullong @-> ullong @-> returning (id)) x (ULLong.of_int cellEdge) (ULLong.of_int style) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let moveToOffset x ~extraOffset ~animator ~usingSpringWithStiffness ~initialVelocity self = msg_send ~self ~cmd:(selector "moveToOffset:extraOffset:animator:usingSpringWithStiffness:initialVelocity:") ~typ:(double @-> double @-> id @-> double @-> double @-> returning (void)) x extraOffset animator usingSpringWithStiffness initialVelocity -let openThreshold self = msg_send ~self ~cmd:(selector "openThreshold") ~typ:(returning (double)) -let primaryActionColor self = msg_send ~self ~cmd:(selector "primaryActionColor") ~typ:(returning (id)) -let primaryActionIsDestructive self = msg_send ~self ~cmd:(selector "primaryActionIsDestructive") ~typ:(returning (bool)) -let primarySwipeAction self = msg_send ~self ~cmd:(selector "primarySwipeAction") ~typ:(returning (id)) -let resetView self = msg_send ~self ~cmd:(selector "resetView") ~typ:(returning (void)) -let setAutosizesButtons x self = msg_send ~self ~cmd:(selector "setAutosizesButtons:") ~typ:(bool @-> returning (void)) x -let setBackgroundPullColor x self = msg_send ~self ~cmd:(selector "setBackgroundPullColor:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setButtonsUnderlapSwipedView x self = msg_send ~self ~cmd:(selector "setButtonsUnderlapSwipedView:") ~typ:(bool @-> returning (void)) x -let setContentInsets x self = msg_send ~self ~cmd:(selector "setContentInsets:") ~typ:(ptr void @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let sourceViewForAction x self = msg_send ~self ~cmd:(selector "sourceViewForAction:") ~typ:(id @-> returning (id)) x -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (ullong)) \ No newline at end of file +let self = get_class "UISwipeActionPullView" + +let autosizesButtons self = msg_send ~self ~cmd:(selector "autosizesButtons") ~typ:(returning bool) +let backgroundPullColor self = msg_send ~self ~cmd:(selector "backgroundPullColor") ~typ:(returning id) +let buttonsUnderlapSwipedView self = msg_send ~self ~cmd:(selector "buttonsUnderlapSwipedView") ~typ:(returning bool) +let cellEdge self = msg_send ~self ~cmd:(selector "cellEdge") ~typ:(returning ullong) +let configureWithSwipeActions x self = msg_send ~self ~cmd:(selector "configureWithSwipeActions:") ~typ:(id @-> returning void) x +let confirmationThreshold self = msg_send ~self ~cmd:(selector "confirmationThreshold") ~typ:(returning double) +let contentInsets self = msg_send ~self ~cmd:(selector "contentInsets") ~typ:(returning UIEdgeInsets.t) +let currentOffset self = msg_send ~self ~cmd:(selector "currentOffset") ~typ:(returning double) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let freeze self = msg_send ~self ~cmd:(selector "freeze") ~typ:(returning void) +let hasActions self = msg_send ~self ~cmd:(selector "hasActions") ~typ:(returning bool) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let initWithFrame x ~cellEdge ~style self = msg_send ~self ~cmd:(selector "initWithFrame:cellEdge:style:") ~typ:(CGRect.t @-> ullong @-> ullong @-> returning id) x (ULLong.of_int cellEdge) (ULLong.of_int style) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let moveToOffset x ~extraOffset ~animator ~usingSpringWithStiffness ~initialVelocity self = msg_send ~self ~cmd:(selector "moveToOffset:extraOffset:animator:usingSpringWithStiffness:initialVelocity:") ~typ:(double @-> double @-> id @-> double @-> double @-> returning void) x extraOffset animator usingSpringWithStiffness initialVelocity +let openThreshold self = msg_send ~self ~cmd:(selector "openThreshold") ~typ:(returning double) +let primaryActionColor self = msg_send ~self ~cmd:(selector "primaryActionColor") ~typ:(returning id) +let primaryActionIsDestructive self = msg_send ~self ~cmd:(selector "primaryActionIsDestructive") ~typ:(returning bool) +let primarySwipeAction self = msg_send ~self ~cmd:(selector "primarySwipeAction") ~typ:(returning id) +let resetView self = msg_send ~self ~cmd:(selector "resetView") ~typ:(returning void) +let setAutosizesButtons x self = msg_send ~self ~cmd:(selector "setAutosizesButtons:") ~typ:(bool @-> returning void) x +let setBackgroundPullColor x self = msg_send ~self ~cmd:(selector "setBackgroundPullColor:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setButtonsUnderlapSwipedView x self = msg_send ~self ~cmd:(selector "setButtonsUnderlapSwipedView:") ~typ:(bool @-> returning void) x +let setContentInsets x self = msg_send ~self ~cmd:(selector "setContentInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let sourceViewForAction x self = msg_send ~self ~cmd:(selector "sourceViewForAction:") ~typ:(id @-> returning id) x +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning ullong) \ No newline at end of file diff --git a/uikit/UISwipeActionStandardButton.ml b/uikit/UISwipeActionStandardButton.ml index f561a8f7..e630fd6e 100644 --- a/uikit/UISwipeActionStandardButton.ml +++ b/uikit/UISwipeActionStandardButton.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISwipeActionStandardButton" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswipeactionstandardbutton?language=objc}UISwipeActionStandardButton} *) -let buttonWidth self = msg_send ~self ~cmd:(selector "buttonWidth") ~typ:(returning (double)) -let extensionLength self = msg_send ~self ~cmd:(selector "extensionLength") ~typ:(returning (double)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setExtensionLength x self = msg_send ~self ~cmd:(selector "setExtensionLength:") ~typ:(double @-> returning (void)) x -let setTitle x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let titleLabel self = msg_send ~self ~cmd:(selector "titleLabel") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UISwipeActionStandardButton" + +let buttonWidth self = msg_send ~self ~cmd:(selector "buttonWidth") ~typ:(returning double) +let extensionLength self = msg_send ~self ~cmd:(selector "extensionLength") ~typ:(returning double) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setExtensionLength x self = msg_send ~self ~cmd:(selector "setExtensionLength:") ~typ:(double @-> returning void) x +let setTitle x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let titleLabel self = msg_send ~self ~cmd:(selector "titleLabel") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISwipeActionsConfiguration.ml b/uikit/UISwipeActionsConfiguration.ml index 7316c36b..838f26de 100644 --- a/uikit/UISwipeActionsConfiguration.ml +++ b/uikit/UISwipeActionsConfiguration.ml @@ -5,15 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISwipeActionsConfiguration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswipeactionsconfiguration?language=objc}UISwipeActionsConfiguration} *) -module C = struct - let configurationWithActions x self = msg_send ~self ~cmd:(selector "configurationWithActions:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UISwipeActionsConfiguration" -let actions self = msg_send ~self ~cmd:(selector "actions") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let performsFirstActionWithFullSwipe self = msg_send ~self ~cmd:(selector "performsFirstActionWithFullSwipe") ~typ:(returning (bool)) -let setPerformsFirstActionWithFullSwipe x self = msg_send ~self ~cmd:(selector "setPerformsFirstActionWithFullSwipe:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let actions self = msg_send ~self ~cmd:(selector "actions") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let performsFirstActionWithFullSwipe self = msg_send ~self ~cmd:(selector "performsFirstActionWithFullSwipe") ~typ:(returning bool) +let setPerformsFirstActionWithFullSwipe x self = msg_send ~self ~cmd:(selector "setPerformsFirstActionWithFullSwipe:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UISwipeActionsConfigurationClass.ml b/uikit/UISwipeActionsConfigurationClass.ml new file mode 100644 index 00000000..d323c9ac --- /dev/null +++ b/uikit/UISwipeActionsConfigurationClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswipeactionsconfiguration?language=objc}UISwipeActionsConfiguration} *) + +let configurationWithActions x self = msg_send ~self ~cmd:(selector "configurationWithActions:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UISwipeGestureRecognizer.ml b/uikit/UISwipeGestureRecognizer.ml index 5f3637b2..0c26ea26 100644 --- a/uikit/UISwipeGestureRecognizer.ml +++ b/uikit/UISwipeGestureRecognizer.ml @@ -5,42 +5,41 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISwipeGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswipegesturerecognizer?language=objc}UISwipeGestureRecognizer} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UISwipeGestureRecognizer" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let direction self = msg_send ~self ~cmd:(selector "direction") ~typ:(returning (ullong)) -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 initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let locationOfTouch x ~inView self = msg_send_stret ~self ~cmd:(selector "locationOfTouch:inView:") ~typ:(ullong @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t (ULLong.of_int x) inView -let maximumDuration self = msg_send ~self ~cmd:(selector "maximumDuration") ~typ:(returning (double)) -let maximumPrimaryMovement self = msg_send ~self ~cmd:(selector "maximumPrimaryMovement") ~typ:(returning (double)) -let maximumSecondaryMovement self = msg_send ~self ~cmd:(selector "maximumSecondaryMovement") ~typ:(returning (double)) -let minimumPrimaryMovement self = msg_send ~self ~cmd:(selector "minimumPrimaryMovement") ~typ:(returning (double)) -let minimumPrimaryMovementRate self = msg_send ~self ~cmd:(selector "minimumPrimaryMovementRate") ~typ:(returning (double)) -let minimumSecondaryMovement self = msg_send ~self ~cmd:(selector "minimumSecondaryMovement") ~typ:(returning (double)) -let numberOfTouches self = msg_send ~self ~cmd:(selector "numberOfTouches") ~typ:(returning (ullong)) -let numberOfTouchesRequired self = msg_send ~self ~cmd:(selector "numberOfTouchesRequired") ~typ:(returning (ullong)) -let rateOfMaximumMovementDecay self = msg_send ~self ~cmd:(selector "rateOfMaximumMovementDecay") ~typ:(returning (double)) -let rateOfMinimumMovementDecay self = msg_send ~self ~cmd:(selector "rateOfMinimumMovementDecay") ~typ:(returning (double)) -let setDirection x self = msg_send ~self ~cmd:(selector "setDirection:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setMaximumDuration x self = msg_send ~self ~cmd:(selector "setMaximumDuration:") ~typ:(double @-> returning (void)) x -let setMaximumPrimaryMovement x self = msg_send ~self ~cmd:(selector "setMaximumPrimaryMovement:") ~typ:(double @-> returning (void)) x -let setMaximumSecondaryMovement x self = msg_send ~self ~cmd:(selector "setMaximumSecondaryMovement:") ~typ:(double @-> returning (void)) x -let setMinimumPrimaryMovement x self = msg_send ~self ~cmd:(selector "setMinimumPrimaryMovement:") ~typ:(double @-> returning (void)) x -let setMinimumPrimaryMovementRate x self = msg_send ~self ~cmd:(selector "setMinimumPrimaryMovementRate:") ~typ:(double @-> returning (void)) x -let setMinimumSecondaryMovement x self = msg_send ~self ~cmd:(selector "setMinimumSecondaryMovement:") ~typ:(double @-> returning (void)) x -let setNumberOfTouchesRequired x self = msg_send ~self ~cmd:(selector "setNumberOfTouchesRequired:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setRateOfMaximumMovementDecay x self = msg_send ~self ~cmd:(selector "setRateOfMaximumMovementDecay:") ~typ:(double @-> returning (void)) x -let setRateOfMinimumMovementDecay x self = msg_send ~self ~cmd:(selector "setRateOfMinimumMovementDecay:") ~typ:(double @-> returning (void)) x -let startPoint self = msg_send_stret ~self ~cmd:(selector "startPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let direction self = msg_send ~self ~cmd:(selector "direction") ~typ:(returning ullong) +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 initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let locationOfTouch x ~inView self = msg_send ~self ~cmd:(selector "locationOfTouch:inView:") ~typ:(ullong @-> id @-> returning CGPoint.t) (ULLong.of_int x) inView +let maximumDuration self = msg_send ~self ~cmd:(selector "maximumDuration") ~typ:(returning double) +let maximumPrimaryMovement self = msg_send ~self ~cmd:(selector "maximumPrimaryMovement") ~typ:(returning double) +let maximumSecondaryMovement self = msg_send ~self ~cmd:(selector "maximumSecondaryMovement") ~typ:(returning double) +let minimumPrimaryMovement self = msg_send ~self ~cmd:(selector "minimumPrimaryMovement") ~typ:(returning double) +let minimumPrimaryMovementRate self = msg_send ~self ~cmd:(selector "minimumPrimaryMovementRate") ~typ:(returning double) +let minimumSecondaryMovement self = msg_send ~self ~cmd:(selector "minimumSecondaryMovement") ~typ:(returning double) +let numberOfTouches self = msg_send ~self ~cmd:(selector "numberOfTouches") ~typ:(returning ullong) +let numberOfTouchesRequired self = msg_send ~self ~cmd:(selector "numberOfTouchesRequired") ~typ:(returning ullong) +let rateOfMaximumMovementDecay self = msg_send ~self ~cmd:(selector "rateOfMaximumMovementDecay") ~typ:(returning double) +let rateOfMinimumMovementDecay self = msg_send ~self ~cmd:(selector "rateOfMinimumMovementDecay") ~typ:(returning double) +let setMaximumDuration x self = msg_send ~self ~cmd:(selector "setMaximumDuration:") ~typ:(double @-> returning void) x +let setMaximumPrimaryMovement x self = msg_send ~self ~cmd:(selector "setMaximumPrimaryMovement:") ~typ:(double @-> returning void) x +let setMaximumSecondaryMovement x self = msg_send ~self ~cmd:(selector "setMaximumSecondaryMovement:") ~typ:(double @-> returning void) x +let setMinimumPrimaryMovement x self = msg_send ~self ~cmd:(selector "setMinimumPrimaryMovement:") ~typ:(double @-> returning void) x +let setMinimumPrimaryMovementRate x self = msg_send ~self ~cmd:(selector "setMinimumPrimaryMovementRate:") ~typ:(double @-> returning void) x +let setMinimumSecondaryMovement x self = msg_send ~self ~cmd:(selector "setMinimumSecondaryMovement:") ~typ:(double @-> returning void) x +let setNumberOfTouchesRequired x self = msg_send ~self ~cmd:(selector "setNumberOfTouchesRequired:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setRateOfMaximumMovementDecay x self = msg_send ~self ~cmd:(selector "setRateOfMaximumMovementDecay:") ~typ:(double @-> returning void) x +let setRateOfMinimumMovementDecay x self = msg_send ~self ~cmd:(selector "setRateOfMinimumMovementDecay:") ~typ:(double @-> returning void) x +let startPoint self = msg_send ~self ~cmd:(selector "startPoint") ~typ:(returning CGPoint.t) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UISwipeGestureRecognizerClass.ml b/uikit/UISwipeGestureRecognizerClass.ml new file mode 100644 index 00000000..a2a2cff9 --- /dev/null +++ b/uikit/UISwipeGestureRecognizerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswipegesturerecognizer?language=objc}UISwipeGestureRecognizer} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UISwipeOccurrence.ml b/uikit/UISwipeOccurrence.ml index 2083f51c..7bf8dc1f 100644 --- a/uikit/UISwipeOccurrence.ml +++ b/uikit/UISwipeOccurrence.ml @@ -5,43 +5,50 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISwipeOccurrence" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswipeoccurrence?language=objc}UISwipeOccurrence} *) -let actionView self = msg_send ~self ~cmd:(selector "actionView") ~typ:(returning (id)) -let active self = msg_send ~self ~cmd:(selector "active") ~typ:(returning (bool)) -let beginSwipeTracking x self = msg_send ~self ~cmd:(selector "beginSwipeTracking:") ~typ:(bool @-> returning (void)) x -let configuredDirection self = msg_send ~self ~cmd:(selector "configuredDirection") ~typ:(returning (ullong)) -let confirmationDistanceForPrimaryActionInSwipeActionPullView x self = msg_send ~self ~cmd:(selector "confirmationDistanceForPrimaryActionInSwipeActionPullView:") ~typ:(id @-> returning (double)) x -let currentAction self = msg_send ~self ~cmd:(selector "currentAction") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let direction self = msg_send ~self ~cmd:(selector "direction") ~typ:(returning (llong)) -let endSwipe self = msg_send ~self ~cmd:(selector "endSwipe") ~typ:(returning (void)) -let indexPath self = msg_send ~self ~cmd:(selector "indexPath") ~typ:(returning (id)) -let initWithController x ~indexPath ~defaultStyle self = msg_send ~self ~cmd:(selector "initWithController:indexPath:defaultStyle:") ~typ:(id @-> id @-> ullong @-> returning (id)) x indexPath (ULLong.of_int defaultStyle) -let lockActionViewForAnimation self = msg_send ~self ~cmd:(selector "lockActionViewForAnimation") ~typ:(returning (id)) -let offset self = msg_send ~self ~cmd:(selector "offset") ~typ:(returning (double)) -let performPrimaryActionWithSwipeInfo x self = msg_send ~self ~cmd:(selector "performPrimaryActionWithSwipeInfo:") ~typ:(ptr void @-> returning (void)) x -let resetAnimated x ~completion self = msg_send ~self ~cmd:(selector "resetAnimated:completion:") ~typ:(bool @-> ptr void @-> returning (void)) x completion -let resetForReconfiguration self = msg_send ~self ~cmd:(selector "resetForReconfiguration") ~typ:(returning (void)) -let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning (void)) x -let setConfiguredDirection x self = msg_send ~self ~cmd:(selector "setConfiguredDirection:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setCurrentAction x self = msg_send ~self ~cmd:(selector "setCurrentAction:") ~typ:(id @-> returning (void)) x -let setCurrentSwipeInfo x self = msg_send ~self ~cmd:(selector "setCurrentSwipeInfo:") ~typ:(ptr void @-> returning (void)) x -let setExtraInsets x self = msg_send ~self ~cmd:(selector "setExtraInsets:") ~typ:(ptr void @-> returning (void)) x -let setIndexPath x self = msg_send ~self ~cmd:(selector "setIndexPath:") ~typ:(id @-> returning (void)) x -let setOffset x self = msg_send ~self ~cmd:(selector "setOffset:") ~typ:(double @-> returning (void)) x -let setSwipedView x self = msg_send ~self ~cmd:(selector "setSwipedView:") ~typ:(id @-> returning (void)) x -let setSwipedViewMaskWasRemoved x self = msg_send ~self ~cmd:(selector "setSwipedViewMaskWasRemoved:") ~typ:(bool @-> returning (void)) x -let setupManipulatorWithController x self = msg_send ~self ~cmd:(selector "setupManipulatorWithController:") ~typ:(id @-> returning (void)) x -let shouldDismissWithTouchLocation x self = msg_send ~self ~cmd:(selector "shouldDismissWithTouchLocation:") ~typ:(CGPoint.t @-> returning (bool)) x -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (llong)) -let swipeActionPullView x ~tappedAction self = msg_send ~self ~cmd:(selector "swipeActionPullView:tappedAction:") ~typ:(id @-> id @-> returning (void)) x tappedAction -let swipedView self = msg_send ~self ~cmd:(selector "swipedView") ~typ:(returning (id)) -let swipedViewMaskWasRemoved self = msg_send ~self ~cmd:(selector "swipedViewMaskWasRemoved") ~typ:(returning (bool)) -let swipedViewRestingFrame self = msg_send_stret ~self ~cmd:(selector "swipedViewRestingFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let unlockActionViewForAnimation x self = msg_send ~self ~cmd:(selector "unlockActionViewForAnimation:") ~typ:(id @-> returning (void)) x -let updateLayout self = msg_send ~self ~cmd:(selector "updateLayout") ~typ:(returning (void)) -let updateOffsetWithSwipeInfo x ~isTracking ~completion self = msg_send ~self ~cmd:(selector "updateOffsetWithSwipeInfo:isTracking:completion:") ~typ:(ptr void @-> bool @-> ptr void @-> returning (void)) x isTracking completion -let updateSwipedView self = msg_send ~self ~cmd:(selector "updateSwipedView") ~typ:(returning (void)) -let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UISwipeOccurrence" + +let actionView self = msg_send ~self ~cmd:(selector "actionView") ~typ:(returning id) +let active self = msg_send ~self ~cmd:(selector "active") ~typ:(returning bool) +let beginSwipeTracking x self = msg_send ~self ~cmd:(selector "beginSwipeTracking:") ~typ:(bool @-> returning void) x +let configuredDirection self = msg_send ~self ~cmd:(selector "configuredDirection") ~typ:(returning ullong) +let confirmationDistanceForPrimaryActionInSwipeActionPullView x self = msg_send ~self ~cmd:(selector "confirmationDistanceForPrimaryActionInSwipeActionPullView:") ~typ:(id @-> returning double) x +let currentAction self = msg_send ~self ~cmd:(selector "currentAction") ~typ:(returning id) +let currentSwipeInfo self = msg_send ~self ~cmd:(selector "currentSwipeInfo") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let direction self = msg_send ~self ~cmd:(selector "direction") ~typ:(returning llong) +let endSwipe self = msg_send ~self ~cmd:(selector "endSwipe") ~typ:(returning void) +let extraInsets self = msg_send ~self ~cmd:(selector "extraInsets") ~typ:(returning UIEdgeInsets.t) +let indexPath self = msg_send ~self ~cmd:(selector "indexPath") ~typ:(returning id) +let initWithController x ~indexPath ~defaultStyle self = msg_send ~self ~cmd:(selector "initWithController:indexPath:defaultStyle:") ~typ:(id @-> id @-> ullong @-> returning id) x indexPath (ULLong.of_int defaultStyle) +let lockActionViewForAnimation self = msg_send ~self ~cmd:(selector "lockActionViewForAnimation") ~typ:(returning id) +let offset self = msg_send ~self ~cmd:(selector "offset") ~typ:(returning double) +let performPrimaryActionWithSwipeInfo x self = msg_send ~self ~cmd:(selector "performPrimaryActionWithSwipeInfo:") ~typ:(void @-> returning void) x +let prepareWithSwipeDirection x ~configuration self = msg_send ~self ~cmd:(selector "prepareWithSwipeDirection:configuration:") ~typ:(ullong @-> id @-> returning void) (ULLong.of_int x) configuration +let resetAnimated x ~completion self = msg_send ~self ~cmd:(selector "resetAnimated:completion:") ~typ:(bool @-> (ptr void) @-> returning void) x completion +let resetForReconfiguration self = msg_send ~self ~cmd:(selector "resetForReconfiguration") ~typ:(returning void) +let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning void) x +let setConfiguredDirection x self = msg_send ~self ~cmd:(selector "setConfiguredDirection:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setCurrentAction x self = msg_send ~self ~cmd:(selector "setCurrentAction:") ~typ:(id @-> returning void) x +let setCurrentSwipeInfo x self = msg_send ~self ~cmd:(selector "setCurrentSwipeInfo:") ~typ:(void @-> returning void) x +let setExtraInsets x self = msg_send ~self ~cmd:(selector "setExtraInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setIndexPath x self = msg_send ~self ~cmd:(selector "setIndexPath:") ~typ:(id @-> returning void) x +let setOffset x self = msg_send ~self ~cmd:(selector "setOffset:") ~typ:(double @-> returning void) x +let setSwipedView x self = msg_send ~self ~cmd:(selector "setSwipedView:") ~typ:(id @-> returning void) x +let setSwipedViewMaskWasRemoved x self = msg_send ~self ~cmd:(selector "setSwipedViewMaskWasRemoved:") ~typ:(bool @-> returning void) x +let setupManipulatorWithController x self = msg_send ~self ~cmd:(selector "setupManipulatorWithController:") ~typ:(id @-> returning void) x +let shouldDismissWithTouchLocation x self = msg_send ~self ~cmd:(selector "shouldDismissWithTouchLocation:") ~typ:(CGPoint.t @-> returning bool) x +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning llong) +let swipeActionPullView x ~tappedAction self = msg_send ~self ~cmd:(selector "swipeActionPullView:tappedAction:") ~typ:(id @-> id @-> returning void) x tappedAction +let swipedView self = msg_send ~self ~cmd:(selector "swipedView") ~typ:(returning id) +let swipedViewMaskWasRemoved self = msg_send ~self ~cmd:(selector "swipedViewMaskWasRemoved") ~typ:(returning bool) +let swipedViewRestingFrame self = msg_send ~self ~cmd:(selector "swipedViewRestingFrame") ~typ:(returning CGRect.t) +let unlockActionViewForAnimation x self = msg_send ~self ~cmd:(selector "unlockActionViewForAnimation:") ~typ:(id @-> returning void) x +let updateLayout self = msg_send ~self ~cmd:(selector "updateLayout") ~typ:(returning void) +let updateOffsetWithSwipeInfo x ~isTracking ~completion self = msg_send ~self ~cmd:(selector "updateOffsetWithSwipeInfo:isTracking:completion:") ~typ:(void @-> bool @-> (ptr void) @-> returning void) x isTracking completion +let updateSwipedView self = msg_send ~self ~cmd:(selector "updateSwipedView") ~typ:(returning void) +let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UISwitch.ml b/uikit/UISwitch.ml index 9d8bd50a..fae3f972 100644 --- a/uikit/UISwitch.ml +++ b/uikit/UISwitch.ml @@ -5,57 +5,56 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISwitch" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswitch?language=objc}UISwitch} *) -module C = struct - let setVisualElementProvider x self = msg_send ~self ~cmd:(selector "setVisualElementProvider:") ~typ:(id @-> returning (void)) x - let visualElementForTraitCollection x self = msg_send ~self ~cmd:(selector "visualElementForTraitCollection:") ~typ:(id @-> returning (id)) x - let visualElementForTraitCollection' x ~style self = msg_send ~self ~cmd:(selector "visualElementForTraitCollection:style:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int style) -end +let self = get_class "UISwitch" -let accessibilityActivationPoint self = msg_send_stret ~self ~cmd:(selector "accessibilityActivationPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultAccessibilityTraits self = msg_send ~self ~cmd:(selector "defaultAccessibilityTraits") ~typ:(returning (ullong)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning (bool)) -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isOn self = msg_send ~self ~cmd:(selector "isOn") ~typ:(returning (bool)) -let offImage self = msg_send ~self ~cmd:(selector "offImage") ~typ:(returning (id)) -let onImage self = msg_send ~self ~cmd:(selector "onImage") ~typ:(returning (id)) -let onTintColor self = msg_send ~self ~cmd:(selector "onTintColor") ~typ:(returning (id)) -let pointMostlyInside x self = msg_send ~self ~cmd:(selector "pointMostlyInside:") ~typ:(CGPoint.t @-> returning (bool)) x -let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning (id)) x styleForRegion -let pointerInteraction1 x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning (id)) x regionForRequest defaultRegion -let pointerInteraction2 x ~willEnterRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willEnterRegion:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willEnterRegion animator -let pointerInteraction3 x ~willExitRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willExitRegion:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willExitRegion animator -let preferredStyle self = msg_send ~self ~cmd:(selector "preferredStyle") ~typ:(returning (llong)) -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setOffImage x self = msg_send ~self ~cmd:(selector "setOffImage:") ~typ:(id @-> returning (void)) x -let setOn x self = msg_send ~self ~cmd:(selector "setOn:") ~typ:(bool @-> returning (void)) x -let setOn1 x ~animated self = msg_send ~self ~cmd:(selector "setOn:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setOn2 x ~animated ~notifyingVisualElement self = msg_send ~self ~cmd:(selector "setOn:animated:notifyingVisualElement:") ~typ:(bool @-> bool @-> bool @-> returning (void)) x animated notifyingVisualElement -let setOnImage x self = msg_send ~self ~cmd:(selector "setOnImage:") ~typ:(id @-> returning (void)) x -let setOnTintColor x self = msg_send ~self ~cmd:(selector "setOnTintColor:") ~typ:(id @-> returning (void)) x -let setPreferredStyle x self = msg_send ~self ~cmd:(selector "setPreferredStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSwitchStyle x self = msg_send ~self ~cmd:(selector "setSwitchStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setThumbTintColor x self = msg_send ~self ~cmd:(selector "setThumbTintColor:") ~typ:(id @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setVisualElement x self = msg_send ~self ~cmd:(selector "setVisualElement:") ~typ:(id @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let switchStyle self = msg_send ~self ~cmd:(selector "switchStyle") ~typ:(returning (llong)) -let thumbTintColor self = msg_send ~self ~cmd:(selector "thumbTintColor") ~typ:(returning (id)) -let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning (id)) -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let visualElement self = msg_send ~self ~cmd:(selector "visualElement") ~typ:(returning (id)) -let visualElement' x ~transitionedToOn self = msg_send ~self ~cmd:(selector "visualElement:transitionedToOn:") ~typ:(id @-> bool @-> returning (void)) x transitionedToOn -let visualElementHadTouchUpInside x self = msg_send ~self ~cmd:(selector "visualElementHadTouchUpInside:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let accessibilityActivationPoint self = msg_send ~self ~cmd:(selector "accessibilityActivationPoint") ~typ:(returning CGPoint.t) +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultAccessibilityTraits self = msg_send ~self ~cmd:(selector "defaultAccessibilityTraits") ~typ:(returning ullong) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning bool) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isOn self = msg_send ~self ~cmd:(selector "isOn") ~typ:(returning bool) +let offImage self = msg_send ~self ~cmd:(selector "offImage") ~typ:(returning id) +let onImage self = msg_send ~self ~cmd:(selector "onImage") ~typ:(returning id) +let onTintColor self = msg_send ~self ~cmd:(selector "onTintColor") ~typ:(returning id) +let pointMostlyInside x self = msg_send ~self ~cmd:(selector "pointMostlyInside:") ~typ:(CGPoint.t @-> returning bool) x +let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning id) x styleForRegion +let pointerInteraction1 x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning id) x regionForRequest defaultRegion +let pointerInteraction2 x ~willEnterRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willEnterRegion:animator:") ~typ:(id @-> id @-> id @-> returning void) x willEnterRegion animator +let pointerInteraction3 x ~willExitRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willExitRegion:animator:") ~typ:(id @-> id @-> id @-> returning void) x willExitRegion animator +let preferredStyle self = msg_send ~self ~cmd:(selector "preferredStyle") ~typ:(returning llong) +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setOffImage x self = msg_send ~self ~cmd:(selector "setOffImage:") ~typ:(id @-> returning void) x +let setOn x self = msg_send ~self ~cmd:(selector "setOn:") ~typ:(bool @-> returning void) x +let setOn1 x ~animated self = msg_send ~self ~cmd:(selector "setOn:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setOn2 x ~animated ~notifyingVisualElement self = msg_send ~self ~cmd:(selector "setOn:animated:notifyingVisualElement:") ~typ:(bool @-> bool @-> bool @-> returning void) x animated notifyingVisualElement +let setOnImage x self = msg_send ~self ~cmd:(selector "setOnImage:") ~typ:(id @-> returning void) x +let setOnTintColor x self = msg_send ~self ~cmd:(selector "setOnTintColor:") ~typ:(id @-> returning void) x +let setPreferredStyle x self = msg_send ~self ~cmd:(selector "setPreferredStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSwitchStyle x self = msg_send ~self ~cmd:(selector "setSwitchStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setThumbTintColor x self = msg_send ~self ~cmd:(selector "setThumbTintColor:") ~typ:(id @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let setVisualElement x self = msg_send ~self ~cmd:(selector "setVisualElement:") ~typ:(id @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let switchStyle self = msg_send ~self ~cmd:(selector "switchStyle") ~typ:(returning llong) +let thumbTintColor self = msg_send ~self ~cmd:(selector "thumbTintColor") ~typ:(returning id) +let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning id) +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let visualElement self = msg_send ~self ~cmd:(selector "visualElement") ~typ:(returning id) +let visualElement' x ~transitionedToOn self = msg_send ~self ~cmd:(selector "visualElement:transitionedToOn:") ~typ:(id @-> bool @-> returning void) x transitionedToOn +let visualElementHadTouchUpInside x self = msg_send ~self ~cmd:(selector "visualElementHadTouchUpInside:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UISwitchClass.ml b/uikit/UISwitchClass.ml new file mode 100644 index 00000000..023be66c --- /dev/null +++ b/uikit/UISwitchClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswitch?language=objc}UISwitch} *) + +let setVisualElementProvider x self = msg_send ~self ~cmd:(selector "setVisualElementProvider:") ~typ:(id @-> returning void) x +let visualElementForTraitCollection x self = msg_send ~self ~cmd:(selector "visualElementForTraitCollection:") ~typ:(id @-> returning id) x +let visualElementForTraitCollection' x ~style self = msg_send ~self ~cmd:(selector "visualElementForTraitCollection:style:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int style) \ No newline at end of file diff --git a/uikit/UISwitchMVEGestureTrackingSession.ml b/uikit/UISwitchMVEGestureTrackingSession.ml deleted file mode 100644 index 9bee6e36..00000000 --- a/uikit/UISwitchMVEGestureTrackingSession.ml +++ /dev/null @@ -1,33 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISwitchMVEGestureTrackingSession" - -module C = struct - let gestureIsInEndState x self = msg_send ~self ~cmd:(selector "gestureIsInEndState:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -end - -let applyPendingDisplayedOnValueAndSendActions self = msg_send ~self ~cmd:(selector "applyPendingDisplayedOnValueAndSendActions") ~typ:(returning (void)) -let applyPendingDisplayedOnValueWithoutSendingActions self = msg_send ~self ~cmd:(selector "applyPendingDisplayedOnValueWithoutSendingActions") ~typ:(returning (void)) -let canApplyPendingOnValueForGesture x self = msg_send ~self ~cmd:(selector "canApplyPendingOnValueForGesture:") ~typ:(id @-> returning (bool)) x -let displayedOnValue self = msg_send ~self ~cmd:(selector "displayedOnValue") ~typ:(returning (bool)) -let initWithVisualElement x self = msg_send ~self ~cmd:(selector "initWithVisualElement:") ~typ:(id @-> returning (id)) x -let invalidatePendingOnValue self = msg_send ~self ~cmd:(selector "invalidatePendingOnValue") ~typ:(returning (void)) -let lastCommitedOnValue self = msg_send ~self ~cmd:(selector "lastCommitedOnValue") ~typ:(returning (bool)) -let movementVectorForPanInitiatedChangeTargetOnValue self = msg_send ~self ~cmd:(selector "movementVectorForPanInitiatedChangeTargetOnValue") ~typ:(returning (double)) -let movementVectorForPanInitiatedChangeY self = msg_send ~self ~cmd:(selector "movementVectorForPanInitiatedChangeY") ~typ:(returning (double)) -let naturalLayoutDirection self = msg_send ~self ~cmd:(selector "naturalLayoutDirection") ~typ:(returning (double)) -let pendingDisplayedOnValue self = msg_send ~self ~cmd:(selector "pendingDisplayedOnValue") ~typ:(returning (bool)) -let pendingDisplayedOnValueInitiatingGesture self = msg_send ~self ~cmd:(selector "pendingDisplayedOnValueInitiatingGesture") ~typ:(returning (id)) -let pendingDisplayedOnValueIsValid self = msg_send ~self ~cmd:(selector "pendingDisplayedOnValueIsValid") ~typ:(returning (bool)) -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let setDisplayedOnValue x self = msg_send ~self ~cmd:(selector "setDisplayedOnValue:") ~typ:(bool @-> returning (void)) x -let setPendingDisplayedOnValue x ~forGesture self = msg_send ~self ~cmd:(selector "setPendingDisplayedOnValue:forGesture:") ~typ:(bool @-> id @-> returning (void)) x forGesture -let setVisualElement x self = msg_send ~self ~cmd:(selector "setVisualElement:") ~typ:(id @-> returning (void)) x -let updatePendingDisplayedOnValueIfMovementIsEnoughToInitiateChange x ~forGesture self = msg_send ~self ~cmd:(selector "updatePendingDisplayedOnValueIfMovementIsEnoughToInitiateChange:forGesture:") ~typ:(double @-> id @-> returning (bool)) x forGesture -let visualElement self = msg_send ~self ~cmd:(selector "visualElement") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UISwitchMacCheckboxVisualElement.ml b/uikit/UISwitchMacCheckboxVisualElement.ml deleted file mode 100644 index 30ddb073..00000000 --- a/uikit/UISwitchMacCheckboxVisualElement.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISwitchMacCheckboxVisualElement" - -module C = struct - let isFixedSize self = msg_send ~self ~cmd:(selector "isFixedSize") ~typ:(returning (bool)) -end - -let accessibilityActivationPoint self = msg_send_stret ~self ~cmd:(selector "accessibilityActivationPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let didSwitch x self = msg_send ~self ~cmd:(selector "didSwitch:") ~typ:(id @-> returning (void)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setOn x ~animated self = msg_send ~self ~cmd:(selector "setOn:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UISwitchMacVisualElement.ml b/uikit/UISwitchMacVisualElement.ml deleted file mode 100644 index 826817b6..00000000 --- a/uikit/UISwitchMacVisualElement.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISwitchMacVisualElement" - -module C = struct - let preferredContentSize self = msg_send_stret ~self ~cmd:(selector "preferredContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -end - -let didSwitch x self = msg_send ~self ~cmd:(selector "didSwitch:") ~typ:(id @-> returning (void)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setOn x ~animated self = msg_send ~self ~cmd:(selector "setOn:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated \ No newline at end of file diff --git a/uikit/UISwitchModernVisualElement.ml b/uikit/UISwitchModernVisualElement.ml deleted file mode 100644 index 50c4d671..00000000 --- a/uikit/UISwitchModernVisualElement.ml +++ /dev/null @@ -1,52 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISwitchModernVisualElement" - -module C = struct - let preferredContentSize self = msg_send_stret ~self ~cmd:(selector "preferredContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -end - -let animationDidStop x ~finished self = msg_send ~self ~cmd:(selector "animationDidStop:finished:") ~typ:(id @-> bool @-> returning (void)) x finished -let displayedOn self = msg_send ~self ~cmd:(selector "displayedOn") ~typ:(returning (bool)) -let gestureRecognizer x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRecognizeSimultaneouslyWithGestureRecognizer -let gestureRecognizer' x ~shouldRequireFailureOfGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRequireFailureOfGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRequireFailureOfGestureRecognizer -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let gestureTrackingSession self = msg_send ~self ~cmd:(selector "gestureTrackingSession") ~typ:(returning (id)) -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let interactiveChangeToDisplayedOn x self = msg_send ~self ~cmd:(selector "interactiveChangeToDisplayedOn:") ~typ:(bool @-> returning (void)) x -let longPress self = msg_send ~self ~cmd:(selector "longPress") ~typ:(returning (id)) -let offImage self = msg_send ~self ~cmd:(selector "offImage") ~typ:(returning (id)) -let on self = msg_send ~self ~cmd:(selector "on") ~typ:(returning (bool)) -let onImage self = msg_send ~self ~cmd:(selector "onImage") ~typ:(returning (id)) -let pan self = msg_send ~self ~cmd:(selector "pan") ~typ:(returning (id)) -let performStateChangeFeedback self = msg_send ~self ~cmd:(selector "performStateChangeFeedback") ~typ:(returning (void)) -let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning (id)) x styleForRegion -let pointerInteraction' x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning (id)) x regionForRequest defaultRegion -let pressed self = msg_send ~self ~cmd:(selector "pressed") ~typ:(returning (bool)) -let selectGestureRecognizer self = msg_send ~self ~cmd:(selector "selectGestureRecognizer") ~typ:(returning (id)) -let sendStateChangeActions self = msg_send ~self ~cmd:(selector "sendStateChangeActions") ~typ:(returning (void)) -let setGestureTrackingSession x self = msg_send ~self ~cmd:(selector "setGestureTrackingSession:") ~typ:(id @-> returning (void)) x -let setLongPress x self = msg_send ~self ~cmd:(selector "setLongPress:") ~typ:(id @-> returning (void)) x -let setOffImage x self = msg_send ~self ~cmd:(selector "setOffImage:") ~typ:(id @-> returning (void)) x -let setOn x self = msg_send ~self ~cmd:(selector "setOn:") ~typ:(bool @-> returning (void)) x -let setOn' x ~animated self = msg_send ~self ~cmd:(selector "setOn:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setOnImage x self = msg_send ~self ~cmd:(selector "setOnImage:") ~typ:(id @-> returning (void)) x -let setOnTintColor x self = msg_send ~self ~cmd:(selector "setOnTintColor:") ~typ:(id @-> returning (void)) x -let setPan x self = msg_send ~self ~cmd:(selector "setPan:") ~typ:(id @-> returning (void)) x -let setPressed x self = msg_send ~self ~cmd:(selector "setPressed:") ~typ:(bool @-> returning (void)) x -let setSelectGestureRecognizer x self = msg_send ~self ~cmd:(selector "setSelectGestureRecognizer:") ~typ:(id @-> returning (void)) x -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShowsOnOffLabel x self = msg_send ~self ~cmd:(selector "setShowsOnOffLabel:") ~typ:(bool @-> returning (void)) x -let setSwitchControl x self = msg_send ~self ~cmd:(selector "setSwitchControl:") ~typ:(id @-> returning (void)) x -let setThumbTintColor x self = msg_send ~self ~cmd:(selector "setThumbTintColor:") ~typ:(id @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let showsOnOffLabel self = msg_send ~self ~cmd:(selector "showsOnOffLabel") ~typ:(returning (bool)) -let thumbTintColor self = msg_send ~self ~cmd:(selector "thumbTintColor") ~typ:(returning (id)) -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit/UISwitchVisualElement.ml b/uikit/UISwitchVisualElement.ml index 9cc8cbb7..f549e1df 100644 --- a/uikit/UISwitchVisualElement.ml +++ b/uikit/UISwitchVisualElement.ml @@ -5,31 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISwitchVisualElement" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswitchvisualelement?language=objc}UISwitchVisualElement} *) -module C = struct - let isFixedSize self = msg_send ~self ~cmd:(selector "isFixedSize") ~typ:(returning (bool)) - let preferredContentSize self = msg_send_stret ~self ~cmd:(selector "preferredContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -end +let self = get_class "UISwitchVisualElement" -let enabled self = msg_send ~self ~cmd:(selector "enabled") ~typ:(returning (bool)) -let enabledAlpha self = msg_send ~self ~cmd:(selector "enabledAlpha") ~typ:(returning (double)) -let impactFeedbackGenerator self = msg_send ~self ~cmd:(selector "impactFeedbackGenerator") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let preferredContentSize self = msg_send_stret ~self ~cmd:(selector "preferredContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setEnabledAlpha x self = msg_send ~self ~cmd:(selector "setEnabledAlpha:") ~typ:(double @-> returning (void)) x -let setImpactFeedbackGenerator x self = msg_send ~self ~cmd:(selector "setImpactFeedbackGenerator:") ~typ:(id @-> returning (void)) x -let setOffImage x self = msg_send ~self ~cmd:(selector "setOffImage:") ~typ:(id @-> returning (void)) x -let setOn x ~animated self = msg_send ~self ~cmd:(selector "setOn:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setOnImage x self = msg_send ~self ~cmd:(selector "setOnImage:") ~typ:(id @-> returning (void)) x -let setOnTintColor x self = msg_send ~self ~cmd:(selector "setOnTintColor:") ~typ:(id @-> returning (void)) x -let setShowsOnOffLabel x self = msg_send ~self ~cmd:(selector "setShowsOnOffLabel:") ~typ:(bool @-> returning (void)) x -let setSwitchControl x self = msg_send ~self ~cmd:(selector "setSwitchControl:") ~typ:(id @-> returning (void)) x -let setThumbTintColor x self = msg_send ~self ~cmd:(selector "setThumbTintColor:") ~typ:(id @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let switchControl self = msg_send ~self ~cmd:(selector "switchControl") ~typ:(returning (id)) -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let enabled self = msg_send ~self ~cmd:(selector "enabled") ~typ:(returning bool) +let enabledAlpha self = msg_send ~self ~cmd:(selector "enabledAlpha") ~typ:(returning double) +let impactFeedbackGenerator self = msg_send ~self ~cmd:(selector "impactFeedbackGenerator") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let preferredContentSize self = msg_send ~self ~cmd:(selector "preferredContentSize") ~typ:(returning CGSize.t) +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setEnabledAlpha x self = msg_send ~self ~cmd:(selector "setEnabledAlpha:") ~typ:(double @-> returning void) x +let setImpactFeedbackGenerator x self = msg_send ~self ~cmd:(selector "setImpactFeedbackGenerator:") ~typ:(id @-> returning void) x +let setOffImage x self = msg_send ~self ~cmd:(selector "setOffImage:") ~typ:(id @-> returning void) x +let setOn x ~animated self = msg_send ~self ~cmd:(selector "setOn:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setOnImage x self = msg_send ~self ~cmd:(selector "setOnImage:") ~typ:(id @-> returning void) x +let setOnTintColor x self = msg_send ~self ~cmd:(selector "setOnTintColor:") ~typ:(id @-> returning void) x +let setShowsOnOffLabel x self = msg_send ~self ~cmd:(selector "setShowsOnOffLabel:") ~typ:(bool @-> returning void) x +let setSwitchControl x self = msg_send ~self ~cmd:(selector "setSwitchControl:") ~typ:(id @-> returning void) x +let setThumbTintColor x self = msg_send ~self ~cmd:(selector "setThumbTintColor:") ~typ:(id @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let switchControl self = msg_send ~self ~cmd:(selector "switchControl") ~typ:(returning id) +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UISwitchVisualElementClass.ml b/uikit/UISwitchVisualElementClass.ml new file mode 100644 index 00000000..51edbf54 --- /dev/null +++ b/uikit/UISwitchVisualElementClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswitchvisualelement?language=objc}UISwitchVisualElement} *) + +let isFixedSize self = msg_send ~self ~cmd:(selector "isFixedSize") ~typ:(returning bool) +let preferredAlignmentRectInsets self = msg_send ~self ~cmd:(selector "preferredAlignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let preferredContentSize self = msg_send ~self ~cmd:(selector "preferredContentSize") ~typ:(returning CGSize.t) \ No newline at end of file diff --git a/uikit/UISystemDefaultTextInputAssistantItem.ml b/uikit/UISystemDefaultTextInputAssistantItem.ml deleted file mode 100644 index 46f9e9bd..00000000 --- a/uikit/UISystemDefaultTextInputAssistantItem.ml +++ /dev/null @@ -1,38 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISystemDefaultTextInputAssistantItem" - -let analyticsDispatchWithActionStyle x self = msg_send ~self ~cmd:(selector "analyticsDispatchWithActionStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let assistantBold self = msg_send ~self ~cmd:(selector "assistantBold") ~typ:(returning (void)) -let assistantCopy self = msg_send ~self ~cmd:(selector "assistantCopy") ~typ:(returning (void)) -let assistantCut self = msg_send ~self ~cmd:(selector "assistantCut") ~typ:(returning (void)) -let assistantDictation self = msg_send ~self ~cmd:(selector "assistantDictation") ~typ:(returning (void)) -let assistantDismiss self = msg_send ~self ~cmd:(selector "assistantDismiss") ~typ:(returning (void)) -let assistantEmoji self = msg_send ~self ~cmd:(selector "assistantEmoji") ~typ:(returning (void)) -let assistantExpand self = msg_send ~self ~cmd:(selector "assistantExpand") ~typ:(returning (void)) -let assistantItalic self = msg_send ~self ~cmd:(selector "assistantItalic") ~typ:(returning (void)) -let assistantPaste x ~forEvent self = msg_send ~self ~cmd:(selector "assistantPaste:forEvent:") ~typ:(id @-> id @-> returning (void)) x forEvent -let assistantRedo self = msg_send ~self ~cmd:(selector "assistantRedo") ~typ:(returning (void)) -let assistantShowKeyboard self = msg_send ~self ~cmd:(selector "assistantShowKeyboard") ~typ:(returning (void)) -let assistantUnderline self = msg_send ~self ~cmd:(selector "assistantUnderline") ~typ:(returning (void)) -let assistantUndo self = msg_send ~self ~cmd:(selector "assistantUndo") ~typ:(returning (void)) -let assistantWriteboard self = msg_send ~self ~cmd:(selector "assistantWriteboard") ~typ:(returning (void)) -let canPerformSystemButtonActionForStyle x self = msg_send ~self ~cmd:(selector "canPerformSystemButtonActionForStyle:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let defaultSystemLeadingBarButtonGroups self = msg_send ~self ~cmd:(selector "defaultSystemLeadingBarButtonGroups") ~typ:(returning (id)) -let defaultSystemTrailingBarButtonGroups self = msg_send ~self ~cmd:(selector "defaultSystemTrailingBarButtonGroups") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isKeyboardCameraItem self = msg_send ~self ~cmd:(selector "isKeyboardCameraItem") ~typ:(returning (bool)) -let performSystemButtonActionForStyle x self = msg_send ~self ~cmd:(selector "performSystemButtonActionForStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setDefaultSystemLeadingBarButtonGroups x self = msg_send ~self ~cmd:(selector "setDefaultSystemLeadingBarButtonGroups:") ~typ:(id @-> returning (void)) x -let setDefaultSystemTrailingBarButtonGroups x self = msg_send ~self ~cmd:(selector "setDefaultSystemTrailingBarButtonGroups:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setLeadingBarButtonGroups x self = msg_send ~self ~cmd:(selector "setLeadingBarButtonGroups:") ~typ:(id @-> returning (void)) x -let setSystemItem x self = msg_send ~self ~cmd:(selector "setSystemItem:") ~typ:(bool @-> returning (void)) x -let setTrailingBarButtonGroups x self = msg_send ~self ~cmd:(selector "setTrailingBarButtonGroups:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UISystemGestureView.ml b/uikit/UISystemGestureView.ml index eac0cb09..95aa192d 100644 --- a/uikit/UISystemGestureView.ml +++ b/uikit/UISystemGestureView.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISystemGestureView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisystemgestureview?language=objc}UISystemGestureView} *) -let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning (bool)) -let canResignFirstResponder self = msg_send ~self ~cmd:(selector "canResignFirstResponder") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UISystemGestureView" + +let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning bool) +let canResignFirstResponder self = msg_send ~self ~cmd:(selector "canResignFirstResponder") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UISystemInputAssistantViewController.ml b/uikit/UISystemInputAssistantViewController.ml index d5566945..27ea6aaf 100644 --- a/uikit/UISystemInputAssistantViewController.ml +++ b/uikit/UISystemInputAssistantViewController.ml @@ -5,91 +5,95 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISystemInputAssistantViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisysteminputassistantviewcontroller?language=objc}UISystemInputAssistantViewController} *) -let adaptivePresentationStyleForPresentationController x self = msg_send ~self ~cmd:(selector "adaptivePresentationStyleForPresentationController:") ~typ:(id @-> returning (llong)) x -let assistantBarStyle self = msg_send ~self ~cmd:(selector "assistantBarStyle") ~typ:(returning (llong)) -let assistantEnabledPreference self = msg_send ~self ~cmd:(selector "assistantEnabledPreference") ~typ:(returning (bool)) -let assistantOniPhonePreference self = msg_send ~self ~cmd:(selector "assistantOniPhonePreference") ~typ:(returning (bool)) -let autocorrectionController x ~didUpdateAutocorrectionList self = msg_send ~self ~cmd:(selector "autocorrectionController:didUpdateAutocorrectionList:") ~typ:(id @-> id @-> returning (void)) x didUpdateAutocorrectionList -let autocorrectionControllerDidClearAutocorrections x self = msg_send ~self ~cmd:(selector "autocorrectionControllerDidClearAutocorrections:") ~typ:(id @-> returning (void)) x -let automaticallySetCenterViewControllerBasedOnInputDelegate x self = msg_send ~self ~cmd:(selector "automaticallySetCenterViewControllerBasedOnInputDelegate:") ~typ:(id @-> returning (void)) x -let barFrame self = msg_send_stret ~self ~cmd:(selector "barFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let cachedPredictiveViewControllers self = msg_send ~self ~cmd:(selector "cachedPredictiveViewControllers") ~typ:(returning (id)) -let candidateViewController self = msg_send ~self ~cmd:(selector "candidateViewController") ~typ:(returning (id)) -let centerViewController self = msg_send ~self ~cmd:(selector "centerViewController") ~typ:(returning (id)) -let compactAssistantViewLayout self = msg_send ~self ~cmd:(selector "compactAssistantViewLayout") ~typ:(returning (id)) -let compactStyle self = msg_send ~self ~cmd:(selector "compactStyle") ~typ:(returning (id)) -let compatibilityViewController self = msg_send ~self ~cmd:(selector "compatibilityViewController") ~typ:(returning (id)) -let currentInputDelegatePointerValue self = msg_send ~self ~cmd:(selector "currentInputDelegatePointerValue") ~typ:(returning (id)) -let currentlyCheckingPreferences self = msg_send ~self ~cmd:(selector "currentlyCheckingPreferences") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let dismissDictationMenuIfNeeded self = msg_send ~self ~cmd:(selector "dismissDictationMenuIfNeeded") ~typ:(returning (void)) -let dismissEmojiSearch self = msg_send ~self ~cmd:(selector "dismissEmojiSearch") ~typ:(returning (void)) -let dismissKeyboardItemIfNeeded self = msg_send ~self ~cmd:(selector "dismissKeyboardItemIfNeeded") ~typ:(returning (void)) -let dismissLanguageIndicatorMenuIfNeeded self = msg_send ~self ~cmd:(selector "dismissLanguageIndicatorMenuIfNeeded") ~typ:(returning (void)) -let emojiSearchTextFieldDidBecomeActive x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldDidBecomeActive:") ~typ:(id @-> returning (void)) x -let emojiSearchTextFieldDidBecomeInactive x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldDidBecomeInactive:") ~typ:(id @-> returning (void)) x -let emojiSearchTextFieldWillBecomeActive x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldWillBecomeActive:") ~typ:(id @-> returning (void)) x -let emojiSearchTextFieldWillBecomeInactive x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldWillBecomeInactive:") ~typ:(id @-> returning (void)) x -let emojiSearchViewController self = msg_send ~self ~cmd:(selector "emojiSearchViewController") ~typ:(returning (id)) -let emojiSearchWillInsertEmoji x ~forSearchQuery self = msg_send ~self ~cmd:(selector "emojiSearchWillInsertEmoji:forSearchQuery:") ~typ:(id @-> id @-> returning (void)) x forSearchQuery -let expandedItemsController self = msg_send ~self ~cmd:(selector "expandedItemsController") ~typ:(returning (id)) -let floatAssistantViewLayout self = msg_send ~self ~cmd:(selector "floatAssistantViewLayout") ~typ:(returning (id)) -let floatStyle self = msg_send ~self ~cmd:(selector "floatStyle") ~typ:(returning (id)) -let hasCheckedPreferences self = msg_send ~self ~cmd:(selector "hasCheckedPreferences") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let inputWindowController self = msg_send ~self ~cmd:(selector "inputWindowController") ~typ:(returning (id)) -let isEmojiSearchResultsVisible self = msg_send ~self ~cmd:(selector "isEmojiSearchResultsVisible") ~typ:(returning (bool)) -let isInputAssistantItemEmpty self = msg_send ~self ~cmd:(selector "isInputAssistantItemEmpty") ~typ:(returning (bool)) -let layoutFromAssistantBarStyle x self = msg_send ~self ~cmd:(selector "layoutFromAssistantBarStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let layoutHasBuiltinAssistantView self = msg_send ~self ~cmd:(selector "layoutHasBuiltinAssistantView") ~typ:(returning (bool)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let observedInputAssistantItem self = msg_send ~self ~cmd:(selector "observedInputAssistantItem") ~typ:(returning (id)) -let popoverPresentationControllerDidDismissPopover x self = msg_send ~self ~cmd:(selector "popoverPresentationControllerDidDismissPopover:") ~typ:(id @-> returning (void)) x -let popoverSourceView self = msg_send ~self ~cmd:(selector "popoverSourceView") ~typ:(returning (id)) -let predictionViewController self = msg_send ~self ~cmd:(selector "predictionViewController") ~typ:(returning (id)) -let predictiveViewController self = msg_send ~self ~cmd:(selector "predictiveViewController") ~typ:(returning (id)) -let preferencesControllerChanged x self = msg_send ~self ~cmd:(selector "preferencesControllerChanged:") ~typ:(id @-> returning (void)) x -let preferredHeightForTraitCollection x self = msg_send ~self ~cmd:(selector "preferredHeightForTraitCollection:") ~typ:(id @-> returning (double)) x -let prepareForFloating x self = msg_send ~self ~cmd:(selector "prepareForFloating:") ~typ:(bool @-> returning (void)) x -let prepareForPopoverPresentation x self = msg_send ~self ~cmd:(selector "prepareForPopoverPresentation:") ~typ:(id @-> returning (void)) x -let prepareTransition x ~animated self = msg_send ~self ~cmd:(selector "prepareTransition:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setAssistantBarStyle x self = msg_send ~self ~cmd:(selector "setAssistantBarStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setAssistantEnabledPreference x self = msg_send ~self ~cmd:(selector "setAssistantEnabledPreference:") ~typ:(bool @-> returning (void)) x -let setAssistantOniPhonePreference x self = msg_send ~self ~cmd:(selector "setAssistantOniPhonePreference:") ~typ:(bool @-> returning (void)) x -let setCachedPredictiveViewControllers x self = msg_send ~self ~cmd:(selector "setCachedPredictiveViewControllers:") ~typ:(id @-> returning (void)) x -let setCenterViewController x self = msg_send ~self ~cmd:(selector "setCenterViewController:") ~typ:(id @-> returning (void)) x -let setCompactAssistantViewLayout x self = msg_send ~self ~cmd:(selector "setCompactAssistantViewLayout:") ~typ:(id @-> returning (void)) x -let setCompactStyle x self = msg_send ~self ~cmd:(selector "setCompactStyle:") ~typ:(id @-> returning (void)) x -let setCurrentInputDelegatePointerValue x self = msg_send ~self ~cmd:(selector "setCurrentInputDelegatePointerValue:") ~typ:(id @-> returning (void)) x -let setCurrentlyCheckingPreferences x self = msg_send ~self ~cmd:(selector "setCurrentlyCheckingPreferences:") ~typ:(bool @-> returning (void)) x -let setEmojiSearchViewController x self = msg_send ~self ~cmd:(selector "setEmojiSearchViewController:") ~typ:(id @-> returning (void)) x -let setExpandedItemsController x self = msg_send ~self ~cmd:(selector "setExpandedItemsController:") ~typ:(id @-> returning (void)) x -let setFloatAssistantViewLayout x self = msg_send ~self ~cmd:(selector "setFloatAssistantViewLayout:") ~typ:(id @-> returning (void)) x -let setFloatStyle x self = msg_send ~self ~cmd:(selector "setFloatStyle:") ~typ:(id @-> returning (void)) x -let setHasCheckedPreferences x self = msg_send ~self ~cmd:(selector "setHasCheckedPreferences:") ~typ:(bool @-> returning (void)) x -let setInputAssistantButtonItemsForResponder x self = msg_send ~self ~cmd:(selector "setInputAssistantButtonItemsForResponder:") ~typ:(id @-> returning (void)) x -let setNeedsValidation self = msg_send ~self ~cmd:(selector "setNeedsValidation") ~typ:(returning (void)) -let setObservedInputAssistantItem x self = msg_send ~self ~cmd:(selector "setObservedInputAssistantItem:") ~typ:(id @-> returning (void)) x -let setPopoverSourceView x self = msg_send ~self ~cmd:(selector "setPopoverSourceView:") ~typ:(id @-> returning (void)) x -let setPredictiveViewController x self = msg_send ~self ~cmd:(selector "setPredictiveViewController:") ~typ:(id @-> returning (void)) x -let setSplitAssistantViewLayout x self = msg_send ~self ~cmd:(selector "setSplitAssistantViewLayout:") ~typ:(id @-> returning (void)) x -let setStandardAssistantViewLayout x self = msg_send ~self ~cmd:(selector "setStandardAssistantViewLayout:") ~typ:(id @-> returning (void)) x -let setStandardStyle x self = msg_send ~self ~cmd:(selector "setStandardStyle:") ~typ:(id @-> returning (void)) x -let shouldBeShownForInputDelegate x ~inputViews self = msg_send ~self ~cmd:(selector "shouldBeShownForInputDelegate:inputViews:") ~typ:(id @-> id @-> returning (bool)) x inputViews -let shouldUseCustomBackground x self = msg_send ~self ~cmd:(selector "shouldUseCustomBackground:") ~typ:(id @-> returning (bool)) x -let showEmojiSearch x self = msg_send ~self ~cmd:(selector "showEmojiSearch:") ~typ:(bool @-> returning (void)) x -let splitAssistantViewLayout self = msg_send ~self ~cmd:(selector "splitAssistantViewLayout") ~typ:(returning (id)) -let standardAssistantViewLayout self = msg_send ~self ~cmd:(selector "standardAssistantViewLayout") ~typ:(returning (id)) -let standardStyle self = msg_send ~self ~cmd:(selector "standardStyle") ~typ:(returning (id)) -let styleFromAssistantBarStyle x self = msg_send ~self ~cmd:(selector "styleFromAssistantBarStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let systemInputAssistantView self = msg_send ~self ~cmd:(selector "systemInputAssistantView") ~typ:(returning (id)) -let systemInputAssistantView' x ~wantsToShowCollapsedItemGroup ~fromView self = msg_send ~self ~cmd:(selector "systemInputAssistantView:wantsToShowCollapsedItemGroup:fromView:") ~typ:(id @-> id @-> id @-> returning (void)) x wantsToShowCollapsedItemGroup fromView -let updateAssistantBarStyle x self = msg_send ~self ~cmd:(selector "updateAssistantBarStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let updateAssistantPreferences self = msg_send ~self ~cmd:(selector "updateAssistantPreferences") ~typ:(returning (void)) -let updateCenterViewVisibilityStateForInputDelegate x self = msg_send ~self ~cmd:(selector "updateCenterViewVisibilityStateForInputDelegate:") ~typ:(id @-> returning (void)) x -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UISystemInputAssistantViewController" + +let adaptivePresentationStyleForPresentationController x self = msg_send ~self ~cmd:(selector "adaptivePresentationStyleForPresentationController:") ~typ:(id @-> returning llong) x +let assistantBarStyle self = msg_send ~self ~cmd:(selector "assistantBarStyle") ~typ:(returning llong) +let assistantEnabledPreference self = msg_send ~self ~cmd:(selector "assistantEnabledPreference") ~typ:(returning bool) +let assistantOniPhonePreference self = msg_send ~self ~cmd:(selector "assistantOniPhonePreference") ~typ:(returning bool) +let autocorrectionController x ~didUpdateAutocorrectionList self = msg_send ~self ~cmd:(selector "autocorrectionController:didUpdateAutocorrectionList:") ~typ:(id @-> id @-> returning void) x didUpdateAutocorrectionList +let autocorrectionControllerDidClearAutocorrections x self = msg_send ~self ~cmd:(selector "autocorrectionControllerDidClearAutocorrections:") ~typ:(id @-> returning void) x +let automaticallySetCenterViewControllerBasedOnInputDelegate x self = msg_send ~self ~cmd:(selector "automaticallySetCenterViewControllerBasedOnInputDelegate:") ~typ:(id @-> returning void) x +let barFrame self = msg_send ~self ~cmd:(selector "barFrame") ~typ:(returning CGRect.t) +let cachedPredictiveViewControllers self = msg_send ~self ~cmd:(selector "cachedPredictiveViewControllers") ~typ:(returning id) +let candidateViewController self = msg_send ~self ~cmd:(selector "candidateViewController") ~typ:(returning id) +let centerViewController self = msg_send ~self ~cmd:(selector "centerViewController") ~typ:(returning id) +let compactAssistantViewLayout self = msg_send ~self ~cmd:(selector "compactAssistantViewLayout") ~typ:(returning id) +let compactStyle self = msg_send ~self ~cmd:(selector "compactStyle") ~typ:(returning id) +let compatibilityViewController self = msg_send ~self ~cmd:(selector "compatibilityViewController") ~typ:(returning id) +let currentInputDelegatePointerValue self = msg_send ~self ~cmd:(selector "currentInputDelegatePointerValue") ~typ:(returning id) +let currentlyCheckingPreferences self = msg_send ~self ~cmd:(selector "currentlyCheckingPreferences") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let dismissDictationMenuIfNeeded self = msg_send ~self ~cmd:(selector "dismissDictationMenuIfNeeded") ~typ:(returning void) +let dismissEmojiSearch self = msg_send ~self ~cmd:(selector "dismissEmojiSearch") ~typ:(returning void) +let dismissKeyboardItemIfNeeded self = msg_send ~self ~cmd:(selector "dismissKeyboardItemIfNeeded") ~typ:(returning void) +let dismissLanguageIndicatorMenuIfNeeded self = msg_send ~self ~cmd:(selector "dismissLanguageIndicatorMenuIfNeeded") ~typ:(returning void) +let emojiSearchTextFieldDidBecomeActive x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldDidBecomeActive:") ~typ:(id @-> returning void) x +let emojiSearchTextFieldDidBecomeInactive x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldDidBecomeInactive:") ~typ:(id @-> returning void) x +let emojiSearchTextFieldWillBecomeActive x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldWillBecomeActive:") ~typ:(id @-> returning void) x +let emojiSearchTextFieldWillBecomeInactive x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldWillBecomeInactive:") ~typ:(id @-> returning void) x +let emojiSearchViewController self = msg_send ~self ~cmd:(selector "emojiSearchViewController") ~typ:(returning id) +let emojiSearchWillInsertEmoji x ~forSearchQuery self = msg_send ~self ~cmd:(selector "emojiSearchWillInsertEmoji:forSearchQuery:") ~typ:(id @-> id @-> returning void) x forSearchQuery +let expandedItemsController self = msg_send ~self ~cmd:(selector "expandedItemsController") ~typ:(returning id) +let floatAssistantViewLayout self = msg_send ~self ~cmd:(selector "floatAssistantViewLayout") ~typ:(returning id) +let floatStyle self = msg_send ~self ~cmd:(selector "floatStyle") ~typ:(returning id) +let hasCheckedPreferences self = msg_send ~self ~cmd:(selector "hasCheckedPreferences") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let inputWindowController self = msg_send ~self ~cmd:(selector "inputWindowController") ~typ:(returning id) +let isEmojiSearchResultsVisible self = msg_send ~self ~cmd:(selector "isEmojiSearchResultsVisible") ~typ:(returning bool) +let isInputAssistantItemEmpty self = msg_send ~self ~cmd:(selector "isInputAssistantItemEmpty") ~typ:(returning bool) +let layoutFromAssistantBarStyle x self = msg_send ~self ~cmd:(selector "layoutFromAssistantBarStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let layoutHasBuiltinAssistantView self = msg_send ~self ~cmd:(selector "layoutHasBuiltinAssistantView") ~typ:(returning bool) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x ofObject change context +let observedInputAssistantItem self = msg_send ~self ~cmd:(selector "observedInputAssistantItem") ~typ:(returning id) +let popoverPresentationControllerDidDismissPopover x self = msg_send ~self ~cmd:(selector "popoverPresentationControllerDidDismissPopover:") ~typ:(id @-> returning void) x +let popoverSourceView self = msg_send ~self ~cmd:(selector "popoverSourceView") ~typ:(returning id) +let predictionViewController self = msg_send ~self ~cmd:(selector "predictionViewController") ~typ:(returning id) +let predictiveViewController self = msg_send ~self ~cmd:(selector "predictiveViewController") ~typ:(returning id) +let preferencesControllerChanged x self = msg_send ~self ~cmd:(selector "preferencesControllerChanged:") ~typ:(id @-> returning void) x +let preferredHeightForTraitCollection x self = msg_send ~self ~cmd:(selector "preferredHeightForTraitCollection:") ~typ:(id @-> returning double) x +let prepareForFloating x self = msg_send ~self ~cmd:(selector "prepareForFloating:") ~typ:(bool @-> returning void) x +let prepareForPopoverPresentation x self = msg_send ~self ~cmd:(selector "prepareForPopoverPresentation:") ~typ:(id @-> returning void) x +let prepareTransition x ~animated self = msg_send ~self ~cmd:(selector "prepareTransition:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setAssistantBarStyle x self = msg_send ~self ~cmd:(selector "setAssistantBarStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setAssistantEnabledPreference x self = msg_send ~self ~cmd:(selector "setAssistantEnabledPreference:") ~typ:(bool @-> returning void) x +let setAssistantOniPhonePreference x self = msg_send ~self ~cmd:(selector "setAssistantOniPhonePreference:") ~typ:(bool @-> returning void) x +let setCachedPredictiveViewControllers x self = msg_send ~self ~cmd:(selector "setCachedPredictiveViewControllers:") ~typ:(id @-> returning void) x +let setCenterViewController x self = msg_send ~self ~cmd:(selector "setCenterViewController:") ~typ:(id @-> returning void) x +let setCompactAssistantViewLayout x self = msg_send ~self ~cmd:(selector "setCompactAssistantViewLayout:") ~typ:(id @-> returning void) x +let setCompactStyle x self = msg_send ~self ~cmd:(selector "setCompactStyle:") ~typ:(id @-> returning void) x +let setCurrentInputDelegatePointerValue x self = msg_send ~self ~cmd:(selector "setCurrentInputDelegatePointerValue:") ~typ:(id @-> returning void) x +let setCurrentlyCheckingPreferences x self = msg_send ~self ~cmd:(selector "setCurrentlyCheckingPreferences:") ~typ:(bool @-> returning void) x +let setEmojiSearchViewController x self = msg_send ~self ~cmd:(selector "setEmojiSearchViewController:") ~typ:(id @-> returning void) x +let setExpandedItemsController x self = msg_send ~self ~cmd:(selector "setExpandedItemsController:") ~typ:(id @-> returning void) x +let setFloatAssistantViewLayout x self = msg_send ~self ~cmd:(selector "setFloatAssistantViewLayout:") ~typ:(id @-> returning void) x +let setFloatStyle x self = msg_send ~self ~cmd:(selector "setFloatStyle:") ~typ:(id @-> returning void) x +let setHasCheckedPreferences x self = msg_send ~self ~cmd:(selector "setHasCheckedPreferences:") ~typ:(bool @-> returning void) x +let setInputAssistantButtonItemsForResponder x self = msg_send ~self ~cmd:(selector "setInputAssistantButtonItemsForResponder:") ~typ:(id @-> returning void) x +let setNeedsValidation self = msg_send ~self ~cmd:(selector "setNeedsValidation") ~typ:(returning void) +let setObservedInputAssistantItem x self = msg_send ~self ~cmd:(selector "setObservedInputAssistantItem:") ~typ:(id @-> returning void) x +let setPopoverSourceView x self = msg_send ~self ~cmd:(selector "setPopoverSourceView:") ~typ:(id @-> returning void) x +let setPredictiveViewController x self = msg_send ~self ~cmd:(selector "setPredictiveViewController:") ~typ:(id @-> returning void) x +let setSplitAssistantViewLayout x self = msg_send ~self ~cmd:(selector "setSplitAssistantViewLayout:") ~typ:(id @-> returning void) x +let setStandardAssistantViewLayout x self = msg_send ~self ~cmd:(selector "setStandardAssistantViewLayout:") ~typ:(id @-> returning void) x +let setStandardStyle x self = msg_send ~self ~cmd:(selector "setStandardStyle:") ~typ:(id @-> returning void) x +let shouldBeShownForInputDelegate x ~inputViews self = msg_send ~self ~cmd:(selector "shouldBeShownForInputDelegate:inputViews:") ~typ:(id @-> id @-> returning bool) x inputViews +let shouldUseCustomBackground x self = msg_send ~self ~cmd:(selector "shouldUseCustomBackground:") ~typ:(id @-> returning bool) x +let showEmojiSearch x self = msg_send ~self ~cmd:(selector "showEmojiSearch:") ~typ:(bool @-> returning void) x +let splitAssistantViewLayout self = msg_send ~self ~cmd:(selector "splitAssistantViewLayout") ~typ:(returning id) +let standardAssistantViewLayout self = msg_send ~self ~cmd:(selector "standardAssistantViewLayout") ~typ:(returning id) +let standardStyle self = msg_send ~self ~cmd:(selector "standardStyle") ~typ:(returning id) +let styleFromAssistantBarStyle x self = msg_send ~self ~cmd:(selector "styleFromAssistantBarStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let systemInputAssistantView self = msg_send ~self ~cmd:(selector "systemInputAssistantView") ~typ:(returning id) +let systemInputAssistantView' x ~wantsToShowCollapsedItemGroup ~fromView self = msg_send ~self ~cmd:(selector "systemInputAssistantView:wantsToShowCollapsedItemGroup:fromView:") ~typ:(id @-> id @-> id @-> returning void) x wantsToShowCollapsedItemGroup fromView +let updateAssistantBarStyle x self = msg_send ~self ~cmd:(selector "updateAssistantBarStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let updateAssistantPreferences self = msg_send ~self ~cmd:(selector "updateAssistantPreferences") ~typ:(returning void) +let updateCenterViewVisibilityStateForInputDelegate x self = msg_send ~self ~cmd:(selector "updateCenterViewVisibilityStateForInputDelegate:") ~typ:(id @-> returning void) x +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UISystemInputViewController.ml b/uikit/UISystemInputViewController.ml index 1a42ef2f..65c62ba1 100644 --- a/uikit/UISystemInputViewController.ml +++ b/uikit/UISystemInputViewController.ml @@ -5,106 +5,104 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISystemInputViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisysteminputviewcontroller?language=objc}UISystemInputViewController} *) -module C = struct - let canUseSystemInputViewControllerForResponder x self = msg_send ~self ~cmd:(selector "canUseSystemInputViewControllerForResponder:") ~typ:(id @-> returning (bool)) x - let setKeyboardInteractionModel x self = msg_send ~self ~cmd:(selector "setKeyboardInteractionModel:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) - let systemInputViewControllerForResponder x ~editorView self = msg_send ~self ~cmd:(selector "systemInputViewControllerForResponder:editorView:") ~typ:(id @-> id @-> returning (id)) x editorView - let systemInputViewControllerForResponder' x ~editorView ~containingResponder self = msg_send ~self ~cmd:(selector "systemInputViewControllerForResponder:editorView:containingResponder:") ~typ:(id @-> id @-> id @-> returning (id)) x editorView containingResponder -end +let self = get_class "UISystemInputViewController" -let accessoryViewControllerForEdge x self = msg_send ~self ~cmd:(selector "accessoryViewControllerForEdge:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let alignmentConstraintArrayForAxis x self = msg_send ~self ~cmd:(selector "alignmentConstraintArrayForAxis:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let alignmentConstraintForAxis x self = msg_send ~self ~cmd:(selector "alignmentConstraintForAxis:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let blurEffectStyle self = msg_send ~self ~cmd:(selector "blurEffectStyle") ~typ:(returning (llong)) -let cachedRecents self = msg_send ~self ~cmd:(selector "cachedRecents") ~typ:(returning (id)) -let configureRecentsVCIfNecessary self = msg_send ~self ~cmd:(selector "configureRecentsVCIfNecessary") ~typ:(returning (void)) -let constraintFromView x ~attribute ~toView ~attribute_ self = msg_send ~self ~cmd:(selector "constraintFromView:attribute:toView:attribute:") ~typ:(id @-> llong @-> id @-> llong @-> returning (id)) x (LLong.of_int attribute) toView (LLong.of_int attribute_) -let constraintsForEdge x self = msg_send ~self ~cmd:(selector "constraintsForEdge:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let containingView self = msg_send ~self ~cmd:(selector "containingView") ~typ:(returning (id)) -let contentLayoutView self = msg_send ~self ~cmd:(selector "contentLayoutView") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didDisplayRecents self = msg_send ~self ~cmd:(selector "didDisplayRecents") ~typ:(returning (bool)) -let didSelectRecentInput self = msg_send ~self ~cmd:(selector "didSelectRecentInput") ~typ:(returning (void)) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let doneButton self = msg_send ~self ~cmd:(selector "doneButton") ~typ:(returning (id)) -let doneButtonStringForCurrentInputDelegate self = msg_send ~self ~cmd:(selector "doneButtonStringForCurrentInputDelegate") ~typ:(returning (id)) -let editorConstraints self = msg_send ~self ~cmd:(selector "editorConstraints") ~typ:(returning (id)) -let editorVC self = msg_send ~self ~cmd:(selector "editorVC") ~typ:(returning (id)) -let findNextInputDelegate self = msg_send ~self ~cmd:(selector "findNextInputDelegate") ~typ:(returning (void)) -let horizontalAlignments self = msg_send ~self ~cmd:(selector "horizontalAlignments") ~typ:(returning (id)) -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let inputModeDidChange x self = msg_send ~self ~cmd:(selector "inputModeDidChange:") ~typ:(id @-> returning (void)) x -let inputVC self = msg_send ~self ~cmd:(selector "inputVC") ~typ:(returning (id)) -let isAutomaticResponderTransition self = msg_send ~self ~cmd:(selector "isAutomaticResponderTransition") ~typ:(returning (bool)) -let keyboard self = msg_send ~self ~cmd:(selector "keyboard") ~typ:(returning (id)) -let keyboardConstraints self = msg_send ~self ~cmd:(selector "keyboardConstraints") ~typ:(returning (id)) -let keyboardVC self = msg_send ~self ~cmd:(selector "keyboardVC") ~typ:(returning (id)) -let nextInputDelegate self = msg_send ~self ~cmd:(selector "nextInputDelegate") ~typ:(returning (id)) -let notifyDelegateWithAccessoryVisibility x self = msg_send ~self ~cmd:(selector "notifyDelegateWithAccessoryVisibility:") ~typ:(bool @-> returning (void)) x -let notifyKeyboardOnScreenOnFocusOnly self = msg_send ~self ~cmd:(selector "notifyKeyboardOnScreenOnFocusOnly") ~typ:(returning (bool)) -let persistentDelegate self = msg_send ~self ~cmd:(selector "persistentDelegate") ~typ:(returning (id)) -let populateCoreHierarchy self = msg_send ~self ~cmd:(selector "populateCoreHierarchy") ~typ:(returning (void)) -let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning (id)) -let prepareForRelease self = msg_send ~self ~cmd:(selector "prepareForRelease") ~typ:(returning (void)) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let recentsVC self = msg_send ~self ~cmd:(selector "recentsVC") ~typ:(returning (id)) -let reloadInputViewsForPersistentDelegate self = msg_send ~self ~cmd:(selector "reloadInputViewsForPersistentDelegate") ~typ:(returning (void)) -let requestedInteractionModel self = msg_send ~self ~cmd:(selector "requestedInteractionModel") ~typ:(returning (ullong)) -let resetContainingResponder self = msg_send ~self ~cmd:(selector "resetContainingResponder") ~typ:(returning (void)) -let resolvedKeyboardStyle self = msg_send ~self ~cmd:(selector "resolvedKeyboardStyle") ~typ:(returning (llong)) -let setAccessoryViewController x ~forEdge self = msg_send ~self ~cmd:(selector "setAccessoryViewController:forEdge:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forEdge) -let setAlignmentConstraint x ~forAxis self = msg_send ~self ~cmd:(selector "setAlignmentConstraint:forAxis:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forAxis) -let setAlignmentConstraintArray x ~forAxis self = msg_send ~self ~cmd:(selector "setAlignmentConstraintArray:forAxis:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forAxis) -let setBlurEffectStyle x self = msg_send ~self ~cmd:(selector "setBlurEffectStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCachedRecents x self = msg_send ~self ~cmd:(selector "setCachedRecents:") ~typ:(id @-> returning (void)) x -let setConstraints x ~forEdge self = msg_send ~self ~cmd:(selector "setConstraints:forEdge:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forEdge) -let setContainingView x self = msg_send ~self ~cmd:(selector "setContainingView:") ~typ:(id @-> returning (void)) x -let setContentLayoutView x self = msg_send ~self ~cmd:(selector "setContentLayoutView:") ~typ:(id @-> returning (void)) x -let setDidDisplayRecents x self = msg_send ~self ~cmd:(selector "setDidDisplayRecents:") ~typ:(bool @-> returning (void)) x -let setDoneButton x self = msg_send ~self ~cmd:(selector "setDoneButton:") ~typ:(id @-> returning (void)) x -let setEditorConstraints x self = msg_send ~self ~cmd:(selector "setEditorConstraints:") ~typ:(id @-> returning (void)) x -let setEditorVC x self = msg_send ~self ~cmd:(selector "setEditorVC:") ~typ:(id @-> returning (void)) x -let setHorizontalAlignments x self = msg_send ~self ~cmd:(selector "setHorizontalAlignments:") ~typ:(id @-> returning (void)) x -let setInputVC x self = msg_send ~self ~cmd:(selector "setInputVC:") ~typ:(id @-> returning (void)) x -let setIsAutomaticResponderTransition x self = msg_send ~self ~cmd:(selector "setIsAutomaticResponderTransition:") ~typ:(bool @-> returning (void)) x -let setKeyboard x self = msg_send ~self ~cmd:(selector "setKeyboard:") ~typ:(id @-> returning (void)) x -let setKeyboardConstraints x self = msg_send ~self ~cmd:(selector "setKeyboardConstraints:") ~typ:(id @-> returning (void)) x -let setKeyboardVC x self = msg_send ~self ~cmd:(selector "setKeyboardVC:") ~typ:(id @-> returning (void)) x -let setNextInputDelegate x self = msg_send ~self ~cmd:(selector "setNextInputDelegate:") ~typ:(id @-> returning (void)) x -let setNotifyKeyboardOnScreenOnFocusOnly x self = msg_send ~self ~cmd:(selector "setNotifyKeyboardOnScreenOnFocusOnly:") ~typ:(bool @-> returning (void)) x -let setPersistentDelegate x self = msg_send ~self ~cmd:(selector "setPersistentDelegate:") ~typ:(id @-> returning (void)) x -let setRecentsVC x self = msg_send ~self ~cmd:(selector "setRecentsVC:") ~typ:(id @-> returning (void)) x -let setRequestedInteractionModel x self = msg_send ~self ~cmd:(selector "setRequestedInteractionModel:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setResolvedKeyboardStyle x self = msg_send ~self ~cmd:(selector "setResolvedKeyboardStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSupportsRecentInputsIntegration x self = msg_send ~self ~cmd:(selector "setSupportsRecentInputsIntegration:") ~typ:(bool @-> returning (void)) x -let setSupportsTouchInput x self = msg_send ~self ~cmd:(selector "setSupportsTouchInput:") ~typ:(bool @-> returning (void)) x -let setSystemInputViewControllerDelegate x self = msg_send ~self ~cmd:(selector "setSystemInputViewControllerDelegate:") ~typ:(id @-> returning (void)) x -let setTextInputTraits x self = msg_send ~self ~cmd:(selector "setTextInputTraits:") ~typ:(id @-> returning (void)) x -let setUnfocusedFocusGuideOutsets x self = msg_send ~self ~cmd:(selector "setUnfocusedFocusGuideOutsets:") ~typ:(ptr void @-> returning (void)) x -let setVerticalAlignments x self = msg_send ~self ~cmd:(selector "setVerticalAlignments:") ~typ:(id @-> returning (void)) x -let setWillPresentFullscreen x self = msg_send ~self ~cmd:(selector "setWillPresentFullscreen:") ~typ:(bool @-> returning (void)) x -let setWillUpdateBackgroundEffectOnInputModeChange x self = msg_send ~self ~cmd:(selector "setWillUpdateBackgroundEffectOnInputModeChange:") ~typ:(bool @-> returning (void)) x -let setupKeyboard self = msg_send ~self ~cmd:(selector "setupKeyboard") ~typ:(returning (void)) -let supportsRecentInputsIntegration self = msg_send ~self ~cmd:(selector "supportsRecentInputsIntegration") ~typ:(returning (bool)) -let supportsTouchInput self = msg_send ~self ~cmd:(selector "supportsTouchInput") ~typ:(returning (bool)) -let switchToKeyboard self = msg_send ~self ~cmd:(selector "switchToKeyboard") ~typ:(returning (void)) -let systemInputViewControllerDelegate self = msg_send ~self ~cmd:(selector "systemInputViewControllerDelegate") ~typ:(returning (id)) -let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning (id)) -let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateAlignmentConstraints self = msg_send ~self ~cmd:(selector "updateAlignmentConstraints") ~typ:(returning (void)) -let updateViewConstraints self = msg_send ~self ~cmd:(selector "updateViewConstraints") ~typ:(returning (void)) -let verticalAlignments self = msg_send ~self ~cmd:(selector "verticalAlignments") ~typ:(returning (id)) -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidMoveToWindow x ~shouldAppearOrDisappear self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow:shouldAppearOrDisappear:") ~typ:(id @-> bool @-> returning (void)) x shouldAppearOrDisappear -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "viewWillLayoutSubviews") ~typ:(returning (void)) -let willPresentFullscreen self = msg_send ~self ~cmd:(selector "willPresentFullscreen") ~typ:(returning (bool)) -let willShowRecentsList self = msg_send ~self ~cmd:(selector "willShowRecentsList") ~typ:(returning (bool)) -let willUpdateBackgroundEffectOnInputModeChange self = msg_send ~self ~cmd:(selector "willUpdateBackgroundEffectOnInputModeChange") ~typ:(returning (bool)) \ No newline at end of file +let accessoryViewControllerForEdge x self = msg_send ~self ~cmd:(selector "accessoryViewControllerForEdge:") ~typ:(llong @-> returning id) (LLong.of_int x) +let alignmentConstraintArrayForAxis x self = msg_send ~self ~cmd:(selector "alignmentConstraintArrayForAxis:") ~typ:(llong @-> returning id) (LLong.of_int x) +let alignmentConstraintForAxis x self = msg_send ~self ~cmd:(selector "alignmentConstraintForAxis:") ~typ:(llong @-> returning id) (LLong.of_int x) +let blurEffectStyle self = msg_send ~self ~cmd:(selector "blurEffectStyle") ~typ:(returning llong) +let cachedRecents self = msg_send ~self ~cmd:(selector "cachedRecents") ~typ:(returning id) +let configureRecentsVCIfNecessary self = msg_send ~self ~cmd:(selector "configureRecentsVCIfNecessary") ~typ:(returning void) +let constraintFromView x ~attribute ~toView ~attribute_ self = msg_send ~self ~cmd:(selector "constraintFromView:attribute:toView:attribute:") ~typ:(id @-> llong @-> id @-> llong @-> returning id) x (LLong.of_int attribute) toView (LLong.of_int attribute_) +let constraintsForEdge x self = msg_send ~self ~cmd:(selector "constraintsForEdge:") ~typ:(llong @-> returning id) (LLong.of_int x) +let containingView self = msg_send ~self ~cmd:(selector "containingView") ~typ:(returning id) +let contentLayoutView self = msg_send ~self ~cmd:(selector "contentLayoutView") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didDisplayRecents self = msg_send ~self ~cmd:(selector "didDisplayRecents") ~typ:(returning bool) +let didSelectRecentInput self = msg_send ~self ~cmd:(selector "didSelectRecentInput") ~typ:(returning void) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let doneButton self = msg_send ~self ~cmd:(selector "doneButton") ~typ:(returning id) +let doneButtonStringForCurrentInputDelegate self = msg_send ~self ~cmd:(selector "doneButtonStringForCurrentInputDelegate") ~typ:(returning id) +let editorConstraints self = msg_send ~self ~cmd:(selector "editorConstraints") ~typ:(returning id) +let editorVC self = msg_send ~self ~cmd:(selector "editorVC") ~typ:(returning id) +let findNextInputDelegate self = msg_send ~self ~cmd:(selector "findNextInputDelegate") ~typ:(returning void) +let horizontalAlignments self = msg_send ~self ~cmd:(selector "horizontalAlignments") ~typ:(returning id) +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let inputModeDidChange x self = msg_send ~self ~cmd:(selector "inputModeDidChange:") ~typ:(id @-> returning void) x +let inputVC self = msg_send ~self ~cmd:(selector "inputVC") ~typ:(returning id) +let isAutomaticResponderTransition self = msg_send ~self ~cmd:(selector "isAutomaticResponderTransition") ~typ:(returning bool) +let keyboard self = msg_send ~self ~cmd:(selector "keyboard") ~typ:(returning id) +let keyboardConstraints self = msg_send ~self ~cmd:(selector "keyboardConstraints") ~typ:(returning id) +let keyboardVC self = msg_send ~self ~cmd:(selector "keyboardVC") ~typ:(returning id) +let nextInputDelegate self = msg_send ~self ~cmd:(selector "nextInputDelegate") ~typ:(returning id) +let notifyDelegateWithAccessoryVisibility x self = msg_send ~self ~cmd:(selector "notifyDelegateWithAccessoryVisibility:") ~typ:(bool @-> returning void) x +let notifyKeyboardOnScreenOnFocusOnly self = msg_send ~self ~cmd:(selector "notifyKeyboardOnScreenOnFocusOnly") ~typ:(returning bool) +let persistentDelegate self = msg_send ~self ~cmd:(selector "persistentDelegate") ~typ:(returning id) +let populateCoreHierarchy self = msg_send ~self ~cmd:(selector "populateCoreHierarchy") ~typ:(returning void) +let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning id) +let prepareForRelease self = msg_send ~self ~cmd:(selector "prepareForRelease") ~typ:(returning void) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let recentsVC self = msg_send ~self ~cmd:(selector "recentsVC") ~typ:(returning id) +let reloadInputViewsForPersistentDelegate self = msg_send ~self ~cmd:(selector "reloadInputViewsForPersistentDelegate") ~typ:(returning void) +let requestedInteractionModel self = msg_send ~self ~cmd:(selector "requestedInteractionModel") ~typ:(returning ullong) +let resetContainingResponder self = msg_send ~self ~cmd:(selector "resetContainingResponder") ~typ:(returning void) +let resolvedKeyboardStyle self = msg_send ~self ~cmd:(selector "resolvedKeyboardStyle") ~typ:(returning llong) +let setAccessoryViewController x ~forEdge self = msg_send ~self ~cmd:(selector "setAccessoryViewController:forEdge:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forEdge) +let setAlignmentConstraint x ~forAxis self = msg_send ~self ~cmd:(selector "setAlignmentConstraint:forAxis:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forAxis) +let setAlignmentConstraintArray x ~forAxis self = msg_send ~self ~cmd:(selector "setAlignmentConstraintArray:forAxis:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forAxis) +let setBlurEffectStyle x self = msg_send ~self ~cmd:(selector "setBlurEffectStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCachedRecents x self = msg_send ~self ~cmd:(selector "setCachedRecents:") ~typ:(id @-> returning void) x +let setConstraints x ~forEdge self = msg_send ~self ~cmd:(selector "setConstraints:forEdge:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forEdge) +let setContainingView x self = msg_send ~self ~cmd:(selector "setContainingView:") ~typ:(id @-> returning void) x +let setContentLayoutView x self = msg_send ~self ~cmd:(selector "setContentLayoutView:") ~typ:(id @-> returning void) x +let setDidDisplayRecents x self = msg_send ~self ~cmd:(selector "setDidDisplayRecents:") ~typ:(bool @-> returning void) x +let setDoneButton x self = msg_send ~self ~cmd:(selector "setDoneButton:") ~typ:(id @-> returning void) x +let setEditorConstraints x self = msg_send ~self ~cmd:(selector "setEditorConstraints:") ~typ:(id @-> returning void) x +let setEditorVC x self = msg_send ~self ~cmd:(selector "setEditorVC:") ~typ:(id @-> returning void) x +let setHorizontalAlignments x self = msg_send ~self ~cmd:(selector "setHorizontalAlignments:") ~typ:(id @-> returning void) x +let setInputVC x self = msg_send ~self ~cmd:(selector "setInputVC:") ~typ:(id @-> returning void) x +let setIsAutomaticResponderTransition x self = msg_send ~self ~cmd:(selector "setIsAutomaticResponderTransition:") ~typ:(bool @-> returning void) x +let setKeyboard x self = msg_send ~self ~cmd:(selector "setKeyboard:") ~typ:(id @-> returning void) x +let setKeyboardConstraints x self = msg_send ~self ~cmd:(selector "setKeyboardConstraints:") ~typ:(id @-> returning void) x +let setKeyboardVC x self = msg_send ~self ~cmd:(selector "setKeyboardVC:") ~typ:(id @-> returning void) x +let setNextInputDelegate x self = msg_send ~self ~cmd:(selector "setNextInputDelegate:") ~typ:(id @-> returning void) x +let setNotifyKeyboardOnScreenOnFocusOnly x self = msg_send ~self ~cmd:(selector "setNotifyKeyboardOnScreenOnFocusOnly:") ~typ:(bool @-> returning void) x +let setPersistentDelegate x self = msg_send ~self ~cmd:(selector "setPersistentDelegate:") ~typ:(id @-> returning void) x +let setRecentsVC x self = msg_send ~self ~cmd:(selector "setRecentsVC:") ~typ:(id @-> returning void) x +let setRequestedInteractionModel x self = msg_send ~self ~cmd:(selector "setRequestedInteractionModel:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setResolvedKeyboardStyle x self = msg_send ~self ~cmd:(selector "setResolvedKeyboardStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSupportsRecentInputsIntegration x self = msg_send ~self ~cmd:(selector "setSupportsRecentInputsIntegration:") ~typ:(bool @-> returning void) x +let setSupportsTouchInput x self = msg_send ~self ~cmd:(selector "setSupportsTouchInput:") ~typ:(bool @-> returning void) x +let setSystemInputViewControllerDelegate x self = msg_send ~self ~cmd:(selector "setSystemInputViewControllerDelegate:") ~typ:(id @-> returning void) x +let setTextInputTraits x self = msg_send ~self ~cmd:(selector "setTextInputTraits:") ~typ:(id @-> returning void) x +let setUnfocusedFocusGuideOutsets x self = msg_send ~self ~cmd:(selector "setUnfocusedFocusGuideOutsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setVerticalAlignments x self = msg_send ~self ~cmd:(selector "setVerticalAlignments:") ~typ:(id @-> returning void) x +let setWillPresentFullscreen x self = msg_send ~self ~cmd:(selector "setWillPresentFullscreen:") ~typ:(bool @-> returning void) x +let setWillUpdateBackgroundEffectOnInputModeChange x self = msg_send ~self ~cmd:(selector "setWillUpdateBackgroundEffectOnInputModeChange:") ~typ:(bool @-> returning void) x +let setupKeyboard self = msg_send ~self ~cmd:(selector "setupKeyboard") ~typ:(returning void) +let supportsRecentInputsIntegration self = msg_send ~self ~cmd:(selector "supportsRecentInputsIntegration") ~typ:(returning bool) +let supportsTouchInput self = msg_send ~self ~cmd:(selector "supportsTouchInput") ~typ:(returning bool) +let switchToKeyboard self = msg_send ~self ~cmd:(selector "switchToKeyboard") ~typ:(returning void) +let systemInputViewControllerDelegate self = msg_send ~self ~cmd:(selector "systemInputViewControllerDelegate") ~typ:(returning id) +let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning id) +let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let unfocusedFocusGuideOutsets self = msg_send ~self ~cmd:(selector "unfocusedFocusGuideOutsets") ~typ:(returning UIEdgeInsets.t) +let updateAlignmentConstraints self = msg_send ~self ~cmd:(selector "updateAlignmentConstraints") ~typ:(returning void) +let updateViewConstraints self = msg_send ~self ~cmd:(selector "updateViewConstraints") ~typ:(returning void) +let verticalAlignments self = msg_send ~self ~cmd:(selector "verticalAlignments") ~typ:(returning id) +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidMoveToWindow x ~shouldAppearOrDisappear self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow:shouldAppearOrDisappear:") ~typ:(id @-> bool @-> returning void) x shouldAppearOrDisappear +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let viewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "viewWillLayoutSubviews") ~typ:(returning void) +let willPresentFullscreen self = msg_send ~self ~cmd:(selector "willPresentFullscreen") ~typ:(returning bool) +let willShowRecentsList self = msg_send ~self ~cmd:(selector "willShowRecentsList") ~typ:(returning bool) +let willUpdateBackgroundEffectOnInputModeChange self = msg_send ~self ~cmd:(selector "willUpdateBackgroundEffectOnInputModeChange") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UISystemInputViewControllerClass.ml b/uikit/UISystemInputViewControllerClass.ml new file mode 100644 index 00000000..5867051f --- /dev/null +++ b/uikit/UISystemInputViewControllerClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisysteminputviewcontroller?language=objc}UISystemInputViewController} *) + +let canUseSystemInputViewControllerForResponder x self = msg_send ~self ~cmd:(selector "canUseSystemInputViewControllerForResponder:") ~typ:(id @-> returning bool) x +let setKeyboardInteractionModel x self = msg_send ~self ~cmd:(selector "setKeyboardInteractionModel:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let systemInputViewControllerForResponder x ~editorView self = msg_send ~self ~cmd:(selector "systemInputViewControllerForResponder:editorView:") ~typ:(id @-> id @-> returning id) x editorView +let systemInputViewControllerForResponder' x ~editorView ~containingResponder self = msg_send ~self ~cmd:(selector "systemInputViewControllerForResponder:editorView:containingResponder:") ~typ:(id @-> id @-> id @-> returning id) x editorView containingResponder \ No newline at end of file diff --git a/uikit/UISystemKeyboardDockController.ml b/uikit/UISystemKeyboardDockController.ml index bbfa165d..d516707d 100644 --- a/uikit/UISystemKeyboardDockController.ml +++ b/uikit/UISystemKeyboardDockController.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISystemKeyboardDockController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisystemkeyboarddockcontroller?language=objc}UISystemKeyboardDockController} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let dictationItemButtonWasPressed x ~withEvent self = msg_send ~self ~cmd:(selector "dictationItemButtonWasPressed:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let dockView self = msg_send ~self ~cmd:(selector "dockView") ~typ:(returning (id)) -let globeItemButtonWasPressed x ~withEvent self = msg_send ~self ~cmd:(selector "globeItemButtonWasPressed:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let keyboardDockView x ~didPressDockItem ~withEvent self = msg_send ~self ~cmd:(selector "keyboardDockView:didPressDockItem:withEvent:") ~typ:(id @-> id @-> id @-> returning (void)) x didPressDockItem withEvent -let keyboardItemButtonWasTapped x ~withEvent self = msg_send ~self ~cmd:(selector "keyboardItemButtonWasTapped:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let setDockView x self = msg_send ~self ~cmd:(selector "setDockView:") ~typ:(id @-> returning (void)) x -let setKeyboardDockItem self = msg_send ~self ~cmd:(selector "setKeyboardDockItem") ~typ:(returning (void)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateDockItemsVisibility self = msg_send ~self ~cmd:(selector "updateDockItemsVisibility") ~typ:(returning (void)) -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UISystemKeyboardDockController" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let dictationItemButtonWasPressed x ~withEvent self = msg_send ~self ~cmd:(selector "dictationItemButtonWasPressed:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let dockView self = msg_send ~self ~cmd:(selector "dockView") ~typ:(returning id) +let globeItemButtonWasPressed x ~withEvent self = msg_send ~self ~cmd:(selector "globeItemButtonWasPressed:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let keyboardDockView x ~didPressDockItem ~withEvent self = msg_send ~self ~cmd:(selector "keyboardDockView:didPressDockItem:withEvent:") ~typ:(id @-> id @-> id @-> returning void) x didPressDockItem withEvent +let keyboardItemButtonWasTapped x ~withEvent self = msg_send ~self ~cmd:(selector "keyboardItemButtonWasTapped:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let setDockView x self = msg_send ~self ~cmd:(selector "setDockView:") ~typ:(id @-> returning void) x +let setKeyboardDockItem self = msg_send ~self ~cmd:(selector "setKeyboardDockItem") ~typ:(returning void) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let updateDockItemsVisibility self = msg_send ~self ~cmd:(selector "updateDockItemsVisibility") ~typ:(returning void) +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UISystemNavigationAction.ml b/uikit/UISystemNavigationAction.ml index 78b27c64..a9a17c28 100644 --- a/uikit/UISystemNavigationAction.ml +++ b/uikit/UISystemNavigationAction.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISystemNavigationAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisystemnavigationaction?language=objc}UISystemNavigationAction} *) -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let _URLForDestination x self = msg_send ~self ~cmd:(selector "URLForDestination:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let bundleIdForDestination x self = msg_send ~self ~cmd:(selector "bundleIdForDestination:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let destinations self = msg_send ~self ~cmd:(selector "destinations") ~typ:(returning (id)) -let initWithDestinationContexts x ~forResponseOnQueue ~withHandler self = msg_send ~self ~cmd:(selector "initWithDestinationContexts:forResponseOnQueue:withHandler:") ~typ:(id @-> id @-> ptr void @-> returning (id)) x forResponseOnQueue withHandler -let initWithInfo x ~timeout ~forResponseOnQueue ~withHandler self = msg_send ~self ~cmd:(selector "initWithInfo:timeout:forResponseOnQueue:withHandler:") ~typ:(id @-> double @-> id @-> ptr void @-> returning (id)) x timeout forResponseOnQueue withHandler -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let sceneIdentifierForDestination x self = msg_send ~self ~cmd:(selector "sceneIdentifierForDestination:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let sendResponseForDestination x self = msg_send ~self ~cmd:(selector "sendResponseForDestination:") ~typ:(ullong @-> returning (bool)) (ULLong.of_int x) -let titleForDestination x self = msg_send ~self ~cmd:(selector "titleForDestination:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let valueDescriptionForFlag x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning (id)) (LLong.of_int x) object_ (ULLong.of_int ofSetting) \ No newline at end of file +let self = get_class "UISystemNavigationAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let _URLForDestination x self = msg_send ~self ~cmd:(selector "URLForDestination:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let bundleIdForDestination x self = msg_send ~self ~cmd:(selector "bundleIdForDestination:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let destinations self = msg_send ~self ~cmd:(selector "destinations") ~typ:(returning id) +let initWithDestinationContexts x ~forResponseOnQueue ~withHandler self = msg_send ~self ~cmd:(selector "initWithDestinationContexts:forResponseOnQueue:withHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning id) x forResponseOnQueue withHandler +let initWithInfo x ~timeout ~forResponseOnQueue ~withHandler self = msg_send ~self ~cmd:(selector "initWithInfo:timeout:forResponseOnQueue:withHandler:") ~typ:(id @-> double @-> id @-> (ptr void) @-> returning id) x timeout forResponseOnQueue withHandler +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let sceneIdentifierForDestination x self = msg_send ~self ~cmd:(selector "sceneIdentifierForDestination:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let sendResponseForDestination x self = msg_send ~self ~cmd:(selector "sendResponseForDestination:") ~typ:(ullong @-> returning bool) (ULLong.of_int x) +let titleForDestination x self = msg_send ~self ~cmd:(selector "titleForDestination:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let valueDescriptionForFlag x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning id) (LLong.of_int x) object_ (ULLong.of_int ofSetting) \ No newline at end of file diff --git a/uikit/UISystemNavigationActionDestinationContext.ml b/uikit/UISystemNavigationActionDestinationContext.ml deleted file mode 100644 index a99c0cf8..00000000 --- a/uikit/UISystemNavigationActionDestinationContext.ml +++ /dev/null @@ -1,28 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISystemNavigationActionDestinationContext" - -module C = struct - let systemNavigationActionContextWithTitle x ~andURL self = msg_send ~self ~cmd:(selector "systemNavigationActionContextWithTitle:andURL:") ~typ:(id @-> id @-> returning (id)) x andURL - let systemNavigationActionContextWithTitle1 x ~bundleId self = msg_send ~self ~cmd:(selector "systemNavigationActionContextWithTitle:bundleId:") ~typ:(id @-> id @-> returning (id)) x bundleId - let systemNavigationActionContextWithTitle2 x ~sceneIdentifier self = msg_send ~self ~cmd:(selector "systemNavigationActionContextWithTitle:sceneIdentifier:") ~typ:(id @-> id @-> returning (id)) x sceneIdentifier - let systemNavigationActionContextWithURL x self = msg_send ~self ~cmd:(selector "systemNavigationActionContextWithURL:") ~typ:(id @-> returning (id)) x -end - -let _URL self = msg_send ~self ~cmd:(selector "URL") ~typ:(returning (id)) -let bundleId self = msg_send ~self ~cmd:(selector "bundleId") ~typ:(returning (id)) -let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning (id)) -let encodeWithXPCDictionary x self = msg_send ~self ~cmd:(selector "encodeWithXPCDictionary:") ~typ:(id @-> returning (void)) x -let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning (id)) x -let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning (id)) -let setBundleId x self = msg_send ~self ~cmd:(selector "setBundleId:") ~typ:(id @-> returning (void)) x -let setSceneIdentifier x self = msg_send ~self ~cmd:(selector "setSceneIdentifier:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setURL x self = msg_send ~self ~cmd:(selector "setURL:") ~typ:(id @-> returning (void)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UISystemShellApplication.ml b/uikit/UISystemShellApplication.ml index bdfaeb2a..bceedfb4 100644 --- a/uikit/UISystemShellApplication.ml +++ b/uikit/UISystemShellApplication.ml @@ -5,23 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UISystemShellApplication" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisystemshellapplication?language=objc}UISystemShellApplication} *) -module C = struct - let registerAsSystemApp self = msg_send ~self ~cmd:(selector "registerAsSystemApp") ~typ:(returning (bool)) - let rendersLocally self = msg_send ~self ~cmd:(selector "rendersLocally") ~typ:(returning (bool)) -end +let self = get_class "UISystemShellApplication" -let canOpenURL x self = msg_send ~self ~cmd:(selector "canOpenURL:") ~typ:(id @-> returning (bool)) x -let handleDoubleHeightStatusBarTapWithStyleOverride x self = msg_send ~self ~cmd:(selector "handleDoubleHeightStatusBarTapWithStyleOverride:") ~typ:(ullong @-> returning (bool)) (ULLong.of_int x) -let handleStatusBarHoverActionForRegion x self = msg_send ~self ~cmd:(selector "handleStatusBarHoverActionForRegion:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isFrontBoard self = msg_send ~self ~cmd:(selector "isFrontBoard") ~typ:(returning (bool)) -let isSuspended self = msg_send ~self ~cmd:(selector "isSuspended") ~typ:(returning (bool)) -let isSuspendedEventsOnly self = msg_send ~self ~cmd:(selector "isSuspendedEventsOnly") ~typ:(returning (bool)) -let isSuspendedUnderLock self = msg_send ~self ~cmd:(selector "isSuspendedUnderLock") ~typ:(returning (bool)) -let noteActiveInterfaceOrientationDidChangeToOrientation x ~willAnimateWithSettings ~fromOrientation self = msg_send ~self ~cmd:(selector "noteActiveInterfaceOrientationDidChangeToOrientation:willAnimateWithSettings:fromOrientation:") ~typ:(llong @-> id @-> llong @-> returning (void)) (LLong.of_int x) willAnimateWithSettings (LLong.of_int fromOrientation) -let noteActiveInterfaceOrientationWillChangeToOrientation x self = msg_send ~self ~cmd:(selector "noteActiveInterfaceOrientationWillChangeToOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let resetIdleTimerAndUndim self = msg_send ~self ~cmd:(selector "resetIdleTimerAndUndim") ~typ:(returning (void)) -let startupInterfaceOrientation self = msg_send ~self ~cmd:(selector "startupInterfaceOrientation") ~typ:(returning (llong)) \ No newline at end of file +let canOpenURL x self = msg_send ~self ~cmd:(selector "canOpenURL:") ~typ:(id @-> returning bool) x +let handleDoubleHeightStatusBarTapWithStyleOverride x self = msg_send ~self ~cmd:(selector "handleDoubleHeightStatusBarTapWithStyleOverride:") ~typ:(ullong @-> returning bool) (ULLong.of_int x) +let handleStatusBarHoverActionForRegion x self = msg_send ~self ~cmd:(selector "handleStatusBarHoverActionForRegion:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isFrontBoard self = msg_send ~self ~cmd:(selector "isFrontBoard") ~typ:(returning bool) +let isSuspended self = msg_send ~self ~cmd:(selector "isSuspended") ~typ:(returning bool) +let isSuspendedEventsOnly self = msg_send ~self ~cmd:(selector "isSuspendedEventsOnly") ~typ:(returning bool) +let isSuspendedUnderLock self = msg_send ~self ~cmd:(selector "isSuspendedUnderLock") ~typ:(returning bool) +let noteActiveInterfaceOrientationDidChangeToOrientation x ~willAnimateWithSettings ~fromOrientation self = msg_send ~self ~cmd:(selector "noteActiveInterfaceOrientationDidChangeToOrientation:willAnimateWithSettings:fromOrientation:") ~typ:(llong @-> id @-> llong @-> returning void) (LLong.of_int x) willAnimateWithSettings (LLong.of_int fromOrientation) +let noteActiveInterfaceOrientationWillChangeToOrientation x self = msg_send ~self ~cmd:(selector "noteActiveInterfaceOrientationWillChangeToOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let resetIdleTimerAndUndim self = msg_send ~self ~cmd:(selector "resetIdleTimerAndUndim") ~typ:(returning void) +let startupInterfaceOrientation self = msg_send ~self ~cmd:(selector "startupInterfaceOrientation") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UISystemShellApplicationClass.ml b/uikit/UISystemShellApplicationClass.ml new file mode 100644 index 00000000..2452a965 --- /dev/null +++ b/uikit/UISystemShellApplicationClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisystemshellapplication?language=objc}UISystemShellApplication} *) + +let registerAsSystemApp self = msg_send ~self ~cmd:(selector "registerAsSystemApp") ~typ:(returning bool) +let rendersLocally self = msg_send ~self ~cmd:(selector "rendersLocally") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITabBar.ml b/uikit/UITabBar.ml index 4508ad0d..721086c0 100644 --- a/uikit/UITabBar.ml +++ b/uikit/UITabBar.ml @@ -5,80 +5,84 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITabBar" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitabbar?language=objc}UITabBar} *) -let addConstraint x self = msg_send ~self ~cmd:(selector "addConstraint:") ~typ:(id @-> returning (void)) x -let backgroundEffects self = msg_send ~self ~cmd:(selector "backgroundEffects") ~typ:(returning (id)) -let backgroundImage self = msg_send ~self ~cmd:(selector "backgroundImage") ~typ:(returning (id)) -let barPosition self = msg_send ~self ~cmd:(selector "barPosition") ~typ:(returning (llong)) -let barStyle self = msg_send ~self ~cmd:(selector "barStyle") ~typ:(returning (llong)) -let barTintColor self = msg_send ~self ~cmd:(selector "barTintColor") ~typ:(returning (id)) -let beginCustomizingItems x self = msg_send ~self ~cmd:(selector "beginCustomizingItems:") ~typ:(id @-> returning (void)) x -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let dismissCustomizeSheet x self = msg_send ~self ~cmd:(selector "dismissCustomizeSheet:") ~typ:(bool @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let endCustomizingAnimated x self = msg_send ~self ~cmd:(selector "endCustomizingAnimated:") ~typ:(bool @-> returning (bool)) x -let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (id)) x forEvent -let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isCustomizing self = msg_send ~self ~cmd:(selector "isCustomizing") ~typ:(returning (bool)) -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isLocked self = msg_send ~self ~cmd:(selector "isLocked") ~typ:(returning (bool)) -let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning (bool)) -let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning (bool)) -let itemPositioning self = msg_send ~self ~cmd:(selector "itemPositioning") ~typ:(returning (llong)) -let itemSpacing self = msg_send ~self ~cmd:(selector "itemSpacing") ~typ:(returning (double)) -let itemWidth self = msg_send ~self ~cmd:(selector "itemWidth") ~typ:(returning (double)) -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let leadingAccessoryView self = msg_send ~self ~cmd:(selector "leadingAccessoryView") ~typ:(returning (id)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let removeConstraint x self = msg_send ~self ~cmd:(selector "removeConstraint:") ~typ:(id @-> returning (void)) x -let scrollEdgeAppearance self = msg_send ~self ~cmd:(selector "scrollEdgeAppearance") ~typ:(returning (id)) -let selectedImageTintColor self = msg_send ~self ~cmd:(selector "selectedImageTintColor") ~typ:(returning (id)) -let selectedItem self = msg_send ~self ~cmd:(selector "selectedItem") ~typ:(returning (id)) -let selectionIndicatorImage self = msg_send ~self ~cmd:(selector "selectionIndicatorImage") ~typ:(returning (id)) -let setAlpha x self = msg_send ~self ~cmd:(selector "setAlpha:") ~typ:(double @-> returning (void)) x -let setBackgroundEffects x self = msg_send ~self ~cmd:(selector "setBackgroundEffects:") ~typ:(id @-> returning (void)) x -let setBackgroundImage x self = msg_send ~self ~cmd:(selector "setBackgroundImage:") ~typ:(id @-> returning (void)) x -let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBarTintColor x self = msg_send ~self ~cmd:(selector "setBarTintColor:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning (void)) x -let setItemPositioning x self = msg_send ~self ~cmd:(selector "setItemPositioning:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setItemSpacing x self = msg_send ~self ~cmd:(selector "setItemSpacing:") ~typ:(double @-> returning (void)) x -let setItemWidth x self = msg_send ~self ~cmd:(selector "setItemWidth:") ~typ:(double @-> returning (void)) x -let setItems x self = msg_send ~self ~cmd:(selector "setItems:") ~typ:(id @-> returning (void)) x -let setItems' x ~animated self = msg_send ~self ~cmd:(selector "setItems:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setLocked x self = msg_send ~self ~cmd:(selector "setLocked:") ~typ:(bool @-> returning (void)) x -let setScrollEdgeAppearance x self = msg_send ~self ~cmd:(selector "setScrollEdgeAppearance:") ~typ:(id @-> returning (void)) x -let setSelectedImageTintColor x self = msg_send ~self ~cmd:(selector "setSelectedImageTintColor:") ~typ:(id @-> returning (void)) x -let setSelectedItem x self = msg_send ~self ~cmd:(selector "setSelectedItem:") ~typ:(id @-> returning (void)) x -let setSelectionIndicatorImage x self = msg_send ~self ~cmd:(selector "setSelectionIndicatorImage:") ~typ:(id @-> returning (void)) x -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShadowImage x self = msg_send ~self ~cmd:(selector "setShadowImage:") ~typ:(id @-> returning (void)) x -let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning (void)) x -let setStandardAppearance x self = msg_send ~self ~cmd:(selector "setStandardAppearance:") ~typ:(id @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning (void)) x -let setTranslucent x self = msg_send ~self ~cmd:(selector "setTranslucent:") ~typ:(bool @-> returning (void)) x -let setUnselectedItemTintColor x self = msg_send ~self ~cmd:(selector "setUnselectedItemTintColor:") ~typ:(id @-> returning (void)) x -let shadowImage self = msg_send ~self ~cmd:(selector "shadowImage") ~typ:(returning (id)) -let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning (bool)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let standardAppearance self = msg_send ~self ~cmd:(selector "standardAppearance") ~typ:(returning (id)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let trailingAccessoryView self = msg_send ~self ~cmd:(selector "trailingAccessoryView") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let unselectedItemTintColor self = msg_send ~self ~cmd:(selector "unselectedItemTintColor") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITabBar" + +let addConstraint x self = msg_send ~self ~cmd:(selector "addConstraint:") ~typ:(id @-> returning void) x +let backgroundEffects self = msg_send ~self ~cmd:(selector "backgroundEffects") ~typ:(returning id) +let backgroundImage self = msg_send ~self ~cmd:(selector "backgroundImage") ~typ:(returning id) +let barPosition self = msg_send ~self ~cmd:(selector "barPosition") ~typ:(returning llong) +let barStyle self = msg_send ~self ~cmd:(selector "barStyle") ~typ:(returning llong) +let barTintColor self = msg_send ~self ~cmd:(selector "barTintColor") ~typ:(returning id) +let beginCustomizingItems x self = msg_send ~self ~cmd:(selector "beginCustomizingItems:") ~typ:(id @-> returning void) x +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let dismissCustomizeSheet x self = msg_send ~self ~cmd:(selector "dismissCustomizeSheet:") ~typ:(bool @-> returning void) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let endCustomizingAnimated x self = msg_send ~self ~cmd:(selector "endCustomizingAnimated:") ~typ:(bool @-> returning bool) x +let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning id) x forEvent +let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isCustomizing self = msg_send ~self ~cmd:(selector "isCustomizing") ~typ:(returning bool) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isLocked self = msg_send ~self ~cmd:(selector "isLocked") ~typ:(returning bool) +let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning bool) +let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning bool) +let itemPositioning self = msg_send ~self ~cmd:(selector "itemPositioning") ~typ:(returning llong) +let itemSpacing self = msg_send ~self ~cmd:(selector "itemSpacing") ~typ:(returning double) +let itemWidth self = msg_send ~self ~cmd:(selector "itemWidth") ~typ:(returning double) +let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let leadingAccessoryView self = msg_send ~self ~cmd:(selector "leadingAccessoryView") ~typ:(returning id) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let removeConstraint x self = msg_send ~self ~cmd:(selector "removeConstraint:") ~typ:(id @-> returning void) x +let scrollEdgeAppearance self = msg_send ~self ~cmd:(selector "scrollEdgeAppearance") ~typ:(returning id) +let selectedImageTintColor self = msg_send ~self ~cmd:(selector "selectedImageTintColor") ~typ:(returning id) +let selectedItem self = msg_send ~self ~cmd:(selector "selectedItem") ~typ:(returning id) +let selectionIndicatorImage self = msg_send ~self ~cmd:(selector "selectionIndicatorImage") ~typ:(returning id) +let setAlpha x self = msg_send ~self ~cmd:(selector "setAlpha:") ~typ:(double @-> returning void) x +let setBackgroundEffects x self = msg_send ~self ~cmd:(selector "setBackgroundEffects:") ~typ:(id @-> returning void) x +let setBackgroundImage x self = msg_send ~self ~cmd:(selector "setBackgroundImage:") ~typ:(id @-> returning void) x +let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBarTintColor x self = msg_send ~self ~cmd:(selector "setBarTintColor:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning void) x +let setItemPositioning x self = msg_send ~self ~cmd:(selector "setItemPositioning:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setItemSpacing x self = msg_send ~self ~cmd:(selector "setItemSpacing:") ~typ:(double @-> returning void) x +let setItemWidth x self = msg_send ~self ~cmd:(selector "setItemWidth:") ~typ:(double @-> returning void) x +let setItems x self = msg_send ~self ~cmd:(selector "setItems:") ~typ:(id @-> returning void) x +let setItems' x ~animated self = msg_send ~self ~cmd:(selector "setItems:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setLocked x self = msg_send ~self ~cmd:(selector "setLocked:") ~typ:(bool @-> returning void) x +let setScrollEdgeAppearance x self = msg_send ~self ~cmd:(selector "setScrollEdgeAppearance:") ~typ:(id @-> returning void) x +let setSelectedImageTintColor x self = msg_send ~self ~cmd:(selector "setSelectedImageTintColor:") ~typ:(id @-> returning void) x +let setSelectedItem x self = msg_send ~self ~cmd:(selector "setSelectedItem:") ~typ:(id @-> returning void) x +let setSelectionIndicatorImage x self = msg_send ~self ~cmd:(selector "setSelectionIndicatorImage:") ~typ:(id @-> returning void) x +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setShadowImage x self = msg_send ~self ~cmd:(selector "setShadowImage:") ~typ:(id @-> returning void) x +let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning void) x +let setStandardAppearance x self = msg_send ~self ~cmd:(selector "setStandardAppearance:") ~typ:(id @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning void) x +let setTranslucent x self = msg_send ~self ~cmd:(selector "setTranslucent:") ~typ:(bool @-> returning void) x +let setUnselectedItemTintColor x self = msg_send ~self ~cmd:(selector "setUnselectedItemTintColor:") ~typ:(id @-> returning void) x +let shadowImage self = msg_send ~self ~cmd:(selector "shadowImage") ~typ:(returning id) +let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning bool) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let standardAppearance self = msg_send ~self ~cmd:(selector "standardAppearance") ~typ:(returning id) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let trailingAccessoryView self = msg_send ~self ~cmd:(selector "trailingAccessoryView") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let unselectedItemTintColor self = msg_send ~self ~cmd:(selector "unselectedItemTintColor") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITabBarAppearance.ml b/uikit/UITabBarAppearance.ml index deafc42e..89426137 100644 --- a/uikit/UITabBarAppearance.ml +++ b/uikit/UITabBarAppearance.ml @@ -5,27 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITabBarAppearance" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitabbarappearance?language=objc}UITabBarAppearance} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UITabBarAppearance" -let compactInlineLayoutAppearance self = msg_send ~self ~cmd:(selector "compactInlineLayoutAppearance") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let inlineLayoutAppearance self = msg_send ~self ~cmd:(selector "inlineLayoutAppearance") ~typ:(returning (id)) -let selectionIndicatorImage self = msg_send ~self ~cmd:(selector "selectionIndicatorImage") ~typ:(returning (id)) -let selectionIndicatorTintColor self = msg_send ~self ~cmd:(selector "selectionIndicatorTintColor") ~typ:(returning (id)) -let setCompactInlineLayoutAppearance x self = msg_send ~self ~cmd:(selector "setCompactInlineLayoutAppearance:") ~typ:(id @-> returning (void)) x -let setInlineLayoutAppearance x self = msg_send ~self ~cmd:(selector "setInlineLayoutAppearance:") ~typ:(id @-> returning (void)) x -let setSelectionIndicatorImage x self = msg_send ~self ~cmd:(selector "setSelectionIndicatorImage:") ~typ:(id @-> returning (void)) x -let setSelectionIndicatorTintColor x self = msg_send ~self ~cmd:(selector "setSelectionIndicatorTintColor:") ~typ:(id @-> returning (void)) x -let setStackedItemPositioning x self = msg_send ~self ~cmd:(selector "setStackedItemPositioning:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setStackedItemSpacing x self = msg_send ~self ~cmd:(selector "setStackedItemSpacing:") ~typ:(double @-> returning (void)) x -let setStackedItemWidth x self = msg_send ~self ~cmd:(selector "setStackedItemWidth:") ~typ:(double @-> returning (void)) x -let setStackedLayoutAppearance x self = msg_send ~self ~cmd:(selector "setStackedLayoutAppearance:") ~typ:(id @-> returning (void)) x -let stackedItemPositioning self = msg_send ~self ~cmd:(selector "stackedItemPositioning") ~typ:(returning (llong)) -let stackedItemSpacing self = msg_send ~self ~cmd:(selector "stackedItemSpacing") ~typ:(returning (double)) -let stackedItemWidth self = msg_send ~self ~cmd:(selector "stackedItemWidth") ~typ:(returning (double)) -let stackedLayoutAppearance self = msg_send ~self ~cmd:(selector "stackedLayoutAppearance") ~typ:(returning (id)) \ No newline at end of file +let compactInlineLayoutAppearance self = msg_send ~self ~cmd:(selector "compactInlineLayoutAppearance") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let inlineLayoutAppearance self = msg_send ~self ~cmd:(selector "inlineLayoutAppearance") ~typ:(returning id) +let selectionIndicatorImage self = msg_send ~self ~cmd:(selector "selectionIndicatorImage") ~typ:(returning id) +let selectionIndicatorTintColor self = msg_send ~self ~cmd:(selector "selectionIndicatorTintColor") ~typ:(returning id) +let setCompactInlineLayoutAppearance x self = msg_send ~self ~cmd:(selector "setCompactInlineLayoutAppearance:") ~typ:(id @-> returning void) x +let setInlineLayoutAppearance x self = msg_send ~self ~cmd:(selector "setInlineLayoutAppearance:") ~typ:(id @-> returning void) x +let setSelectionIndicatorImage x self = msg_send ~self ~cmd:(selector "setSelectionIndicatorImage:") ~typ:(id @-> returning void) x +let setSelectionIndicatorTintColor x self = msg_send ~self ~cmd:(selector "setSelectionIndicatorTintColor:") ~typ:(id @-> returning void) x +let setStackedItemPositioning x self = msg_send ~self ~cmd:(selector "setStackedItemPositioning:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setStackedItemSpacing x self = msg_send ~self ~cmd:(selector "setStackedItemSpacing:") ~typ:(double @-> returning void) x +let setStackedItemWidth x self = msg_send ~self ~cmd:(selector "setStackedItemWidth:") ~typ:(double @-> returning void) x +let setStackedLayoutAppearance x self = msg_send ~self ~cmd:(selector "setStackedLayoutAppearance:") ~typ:(id @-> returning void) x +let stackedItemPositioning self = msg_send ~self ~cmd:(selector "stackedItemPositioning") ~typ:(returning llong) +let stackedItemSpacing self = msg_send ~self ~cmd:(selector "stackedItemSpacing") ~typ:(returning double) +let stackedItemWidth self = msg_send ~self ~cmd:(selector "stackedItemWidth") ~typ:(returning double) +let stackedLayoutAppearance self = msg_send ~self ~cmd:(selector "stackedLayoutAppearance") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITabBarAppearanceClass.ml b/uikit/UITabBarAppearanceClass.ml new file mode 100644 index 00000000..d7df178e --- /dev/null +++ b/uikit/UITabBarAppearanceClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitabbarappearance?language=objc}UITabBarAppearance} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITabBarButton.ml b/uikit/UITabBarButton.ml index f0284d6a..8c9bc710 100644 --- a/uikit/UITabBarButton.ml +++ b/uikit/UITabBarButton.ml @@ -5,47 +5,54 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITabBarButton" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitabbarbutton?language=objc}UITabBarButton} *) -let badgeBackgroundColorForState x self = msg_send ~self ~cmd:(selector "badgeBackgroundColorForState:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let badgeTextAttributesForState x self = msg_send ~self ~cmd:(selector "badgeTextAttributesForState:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let carplayConstraints self = msg_send ~self ~cmd:(selector "carplayConstraints") ~typ:(returning (id)) -let defaultAlphaForState x self = msg_send ~self ~cmd:(selector "defaultAlphaForState:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let defaultColorForState x self = msg_send ~self ~cmd:(selector "defaultColorForState:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultCompositingModeForState x self = msg_send ~self ~cmd:(selector "defaultCompositingModeForState:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let focusView self = msg_send ~self ~cmd:(selector "focusView") ~typ:(returning (id)) -let iconColorForState x self = msg_send ~self ~cmd:(selector "iconColorForState:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let iconShouldUseVibrancyForState x self = msg_send ~self ~cmd:(selector "iconShouldUseVibrancyForState:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let initWithImage x ~selectedImage ~label ~withInsets ~tabBar self = msg_send ~self ~cmd:(selector "initWithImage:selectedImage:label:withInsets:tabBar:") ~typ:(id @-> id @-> id @-> ptr void @-> id @-> returning (id)) x selectedImage label withInsets tabBar -let initWithImage' x ~landscapeImage ~selectedImage ~landscapeSelectedImage ~label ~withInsets ~landscapeInsets ~tabBar self = msg_send ~self ~cmd:(selector "initWithImage:landscapeImage:selectedImage:landscapeSelectedImage:label:withInsets:landscapeInsets:tabBar:") ~typ:(id @-> id @-> id @-> id @-> id @-> ptr void @-> ptr void @-> id @-> returning (id)) x landscapeImage selectedImage landscapeSelectedImage label withInsets landscapeInsets tabBar -let isDefaultColor x ~forState self = msg_send ~self ~cmd:(selector "isDefaultColor:forState:") ~typ:(id @-> llong @-> returning (bool)) x (LLong.of_int forState) -let isDefaultTVLayout self = msg_send ~self ~cmd:(selector "isDefaultTVLayout") ~typ:(returning (bool)) -let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning (bool)) -let itemAppearanceData self = msg_send ~self ~cmd:(selector "itemAppearanceData") ~typ:(returning (id)) -let itemVibrantEffect self = msg_send ~self ~cmd:(selector "itemVibrantEffect") ~typ:(returning (id)) -let labelShouldUseVibrancyForState x self = msg_send ~self ~cmd:(selector "labelShouldUseVibrancyForState:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let layoutStyle self = msg_send ~self ~cmd:(selector "layoutStyle") ~typ:(returning (llong)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let pointInside x ~forEvent self = msg_send ~self ~cmd:(selector "pointInside:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (bool)) x forEvent -let pointInside' x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let setCarplayConstraints x self = msg_send ~self ~cmd:(selector "setCarplayConstraints:") ~typ:(id @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setItemAppearanceData x self = msg_send ~self ~cmd:(selector "setItemAppearanceData:") ~typ:(id @-> returning (void)) x -let setItemVibrantEffect x self = msg_send ~self ~cmd:(selector "setItemVibrantEffect:") ~typ:(id @-> returning (void)) x -let setLayoutStyle x self = msg_send ~self ~cmd:(selector "setLayoutStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning (void)) x -let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning (bool)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let tabBar self = msg_send ~self ~cmd:(selector "tabBar") ~typ:(returning (id)) -let titleTextAttributesForState x self = msg_send ~self ~cmd:(selector "titleTextAttributesForState:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UITabBarButton" + +let badgeBackgroundColorForState x self = msg_send ~self ~cmd:(selector "badgeBackgroundColorForState:") ~typ:(llong @-> returning id) (LLong.of_int x) +let badgePositionAdjustmentForState x self = msg_send ~self ~cmd:(selector "badgePositionAdjustmentForState:") ~typ:(llong @-> returning UIOffset.t) (LLong.of_int x) +let badgeTextAttributesForState x self = msg_send ~self ~cmd:(selector "badgeTextAttributesForState:") ~typ:(llong @-> returning id) (LLong.of_int x) +let badgeTitlePositionAdjustmentForState x self = msg_send ~self ~cmd:(selector "badgeTitlePositionAdjustmentForState:") ~typ:(llong @-> returning UIOffset.t) (LLong.of_int x) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let carplayConstraints self = msg_send ~self ~cmd:(selector "carplayConstraints") ~typ:(returning id) +let defaultAlphaForState x self = msg_send ~self ~cmd:(selector "defaultAlphaForState:") ~typ:(llong @-> returning double) (LLong.of_int x) +let defaultColorForState x self = msg_send ~self ~cmd:(selector "defaultColorForState:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultCompositingModeForState x self = msg_send ~self ~cmd:(selector "defaultCompositingModeForState:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let focusView self = msg_send ~self ~cmd:(selector "focusView") ~typ:(returning id) +let iconColorForState x self = msg_send ~self ~cmd:(selector "iconColorForState:") ~typ:(llong @-> returning id) (LLong.of_int x) +let iconShouldUseVibrancyForState x self = msg_send ~self ~cmd:(selector "iconShouldUseVibrancyForState:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let initWithImage x ~selectedImage ~label ~withInsets ~tabBar self = msg_send ~self ~cmd:(selector "initWithImage:selectedImage:label:withInsets:tabBar:") ~typ:(id @-> id @-> id @-> UIEdgeInsets.t @-> id @-> returning id) x selectedImage label withInsets tabBar +let initWithImage' x ~landscapeImage ~selectedImage ~landscapeSelectedImage ~label ~withInsets ~landscapeInsets ~tabBar self = msg_send ~self ~cmd:(selector "initWithImage:landscapeImage:selectedImage:landscapeSelectedImage:label:withInsets:landscapeInsets:tabBar:") ~typ:(id @-> id @-> id @-> id @-> id @-> UIEdgeInsets.t @-> UIEdgeInsets.t @-> id @-> returning id) x landscapeImage selectedImage landscapeSelectedImage label withInsets landscapeInsets tabBar +let isDefaultColor x ~forState self = msg_send ~self ~cmd:(selector "isDefaultColor:forState:") ~typ:(id @-> llong @-> returning bool) x (LLong.of_int forState) +let isDefaultTVLayout self = msg_send ~self ~cmd:(selector "isDefaultTVLayout") ~typ:(returning bool) +let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning bool) +let itemAppearanceData self = msg_send ~self ~cmd:(selector "itemAppearanceData") ~typ:(returning id) +let itemVibrantEffect self = msg_send ~self ~cmd:(selector "itemVibrantEffect") ~typ:(returning id) +let labelShouldUseVibrancyForState x self = msg_send ~self ~cmd:(selector "labelShouldUseVibrancyForState:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let layoutStyle self = msg_send ~self ~cmd:(selector "layoutStyle") ~typ:(returning llong) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let pointInside x ~forEvent self = msg_send ~self ~cmd:(selector "pointInside:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning bool) x forEvent +let pointInside' x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let setCarplayConstraints x self = msg_send ~self ~cmd:(selector "setCarplayConstraints:") ~typ:(id @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setItemAppearanceData x self = msg_send ~self ~cmd:(selector "setItemAppearanceData:") ~typ:(id @-> returning void) x +let setItemVibrantEffect x self = msg_send ~self ~cmd:(selector "setItemVibrantEffect:") ~typ:(id @-> returning void) x +let setLayoutStyle x self = msg_send ~self ~cmd:(selector "setLayoutStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning void) x +let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning bool) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let tabBar self = msg_send ~self ~cmd:(selector "tabBar") ~typ:(returning id) +let titlePositionAdjustmentForState x self = msg_send ~self ~cmd:(selector "titlePositionAdjustmentForState:") ~typ:(llong @-> returning UIOffset.t) (LLong.of_int x) +let titleTextAttributesForState x self = msg_send ~self ~cmd:(selector "titleTextAttributesForState:") ~typ:(llong @-> returning id) (LLong.of_int x) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITabBarButtonLabel.ml b/uikit/UITabBarButtonLabel.ml index 96c17661..3220a8b4 100644 --- a/uikit/UITabBarButtonLabel.ml +++ b/uikit/UITabBarButtonLabel.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITabBarButtonLabel" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitabbarbuttonlabel?language=objc}UITabBarButtonLabel} *) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithTabBarDisplayStyle x self = msg_send ~self ~cmd:(selector "initWithTabBarDisplayStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let resizeToFitWidth x self = msg_send ~self ~cmd:(selector "resizeToFitWidth:") ~typ:(double @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setTabBarButton x self = msg_send ~self ~cmd:(selector "setTabBarButton:") ~typ:(id @-> returning (void)) x -let setUnselectedTintColor x self = msg_send ~self ~cmd:(selector "setUnselectedTintColor:") ~typ:(id @-> returning (void)) x -let tabBarButton self = msg_send ~self ~cmd:(selector "tabBarButton") ~typ:(returning (id)) -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let unselectedTintColor self = msg_send ~self ~cmd:(selector "unselectedTintColor") ~typ:(returning (id)) -let updateTextColorsForState self = msg_send ~self ~cmd:(selector "updateTextColorsForState") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UITabBarButtonLabel" + +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithTabBarDisplayStyle x self = msg_send ~self ~cmd:(selector "initWithTabBarDisplayStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let resizeToFitWidth x self = msg_send ~self ~cmd:(selector "resizeToFitWidth:") ~typ:(double @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setTabBarButton x self = msg_send ~self ~cmd:(selector "setTabBarButton:") ~typ:(id @-> returning void) x +let setUnselectedTintColor x self = msg_send ~self ~cmd:(selector "setUnselectedTintColor:") ~typ:(id @-> returning void) x +let tabBarButton self = msg_send ~self ~cmd:(selector "tabBarButton") ~typ:(returning id) +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let unselectedTintColor self = msg_send ~self ~cmd:(selector "unselectedTintColor") ~typ:(returning id) +let updateTextColorsForState self = msg_send ~self ~cmd:(selector "updateTextColorsForState") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UITabBarController.ml b/uikit/UITabBarController.ml index d375ad78..b06f74eb 100644 --- a/uikit/UITabBarController.ml +++ b/uikit/UITabBarController.ml @@ -5,97 +5,97 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITabBarController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitabbarcontroller?language=objc}UITabBarController} *) -module C = struct - let doesOverridePreferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "doesOverridePreferredInterfaceOrientationForPresentation") ~typ:(returning (bool)) -end +let self = get_class "UITabBarController" -let allViewControllers self = msg_send ~self ~cmd:(selector "allViewControllers") ~typ:(returning (id)) -let animationDidStop x ~finished ~context self = msg_send ~self ~cmd:(selector "animationDidStop:finished:context:") ~typ:(id @-> id @-> id @-> returning (void)) x finished context -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let beginCustomizingTabBar x self = msg_send ~self ~cmd:(selector "beginCustomizingTabBar:") ~typ:(id @-> returning (void)) x -let childViewControllerForHomeIndicatorAutoHidden self = msg_send ~self ~cmd:(selector "childViewControllerForHomeIndicatorAutoHidden") ~typ:(returning (id)) -let childViewControllerForPointerLock self = msg_send ~self ~cmd:(selector "childViewControllerForPointerLock") ~typ:(returning (id)) -let childViewControllerForScreenEdgesDeferringSystemGestures self = msg_send ~self ~cmd:(selector "childViewControllerForScreenEdgesDeferringSystemGestures") ~typ:(returning (id)) -let childViewControllerForStatusBarHidden self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarHidden") ~typ:(returning (id)) -let childViewControllerForStatusBarStyle self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarStyle") ~typ:(returning (id)) -let childViewControllerForTouchBar self = msg_send ~self ~cmd:(selector "childViewControllerForTouchBar") ~typ:(returning (id)) -let childViewControllerForUserInterfaceStyle self = msg_send ~self ~cmd:(selector "childViewControllerForUserInterfaceStyle") ~typ:(returning (id)) -let childViewControllerForWhitePointAdaptivityStyle self = msg_send ~self ~cmd:(selector "childViewControllerForWhitePointAdaptivityStyle") ~typ:(returning (id)) -let concealTabBarSelection self = msg_send ~self ~cmd:(selector "concealTabBarSelection") ~typ:(returning (void)) -let customizableViewControllers self = msg_send ~self ~cmd:(selector "customizableViewControllers") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didAnimateFirstHalfOfRotationToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didAnimateFirstHalfOfRotationToInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hideBarWithTransition x self = msg_send ~self ~cmd:(selector "hideBarWithTransition:") ~typ:(int @-> returning (void)) x -let hideBarWithTransition' x ~duration self = msg_send ~self ~cmd:(selector "hideBarWithTransition:duration:") ~typ:(int @-> double @-> returning (void)) x duration -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let moreChildViewControllers self = msg_send ~self ~cmd:(selector "moreChildViewControllers") ~typ:(returning (id)) -let moreNavigationController self = msg_send ~self ~cmd:(selector "moreNavigationController") ~typ:(returning (id)) -let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning (id)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let preferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "preferredInterfaceOrientationForPresentation") ~typ:(returning (llong)) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let revealTabBarSelection self = msg_send ~self ~cmd:(selector "revealTabBarSelection") ~typ:(returning (void)) -let rotatingFooterView self = msg_send ~self ~cmd:(selector "rotatingFooterView") ~typ:(returning (id)) -let rotatingHeaderView self = msg_send ~self ~cmd:(selector "rotatingHeaderView") ~typ:(returning (id)) -let rotatingSnapshotViewForWindow x self = msg_send ~self ~cmd:(selector "rotatingSnapshotViewForWindow:") ~typ:(id @-> returning (id)) x -let selectedIndex self = msg_send ~self ~cmd:(selector "selectedIndex") ~typ:(returning (ullong)) -let selectedViewController self = msg_send ~self ~cmd:(selector "selectedViewController") ~typ:(returning (id)) -let setCustomizableViewControllers x self = msg_send ~self ~cmd:(selector "setCustomizableViewControllers:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setMoreChildViewControllers x self = msg_send ~self ~cmd:(selector "setMoreChildViewControllers:") ~typ:(id @-> returning (void)) x -let setRestorationIdentifier x self = msg_send ~self ~cmd:(selector "setRestorationIdentifier:") ~typ:(id @-> returning (void)) x -let setSelectedIndex x self = msg_send ~self ~cmd:(selector "setSelectedIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setSelectedViewController x self = msg_send ~self ~cmd:(selector "setSelectedViewController:") ~typ:(id @-> returning (void)) x -let setShowsEditButtonOnLeft x self = msg_send ~self ~cmd:(selector "setShowsEditButtonOnLeft:") ~typ:(bool @-> returning (void)) x -let setTabBar x self = msg_send ~self ~cmd:(selector "setTabBar:") ~typ:(id @-> returning (void)) x -let setTransientViewController x self = msg_send ~self ~cmd:(selector "setTransientViewController:") ~typ:(id @-> returning (void)) x -let setTransientViewController' x ~animated self = msg_send ~self ~cmd:(selector "setTransientViewController:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let setViewControllers x self = msg_send ~self ~cmd:(selector "setViewControllers:") ~typ:(id @-> returning (void)) x -let setViewControllers' x ~animated self = msg_send ~self ~cmd:(selector "setViewControllers:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning (bool)) x -let showBarWithTransition x self = msg_send ~self ~cmd:(selector "showBarWithTransition:") ~typ:(int @-> returning (void)) x -let showBarWithTransition' x ~duration self = msg_send ~self ~cmd:(selector "showBarWithTransition:duration:") ~typ:(int @-> double @-> returning (void)) x duration -let showsEditButtonOnLeft self = msg_send ~self ~cmd:(selector "showsEditButtonOnLeft") ~typ:(returning (bool)) -let sizeForChildContentContainer x ~withParentContainerSize self = msg_send_stret ~self ~cmd:(selector "sizeForChildContentContainer:withParentContainerSize:") ~typ:(id @-> CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x withParentContainerSize -let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning (ullong)) -let tabBar self = msg_send ~self ~cmd:(selector "tabBar") ~typ:(returning (id)) -let tabBar1 x ~willBeginCustomizingItems self = msg_send ~self ~cmd:(selector "tabBar:willBeginCustomizingItems:") ~typ:(id @-> id @-> returning (void)) x willBeginCustomizingItems -let tabBar2 x ~didEndCustomizingItems ~changed self = msg_send ~self ~cmd:(selector "tabBar:didEndCustomizingItems:changed:") ~typ:(id @-> id @-> bool @-> returning (void)) x didEndCustomizingItems changed -let tabBar3 x ~willEndCustomizingItems ~changed self = msg_send ~self ~cmd:(selector "tabBar:willEndCustomizingItems:changed:") ~typ:(id @-> id @-> bool @-> returning (void)) x willEndCustomizingItems changed -let tabBarSizingDidChange x self = msg_send ~self ~cmd:(selector "tabBarSizingDidChange:") ~typ:(id @-> returning (void)) x -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let transientViewController self = msg_send ~self ~cmd:(selector "transientViewController") ~typ:(returning (id)) -let transitionCoordinator self = msg_send ~self ~cmd:(selector "transitionCoordinator") ~typ:(returning (id)) -let transitionFromViewController x ~toViewController self = msg_send ~self ~cmd:(selector "transitionFromViewController:toViewController:") ~typ:(id @-> id @-> returning (void)) x toViewController -let transitionFromViewController' x ~toViewController ~transition ~shouldSetSelected self = msg_send ~self ~cmd:(selector "transitionFromViewController:toViewController:transition:shouldSetSelected:") ~typ:(id @-> id @-> int @-> bool @-> returning (void)) x toViewController transition shouldSetSelected -let transitionViewDidComplete x ~fromView ~toView self = msg_send ~self ~cmd:(selector "transitionViewDidComplete:fromView:toView:") ~typ:(id @-> id @-> id @-> returning (void)) x fromView toView -let transitionViewDidStart x self = msg_send ~self ~cmd:(selector "transitionViewDidStart:") ~typ:(id @-> returning (void)) x -let unwindForSegue x ~towardsViewController self = msg_send ~self ~cmd:(selector "unwindForSegue:towardsViewController:") ~typ:(id @-> id @-> returning (void)) x towardsViewController -let updateTabBarItemForViewController x self = msg_send ~self ~cmd:(selector "updateTabBarItemForViewController:") ~typ:(id @-> returning (void)) x -let viewControllers self = msg_send ~self ~cmd:(selector "viewControllers") ~typ:(returning (id)) -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning (void)) x withTransitionCoordinator -let willAnimateFirstHalfOfRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateFirstHalfOfRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willAnimateSecondHalfOfRotationFromInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateSecondHalfOfRotationFromInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning (void)) x withTransitionCoordinator \ No newline at end of file +let allViewControllers self = msg_send ~self ~cmd:(selector "allViewControllers") ~typ:(returning id) +let animationDidStop x ~finished ~context self = msg_send ~self ~cmd:(selector "animationDidStop:finished:context:") ~typ:(id @-> id @-> id @-> returning void) x finished context +let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning bool) +let beginCustomizingTabBar x self = msg_send ~self ~cmd:(selector "beginCustomizingTabBar:") ~typ:(id @-> returning void) x +let childViewControllerForHomeIndicatorAutoHidden self = msg_send ~self ~cmd:(selector "childViewControllerForHomeIndicatorAutoHidden") ~typ:(returning id) +let childViewControllerForPointerLock self = msg_send ~self ~cmd:(selector "childViewControllerForPointerLock") ~typ:(returning id) +let childViewControllerForScreenEdgesDeferringSystemGestures self = msg_send ~self ~cmd:(selector "childViewControllerForScreenEdgesDeferringSystemGestures") ~typ:(returning id) +let childViewControllerForStatusBarHidden self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarHidden") ~typ:(returning id) +let childViewControllerForStatusBarStyle self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarStyle") ~typ:(returning id) +let childViewControllerForTouchBar self = msg_send ~self ~cmd:(selector "childViewControllerForTouchBar") ~typ:(returning id) +let childViewControllerForUserInterfaceStyle self = msg_send ~self ~cmd:(selector "childViewControllerForUserInterfaceStyle") ~typ:(returning id) +let childViewControllerForWhitePointAdaptivityStyle self = msg_send ~self ~cmd:(selector "childViewControllerForWhitePointAdaptivityStyle") ~typ:(returning id) +let concealTabBarSelection self = msg_send ~self ~cmd:(selector "concealTabBarSelection") ~typ:(returning void) +let customizableViewControllers self = msg_send ~self ~cmd:(selector "customizableViewControllers") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didAnimateFirstHalfOfRotationToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didAnimateFirstHalfOfRotationToInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hideBarWithTransition x self = msg_send ~self ~cmd:(selector "hideBarWithTransition:") ~typ:(int @-> returning void) x +let hideBarWithTransition' x ~duration self = msg_send ~self ~cmd:(selector "hideBarWithTransition:duration:") ~typ:(int @-> double @-> returning void) x duration +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let moreChildViewControllers self = msg_send ~self ~cmd:(selector "moreChildViewControllers") ~typ:(returning id) +let moreNavigationController self = msg_send ~self ~cmd:(selector "moreNavigationController") ~typ:(returning id) +let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning id) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let preferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "preferredInterfaceOrientationForPresentation") ~typ:(returning llong) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let revealTabBarSelection self = msg_send ~self ~cmd:(selector "revealTabBarSelection") ~typ:(returning void) +let rotatingFooterView self = msg_send ~self ~cmd:(selector "rotatingFooterView") ~typ:(returning id) +let rotatingHeaderView self = msg_send ~self ~cmd:(selector "rotatingHeaderView") ~typ:(returning id) +let rotatingSnapshotViewForWindow x self = msg_send ~self ~cmd:(selector "rotatingSnapshotViewForWindow:") ~typ:(id @-> returning id) x +let selectedIndex self = msg_send ~self ~cmd:(selector "selectedIndex") ~typ:(returning ullong) +let selectedViewController self = msg_send ~self ~cmd:(selector "selectedViewController") ~typ:(returning id) +let setCustomizableViewControllers x self = msg_send ~self ~cmd:(selector "setCustomizableViewControllers:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setMoreChildViewControllers x self = msg_send ~self ~cmd:(selector "setMoreChildViewControllers:") ~typ:(id @-> returning void) x +let setRestorationIdentifier x self = msg_send ~self ~cmd:(selector "setRestorationIdentifier:") ~typ:(id @-> returning void) x +let setSelectedIndex x self = msg_send ~self ~cmd:(selector "setSelectedIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setSelectedViewController x self = msg_send ~self ~cmd:(selector "setSelectedViewController:") ~typ:(id @-> returning void) x +let setShowsEditButtonOnLeft x self = msg_send ~self ~cmd:(selector "setShowsEditButtonOnLeft:") ~typ:(bool @-> returning void) x +let setTabBar x self = msg_send ~self ~cmd:(selector "setTabBar:") ~typ:(id @-> returning void) x +let setTransientViewController x self = msg_send ~self ~cmd:(selector "setTransientViewController:") ~typ:(id @-> returning void) x +let setTransientViewController' x ~animated self = msg_send ~self ~cmd:(selector "setTransientViewController:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let setViewControllers x self = msg_send ~self ~cmd:(selector "setViewControllers:") ~typ:(id @-> returning void) x +let setViewControllers' x ~animated self = msg_send ~self ~cmd:(selector "setViewControllers:animated:") ~typ:(id @-> bool @-> returning void) x animated +let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning bool) x +let showBarWithTransition x self = msg_send ~self ~cmd:(selector "showBarWithTransition:") ~typ:(int @-> returning void) x +let showBarWithTransition' x ~duration self = msg_send ~self ~cmd:(selector "showBarWithTransition:duration:") ~typ:(int @-> double @-> returning void) x duration +let showsEditButtonOnLeft self = msg_send ~self ~cmd:(selector "showsEditButtonOnLeft") ~typ:(returning bool) +let sizeForChildContentContainer x ~withParentContainerSize self = msg_send ~self ~cmd:(selector "sizeForChildContentContainer:withParentContainerSize:") ~typ:(id @-> CGSize.t @-> returning CGSize.t) x withParentContainerSize +let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning ullong) +let tabBar self = msg_send ~self ~cmd:(selector "tabBar") ~typ:(returning id) +let tabBar1 x ~willBeginCustomizingItems self = msg_send ~self ~cmd:(selector "tabBar:willBeginCustomizingItems:") ~typ:(id @-> id @-> returning void) x willBeginCustomizingItems +let tabBar2 x ~didEndCustomizingItems ~changed self = msg_send ~self ~cmd:(selector "tabBar:didEndCustomizingItems:changed:") ~typ:(id @-> id @-> bool @-> returning void) x didEndCustomizingItems changed +let tabBar3 x ~willEndCustomizingItems ~changed self = msg_send ~self ~cmd:(selector "tabBar:willEndCustomizingItems:changed:") ~typ:(id @-> id @-> bool @-> returning void) x willEndCustomizingItems changed +let tabBarSizingDidChange x self = msg_send ~self ~cmd:(selector "tabBarSizingDidChange:") ~typ:(id @-> returning void) x +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let transientViewController self = msg_send ~self ~cmd:(selector "transientViewController") ~typ:(returning id) +let transitionCoordinator self = msg_send ~self ~cmd:(selector "transitionCoordinator") ~typ:(returning id) +let transitionFromViewController x ~toViewController self = msg_send ~self ~cmd:(selector "transitionFromViewController:toViewController:") ~typ:(id @-> id @-> returning void) x toViewController +let transitionFromViewController' x ~toViewController ~transition ~shouldSetSelected self = msg_send ~self ~cmd:(selector "transitionFromViewController:toViewController:transition:shouldSetSelected:") ~typ:(id @-> id @-> int @-> bool @-> returning void) x toViewController transition shouldSetSelected +let transitionViewDidComplete x ~fromView ~toView self = msg_send ~self ~cmd:(selector "transitionViewDidComplete:fromView:toView:") ~typ:(id @-> id @-> id @-> returning void) x fromView toView +let transitionViewDidStart x self = msg_send ~self ~cmd:(selector "transitionViewDidStart:") ~typ:(id @-> returning void) x +let unwindForSegue x ~towardsViewController self = msg_send ~self ~cmd:(selector "unwindForSegue:towardsViewController:") ~typ:(id @-> id @-> returning void) x towardsViewController +let updateTabBarItemForViewController x self = msg_send ~self ~cmd:(selector "updateTabBarItemForViewController:") ~typ:(id @-> returning void) x +let viewControllers self = msg_send ~self ~cmd:(selector "viewControllers") ~typ:(returning id) +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning void) x withTransitionCoordinator +let willAnimateFirstHalfOfRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateFirstHalfOfRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willAnimateSecondHalfOfRotationFromInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateSecondHalfOfRotationFromInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning void) x withTransitionCoordinator \ No newline at end of file diff --git a/uikit/UITabBarControllerClass.ml b/uikit/UITabBarControllerClass.ml new file mode 100644 index 00000000..a7b5ab86 --- /dev/null +++ b/uikit/UITabBarControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitabbarcontroller?language=objc}UITabBarController} *) + +let doesOverridePreferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "doesOverridePreferredInterfaceOrientationForPresentation") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITabBarCustomizeView.ml b/uikit/UITabBarCustomizeView.ml index b300d69c..a562d519 100644 --- a/uikit/UITabBarCustomizeView.ml +++ b/uikit/UITabBarCustomizeView.ml @@ -5,28 +5,32 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITabBarCustomizeView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitabbarcustomizeview?language=objc}UITabBarCustomizeView} *) -let adjustDragImageWithTouches x ~withEvent self = msg_send ~self ~cmd:(selector "adjustDragImageWithTouches:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let availableItems self = msg_send ~self ~cmd:(selector "availableItems") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let itemInTabBarWithTouches x ~withEvent self = msg_send ~self ~cmd:(selector "itemInTabBarWithTouches:withEvent:") ~typ:(id @-> id @-> returning (id)) x withEvent -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let navigationBar self = msg_send ~self ~cmd:(selector "navigationBar") ~typ:(returning (id)) -let setAvailableItems x self = msg_send ~self ~cmd:(selector "setAvailableItems:") ~typ:(id @-> returning (void)) x -let setIsBeingDismissed self = msg_send ~self ~cmd:(selector "setIsBeingDismissed") ~typ:(returning (void)) -let setNavigationBar x self = msg_send ~self ~cmd:(selector "setNavigationBar:") ~typ:(id @-> returning (void)) x -let setTabBar x ~currentItems ~availableItems self = msg_send ~self ~cmd:(selector "setTabBar:currentItems:availableItems:") ~typ:(id @-> id @-> id @-> returning (void)) x currentItems availableItems -let tabBarTouchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "tabBarTouchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let tabBarTouchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "tabBarTouchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let tabBarTouchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "tabBarTouchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let tabBarTouchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "tabBarTouchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let tintTabBarItemsForEdit x self = msg_send ~self ~cmd:(selector "tintTabBarItemsForEdit:") ~typ:(bool @-> returning (void)) x -let titleLabelFont self = msg_send ~self ~cmd:(selector "titleLabelFont") ~typ:(returning (id)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateProxiesSelection self = msg_send ~self ~cmd:(selector "updateProxiesSelection") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UITabBarCustomizeView" + +let adjustDragImageWithTouches x ~withEvent self = msg_send ~self ~cmd:(selector "adjustDragImageWithTouches:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let availableItems self = msg_send ~self ~cmd:(selector "availableItems") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let itemInTabBarWithTouches x ~withEvent self = msg_send ~self ~cmd:(selector "itemInTabBarWithTouches:withEvent:") ~typ:(id @-> id @-> returning id) x withEvent +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let navigationBar self = msg_send ~self ~cmd:(selector "navigationBar") ~typ:(returning id) +let setAvailableItems x self = msg_send ~self ~cmd:(selector "setAvailableItems:") ~typ:(id @-> returning void) x +let setIsBeingDismissed self = msg_send ~self ~cmd:(selector "setIsBeingDismissed") ~typ:(returning void) +let setNavigationBar x self = msg_send ~self ~cmd:(selector "setNavigationBar:") ~typ:(id @-> returning void) x +let setTabBar x ~currentItems ~availableItems self = msg_send ~self ~cmd:(selector "setTabBar:currentItems:availableItems:") ~typ:(id @-> id @-> id @-> returning void) x currentItems availableItems +let tabBarTouchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "tabBarTouchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let tabBarTouchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "tabBarTouchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let tabBarTouchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "tabBarTouchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let tabBarTouchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "tabBarTouchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let tintTabBarItemsForEdit x self = msg_send ~self ~cmd:(selector "tintTabBarItemsForEdit:") ~typ:(bool @-> returning void) x +let titleLabelFont self = msg_send ~self ~cmd:(selector "titleLabelFont") ~typ:(returning id) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let updateProxiesSelection self = msg_send ~self ~cmd:(selector "updateProxiesSelection") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UITabBarItem.ml b/uikit/UITabBarItem.ml index a20cffbd..fcae3672 100644 --- a/uikit/UITabBarItem.ml +++ b/uikit/UITabBarItem.ml @@ -5,65 +5,75 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITabBarItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitabbaritem?language=objc}UITabBarItem} *) -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (_SEL)) -let animatedBadge self = msg_send ~self ~cmd:(selector "animatedBadge") ~typ:(returning (bool)) -let appearance x ~categoriesChanged self = msg_send ~self ~cmd:(selector "appearance:categoriesChanged:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int categoriesChanged) -let badgeColor self = msg_send ~self ~cmd:(selector "badgeColor") ~typ:(returning (id)) -let badgeTextAttributesForState x self = msg_send ~self ~cmd:(selector "badgeTextAttributesForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let badgeValue self = msg_send ~self ~cmd:(selector "badgeValue") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let finishedSelectedImage self = msg_send ~self ~cmd:(selector "finishedSelectedImage") ~typ:(returning (id)) -let finishedUnselectedImage self = msg_send ~self ~cmd:(selector "finishedUnselectedImage") ~typ:(returning (id)) -let hasTitle self = msg_send ~self ~cmd:(selector "hasTitle") ~typ:(returning (bool)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithTabBarSystemItem x ~tag self = msg_send ~self ~cmd:(selector "initWithTabBarSystemItem:tag:") ~typ:(llong @-> llong @-> returning (id)) (LLong.of_int x) (LLong.of_int tag) -let initWithTitle x ~image ~selectedImage self = msg_send ~self ~cmd:(selector "initWithTitle:image:selectedImage:") ~typ:(id @-> id @-> id @-> returning (id)) x image selectedImage -let initWithTitle' x ~image ~tag self = msg_send ~self ~cmd:(selector "initWithTitle:image:tag:") ~typ:(id @-> id @-> llong @-> returning (id)) x image (LLong.of_int tag) -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning (bool)) -let isSystemItem self = msg_send ~self ~cmd:(selector "isSystemItem") ~typ:(returning (bool)) -let landscapeImagePhone self = msg_send ~self ~cmd:(selector "landscapeImagePhone") ~typ:(returning (id)) -let landscapeSelectedImagePhone self = msg_send ~self ~cmd:(selector "landscapeSelectedImagePhone") ~typ:(returning (id)) -let largeContentSizeImage self = msg_send ~self ~cmd:(selector "largeContentSizeImage") ~typ:(returning (id)) -let resolvedTitle self = msg_send ~self ~cmd:(selector "resolvedTitle") ~typ:(returning (id)) -let scrollEdgeAppearance self = msg_send ~self ~cmd:(selector "scrollEdgeAppearance") ~typ:(returning (id)) -let selectedImage self = msg_send ~self ~cmd:(selector "selectedImage") ~typ:(returning (id)) -let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(_SEL @-> returning (void)) x -let setAnimatedBadge x self = msg_send ~self ~cmd:(selector "setAnimatedBadge:") ~typ:(bool @-> returning (void)) x -let setBadgeColor x self = msg_send ~self ~cmd:(selector "setBadgeColor:") ~typ:(id @-> returning (void)) x -let setBadgeOffset x self = msg_send ~self ~cmd:(selector "setBadgeOffset:") ~typ:(ptr void @-> returning (void)) x -let setBadgeTextAttributes x ~forState self = msg_send ~self ~cmd:(selector "setBadgeTextAttributes:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setBadgeValue x self = msg_send ~self ~cmd:(selector "setBadgeValue:") ~typ:(id @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setFinishedSelectedImage x ~withFinishedUnselectedImage self = msg_send ~self ~cmd:(selector "setFinishedSelectedImage:withFinishedUnselectedImage:") ~typ:(id @-> id @-> returning (void)) x withFinishedUnselectedImage -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setImageInsets x self = msg_send ~self ~cmd:(selector "setImageInsets:") ~typ:(ptr void @-> returning (void)) x -let setLandscapeImagePhone x self = msg_send ~self ~cmd:(selector "setLandscapeImagePhone:") ~typ:(id @-> returning (void)) x -let setLandscapeImagePhoneInsets x self = msg_send ~self ~cmd:(selector "setLandscapeImagePhoneInsets:") ~typ:(ptr void @-> returning (void)) x -let setLandscapePhoneBadgeOffset x self = msg_send ~self ~cmd:(selector "setLandscapePhoneBadgeOffset:") ~typ:(ptr void @-> returning (void)) x -let setLandscapeSelectedImagePhone x self = msg_send ~self ~cmd:(selector "setLandscapeSelectedImagePhone:") ~typ:(id @-> returning (void)) x -let setLargeContentSizeImage x self = msg_send ~self ~cmd:(selector "setLargeContentSizeImage:") ~typ:(id @-> returning (void)) x -let setLargeContentSizeImageInsets x self = msg_send ~self ~cmd:(selector "setLargeContentSizeImageInsets:") ~typ:(ptr void @-> returning (void)) x -let setScrollEdgeAppearance x self = msg_send ~self ~cmd:(selector "setScrollEdgeAppearance:") ~typ:(id @-> returning (void)) x -let setSelectedImage x self = msg_send ~self ~cmd:(selector "setSelectedImage:") ~typ:(id @-> returning (void)) x -let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning (void)) x -let setStandardAppearance x self = msg_send ~self ~cmd:(selector "setStandardAppearance:") ~typ:(id @-> returning (void)) x -let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setTitlePositionAdjustment x self = msg_send ~self ~cmd:(selector "setTitlePositionAdjustment:") ~typ:(ptr void @-> returning (void)) x -let setTitleTextAttributes x ~forState self = msg_send ~self ~cmd:(selector "setTitleTextAttributes:forState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forState) -let setUnselectedImage x self = msg_send ~self ~cmd:(selector "setUnselectedImage:") ~typ:(id @-> returning (void)) x -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let standardAppearance self = msg_send ~self ~cmd:(selector "standardAppearance") ~typ:(returning (id)) -let systemItem self = msg_send ~self ~cmd:(selector "systemItem") ~typ:(returning (llong)) -let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning (id)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let titleTextAttributesForState x self = msg_send ~self ~cmd:(selector "titleTextAttributesForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let unselectedImage self = msg_send ~self ~cmd:(selector "unselectedImage") ~typ:(returning (id)) -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITabBarItem" + +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning _SEL) +let animatedBadge self = msg_send ~self ~cmd:(selector "animatedBadge") ~typ:(returning bool) +let appearance x ~categoriesChanged self = msg_send ~self ~cmd:(selector "appearance:categoriesChanged:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int categoriesChanged) +let badgeColor self = msg_send ~self ~cmd:(selector "badgeColor") ~typ:(returning id) +let badgeOffset self = msg_send ~self ~cmd:(selector "badgeOffset") ~typ:(returning UIOffset.t) +let badgeTextAttributesForState x self = msg_send ~self ~cmd:(selector "badgeTextAttributesForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let badgeValue self = msg_send ~self ~cmd:(selector "badgeValue") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let finishedSelectedImage self = msg_send ~self ~cmd:(selector "finishedSelectedImage") ~typ:(returning id) +let finishedUnselectedImage self = msg_send ~self ~cmd:(selector "finishedUnselectedImage") ~typ:(returning id) +let hasTitle self = msg_send ~self ~cmd:(selector "hasTitle") ~typ:(returning bool) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let imageInsets self = msg_send ~self ~cmd:(selector "imageInsets") ~typ:(returning UIEdgeInsets.t) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithTabBarSystemItem x ~tag self = msg_send ~self ~cmd:(selector "initWithTabBarSystemItem:tag:") ~typ:(llong @-> llong @-> returning id) (LLong.of_int x) (LLong.of_int tag) +let initWithTitle x ~image ~selectedImage self = msg_send ~self ~cmd:(selector "initWithTitle:image:selectedImage:") ~typ:(id @-> id @-> id @-> returning id) x image selectedImage +let initWithTitle' x ~image ~tag self = msg_send ~self ~cmd:(selector "initWithTitle:image:tag:") ~typ:(id @-> id @-> llong @-> returning id) x image (LLong.of_int tag) +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning bool) +let isSystemItem self = msg_send ~self ~cmd:(selector "isSystemItem") ~typ:(returning bool) +let landscapeImagePhone self = msg_send ~self ~cmd:(selector "landscapeImagePhone") ~typ:(returning id) +let landscapeImagePhoneInsets self = msg_send ~self ~cmd:(selector "landscapeImagePhoneInsets") ~typ:(returning UIEdgeInsets.t) +let landscapePhoneBadgeOffset self = msg_send ~self ~cmd:(selector "landscapePhoneBadgeOffset") ~typ:(returning UIOffset.t) +let landscapeSelectedImagePhone self = msg_send ~self ~cmd:(selector "landscapeSelectedImagePhone") ~typ:(returning id) +let largeContentSizeImage self = msg_send ~self ~cmd:(selector "largeContentSizeImage") ~typ:(returning id) +let largeContentSizeImageInsets self = msg_send ~self ~cmd:(selector "largeContentSizeImageInsets") ~typ:(returning UIEdgeInsets.t) +let resolvedTitle self = msg_send ~self ~cmd:(selector "resolvedTitle") ~typ:(returning id) +let scrollEdgeAppearance self = msg_send ~self ~cmd:(selector "scrollEdgeAppearance") ~typ:(returning id) +let selectedImage self = msg_send ~self ~cmd:(selector "selectedImage") ~typ:(returning id) +let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(_SEL @-> returning void) x +let setAnimatedBadge x self = msg_send ~self ~cmd:(selector "setAnimatedBadge:") ~typ:(bool @-> returning void) x +let setBadgeColor x self = msg_send ~self ~cmd:(selector "setBadgeColor:") ~typ:(id @-> returning void) x +let setBadgeOffset x self = msg_send ~self ~cmd:(selector "setBadgeOffset:") ~typ:(UIOffset.t @-> returning void) x +let setBadgeTextAttributes x ~forState self = msg_send ~self ~cmd:(selector "setBadgeTextAttributes:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setBadgeValue x self = msg_send ~self ~cmd:(selector "setBadgeValue:") ~typ:(id @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setFinishedSelectedImage x ~withFinishedUnselectedImage self = msg_send ~self ~cmd:(selector "setFinishedSelectedImage:withFinishedUnselectedImage:") ~typ:(id @-> id @-> returning void) x withFinishedUnselectedImage +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setImageInsets x self = msg_send ~self ~cmd:(selector "setImageInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setLandscapeImagePhone x self = msg_send ~self ~cmd:(selector "setLandscapeImagePhone:") ~typ:(id @-> returning void) x +let setLandscapeImagePhoneInsets x self = msg_send ~self ~cmd:(selector "setLandscapeImagePhoneInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setLandscapePhoneBadgeOffset x self = msg_send ~self ~cmd:(selector "setLandscapePhoneBadgeOffset:") ~typ:(UIOffset.t @-> returning void) x +let setLandscapeSelectedImagePhone x self = msg_send ~self ~cmd:(selector "setLandscapeSelectedImagePhone:") ~typ:(id @-> returning void) x +let setLargeContentSizeImage x self = msg_send ~self ~cmd:(selector "setLargeContentSizeImage:") ~typ:(id @-> returning void) x +let setLargeContentSizeImageInsets x self = msg_send ~self ~cmd:(selector "setLargeContentSizeImageInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setScrollEdgeAppearance x self = msg_send ~self ~cmd:(selector "setScrollEdgeAppearance:") ~typ:(id @-> returning void) x +let setSelectedImage x self = msg_send ~self ~cmd:(selector "setSelectedImage:") ~typ:(id @-> returning void) x +let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning void) x +let setStandardAppearance x self = msg_send ~self ~cmd:(selector "setStandardAppearance:") ~typ:(id @-> returning void) x +let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let setTitlePositionAdjustment x self = msg_send ~self ~cmd:(selector "setTitlePositionAdjustment:") ~typ:(UIOffset.t @-> returning void) x +let setTitleTextAttributes x ~forState self = msg_send ~self ~cmd:(selector "setTitleTextAttributes:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setUnselectedImage x self = msg_send ~self ~cmd:(selector "setUnselectedImage:") ~typ:(id @-> returning void) x +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let standardAppearance self = msg_send ~self ~cmd:(selector "standardAppearance") ~typ:(returning id) +let systemItem self = msg_send ~self ~cmd:(selector "systemItem") ~typ:(returning llong) +let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning id) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let titlePositionAdjustment self = msg_send ~self ~cmd:(selector "titlePositionAdjustment") ~typ:(returning UIOffset.t) +let titleTextAttributesForState x self = msg_send ~self ~cmd:(selector "titleTextAttributesForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let unselectedImage self = msg_send ~self ~cmd:(selector "unselectedImage") ~typ:(returning id) +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITabBarItemAppearance.ml b/uikit/UITabBarItemAppearance.ml index c15c38a4..8e7c4d8e 100644 --- a/uikit/UITabBarItemAppearance.ml +++ b/uikit/UITabBarItemAppearance.ml @@ -5,27 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITabBarItemAppearance" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitabbaritemappearance?language=objc}UITabBarItemAppearance} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UITabBarItemAppearance" -let configureWithDefaultForStyle x self = msg_send ~self ~cmd:(selector "configureWithDefaultForStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let copy self = msg_send ~self ~cmd:(selector "copy") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let disabled self = msg_send ~self ~cmd:(selector "disabled") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let focused self = msg_send ~self ~cmd:(selector "focused") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let highlighted self = msg_send ~self ~cmd:(selector "highlighted") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithStyle x self = msg_send ~self ~cmd:(selector "initWithStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let initWithTabBarItemAppearance x self = msg_send ~self ~cmd:(selector "initWithTabBarItemAppearance:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let normal self = msg_send ~self ~cmd:(selector "normal") ~typ:(returning (id)) -let selected self = msg_send ~self ~cmd:(selector "selected") ~typ:(returning (id)) \ No newline at end of file +let configureWithDefaultForStyle x self = msg_send ~self ~cmd:(selector "configureWithDefaultForStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let copy self = msg_send ~self ~cmd:(selector "copy") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let disabled self = msg_send ~self ~cmd:(selector "disabled") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let focused self = msg_send ~self ~cmd:(selector "focused") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let highlighted self = msg_send ~self ~cmd:(selector "highlighted") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithStyle x self = msg_send ~self ~cmd:(selector "initWithStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let initWithTabBarItemAppearance x self = msg_send ~self ~cmd:(selector "initWithTabBarItemAppearance:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let normal self = msg_send ~self ~cmd:(selector "normal") ~typ:(returning id) +let selected self = msg_send ~self ~cmd:(selector "selected") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITabBarItemAppearanceClass.ml b/uikit/UITabBarItemAppearanceClass.ml new file mode 100644 index 00000000..51902088 --- /dev/null +++ b/uikit/UITabBarItemAppearanceClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitabbaritemappearance?language=objc}UITabBarItemAppearance} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITabBarItemProxy.ml b/uikit/UITabBarItemProxy.ml index 10ac0e7f..cb7165d7 100644 --- a/uikit/UITabBarItemProxy.ml +++ b/uikit/UITabBarItemProxy.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITabBarItemProxy" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitabbaritemproxy?language=objc}UITabBarItemProxy} *) -let initWithItem x ~inTabBar self = msg_send ~self ~cmd:(selector "initWithItem:inTabBar:") ~typ:(id @-> id @-> returning (id)) x inTabBar -let item self = msg_send ~self ~cmd:(selector "item") ~typ:(returning (id)) -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITabBarItemProxy" + +let initWithItem x ~inTabBar self = msg_send ~self ~cmd:(selector "initWithItem:inTabBar:") ~typ:(id @-> id @-> returning id) x inTabBar +let item self = msg_send ~self ~cmd:(selector "item") ~typ:(returning id) +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITabBarItemStateAppearance.ml b/uikit/UITabBarItemStateAppearance.ml index f57619d7..323eca0a 100644 --- a/uikit/UITabBarItemStateAppearance.ml +++ b/uikit/UITabBarItemStateAppearance.ml @@ -5,20 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITabBarItemStateAppearance" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitabbaritemstateappearance?language=objc}UITabBarItemStateAppearance} *) -let badgeBackgroundColor self = msg_send ~self ~cmd:(selector "badgeBackgroundColor") ~typ:(returning (id)) -let badgeTextAttributes self = msg_send ~self ~cmd:(selector "badgeTextAttributes") ~typ:(returning (id)) -let iconColor self = msg_send ~self ~cmd:(selector "iconColor") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let itemEffects self = msg_send ~self ~cmd:(selector "itemEffects") ~typ:(returning (id)) -let setBadgeBackgroundColor x self = msg_send ~self ~cmd:(selector "setBadgeBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBadgePositionAdjustment x self = msg_send ~self ~cmd:(selector "setBadgePositionAdjustment:") ~typ:(ptr void @-> returning (void)) x -let setBadgeTextAttributes x self = msg_send ~self ~cmd:(selector "setBadgeTextAttributes:") ~typ:(id @-> returning (void)) x -let setBadgeTitlePositionAdjustment x self = msg_send ~self ~cmd:(selector "setBadgeTitlePositionAdjustment:") ~typ:(ptr void @-> returning (void)) x -let setIconColor x self = msg_send ~self ~cmd:(selector "setIconColor:") ~typ:(id @-> returning (void)) x -let setItemEffects x self = msg_send ~self ~cmd:(selector "setItemEffects:") ~typ:(id @-> returning (void)) x -let setTitlePositionAdjustment x self = msg_send ~self ~cmd:(selector "setTitlePositionAdjustment:") ~typ:(ptr void @-> returning (void)) x -let setTitleTextAttributes x self = msg_send ~self ~cmd:(selector "setTitleTextAttributes:") ~typ:(id @-> returning (void)) x -let titleTextAttributes self = msg_send ~self ~cmd:(selector "titleTextAttributes") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITabBarItemStateAppearance" + +let badgeBackgroundColor self = msg_send ~self ~cmd:(selector "badgeBackgroundColor") ~typ:(returning id) +let badgePositionAdjustment self = msg_send ~self ~cmd:(selector "badgePositionAdjustment") ~typ:(returning UIOffset.t) +let badgeTextAttributes self = msg_send ~self ~cmd:(selector "badgeTextAttributes") ~typ:(returning id) +let badgeTitlePositionAdjustment self = msg_send ~self ~cmd:(selector "badgeTitlePositionAdjustment") ~typ:(returning UIOffset.t) +let iconColor self = msg_send ~self ~cmd:(selector "iconColor") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let itemEffects self = msg_send ~self ~cmd:(selector "itemEffects") ~typ:(returning id) +let setBadgeBackgroundColor x self = msg_send ~self ~cmd:(selector "setBadgeBackgroundColor:") ~typ:(id @-> returning void) x +let setBadgePositionAdjustment x self = msg_send ~self ~cmd:(selector "setBadgePositionAdjustment:") ~typ:(UIOffset.t @-> returning void) x +let setBadgeTextAttributes x self = msg_send ~self ~cmd:(selector "setBadgeTextAttributes:") ~typ:(id @-> returning void) x +let setBadgeTitlePositionAdjustment x self = msg_send ~self ~cmd:(selector "setBadgeTitlePositionAdjustment:") ~typ:(UIOffset.t @-> returning void) x +let setIconColor x self = msg_send ~self ~cmd:(selector "setIconColor:") ~typ:(id @-> returning void) x +let setItemEffects x self = msg_send ~self ~cmd:(selector "setItemEffects:") ~typ:(id @-> returning void) x +let setTitlePositionAdjustment x self = msg_send ~self ~cmd:(selector "setTitlePositionAdjustment:") ~typ:(UIOffset.t @-> returning void) x +let setTitleTextAttributes x self = msg_send ~self ~cmd:(selector "setTitleTextAttributes:") ~typ:(id @-> returning void) x +let titlePositionAdjustment self = msg_send ~self ~cmd:(selector "titlePositionAdjustment") ~typ:(returning UIOffset.t) +let titleTextAttributes self = msg_send ~self ~cmd:(selector "titleTextAttributes") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITabBarSwappableImageView.ml b/uikit/UITabBarSwappableImageView.ml index 9dd5c323..100b4644 100644 --- a/uikit/UITabBarSwappableImageView.ml +++ b/uikit/UITabBarSwappableImageView.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITabBarSwappableImageView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitabbarswappableimageview?language=objc}UITabBarSwappableImageView} *) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let initWithImage x ~alternateImage ~landscapeImage ~landscapeAlternateImage self = msg_send ~self ~cmd:(selector "initWithImage:alternateImage:landscapeImage:landscapeAlternateImage:") ~typ:(id @-> id @-> id @-> id @-> returning (id)) x alternateImage landscapeImage landscapeAlternateImage -let setAlternateImage x self = msg_send ~self ~cmd:(selector "setAlternateImage:") ~typ:(id @-> returning (void)) x -let setCurrentImage self = msg_send ~self ~cmd:(selector "setCurrentImage") ~typ:(returning (void)) -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setLandscape x self = msg_send ~self ~cmd:(selector "setLandscape:") ~typ:(bool @-> returning (void)) x -let showAlternateImage x self = msg_send ~self ~cmd:(selector "showAlternateImage:") ~typ:(bool @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x \ No newline at end of file +let self = get_class "UITabBarSwappableImageView" + +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let initWithImage x ~alternateImage ~landscapeImage ~landscapeAlternateImage self = msg_send ~self ~cmd:(selector "initWithImage:alternateImage:landscapeImage:landscapeAlternateImage:") ~typ:(id @-> id @-> id @-> id @-> returning id) x alternateImage landscapeImage landscapeAlternateImage +let setAlternateImage x self = msg_send ~self ~cmd:(selector "setAlternateImage:") ~typ:(id @-> returning void) x +let setCurrentImage self = msg_send ~self ~cmd:(selector "setCurrentImage") ~typ:(returning void) +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setLandscape x self = msg_send ~self ~cmd:(selector "setLandscape:") ~typ:(bool @-> returning void) x +let showAlternateImage x self = msg_send ~self ~cmd:(selector "showAlternateImage:") ~typ:(bool @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x \ No newline at end of file diff --git a/uikit/UITableCellAccessoryLayout.ml b/uikit/UITableCellAccessoryLayout.ml index 220ea0cd..749380e9 100644 --- a/uikit/UITableCellAccessoryLayout.ml +++ b/uikit/UITableCellAccessoryLayout.ml @@ -5,35 +5,39 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableCellAccessoryLayout" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitablecellaccessorylayout?language=objc}UITableCellAccessoryLayout} *) + +let self = get_class "UITableCellAccessoryLayout" let disclosureLayoutWidthProvider self = msg_send ~self ~cmd:(selector "disclosureLayoutWidthProvider") ~typ:(returning (ptr void)) -let edge self = msg_send ~self ~cmd:(selector "edge") ~typ:(returning (ullong)) -let endLayout self = msg_send_stret ~self ~cmd:(selector "endLayout") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let finalAlphaForAccessory x self = msg_send ~self ~cmd:(selector "finalAlphaForAccessory:") ~typ:(id @-> returning (double)) x -let finalAlphas self = msg_send ~self ~cmd:(selector "finalAlphas") ~typ:(returning (id)) -let finalFrameForAccessory x self = msg_send_stret ~self ~cmd:(selector "finalFrameForAccessory:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let finalFrames self = msg_send ~self ~cmd:(selector "finalFrames") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initialAlphaForAccessory x self = msg_send ~self ~cmd:(selector "initialAlphaForAccessory:") ~typ:(id @-> returning (double)) x -let initialAlphas self = msg_send ~self ~cmd:(selector "initialAlphas") ~typ:(returning (id)) -let initialFrameForAccessory x self = msg_send_stret ~self ~cmd:(selector "initialFrameForAccessory:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let initialFrames self = msg_send ~self ~cmd:(selector "initialFrames") ~typ:(returning (id)) -let manager self = msg_send ~self ~cmd:(selector "manager") ~typ:(returning (id)) -let prepareLayoutForAccessories x ~previousAccessories ~configurationIdentifier self = msg_send ~self ~cmd:(selector "prepareLayoutForAccessories:previousAccessories:configurationIdentifier:") ~typ:(id @-> id @-> id @-> returning (void)) x previousAccessories configurationIdentifier -let safeAreaInset self = msg_send ~self ~cmd:(selector "safeAreaInset") ~typ:(returning (double)) -let setDisclosureLayoutWidthProvider x self = msg_send ~self ~cmd:(selector "setDisclosureLayoutWidthProvider:") ~typ:(ptr void @-> returning (void)) x -let setEdge x self = msg_send ~self ~cmd:(selector "setEdge:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setFinalAlphas x self = msg_send ~self ~cmd:(selector "setFinalAlphas:") ~typ:(id @-> returning (void)) x -let setFinalFrames x self = msg_send ~self ~cmd:(selector "setFinalFrames:") ~typ:(id @-> returning (void)) x -let setInitialAlphas x self = msg_send ~self ~cmd:(selector "setInitialAlphas:") ~typ:(id @-> returning (void)) x -let setInitialFrames x self = msg_send ~self ~cmd:(selector "setInitialFrames:") ~typ:(id @-> returning (void)) x -let setManager x self = msg_send ~self ~cmd:(selector "setManager:") ~typ:(id @-> returning (void)) x -let setSafeAreaInset x self = msg_send ~self ~cmd:(selector "setSafeAreaInset:") ~typ:(double @-> returning (void)) x -let setSpacingBlock x self = msg_send ~self ~cmd:(selector "setSpacingBlock:") ~typ:(ptr void @-> returning (void)) x -let setStandardLayoutWidthProvider x self = msg_send ~self ~cmd:(selector "setStandardLayoutWidthProvider:") ~typ:(ptr void @-> returning (void)) x -let setTotalFrame x self = msg_send ~self ~cmd:(selector "setTotalFrame:") ~typ:(CGRect.t @-> returning (void)) x +let edge self = msg_send ~self ~cmd:(selector "edge") ~typ:(returning ullong) +let endLayout self = msg_send ~self ~cmd:(selector "endLayout") ~typ:(returning CGRect.t) +let finalAlphaForAccessory x self = msg_send ~self ~cmd:(selector "finalAlphaForAccessory:") ~typ:(id @-> returning double) x +let finalAlphas self = msg_send ~self ~cmd:(selector "finalAlphas") ~typ:(returning id) +let finalFrameForAccessory x self = msg_send ~self ~cmd:(selector "finalFrameForAccessory:") ~typ:(id @-> returning CGRect.t) x +let finalFrames self = msg_send ~self ~cmd:(selector "finalFrames") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initialAlphaForAccessory x self = msg_send ~self ~cmd:(selector "initialAlphaForAccessory:") ~typ:(id @-> returning double) x +let initialAlphas self = msg_send ~self ~cmd:(selector "initialAlphas") ~typ:(returning id) +let initialFrameForAccessory x self = msg_send ~self ~cmd:(selector "initialFrameForAccessory:") ~typ:(id @-> returning CGRect.t) x +let initialFrames self = msg_send ~self ~cmd:(selector "initialFrames") ~typ:(returning id) +let manager self = msg_send ~self ~cmd:(selector "manager") ~typ:(returning id) +let prepareLayoutForAccessories x ~previousAccessories ~configurationIdentifier self = msg_send ~self ~cmd:(selector "prepareLayoutForAccessories:previousAccessories:configurationIdentifier:") ~typ:(id @-> id @-> id @-> returning void) x previousAccessories configurationIdentifier +let safeAreaInset self = msg_send ~self ~cmd:(selector "safeAreaInset") ~typ:(returning double) +let setDisclosureLayoutWidthProvider x self = msg_send ~self ~cmd:(selector "setDisclosureLayoutWidthProvider:") ~typ:((ptr void) @-> returning void) x +let setEdge x self = msg_send ~self ~cmd:(selector "setEdge:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setFinalAlphas x self = msg_send ~self ~cmd:(selector "setFinalAlphas:") ~typ:(id @-> returning void) x +let setFinalFrames x self = msg_send ~self ~cmd:(selector "setFinalFrames:") ~typ:(id @-> returning void) x +let setInitialAlphas x self = msg_send ~self ~cmd:(selector "setInitialAlphas:") ~typ:(id @-> returning void) x +let setInitialFrames x self = msg_send ~self ~cmd:(selector "setInitialFrames:") ~typ:(id @-> returning void) x +let setManager x self = msg_send ~self ~cmd:(selector "setManager:") ~typ:(id @-> returning void) x +let setSafeAreaInset x self = msg_send ~self ~cmd:(selector "setSafeAreaInset:") ~typ:(double @-> returning void) x +let setSpacingBlock x self = msg_send ~self ~cmd:(selector "setSpacingBlock:") ~typ:((ptr void) @-> returning void) x +let setStandardLayoutWidthProvider x self = msg_send ~self ~cmd:(selector "setStandardLayoutWidthProvider:") ~typ:((ptr void) @-> returning void) x +let setTotalFrame x self = msg_send ~self ~cmd:(selector "setTotalFrame:") ~typ:(CGRect.t @-> returning void) x let spacingBlock self = msg_send ~self ~cmd:(selector "spacingBlock") ~typ:(returning (ptr void)) let standardLayoutWidthProvider self = msg_send ~self ~cmd:(selector "standardLayoutWidthProvider") ~typ:(returning (ptr void)) -let totalFrame self = msg_send_stret ~self ~cmd:(selector "totalFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t \ No newline at end of file +let totalFrame self = msg_send ~self ~cmd:(selector "totalFrame") ~typ:(returning CGRect.t) \ No newline at end of file diff --git a/uikit/UITableView.ml b/uikit/UITableView.ml index 6ac2245b..7c9a8bfe 100644 --- a/uikit/UITableView.ml +++ b/uikit/UITableView.ml @@ -5,265 +5,271 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableview?language=objc}UITableView} *) -let accessoryInsetsDidChange x self = msg_send ~self ~cmd:(selector "accessoryInsetsDidChange:") ~typ:(ptr void @-> returning (void)) x -let adjustIndexPaths x ~forMoveOfIndexPath ~toIndexPath self = msg_send ~self ~cmd:(selector "adjustIndexPaths:forMoveOfIndexPath:toIndexPath:") ~typ:(id @-> id @-> id @-> returning (void)) x forMoveOfIndexPath toIndexPath -let allowsFocus self = msg_send ~self ~cmd:(selector "allowsFocus") ~typ:(returning (bool)) -let allowsFocusDuringEditing self = msg_send ~self ~cmd:(selector "allowsFocusDuringEditing") ~typ:(returning (bool)) -let allowsFooterViewsToFloat self = msg_send ~self ~cmd:(selector "allowsFooterViewsToFloat") ~typ:(returning (bool)) -let allowsHeaderViewsToFloat self = msg_send ~self ~cmd:(selector "allowsHeaderViewsToFloat") ~typ:(returning (bool)) -let allowsMultipleSelection self = msg_send ~self ~cmd:(selector "allowsMultipleSelection") ~typ:(returning (bool)) -let allowsMultipleSelectionDuringEditing self = msg_send ~self ~cmd:(selector "allowsMultipleSelectionDuringEditing") ~typ:(returning (bool)) -let allowsSelection self = msg_send ~self ~cmd:(selector "allowsSelection") ~typ:(returning (bool)) -let allowsSelectionDuringEditing self = msg_send ~self ~cmd:(selector "allowsSelectionDuringEditing") ~typ:(returning (bool)) -let awakeFromNib self = msg_send ~self ~cmd:(selector "awakeFromNib") ~typ:(returning (void)) -let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning (id)) -let beginUpdates self = msg_send ~self ~cmd:(selector "beginUpdates") ~typ:(returning (void)) -let bringSubviewToFront x self = msg_send ~self ~cmd:(selector "bringSubviewToFront:") ~typ:(id @-> returning (void)) x -let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning (bool)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let cancelTouchTracking self = msg_send ~self ~cmd:(selector "cancelTouchTracking") ~typ:(returning (bool)) -let cellForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "cellForRowAtIndexPath:") ~typ:(id @-> returning (id)) x -let cellLayoutMarginsFollowReadableWidth self = msg_send ~self ~cmd:(selector "cellLayoutMarginsFollowReadableWidth") ~typ:(returning (bool)) -let contextMenuInteraction self = msg_send ~self ~cmd:(selector "contextMenuInteraction") ~typ:(returning (id)) -let contextMenuInteraction1 x ~configurationForMenuAtLocation self = msg_send ~self ~cmd:(selector "contextMenuInteraction:configurationForMenuAtLocation:") ~typ:(id @-> CGPoint.t @-> returning (id)) x configurationForMenuAtLocation -let contextMenuInteraction2 x ~previewForDismissingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForDismissingMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) x previewForDismissingMenuWithConfiguration -let contextMenuInteraction3 x ~previewForHighlightingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForHighlightingMenuWithConfiguration:") ~typ:(id @-> id @-> returning (id)) x previewForHighlightingMenuWithConfiguration -let contextMenuInteraction4 x ~willDisplayMenuForConfiguration ~animator self = msg_send ~self ~cmd:(selector "contextMenuInteraction:willDisplayMenuForConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willDisplayMenuForConfiguration animator -let contextMenuInteraction5 x ~willEndForConfiguration ~animator self = msg_send ~self ~cmd:(selector "contextMenuInteraction:willEndForConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willEndForConfiguration animator -let contextMenuInteraction6 x ~willPerformPreviewActionForMenuWithConfiguration ~animator self = msg_send ~self ~cmd:(selector "contextMenuInteraction:willPerformPreviewActionForMenuWithConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willPerformPreviewActionForMenuWithConfiguration animator -let contextualActionForDeletingRowAtIndexPath x self = msg_send ~self ~cmd:(selector "contextualActionForDeletingRowAtIndexPath:") ~typ:(id @-> returning (id)) x -let currentTouch self = msg_send ~self ~cmd:(selector "currentTouch") ~typ:(returning (id)) -let dataSource self = msg_send ~self ~cmd:(selector "dataSource") ~typ:(returning (id)) -let dataSourceIndexPathForPresentationIndexPath x self = msg_send ~self ~cmd:(selector "dataSourceIndexPathForPresentationIndexPath:") ~typ:(id @-> returning (id)) x -let dataSourceSectionIndexForPresentationSectionIndex x self = msg_send ~self ~cmd:(selector "dataSourceSectionIndexForPresentationSectionIndex:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let deleteConfirmationIndexPath self = msg_send ~self ~cmd:(selector "deleteConfirmationIndexPath") ~typ:(returning (id)) -let deleteRowsAtIndexPaths x ~withRowAnimation self = msg_send ~self ~cmd:(selector "deleteRowsAtIndexPaths:withRowAnimation:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int withRowAnimation) -let deleteSections x ~withRowAnimation self = msg_send ~self ~cmd:(selector "deleteSections:withRowAnimation:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int withRowAnimation) -let dequeueReusableCellWithIdentifier x self = msg_send ~self ~cmd:(selector "dequeueReusableCellWithIdentifier:") ~typ:(id @-> returning (id)) x -let dequeueReusableCellWithIdentifier' x ~forIndexPath self = msg_send ~self ~cmd:(selector "dequeueReusableCellWithIdentifier:forIndexPath:") ~typ:(id @-> id @-> returning (id)) x forIndexPath -let dequeueReusableHeaderFooterViewWithIdentifier x self = msg_send ~self ~cmd:(selector "dequeueReusableHeaderFooterViewWithIdentifier:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let deselectRowAtIndexPath x ~animated self = msg_send ~self ~cmd:(selector "deselectRowAtIndexPath:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let dragDelegate self = msg_send ~self ~cmd:(selector "dragDelegate") ~typ:(returning (id)) -let dragDestinationDelegate self = msg_send ~self ~cmd:(selector "dragDestinationDelegate") ~typ:(returning (id)) -let dragInteractionEnabled self = msg_send ~self ~cmd:(selector "dragInteractionEnabled") ~typ:(returning (bool)) -let dragSourceDelegate self = msg_send ~self ~cmd:(selector "dragSourceDelegate") ~typ:(returning (id)) -let dropDelegate self = msg_send ~self ~cmd:(selector "dropDelegate") ~typ:(returning (id)) -let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let endUpdates self = msg_send ~self ~cmd:(selector "endUpdates") ~typ:(returning (void)) -let endUpdatesWithContext x self = msg_send ~self ~cmd:(selector "endUpdatesWithContext:") ~typ:(id @-> returning (void)) x -let estimatedRowHeight self = msg_send ~self ~cmd:(selector "estimatedRowHeight") ~typ:(returning (double)) -let estimatedSectionFooterHeight self = msg_send ~self ~cmd:(selector "estimatedSectionFooterHeight") ~typ:(returning (double)) -let estimatedSectionHeaderHeight self = msg_send ~self ~cmd:(selector "estimatedSectionHeaderHeight") ~typ:(returning (double)) -let fillerRowHeight self = msg_send ~self ~cmd:(selector "fillerRowHeight") ~typ:(returning (double)) -let flashScrollIndicators self = msg_send ~self ~cmd:(selector "flashScrollIndicators") ~typ:(returning (void)) -let footerViewForSection x self = msg_send ~self ~cmd:(selector "footerViewForSection:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let gestureRecognizerViewForSwipeActionController x self = msg_send ~self ~cmd:(selector "gestureRecognizerViewForSwipeActionController:") ~typ:(id @-> returning (id)) x -let globalRowForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "globalRowForRowAtIndexPath:") ~typ:(id @-> returning (llong)) x -let hasActiveDrag self = msg_send ~self ~cmd:(selector "hasActiveDrag") ~typ:(returning (bool)) -let hasActiveDrop self = msg_send ~self ~cmd:(selector "hasActiveDrop") ~typ:(returning (bool)) -let hasUncommittedUpdates self = msg_send ~self ~cmd:(selector "hasUncommittedUpdates") ~typ:(returning (bool)) -let headerViewForSection x self = msg_send ~self ~cmd:(selector "headerViewForSection:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let heightForAutohidingTableHeaderView self = msg_send ~self ~cmd:(selector "heightForAutohidingTableHeaderView") ~typ:(returning (double)) -let heightForTableHeaderViewHiding self = msg_send ~self ~cmd:(selector "heightForTableHeaderViewHiding") ~typ:(returning (double)) -let highlightRowAtIndexPath x ~animated ~scrollPosition self = msg_send ~self ~cmd:(selector "highlightRowAtIndexPath:animated:scrollPosition:") ~typ:(id @-> bool @-> llong @-> returning (bool)) x animated (LLong.of_int scrollPosition) -let highlightedGlobalRow self = msg_send ~self ~cmd:(selector "highlightedGlobalRow") ~typ:(returning (llong)) -let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (id)) x forEvent -let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let ignorePinnedTableHeaderUpdates self = msg_send ~self ~cmd:(selector "ignorePinnedTableHeaderUpdates") ~typ:(returning (bool)) -let indexBarAccessoryView x ~contentOffsetForEntry ~atIndex self = msg_send_stret ~self ~cmd:(selector "indexBarAccessoryView:contentOffsetForEntry:atIndex:") ~typ:(id @-> id @-> llong @-> returning (CGPoint.t)) ~return_type:CGPoint.t x contentOffsetForEntry (LLong.of_int atIndex) -let indexFrame self = msg_send_stret ~self ~cmd:(selector "indexFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let indexPathForCell x self = msg_send ~self ~cmd:(selector "indexPathForCell:") ~typ:(id @-> returning (id)) x -let indexPathForRowAtGlobalRow x self = msg_send ~self ~cmd:(selector "indexPathForRowAtGlobalRow:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let indexPathForRowAtPoint x self = msg_send ~self ~cmd:(selector "indexPathForRowAtPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let indexPathForSelectedRow self = msg_send ~self ~cmd:(selector "indexPathForSelectedRow") ~typ:(returning (id)) -let indexPathsForRowsInRect x self = msg_send ~self ~cmd:(selector "indexPathsForRowsInRect:") ~typ:(CGRect.t @-> returning (id)) x -let indexPathsForSelectedRows self = msg_send ~self ~cmd:(selector "indexPathsForSelectedRows") ~typ:(returning (id)) -let indexPathsForVisibleRows self = msg_send ~self ~cmd:(selector "indexPathsForVisibleRows") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithFrame' x ~style self = msg_send ~self ~cmd:(selector "initWithFrame:style:") ~typ:(CGRect.t @-> llong @-> returning (id)) x (LLong.of_int style) -let insertRowsAtIndexPaths x ~withRowAnimation self = msg_send ~self ~cmd:(selector "insertRowsAtIndexPaths:withRowAnimation:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int withRowAnimation) -let insertSections x ~withRowAnimation self = msg_send ~self ~cmd:(selector "insertSections:withRowAnimation:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int withRowAnimation) -let insetsContentViewsToSafeArea self = msg_send ~self ~cmd:(selector "insetsContentViewsToSafeArea") ~typ:(returning (bool)) -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isIndexHidden self = msg_send ~self ~cmd:(selector "isIndexHidden") ~typ:(returning (bool)) -let isPrefetchingEnabled self = msg_send ~self ~cmd:(selector "isPrefetchingEnabled") ~typ:(returning (bool)) -let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning (bool)) -let itemContainerViewForSwipeActionController x self = msg_send ~self ~cmd:(selector "itemContainerViewForSwipeActionController:") ~typ:(id @-> returning (id)) x -let keyCommands self = msg_send ~self ~cmd:(selector "keyCommands") ~typ:(returning (id)) -let layoutDirectionForSwipeActionController x self = msg_send ~self ~cmd:(selector "layoutDirectionForSwipeActionController:") ~typ:(id @-> returning (llong)) x -let layoutMarginsFollowReadableWidth self = msg_send ~self ~cmd:(selector "layoutMarginsFollowReadableWidth") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let longPress x self = msg_send ~self ~cmd:(selector "longPress:") ~typ:(id @-> returning (void)) x -let longPressGestureWithinAutoscrollZone self = msg_send ~self ~cmd:(selector "longPressGestureWithinAutoscrollZone") ~typ:(returning (bool)) -let maximumGlobalRowIndex self = msg_send ~self ~cmd:(selector "maximumGlobalRowIndex") ~typ:(returning (llong)) -let maximumNumberOfSectionIndexTitlesWithoutTruncation self = msg_send ~self ~cmd:(selector "maximumNumberOfSectionIndexTitlesWithoutTruncation") ~typ:(returning (ullong)) -let moveRowAtIndexPath x ~toIndexPath self = msg_send ~self ~cmd:(selector "moveRowAtIndexPath:toIndexPath:") ~typ:(id @-> id @-> returning (void)) x toIndexPath -let moveSection x ~toSection self = msg_send ~self ~cmd:(selector "moveSection:toSection:") ~typ:(llong @-> llong @-> returning (void)) (LLong.of_int x) (LLong.of_int toSection) -let multiselectCheckmarkColor self = msg_send ~self ~cmd:(selector "multiselectCheckmarkColor") ~typ:(returning (id)) -let noteNumberOfRowsChanged self = msg_send ~self ~cmd:(selector "noteNumberOfRowsChanged") ~typ:(returning (void)) -let numberOfRowsInSection x self = msg_send ~self ~cmd:(selector "numberOfRowsInSection:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let numberOfSections self = msg_send ~self ~cmd:(selector "numberOfSections") ~typ:(returning (llong)) -let overlapsSectionHeaderViews self = msg_send ~self ~cmd:(selector "overlapsSectionHeaderViews") ~typ:(returning (bool)) -let performBatchUpdates x ~completion self = msg_send ~self ~cmd:(selector "performBatchUpdates:completion:") ~typ:(ptr void @-> ptr void @-> returning (void)) x completion -let performUsingPresentationValues x self = msg_send ~self ~cmd:(selector "performUsingPresentationValues:") ~typ:(ptr void @-> returning (void)) x -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let prefetchDataSource self = msg_send ~self ~cmd:(selector "prefetchDataSource") ~typ:(returning (id)) -let presentationIndexPathForDataSourceIndexPath x self = msg_send ~self ~cmd:(selector "presentationIndexPathForDataSourceIndexPath:") ~typ:(id @-> returning (id)) x -let presentationSectionIndexForDataSourceSectionIndex x self = msg_send ~self ~cmd:(selector "presentationSectionIndexForDataSourceSectionIndex:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let reconfigureRowsAtIndexPaths x self = msg_send ~self ~cmd:(selector "reconfigureRowsAtIndexPaths:") ~typ:(id @-> returning (void)) x -let rectForFooterInSection x self = msg_send_stret ~self ~cmd:(selector "rectForFooterInSection:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) -let rectForHeaderInSection x self = msg_send_stret ~self ~cmd:(selector "rectForHeaderInSection:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) -let rectForRowAtIndexPath x self = msg_send_stret ~self ~cmd:(selector "rectForRowAtIndexPath:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let rectForSection x self = msg_send_stret ~self ~cmd:(selector "rectForSection:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) -let registerClass x ~forCellReuseIdentifier self = msg_send ~self ~cmd:(selector "registerClass:forCellReuseIdentifier:") ~typ:(_Class @-> id @-> returning (void)) x forCellReuseIdentifier -let registerClass' x ~forHeaderFooterViewReuseIdentifier self = msg_send ~self ~cmd:(selector "registerClass:forHeaderFooterViewReuseIdentifier:") ~typ:(_Class @-> id @-> returning (void)) x forHeaderFooterViewReuseIdentifier -let registerNib x ~forCellReuseIdentifier self = msg_send ~self ~cmd:(selector "registerNib:forCellReuseIdentifier:") ~typ:(id @-> id @-> returning (void)) x forCellReuseIdentifier -let registerNib' x ~forHeaderFooterViewReuseIdentifier self = msg_send ~self ~cmd:(selector "registerNib:forHeaderFooterViewReuseIdentifier:") ~typ:(id @-> id @-> returning (void)) x forHeaderFooterViewReuseIdentifier -let reloadData self = msg_send ~self ~cmd:(selector "reloadData") ~typ:(returning (void)) -let reloadRowsAtIndexPaths x ~withRowAnimation self = msg_send ~self ~cmd:(selector "reloadRowsAtIndexPaths:withRowAnimation:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int withRowAnimation) -let reloadSectionIndexTitles self = msg_send ~self ~cmd:(selector "reloadSectionIndexTitles") ~typ:(returning (void)) -let reloadSections x ~withRowAnimation self = msg_send ~self ~cmd:(selector "reloadSections:withRowAnimation:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int withRowAnimation) -let remembersLastFocusedIndexPath self = msg_send ~self ~cmd:(selector "remembersLastFocusedIndexPath") ~typ:(returning (bool)) -let resizeSubviewsWithOldSize x self = msg_send ~self ~cmd:(selector "resizeSubviewsWithOldSize:") ~typ:(CGSize.t @-> returning (void)) x -let rowHeight self = msg_send ~self ~cmd:(selector "rowHeight") ~typ:(returning (double)) -let scrollToNearestSelectedRowAtScrollPosition x ~animated self = msg_send ~self ~cmd:(selector "scrollToNearestSelectedRowAtScrollPosition:animated:") ~typ:(llong @-> bool @-> returning (void)) (LLong.of_int x) animated -let scrollToRowAtIndexPath x ~atScrollPosition ~animated self = msg_send ~self ~cmd:(selector "scrollToRowAtIndexPath:atScrollPosition:animated:") ~typ:(id @-> llong @-> bool @-> returning (void)) x (LLong.of_int atScrollPosition) animated -let sectionBorderColor self = msg_send ~self ~cmd:(selector "sectionBorderColor") ~typ:(returning (id)) -let sectionFooterHeight self = msg_send ~self ~cmd:(selector "sectionFooterHeight") ~typ:(returning (double)) -let sectionHeaderHeight self = msg_send ~self ~cmd:(selector "sectionHeaderHeight") ~typ:(returning (double)) -let sectionHeaderTopPadding self = msg_send ~self ~cmd:(selector "sectionHeaderTopPadding") ~typ:(returning (double)) -let sectionIndexBackgroundColor self = msg_send ~self ~cmd:(selector "sectionIndexBackgroundColor") ~typ:(returning (id)) -let sectionIndexColor self = msg_send ~self ~cmd:(selector "sectionIndexColor") ~typ:(returning (id)) -let sectionIndexMinimumDisplayRowCount self = msg_send ~self ~cmd:(selector "sectionIndexMinimumDisplayRowCount") ~typ:(returning (llong)) -let sectionIndexTrackingBackgroundColor self = msg_send ~self ~cmd:(selector "sectionIndexTrackingBackgroundColor") ~typ:(returning (id)) -let selectRowAtIndexPath x ~animated ~scrollPosition self = msg_send ~self ~cmd:(selector "selectRowAtIndexPath:animated:scrollPosition:") ~typ:(id @-> bool @-> llong @-> returning (void)) x animated (LLong.of_int scrollPosition) -let selectedCell self = msg_send ~self ~cmd:(selector "selectedCell") ~typ:(returning (id)) -let selectionFollowsFocus self = msg_send ~self ~cmd:(selector "selectionFollowsFocus") ~typ:(returning (bool)) -let sendSubviewToBack x self = msg_send ~self ~cmd:(selector "sendSubviewToBack:") ~typ:(id @-> returning (void)) x -let separatorBottomShadowColor self = msg_send ~self ~cmd:(selector "separatorBottomShadowColor") ~typ:(returning (id)) -let separatorColor self = msg_send ~self ~cmd:(selector "separatorColor") ~typ:(returning (id)) -let separatorEffect self = msg_send ~self ~cmd:(selector "separatorEffect") ~typ:(returning (id)) -let separatorInsetReference self = msg_send ~self ~cmd:(selector "separatorInsetReference") ~typ:(returning (llong)) -let separatorStyle self = msg_send ~self ~cmd:(selector "separatorStyle") ~typ:(returning (llong)) -let separatorTopShadowColor self = msg_send ~self ~cmd:(selector "separatorTopShadowColor") ~typ:(returning (id)) -let setAllowsFocus x self = msg_send ~self ~cmd:(selector "setAllowsFocus:") ~typ:(bool @-> returning (void)) x -let setAllowsFocusDuringEditing x self = msg_send ~self ~cmd:(selector "setAllowsFocusDuringEditing:") ~typ:(bool @-> returning (void)) x -let setAllowsMultipleSelection x self = msg_send ~self ~cmd:(selector "setAllowsMultipleSelection:") ~typ:(bool @-> returning (void)) x -let setAllowsMultipleSelectionDuringEditing x self = msg_send ~self ~cmd:(selector "setAllowsMultipleSelectionDuringEditing:") ~typ:(bool @-> returning (void)) x -let setAllowsSelection x self = msg_send ~self ~cmd:(selector "setAllowsSelection:") ~typ:(bool @-> returning (void)) x -let setAllowsSelectionDuringEditing x self = msg_send ~self ~cmd:(selector "setAllowsSelectionDuringEditing:") ~typ:(bool @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setCellLayoutMarginsFollowReadableWidth x self = msg_send ~self ~cmd:(selector "setCellLayoutMarginsFollowReadableWidth:") ~typ:(bool @-> returning (void)) x -let setContentInset x self = msg_send ~self ~cmd:(selector "setContentInset:") ~typ:(ptr void @-> returning (void)) x -let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let setContentSize x self = msg_send ~self ~cmd:(selector "setContentSize:") ~typ:(CGSize.t @-> returning (void)) x -let setContentSize' x ~skipContentOffsetAdjustment self = msg_send ~self ~cmd:(selector "setContentSize:skipContentOffsetAdjustment:") ~typ:(CGSize.t @-> bool @-> returning (void)) x skipContentOffsetAdjustment -let setCountString x self = msg_send ~self ~cmd:(selector "setCountString:") ~typ:(id @-> returning (void)) x -let setCountStringInsignificantRowCount x self = msg_send ~self ~cmd:(selector "setCountStringInsignificantRowCount:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setCurrentTouch x self = msg_send ~self ~cmd:(selector "setCurrentTouch:") ~typ:(id @-> returning (void)) x -let setDataSource x self = msg_send ~self ~cmd:(selector "setDataSource:") ~typ:(id @-> returning (void)) x -let setDelaysContentTouches x self = msg_send ~self ~cmd:(selector "setDelaysContentTouches:") ~typ:(bool @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDeleteConfirmationIndexPath x ~animated self = msg_send ~self ~cmd:(selector "setDeleteConfirmationIndexPath:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setDirectionalLayoutMargins x self = msg_send ~self ~cmd:(selector "setDirectionalLayoutMargins:") ~typ:(ptr void @-> returning (void)) x -let setDragDelegate x self = msg_send ~self ~cmd:(selector "setDragDelegate:") ~typ:(id @-> returning (void)) x -let setDragDestinationDelegate x self = msg_send ~self ~cmd:(selector "setDragDestinationDelegate:") ~typ:(id @-> returning (void)) x -let setDragInteractionEnabled x self = msg_send ~self ~cmd:(selector "setDragInteractionEnabled:") ~typ:(bool @-> returning (void)) x -let setDragSourceDelegate x self = msg_send ~self ~cmd:(selector "setDragSourceDelegate:") ~typ:(id @-> returning (void)) x -let setDropDelegate x self = msg_send ~self ~cmd:(selector "setDropDelegate:") ~typ:(id @-> returning (void)) x -let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning (void)) x -let setEditing' x ~animated self = msg_send ~self ~cmd:(selector "setEditing:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setEstimatedRowHeight x self = msg_send ~self ~cmd:(selector "setEstimatedRowHeight:") ~typ:(double @-> returning (void)) x -let setEstimatedSectionFooterHeight x self = msg_send ~self ~cmd:(selector "setEstimatedSectionFooterHeight:") ~typ:(double @-> returning (void)) x -let setEstimatedSectionHeaderHeight x self = msg_send ~self ~cmd:(selector "setEstimatedSectionHeaderHeight:") ~typ:(double @-> returning (void)) x -let setFillerRowHeight x self = msg_send ~self ~cmd:(selector "setFillerRowHeight:") ~typ:(double @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setIndexHidden x ~animated self = msg_send ~self ~cmd:(selector "setIndexHidden:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setIndexHiddenForSearch x self = msg_send ~self ~cmd:(selector "setIndexHiddenForSearch:") ~typ:(bool @-> returning (void)) x -let setInsetsContentViewsToSafeArea x self = msg_send ~self ~cmd:(selector "setInsetsContentViewsToSafeArea:") ~typ:(bool @-> returning (void)) x -let setInsetsLayoutMarginsFromSafeArea x self = msg_send ~self ~cmd:(selector "setInsetsLayoutMarginsFromSafeArea:") ~typ:(bool @-> returning (void)) x -let setLayoutMargins x self = msg_send ~self ~cmd:(selector "setLayoutMargins:") ~typ:(ptr void @-> returning (void)) x -let setLayoutMarginsFollowReadableWidth x self = msg_send ~self ~cmd:(selector "setLayoutMarginsFollowReadableWidth:") ~typ:(bool @-> returning (void)) x -let setMultiselectCheckmarkColor x self = msg_send ~self ~cmd:(selector "setMultiselectCheckmarkColor:") ~typ:(id @-> returning (void)) x -let setOverlapsSectionHeaderViews x self = msg_send ~self ~cmd:(selector "setOverlapsSectionHeaderViews:") ~typ:(bool @-> returning (void)) x -let setPrefetchDataSource x self = msg_send ~self ~cmd:(selector "setPrefetchDataSource:") ~typ:(id @-> returning (void)) x -let setPrefetchingEnabled x self = msg_send ~self ~cmd:(selector "setPrefetchingEnabled:") ~typ:(bool @-> returning (void)) x -let setRefreshControl x self = msg_send ~self ~cmd:(selector "setRefreshControl:") ~typ:(id @-> returning (void)) x -let setRemembersLastFocusedIndexPath x self = msg_send ~self ~cmd:(selector "setRemembersLastFocusedIndexPath:") ~typ:(bool @-> returning (void)) x -let setRowHeight x self = msg_send ~self ~cmd:(selector "setRowHeight:") ~typ:(double @-> returning (void)) x -let setSectionBorderColor x self = msg_send ~self ~cmd:(selector "setSectionBorderColor:") ~typ:(id @-> returning (void)) x -let setSectionFooterHeight x self = msg_send ~self ~cmd:(selector "setSectionFooterHeight:") ~typ:(double @-> returning (void)) x -let setSectionHeaderHeight x self = msg_send ~self ~cmd:(selector "setSectionHeaderHeight:") ~typ:(double @-> returning (void)) x -let setSectionHeaderTopPadding x self = msg_send ~self ~cmd:(selector "setSectionHeaderTopPadding:") ~typ:(double @-> returning (void)) x -let setSectionIndexBackgroundColor x self = msg_send ~self ~cmd:(selector "setSectionIndexBackgroundColor:") ~typ:(id @-> returning (void)) x -let setSectionIndexColor x self = msg_send ~self ~cmd:(selector "setSectionIndexColor:") ~typ:(id @-> returning (void)) x -let setSectionIndexMinimumDisplayRowCount x self = msg_send ~self ~cmd:(selector "setSectionIndexMinimumDisplayRowCount:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSectionIndexTrackingBackgroundColor x self = msg_send ~self ~cmd:(selector "setSectionIndexTrackingBackgroundColor:") ~typ:(id @-> returning (void)) x -let setSelectionFollowsFocus x self = msg_send ~self ~cmd:(selector "setSelectionFollowsFocus:") ~typ:(bool @-> returning (void)) x -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSeparatorBottomShadowColor x self = msg_send ~self ~cmd:(selector "setSeparatorBottomShadowColor:") ~typ:(id @-> returning (void)) x -let setSeparatorColor x self = msg_send ~self ~cmd:(selector "setSeparatorColor:") ~typ:(id @-> returning (void)) x -let setSeparatorEffect x self = msg_send ~self ~cmd:(selector "setSeparatorEffect:") ~typ:(id @-> returning (void)) x -let setSeparatorInset x self = msg_send ~self ~cmd:(selector "setSeparatorInset:") ~typ:(ptr void @-> returning (void)) x -let setSeparatorInsetReference x self = msg_send ~self ~cmd:(selector "setSeparatorInsetReference:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSeparatorStyle x self = msg_send ~self ~cmd:(selector "setSeparatorStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSeparatorTopShadowColor x self = msg_send ~self ~cmd:(selector "setSeparatorTopShadowColor:") ~typ:(id @-> returning (void)) x -let setShowsHorizontalScrollIndicator x self = msg_send ~self ~cmd:(selector "setShowsHorizontalScrollIndicator:") ~typ:(bool @-> returning (void)) x -let setShowsVerticalScrollIndicator x self = msg_send ~self ~cmd:(selector "setShowsVerticalScrollIndicator:") ~typ:(bool @-> returning (void)) x -let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning (void)) x -let setTableFooterView x self = msg_send ~self ~cmd:(selector "setTableFooterView:") ~typ:(id @-> returning (void)) x -let setTableHeaderBackgroundColor x self = msg_send ~self ~cmd:(selector "setTableHeaderBackgroundColor:") ~typ:(id @-> returning (void)) x -let setTableHeaderView x self = msg_send ~self ~cmd:(selector "setTableHeaderView:") ~typ:(id @-> returning (void)) x -let setTableHeaderViewShouldAutoHide x self = msg_send ~self ~cmd:(selector "setTableHeaderViewShouldAutoHide:") ~typ:(bool @-> returning (void)) x -let setUsesVariableMargins x self = msg_send ~self ~cmd:(selector "setUsesVariableMargins:") ~typ:(bool @-> returning (void)) x -let shouldDisplayTopSeparatorForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "shouldDisplayTopSeparatorForRowAtIndexPath:") ~typ:(id @-> returning (bool)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let swipeActionController x ~backgroundColorForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:backgroundColorForItemAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x backgroundColorForItemAtIndexPath -let swipeActionController1 x ~didEndSwipeForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:didEndSwipeForItemAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didEndSwipeForItemAtIndexPath -let swipeActionController2 x ~indexPathForTouchLocation self = msg_send ~self ~cmd:(selector "swipeActionController:indexPathForTouchLocation:") ~typ:(id @-> CGPoint.t @-> returning (id)) x indexPathForTouchLocation -let swipeActionController3 x ~leadingSwipeConfigurationForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:leadingSwipeConfigurationForItemAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x leadingSwipeConfigurationForItemAtIndexPath -let swipeActionController4 x ~mayBeginSwipeForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:mayBeginSwipeForItemAtIndexPath:") ~typ:(id @-> id @-> returning (bool)) x mayBeginSwipeForItemAtIndexPath -let swipeActionController5 x ~trailingSwipeConfigurationForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:trailingSwipeConfigurationForItemAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x trailingSwipeConfigurationForItemAtIndexPath -let swipeActionController6 x ~viewForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:viewForItemAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x viewForItemAtIndexPath -let swipeActionController7 x ~willBeginSwipeForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:willBeginSwipeForItemAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x willBeginSwipeForItemAtIndexPath -let swipeActionController8 x ~cleanupActionsView ~forItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:cleanupActionsView:forItemAtIndexPath:") ~typ:(id @-> id @-> id @-> returning (void)) x cleanupActionsView forItemAtIndexPath -let swipeActionController9 x ~insertActionsView ~forItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:insertActionsView:forItemAtIndexPath:") ~typ:(id @-> id @-> id @-> returning (bool)) x insertActionsView forItemAtIndexPath -let swipeActionController10 x ~willPerformAction ~atIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:willPerformAction:atIndexPath:") ~typ:(id @-> id @-> id @-> returning (void)) x willPerformAction atIndexPath -let swipeActionController11 x ~didCompleteAction ~cancelled ~atIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:didCompleteAction:cancelled:atIndexPath:") ~typ:(id @-> id @-> bool @-> id @-> returning (void)) x didCompleteAction cancelled atIndexPath -let swipeActionController12 x ~didCompleteAnimationOfAction ~canceled ~atIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:didCompleteAnimationOfAction:canceled:atIndexPath:") ~typ:(id @-> id @-> bool @-> id @-> returning (void)) x didCompleteAnimationOfAction canceled atIndexPath -let swipeActionController13 x ~swipeOccurrence ~didChangeStateFrom ~to_ self = msg_send ~self ~cmd:(selector "swipeActionController:swipeOccurrence:didChangeStateFrom:to:") ~typ:(id @-> id @-> llong @-> llong @-> returning (void)) x swipeOccurrence (LLong.of_int didChangeStateFrom) (LLong.of_int to_) -let swipeActionForDeletingRowAtIndexPath x self = msg_send ~self ~cmd:(selector "swipeActionForDeletingRowAtIndexPath:") ~typ:(id @-> returning (id)) x -let tableFooterView self = msg_send ~self ~cmd:(selector "tableFooterView") ~typ:(returning (id)) -let tableHeaderBackgroundColor self = msg_send ~self ~cmd:(selector "tableHeaderBackgroundColor") ~typ:(returning (id)) -let tableHeaderView self = msg_send ~self ~cmd:(selector "tableHeaderView") ~typ:(returning (id)) -let tableHeaderViewShouldAutoHide self = msg_send ~self ~cmd:(selector "tableHeaderViewShouldAutoHide") ~typ:(returning (bool)) -let targetForAction x ~withSender self = msg_send ~self ~cmd:(selector "targetForAction:withSender:") ~typ:(_SEL @-> id @-> returning (id)) x withSender -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesShouldCancelInContentView x self = msg_send ~self ~cmd:(selector "touchesShouldCancelInContentView:") ~typ:(id @-> returning (bool)) x -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let unhighlightRowAtIndexPath x ~animated self = msg_send ~self ~cmd:(selector "unhighlightRowAtIndexPath:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let usesVariableMargins self = msg_send ~self ~cmd:(selector "usesVariableMargins") ~typ:(returning (bool)) -let visibleCells self = msg_send ~self ~cmd:(selector "visibleCells") ~typ:(returning (id)) -let willMoveToSuperview x self = msg_send ~self ~cmd:(selector "willMoveToSuperview:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UITableView" + +let accessoryInsetsDidChange x self = msg_send ~self ~cmd:(selector "accessoryInsetsDidChange:") ~typ:(UIEdgeInsets.t @-> returning void) x +let adjustIndexPaths x ~forMoveOfIndexPath ~toIndexPath self = msg_send ~self ~cmd:(selector "adjustIndexPaths:forMoveOfIndexPath:toIndexPath:") ~typ:(id @-> id @-> id @-> returning void) x forMoveOfIndexPath toIndexPath +let allowsFocus self = msg_send ~self ~cmd:(selector "allowsFocus") ~typ:(returning bool) +let allowsFocusDuringEditing self = msg_send ~self ~cmd:(selector "allowsFocusDuringEditing") ~typ:(returning bool) +let allowsFooterViewsToFloat self = msg_send ~self ~cmd:(selector "allowsFooterViewsToFloat") ~typ:(returning bool) +let allowsHeaderViewsToFloat self = msg_send ~self ~cmd:(selector "allowsHeaderViewsToFloat") ~typ:(returning bool) +let allowsMultipleSelection self = msg_send ~self ~cmd:(selector "allowsMultipleSelection") ~typ:(returning bool) +let allowsMultipleSelectionDuringEditing self = msg_send ~self ~cmd:(selector "allowsMultipleSelectionDuringEditing") ~typ:(returning bool) +let allowsSelection self = msg_send ~self ~cmd:(selector "allowsSelection") ~typ:(returning bool) +let allowsSelectionDuringEditing self = msg_send ~self ~cmd:(selector "allowsSelectionDuringEditing") ~typ:(returning bool) +let awakeFromNib self = msg_send ~self ~cmd:(selector "awakeFromNib") ~typ:(returning void) +let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning id) +let beginUpdates self = msg_send ~self ~cmd:(selector "beginUpdates") ~typ:(returning void) +let bringSubviewToFront x self = msg_send ~self ~cmd:(selector "bringSubviewToFront:") ~typ:(id @-> returning void) x +let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning bool) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let cancelTouchTracking self = msg_send ~self ~cmd:(selector "cancelTouchTracking") ~typ:(returning bool) +let cellForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "cellForRowAtIndexPath:") ~typ:(id @-> returning id) x +let cellLayoutMarginsFollowReadableWidth self = msg_send ~self ~cmd:(selector "cellLayoutMarginsFollowReadableWidth") ~typ:(returning bool) +let contextMenuInteraction self = msg_send ~self ~cmd:(selector "contextMenuInteraction") ~typ:(returning id) +let contextMenuInteraction1 x ~configurationForMenuAtLocation self = msg_send ~self ~cmd:(selector "contextMenuInteraction:configurationForMenuAtLocation:") ~typ:(id @-> CGPoint.t @-> returning id) x configurationForMenuAtLocation +let contextMenuInteraction2 x ~previewForDismissingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForDismissingMenuWithConfiguration:") ~typ:(id @-> id @-> returning id) x previewForDismissingMenuWithConfiguration +let contextMenuInteraction3 x ~previewForHighlightingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForHighlightingMenuWithConfiguration:") ~typ:(id @-> id @-> returning id) x previewForHighlightingMenuWithConfiguration +let contextMenuInteraction4 x ~willDisplayMenuForConfiguration ~animator self = msg_send ~self ~cmd:(selector "contextMenuInteraction:willDisplayMenuForConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning void) x willDisplayMenuForConfiguration animator +let contextMenuInteraction5 x ~willEndForConfiguration ~animator self = msg_send ~self ~cmd:(selector "contextMenuInteraction:willEndForConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning void) x willEndForConfiguration animator +let contextMenuInteraction6 x ~willPerformPreviewActionForMenuWithConfiguration ~animator self = msg_send ~self ~cmd:(selector "contextMenuInteraction:willPerformPreviewActionForMenuWithConfiguration:animator:") ~typ:(id @-> id @-> id @-> returning void) x willPerformPreviewActionForMenuWithConfiguration animator +let contextualActionForDeletingRowAtIndexPath x self = msg_send ~self ~cmd:(selector "contextualActionForDeletingRowAtIndexPath:") ~typ:(id @-> returning id) x +let currentTouch self = msg_send ~self ~cmd:(selector "currentTouch") ~typ:(returning id) +let dataSource self = msg_send ~self ~cmd:(selector "dataSource") ~typ:(returning id) +let dataSourceIndexPathForPresentationIndexPath x self = msg_send ~self ~cmd:(selector "dataSourceIndexPathForPresentationIndexPath:") ~typ:(id @-> returning id) x +let dataSourceSectionIndexForPresentationSectionIndex x self = msg_send ~self ~cmd:(selector "dataSourceSectionIndexForPresentationSectionIndex:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let deleteConfirmationIndexPath self = msg_send ~self ~cmd:(selector "deleteConfirmationIndexPath") ~typ:(returning id) +let deleteRowsAtIndexPaths x ~withRowAnimation self = msg_send ~self ~cmd:(selector "deleteRowsAtIndexPaths:withRowAnimation:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int withRowAnimation) +let deleteSections x ~withRowAnimation self = msg_send ~self ~cmd:(selector "deleteSections:withRowAnimation:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int withRowAnimation) +let dequeueReusableCellWithIdentifier x self = msg_send ~self ~cmd:(selector "dequeueReusableCellWithIdentifier:") ~typ:(id @-> returning id) x +let dequeueReusableCellWithIdentifier' x ~forIndexPath self = msg_send ~self ~cmd:(selector "dequeueReusableCellWithIdentifier:forIndexPath:") ~typ:(id @-> id @-> returning id) x forIndexPath +let dequeueReusableHeaderFooterViewWithIdentifier x self = msg_send ~self ~cmd:(selector "dequeueReusableHeaderFooterViewWithIdentifier:") ~typ:(id @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let deselectRowAtIndexPath x ~animated self = msg_send ~self ~cmd:(selector "deselectRowAtIndexPath:animated:") ~typ:(id @-> bool @-> returning void) x animated +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let dragDelegate self = msg_send ~self ~cmd:(selector "dragDelegate") ~typ:(returning id) +let dragDestinationDelegate self = msg_send ~self ~cmd:(selector "dragDestinationDelegate") ~typ:(returning id) +let dragInteractionEnabled self = msg_send ~self ~cmd:(selector "dragInteractionEnabled") ~typ:(returning bool) +let dragSourceDelegate self = msg_send ~self ~cmd:(selector "dragSourceDelegate") ~typ:(returning id) +let dropDelegate self = msg_send ~self ~cmd:(selector "dropDelegate") ~typ:(returning id) +let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let endUpdates self = msg_send ~self ~cmd:(selector "endUpdates") ~typ:(returning void) +let endUpdatesWithContext x self = msg_send ~self ~cmd:(selector "endUpdatesWithContext:") ~typ:(id @-> returning void) x +let estimatedRowHeight self = msg_send ~self ~cmd:(selector "estimatedRowHeight") ~typ:(returning double) +let estimatedSectionFooterHeight self = msg_send ~self ~cmd:(selector "estimatedSectionFooterHeight") ~typ:(returning double) +let estimatedSectionHeaderHeight self = msg_send ~self ~cmd:(selector "estimatedSectionHeaderHeight") ~typ:(returning double) +let fillerRowHeight self = msg_send ~self ~cmd:(selector "fillerRowHeight") ~typ:(returning double) +let flashScrollIndicators self = msg_send ~self ~cmd:(selector "flashScrollIndicators") ~typ:(returning void) +let footerViewForSection x self = msg_send ~self ~cmd:(selector "footerViewForSection:") ~typ:(llong @-> returning id) (LLong.of_int x) +let gestureRecognizerViewForSwipeActionController x self = msg_send ~self ~cmd:(selector "gestureRecognizerViewForSwipeActionController:") ~typ:(id @-> returning id) x +let globalRowForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "globalRowForRowAtIndexPath:") ~typ:(id @-> returning llong) x +let hasActiveDrag self = msg_send ~self ~cmd:(selector "hasActiveDrag") ~typ:(returning bool) +let hasActiveDrop self = msg_send ~self ~cmd:(selector "hasActiveDrop") ~typ:(returning bool) +let hasUncommittedUpdates self = msg_send ~self ~cmd:(selector "hasUncommittedUpdates") ~typ:(returning bool) +let headerViewForSection x self = msg_send ~self ~cmd:(selector "headerViewForSection:") ~typ:(llong @-> returning id) (LLong.of_int x) +let heightForAutohidingTableHeaderView self = msg_send ~self ~cmd:(selector "heightForAutohidingTableHeaderView") ~typ:(returning double) +let heightForTableHeaderViewHiding self = msg_send ~self ~cmd:(selector "heightForTableHeaderViewHiding") ~typ:(returning double) +let highlightRowAtIndexPath x ~animated ~scrollPosition self = msg_send ~self ~cmd:(selector "highlightRowAtIndexPath:animated:scrollPosition:") ~typ:(id @-> bool @-> llong @-> returning bool) x animated (LLong.of_int scrollPosition) +let highlightedGlobalRow self = msg_send ~self ~cmd:(selector "highlightedGlobalRow") ~typ:(returning llong) +let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning id) x forEvent +let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let ignorePinnedTableHeaderUpdates self = msg_send ~self ~cmd:(selector "ignorePinnedTableHeaderUpdates") ~typ:(returning bool) +let indexBarAccessoryView x ~contentOffsetForEntry ~atIndex self = msg_send ~self ~cmd:(selector "indexBarAccessoryView:contentOffsetForEntry:atIndex:") ~typ:(id @-> id @-> llong @-> returning CGPoint.t) x contentOffsetForEntry (LLong.of_int atIndex) +let indexFrame self = msg_send ~self ~cmd:(selector "indexFrame") ~typ:(returning CGRect.t) +let indexPathForCell x self = msg_send ~self ~cmd:(selector "indexPathForCell:") ~typ:(id @-> returning id) x +let indexPathForRowAtGlobalRow x self = msg_send ~self ~cmd:(selector "indexPathForRowAtGlobalRow:") ~typ:(llong @-> returning id) (LLong.of_int x) +let indexPathForRowAtPoint x self = msg_send ~self ~cmd:(selector "indexPathForRowAtPoint:") ~typ:(CGPoint.t @-> returning id) x +let indexPathForSelectedRow self = msg_send ~self ~cmd:(selector "indexPathForSelectedRow") ~typ:(returning id) +let indexPathsForRowsInRect x self = msg_send ~self ~cmd:(selector "indexPathsForRowsInRect:") ~typ:(CGRect.t @-> returning id) x +let indexPathsForSelectedRows self = msg_send ~self ~cmd:(selector "indexPathsForSelectedRows") ~typ:(returning id) +let indexPathsForVisibleRows self = msg_send ~self ~cmd:(selector "indexPathsForVisibleRows") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithFrame' x ~style self = msg_send ~self ~cmd:(selector "initWithFrame:style:") ~typ:(CGRect.t @-> llong @-> returning id) x (LLong.of_int style) +let insertRowsAtIndexPaths x ~withRowAnimation self = msg_send ~self ~cmd:(selector "insertRowsAtIndexPaths:withRowAnimation:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int withRowAnimation) +let insertSections x ~withRowAnimation self = msg_send ~self ~cmd:(selector "insertSections:withRowAnimation:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int withRowAnimation) +let insetsContentViewsToSafeArea self = msg_send ~self ~cmd:(selector "insetsContentViewsToSafeArea") ~typ:(returning bool) +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isIndexHidden self = msg_send ~self ~cmd:(selector "isIndexHidden") ~typ:(returning bool) +let isPrefetchingEnabled self = msg_send ~self ~cmd:(selector "isPrefetchingEnabled") ~typ:(returning bool) +let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning bool) +let itemContainerViewForSwipeActionController x self = msg_send ~self ~cmd:(selector "itemContainerViewForSwipeActionController:") ~typ:(id @-> returning id) x +let keyCommands self = msg_send ~self ~cmd:(selector "keyCommands") ~typ:(returning id) +let layoutDirectionForSwipeActionController x self = msg_send ~self ~cmd:(selector "layoutDirectionForSwipeActionController:") ~typ:(id @-> returning llong) x +let layoutMarginsFollowReadableWidth self = msg_send ~self ~cmd:(selector "layoutMarginsFollowReadableWidth") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let longPress x self = msg_send ~self ~cmd:(selector "longPress:") ~typ:(id @-> returning void) x +let longPressGestureWithinAutoscrollZone self = msg_send ~self ~cmd:(selector "longPressGestureWithinAutoscrollZone") ~typ:(returning bool) +let maximumGlobalRowIndex self = msg_send ~self ~cmd:(selector "maximumGlobalRowIndex") ~typ:(returning llong) +let maximumNumberOfSectionIndexTitlesWithoutTruncation self = msg_send ~self ~cmd:(selector "maximumNumberOfSectionIndexTitlesWithoutTruncation") ~typ:(returning ullong) +let moveRowAtIndexPath x ~toIndexPath self = msg_send ~self ~cmd:(selector "moveRowAtIndexPath:toIndexPath:") ~typ:(id @-> id @-> returning void) x toIndexPath +let moveSection x ~toSection self = msg_send ~self ~cmd:(selector "moveSection:toSection:") ~typ:(llong @-> llong @-> returning void) (LLong.of_int x) (LLong.of_int toSection) +let multiselectCheckmarkColor self = msg_send ~self ~cmd:(selector "multiselectCheckmarkColor") ~typ:(returning id) +let noteNumberOfRowsChanged self = msg_send ~self ~cmd:(selector "noteNumberOfRowsChanged") ~typ:(returning void) +let numberOfRowsInSection x self = msg_send ~self ~cmd:(selector "numberOfRowsInSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let numberOfSections self = msg_send ~self ~cmd:(selector "numberOfSections") ~typ:(returning llong) +let overlapsSectionHeaderViews self = msg_send ~self ~cmd:(selector "overlapsSectionHeaderViews") ~typ:(returning bool) +let performBatchUpdates x ~completion self = msg_send ~self ~cmd:(selector "performBatchUpdates:completion:") ~typ:((ptr void) @-> (ptr void) @-> returning void) x completion +let performUsingPresentationValues x self = msg_send ~self ~cmd:(selector "performUsingPresentationValues:") ~typ:((ptr void) @-> returning void) x +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let prefetchDataSource self = msg_send ~self ~cmd:(selector "prefetchDataSource") ~typ:(returning id) +let presentationIndexPathForDataSourceIndexPath x self = msg_send ~self ~cmd:(selector "presentationIndexPathForDataSourceIndexPath:") ~typ:(id @-> returning id) x +let presentationSectionIndexForDataSourceSectionIndex x self = msg_send ~self ~cmd:(selector "presentationSectionIndexForDataSourceSectionIndex:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let reconfigureRowsAtIndexPaths x self = msg_send ~self ~cmd:(selector "reconfigureRowsAtIndexPaths:") ~typ:(id @-> returning void) x +let rectForFooterInSection x self = msg_send ~self ~cmd:(selector "rectForFooterInSection:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) +let rectForHeaderInSection x self = msg_send ~self ~cmd:(selector "rectForHeaderInSection:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) +let rectForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "rectForRowAtIndexPath:") ~typ:(id @-> returning CGRect.t) x +let rectForSection x self = msg_send ~self ~cmd:(selector "rectForSection:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) +let registerClass x ~forCellReuseIdentifier self = msg_send ~self ~cmd:(selector "registerClass:forCellReuseIdentifier:") ~typ:(_Class @-> id @-> returning void) x forCellReuseIdentifier +let registerClass' x ~forHeaderFooterViewReuseIdentifier self = msg_send ~self ~cmd:(selector "registerClass:forHeaderFooterViewReuseIdentifier:") ~typ:(_Class @-> id @-> returning void) x forHeaderFooterViewReuseIdentifier +let registerNib x ~forCellReuseIdentifier self = msg_send ~self ~cmd:(selector "registerNib:forCellReuseIdentifier:") ~typ:(id @-> id @-> returning void) x forCellReuseIdentifier +let registerNib' x ~forHeaderFooterViewReuseIdentifier self = msg_send ~self ~cmd:(selector "registerNib:forHeaderFooterViewReuseIdentifier:") ~typ:(id @-> id @-> returning void) x forHeaderFooterViewReuseIdentifier +let reloadData self = msg_send ~self ~cmd:(selector "reloadData") ~typ:(returning void) +let reloadRowsAtIndexPaths x ~withRowAnimation self = msg_send ~self ~cmd:(selector "reloadRowsAtIndexPaths:withRowAnimation:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int withRowAnimation) +let reloadSectionIndexTitles self = msg_send ~self ~cmd:(selector "reloadSectionIndexTitles") ~typ:(returning void) +let reloadSections x ~withRowAnimation self = msg_send ~self ~cmd:(selector "reloadSections:withRowAnimation:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int withRowAnimation) +let remembersLastFocusedIndexPath self = msg_send ~self ~cmd:(selector "remembersLastFocusedIndexPath") ~typ:(returning bool) +let resizeSubviewsWithOldSize x self = msg_send ~self ~cmd:(selector "resizeSubviewsWithOldSize:") ~typ:(CGSize.t @-> returning void) x +let rowHeight self = msg_send ~self ~cmd:(selector "rowHeight") ~typ:(returning double) +let scrollToNearestSelectedRowAtScrollPosition x ~animated self = msg_send ~self ~cmd:(selector "scrollToNearestSelectedRowAtScrollPosition:animated:") ~typ:(llong @-> bool @-> returning void) (LLong.of_int x) animated +let scrollToRowAtIndexPath x ~atScrollPosition ~animated self = msg_send ~self ~cmd:(selector "scrollToRowAtIndexPath:atScrollPosition:animated:") ~typ:(id @-> llong @-> bool @-> returning void) x (LLong.of_int atScrollPosition) animated +let sectionBorderColor self = msg_send ~self ~cmd:(selector "sectionBorderColor") ~typ:(returning id) +let sectionFooterHeight self = msg_send ~self ~cmd:(selector "sectionFooterHeight") ~typ:(returning double) +let sectionHeaderHeight self = msg_send ~self ~cmd:(selector "sectionHeaderHeight") ~typ:(returning double) +let sectionHeaderTopPadding self = msg_send ~self ~cmd:(selector "sectionHeaderTopPadding") ~typ:(returning double) +let sectionIndexBackgroundColor self = msg_send ~self ~cmd:(selector "sectionIndexBackgroundColor") ~typ:(returning id) +let sectionIndexColor self = msg_send ~self ~cmd:(selector "sectionIndexColor") ~typ:(returning id) +let sectionIndexMinimumDisplayRowCount self = msg_send ~self ~cmd:(selector "sectionIndexMinimumDisplayRowCount") ~typ:(returning llong) +let sectionIndexTrackingBackgroundColor self = msg_send ~self ~cmd:(selector "sectionIndexTrackingBackgroundColor") ~typ:(returning id) +let selectRowAtIndexPath x ~animated ~scrollPosition self = msg_send ~self ~cmd:(selector "selectRowAtIndexPath:animated:scrollPosition:") ~typ:(id @-> bool @-> llong @-> returning void) x animated (LLong.of_int scrollPosition) +let selectedCell self = msg_send ~self ~cmd:(selector "selectedCell") ~typ:(returning id) +let selectionFollowsFocus self = msg_send ~self ~cmd:(selector "selectionFollowsFocus") ~typ:(returning bool) +let sendSubviewToBack x self = msg_send ~self ~cmd:(selector "sendSubviewToBack:") ~typ:(id @-> returning void) x +let separatorBottomShadowColor self = msg_send ~self ~cmd:(selector "separatorBottomShadowColor") ~typ:(returning id) +let separatorColor self = msg_send ~self ~cmd:(selector "separatorColor") ~typ:(returning id) +let separatorEffect self = msg_send ~self ~cmd:(selector "separatorEffect") ~typ:(returning id) +let separatorInset self = msg_send ~self ~cmd:(selector "separatorInset") ~typ:(returning UIEdgeInsets.t) +let separatorInsetReference self = msg_send ~self ~cmd:(selector "separatorInsetReference") ~typ:(returning llong) +let separatorStyle self = msg_send ~self ~cmd:(selector "separatorStyle") ~typ:(returning llong) +let separatorTopShadowColor self = msg_send ~self ~cmd:(selector "separatorTopShadowColor") ~typ:(returning id) +let setAllowsFocus x self = msg_send ~self ~cmd:(selector "setAllowsFocus:") ~typ:(bool @-> returning void) x +let setAllowsFocusDuringEditing x self = msg_send ~self ~cmd:(selector "setAllowsFocusDuringEditing:") ~typ:(bool @-> returning void) x +let setAllowsMultipleSelection x self = msg_send ~self ~cmd:(selector "setAllowsMultipleSelection:") ~typ:(bool @-> returning void) x +let setAllowsMultipleSelectionDuringEditing x self = msg_send ~self ~cmd:(selector "setAllowsMultipleSelectionDuringEditing:") ~typ:(bool @-> returning void) x +let setAllowsSelection x self = msg_send ~self ~cmd:(selector "setAllowsSelection:") ~typ:(bool @-> returning void) x +let setAllowsSelectionDuringEditing x self = msg_send ~self ~cmd:(selector "setAllowsSelectionDuringEditing:") ~typ:(bool @-> returning void) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setCellLayoutMarginsFollowReadableWidth x self = msg_send ~self ~cmd:(selector "setCellLayoutMarginsFollowReadableWidth:") ~typ:(bool @-> returning void) x +let setContentInset x self = msg_send ~self ~cmd:(selector "setContentInset:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGPoint.t @-> returning void) x +let setContentSize x self = msg_send ~self ~cmd:(selector "setContentSize:") ~typ:(CGSize.t @-> returning void) x +let setContentSize' x ~skipContentOffsetAdjustment self = msg_send ~self ~cmd:(selector "setContentSize:skipContentOffsetAdjustment:") ~typ:(CGSize.t @-> bool @-> returning void) x skipContentOffsetAdjustment +let setCountString x self = msg_send ~self ~cmd:(selector "setCountString:") ~typ:(id @-> returning void) x +let setCountStringInsignificantRowCount x self = msg_send ~self ~cmd:(selector "setCountStringInsignificantRowCount:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setCurrentTouch x self = msg_send ~self ~cmd:(selector "setCurrentTouch:") ~typ:(id @-> returning void) x +let setDataSource x self = msg_send ~self ~cmd:(selector "setDataSource:") ~typ:(id @-> returning void) x +let setDelaysContentTouches x self = msg_send ~self ~cmd:(selector "setDelaysContentTouches:") ~typ:(bool @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDeleteConfirmationIndexPath x ~animated self = msg_send ~self ~cmd:(selector "setDeleteConfirmationIndexPath:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setDirectionalLayoutMargins x self = msg_send ~self ~cmd:(selector "setDirectionalLayoutMargins:") ~typ:(NSDirectionalEdgeInsets.t @-> returning void) x +let setDragDelegate x self = msg_send ~self ~cmd:(selector "setDragDelegate:") ~typ:(id @-> returning void) x +let setDragDestinationDelegate x self = msg_send ~self ~cmd:(selector "setDragDestinationDelegate:") ~typ:(id @-> returning void) x +let setDragInteractionEnabled x self = msg_send ~self ~cmd:(selector "setDragInteractionEnabled:") ~typ:(bool @-> returning void) x +let setDragSourceDelegate x self = msg_send ~self ~cmd:(selector "setDragSourceDelegate:") ~typ:(id @-> returning void) x +let setDropDelegate x self = msg_send ~self ~cmd:(selector "setDropDelegate:") ~typ:(id @-> returning void) x +let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning void) x +let setEditing' x ~animated self = msg_send ~self ~cmd:(selector "setEditing:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setEstimatedRowHeight x self = msg_send ~self ~cmd:(selector "setEstimatedRowHeight:") ~typ:(double @-> returning void) x +let setEstimatedSectionFooterHeight x self = msg_send ~self ~cmd:(selector "setEstimatedSectionFooterHeight:") ~typ:(double @-> returning void) x +let setEstimatedSectionHeaderHeight x self = msg_send ~self ~cmd:(selector "setEstimatedSectionHeaderHeight:") ~typ:(double @-> returning void) x +let setFillerRowHeight x self = msg_send ~self ~cmd:(selector "setFillerRowHeight:") ~typ:(double @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setIndexHidden x ~animated self = msg_send ~self ~cmd:(selector "setIndexHidden:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setIndexHiddenForSearch x self = msg_send ~self ~cmd:(selector "setIndexHiddenForSearch:") ~typ:(bool @-> returning void) x +let setInsetsContentViewsToSafeArea x self = msg_send ~self ~cmd:(selector "setInsetsContentViewsToSafeArea:") ~typ:(bool @-> returning void) x +let setInsetsLayoutMarginsFromSafeArea x self = msg_send ~self ~cmd:(selector "setInsetsLayoutMarginsFromSafeArea:") ~typ:(bool @-> returning void) x +let setLayoutMargins x self = msg_send ~self ~cmd:(selector "setLayoutMargins:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setLayoutMarginsFollowReadableWidth x self = msg_send ~self ~cmd:(selector "setLayoutMarginsFollowReadableWidth:") ~typ:(bool @-> returning void) x +let setMultiselectCheckmarkColor x self = msg_send ~self ~cmd:(selector "setMultiselectCheckmarkColor:") ~typ:(id @-> returning void) x +let setOverlapsSectionHeaderViews x self = msg_send ~self ~cmd:(selector "setOverlapsSectionHeaderViews:") ~typ:(bool @-> returning void) x +let setPrefetchDataSource x self = msg_send ~self ~cmd:(selector "setPrefetchDataSource:") ~typ:(id @-> returning void) x +let setPrefetchingEnabled x self = msg_send ~self ~cmd:(selector "setPrefetchingEnabled:") ~typ:(bool @-> returning void) x +let setRefreshControl x self = msg_send ~self ~cmd:(selector "setRefreshControl:") ~typ:(id @-> returning void) x +let setRemembersLastFocusedIndexPath x self = msg_send ~self ~cmd:(selector "setRemembersLastFocusedIndexPath:") ~typ:(bool @-> returning void) x +let setRowHeight x self = msg_send ~self ~cmd:(selector "setRowHeight:") ~typ:(double @-> returning void) x +let setSectionBorderColor x self = msg_send ~self ~cmd:(selector "setSectionBorderColor:") ~typ:(id @-> returning void) x +let setSectionFooterHeight x self = msg_send ~self ~cmd:(selector "setSectionFooterHeight:") ~typ:(double @-> returning void) x +let setSectionHeaderHeight x self = msg_send ~self ~cmd:(selector "setSectionHeaderHeight:") ~typ:(double @-> returning void) x +let setSectionHeaderTopPadding x self = msg_send ~self ~cmd:(selector "setSectionHeaderTopPadding:") ~typ:(double @-> returning void) x +let setSectionIndexBackgroundColor x self = msg_send ~self ~cmd:(selector "setSectionIndexBackgroundColor:") ~typ:(id @-> returning void) x +let setSectionIndexColor x self = msg_send ~self ~cmd:(selector "setSectionIndexColor:") ~typ:(id @-> returning void) x +let setSectionIndexMinimumDisplayRowCount x self = msg_send ~self ~cmd:(selector "setSectionIndexMinimumDisplayRowCount:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSectionIndexTrackingBackgroundColor x self = msg_send ~self ~cmd:(selector "setSectionIndexTrackingBackgroundColor:") ~typ:(id @-> returning void) x +let setSelectionFollowsFocus x self = msg_send ~self ~cmd:(selector "setSelectionFollowsFocus:") ~typ:(bool @-> returning void) x +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSeparatorBottomShadowColor x self = msg_send ~self ~cmd:(selector "setSeparatorBottomShadowColor:") ~typ:(id @-> returning void) x +let setSeparatorColor x self = msg_send ~self ~cmd:(selector "setSeparatorColor:") ~typ:(id @-> returning void) x +let setSeparatorEffect x self = msg_send ~self ~cmd:(selector "setSeparatorEffect:") ~typ:(id @-> returning void) x +let setSeparatorInset x self = msg_send ~self ~cmd:(selector "setSeparatorInset:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setSeparatorInsetReference x self = msg_send ~self ~cmd:(selector "setSeparatorInsetReference:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSeparatorStyle x self = msg_send ~self ~cmd:(selector "setSeparatorStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSeparatorTopShadowColor x self = msg_send ~self ~cmd:(selector "setSeparatorTopShadowColor:") ~typ:(id @-> returning void) x +let setShowsHorizontalScrollIndicator x self = msg_send ~self ~cmd:(selector "setShowsHorizontalScrollIndicator:") ~typ:(bool @-> returning void) x +let setShowsVerticalScrollIndicator x self = msg_send ~self ~cmd:(selector "setShowsVerticalScrollIndicator:") ~typ:(bool @-> returning void) x +let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning void) x +let setTableFooterView x self = msg_send ~self ~cmd:(selector "setTableFooterView:") ~typ:(id @-> returning void) x +let setTableHeaderBackgroundColor x self = msg_send ~self ~cmd:(selector "setTableHeaderBackgroundColor:") ~typ:(id @-> returning void) x +let setTableHeaderView x self = msg_send ~self ~cmd:(selector "setTableHeaderView:") ~typ:(id @-> returning void) x +let setTableHeaderViewShouldAutoHide x self = msg_send ~self ~cmd:(selector "setTableHeaderViewShouldAutoHide:") ~typ:(bool @-> returning void) x +let setUsesVariableMargins x self = msg_send ~self ~cmd:(selector "setUsesVariableMargins:") ~typ:(bool @-> returning void) x +let shouldDisplayTopSeparatorForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "shouldDisplayTopSeparatorForRowAtIndexPath:") ~typ:(id @-> returning bool) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let swipeActionController x ~backgroundColorForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:backgroundColorForItemAtIndexPath:") ~typ:(id @-> id @-> returning id) x backgroundColorForItemAtIndexPath +let swipeActionController1 x ~didEndSwipeForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:didEndSwipeForItemAtIndexPath:") ~typ:(id @-> id @-> returning void) x didEndSwipeForItemAtIndexPath +let swipeActionController2 x ~extraInsetsForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:extraInsetsForItemAtIndexPath:") ~typ:(id @-> id @-> returning UIEdgeInsets.t) x extraInsetsForItemAtIndexPath +let swipeActionController3 x ~indexPathForTouchLocation self = msg_send ~self ~cmd:(selector "swipeActionController:indexPathForTouchLocation:") ~typ:(id @-> CGPoint.t @-> returning id) x indexPathForTouchLocation +let swipeActionController4 x ~leadingSwipeConfigurationForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:leadingSwipeConfigurationForItemAtIndexPath:") ~typ:(id @-> id @-> returning id) x leadingSwipeConfigurationForItemAtIndexPath +let swipeActionController5 x ~mayBeginSwipeForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:mayBeginSwipeForItemAtIndexPath:") ~typ:(id @-> id @-> returning bool) x mayBeginSwipeForItemAtIndexPath +let swipeActionController6 x ~trailingSwipeConfigurationForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:trailingSwipeConfigurationForItemAtIndexPath:") ~typ:(id @-> id @-> returning id) x trailingSwipeConfigurationForItemAtIndexPath +let swipeActionController7 x ~viewForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:viewForItemAtIndexPath:") ~typ:(id @-> id @-> returning id) x viewForItemAtIndexPath +let swipeActionController8 x ~willBeginSwipeForItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:willBeginSwipeForItemAtIndexPath:") ~typ:(id @-> id @-> returning void) x willBeginSwipeForItemAtIndexPath +let swipeActionController9 x ~cleanupActionsView ~forItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:cleanupActionsView:forItemAtIndexPath:") ~typ:(id @-> id @-> id @-> returning void) x cleanupActionsView forItemAtIndexPath +let swipeActionController10 x ~insertActionsView ~forItemAtIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:insertActionsView:forItemAtIndexPath:") ~typ:(id @-> id @-> id @-> returning bool) x insertActionsView forItemAtIndexPath +let swipeActionController11 x ~willPerformAction ~atIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:willPerformAction:atIndexPath:") ~typ:(id @-> id @-> id @-> returning void) x willPerformAction atIndexPath +let swipeActionController12 x ~didCompleteAction ~cancelled ~atIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:didCompleteAction:cancelled:atIndexPath:") ~typ:(id @-> id @-> bool @-> id @-> returning void) x didCompleteAction cancelled atIndexPath +let swipeActionController13 x ~didCompleteAnimationOfAction ~canceled ~atIndexPath self = msg_send ~self ~cmd:(selector "swipeActionController:didCompleteAnimationOfAction:canceled:atIndexPath:") ~typ:(id @-> id @-> bool @-> id @-> returning void) x didCompleteAnimationOfAction canceled atIndexPath +let swipeActionController14 x ~swipeOccurrence ~didChangeStateFrom ~to_ self = msg_send ~self ~cmd:(selector "swipeActionController:swipeOccurrence:didChangeStateFrom:to:") ~typ:(id @-> id @-> llong @-> llong @-> returning void) x swipeOccurrence (LLong.of_int didChangeStateFrom) (LLong.of_int to_) +let swipeActionForDeletingRowAtIndexPath x self = msg_send ~self ~cmd:(selector "swipeActionForDeletingRowAtIndexPath:") ~typ:(id @-> returning id) x +let tableFooterView self = msg_send ~self ~cmd:(selector "tableFooterView") ~typ:(returning id) +let tableHeaderBackgroundColor self = msg_send ~self ~cmd:(selector "tableHeaderBackgroundColor") ~typ:(returning id) +let tableHeaderView self = msg_send ~self ~cmd:(selector "tableHeaderView") ~typ:(returning id) +let tableHeaderViewShouldAutoHide self = msg_send ~self ~cmd:(selector "tableHeaderViewShouldAutoHide") ~typ:(returning bool) +let targetForAction x ~withSender self = msg_send ~self ~cmd:(selector "targetForAction:withSender:") ~typ:(_SEL @-> id @-> returning id) x withSender +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesShouldCancelInContentView x self = msg_send ~self ~cmd:(selector "touchesShouldCancelInContentView:") ~typ:(id @-> returning bool) x +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let unhighlightRowAtIndexPath x ~animated self = msg_send ~self ~cmd:(selector "unhighlightRowAtIndexPath:animated:") ~typ:(id @-> bool @-> returning void) x animated +let usesVariableMargins self = msg_send ~self ~cmd:(selector "usesVariableMargins") ~typ:(returning bool) +let visibleCells self = msg_send ~self ~cmd:(selector "visibleCells") ~typ:(returning id) +let willMoveToSuperview x self = msg_send ~self ~cmd:(selector "willMoveToSuperview:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITableViewCell.ml b/uikit/UITableViewCell.ml index daa6e282..b85b8eb5 100644 --- a/uikit/UITableViewCell.ml +++ b/uikit/UITableViewCell.ml @@ -5,192 +5,197 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcell?language=objc}UITableViewCell} *) -let accessoryAction self = msg_send ~self ~cmd:(selector "accessoryAction") ~typ:(returning (_SEL)) -let accessoryActionPreviewingSegueTemplateStorage self = msg_send ~self ~cmd:(selector "accessoryActionPreviewingSegueTemplateStorage") ~typ:(returning (id)) -let accessoryActionSegueTemplate self = msg_send ~self ~cmd:(selector "accessoryActionSegueTemplate") ~typ:(returning (id)) -let accessoryRectForBounds x self = msg_send_stret ~self ~cmd:(selector "accessoryRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let accessoryType self = msg_send ~self ~cmd:(selector "accessoryType") ~typ:(returning (llong)) -let accessoryView self = msg_send ~self ~cmd:(selector "accessoryView") ~typ:(returning (id)) -let automaticallyUpdatesBackgroundConfiguration self = msg_send ~self ~cmd:(selector "automaticallyUpdatesBackgroundConfiguration") ~typ:(returning (bool)) -let automaticallyUpdatesContentConfiguration self = msg_send ~self ~cmd:(selector "automaticallyUpdatesContentConfiguration") ~typ:(returning (bool)) -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let backgroundConfiguration self = msg_send ~self ~cmd:(selector "backgroundConfiguration") ~typ:(returning (id)) -let backgroundRectForBounds x self = msg_send_stret ~self ~cmd:(selector "backgroundRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning (id)) -let bringSubviewToFront x self = msg_send ~self ~cmd:(selector "bringSubviewToFront:") ~typ:(id @-> returning (void)) x -let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning (bool)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let center self = msg_send_stret ~self ~cmd:(selector "center") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let clipsContents self = msg_send ~self ~cmd:(selector "clipsContents") ~typ:(returning (bool)) -let configurationState self = msg_send ~self ~cmd:(selector "configurationState") ~typ:(returning (id)) +let self = get_class "UITableViewCell" + +let accessoryAction self = msg_send ~self ~cmd:(selector "accessoryAction") ~typ:(returning _SEL) +let accessoryActionPreviewingSegueTemplateStorage self = msg_send ~self ~cmd:(selector "accessoryActionPreviewingSegueTemplateStorage") ~typ:(returning id) +let accessoryActionSegueTemplate self = msg_send ~self ~cmd:(selector "accessoryActionSegueTemplate") ~typ:(returning id) +let accessoryRectForBounds x self = msg_send ~self ~cmd:(selector "accessoryRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let accessoryType self = msg_send ~self ~cmd:(selector "accessoryType") ~typ:(returning llong) +let accessoryView self = msg_send ~self ~cmd:(selector "accessoryView") ~typ:(returning id) +let automaticallyUpdatesBackgroundConfiguration self = msg_send ~self ~cmd:(selector "automaticallyUpdatesBackgroundConfiguration") ~typ:(returning bool) +let automaticallyUpdatesContentConfiguration self = msg_send ~self ~cmd:(selector "automaticallyUpdatesContentConfiguration") ~typ:(returning bool) +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let backgroundConfiguration self = msg_send ~self ~cmd:(selector "backgroundConfiguration") ~typ:(returning id) +let backgroundRectForBounds x self = msg_send ~self ~cmd:(selector "backgroundRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning id) +let bringSubviewToFront x self = msg_send ~self ~cmd:(selector "bringSubviewToFront:") ~typ:(id @-> returning void) x +let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning bool) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let center self = msg_send ~self ~cmd:(selector "center") ~typ:(returning CGPoint.t) +let clipsContents self = msg_send ~self ~cmd:(selector "clipsContents") ~typ:(returning bool) +let configurationState self = msg_send ~self ~cmd:(selector "configurationState") ~typ:(returning id) let configurationUpdateHandler self = msg_send ~self ~cmd:(selector "configurationUpdateHandler") ~typ:(returning (ptr void)) -let contentConfiguration self = msg_send ~self ~cmd:(selector "contentConfiguration") ~typ:(returning (id)) -let contentRectForBounds x self = msg_send_stret ~self ~cmd:(selector "contentRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let contentRectForState x self = msg_send_stret ~self ~cmd:(selector "contentRectForState:") ~typ:(ullong @-> returning (CGRect.t)) ~return_type:CGRect.t (ULLong.of_int x) -let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning (id)) -let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning (void)) x -let currentStateMask self = msg_send ~self ~cmd:(selector "currentStateMask") ~typ:(returning (ullong)) -let cut x self = msg_send ~self ~cmd:(selector "cut:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultContentConfiguration self = msg_send ~self ~cmd:(selector "defaultContentConfiguration") ~typ:(returning (id)) -let detailTextLabel self = msg_send ~self ~cmd:(selector "detailTextLabel") ~typ:(returning (id)) -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let didTransitionToState x self = msg_send ~self ~cmd:(selector "didTransitionToState:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let dragStateDidChange x self = msg_send ~self ~cmd:(selector "dragStateDidChange:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let drawingEnabled self = msg_send ~self ~cmd:(selector "drawingEnabled") ~typ:(returning (bool)) -let editAction self = msg_send ~self ~cmd:(selector "editAction") ~typ:(returning (_SEL)) -let editControlWasClicked x self = msg_send ~self ~cmd:(selector "editControlWasClicked:") ~typ:(id @-> returning (void)) x -let editableTextField self = msg_send ~self ~cmd:(selector "editableTextField") ~typ:(returning (id)) -let editingAccessoryType self = msg_send ~self ~cmd:(selector "editingAccessoryType") ~typ:(returning (llong)) -let editingAccessoryView self = msg_send ~self ~cmd:(selector "editingAccessoryView") ~typ:(returning (id)) -let editingData x self = msg_send ~self ~cmd:(selector "editingData:") ~typ:(bool @-> returning (id)) x -let editingStyle self = msg_send ~self ~cmd:(selector "editingStyle") ~typ:(returning (llong)) -let effectiveSeparatorHeight self = msg_send ~self ~cmd:(selector "effectiveSeparatorHeight") ~typ:(returning (double)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let focusStyle self = msg_send ~self ~cmd:(selector "focusStyle") ~typ:(returning (llong)) -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let frame self = msg_send_stret ~self ~cmd:(selector "frame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let hidesAccessoryWhenEditing self = msg_send ~self ~cmd:(selector "hidesAccessoryWhenEditing") ~typ:(returning (bool)) -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let imageRectForContentRect x self = msg_send_stret ~self ~cmd:(selector "imageRectForContentRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let imageView self = msg_send ~self ~cmd:(selector "imageView") ~typ:(returning (id)) -let indentationLevel self = msg_send ~self ~cmd:(selector "indentationLevel") ~typ:(returning (llong)) -let indentationWidth self = msg_send ~self ~cmd:(selector "indentationWidth") ~typ:(returning (double)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithFrame' x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithFrame:reuseIdentifier:") ~typ:(CGRect.t @-> id @-> returning (id)) x reuseIdentifier -let initWithStyle x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithStyle:reuseIdentifier:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) reuseIdentifier -let isAtLeastHalfSelected self = msg_send ~self ~cmd:(selector "isAtLeastHalfSelected") ~typ:(returning (bool)) -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning (bool)) -let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning (bool)) -let layoutManager self = msg_send ~self ~cmd:(selector "layoutManager") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let lineBreakMode self = msg_send ~self ~cmd:(selector "lineBreakMode") ~typ:(returning (llong)) -let multipleSelectionBackgroundView self = msg_send ~self ~cmd:(selector "multipleSelectionBackgroundView") ~typ:(returning (id)) -let paste x self = msg_send ~self ~cmd:(selector "paste:") ~typ:(id @-> returning (void)) x -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning (void)) -let removeEditingData self = msg_send ~self ~cmd:(selector "removeEditingData") ~typ:(returning (void)) -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let reorderRectForBounds x self = msg_send_stret ~self ~cmd:(selector "reorderRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let returnAction self = msg_send ~self ~cmd:(selector "returnAction") ~typ:(returning (_SEL)) -let reuseIdentifier self = msg_send ~self ~cmd:(selector "reuseIdentifier") ~typ:(returning (id)) -let sectionBorderColor self = msg_send ~self ~cmd:(selector "sectionBorderColor") ~typ:(returning (id)) -let sectionLocation self = msg_send ~self ~cmd:(selector "sectionLocation") ~typ:(returning (int)) -let selectedBackgroundView self = msg_send ~self ~cmd:(selector "selectedBackgroundView") ~typ:(returning (id)) -let selectedImage self = msg_send ~self ~cmd:(selector "selectedImage") ~typ:(returning (id)) -let selectedOverlayView self = msg_send ~self ~cmd:(selector "selectedOverlayView") ~typ:(returning (id)) -let selectedTextColor self = msg_send ~self ~cmd:(selector "selectedTextColor") ~typ:(returning (id)) -let selectionFadeDuration self = msg_send ~self ~cmd:(selector "selectionFadeDuration") ~typ:(returning (double)) -let selectionPercent self = msg_send ~self ~cmd:(selector "selectionPercent") ~typ:(returning (float)) -let selectionSegueTemplate self = msg_send ~self ~cmd:(selector "selectionSegueTemplate") ~typ:(returning (id)) -let selectionStyle self = msg_send ~self ~cmd:(selector "selectionStyle") ~typ:(returning (llong)) -let selectionTintColor self = msg_send ~self ~cmd:(selector "selectionTintColor") ~typ:(returning (id)) -let sendSubviewToBack x self = msg_send ~self ~cmd:(selector "sendSubviewToBack:") ~typ:(id @-> returning (void)) x -let separatorColor self = msg_send ~self ~cmd:(selector "separatorColor") ~typ:(returning (id)) -let separatorStyle self = msg_send ~self ~cmd:(selector "separatorStyle") ~typ:(returning (llong)) -let setAccessoryAction x self = msg_send ~self ~cmd:(selector "setAccessoryAction:") ~typ:(_SEL @-> returning (void)) x -let setAccessoryActionPreviewingSegueTemplateStorage x self = msg_send ~self ~cmd:(selector "setAccessoryActionPreviewingSegueTemplateStorage:") ~typ:(id @-> returning (void)) x -let setAccessoryActionSegueTemplate x self = msg_send ~self ~cmd:(selector "setAccessoryActionSegueTemplate:") ~typ:(id @-> returning (void)) x -let setAccessoryType x self = msg_send ~self ~cmd:(selector "setAccessoryType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setAccessoryView x self = msg_send ~self ~cmd:(selector "setAccessoryView:") ~typ:(id @-> returning (void)) x -let setAutomaticallyUpdatesBackgroundConfiguration x self = msg_send ~self ~cmd:(selector "setAutomaticallyUpdatesBackgroundConfiguration:") ~typ:(bool @-> returning (void)) x -let setAutomaticallyUpdatesContentConfiguration x self = msg_send ~self ~cmd:(selector "setAutomaticallyUpdatesContentConfiguration:") ~typ:(bool @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBackgroundConfiguration x self = msg_send ~self ~cmd:(selector "setBackgroundConfiguration:") ~typ:(id @-> returning (void)) x -let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning (void)) x -let setClipsContents x self = msg_send ~self ~cmd:(selector "setClipsContents:") ~typ:(bool @-> returning (void)) x -let setClipsToBounds x self = msg_send ~self ~cmd:(selector "setClipsToBounds:") ~typ:(bool @-> returning (void)) x -let setConfigurationUpdateHandler x self = msg_send ~self ~cmd:(selector "setConfigurationUpdateHandler:") ~typ:(ptr void @-> returning (void)) x -let setContentConfiguration x self = msg_send ~self ~cmd:(selector "setContentConfiguration:") ~typ:(id @-> returning (void)) x -let setDrawingEnabled x self = msg_send ~self ~cmd:(selector "setDrawingEnabled:") ~typ:(bool @-> returning (void)) x -let setEditAction x self = msg_send ~self ~cmd:(selector "setEditAction:") ~typ:(_SEL @-> returning (void)) x -let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning (void)) x -let setEditing' x ~animated self = msg_send ~self ~cmd:(selector "setEditing:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setEditingAccessoryType x self = msg_send ~self ~cmd:(selector "setEditingAccessoryType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setEditingAccessoryView x self = msg_send ~self ~cmd:(selector "setEditingAccessoryView:") ~typ:(id @-> returning (void)) x -let setEditingStyle x self = msg_send ~self ~cmd:(selector "setEditingStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setFocusStyle x self = msg_send ~self ~cmd:(selector "setFocusStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHidesAccessoryWhenEditing x self = msg_send ~self ~cmd:(selector "setHidesAccessoryWhenEditing:") ~typ:(bool @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setHighlighted' x ~animated self = msg_send ~self ~cmd:(selector "setHighlighted:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setIndentationLevel x self = msg_send ~self ~cmd:(selector "setIndentationLevel:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setIndentationWidth x self = msg_send ~self ~cmd:(selector "setIndentationWidth:") ~typ:(double @-> returning (void)) x -let setLayoutManager x self = msg_send ~self ~cmd:(selector "setLayoutManager:") ~typ:(id @-> returning (void)) x -let setLineBreakMode x self = msg_send ~self ~cmd:(selector "setLineBreakMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setMultipleSelectionBackgroundView x self = msg_send ~self ~cmd:(selector "setMultipleSelectionBackgroundView:") ~typ:(id @-> returning (void)) x -let setNeedsUpdateConfiguration self = msg_send ~self ~cmd:(selector "setNeedsUpdateConfiguration") ~typ:(returning (void)) -let setNeedsUpdateConstraints self = msg_send ~self ~cmd:(selector "setNeedsUpdateConstraints") ~typ:(returning (void)) -let setPlaceHolderValue x self = msg_send ~self ~cmd:(selector "setPlaceHolderValue:") ~typ:(id @-> returning (void)) x -let setReturnAction x self = msg_send ~self ~cmd:(selector "setReturnAction:") ~typ:(_SEL @-> returning (void)) x -let setReuseIdentifier x self = msg_send ~self ~cmd:(selector "setReuseIdentifier:") ~typ:(id @-> returning (void)) x -let setSectionBorderColor x self = msg_send ~self ~cmd:(selector "setSectionBorderColor:") ~typ:(id @-> returning (void)) x -let setSectionLocation x self = msg_send ~self ~cmd:(selector "setSectionLocation:") ~typ:(int @-> returning (void)) x -let setSectionLocation' x ~animated self = msg_send ~self ~cmd:(selector "setSectionLocation:animated:") ~typ:(int @-> bool @-> returning (void)) x animated -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setSelected' x ~animated self = msg_send ~self ~cmd:(selector "setSelected:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setSelectedBackgroundView x self = msg_send ~self ~cmd:(selector "setSelectedBackgroundView:") ~typ:(id @-> returning (void)) x -let setSelectedBackgroundView' x ~animated self = msg_send ~self ~cmd:(selector "setSelectedBackgroundView:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setSelectedImage x self = msg_send ~self ~cmd:(selector "setSelectedImage:") ~typ:(id @-> returning (void)) x -let setSelectedTextColor x self = msg_send ~self ~cmd:(selector "setSelectedTextColor:") ~typ:(id @-> returning (void)) x -let setSelectionFadeDuration x self = msg_send ~self ~cmd:(selector "setSelectionFadeDuration:") ~typ:(double @-> returning (void)) x -let setSelectionSegueTemplate x self = msg_send ~self ~cmd:(selector "setSelectionSegueTemplate:") ~typ:(id @-> returning (void)) x -let setSelectionStyle x self = msg_send ~self ~cmd:(selector "setSelectionStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSelectionTintColor x self = msg_send ~self ~cmd:(selector "setSelectionTintColor:") ~typ:(id @-> returning (void)) x -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSeparatorColor x self = msg_send ~self ~cmd:(selector "setSeparatorColor:") ~typ:(id @-> returning (void)) x -let setSeparatorInset x self = msg_send ~self ~cmd:(selector "setSeparatorInset:") ~typ:(ptr void @-> returning (void)) x -let setSeparatorStyle x self = msg_send ~self ~cmd:(selector "setSeparatorStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShouldIndentWhileEditing x self = msg_send ~self ~cmd:(selector "setShouldIndentWhileEditing:") ~typ:(bool @-> returning (void)) x -let setShowingDeleteConfirmation x self = msg_send ~self ~cmd:(selector "setShowingDeleteConfirmation:") ~typ:(bool @-> returning (void)) x -let setShowsReorderControl x self = msg_send ~self ~cmd:(selector "setShowsReorderControl:") ~typ:(bool @-> returning (void)) x -let setTableViewStyle x self = msg_send ~self ~cmd:(selector "setTableViewStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning (void)) x -let setTextFieldOffset x self = msg_send ~self ~cmd:(selector "setTextFieldOffset:") ~typ:(double @-> returning (void)) x -let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning (void)) x -let setUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabled:") ~typ:(bool @-> returning (void)) x -let setUserInteractionEnabledWhileDragging x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabledWhileDragging:") ~typ:(bool @-> returning (void)) x -let setWasSwiped x self = msg_send ~self ~cmd:(selector "setWasSwiped:") ~typ:(bool @-> returning (void)) x -let shouldIndentWhileEditing self = msg_send ~self ~cmd:(selector "shouldIndentWhileEditing") ~typ:(returning (bool)) -let showSelectedBackgroundView x ~animated self = msg_send ~self ~cmd:(selector "showSelectedBackgroundView:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let showingDeleteConfirmation self = msg_send ~self ~cmd:(selector "showingDeleteConfirmation") ~typ:(returning (bool)) -let showsReorderControl self = msg_send ~self ~cmd:(selector "showsReorderControl") ~typ:(returning (bool)) -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let systemLayoutSizeFittingSize x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send_stret ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning (CGSize.t)) ~return_type:CGSize.t x withHorizontalFittingPriority verticalFittingPriority -let tableViewStyle self = msg_send ~self ~cmd:(selector "tableViewStyle") ~typ:(returning (llong)) -let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning (id)) -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning (llong)) -let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning (id)) -let textFieldDidBecomeFirstResponder x self = msg_send ~self ~cmd:(selector "textFieldDidBecomeFirstResponder:") ~typ:(id @-> returning (void)) x -let textFieldOffset self = msg_send ~self ~cmd:(selector "textFieldOffset") ~typ:(returning (double)) -let textLabel self = msg_send ~self ~cmd:(selector "textLabel") ~typ:(returning (id)) -let textRectForContentRect x self = msg_send_stret ~self ~cmd:(selector "textRectForContentRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateConfigurationUsingState x self = msg_send ~self ~cmd:(selector "updateConfigurationUsingState:") ~typ:(id @-> returning (void)) x -let userInteractionEnabledWhileDragging self = msg_send ~self ~cmd:(selector "userInteractionEnabledWhileDragging") ~typ:(returning (bool)) -let wasSwiped self = msg_send ~self ~cmd:(selector "wasSwiped") ~typ:(returning (bool)) -let willMoveToSuperview x self = msg_send ~self ~cmd:(selector "willMoveToSuperview:") ~typ:(id @-> returning (void)) x -let willTransitionToState x self = msg_send ~self ~cmd:(selector "willTransitionToState:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) \ No newline at end of file +let contentConfiguration self = msg_send ~self ~cmd:(selector "contentConfiguration") ~typ:(returning id) +let contentRectForBounds x self = msg_send ~self ~cmd:(selector "contentRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let contentRectForState x self = msg_send ~self ~cmd:(selector "contentRectForState:") ~typ:(ullong @-> returning CGRect.t) (ULLong.of_int x) +let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning id) +let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning void) x +let currentStateMask self = msg_send ~self ~cmd:(selector "currentStateMask") ~typ:(returning ullong) +let cut x self = msg_send ~self ~cmd:(selector "cut:") ~typ:(id @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultContentConfiguration self = msg_send ~self ~cmd:(selector "defaultContentConfiguration") ~typ:(returning id) +let detailTextLabel self = msg_send ~self ~cmd:(selector "detailTextLabel") ~typ:(returning id) +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let didTransitionToState x self = msg_send ~self ~cmd:(selector "didTransitionToState:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let dragStateDidChange x self = msg_send ~self ~cmd:(selector "dragStateDidChange:") ~typ:(llong @-> returning void) (LLong.of_int x) +let drawingEnabled self = msg_send ~self ~cmd:(selector "drawingEnabled") ~typ:(returning bool) +let editAction self = msg_send ~self ~cmd:(selector "editAction") ~typ:(returning _SEL) +let editControlWasClicked x self = msg_send ~self ~cmd:(selector "editControlWasClicked:") ~typ:(id @-> returning void) x +let editableTextField self = msg_send ~self ~cmd:(selector "editableTextField") ~typ:(returning id) +let editingAccessoryType self = msg_send ~self ~cmd:(selector "editingAccessoryType") ~typ:(returning llong) +let editingAccessoryView self = msg_send ~self ~cmd:(selector "editingAccessoryView") ~typ:(returning id) +let editingData x self = msg_send ~self ~cmd:(selector "editingData:") ~typ:(bool @-> returning id) x +let editingStyle self = msg_send ~self ~cmd:(selector "editingStyle") ~typ:(returning llong) +let effectiveSeparatorHeight self = msg_send ~self ~cmd:(selector "effectiveSeparatorHeight") ~typ:(returning double) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let focusStyle self = msg_send ~self ~cmd:(selector "focusStyle") ~typ:(returning llong) +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let frame self = msg_send ~self ~cmd:(selector "frame") ~typ:(returning CGRect.t) +let hidesAccessoryWhenEditing self = msg_send ~self ~cmd:(selector "hidesAccessoryWhenEditing") ~typ:(returning bool) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let imageRectForContentRect x self = msg_send ~self ~cmd:(selector "imageRectForContentRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let imageView self = msg_send ~self ~cmd:(selector "imageView") ~typ:(returning id) +let indentationLevel self = msg_send ~self ~cmd:(selector "indentationLevel") ~typ:(returning llong) +let indentationWidth self = msg_send ~self ~cmd:(selector "indentationWidth") ~typ:(returning double) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithFrame' x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithFrame:reuseIdentifier:") ~typ:(CGRect.t @-> id @-> returning id) x reuseIdentifier +let initWithStyle x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithStyle:reuseIdentifier:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) reuseIdentifier +let isAtLeastHalfSelected self = msg_send ~self ~cmd:(selector "isAtLeastHalfSelected") ~typ:(returning bool) +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning bool) +let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning bool) +let layoutManager self = msg_send ~self ~cmd:(selector "layoutManager") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let lineBreakMode self = msg_send ~self ~cmd:(selector "lineBreakMode") ~typ:(returning llong) +let multipleSelectionBackgroundView self = msg_send ~self ~cmd:(selector "multipleSelectionBackgroundView") ~typ:(returning id) +let paste x self = msg_send ~self ~cmd:(selector "paste:") ~typ:(id @-> returning void) x +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning void) +let removeEditingData self = msg_send ~self ~cmd:(selector "removeEditingData") ~typ:(returning void) +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let reorderRectForBounds x self = msg_send ~self ~cmd:(selector "reorderRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let returnAction self = msg_send ~self ~cmd:(selector "returnAction") ~typ:(returning _SEL) +let reuseIdentifier self = msg_send ~self ~cmd:(selector "reuseIdentifier") ~typ:(returning id) +let sectionBorderColor self = msg_send ~self ~cmd:(selector "sectionBorderColor") ~typ:(returning id) +let sectionLocation self = msg_send ~self ~cmd:(selector "sectionLocation") ~typ:(returning int) +let selectedBackgroundView self = msg_send ~self ~cmd:(selector "selectedBackgroundView") ~typ:(returning id) +let selectedImage self = msg_send ~self ~cmd:(selector "selectedImage") ~typ:(returning id) +let selectedOverlayView self = msg_send ~self ~cmd:(selector "selectedOverlayView") ~typ:(returning id) +let selectedTextColor self = msg_send ~self ~cmd:(selector "selectedTextColor") ~typ:(returning id) +let selectionFadeDuration self = msg_send ~self ~cmd:(selector "selectionFadeDuration") ~typ:(returning double) +let selectionPercent self = msg_send ~self ~cmd:(selector "selectionPercent") ~typ:(returning float) +let selectionSegueTemplate self = msg_send ~self ~cmd:(selector "selectionSegueTemplate") ~typ:(returning id) +let selectionStyle self = msg_send ~self ~cmd:(selector "selectionStyle") ~typ:(returning llong) +let selectionTintColor self = msg_send ~self ~cmd:(selector "selectionTintColor") ~typ:(returning id) +let sendSubviewToBack x self = msg_send ~self ~cmd:(selector "sendSubviewToBack:") ~typ:(id @-> returning void) x +let separatorColor self = msg_send ~self ~cmd:(selector "separatorColor") ~typ:(returning id) +let separatorInset self = msg_send ~self ~cmd:(selector "separatorInset") ~typ:(returning UIEdgeInsets.t) +let separatorStyle self = msg_send ~self ~cmd:(selector "separatorStyle") ~typ:(returning llong) +let setAccessoryAction x self = msg_send ~self ~cmd:(selector "setAccessoryAction:") ~typ:(_SEL @-> returning void) x +let setAccessoryActionPreviewingSegueTemplateStorage x self = msg_send ~self ~cmd:(selector "setAccessoryActionPreviewingSegueTemplateStorage:") ~typ:(id @-> returning void) x +let setAccessoryActionSegueTemplate x self = msg_send ~self ~cmd:(selector "setAccessoryActionSegueTemplate:") ~typ:(id @-> returning void) x +let setAccessoryType x self = msg_send ~self ~cmd:(selector "setAccessoryType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setAccessoryView x self = msg_send ~self ~cmd:(selector "setAccessoryView:") ~typ:(id @-> returning void) x +let setAutomaticallyUpdatesBackgroundConfiguration x self = msg_send ~self ~cmd:(selector "setAutomaticallyUpdatesBackgroundConfiguration:") ~typ:(bool @-> returning void) x +let setAutomaticallyUpdatesContentConfiguration x self = msg_send ~self ~cmd:(selector "setAutomaticallyUpdatesContentConfiguration:") ~typ:(bool @-> returning void) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBackgroundConfiguration x self = msg_send ~self ~cmd:(selector "setBackgroundConfiguration:") ~typ:(id @-> returning void) x +let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning void) x +let setClipsContents x self = msg_send ~self ~cmd:(selector "setClipsContents:") ~typ:(bool @-> returning void) x +let setClipsToBounds x self = msg_send ~self ~cmd:(selector "setClipsToBounds:") ~typ:(bool @-> returning void) x +let setConfigurationUpdateHandler x self = msg_send ~self ~cmd:(selector "setConfigurationUpdateHandler:") ~typ:((ptr void) @-> returning void) x +let setContentConfiguration x self = msg_send ~self ~cmd:(selector "setContentConfiguration:") ~typ:(id @-> returning void) x +let setDrawingEnabled x self = msg_send ~self ~cmd:(selector "setDrawingEnabled:") ~typ:(bool @-> returning void) x +let setEditAction x self = msg_send ~self ~cmd:(selector "setEditAction:") ~typ:(_SEL @-> returning void) x +let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning void) x +let setEditing' x ~animated self = msg_send ~self ~cmd:(selector "setEditing:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setEditingAccessoryType x self = msg_send ~self ~cmd:(selector "setEditingAccessoryType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setEditingAccessoryView x self = msg_send ~self ~cmd:(selector "setEditingAccessoryView:") ~typ:(id @-> returning void) x +let setEditingStyle x self = msg_send ~self ~cmd:(selector "setEditingStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setFocusStyle x self = msg_send ~self ~cmd:(selector "setFocusStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHidesAccessoryWhenEditing x self = msg_send ~self ~cmd:(selector "setHidesAccessoryWhenEditing:") ~typ:(bool @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setHighlighted' x ~animated self = msg_send ~self ~cmd:(selector "setHighlighted:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setIndentationLevel x self = msg_send ~self ~cmd:(selector "setIndentationLevel:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setIndentationWidth x self = msg_send ~self ~cmd:(selector "setIndentationWidth:") ~typ:(double @-> returning void) x +let setLayoutManager x self = msg_send ~self ~cmd:(selector "setLayoutManager:") ~typ:(id @-> returning void) x +let setLineBreakMode x self = msg_send ~self ~cmd:(selector "setLineBreakMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setMultipleSelectionBackgroundView x self = msg_send ~self ~cmd:(selector "setMultipleSelectionBackgroundView:") ~typ:(id @-> returning void) x +let setNeedsUpdateConfiguration self = msg_send ~self ~cmd:(selector "setNeedsUpdateConfiguration") ~typ:(returning void) +let setNeedsUpdateConstraints self = msg_send ~self ~cmd:(selector "setNeedsUpdateConstraints") ~typ:(returning void) +let setPlaceHolderValue x self = msg_send ~self ~cmd:(selector "setPlaceHolderValue:") ~typ:(id @-> returning void) x +let setReturnAction x self = msg_send ~self ~cmd:(selector "setReturnAction:") ~typ:(_SEL @-> returning void) x +let setReuseIdentifier x self = msg_send ~self ~cmd:(selector "setReuseIdentifier:") ~typ:(id @-> returning void) x +let setSectionBorderColor x self = msg_send ~self ~cmd:(selector "setSectionBorderColor:") ~typ:(id @-> returning void) x +let setSectionLocation x self = msg_send ~self ~cmd:(selector "setSectionLocation:") ~typ:(int @-> returning void) x +let setSectionLocation' x ~animated self = msg_send ~self ~cmd:(selector "setSectionLocation:animated:") ~typ:(int @-> bool @-> returning void) x animated +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setSelected' x ~animated self = msg_send ~self ~cmd:(selector "setSelected:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setSelectedBackgroundView x self = msg_send ~self ~cmd:(selector "setSelectedBackgroundView:") ~typ:(id @-> returning void) x +let setSelectedBackgroundView' x ~animated self = msg_send ~self ~cmd:(selector "setSelectedBackgroundView:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setSelectedImage x self = msg_send ~self ~cmd:(selector "setSelectedImage:") ~typ:(id @-> returning void) x +let setSelectedTextColor x self = msg_send ~self ~cmd:(selector "setSelectedTextColor:") ~typ:(id @-> returning void) x +let setSelectionFadeDuration x self = msg_send ~self ~cmd:(selector "setSelectionFadeDuration:") ~typ:(double @-> returning void) x +let setSelectionSegueTemplate x self = msg_send ~self ~cmd:(selector "setSelectionSegueTemplate:") ~typ:(id @-> returning void) x +let setSelectionStyle x self = msg_send ~self ~cmd:(selector "setSelectionStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSelectionTintColor x self = msg_send ~self ~cmd:(selector "setSelectionTintColor:") ~typ:(id @-> returning void) x +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSeparatorColor x self = msg_send ~self ~cmd:(selector "setSeparatorColor:") ~typ:(id @-> returning void) x +let setSeparatorInset x self = msg_send ~self ~cmd:(selector "setSeparatorInset:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setSeparatorStyle x self = msg_send ~self ~cmd:(selector "setSeparatorStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setShouldIndentWhileEditing x self = msg_send ~self ~cmd:(selector "setShouldIndentWhileEditing:") ~typ:(bool @-> returning void) x +let setShowingDeleteConfirmation x self = msg_send ~self ~cmd:(selector "setShowingDeleteConfirmation:") ~typ:(bool @-> returning void) x +let setShowsReorderControl x self = msg_send ~self ~cmd:(selector "setShowsReorderControl:") ~typ:(bool @-> returning void) x +let setTableViewStyle x self = msg_send ~self ~cmd:(selector "setTableViewStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning void) x +let setTextFieldOffset x self = msg_send ~self ~cmd:(selector "setTextFieldOffset:") ~typ:(double @-> returning void) x +let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning void) x +let setUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabled:") ~typ:(bool @-> returning void) x +let setUserInteractionEnabledWhileDragging x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabledWhileDragging:") ~typ:(bool @-> returning void) x +let setWasSwiped x self = msg_send ~self ~cmd:(selector "setWasSwiped:") ~typ:(bool @-> returning void) x +let shouldIndentWhileEditing self = msg_send ~self ~cmd:(selector "shouldIndentWhileEditing") ~typ:(returning bool) +let showSelectedBackgroundView x ~animated self = msg_send ~self ~cmd:(selector "showSelectedBackgroundView:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let showingDeleteConfirmation self = msg_send ~self ~cmd:(selector "showingDeleteConfirmation") ~typ:(returning bool) +let showsReorderControl self = msg_send ~self ~cmd:(selector "showsReorderControl") ~typ:(returning bool) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let systemLayoutSizeFittingSize x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning CGSize.t) x withHorizontalFittingPriority verticalFittingPriority +let tableViewStyle self = msg_send ~self ~cmd:(selector "tableViewStyle") ~typ:(returning llong) +let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning id) +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning llong) +let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning id) +let textFieldDidBecomeFirstResponder x self = msg_send ~self ~cmd:(selector "textFieldDidBecomeFirstResponder:") ~typ:(id @-> returning void) x +let textFieldOffset self = msg_send ~self ~cmd:(selector "textFieldOffset") ~typ:(returning double) +let textLabel self = msg_send ~self ~cmd:(selector "textLabel") ~typ:(returning id) +let textRectForContentRect x self = msg_send ~self ~cmd:(selector "textRectForContentRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let updateConfigurationUsingState x self = msg_send ~self ~cmd:(selector "updateConfigurationUsingState:") ~typ:(id @-> returning void) x +let userInteractionEnabledWhileDragging self = msg_send ~self ~cmd:(selector "userInteractionEnabledWhileDragging") ~typ:(returning bool) +let wasSwiped self = msg_send ~self ~cmd:(selector "wasSwiped") ~typ:(returning bool) +let willMoveToSuperview x self = msg_send ~self ~cmd:(selector "willMoveToSuperview:") ~typ:(id @-> returning void) x +let willTransitionToState x self = msg_send ~self ~cmd:(selector "willTransitionToState:") ~typ:(ullong @-> returning void) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UITableViewCellContentMirror.ml b/uikit/UITableViewCellContentMirror.ml index 754b8cf6..9e3af685 100644 --- a/uikit/UITableViewCellContentMirror.ml +++ b/uikit/UITableViewCellContentMirror.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewCellContentMirror" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcellcontentmirror?language=objc}UITableViewCellContentMirror} *) -let cell self = msg_send ~self ~cmd:(selector "cell") ~typ:(returning (id)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning (bool)) -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UITableViewCellContentMirror" + +let cell self = msg_send ~self ~cmd:(selector "cell") ~typ:(returning id) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning bool) +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UITableViewCellContentView.ml b/uikit/UITableViewCellContentView.ml index 6e1e8878..ddec3ea5 100644 --- a/uikit/UITableViewCellContentView.ml +++ b/uikit/UITableViewCellContentView.ml @@ -5,13 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewCellContentView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcellcontentview?language=objc}UITableViewCellContentView} *) -module C = struct - let classFallbacksForKeyedArchiver self = msg_send ~self ~cmd:(selector "classFallbacksForKeyedArchiver") ~typ:(returning (id)) -end +let self = get_class "UITableViewCellContentView" -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UITableViewCellContentViewClass.ml b/uikit/UITableViewCellContentViewClass.ml new file mode 100644 index 00000000..2483c71b --- /dev/null +++ b/uikit/UITableViewCellContentViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcellcontentview?language=objc}UITableViewCellContentView} *) + +let classFallbacksForKeyedArchiver self = msg_send ~self ~cmd:(selector "classFallbacksForKeyedArchiver") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITableViewCellDetailDisclosureView.ml b/uikit/UITableViewCellDetailDisclosureView.ml index 615e9246..a224024e 100644 --- a/uikit/UITableViewCellDetailDisclosureView.ml +++ b/uikit/UITableViewCellDetailDisclosureView.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewCellDetailDisclosureView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcelldetaildisclosureview?language=objc}UITableViewCellDetailDisclosureView} *) -let accessoryButton self = msg_send ~self ~cmd:(selector "accessoryButton") ~typ:(returning (id)) -let accessoryTintColor self = msg_send ~self ~cmd:(selector "accessoryTintColor") ~typ:(returning (id)) -let addTarget x ~action ~forControlEvents self = msg_send ~self ~cmd:(selector "addTarget:action:forControlEvents:") ~typ:(id @-> _SEL @-> ullong @-> returning (void)) x action (ULLong.of_int forControlEvents) -let initWithTarget x ~action ~cell ~buttonType ~shouldReverseLayoutDirection self = msg_send ~self ~cmd:(selector "initWithTarget:action:cell:buttonType:shouldReverseLayoutDirection:") ~typ:(id @-> _SEL @-> id @-> llong @-> bool @-> returning (id)) x action cell (LLong.of_int buttonType) shouldReverseLayoutDirection -let removeTarget x ~action ~forControlEvents self = msg_send ~self ~cmd:(selector "removeTarget:action:forControlEvents:") ~typ:(id @-> _SEL @-> ullong @-> returning (void)) x action (ULLong.of_int forControlEvents) -let setAccessoryTintColor x self = msg_send ~self ~cmd:(selector "setAccessoryTintColor:") ~typ:(id @-> returning (void)) x -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x \ No newline at end of file +let self = get_class "UITableViewCellDetailDisclosureView" + +let accessoryButton self = msg_send ~self ~cmd:(selector "accessoryButton") ~typ:(returning id) +let accessoryTintColor self = msg_send ~self ~cmd:(selector "accessoryTintColor") ~typ:(returning id) +let addTarget x ~action ~forControlEvents self = msg_send ~self ~cmd:(selector "addTarget:action:forControlEvents:") ~typ:(id @-> _SEL @-> ullong @-> returning void) x action (ULLong.of_int forControlEvents) +let initWithTarget x ~action ~cell ~buttonType ~shouldReverseLayoutDirection self = msg_send ~self ~cmd:(selector "initWithTarget:action:cell:buttonType:shouldReverseLayoutDirection:") ~typ:(id @-> _SEL @-> id @-> llong @-> bool @-> returning id) x action cell (LLong.of_int buttonType) shouldReverseLayoutDirection +let removeTarget x ~action ~forControlEvents self = msg_send ~self ~cmd:(selector "removeTarget:action:forControlEvents:") ~typ:(id @-> _SEL @-> ullong @-> returning void) x action (ULLong.of_int forControlEvents) +let setAccessoryTintColor x self = msg_send ~self ~cmd:(selector "setAccessoryTintColor:") ~typ:(id @-> returning void) x +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x \ No newline at end of file diff --git a/uikit/UITableViewCellEditControl.ml b/uikit/UITableViewCellEditControl.ml index b7a43854..6971bdfa 100644 --- a/uikit/UITableViewCellEditControl.ml +++ b/uikit/UITableViewCellEditControl.ml @@ -5,26 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewCellEditControl" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcelleditcontrol?language=objc}UITableViewCellEditControl} *) -let accessoryBackgroundColor self = msg_send ~self ~cmd:(selector "accessoryBackgroundColor") ~typ:(returning (id)) -let accessoryTintColor self = msg_send ~self ~cmd:(selector "accessoryTintColor") ~typ:(returning (id)) -let adjustLayoutForFocalRect x self = msg_send ~self ~cmd:(selector "adjustLayoutForFocalRect:") ~typ:(CGRect.t @-> returning (void)) x -let defaultSize self = msg_send_stret ~self ~cmd:(selector "defaultSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let initWithTableViewCell x ~editingStyle self = msg_send ~self ~cmd:(selector "initWithTableViewCell:editingStyle:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int editingStyle) -let isRotated self = msg_send ~self ~cmd:(selector "isRotated") ~typ:(returning (bool)) -let isRotating self = msg_send ~self ~cmd:(selector "isRotating") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setAccessoryBackgroundColor x self = msg_send ~self ~cmd:(selector "setAccessoryBackgroundColor:") ~typ:(id @-> returning (void)) x -let setAccessoryTintColor x self = msg_send ~self ~cmd:(selector "setAccessoryTintColor:") ~typ:(id @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setRotated x self = msg_send ~self ~cmd:(selector "setRotated:") ~typ:(bool @-> returning (void)) x -let setRotated' x ~animated self = msg_send ~self ~cmd:(selector "setRotated:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let viewForFirstBaselineLayout self = msg_send ~self ~cmd:(selector "viewForFirstBaselineLayout") ~typ:(returning (id)) -let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning (id)) -let wantsImageShadow self = msg_send ~self ~cmd:(selector "wantsImageShadow") ~typ:(returning (bool)) -let wantsMaskingWhileAnimatingDisabled self = msg_send ~self ~cmd:(selector "wantsMaskingWhileAnimatingDisabled") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UITableViewCellEditControl" + +let accessoryBackgroundColor self = msg_send ~self ~cmd:(selector "accessoryBackgroundColor") ~typ:(returning id) +let accessoryTintColor self = msg_send ~self ~cmd:(selector "accessoryTintColor") ~typ:(returning id) +let adjustLayoutForFocalRect x self = msg_send ~self ~cmd:(selector "adjustLayoutForFocalRect:") ~typ:(CGRect.t @-> returning void) x +let defaultSize self = msg_send ~self ~cmd:(selector "defaultSize") ~typ:(returning CGSize.t) +let initWithTableViewCell x ~editingStyle self = msg_send ~self ~cmd:(selector "initWithTableViewCell:editingStyle:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int editingStyle) +let isRotated self = msg_send ~self ~cmd:(selector "isRotated") ~typ:(returning bool) +let isRotating self = msg_send ~self ~cmd:(selector "isRotating") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setAccessoryBackgroundColor x self = msg_send ~self ~cmd:(selector "setAccessoryBackgroundColor:") ~typ:(id @-> returning void) x +let setAccessoryTintColor x self = msg_send ~self ~cmd:(selector "setAccessoryTintColor:") ~typ:(id @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setRotated x self = msg_send ~self ~cmd:(selector "setRotated:") ~typ:(bool @-> returning void) x +let setRotated' x ~animated self = msg_send ~self ~cmd:(selector "setRotated:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let viewForFirstBaselineLayout self = msg_send ~self ~cmd:(selector "viewForFirstBaselineLayout") ~typ:(returning id) +let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning id) +let wantsImageShadow self = msg_send ~self ~cmd:(selector "wantsImageShadow") ~typ:(returning bool) +let wantsMaskingWhileAnimatingDisabled self = msg_send ~self ~cmd:(selector "wantsMaskingWhileAnimatingDisabled") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITableViewCellEditingData.ml b/uikit/UITableViewCellEditingData.ml index 3cb60164..07ac5ec7 100644 --- a/uikit/UITableViewCellEditingData.ml +++ b/uikit/UITableViewCellEditingData.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewCellEditingData" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcelleditingdata?language=objc}UITableViewCellEditingData} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let editControl x self = msg_send ~self ~cmd:(selector "editControl:") ~typ:(bool @-> returning (id)) x -let initWithTableViewCell x ~editingStyle self = msg_send ~self ~cmd:(selector "initWithTableViewCell:editingStyle:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int editingStyle) -let isDataRequired self = msg_send ~self ~cmd:(selector "isDataRequired") ~typ:(returning (bool)) -let reorderControl x self = msg_send ~self ~cmd:(selector "reorderControl:") ~typ:(bool @-> returning (id)) x -let reorderSeparatorView x self = msg_send ~self ~cmd:(selector "reorderSeparatorView:") ~typ:(bool @-> returning (id)) x -let wantsMaskingWhileAnimatingDisabled self = msg_send ~self ~cmd:(selector "wantsMaskingWhileAnimatingDisabled") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UITableViewCellEditingData" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let editControl x self = msg_send ~self ~cmd:(selector "editControl:") ~typ:(bool @-> returning id) x +let initWithTableViewCell x ~editingStyle self = msg_send ~self ~cmd:(selector "initWithTableViewCell:editingStyle:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int editingStyle) +let isDataRequired self = msg_send ~self ~cmd:(selector "isDataRequired") ~typ:(returning bool) +let reorderControl x self = msg_send ~self ~cmd:(selector "reorderControl:") ~typ:(bool @-> returning id) x +let reorderSeparatorView x self = msg_send ~self ~cmd:(selector "reorderSeparatorView:") ~typ:(bool @-> returning id) x +let wantsMaskingWhileAnimatingDisabled self = msg_send ~self ~cmd:(selector "wantsMaskingWhileAnimatingDisabled") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITableViewCellFocusableEditControl.ml b/uikit/UITableViewCellFocusableEditControl.ml index 5c4f6c5d..6b5b5012 100644 --- a/uikit/UITableViewCellFocusableEditControl.ml +++ b/uikit/UITableViewCellFocusableEditControl.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewCellFocusableEditControl" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcellfocusableeditcontrol?language=objc}UITableViewCellFocusableEditControl} *) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let wantsImageShadow self = msg_send ~self ~cmd:(selector "wantsImageShadow") ~typ:(returning (bool)) -let wantsMaskingWhileAnimatingDisabled self = msg_send ~self ~cmd:(selector "wantsMaskingWhileAnimatingDisabled") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UITableViewCellFocusableEditControl" + +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let wantsImageShadow self = msg_send ~self ~cmd:(selector "wantsImageShadow") ~typ:(returning bool) +let wantsMaskingWhileAnimatingDisabled self = msg_send ~self ~cmd:(selector "wantsMaskingWhileAnimatingDisabled") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITableViewCellFocusableReorderControl.ml b/uikit/UITableViewCellFocusableReorderControl.ml index 67a9baec..640145e9 100644 --- a/uikit/UITableViewCellFocusableReorderControl.ml +++ b/uikit/UITableViewCellFocusableReorderControl.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewCellFocusableReorderControl" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcellfocusablereordercontrol?language=objc}UITableViewCellFocusableReorderControl} *) -let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let floatingContentView x ~didFinishTransitioningToState self = msg_send ~self ~cmd:(selector "floatingContentView:didFinishTransitioningToState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int didFinishTransitioningToState) -let floatingContentView' x ~isTransitioningFromState ~toState self = msg_send ~self ~cmd:(selector "floatingContentView:isTransitioningFromState:toState:") ~typ:(id @-> ullong @-> ullong @-> returning (void)) x (ULLong.of_int isTransitioningFromState) (ULLong.of_int toState) -let initWithTableViewCell x self = msg_send ~self ~cmd:(selector "initWithTableViewCell:") ~typ:(id @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning (bool)) x -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let wantsMaskingWhileAnimatingDisabled self = msg_send ~self ~cmd:(selector "wantsMaskingWhileAnimatingDisabled") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UITableViewCellFocusableReorderControl" + +let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let floatingContentView x ~didFinishTransitioningToState self = msg_send ~self ~cmd:(selector "floatingContentView:didFinishTransitioningToState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int didFinishTransitioningToState) +let floatingContentView' x ~isTransitioningFromState ~toState self = msg_send ~self ~cmd:(selector "floatingContentView:isTransitioningFromState:toState:") ~typ:(id @-> ullong @-> ullong @-> returning void) x (ULLong.of_int isTransitioningFromState) (ULLong.of_int toState) +let initWithTableViewCell x self = msg_send ~self ~cmd:(selector "initWithTableViewCell:") ~typ:(id @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning bool) x +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let wantsMaskingWhileAnimatingDisabled self = msg_send ~self ~cmd:(selector "wantsMaskingWhileAnimatingDisabled") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITableViewCellLayoutManager.ml b/uikit/UITableViewCellLayoutManager.ml index 94f6cec2..cf166564 100644 --- a/uikit/UITableViewCellLayoutManager.ml +++ b/uikit/UITableViewCellLayoutManager.ml @@ -5,74 +5,71 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewCellLayoutManager" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcelllayoutmanager?language=objc}UITableViewCellLayoutManager} *) -module C = struct - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let layoutManagerForTableViewCellStyle x self = msg_send ~self ~cmd:(selector "layoutManagerForTableViewCellStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let requiresLegacyLayout self = msg_send ~self ~cmd:(selector "requiresLegacyLayout") ~typ:(returning (bool)) - let sharedLayoutManager self = msg_send ~self ~cmd:(selector "sharedLayoutManager") ~typ:(returning (id)) -end +let self = get_class "UITableViewCellLayoutManager" -let accessoryEndingRectForCell x ~forNewEditingState ~showingDeleteConfirmation self = msg_send_stret ~self ~cmd:(selector "accessoryEndingRectForCell:forNewEditingState:showingDeleteConfirmation:") ~typ:(id @-> bool @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forNewEditingState showingDeleteConfirmation -let accessoryShouldAppearForCell x self = msg_send ~self ~cmd:(selector "accessoryShouldAppearForCell:") ~typ:(id @-> returning (bool)) x -let accessoryShouldFadeForCell x self = msg_send ~self ~cmd:(selector "accessoryShouldFadeForCell:") ~typ:(id @-> returning (bool)) x -let accessoryStartingRectForCell x ~forNewEditingState ~showingDeleteConfirmation self = msg_send_stret ~self ~cmd:(selector "accessoryStartingRectForCell:forNewEditingState:showingDeleteConfirmation:") ~typ:(id @-> bool @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forNewEditingState showingDeleteConfirmation -let backgroundEndingRectForCell x ~forNewEditingState self = msg_send_stret ~self ~cmd:(selector "backgroundEndingRectForCell:forNewEditingState:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forNewEditingState -let backgroundStartingRectForCell x ~forNewEditingState self = msg_send_stret ~self ~cmd:(selector "backgroundStartingRectForCell:forNewEditingState:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forNewEditingState -let badgeForCell x self = msg_send ~self ~cmd:(selector "badgeForCell:") ~typ:(id @-> returning (id)) x -let cell x ~didTransitionToState self = msg_send ~self ~cmd:(selector "cell:didTransitionToState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int didTransitionToState) -let cell' x ~willTransitionToState self = msg_send ~self ~cmd:(selector "cell:willTransitionToState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int willTransitionToState) -let contentEndingRectForCell x ~forDisplayOfDeleteConfirmation self = msg_send_stret ~self ~cmd:(selector "contentEndingRectForCell:forDisplayOfDeleteConfirmation:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forDisplayOfDeleteConfirmation -let contentEndingRectForCell' x ~forNewEditingState self = msg_send_stret ~self ~cmd:(selector "contentEndingRectForCell:forNewEditingState:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forNewEditingState -let contentIndentationForCell x self = msg_send ~self ~cmd:(selector "contentIndentationForCell:") ~typ:(id @-> returning (double)) x -let contentRectForCell x ~forState self = msg_send_stret ~self ~cmd:(selector "contentRectForCell:forState:") ~typ:(id @-> ullong @-> returning (CGRect.t)) ~return_type:CGRect.t x (ULLong.of_int forState) -let contentRectForCell' x ~forState ~rowWidth self = msg_send_stret ~self ~cmd:(selector "contentRectForCell:forState:rowWidth:") ~typ:(id @-> ullong @-> double @-> returning (CGRect.t)) ~return_type:CGRect.t x (ULLong.of_int forState) rowWidth -let contentStartingRectForCell x ~forDisplayOfDeleteConfirmation self = msg_send_stret ~self ~cmd:(selector "contentStartingRectForCell:forDisplayOfDeleteConfirmation:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forDisplayOfDeleteConfirmation -let contentStartingRectForCell' x ~forNewEditingState self = msg_send_stret ~self ~cmd:(selector "contentStartingRectForCell:forNewEditingState:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forNewEditingState -let customAccessoryViewForCell x ~editing self = msg_send ~self ~cmd:(selector "customAccessoryViewForCell:editing:") ~typ:(id @-> bool @-> returning (id)) x editing -let defaultBadgeForCell x self = msg_send ~self ~cmd:(selector "defaultBadgeForCell:") ~typ:(id @-> returning (id)) x -let defaultDetailTextLabelFontForCell x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontForCell:") ~typ:(id @-> returning (id)) x -let defaultDetailTextLabelFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontSizeForCell:") ~typ:(id @-> returning (double)) x -let defaultEditableTextFieldForCell x self = msg_send ~self ~cmd:(selector "defaultEditableTextFieldForCell:") ~typ:(id @-> returning (id)) x -let defaultImageViewForCell x self = msg_send ~self ~cmd:(selector "defaultImageViewForCell:") ~typ:(id @-> returning (id)) x -let defaultLabelForCell x self = msg_send ~self ~cmd:(selector "defaultLabelForCell:") ~typ:(id @-> returning (id)) x -let defaultLabelForCell' x ~ofClass self = msg_send ~self ~cmd:(selector "defaultLabelForCell:ofClass:") ~typ:(id @-> _Class @-> returning (id)) x ofClass -let defaultTextLabelFontForCell x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontForCell:") ~typ:(id @-> returning (id)) x -let defaultTextLabelFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontSizeForCell:") ~typ:(id @-> returning (double)) x -let detailTextLabelForCell x self = msg_send ~self ~cmd:(selector "detailTextLabelForCell:") ~typ:(id @-> returning (id)) x -let editControlEndingRectForCell x ~forNewEditingState self = msg_send_stret ~self ~cmd:(selector "editControlEndingRectForCell:forNewEditingState:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forNewEditingState -let editControlShouldAppearForCell x self = msg_send ~self ~cmd:(selector "editControlShouldAppearForCell:") ~typ:(id @-> returning (bool)) x -let editControlShouldFadeForCell x self = msg_send ~self ~cmd:(selector "editControlShouldFadeForCell:") ~typ:(id @-> returning (bool)) x -let editControlStartingRectForCell x ~forNewEditingState self = msg_send_stret ~self ~cmd:(selector "editControlStartingRectForCell:forNewEditingState:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forNewEditingState -let editableTextFieldForCell x self = msg_send ~self ~cmd:(selector "editableTextFieldForCell:") ~typ:(id @-> returning (id)) x -let editingAccessoryEndingRectForCell x ~forNewEditingState ~showingDeleteConfirmation self = msg_send_stret ~self ~cmd:(selector "editingAccessoryEndingRectForCell:forNewEditingState:showingDeleteConfirmation:") ~typ:(id @-> bool @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forNewEditingState showingDeleteConfirmation -let editingAccessoryShouldAppearForCell x self = msg_send ~self ~cmd:(selector "editingAccessoryShouldAppearForCell:") ~typ:(id @-> returning (bool)) x -let editingAccessoryShouldFadeForCell x self = msg_send ~self ~cmd:(selector "editingAccessoryShouldFadeForCell:") ~typ:(id @-> returning (bool)) x -let editingAccessoryStartingRectForCell x ~forNewEditingState ~showingDeleteConfirmation self = msg_send_stret ~self ~cmd:(selector "editingAccessoryStartingRectForCell:forNewEditingState:showingDeleteConfirmation:") ~typ:(id @-> bool @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forNewEditingState showingDeleteConfirmation -let getTextLabelRect x ~detailTextLabelRect ~forCell ~rowWidth ~forSizing self = msg_send ~self ~cmd:(selector "getTextLabelRect:detailTextLabelRect:forCell:rowWidth:forSizing:") ~typ:(ptr (CGRect.t) @-> ptr (CGRect.t) @-> id @-> double @-> bool @-> returning (void)) x detailTextLabelRect forCell rowWidth forSizing -let imageViewForCell x self = msg_send ~self ~cmd:(selector "imageViewForCell:") ~typ:(id @-> returning (id)) x -let intrinsicContentSizeForCell x ~rowWidth self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSizeForCell:rowWidth:") ~typ:(id @-> double @-> returning (CGSize.t)) ~return_type:CGSize.t x rowWidth -let layoutSubviewsOfCell x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfCell:") ~typ:(id @-> returning (void)) x -let optimumSizeForLabel x ~inTotalTextRect ~minimizeWidthOnVerticalOverflow ~preferSingleLineWidth self = msg_send_stret ~self ~cmd:(selector "optimumSizeForLabel:inTotalTextRect:minimizeWidthOnVerticalOverflow:preferSingleLineWidth:") ~typ:(id @-> CGRect.t @-> bool @-> bool @-> returning (CGSize.t)) ~return_type:CGSize.t x inTotalTextRect minimizeWidthOnVerticalOverflow preferSingleLineWidth -let prepareCellForReuse x self = msg_send ~self ~cmd:(selector "prepareCellForReuse:") ~typ:(id @-> returning (void)) x -let reorderControlEndingRectForCell x ~forNewEditingState ~showingDeleteConfirmation self = msg_send_stret ~self ~cmd:(selector "reorderControlEndingRectForCell:forNewEditingState:showingDeleteConfirmation:") ~typ:(id @-> bool @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forNewEditingState showingDeleteConfirmation -let reorderControlShouldAppearForCell x self = msg_send ~self ~cmd:(selector "reorderControlShouldAppearForCell:") ~typ:(id @-> returning (bool)) x -let reorderControlShouldFadeForCell x self = msg_send ~self ~cmd:(selector "reorderControlShouldFadeForCell:") ~typ:(id @-> returning (bool)) x -let reorderControlStartingRectForCell x ~forNewEditingState ~showingDeleteConfirmation self = msg_send_stret ~self ~cmd:(selector "reorderControlStartingRectForCell:forNewEditingState:showingDeleteConfirmation:") ~typ:(id @-> bool @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forNewEditingState showingDeleteConfirmation -let reorderSeparatorEndingRectForCell x ~forNewEditingState ~showingDeleteConfirmation self = msg_send_stret ~self ~cmd:(selector "reorderSeparatorEndingRectForCell:forNewEditingState:showingDeleteConfirmation:") ~typ:(id @-> bool @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forNewEditingState showingDeleteConfirmation -let reorderSeparatorShouldAppearForCell x self = msg_send ~self ~cmd:(selector "reorderSeparatorShouldAppearForCell:") ~typ:(id @-> returning (bool)) x -let reorderSeparatorShouldFadeForCell x self = msg_send ~self ~cmd:(selector "reorderSeparatorShouldFadeForCell:") ~typ:(id @-> returning (bool)) x -let reorderSeparatorStartingRectForCell x ~forNewEditingState ~showingDeleteConfirmation self = msg_send_stret ~self ~cmd:(selector "reorderSeparatorStartingRectForCell:forNewEditingState:showingDeleteConfirmation:") ~typ:(id @-> bool @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forNewEditingState showingDeleteConfirmation -let requiredIndentationForFirstLineOfCell x ~rowWidth self = msg_send ~self ~cmd:(selector "requiredIndentationForFirstLineOfCell:rowWidth:") ~typ:(id @-> double @-> returning (double)) x rowWidth -let requiredIndentationForFirstLineOfCell' x ~rowWidth ~forSizing self = msg_send ~self ~cmd:(selector "requiredIndentationForFirstLineOfCell:rowWidth:forSizing:") ~typ:(id @-> double @-> bool @-> returning (double)) x rowWidth forSizing -let selectedBackgroundEndingRectForCell x ~forNewEditingState self = msg_send_stret ~self ~cmd:(selector "selectedBackgroundEndingRectForCell:forNewEditingState:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forNewEditingState -let shouldApplyAccessibilityLargeTextLayoutForCell x self = msg_send ~self ~cmd:(selector "shouldApplyAccessibilityLargeTextLayoutForCell:") ~typ:(id @-> returning (bool)) x -let shouldIncreaseMarginForImageViewInCell x self = msg_send ~self ~cmd:(selector "shouldIncreaseMarginForImageViewInCell:") ~typ:(id @-> returning (bool)) x -let shouldStackAccessoryViewVerticallyForCell x ~editing self = msg_send ~self ~cmd:(selector "shouldStackAccessoryViewVerticallyForCell:editing:") ~typ:(id @-> bool @-> returning (bool)) x editing -let standardLayoutImageViewFrameForCell x ~forSizing self = msg_send_stret ~self ~cmd:(selector "standardLayoutImageViewFrameForCell:forSizing:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forSizing -let textLabelForCell x self = msg_send ~self ~cmd:(selector "textLabelForCell:") ~typ:(id @-> returning (id)) x -let textRectForCell x self = msg_send_stret ~self ~cmd:(selector "textRectForCell:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let textRectForCell1 x ~rowWidth self = msg_send_stret ~self ~cmd:(selector "textRectForCell:rowWidth:") ~typ:(id @-> double @-> returning (CGRect.t)) ~return_type:CGRect.t x rowWidth -let textRectForCell2 x ~rowWidth ~forSizing self = msg_send_stret ~self ~cmd:(selector "textRectForCell:rowWidth:forSizing:") ~typ:(id @-> double @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x rowWidth forSizing \ No newline at end of file +let accessoryEndingRectForCell x ~forNewEditingState ~showingDeleteConfirmation self = msg_send ~self ~cmd:(selector "accessoryEndingRectForCell:forNewEditingState:showingDeleteConfirmation:") ~typ:(id @-> bool @-> bool @-> returning CGRect.t) x forNewEditingState showingDeleteConfirmation +let accessoryShouldAppearForCell x self = msg_send ~self ~cmd:(selector "accessoryShouldAppearForCell:") ~typ:(id @-> returning bool) x +let accessoryShouldFadeForCell x self = msg_send ~self ~cmd:(selector "accessoryShouldFadeForCell:") ~typ:(id @-> returning bool) x +let accessoryStartingRectForCell x ~forNewEditingState ~showingDeleteConfirmation self = msg_send ~self ~cmd:(selector "accessoryStartingRectForCell:forNewEditingState:showingDeleteConfirmation:") ~typ:(id @-> bool @-> bool @-> returning CGRect.t) x forNewEditingState showingDeleteConfirmation +let backgroundEndingRectForCell x ~forNewEditingState self = msg_send ~self ~cmd:(selector "backgroundEndingRectForCell:forNewEditingState:") ~typ:(id @-> bool @-> returning CGRect.t) x forNewEditingState +let backgroundStartingRectForCell x ~forNewEditingState self = msg_send ~self ~cmd:(selector "backgroundStartingRectForCell:forNewEditingState:") ~typ:(id @-> bool @-> returning CGRect.t) x forNewEditingState +let badgeForCell x self = msg_send ~self ~cmd:(selector "badgeForCell:") ~typ:(id @-> returning id) x +let cell x ~didTransitionToState self = msg_send ~self ~cmd:(selector "cell:didTransitionToState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int didTransitionToState) +let cell' x ~willTransitionToState self = msg_send ~self ~cmd:(selector "cell:willTransitionToState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int willTransitionToState) +let contentEndingRectForCell x ~forDisplayOfDeleteConfirmation self = msg_send ~self ~cmd:(selector "contentEndingRectForCell:forDisplayOfDeleteConfirmation:") ~typ:(id @-> bool @-> returning CGRect.t) x forDisplayOfDeleteConfirmation +let contentEndingRectForCell' x ~forNewEditingState self = msg_send ~self ~cmd:(selector "contentEndingRectForCell:forNewEditingState:") ~typ:(id @-> bool @-> returning CGRect.t) x forNewEditingState +let contentIndentationForCell x self = msg_send ~self ~cmd:(selector "contentIndentationForCell:") ~typ:(id @-> returning double) x +let contentRectForCell x ~forState self = msg_send ~self ~cmd:(selector "contentRectForCell:forState:") ~typ:(id @-> ullong @-> returning CGRect.t) x (ULLong.of_int forState) +let contentRectForCell' x ~forState ~rowWidth self = msg_send ~self ~cmd:(selector "contentRectForCell:forState:rowWidth:") ~typ:(id @-> ullong @-> double @-> returning CGRect.t) x (ULLong.of_int forState) rowWidth +let contentStartingRectForCell x ~forDisplayOfDeleteConfirmation self = msg_send ~self ~cmd:(selector "contentStartingRectForCell:forDisplayOfDeleteConfirmation:") ~typ:(id @-> bool @-> returning CGRect.t) x forDisplayOfDeleteConfirmation +let contentStartingRectForCell' x ~forNewEditingState self = msg_send ~self ~cmd:(selector "contentStartingRectForCell:forNewEditingState:") ~typ:(id @-> bool @-> returning CGRect.t) x forNewEditingState +let customAccessoryViewForCell x ~editing self = msg_send ~self ~cmd:(selector "customAccessoryViewForCell:editing:") ~typ:(id @-> bool @-> returning id) x editing +let defaultBadgeForCell x self = msg_send ~self ~cmd:(selector "defaultBadgeForCell:") ~typ:(id @-> returning id) x +let defaultDetailTextLabelFontForCell x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontForCell:") ~typ:(id @-> returning id) x +let defaultDetailTextLabelFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontSizeForCell:") ~typ:(id @-> returning double) x +let defaultEditableTextFieldForCell x self = msg_send ~self ~cmd:(selector "defaultEditableTextFieldForCell:") ~typ:(id @-> returning id) x +let defaultImageViewForCell x self = msg_send ~self ~cmd:(selector "defaultImageViewForCell:") ~typ:(id @-> returning id) x +let defaultLabelForCell x self = msg_send ~self ~cmd:(selector "defaultLabelForCell:") ~typ:(id @-> returning id) x +let defaultLabelForCell' x ~ofClass self = msg_send ~self ~cmd:(selector "defaultLabelForCell:ofClass:") ~typ:(id @-> _Class @-> returning id) x ofClass +let defaultTextLabelFontForCell x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontForCell:") ~typ:(id @-> returning id) x +let defaultTextLabelFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontSizeForCell:") ~typ:(id @-> returning double) x +let detailTextLabelForCell x self = msg_send ~self ~cmd:(selector "detailTextLabelForCell:") ~typ:(id @-> returning id) x +let editControlEndingRectForCell x ~forNewEditingState self = msg_send ~self ~cmd:(selector "editControlEndingRectForCell:forNewEditingState:") ~typ:(id @-> bool @-> returning CGRect.t) x forNewEditingState +let editControlShouldAppearForCell x self = msg_send ~self ~cmd:(selector "editControlShouldAppearForCell:") ~typ:(id @-> returning bool) x +let editControlShouldFadeForCell x self = msg_send ~self ~cmd:(selector "editControlShouldFadeForCell:") ~typ:(id @-> returning bool) x +let editControlStartingRectForCell x ~forNewEditingState self = msg_send ~self ~cmd:(selector "editControlStartingRectForCell:forNewEditingState:") ~typ:(id @-> bool @-> returning CGRect.t) x forNewEditingState +let editableTextFieldForCell x self = msg_send ~self ~cmd:(selector "editableTextFieldForCell:") ~typ:(id @-> returning id) x +let editingAccessoryEndingRectForCell x ~forNewEditingState ~showingDeleteConfirmation self = msg_send ~self ~cmd:(selector "editingAccessoryEndingRectForCell:forNewEditingState:showingDeleteConfirmation:") ~typ:(id @-> bool @-> bool @-> returning CGRect.t) x forNewEditingState showingDeleteConfirmation +let editingAccessoryShouldAppearForCell x self = msg_send ~self ~cmd:(selector "editingAccessoryShouldAppearForCell:") ~typ:(id @-> returning bool) x +let editingAccessoryShouldFadeForCell x self = msg_send ~self ~cmd:(selector "editingAccessoryShouldFadeForCell:") ~typ:(id @-> returning bool) x +let editingAccessoryStartingRectForCell x ~forNewEditingState ~showingDeleteConfirmation self = msg_send ~self ~cmd:(selector "editingAccessoryStartingRectForCell:forNewEditingState:showingDeleteConfirmation:") ~typ:(id @-> bool @-> bool @-> returning CGRect.t) x forNewEditingState showingDeleteConfirmation +let getTextLabelRect x ~detailTextLabelRect ~forCell ~rowWidth ~forSizing self = msg_send ~self ~cmd:(selector "getTextLabelRect:detailTextLabelRect:forCell:rowWidth:forSizing:") ~typ:((ptr CGRect.t) @-> (ptr CGRect.t) @-> id @-> double @-> bool @-> returning void) x detailTextLabelRect forCell rowWidth forSizing +let imageViewForCell x self = msg_send ~self ~cmd:(selector "imageViewForCell:") ~typ:(id @-> returning id) x +let intrinsicContentSizeForCell x ~rowWidth self = msg_send ~self ~cmd:(selector "intrinsicContentSizeForCell:rowWidth:") ~typ:(id @-> double @-> returning CGSize.t) x rowWidth +let layoutSubviewsOfCell x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfCell:") ~typ:(id @-> returning void) x +let optimumSizeForLabel x ~inTotalTextRect ~minimizeWidthOnVerticalOverflow ~preferSingleLineWidth self = msg_send ~self ~cmd:(selector "optimumSizeForLabel:inTotalTextRect:minimizeWidthOnVerticalOverflow:preferSingleLineWidth:") ~typ:(id @-> CGRect.t @-> bool @-> bool @-> returning CGSize.t) x inTotalTextRect minimizeWidthOnVerticalOverflow preferSingleLineWidth +let prepareCellForReuse x self = msg_send ~self ~cmd:(selector "prepareCellForReuse:") ~typ:(id @-> returning void) x +let reorderControlEndingRectForCell x ~forNewEditingState ~showingDeleteConfirmation self = msg_send ~self ~cmd:(selector "reorderControlEndingRectForCell:forNewEditingState:showingDeleteConfirmation:") ~typ:(id @-> bool @-> bool @-> returning CGRect.t) x forNewEditingState showingDeleteConfirmation +let reorderControlShouldAppearForCell x self = msg_send ~self ~cmd:(selector "reorderControlShouldAppearForCell:") ~typ:(id @-> returning bool) x +let reorderControlShouldFadeForCell x self = msg_send ~self ~cmd:(selector "reorderControlShouldFadeForCell:") ~typ:(id @-> returning bool) x +let reorderControlStartingRectForCell x ~forNewEditingState ~showingDeleteConfirmation self = msg_send ~self ~cmd:(selector "reorderControlStartingRectForCell:forNewEditingState:showingDeleteConfirmation:") ~typ:(id @-> bool @-> bool @-> returning CGRect.t) x forNewEditingState showingDeleteConfirmation +let reorderSeparatorEndingRectForCell x ~forNewEditingState ~showingDeleteConfirmation self = msg_send ~self ~cmd:(selector "reorderSeparatorEndingRectForCell:forNewEditingState:showingDeleteConfirmation:") ~typ:(id @-> bool @-> bool @-> returning CGRect.t) x forNewEditingState showingDeleteConfirmation +let reorderSeparatorShouldAppearForCell x self = msg_send ~self ~cmd:(selector "reorderSeparatorShouldAppearForCell:") ~typ:(id @-> returning bool) x +let reorderSeparatorShouldFadeForCell x self = msg_send ~self ~cmd:(selector "reorderSeparatorShouldFadeForCell:") ~typ:(id @-> returning bool) x +let reorderSeparatorStartingRectForCell x ~forNewEditingState ~showingDeleteConfirmation self = msg_send ~self ~cmd:(selector "reorderSeparatorStartingRectForCell:forNewEditingState:showingDeleteConfirmation:") ~typ:(id @-> bool @-> bool @-> returning CGRect.t) x forNewEditingState showingDeleteConfirmation +let requiredIndentationForFirstLineOfCell x ~rowWidth self = msg_send ~self ~cmd:(selector "requiredIndentationForFirstLineOfCell:rowWidth:") ~typ:(id @-> double @-> returning double) x rowWidth +let requiredIndentationForFirstLineOfCell' x ~rowWidth ~forSizing self = msg_send ~self ~cmd:(selector "requiredIndentationForFirstLineOfCell:rowWidth:forSizing:") ~typ:(id @-> double @-> bool @-> returning double) x rowWidth forSizing +let selectedBackgroundEndingRectForCell x ~forNewEditingState self = msg_send ~self ~cmd:(selector "selectedBackgroundEndingRectForCell:forNewEditingState:") ~typ:(id @-> bool @-> returning CGRect.t) x forNewEditingState +let shouldApplyAccessibilityLargeTextLayoutForCell x self = msg_send ~self ~cmd:(selector "shouldApplyAccessibilityLargeTextLayoutForCell:") ~typ:(id @-> returning bool) x +let shouldIncreaseMarginForImageViewInCell x self = msg_send ~self ~cmd:(selector "shouldIncreaseMarginForImageViewInCell:") ~typ:(id @-> returning bool) x +let shouldStackAccessoryViewVerticallyForCell x ~editing self = msg_send ~self ~cmd:(selector "shouldStackAccessoryViewVerticallyForCell:editing:") ~typ:(id @-> bool @-> returning bool) x editing +let standardLayoutImageViewFrameForCell x ~forSizing self = msg_send ~self ~cmd:(selector "standardLayoutImageViewFrameForCell:forSizing:") ~typ:(id @-> bool @-> returning CGRect.t) x forSizing +let textLabelForCell x self = msg_send ~self ~cmd:(selector "textLabelForCell:") ~typ:(id @-> returning id) x +let textRectForCell x self = msg_send ~self ~cmd:(selector "textRectForCell:") ~typ:(id @-> returning CGRect.t) x +let textRectForCell1 x ~rowWidth self = msg_send ~self ~cmd:(selector "textRectForCell:rowWidth:") ~typ:(id @-> double @-> returning CGRect.t) x rowWidth +let textRectForCell2 x ~rowWidth ~forSizing self = msg_send ~self ~cmd:(selector "textRectForCell:rowWidth:forSizing:") ~typ:(id @-> double @-> bool @-> returning CGRect.t) x rowWidth forSizing \ No newline at end of file diff --git a/uikit/UITableViewCellLayoutManagerClass.ml b/uikit/UITableViewCellLayoutManagerClass.ml new file mode 100644 index 00000000..1915b981 --- /dev/null +++ b/uikit/UITableViewCellLayoutManagerClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcelllayoutmanager?language=objc}UITableViewCellLayoutManager} *) + +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) +let layoutManagerForTableViewCellStyle x self = msg_send ~self ~cmd:(selector "layoutManagerForTableViewCellStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let requiresLegacyLayout self = msg_send ~self ~cmd:(selector "requiresLegacyLayout") ~typ:(returning bool) +let sharedLayoutManager self = msg_send ~self ~cmd:(selector "sharedLayoutManager") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITableViewCellLayoutManagerEditable1.ml b/uikit/UITableViewCellLayoutManagerEditable1.ml deleted file mode 100644 index 1fd29416..00000000 --- a/uikit/UITableViewCellLayoutManagerEditable1.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITableViewCellLayoutManagerEditable1" - -let defaultTextFieldFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultTextFieldFontSizeForCell:") ~typ:(id @-> returning (double)) x -let detailTextLabelForCell x self = msg_send ~self ~cmd:(selector "detailTextLabelForCell:") ~typ:(id @-> returning (id)) x -let editableTextFieldForCell x self = msg_send ~self ~cmd:(selector "editableTextFieldForCell:") ~typ:(id @-> returning (id)) x -let intrinsicContentSizeForCell x ~rowWidth self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSizeForCell:rowWidth:") ~typ:(id @-> double @-> returning (CGSize.t)) ~return_type:CGSize.t x rowWidth -let layoutSubviewsOfCell x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfCell:") ~typ:(id @-> returning (void)) x -let textFieldDidBeginEditing x self = msg_send ~self ~cmd:(selector "textFieldDidBeginEditing:") ~typ:(id @-> returning (void)) x -let textFieldDidEndEditing x self = msg_send ~self ~cmd:(selector "textFieldDidEndEditing:") ~typ:(id @-> returning (void)) x -let textFieldShouldBeginEditing x self = msg_send ~self ~cmd:(selector "textFieldShouldBeginEditing:") ~typ:(id @-> returning (bool)) x -let textFieldShouldReturn x self = msg_send ~self ~cmd:(selector "textFieldShouldReturn:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/uikit/UITableViewCellLayoutManagerSourceList.ml b/uikit/UITableViewCellLayoutManagerSourceList.ml deleted file mode 100644 index 0e5597ed..00000000 --- a/uikit/UITableViewCellLayoutManagerSourceList.ml +++ /dev/null @@ -1,33 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITableViewCellLayoutManagerSourceList" - -module C = struct - let sharedLayoutManager self = msg_send ~self ~cmd:(selector "sharedLayoutManager") ~typ:(returning (id)) -end - -let accessoryShouldAppearForCell x self = msg_send ~self ~cmd:(selector "accessoryShouldAppearForCell:") ~typ:(id @-> returning (bool)) x -let accessoryShouldFadeForCell x self = msg_send ~self ~cmd:(selector "accessoryShouldFadeForCell:") ~typ:(id @-> returning (bool)) x -let defaultImageViewForCell x self = msg_send ~self ~cmd:(selector "defaultImageViewForCell:") ~typ:(id @-> returning (id)) x -let defaultTextLabelFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontForCellStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultTextLabelFontSizeForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontSizeForCellStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let editControlShouldAppearForCell x self = msg_send ~self ~cmd:(selector "editControlShouldAppearForCell:") ~typ:(id @-> returning (bool)) x -let editControlShouldFadeForCell x self = msg_send ~self ~cmd:(selector "editControlShouldFadeForCell:") ~typ:(id @-> returning (bool)) x -let editableTextFieldForCell x self = msg_send ~self ~cmd:(selector "editableTextFieldForCell:") ~typ:(id @-> returning (id)) x -let editingAccessoryShouldAppearForCell x self = msg_send ~self ~cmd:(selector "editingAccessoryShouldAppearForCell:") ~typ:(id @-> returning (bool)) x -let editingAccessoryShouldFadeForCell x self = msg_send ~self ~cmd:(selector "editingAccessoryShouldFadeForCell:") ~typ:(id @-> returning (bool)) x -let intrinsicContentSizeForCell x ~rowWidth self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSizeForCell:rowWidth:") ~typ:(id @-> double @-> returning (CGSize.t)) ~return_type:CGSize.t x rowWidth -let layoutSubviewsOfCell x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfCell:") ~typ:(id @-> returning (void)) x -let prepareCellForReuse x self = msg_send ~self ~cmd:(selector "prepareCellForReuse:") ~typ:(id @-> returning (void)) x -let reorderControlShouldAppearForCell x self = msg_send ~self ~cmd:(selector "reorderControlShouldAppearForCell:") ~typ:(id @-> returning (bool)) x -let reorderControlShouldFadeForCell x self = msg_send ~self ~cmd:(selector "reorderControlShouldFadeForCell:") ~typ:(id @-> returning (bool)) x -let reorderSeparatorShouldAppearForCell x self = msg_send ~self ~cmd:(selector "reorderSeparatorShouldAppearForCell:") ~typ:(id @-> returning (bool)) x -let reorderSeparatorShouldFadeForCell x self = msg_send ~self ~cmd:(selector "reorderSeparatorShouldFadeForCell:") ~typ:(id @-> returning (bool)) x -let standardLayoutImageViewFrameForCell x ~forSizing self = msg_send_stret ~self ~cmd:(selector "standardLayoutImageViewFrameForCell:forSizing:") ~typ:(id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x forSizing -let textRectForCell x ~rowWidth ~forSizing self = msg_send_stret ~self ~cmd:(selector "textRectForCell:rowWidth:forSizing:") ~typ:(id @-> double @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x rowWidth forSizing \ No newline at end of file diff --git a/uikit/UITableViewCellLayoutManagerSubtitle.ml b/uikit/UITableViewCellLayoutManagerSubtitle.ml deleted file mode 100644 index 3bd75201..00000000 --- a/uikit/UITableViewCellLayoutManagerSubtitle.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITableViewCellLayoutManagerSubtitle" - -let defaultDetailTextLabelFontForCell x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontForCell:") ~typ:(id @-> returning (id)) x -let defaultDetailTextLabelFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontSizeForCell:") ~typ:(id @-> returning (double)) x -let defaultTextLabelFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontSizeForCell:") ~typ:(id @-> returning (double)) x -let detailTextLabelForCell x self = msg_send ~self ~cmd:(selector "detailTextLabelForCell:") ~typ:(id @-> returning (id)) x -let getTextLabelRect x ~detailTextLabelRect ~forCell ~rowWidth ~forSizing self = msg_send ~self ~cmd:(selector "getTextLabelRect:detailTextLabelRect:forCell:rowWidth:forSizing:") ~typ:(ptr (CGRect.t) @-> ptr (CGRect.t) @-> id @-> double @-> bool @-> returning (void)) x detailTextLabelRect forCell rowWidth forSizing -let imageViewForCell x self = msg_send ~self ~cmd:(selector "imageViewForCell:") ~typ:(id @-> returning (id)) x -let intrinsicContentSizeForCell x ~rowWidth self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSizeForCell:rowWidth:") ~typ:(id @-> double @-> returning (CGSize.t)) ~return_type:CGSize.t x rowWidth -let layoutSubviewsOfCell x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfCell:") ~typ:(id @-> returning (void)) x -let textLabelForCell x self = msg_send ~self ~cmd:(selector "textLabelForCell:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit/UITableViewCellLayoutManagerValue1.ml b/uikit/UITableViewCellLayoutManagerValue1.ml deleted file mode 100644 index cf1daddd..00000000 --- a/uikit/UITableViewCellLayoutManagerValue1.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITableViewCellLayoutManagerValue1" - -let defaultDetailTextLabelFontForCell x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontForCell:") ~typ:(id @-> returning (id)) x -let defaultDetailTextLabelFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontSizeForCell:") ~typ:(id @-> returning (double)) x -let defaultTextLabelFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontSizeForCell:") ~typ:(id @-> returning (double)) x -let detailTextLabelForCell x self = msg_send ~self ~cmd:(selector "detailTextLabelForCell:") ~typ:(id @-> returning (id)) x -let getTextLabelRect x ~detailTextLabelRect ~forCell ~rowWidth ~forSizing self = msg_send ~self ~cmd:(selector "getTextLabelRect:detailTextLabelRect:forCell:rowWidth:forSizing:") ~typ:(ptr (CGRect.t) @-> ptr (CGRect.t) @-> id @-> double @-> bool @-> returning (void)) x detailTextLabelRect forCell rowWidth forSizing -let imageViewForCell x self = msg_send ~self ~cmd:(selector "imageViewForCell:") ~typ:(id @-> returning (id)) x -let intrinsicContentSizeForCell x ~rowWidth self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSizeForCell:rowWidth:") ~typ:(id @-> double @-> returning (CGSize.t)) ~return_type:CGSize.t x rowWidth -let layoutSubviewsOfCell x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfCell:") ~typ:(id @-> returning (void)) x -let textLabelForCell x self = msg_send ~self ~cmd:(selector "textLabelForCell:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit/UITableViewCellLayoutManagerValue2.ml b/uikit/UITableViewCellLayoutManagerValue2.ml deleted file mode 100644 index 547ed80c..00000000 --- a/uikit/UITableViewCellLayoutManagerValue2.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITableViewCellLayoutManagerValue2" - -let defaultDetailTextLabelFontForCell x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontForCell:") ~typ:(id @-> returning (id)) x -let defaultDetailTextLabelFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontSizeForCell:") ~typ:(id @-> returning (double)) x -let defaultTextLabelFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontSizeForCell:") ~typ:(id @-> returning (double)) x -let detailTextLabelForCell x self = msg_send ~self ~cmd:(selector "detailTextLabelForCell:") ~typ:(id @-> returning (id)) x -let getTextLabelRect x ~detailTextLabelRect ~forCell ~rowWidth ~forSizing self = msg_send ~self ~cmd:(selector "getTextLabelRect:detailTextLabelRect:forCell:rowWidth:forSizing:") ~typ:(ptr (CGRect.t) @-> ptr (CGRect.t) @-> id @-> double @-> bool @-> returning (void)) x detailTextLabelRect forCell rowWidth forSizing -let imageViewForCell x self = msg_send ~self ~cmd:(selector "imageViewForCell:") ~typ:(id @-> returning (id)) x -let intrinsicContentSizeForCell x ~rowWidth self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSizeForCell:rowWidth:") ~typ:(id @-> double @-> returning (CGSize.t)) ~return_type:CGSize.t x rowWidth -let layoutSubviewsOfCell x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfCell:") ~typ:(id @-> returning (void)) x -let textLabelForCell x self = msg_send ~self ~cmd:(selector "textLabelForCell:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit/UITableViewCellReorderControl.ml b/uikit/UITableViewCellReorderControl.ml deleted file mode 100644 index 1400be2d..00000000 --- a/uikit/UITableViewCellReorderControl.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITableViewCellReorderControl" - -let accessoryTintColor self = msg_send ~self ~cmd:(selector "accessoryTintColor") ~typ:(returning (id)) -let adjustLayoutForFocalRect x self = msg_send ~self ~cmd:(selector "adjustLayoutForFocalRect:") ~typ:(CGRect.t @-> returning (void)) x -let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let cancelTrackingWithEvent x self = msg_send ~self ~cmd:(selector "cancelTrackingWithEvent:") ~typ:(id @-> returning (void)) x -let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let grabberImage self = msg_send ~self ~cmd:(selector "grabberImage") ~typ:(returning (id)) -let initWithTableViewCell x self = msg_send ~self ~cmd:(selector "initWithTableViewCell:") ~typ:(id @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setAccessoryTintColor x self = msg_send ~self ~cmd:(selector "setAccessoryTintColor:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let shouldTrack self = msg_send ~self ~cmd:(selector "shouldTrack") ~typ:(returning (bool)) -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let wantsMaskingWhileAnimatingDisabled self = msg_send ~self ~cmd:(selector "wantsMaskingWhileAnimatingDisabled") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UITableViewCellSelectedBackground.ml b/uikit/UITableViewCellSelectedBackground.ml deleted file mode 100644 index 95a03544..00000000 --- a/uikit/UITableViewCellSelectedBackground.ml +++ /dev/null @@ -1,25 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITableViewCellSelectedBackground" - -let isMultiselect self = msg_send ~self ~cmd:(selector "isMultiselect") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let multiselectBackgroundColor self = msg_send ~self ~cmd:(selector "multiselectBackgroundColor") ~typ:(returning (id)) -let noneStyleBackgroundColor self = msg_send ~self ~cmd:(selector "noneStyleBackgroundColor") ~typ:(returning (id)) -let selectionEffects self = msg_send ~self ~cmd:(selector "selectionEffects") ~typ:(returning (id)) -let selectionStyle self = msg_send ~self ~cmd:(selector "selectionStyle") ~typ:(returning (llong)) -let selectionTintColor self = msg_send ~self ~cmd:(selector "selectionTintColor") ~typ:(returning (id)) -let setMultiselect x self = msg_send ~self ~cmd:(selector "setMultiselect:") ~typ:(bool @-> returning (void)) x -let setMultiselectBackgroundColor x self = msg_send ~self ~cmd:(selector "setMultiselectBackgroundColor:") ~typ:(id @-> returning (void)) x -let setNoneStyleBackgroundColor x self = msg_send ~self ~cmd:(selector "setNoneStyleBackgroundColor:") ~typ:(id @-> returning (void)) x -let setSelectionEffects x self = msg_send ~self ~cmd:(selector "setSelectionEffects:") ~typ:(id @-> returning (void)) x -let setSelectionStyle x self = msg_send ~self ~cmd:(selector "setSelectionStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSelectionTintColor x self = msg_send ~self ~cmd:(selector "setSelectionTintColor:") ~typ:(id @-> returning (void)) x -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let updateBackgroundColor self = msg_send ~self ~cmd:(selector "updateBackgroundColor") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit/UITableViewCellUnhighlightedState.ml b/uikit/UITableViewCellUnhighlightedState.ml deleted file mode 100644 index cb34bb32..00000000 --- a/uikit/UITableViewCellUnhighlightedState.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITableViewCellUnhighlightedState" - -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let highlighted self = msg_send ~self ~cmd:(selector "highlighted") ~typ:(returning (bool)) -let opaque self = msg_send ~self ~cmd:(selector "opaque") ~typ:(returning (bool)) -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setOpaque x self = msg_send ~self ~cmd:(selector "setOpaque:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UITableViewCollectionCell.ml b/uikit/UITableViewCollectionCell.ml index 0db3b7e3..072deaf7 100644 --- a/uikit/UITableViewCollectionCell.ml +++ b/uikit/UITableViewCollectionCell.ml @@ -5,24 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewCollectionCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcollectioncell?language=objc}UITableViewCollectionCell} *) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let defaultLeadingCellMarginWidth self = msg_send ~self ~cmd:(selector "defaultLeadingCellMarginWidth") ~typ:(returning (double)) -let defaultTrailingCellMarginWidth self = msg_send ~self ~cmd:(selector "defaultTrailingCellMarginWidth") ~typ:(returning (double)) -let drawsSeparatorAtBottomOfSection self = msg_send ~self ~cmd:(selector "drawsSeparatorAtBottomOfSection") ~typ:(returning (bool)) -let drawsSeparatorAtTopOfSection self = msg_send ~self ~cmd:(selector "drawsSeparatorAtTopOfSection") ~typ:(returning (bool)) -let indexBarExtentFromEdge self = msg_send ~self ~cmd:(selector "indexBarExtentFromEdge") ~typ:(returning (double)) -let insetsContentViewsToSafeArea self = msg_send ~self ~cmd:(selector "insetsContentViewsToSafeArea") ~typ:(returning (bool)) -let separatorEffect self = msg_send ~self ~cmd:(selector "separatorEffect") ~typ:(returning (id)) -let separatorInsetIsRelativeToCellEdges self = msg_send ~self ~cmd:(selector "separatorInsetIsRelativeToCellEdges") ~typ:(returning (bool)) -let setBackgroundInset x self = msg_send ~self ~cmd:(selector "setBackgroundInset:") ~typ:(ptr void @-> returning (void)) x -let setDefaultLeadingCellMarginWidth x self = msg_send ~self ~cmd:(selector "setDefaultLeadingCellMarginWidth:") ~typ:(double @-> returning (void)) x -let setDefaultTrailingCellMarginWidth x self = msg_send ~self ~cmd:(selector "setDefaultTrailingCellMarginWidth:") ~typ:(double @-> returning (void)) x -let setDrawsSeparatorAtBottomOfSection x self = msg_send ~self ~cmd:(selector "setDrawsSeparatorAtBottomOfSection:") ~typ:(bool @-> returning (void)) x -let setDrawsSeparatorAtTopOfSection x self = msg_send ~self ~cmd:(selector "setDrawsSeparatorAtTopOfSection:") ~typ:(bool @-> returning (void)) x -let setIndexBarExtentFromEdge x self = msg_send ~self ~cmd:(selector "setIndexBarExtentFromEdge:") ~typ:(double @-> returning (void)) x -let setInsetsContentViewsToSafeArea x self = msg_send ~self ~cmd:(selector "setInsetsContentViewsToSafeArea:") ~typ:(bool @-> returning (void)) x -let setSeparatorEffect x self = msg_send ~self ~cmd:(selector "setSeparatorEffect:") ~typ:(id @-> returning (void)) x -let setSeparatorInsetIsRelativeToCellEdges x self = msg_send ~self ~cmd:(selector "setSeparatorInsetIsRelativeToCellEdges:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UITableViewCollectionCell" + +let backgroundInset self = msg_send ~self ~cmd:(selector "backgroundInset") ~typ:(returning UIEdgeInsets.t) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let defaultLeadingCellMarginWidth self = msg_send ~self ~cmd:(selector "defaultLeadingCellMarginWidth") ~typ:(returning double) +let defaultTrailingCellMarginWidth self = msg_send ~self ~cmd:(selector "defaultTrailingCellMarginWidth") ~typ:(returning double) +let drawsSeparatorAtBottomOfSection self = msg_send ~self ~cmd:(selector "drawsSeparatorAtBottomOfSection") ~typ:(returning bool) +let drawsSeparatorAtTopOfSection self = msg_send ~self ~cmd:(selector "drawsSeparatorAtTopOfSection") ~typ:(returning bool) +let indexBarExtentFromEdge self = msg_send ~self ~cmd:(selector "indexBarExtentFromEdge") ~typ:(returning double) +let insetsContentViewsToSafeArea self = msg_send ~self ~cmd:(selector "insetsContentViewsToSafeArea") ~typ:(returning bool) +let separatorEffect self = msg_send ~self ~cmd:(selector "separatorEffect") ~typ:(returning id) +let separatorInsetIsRelativeToCellEdges self = msg_send ~self ~cmd:(selector "separatorInsetIsRelativeToCellEdges") ~typ:(returning bool) +let setBackgroundInset x self = msg_send ~self ~cmd:(selector "setBackgroundInset:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setDefaultLeadingCellMarginWidth x self = msg_send ~self ~cmd:(selector "setDefaultLeadingCellMarginWidth:") ~typ:(double @-> returning void) x +let setDefaultTrailingCellMarginWidth x self = msg_send ~self ~cmd:(selector "setDefaultTrailingCellMarginWidth:") ~typ:(double @-> returning void) x +let setDrawsSeparatorAtBottomOfSection x self = msg_send ~self ~cmd:(selector "setDrawsSeparatorAtBottomOfSection:") ~typ:(bool @-> returning void) x +let setDrawsSeparatorAtTopOfSection x self = msg_send ~self ~cmd:(selector "setDrawsSeparatorAtTopOfSection:") ~typ:(bool @-> returning void) x +let setIndexBarExtentFromEdge x self = msg_send ~self ~cmd:(selector "setIndexBarExtentFromEdge:") ~typ:(double @-> returning void) x +let setInsetsContentViewsToSafeArea x self = msg_send ~self ~cmd:(selector "setInsetsContentViewsToSafeArea:") ~typ:(bool @-> returning void) x +let setSeparatorEffect x self = msg_send ~self ~cmd:(selector "setSeparatorEffect:") ~typ:(id @-> returning void) x +let setSeparatorInsetIsRelativeToCellEdges x self = msg_send ~self ~cmd:(selector "setSeparatorInsetIsRelativeToCellEdges:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UITableViewController.ml b/uikit/UITableViewController.ml index 8ab41304..fb955e4d 100644 --- a/uikit/UITableViewController.ml +++ b/uikit/UITableViewController.ml @@ -5,45 +5,49 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcontroller?language=objc}UITableViewController} *) -let clearsSelectionOnViewWillAppear self = msg_send ~self ~cmd:(selector "clearsSelectionOnViewWillAppear") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let initWithStyle x self = msg_send ~self ~cmd:(selector "initWithStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning (llong)) x -let previewViewControllerForLocation x ~inSourceView self = msg_send ~self ~cmd:(selector "previewViewControllerForLocation:inSourceView:") ~typ:(CGPoint.t @-> id @-> returning (id)) x inSourceView -let previewViewControllerForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "previewViewControllerForRowAtIndexPath:") ~typ:(id @-> returning (id)) x -let previewingContext x ~commitViewController self = msg_send ~self ~cmd:(selector "previewingContext:commitViewController:") ~typ:(id @-> id @-> returning (void)) x commitViewController -let previewingContext' x ~viewControllerForLocation self = msg_send ~self ~cmd:(selector "previewingContext:viewControllerForLocation:") ~typ:(id @-> CGPoint.t @-> returning (id)) x viewControllerForLocation -let refreshAccountsNow x self = msg_send ~self ~cmd:(selector "refreshAccountsNow:") ~typ:(id @-> returning (void)) x -let refreshControl self = msg_send ~self ~cmd:(selector "refreshControl") ~typ:(returning (id)) -let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning (bool)) x -let setClearsSelectionOnViewWillAppear x self = msg_send ~self ~cmd:(selector "setClearsSelectionOnViewWillAppear:") ~typ:(bool @-> returning (void)) x -let setEditing x ~animated self = msg_send ~self ~cmd:(selector "setEditing:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setRefreshControl x self = msg_send ~self ~cmd:(selector "setRefreshControl:") ~typ:(id @-> returning (void)) x -let setTableView x self = msg_send ~self ~cmd:(selector "setTableView:") ~typ:(id @-> returning (void)) x -let tableView self = msg_send ~self ~cmd:(selector "tableView") ~typ:(returning (id)) -let tableView1 x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView2 x ~didEndEditingRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didEndEditingRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didEndEditingRowAtIndexPath -let tableView3 x ~heightForFooterInSection self = msg_send ~self ~cmd:(selector "tableView:heightForFooterInSection:") ~typ:(id @-> llong @-> returning (double)) x (LLong.of_int heightForFooterInSection) -let tableView4 x ~heightForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:heightForHeaderInSection:") ~typ:(id @-> llong @-> returning (double)) x (LLong.of_int heightForHeaderInSection) -let tableView5 x ~heightForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:heightForRowAtIndexPath:") ~typ:(id @-> id @-> returning (double)) x heightForRowAtIndexPath -let tableView6 x ~indentationLevelForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:indentationLevelForRowAtIndexPath:") ~typ:(id @-> id @-> returning (llong)) x indentationLevelForRowAtIndexPath -let tableView7 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let tableView8 x ~titleForFooterInSection self = msg_send ~self ~cmd:(selector "tableView:titleForFooterInSection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int titleForFooterInSection) -let tableView9 x ~titleForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:titleForHeaderInSection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int titleForHeaderInSection) -let tableView10 x ~viewForFooterInSection self = msg_send ~self ~cmd:(selector "tableView:viewForFooterInSection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int viewForFooterInSection) -let tableView11 x ~viewForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:viewForHeaderInSection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int viewForHeaderInSection) -let tableView12 x ~willBeginEditingRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willBeginEditingRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x willBeginEditingRowAtIndexPath -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let willPresentPreviewViewController x ~forRowAtIndexPath self = msg_send ~self ~cmd:(selector "willPresentPreviewViewController:forRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x forRowAtIndexPath -let willPresentPreviewViewController1 x ~forLocation ~inSourceView self = msg_send ~self ~cmd:(selector "willPresentPreviewViewController:forLocation:inSourceView:") ~typ:(id @-> CGPoint.t @-> id @-> returning (void)) x forLocation inSourceView -let willPresentPreviewViewController2 x ~forPosition ~inSourceView self = msg_send ~self ~cmd:(selector "willPresentPreviewViewController:forPosition:inSourceView:") ~typ:(id @-> CGPoint.t @-> id @-> returning (void)) x forPosition inSourceView \ No newline at end of file +let self = get_class "UITableViewController" + +let clearsSelectionOnViewWillAppear self = msg_send ~self ~cmd:(selector "clearsSelectionOnViewWillAppear") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let initWithStyle x self = msg_send ~self ~cmd:(selector "initWithStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning llong) x +let previewViewControllerForLocation x ~inSourceView self = msg_send ~self ~cmd:(selector "previewViewControllerForLocation:inSourceView:") ~typ:(CGPoint.t @-> id @-> returning id) x inSourceView +let previewViewControllerForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "previewViewControllerForRowAtIndexPath:") ~typ:(id @-> returning id) x +let previewingContext x ~commitViewController self = msg_send ~self ~cmd:(selector "previewingContext:commitViewController:") ~typ:(id @-> id @-> returning void) x commitViewController +let previewingContext' x ~viewControllerForLocation self = msg_send ~self ~cmd:(selector "previewingContext:viewControllerForLocation:") ~typ:(id @-> CGPoint.t @-> returning id) x viewControllerForLocation +let refreshAccountsNow x self = msg_send ~self ~cmd:(selector "refreshAccountsNow:") ~typ:(id @-> returning void) x +let refreshControl self = msg_send ~self ~cmd:(selector "refreshControl") ~typ:(returning id) +let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning bool) x +let setClearsSelectionOnViewWillAppear x self = msg_send ~self ~cmd:(selector "setClearsSelectionOnViewWillAppear:") ~typ:(bool @-> returning void) x +let setEditing x ~animated self = msg_send ~self ~cmd:(selector "setEditing:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setRefreshControl x self = msg_send ~self ~cmd:(selector "setRefreshControl:") ~typ:(id @-> returning void) x +let setTableView x self = msg_send ~self ~cmd:(selector "setTableView:") ~typ:(id @-> returning void) x +let tableView self = msg_send ~self ~cmd:(selector "tableView") ~typ:(returning id) +let tableView1 x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView2 x ~didEndEditingRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didEndEditingRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x didEndEditingRowAtIndexPath +let tableView3 x ~heightForFooterInSection self = msg_send ~self ~cmd:(selector "tableView:heightForFooterInSection:") ~typ:(id @-> llong @-> returning double) x (LLong.of_int heightForFooterInSection) +let tableView4 x ~heightForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:heightForHeaderInSection:") ~typ:(id @-> llong @-> returning double) x (LLong.of_int heightForHeaderInSection) +let tableView5 x ~heightForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:heightForRowAtIndexPath:") ~typ:(id @-> id @-> returning double) x heightForRowAtIndexPath +let tableView6 x ~indentationLevelForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:indentationLevelForRowAtIndexPath:") ~typ:(id @-> id @-> returning llong) x indentationLevelForRowAtIndexPath +let tableView7 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let tableView8 x ~titleForFooterInSection self = msg_send ~self ~cmd:(selector "tableView:titleForFooterInSection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int titleForFooterInSection) +let tableView9 x ~titleForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:titleForHeaderInSection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int titleForHeaderInSection) +let tableView10 x ~viewForFooterInSection self = msg_send ~self ~cmd:(selector "tableView:viewForFooterInSection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int viewForFooterInSection) +let tableView11 x ~viewForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:viewForHeaderInSection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int viewForHeaderInSection) +let tableView12 x ~willBeginEditingRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willBeginEditingRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x willBeginEditingRowAtIndexPath +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let willPresentPreviewViewController x ~forRowAtIndexPath self = msg_send ~self ~cmd:(selector "willPresentPreviewViewController:forRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x forRowAtIndexPath +let willPresentPreviewViewController1 x ~forLocation ~inSourceView self = msg_send ~self ~cmd:(selector "willPresentPreviewViewController:forLocation:inSourceView:") ~typ:(id @-> CGPoint.t @-> id @-> returning void) x forLocation inSourceView +let willPresentPreviewViewController2 x ~forPosition ~inSourceView self = msg_send ~self ~cmd:(selector "willPresentPreviewViewController:forPosition:inSourceView:") ~typ:(id @-> CGPoint.t @-> id @-> returning void) x forPosition inSourceView \ No newline at end of file diff --git a/uikit/UITableViewCountView.ml b/uikit/UITableViewCountView.ml index ce4320f7..4d2fa522 100644 --- a/uikit/UITableViewCountView.ml +++ b/uikit/UITableViewCountView.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewCountView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcountview?language=objc}UITableViewCountView} *) -let count self = msg_send ~self ~cmd:(selector "count") ~typ:(returning (llong)) -let initWithFrame x ~withCountString ~withCount self = msg_send ~self ~cmd:(selector "initWithFrame:withCountString:withCount:") ~typ:(CGRect.t @-> id @-> llong @-> returning (id)) x withCountString (LLong.of_int withCount) -let setCount x self = msg_send ~self ~cmd:(selector "setCount:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCountString x ~withCount self = msg_send ~self ~cmd:(selector "setCountString:withCount:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int withCount) \ No newline at end of file +let self = get_class "UITableViewCountView" + +let count self = msg_send ~self ~cmd:(selector "count") ~typ:(returning llong) +let initWithFrame x ~withCountString ~withCount self = msg_send ~self ~cmd:(selector "initWithFrame:withCountString:withCount:") ~typ:(CGRect.t @-> id @-> llong @-> returning id) x withCountString (LLong.of_int withCount) +let setCount x self = msg_send ~self ~cmd:(selector "setCount:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCountString x ~withCount self = msg_send ~self ~cmd:(selector "setCountString:withCount:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int withCount) \ No newline at end of file diff --git a/uikit/UITableViewDataSource.ml b/uikit/UITableViewDataSource.ml index fd1311ad..34aee2f8 100644 --- a/uikit/UITableViewDataSource.ml +++ b/uikit/UITableViewDataSource.ml @@ -5,28 +5,28 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewDataSource" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewdatasource?language=objc}UITableViewDataSource} *) -module C = struct - let staticDataSourceWithSections x self = msg_send ~self ~cmd:(selector "staticDataSourceWithSections:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UITableViewDataSource" -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 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 diff --git a/uikit/UITableViewDataSourceClass.ml b/uikit/UITableViewDataSourceClass.ml new file mode 100644 index 00000000..8ea7fd61 --- /dev/null +++ b/uikit/UITableViewDataSourceClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +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 staticDataSourceWithSections x self = msg_send ~self ~cmd:(selector "staticDataSourceWithSections:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UITableViewDiffableDataSource.ml b/uikit/UITableViewDiffableDataSource.ml index cb50f15e..de17cfc1 100644 --- a/uikit/UITableViewDiffableDataSource.ml +++ b/uikit/UITableViewDiffableDataSource.ml @@ -5,26 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewDiffableDataSource" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewdiffabledatasource?language=objc}UITableViewDiffableDataSource} *) -let applySnapshot x ~animatingDifferences self = msg_send ~self ~cmd:(selector "applySnapshot:animatingDifferences:") ~typ:(id @-> bool @-> returning (void)) x animatingDifferences -let applySnapshot' x ~animatingDifferences ~completion self = msg_send ~self ~cmd:(selector "applySnapshot:animatingDifferences:completion:") ~typ:(id @-> bool @-> ptr void @-> returning (void)) x animatingDifferences completion -let applySnapshotUsingReloadData x self = msg_send ~self ~cmd:(selector "applySnapshotUsingReloadData:") ~typ:(id @-> returning (void)) x -let applySnapshotUsingReloadData' x ~completion self = msg_send ~self ~cmd:(selector "applySnapshotUsingReloadData:completion:") ~typ:(id @-> ptr void @-> returning (void)) x completion -let defaultRowAnimation self = msg_send ~self ~cmd:(selector "defaultRowAnimation") ~typ:(returning (llong)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let impl self = msg_send ~self ~cmd:(selector "impl") ~typ:(returning (id)) -let indexForSectionIdentifier x self = msg_send ~self ~cmd:(selector "indexForSectionIdentifier:") ~typ:(id @-> returning (llong)) x -let indexPathForItemIdentifier x self = msg_send ~self ~cmd:(selector "indexPathForItemIdentifier:") ~typ:(id @-> returning (id)) x -let initWithTableView x ~cellProvider self = msg_send ~self ~cmd:(selector "initWithTableView:cellProvider:") ~typ:(id @-> ptr void @-> returning (id)) x cellProvider -let initWithViewUpdatesSink x self = msg_send ~self ~cmd:(selector "initWithViewUpdatesSink:") ~typ:(id @-> returning (id)) x -let itemIdentifierForIndexPath x self = msg_send ~self ~cmd:(selector "itemIdentifierForIndexPath:") ~typ:(id @-> returning (id)) x -let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning (llong)) x -let sectionIdentifierForIndex x self = msg_send ~self ~cmd:(selector "sectionIdentifierForIndex:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let setDefaultRowAnimation x self = msg_send ~self ~cmd:(selector "setDefaultRowAnimation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setImpl x self = msg_send ~self ~cmd:(selector "setImpl:") ~typ:(id @-> returning (void)) x -let snapshot self = msg_send ~self ~cmd:(selector "snapshot") ~typ:(returning (id)) -let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView' x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let validateIdentifiers self = msg_send ~self ~cmd:(selector "validateIdentifiers") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UITableViewDiffableDataSource" + +let applySnapshot x ~animatingDifferences self = msg_send ~self ~cmd:(selector "applySnapshot:animatingDifferences:") ~typ:(id @-> bool @-> returning void) x animatingDifferences +let applySnapshot' x ~animatingDifferences ~completion self = msg_send ~self ~cmd:(selector "applySnapshot:animatingDifferences:completion:") ~typ:(id @-> bool @-> (ptr void) @-> returning void) x animatingDifferences completion +let applySnapshotUsingReloadData x self = msg_send ~self ~cmd:(selector "applySnapshotUsingReloadData:") ~typ:(id @-> returning void) x +let applySnapshotUsingReloadData' x ~completion self = msg_send ~self ~cmd:(selector "applySnapshotUsingReloadData:completion:") ~typ:(id @-> (ptr void) @-> returning void) x completion +let defaultRowAnimation self = msg_send ~self ~cmd:(selector "defaultRowAnimation") ~typ:(returning llong) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let impl self = msg_send ~self ~cmd:(selector "impl") ~typ:(returning id) +let indexForSectionIdentifier x self = msg_send ~self ~cmd:(selector "indexForSectionIdentifier:") ~typ:(id @-> returning llong) x +let indexPathForItemIdentifier x self = msg_send ~self ~cmd:(selector "indexPathForItemIdentifier:") ~typ:(id @-> returning id) x +let initWithTableView x ~cellProvider self = msg_send ~self ~cmd:(selector "initWithTableView:cellProvider:") ~typ:(id @-> (ptr void) @-> returning id) x cellProvider +let initWithViewUpdatesSink x self = msg_send ~self ~cmd:(selector "initWithViewUpdatesSink:") ~typ:(id @-> returning id) x +let itemIdentifierForIndexPath x self = msg_send ~self ~cmd:(selector "itemIdentifierForIndexPath:") ~typ:(id @-> returning id) x +let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning llong) x +let sectionIdentifierForIndex x self = msg_send ~self ~cmd:(selector "sectionIdentifierForIndex:") ~typ:(llong @-> returning id) (LLong.of_int x) +let setDefaultRowAnimation x self = msg_send ~self ~cmd:(selector "setDefaultRowAnimation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setImpl x self = msg_send ~self ~cmd:(selector "setImpl:") ~typ:(id @-> returning void) x +let snapshot self = msg_send ~self ~cmd:(selector "snapshot") ~typ:(returning id) +let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView' x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let validateIdentifiers self = msg_send ~self ~cmd:(selector "validateIdentifiers") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UITableViewDropPlaceholder.ml b/uikit/UITableViewDropPlaceholder.ml index c794b0da..11b82ded 100644 --- a/uikit/UITableViewDropPlaceholder.ml +++ b/uikit/UITableViewDropPlaceholder.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewDropPlaceholder" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewdropplaceholder?language=objc}UITableViewDropPlaceholder} *) + +let self = get_class "UITableViewDropPlaceholder" let previewParametersProvider self = msg_send ~self ~cmd:(selector "previewParametersProvider") ~typ:(returning (ptr void)) -let setPreviewParametersProvider x self = msg_send ~self ~cmd:(selector "setPreviewParametersProvider:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file +let setPreviewParametersProvider x self = msg_send ~self ~cmd:(selector "setPreviewParametersProvider:") ~typ:((ptr void) @-> returning void) x \ No newline at end of file diff --git a/uikit/UITableViewDropProposal.ml b/uikit/UITableViewDropProposal.ml index 18dbc37c..40dee153 100644 --- a/uikit/UITableViewDropProposal.ml +++ b/uikit/UITableViewDropProposal.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewDropProposal" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewdropproposal?language=objc}UITableViewDropProposal} *) -let initWithDropOperation x self = msg_send ~self ~cmd:(selector "initWithDropOperation:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let initWithDropOperation1 x ~dropLocation self = msg_send ~self ~cmd:(selector "initWithDropOperation:dropLocation:") ~typ:(ullong @-> llong @-> returning (id)) (ULLong.of_int x) (LLong.of_int dropLocation) -let initWithDropOperation2 x ~intent self = msg_send ~self ~cmd:(selector "initWithDropOperation:intent:") ~typ:(ullong @-> llong @-> returning (id)) (ULLong.of_int x) (LLong.of_int intent) -let intent self = msg_send ~self ~cmd:(selector "intent") ~typ:(returning (llong)) -let setIntent x self = msg_send ~self ~cmd:(selector "setIntent:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file +let self = get_class "UITableViewDropProposal" + +let initWithDropOperation x self = msg_send ~self ~cmd:(selector "initWithDropOperation:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let initWithDropOperation1 x ~dropLocation self = msg_send ~self ~cmd:(selector "initWithDropOperation:dropLocation:") ~typ:(ullong @-> llong @-> returning id) (ULLong.of_int x) (LLong.of_int dropLocation) +let initWithDropOperation2 x ~intent self = msg_send ~self ~cmd:(selector "initWithDropOperation:intent:") ~typ:(ullong @-> llong @-> returning id) (ULLong.of_int x) (LLong.of_int intent) +let intent self = msg_send ~self ~cmd:(selector "intent") ~typ:(returning llong) +let setIntent x self = msg_send ~self ~cmd:(selector "setIntent:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UITableViewFocusUpdateContext.ml b/uikit/UITableViewFocusUpdateContext.ml index 63b3e6f3..3a56bb0b 100644 --- a/uikit/UITableViewFocusUpdateContext.ml +++ b/uikit/UITableViewFocusUpdateContext.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewFocusUpdateContext" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewfocusupdatecontext?language=objc}UITableViewFocusUpdateContext} *) -let nextFocusedIndexPath self = msg_send ~self ~cmd:(selector "nextFocusedIndexPath") ~typ:(returning (id)) -let previouslyFocusedIndexPath self = msg_send ~self ~cmd:(selector "previouslyFocusedIndexPath") ~typ:(returning (id)) -let tableView self = msg_send ~self ~cmd:(selector "tableView") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITableViewFocusUpdateContext" + +let nextFocusedIndexPath self = msg_send ~self ~cmd:(selector "nextFocusedIndexPath") ~typ:(returning id) +let previouslyFocusedIndexPath self = msg_send ~self ~cmd:(selector "previouslyFocusedIndexPath") ~typ:(returning id) +let tableView self = msg_send ~self ~cmd:(selector "tableView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITableViewHeaderFooterView.ml b/uikit/UITableViewHeaderFooterView.ml index 9a61f166..cff50712 100644 --- a/uikit/UITableViewHeaderFooterView.ml +++ b/uikit/UITableViewHeaderFooterView.ml @@ -5,67 +5,66 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewHeaderFooterView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewheaderfooterview?language=objc}UITableViewHeaderFooterView} *) -module C = struct - let defaultFooterHeightForStyle x self = msg_send ~self ~cmd:(selector "defaultFooterHeightForStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) - let defaultHeaderHeightForStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderHeightForStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -end +let self = get_class "UITableViewHeaderFooterView" -let automaticallyUpdatesBackgroundConfiguration self = msg_send ~self ~cmd:(selector "automaticallyUpdatesBackgroundConfiguration") ~typ:(returning (bool)) -let automaticallyUpdatesContentConfiguration self = msg_send ~self ~cmd:(selector "automaticallyUpdatesContentConfiguration") ~typ:(returning (bool)) -let backgroundConfiguration self = msg_send ~self ~cmd:(selector "backgroundConfiguration") ~typ:(returning (id)) -let backgroundImage self = msg_send ~self ~cmd:(selector "backgroundImage") ~typ:(returning (id)) -let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning (id)) -let configurationState self = msg_send ~self ~cmd:(selector "configurationState") ~typ:(returning (id)) +let automaticallyUpdatesBackgroundConfiguration self = msg_send ~self ~cmd:(selector "automaticallyUpdatesBackgroundConfiguration") ~typ:(returning bool) +let automaticallyUpdatesContentConfiguration self = msg_send ~self ~cmd:(selector "automaticallyUpdatesContentConfiguration") ~typ:(returning bool) +let backgroundConfiguration self = msg_send ~self ~cmd:(selector "backgroundConfiguration") ~typ:(returning id) +let backgroundImage self = msg_send ~self ~cmd:(selector "backgroundImage") ~typ:(returning id) +let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning id) +let configurationState self = msg_send ~self ~cmd:(selector "configurationState") ~typ:(returning id) let configurationUpdateHandler self = msg_send ~self ~cmd:(selector "configurationUpdateHandler") ~typ:(returning (ptr void)) -let contentConfiguration self = msg_send ~self ~cmd:(selector "contentConfiguration") ~typ:(returning (id)) -let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning (id)) -let defaultContentConfiguration self = msg_send ~self ~cmd:(selector "defaultContentConfiguration") ~typ:(returning (id)) -let detailTextLabel self = msg_send ~self ~cmd:(selector "detailTextLabel") ~typ:(returning (id)) -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let floating self = msg_send ~self ~cmd:(selector "floating") ~typ:(returning (bool)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithReuseIdentifier x self = msg_send ~self ~cmd:(selector "initWithReuseIdentifier:") ~typ:(id @-> returning (id)) x -let layoutMarginsDidChange self = msg_send ~self ~cmd:(selector "layoutMarginsDidChange") ~typ:(returning (void)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let maxTitleWidth self = msg_send ~self ~cmd:(selector "maxTitleWidth") ~typ:(returning (double)) -let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning (void)) -let reuseIdentifier self = msg_send ~self ~cmd:(selector "reuseIdentifier") ~typ:(returning (id)) -let sectionHeader self = msg_send ~self ~cmd:(selector "sectionHeader") ~typ:(returning (bool)) -let setAutomaticallyUpdatesBackgroundConfiguration x self = msg_send ~self ~cmd:(selector "setAutomaticallyUpdatesBackgroundConfiguration:") ~typ:(bool @-> returning (void)) x -let setAutomaticallyUpdatesContentConfiguration x self = msg_send ~self ~cmd:(selector "setAutomaticallyUpdatesContentConfiguration:") ~typ:(bool @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBackgroundConfiguration x self = msg_send ~self ~cmd:(selector "setBackgroundConfiguration:") ~typ:(id @-> returning (void)) x -let setBackgroundImage x self = msg_send ~self ~cmd:(selector "setBackgroundImage:") ~typ:(id @-> returning (void)) x -let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning (void)) x -let setConfigurationUpdateHandler x self = msg_send ~self ~cmd:(selector "setConfigurationUpdateHandler:") ~typ:(ptr void @-> returning (void)) x -let setContentConfiguration x self = msg_send ~self ~cmd:(selector "setContentConfiguration:") ~typ:(id @-> returning (void)) x -let setFloating x self = msg_send ~self ~cmd:(selector "setFloating:") ~typ:(bool @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setMaxTitleWidth x self = msg_send ~self ~cmd:(selector "setMaxTitleWidth:") ~typ:(double @-> returning (void)) x -let setNeedsUpdateConfiguration self = msg_send ~self ~cmd:(selector "setNeedsUpdateConfiguration") ~typ:(returning (void)) -let setNeedsUpdateConstraints self = msg_send ~self ~cmd:(selector "setNeedsUpdateConstraints") ~typ:(returning (void)) -let setReuseIdentifier x self = msg_send ~self ~cmd:(selector "setReuseIdentifier:") ~typ:(id @-> returning (void)) x -let setSectionHeader x self = msg_send ~self ~cmd:(selector "setSectionHeader:") ~typ:(bool @-> returning (void)) x -let setTable x self = msg_send ~self ~cmd:(selector "setTable:") ~typ:(id @-> returning (void)) x -let setTableView x self = msg_send ~self ~cmd:(selector "setTableView:") ~typ:(id @-> returning (void)) x -let setTableViewStyle x self = msg_send ~self ~cmd:(selector "setTableViewStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning (void)) x -let setUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabled:") ~typ:(bool @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let systemLayoutSizeFittingSize x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send_stret ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning (CGSize.t)) ~return_type:CGSize.t x withHorizontalFittingPriority verticalFittingPriority -let table self = msg_send ~self ~cmd:(selector "table") ~typ:(returning (id)) -let tableView self = msg_send ~self ~cmd:(selector "tableView") ~typ:(returning (id)) -let tableViewStyle self = msg_send ~self ~cmd:(selector "tableViewStyle") ~typ:(returning (llong)) -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning (llong)) -let textLabel self = msg_send ~self ~cmd:(selector "textLabel") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateConfigurationUsingState x self = msg_send ~self ~cmd:(selector "updateConfigurationUsingState:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let contentConfiguration self = msg_send ~self ~cmd:(selector "contentConfiguration") ~typ:(returning id) +let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning id) +let defaultContentConfiguration self = msg_send ~self ~cmd:(selector "defaultContentConfiguration") ~typ:(returning id) +let detailTextLabel self = msg_send ~self ~cmd:(selector "detailTextLabel") ~typ:(returning id) +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let floating self = msg_send ~self ~cmd:(selector "floating") ~typ:(returning bool) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithReuseIdentifier x self = msg_send ~self ~cmd:(selector "initWithReuseIdentifier:") ~typ:(id @-> returning id) x +let layoutMarginsDidChange self = msg_send ~self ~cmd:(selector "layoutMarginsDidChange") ~typ:(returning void) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let maxTitleWidth self = msg_send ~self ~cmd:(selector "maxTitleWidth") ~typ:(returning double) +let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning void) +let reuseIdentifier self = msg_send ~self ~cmd:(selector "reuseIdentifier") ~typ:(returning id) +let sectionHeader self = msg_send ~self ~cmd:(selector "sectionHeader") ~typ:(returning bool) +let setAutomaticallyUpdatesBackgroundConfiguration x self = msg_send ~self ~cmd:(selector "setAutomaticallyUpdatesBackgroundConfiguration:") ~typ:(bool @-> returning void) x +let setAutomaticallyUpdatesContentConfiguration x self = msg_send ~self ~cmd:(selector "setAutomaticallyUpdatesContentConfiguration:") ~typ:(bool @-> returning void) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBackgroundConfiguration x self = msg_send ~self ~cmd:(selector "setBackgroundConfiguration:") ~typ:(id @-> returning void) x +let setBackgroundImage x self = msg_send ~self ~cmd:(selector "setBackgroundImage:") ~typ:(id @-> returning void) x +let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning void) x +let setConfigurationUpdateHandler x self = msg_send ~self ~cmd:(selector "setConfigurationUpdateHandler:") ~typ:((ptr void) @-> returning void) x +let setContentConfiguration x self = msg_send ~self ~cmd:(selector "setContentConfiguration:") ~typ:(id @-> returning void) x +let setFloating x self = msg_send ~self ~cmd:(selector "setFloating:") ~typ:(bool @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setMaxTitleWidth x self = msg_send ~self ~cmd:(selector "setMaxTitleWidth:") ~typ:(double @-> returning void) x +let setNeedsUpdateConfiguration self = msg_send ~self ~cmd:(selector "setNeedsUpdateConfiguration") ~typ:(returning void) +let setNeedsUpdateConstraints self = msg_send ~self ~cmd:(selector "setNeedsUpdateConstraints") ~typ:(returning void) +let setReuseIdentifier x self = msg_send ~self ~cmd:(selector "setReuseIdentifier:") ~typ:(id @-> returning void) x +let setSectionHeader x self = msg_send ~self ~cmd:(selector "setSectionHeader:") ~typ:(bool @-> returning void) x +let setTable x self = msg_send ~self ~cmd:(selector "setTable:") ~typ:(id @-> returning void) x +let setTableView x self = msg_send ~self ~cmd:(selector "setTableView:") ~typ:(id @-> returning void) x +let setTableViewStyle x self = msg_send ~self ~cmd:(selector "setTableViewStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning void) x +let setUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabled:") ~typ:(bool @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let systemLayoutSizeFittingSize x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning CGSize.t) x withHorizontalFittingPriority verticalFittingPriority +let table self = msg_send ~self ~cmd:(selector "table") ~typ:(returning id) +let tableView self = msg_send ~self ~cmd:(selector "tableView") ~typ:(returning id) +let tableViewStyle self = msg_send ~self ~cmd:(selector "tableViewStyle") ~typ:(returning llong) +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning llong) +let textLabel self = msg_send ~self ~cmd:(selector "textLabel") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let updateConfigurationUsingState x self = msg_send ~self ~cmd:(selector "updateConfigurationUsingState:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITableViewHeaderFooterViewClass.ml b/uikit/UITableViewHeaderFooterViewClass.ml new file mode 100644 index 00000000..c3c553ca --- /dev/null +++ b/uikit/UITableViewHeaderFooterViewClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewheaderfooterview?language=objc}UITableViewHeaderFooterView} *) + +let defaultFooterHeightForStyle x self = msg_send ~self ~cmd:(selector "defaultFooterHeightForStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let defaultHeaderHeightForStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderHeightForStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UITableViewIndex.ml b/uikit/UITableViewIndex.ml index 98c6083e..95e5b4c1 100644 --- a/uikit/UITableViewIndex.ml +++ b/uikit/UITableViewIndex.ml @@ -5,34 +5,39 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewIndex" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewindex?language=objc}UITableViewIndex} *) -let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let cancelTrackingWithEvent x self = msg_send ~self ~cmd:(selector "cancelTrackingWithEvent:") ~typ:(id @-> returning (void)) x -let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let indexBackgroundColor self = msg_send ~self ~cmd:(selector "indexBackgroundColor") ~typ:(returning (id)) -let indexColor self = msg_send ~self ~cmd:(selector "indexColor") ~typ:(returning (id)) -let indexTrackingBackgroundColor self = msg_send ~self ~cmd:(selector "indexTrackingBackgroundColor") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let maximumNumberOfTitlesWithoutTruncationForHeight x self = msg_send ~self ~cmd:(selector "maximumNumberOfTitlesWithoutTruncationForHeight:") ~typ:(double @-> returning (ullong)) x -let pastBottom self = msg_send ~self ~cmd:(selector "pastBottom") ~typ:(returning (bool)) -let pastTop self = msg_send ~self ~cmd:(selector "pastTop") ~typ:(returning (bool)) -let selectedSection self = msg_send ~self ~cmd:(selector "selectedSection") ~typ:(returning (llong)) -let selectedSectionTitle self = msg_send ~self ~cmd:(selector "selectedSectionTitle") ~typ:(returning (id)) -let setDrawingInsets x self = msg_send ~self ~cmd:(selector "setDrawingInsets:") ~typ:(ptr void @-> returning (void)) x -let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setIndexBackgroundColor x self = msg_send ~self ~cmd:(selector "setIndexBackgroundColor:") ~typ:(id @-> returning (void)) x -let setIndexColor x self = msg_send ~self ~cmd:(selector "setIndexColor:") ~typ:(id @-> returning (void)) x -let setIndexTrackingBackgroundColor x self = msg_send ~self ~cmd:(selector "setIndexTrackingBackgroundColor:") ~typ:(id @-> returning (void)) x -let setTitles x self = msg_send ~self ~cmd:(selector "setTitles:") ~typ:(id @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let titles self = msg_send ~self ~cmd:(selector "titles") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UITableViewIndex" + +let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let cancelTrackingWithEvent x self = msg_send ~self ~cmd:(selector "cancelTrackingWithEvent:") ~typ:(id @-> returning void) x +let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let drawingInsets self = msg_send ~self ~cmd:(selector "drawingInsets") ~typ:(returning UIEdgeInsets.t) +let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let indexBackgroundColor self = msg_send ~self ~cmd:(selector "indexBackgroundColor") ~typ:(returning id) +let indexColor self = msg_send ~self ~cmd:(selector "indexColor") ~typ:(returning id) +let indexTrackingBackgroundColor self = msg_send ~self ~cmd:(selector "indexTrackingBackgroundColor") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let maximumNumberOfTitlesWithoutTruncationForHeight x self = msg_send ~self ~cmd:(selector "maximumNumberOfTitlesWithoutTruncationForHeight:") ~typ:(double @-> returning ullong) x +let pastBottom self = msg_send ~self ~cmd:(selector "pastBottom") ~typ:(returning bool) +let pastTop self = msg_send ~self ~cmd:(selector "pastTop") ~typ:(returning bool) +let selectedSection self = msg_send ~self ~cmd:(selector "selectedSection") ~typ:(returning llong) +let selectedSectionTitle self = msg_send ~self ~cmd:(selector "selectedSectionTitle") ~typ:(returning id) +let setDrawingInsets x self = msg_send ~self ~cmd:(selector "setDrawingInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setIndexBackgroundColor x self = msg_send ~self ~cmd:(selector "setIndexBackgroundColor:") ~typ:(id @-> returning void) x +let setIndexColor x self = msg_send ~self ~cmd:(selector "setIndexColor:") ~typ:(id @-> returning void) x +let setIndexTrackingBackgroundColor x self = msg_send ~self ~cmd:(selector "setIndexTrackingBackgroundColor:") ~typ:(id @-> returning void) x +let setTitles x self = msg_send ~self ~cmd:(selector "setTitles:") ~typ:(id @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let titles self = msg_send ~self ~cmd:(selector "titles") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITableViewIndexOverlayIndicatorView.ml b/uikit/UITableViewIndexOverlayIndicatorView.ml deleted file mode 100644 index 90020e81..00000000 --- a/uikit/UITableViewIndexOverlayIndicatorView.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITableViewIndexOverlayIndicatorView" - -let currentText self = msg_send ~self ~cmd:(selector "currentText") ~typ:(returning (id)) -let initWithTable x self = msg_send ~self ~cmd:(selector "initWithTable:") ~typ:(id @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setCurrentText x self = msg_send ~self ~cmd:(selector "setCurrentText:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UITableViewIndexOverlaySelectionView.ml b/uikit/UITableViewIndexOverlaySelectionView.ml deleted file mode 100644 index 591914db..00000000 --- a/uikit/UITableViewIndexOverlaySelectionView.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITableViewIndexOverlaySelectionView" - -let collectionView x ~cellForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:cellForItemAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForItemAtIndexPath -let collectionView1 x ~numberOfItemsInSection self = msg_send ~self ~cmd:(selector "collectionView:numberOfItemsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfItemsInSection) -let collectionView2 x ~viewForSupplementaryElementOfKind ~atIndexPath self = msg_send ~self ~cmd:(selector "collectionView:viewForSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> id @-> returning (id)) x viewForSupplementaryElementOfKind atIndexPath -let initWithTable x self = msg_send ~self ~cmd:(selector "initWithTable:") ~typ:(id @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let reloadData self = msg_send ~self ~cmd:(selector "reloadData") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit/UITableViewIndexOverlaySelectionViewCollectionViewCell.ml b/uikit/UITableViewIndexOverlaySelectionViewCollectionViewCell.ml deleted file mode 100644 index 43e0c505..00000000 --- a/uikit/UITableViewIndexOverlaySelectionViewCollectionViewCell.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITableViewIndexOverlaySelectionViewCollectionViewCell" - -let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning (void)) x -let button self = msg_send ~self ~cmd:(selector "button") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let rightMargin self = msg_send ~self ~cmd:(selector "rightMargin") ~typ:(returning (double)) -let setRightMargin x self = msg_send ~self ~cmd:(selector "setRightMargin:") ~typ:(double @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning (llong)) -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit/UITableViewIndexOverlaySelectionViewCollectionViewFlowLayout.ml b/uikit/UITableViewIndexOverlaySelectionViewCollectionViewFlowLayout.ml deleted file mode 100644 index b21e6304..00000000 --- a/uikit/UITableViewIndexOverlaySelectionViewCollectionViewFlowLayout.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITableViewIndexOverlaySelectionViewCollectionViewFlowLayout" - -module C = struct - let layoutAttributesClass self = msg_send ~self ~cmd:(selector "layoutAttributesClass") ~typ:(returning (_Class)) -end - -let frameForDoneButton self = msg_send_stret ~self ~cmd:(selector "frameForDoneButton") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning (id)) x -let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let rightMarginForDoneButton self = msg_send ~self ~cmd:(selector "rightMarginForDoneButton") ~typ:(returning (double)) -let setFrameForDoneButton x self = msg_send ~self ~cmd:(selector "setFrameForDoneButton:") ~typ:(CGRect.t @-> returning (void)) x -let setRightMarginForDoneButton x self = msg_send ~self ~cmd:(selector "setRightMarginForDoneButton:") ~typ:(double @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UITableViewIndexOverlaySelectionViewCollectionViewLayoutAttributes.ml b/uikit/UITableViewIndexOverlaySelectionViewCollectionViewLayoutAttributes.ml deleted file mode 100644 index df1a058f..00000000 --- a/uikit/UITableViewIndexOverlaySelectionViewCollectionViewLayoutAttributes.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITableViewIndexOverlaySelectionViewCollectionViewLayoutAttributes" - -let rightMargin self = msg_send ~self ~cmd:(selector "rightMargin") ~typ:(returning (double)) -let setRightMargin x self = msg_send ~self ~cmd:(selector "setRightMargin:") ~typ:(double @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UITableViewLabel.ml b/uikit/UITableViewLabel.ml index 552ecece..dcb58daf 100644 --- a/uikit/UITableViewLabel.ml +++ b/uikit/UITableViewLabel.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewLabel" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewlabel?language=objc}UITableViewLabel} *) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning (void)) x -let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning (void)) x -let setTableCell x self = msg_send ~self ~cmd:(selector "setTableCell:") ~typ:(id @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let tableCell self = msg_send ~self ~cmd:(selector "tableCell") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let usingDefaultFont self = msg_send ~self ~cmd:(selector "usingDefaultFont") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UITableViewLabel" + +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning void) x +let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning void) x +let setTableCell x self = msg_send ~self ~cmd:(selector "setTableCell:") ~typ:(id @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let tableCell self = msg_send ~self ~cmd:(selector "tableCell") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let usingDefaultFont self = msg_send ~self ~cmd:(selector "usingDefaultFont") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITableViewPlaceholder.ml b/uikit/UITableViewPlaceholder.ml index d3bdfe1f..8d333118 100644 --- a/uikit/UITableViewPlaceholder.ml +++ b/uikit/UITableViewPlaceholder.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewPlaceholder" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewplaceholder?language=objc}UITableViewPlaceholder} *) + +let self = get_class "UITableViewPlaceholder" let cellUpdateHandler self = msg_send ~self ~cmd:(selector "cellUpdateHandler") ~typ:(returning (ptr void)) -let initWithInsertionIndexPath x ~reuseIdentifier ~rowHeight self = msg_send ~self ~cmd:(selector "initWithInsertionIndexPath:reuseIdentifier:rowHeight:") ~typ:(id @-> id @-> double @-> returning (id)) x reuseIdentifier rowHeight -let insertionIndexPath self = msg_send ~self ~cmd:(selector "insertionIndexPath") ~typ:(returning (id)) -let reuseIdentifier self = msg_send ~self ~cmd:(selector "reuseIdentifier") ~typ:(returning (id)) -let rowHeight self = msg_send ~self ~cmd:(selector "rowHeight") ~typ:(returning (double)) -let setCellUpdateHandler x self = msg_send ~self ~cmd:(selector "setCellUpdateHandler:") ~typ:(ptr void @-> returning (void)) x -let setInsertionIndexPath x self = msg_send ~self ~cmd:(selector "setInsertionIndexPath:") ~typ:(id @-> returning (void)) x -let setReuseIdentifier x self = msg_send ~self ~cmd:(selector "setReuseIdentifier:") ~typ:(id @-> returning (void)) x -let setRowHeight x self = msg_send ~self ~cmd:(selector "setRowHeight:") ~typ:(double @-> returning (void)) x \ No newline at end of file +let initWithInsertionIndexPath x ~reuseIdentifier ~rowHeight self = msg_send ~self ~cmd:(selector "initWithInsertionIndexPath:reuseIdentifier:rowHeight:") ~typ:(id @-> id @-> double @-> returning id) x reuseIdentifier rowHeight +let insertionIndexPath self = msg_send ~self ~cmd:(selector "insertionIndexPath") ~typ:(returning id) +let reuseIdentifier self = msg_send ~self ~cmd:(selector "reuseIdentifier") ~typ:(returning id) +let rowHeight self = msg_send ~self ~cmd:(selector "rowHeight") ~typ:(returning double) +let setCellUpdateHandler x self = msg_send ~self ~cmd:(selector "setCellUpdateHandler:") ~typ:((ptr void) @-> returning void) x +let setInsertionIndexPath x self = msg_send ~self ~cmd:(selector "setInsertionIndexPath:") ~typ:(id @-> returning void) x +let setReuseIdentifier x self = msg_send ~self ~cmd:(selector "setReuseIdentifier:") ~typ:(id @-> returning void) x +let setRowHeight x self = msg_send ~self ~cmd:(selector "setRowHeight:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit/UITableViewRow.ml b/uikit/UITableViewRow.ml index 616bfd24..5b5a635e 100644 --- a/uikit/UITableViewRow.ml +++ b/uikit/UITableViewRow.ml @@ -5,18 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewRow" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewrow?language=objc}UITableViewRow} *) -module C = struct - let row self = msg_send ~self ~cmd:(selector "row") ~typ:(returning (id)) -end +let self = get_class "UITableViewRow" -let cell self = msg_send ~self ~cmd:(selector "cell") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let height self = msg_send ~self ~cmd:(selector "height") ~typ:(returning (double)) -let indentationLevel self = msg_send ~self ~cmd:(selector "indentationLevel") ~typ:(returning (llong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let setCell x self = msg_send ~self ~cmd:(selector "setCell:") ~typ:(id @-> returning (void)) x -let setHeight x self = msg_send ~self ~cmd:(selector "setHeight:") ~typ:(double @-> returning (void)) x -let setIndentationLevel x self = msg_send ~self ~cmd:(selector "setIndentationLevel:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file +let cell self = msg_send ~self ~cmd:(selector "cell") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let height self = msg_send ~self ~cmd:(selector "height") ~typ:(returning double) +let indentationLevel self = msg_send ~self ~cmd:(selector "indentationLevel") ~typ:(returning llong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let setCell x self = msg_send ~self ~cmd:(selector "setCell:") ~typ:(id @-> returning void) x +let setHeight x self = msg_send ~self ~cmd:(selector "setHeight:") ~typ:(double @-> returning void) x +let setIndentationLevel x self = msg_send ~self ~cmd:(selector "setIndentationLevel:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UITableViewRowAction.ml b/uikit/UITableViewRowAction.ml index 8b041675..5351a25d 100644 --- a/uikit/UITableViewRowAction.ml +++ b/uikit/UITableViewRowAction.ml @@ -5,18 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewRowAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewrowaction?language=objc}UITableViewRowAction} *) -module C = struct - let rowActionWithStyle x ~title ~handler self = msg_send ~self ~cmd:(selector "rowActionWithStyle:title:handler:") ~typ:(llong @-> id @-> ptr void @-> returning (id)) (LLong.of_int x) title handler -end +let self = get_class "UITableViewRowAction" -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let backgroundEffect self = msg_send ~self ~cmd:(selector "backgroundEffect") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBackgroundEffect x self = msg_send ~self ~cmd:(selector "setBackgroundEffect:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let backgroundEffect self = msg_send ~self ~cmd:(selector "backgroundEffect") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBackgroundEffect x self = msg_send ~self ~cmd:(selector "setBackgroundEffect:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITableViewRowActionClass.ml b/uikit/UITableViewRowActionClass.ml new file mode 100644 index 00000000..1dbab66f --- /dev/null +++ b/uikit/UITableViewRowActionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewrowaction?language=objc}UITableViewRowAction} *) + +let rowActionWithStyle x ~title ~handler self = msg_send ~self ~cmd:(selector "rowActionWithStyle:title:handler:") ~typ:(llong @-> id @-> (ptr void) @-> returning id) (LLong.of_int x) title handler \ No newline at end of file diff --git a/uikit/UITableViewRowClass.ml b/uikit/UITableViewRowClass.ml new file mode 100644 index 00000000..72d2f7ab --- /dev/null +++ b/uikit/UITableViewRowClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewrow?language=objc}UITableViewRow} *) + +let row self = msg_send ~self ~cmd:(selector "row") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITableViewRowData.ml b/uikit/UITableViewRowData.ml index 64758b9f..1210deb9 100644 --- a/uikit/UITableViewRowData.ml +++ b/uikit/UITableViewRowData.ml @@ -5,104 +5,108 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewRowData" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewrowdata?language=objc}UITableViewRowData} *) -let addDropTargetGapAtIndexPath x self = msg_send ~self ~cmd:(selector "addDropTargetGapAtIndexPath:") ~typ:(id @-> returning (void)) x -let addGapAtIndexPath x self = msg_send ~self ~cmd:(selector "addGapAtIndexPath:") ~typ:(id @-> returning (void)) x -let adjustSectionOffsetsBeginningAtIndex x ~count ~delta ~rowDelta self = msg_send ~self ~cmd:(selector "adjustSectionOffsetsBeginningAtIndex:count:delta:rowDelta:") ~typ:(llong @-> llong @-> double @-> llong @-> returning (void)) (LLong.of_int x) (LLong.of_int count) delta (LLong.of_int rowDelta) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultSectionFooterHeight self = msg_send ~self ~cmd:(selector "defaultSectionFooterHeight") ~typ:(returning (double)) -let defaultSectionHeaderHeight self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeight") ~typ:(returning (double)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let draggedIndexPath self = msg_send ~self ~cmd:(selector "draggedIndexPath") ~typ:(returning (id)) -let draggedRowHeight self = msg_send ~self ~cmd:(selector "draggedRowHeight") ~typ:(returning (double)) -let dropLocationForPoint x ~atIndexPath ~withInsets self = msg_send ~self ~cmd:(selector "dropLocationForPoint:atIndexPath:withInsets:") ~typ:(CGPoint.t @-> id @-> ptr void @-> returning (llong)) x atIndexPath withInsets -let ensureAllSectionsAreValid self = msg_send ~self ~cmd:(selector "ensureAllSectionsAreValid") ~typ:(returning (void)) -let ensureHeightsFaultedInForScrollToIndexPath x ~boundsHeight self = msg_send ~self ~cmd:(selector "ensureHeightsFaultedInForScrollToIndexPath:boundsHeight:") ~typ:(id @-> double @-> returning (bool)) x boundsHeight -let floatingRectForFooterInSection x ~visibleRect ~heightCanBeGuessed ~outIsFloating self = msg_send_stret ~self ~cmd:(selector "floatingRectForFooterInSection:visibleRect:heightCanBeGuessed:outIsFloating:") ~typ:(llong @-> CGRect.t @-> bool @-> ptr (bool) @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) visibleRect heightCanBeGuessed outIsFloating -let floatingRectForHeaderInSection x ~visibleRect ~heightCanBeGuessed ~outIsFloating self = msg_send_stret ~self ~cmd:(selector "floatingRectForHeaderInSection:visibleRect:heightCanBeGuessed:outIsFloating:") ~typ:(llong @-> CGRect.t @-> bool @-> ptr (bool) @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) visibleRect heightCanBeGuessed outIsFloating -let footerAlignmentForSection x self = msg_send ~self ~cmd:(selector "footerAlignmentForSection:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let gapIndexPath self = msg_send ~self ~cmd:(selector "gapIndexPath") ~typ:(returning (id)) -let gapRowHeight self = msg_send ~self ~cmd:(selector "gapRowHeight") ~typ:(returning (double)) -let globalRowForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "globalRowForRowAtIndexPath:") ~typ:(id @-> returning (llong)) x -let globalRowsInRect x ~canGuess self = msg_send_stret ~self ~cmd:(selector "globalRowsInRect:canGuess:") ~typ:(CGRect.t @-> bool @-> returning (NSRange.t)) ~return_type:NSRange.t x canGuess -let hasFooterForSection x self = msg_send ~self ~cmd:(selector "hasFooterForSection:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let hasHeaderForSection x self = msg_send ~self ~cmd:(selector "hasHeaderForSection:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let hasRows self = msg_send ~self ~cmd:(selector "hasRows") ~typ:(returning (bool)) -let headerAlignmentForSection x self = msg_send ~self ~cmd:(selector "headerAlignmentForSection:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let heightForAutohidingTableHeaderView self = msg_send ~self ~cmd:(selector "heightForAutohidingTableHeaderView") ~typ:(returning (double)) -let heightForFooterInSection x ~canGuess self = msg_send ~self ~cmd:(selector "heightForFooterInSection:canGuess:") ~typ:(llong @-> bool @-> returning (double)) (LLong.of_int x) canGuess -let heightForHeaderInSection x ~canGuess self = msg_send ~self ~cmd:(selector "heightForHeaderInSection:canGuess:") ~typ:(llong @-> bool @-> returning (double)) (LLong.of_int x) canGuess -let heightForRow x ~inSection ~canGuess self = msg_send ~self ~cmd:(selector "heightForRow:inSection:canGuess:") ~typ:(llong @-> llong @-> bool @-> returning (double)) (LLong.of_int x) (LLong.of_int inSection) canGuess -let heightForRow' x ~inSection ~canGuess ~adjustForReorderedRow self = msg_send ~self ~cmd:(selector "heightForRow:inSection:canGuess:adjustForReorderedRow:") ~typ:(llong @-> llong @-> bool @-> bool @-> returning (double)) (LLong.of_int x) (LLong.of_int inSection) canGuess adjustForReorderedRow -let heightForSection x self = msg_send ~self ~cmd:(selector "heightForSection:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let heightForTable self = msg_send ~self ~cmd:(selector "heightForTable") ~typ:(returning (double)) -let heightForTableFooterView self = msg_send ~self ~cmd:(selector "heightForTableFooterView") ~typ:(returning (double)) -let heightForTableHeaderView self = msg_send ~self ~cmd:(selector "heightForTableHeaderView") ~typ:(returning (double)) -let heightForTableHeaderViewHiding self = msg_send ~self ~cmd:(selector "heightForTableHeaderViewHiding") ~typ:(returning (double)) -let indexPathForRowAtGlobalRow x self = msg_send ~self ~cmd:(selector "indexPathForRowAtGlobalRow:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let indexPathsForRowsInRect x self = msg_send ~self ~cmd:(selector "indexPathsForRowsInRect:") ~typ:(CGRect.t @-> returning (id)) x -let indexPathsForRowsInRect' x ~extraHitSpaceBetweenRows self = msg_send ~self ~cmd:(selector "indexPathsForRowsInRect:extraHitSpaceBetweenRows:") ~typ:(CGRect.t @-> double @-> returning (id)) x extraHitSpaceBetweenRows -let initWithTableView x self = msg_send ~self ~cmd:(selector "initWithTableView:") ~typ:(id @-> returning (id)) x -let invalidateAllSectionOffsetsAndUpdatePadding self = msg_send ~self ~cmd:(selector "invalidateAllSectionOffsetsAndUpdatePadding") ~typ:(returning (void)) -let invalidateAllSections self = msg_send ~self ~cmd:(selector "invalidateAllSections") ~typ:(returning (void)) -let invalidateSection x self = msg_send ~self ~cmd:(selector "invalidateSection:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let maxFooterTitleWidthForSection x self = msg_send ~self ~cmd:(selector "maxFooterTitleWidthForSection:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let maxHeaderTitleWidthForSection x self = msg_send ~self ~cmd:(selector "maxHeaderTitleWidthForSection:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let minimumRowHeight self = msg_send ~self ~cmd:(selector "minimumRowHeight") ~typ:(returning (double)) -let moveDropTargetGapToIndexPath x self = msg_send ~self ~cmd:(selector "moveDropTargetGapToIndexPath:") ~typ:(id @-> returning (void)) x -let moveRowAtIndexPathFrom x ~toIndexPath self = msg_send ~self ~cmd:(selector "moveRowAtIndexPathFrom:toIndexPath:") ~typ:(id @-> id @-> returning (void)) x toIndexPath -let numberOfRows self = msg_send ~self ~cmd:(selector "numberOfRows") ~typ:(returning (llong)) -let numberOfRowsBeforeSection x self = msg_send ~self ~cmd:(selector "numberOfRowsBeforeSection:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let numberOfRowsInSection x self = msg_send ~self ~cmd:(selector "numberOfRowsInSection:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let numberOfSections self = msg_send ~self ~cmd:(selector "numberOfSections") ~typ:(returning (llong)) -let offsetForSection x self = msg_send ~self ~cmd:(selector "offsetForSection:") ~typ:(id @-> returning (double)) x -let pinsTableHeaderView self = msg_send ~self ~cmd:(selector "pinsTableHeaderView") ~typ:(returning (bool)) -let rectForFooterInSection x ~heightCanBeGuessed self = msg_send_stret ~self ~cmd:(selector "rectForFooterInSection:heightCanBeGuessed:") ~typ:(llong @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) heightCanBeGuessed -let rectForGap self = msg_send_stret ~self ~cmd:(selector "rectForGap") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let rectForGlobalRow x ~heightCanBeGuessed self = msg_send_stret ~self ~cmd:(selector "rectForGlobalRow:heightCanBeGuessed:") ~typ:(llong @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) heightCanBeGuessed -let rectForHeaderInSection x ~heightCanBeGuessed self = msg_send_stret ~self ~cmd:(selector "rectForHeaderInSection:heightCanBeGuessed:") ~typ:(llong @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) heightCanBeGuessed -let rectForRow x ~inSection ~heightCanBeGuessed self = msg_send_stret ~self ~cmd:(selector "rectForRow:inSection:heightCanBeGuessed:") ~typ:(llong @-> llong @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) (LLong.of_int inSection) heightCanBeGuessed -let rectForSection x self = msg_send_stret ~self ~cmd:(selector "rectForSection:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) -let rectForTable self = msg_send_stret ~self ~cmd:(selector "rectForTable") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let rectForTableFooterView self = msg_send_stret ~self ~cmd:(selector "rectForTableFooterView") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let rectForTableHeaderView self = msg_send_stret ~self ~cmd:(selector "rectForTableHeaderView") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let removeDropTargetGap self = msg_send ~self ~cmd:(selector "removeDropTargetGap") ~typ:(returning (void)) -let removeGap self = msg_send ~self ~cmd:(selector "removeGap") ~typ:(returning (void)) -let removeReorderedRowWithHeight x ~atIndexPath self = msg_send ~self ~cmd:(selector "removeReorderedRowWithHeight:atIndexPath:") ~typ:(double @-> id @-> returning (double)) x atIndexPath -let reorderedIndexPath self = msg_send ~self ~cmd:(selector "reorderedIndexPath") ~typ:(returning (id)) -let restoreReorderedRowWithHeight x ~atIndexPath self = msg_send ~self ~cmd:(selector "restoreReorderedRowWithHeight:atIndexPath:") ~typ:(double @-> id @-> returning (void)) x atIndexPath -let rowSpacing self = msg_send ~self ~cmd:(selector "rowSpacing") ~typ:(returning (double)) -let sectionForPoint x self = msg_send ~self ~cmd:(selector "sectionForPoint:") ~typ:(CGPoint.t @-> returning (llong)) x -let sectionForSectionRowData x self = msg_send ~self ~cmd:(selector "sectionForSectionRowData:") ~typ:(id @-> returning (llong)) x -let sectionLocationForReorderedRow x ~inSection self = msg_send ~self ~cmd:(selector "sectionLocationForReorderedRow:inSection:") ~typ:(llong @-> llong @-> returning (int)) (LLong.of_int x) (LLong.of_int inSection) -let sectionLocationForRow x ~inSection self = msg_send ~self ~cmd:(selector "sectionLocationForRow:inSection:") ~typ:(llong @-> llong @-> returning (int)) (LLong.of_int x) (LLong.of_int inSection) -let sectionsInRect x self = msg_send_stret ~self ~cmd:(selector "sectionsInRect:") ~typ:(CGRect.t @-> returning (NSRange.t)) ~return_type:NSRange.t x -let setDraggedIndexPath x self = msg_send ~self ~cmd:(selector "setDraggedIndexPath:") ~typ:(id @-> returning (void)) x -let setDraggedRowHeight x self = msg_send ~self ~cmd:(selector "setDraggedRowHeight:") ~typ:(double @-> returning (void)) x -let setGapIndexPath x self = msg_send ~self ~cmd:(selector "setGapIndexPath:") ~typ:(id @-> returning (void)) x -let setGapRowHeight x self = msg_send ~self ~cmd:(selector "setGapRowHeight:") ~typ:(double @-> returning (void)) x -let setHeight x ~forFooterInSection self = msg_send ~self ~cmd:(selector "setHeight:forFooterInSection:") ~typ:(double @-> llong @-> returning (void)) x (LLong.of_int forFooterInSection) -let setHeight1 x ~forHeaderInSection self = msg_send ~self ~cmd:(selector "setHeight:forHeaderInSection:") ~typ:(double @-> llong @-> returning (void)) x (LLong.of_int forHeaderInSection) -let setHeight2 x ~forRowAtIndexPath self = msg_send ~self ~cmd:(selector "setHeight:forRowAtIndexPath:") ~typ:(double @-> id @-> returning (void)) x forRowAtIndexPath -let setHeightForTableHeaderViewHiding x self = msg_send ~self ~cmd:(selector "setHeightForTableHeaderViewHiding:") ~typ:(double @-> returning (void)) x -let setMinimumRowHeight x self = msg_send ~self ~cmd:(selector "setMinimumRowHeight:") ~typ:(double @-> returning (void)) x -let setPinsTableHeaderView x self = msg_send ~self ~cmd:(selector "setPinsTableHeaderView:") ~typ:(bool @-> returning (void)) x -let setReorderedIndexPath x self = msg_send ~self ~cmd:(selector "setReorderedIndexPath:") ~typ:(id @-> returning (void)) x -let setRowSpacing x self = msg_send ~self ~cmd:(selector "setRowSpacing:") ~typ:(double @-> returning (void)) x -let setTableBottomPadding x self = msg_send ~self ~cmd:(selector "setTableBottomPadding:") ~typ:(double @-> returning (void)) x -let setTableSidePadding x self = msg_send ~self ~cmd:(selector "setTableSidePadding:") ~typ:(double @-> returning (void)) x -let setTableTopPadding x self = msg_send ~self ~cmd:(selector "setTableTopPadding:") ~typ:(double @-> returning (void)) x -let setUsesVariableMargins x self = msg_send ~self ~cmd:(selector "setUsesVariableMargins:") ~typ:(bool @-> returning (void)) x -let shouldStripHeaderTopPaddingForSection x self = msg_send ~self ~cmd:(selector "shouldStripHeaderTopPaddingForSection:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let tableBottomPadding self = msg_send ~self ~cmd:(selector "tableBottomPadding") ~typ:(returning (double)) -let tableFooterHeightDidChangeToHeight x self = msg_send ~self ~cmd:(selector "tableFooterHeightDidChangeToHeight:") ~typ:(double @-> returning (void)) x -let tableHeaderHeightDidChangeToHeight x self = msg_send ~self ~cmd:(selector "tableHeaderHeightDidChangeToHeight:") ~typ:(double @-> returning (void)) x -let tableSidePadding self = msg_send ~self ~cmd:(selector "tableSidePadding") ~typ:(returning (double)) -let tableTopPadding self = msg_send ~self ~cmd:(selector "tableTopPadding") ~typ:(returning (double)) -let tableViewWidthDidChangeToWidth x self = msg_send ~self ~cmd:(selector "tableViewWidthDidChangeToWidth:") ~typ:(double @-> returning (void)) x -let targetIndexPathForPoint x ~adjustedForGap self = msg_send ~self ~cmd:(selector "targetIndexPathForPoint:adjustedForGap:") ~typ:(CGPoint.t @-> bool @-> returning (id)) x adjustedForGap -let temporarilyDeletedIndexPathBeingReordered self = msg_send ~self ~cmd:(selector "temporarilyDeletedIndexPathBeingReordered") ~typ:(returning (id)) -let usesVariableMargins self = msg_send ~self ~cmd:(selector "usesVariableMargins") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UITableViewRowData" + +let addDropTargetGapAtIndexPath x self = msg_send ~self ~cmd:(selector "addDropTargetGapAtIndexPath:") ~typ:(id @-> returning void) x +let addGapAtIndexPath x self = msg_send ~self ~cmd:(selector "addGapAtIndexPath:") ~typ:(id @-> returning void) x +let adjustSectionOffsetsBeginningAtIndex x ~count ~delta ~rowDelta self = msg_send ~self ~cmd:(selector "adjustSectionOffsetsBeginningAtIndex:count:delta:rowDelta:") ~typ:(llong @-> llong @-> double @-> llong @-> returning void) (LLong.of_int x) (LLong.of_int count) delta (LLong.of_int rowDelta) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultSectionFooterHeight self = msg_send ~self ~cmd:(selector "defaultSectionFooterHeight") ~typ:(returning double) +let defaultSectionHeaderHeight self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeight") ~typ:(returning double) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let draggedIndexPath self = msg_send ~self ~cmd:(selector "draggedIndexPath") ~typ:(returning id) +let draggedRowHeight self = msg_send ~self ~cmd:(selector "draggedRowHeight") ~typ:(returning double) +let dropLocationForPoint x ~atIndexPath ~withInsets self = msg_send ~self ~cmd:(selector "dropLocationForPoint:atIndexPath:withInsets:") ~typ:(CGPoint.t @-> id @-> UIEdgeInsets.t @-> returning llong) x atIndexPath withInsets +let ensureAllSectionsAreValid self = msg_send ~self ~cmd:(selector "ensureAllSectionsAreValid") ~typ:(returning void) +let ensureHeightsFaultedInForScrollToIndexPath x ~boundsHeight self = msg_send ~self ~cmd:(selector "ensureHeightsFaultedInForScrollToIndexPath:boundsHeight:") ~typ:(id @-> double @-> returning bool) x boundsHeight +let floatingRectForFooterInSection x ~visibleRect ~heightCanBeGuessed ~outIsFloating self = msg_send ~self ~cmd:(selector "floatingRectForFooterInSection:visibleRect:heightCanBeGuessed:outIsFloating:") ~typ:(llong @-> CGRect.t @-> bool @-> (ptr bool) @-> returning CGRect.t) (LLong.of_int x) visibleRect heightCanBeGuessed outIsFloating +let floatingRectForHeaderInSection x ~visibleRect ~heightCanBeGuessed ~outIsFloating self = msg_send ~self ~cmd:(selector "floatingRectForHeaderInSection:visibleRect:heightCanBeGuessed:outIsFloating:") ~typ:(llong @-> CGRect.t @-> bool @-> (ptr bool) @-> returning CGRect.t) (LLong.of_int x) visibleRect heightCanBeGuessed outIsFloating +let footerAlignmentForSection x self = msg_send ~self ~cmd:(selector "footerAlignmentForSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let gapIndexPath self = msg_send ~self ~cmd:(selector "gapIndexPath") ~typ:(returning id) +let gapRowHeight self = msg_send ~self ~cmd:(selector "gapRowHeight") ~typ:(returning double) +let globalRowForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "globalRowForRowAtIndexPath:") ~typ:(id @-> returning llong) x +let globalRowsInRect x ~canGuess self = msg_send ~self ~cmd:(selector "globalRowsInRect:canGuess:") ~typ:(CGRect.t @-> bool @-> returning NSRange.t) x canGuess +let hasFooterForSection x self = msg_send ~self ~cmd:(selector "hasFooterForSection:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let hasHeaderForSection x self = msg_send ~self ~cmd:(selector "hasHeaderForSection:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let hasRows self = msg_send ~self ~cmd:(selector "hasRows") ~typ:(returning bool) +let headerAlignmentForSection x self = msg_send ~self ~cmd:(selector "headerAlignmentForSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let heightForAutohidingTableHeaderView self = msg_send ~self ~cmd:(selector "heightForAutohidingTableHeaderView") ~typ:(returning double) +let heightForFooterInSection x ~canGuess self = msg_send ~self ~cmd:(selector "heightForFooterInSection:canGuess:") ~typ:(llong @-> bool @-> returning double) (LLong.of_int x) canGuess +let heightForHeaderInSection x ~canGuess self = msg_send ~self ~cmd:(selector "heightForHeaderInSection:canGuess:") ~typ:(llong @-> bool @-> returning double) (LLong.of_int x) canGuess +let heightForRow x ~inSection ~canGuess self = msg_send ~self ~cmd:(selector "heightForRow:inSection:canGuess:") ~typ:(llong @-> llong @-> bool @-> returning double) (LLong.of_int x) (LLong.of_int inSection) canGuess +let heightForRow' x ~inSection ~canGuess ~adjustForReorderedRow self = msg_send ~self ~cmd:(selector "heightForRow:inSection:canGuess:adjustForReorderedRow:") ~typ:(llong @-> llong @-> bool @-> bool @-> returning double) (LLong.of_int x) (LLong.of_int inSection) canGuess adjustForReorderedRow +let heightForSection x self = msg_send ~self ~cmd:(selector "heightForSection:") ~typ:(llong @-> returning double) (LLong.of_int x) +let heightForTable self = msg_send ~self ~cmd:(selector "heightForTable") ~typ:(returning double) +let heightForTableFooterView self = msg_send ~self ~cmd:(selector "heightForTableFooterView") ~typ:(returning double) +let heightForTableHeaderView self = msg_send ~self ~cmd:(selector "heightForTableHeaderView") ~typ:(returning double) +let heightForTableHeaderViewHiding self = msg_send ~self ~cmd:(selector "heightForTableHeaderViewHiding") ~typ:(returning double) +let indexPathForRowAtGlobalRow x self = msg_send ~self ~cmd:(selector "indexPathForRowAtGlobalRow:") ~typ:(llong @-> returning id) (LLong.of_int x) +let indexPathsForRowsInRect x self = msg_send ~self ~cmd:(selector "indexPathsForRowsInRect:") ~typ:(CGRect.t @-> returning id) x +let indexPathsForRowsInRect' x ~extraHitSpaceBetweenRows self = msg_send ~self ~cmd:(selector "indexPathsForRowsInRect:extraHitSpaceBetweenRows:") ~typ:(CGRect.t @-> double @-> returning id) x extraHitSpaceBetweenRows +let initWithTableView x self = msg_send ~self ~cmd:(selector "initWithTableView:") ~typ:(id @-> returning id) x +let invalidateAllSectionOffsetsAndUpdatePadding self = msg_send ~self ~cmd:(selector "invalidateAllSectionOffsetsAndUpdatePadding") ~typ:(returning void) +let invalidateAllSections self = msg_send ~self ~cmd:(selector "invalidateAllSections") ~typ:(returning void) +let invalidateSection x self = msg_send ~self ~cmd:(selector "invalidateSection:") ~typ:(llong @-> returning void) (LLong.of_int x) +let maxFooterTitleWidthForSection x self = msg_send ~self ~cmd:(selector "maxFooterTitleWidthForSection:") ~typ:(llong @-> returning double) (LLong.of_int x) +let maxHeaderTitleWidthForSection x self = msg_send ~self ~cmd:(selector "maxHeaderTitleWidthForSection:") ~typ:(llong @-> returning double) (LLong.of_int x) +let minimumRowHeight self = msg_send ~self ~cmd:(selector "minimumRowHeight") ~typ:(returning double) +let moveDropTargetGapToIndexPath x self = msg_send ~self ~cmd:(selector "moveDropTargetGapToIndexPath:") ~typ:(id @-> returning void) x +let moveRowAtIndexPathFrom x ~toIndexPath self = msg_send ~self ~cmd:(selector "moveRowAtIndexPathFrom:toIndexPath:") ~typ:(id @-> id @-> returning void) x toIndexPath +let numberOfRows self = msg_send ~self ~cmd:(selector "numberOfRows") ~typ:(returning llong) +let numberOfRowsBeforeSection x self = msg_send ~self ~cmd:(selector "numberOfRowsBeforeSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let numberOfRowsInSection x self = msg_send ~self ~cmd:(selector "numberOfRowsInSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let numberOfSections self = msg_send ~self ~cmd:(selector "numberOfSections") ~typ:(returning llong) +let offsetForSection x self = msg_send ~self ~cmd:(selector "offsetForSection:") ~typ:(id @-> returning double) x +let pinsTableHeaderView self = msg_send ~self ~cmd:(selector "pinsTableHeaderView") ~typ:(returning bool) +let rectForFooterInSection x ~heightCanBeGuessed self = msg_send ~self ~cmd:(selector "rectForFooterInSection:heightCanBeGuessed:") ~typ:(llong @-> bool @-> returning CGRect.t) (LLong.of_int x) heightCanBeGuessed +let rectForGap self = msg_send ~self ~cmd:(selector "rectForGap") ~typ:(returning CGRect.t) +let rectForGlobalRow x ~heightCanBeGuessed self = msg_send ~self ~cmd:(selector "rectForGlobalRow:heightCanBeGuessed:") ~typ:(llong @-> bool @-> returning CGRect.t) (LLong.of_int x) heightCanBeGuessed +let rectForHeaderInSection x ~heightCanBeGuessed self = msg_send ~self ~cmd:(selector "rectForHeaderInSection:heightCanBeGuessed:") ~typ:(llong @-> bool @-> returning CGRect.t) (LLong.of_int x) heightCanBeGuessed +let rectForRow x ~inSection ~heightCanBeGuessed self = msg_send ~self ~cmd:(selector "rectForRow:inSection:heightCanBeGuessed:") ~typ:(llong @-> llong @-> bool @-> returning CGRect.t) (LLong.of_int x) (LLong.of_int inSection) heightCanBeGuessed +let rectForSection x self = msg_send ~self ~cmd:(selector "rectForSection:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) +let rectForTable self = msg_send ~self ~cmd:(selector "rectForTable") ~typ:(returning CGRect.t) +let rectForTableFooterView self = msg_send ~self ~cmd:(selector "rectForTableFooterView") ~typ:(returning CGRect.t) +let rectForTableHeaderView self = msg_send ~self ~cmd:(selector "rectForTableHeaderView") ~typ:(returning CGRect.t) +let removeDropTargetGap self = msg_send ~self ~cmd:(selector "removeDropTargetGap") ~typ:(returning void) +let removeGap self = msg_send ~self ~cmd:(selector "removeGap") ~typ:(returning void) +let removeReorderedRowWithHeight x ~atIndexPath self = msg_send ~self ~cmd:(selector "removeReorderedRowWithHeight:atIndexPath:") ~typ:(double @-> id @-> returning double) x atIndexPath +let reorderedIndexPath self = msg_send ~self ~cmd:(selector "reorderedIndexPath") ~typ:(returning id) +let restoreReorderedRowWithHeight x ~atIndexPath self = msg_send ~self ~cmd:(selector "restoreReorderedRowWithHeight:atIndexPath:") ~typ:(double @-> id @-> returning void) x atIndexPath +let rowSpacing self = msg_send ~self ~cmd:(selector "rowSpacing") ~typ:(returning double) +let sectionForPoint x self = msg_send ~self ~cmd:(selector "sectionForPoint:") ~typ:(CGPoint.t @-> returning llong) x +let sectionForSectionRowData x self = msg_send ~self ~cmd:(selector "sectionForSectionRowData:") ~typ:(id @-> returning llong) x +let sectionLocationForReorderedRow x ~inSection self = msg_send ~self ~cmd:(selector "sectionLocationForReorderedRow:inSection:") ~typ:(llong @-> llong @-> returning int) (LLong.of_int x) (LLong.of_int inSection) +let sectionLocationForRow x ~inSection self = msg_send ~self ~cmd:(selector "sectionLocationForRow:inSection:") ~typ:(llong @-> llong @-> returning int) (LLong.of_int x) (LLong.of_int inSection) +let sectionsInRect x self = msg_send ~self ~cmd:(selector "sectionsInRect:") ~typ:(CGRect.t @-> returning NSRange.t) x +let setDraggedIndexPath x self = msg_send ~self ~cmd:(selector "setDraggedIndexPath:") ~typ:(id @-> returning void) x +let setDraggedRowHeight x self = msg_send ~self ~cmd:(selector "setDraggedRowHeight:") ~typ:(double @-> returning void) x +let setGapIndexPath x self = msg_send ~self ~cmd:(selector "setGapIndexPath:") ~typ:(id @-> returning void) x +let setGapRowHeight x self = msg_send ~self ~cmd:(selector "setGapRowHeight:") ~typ:(double @-> returning void) x +let setHeight x ~forFooterInSection self = msg_send ~self ~cmd:(selector "setHeight:forFooterInSection:") ~typ:(double @-> llong @-> returning void) x (LLong.of_int forFooterInSection) +let setHeight1 x ~forHeaderInSection self = msg_send ~self ~cmd:(selector "setHeight:forHeaderInSection:") ~typ:(double @-> llong @-> returning void) x (LLong.of_int forHeaderInSection) +let setHeight2 x ~forRowAtIndexPath self = msg_send ~self ~cmd:(selector "setHeight:forRowAtIndexPath:") ~typ:(double @-> id @-> returning void) x forRowAtIndexPath +let setHeightForTableHeaderViewHiding x self = msg_send ~self ~cmd:(selector "setHeightForTableHeaderViewHiding:") ~typ:(double @-> returning void) x +let setMinimumRowHeight x self = msg_send ~self ~cmd:(selector "setMinimumRowHeight:") ~typ:(double @-> returning void) x +let setPinsTableHeaderView x self = msg_send ~self ~cmd:(selector "setPinsTableHeaderView:") ~typ:(bool @-> returning void) x +let setReorderedIndexPath x self = msg_send ~self ~cmd:(selector "setReorderedIndexPath:") ~typ:(id @-> returning void) x +let setRowSpacing x self = msg_send ~self ~cmd:(selector "setRowSpacing:") ~typ:(double @-> returning void) x +let setTableBottomPadding x self = msg_send ~self ~cmd:(selector "setTableBottomPadding:") ~typ:(double @-> returning void) x +let setTableSidePadding x self = msg_send ~self ~cmd:(selector "setTableSidePadding:") ~typ:(double @-> returning void) x +let setTableTopPadding x self = msg_send ~self ~cmd:(selector "setTableTopPadding:") ~typ:(double @-> returning void) x +let setUsesVariableMargins x self = msg_send ~self ~cmd:(selector "setUsesVariableMargins:") ~typ:(bool @-> returning void) x +let shouldStripHeaderTopPaddingForSection x self = msg_send ~self ~cmd:(selector "shouldStripHeaderTopPaddingForSection:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let tableBottomPadding self = msg_send ~self ~cmd:(selector "tableBottomPadding") ~typ:(returning double) +let tableFooterHeightDidChangeToHeight x self = msg_send ~self ~cmd:(selector "tableFooterHeightDidChangeToHeight:") ~typ:(double @-> returning void) x +let tableHeaderHeightDidChangeToHeight x self = msg_send ~self ~cmd:(selector "tableHeaderHeightDidChangeToHeight:") ~typ:(double @-> returning void) x +let tableSidePadding self = msg_send ~self ~cmd:(selector "tableSidePadding") ~typ:(returning double) +let tableTopPadding self = msg_send ~self ~cmd:(selector "tableTopPadding") ~typ:(returning double) +let tableViewWidthDidChangeToWidth x self = msg_send ~self ~cmd:(selector "tableViewWidthDidChangeToWidth:") ~typ:(double @-> returning void) x +let targetIndexPathForPoint x ~adjustedForGap self = msg_send ~self ~cmd:(selector "targetIndexPathForPoint:adjustedForGap:") ~typ:(CGPoint.t @-> bool @-> returning id) x adjustedForGap +let temporarilyDeletedIndexPathBeingReordered self = msg_send ~self ~cmd:(selector "temporarilyDeletedIndexPathBeingReordered") ~typ:(returning id) +let usesVariableMargins self = msg_send ~self ~cmd:(selector "usesVariableMargins") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITableViewSection.ml b/uikit/UITableViewSection.ml index 00a33f7a..4e9b2122 100644 --- a/uikit/UITableViewSection.ml +++ b/uikit/UITableViewSection.ml @@ -5,22 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewSection" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewsection?language=objc}UITableViewSection} *) -module C = struct - let sectionWithRows x self = msg_send ~self ~cmd:(selector "sectionWithRows:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UITableViewSection" -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let footerTitle self = msg_send ~self ~cmd:(selector "footerTitle") ~typ:(returning (id)) -let footerView self = msg_send ~self ~cmd:(selector "footerView") ~typ:(returning (id)) -let headerTitle self = msg_send ~self ~cmd:(selector "headerTitle") ~typ:(returning (id)) -let headerView self = msg_send ~self ~cmd:(selector "headerView") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let rows self = msg_send ~self ~cmd:(selector "rows") ~typ:(returning (id)) -let setFooterTitle x self = msg_send ~self ~cmd:(selector "setFooterTitle:") ~typ:(id @-> returning (void)) x -let setFooterView x self = msg_send ~self ~cmd:(selector "setFooterView:") ~typ:(id @-> returning (void)) x -let setHeaderTitle x self = msg_send ~self ~cmd:(selector "setHeaderTitle:") ~typ:(id @-> returning (void)) x -let setHeaderView x self = msg_send ~self ~cmd:(selector "setHeaderView:") ~typ:(id @-> returning (void)) x -let setRows x self = msg_send ~self ~cmd:(selector "setRows:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let footerTitle self = msg_send ~self ~cmd:(selector "footerTitle") ~typ:(returning id) +let footerView self = msg_send ~self ~cmd:(selector "footerView") ~typ:(returning id) +let headerTitle self = msg_send ~self ~cmd:(selector "headerTitle") ~typ:(returning id) +let headerView self = msg_send ~self ~cmd:(selector "headerView") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let rows self = msg_send ~self ~cmd:(selector "rows") ~typ:(returning id) +let setFooterTitle x self = msg_send ~self ~cmd:(selector "setFooterTitle:") ~typ:(id @-> returning void) x +let setFooterView x self = msg_send ~self ~cmd:(selector "setFooterView:") ~typ:(id @-> returning void) x +let setHeaderTitle x self = msg_send ~self ~cmd:(selector "setHeaderTitle:") ~typ:(id @-> returning void) x +let setHeaderView x self = msg_send ~self ~cmd:(selector "setHeaderView:") ~typ:(id @-> returning void) x +let setRows x self = msg_send ~self ~cmd:(selector "setRows:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITableViewSectionClass.ml b/uikit/UITableViewSectionClass.ml new file mode 100644 index 00000000..5264c181 --- /dev/null +++ b/uikit/UITableViewSectionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewsection?language=objc}UITableViewSection} *) + +let sectionWithRows x self = msg_send ~self ~cmd:(selector "sectionWithRows:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UITableViewUpdateGap.ml b/uikit/UITableViewUpdateGap.ml index 2aafeecc..256e007f 100644 --- a/uikit/UITableViewUpdateGap.ml +++ b/uikit/UITableViewUpdateGap.ml @@ -5,24 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewUpdateGap" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewupdategap?language=objc}UITableViewUpdateGap} *) -module C = struct - let gapWithUpdateItem x self = msg_send ~self ~cmd:(selector "gapWithUpdateItem:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UITableViewUpdateGap" -let addUpdateItem x self = msg_send ~self ~cmd:(selector "addUpdateItem:") ~typ:(id @-> returning (void)) x -let deleteItems self = msg_send ~self ~cmd:(selector "deleteItems") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let firstUpdateItem self = msg_send ~self ~cmd:(selector "firstUpdateItem") ~typ:(returning (id)) -let hasAutomaticAnimationItems self = msg_send ~self ~cmd:(selector "hasAutomaticAnimationItems") ~typ:(returning (bool)) -let hasInserts self = msg_send ~self ~cmd:(selector "hasInserts") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let insertItems self = msg_send ~self ~cmd:(selector "insertItems") ~typ:(returning (id)) -let isDeleteBasedGap self = msg_send ~self ~cmd:(selector "isDeleteBasedGap") ~typ:(returning (bool)) -let isSectionBasedGap self = msg_send ~self ~cmd:(selector "isSectionBasedGap") ~typ:(returning (bool)) -let lastUpdateItem self = msg_send ~self ~cmd:(selector "lastUpdateItem") ~typ:(returning (id)) -let setFirstUpdateItem x self = msg_send ~self ~cmd:(selector "setFirstUpdateItem:") ~typ:(id @-> returning (void)) x -let setLastUpdateItem x self = msg_send ~self ~cmd:(selector "setLastUpdateItem:") ~typ:(id @-> returning (void)) x -let updateItems self = msg_send ~self ~cmd:(selector "updateItems") ~typ:(returning (id)) \ No newline at end of file +let addUpdateItem x self = msg_send ~self ~cmd:(selector "addUpdateItem:") ~typ:(id @-> returning void) x +let deleteItems self = msg_send ~self ~cmd:(selector "deleteItems") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let firstUpdateItem self = msg_send ~self ~cmd:(selector "firstUpdateItem") ~typ:(returning id) +let hasAutomaticAnimationItems self = msg_send ~self ~cmd:(selector "hasAutomaticAnimationItems") ~typ:(returning bool) +let hasInserts self = msg_send ~self ~cmd:(selector "hasInserts") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let insertItems self = msg_send ~self ~cmd:(selector "insertItems") ~typ:(returning id) +let isDeleteBasedGap self = msg_send ~self ~cmd:(selector "isDeleteBasedGap") ~typ:(returning bool) +let isSectionBasedGap self = msg_send ~self ~cmd:(selector "isSectionBasedGap") ~typ:(returning bool) +let lastUpdateItem self = msg_send ~self ~cmd:(selector "lastUpdateItem") ~typ:(returning id) +let setFirstUpdateItem x self = msg_send ~self ~cmd:(selector "setFirstUpdateItem:") ~typ:(id @-> returning void) x +let setLastUpdateItem x self = msg_send ~self ~cmd:(selector "setLastUpdateItem:") ~typ:(id @-> returning void) x +let updateItems self = msg_send ~self ~cmd:(selector "updateItems") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITableViewUpdateGapClass.ml b/uikit/UITableViewUpdateGapClass.ml new file mode 100644 index 00000000..8788c34d --- /dev/null +++ b/uikit/UITableViewUpdateGapClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewupdategap?language=objc}UITableViewUpdateGap} *) + +let gapWithUpdateItem x self = msg_send ~self ~cmd:(selector "gapWithUpdateItem:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UITableViewWrapperView.ml b/uikit/UITableViewWrapperView.ml index ee5663e9..5a57760d 100644 --- a/uikit/UITableViewWrapperView.ml +++ b/uikit/UITableViewWrapperView.ml @@ -5,19 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableViewWrapperView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewwrapperview?language=objc}UITableViewWrapperView} *) -let bringSubviewToFront x self = msg_send ~self ~cmd:(selector "bringSubviewToFront:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let sendSubviewToBack x self = msg_send ~self ~cmd:(selector "sendSubviewToBack:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let stuckToBackViews self = msg_send ~self ~cmd:(selector "stuckToBackViews") ~typ:(returning (id)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let willRemoveSubview x self = msg_send ~self ~cmd:(selector "willRemoveSubview:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UITableViewWrapperView" + +let bringSubviewToFront x self = msg_send ~self ~cmd:(selector "bringSubviewToFront:") ~typ:(id @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let sendSubviewToBack x self = msg_send ~self ~cmd:(selector "sendSubviewToBack:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let stuckToBackViews self = msg_send ~self ~cmd:(selector "stuckToBackViews") ~typ:(returning id) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let willRemoveSubview x self = msg_send ~self ~cmd:(selector "willRemoveSubview:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITallPDFPrintFormatter.ml b/uikit/UITallPDFPrintFormatter.ml deleted file mode 100644 index 586da506..00000000 --- a/uikit/UITallPDFPrintFormatter.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITallPDFPrintFormatter" - -let drawInRect x ~forPageAtIndex self = msg_send ~self ~cmd:(selector "drawInRect:forPageAtIndex:") ~typ:(CGRect.t @-> llong @-> returning (void)) x (LLong.of_int forPageAtIndex) -let initWithPDFData x self = msg_send ~self ~cmd:(selector "initWithPDFData:") ~typ:(id @-> returning (id)) x -let initWithPDFURL x self = msg_send ~self ~cmd:(selector "initWithPDFURL:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit/UITapAndAHalfRecognizer.ml b/uikit/UITapAndAHalfRecognizer.ml index 41626495..6904c3e8 100644 --- a/uikit/UITapAndAHalfRecognizer.ml +++ b/uikit/UITapAndAHalfRecognizer.ml @@ -5,27 +5,31 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITapAndAHalfRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitapandahalfrecognizer?language=objc}UITapAndAHalfRecognizer} *) -let allowableMovement self = msg_send ~self ~cmd:(selector "allowableMovement") ~typ:(returning (double)) -let clearTapTimer self = msg_send ~self ~cmd:(selector "clearTapTimer") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let locationOfFirstTap self = msg_send_stret ~self ~cmd:(selector "locationOfFirstTap") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let minimumFinalPressDuration self = msg_send ~self ~cmd:(selector "minimumFinalPressDuration") ~typ:(returning (double)) -let numberOfFullTaps self = msg_send ~self ~cmd:(selector "numberOfFullTaps") ~typ:(returning (int)) -let recognized x self = msg_send ~self ~cmd:(selector "recognized:") ~typ:(id @-> returning (void)) x -let setAllowableMovement x self = msg_send ~self ~cmd:(selector "setAllowableMovement:") ~typ:(double @-> returning (void)) x -let setMinimumFinalPressDuration x self = msg_send ~self ~cmd:(selector "setMinimumFinalPressDuration:") ~typ:(double @-> returning (void)) x -let setNumberOfFullTaps x self = msg_send ~self ~cmd:(selector "setNumberOfFullTaps:") ~typ:(int @-> returning (void)) x -let setTouch x self = msg_send ~self ~cmd:(selector "setTouch:") ~typ:(id @-> returning (void)) x -let startRecognitionTimer x self = msg_send ~self ~cmd:(selector "startRecognitionTimer:") ~typ:(double @-> returning (void)) x -let startTapTimer x self = msg_send ~self ~cmd:(selector "startTapTimer:") ~typ:(double @-> returning (void)) x -let tooSlow x self = msg_send ~self ~cmd:(selector "tooSlow:") ~typ:(id @-> returning (void)) x -let touch self = msg_send ~self ~cmd:(selector "touch") ~typ:(returning (id)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let translationInWindowCoordinates self = msg_send_stret ~self ~cmd:(selector "translationInWindowCoordinates") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UITapAndAHalfRecognizer" + +let allowableMovement self = msg_send ~self ~cmd:(selector "allowableMovement") ~typ:(returning double) +let clearTapTimer self = msg_send ~self ~cmd:(selector "clearTapTimer") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let locationOfFirstTap self = msg_send ~self ~cmd:(selector "locationOfFirstTap") ~typ:(returning CGPoint.t) +let minimumFinalPressDuration self = msg_send ~self ~cmd:(selector "minimumFinalPressDuration") ~typ:(returning double) +let numberOfFullTaps self = msg_send ~self ~cmd:(selector "numberOfFullTaps") ~typ:(returning int) +let recognized x self = msg_send ~self ~cmd:(selector "recognized:") ~typ:(id @-> returning void) x +let setAllowableMovement x self = msg_send ~self ~cmd:(selector "setAllowableMovement:") ~typ:(double @-> returning void) x +let setMinimumFinalPressDuration x self = msg_send ~self ~cmd:(selector "setMinimumFinalPressDuration:") ~typ:(double @-> returning void) x +let setNumberOfFullTaps x self = msg_send ~self ~cmd:(selector "setNumberOfFullTaps:") ~typ:(int @-> returning void) x +let setTouch x self = msg_send ~self ~cmd:(selector "setTouch:") ~typ:(id @-> returning void) x +let startRecognitionTimer x self = msg_send ~self ~cmd:(selector "startRecognitionTimer:") ~typ:(double @-> returning void) x +let startTapTimer x self = msg_send ~self ~cmd:(selector "startTapTimer:") ~typ:(double @-> returning void) x +let tooSlow x self = msg_send ~self ~cmd:(selector "tooSlow:") ~typ:(id @-> returning void) x +let touch self = msg_send ~self ~cmd:(selector "touch") ~typ:(returning id) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let translationInWindowCoordinates self = msg_send ~self ~cmd:(selector "translationInWindowCoordinates") ~typ:(returning CGPoint.t) \ No newline at end of file diff --git a/uikit/UITapGestureRecognizer.ml b/uikit/UITapGestureRecognizer.ml index 0497dc6e..673ef39b 100644 --- a/uikit/UITapGestureRecognizer.ml +++ b/uikit/UITapGestureRecognizer.ml @@ -5,51 +5,51 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITapGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitapgesturerecognizer?language=objc}UITapGestureRecognizer} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UITapGestureRecognizer" -let akNumberOfTapsRequired self = msg_send ~self ~cmd:(selector "akNumberOfTapsRequired") ~typ:(returning (ullong)) -let allowableMovement self = msg_send ~self ~cmd:(selector "allowableMovement") ~typ:(returning (double)) -let buttonMaskRequired self = msg_send ~self ~cmd:(selector "buttonMaskRequired") ~typ:(returning (llong)) -let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let centroid self = msg_send_stret ~self ~cmd:(selector "centroid") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -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 initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let isSingleKeyPressGesture self = msg_send ~self ~cmd:(selector "isSingleKeyPressGesture") ~typ:(returning (bool)) -let location self = msg_send_stret ~self ~cmd:(selector "location") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let locationOfTouch x ~inView self = msg_send_stret ~self ~cmd:(selector "locationOfTouch:inView:") ~typ:(ullong @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t (ULLong.of_int x) inView -let maximumIntervalBetweenSuccessiveTaps self = msg_send ~self ~cmd:(selector "maximumIntervalBetweenSuccessiveTaps") ~typ:(returning (double)) -let maximumSingleTapDuration self = msg_send ~self ~cmd:(selector "maximumSingleTapDuration") ~typ:(returning (double)) -let maximumTapDuration self = msg_send ~self ~cmd:(selector "maximumTapDuration") ~typ:(returning (double)) -let numberOfTapsRequired self = msg_send ~self ~cmd:(selector "numberOfTapsRequired") ~typ:(returning (ullong)) -let numberOfTouches self = msg_send ~self ~cmd:(selector "numberOfTouches") ~typ:(returning (ullong)) -let numberOfTouchesRequired self = msg_send ~self ~cmd:(selector "numberOfTouchesRequired") ~typ:(returning (ullong)) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let setAllowableMovement x self = msg_send ~self ~cmd:(selector "setAllowableMovement:") ~typ:(double @-> returning (void)) x -let setAllowedPressTypes x self = msg_send ~self ~cmd:(selector "setAllowedPressTypes:") ~typ:(id @-> returning (void)) x -let setButtonMaskRequired x self = msg_send ~self ~cmd:(selector "setButtonMaskRequired:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setIsSingleKeyPressGesture x self = msg_send ~self ~cmd:(selector "setIsSingleKeyPressGesture:") ~typ:(bool @-> returning (void)) x -let setMaximumIntervalBetweenSuccessiveTaps x self = msg_send ~self ~cmd:(selector "setMaximumIntervalBetweenSuccessiveTaps:") ~typ:(double @-> returning (void)) x -let setMaximumSingleTapDuration x self = msg_send ~self ~cmd:(selector "setMaximumSingleTapDuration:") ~typ:(double @-> returning (void)) x -let setMaximumTapDuration x self = msg_send ~self ~cmd:(selector "setMaximumTapDuration:") ~typ:(double @-> returning (void)) x -let setNumberOfTapsRequired x self = msg_send ~self ~cmd:(selector "setNumberOfTapsRequired:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setNumberOfTouchesRequired x self = msg_send ~self ~cmd:(selector "setNumberOfTouchesRequired:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let shouldRequireFailureOfGestureRecognizer x self = msg_send ~self ~cmd:(selector "shouldRequireFailureOfGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let tapIsPossibleForTapRecognizer x self = msg_send ~self ~cmd:(selector "tapIsPossibleForTapRecognizer:") ~typ:(id @-> returning (bool)) x -let tapRecognizerFailedToRecognizeTap x self = msg_send ~self ~cmd:(selector "tapRecognizerFailedToRecognizeTap:") ~typ:(id @-> returning (void)) x -let tapRecognizerRecognizedTap x self = msg_send ~self ~cmd:(selector "tapRecognizerRecognizedTap:") ~typ:(id @-> returning (void)) x -let touches self = msg_send ~self ~cmd:(selector "touches") ~typ:(returning (id)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let akNumberOfTapsRequired self = msg_send ~self ~cmd:(selector "akNumberOfTapsRequired") ~typ:(returning ullong) +let allowableMovement self = msg_send ~self ~cmd:(selector "allowableMovement") ~typ:(returning double) +let buttonMaskRequired self = msg_send ~self ~cmd:(selector "buttonMaskRequired") ~typ:(returning llong) +let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning bool) x +let centroid self = msg_send ~self ~cmd:(selector "centroid") ~typ:(returning CGPoint.t) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +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 initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let isSingleKeyPressGesture self = msg_send ~self ~cmd:(selector "isSingleKeyPressGesture") ~typ:(returning bool) +let location self = msg_send ~self ~cmd:(selector "location") ~typ:(returning CGPoint.t) +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let locationOfTouch x ~inView self = msg_send ~self ~cmd:(selector "locationOfTouch:inView:") ~typ:(ullong @-> id @-> returning CGPoint.t) (ULLong.of_int x) inView +let maximumIntervalBetweenSuccessiveTaps self = msg_send ~self ~cmd:(selector "maximumIntervalBetweenSuccessiveTaps") ~typ:(returning double) +let maximumSingleTapDuration self = msg_send ~self ~cmd:(selector "maximumSingleTapDuration") ~typ:(returning double) +let maximumTapDuration self = msg_send ~self ~cmd:(selector "maximumTapDuration") ~typ:(returning double) +let numberOfTapsRequired self = msg_send ~self ~cmd:(selector "numberOfTapsRequired") ~typ:(returning ullong) +let numberOfTouches self = msg_send ~self ~cmd:(selector "numberOfTouches") ~typ:(returning ullong) +let numberOfTouchesRequired self = msg_send ~self ~cmd:(selector "numberOfTouchesRequired") ~typ:(returning ullong) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let setAllowableMovement x self = msg_send ~self ~cmd:(selector "setAllowableMovement:") ~typ:(double @-> returning void) x +let setAllowedPressTypes x self = msg_send ~self ~cmd:(selector "setAllowedPressTypes:") ~typ:(id @-> returning void) x +let setButtonMaskRequired x self = msg_send ~self ~cmd:(selector "setButtonMaskRequired:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setIsSingleKeyPressGesture x self = msg_send ~self ~cmd:(selector "setIsSingleKeyPressGesture:") ~typ:(bool @-> returning void) x +let setMaximumIntervalBetweenSuccessiveTaps x self = msg_send ~self ~cmd:(selector "setMaximumIntervalBetweenSuccessiveTaps:") ~typ:(double @-> returning void) x +let setMaximumSingleTapDuration x self = msg_send ~self ~cmd:(selector "setMaximumSingleTapDuration:") ~typ:(double @-> returning void) x +let setMaximumTapDuration x self = msg_send ~self ~cmd:(selector "setMaximumTapDuration:") ~typ:(double @-> returning void) x +let setNumberOfTapsRequired x self = msg_send ~self ~cmd:(selector "setNumberOfTapsRequired:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setNumberOfTouchesRequired x self = msg_send ~self ~cmd:(selector "setNumberOfTouchesRequired:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let shouldRequireFailureOfGestureRecognizer x self = msg_send ~self ~cmd:(selector "shouldRequireFailureOfGestureRecognizer:") ~typ:(id @-> returning bool) x +let tapIsPossibleForTapRecognizer x self = msg_send ~self ~cmd:(selector "tapIsPossibleForTapRecognizer:") ~typ:(id @-> returning bool) x +let tapRecognizerFailedToRecognizeTap x self = msg_send ~self ~cmd:(selector "tapRecognizerFailedToRecognizeTap:") ~typ:(id @-> returning void) x +let tapRecognizerRecognizedTap x self = msg_send ~self ~cmd:(selector "tapRecognizerRecognizedTap:") ~typ:(id @-> returning void) x +let touches self = msg_send ~self ~cmd:(selector "touches") ~typ:(returning id) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UITapGestureRecognizerClass.ml b/uikit/UITapGestureRecognizerClass.ml new file mode 100644 index 00000000..85b27f8a --- /dev/null +++ b/uikit/UITapGestureRecognizerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitapgesturerecognizer?language=objc}UITapGestureRecognizer} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITapRecognizer.ml b/uikit/UITapRecognizer.ml index 7b17ff3d..d0366daa 100644 --- a/uikit/UITapRecognizer.ml +++ b/uikit/UITapRecognizer.ml @@ -5,61 +5,61 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITapRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitaprecognizer?language=objc}UITapRecognizer} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UITapRecognizer" -let activeTouches self = msg_send ~self ~cmd:(selector "activeTouches") ~typ:(returning (id)) -let activeTouchesExceedAllowableSeparation self = msg_send ~self ~cmd:(selector "activeTouchesExceedAllowableSeparation") ~typ:(returning (bool)) -let allowableMovement self = msg_send ~self ~cmd:(selector "allowableMovement") ~typ:(returning (double)) -let allowableSeparation self = msg_send ~self ~cmd:(selector "allowableSeparation") ~typ:(returning (double)) -let allowableTouchTimeSeparation self = msg_send ~self ~cmd:(selector "allowableTouchTimeSeparation") ~typ:(returning (double)) -let buttonMaskRequired self = msg_send ~self ~cmd:(selector "buttonMaskRequired") ~typ:(returning (llong)) -let clearMultitouchTimer self = msg_send ~self ~cmd:(selector "clearMultitouchTimer") ~typ:(returning (void)) -let clearTapTimer self = msg_send ~self ~cmd:(selector "clearTapTimer") ~typ:(returning (void)) -let continuousTapRecognition self = msg_send ~self ~cmd:(selector "continuousTapRecognition") ~typ:(returning (bool)) -let countsOnlyActiveTouches self = msg_send ~self ~cmd:(selector "countsOnlyActiveTouches") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let exclusiveDirectionalAxis self = msg_send ~self ~cmd:(selector "exclusiveDirectionalAxis") ~typ:(returning (llong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let locationInView' x ~focusSystem self = msg_send_stret ~self ~cmd:(selector "locationInView:focusSystem:") ~typ:(id @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x focusSystem -let maximumIntervalBetweenSuccessiveTaps self = msg_send ~self ~cmd:(selector "maximumIntervalBetweenSuccessiveTaps") ~typ:(returning (double)) -let maximumSingleTapDuration self = msg_send ~self ~cmd:(selector "maximumSingleTapDuration") ~typ:(returning (double)) -let maximumTapDuration self = msg_send ~self ~cmd:(selector "maximumTapDuration") ~typ:(returning (double)) -let minimumTapDuration self = msg_send ~self ~cmd:(selector "minimumTapDuration") ~typ:(returning (double)) -let multitouchExpired x self = msg_send ~self ~cmd:(selector "multitouchExpired:") ~typ:(id @-> returning (void)) x -let numberOfTapsRequired self = msg_send ~self ~cmd:(selector "numberOfTapsRequired") ~typ:(returning (ullong)) -let numberOfTouchesRequired self = msg_send ~self ~cmd:(selector "numberOfTouchesRequired") ~typ:(returning (ullong)) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let setAllowableMovement x self = msg_send ~self ~cmd:(selector "setAllowableMovement:") ~typ:(double @-> returning (void)) x -let setAllowableSeparation x self = msg_send ~self ~cmd:(selector "setAllowableSeparation:") ~typ:(double @-> returning (void)) x -let setAllowableTouchTimeSeparation x self = msg_send ~self ~cmd:(selector "setAllowableTouchTimeSeparation:") ~typ:(double @-> returning (void)) x -let setButtonMaskRequired x self = msg_send ~self ~cmd:(selector "setButtonMaskRequired:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContinuousTapRecognition x self = msg_send ~self ~cmd:(selector "setContinuousTapRecognition:") ~typ:(bool @-> returning (void)) x -let setCountsOnlyActiveTouches x self = msg_send ~self ~cmd:(selector "setCountsOnlyActiveTouches:") ~typ:(bool @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setExclusiveDirectionalAxis x self = msg_send ~self ~cmd:(selector "setExclusiveDirectionalAxis:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setMaximumIntervalBetweenSuccessiveTaps x self = msg_send ~self ~cmd:(selector "setMaximumIntervalBetweenSuccessiveTaps:") ~typ:(double @-> returning (void)) x -let setMaximumSingleTapDuration x self = msg_send ~self ~cmd:(selector "setMaximumSingleTapDuration:") ~typ:(double @-> returning (void)) x -let setMaximumTapDuration x self = msg_send ~self ~cmd:(selector "setMaximumTapDuration:") ~typ:(double @-> returning (void)) x -let setMinimumTapDuration x self = msg_send ~self ~cmd:(selector "setMinimumTapDuration:") ~typ:(double @-> returning (void)) x -let setNumberOfTapsRequired x self = msg_send ~self ~cmd:(selector "setNumberOfTapsRequired:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setNumberOfTouchesRequired x self = msg_send ~self ~cmd:(selector "setNumberOfTouchesRequired:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let startMultitouchTimer x self = msg_send ~self ~cmd:(selector "startMultitouchTimer:") ~typ:(double @-> returning (void)) x -let startTapTimer x self = msg_send ~self ~cmd:(selector "startTapTimer:") ~typ:(double @-> returning (void)) x -let tooSlow x self = msg_send ~self ~cmd:(selector "tooSlow:") ~typ:(id @-> returning (void)) x -let touches self = msg_send ~self ~cmd:(selector "touches") ~typ:(returning (id)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let activeTouches self = msg_send ~self ~cmd:(selector "activeTouches") ~typ:(returning id) +let activeTouchesExceedAllowableSeparation self = msg_send ~self ~cmd:(selector "activeTouchesExceedAllowableSeparation") ~typ:(returning bool) +let allowableMovement self = msg_send ~self ~cmd:(selector "allowableMovement") ~typ:(returning double) +let allowableSeparation self = msg_send ~self ~cmd:(selector "allowableSeparation") ~typ:(returning double) +let allowableTouchTimeSeparation self = msg_send ~self ~cmd:(selector "allowableTouchTimeSeparation") ~typ:(returning double) +let buttonMaskRequired self = msg_send ~self ~cmd:(selector "buttonMaskRequired") ~typ:(returning llong) +let clearMultitouchTimer self = msg_send ~self ~cmd:(selector "clearMultitouchTimer") ~typ:(returning void) +let clearTapTimer self = msg_send ~self ~cmd:(selector "clearTapTimer") ~typ:(returning void) +let continuousTapRecognition self = msg_send ~self ~cmd:(selector "continuousTapRecognition") ~typ:(returning bool) +let countsOnlyActiveTouches self = msg_send ~self ~cmd:(selector "countsOnlyActiveTouches") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let exclusiveDirectionalAxis self = msg_send ~self ~cmd:(selector "exclusiveDirectionalAxis") ~typ:(returning llong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let locationInView' x ~focusSystem self = msg_send ~self ~cmd:(selector "locationInView:focusSystem:") ~typ:(id @-> id @-> returning CGPoint.t) x focusSystem +let maximumIntervalBetweenSuccessiveTaps self = msg_send ~self ~cmd:(selector "maximumIntervalBetweenSuccessiveTaps") ~typ:(returning double) +let maximumSingleTapDuration self = msg_send ~self ~cmd:(selector "maximumSingleTapDuration") ~typ:(returning double) +let maximumTapDuration self = msg_send ~self ~cmd:(selector "maximumTapDuration") ~typ:(returning double) +let minimumTapDuration self = msg_send ~self ~cmd:(selector "minimumTapDuration") ~typ:(returning double) +let multitouchExpired x self = msg_send ~self ~cmd:(selector "multitouchExpired:") ~typ:(id @-> returning void) x +let numberOfTapsRequired self = msg_send ~self ~cmd:(selector "numberOfTapsRequired") ~typ:(returning ullong) +let numberOfTouchesRequired self = msg_send ~self ~cmd:(selector "numberOfTouchesRequired") ~typ:(returning ullong) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let setAllowableMovement x self = msg_send ~self ~cmd:(selector "setAllowableMovement:") ~typ:(double @-> returning void) x +let setAllowableSeparation x self = msg_send ~self ~cmd:(selector "setAllowableSeparation:") ~typ:(double @-> returning void) x +let setAllowableTouchTimeSeparation x self = msg_send ~self ~cmd:(selector "setAllowableTouchTimeSeparation:") ~typ:(double @-> returning void) x +let setButtonMaskRequired x self = msg_send ~self ~cmd:(selector "setButtonMaskRequired:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContinuousTapRecognition x self = msg_send ~self ~cmd:(selector "setContinuousTapRecognition:") ~typ:(bool @-> returning void) x +let setCountsOnlyActiveTouches x self = msg_send ~self ~cmd:(selector "setCountsOnlyActiveTouches:") ~typ:(bool @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setExclusiveDirectionalAxis x self = msg_send ~self ~cmd:(selector "setExclusiveDirectionalAxis:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setMaximumIntervalBetweenSuccessiveTaps x self = msg_send ~self ~cmd:(selector "setMaximumIntervalBetweenSuccessiveTaps:") ~typ:(double @-> returning void) x +let setMaximumSingleTapDuration x self = msg_send ~self ~cmd:(selector "setMaximumSingleTapDuration:") ~typ:(double @-> returning void) x +let setMaximumTapDuration x self = msg_send ~self ~cmd:(selector "setMaximumTapDuration:") ~typ:(double @-> returning void) x +let setMinimumTapDuration x self = msg_send ~self ~cmd:(selector "setMinimumTapDuration:") ~typ:(double @-> returning void) x +let setNumberOfTapsRequired x self = msg_send ~self ~cmd:(selector "setNumberOfTapsRequired:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setNumberOfTouchesRequired x self = msg_send ~self ~cmd:(selector "setNumberOfTouchesRequired:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let startMultitouchTimer x self = msg_send ~self ~cmd:(selector "startMultitouchTimer:") ~typ:(double @-> returning void) x +let startTapTimer x self = msg_send ~self ~cmd:(selector "startTapTimer:") ~typ:(double @-> returning void) x +let tooSlow x self = msg_send ~self ~cmd:(selector "tooSlow:") ~typ:(id @-> returning void) x +let touches self = msg_send ~self ~cmd:(selector "touches") ~typ:(returning id) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UITapRecognizerClass.ml b/uikit/UITapRecognizerClass.ml new file mode 100644 index 00000000..15fd83b1 --- /dev/null +++ b/uikit/UITapRecognizerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitaprecognizer?language=objc}UITapRecognizer} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITargetedDragPreview.ml b/uikit/UITargetedDragPreview.ml index dc5b492d..8a054c94 100644 --- a/uikit/UITargetedDragPreview.ml +++ b/uikit/UITargetedDragPreview.ml @@ -5,17 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITargetedDragPreview" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitargeteddragpreview?language=objc}UITargetedDragPreview} *) -module C = struct - let previewForURL x ~target self = msg_send ~self ~cmd:(selector "previewForURL:target:") ~typ:(id @-> id @-> returning (id)) x target - let previewForURL' x ~title ~target self = msg_send ~self ~cmd:(selector "previewForURL:title:target:") ~typ:(id @-> id @-> id @-> returning (id)) x title target -end +let self = get_class "UITargetedDragPreview" -let imageComponent self = msg_send ~self ~cmd:(selector "imageComponent") ~typ:(returning (id)) -let initWithView x ~parameters ~target self = msg_send ~self ~cmd:(selector "initWithView:parameters:target:") ~typ:(id @-> id @-> id @-> returning (id)) x parameters target -let liftAnchorPoint self = msg_send_stret ~self ~cmd:(selector "liftAnchorPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let retargetedPreviewWithTarget x self = msg_send ~self ~cmd:(selector "retargetedPreviewWithTarget:") ~typ:(id @-> returning (id)) x -let setLiftAnchorPoint x self = msg_send ~self ~cmd:(selector "setLiftAnchorPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let takeLiftAnchorPoint x ~fromView self = msg_send ~self ~cmd:(selector "takeLiftAnchorPoint:fromView:") ~typ:(CGPoint.t @-> id @-> returning (void)) x fromView \ No newline at end of file +let imageComponent self = msg_send ~self ~cmd:(selector "imageComponent") ~typ:(returning id) +let initWithView x ~parameters ~target self = msg_send ~self ~cmd:(selector "initWithView:parameters:target:") ~typ:(id @-> id @-> id @-> returning id) x parameters target +let liftAnchorPoint self = msg_send ~self ~cmd:(selector "liftAnchorPoint") ~typ:(returning CGPoint.t) +let retargetedPreviewWithTarget x self = msg_send ~self ~cmd:(selector "retargetedPreviewWithTarget:") ~typ:(id @-> returning id) x +let setLiftAnchorPoint x self = msg_send ~self ~cmd:(selector "setLiftAnchorPoint:") ~typ:(CGPoint.t @-> returning void) x +let takeLiftAnchorPoint x ~fromView self = msg_send ~self ~cmd:(selector "takeLiftAnchorPoint:fromView:") ~typ:(CGPoint.t @-> id @-> returning void) x fromView \ No newline at end of file diff --git a/uikit/UITargetedDragPreviewClass.ml b/uikit/UITargetedDragPreviewClass.ml new file mode 100644 index 00000000..2f9834c4 --- /dev/null +++ b/uikit/UITargetedDragPreviewClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitargeteddragpreview?language=objc}UITargetedDragPreview} *) + +let previewForURL x ~target self = msg_send ~self ~cmd:(selector "previewForURL:target:") ~typ:(id @-> id @-> returning id) x target +let previewForURL' x ~title ~target self = msg_send ~self ~cmd:(selector "previewForURL:title:target:") ~typ:(id @-> id @-> id @-> returning id) x title target \ No newline at end of file diff --git a/uikit/UITargetedPreview.ml b/uikit/UITargetedPreview.ml index 5d1d3fe3..cbe9f610 100644 --- a/uikit/UITargetedPreview.ml +++ b/uikit/UITargetedPreview.ml @@ -5,31 +5,31 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITargetedPreview" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitargetedpreview?language=objc}UITargetedPreview} *) -module C = struct - let new_ self = msg_send ~self ~cmd:(selector "new") ~typ:(returning (id)) -end +let self = get_class "UITargetedPreview" -let containsPoint x ~fromView self = msg_send ~self ~cmd:(selector "containsPoint:fromView:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x fromView -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let hasCustomTarget self = msg_send ~self ~cmd:(selector "hasCustomTarget") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning (id)) x -let initWithView1 x ~parameters self = msg_send ~self ~cmd:(selector "initWithView:parameters:") ~typ:(id @-> id @-> returning (id)) x parameters -let initWithView2 x ~parameters ~target self = msg_send ~self ~cmd:(selector "initWithView:parameters:target:") ~typ:(id @-> id @-> id @-> returning (id)) x parameters target -let internalIdentifer self = msg_send ~self ~cmd:(selector "internalIdentifer") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let overridePositionTrackingView self = msg_send ~self ~cmd:(selector "overridePositionTrackingView") ~typ:(returning (id)) -let parameters self = msg_send ~self ~cmd:(selector "parameters") ~typ:(returning (id)) -let retargetedPreviewWithTarget x self = msg_send ~self ~cmd:(selector "retargetedPreviewWithTarget:") ~typ:(id @-> returning (id)) x -let setInternalIdentifer x self = msg_send ~self ~cmd:(selector "setInternalIdentifer:") ~typ:(id @-> returning (void)) x -let setTransferrableAnimationKeys x self = msg_send ~self ~cmd:(selector "setTransferrableAnimationKeys:") ~typ:(id @-> returning (void)) x -let size self = msg_send_stret ~self ~cmd:(selector "size") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let sourceViewIsInViewHierarchy self = msg_send ~self ~cmd:(selector "sourceViewIsInViewHierarchy") ~typ:(returning (bool)) -let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning (id)) -let transferrableAnimationKeys self = msg_send ~self ~cmd:(selector "transferrableAnimationKeys") ~typ:(returning (id)) -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) \ No newline at end of file +let containsPoint x ~fromView self = msg_send ~self ~cmd:(selector "containsPoint:fromView:") ~typ:(CGPoint.t @-> id @-> returning bool) x fromView +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let hasCustomTarget self = msg_send ~self ~cmd:(selector "hasCustomTarget") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning id) x +let initWithView1 x ~parameters self = msg_send ~self ~cmd:(selector "initWithView:parameters:") ~typ:(id @-> id @-> returning id) x parameters +let initWithView2 x ~parameters ~target self = msg_send ~self ~cmd:(selector "initWithView:parameters:target:") ~typ:(id @-> id @-> id @-> returning id) x parameters target +let internalIdentifer self = msg_send ~self ~cmd:(selector "internalIdentifer") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let overridePositionTrackingView self = msg_send ~self ~cmd:(selector "overridePositionTrackingView") ~typ:(returning id) +let parameters self = msg_send ~self ~cmd:(selector "parameters") ~typ:(returning id) +let retargetedPreviewWithTarget x self = msg_send ~self ~cmd:(selector "retargetedPreviewWithTarget:") ~typ:(id @-> returning id) x +let setInternalIdentifer x self = msg_send ~self ~cmd:(selector "setInternalIdentifer:") ~typ:(id @-> returning void) x +let setTransferrableAnimationKeys x self = msg_send ~self ~cmd:(selector "setTransferrableAnimationKeys:") ~typ:(id @-> returning void) x +let size self = msg_send ~self ~cmd:(selector "size") ~typ:(returning CGSize.t) +let sourceViewIsInViewHierarchy self = msg_send ~self ~cmd:(selector "sourceViewIsInViewHierarchy") ~typ:(returning bool) +let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning id) +let transferrableAnimationKeys self = msg_send ~self ~cmd:(selector "transferrableAnimationKeys") ~typ:(returning id) +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextAttachmentView.ml b/uikit/UITextAttachmentView.ml index 0d951158..daa55a0d 100644 --- a/uikit/UITextAttachmentView.ml +++ b/uikit/UITextAttachmentView.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextAttachmentView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextattachmentview?language=objc}UITextAttachmentView} *) -let attachment self = msg_send ~self ~cmd:(selector "attachment") ~typ:(returning (id)) -let cellBaselineOffset self = msg_send_stret ~self ~cmd:(selector "cellBaselineOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let cellFrameForTextContainer x ~proposedLineFragment ~glyphPosition ~characterIndex self = msg_send_stret ~self ~cmd:(selector "cellFrameForTextContainer:proposedLineFragment:glyphPosition:characterIndex:") ~typ:(id @-> CGRect.t @-> CGPoint.t @-> ullong @-> returning (CGRect.t)) ~return_type:CGRect.t x proposedLineFragment glyphPosition (ULLong.of_int characterIndex) -let cellSize self = msg_send_stret ~self ~cmd:(selector "cellSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning (id)) -let drawWithFrame x ~inView ~characterIndex self = msg_send ~self ~cmd:(selector "drawWithFrame:inView:characterIndex:") ~typ:(CGRect.t @-> id @-> ullong @-> returning (void)) x inView (ULLong.of_int characterIndex) -let drawWithFrame' x ~inView ~characterIndex ~layoutManager self = msg_send ~self ~cmd:(selector "drawWithFrame:inView:characterIndex:layoutManager:") ~typ:(CGRect.t @-> id @-> ullong @-> id @-> returning (void)) x inView (ULLong.of_int characterIndex) layoutManager -let initWithContentView x self = msg_send ~self ~cmd:(selector "initWithContentView:") ~typ:(id @-> returning (id)) x -let initWithTextAttachment x ~image self = msg_send ~self ~cmd:(selector "initWithTextAttachment:image:") ~typ:(id @-> id @-> returning (id)) x image -let setAttachment x self = msg_send ~self ~cmd:(selector "setAttachment:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UITextAttachmentView" + +let attachment self = msg_send ~self ~cmd:(selector "attachment") ~typ:(returning id) +let cellBaselineOffset self = msg_send ~self ~cmd:(selector "cellBaselineOffset") ~typ:(returning CGPoint.t) +let cellFrameForTextContainer x ~proposedLineFragment ~glyphPosition ~characterIndex self = msg_send ~self ~cmd:(selector "cellFrameForTextContainer:proposedLineFragment:glyphPosition:characterIndex:") ~typ:(id @-> CGRect.t @-> CGPoint.t @-> ullong @-> returning CGRect.t) x proposedLineFragment glyphPosition (ULLong.of_int characterIndex) +let cellSize self = msg_send ~self ~cmd:(selector "cellSize") ~typ:(returning CGSize.t) +let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning id) +let drawWithFrame x ~inView ~characterIndex self = msg_send ~self ~cmd:(selector "drawWithFrame:inView:characterIndex:") ~typ:(CGRect.t @-> id @-> ullong @-> returning void) x inView (ULLong.of_int characterIndex) +let drawWithFrame' x ~inView ~characterIndex ~layoutManager self = msg_send ~self ~cmd:(selector "drawWithFrame:inView:characterIndex:layoutManager:") ~typ:(CGRect.t @-> id @-> ullong @-> id @-> returning void) x inView (ULLong.of_int characterIndex) layoutManager +let initWithContentView x self = msg_send ~self ~cmd:(selector "initWithContentView:") ~typ:(id @-> returning id) x +let initWithTextAttachment x ~image self = msg_send ~self ~cmd:(selector "initWithTextAttachment:image:") ~typ:(id @-> id @-> returning id) x image +let setAttachment x self = msg_send ~self ~cmd:(selector "setAttachment:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextAutofillSuggestion.ml b/uikit/UITextAutofillSuggestion.ml index ffdd7e75..536048e3 100644 --- a/uikit/UITextAutofillSuggestion.ml +++ b/uikit/UITextAutofillSuggestion.ml @@ -5,13 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextAutofillSuggestion" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextautofillsuggestion?language=objc}UITextAutofillSuggestion} *) -module C = struct - let autofillSuggestionWithUsername x ~password self = msg_send ~self ~cmd:(selector "autofillSuggestionWithUsername:password:") ~typ:(id @-> id @-> returning (id)) x password -end +let self = get_class "UITextAutofillSuggestion" -let initWithUsername x ~password self = msg_send ~self ~cmd:(selector "initWithUsername:password:") ~typ:(id @-> id @-> returning (id)) x password -let password self = msg_send ~self ~cmd:(selector "password") ~typ:(returning (id)) -let username self = msg_send ~self ~cmd:(selector "username") ~typ:(returning (id)) \ No newline at end of file +let initWithUsername x ~password self = msg_send ~self ~cmd:(selector "initWithUsername:password:") ~typ:(id @-> id @-> returning id) x password +let password self = msg_send ~self ~cmd:(selector "password") ~typ:(returning id) +let username self = msg_send ~self ~cmd:(selector "username") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextAutofillSuggestionClass.ml b/uikit/UITextAutofillSuggestionClass.ml new file mode 100644 index 00000000..d86fdd38 --- /dev/null +++ b/uikit/UITextAutofillSuggestionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextautofillsuggestion?language=objc}UITextAutofillSuggestion} *) + +let autofillSuggestionWithUsername x ~password self = msg_send ~self ~cmd:(selector "autofillSuggestionWithUsername:password:") ~typ:(id @-> id @-> returning id) x password \ No newline at end of file diff --git a/uikit/UITextChecker.ml b/uikit/UITextChecker.ml index d1955097..1a52352a 100644 --- a/uikit/UITextChecker.ml +++ b/uikit/UITextChecker.ml @@ -5,43 +5,33 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextChecker" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextchecker?language=objc}UITextChecker} *) -module C = struct - let availableLanguages self = msg_send ~self ~cmd:(selector "availableLanguages") ~typ:(returning (id)) - let bestLanguageForString x ~fromAlternatives ~currentLanguage self = msg_send ~self ~cmd:(selector "bestLanguageForString:fromAlternatives:currentLanguage:") ~typ:(id @-> id @-> id @-> returning (id)) x fromAlternatives currentLanguage - let bestLanguageForString' x ~fromAlternatives ~currentLanguage ~insertionPointIndex ~scriptForBestLanguage self = msg_send ~self ~cmd:(selector "bestLanguageForString:fromAlternatives:currentLanguage:insertionPointIndex:scriptForBestLanguage:") ~typ:(id @-> id @-> id @-> ullong @-> ptr (id) @-> returning (id)) x fromAlternatives currentLanguage (ULLong.of_int insertionPointIndex) scriptForBestLanguage - let createDictHashTable x self = msg_send ~self ~cmd:(selector "createDictHashTable:") ~typ:(bool @-> returning (ptr void)) x - let dictionaryInfo x self = msg_send ~self ~cmd:(selector "dictionaryInfo:") ~typ:(id @-> returning (id)) x - let hasLearnedWord x self = msg_send ~self ~cmd:(selector "hasLearnedWord:") ~typ:(id @-> returning (bool)) x - let learnWord x self = msg_send ~self ~cmd:(selector "learnWord:") ~typ:(id @-> returning (void)) x - let openUserDictionary x self = msg_send ~self ~cmd:(selector "openUserDictionary:") ~typ:(id @-> returning (id)) x - let setString x ~isExemptFromChecker self = msg_send ~self ~cmd:(selector "setString:isExemptFromChecker:") ~typ:(id @-> bool @-> returning (void)) x isExemptFromChecker - let uniqueSpellDocumentTag self = msg_send ~self ~cmd:(selector "uniqueSpellDocumentTag") ~typ:(returning (llong)) - let unlearnWord x self = msg_send ~self ~cmd:(selector "unlearnWord:") ~typ:(id @-> returning (void)) x -end +let self = get_class "UITextChecker" -let adjustOffsetToNextWordBoundaryInString x ~startingAt self = msg_send ~self ~cmd:(selector "adjustOffsetToNextWordBoundaryInString:startingAt:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int startingAt) -let alternativesForPinyinInputString x self = msg_send ~self ~cmd:(selector "alternativesForPinyinInputString:") ~typ:(id @-> returning (id)) x -let canChangeCaseOfFirstLetterInString x ~toUpperCase ~language self = msg_send ~self ~cmd:(selector "canChangeCaseOfFirstLetterInString:toUpperCase:language:") ~typ:(id @-> bool @-> id @-> returning (bool)) x toUpperCase language -let checkGrammarOfString x ~startingAt ~language ~wrap ~details self = msg_send_stret ~self ~cmd:(selector "checkGrammarOfString:startingAt:language:wrap:details:") ~typ:(id @-> llong @-> id @-> bool @-> ptr (id) @-> returning (NSRange.t)) ~return_type:NSRange.t x (LLong.of_int startingAt) language wrap details -let checkSpellingOfString x ~startingAt ~language ~wrap ~correction self = msg_send_stret ~self ~cmd:(selector "checkSpellingOfString:startingAt:language:wrap:correction:") ~typ:(id @-> llong @-> id @-> bool @-> ptr (id) @-> returning (NSRange.t)) ~return_type:NSRange.t x (LLong.of_int startingAt) language wrap correction -let checkSpellingOfString' x ~startingAt ~languages ~wrap ~correction self = msg_send_stret ~self ~cmd:(selector "checkSpellingOfString:startingAt:languages:wrap:correction:") ~typ:(id @-> llong @-> id @-> bool @-> ptr (id) @-> returning (NSRange.t)) ~return_type:NSRange.t x (LLong.of_int startingAt) languages wrap correction -let completionsForPartialWordRange x ~inString ~language self = msg_send ~self ~cmd:(selector "completionsForPartialWordRange:inString:language:") ~typ:(NSRange.t @-> id @-> id @-> returning (id)) x inString language -let correctionForWordRange x ~inString ~language self = msg_send ~self ~cmd:(selector "correctionForWordRange:inString:language:") ~typ:(NSRange.t @-> id @-> id @-> returning (id)) x inString language -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let guessesForWordRange x ~inString ~language self = msg_send ~self ~cmd:(selector "guessesForWordRange:inString:language:") ~typ:(NSRange.t @-> id @-> id @-> returning (id)) x inString language -let ignoreWord x self = msg_send ~self ~cmd:(selector "ignoreWord:") ~typ:(id @-> returning (void)) x -let ignoredWords self = msg_send ~self ~cmd:(selector "ignoredWords") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initGlobals self = msg_send ~self ~cmd:(selector "initGlobals") ~typ:(returning (void)) -let initUserDictionaries self = msg_send ~self ~cmd:(selector "initUserDictionaries") ~typ:(returning (void)) -let isWordInUserDictionaries x ~caseSensitive self = msg_send ~self ~cmd:(selector "isWordInUserDictionaries:caseSensitive:") ~typ:(id @-> bool @-> returning (bool)) x caseSensitive -let rangeOfMisspelledWordInString x ~range ~startingAt ~wrap ~language self = msg_send_stret ~self ~cmd:(selector "rangeOfMisspelledWordInString:range:startingAt:wrap:language:") ~typ:(id @-> NSRange.t @-> llong @-> bool @-> id @-> returning (NSRange.t)) ~return_type:NSRange.t x range (LLong.of_int startingAt) wrap language -let rangeOfMisspelledWordInString' x ~range ~startingAt ~wrap ~languages self = msg_send_stret ~self ~cmd:(selector "rangeOfMisspelledWordInString:range:startingAt:wrap:languages:") ~typ:(id @-> NSRange.t @-> llong @-> bool @-> id @-> returning (NSRange.t)) ~return_type:NSRange.t x range (LLong.of_int startingAt) wrap languages -let releaseAllLexicons self = msg_send ~self ~cmd:(selector "releaseAllLexicons") ~typ:(returning (void)) -let resetAllLanguageModels self = msg_send ~self ~cmd:(selector "resetAllLanguageModels") ~typ:(returning (void)) -let setIgnoredWords x self = msg_send ~self ~cmd:(selector "setIgnoredWords:") ~typ:(id @-> returning (void)) x -let stringForInputString x ~language self = msg_send ~self ~cmd:(selector "stringForInputString:language:") ~typ:(id @-> id @-> returning (id)) x language -let suggestWordInLanguage x self = msg_send ~self ~cmd:(selector "suggestWordInLanguage:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let adjustOffsetToNextWordBoundaryInString x ~startingAt self = msg_send ~self ~cmd:(selector "adjustOffsetToNextWordBoundaryInString:startingAt:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int startingAt) +let alternativesForPinyinInputString x self = msg_send ~self ~cmd:(selector "alternativesForPinyinInputString:") ~typ:(id @-> returning id) x +let canChangeCaseOfFirstLetterInString x ~toUpperCase ~language self = msg_send ~self ~cmd:(selector "canChangeCaseOfFirstLetterInString:toUpperCase:language:") ~typ:(id @-> bool @-> id @-> returning bool) x toUpperCase language +let checkGrammarOfString x ~startingAt ~language ~wrap ~details self = msg_send ~self ~cmd:(selector "checkGrammarOfString:startingAt:language:wrap:details:") ~typ:(id @-> llong @-> id @-> bool @-> (ptr id) @-> returning NSRange.t) x (LLong.of_int startingAt) language wrap details +let checkSpellingOfString x ~startingAt ~language ~wrap ~correction self = msg_send ~self ~cmd:(selector "checkSpellingOfString:startingAt:language:wrap:correction:") ~typ:(id @-> llong @-> id @-> bool @-> (ptr id) @-> returning NSRange.t) x (LLong.of_int startingAt) language wrap correction +let checkSpellingOfString' x ~startingAt ~languages ~wrap ~correction self = msg_send ~self ~cmd:(selector "checkSpellingOfString:startingAt:languages:wrap:correction:") ~typ:(id @-> llong @-> id @-> bool @-> (ptr id) @-> returning NSRange.t) x (LLong.of_int startingAt) languages wrap correction +let completionsForPartialWordRange x ~inString ~language self = msg_send ~self ~cmd:(selector "completionsForPartialWordRange:inString:language:") ~typ:(NSRange.t @-> id @-> id @-> returning id) x inString language +let correctionForWordRange x ~inString ~language self = msg_send ~self ~cmd:(selector "correctionForWordRange:inString:language:") ~typ:(NSRange.t @-> id @-> id @-> returning id) x inString language +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let guessesForWordRange x ~inString ~language self = msg_send ~self ~cmd:(selector "guessesForWordRange:inString:language:") ~typ:(NSRange.t @-> id @-> id @-> returning id) x inString language +let ignoreWord x self = msg_send ~self ~cmd:(selector "ignoreWord:") ~typ:(id @-> returning void) x +let ignoredWords self = msg_send ~self ~cmd:(selector "ignoredWords") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initGlobals self = msg_send ~self ~cmd:(selector "initGlobals") ~typ:(returning void) +let initUserDictionaries self = msg_send ~self ~cmd:(selector "initUserDictionaries") ~typ:(returning void) +let isWordInUserDictionaries x ~caseSensitive self = msg_send ~self ~cmd:(selector "isWordInUserDictionaries:caseSensitive:") ~typ:(id @-> bool @-> returning bool) x caseSensitive +let rangeOfMisspelledWordInString x ~range ~startingAt ~wrap ~language self = msg_send ~self ~cmd:(selector "rangeOfMisspelledWordInString:range:startingAt:wrap:language:") ~typ:(id @-> NSRange.t @-> llong @-> bool @-> id @-> returning NSRange.t) x range (LLong.of_int startingAt) wrap language +let rangeOfMisspelledWordInString' x ~range ~startingAt ~wrap ~languages self = msg_send ~self ~cmd:(selector "rangeOfMisspelledWordInString:range:startingAt:wrap:languages:") ~typ:(id @-> NSRange.t @-> llong @-> bool @-> id @-> returning NSRange.t) x range (LLong.of_int startingAt) wrap languages +let releaseAllLexicons self = msg_send ~self ~cmd:(selector "releaseAllLexicons") ~typ:(returning void) +let resetAllLanguageModels self = msg_send ~self ~cmd:(selector "resetAllLanguageModels") ~typ:(returning void) +let setIgnoredWords x self = msg_send ~self ~cmd:(selector "setIgnoredWords:") ~typ:(id @-> returning void) x +let stringForInputString x ~language self = msg_send ~self ~cmd:(selector "stringForInputString:language:") ~typ:(id @-> id @-> returning id) x language +let suggestWordInLanguage x self = msg_send ~self ~cmd:(selector "suggestWordInLanguage:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UITextCheckerClass.ml b/uikit/UITextCheckerClass.ml new file mode 100644 index 00000000..c0456819 --- /dev/null +++ b/uikit/UITextCheckerClass.ml @@ -0,0 +1,23 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextchecker?language=objc}UITextChecker} *) + +let availableLanguages self = msg_send ~self ~cmd:(selector "availableLanguages") ~typ:(returning id) +let bestLanguageForString x ~fromAlternatives ~currentLanguage self = msg_send ~self ~cmd:(selector "bestLanguageForString:fromAlternatives:currentLanguage:") ~typ:(id @-> id @-> id @-> returning id) x fromAlternatives currentLanguage +let bestLanguageForString' x ~fromAlternatives ~currentLanguage ~insertionPointIndex ~scriptForBestLanguage self = msg_send ~self ~cmd:(selector "bestLanguageForString:fromAlternatives:currentLanguage:insertionPointIndex:scriptForBestLanguage:") ~typ:(id @-> id @-> id @-> ullong @-> (ptr id) @-> returning id) x fromAlternatives currentLanguage (ULLong.of_int insertionPointIndex) scriptForBestLanguage +let createDictHashTable x self = msg_send ~self ~cmd:(selector "createDictHashTable:") ~typ:(bool @-> returning (ptr CFSet.t)) x +let dictionaryInfo x self = msg_send ~self ~cmd:(selector "dictionaryInfo:") ~typ:(id @-> returning id) x +let hasLearnedWord x self = msg_send ~self ~cmd:(selector "hasLearnedWord:") ~typ:(id @-> returning bool) x +let learnWord x self = msg_send ~self ~cmd:(selector "learnWord:") ~typ:(id @-> returning void) x +let openUserDictionary x self = msg_send ~self ~cmd:(selector "openUserDictionary:") ~typ:(id @-> returning id) x +let setString x ~isExemptFromChecker self = msg_send ~self ~cmd:(selector "setString:isExemptFromChecker:") ~typ:(id @-> bool @-> returning void) x isExemptFromChecker +let uniqueSpellDocumentTag self = msg_send ~self ~cmd:(selector "uniqueSpellDocumentTag") ~typ:(returning llong) +let unlearnWord x self = msg_send ~self ~cmd:(selector "unlearnWord:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextCheckingController.ml b/uikit/UITextCheckingController.ml index b2eca5e9..dbb8261e 100644 --- a/uikit/UITextCheckingController.ml +++ b/uikit/UITextCheckingController.ml @@ -5,25 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextCheckingController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextcheckingcontroller?language=objc}UITextCheckingController} *) -let checkSpellingForSelectionChangeFromRange x self = msg_send ~self ~cmd:(selector "checkSpellingForSelectionChangeFromRange:") ~typ:(NSRange.t @-> returning (void)) x -let checkSpellingForWordInRange x self = msg_send ~self ~cmd:(selector "checkSpellingForWordInRange:") ~typ:(id @-> returning (void)) x -let client self = msg_send ~self ~cmd:(selector "client") ~typ:(returning (id)) -let considerTextCheckingForRange x self = msg_send ~self ~cmd:(selector "considerTextCheckingForRange:") ~typ:(id @-> returning (void)) x -let continuousSpellCheckingEnabled self = msg_send ~self ~cmd:(selector "continuousSpellCheckingEnabled") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didChangeSelectionFromRange x self = msg_send ~self ~cmd:(selector "didChangeSelectionFromRange:") ~typ:(id @-> returning (void)) x -let didChangeTextInRange x self = msg_send ~self ~cmd:(selector "didChangeTextInRange:") ~typ:(id @-> returning (void)) x -let foundApostropheAfterRange x self = msg_send ~self ~cmd:(selector "foundApostropheAfterRange:") ~typ:(NSRange.t @-> returning (bool)) x -let initWithClient x self = msg_send ~self ~cmd:(selector "initWithClient:") ~typ:(id @-> returning (id)) x -let insertedTextInRange x self = msg_send ~self ~cmd:(selector "insertedTextInRange:") ~typ:(id @-> returning (void)) x -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let keyboardLanguages self = msg_send ~self ~cmd:(selector "keyboardLanguages") ~typ:(returning (id)) -let nsRangeForTextRange x self = msg_send_stret ~self ~cmd:(selector "nsRangeForTextRange:") ~typ:(id @-> returning (NSRange.t)) ~return_type:NSRange.t x -let preheatTextChecker self = msg_send ~self ~cmd:(selector "preheatTextChecker") ~typ:(returning (void)) -let removeSpellingMarkersFromWordInRange x self = msg_send ~self ~cmd:(selector "removeSpellingMarkersFromWordInRange:") ~typ:(id @-> returning (void)) x -let selectedRange self = msg_send_stret ~self ~cmd:(selector "selectedRange") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let textChecker self = msg_send ~self ~cmd:(selector "textChecker") ~typ:(returning (id)) -let validAnnotations self = msg_send ~self ~cmd:(selector "validAnnotations") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITextCheckingController" + +let checkSpellingForSelectionChangeFromRange x self = msg_send ~self ~cmd:(selector "checkSpellingForSelectionChangeFromRange:") ~typ:(NSRange.t @-> returning void) x +let checkSpellingForWordInRange x self = msg_send ~self ~cmd:(selector "checkSpellingForWordInRange:") ~typ:(id @-> returning void) x +let client self = msg_send ~self ~cmd:(selector "client") ~typ:(returning id) +let considerTextCheckingForRange x self = msg_send ~self ~cmd:(selector "considerTextCheckingForRange:") ~typ:(id @-> returning void) x +let continuousSpellCheckingEnabled self = msg_send ~self ~cmd:(selector "continuousSpellCheckingEnabled") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didChangeSelectionFromRange x self = msg_send ~self ~cmd:(selector "didChangeSelectionFromRange:") ~typ:(id @-> returning void) x +let didChangeTextInRange x self = msg_send ~self ~cmd:(selector "didChangeTextInRange:") ~typ:(id @-> returning void) x +let foundApostropheAfterRange x self = msg_send ~self ~cmd:(selector "foundApostropheAfterRange:") ~typ:(NSRange.t @-> returning bool) x +let initWithClient x self = msg_send ~self ~cmd:(selector "initWithClient:") ~typ:(id @-> returning id) x +let insertedTextInRange x self = msg_send ~self ~cmd:(selector "insertedTextInRange:") ~typ:(id @-> returning void) x +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let keyboardLanguages self = msg_send ~self ~cmd:(selector "keyboardLanguages") ~typ:(returning id) +let nsRangeForTextRange x self = msg_send ~self ~cmd:(selector "nsRangeForTextRange:") ~typ:(id @-> returning NSRange.t) x +let preheatTextChecker self = msg_send ~self ~cmd:(selector "preheatTextChecker") ~typ:(returning void) +let removeSpellingMarkersFromWordInRange x self = msg_send ~self ~cmd:(selector "removeSpellingMarkersFromWordInRange:") ~typ:(id @-> returning void) x +let selectedRange self = msg_send ~self ~cmd:(selector "selectedRange") ~typ:(returning NSRange.t) +let textChecker self = msg_send ~self ~cmd:(selector "textChecker") ~typ:(returning id) +let validAnnotations self = msg_send ~self ~cmd:(selector "validAnnotations") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextContentView.ml b/uikit/UITextContentView.ml index 22c326ea..4490fe11 100644 --- a/uikit/UITextContentView.ml +++ b/uikit/UITextContentView.ml @@ -5,205 +5,206 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextContentView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextcontentview?language=objc}UITextContentView} *) -module C = struct - let excludedElementsForHTML self = msg_send ~self ~cmd:(selector "excludedElementsForHTML") ~typ:(returning (id)) -end +let self = get_class "UITextContentView" -let allowsEditingTextAttributes self = msg_send ~self ~cmd:(selector "allowsEditingTextAttributes") ~typ:(returning (bool)) -let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning (id)) -let automaticallySelectedOverlay self = msg_send ~self ~cmd:(selector "automaticallySelectedOverlay") ~typ:(returning (id)) -let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int inDirection) -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let becomesEditableWithGestures self = msg_send ~self ~cmd:(selector "becomesEditableWithGestures") ~typ:(returning (bool)) -let beginSelectionChange self = msg_send ~self ~cmd:(selector "beginSelectionChange") ~typ:(returning (void)) -let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning (id)) -let bottomBufferHeight self = msg_send ~self ~cmd:(selector "bottomBufferHeight") ~typ:(returning (double)) -let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning (bool)) -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let canResignFirstResponder self = msg_send ~self ~cmd:(selector "canResignFirstResponder") ~typ:(returning (bool)) -let cancelAutoscroll self = msg_send ~self ~cmd:(selector "cancelAutoscroll") ~typ:(returning (void)) -let cancelDataDetectorsWithWebLock self = msg_send ~self ~cmd:(selector "cancelDataDetectorsWithWebLock") ~typ:(returning (void)) -let cancelInteractionWithLink self = msg_send ~self ~cmd:(selector "cancelInteractionWithLink") ~typ:(returning (void)) -let caretRectForPosition x self = msg_send_stret ~self ~cmd:(selector "caretRectForPosition:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let caretRectForVisiblePosition x self = msg_send_stret ~self ~cmd:(selector "caretRectForVisiblePosition:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let characterRangeAtPoint x self = msg_send ~self ~cmd:(selector "characterRangeAtPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let characterRangeByExtendingPosition x ~inDirection self = msg_send ~self ~cmd:(selector "characterRangeByExtendingPosition:inDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int inDirection) -let closestCaretRectInMarkedTextRangeForPoint x self = msg_send_stret ~self ~cmd:(selector "closestCaretRectInMarkedTextRangeForPoint:") ~typ:(CGPoint.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let closestPositionToPoint x self = msg_send ~self ~cmd:(selector "closestPositionToPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let closestPositionToPoint' x ~withinRange self = msg_send ~self ~cmd:(selector "closestPositionToPoint:withinRange:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withinRange -let commonInitWithWebDocumentView x ~isDecoding self = msg_send ~self ~cmd:(selector "commonInitWithWebDocumentView:isDecoding:") ~typ:(id @-> bool @-> returning (void)) x isDecoding -let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning (llong)) x toPosition -let constrainedPoint x self = msg_send_stret ~self ~cmd:(selector "constrainedPoint:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let contentAsAttributedString self = msg_send ~self ~cmd:(selector "contentAsAttributedString") ~typ:(returning (id)) -let contentAsHTMLString self = msg_send ~self ~cmd:(selector "contentAsHTMLString") ~typ:(returning (id)) -let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning (void)) x -let cut x self = msg_send ~self ~cmd:(selector "cut:") ~typ:(id @-> returning (void)) x -let dataDetectorTypes self = msg_send ~self ~cmd:(selector "dataDetectorTypes") ~typ:(returning (ullong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let decreaseSize x self = msg_send ~self ~cmd:(selector "decreaseSize:") ~typ:(id @-> returning (void)) x -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning (void)) -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let displayScrollerIndicators self = msg_send ~self ~cmd:(selector "displayScrollerIndicators") ~typ:(returning (void)) -let documentFragmentForPasteboardItemAtIndex x self = msg_send ~self ~cmd:(selector "documentFragmentForPasteboardItemAtIndex:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let dragInteraction x ~itemsForBeginningSession self = msg_send ~self ~cmd:(selector "dragInteraction:itemsForBeginningSession:") ~typ:(id @-> id @-> returning (id)) x itemsForBeginningSession -let dragInteraction1 x ~previewForCancellingItem ~withDefault self = msg_send ~self ~cmd:(selector "dragInteraction:previewForCancellingItem:withDefault:") ~typ:(id @-> id @-> id @-> returning (id)) x previewForCancellingItem withDefault -let dragInteraction2 x ~previewForLiftingItem ~session self = msg_send ~self ~cmd:(selector "dragInteraction:previewForLiftingItem:session:") ~typ:(id @-> id @-> id @-> returning (id)) x previewForLiftingItem session -let dragInteraction3 x ~session ~didEndWithOperation self = msg_send ~self ~cmd:(selector "dragInteraction:session:didEndWithOperation:") ~typ:(id @-> id @-> ullong @-> returning (void)) x session (ULLong.of_int didEndWithOperation) -let dragInteraction4 x ~willAnimateLiftWithAnimator ~session self = msg_send ~self ~cmd:(selector "dragInteraction:willAnimateLiftWithAnimator:session:") ~typ:(id @-> id @-> id @-> returning (void)) x willAnimateLiftWithAnimator session -let dragInteractionEnabled self = msg_send ~self ~cmd:(selector "dragInteractionEnabled") ~typ:(returning (bool)) -let dropInteraction x ~concludeDrop self = msg_send ~self ~cmd:(selector "dropInteraction:concludeDrop:") ~typ:(id @-> id @-> returning (void)) x concludeDrop -let dropInteraction1 x ~performDrop self = msg_send ~self ~cmd:(selector "dropInteraction:performDrop:") ~typ:(id @-> id @-> returning (void)) x performDrop -let dropInteraction2 x ~sessionDidEnd self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidEnd:") ~typ:(id @-> id @-> returning (void)) x sessionDidEnd -let dropInteraction3 x ~sessionDidEnter self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidEnter:") ~typ:(id @-> id @-> returning (void)) x sessionDidEnter -let dropInteraction4 x ~sessionDidExit self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidExit:") ~typ:(id @-> id @-> returning (void)) x sessionDidExit -let dropInteraction5 x ~sessionDidUpdate self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidUpdate:") ~typ:(id @-> id @-> returning (id)) x sessionDidUpdate -let dropInteraction6 x ~item ~willAnimateDropWithAnimator self = msg_send ~self ~cmd:(selector "dropInteraction:item:willAnimateDropWithAnimator:") ~typ:(id @-> id @-> id @-> returning (void)) x item willAnimateDropWithAnimator -let dropInteraction7 x ~previewForDroppingItem ~withDefault self = msg_send ~self ~cmd:(selector "dropInteraction:previewForDroppingItem:withDefault:") ~typ:(id @-> id @-> id @-> returning (id)) x previewForDroppingItem withDefault -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning (id)) -let endSelectionChange self = msg_send ~self ~cmd:(selector "endSelectionChange") ~typ:(returning (void)) -let ensureSelection self = msg_send ~self ~cmd:(selector "ensureSelection") ~typ:(returning (void)) -let firstRectForRange x self = msg_send_stret ~self ~cmd:(selector "firstRectForRange:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let fontForCaretSelection self = msg_send ~self ~cmd:(selector "fontForCaretSelection") ~typ:(returning (id)) -let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning (void)) x -let frameForDictationResultPlaceholder x self = msg_send_stret ~self ~cmd:(selector "frameForDictationResultPlaceholder:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let hasMarkedText self = msg_send ~self ~cmd:(selector "hasMarkedText") ~typ:(returning (bool)) -let hasSelection self = msg_send ~self ~cmd:(selector "hasSelection") ~typ:(returning (bool)) -let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning (bool)) -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let increaseSize x self = msg_send ~self ~cmd:(selector "increaseSize:") ~typ:(id @-> returning (void)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithFrame' x ~webView self = msg_send ~self ~cmd:(selector "initWithFrame:webView:") ~typ:(CGRect.t @-> id @-> returning (id)) x webView -let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning (id)) -let insertDictationResult x ~withCorrectionIdentifier self = msg_send ~self ~cmd:(selector "insertDictationResult:withCorrectionIdentifier:") ~typ:(id @-> id @-> returning (void)) x withCorrectionIdentifier -let insertDictationResultPlaceholder self = msg_send ~self ~cmd:(selector "insertDictationResultPlaceholder") ~typ:(returning (id)) -let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning (void)) x -let insertTextPlaceholderWithSize x self = msg_send ~self ~cmd:(selector "insertTextPlaceholderWithSize:") ~typ:(CGSize.t @-> returning (id)) x -let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning (id)) -let isDragInteractionEnabled self = msg_send ~self ~cmd:(selector "isDragInteractionEnabled") ~typ:(returning (bool)) -let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning (bool)) -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let isFirstResponder self = msg_send ~self ~cmd:(selector "isFirstResponder") ~typ:(returning (bool)) -let isInteractingWithLink self = msg_send ~self ~cmd:(selector "isInteractingWithLink") ~typ:(returning (bool)) -let keyboardDidShow x self = msg_send ~self ~cmd:(selector "keyboardDidShow:") ~typ:(id @-> returning (void)) x -let keyboardInput x ~shouldInsertText ~isMarkedText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldInsertText:isMarkedText:") ~typ:(id @-> id @-> bool @-> returning (bool)) x shouldInsertText isMarkedText -let keyboardInput' x ~shouldReplaceTextInRange ~replacementText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldReplaceTextInRange:replacementText:") ~typ:(id @-> NSRange.t @-> id @-> returning (bool)) x shouldReplaceTextInRange replacementText -let keyboardInputChanged x self = msg_send ~self ~cmd:(selector "keyboardInputChanged:") ~typ:(id @-> returning (bool)) x -let keyboardInputChangedSelection x self = msg_send ~self ~cmd:(selector "keyboardInputChangedSelection:") ~typ:(id @-> returning (void)) x -let keyboardInputShouldDelete x self = msg_send ~self ~cmd:(selector "keyboardInputShouldDelete:") ~typ:(id @-> returning (bool)) x -let makeTextWritingDirectionLeftToRight x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionLeftToRight:") ~typ:(id @-> returning (void)) x -let makeTextWritingDirectionNatural x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionNatural:") ~typ:(id @-> returning (void)) x -let makeTextWritingDirectionRightToLeft x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionRightToLeft:") ~typ:(id @-> returning (void)) x -let marginTop self = msg_send ~self ~cmd:(selector "marginTop") ~typ:(returning (int)) -let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning (id)) -let markedTextStyle self = msg_send ~self ~cmd:(selector "markedTextStyle") ~typ:(returning (id)) -let metadataDictionariesForDictationResults self = msg_send ~self ~cmd:(selector "metadataDictionariesForDictationResults") ~typ:(returning (id)) -let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning (id)) x -let mightHaveLinks self = msg_send ~self ~cmd:(selector "mightHaveLinks") ~typ:(returning (bool)) -let offset self = msg_send_stret ~self ~cmd:(selector "offset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let offsetFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "offsetFromPosition:toPosition:") ~typ:(id @-> id @-> returning (llong)) x toPosition -let offsetInMarkedTextForSelection x self = msg_send ~self ~cmd:(selector "offsetInMarkedTextForSelection:") ~typ:(id @-> returning (ullong)) x -let paste x self = msg_send ~self ~cmd:(selector "paste:") ~typ:(id @-> returning (void)) x -let pasteAndMatchStyle x self = msg_send ~self ~cmd:(selector "pasteAndMatchStyle:") ~typ:(id @-> returning (void)) x -let performBecomeEditableTasks self = msg_send ~self ~cmd:(selector "performBecomeEditableTasks") ~typ:(returning (void)) -let performScrollSelectionToVisible x self = msg_send ~self ~cmd:(selector "performScrollSelectionToVisible:") ~typ:(bool @-> returning (void)) x -let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int offset) -let positionFromPosition' x ~inDirection ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:inDirection:offset:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int inDirection) (LLong.of_int offset) -let positionWithinRange x ~farthestInDirection self = msg_send ~self ~cmd:(selector "positionWithinRange:farthestInDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int farthestInDirection) -let recalculateStyle self = msg_send ~self ~cmd:(selector "recalculateStyle") ~typ:(returning (void)) -let rectForScrollToVisible self = msg_send_stret ~self ~cmd:(selector "rectForScrollToVisible") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let rectForSelection x self = msg_send_stret ~self ~cmd:(selector "rectForSelection:") ~typ:(NSRange.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let removeDictationResultPlaceholder x ~willInsertResult self = msg_send ~self ~cmd:(selector "removeDictationResultPlaceholder:willInsertResult:") ~typ:(id @-> bool @-> returning (void)) x willInsertResult -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let removeTextPlaceholder x self = msg_send ~self ~cmd:(selector "removeTextPlaceholder:") ~typ:(id @-> returning (void)) x -let replace x self = msg_send ~self ~cmd:(selector "replace:") ~typ:(id @-> returning (void)) x -let replaceRange x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning (void)) x withText -let resetDataDetectorsResultsWithWebLock self = msg_send ~self ~cmd:(selector "resetDataDetectorsResultsWithWebLock") ~typ:(returning (void)) -let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning (bool)) -let scrollRangeToVisible x self = msg_send ~self ~cmd:(selector "scrollRangeToVisible:") ~typ:(NSRange.t @-> returning (void)) x -let scrollRectToVisible x ~animated self = msg_send ~self ~cmd:(selector "scrollRectToVisible:animated:") ~typ:(CGRect.t @-> bool @-> returning (void)) x animated -let scrollSelectionToVisible x self = msg_send ~self ~cmd:(selector "scrollSelectionToVisible:") ~typ:(bool @-> returning (void)) x -let scrollsSelectionOnWebDocumentChanges self = msg_send ~self ~cmd:(selector "scrollsSelectionOnWebDocumentChanges") ~typ:(returning (bool)) -let select x self = msg_send ~self ~cmd:(selector "select:") ~typ:(id @-> returning (void)) x -let selectAll self = msg_send ~self ~cmd:(selector "selectAll") ~typ:(returning (void)) -let selectAll' x self = msg_send ~self ~cmd:(selector "selectAll:") ~typ:(id @-> returning (void)) x -let selectedRange self = msg_send_stret ~self ~cmd:(selector "selectedRange") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let selectedText self = msg_send ~self ~cmd:(selector "selectedText") ~typ:(returning (id)) -let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning (id)) -let selectionAffinity self = msg_send ~self ~cmd:(selector "selectionAffinity") ~typ:(returning (llong)) -let selectionGranularity self = msg_send ~self ~cmd:(selector "selectionGranularity") ~typ:(returning (llong)) -let selectionRange self = msg_send_stret ~self ~cmd:(selector "selectionRange") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let selectionRectsForRange x self = msg_send ~self ~cmd:(selector "selectionRectsForRange:") ~typ:(id @-> returning (id)) x -let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning (id)) -let setAllowsEditingTextAttributes x self = msg_send ~self ~cmd:(selector "setAllowsEditingTextAttributes:") ~typ:(bool @-> returning (void)) x -let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning (void)) x -let setBaseWritingDirection x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) forRange -let setBecomesEditableWithGestures x self = msg_send ~self ~cmd:(selector "setBecomesEditableWithGestures:") ~typ:(bool @-> returning (void)) x -let setBottomBufferHeight x self = msg_send ~self ~cmd:(selector "setBottomBufferHeight:") ~typ:(double @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setContentToAttributedString x self = msg_send ~self ~cmd:(selector "setContentToAttributedString:") ~typ:(id @-> returning (void)) x -let setContentToHTMLString x self = msg_send ~self ~cmd:(selector "setContentToHTMLString:") ~typ:(id @-> returning (void)) x -let setDataDetectorTypes x self = msg_send ~self ~cmd:(selector "setDataDetectorTypes:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDragInteractionEnabled x self = msg_send ~self ~cmd:(selector "setDragInteractionEnabled:") ~typ:(bool @-> returning (void)) x -let setEditable x self = msg_send ~self ~cmd:(selector "setEditable:") ~typ:(bool @-> returning (void)) x -let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning (void)) x -let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setInputDelegate x self = msg_send ~self ~cmd:(selector "setInputDelegate:") ~typ:(id @-> returning (void)) x -let setMarginTop x self = msg_send ~self ~cmd:(selector "setMarginTop:") ~typ:(int @-> returning (void)) x -let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning (void)) x selectedRange -let setMarkedTextStyle x self = msg_send ~self ~cmd:(selector "setMarkedTextStyle:") ~typ:(id @-> returning (void)) x -let setOffset x self = msg_send ~self ~cmd:(selector "setOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let setScrollsSelectionOnWebDocumentChanges x self = msg_send ~self ~cmd:(selector "setScrollsSelectionOnWebDocumentChanges:") ~typ:(bool @-> returning (void)) x -let setSelectedRange x self = msg_send ~self ~cmd:(selector "setSelectedRange:") ~typ:(NSRange.t @-> returning (void)) x -let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning (void)) x -let setSelectionAffinity x self = msg_send ~self ~cmd:(selector "setSelectionAffinity:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSelectionChangeCallbacksDisabled x self = msg_send ~self ~cmd:(selector "setSelectionChangeCallbacksDisabled:") ~typ:(bool @-> returning (void)) x -let setSelectionGranularity x self = msg_send ~self ~cmd:(selector "setSelectionGranularity:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSelectionInset x self = msg_send ~self ~cmd:(selector "setSelectionInset:") ~typ:(ptr void @-> returning (void)) x -let setSelectionToEnd self = msg_send ~self ~cmd:(selector "setSelectionToEnd") ~typ:(returning (void)) -let setSelectionToStart self = msg_send ~self ~cmd:(selector "setSelectionToStart") ~typ:(returning (void)) -let setSelectionWithPoint x self = msg_send ~self ~cmd:(selector "setSelectionWithPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning (void)) x -let shouldStartDataDetectors self = msg_send ~self ~cmd:(selector "shouldStartDataDetectors") ~typ:(returning (bool)) -let startAutoscroll x self = msg_send ~self ~cmd:(selector "startAutoscroll:") ~typ:(CGPoint.t @-> returning (void)) x -let startDataDetectorsWithWebLock self = msg_send ~self ~cmd:(selector "startDataDetectorsWithWebLock") ~typ:(returning (void)) -let startInteractionWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "startInteractionWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let startLongInteractionWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "startLongInteractionWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let styleString self = msg_send ~self ~cmd:(selector "styleString") ~typ:(returning (id)) -let supportedPasteboardTypesForCurrentSelection self = msg_send ~self ~cmd:(selector "supportedPasteboardTypesForCurrentSelection") ~typ:(returning (id)) -let tapLinkAtPoint x self = msg_send ~self ~cmd:(selector "tapLinkAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning (llong)) -let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning (id)) -let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning (id)) x -let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning (id)) -let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning (id)) x toPosition -let textStylingAtPosition x ~inDirection self = msg_send ~self ~cmd:(selector "textStylingAtPosition:inDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int inDirection) -let toggleBoldface x self = msg_send ~self ~cmd:(selector "toggleBoldface:") ~typ:(id @-> returning (void)) x -let toggleItalics x self = msg_send ~self ~cmd:(selector "toggleItalics:") ~typ:(id @-> returning (void)) x -let toggleUnderline x self = msg_send ~self ~cmd:(selector "toggleUnderline:") ~typ:(id @-> returning (void)) x -let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning (id)) -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning (id)) -let undoManagerForWebView x self = msg_send ~self ~cmd:(selector "undoManagerForWebView:") ~typ:(id @-> returning (id)) x -let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning (void)) -let updateContentEditableAttribute x self = msg_send ~self ~cmd:(selector "updateContentEditableAttribute:") ~typ:(bool @-> returning (void)) x -let updateInteractionWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "updateInteractionWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let updateSelection self = msg_send ~self ~cmd:(selector "updateSelection") ~typ:(returning (void)) -let validateInteractionWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "validateInteractionWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let visibleRect self = msg_send_stret ~self ~cmd:(selector "visibleRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let visibleTextRect self = msg_send_stret ~self ~cmd:(selector "visibleTextRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let webView self = msg_send ~self ~cmd:(selector "webView") ~typ:(returning (id)) -let webView' x ~decidePolicyForNavigationAction ~request ~frame ~decisionListener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForNavigationAction:request:frame:decisionListener:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (void)) x decidePolicyForNavigationAction request frame decisionListener -let webViewDidChange x self = msg_send ~self ~cmd:(selector "webViewDidChange:") ~typ:(id @-> returning (void)) x -let willInteractWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "willInteractWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning (bool)) x \ No newline at end of file +let allowsEditingTextAttributes self = msg_send ~self ~cmd:(selector "allowsEditingTextAttributes") ~typ:(returning bool) +let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning id) +let automaticallySelectedOverlay self = msg_send ~self ~cmd:(selector "automaticallySelectedOverlay") ~typ:(returning id) +let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int inDirection) +let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning bool) +let becomesEditableWithGestures self = msg_send ~self ~cmd:(selector "becomesEditableWithGestures") ~typ:(returning bool) +let beginSelectionChange self = msg_send ~self ~cmd:(selector "beginSelectionChange") ~typ:(returning void) +let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning id) +let bottomBufferHeight self = msg_send ~self ~cmd:(selector "bottomBufferHeight") ~typ:(returning double) +let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning bool) +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let canResignFirstResponder self = msg_send ~self ~cmd:(selector "canResignFirstResponder") ~typ:(returning bool) +let cancelAutoscroll self = msg_send ~self ~cmd:(selector "cancelAutoscroll") ~typ:(returning void) +let cancelDataDetectorsWithWebLock self = msg_send ~self ~cmd:(selector "cancelDataDetectorsWithWebLock") ~typ:(returning void) +let cancelInteractionWithLink self = msg_send ~self ~cmd:(selector "cancelInteractionWithLink") ~typ:(returning void) +let caretRectForPosition x self = msg_send ~self ~cmd:(selector "caretRectForPosition:") ~typ:(id @-> returning CGRect.t) x +let caretRectForVisiblePosition x self = msg_send ~self ~cmd:(selector "caretRectForVisiblePosition:") ~typ:(id @-> returning CGRect.t) x +let characterRangeAtPoint x self = msg_send ~self ~cmd:(selector "characterRangeAtPoint:") ~typ:(CGPoint.t @-> returning id) x +let characterRangeByExtendingPosition x ~inDirection self = msg_send ~self ~cmd:(selector "characterRangeByExtendingPosition:inDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int inDirection) +let closestCaretRectInMarkedTextRangeForPoint x self = msg_send ~self ~cmd:(selector "closestCaretRectInMarkedTextRangeForPoint:") ~typ:(CGPoint.t @-> returning CGRect.t) x +let closestPositionToPoint x self = msg_send ~self ~cmd:(selector "closestPositionToPoint:") ~typ:(CGPoint.t @-> returning id) x +let closestPositionToPoint' x ~withinRange self = msg_send ~self ~cmd:(selector "closestPositionToPoint:withinRange:") ~typ:(CGPoint.t @-> id @-> returning id) x withinRange +let commonInitWithWebDocumentView x ~isDecoding self = msg_send ~self ~cmd:(selector "commonInitWithWebDocumentView:isDecoding:") ~typ:(id @-> bool @-> returning void) x isDecoding +let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning llong) x toPosition +let constrainedPoint x self = msg_send ~self ~cmd:(selector "constrainedPoint:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let contentAsAttributedString self = msg_send ~self ~cmd:(selector "contentAsAttributedString") ~typ:(returning id) +let contentAsHTMLString self = msg_send ~self ~cmd:(selector "contentAsHTMLString") ~typ:(returning id) +let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning void) x +let cut x self = msg_send ~self ~cmd:(selector "cut:") ~typ:(id @-> returning void) x +let dataDetectorTypes self = msg_send ~self ~cmd:(selector "dataDetectorTypes") ~typ:(returning ullong) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let decreaseSize x self = msg_send ~self ~cmd:(selector "decreaseSize:") ~typ:(id @-> returning void) x +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning void) +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let displayScrollerIndicators self = msg_send ~self ~cmd:(selector "displayScrollerIndicators") ~typ:(returning void) +let documentFragmentForPasteboardItemAtIndex x self = msg_send ~self ~cmd:(selector "documentFragmentForPasteboardItemAtIndex:") ~typ:(llong @-> returning id) (LLong.of_int x) +let dragInteraction x ~itemsForBeginningSession self = msg_send ~self ~cmd:(selector "dragInteraction:itemsForBeginningSession:") ~typ:(id @-> id @-> returning id) x itemsForBeginningSession +let dragInteraction1 x ~previewForCancellingItem ~withDefault self = msg_send ~self ~cmd:(selector "dragInteraction:previewForCancellingItem:withDefault:") ~typ:(id @-> id @-> id @-> returning id) x previewForCancellingItem withDefault +let dragInteraction2 x ~previewForLiftingItem ~session self = msg_send ~self ~cmd:(selector "dragInteraction:previewForLiftingItem:session:") ~typ:(id @-> id @-> id @-> returning id) x previewForLiftingItem session +let dragInteraction3 x ~session ~didEndWithOperation self = msg_send ~self ~cmd:(selector "dragInteraction:session:didEndWithOperation:") ~typ:(id @-> id @-> ullong @-> returning void) x session (ULLong.of_int didEndWithOperation) +let dragInteraction4 x ~willAnimateLiftWithAnimator ~session self = msg_send ~self ~cmd:(selector "dragInteraction:willAnimateLiftWithAnimator:session:") ~typ:(id @-> id @-> id @-> returning void) x willAnimateLiftWithAnimator session +let dragInteractionEnabled self = msg_send ~self ~cmd:(selector "dragInteractionEnabled") ~typ:(returning bool) +let dropInteraction x ~concludeDrop self = msg_send ~self ~cmd:(selector "dropInteraction:concludeDrop:") ~typ:(id @-> id @-> returning void) x concludeDrop +let dropInteraction1 x ~performDrop self = msg_send ~self ~cmd:(selector "dropInteraction:performDrop:") ~typ:(id @-> id @-> returning void) x performDrop +let dropInteraction2 x ~sessionDidEnd self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidEnd:") ~typ:(id @-> id @-> returning void) x sessionDidEnd +let dropInteraction3 x ~sessionDidEnter self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidEnter:") ~typ:(id @-> id @-> returning void) x sessionDidEnter +let dropInteraction4 x ~sessionDidExit self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidExit:") ~typ:(id @-> id @-> returning void) x sessionDidExit +let dropInteraction5 x ~sessionDidUpdate self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidUpdate:") ~typ:(id @-> id @-> returning id) x sessionDidUpdate +let dropInteraction6 x ~item ~willAnimateDropWithAnimator self = msg_send ~self ~cmd:(selector "dropInteraction:item:willAnimateDropWithAnimator:") ~typ:(id @-> id @-> id @-> returning void) x item willAnimateDropWithAnimator +let dropInteraction7 x ~previewForDroppingItem ~withDefault self = msg_send ~self ~cmd:(selector "dropInteraction:previewForDroppingItem:withDefault:") ~typ:(id @-> id @-> id @-> returning id) x previewForDroppingItem withDefault +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning id) +let endSelectionChange self = msg_send ~self ~cmd:(selector "endSelectionChange") ~typ:(returning void) +let ensureSelection self = msg_send ~self ~cmd:(selector "ensureSelection") ~typ:(returning void) +let firstRectForRange x self = msg_send ~self ~cmd:(selector "firstRectForRange:") ~typ:(id @-> returning CGRect.t) x +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let fontForCaretSelection self = msg_send ~self ~cmd:(selector "fontForCaretSelection") ~typ:(returning id) +let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning void) x +let frameForDictationResultPlaceholder x self = msg_send ~self ~cmd:(selector "frameForDictationResultPlaceholder:") ~typ:(id @-> returning CGRect.t) x +let hasMarkedText self = msg_send ~self ~cmd:(selector "hasMarkedText") ~typ:(returning bool) +let hasSelection self = msg_send ~self ~cmd:(selector "hasSelection") ~typ:(returning bool) +let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning bool) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let increaseSize x self = msg_send ~self ~cmd:(selector "increaseSize:") ~typ:(id @-> returning void) x +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithFrame' x ~webView self = msg_send ~self ~cmd:(selector "initWithFrame:webView:") ~typ:(CGRect.t @-> id @-> returning id) x webView +let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning id) +let insertDictationResult x ~withCorrectionIdentifier self = msg_send ~self ~cmd:(selector "insertDictationResult:withCorrectionIdentifier:") ~typ:(id @-> id @-> returning void) x withCorrectionIdentifier +let insertDictationResultPlaceholder self = msg_send ~self ~cmd:(selector "insertDictationResultPlaceholder") ~typ:(returning id) +let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning void) x +let insertTextPlaceholderWithSize x self = msg_send ~self ~cmd:(selector "insertTextPlaceholderWithSize:") ~typ:(CGSize.t @-> returning id) x +let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning id) +let isDragInteractionEnabled self = msg_send ~self ~cmd:(selector "isDragInteractionEnabled") ~typ:(returning bool) +let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning bool) +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let isFirstResponder self = msg_send ~self ~cmd:(selector "isFirstResponder") ~typ:(returning bool) +let isInteractingWithLink self = msg_send ~self ~cmd:(selector "isInteractingWithLink") ~typ:(returning bool) +let keyboardDidShow x self = msg_send ~self ~cmd:(selector "keyboardDidShow:") ~typ:(id @-> returning void) x +let keyboardInput x ~shouldInsertText ~isMarkedText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldInsertText:isMarkedText:") ~typ:(id @-> id @-> bool @-> returning bool) x shouldInsertText isMarkedText +let keyboardInput' x ~shouldReplaceTextInRange ~replacementText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldReplaceTextInRange:replacementText:") ~typ:(id @-> NSRange.t @-> id @-> returning bool) x shouldReplaceTextInRange replacementText +let keyboardInputChanged x self = msg_send ~self ~cmd:(selector "keyboardInputChanged:") ~typ:(id @-> returning bool) x +let keyboardInputChangedSelection x self = msg_send ~self ~cmd:(selector "keyboardInputChangedSelection:") ~typ:(id @-> returning void) x +let keyboardInputShouldDelete x self = msg_send ~self ~cmd:(selector "keyboardInputShouldDelete:") ~typ:(id @-> returning bool) x +let makeTextWritingDirectionLeftToRight x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionLeftToRight:") ~typ:(id @-> returning void) x +let makeTextWritingDirectionNatural x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionNatural:") ~typ:(id @-> returning void) x +let makeTextWritingDirectionRightToLeft x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionRightToLeft:") ~typ:(id @-> returning void) x +let marginTop self = msg_send ~self ~cmd:(selector "marginTop") ~typ:(returning int) +let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning id) +let markedTextStyle self = msg_send ~self ~cmd:(selector "markedTextStyle") ~typ:(returning id) +let metadataDictionariesForDictationResults self = msg_send ~self ~cmd:(selector "metadataDictionariesForDictationResults") ~typ:(returning id) +let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning id) x +let mightHaveLinks self = msg_send ~self ~cmd:(selector "mightHaveLinks") ~typ:(returning bool) +let offset self = msg_send ~self ~cmd:(selector "offset") ~typ:(returning CGPoint.t) +let offsetFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "offsetFromPosition:toPosition:") ~typ:(id @-> id @-> returning llong) x toPosition +let offsetInMarkedTextForSelection x self = msg_send ~self ~cmd:(selector "offsetInMarkedTextForSelection:") ~typ:(id @-> returning ullong) x +let paste x self = msg_send ~self ~cmd:(selector "paste:") ~typ:(id @-> returning void) x +let pasteAndMatchStyle x self = msg_send ~self ~cmd:(selector "pasteAndMatchStyle:") ~typ:(id @-> returning void) x +let performBecomeEditableTasks self = msg_send ~self ~cmd:(selector "performBecomeEditableTasks") ~typ:(returning void) +let performScrollSelectionToVisible x self = msg_send ~self ~cmd:(selector "performScrollSelectionToVisible:") ~typ:(bool @-> returning void) x +let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int offset) +let positionFromPosition' x ~inDirection ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:inDirection:offset:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int inDirection) (LLong.of_int offset) +let positionWithinRange x ~farthestInDirection self = msg_send ~self ~cmd:(selector "positionWithinRange:farthestInDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int farthestInDirection) +let recalculateStyle self = msg_send ~self ~cmd:(selector "recalculateStyle") ~typ:(returning void) +let rectForScrollToVisible self = msg_send ~self ~cmd:(selector "rectForScrollToVisible") ~typ:(returning CGRect.t) +let rectForSelection x self = msg_send ~self ~cmd:(selector "rectForSelection:") ~typ:(NSRange.t @-> returning CGRect.t) x +let removeDictationResultPlaceholder x ~willInsertResult self = msg_send ~self ~cmd:(selector "removeDictationResultPlaceholder:willInsertResult:") ~typ:(id @-> bool @-> returning void) x willInsertResult +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let removeTextPlaceholder x self = msg_send ~self ~cmd:(selector "removeTextPlaceholder:") ~typ:(id @-> returning void) x +let replace x self = msg_send ~self ~cmd:(selector "replace:") ~typ:(id @-> returning void) x +let replaceRange x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning void) x withText +let resetDataDetectorsResultsWithWebLock self = msg_send ~self ~cmd:(selector "resetDataDetectorsResultsWithWebLock") ~typ:(returning void) +let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning bool) +let scrollRangeToVisible x self = msg_send ~self ~cmd:(selector "scrollRangeToVisible:") ~typ:(NSRange.t @-> returning void) x +let scrollRectToVisible x ~animated self = msg_send ~self ~cmd:(selector "scrollRectToVisible:animated:") ~typ:(CGRect.t @-> bool @-> returning void) x animated +let scrollSelectionToVisible x self = msg_send ~self ~cmd:(selector "scrollSelectionToVisible:") ~typ:(bool @-> returning void) x +let scrollsSelectionOnWebDocumentChanges self = msg_send ~self ~cmd:(selector "scrollsSelectionOnWebDocumentChanges") ~typ:(returning bool) +let select x self = msg_send ~self ~cmd:(selector "select:") ~typ:(id @-> returning void) x +let selectAll self = msg_send ~self ~cmd:(selector "selectAll") ~typ:(returning void) +let selectAll' x self = msg_send ~self ~cmd:(selector "selectAll:") ~typ:(id @-> returning void) x +let selectedRange self = msg_send ~self ~cmd:(selector "selectedRange") ~typ:(returning NSRange.t) +let selectedText self = msg_send ~self ~cmd:(selector "selectedText") ~typ:(returning id) +let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning id) +let selectionAffinity self = msg_send ~self ~cmd:(selector "selectionAffinity") ~typ:(returning llong) +let selectionGranularity self = msg_send ~self ~cmd:(selector "selectionGranularity") ~typ:(returning llong) +let selectionInset self = msg_send ~self ~cmd:(selector "selectionInset") ~typ:(returning UIEdgeInsets.t) +let selectionRange self = msg_send ~self ~cmd:(selector "selectionRange") ~typ:(returning NSRange.t) +let selectionRectsForRange x self = msg_send ~self ~cmd:(selector "selectionRectsForRange:") ~typ:(id @-> returning id) x +let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning id) +let setAllowsEditingTextAttributes x self = msg_send ~self ~cmd:(selector "setAllowsEditingTextAttributes:") ~typ:(bool @-> returning void) x +let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning void) x +let setBaseWritingDirection x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) forRange +let setBecomesEditableWithGestures x self = msg_send ~self ~cmd:(selector "setBecomesEditableWithGestures:") ~typ:(bool @-> returning void) x +let setBottomBufferHeight x self = msg_send ~self ~cmd:(selector "setBottomBufferHeight:") ~typ:(double @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setContentToAttributedString x self = msg_send ~self ~cmd:(selector "setContentToAttributedString:") ~typ:(id @-> returning void) x +let setContentToHTMLString x self = msg_send ~self ~cmd:(selector "setContentToHTMLString:") ~typ:(id @-> returning void) x +let setDataDetectorTypes x self = msg_send ~self ~cmd:(selector "setDataDetectorTypes:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDragInteractionEnabled x self = msg_send ~self ~cmd:(selector "setDragInteractionEnabled:") ~typ:(bool @-> returning void) x +let setEditable x self = msg_send ~self ~cmd:(selector "setEditable:") ~typ:(bool @-> returning void) x +let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning void) x +let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setInputDelegate x self = msg_send ~self ~cmd:(selector "setInputDelegate:") ~typ:(id @-> returning void) x +let setMarginTop x self = msg_send ~self ~cmd:(selector "setMarginTop:") ~typ:(int @-> returning void) x +let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning void) x selectedRange +let setMarkedTextStyle x self = msg_send ~self ~cmd:(selector "setMarkedTextStyle:") ~typ:(id @-> returning void) x +let setOffset x self = msg_send ~self ~cmd:(selector "setOffset:") ~typ:(CGPoint.t @-> returning void) x +let setScrollsSelectionOnWebDocumentChanges x self = msg_send ~self ~cmd:(selector "setScrollsSelectionOnWebDocumentChanges:") ~typ:(bool @-> returning void) x +let setSelectedRange x self = msg_send ~self ~cmd:(selector "setSelectedRange:") ~typ:(NSRange.t @-> returning void) x +let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning void) x +let setSelectionAffinity x self = msg_send ~self ~cmd:(selector "setSelectionAffinity:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSelectionChangeCallbacksDisabled x self = msg_send ~self ~cmd:(selector "setSelectionChangeCallbacksDisabled:") ~typ:(bool @-> returning void) x +let setSelectionGranularity x self = msg_send ~self ~cmd:(selector "setSelectionGranularity:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSelectionInset x self = msg_send ~self ~cmd:(selector "setSelectionInset:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setSelectionToEnd self = msg_send ~self ~cmd:(selector "setSelectionToEnd") ~typ:(returning void) +let setSelectionToStart self = msg_send ~self ~cmd:(selector "setSelectionToStart") ~typ:(returning void) +let setSelectionWithPoint x self = msg_send ~self ~cmd:(selector "setSelectionWithPoint:") ~typ:(CGPoint.t @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning void) x +let shouldStartDataDetectors self = msg_send ~self ~cmd:(selector "shouldStartDataDetectors") ~typ:(returning bool) +let startAutoscroll x self = msg_send ~self ~cmd:(selector "startAutoscroll:") ~typ:(CGPoint.t @-> returning void) x +let startDataDetectorsWithWebLock self = msg_send ~self ~cmd:(selector "startDataDetectorsWithWebLock") ~typ:(returning void) +let startInteractionWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "startInteractionWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let startLongInteractionWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "startLongInteractionWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let styleString self = msg_send ~self ~cmd:(selector "styleString") ~typ:(returning id) +let supportedPasteboardTypesForCurrentSelection self = msg_send ~self ~cmd:(selector "supportedPasteboardTypesForCurrentSelection") ~typ:(returning id) +let tapLinkAtPoint x self = msg_send ~self ~cmd:(selector "tapLinkAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning llong) +let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning id) +let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning id) x +let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning id) +let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning id) x toPosition +let textStylingAtPosition x ~inDirection self = msg_send ~self ~cmd:(selector "textStylingAtPosition:inDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int inDirection) +let toggleBoldface x self = msg_send ~self ~cmd:(selector "toggleBoldface:") ~typ:(id @-> returning void) x +let toggleItalics x self = msg_send ~self ~cmd:(selector "toggleItalics:") ~typ:(id @-> returning void) x +let toggleUnderline x self = msg_send ~self ~cmd:(selector "toggleUnderline:") ~typ:(id @-> returning void) x +let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning id) +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning id) +let undoManagerForWebView x self = msg_send ~self ~cmd:(selector "undoManagerForWebView:") ~typ:(id @-> returning id) x +let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning void) +let updateContentEditableAttribute x self = msg_send ~self ~cmd:(selector "updateContentEditableAttribute:") ~typ:(bool @-> returning void) x +let updateInteractionWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "updateInteractionWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let updateSelection self = msg_send ~self ~cmd:(selector "updateSelection") ~typ:(returning void) +let validateInteractionWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "validateInteractionWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let visibleRect self = msg_send ~self ~cmd:(selector "visibleRect") ~typ:(returning CGRect.t) +let visibleTextRect self = msg_send ~self ~cmd:(selector "visibleTextRect") ~typ:(returning CGRect.t) +let webView self = msg_send ~self ~cmd:(selector "webView") ~typ:(returning id) +let webView' x ~decidePolicyForNavigationAction ~request ~frame ~decisionListener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForNavigationAction:request:frame:decisionListener:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning void) x decidePolicyForNavigationAction request frame decisionListener +let webViewDidChange x self = msg_send ~self ~cmd:(selector "webViewDidChange:") ~typ:(id @-> returning void) x +let willInteractWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "willInteractWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning bool) x \ No newline at end of file diff --git a/uikit/UITextContentViewClass.ml b/uikit/UITextContentViewClass.ml new file mode 100644 index 00000000..06c97cb8 --- /dev/null +++ b/uikit/UITextContentViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextcontentview?language=objc}UITextContentView} *) + +let excludedElementsForHTML self = msg_send ~self ~cmd:(selector "excludedElementsForHTML") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextCursorAssertionController.ml b/uikit/UITextCursorAssertionController.ml index 8d688809..fa756483 100644 --- a/uikit/UITextCursorAssertionController.ml +++ b/uikit/UITextCursorAssertionController.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextCursorAssertionController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextcursorassertioncontroller?language=objc}UITextCursorAssertionController} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning (id)) -let nonBlinkingAssertionWithReason x self = msg_send ~self ~cmd:(selector "nonBlinkingAssertionWithReason:") ~typ:(id @-> returning (id)) x -let nonBlinkingGhostAssertionWithReason x self = msg_send ~self ~cmd:(selector "nonBlinkingGhostAssertionWithReason:") ~typ:(id @-> returning (id)) x -let nonVisibleAssertionWithReason x self = msg_send ~self ~cmd:(selector "nonVisibleAssertionWithReason:") ~typ:(id @-> returning (id)) x -let setSubject x self = msg_send ~self ~cmd:(selector "setSubject:") ~typ:(id @-> returning (void)) x -let subject self = msg_send ~self ~cmd:(selector "subject") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITextCursorAssertionController" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning id) +let nonBlinkingAssertionWithReason x self = msg_send ~self ~cmd:(selector "nonBlinkingAssertionWithReason:") ~typ:(id @-> returning id) x +let nonBlinkingGhostAssertionWithReason x self = msg_send ~self ~cmd:(selector "nonBlinkingGhostAssertionWithReason:") ~typ:(id @-> returning id) x +let nonVisibleAssertionWithReason x self = msg_send ~self ~cmd:(selector "nonVisibleAssertionWithReason:") ~typ:(id @-> returning id) x +let setSubject x self = msg_send ~self ~cmd:(selector "setSubject:") ~typ:(id @-> returning void) x +let subject self = msg_send ~self ~cmd:(selector "subject") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextDragAssistant.ml b/uikit/UITextDragAssistant.ml index 9c40be5f..b72da5dd 100644 --- a/uikit/UITextDragAssistant.ml +++ b/uikit/UITextDragAssistant.ml @@ -5,45 +5,49 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextDragAssistant" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextdragassistant?language=objc}UITextDragAssistant} *) -let accessibilityCanDrag self = msg_send ~self ~cmd:(selector "accessibilityCanDrag") ~typ:(returning (bool)) -let dragInteraction self = msg_send ~self ~cmd:(selector "dragInteraction") ~typ:(returning (id)) -let dragInteraction1 x ~itemsForBeginningSession self = msg_send ~self ~cmd:(selector "dragInteraction:itemsForBeginningSession:") ~typ:(id @-> id @-> returning (id)) x itemsForBeginningSession -let dragInteraction2 x ~prefersFullSizePreviewsForSession self = msg_send ~self ~cmd:(selector "dragInteraction:prefersFullSizePreviewsForSession:") ~typ:(id @-> id @-> returning (bool)) x prefersFullSizePreviewsForSession -let dragInteraction3 x ~sessionDidMove self = msg_send ~self ~cmd:(selector "dragInteraction:sessionDidMove:") ~typ:(id @-> id @-> returning (void)) x sessionDidMove -let dragInteraction4 x ~sessionWillBegin self = msg_send ~self ~cmd:(selector "dragInteraction:sessionWillBegin:") ~typ:(id @-> id @-> returning (void)) x sessionWillBegin -let dragInteraction5 x ~item ~willAnimateCancelWithAnimator self = msg_send ~self ~cmd:(selector "dragInteraction:item:willAnimateCancelWithAnimator:") ~typ:(id @-> id @-> id @-> returning (void)) x item willAnimateCancelWithAnimator -let dragInteraction6 x ~itemsForAddingToSession ~withTouchAtPoint self = msg_send ~self ~cmd:(selector "dragInteraction:itemsForAddingToSession:withTouchAtPoint:") ~typ:(id @-> id @-> CGPoint.t @-> returning (id)) x itemsForAddingToSession withTouchAtPoint -let dragInteraction7 x ~previewForCancellingItem ~withDefault self = msg_send ~self ~cmd:(selector "dragInteraction:previewForCancellingItem:withDefault:") ~typ:(id @-> id @-> id @-> returning (id)) x previewForCancellingItem withDefault -let dragInteraction8 x ~previewForLiftingItem ~session self = msg_send ~self ~cmd:(selector "dragInteraction:previewForLiftingItem:session:") ~typ:(id @-> id @-> id @-> returning (id)) x previewForLiftingItem session -let dragInteraction9 x ~session ~didEndWithOperation self = msg_send ~self ~cmd:(selector "dragInteraction:session:didEndWithOperation:") ~typ:(id @-> id @-> ullong @-> returning (void)) x session (ULLong.of_int didEndWithOperation) -let dragInteraction10 x ~session ~willEndWithOperation self = msg_send ~self ~cmd:(selector "dragInteraction:session:willEndWithOperation:") ~typ:(id @-> id @-> ullong @-> returning (void)) x session (ULLong.of_int willEndWithOperation) -let dragInteraction11 x ~sessionForAddingItems ~withTouchAtPoint self = msg_send ~self ~cmd:(selector "dragInteraction:sessionForAddingItems:withTouchAtPoint:") ~typ:(id @-> id @-> CGPoint.t @-> returning (id)) x sessionForAddingItems withTouchAtPoint -let dragInteraction12 x ~willAnimateLiftWithAnimator ~session self = msg_send ~self ~cmd:(selector "dragInteraction:willAnimateLiftWithAnimator:session:") ~typ:(id @-> id @-> id @-> returning (void)) x willAnimateLiftWithAnimator session -let dropInteraction self = msg_send ~self ~cmd:(selector "dropInteraction") ~typ:(returning (id)) -let dropInteraction1 x ~canHandleSession self = msg_send ~self ~cmd:(selector "dropInteraction:canHandleSession:") ~typ:(id @-> id @-> returning (bool)) x canHandleSession -let dropInteraction2 x ~concludeDrop self = msg_send ~self ~cmd:(selector "dropInteraction:concludeDrop:") ~typ:(id @-> id @-> returning (void)) x concludeDrop -let dropInteraction3 x ~performDrop self = msg_send ~self ~cmd:(selector "dropInteraction:performDrop:") ~typ:(id @-> id @-> returning (void)) x performDrop -let dropInteraction4 x ~sessionDidEnd self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidEnd:") ~typ:(id @-> id @-> returning (void)) x sessionDidEnd -let dropInteraction5 x ~sessionDidEnter self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidEnter:") ~typ:(id @-> id @-> returning (void)) x sessionDidEnter -let dropInteraction6 x ~sessionDidExit self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidExit:") ~typ:(id @-> id @-> returning (void)) x sessionDidExit -let dropInteraction7 x ~sessionDidUpdate self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidUpdate:") ~typ:(id @-> id @-> returning (id)) x sessionDidUpdate -let dropInteraction8 x ~item ~willAnimateDropWithAnimator self = msg_send ~self ~cmd:(selector "dropInteraction:item:willAnimateDropWithAnimator:") ~typ:(id @-> id @-> id @-> returning (void)) x item willAnimateDropWithAnimator -let dropInteraction9 x ~previewForDroppingItem ~withDefault self = msg_send ~self ~cmd:(selector "dropInteraction:previewForDroppingItem:withDefault:") ~typ:(id @-> id @-> id @-> returning (id)) x previewForDroppingItem withDefault -let geometry self = msg_send ~self ~cmd:(selector "geometry") ~typ:(returning (id)) -let initWithDraggableOnlyView x self = msg_send ~self ~cmd:(selector "initWithDraggableOnlyView:") ~typ:(id @-> returning (id)) x -let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning (id)) x -let initWithView' x ~geometry self = msg_send ~self ~cmd:(selector "initWithView:geometry:") ~typ:(id @-> id @-> returning (id)) x geometry -let installDragInteractionIfNeeded self = msg_send ~self ~cmd:(selector "installDragInteractionIfNeeded") ~typ:(returning (void)) -let installDropInteractionIfNeeded self = msg_send ~self ~cmd:(selector "installDropInteractionIfNeeded") ~typ:(returning (void)) -let invalidateDropCaret self = msg_send ~self ~cmd:(selector "invalidateDropCaret") ~typ:(returning (void)) -let isDragActive self = msg_send ~self ~cmd:(selector "isDragActive") ~typ:(returning (bool)) -let isDropActive self = msg_send ~self ~cmd:(selector "isDropActive") ~typ:(returning (bool)) -let notifyTextInteraction self = msg_send ~self ~cmd:(selector "notifyTextInteraction") ~typ:(returning (void)) -let textPasteSessionDidEndPasting x self = msg_send ~self ~cmd:(selector "textPasteSessionDidEndPasting:") ~typ:(id @-> returning (void)) x -let textPasteSessionDidRevealPasteResult x self = msg_send ~self ~cmd:(selector "textPasteSessionDidRevealPasteResult:") ~typ:(id @-> returning (void)) x -let textPasteSessionWillBeginPasting x self = msg_send ~self ~cmd:(selector "textPasteSessionWillBeginPasting:") ~typ:(id @-> returning (void)) x -let textPasteSessionWillHidePasteResult x self = msg_send ~self ~cmd:(selector "textPasteSessionWillHidePasteResult:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITextDragAssistant" + +let accessibilityCanDrag self = msg_send ~self ~cmd:(selector "accessibilityCanDrag") ~typ:(returning bool) +let dragInteraction self = msg_send ~self ~cmd:(selector "dragInteraction") ~typ:(returning id) +let dragInteraction1 x ~itemsForBeginningSession self = msg_send ~self ~cmd:(selector "dragInteraction:itemsForBeginningSession:") ~typ:(id @-> id @-> returning id) x itemsForBeginningSession +let dragInteraction2 x ~prefersFullSizePreviewsForSession self = msg_send ~self ~cmd:(selector "dragInteraction:prefersFullSizePreviewsForSession:") ~typ:(id @-> id @-> returning bool) x prefersFullSizePreviewsForSession +let dragInteraction3 x ~sessionDidMove self = msg_send ~self ~cmd:(selector "dragInteraction:sessionDidMove:") ~typ:(id @-> id @-> returning void) x sessionDidMove +let dragInteraction4 x ~sessionWillBegin self = msg_send ~self ~cmd:(selector "dragInteraction:sessionWillBegin:") ~typ:(id @-> id @-> returning void) x sessionWillBegin +let dragInteraction5 x ~item ~willAnimateCancelWithAnimator self = msg_send ~self ~cmd:(selector "dragInteraction:item:willAnimateCancelWithAnimator:") ~typ:(id @-> id @-> id @-> returning void) x item willAnimateCancelWithAnimator +let dragInteraction6 x ~itemsForAddingToSession ~withTouchAtPoint self = msg_send ~self ~cmd:(selector "dragInteraction:itemsForAddingToSession:withTouchAtPoint:") ~typ:(id @-> id @-> CGPoint.t @-> returning id) x itemsForAddingToSession withTouchAtPoint +let dragInteraction7 x ~previewForCancellingItem ~withDefault self = msg_send ~self ~cmd:(selector "dragInteraction:previewForCancellingItem:withDefault:") ~typ:(id @-> id @-> id @-> returning id) x previewForCancellingItem withDefault +let dragInteraction8 x ~previewForLiftingItem ~session self = msg_send ~self ~cmd:(selector "dragInteraction:previewForLiftingItem:session:") ~typ:(id @-> id @-> id @-> returning id) x previewForLiftingItem session +let dragInteraction9 x ~session ~didEndWithOperation self = msg_send ~self ~cmd:(selector "dragInteraction:session:didEndWithOperation:") ~typ:(id @-> id @-> ullong @-> returning void) x session (ULLong.of_int didEndWithOperation) +let dragInteraction10 x ~session ~willEndWithOperation self = msg_send ~self ~cmd:(selector "dragInteraction:session:willEndWithOperation:") ~typ:(id @-> id @-> ullong @-> returning void) x session (ULLong.of_int willEndWithOperation) +let dragInteraction11 x ~sessionForAddingItems ~withTouchAtPoint self = msg_send ~self ~cmd:(selector "dragInteraction:sessionForAddingItems:withTouchAtPoint:") ~typ:(id @-> id @-> CGPoint.t @-> returning id) x sessionForAddingItems withTouchAtPoint +let dragInteraction12 x ~willAnimateLiftWithAnimator ~session self = msg_send ~self ~cmd:(selector "dragInteraction:willAnimateLiftWithAnimator:session:") ~typ:(id @-> id @-> id @-> returning void) x willAnimateLiftWithAnimator session +let dropInteraction self = msg_send ~self ~cmd:(selector "dropInteraction") ~typ:(returning id) +let dropInteraction1 x ~canHandleSession self = msg_send ~self ~cmd:(selector "dropInteraction:canHandleSession:") ~typ:(id @-> id @-> returning bool) x canHandleSession +let dropInteraction2 x ~concludeDrop self = msg_send ~self ~cmd:(selector "dropInteraction:concludeDrop:") ~typ:(id @-> id @-> returning void) x concludeDrop +let dropInteraction3 x ~performDrop self = msg_send ~self ~cmd:(selector "dropInteraction:performDrop:") ~typ:(id @-> id @-> returning void) x performDrop +let dropInteraction4 x ~sessionDidEnd self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidEnd:") ~typ:(id @-> id @-> returning void) x sessionDidEnd +let dropInteraction5 x ~sessionDidEnter self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidEnter:") ~typ:(id @-> id @-> returning void) x sessionDidEnter +let dropInteraction6 x ~sessionDidExit self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidExit:") ~typ:(id @-> id @-> returning void) x sessionDidExit +let dropInteraction7 x ~sessionDidUpdate self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidUpdate:") ~typ:(id @-> id @-> returning id) x sessionDidUpdate +let dropInteraction8 x ~item ~willAnimateDropWithAnimator self = msg_send ~self ~cmd:(selector "dropInteraction:item:willAnimateDropWithAnimator:") ~typ:(id @-> id @-> id @-> returning void) x item willAnimateDropWithAnimator +let dropInteraction9 x ~previewForDroppingItem ~withDefault self = msg_send ~self ~cmd:(selector "dropInteraction:previewForDroppingItem:withDefault:") ~typ:(id @-> id @-> id @-> returning id) x previewForDroppingItem withDefault +let geometry self = msg_send ~self ~cmd:(selector "geometry") ~typ:(returning id) +let initWithDraggableOnlyView x self = msg_send ~self ~cmd:(selector "initWithDraggableOnlyView:") ~typ:(id @-> returning id) x +let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning id) x +let initWithView' x ~geometry self = msg_send ~self ~cmd:(selector "initWithView:geometry:") ~typ:(id @-> id @-> returning id) x geometry +let installDragInteractionIfNeeded self = msg_send ~self ~cmd:(selector "installDragInteractionIfNeeded") ~typ:(returning void) +let installDropInteractionIfNeeded self = msg_send ~self ~cmd:(selector "installDropInteractionIfNeeded") ~typ:(returning void) +let invalidateDropCaret self = msg_send ~self ~cmd:(selector "invalidateDropCaret") ~typ:(returning void) +let isDragActive self = msg_send ~self ~cmd:(selector "isDragActive") ~typ:(returning bool) +let isDropActive self = msg_send ~self ~cmd:(selector "isDropActive") ~typ:(returning bool) +let notifyTextInteraction self = msg_send ~self ~cmd:(selector "notifyTextInteraction") ~typ:(returning void) +let textPasteSessionDidEndPasting x self = msg_send ~self ~cmd:(selector "textPasteSessionDidEndPasting:") ~typ:(id @-> returning void) x +let textPasteSessionDidRevealPasteResult x self = msg_send ~self ~cmd:(selector "textPasteSessionDidRevealPasteResult:") ~typ:(id @-> returning void) x +let textPasteSessionWillBeginPasting x self = msg_send ~self ~cmd:(selector "textPasteSessionWillBeginPasting:") ~typ:(id @-> returning void) x +let textPasteSessionWillHidePasteResult x self = msg_send ~self ~cmd:(selector "textPasteSessionWillHidePasteResult:") ~typ:(id @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextDragFinishState.ml b/uikit/UITextDragFinishState.ml index 5347a9c9..ca172eb0 100644 --- a/uikit/UITextDragFinishState.ml +++ b/uikit/UITextDragFinishState.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextDragFinishState" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextdragfinishstate?language=objc}UITextDragFinishState} *) -let dragTearoffOccured self = msg_send ~self ~cmd:(selector "dragTearoffOccured") ~typ:(returning (bool)) -let location self = msg_send_stret ~self ~cmd:(selector "location") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let setDragTearoffOccured x self = msg_send ~self ~cmd:(selector "setDragTearoffOccured:") ~typ:(bool @-> returning (void)) x -let setLocation x self = msg_send ~self ~cmd:(selector "setLocation:") ~typ:(CGPoint.t @-> returning (void)) x \ No newline at end of file +let self = get_class "UITextDragFinishState" + +let dragTearoffOccured self = msg_send ~self ~cmd:(selector "dragTearoffOccured") ~typ:(returning bool) +let location self = msg_send ~self ~cmd:(selector "location") ~typ:(returning CGPoint.t) +let setDragTearoffOccured x self = msg_send ~self ~cmd:(selector "setDragTearoffOccured:") ~typ:(bool @-> returning void) x +let setLocation x self = msg_send ~self ~cmd:(selector "setLocation:") ~typ:(CGPoint.t @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextDragPreviewRenderer.ml b/uikit/UITextDragPreviewRenderer.ml index c94faa80..cb51dce0 100644 --- a/uikit/UITextDragPreviewRenderer.ml +++ b/uikit/UITextDragPreviewRenderer.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextDragPreviewRenderer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextdragpreviewrenderer?language=objc}UITextDragPreviewRenderer} *) -let addRenderingAttributes x self = msg_send ~self ~cmd:(selector "addRenderingAttributes:") ~typ:(id @-> returning (void)) x -let adjustFirstLineRect x ~bodyRect ~lastLineRect ~textOrigin self = msg_send ~self ~cmd:(selector "adjustFirstLineRect:bodyRect:lastLineRect:textOrigin:") ~typ:(ptr (CGRect.t) @-> ptr (CGRect.t) @-> ptr (CGRect.t) @-> CGPoint.t @-> returning (void)) x bodyRect lastLineRect textOrigin -let bodyRect self = msg_send_stret ~self ~cmd:(selector "bodyRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let firstLineRect self = msg_send_stret ~self ~cmd:(selector "firstLineRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let initWithLayoutManager x ~range self = msg_send ~self ~cmd:(selector "initWithLayoutManager:range:") ~typ:(id @-> NSRange.t @-> returning (id)) x range -let initWithLayoutManager' x ~range ~unifyRects self = msg_send ~self ~cmd:(selector "initWithLayoutManager:range:unifyRects:") ~typ:(id @-> NSRange.t @-> bool @-> returning (id)) x range unifyRects -let lastLineRect self = msg_send_stret ~self ~cmd:(selector "lastLineRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let layoutManager self = msg_send ~self ~cmd:(selector "layoutManager") ~typ:(returning (id)) -let removeRenderingAttributes x self = msg_send ~self ~cmd:(selector "removeRenderingAttributes:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UITextDragPreviewRenderer" + +let addRenderingAttributes x self = msg_send ~self ~cmd:(selector "addRenderingAttributes:") ~typ:(id @-> returning void) x +let adjustFirstLineRect x ~bodyRect ~lastLineRect ~textOrigin self = msg_send ~self ~cmd:(selector "adjustFirstLineRect:bodyRect:lastLineRect:textOrigin:") ~typ:((ptr CGRect.t) @-> (ptr CGRect.t) @-> (ptr CGRect.t) @-> CGPoint.t @-> returning void) x bodyRect lastLineRect textOrigin +let bodyRect self = msg_send ~self ~cmd:(selector "bodyRect") ~typ:(returning CGRect.t) +let firstLineRect self = msg_send ~self ~cmd:(selector "firstLineRect") ~typ:(returning CGRect.t) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let initWithLayoutManager x ~range self = msg_send ~self ~cmd:(selector "initWithLayoutManager:range:") ~typ:(id @-> NSRange.t @-> returning id) x range +let initWithLayoutManager' x ~range ~unifyRects self = msg_send ~self ~cmd:(selector "initWithLayoutManager:range:unifyRects:") ~typ:(id @-> NSRange.t @-> bool @-> returning id) x range unifyRects +let lastLineRect self = msg_send ~self ~cmd:(selector "lastLineRect") ~typ:(returning CGRect.t) +let layoutManager self = msg_send ~self ~cmd:(selector "layoutManager") ~typ:(returning id) +let removeRenderingAttributes x self = msg_send ~self ~cmd:(selector "removeRenderingAttributes:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextDragRequest.ml b/uikit/UITextDragRequest.ml index 47388014..b434387f 100644 --- a/uikit/UITextDragRequest.ml +++ b/uikit/UITextDragRequest.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextDragRequest" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextdragrequest?language=objc}UITextDragRequest} *) -let dragRange self = msg_send ~self ~cmd:(selector "dragRange") ~typ:(returning (id)) -let dragSession self = msg_send ~self ~cmd:(selector "dragSession") ~typ:(returning (id)) -let existingItems self = msg_send ~self ~cmd:(selector "existingItems") ~typ:(returning (id)) -let initWithRange x ~inSession self = msg_send ~self ~cmd:(selector "initWithRange:inSession:") ~typ:(id @-> id @-> returning (id)) x inSession -let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning (bool)) -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setSuggestedItems x self = msg_send ~self ~cmd:(selector "setSuggestedItems:") ~typ:(id @-> returning (void)) x -let suggestedItems self = msg_send ~self ~cmd:(selector "suggestedItems") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITextDragRequest" + +let dragRange self = msg_send ~self ~cmd:(selector "dragRange") ~typ:(returning id) +let dragSession self = msg_send ~self ~cmd:(selector "dragSession") ~typ:(returning id) +let existingItems self = msg_send ~self ~cmd:(selector "existingItems") ~typ:(returning id) +let initWithRange x ~inSession self = msg_send ~self ~cmd:(selector "initWithRange:inSession:") ~typ:(id @-> id @-> returning id) x inSession +let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning bool) +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setSuggestedItems x self = msg_send ~self ~cmd:(selector "setSuggestedItems:") ~typ:(id @-> returning void) x +let suggestedItems self = msg_send ~self ~cmd:(selector "suggestedItems") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextDraggableGeometrySameViewDropOperationResult.ml b/uikit/UITextDraggableGeometrySameViewDropOperationResult.ml deleted file mode 100644 index 9bbcb2a1..00000000 --- a/uikit/UITextDraggableGeometrySameViewDropOperationResult.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextDraggableGeometrySameViewDropOperationResult" - -module C = struct - let resultWithRange x ~targetedPreviewProvider self = msg_send ~self ~cmd:(selector "resultWithRange:targetedPreviewProvider:") ~typ:(id @-> ptr void @-> returning (id)) x targetedPreviewProvider -end - -let initWithRange x ~targetedPreviewProvider self = msg_send ~self ~cmd:(selector "initWithRange:targetedPreviewProvider:") ~typ:(id @-> ptr void @-> returning (id)) x targetedPreviewProvider -let resultRange self = msg_send ~self ~cmd:(selector "resultRange") ~typ:(returning (id)) -let targetedPreviewProvider self = msg_send ~self ~cmd:(selector "targetedPreviewProvider") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/uikit/UITextDraggableObject.ml b/uikit/UITextDraggableObject.ml index 4adacf20..5585be80 100644 --- a/uikit/UITextDraggableObject.ml +++ b/uikit/UITextDraggableObject.ml @@ -5,18 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextDraggableObject" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextdraggableobject?language=objc}UITextDraggableObject} *) -module C = struct - let draggableObjectWithItemProvider x ~fromRange self = msg_send ~self ~cmd:(selector "draggableObjectWithItemProvider:fromRange:") ~typ:(id @-> id @-> returning (id)) x fromRange -end +let self = get_class "UITextDraggableObject" -let itemProvider self = msg_send ~self ~cmd:(selector "itemProvider") ~typ:(returning (id)) +let itemProvider self = msg_send ~self ~cmd:(selector "itemProvider") ~typ:(returning id) let previewProvider self = msg_send ~self ~cmd:(selector "previewProvider") ~typ:(returning (ptr void)) -let range self = msg_send ~self ~cmd:(selector "range") ~typ:(returning (id)) -let setItemProvider x self = msg_send ~self ~cmd:(selector "setItemProvider:") ~typ:(id @-> returning (void)) x -let setPreviewProvider x self = msg_send ~self ~cmd:(selector "setPreviewProvider:") ~typ:(ptr void @-> returning (void)) x -let setRange x self = msg_send ~self ~cmd:(selector "setRange:") ~typ:(id @-> returning (void)) x -let setTargetedPreviewProvider x self = msg_send ~self ~cmd:(selector "setTargetedPreviewProvider:") ~typ:(ptr void @-> returning (void)) x +let range self = msg_send ~self ~cmd:(selector "range") ~typ:(returning id) +let setItemProvider x self = msg_send ~self ~cmd:(selector "setItemProvider:") ~typ:(id @-> returning void) x +let setPreviewProvider x self = msg_send ~self ~cmd:(selector "setPreviewProvider:") ~typ:((ptr void) @-> returning void) x +let setRange x self = msg_send ~self ~cmd:(selector "setRange:") ~typ:(id @-> returning void) x +let setTargetedPreviewProvider x self = msg_send ~self ~cmd:(selector "setTargetedPreviewProvider:") ~typ:((ptr void) @-> returning void) x let targetedPreviewProvider self = msg_send ~self ~cmd:(selector "targetedPreviewProvider") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/uikit/UITextDraggableObjectClass.ml b/uikit/UITextDraggableObjectClass.ml new file mode 100644 index 00000000..ba60893e --- /dev/null +++ b/uikit/UITextDraggableObjectClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextdraggableobject?language=objc}UITextDraggableObject} *) + +let draggableObjectWithItemProvider x ~fromRange self = msg_send ~self ~cmd:(selector "draggableObjectWithItemProvider:fromRange:") ~typ:(id @-> id @-> returning id) x fromRange \ No newline at end of file diff --git a/uikit/UITextDropProposal.ml b/uikit/UITextDropProposal.ml index a2e36014..7245f70e 100644 --- a/uikit/UITextDropProposal.ml +++ b/uikit/UITextDropProposal.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextDropProposal" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextdropproposal?language=objc}UITextDropProposal} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dropAction self = msg_send ~self ~cmd:(selector "dropAction") ~typ:(returning (ullong)) -let dropPerformer self = msg_send ~self ~cmd:(selector "dropPerformer") ~typ:(returning (ullong)) -let dropProgressMode self = msg_send ~self ~cmd:(selector "dropProgressMode") ~typ:(returning (ullong)) -let initWithDropOperation x self = msg_send ~self ~cmd:(selector "initWithDropOperation:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let setDropAction x self = msg_send ~self ~cmd:(selector "setDropAction:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDropPerformer x self = msg_send ~self ~cmd:(selector "setDropPerformer:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDropProgressMode x self = msg_send ~self ~cmd:(selector "setDropProgressMode:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setUseFastSameViewOperations x self = msg_send ~self ~cmd:(selector "setUseFastSameViewOperations:") ~typ:(bool @-> returning (void)) x -let useFastSameViewOperations self = msg_send ~self ~cmd:(selector "useFastSameViewOperations") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UITextDropProposal" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dropAction self = msg_send ~self ~cmd:(selector "dropAction") ~typ:(returning ullong) +let dropPerformer self = msg_send ~self ~cmd:(selector "dropPerformer") ~typ:(returning ullong) +let dropProgressMode self = msg_send ~self ~cmd:(selector "dropProgressMode") ~typ:(returning ullong) +let initWithDropOperation x self = msg_send ~self ~cmd:(selector "initWithDropOperation:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let setDropAction x self = msg_send ~self ~cmd:(selector "setDropAction:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDropPerformer x self = msg_send ~self ~cmd:(selector "setDropPerformer:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDropProgressMode x self = msg_send ~self ~cmd:(selector "setDropProgressMode:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setUseFastSameViewOperations x self = msg_send ~self ~cmd:(selector "setUseFastSameViewOperations:") ~typ:(bool @-> returning void) x +let useFastSameViewOperations self = msg_send ~self ~cmd:(selector "useFastSameViewOperations") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITextDropRequest.ml b/uikit/UITextDropRequest.ml index 7e56a6f9..b21c161d 100644 --- a/uikit/UITextDropRequest.ml +++ b/uikit/UITextDropRequest.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextDropRequest" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextdroprequest?language=objc}UITextDropRequest} *) -let dropPosition self = msg_send ~self ~cmd:(selector "dropPosition") ~typ:(returning (id)) -let dropRange self = msg_send ~self ~cmd:(selector "dropRange") ~typ:(returning (id)) -let dropSession self = msg_send ~self ~cmd:(selector "dropSession") ~typ:(returning (id)) -let initWithPosition x ~range ~inSession self = msg_send ~self ~cmd:(selector "initWithPosition:range:inSession:") ~typ:(id @-> id @-> id @-> returning (id)) x range inSession -let isSameView self = msg_send ~self ~cmd:(selector "isSameView") ~typ:(returning (bool)) -let setSameView x self = msg_send ~self ~cmd:(selector "setSameView:") ~typ:(bool @-> returning (void)) x -let setSuggestedProposal x self = msg_send ~self ~cmd:(selector "setSuggestedProposal:") ~typ:(id @-> returning (void)) x -let suggestedProposal self = msg_send ~self ~cmd:(selector "suggestedProposal") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITextDropRequest" + +let dropPosition self = msg_send ~self ~cmd:(selector "dropPosition") ~typ:(returning id) +let dropRange self = msg_send ~self ~cmd:(selector "dropRange") ~typ:(returning id) +let dropSession self = msg_send ~self ~cmd:(selector "dropSession") ~typ:(returning id) +let initWithPosition x ~range ~inSession self = msg_send ~self ~cmd:(selector "initWithPosition:range:inSession:") ~typ:(id @-> id @-> id @-> returning id) x range inSession +let isSameView self = msg_send ~self ~cmd:(selector "isSameView") ~typ:(returning bool) +let setSameView x self = msg_send ~self ~cmd:(selector "setSameView:") ~typ:(bool @-> returning void) x +let setSuggestedProposal x self = msg_send ~self ~cmd:(selector "setSuggestedProposal:") ~typ:(id @-> returning void) x +let suggestedProposal self = msg_send ~self ~cmd:(selector "suggestedProposal") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextEffectsHostingInfo.ml b/uikit/UITextEffectsHostingInfo.ml index f9cd1314..0c8125c2 100644 --- a/uikit/UITextEffectsHostingInfo.ml +++ b/uikit/UITextEffectsHostingInfo.ml @@ -5,16 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextEffectsHostingInfo" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitexteffectshostinginfo?language=objc}UITextEffectsHostingInfo} *) -module C = struct - let hostingInfoForWindowScene x self = msg_send ~self ~cmd:(selector "hostingInfoForWindowScene:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UITextEffectsHostingInfo" -let perSceneOptions self = msg_send ~self ~cmd:(selector "perSceneOptions") ~typ:(returning (id)) -let scene self = msg_send ~self ~cmd:(selector "scene") ~typ:(returning (id)) -let setPerSceneOptions x self = msg_send ~self ~cmd:(selector "setPerSceneOptions:") ~typ:(id @-> returning (void)) x -let setScene x self = msg_send ~self ~cmd:(selector "setScene:") ~typ:(id @-> returning (void)) x -let setUseHostedInstance x self = msg_send ~self ~cmd:(selector "setUseHostedInstance:") ~typ:(bool @-> returning (void)) x -let useHostedInstance self = msg_send ~self ~cmd:(selector "useHostedInstance") ~typ:(returning (bool)) \ No newline at end of file +let perSceneOptions self = msg_send ~self ~cmd:(selector "perSceneOptions") ~typ:(returning id) +let scene self = msg_send ~self ~cmd:(selector "scene") ~typ:(returning id) +let setPerSceneOptions x self = msg_send ~self ~cmd:(selector "setPerSceneOptions:") ~typ:(id @-> returning void) x +let setScene x self = msg_send ~self ~cmd:(selector "setScene:") ~typ:(id @-> returning void) x +let setUseHostedInstance x self = msg_send ~self ~cmd:(selector "setUseHostedInstance:") ~typ:(bool @-> returning void) x +let useHostedInstance self = msg_send ~self ~cmd:(selector "useHostedInstance") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITextEffectsHostingInfoClass.ml b/uikit/UITextEffectsHostingInfoClass.ml new file mode 100644 index 00000000..ead68e1d --- /dev/null +++ b/uikit/UITextEffectsHostingInfoClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitexteffectshostinginfo?language=objc}UITextEffectsHostingInfo} *) + +let hostingInfoForWindowScene x self = msg_send ~self ~cmd:(selector "hostingInfoForWindowScene:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UITextEffectsWindow.ml b/uikit/UITextEffectsWindow.ml index a52abff0..e94e3bbc 100644 --- a/uikit/UITextEffectsWindow.ml +++ b/uikit/UITextEffectsWindow.ml @@ -5,70 +5,59 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextEffectsWindow" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitexteffectswindow?language=objc}UITextEffectsWindow} *) -module C = struct - let activeTextEffectsWindowForCanvas x self = msg_send ~self ~cmd:(selector "activeTextEffectsWindowForCanvas:") ~typ:(id @-> returning (id)) x - let activeTextEffectsWindowForScreen x self = msg_send ~self ~cmd:(selector "activeTextEffectsWindowForScreen:") ~typ:(id @-> returning (id)) x - let activeTextEffectsWindowForWindowScene x self = msg_send ~self ~cmd:(selector "activeTextEffectsWindowForWindowScene:") ~typ:(id @-> returning (id)) x - let activeTextEffectsWindowForWindowScene' x ~forViewService self = msg_send ~self ~cmd:(selector "activeTextEffectsWindowForWindowScene:forViewService:") ~typ:(id @-> bool @-> returning (id)) x forViewService - let lowerTextEffectsWindowsForHideNotificationCenter self = msg_send ~self ~cmd:(selector "lowerTextEffectsWindowsForHideNotificationCenter") ~typ:(returning (void)) - let raiseTextEffectsWindowsForShowNotificationCenter self = msg_send ~self ~cmd:(selector "raiseTextEffectsWindowsForShowNotificationCenter") ~typ:(returning (void)) - let releaseSharedInstances self = msg_send ~self ~cmd:(selector "releaseSharedInstances") ~typ:(returning (void)) - let sharedTextEffectsWindow self = msg_send ~self ~cmd:(selector "sharedTextEffectsWindow") ~typ:(returning (id)) - let sharedTextEffectsWindowAboveStatusBar self = msg_send ~self ~cmd:(selector "sharedTextEffectsWindowAboveStatusBar") ~typ:(returning (id)) - let sharedTextEffectsWindowForCanvas x self = msg_send ~self ~cmd:(selector "sharedTextEffectsWindowForCanvas:") ~typ:(id @-> returning (id)) x - let sharedTextEffectsWindowForScreen x self = msg_send ~self ~cmd:(selector "sharedTextEffectsWindowForScreen:") ~typ:(id @-> returning (id)) x - let sharedTextEffectsWindowForWindowScene x self = msg_send ~self ~cmd:(selector "sharedTextEffectsWindowForWindowScene:") ~typ:(id @-> returning (id)) x - let sharedTextEffectsWindowForWindowScene' x ~forViewService self = msg_send ~self ~cmd:(selector "sharedTextEffectsWindowForWindowScene:forViewService:") ~typ:(id @-> bool @-> returning (id)) x forViewService -end +let self = get_class "UITextEffectsWindow" -let aboveStatusBarWindow self = msg_send ~self ~cmd:(selector "aboveStatusBarWindow") ~typ:(returning (id)) -let actualSceneBounds self = msg_send_stret ~self ~cmd:(selector "actualSceneBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let actualSceneBoundsForLandscape x self = msg_send_stret ~self ~cmd:(selector "actualSceneBoundsForLandscape:") ~typ:(bool @-> returning (CGRect.t)) ~return_type:CGRect.t x -let actualSceneFrame self = msg_send_stret ~self ~cmd:(selector "actualSceneFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let actualSceneFrameForOrientation x self = msg_send_stret ~self ~cmd:(selector "actualSceneFrameForOrientation:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) -let actualSceneOrientation self = msg_send ~self ~cmd:(selector "actualSceneOrientation") ~typ:(returning (llong)) -let addBottomPadding x self = msg_send ~self ~cmd:(selector "addBottomPadding:") ~typ:(double @-> returning (void)) x -let becomeKeyWindow self = msg_send ~self ~cmd:(selector "becomeKeyWindow") ~typ:(returning (void)) -let bringSubviewToFront x self = msg_send ~self ~cmd:(selector "bringSubviewToFront:") ~typ:(id @-> returning (void)) x -let contextID self = msg_send ~self ~cmd:(selector "contextID") ~typ:(returning (uint)) -let convertPoint x ~fromView self = msg_send_stret ~self ~cmd:(selector "convertPoint:fromView:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x fromView -let convertPoint1 x ~fromWindow self = msg_send_stret ~self ~cmd:(selector "convertPoint:fromWindow:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x fromWindow -let convertPoint2 x ~toView self = msg_send_stret ~self ~cmd:(selector "convertPoint:toView:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x toView -let convertPoint3 x ~toWindow self = msg_send_stret ~self ~cmd:(selector "convertPoint:toWindow:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x toWindow -let convertRect x ~fromView self = msg_send_stret ~self ~cmd:(selector "convertRect:fromView:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x fromView -let convertRect1 x ~fromWindow self = msg_send_stret ~self ~cmd:(selector "convertRect:fromWindow:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x fromWindow -let convertRect2 x ~toView self = msg_send_stret ~self ~cmd:(selector "convertRect:toView:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x toView -let convertRect3 x ~toWindow self = msg_send_stret ~self ~cmd:(selector "convertRect:toWindow:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x toWindow -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultWindowLevel self = msg_send ~self ~cmd:(selector "defaultWindowLevel") ~typ:(returning (double)) -let delayHideWindow self = msg_send ~self ~cmd:(selector "delayHideWindow") ~typ:(returning (void)) -let didAddSubview x self = msg_send ~self ~cmd:(selector "didAddSubview:") ~typ:(id @-> returning (void)) x -let editingOverlayViewController self = msg_send ~self ~cmd:(selector "editingOverlayViewController") ~typ:(returning (id)) -let enableRemoteHosting self = msg_send ~self ~cmd:(selector "enableRemoteHosting") ~typ:(returning (bool)) -let handleStatusBarChangeFromHeight x ~toHeight self = msg_send ~self ~cmd:(selector "handleStatusBarChangeFromHeight:toHeight:") ~typ:(double @-> double @-> returning (void)) x toHeight -let hostedFrame self = msg_send_stret ~self ~cmd:(selector "hostedFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let hostedSceneSize self = msg_send_stret ~self ~cmd:(selector "hostedSceneSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let hostedWindowOffset self = msg_send_stret ~self ~cmd:(selector "hostedWindowOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning (llong)) -let isForViewService self = msg_send ~self ~cmd:(selector "isForViewService") ~typ:(returning (bool)) -let isFullscreen self = msg_send ~self ~cmd:(selector "isFullscreen") ~typ:(returning (bool)) -let isInternalWindow self = msg_send ~self ~cmd:(selector "isInternalWindow") ~typ:(returning (bool)) -let keyboardScreenReferenceSize self = msg_send_stret ~self ~cmd:(selector "keyboardScreenReferenceSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let keyboardWidthForCurrentDevice self = msg_send ~self ~cmd:(selector "keyboardWidthForCurrentDevice") ~typ:(returning (double)) -let resetTransform self = msg_send ~self ~cmd:(selector "resetTransform") ~typ:(returning (void)) -let sendSubviewToBack x self = msg_send ~self ~cmd:(selector "sendSubviewToBack:") ~typ:(id @-> returning (void)) x -let setDefaultWindowLevel x self = msg_send ~self ~cmd:(selector "setDefaultWindowLevel:") ~typ:(double @-> returning (void)) x -let setEnableRemoteHosting x self = msg_send ~self ~cmd:(selector "setEnableRemoteHosting:") ~typ:(bool @-> returning (void)) x -let setHostedSafeInsets x self = msg_send ~self ~cmd:(selector "setHostedSafeInsets:") ~typ:(ptr void @-> returning (void)) x -let setHostedSceneSize x self = msg_send ~self ~cmd:(selector "setHostedSceneSize:") ~typ:(CGSize.t @-> returning (void)) x -let setHostedWindowOffset x self = msg_send ~self ~cmd:(selector "setHostedWindowOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let slideOverWindowVerticalOffset self = msg_send ~self ~cmd:(selector "slideOverWindowVerticalOffset") ~typ:(returning (double)) -let sortSubviews self = msg_send ~self ~cmd:(selector "sortSubviews") ~typ:(returning (void)) -let updateEditingOverlayContainer self = msg_send ~self ~cmd:(selector "updateEditingOverlayContainer") ~typ:(returning (void)) -let updateForOrientation x self = msg_send ~self ~cmd:(selector "updateForOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let updateForOrientation' x ~forceResetTransform self = msg_send ~self ~cmd:(selector "updateForOrientation:forceResetTransform:") ~typ:(llong @-> bool @-> returning (void)) (LLong.of_int x) forceResetTransform -let updateSubviewOrdering self = msg_send ~self ~cmd:(selector "updateSubviewOrdering") ~typ:(returning (void)) \ No newline at end of file +let aboveStatusBarWindow self = msg_send ~self ~cmd:(selector "aboveStatusBarWindow") ~typ:(returning id) +let actualSceneBounds self = msg_send ~self ~cmd:(selector "actualSceneBounds") ~typ:(returning CGRect.t) +let actualSceneBoundsForLandscape x self = msg_send ~self ~cmd:(selector "actualSceneBoundsForLandscape:") ~typ:(bool @-> returning CGRect.t) x +let actualSceneFrame self = msg_send ~self ~cmd:(selector "actualSceneFrame") ~typ:(returning CGRect.t) +let actualSceneFrameForOrientation x self = msg_send ~self ~cmd:(selector "actualSceneFrameForOrientation:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) +let actualSceneOrientation self = msg_send ~self ~cmd:(selector "actualSceneOrientation") ~typ:(returning llong) +let addBottomPadding x self = msg_send ~self ~cmd:(selector "addBottomPadding:") ~typ:(double @-> returning void) x +let becomeKeyWindow self = msg_send ~self ~cmd:(selector "becomeKeyWindow") ~typ:(returning void) +let bringSubviewToFront x self = msg_send ~self ~cmd:(selector "bringSubviewToFront:") ~typ:(id @-> returning void) x +let contextID self = msg_send ~self ~cmd:(selector "contextID") ~typ:(returning uint) +let convertPoint x ~fromView self = msg_send ~self ~cmd:(selector "convertPoint:fromView:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x fromView +let convertPoint1 x ~fromWindow self = msg_send ~self ~cmd:(selector "convertPoint:fromWindow:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x fromWindow +let convertPoint2 x ~toView self = msg_send ~self ~cmd:(selector "convertPoint:toView:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x toView +let convertPoint3 x ~toWindow self = msg_send ~self ~cmd:(selector "convertPoint:toWindow:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x toWindow +let convertRect x ~fromView self = msg_send ~self ~cmd:(selector "convertRect:fromView:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x fromView +let convertRect1 x ~fromWindow self = msg_send ~self ~cmd:(selector "convertRect:fromWindow:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x fromWindow +let convertRect2 x ~toView self = msg_send ~self ~cmd:(selector "convertRect:toView:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x toView +let convertRect3 x ~toWindow self = msg_send ~self ~cmd:(selector "convertRect:toWindow:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x toWindow +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultWindowLevel self = msg_send ~self ~cmd:(selector "defaultWindowLevel") ~typ:(returning double) +let delayHideWindow self = msg_send ~self ~cmd:(selector "delayHideWindow") ~typ:(returning void) +let didAddSubview x self = msg_send ~self ~cmd:(selector "didAddSubview:") ~typ:(id @-> returning void) x +let editingOverlayViewController self = msg_send ~self ~cmd:(selector "editingOverlayViewController") ~typ:(returning id) +let enableRemoteHosting self = msg_send ~self ~cmd:(selector "enableRemoteHosting") ~typ:(returning bool) +let handleStatusBarChangeFromHeight x ~toHeight self = msg_send ~self ~cmd:(selector "handleStatusBarChangeFromHeight:toHeight:") ~typ:(double @-> double @-> returning void) x toHeight +let hostedFrame self = msg_send ~self ~cmd:(selector "hostedFrame") ~typ:(returning CGRect.t) +let hostedSafeInsets self = msg_send ~self ~cmd:(selector "hostedSafeInsets") ~typ:(returning UIEdgeInsets.t) +let hostedSceneSize self = msg_send ~self ~cmd:(selector "hostedSceneSize") ~typ:(returning CGSize.t) +let hostedWindowOffset self = msg_send ~self ~cmd:(selector "hostedWindowOffset") ~typ:(returning CGPoint.t) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning llong) +let isForViewService self = msg_send ~self ~cmd:(selector "isForViewService") ~typ:(returning bool) +let isFullscreen self = msg_send ~self ~cmd:(selector "isFullscreen") ~typ:(returning bool) +let isInternalWindow self = msg_send ~self ~cmd:(selector "isInternalWindow") ~typ:(returning bool) +let keyboardScreenReferenceSize self = msg_send ~self ~cmd:(selector "keyboardScreenReferenceSize") ~typ:(returning CGSize.t) +let keyboardWidthForCurrentDevice self = msg_send ~self ~cmd:(selector "keyboardWidthForCurrentDevice") ~typ:(returning double) +let resetTransform self = msg_send ~self ~cmd:(selector "resetTransform") ~typ:(returning void) +let sendSubviewToBack x self = msg_send ~self ~cmd:(selector "sendSubviewToBack:") ~typ:(id @-> returning void) x +let setDefaultWindowLevel x self = msg_send ~self ~cmd:(selector "setDefaultWindowLevel:") ~typ:(double @-> returning void) x +let setEnableRemoteHosting x self = msg_send ~self ~cmd:(selector "setEnableRemoteHosting:") ~typ:(bool @-> returning void) x +let setHostedSafeInsets x self = msg_send ~self ~cmd:(selector "setHostedSafeInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setHostedSceneSize x self = msg_send ~self ~cmd:(selector "setHostedSceneSize:") ~typ:(CGSize.t @-> returning void) x +let setHostedWindowOffset x self = msg_send ~self ~cmd:(selector "setHostedWindowOffset:") ~typ:(CGPoint.t @-> returning void) x +let slideOverWindowVerticalOffset self = msg_send ~self ~cmd:(selector "slideOverWindowVerticalOffset") ~typ:(returning double) +let sortSubviews self = msg_send ~self ~cmd:(selector "sortSubviews") ~typ:(returning void) +let updateEditingOverlayContainer self = msg_send ~self ~cmd:(selector "updateEditingOverlayContainer") ~typ:(returning void) +let updateForOrientation x self = msg_send ~self ~cmd:(selector "updateForOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let updateForOrientation' x ~forceResetTransform self = msg_send ~self ~cmd:(selector "updateForOrientation:forceResetTransform:") ~typ:(llong @-> bool @-> returning void) (LLong.of_int x) forceResetTransform +let updateSubviewOrdering self = msg_send ~self ~cmd:(selector "updateSubviewOrdering") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UITextEffectsWindowClass.ml b/uikit/UITextEffectsWindowClass.ml new file mode 100644 index 00000000..64e9218a --- /dev/null +++ b/uikit/UITextEffectsWindowClass.ml @@ -0,0 +1,25 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitexteffectswindow?language=objc}UITextEffectsWindow} *) + +let activeTextEffectsWindowForCanvas x self = msg_send ~self ~cmd:(selector "activeTextEffectsWindowForCanvas:") ~typ:(id @-> returning id) x +let activeTextEffectsWindowForScreen x self = msg_send ~self ~cmd:(selector "activeTextEffectsWindowForScreen:") ~typ:(id @-> returning id) x +let activeTextEffectsWindowForWindowScene x self = msg_send ~self ~cmd:(selector "activeTextEffectsWindowForWindowScene:") ~typ:(id @-> returning id) x +let activeTextEffectsWindowForWindowScene' x ~forViewService self = msg_send ~self ~cmd:(selector "activeTextEffectsWindowForWindowScene:forViewService:") ~typ:(id @-> bool @-> returning id) x forViewService +let lowerTextEffectsWindowsForHideNotificationCenter self = msg_send ~self ~cmd:(selector "lowerTextEffectsWindowsForHideNotificationCenter") ~typ:(returning void) +let raiseTextEffectsWindowsForShowNotificationCenter self = msg_send ~self ~cmd:(selector "raiseTextEffectsWindowsForShowNotificationCenter") ~typ:(returning void) +let releaseSharedInstances self = msg_send ~self ~cmd:(selector "releaseSharedInstances") ~typ:(returning void) +let sharedTextEffectsWindow self = msg_send ~self ~cmd:(selector "sharedTextEffectsWindow") ~typ:(returning id) +let sharedTextEffectsWindowAboveStatusBar self = msg_send ~self ~cmd:(selector "sharedTextEffectsWindowAboveStatusBar") ~typ:(returning id) +let sharedTextEffectsWindowForCanvas x self = msg_send ~self ~cmd:(selector "sharedTextEffectsWindowForCanvas:") ~typ:(id @-> returning id) x +let sharedTextEffectsWindowForScreen x self = msg_send ~self ~cmd:(selector "sharedTextEffectsWindowForScreen:") ~typ:(id @-> returning id) x +let sharedTextEffectsWindowForWindowScene x self = msg_send ~self ~cmd:(selector "sharedTextEffectsWindowForWindowScene:") ~typ:(id @-> returning id) x +let sharedTextEffectsWindowForWindowScene' x ~forViewService self = msg_send ~self ~cmd:(selector "sharedTextEffectsWindowForWindowScene:forViewService:") ~typ:(id @-> bool @-> returning id) x forViewService \ No newline at end of file diff --git a/uikit/UITextEffectsWindowHosted.ml b/uikit/UITextEffectsWindowHosted.ml index 3a4a390b..74d3d1de 100644 --- a/uikit/UITextEffectsWindowHosted.ml +++ b/uikit/UITextEffectsWindowHosted.ml @@ -5,8 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextEffectsWindowHosted" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitexteffectswindowhosted?language=objc}UITextEffectsWindowHosted} *) -let actualSceneBounds self = msg_send ~self ~cmd:(selector "actualSceneBounds") ~typ:(returning (CGRect.t)) -let actualSceneBoundsForLandscape x self = msg_send ~self ~cmd:(selector "actualSceneBoundsForLandscape:") ~typ:(bool @-> returning (CGRect.t)) x \ No newline at end of file +let self = get_class "UITextEffectsWindowHosted" + +let actualSceneBounds self = msg_send ~self ~cmd:(selector "actualSceneBounds") ~typ:(returning CGRect.t) +let actualSceneBoundsForLandscape x self = msg_send ~self ~cmd:(selector "actualSceneBoundsForLandscape:") ~typ:(bool @-> returning CGRect.t) x +let safeAreaInsets self = msg_send ~self ~cmd:(selector "safeAreaInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit/UITextField.ml b/uikit/UITextField.ml index 43c96dfd..d74a0c88 100644 --- a/uikit/UITextField.ml +++ b/uikit/UITextField.ml @@ -5,366 +5,371 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextField" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextfield?language=objc}UITextField} *) -let actualFont self = msg_send ~self ~cmd:(selector "actualFont") ~typ:(returning (id)) -let actualMinimumFontSize self = msg_send ~self ~cmd:(selector "actualMinimumFontSize") ~typ:(returning (double)) -let addGhostedRange x self = msg_send ~self ~cmd:(selector "addGhostedRange:") ~typ:(id @-> returning (void)) x -let addInvisibleRange x self = msg_send ~self ~cmd:(selector "addInvisibleRange:") ~typ:(id @-> returning (void)) x -let adjustedCaretRectForCaretRect x self = msg_send_stret ~self ~cmd:(selector "adjustedCaretRectForCaretRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let adjustsFontForContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsFontForContentSizeCategory") ~typ:(returning (bool)) -let adjustsFontSizeToFitWidth self = msg_send ~self ~cmd:(selector "adjustsFontSizeToFitWidth") ~typ:(returning (bool)) -let allowsAttachments self = msg_send ~self ~cmd:(selector "allowsAttachments") ~typ:(returning (bool)) -let allowsDraggingAttachments self = msg_send ~self ~cmd:(selector "allowsDraggingAttachments") ~typ:(returning (bool)) -let allowsEditingTextAttributes self = msg_send ~self ~cmd:(selector "allowsEditingTextAttributes") ~typ:(returning (bool)) -let annotatedSubstringForRange x self = msg_send ~self ~cmd:(selector "annotatedSubstringForRange:") ~typ:(id @-> returning (id)) x -let attributedPlaceholder self = msg_send ~self ~cmd:(selector "attributedPlaceholder") ~typ:(returning (id)) -let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning (id)) -let attributedTextInRange x self = msg_send ~self ~cmd:(selector "attributedTextInRange:") ~typ:(id @-> returning (id)) x -let automaticallySelectedOverlay self = msg_send ~self ~cmd:(selector "automaticallySelectedOverlay") ~typ:(returning (id)) -let background self = msg_send ~self ~cmd:(selector "background") ~typ:(returning (id)) -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int inDirection) -let becomeDropResponder self = msg_send ~self ~cmd:(selector "becomeDropResponder") ~typ:(returning (void)) -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let beginFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "beginFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let beginSelectionChange self = msg_send ~self ~cmd:(selector "beginSelectionChange") ~typ:(returning (void)) -let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning (id)) -let borderRectForBounds x self = msg_send_stret ~self ~cmd:(selector "borderRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let borderStyle self = msg_send ~self ~cmd:(selector "borderStyle") ~typ:(returning (llong)) -let canBecomeDropResponder self = msg_send ~self ~cmd:(selector "canBecomeDropResponder") ~typ:(returning (bool)) -let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning (bool)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let canResignFirstResponder self = msg_send ~self ~cmd:(selector "canResignFirstResponder") ~typ:(returning (bool)) -let cancelAutoscroll self = msg_send ~self ~cmd:(selector "cancelAutoscroll") ~typ:(returning (void)) -let cancelTrackingWithEvent x self = msg_send ~self ~cmd:(selector "cancelTrackingWithEvent:") ~typ:(id @-> returning (void)) x -let capitalizeWord x self = msg_send ~self ~cmd:(selector "capitalizeWord:") ~typ:(id @-> returning (void)) x -let captureTextFromCamera x self = msg_send ~self ~cmd:(selector "captureTextFromCamera:") ~typ:(id @-> returning (void)) x -let caretRectForPosition x self = msg_send_stret ~self ~cmd:(selector "caretRectForPosition:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let characterRangeAtPoint x self = msg_send ~self ~cmd:(selector "characterRangeAtPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let characterRangeByExtendingPosition x ~inDirection self = msg_send ~self ~cmd:(selector "characterRangeByExtendingPosition:inDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int inDirection) -let clearButton self = msg_send ~self ~cmd:(selector "clearButton") ~typ:(returning (id)) -let clearButtonMode self = msg_send ~self ~cmd:(selector "clearButtonMode") ~typ:(returning (llong)) -let clearButtonOffset self = msg_send_stret ~self ~cmd:(selector "clearButtonOffset") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let clearButtonRect self = msg_send_stret ~self ~cmd:(selector "clearButtonRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let clearButtonRectForBounds x self = msg_send_stret ~self ~cmd:(selector "clearButtonRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let clearText self = msg_send ~self ~cmd:(selector "clearText") ~typ:(returning (void)) -let clearingBehavior self = msg_send ~self ~cmd:(selector "clearingBehavior") ~typ:(returning (llong)) -let clearsOnBeginEditing self = msg_send ~self ~cmd:(selector "clearsOnBeginEditing") ~typ:(returning (bool)) -let clearsOnInsertion self = msg_send ~self ~cmd:(selector "clearsOnInsertion") ~typ:(returning (bool)) -let clearsPlaceholderOnBeginEditing self = msg_send ~self ~cmd:(selector "clearsPlaceholderOnBeginEditing") ~typ:(returning (bool)) -let closestCaretRectInMarkedTextRangeForPoint x self = msg_send_stret ~self ~cmd:(selector "closestCaretRectInMarkedTextRangeForPoint:") ~typ:(CGPoint.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let closestPositionToPoint x self = msg_send ~self ~cmd:(selector "closestPositionToPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let closestPositionToPoint' x ~withinRange self = msg_send ~self ~cmd:(selector "closestPositionToPoint:withinRange:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withinRange -let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning (llong)) x toPosition -let constrainedPoint x self = msg_send_stret ~self ~cmd:(selector "constrainedPoint:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let contentOffsetForSameViewDrops self = msg_send_stret ~self ~cmd:(selector "contentOffsetForSameViewDrops") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent -let controlSize self = msg_send ~self ~cmd:(selector "controlSize") ~typ:(returning (int)) -let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning (void)) x -let createPlaceholderIfNecessary self = msg_send ~self ~cmd:(selector "createPlaceholderIfNecessary") ~typ:(returning (void)) -let createPlaceholderLabelWithFont x ~andTextAlignment self = msg_send ~self ~cmd:(selector "createPlaceholderLabelWithFont:andTextAlignment:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int andTextAlignment) -let createTextLabelWithTextColor x self = msg_send ~self ~cmd:(selector "createTextLabelWithTextColor:") ~typ:(id @-> returning (id)) x -let customOverlayContainer self = msg_send ~self ~cmd:(selector "customOverlayContainer") ~typ:(returning (id)) -let cut x self = msg_send ~self ~cmd:(selector "cut:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning (id)) -let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let decodeRestorableStateWithCoder' x ~includingSelectedTextAndDisplayedViewControllers self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:includingSelectedTextAndDisplayedViewControllers:") ~typ:(id @-> bool @-> returning (void)) x includingSelectedTextAndDisplayedViewControllers -let decreaseSize x self = msg_send ~self ~cmd:(selector "decreaseSize:") ~typ:(id @-> returning (void)) x -let defaultClearButtonImageForState x self = msg_send ~self ~cmd:(selector "defaultClearButtonImageForState:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let defaultTextAttributes self = msg_send ~self ~cmd:(selector "defaultTextAttributes") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let didAddTextAttachmentViews x self = msg_send ~self ~cmd:(selector "didAddTextAttachmentViews:") ~typ:(id @-> returning (void)) x -let didGenerateCancelPreview x self = msg_send ~self ~cmd:(selector "didGenerateCancelPreview:") ~typ:(id @-> returning (void)) x -let didLayoutTextAttachmentView x ~inFragmentRect self = msg_send ~self ~cmd:(selector "didLayoutTextAttachmentView:inFragmentRect:") ~typ:(id @-> CGRect.t @-> returning (void)) x inFragmentRect -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let didRemoveTextAttachmentViews x self = msg_send ~self ~cmd:(selector "didRemoveTextAttachmentViews:") ~typ:(id @-> returning (void)) x -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let disableClearsOnInsertion self = msg_send ~self ~cmd:(selector "disableClearsOnInsertion") ~typ:(returning (void)) -let disabledBackground self = msg_send ~self ~cmd:(selector "disabledBackground") ~typ:(returning (id)) -let documentFragmentForPasteboardItemAtIndex x self = msg_send ~self ~cmd:(selector "documentFragmentForPasteboardItemAtIndex:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let draggingFinished x self = msg_send ~self ~cmd:(selector "draggingFinished:") ~typ:(id @-> returning (void)) x -let draggingStarted self = msg_send ~self ~cmd:(selector "draggingStarted") ~typ:(returning (void)) -let drawPlaceholderInRect x self = msg_send ~self ~cmd:(selector "drawPlaceholderInRect:") ~typ:(CGRect.t @-> returning (void)) x -let drawPrefixInRect x self = msg_send ~self ~cmd:(selector "drawPrefixInRect:") ~typ:(CGRect.t @-> returning (void)) x -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let drawSuffixInRect x self = msg_send ~self ~cmd:(selector "drawSuffixInRect:") ~typ:(CGRect.t @-> returning (void)) x -let drawTextInRect x self = msg_send ~self ~cmd:(selector "drawTextInRect:") ~typ:(CGRect.t @-> returning (void)) x -let drawTextInRectIfNeeded x self = msg_send ~self ~cmd:(selector "drawTextInRectIfNeeded:") ~typ:(CGRect.t @-> returning (bool)) x -let drawingScale self = msg_send_stret ~self ~cmd:(selector "drawingScale") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let droppingFinished self = msg_send ~self ~cmd:(selector "droppingFinished") ~typ:(returning (void)) -let droppingStarted self = msg_send ~self ~cmd:(selector "droppingStarted") ~typ:(returning (void)) -let editRect self = msg_send_stret ~self ~cmd:(selector "editRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let editingRectForBounds x self = msg_send_stret ~self ~cmd:(selector "editingRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let encodeRestorableStateWithCoder' x ~includingSelectedTextAndDisplayedViewControllers self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:includingSelectedTextAndDisplayedViewControllers:") ~typ:(id @-> bool @-> returning (void)) x includingSelectedTextAndDisplayedViewControllers -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let endFloatingCursor self = msg_send ~self ~cmd:(selector "endFloatingCursor") ~typ:(returning (void)) -let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning (id)) -let endSelectionChange self = msg_send ~self ~cmd:(selector "endSelectionChange") ~typ:(returning (void)) -let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let fieldEditor x ~shouldInsertText ~replacingRange self = msg_send ~self ~cmd:(selector "fieldEditor:shouldInsertText:replacingRange:") ~typ:(id @-> id @-> NSRange.t @-> returning (bool)) x shouldInsertText replacingRange -let fieldEditor' x ~willChangeSelectionFromCharacterRange ~toCharacterRange self = msg_send_stret ~self ~cmd:(selector "fieldEditor:willChangeSelectionFromCharacterRange:toCharacterRange:") ~typ:(id @-> NSRange.t @-> NSRange.t @-> returning (NSRange.t)) ~return_type:NSRange.t x willChangeSelectionFromCharacterRange toCharacterRange -let fieldEditorDidChange x self = msg_send ~self ~cmd:(selector "fieldEditorDidChange:") ~typ:(id @-> returning (void)) x -let fieldEditorDidChangeSelection x self = msg_send ~self ~cmd:(selector "fieldEditorDidChangeSelection:") ~typ:(id @-> returning (void)) x -let fieldEditorShouldExtendCaretHeight x self = msg_send ~self ~cmd:(selector "fieldEditorShouldExtendCaretHeight:") ~typ:(id @-> returning (bool)) x -let finishedSettingPlaceholder self = msg_send ~self ~cmd:(selector "finishedSettingPlaceholder") ~typ:(returning (void)) -let finishedSettingTextOrAttributedText self = msg_send ~self ~cmd:(selector "finishedSettingTextOrAttributedText") ~typ:(returning (void)) -let firstRectForRange x self = msg_send_stret ~self ~cmd:(selector "firstRectForRange:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let floatingContentView x ~isTransitioningFromState ~toState self = msg_send ~self ~cmd:(selector "floatingContentView:isTransitioningFromState:toState:") ~typ:(id @-> ullong @-> ullong @-> returning (void)) x (ULLong.of_int isTransitioningFromState) (ULLong.of_int toState) -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let forwardingTargetForSelector x self = msg_send ~self ~cmd:(selector "forwardingTargetForSelector:") ~typ:(_SEL @-> returning (id)) x -let frameForDictationResultPlaceholder x self = msg_send_stret ~self ~cmd:(selector "frameForDictationResultPlaceholder:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let hasMarkedText self = msg_send ~self ~cmd:(selector "hasMarkedText") ~typ:(returning (bool)) -let hasSelection self = msg_send ~self ~cmd:(selector "hasSelection") ~typ:(returning (bool)) -let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning (bool)) -let hasTextItemsOfType x ~inTextRange self = msg_send ~self ~cmd:(selector "hasTextItemsOfType:inTextRange:") ~typ:(llong @-> id @-> returning (bool)) (LLong.of_int x) inTextRange -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let iconRect self = msg_send_stret ~self ~cmd:(selector "iconRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let increaseSize x self = msg_send ~self ~cmd:(selector "increaseSize:") ~typ:(id @-> returning (void)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let inputAccessoryView self = msg_send ~self ~cmd:(selector "inputAccessoryView") ~typ:(returning (id)) -let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning (id)) -let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning (id)) -let insertAttributedText x self = msg_send ~self ~cmd:(selector "insertAttributedText:") ~typ:(id @-> returning (void)) x -let insertDictationResultPlaceholder self = msg_send ~self ~cmd:(selector "insertDictationResultPlaceholder") ~typ:(returning (id)) -let insertFilteredText x self = msg_send_stret ~self ~cmd:(selector "insertFilteredText:") ~typ:(id @-> returning (NSRange.t)) ~return_type:NSRange.t x -let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning (void)) x -let insertText1 x ~alternatives ~style self = msg_send ~self ~cmd:(selector "insertText:alternatives:style:") ~typ:(id @-> id @-> llong @-> returning (void)) x alternatives (LLong.of_int style) -let insertText2 x ~style ~alternatives self = msg_send ~self ~cmd:(selector "insertText:style:alternatives:") ~typ:(id @-> llong @-> id @-> returning (void)) x (LLong.of_int style) alternatives -let insertTextPlaceholderWithSize x self = msg_send ~self ~cmd:(selector "insertTextPlaceholderWithSize:") ~typ:(CGSize.t @-> returning (id)) x -let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning (id)) -let interactionState self = msg_send ~self ~cmd:(selector "interactionState") ~typ:(returning (id)) -let interactionTintColorDidChange self = msg_send ~self ~cmd:(selector "interactionTintColorDidChange") ~typ:(returning (void)) -let invalidateDropCaret self = msg_send ~self ~cmd:(selector "invalidateDropCaret") ~typ:(returning (void)) -let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning (bool)) -let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning (bool)) -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isTextDragActive self = msg_send ~self ~cmd:(selector "isTextDragActive") ~typ:(returning (bool)) -let isTextDropActive self = msg_send ~self ~cmd:(selector "isTextDropActive") ~typ:(returning (bool)) -let isUndoEnabled self = msg_send ~self ~cmd:(selector "isUndoEnabled") ~typ:(returning (bool)) -let keyboardInput x ~shouldInsertText ~isMarkedText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldInsertText:isMarkedText:") ~typ:(id @-> id @-> bool @-> returning (bool)) x shouldInsertText isMarkedText -let keyboardInput' x ~shouldReplaceTextInRange ~replacementText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldReplaceTextInRange:replacementText:") ~typ:(id @-> NSRange.t @-> id @-> returning (bool)) x shouldReplaceTextInRange replacementText -let keyboardInputChanged x self = msg_send ~self ~cmd:(selector "keyboardInputChanged:") ~typ:(id @-> returning (bool)) x -let keyboardInputChangedSelection x self = msg_send ~self ~cmd:(selector "keyboardInputChangedSelection:") ~typ:(id @-> returning (void)) x -let keyboardInputShouldDelete x self = msg_send ~self ~cmd:(selector "keyboardInputShouldDelete:") ~typ:(id @-> returning (bool)) x -let largeContentTitle self = msg_send ~self ~cmd:(selector "largeContentTitle") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let layoutTilesNow self = msg_send ~self ~cmd:(selector "layoutTilesNow") ~typ:(returning (void)) -let leftView self = msg_send ~self ~cmd:(selector "leftView") ~typ:(returning (id)) -let leftViewMode self = msg_send ~self ~cmd:(selector "leftViewMode") ~typ:(returning (llong)) -let leftViewRectForBounds x self = msg_send_stret ~self ~cmd:(selector "leftViewRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let linkTextAttributes self = msg_send ~self ~cmd:(selector "linkTextAttributes") ~typ:(returning (id)) -let lowercaseWord x self = msg_send ~self ~cmd:(selector "lowercaseWord:") ~typ:(id @-> returning (void)) x -let makeTextWritingDirectionLeftToRight x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionLeftToRight:") ~typ:(id @-> returning (void)) x -let makeTextWritingDirectionNatural x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionNatural:") ~typ:(id @-> returning (void)) x -let makeTextWritingDirectionRightToLeft x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionRightToLeft:") ~typ:(id @-> returning (void)) x -let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning (id)) -let markedTextStyle self = msg_send ~self ~cmd:(selector "markedTextStyle") ~typ:(returning (id)) -let metadataDictionariesForDictationResults self = msg_send ~self ~cmd:(selector "metadataDictionariesForDictationResults") ~typ:(returning (id)) -let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning (id)) x -let minimumFontSize self = msg_send ~self ~cmd:(selector "minimumFontSize") ~typ:(returning (double)) -let nonEditingLinebreakMode self = msg_send ~self ~cmd:(selector "nonEditingLinebreakMode") ~typ:(returning (llong)) -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let offsetFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "offsetFromPosition:toPosition:") ~typ:(id @-> id @-> returning (llong)) x toPosition -let offsetInMarkedTextForSelection x self = msg_send ~self ~cmd:(selector "offsetInMarkedTextForSelection:") ~typ:(id @-> returning (ullong)) x -let paddingBottom self = msg_send ~self ~cmd:(selector "paddingBottom") ~typ:(returning (float)) -let paddingLeft self = msg_send ~self ~cmd:(selector "paddingLeft") ~typ:(returning (float)) -let paddingRight self = msg_send ~self ~cmd:(selector "paddingRight") ~typ:(returning (float)) -let paddingTop self = msg_send ~self ~cmd:(selector "paddingTop") ~typ:(returning (float)) -let paste x self = msg_send ~self ~cmd:(selector "paste:") ~typ:(id @-> returning (void)) x -let pasteAndMatchStyle x self = msg_send ~self ~cmd:(selector "pasteAndMatchStyle:") ~typ:(id @-> returning (void)) x -let pasteDelegate self = msg_send ~self ~cmd:(selector "pasteDelegate") ~typ:(returning (id)) -let pasteItemProviders x self = msg_send ~self ~cmd:(selector "pasteItemProviders:") ~typ:(id @-> returning (void)) x -let performCancelAnimations self = msg_send ~self ~cmd:(selector "performCancelAnimations") ~typ:(returning (void)) -let placeholder self = msg_send ~self ~cmd:(selector "placeholder") ~typ:(returning (id)) -let placeholderRectForBounds x self = msg_send_stret ~self ~cmd:(selector "placeholderRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning (id)) x styleForRegion -let pointerInteraction1 x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning (id)) x regionForRequest defaultRegion -let pointerInteraction2 x ~willEnterRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willEnterRegion:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willEnterRegion animator -let pointerInteraction3 x ~willExitRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willExitRegion:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willExitRegion animator -let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int offset) -let positionFromPosition' x ~inDirection ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:inDirection:offset:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int inDirection) (LLong.of_int offset) -let positionWithinRange x ~farthestInDirection self = msg_send ~self ~cmd:(selector "positionWithinRange:farthestInDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int farthestInDirection) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let rangeWithTextAlternatives x ~atPosition self = msg_send ~self ~cmd:(selector "rangeWithTextAlternatives:atPosition:") ~typ:(ptr (id) @-> id @-> returning (id)) x atPosition -let recentsAccessoryView self = msg_send ~self ~cmd:(selector "recentsAccessoryView") ~typ:(returning (id)) -let removeAllGhostedRanges self = msg_send ~self ~cmd:(selector "removeAllGhostedRanges") ~typ:(returning (void)) -let removeAnnotation x ~forRange self = msg_send ~self ~cmd:(selector "removeAnnotation:forRange:") ~typ:(id @-> id @-> returning (void)) x forRange -let removeDictationResultPlaceholder x ~willInsertResult self = msg_send ~self ~cmd:(selector "removeDictationResultPlaceholder:willInsertResult:") ~typ:(id @-> bool @-> returning (void)) x willInsertResult -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let removeInvisibleRange x self = msg_send ~self ~cmd:(selector "removeInvisibleRange:") ~typ:(id @-> returning (void)) x -let removeTextPlaceholder x self = msg_send ~self ~cmd:(selector "removeTextPlaceholder:") ~typ:(id @-> returning (void)) x -let replace x self = msg_send ~self ~cmd:(selector "replace:") ~typ:(id @-> returning (void)) x -let replaceRange x ~withAttributedText self = msg_send ~self ~cmd:(selector "replaceRange:withAttributedText:") ~typ:(id @-> id @-> returning (void)) x withAttributedText -let replaceRange1 x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning (void)) x withText -let replaceRange2 x ~withAnnotatedString ~relativeReplacementRange self = msg_send ~self ~cmd:(selector "replaceRange:withAnnotatedString:relativeReplacementRange:") ~typ:(id @-> id @-> NSRange.t @-> returning (void)) x withAnnotatedString relativeReplacementRange -let replaceRangeWithTextWithoutClosingTyping x ~replacementText self = msg_send ~self ~cmd:(selector "replaceRangeWithTextWithoutClosingTyping:replacementText:") ~typ:(id @-> id @-> returning (void)) x replacementText -let resignDropResponderWithDropPerformed x self = msg_send ~self ~cmd:(selector "resignDropResponderWithDropPerformed:") ~typ:(bool @-> returning (void)) x -let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning (bool)) -let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning (bool)) x -let rightView self = msg_send ~self ~cmd:(selector "rightView") ~typ:(returning (id)) -let rightViewMode self = msg_send ~self ~cmd:(selector "rightViewMode") ~typ:(returning (llong)) -let rightViewRectForBounds x self = msg_send_stret ~self ~cmd:(selector "rightViewRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let sanitizeAttributedText x self = msg_send ~self ~cmd:(selector "sanitizeAttributedText:") ~typ:(id @-> returning (void)) x -let scrollTextFieldToVisibleIfNecessary self = msg_send ~self ~cmd:(selector "scrollTextFieldToVisibleIfNecessary") ~typ:(returning (void)) -let searchText self = msg_send ~self ~cmd:(selector "searchText") ~typ:(returning (id)) -let select x self = msg_send ~self ~cmd:(selector "select:") ~typ:(id @-> returning (void)) x -let selectAll self = msg_send ~self ~cmd:(selector "selectAll") ~typ:(returning (void)) -let selectAll' x self = msg_send ~self ~cmd:(selector "selectAll:") ~typ:(id @-> returning (void)) x -let selectedAttributedText self = msg_send ~self ~cmd:(selector "selectedAttributedText") ~typ:(returning (id)) -let selectedText self = msg_send ~self ~cmd:(selector "selectedText") ~typ:(returning (id)) -let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning (id)) -let selectionContainerView self = msg_send ~self ~cmd:(selector "selectionContainerView") ~typ:(returning (id)) -let selectionRange self = msg_send_stret ~self ~cmd:(selector "selectionRange") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let selectionRectsForRange x self = msg_send ~self ~cmd:(selector "selectionRectsForRange:") ~typ:(id @-> returning (id)) x -let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning (id)) -let setAdjustsFontForContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsFontForContentSizeCategory:") ~typ:(bool @-> returning (void)) x -let setAdjustsFontSizeToFitWidth x self = msg_send ~self ~cmd:(selector "setAdjustsFontSizeToFitWidth:") ~typ:(bool @-> returning (void)) x -let setAllowsAttachments x self = msg_send ~self ~cmd:(selector "setAllowsAttachments:") ~typ:(bool @-> returning (void)) x -let setAllowsEditingTextAttributes x self = msg_send ~self ~cmd:(selector "setAllowsEditingTextAttributes:") ~typ:(bool @-> returning (void)) x -let setAttributedMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setAttributedMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning (void)) x selectedRange -let setAttributedPlaceholder x self = msg_send ~self ~cmd:(selector "setAttributedPlaceholder:") ~typ:(id @-> returning (void)) x -let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning (void)) x -let setAttributes x ~range self = msg_send ~self ~cmd:(selector "setAttributes:range:") ~typ:(id @-> NSRange.t @-> returning (void)) x range -let setAutoresizesTextToFit x self = msg_send ~self ~cmd:(selector "setAutoresizesTextToFit:") ~typ:(bool @-> returning (void)) x -let setBackground x self = msg_send ~self ~cmd:(selector "setBackground:") ~typ:(id @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBaseWritingDirection x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) forRange -let setBecomesFirstResponderOnClearButtonTap x self = msg_send ~self ~cmd:(selector "setBecomesFirstResponderOnClearButtonTap:") ~typ:(bool @-> returning (void)) x -let setBorderStyle x self = msg_send ~self ~cmd:(selector "setBorderStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setClearButtonMode x self = msg_send ~self ~cmd:(selector "setClearButtonMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setClearButtonOffset x self = msg_send ~self ~cmd:(selector "setClearButtonOffset:") ~typ:(CGSize.t @-> returning (void)) x -let setClearButtonStyle x self = msg_send ~self ~cmd:(selector "setClearButtonStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setClearingBehavior x self = msg_send ~self ~cmd:(selector "setClearingBehavior:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setClearsOnBeginEditing x self = msg_send ~self ~cmd:(selector "setClearsOnBeginEditing:") ~typ:(bool @-> returning (void)) x -let setClearsOnInsertion x self = msg_send ~self ~cmd:(selector "setClearsOnInsertion:") ~typ:(bool @-> returning (void)) x -let setClearsPlaceholderOnBeginEditing x self = msg_send ~self ~cmd:(selector "setClearsPlaceholderOnBeginEditing:") ~typ:(bool @-> returning (void)) x -let setClipsToBounds x self = msg_send ~self ~cmd:(selector "setClipsToBounds:") ~typ:(bool @-> returning (void)) x -let setContentOffsetForSameViewDrops x self = msg_send ~self ~cmd:(selector "setContentOffsetForSameViewDrops:") ~typ:(CGPoint.t @-> returning (void)) x -let setContentVerticalAlignment x self = msg_send ~self ~cmd:(selector "setContentVerticalAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContinuousSpellCheckingEnabled x self = msg_send ~self ~cmd:(selector "setContinuousSpellCheckingEnabled:") ~typ:(bool @-> returning (void)) x -let setControlSize x self = msg_send ~self ~cmd:(selector "setControlSize:") ~typ:(int @-> returning (void)) x -let setDefaultTextAttributes x self = msg_send ~self ~cmd:(selector "setDefaultTextAttributes:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDevicePasscodeEntry x self = msg_send ~self ~cmd:(selector "setDevicePasscodeEntry:") ~typ:(bool @-> returning (void)) x -let setDisabledBackground x self = msg_send ~self ~cmd:(selector "setDisabledBackground:") ~typ:(id @-> returning (void)) x -let setDisplaySecureEditsUsingPlainText x self = msg_send ~self ~cmd:(selector "setDisplaySecureEditsUsingPlainText:") ~typ:(bool @-> returning (void)) x -let setDisplaySecureTextUsingPlainText x self = msg_send ~self ~cmd:(selector "setDisplaySecureTextUsingPlainText:") ~typ:(bool @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning (void)) x -let setFont1 x ~fullFontSize self = msg_send ~self ~cmd:(selector "setFont:fullFontSize:") ~typ:(id @-> id @-> returning (void)) x fullFontSize -let setFont2 x ~fullFontSize ~ambientOnly self = msg_send ~self ~cmd:(selector "setFont:fullFontSize:ambientOnly:") ~typ:(id @-> id @-> bool @-> returning (void)) x fullFontSize ambientOnly -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setIcon x self = msg_send ~self ~cmd:(selector "setIcon:") ~typ:(id @-> returning (void)) x -let setInputAccessoryView x self = msg_send ~self ~cmd:(selector "setInputAccessoryView:") ~typ:(id @-> returning (void)) x -let setInputDelegate x self = msg_send ~self ~cmd:(selector "setInputDelegate:") ~typ:(id @-> returning (void)) x -let setInputView x self = msg_send ~self ~cmd:(selector "setInputView:") ~typ:(id @-> returning (void)) x -let setInteractionState x self = msg_send ~self ~cmd:(selector "setInteractionState:") ~typ:(id @-> returning (void)) x -let setKeyboardAppearance x self = msg_send ~self ~cmd:(selector "setKeyboardAppearance:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setLabel x self = msg_send ~self ~cmd:(selector "setLabel:") ~typ:(id @-> returning (void)) x -let setLabelOffset x self = msg_send ~self ~cmd:(selector "setLabelOffset:") ~typ:(float @-> returning (void)) x -let setLeftView x self = msg_send ~self ~cmd:(selector "setLeftView:") ~typ:(id @-> returning (void)) x -let setLeftViewMode x self = msg_send ~self ~cmd:(selector "setLeftViewMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setLinkTextAttributes x self = msg_send ~self ~cmd:(selector "setLinkTextAttributes:") ~typ:(id @-> returning (void)) x -let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning (void)) x selectedRange -let setMarkedTextStyle x self = msg_send ~self ~cmd:(selector "setMarkedTextStyle:") ~typ:(id @-> returning (void)) x -let setMinimumFontSize x self = msg_send ~self ~cmd:(selector "setMinimumFontSize:") ~typ:(double @-> returning (void)) x -let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning (void)) -let setNonEditingLinebreakMode x self = msg_send ~self ~cmd:(selector "setNonEditingLinebreakMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPaddingLeft x self = msg_send ~self ~cmd:(selector "setPaddingLeft:") ~typ:(float @-> returning (void)) x -let setPaddingRight x self = msg_send ~self ~cmd:(selector "setPaddingRight:") ~typ:(float @-> returning (void)) x -let setPaddingTop x ~paddingLeft self = msg_send ~self ~cmd:(selector "setPaddingTop:paddingLeft:") ~typ:(float @-> float @-> returning (void)) x paddingLeft -let setPasswordRules x self = msg_send ~self ~cmd:(selector "setPasswordRules:") ~typ:(id @-> returning (void)) x -let setPasteDelegate x self = msg_send ~self ~cmd:(selector "setPasteDelegate:") ~typ:(id @-> returning (void)) x -let setPlaceholder x self = msg_send ~self ~cmd:(selector "setPlaceholder:") ~typ:(id @-> returning (void)) x -let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(float @-> returning (void)) x -let setRecentsAccessoryView x self = msg_send ~self ~cmd:(selector "setRecentsAccessoryView:") ~typ:(id @-> returning (void)) x -let setRightView x self = msg_send ~self ~cmd:(selector "setRightView:") ~typ:(id @-> returning (void)) x -let setRightViewMode x self = msg_send ~self ~cmd:(selector "setRightViewMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSecureTextEntry x self = msg_send ~self ~cmd:(selector "setSecureTextEntry:") ~typ:(bool @-> returning (void)) x -let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning (void)) x -let setSelectionRange x self = msg_send ~self ~cmd:(selector "setSelectionRange:") ~typ:(NSRange.t @-> returning (void)) x -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShadowBlur x self = msg_send ~self ~cmd:(selector "setShadowBlur:") ~typ:(double @-> returning (void)) x -let setShadowColor x self = msg_send ~self ~cmd:(selector "setShadowColor:") ~typ:(id @-> returning (void)) x -let setShadowOffset x self = msg_send ~self ~cmd:(selector "setShadowOffset:") ~typ:(CGSize.t @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTextCentersHorizontally x self = msg_send ~self ~cmd:(selector "setTextCentersHorizontally:") ~typ:(bool @-> returning (void)) x -let setTextCentersVertically x self = msg_send ~self ~cmd:(selector "setTextCentersVertically:") ~typ:(bool @-> returning (void)) x -let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning (void)) x -let setTextDragDelegate x self = msg_send ~self ~cmd:(selector "setTextDragDelegate:") ~typ:(id @-> returning (void)) x -let setTextDragOptions x self = msg_send ~self ~cmd:(selector "setTextDragOptions:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTextDropDelegate x self = msg_send ~self ~cmd:(selector "setTextDropDelegate:") ~typ:(id @-> returning (void)) x -let setTextSelectionBehavior x self = msg_send ~self ~cmd:(selector "setTextSelectionBehavior:") ~typ:(int @-> returning (void)) x -let setTypingAttributes x self = msg_send ~self ~cmd:(selector "setTypingAttributes:") ~typ:(id @-> returning (void)) x -let setUndoEnabled x self = msg_send ~self ~cmd:(selector "setUndoEnabled:") ~typ:(bool @-> returning (void)) x -let setVisualStyle x self = msg_send ~self ~cmd:(selector "setVisualStyle:") ~typ:(id @-> returning (void)) x -let shadowBlur self = msg_send ~self ~cmd:(selector "shadowBlur") ~typ:(returning (double)) -let shadowColor self = msg_send ~self ~cmd:(selector "shadowColor") ~typ:(returning (id)) -let shadowOffset self = msg_send_stret ~self ~cmd:(selector "shadowOffset") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let startAutoscroll x self = msg_send ~self ~cmd:(selector "startAutoscroll:") ~typ:(CGPoint.t @-> returning (void)) x -let supportedPasteboardTypesForCurrentSelection self = msg_send ~self ~cmd:(selector "supportedPasteboardTypesForCurrentSelection") ~typ:(returning (id)) -let takeTraitsFrom x self = msg_send ~self ~cmd:(selector "takeTraitsFrom:") ~typ:(id @-> returning (void)) x -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning (llong)) -let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning (id)) -let textContainer self = msg_send ~self ~cmd:(selector "textContainer") ~typ:(returning (id)) -let textContainerOrigin self = msg_send_stret ~self ~cmd:(selector "textContainerOrigin") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let textContainerUsageDidChangeToBounds x self = msg_send ~self ~cmd:(selector "textContainerUsageDidChangeToBounds:") ~typ:(CGRect.t @-> returning (void)) x -let textDragDelegate self = msg_send ~self ~cmd:(selector "textDragDelegate") ~typ:(returning (id)) -let textDragInteraction self = msg_send ~self ~cmd:(selector "textDragInteraction") ~typ:(returning (id)) -let textDragOptions self = msg_send ~self ~cmd:(selector "textDragOptions") ~typ:(returning (llong)) -let textDropDelegate self = msg_send ~self ~cmd:(selector "textDropDelegate") ~typ:(returning (id)) -let textDropInteraction self = msg_send ~self ~cmd:(selector "textDropInteraction") ~typ:(returning (id)) -let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning (id)) x -let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning (id)) -let textInputView self = msg_send ~self ~cmd:(selector "textInputView") ~typ:(returning (id)) -let textItemCoordinateSpace self = msg_send ~self ~cmd:(selector "textItemCoordinateSpace") ~typ:(returning (id)) -let textItemsOfType x ~inTextRange self = msg_send ~self ~cmd:(selector "textItemsOfType:inTextRange:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) inTextRange -let textLabel self = msg_send ~self ~cmd:(selector "textLabel") ~typ:(returning (id)) -let textLayoutController self = msg_send ~self ~cmd:(selector "textLayoutController") ~typ:(returning (id)) -let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning (id)) x toPosition -let textRectForBounds x self = msg_send_stret ~self ~cmd:(selector "textRectForBounds:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let textSelectionBehavior self = msg_send ~self ~cmd:(selector "textSelectionBehavior") ~typ:(returning (int)) -let textStorage self = msg_send ~self ~cmd:(selector "textStorage") ~typ:(returning (id)) -let textStylingAtPosition x ~inDirection self = msg_send ~self ~cmd:(selector "textStylingAtPosition:inDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int inDirection) -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let toggleBoldface x self = msg_send ~self ~cmd:(selector "toggleBoldface:") ~typ:(id @-> returning (void)) x -let toggleItalics x self = msg_send ~self ~cmd:(selector "toggleItalics:") ~typ:(id @-> returning (void)) x -let toggleSmartInsertDelete x self = msg_send ~self ~cmd:(selector "toggleSmartInsertDelete:") ~typ:(id @-> returning (void)) x -let toggleUnderline x self = msg_send ~self ~cmd:(selector "toggleUnderline:") ~typ:(id @-> returning (void)) x -let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning (id)) -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let typingAttributes self = msg_send ~self ~cmd:(selector "typingAttributes") ~typ:(returning (id)) -let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning (id)) -let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning (void)) -let updateFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let updateFloatingCursorAtPoint' x ~velocity self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:velocity:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (void)) x velocity -let uppercaseWord x self = msg_send ~self ~cmd:(selector "uppercaseWord:") ~typ:(id @-> returning (void)) x -let validateCommand x self = msg_send ~self ~cmd:(selector "validateCommand:") ~typ:(id @-> returning (void)) x -let valueForKey x self = msg_send ~self ~cmd:(selector "valueForKey:") ~typ:(id @-> returning (id)) x -let valueForUndefinedKey x self = msg_send ~self ~cmd:(selector "valueForUndefinedKey:") ~typ:(id @-> returning (id)) x -let visibleTextRange self = msg_send ~self ~cmd:(selector "visibleTextRange") ~typ:(returning (id)) -let visualStyle self = msg_send ~self ~cmd:(selector "visualStyle") ~typ:(returning (id)) -let webView self = msg_send ~self ~cmd:(selector "webView") ~typ:(returning (id)) -let willGenerateCancelPreview self = msg_send ~self ~cmd:(selector "willGenerateCancelPreview") ~typ:(returning (id)) -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UITextField" + +let actualFont self = msg_send ~self ~cmd:(selector "actualFont") ~typ:(returning id) +let actualMinimumFontSize self = msg_send ~self ~cmd:(selector "actualMinimumFontSize") ~typ:(returning double) +let addGhostedRange x self = msg_send ~self ~cmd:(selector "addGhostedRange:") ~typ:(id @-> returning void) x +let addInvisibleRange x self = msg_send ~self ~cmd:(selector "addInvisibleRange:") ~typ:(id @-> returning void) x +let adjustedCaretRectForCaretRect x self = msg_send ~self ~cmd:(selector "adjustedCaretRectForCaretRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let adjustsFontForContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsFontForContentSizeCategory") ~typ:(returning bool) +let adjustsFontSizeToFitWidth self = msg_send ~self ~cmd:(selector "adjustsFontSizeToFitWidth") ~typ:(returning bool) +let allowsAttachments self = msg_send ~self ~cmd:(selector "allowsAttachments") ~typ:(returning bool) +let allowsDraggingAttachments self = msg_send ~self ~cmd:(selector "allowsDraggingAttachments") ~typ:(returning bool) +let allowsEditingTextAttributes self = msg_send ~self ~cmd:(selector "allowsEditingTextAttributes") ~typ:(returning bool) +let annotatedSubstringForRange x self = msg_send ~self ~cmd:(selector "annotatedSubstringForRange:") ~typ:(id @-> returning id) x +let attributedPlaceholder self = msg_send ~self ~cmd:(selector "attributedPlaceholder") ~typ:(returning id) +let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning id) +let attributedTextInRange x self = msg_send ~self ~cmd:(selector "attributedTextInRange:") ~typ:(id @-> returning id) x +let automaticallySelectedOverlay self = msg_send ~self ~cmd:(selector "automaticallySelectedOverlay") ~typ:(returning id) +let background self = msg_send ~self ~cmd:(selector "background") ~typ:(returning id) +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int inDirection) +let becomeDropResponder self = msg_send ~self ~cmd:(selector "becomeDropResponder") ~typ:(returning void) +let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning bool) +let beginFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "beginFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let beginSelectionChange self = msg_send ~self ~cmd:(selector "beginSelectionChange") ~typ:(returning void) +let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning id) +let borderRectForBounds x self = msg_send ~self ~cmd:(selector "borderRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let borderStyle self = msg_send ~self ~cmd:(selector "borderStyle") ~typ:(returning llong) +let canBecomeDropResponder self = msg_send ~self ~cmd:(selector "canBecomeDropResponder") ~typ:(returning bool) +let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning bool) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let canResignFirstResponder self = msg_send ~self ~cmd:(selector "canResignFirstResponder") ~typ:(returning bool) +let cancelAutoscroll self = msg_send ~self ~cmd:(selector "cancelAutoscroll") ~typ:(returning void) +let cancelTrackingWithEvent x self = msg_send ~self ~cmd:(selector "cancelTrackingWithEvent:") ~typ:(id @-> returning void) x +let capitalizeWord x self = msg_send ~self ~cmd:(selector "capitalizeWord:") ~typ:(id @-> returning void) x +let captureTextFromCamera x self = msg_send ~self ~cmd:(selector "captureTextFromCamera:") ~typ:(id @-> returning void) x +let caretRectForPosition x self = msg_send ~self ~cmd:(selector "caretRectForPosition:") ~typ:(id @-> returning CGRect.t) x +let characterRangeAtPoint x self = msg_send ~self ~cmd:(selector "characterRangeAtPoint:") ~typ:(CGPoint.t @-> returning id) x +let characterRangeByExtendingPosition x ~inDirection self = msg_send ~self ~cmd:(selector "characterRangeByExtendingPosition:inDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int inDirection) +let clearButton self = msg_send ~self ~cmd:(selector "clearButton") ~typ:(returning id) +let clearButtonMode self = msg_send ~self ~cmd:(selector "clearButtonMode") ~typ:(returning llong) +let clearButtonOffset self = msg_send ~self ~cmd:(selector "clearButtonOffset") ~typ:(returning CGSize.t) +let clearButtonRect self = msg_send ~self ~cmd:(selector "clearButtonRect") ~typ:(returning CGRect.t) +let clearButtonRectForBounds x self = msg_send ~self ~cmd:(selector "clearButtonRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let clearText self = msg_send ~self ~cmd:(selector "clearText") ~typ:(returning void) +let clearingBehavior self = msg_send ~self ~cmd:(selector "clearingBehavior") ~typ:(returning llong) +let clearsOnBeginEditing self = msg_send ~self ~cmd:(selector "clearsOnBeginEditing") ~typ:(returning bool) +let clearsOnInsertion self = msg_send ~self ~cmd:(selector "clearsOnInsertion") ~typ:(returning bool) +let clearsPlaceholderOnBeginEditing self = msg_send ~self ~cmd:(selector "clearsPlaceholderOnBeginEditing") ~typ:(returning bool) +let closestCaretRectInMarkedTextRangeForPoint x self = msg_send ~self ~cmd:(selector "closestCaretRectInMarkedTextRangeForPoint:") ~typ:(CGPoint.t @-> returning CGRect.t) x +let closestPositionToPoint x self = msg_send ~self ~cmd:(selector "closestPositionToPoint:") ~typ:(CGPoint.t @-> returning id) x +let closestPositionToPoint' x ~withinRange self = msg_send ~self ~cmd:(selector "closestPositionToPoint:withinRange:") ~typ:(CGPoint.t @-> id @-> returning id) x withinRange +let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning llong) x toPosition +let constrainedPoint x self = msg_send ~self ~cmd:(selector "constrainedPoint:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let contentOffsetForSameViewDrops self = msg_send ~self ~cmd:(selector "contentOffsetForSameViewDrops") ~typ:(returning CGPoint.t) +let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let controlSize self = msg_send ~self ~cmd:(selector "controlSize") ~typ:(returning int) +let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning void) x +let createPlaceholderIfNecessary self = msg_send ~self ~cmd:(selector "createPlaceholderIfNecessary") ~typ:(returning void) +let createPlaceholderLabelWithFont x ~andTextAlignment self = msg_send ~self ~cmd:(selector "createPlaceholderLabelWithFont:andTextAlignment:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int andTextAlignment) +let createTextLabelWithTextColor x self = msg_send ~self ~cmd:(selector "createTextLabelWithTextColor:") ~typ:(id @-> returning id) x +let customOverlayContainer self = msg_send ~self ~cmd:(selector "customOverlayContainer") ~typ:(returning id) +let cut x self = msg_send ~self ~cmd:(selector "cut:") ~typ:(id @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning id) +let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let decodeRestorableStateWithCoder' x ~includingSelectedTextAndDisplayedViewControllers self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:includingSelectedTextAndDisplayedViewControllers:") ~typ:(id @-> bool @-> returning void) x includingSelectedTextAndDisplayedViewControllers +let decreaseSize x self = msg_send ~self ~cmd:(selector "decreaseSize:") ~typ:(id @-> returning void) x +let defaultClearButtonImageForState x self = msg_send ~self ~cmd:(selector "defaultClearButtonImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let defaultTextAttributes self = msg_send ~self ~cmd:(selector "defaultTextAttributes") ~typ:(returning id) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let didAddTextAttachmentViews x self = msg_send ~self ~cmd:(selector "didAddTextAttachmentViews:") ~typ:(id @-> returning void) x +let didGenerateCancelPreview x self = msg_send ~self ~cmd:(selector "didGenerateCancelPreview:") ~typ:(id @-> returning void) x +let didLayoutTextAttachmentView x ~inFragmentRect self = msg_send ~self ~cmd:(selector "didLayoutTextAttachmentView:inFragmentRect:") ~typ:(id @-> CGRect.t @-> returning void) x inFragmentRect +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let didRemoveTextAttachmentViews x self = msg_send ~self ~cmd:(selector "didRemoveTextAttachmentViews:") ~typ:(id @-> returning void) x +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let disableClearsOnInsertion self = msg_send ~self ~cmd:(selector "disableClearsOnInsertion") ~typ:(returning void) +let disabledBackground self = msg_send ~self ~cmd:(selector "disabledBackground") ~typ:(returning id) +let documentFragmentForPasteboardItemAtIndex x self = msg_send ~self ~cmd:(selector "documentFragmentForPasteboardItemAtIndex:") ~typ:(llong @-> returning id) (LLong.of_int x) +let draggingFinished x self = msg_send ~self ~cmd:(selector "draggingFinished:") ~typ:(id @-> returning void) x +let draggingStarted self = msg_send ~self ~cmd:(selector "draggingStarted") ~typ:(returning void) +let drawPlaceholderInRect x self = msg_send ~self ~cmd:(selector "drawPlaceholderInRect:") ~typ:(CGRect.t @-> returning void) x +let drawPrefixInRect x self = msg_send ~self ~cmd:(selector "drawPrefixInRect:") ~typ:(CGRect.t @-> returning void) x +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let drawSuffixInRect x self = msg_send ~self ~cmd:(selector "drawSuffixInRect:") ~typ:(CGRect.t @-> returning void) x +let drawTextInRect x self = msg_send ~self ~cmd:(selector "drawTextInRect:") ~typ:(CGRect.t @-> returning void) x +let drawTextInRectIfNeeded x self = msg_send ~self ~cmd:(selector "drawTextInRectIfNeeded:") ~typ:(CGRect.t @-> returning bool) x +let drawingScale self = msg_send ~self ~cmd:(selector "drawingScale") ~typ:(returning CGPoint.t) +let droppingFinished self = msg_send ~self ~cmd:(selector "droppingFinished") ~typ:(returning void) +let droppingStarted self = msg_send ~self ~cmd:(selector "droppingStarted") ~typ:(returning void) +let editRect self = msg_send ~self ~cmd:(selector "editRect") ~typ:(returning CGRect.t) +let editingRectForBounds x self = msg_send ~self ~cmd:(selector "editingRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let encodeRestorableStateWithCoder' x ~includingSelectedTextAndDisplayedViewControllers self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:includingSelectedTextAndDisplayedViewControllers:") ~typ:(id @-> bool @-> returning void) x includingSelectedTextAndDisplayedViewControllers +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let endFloatingCursor self = msg_send ~self ~cmd:(selector "endFloatingCursor") ~typ:(returning void) +let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning id) +let endSelectionChange self = msg_send ~self ~cmd:(selector "endSelectionChange") ~typ:(returning void) +let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let fieldEditor x ~shouldInsertText ~replacingRange self = msg_send ~self ~cmd:(selector "fieldEditor:shouldInsertText:replacingRange:") ~typ:(id @-> id @-> NSRange.t @-> returning bool) x shouldInsertText replacingRange +let fieldEditor' x ~willChangeSelectionFromCharacterRange ~toCharacterRange self = msg_send ~self ~cmd:(selector "fieldEditor:willChangeSelectionFromCharacterRange:toCharacterRange:") ~typ:(id @-> NSRange.t @-> NSRange.t @-> returning NSRange.t) x willChangeSelectionFromCharacterRange toCharacterRange +let fieldEditorDidChange x self = msg_send ~self ~cmd:(selector "fieldEditorDidChange:") ~typ:(id @-> returning void) x +let fieldEditorDidChangeSelection x self = msg_send ~self ~cmd:(selector "fieldEditorDidChangeSelection:") ~typ:(id @-> returning void) x +let fieldEditorShouldExtendCaretHeight x self = msg_send ~self ~cmd:(selector "fieldEditorShouldExtendCaretHeight:") ~typ:(id @-> returning bool) x +let finishedSettingPlaceholder self = msg_send ~self ~cmd:(selector "finishedSettingPlaceholder") ~typ:(returning void) +let finishedSettingTextOrAttributedText self = msg_send ~self ~cmd:(selector "finishedSettingTextOrAttributedText") ~typ:(returning void) +let firstRectForRange x self = msg_send ~self ~cmd:(selector "firstRectForRange:") ~typ:(id @-> returning CGRect.t) x +let floatingContentView x ~isTransitioningFromState ~toState self = msg_send ~self ~cmd:(selector "floatingContentView:isTransitioningFromState:toState:") ~typ:(id @-> ullong @-> ullong @-> returning void) x (ULLong.of_int isTransitioningFromState) (ULLong.of_int toState) +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let forwardingTargetForSelector x self = msg_send ~self ~cmd:(selector "forwardingTargetForSelector:") ~typ:(_SEL @-> returning id) x +let frameForDictationResultPlaceholder x self = msg_send ~self ~cmd:(selector "frameForDictationResultPlaceholder:") ~typ:(id @-> returning CGRect.t) x +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let hasMarkedText self = msg_send ~self ~cmd:(selector "hasMarkedText") ~typ:(returning bool) +let hasSelection self = msg_send ~self ~cmd:(selector "hasSelection") ~typ:(returning bool) +let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning bool) +let hasTextItemsOfType x ~inTextRange self = msg_send ~self ~cmd:(selector "hasTextItemsOfType:inTextRange:") ~typ:(llong @-> id @-> returning bool) (LLong.of_int x) inTextRange +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let iconRect self = msg_send ~self ~cmd:(selector "iconRect") ~typ:(returning CGRect.t) +let increaseSize x self = msg_send ~self ~cmd:(selector "increaseSize:") ~typ:(id @-> returning void) x +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let inputAccessoryView self = msg_send ~self ~cmd:(selector "inputAccessoryView") ~typ:(returning id) +let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning id) +let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning id) +let insertAttributedText x self = msg_send ~self ~cmd:(selector "insertAttributedText:") ~typ:(id @-> returning void) x +let insertDictationResultPlaceholder self = msg_send ~self ~cmd:(selector "insertDictationResultPlaceholder") ~typ:(returning id) +let insertFilteredText x self = msg_send ~self ~cmd:(selector "insertFilteredText:") ~typ:(id @-> returning NSRange.t) x +let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning void) x +let insertText1 x ~alternatives ~style self = msg_send ~self ~cmd:(selector "insertText:alternatives:style:") ~typ:(id @-> id @-> llong @-> returning void) x alternatives (LLong.of_int style) +let insertText2 x ~style ~alternatives self = msg_send ~self ~cmd:(selector "insertText:style:alternatives:") ~typ:(id @-> llong @-> id @-> returning void) x (LLong.of_int style) alternatives +let insertTextPlaceholderWithSize x self = msg_send ~self ~cmd:(selector "insertTextPlaceholderWithSize:") ~typ:(CGSize.t @-> returning id) x +let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning id) +let interactionState self = msg_send ~self ~cmd:(selector "interactionState") ~typ:(returning id) +let interactionTintColorDidChange self = msg_send ~self ~cmd:(selector "interactionTintColorDidChange") ~typ:(returning void) +let invalidateDropCaret self = msg_send ~self ~cmd:(selector "invalidateDropCaret") ~typ:(returning void) +let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning bool) +let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning bool) +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isTextDragActive self = msg_send ~self ~cmd:(selector "isTextDragActive") ~typ:(returning bool) +let isTextDropActive self = msg_send ~self ~cmd:(selector "isTextDropActive") ~typ:(returning bool) +let isUndoEnabled self = msg_send ~self ~cmd:(selector "isUndoEnabled") ~typ:(returning bool) +let keyboardInput x ~shouldInsertText ~isMarkedText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldInsertText:isMarkedText:") ~typ:(id @-> id @-> bool @-> returning bool) x shouldInsertText isMarkedText +let keyboardInput' x ~shouldReplaceTextInRange ~replacementText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldReplaceTextInRange:replacementText:") ~typ:(id @-> NSRange.t @-> id @-> returning bool) x shouldReplaceTextInRange replacementText +let keyboardInputChanged x self = msg_send ~self ~cmd:(selector "keyboardInputChanged:") ~typ:(id @-> returning bool) x +let keyboardInputChangedSelection x self = msg_send ~self ~cmd:(selector "keyboardInputChangedSelection:") ~typ:(id @-> returning void) x +let keyboardInputShouldDelete x self = msg_send ~self ~cmd:(selector "keyboardInputShouldDelete:") ~typ:(id @-> returning bool) x +let largeContentTitle self = msg_send ~self ~cmd:(selector "largeContentTitle") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let layoutTilesNow self = msg_send ~self ~cmd:(selector "layoutTilesNow") ~typ:(returning void) +let leftView self = msg_send ~self ~cmd:(selector "leftView") ~typ:(returning id) +let leftViewMode self = msg_send ~self ~cmd:(selector "leftViewMode") ~typ:(returning llong) +let leftViewRectForBounds x self = msg_send ~self ~cmd:(selector "leftViewRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let linkTextAttributes self = msg_send ~self ~cmd:(selector "linkTextAttributes") ~typ:(returning id) +let lowercaseWord x self = msg_send ~self ~cmd:(selector "lowercaseWord:") ~typ:(id @-> returning void) x +let makeTextWritingDirectionLeftToRight x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionLeftToRight:") ~typ:(id @-> returning void) x +let makeTextWritingDirectionNatural x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionNatural:") ~typ:(id @-> returning void) x +let makeTextWritingDirectionRightToLeft x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionRightToLeft:") ~typ:(id @-> returning void) x +let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning id) +let markedTextStyle self = msg_send ~self ~cmd:(selector "markedTextStyle") ~typ:(returning id) +let metadataDictionariesForDictationResults self = msg_send ~self ~cmd:(selector "metadataDictionariesForDictationResults") ~typ:(returning id) +let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning id) x +let minimumFontSize self = msg_send ~self ~cmd:(selector "minimumFontSize") ~typ:(returning double) +let nonEditingLinebreakMode self = msg_send ~self ~cmd:(selector "nonEditingLinebreakMode") ~typ:(returning llong) +let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x ofObject change context +let offsetFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "offsetFromPosition:toPosition:") ~typ:(id @-> id @-> returning llong) x toPosition +let offsetInMarkedTextForSelection x self = msg_send ~self ~cmd:(selector "offsetInMarkedTextForSelection:") ~typ:(id @-> returning ullong) x +let paddingBottom self = msg_send ~self ~cmd:(selector "paddingBottom") ~typ:(returning float) +let paddingLeft self = msg_send ~self ~cmd:(selector "paddingLeft") ~typ:(returning float) +let paddingRight self = msg_send ~self ~cmd:(selector "paddingRight") ~typ:(returning float) +let paddingTop self = msg_send ~self ~cmd:(selector "paddingTop") ~typ:(returning float) +let paste x self = msg_send ~self ~cmd:(selector "paste:") ~typ:(id @-> returning void) x +let pasteAndMatchStyle x self = msg_send ~self ~cmd:(selector "pasteAndMatchStyle:") ~typ:(id @-> returning void) x +let pasteDelegate self = msg_send ~self ~cmd:(selector "pasteDelegate") ~typ:(returning id) +let pasteItemProviders x self = msg_send ~self ~cmd:(selector "pasteItemProviders:") ~typ:(id @-> returning void) x +let performCancelAnimations self = msg_send ~self ~cmd:(selector "performCancelAnimations") ~typ:(returning void) +let placeholder self = msg_send ~self ~cmd:(selector "placeholder") ~typ:(returning id) +let placeholderRectForBounds x self = msg_send ~self ~cmd:(selector "placeholderRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning id) x styleForRegion +let pointerInteraction1 x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning id) x regionForRequest defaultRegion +let pointerInteraction2 x ~willEnterRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willEnterRegion:animator:") ~typ:(id @-> id @-> id @-> returning void) x willEnterRegion animator +let pointerInteraction3 x ~willExitRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willExitRegion:animator:") ~typ:(id @-> id @-> id @-> returning void) x willExitRegion animator +let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int offset) +let positionFromPosition' x ~inDirection ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:inDirection:offset:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int inDirection) (LLong.of_int offset) +let positionWithinRange x ~farthestInDirection self = msg_send ~self ~cmd:(selector "positionWithinRange:farthestInDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int farthestInDirection) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let rangeWithTextAlternatives x ~atPosition self = msg_send ~self ~cmd:(selector "rangeWithTextAlternatives:atPosition:") ~typ:((ptr id) @-> id @-> returning id) x atPosition +let recentsAccessoryView self = msg_send ~self ~cmd:(selector "recentsAccessoryView") ~typ:(returning id) +let removeAllGhostedRanges self = msg_send ~self ~cmd:(selector "removeAllGhostedRanges") ~typ:(returning void) +let removeAnnotation x ~forRange self = msg_send ~self ~cmd:(selector "removeAnnotation:forRange:") ~typ:(id @-> id @-> returning void) x forRange +let removeDictationResultPlaceholder x ~willInsertResult self = msg_send ~self ~cmd:(selector "removeDictationResultPlaceholder:willInsertResult:") ~typ:(id @-> bool @-> returning void) x willInsertResult +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let removeInvisibleRange x self = msg_send ~self ~cmd:(selector "removeInvisibleRange:") ~typ:(id @-> returning void) x +let removeTextPlaceholder x self = msg_send ~self ~cmd:(selector "removeTextPlaceholder:") ~typ:(id @-> returning void) x +let replace x self = msg_send ~self ~cmd:(selector "replace:") ~typ:(id @-> returning void) x +let replaceRange x ~withAttributedText self = msg_send ~self ~cmd:(selector "replaceRange:withAttributedText:") ~typ:(id @-> id @-> returning void) x withAttributedText +let replaceRange1 x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning void) x withText +let replaceRange2 x ~withAnnotatedString ~relativeReplacementRange self = msg_send ~self ~cmd:(selector "replaceRange:withAnnotatedString:relativeReplacementRange:") ~typ:(id @-> id @-> NSRange.t @-> returning void) x withAnnotatedString relativeReplacementRange +let replaceRangeWithTextWithoutClosingTyping x ~replacementText self = msg_send ~self ~cmd:(selector "replaceRangeWithTextWithoutClosingTyping:replacementText:") ~typ:(id @-> id @-> returning void) x replacementText +let resignDropResponderWithDropPerformed x self = msg_send ~self ~cmd:(selector "resignDropResponderWithDropPerformed:") ~typ:(bool @-> returning void) x +let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning bool) +let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning bool) x +let rightView self = msg_send ~self ~cmd:(selector "rightView") ~typ:(returning id) +let rightViewMode self = msg_send ~self ~cmd:(selector "rightViewMode") ~typ:(returning llong) +let rightViewRectForBounds x self = msg_send ~self ~cmd:(selector "rightViewRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let sanitizeAttributedText x self = msg_send ~self ~cmd:(selector "sanitizeAttributedText:") ~typ:(id @-> returning void) x +let scrollTextFieldToVisibleIfNecessary self = msg_send ~self ~cmd:(selector "scrollTextFieldToVisibleIfNecessary") ~typ:(returning void) +let searchText self = msg_send ~self ~cmd:(selector "searchText") ~typ:(returning id) +let select x self = msg_send ~self ~cmd:(selector "select:") ~typ:(id @-> returning void) x +let selectAll self = msg_send ~self ~cmd:(selector "selectAll") ~typ:(returning void) +let selectAll' x self = msg_send ~self ~cmd:(selector "selectAll:") ~typ:(id @-> returning void) x +let selectedAttributedText self = msg_send ~self ~cmd:(selector "selectedAttributedText") ~typ:(returning id) +let selectedText self = msg_send ~self ~cmd:(selector "selectedText") ~typ:(returning id) +let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning id) +let selectionContainerView self = msg_send ~self ~cmd:(selector "selectionContainerView") ~typ:(returning id) +let selectionRange self = msg_send ~self ~cmd:(selector "selectionRange") ~typ:(returning NSRange.t) +let selectionRectsForRange x self = msg_send ~self ~cmd:(selector "selectionRectsForRange:") ~typ:(id @-> returning id) x +let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning id) +let setAdjustsFontForContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsFontForContentSizeCategory:") ~typ:(bool @-> returning void) x +let setAdjustsFontSizeToFitWidth x self = msg_send ~self ~cmd:(selector "setAdjustsFontSizeToFitWidth:") ~typ:(bool @-> returning void) x +let setAllowsAttachments x self = msg_send ~self ~cmd:(selector "setAllowsAttachments:") ~typ:(bool @-> returning void) x +let setAllowsEditingTextAttributes x self = msg_send ~self ~cmd:(selector "setAllowsEditingTextAttributes:") ~typ:(bool @-> returning void) x +let setAttributedMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setAttributedMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning void) x selectedRange +let setAttributedPlaceholder x self = msg_send ~self ~cmd:(selector "setAttributedPlaceholder:") ~typ:(id @-> returning void) x +let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning void) x +let setAttributes x ~range self = msg_send ~self ~cmd:(selector "setAttributes:range:") ~typ:(id @-> NSRange.t @-> returning void) x range +let setAutoresizesTextToFit x self = msg_send ~self ~cmd:(selector "setAutoresizesTextToFit:") ~typ:(bool @-> returning void) x +let setBackground x self = msg_send ~self ~cmd:(selector "setBackground:") ~typ:(id @-> returning void) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBaseWritingDirection x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) forRange +let setBecomesFirstResponderOnClearButtonTap x self = msg_send ~self ~cmd:(selector "setBecomesFirstResponderOnClearButtonTap:") ~typ:(bool @-> returning void) x +let setBorderStyle x self = msg_send ~self ~cmd:(selector "setBorderStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setClearButtonMode x self = msg_send ~self ~cmd:(selector "setClearButtonMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setClearButtonOffset x self = msg_send ~self ~cmd:(selector "setClearButtonOffset:") ~typ:(CGSize.t @-> returning void) x +let setClearButtonStyle x self = msg_send ~self ~cmd:(selector "setClearButtonStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setClearingBehavior x self = msg_send ~self ~cmd:(selector "setClearingBehavior:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setClearsOnBeginEditing x self = msg_send ~self ~cmd:(selector "setClearsOnBeginEditing:") ~typ:(bool @-> returning void) x +let setClearsOnInsertion x self = msg_send ~self ~cmd:(selector "setClearsOnInsertion:") ~typ:(bool @-> returning void) x +let setClearsPlaceholderOnBeginEditing x self = msg_send ~self ~cmd:(selector "setClearsPlaceholderOnBeginEditing:") ~typ:(bool @-> returning void) x +let setClipsToBounds x self = msg_send ~self ~cmd:(selector "setClipsToBounds:") ~typ:(bool @-> returning void) x +let setContentOffsetForSameViewDrops x self = msg_send ~self ~cmd:(selector "setContentOffsetForSameViewDrops:") ~typ:(CGPoint.t @-> returning void) x +let setContentVerticalAlignment x self = msg_send ~self ~cmd:(selector "setContentVerticalAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContinuousSpellCheckingEnabled x self = msg_send ~self ~cmd:(selector "setContinuousSpellCheckingEnabled:") ~typ:(bool @-> returning void) x +let setControlSize x self = msg_send ~self ~cmd:(selector "setControlSize:") ~typ:(int @-> returning void) x +let setDefaultTextAttributes x self = msg_send ~self ~cmd:(selector "setDefaultTextAttributes:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDevicePasscodeEntry x self = msg_send ~self ~cmd:(selector "setDevicePasscodeEntry:") ~typ:(bool @-> returning void) x +let setDisabledBackground x self = msg_send ~self ~cmd:(selector "setDisabledBackground:") ~typ:(id @-> returning void) x +let setDisplaySecureEditsUsingPlainText x self = msg_send ~self ~cmd:(selector "setDisplaySecureEditsUsingPlainText:") ~typ:(bool @-> returning void) x +let setDisplaySecureTextUsingPlainText x self = msg_send ~self ~cmd:(selector "setDisplaySecureTextUsingPlainText:") ~typ:(bool @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning void) x +let setFont1 x ~fullFontSize self = msg_send ~self ~cmd:(selector "setFont:fullFontSize:") ~typ:(id @-> id @-> returning void) x fullFontSize +let setFont2 x ~fullFontSize ~ambientOnly self = msg_send ~self ~cmd:(selector "setFont:fullFontSize:ambientOnly:") ~typ:(id @-> id @-> bool @-> returning void) x fullFontSize ambientOnly +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setIcon x self = msg_send ~self ~cmd:(selector "setIcon:") ~typ:(id @-> returning void) x +let setInputAccessoryView x self = msg_send ~self ~cmd:(selector "setInputAccessoryView:") ~typ:(id @-> returning void) x +let setInputDelegate x self = msg_send ~self ~cmd:(selector "setInputDelegate:") ~typ:(id @-> returning void) x +let setInputView x self = msg_send ~self ~cmd:(selector "setInputView:") ~typ:(id @-> returning void) x +let setInteractionState x self = msg_send ~self ~cmd:(selector "setInteractionState:") ~typ:(id @-> returning void) x +let setKeyboardAppearance x self = msg_send ~self ~cmd:(selector "setKeyboardAppearance:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setLabel x self = msg_send ~self ~cmd:(selector "setLabel:") ~typ:(id @-> returning void) x +let setLabelOffset x self = msg_send ~self ~cmd:(selector "setLabelOffset:") ~typ:(float @-> returning void) x +let setLeftView x self = msg_send ~self ~cmd:(selector "setLeftView:") ~typ:(id @-> returning void) x +let setLeftViewMode x self = msg_send ~self ~cmd:(selector "setLeftViewMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setLinkTextAttributes x self = msg_send ~self ~cmd:(selector "setLinkTextAttributes:") ~typ:(id @-> returning void) x +let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning void) x selectedRange +let setMarkedTextStyle x self = msg_send ~self ~cmd:(selector "setMarkedTextStyle:") ~typ:(id @-> returning void) x +let setMinimumFontSize x self = msg_send ~self ~cmd:(selector "setMinimumFontSize:") ~typ:(double @-> returning void) x +let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning void) +let setNonEditingLinebreakMode x self = msg_send ~self ~cmd:(selector "setNonEditingLinebreakMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPaddingLeft x self = msg_send ~self ~cmd:(selector "setPaddingLeft:") ~typ:(float @-> returning void) x +let setPaddingRight x self = msg_send ~self ~cmd:(selector "setPaddingRight:") ~typ:(float @-> returning void) x +let setPaddingTop x ~paddingLeft self = msg_send ~self ~cmd:(selector "setPaddingTop:paddingLeft:") ~typ:(float @-> float @-> returning void) x paddingLeft +let setPasswordRules x self = msg_send ~self ~cmd:(selector "setPasswordRules:") ~typ:(id @-> returning void) x +let setPasteDelegate x self = msg_send ~self ~cmd:(selector "setPasteDelegate:") ~typ:(id @-> returning void) x +let setPlaceholder x self = msg_send ~self ~cmd:(selector "setPlaceholder:") ~typ:(id @-> returning void) x +let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(float @-> returning void) x +let setRecentsAccessoryView x self = msg_send ~self ~cmd:(selector "setRecentsAccessoryView:") ~typ:(id @-> returning void) x +let setRightView x self = msg_send ~self ~cmd:(selector "setRightView:") ~typ:(id @-> returning void) x +let setRightViewMode x self = msg_send ~self ~cmd:(selector "setRightViewMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSecureTextEntry x self = msg_send ~self ~cmd:(selector "setSecureTextEntry:") ~typ:(bool @-> returning void) x +let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning void) x +let setSelectionRange x self = msg_send ~self ~cmd:(selector "setSelectionRange:") ~typ:(NSRange.t @-> returning void) x +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setShadowBlur x self = msg_send ~self ~cmd:(selector "setShadowBlur:") ~typ:(double @-> returning void) x +let setShadowColor x self = msg_send ~self ~cmd:(selector "setShadowColor:") ~typ:(id @-> returning void) x +let setShadowOffset x self = msg_send ~self ~cmd:(selector "setShadowOffset:") ~typ:(CGSize.t @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTextCentersHorizontally x self = msg_send ~self ~cmd:(selector "setTextCentersHorizontally:") ~typ:(bool @-> returning void) x +let setTextCentersVertically x self = msg_send ~self ~cmd:(selector "setTextCentersVertically:") ~typ:(bool @-> returning void) x +let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning void) x +let setTextDragDelegate x self = msg_send ~self ~cmd:(selector "setTextDragDelegate:") ~typ:(id @-> returning void) x +let setTextDragOptions x self = msg_send ~self ~cmd:(selector "setTextDragOptions:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTextDropDelegate x self = msg_send ~self ~cmd:(selector "setTextDropDelegate:") ~typ:(id @-> returning void) x +let setTextSelectionBehavior x self = msg_send ~self ~cmd:(selector "setTextSelectionBehavior:") ~typ:(int @-> returning void) x +let setTypingAttributes x self = msg_send ~self ~cmd:(selector "setTypingAttributes:") ~typ:(id @-> returning void) x +let setUndoEnabled x self = msg_send ~self ~cmd:(selector "setUndoEnabled:") ~typ:(bool @-> returning void) x +let setVisualStyle x self = msg_send ~self ~cmd:(selector "setVisualStyle:") ~typ:(id @-> returning void) x +let shadowBlur self = msg_send ~self ~cmd:(selector "shadowBlur") ~typ:(returning double) +let shadowColor self = msg_send ~self ~cmd:(selector "shadowColor") ~typ:(returning id) +let shadowOffset self = msg_send ~self ~cmd:(selector "shadowOffset") ~typ:(returning CGSize.t) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let startAutoscroll x self = msg_send ~self ~cmd:(selector "startAutoscroll:") ~typ:(CGPoint.t @-> returning void) x +let supportedPasteboardTypesForCurrentSelection self = msg_send ~self ~cmd:(selector "supportedPasteboardTypesForCurrentSelection") ~typ:(returning id) +let takeTraitsFrom x self = msg_send ~self ~cmd:(selector "takeTraitsFrom:") ~typ:(id @-> returning void) x +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning llong) +let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning id) +let textContainer self = msg_send ~self ~cmd:(selector "textContainer") ~typ:(returning id) +let textContainerInset self = msg_send ~self ~cmd:(selector "textContainerInset") ~typ:(returning UIEdgeInsets.t) +let textContainerOrigin self = msg_send ~self ~cmd:(selector "textContainerOrigin") ~typ:(returning CGPoint.t) +let textContainerUsageDidChangeToBounds x self = msg_send ~self ~cmd:(selector "textContainerUsageDidChangeToBounds:") ~typ:(CGRect.t @-> returning void) x +let textDragDelegate self = msg_send ~self ~cmd:(selector "textDragDelegate") ~typ:(returning id) +let textDragInteraction self = msg_send ~self ~cmd:(selector "textDragInteraction") ~typ:(returning id) +let textDragOptions self = msg_send ~self ~cmd:(selector "textDragOptions") ~typ:(returning llong) +let textDropDelegate self = msg_send ~self ~cmd:(selector "textDropDelegate") ~typ:(returning id) +let textDropInteraction self = msg_send ~self ~cmd:(selector "textDropInteraction") ~typ:(returning id) +let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning id) x +let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning id) +let textInputView self = msg_send ~self ~cmd:(selector "textInputView") ~typ:(returning id) +let textItemCoordinateSpace self = msg_send ~self ~cmd:(selector "textItemCoordinateSpace") ~typ:(returning id) +let textItemsOfType x ~inTextRange self = msg_send ~self ~cmd:(selector "textItemsOfType:inTextRange:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) inTextRange +let textLabel self = msg_send ~self ~cmd:(selector "textLabel") ~typ:(returning id) +let textLayoutController self = msg_send ~self ~cmd:(selector "textLayoutController") ~typ:(returning id) +let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning id) x toPosition +let textRectForBounds x self = msg_send ~self ~cmd:(selector "textRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let textSelectionBehavior self = msg_send ~self ~cmd:(selector "textSelectionBehavior") ~typ:(returning int) +let textStorage self = msg_send ~self ~cmd:(selector "textStorage") ~typ:(returning id) +let textStylingAtPosition x ~inDirection self = msg_send ~self ~cmd:(selector "textStylingAtPosition:inDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int inDirection) +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let toggleBoldface x self = msg_send ~self ~cmd:(selector "toggleBoldface:") ~typ:(id @-> returning void) x +let toggleItalics x self = msg_send ~self ~cmd:(selector "toggleItalics:") ~typ:(id @-> returning void) x +let toggleSmartInsertDelete x self = msg_send ~self ~cmd:(selector "toggleSmartInsertDelete:") ~typ:(id @-> returning void) x +let toggleUnderline x self = msg_send ~self ~cmd:(selector "toggleUnderline:") ~typ:(id @-> returning void) x +let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning id) +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let typingAttributes self = msg_send ~self ~cmd:(selector "typingAttributes") ~typ:(returning id) +let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning id) +let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning void) +let updateFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let updateFloatingCursorAtPoint' x ~velocity self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:velocity:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning void) x velocity +let uppercaseWord x self = msg_send ~self ~cmd:(selector "uppercaseWord:") ~typ:(id @-> returning void) x +let validateCommand x self = msg_send ~self ~cmd:(selector "validateCommand:") ~typ:(id @-> returning void) x +let valueForKey x self = msg_send ~self ~cmd:(selector "valueForKey:") ~typ:(id @-> returning id) x +let valueForUndefinedKey x self = msg_send ~self ~cmd:(selector "valueForUndefinedKey:") ~typ:(id @-> returning id) x +let visibleTextRange self = msg_send ~self ~cmd:(selector "visibleTextRange") ~typ:(returning id) +let visualStyle self = msg_send ~self ~cmd:(selector "visualStyle") ~typ:(returning id) +let webView self = msg_send ~self ~cmd:(selector "webView") ~typ:(returning id) +let willGenerateCancelPreview self = msg_send ~self ~cmd:(selector "willGenerateCancelPreview") ~typ:(returning id) +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextFieldBackgroundView.ml b/uikit/UITextFieldBackgroundView.ml index 483971d0..2b0072d5 100644 --- a/uikit/UITextFieldBackgroundView.ml +++ b/uikit/UITextFieldBackgroundView.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextFieldBackgroundView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextfieldbackgroundview?language=objc}UITextFieldBackgroundView} *) -let fillColor self = msg_send ~self ~cmd:(selector "fillColor") ~typ:(returning (id)) -let initWithFrame x ~active self = msg_send ~self ~cmd:(selector "initWithFrame:active:") ~typ:(CGRect.t @-> bool @-> returning (id)) x active -let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setEnabled x ~animated self = msg_send ~self ~cmd:(selector "setEnabled:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setFillColor x self = msg_send ~self ~cmd:(selector "setFillColor:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(float @-> returning (void)) x \ No newline at end of file +let self = get_class "UITextFieldBackgroundView" + +let fillColor self = msg_send ~self ~cmd:(selector "fillColor") ~typ:(returning id) +let initWithFrame x ~active self = msg_send ~self ~cmd:(selector "initWithFrame:active:") ~typ:(CGRect.t @-> bool @-> returning id) x active +let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setEnabled x ~animated self = msg_send ~self ~cmd:(selector "setEnabled:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setFillColor x self = msg_send ~self ~cmd:(selector "setFillColor:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(float @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextFieldLabel.ml b/uikit/UITextFieldLabel.ml index bd5d0d66..c504fd3a 100644 --- a/uikit/UITextFieldLabel.ml +++ b/uikit/UITextFieldLabel.ml @@ -5,13 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextFieldLabel" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextfieldlabel?language=objc}UITextFieldLabel} *) -module C = struct - let defaultFont self = msg_send ~self ~cmd:(selector "defaultFont") ~typ:(returning (id)) -end +let self = get_class "UITextFieldLabel" -let drawTextInRect x self = msg_send ~self ~cmd:(selector "drawTextInRect:") ~typ:(CGRect.t @-> returning (void)) x -let setShouldRenderWithoutTextField x self = msg_send ~self ~cmd:(selector "setShouldRenderWithoutTextField:") ~typ:(bool @-> returning (void)) x -let shouldRenderWithoutTextField self = msg_send ~self ~cmd:(selector "shouldRenderWithoutTextField") ~typ:(returning (bool)) \ No newline at end of file +let drawTextInRect x self = msg_send ~self ~cmd:(selector "drawTextInRect:") ~typ:(CGRect.t @-> returning void) x +let setShouldRenderWithoutTextField x self = msg_send ~self ~cmd:(selector "setShouldRenderWithoutTextField:") ~typ:(bool @-> returning void) x +let shouldRenderWithoutTextField self = msg_send ~self ~cmd:(selector "shouldRenderWithoutTextField") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITextFieldLabelClass.ml b/uikit/UITextFieldLabelClass.ml new file mode 100644 index 00000000..017f0a4f --- /dev/null +++ b/uikit/UITextFieldLabelClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextfieldlabel?language=objc}UITextFieldLabel} *) + +let defaultFont self = msg_send ~self ~cmd:(selector "defaultFont") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextFormattingCoordinator.ml b/uikit/UITextFormattingCoordinator.ml index c378b3b0..26d75674 100644 --- a/uikit/UITextFormattingCoordinator.ml +++ b/uikit/UITextFormattingCoordinator.ml @@ -5,18 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextFormattingCoordinator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextformattingcoordinator?language=objc}UITextFormattingCoordinator} *) -module C = struct - let isFontPanelVisible self = msg_send ~self ~cmd:(selector "isFontPanelVisible") ~typ:(returning (bool)) - let textFormattingCoordinatorForWindowScene x self = msg_send ~self ~cmd:(selector "textFormattingCoordinatorForWindowScene:") ~typ:(id @-> returning (id)) x - let toggleFontPanel x self = msg_send ~self ~cmd:(selector "toggleFontPanel:") ~typ:(id @-> returning (void)) x -end +let self = get_class "UITextFormattingCoordinator" -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let fontPickerViewControllerDidPickFont x self = msg_send ~self ~cmd:(selector "fontPickerViewControllerDidPickFont:") ~typ:(id @-> returning (void)) x -let initWithWindowScene x self = msg_send ~self ~cmd:(selector "initWithWindowScene:") ~typ:(id @-> returning (id)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setSelectedAttributes x ~isMultiple self = msg_send ~self ~cmd:(selector "setSelectedAttributes:isMultiple:") ~typ:(id @-> bool @-> returning (void)) x isMultiple -let updateTextAttributesWithConversionHandler x self = msg_send ~self ~cmd:(selector "updateTextAttributesWithConversionHandler:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let fontPickerViewControllerDidPickFont x self = msg_send ~self ~cmd:(selector "fontPickerViewControllerDidPickFont:") ~typ:(id @-> returning void) x +let initWithWindowScene x self = msg_send ~self ~cmd:(selector "initWithWindowScene:") ~typ:(id @-> returning id) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setSelectedAttributes x ~isMultiple self = msg_send ~self ~cmd:(selector "setSelectedAttributes:isMultiple:") ~typ:(id @-> bool @-> returning void) x isMultiple +let updateTextAttributesWithConversionHandler x self = msg_send ~self ~cmd:(selector "updateTextAttributesWithConversionHandler:") ~typ:((ptr void) @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextFormattingCoordinatorClass.ml b/uikit/UITextFormattingCoordinatorClass.ml new file mode 100644 index 00000000..d5c687f0 --- /dev/null +++ b/uikit/UITextFormattingCoordinatorClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextformattingcoordinator?language=objc}UITextFormattingCoordinator} *) + +let isFontPanelVisible self = msg_send ~self ~cmd:(selector "isFontPanelVisible") ~typ:(returning bool) +let textFormattingCoordinatorForWindowScene x self = msg_send ~self ~cmd:(selector "textFormattingCoordinatorForWindowScene:") ~typ:(id @-> returning id) x +let toggleFontPanel x self = msg_send ~self ~cmd:(selector "toggleFontPanel:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextGestureTuning.ml b/uikit/UITextGestureTuning.ml index 9f4331cb..09230f0a 100644 --- a/uikit/UITextGestureTuning.ml +++ b/uikit/UITextGestureTuning.ml @@ -5,27 +5,31 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextGestureTuning" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextgesturetuning?language=objc}UITextGestureTuning} *) -let assertInitialPositionFromTopOfCaret x ~distanceFromCaret self = msg_send ~self ~cmd:(selector "assertInitialPositionFromTopOfCaret:distanceFromCaret:") ~typ:(double @-> CGPoint.t @-> returning (void)) x distanceFromCaret -let coordinateSpace self = msg_send ~self ~cmd:(selector "coordinateSpace") ~typ:(returning (id)) -let didBreakLineThreshold self = msg_send ~self ~cmd:(selector "didBreakLineThreshold") ~typ:(returning (bool)) -let includeTipProjection self = msg_send ~self ~cmd:(selector "includeTipProjection") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initialPosition self = msg_send ~self ~cmd:(selector "initialPosition") ~typ:(returning (double)) -let lineBreakProgress self = msg_send ~self ~cmd:(selector "lineBreakProgress") ~typ:(returning (double)) -let pointForGestureState x ~point ~translation self = msg_send_stret ~self ~cmd:(selector "pointForGestureState:point:translation:") ~typ:(llong @-> CGPoint.t @-> CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t (LLong.of_int x) point translation -let pointIfPlacedCarefully x self = msg_send_stret ~self ~cmd:(selector "pointIfPlacedCarefully:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let setCoordinateSpace x self = msg_send ~self ~cmd:(selector "setCoordinateSpace:") ~typ:(id @-> returning (void)) x -let setIncludeTipProjection x self = msg_send ~self ~cmd:(selector "setIncludeTipProjection:") ~typ:(bool @-> returning (void)) x -let setShouldIncludeConstantOffset x self = msg_send ~self ~cmd:(selector "setShouldIncludeConstantOffset:") ~typ:(bool @-> returning (void)) x -let setShouldUseLineThreshold x self = msg_send ~self ~cmd:(selector "setShouldUseLineThreshold:") ~typ:(bool @-> returning (void)) x -let setStrongerBiasAgainstUp x self = msg_send ~self ~cmd:(selector "setStrongerBiasAgainstUp:") ~typ:(bool @-> returning (void)) x -let shouldIncludeConstantOffset self = msg_send ~self ~cmd:(selector "shouldIncludeConstantOffset") ~typ:(returning (bool)) -let shouldUseLineThreshold self = msg_send ~self ~cmd:(selector "shouldUseLineThreshold") ~typ:(returning (bool)) -let strongerBiasAgainstUp self = msg_send ~self ~cmd:(selector "strongerBiasAgainstUp") ~typ:(returning (bool)) -let touchAlignedPointForPoint x ~translation self = msg_send_stret ~self ~cmd:(selector "touchAlignedPointForPoint:translation:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x translation -let updateVisibilityOffsetForGestureState x ~touchType ~locationInSceneReferenceSpace ~majorRadius self = msg_send ~self ~cmd:(selector "updateVisibilityOffsetForGestureState:touchType:locationInSceneReferenceSpace:majorRadius:") ~typ:(llong @-> llong @-> CGPoint.t @-> double @-> returning (void)) (LLong.of_int x) (LLong.of_int touchType) locationInSceneReferenceSpace majorRadius -let updateWeightedPointWithGestureState x ~location self = msg_send ~self ~cmd:(selector "updateWeightedPointWithGestureState:location:") ~typ:(llong @-> CGPoint.t @-> returning (void)) (LLong.of_int x) location -let updateWithTouches x ~gestureState self = msg_send ~self ~cmd:(selector "updateWithTouches:gestureState:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int gestureState) \ No newline at end of file +let self = get_class "UITextGestureTuning" + +let assertInitialPositionFromTopOfCaret x ~distanceFromCaret self = msg_send ~self ~cmd:(selector "assertInitialPositionFromTopOfCaret:distanceFromCaret:") ~typ:(double @-> CGPoint.t @-> returning void) x distanceFromCaret +let coordinateSpace self = msg_send ~self ~cmd:(selector "coordinateSpace") ~typ:(returning id) +let didBreakLineThreshold self = msg_send ~self ~cmd:(selector "didBreakLineThreshold") ~typ:(returning bool) +let includeTipProjection self = msg_send ~self ~cmd:(selector "includeTipProjection") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initialPosition self = msg_send ~self ~cmd:(selector "initialPosition") ~typ:(returning double) +let lineBreakProgress self = msg_send ~self ~cmd:(selector "lineBreakProgress") ~typ:(returning double) +let pointForGestureState x ~point ~translation self = msg_send ~self ~cmd:(selector "pointForGestureState:point:translation:") ~typ:(llong @-> CGPoint.t @-> CGPoint.t @-> returning CGPoint.t) (LLong.of_int x) point translation +let pointIfPlacedCarefully x self = msg_send ~self ~cmd:(selector "pointIfPlacedCarefully:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let setCoordinateSpace x self = msg_send ~self ~cmd:(selector "setCoordinateSpace:") ~typ:(id @-> returning void) x +let setIncludeTipProjection x self = msg_send ~self ~cmd:(selector "setIncludeTipProjection:") ~typ:(bool @-> returning void) x +let setShouldIncludeConstantOffset x self = msg_send ~self ~cmd:(selector "setShouldIncludeConstantOffset:") ~typ:(bool @-> returning void) x +let setShouldUseLineThreshold x self = msg_send ~self ~cmd:(selector "setShouldUseLineThreshold:") ~typ:(bool @-> returning void) x +let setStrongerBiasAgainstUp x self = msg_send ~self ~cmd:(selector "setStrongerBiasAgainstUp:") ~typ:(bool @-> returning void) x +let shouldIncludeConstantOffset self = msg_send ~self ~cmd:(selector "shouldIncludeConstantOffset") ~typ:(returning bool) +let shouldUseLineThreshold self = msg_send ~self ~cmd:(selector "shouldUseLineThreshold") ~typ:(returning bool) +let strongerBiasAgainstUp self = msg_send ~self ~cmd:(selector "strongerBiasAgainstUp") ~typ:(returning bool) +let touchAlignedPointForPoint x ~translation self = msg_send ~self ~cmd:(selector "touchAlignedPointForPoint:translation:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning CGPoint.t) x translation +let updateVisibilityOffsetForGestureState x ~touchType ~locationInSceneReferenceSpace ~majorRadius self = msg_send ~self ~cmd:(selector "updateVisibilityOffsetForGestureState:touchType:locationInSceneReferenceSpace:majorRadius:") ~typ:(llong @-> llong @-> CGPoint.t @-> double @-> returning void) (LLong.of_int x) (LLong.of_int touchType) locationInSceneReferenceSpace majorRadius +let updateWeightedPointWithGestureState x ~location self = msg_send ~self ~cmd:(selector "updateWeightedPointWithGestureState:location:") ~typ:(llong @-> CGPoint.t @-> returning void) (LLong.of_int x) location +let updateWithTouches x ~gestureState self = msg_send ~self ~cmd:(selector "updateWithTouches:gestureState:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int gestureState) \ No newline at end of file diff --git a/uikit/UITextIndirectEditableInteraction.ml b/uikit/UITextIndirectEditableInteraction.ml index cb5136b1..583af58a 100644 --- a/uikit/UITextIndirectEditableInteraction.ml +++ b/uikit/UITextIndirectEditableInteraction.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextIndirectEditableInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextindirecteditableinteraction?language=objc}UITextIndirectEditableInteraction} *) -let finishSetup self = msg_send ~self ~cmd:(selector "finishSetup") ~typ:(returning (void)) -let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let self = get_class "UITextIndirectEditableInteraction" + +let finishSetup self = msg_send ~self ~cmd:(selector "finishSetup") ~typ:(returning void) +let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UITextIndirectNonEditableInteraction.ml b/uikit/UITextIndirectNonEditableInteraction.ml index 24c5397d..28fdb82e 100644 --- a/uikit/UITextIndirectNonEditableInteraction.ml +++ b/uikit/UITextIndirectNonEditableInteraction.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextIndirectNonEditableInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextindirectnoneditableinteraction?language=objc}UITextIndirectNonEditableInteraction} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didEndGesture self = msg_send ~self ~cmd:(selector "didEndGesture") ~typ:(returning (void)) -let finishSetup self = msg_send ~self ~cmd:(selector "finishSetup") ~typ:(returning (void)) -let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning (id)) x -let shouldAllowSelectionGestures x ~atPoint ~toBegin self = msg_send ~self ~cmd:(selector "shouldAllowSelectionGestures:atPoint:toBegin:") ~typ:(bool @-> CGPoint.t @-> bool @-> returning (bool)) x atPoint toBegin -let shouldAllowWithTouchTypes x ~atPoint ~toBegin self = msg_send ~self ~cmd:(selector "shouldAllowWithTouchTypes:atPoint:toBegin:") ~typ:(id @-> CGPoint.t @-> bool @-> returning (bool)) x atPoint toBegin -let taskQueue self = msg_send ~self ~cmd:(selector "taskQueue") ~typ:(returning (id)) -let textSelectionController self = msg_send ~self ~cmd:(selector "textSelectionController") ~typ:(returning (id)) -let willBeginGesture self = msg_send ~self ~cmd:(selector "willBeginGesture") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UITextIndirectNonEditableInteraction" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didEndGesture self = msg_send ~self ~cmd:(selector "didEndGesture") ~typ:(returning void) +let finishSetup self = msg_send ~self ~cmd:(selector "finishSetup") ~typ:(returning void) +let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning id) x +let shouldAllowSelectionGestures x ~atPoint ~toBegin self = msg_send ~self ~cmd:(selector "shouldAllowSelectionGestures:atPoint:toBegin:") ~typ:(bool @-> CGPoint.t @-> bool @-> returning bool) x atPoint toBegin +let shouldAllowWithTouchTypes x ~atPoint ~toBegin self = msg_send ~self ~cmd:(selector "shouldAllowWithTouchTypes:atPoint:toBegin:") ~typ:(id @-> CGPoint.t @-> bool @-> returning bool) x atPoint toBegin +let taskQueue self = msg_send ~self ~cmd:(selector "taskQueue") ~typ:(returning id) +let textSelectionController self = msg_send ~self ~cmd:(selector "textSelectionController") ~typ:(returning id) +let willBeginGesture self = msg_send ~self ~cmd:(selector "willBeginGesture") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UITextInputArrowKeyHistory.ml b/uikit/UITextInputArrowKeyHistory.ml index 1b73dbe0..d34889bf 100644 --- a/uikit/UITextInputArrowKeyHistory.ml +++ b/uikit/UITextInputArrowKeyHistory.ml @@ -5,21 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextInputArrowKeyHistory" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinputarrowkeyhistory?language=objc}UITextInputArrowKeyHistory} *) -let affinityDownstream self = msg_send ~self ~cmd:(selector "affinityDownstream") ~typ:(returning (bool)) -let amount self = msg_send ~self ~cmd:(selector "amount") ~typ:(returning (llong)) -let anchor self = msg_send ~self ~cmd:(selector "anchor") ~typ:(returning (int)) -let cursor self = msg_send ~self ~cmd:(selector "cursor") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let end_ self = msg_send ~self ~cmd:(selector "end") ~typ:(returning (id)) -let setAffinityDownstream x self = msg_send ~self ~cmd:(selector "setAffinityDownstream:") ~typ:(bool @-> returning (void)) x -let setAmount x self = msg_send ~self ~cmd:(selector "setAmount:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setAnchor x self = msg_send ~self ~cmd:(selector "setAnchor:") ~typ:(int @-> returning (void)) x -let setCursor x self = msg_send ~self ~cmd:(selector "setCursor:") ~typ:(id @-> returning (void)) x -let setEnd x self = msg_send ~self ~cmd:(selector "setEnd:") ~typ:(id @-> returning (void)) x -let setStart x self = msg_send ~self ~cmd:(selector "setStart:") ~typ:(id @-> returning (void)) x -let setStartPosition x self = msg_send ~self ~cmd:(selector "setStartPosition:") ~typ:(id @-> returning (void)) x -let start self = msg_send ~self ~cmd:(selector "start") ~typ:(returning (id)) -let startPosition self = msg_send ~self ~cmd:(selector "startPosition") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITextInputArrowKeyHistory" + +let affinityDownstream self = msg_send ~self ~cmd:(selector "affinityDownstream") ~typ:(returning bool) +let amount self = msg_send ~self ~cmd:(selector "amount") ~typ:(returning llong) +let anchor self = msg_send ~self ~cmd:(selector "anchor") ~typ:(returning int) +let cursor self = msg_send ~self ~cmd:(selector "cursor") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let end_ self = msg_send ~self ~cmd:(selector "end") ~typ:(returning id) +let setAffinityDownstream x self = msg_send ~self ~cmd:(selector "setAffinityDownstream:") ~typ:(bool @-> returning void) x +let setAmount x self = msg_send ~self ~cmd:(selector "setAmount:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setAnchor x self = msg_send ~self ~cmd:(selector "setAnchor:") ~typ:(int @-> returning void) x +let setCursor x self = msg_send ~self ~cmd:(selector "setCursor:") ~typ:(id @-> returning void) x +let setEnd x self = msg_send ~self ~cmd:(selector "setEnd:") ~typ:(id @-> returning void) x +let setStart x self = msg_send ~self ~cmd:(selector "setStart:") ~typ:(id @-> returning void) x +let setStartPosition x self = msg_send ~self ~cmd:(selector "setStartPosition:") ~typ:(id @-> returning void) x +let start self = msg_send ~self ~cmd:(selector "start") ~typ:(returning id) +let startPosition self = msg_send ~self ~cmd:(selector "startPosition") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextInputAssistantItem.ml b/uikit/UITextInputAssistantItem.ml index dfbd69c2..b946fce3 100644 --- a/uikit/UITextInputAssistantItem.ml +++ b/uikit/UITextInputAssistantItem.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextInputAssistantItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinputassistantitem?language=objc}UITextInputAssistantItem} *) -let allowsHidingShortcuts self = msg_send ~self ~cmd:(selector "allowsHidingShortcuts") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let leadingBarButtonGroups self = msg_send ~self ~cmd:(selector "leadingBarButtonGroups") ~typ:(returning (id)) -let setAllowsHidingShortcuts x self = msg_send ~self ~cmd:(selector "setAllowsHidingShortcuts:") ~typ:(bool @-> returning (void)) x -let setLeadingBarButtonGroups x self = msg_send ~self ~cmd:(selector "setLeadingBarButtonGroups:") ~typ:(id @-> returning (void)) x -let setTrailingBarButtonGroups x self = msg_send ~self ~cmd:(selector "setTrailingBarButtonGroups:") ~typ:(id @-> returning (void)) x -let trailingBarButtonGroups self = msg_send ~self ~cmd:(selector "trailingBarButtonGroups") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITextInputAssistantItem" + +let allowsHidingShortcuts self = msg_send ~self ~cmd:(selector "allowsHidingShortcuts") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let leadingBarButtonGroups self = msg_send ~self ~cmd:(selector "leadingBarButtonGroups") ~typ:(returning id) +let setAllowsHidingShortcuts x self = msg_send ~self ~cmd:(selector "setAllowsHidingShortcuts:") ~typ:(bool @-> returning void) x +let setLeadingBarButtonGroups x self = msg_send ~self ~cmd:(selector "setLeadingBarButtonGroups:") ~typ:(id @-> returning void) x +let setTrailingBarButtonGroups x self = msg_send ~self ~cmd:(selector "setTrailingBarButtonGroups:") ~typ:(id @-> returning void) x +let trailingBarButtonGroups self = msg_send ~self ~cmd:(selector "trailingBarButtonGroups") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextInputController.ml b/uikit/UITextInputController.ml index 4ade98c5..046de6dd 100644 --- a/uikit/UITextInputController.ml +++ b/uikit/UITextInputController.ml @@ -5,154 +5,158 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextInputController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinputcontroller?language=objc}UITextInputController} *) -let addTextAlternativesDisplayStyle x ~toRange self = msg_send ~self ~cmd:(selector "addTextAlternativesDisplayStyle:toRange:") ~typ:(llong @-> NSRange.t @-> returning (void)) (LLong.of_int x) toRange -let alignCenter x self = msg_send ~self ~cmd:(selector "alignCenter:") ~typ:(id @-> returning (void)) x -let alignJustified x self = msg_send ~self ~cmd:(selector "alignJustified:") ~typ:(id @-> returning (void)) x -let alignLeft x self = msg_send ~self ~cmd:(selector "alignLeft:") ~typ:(id @-> returning (void)) x -let alignRight x self = msg_send ~self ~cmd:(selector "alignRight:") ~typ:(id @-> returning (void)) x -let allowsEditingTextAttributes self = msg_send ~self ~cmd:(selector "allowsEditingTextAttributes") ~typ:(returning (bool)) -let annotatedSubstringForRange x self = msg_send ~self ~cmd:(selector "annotatedSubstringForRange:") ~typ:(id @-> returning (id)) x -let appendUndoOperation x ~newGroup self = msg_send ~self ~cmd:(selector "appendUndoOperation:newGroup:") ~typ:(id @-> bool @-> returning (void)) x newGroup -let attributedSubstringForMarkedRange self = msg_send ~self ~cmd:(selector "attributedSubstringForMarkedRange") ~typ:(returning (id)) -let attributedTextInRange x self = msg_send ~self ~cmd:(selector "attributedTextInRange:") ~typ:(id @-> returning (id)) x -let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int inDirection) -let beginSelectionChange self = msg_send ~self ~cmd:(selector "beginSelectionChange") ~typ:(returning (void)) -let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning (id)) -let capitalizeWord x self = msg_send ~self ~cmd:(selector "capitalizeWord:") ~typ:(id @-> returning (void)) x -let captureTextFromCamera x self = msg_send ~self ~cmd:(selector "captureTextFromCamera:") ~typ:(id @-> returning (void)) x -let caretRectForPosition x self = msg_send_stret ~self ~cmd:(selector "caretRectForPosition:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let changeWillBeUndone x self = msg_send ~self ~cmd:(selector "changeWillBeUndone:") ~typ:(id @-> returning (void)) x -let characterRangeAtPoint x self = msg_send ~self ~cmd:(selector "characterRangeAtPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let characterRangeByExtendingPosition x ~inDirection self = msg_send ~self ~cmd:(selector "characterRangeByExtendingPosition:inDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int inDirection) -let checkSmartPunctuationForWordInRange x self = msg_send ~self ~cmd:(selector "checkSmartPunctuationForWordInRange:") ~typ:(id @-> returning (void)) x -let checkSpellingForSelectionChangeIfNecessary self = msg_send ~self ~cmd:(selector "checkSpellingForSelectionChangeIfNecessary") ~typ:(returning (void)) -let checkSpellingForWordInRange x self = msg_send ~self ~cmd:(selector "checkSpellingForWordInRange:") ~typ:(id @-> returning (void)) x -let clearText self = msg_send ~self ~cmd:(selector "clearText") ~typ:(returning (void)) -let closestPositionToPoint x self = msg_send ~self ~cmd:(selector "closestPositionToPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let closestPositionToPoint' x ~withinRange self = msg_send ~self ~cmd:(selector "closestPositionToPoint:withinRange:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withinRange -let coalesceInTextView x ~actionName ~affectedRange ~replacementRange ~replacementText self = msg_send ~self ~cmd:(selector "coalesceInTextView:actionName:affectedRange:replacementRange:replacementText:") ~typ:(id @-> id @-> NSRange.t @-> NSRange.t @-> id @-> returning (void)) x actionName affectedRange replacementRange replacementText -let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning (llong)) x toPosition -let continuousSpellCheckingEnabled self = msg_send ~self ~cmd:(selector "continuousSpellCheckingEnabled") ~typ:(returning (bool)) -let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning (void)) x -let copyFont x self = msg_send ~self ~cmd:(selector "copyFont:") ~typ:(id @-> returning (void)) x -let currentUndoGroupType self = msg_send ~self ~cmd:(selector "currentUndoGroupType") ~typ:(returning (int)) -let cut x self = msg_send ~self ~cmd:(selector "cut:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let decreaseSize x self = msg_send ~self ~cmd:(selector "decreaseSize:") ~typ:(id @-> returning (void)) x -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning (void)) -let didEndEditing self = msg_send ~self ~cmd:(selector "didEndEditing") ~typ:(returning (void)) -let dontRemoveAllActions self = msg_send ~self ~cmd:(selector "dontRemoveAllActions") ~typ:(returning (bool)) -let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning (id)) -let endSelectionChange self = msg_send ~self ~cmd:(selector "endSelectionChange") ~typ:(returning (void)) -let filteredAttributedText self = msg_send ~self ~cmd:(selector "filteredAttributedText") ~typ:(returning (id)) -let firstRectForRange x self = msg_send_stret ~self ~cmd:(selector "firstRectForRange:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning (void)) x -let frameForDictationResultPlaceholder x self = msg_send_stret ~self ~cmd:(selector "frameForDictationResultPlaceholder:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let frameForTextPlaceholder x self = msg_send_stret ~self ~cmd:(selector "frameForTextPlaceholder:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning (bool)) -let increaseSize x self = msg_send ~self ~cmd:(selector "increaseSize:") ~typ:(id @-> returning (void)) x -let initWithTextLayoutController x self = msg_send ~self ~cmd:(selector "initWithTextLayoutController:") ~typ:(id @-> returning (id)) x -let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning (id)) -let insertAttributedText x self = msg_send ~self ~cmd:(selector "insertAttributedText:") ~typ:(id @-> returning (void)) x -let insertDictationResult x ~withCorrectionIdentifier self = msg_send ~self ~cmd:(selector "insertDictationResult:withCorrectionIdentifier:") ~typ:(id @-> id @-> returning (void)) x withCorrectionIdentifier -let insertDictationResultPlaceholder self = msg_send ~self ~cmd:(selector "insertDictationResultPlaceholder") ~typ:(returning (id)) -let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning (void)) x -let insertTextPlaceholderWithSize x self = msg_send ~self ~cmd:(selector "insertTextPlaceholderWithSize:") ~typ:(CGSize.t @-> returning (id)) x -let insertTextPlaceholderWithSize' x ~embeddingType self = msg_send ~self ~cmd:(selector "insertTextPlaceholderWithSize:embeddingType:") ~typ:(CGSize.t @-> llong @-> returning (id)) x (LLong.of_int embeddingType) -let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning (id)) -let isCoalescing self = msg_send ~self ~cmd:(selector "isCoalescing") ~typ:(returning (bool)) -let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning (bool)) -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let lowercaseWord x self = msg_send ~self ~cmd:(selector "lowercaseWord:") ~typ:(id @-> returning (void)) x -let makeTextWritingDirectionLeftToRight x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionLeftToRight:") ~typ:(id @-> returning (void)) x -let makeTextWritingDirectionNatural x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionNatural:") ~typ:(id @-> returning (void)) x -let makeTextWritingDirectionRightToLeft x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionRightToLeft:") ~typ:(id @-> returning (void)) x -let markedRange self = msg_send_stret ~self ~cmd:(selector "markedRange") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let markedTextAttributes self = msg_send ~self ~cmd:(selector "markedTextAttributes") ~typ:(returning (id)) -let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning (id)) -let markedTextStyle self = msg_send ~self ~cmd:(selector "markedTextStyle") ~typ:(returning (id)) -let metadataDictionariesForDictationResults self = msg_send ~self ~cmd:(selector "metadataDictionariesForDictationResults") ~typ:(returning (id)) -let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning (id)) x -let notifyTextCheckingControllerForSelectionChange self = msg_send ~self ~cmd:(selector "notifyTextCheckingControllerForSelectionChange") ~typ:(returning (void)) -let nsRangeForTextRange x self = msg_send_stret ~self ~cmd:(selector "nsRangeForTextRange:") ~typ:(id @-> returning (NSRange.t)) ~return_type:NSRange.t x -let offsetFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "offsetFromPosition:toPosition:") ~typ:(id @-> id @-> returning (llong)) x toPosition -let paste x self = msg_send ~self ~cmd:(selector "paste:") ~typ:(id @-> returning (void)) x -let pasteAndMatchStyle x self = msg_send ~self ~cmd:(selector "pasteAndMatchStyle:") ~typ:(id @-> returning (void)) x -let pasteFont x self = msg_send ~self ~cmd:(selector "pasteFont:") ~typ:(id @-> returning (void)) x -let pasteItemProviders x self = msg_send ~self ~cmd:(selector "pasteItemProviders:") ~typ:(id @-> returning (void)) x -let pasteItemProviders' x ~matchesStyle self = msg_send ~self ~cmd:(selector "pasteItemProviders:matchesStyle:") ~typ:(id @-> bool @-> returning (void)) x matchesStyle -let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int offset) -let positionFromPosition' x ~inDirection ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:inDirection:offset:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int inDirection) (LLong.of_int offset) -let positionWithinRange x ~farthestInDirection self = msg_send ~self ~cmd:(selector "positionWithinRange:farthestInDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int farthestInDirection) -let preheatTextChecker self = msg_send ~self ~cmd:(selector "preheatTextChecker") ~typ:(returning (void)) -let previousSelectedTextRange self = msg_send ~self ~cmd:(selector "previousSelectedTextRange") ~typ:(returning (id)) -let rangeWithTextAlternatives x ~atPosition self = msg_send ~self ~cmd:(selector "rangeWithTextAlternatives:atPosition:") ~typ:(ptr (id) @-> id @-> returning (id)) x atPosition -let registerUndoOperationForType x ~actionName ~affectedRange ~replacementText self = msg_send ~self ~cmd:(selector "registerUndoOperationForType:actionName:affectedRange:replacementText:") ~typ:(int @-> id @-> NSRange.t @-> id @-> returning (void)) x actionName affectedRange replacementText -let removeAlternativesForCurrentWord self = msg_send ~self ~cmd:(selector "removeAlternativesForCurrentWord") ~typ:(returning (void)) -let removeAnnotation x ~forRange self = msg_send ~self ~cmd:(selector "removeAnnotation:forRange:") ~typ:(id @-> id @-> returning (void)) x forRange -let removeDictationResultPlaceholder x ~willInsertResult self = msg_send ~self ~cmd:(selector "removeDictationResultPlaceholder:willInsertResult:") ~typ:(id @-> bool @-> returning (void)) x willInsertResult -let removeSpellingMarkersForCurrentWord self = msg_send ~self ~cmd:(selector "removeSpellingMarkersForCurrentWord") ~typ:(returning (void)) -let removeSpellingMarkersFromWordInRange x self = msg_send ~self ~cmd:(selector "removeSpellingMarkersFromWordInRange:") ~typ:(id @-> returning (void)) x -let removeTextPlaceholder x self = msg_send ~self ~cmd:(selector "removeTextPlaceholder:") ~typ:(id @-> returning (void)) x -let removeTextPlaceholder' x ~notifyInputDelegate self = msg_send ~self ~cmd:(selector "removeTextPlaceholder:notifyInputDelegate:") ~typ:(id @-> bool @-> returning (void)) x notifyInputDelegate -let removeTextStylingFromString x self = msg_send ~self ~cmd:(selector "removeTextStylingFromString:") ~typ:(id @-> returning (void)) x -let replace x self = msg_send ~self ~cmd:(selector "replace:") ~typ:(id @-> returning (void)) x -let replaceRange x ~withAttributedText self = msg_send ~self ~cmd:(selector "replaceRange:withAttributedText:") ~typ:(id @-> id @-> returning (void)) x withAttributedText -let replaceRange1 x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning (void)) x withText -let replaceRange2 x ~withAnnotatedString ~relativeReplacementRange self = msg_send ~self ~cmd:(selector "replaceRange:withAnnotatedString:relativeReplacementRange:") ~typ:(id @-> id @-> NSRange.t @-> returning (void)) x withAnnotatedString relativeReplacementRange -let replaceRangeWithTextWithoutClosingTyping x ~replacementText self = msg_send ~self ~cmd:(selector "replaceRangeWithTextWithoutClosingTyping:replacementText:") ~typ:(id @-> id @-> returning (void)) x replacementText -let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning (bool)) x -let scheduleUndoOperationForType x ~actionName ~previousSelectedRange ~replacementText self = msg_send ~self ~cmd:(selector "scheduleUndoOperationForType:actionName:previousSelectedRange:replacementText:") ~typ:(int @-> id @-> NSRange.t @-> id @-> returning (void)) x actionName previousSelectedRange replacementText -let scrollRangeToVisible x self = msg_send ~self ~cmd:(selector "scrollRangeToVisible:") ~typ:(NSRange.t @-> returning (void)) x -let select x self = msg_send ~self ~cmd:(selector "select:") ~typ:(id @-> returning (void)) x -let selectAll self = msg_send ~self ~cmd:(selector "selectAll") ~typ:(returning (void)) -let selectAll' x self = msg_send ~self ~cmd:(selector "selectAll:") ~typ:(id @-> returning (void)) x -let selectedRange self = msg_send_stret ~self ~cmd:(selector "selectedRange") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning (id)) -let selectionAffinity self = msg_send ~self ~cmd:(selector "selectionAffinity") ~typ:(returning (llong)) -let selectionRectsForRange x self = msg_send ~self ~cmd:(selector "selectionRectsForRange:") ~typ:(id @-> returning (id)) x -let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning (id)) -let setAllowsEditingTextAttributes x self = msg_send ~self ~cmd:(selector "setAllowsEditingTextAttributes:") ~typ:(bool @-> returning (void)) x -let setAttributedMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setAttributedMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning (void)) x selectedRange -let setBaseWritingDirection x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) forRange -let setContinuousSpellCheckingEnabled x self = msg_send ~self ~cmd:(selector "setContinuousSpellCheckingEnabled:") ~typ:(bool @-> returning (void)) x -let setCurrentUndoGroupType x self = msg_send ~self ~cmd:(selector "setCurrentUndoGroupType:") ~typ:(int @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setInputDelegate x self = msg_send ~self ~cmd:(selector "setInputDelegate:") ~typ:(id @-> returning (void)) x -let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning (void)) x selectedRange -let setMarkedTextStyle x self = msg_send ~self ~cmd:(selector "setMarkedTextStyle:") ~typ:(id @-> returning (void)) x -let setPreviousSelectedTextRange x self = msg_send ~self ~cmd:(selector "setPreviousSelectedTextRange:") ~typ:(id @-> returning (void)) x -let setSelectedRange x self = msg_send ~self ~cmd:(selector "setSelectedRange:") ~typ:(NSRange.t @-> returning (void)) x -let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning (void)) x -let setShouldStartUndoGroup x self = msg_send ~self ~cmd:(selector "setShouldStartUndoGroup:") ~typ:(bool @-> returning (void)) x -let setTypingAttributes x self = msg_send ~self ~cmd:(selector "setTypingAttributes:") ~typ:(id @-> returning (void)) x -let shouldStartNewUndoGroup x ~textGranularity ~operationType self = msg_send ~self ~cmd:(selector "shouldStartNewUndoGroup:textGranularity:operationType:") ~typ:(id @-> llong @-> int @-> returning (bool)) x (LLong.of_int textGranularity) operationType -let shouldStartUndoGroup self = msg_send ~self ~cmd:(selector "shouldStartUndoGroup") ~typ:(returning (bool)) -let stopCoalescing self = msg_send ~self ~cmd:(selector "stopCoalescing") ~typ:(returning (void)) -let supportLetterByLetterUndo self = msg_send ~self ~cmd:(selector "supportLetterByLetterUndo") ~typ:(returning (bool)) -let textChecker self = msg_send ~self ~cmd:(selector "textChecker") ~typ:(returning (id)) -let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning (id)) x -let textInputSuggestionDelegate self = msg_send ~self ~cmd:(selector "textInputSuggestionDelegate") ~typ:(returning (id)) -let textLayoutController self = msg_send ~self ~cmd:(selector "textLayoutController") ~typ:(returning (id)) -let textRangeForNSRange x self = msg_send ~self ~cmd:(selector "textRangeForNSRange:") ~typ:(NSRange.t @-> returning (id)) x -let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning (id)) x toPosition -let textStylingAtPosition x ~inDirection self = msg_send ~self ~cmd:(selector "textStylingAtPosition:inDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int inDirection) -let toggleBoldface x self = msg_send ~self ~cmd:(selector "toggleBoldface:") ~typ:(id @-> returning (void)) x -let toggleItalics x self = msg_send ~self ~cmd:(selector "toggleItalics:") ~typ:(id @-> returning (void)) x -let toggleUnderline x self = msg_send ~self ~cmd:(selector "toggleUnderline:") ~typ:(id @-> returning (void)) x -let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning (id)) -let typingAttributes self = msg_send ~self ~cmd:(selector "typingAttributes") ~typ:(returning (id)) -let undoDidChangeText self = msg_send ~self ~cmd:(selector "undoDidChangeText") ~typ:(returning (void)) -let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning (id)) -let undoWillChangeText self = msg_send ~self ~cmd:(selector "undoWillChangeText") ~typ:(returning (void)) -let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning (void)) -let updateSelection self = msg_send ~self ~cmd:(selector "updateSelection") ~typ:(returning (void)) -let updateTextAttributesWithConversionHandler x self = msg_send ~self ~cmd:(selector "updateTextAttributesWithConversionHandler:") ~typ:(ptr void @-> returning (void)) x -let uppercaseWord x self = msg_send ~self ~cmd:(selector "uppercaseWord:") ~typ:(id @-> returning (void)) x -let validAnnotations self = msg_send ~self ~cmd:(selector "validAnnotations") ~typ:(returning (id)) -let validateCommand x self = msg_send ~self ~cmd:(selector "validateCommand:") ~typ:(id @-> returning (void)) x -let writingDirectionAtPosition x self = msg_send ~self ~cmd:(selector "writingDirectionAtPosition:") ~typ:(id @-> returning (llong)) x \ No newline at end of file +let self = get_class "UITextInputController" + +let addTextAlternativesDisplayStyle x ~toRange self = msg_send ~self ~cmd:(selector "addTextAlternativesDisplayStyle:toRange:") ~typ:(llong @-> NSRange.t @-> returning void) (LLong.of_int x) toRange +let alignCenter x self = msg_send ~self ~cmd:(selector "alignCenter:") ~typ:(id @-> returning void) x +let alignJustified x self = msg_send ~self ~cmd:(selector "alignJustified:") ~typ:(id @-> returning void) x +let alignLeft x self = msg_send ~self ~cmd:(selector "alignLeft:") ~typ:(id @-> returning void) x +let alignRight x self = msg_send ~self ~cmd:(selector "alignRight:") ~typ:(id @-> returning void) x +let allowsEditingTextAttributes self = msg_send ~self ~cmd:(selector "allowsEditingTextAttributes") ~typ:(returning bool) +let annotatedSubstringForRange x self = msg_send ~self ~cmd:(selector "annotatedSubstringForRange:") ~typ:(id @-> returning id) x +let appendUndoOperation x ~newGroup self = msg_send ~self ~cmd:(selector "appendUndoOperation:newGroup:") ~typ:(id @-> bool @-> returning void) x newGroup +let attributedSubstringForMarkedRange self = msg_send ~self ~cmd:(selector "attributedSubstringForMarkedRange") ~typ:(returning id) +let attributedTextInRange x self = msg_send ~self ~cmd:(selector "attributedTextInRange:") ~typ:(id @-> returning id) x +let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int inDirection) +let beginSelectionChange self = msg_send ~self ~cmd:(selector "beginSelectionChange") ~typ:(returning void) +let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning id) +let capitalizeWord x self = msg_send ~self ~cmd:(selector "capitalizeWord:") ~typ:(id @-> returning void) x +let captureTextFromCamera x self = msg_send ~self ~cmd:(selector "captureTextFromCamera:") ~typ:(id @-> returning void) x +let caretRectForPosition x self = msg_send ~self ~cmd:(selector "caretRectForPosition:") ~typ:(id @-> returning CGRect.t) x +let changeWillBeUndone x self = msg_send ~self ~cmd:(selector "changeWillBeUndone:") ~typ:(id @-> returning void) x +let characterRangeAtPoint x self = msg_send ~self ~cmd:(selector "characterRangeAtPoint:") ~typ:(CGPoint.t @-> returning id) x +let characterRangeByExtendingPosition x ~inDirection self = msg_send ~self ~cmd:(selector "characterRangeByExtendingPosition:inDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int inDirection) +let checkSmartPunctuationForWordInRange x self = msg_send ~self ~cmd:(selector "checkSmartPunctuationForWordInRange:") ~typ:(id @-> returning void) x +let checkSpellingForSelectionChangeIfNecessary self = msg_send ~self ~cmd:(selector "checkSpellingForSelectionChangeIfNecessary") ~typ:(returning void) +let checkSpellingForWordInRange x self = msg_send ~self ~cmd:(selector "checkSpellingForWordInRange:") ~typ:(id @-> returning void) x +let clearText self = msg_send ~self ~cmd:(selector "clearText") ~typ:(returning void) +let closestPositionToPoint x self = msg_send ~self ~cmd:(selector "closestPositionToPoint:") ~typ:(CGPoint.t @-> returning id) x +let closestPositionToPoint' x ~withinRange self = msg_send ~self ~cmd:(selector "closestPositionToPoint:withinRange:") ~typ:(CGPoint.t @-> id @-> returning id) x withinRange +let coalesceInTextView x ~actionName ~affectedRange ~replacementRange ~replacementText self = msg_send ~self ~cmd:(selector "coalesceInTextView:actionName:affectedRange:replacementRange:replacementText:") ~typ:(id @-> id @-> NSRange.t @-> NSRange.t @-> id @-> returning void) x actionName affectedRange replacementRange replacementText +let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning llong) x toPosition +let continuousSpellCheckingEnabled self = msg_send ~self ~cmd:(selector "continuousSpellCheckingEnabled") ~typ:(returning bool) +let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning void) x +let copyFont x self = msg_send ~self ~cmd:(selector "copyFont:") ~typ:(id @-> returning void) x +let currentUndoGroupType self = msg_send ~self ~cmd:(selector "currentUndoGroupType") ~typ:(returning int) +let cut x self = msg_send ~self ~cmd:(selector "cut:") ~typ:(id @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let decreaseSize x self = msg_send ~self ~cmd:(selector "decreaseSize:") ~typ:(id @-> returning void) x +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning void) +let didEndEditing self = msg_send ~self ~cmd:(selector "didEndEditing") ~typ:(returning void) +let dontRemoveAllActions self = msg_send ~self ~cmd:(selector "dontRemoveAllActions") ~typ:(returning bool) +let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning id) +let endSelectionChange self = msg_send ~self ~cmd:(selector "endSelectionChange") ~typ:(returning void) +let filteredAttributedText self = msg_send ~self ~cmd:(selector "filteredAttributedText") ~typ:(returning id) +let firstRectForRange x self = msg_send ~self ~cmd:(selector "firstRectForRange:") ~typ:(id @-> returning CGRect.t) x +let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning void) x +let frameForDictationResultPlaceholder x self = msg_send ~self ~cmd:(selector "frameForDictationResultPlaceholder:") ~typ:(id @-> returning CGRect.t) x +let frameForTextPlaceholder x self = msg_send ~self ~cmd:(selector "frameForTextPlaceholder:") ~typ:(id @-> returning CGRect.t) x +let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning bool) +let increaseSize x self = msg_send ~self ~cmd:(selector "increaseSize:") ~typ:(id @-> returning void) x +let initWithTextLayoutController x self = msg_send ~self ~cmd:(selector "initWithTextLayoutController:") ~typ:(id @-> returning id) x +let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning id) +let insertAttributedText x self = msg_send ~self ~cmd:(selector "insertAttributedText:") ~typ:(id @-> returning void) x +let insertDictationResult x ~withCorrectionIdentifier self = msg_send ~self ~cmd:(selector "insertDictationResult:withCorrectionIdentifier:") ~typ:(id @-> id @-> returning void) x withCorrectionIdentifier +let insertDictationResultPlaceholder self = msg_send ~self ~cmd:(selector "insertDictationResultPlaceholder") ~typ:(returning id) +let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning void) x +let insertTextPlaceholderWithSize x self = msg_send ~self ~cmd:(selector "insertTextPlaceholderWithSize:") ~typ:(CGSize.t @-> returning id) x +let insertTextPlaceholderWithSize' x ~embeddingType self = msg_send ~self ~cmd:(selector "insertTextPlaceholderWithSize:embeddingType:") ~typ:(CGSize.t @-> llong @-> returning id) x (LLong.of_int embeddingType) +let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning id) +let isCoalescing self = msg_send ~self ~cmd:(selector "isCoalescing") ~typ:(returning bool) +let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning bool) +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let lowercaseWord x self = msg_send ~self ~cmd:(selector "lowercaseWord:") ~typ:(id @-> returning void) x +let makeTextWritingDirectionLeftToRight x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionLeftToRight:") ~typ:(id @-> returning void) x +let makeTextWritingDirectionNatural x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionNatural:") ~typ:(id @-> returning void) x +let makeTextWritingDirectionRightToLeft x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionRightToLeft:") ~typ:(id @-> returning void) x +let markedRange self = msg_send ~self ~cmd:(selector "markedRange") ~typ:(returning NSRange.t) +let markedTextAttributes self = msg_send ~self ~cmd:(selector "markedTextAttributes") ~typ:(returning id) +let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning id) +let markedTextStyle self = msg_send ~self ~cmd:(selector "markedTextStyle") ~typ:(returning id) +let metadataDictionariesForDictationResults self = msg_send ~self ~cmd:(selector "metadataDictionariesForDictationResults") ~typ:(returning id) +let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning id) x +let notifyTextCheckingControllerForSelectionChange self = msg_send ~self ~cmd:(selector "notifyTextCheckingControllerForSelectionChange") ~typ:(returning void) +let nsRangeForTextRange x self = msg_send ~self ~cmd:(selector "nsRangeForTextRange:") ~typ:(id @-> returning NSRange.t) x +let offsetFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "offsetFromPosition:toPosition:") ~typ:(id @-> id @-> returning llong) x toPosition +let paste x self = msg_send ~self ~cmd:(selector "paste:") ~typ:(id @-> returning void) x +let pasteAndMatchStyle x self = msg_send ~self ~cmd:(selector "pasteAndMatchStyle:") ~typ:(id @-> returning void) x +let pasteFont x self = msg_send ~self ~cmd:(selector "pasteFont:") ~typ:(id @-> returning void) x +let pasteItemProviders x self = msg_send ~self ~cmd:(selector "pasteItemProviders:") ~typ:(id @-> returning void) x +let pasteItemProviders' x ~matchesStyle self = msg_send ~self ~cmd:(selector "pasteItemProviders:matchesStyle:") ~typ:(id @-> bool @-> returning void) x matchesStyle +let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int offset) +let positionFromPosition' x ~inDirection ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:inDirection:offset:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int inDirection) (LLong.of_int offset) +let positionWithinRange x ~farthestInDirection self = msg_send ~self ~cmd:(selector "positionWithinRange:farthestInDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int farthestInDirection) +let preheatTextChecker self = msg_send ~self ~cmd:(selector "preheatTextChecker") ~typ:(returning void) +let previousSelectedTextRange self = msg_send ~self ~cmd:(selector "previousSelectedTextRange") ~typ:(returning id) +let rangeWithTextAlternatives x ~atPosition self = msg_send ~self ~cmd:(selector "rangeWithTextAlternatives:atPosition:") ~typ:((ptr id) @-> id @-> returning id) x atPosition +let registerUndoOperationForType x ~actionName ~affectedRange ~replacementText self = msg_send ~self ~cmd:(selector "registerUndoOperationForType:actionName:affectedRange:replacementText:") ~typ:(int @-> id @-> NSRange.t @-> id @-> returning void) x actionName affectedRange replacementText +let removeAlternativesForCurrentWord self = msg_send ~self ~cmd:(selector "removeAlternativesForCurrentWord") ~typ:(returning void) +let removeAnnotation x ~forRange self = msg_send ~self ~cmd:(selector "removeAnnotation:forRange:") ~typ:(id @-> id @-> returning void) x forRange +let removeDictationResultPlaceholder x ~willInsertResult self = msg_send ~self ~cmd:(selector "removeDictationResultPlaceholder:willInsertResult:") ~typ:(id @-> bool @-> returning void) x willInsertResult +let removeSpellingMarkersForCurrentWord self = msg_send ~self ~cmd:(selector "removeSpellingMarkersForCurrentWord") ~typ:(returning void) +let removeSpellingMarkersFromWordInRange x self = msg_send ~self ~cmd:(selector "removeSpellingMarkersFromWordInRange:") ~typ:(id @-> returning void) x +let removeTextPlaceholder x self = msg_send ~self ~cmd:(selector "removeTextPlaceholder:") ~typ:(id @-> returning void) x +let removeTextPlaceholder' x ~notifyInputDelegate self = msg_send ~self ~cmd:(selector "removeTextPlaceholder:notifyInputDelegate:") ~typ:(id @-> bool @-> returning void) x notifyInputDelegate +let removeTextStylingFromString x self = msg_send ~self ~cmd:(selector "removeTextStylingFromString:") ~typ:(id @-> returning void) x +let replace x self = msg_send ~self ~cmd:(selector "replace:") ~typ:(id @-> returning void) x +let replaceRange x ~withAttributedText self = msg_send ~self ~cmd:(selector "replaceRange:withAttributedText:") ~typ:(id @-> id @-> returning void) x withAttributedText +let replaceRange1 x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning void) x withText +let replaceRange2 x ~withAnnotatedString ~relativeReplacementRange self = msg_send ~self ~cmd:(selector "replaceRange:withAnnotatedString:relativeReplacementRange:") ~typ:(id @-> id @-> NSRange.t @-> returning void) x withAnnotatedString relativeReplacementRange +let replaceRangeWithTextWithoutClosingTyping x ~replacementText self = msg_send ~self ~cmd:(selector "replaceRangeWithTextWithoutClosingTyping:replacementText:") ~typ:(id @-> id @-> returning void) x replacementText +let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning bool) x +let scheduleUndoOperationForType x ~actionName ~previousSelectedRange ~replacementText self = msg_send ~self ~cmd:(selector "scheduleUndoOperationForType:actionName:previousSelectedRange:replacementText:") ~typ:(int @-> id @-> NSRange.t @-> id @-> returning void) x actionName previousSelectedRange replacementText +let scrollRangeToVisible x self = msg_send ~self ~cmd:(selector "scrollRangeToVisible:") ~typ:(NSRange.t @-> returning void) x +let select x self = msg_send ~self ~cmd:(selector "select:") ~typ:(id @-> returning void) x +let selectAll self = msg_send ~self ~cmd:(selector "selectAll") ~typ:(returning void) +let selectAll' x self = msg_send ~self ~cmd:(selector "selectAll:") ~typ:(id @-> returning void) x +let selectedRange self = msg_send ~self ~cmd:(selector "selectedRange") ~typ:(returning NSRange.t) +let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning id) +let selectionAffinity self = msg_send ~self ~cmd:(selector "selectionAffinity") ~typ:(returning llong) +let selectionRectsForRange x self = msg_send ~self ~cmd:(selector "selectionRectsForRange:") ~typ:(id @-> returning id) x +let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning id) +let setAllowsEditingTextAttributes x self = msg_send ~self ~cmd:(selector "setAllowsEditingTextAttributes:") ~typ:(bool @-> returning void) x +let setAttributedMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setAttributedMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning void) x selectedRange +let setBaseWritingDirection x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) forRange +let setContinuousSpellCheckingEnabled x self = msg_send ~self ~cmd:(selector "setContinuousSpellCheckingEnabled:") ~typ:(bool @-> returning void) x +let setCurrentUndoGroupType x self = msg_send ~self ~cmd:(selector "setCurrentUndoGroupType:") ~typ:(int @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setInputDelegate x self = msg_send ~self ~cmd:(selector "setInputDelegate:") ~typ:(id @-> returning void) x +let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning void) x selectedRange +let setMarkedTextStyle x self = msg_send ~self ~cmd:(selector "setMarkedTextStyle:") ~typ:(id @-> returning void) x +let setPreviousSelectedTextRange x self = msg_send ~self ~cmd:(selector "setPreviousSelectedTextRange:") ~typ:(id @-> returning void) x +let setSelectedRange x self = msg_send ~self ~cmd:(selector "setSelectedRange:") ~typ:(NSRange.t @-> returning void) x +let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning void) x +let setShouldStartUndoGroup x self = msg_send ~self ~cmd:(selector "setShouldStartUndoGroup:") ~typ:(bool @-> returning void) x +let setTypingAttributes x self = msg_send ~self ~cmd:(selector "setTypingAttributes:") ~typ:(id @-> returning void) x +let shouldStartNewUndoGroup x ~textGranularity ~operationType self = msg_send ~self ~cmd:(selector "shouldStartNewUndoGroup:textGranularity:operationType:") ~typ:(id @-> llong @-> int @-> returning bool) x (LLong.of_int textGranularity) operationType +let shouldStartUndoGroup self = msg_send ~self ~cmd:(selector "shouldStartUndoGroup") ~typ:(returning bool) +let stopCoalescing self = msg_send ~self ~cmd:(selector "stopCoalescing") ~typ:(returning void) +let supportLetterByLetterUndo self = msg_send ~self ~cmd:(selector "supportLetterByLetterUndo") ~typ:(returning bool) +let textChecker self = msg_send ~self ~cmd:(selector "textChecker") ~typ:(returning id) +let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning id) x +let textInputSuggestionDelegate self = msg_send ~self ~cmd:(selector "textInputSuggestionDelegate") ~typ:(returning id) +let textLayoutController self = msg_send ~self ~cmd:(selector "textLayoutController") ~typ:(returning id) +let textRangeForNSRange x self = msg_send ~self ~cmd:(selector "textRangeForNSRange:") ~typ:(NSRange.t @-> returning id) x +let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning id) x toPosition +let textStylingAtPosition x ~inDirection self = msg_send ~self ~cmd:(selector "textStylingAtPosition:inDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int inDirection) +let toggleBoldface x self = msg_send ~self ~cmd:(selector "toggleBoldface:") ~typ:(id @-> returning void) x +let toggleItalics x self = msg_send ~self ~cmd:(selector "toggleItalics:") ~typ:(id @-> returning void) x +let toggleUnderline x self = msg_send ~self ~cmd:(selector "toggleUnderline:") ~typ:(id @-> returning void) x +let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning id) +let typingAttributes self = msg_send ~self ~cmd:(selector "typingAttributes") ~typ:(returning id) +let undoDidChangeText self = msg_send ~self ~cmd:(selector "undoDidChangeText") ~typ:(returning void) +let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning id) +let undoWillChangeText self = msg_send ~self ~cmd:(selector "undoWillChangeText") ~typ:(returning void) +let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning void) +let updateSelection self = msg_send ~self ~cmd:(selector "updateSelection") ~typ:(returning void) +let updateTextAttributesWithConversionHandler x self = msg_send ~self ~cmd:(selector "updateTextAttributesWithConversionHandler:") ~typ:((ptr void) @-> returning void) x +let uppercaseWord x self = msg_send ~self ~cmd:(selector "uppercaseWord:") ~typ:(id @-> returning void) x +let validAnnotations self = msg_send ~self ~cmd:(selector "validAnnotations") ~typ:(returning id) +let validateCommand x self = msg_send ~self ~cmd:(selector "validateCommand:") ~typ:(id @-> returning void) x +let writingDirectionAtPosition x self = msg_send ~self ~cmd:(selector "writingDirectionAtPosition:") ~typ:(id @-> returning llong) x \ No newline at end of file diff --git a/uikit/UITextInputMode.ml b/uikit/UITextInputMode.ml index 7ce5e2f0..9ce28193 100644 --- a/uikit/UITextInputMode.ml +++ b/uikit/UITextInputMode.ml @@ -5,15 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextInputMode" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinputmode?language=objc}UITextInputMode} *) -module C = struct - let activeInputModes self = msg_send ~self ~cmd:(selector "activeInputModes") ~typ:(returning (id)) - let currentInputMode self = msg_send ~self ~cmd:(selector "currentInputMode") ~typ:(returning (id)) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UITextInputMode" -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 primaryLanguage self = msg_send ~self ~cmd:(selector "primaryLanguage") ~typ:(returning (id)) \ No newline at end of file +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 primaryLanguage self = msg_send ~self ~cmd:(selector "primaryLanguage") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextInputModeClass.ml b/uikit/UITextInputModeClass.ml new file mode 100644 index 00000000..0f5328a6 --- /dev/null +++ b/uikit/UITextInputModeClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinputmode?language=objc}UITextInputMode} *) + +let activeInputModes self = msg_send ~self ~cmd:(selector "activeInputModes") ~typ:(returning id) +let currentInputMode self = msg_send ~self ~cmd:(selector "currentInputMode") ~typ:(returning id) +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITextInputPasswordRules.ml b/uikit/UITextInputPasswordRules.ml index 96cde300..fb8f80a0 100644 --- a/uikit/UITextInputPasswordRules.ml +++ b/uikit/UITextInputPasswordRules.ml @@ -5,18 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextInputPasswordRules" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinputpasswordrules?language=objc}UITextInputPasswordRules} *) -module C = struct - let passwordRulesWithDescriptor x self = msg_send ~self ~cmd:(selector "passwordRulesWithDescriptor:") ~typ:(id @-> returning (id)) x - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UITextInputPasswordRules" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let initPasswordRulesWithDescriptor x self = msg_send ~self ~cmd:(selector "initPasswordRulesWithDescriptor:") ~typ:(id @-> returning (id)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let passwordRulesDescriptor self = msg_send ~self ~cmd:(selector "passwordRulesDescriptor") ~typ:(returning (id)) \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let initPasswordRulesWithDescriptor x self = msg_send ~self ~cmd:(selector "initPasswordRulesWithDescriptor:") ~typ:(id @-> returning id) x +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let passwordRulesDescriptor self = msg_send ~self ~cmd:(selector "passwordRulesDescriptor") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextInputPasswordRulesClass.ml b/uikit/UITextInputPasswordRulesClass.ml new file mode 100644 index 00000000..8c90ed57 --- /dev/null +++ b/uikit/UITextInputPasswordRulesClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinputpasswordrules?language=objc}UITextInputPasswordRules} *) + +let passwordRulesWithDescriptor x self = msg_send ~self ~cmd:(selector "passwordRulesWithDescriptor:") ~typ:(id @-> returning id) x +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITextInputPayloadController.ml b/uikit/UITextInputPayloadController.ml index 7ec39173..8d348c91 100644 --- a/uikit/UITextInputPayloadController.ml +++ b/uikit/UITextInputPayloadController.ml @@ -5,16 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextInputPayloadController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinputpayloadcontroller?language=objc}UITextInputPayloadController} *) -module C = struct - let releaseSharedInstance self = msg_send ~self ~cmd:(selector "releaseSharedInstance") ~typ:(returning (void)) - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end +let self = get_class "UITextInputPayloadController" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let payloadDelegate self = msg_send ~self ~cmd:(selector "payloadDelegate") ~typ:(returning (id)) -let setPayloadDelegate x self = msg_send ~self ~cmd:(selector "setPayloadDelegate:") ~typ:(id @-> returning (void)) x -let setSupportedPayloadIds x self = msg_send ~self ~cmd:(selector "setSupportedPayloadIds:") ~typ:(id @-> returning (void)) x -let supportedPayloadIds self = msg_send ~self ~cmd:(selector "supportedPayloadIds") ~typ:(returning (id)) \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let payloadDelegate self = msg_send ~self ~cmd:(selector "payloadDelegate") ~typ:(returning id) +let setPayloadDelegate x self = msg_send ~self ~cmd:(selector "setPayloadDelegate:") ~typ:(id @-> returning void) x +let setSupportedPayloadIds x self = msg_send ~self ~cmd:(selector "setSupportedPayloadIds:") ~typ:(id @-> returning void) x +let supportedPayloadIds self = msg_send ~self ~cmd:(selector "supportedPayloadIds") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextInputPayloadControllerClass.ml b/uikit/UITextInputPayloadControllerClass.ml new file mode 100644 index 00000000..599b2e97 --- /dev/null +++ b/uikit/UITextInputPayloadControllerClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinputpayloadcontroller?language=objc}UITextInputPayloadController} *) + +let releaseSharedInstance self = msg_send ~self ~cmd:(selector "releaseSharedInstance") ~typ:(returning void) +let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextInputSessionActionAnalytics.ml b/uikit/UITextInputSessionActionAnalytics.ml deleted file mode 100644 index 5bd70cf2..00000000 --- a/uikit/UITextInputSessionActionAnalytics.ml +++ /dev/null @@ -1,42 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextInputSessionActionAnalytics" - -module C = struct - let addEndingObserver x self = msg_send ~self ~cmd:(selector "addEndingObserver:") ~typ:(id @-> returning (void)) x - let addObserver x self = msg_send ~self ~cmd:(selector "addObserver:") ~typ:(id @-> returning (void)) x - let allowedValuesForTextInputSource self = msg_send ~self ~cmd:(selector "allowedValuesForTextInputSource") ~typ:(returning (id)) - let removeEndingObserver x self = msg_send ~self ~cmd:(selector "removeEndingObserver:") ~typ:(id @-> returning (void)) x - let removeObserver x self = msg_send ~self ~cmd:(selector "removeObserver:") ~typ:(id @-> returning (void)) x - let sharedPunctuationCharacterSet self = msg_send ~self ~cmd:(selector "sharedPunctuationCharacterSet") ~typ:(returning (id)) - let stringValueForSource x self = msg_send ~self ~cmd:(selector "stringValueForSource:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -end - -let addAccumulator x self = msg_send ~self ~cmd:(selector "addAccumulator:") ~typ:(id @-> returning (void)) x -let addEfficacyAccumulator x self = msg_send ~self ~cmd:(selector "addEfficacyAccumulator:") ~typ:(id @-> returning (void)) x -let allAccumulatorNames self = msg_send ~self ~cmd:(selector "allAccumulatorNames") ~typ:(returning (id)) -let allEfficacyAccumulatorNames self = msg_send ~self ~cmd:(selector "allEfficacyAccumulatorNames") ~typ:(returning (id)) -let beginTrackingSessionDurationIfNecessary self = msg_send ~self ~cmd:(selector "beginTrackingSessionDurationIfNecessary") ~typ:(returning (void)) -let delegateSource self = msg_send ~self ~cmd:(selector "delegateSource") ~typ:(returning (id)) -let didBegin self = msg_send ~self ~cmd:(selector "didBegin") ~typ:(returning (void)) -let didChangeToSelection x ~relativeRangeBefore self = msg_send ~self ~cmd:(selector "didChangeToSelection:relativeRangeBefore:") ~typ:(NSRange.t @-> NSRange.t @-> returning (void)) x relativeRangeBefore -let didDeleteBackward x ~relativeRangeBefore self = msg_send ~self ~cmd:(selector "didDeleteBackward:relativeRangeBefore:") ~typ:(ullong @-> NSRange.t @-> returning (void)) (ULLong.of_int x) relativeRangeBefore -let didDictationBegin x self = msg_send ~self ~cmd:(selector "didDictationBegin:") ~typ:(bool @-> returning (void)) x -let didInsertText x ~relativeRangeBefore self = msg_send ~self ~cmd:(selector "didInsertText:relativeRangeBefore:") ~typ:(id @-> NSRange.t @-> returning (void)) x relativeRangeBefore -let didOther self = msg_send ~self ~cmd:(selector "didOther") ~typ:(returning (void)) -let didRedo self = msg_send ~self ~cmd:(selector "didRedo") ~typ:(returning (void)) -let didUndo self = msg_send ~self ~cmd:(selector "didUndo") ~typ:(returning (void)) -let enumerateAnalytics x self = msg_send ~self ~cmd:(selector "enumerateAnalytics:") ~typ:(ptr void @-> returning (void)) x -let enumerateEfficacyAnalytics x self = msg_send ~self ~cmd:(selector "enumerateEfficacyAnalytics:") ~typ:(ptr void @-> returning (void)) x -let enumerateSeparateCycleAnalytics x self = msg_send ~self ~cmd:(selector "enumerateSeparateCycleAnalytics:") ~typ:(ptr void @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let sessionIdentifier self = msg_send ~self ~cmd:(selector "sessionIdentifier") ~typ:(returning (id)) -let setDelegateSource x self = msg_send ~self ~cmd:(selector "setDelegateSource:") ~typ:(id @-> returning (void)) x -let setSessionIdentifier x self = msg_send ~self ~cmd:(selector "setSessionIdentifier:") ~typ:(id @-> returning (void)) x -let writeAnalytics self = msg_send ~self ~cmd:(selector "writeAnalytics") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit/UITextInputStringTokenizer.ml b/uikit/UITextInputStringTokenizer.ml index 08b2a53f..df662bbd 100644 --- a/uikit/UITextInputStringTokenizer.ml +++ b/uikit/UITextInputStringTokenizer.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextInputStringTokenizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinputstringtokenizer?language=objc}UITextInputStringTokenizer} *) -let initWithTextInput x self = msg_send ~self ~cmd:(selector "initWithTextInput:") ~typ:(id @-> returning (id)) x -let isPosition x ~atBoundary ~inDirection self = msg_send ~self ~cmd:(selector "isPosition:atBoundary:inDirection:") ~typ:(id @-> llong @-> llong @-> returning (bool)) x (LLong.of_int atBoundary) (LLong.of_int inDirection) -let isPosition' x ~withinTextUnit ~inDirection self = msg_send ~self ~cmd:(selector "isPosition:withinTextUnit:inDirection:") ~typ:(id @-> llong @-> llong @-> returning (bool)) x (LLong.of_int withinTextUnit) (LLong.of_int inDirection) -let positionFromPosition x ~toBoundary ~inDirection self = msg_send ~self ~cmd:(selector "positionFromPosition:toBoundary:inDirection:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int toBoundary) (LLong.of_int inDirection) -let rangeEnclosingPosition x ~withGranularity ~inDirection self = msg_send ~self ~cmd:(selector "rangeEnclosingPosition:withGranularity:inDirection:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int withGranularity) (LLong.of_int inDirection) \ No newline at end of file +let self = get_class "UITextInputStringTokenizer" + +let initWithTextInput x self = msg_send ~self ~cmd:(selector "initWithTextInput:") ~typ:(id @-> returning id) x +let isPosition x ~atBoundary ~inDirection self = msg_send ~self ~cmd:(selector "isPosition:atBoundary:inDirection:") ~typ:(id @-> llong @-> llong @-> returning bool) x (LLong.of_int atBoundary) (LLong.of_int inDirection) +let isPosition' x ~withinTextUnit ~inDirection self = msg_send ~self ~cmd:(selector "isPosition:withinTextUnit:inDirection:") ~typ:(id @-> llong @-> llong @-> returning bool) x (LLong.of_int withinTextUnit) (LLong.of_int inDirection) +let positionFromPosition x ~toBoundary ~inDirection self = msg_send ~self ~cmd:(selector "positionFromPosition:toBoundary:inDirection:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int toBoundary) (LLong.of_int inDirection) +let rangeEnclosingPosition x ~withGranularity ~inDirection self = msg_send ~self ~cmd:(selector "rangeEnclosingPosition:withGranularity:inDirection:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int withGranularity) (LLong.of_int inDirection) \ No newline at end of file diff --git a/uikit/UITextInputTraits.ml b/uikit/UITextInputTraits.ml index 2e7cdc64..bb72fae2 100644 --- a/uikit/UITextInputTraits.ml +++ b/uikit/UITextInputTraits.ml @@ -5,189 +5,177 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextInputTraits" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinputtraits?language=objc}UITextInputTraits} *) -module C = struct - let accessibleAppearanceForAppearance x self = msg_send ~self ~cmd:(selector "accessibleAppearanceForAppearance:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) - let configuredAppearanceForAppearance x ~withTraitEnvironment self = msg_send ~self ~cmd:(selector "configuredAppearanceForAppearance:withTraitEnvironment:") ~typ:(llong @-> id @-> returning (llong)) (LLong.of_int x) withTraitEnvironment - let defaultTextInputTraits self = msg_send ~self ~cmd:(selector "defaultTextInputTraits") ~typ:(returning (id)) - let keyboardTypeRequiresASCIICapable x self = msg_send ~self ~cmd:(selector "keyboardTypeRequiresASCIICapable:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) - let traitEnvironmentFromTraits x self = msg_send ~self ~cmd:(selector "traitEnvironmentFromTraits:") ~typ:(id @-> returning (id)) x - let traitsByAdoptingTraits x self = msg_send ~self ~cmd:(selector "traitsByAdoptingTraits:") ~typ:(id @-> returning (id)) x - let traitsByAdoptingTraits' x ~lightweight self = msg_send ~self ~cmd:(selector "traitsByAdoptingTraits:lightweight:") ~typ:(id @-> bool @-> returning (id)) x lightweight - let translateToUIAutocapitalizationType x self = msg_send ~self ~cmd:(selector "translateToUIAutocapitalizationType:") ~typ:(ullong @-> returning (llong)) (ULLong.of_int x) - let translateToUIAutocorrectionType x self = msg_send ~self ~cmd:(selector "translateToUIAutocorrectionType:") ~typ:(ullong @-> returning (llong)) (ULLong.of_int x) - let translateToUIKeyboardAppearance x self = msg_send ~self ~cmd:(selector "translateToUIKeyboardAppearance:") ~typ:(ullong @-> returning (llong)) (ULLong.of_int x) - let translateToUIKeyboardType x self = msg_send ~self ~cmd:(selector "translateToUIKeyboardType:") ~typ:(ullong @-> returning (llong)) (ULLong.of_int x) - let translateToUIReturnKeyType x self = msg_send ~self ~cmd:(selector "translateToUIReturnKeyType:") ~typ:(ullong @-> returning (llong)) (ULLong.of_int x) - let translateToUISmartInsertDeleteEnabled x self = msg_send ~self ~cmd:(selector "translateToUISmartInsertDeleteEnabled:") ~typ:(bool @-> returning (llong)) x - let translateToUISpellCheckingType x self = msg_send ~self ~cmd:(selector "translateToUISpellCheckingType:") ~typ:(ullong @-> returning (llong)) (ULLong.of_int x) - let translateToUITextScriptType x self = msg_send ~self ~cmd:(selector "translateToUITextScriptType:") ~typ:(ullong @-> returning (llong)) (ULLong.of_int x) -end +let self = get_class "UITextInputTraits" -let _PINEntrySeparatorIndexes self = msg_send ~self ~cmd:(selector "PINEntrySeparatorIndexes") ~typ:(returning (id)) -let acceptsDictationSearchResults self = msg_send ~self ~cmd:(selector "acceptsDictationSearchResults") ~typ:(returning (bool)) -let acceptsEmoji self = msg_send ~self ~cmd:(selector "acceptsEmoji") ~typ:(returning (bool)) -let acceptsFloatingKeyboard self = msg_send ~self ~cmd:(selector "acceptsFloatingKeyboard") ~typ:(returning (bool)) -let acceptsInitialEmojiKeyboard self = msg_send ~self ~cmd:(selector "acceptsInitialEmojiKeyboard") ~typ:(returning (bool)) -let acceptsPayloads self = msg_send ~self ~cmd:(selector "acceptsPayloads") ~typ:(returning (bool)) -let acceptsSplitKeyboard self = msg_send ~self ~cmd:(selector "acceptsSplitKeyboard") ~typ:(returning (bool)) -let allowsSuggestionsOnlyMode self = msg_send ~self ~cmd:(selector "allowsSuggestionsOnlyMode") ~typ:(returning (bool)) -let autocapitalizationType self = msg_send ~self ~cmd:(selector "autocapitalizationType") ~typ:(returning (llong)) -let autocorrectionContext self = msg_send ~self ~cmd:(selector "autocorrectionContext") ~typ:(returning (id)) -let autocorrectionType self = msg_send ~self ~cmd:(selector "autocorrectionType") ~typ:(returning (llong)) -let contentsIsSingleValue self = msg_send ~self ~cmd:(selector "contentsIsSingleValue") ~typ:(returning (bool)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deferBecomingResponder self = msg_send ~self ~cmd:(selector "deferBecomingResponder") ~typ:(returning (bool)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let dictationInfoKeyboardType self = msg_send ~self ~cmd:(selector "dictationInfoKeyboardType") ~typ:(returning (llong)) -let dictationKeyboardType self = msg_send ~self ~cmd:(selector "dictationKeyboardType") ~typ:(returning (llong)) -let dictionaryRepresentation self = msg_send ~self ~cmd:(selector "dictionaryRepresentation") ~typ:(returning (id)) -let disableHandwritingKeyboard self = msg_send ~self ~cmd:(selector "disableHandwritingKeyboard") ~typ:(returning (bool)) -let disableInputBars self = msg_send ~self ~cmd:(selector "disableInputBars") ~typ:(returning (bool)) -let disablePrediction self = msg_send ~self ~cmd:(selector "disablePrediction") ~typ:(returning (bool)) -let displaySecureEditsUsingPlainText self = msg_send ~self ~cmd:(selector "displaySecureEditsUsingPlainText") ~typ:(returning (bool)) -let displaySecureTextUsingPlainText self = msg_send ~self ~cmd:(selector "displaySecureTextUsingPlainText") ~typ:(returning (bool)) -let emptyContentReturnKeyType self = msg_send ~self ~cmd:(selector "emptyContentReturnKeyType") ~typ:(returning (int)) -let enablesReturnKeyAutomatically self = msg_send ~self ~cmd:(selector "enablesReturnKeyAutomatically") ~typ:(returning (bool)) -let enablesReturnKeyOnNonWhiteSpaceContent self = msg_send ~self ~cmd:(selector "enablesReturnKeyOnNonWhiteSpaceContent") ~typ:(returning (bool)) -let extendedPathToObtainTraitsFrom x ~lightweight self = msg_send ~self ~cmd:(selector "extendedPathToObtainTraitsFrom:lightweight:") ~typ:(id @-> bool @-> returning (void)) x lightweight -let fastPathToObtainTraitsFrom x self = msg_send ~self ~cmd:(selector "fastPathToObtainTraitsFrom:") ~typ:(id @-> returning (void)) x -let forceDefaultDictationInfo self = msg_send ~self ~cmd:(selector "forceDefaultDictationInfo") ~typ:(returning (bool)) -let forceDictationKeyboardType self = msg_send ~self ~cmd:(selector "forceDictationKeyboardType") ~typ:(returning (llong)) -let forceDisableDictation self = msg_send ~self ~cmd:(selector "forceDisableDictation") ~typ:(returning (bool)) -let forceEnableDictation self = msg_send ~self ~cmd:(selector "forceEnableDictation") ~typ:(returning (bool)) -let forceFloatingKeyboard self = msg_send ~self ~cmd:(selector "forceFloatingKeyboard") ~typ:(returning (bool)) -let hasDefaultContents self = msg_send ~self ~cmd:(selector "hasDefaultContents") ~typ:(returning (bool)) -let hidePrediction self = msg_send ~self ~cmd:(selector "hidePrediction") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let inputContextHistory self = msg_send ~self ~cmd:(selector "inputContextHistory") ~typ:(returning (id)) -let insertionPointColor self = msg_send ~self ~cmd:(selector "insertionPointColor") ~typ:(returning (id)) -let insertionPointWidth self = msg_send ~self ~cmd:(selector "insertionPointWidth") ~typ:(returning (ullong)) -let isCarPlayIdiom self = msg_send ~self ~cmd:(selector "isCarPlayIdiom") ~typ:(returning (bool)) -let isDevicePasscodeEntry self = msg_send ~self ~cmd:(selector "isDevicePasscodeEntry") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isSecureTextEntry self = msg_send ~self ~cmd:(selector "isSecureTextEntry") ~typ:(returning (bool)) -let isSingleLineDocument self = msg_send ~self ~cmd:(selector "isSingleLineDocument") ~typ:(returning (bool)) -let keyboardAppearance self = msg_send ~self ~cmd:(selector "keyboardAppearance") ~typ:(returning (llong)) -let keyboardType self = msg_send ~self ~cmd:(selector "keyboardType") ~typ:(returning (llong)) -let learnsCorrections self = msg_send ~self ~cmd:(selector "learnsCorrections") ~typ:(returning (bool)) -let loadKeyboardsForSiriLanguage self = msg_send ~self ~cmd:(selector "loadKeyboardsForSiriLanguage") ~typ:(returning (bool)) -let manageRecentInputs self = msg_send ~self ~cmd:(selector "manageRecentInputs") ~typ:(returning (bool)) -let overlayWithTITextInputTraits x self = msg_send ~self ~cmd:(selector "overlayWithTITextInputTraits:") ~typ:(id @-> returning (void)) x -let overrideWithTraits x self = msg_send ~self ~cmd:(selector "overrideWithTraits:") ~typ:(id @-> returning (void)) x -let passwordRules self = msg_send ~self ~cmd:(selector "passwordRules") ~typ:(returning (id)) -let preferOnlineDictation self = msg_send ~self ~cmd:(selector "preferOnlineDictation") ~typ:(returning (bool)) -let preferredKeyboardStyle self = msg_send ~self ~cmd:(selector "preferredKeyboardStyle") ~typ:(returning (llong)) -let publicTraitsMatchTraits x self = msg_send ~self ~cmd:(selector "publicTraitsMatchTraits:") ~typ:(id @-> returning (bool)) x -let recentInputIdentifier self = msg_send ~self ~cmd:(selector "recentInputIdentifier") ~typ:(returning (id)) -let responseContext self = msg_send ~self ~cmd:(selector "responseContext") ~typ:(returning (id)) -let returnKeyGoesToNextResponder self = msg_send ~self ~cmd:(selector "returnKeyGoesToNextResponder") ~typ:(returning (bool)) -let returnKeyType self = msg_send ~self ~cmd:(selector "returnKeyType") ~typ:(returning (llong)) -let selectionBarColor self = msg_send ~self ~cmd:(selector "selectionBarColor") ~typ:(returning (id)) -let selectionBorderColor self = msg_send ~self ~cmd:(selector "selectionBorderColor") ~typ:(returning (id)) -let selectionBorderWidth self = msg_send ~self ~cmd:(selector "selectionBorderWidth") ~typ:(returning (double)) -let selectionCornerRadius self = msg_send ~self ~cmd:(selector "selectionCornerRadius") ~typ:(returning (double)) -let selectionDragDotImage self = msg_send ~self ~cmd:(selector "selectionDragDotImage") ~typ:(returning (id)) -let selectionHighlightColor self = msg_send ~self ~cmd:(selector "selectionHighlightColor") ~typ:(returning (id)) -let setAcceptsDictationSearchResults x self = msg_send ~self ~cmd:(selector "setAcceptsDictationSearchResults:") ~typ:(bool @-> returning (void)) x -let setAcceptsEmoji x self = msg_send ~self ~cmd:(selector "setAcceptsEmoji:") ~typ:(bool @-> returning (void)) x -let setAcceptsFloatingKeyboard x self = msg_send ~self ~cmd:(selector "setAcceptsFloatingKeyboard:") ~typ:(bool @-> returning (void)) x -let setAcceptsInitialEmojiKeyboard x self = msg_send ~self ~cmd:(selector "setAcceptsInitialEmojiKeyboard:") ~typ:(bool @-> returning (void)) x -let setAcceptsPayloads x self = msg_send ~self ~cmd:(selector "setAcceptsPayloads:") ~typ:(bool @-> returning (void)) x -let setAcceptsSplitKeyboard x self = msg_send ~self ~cmd:(selector "setAcceptsSplitKeyboard:") ~typ:(bool @-> returning (void)) x -let setAutocapitalizationType x self = msg_send ~self ~cmd:(selector "setAutocapitalizationType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setAutocorrectionContext x self = msg_send ~self ~cmd:(selector "setAutocorrectionContext:") ~typ:(id @-> returning (void)) x -let setAutocorrectionType x self = msg_send ~self ~cmd:(selector "setAutocorrectionType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContentsIsSingleValue x self = msg_send ~self ~cmd:(selector "setContentsIsSingleValue:") ~typ:(bool @-> returning (void)) x -let setDeferBecomingResponder x self = msg_send ~self ~cmd:(selector "setDeferBecomingResponder:") ~typ:(bool @-> returning (void)) x -let setDevicePasscodeEntry x self = msg_send ~self ~cmd:(selector "setDevicePasscodeEntry:") ~typ:(bool @-> returning (void)) x -let setDisableHandwritingKeyboard x self = msg_send ~self ~cmd:(selector "setDisableHandwritingKeyboard:") ~typ:(bool @-> returning (void)) x -let setDisableInputBars x self = msg_send ~self ~cmd:(selector "setDisableInputBars:") ~typ:(bool @-> returning (void)) x -let setDisablePrediction x self = msg_send ~self ~cmd:(selector "setDisablePrediction:") ~typ:(bool @-> returning (void)) x -let setDisplaySecureEditsUsingPlainText x self = msg_send ~self ~cmd:(selector "setDisplaySecureEditsUsingPlainText:") ~typ:(bool @-> returning (void)) x -let setDisplaySecureTextUsingPlainText x self = msg_send ~self ~cmd:(selector "setDisplaySecureTextUsingPlainText:") ~typ:(bool @-> returning (void)) x -let setEmptyContentReturnKeyType x self = msg_send ~self ~cmd:(selector "setEmptyContentReturnKeyType:") ~typ:(int @-> returning (void)) x -let setEnablesReturnKeyAutomatically x self = msg_send ~self ~cmd:(selector "setEnablesReturnKeyAutomatically:") ~typ:(bool @-> returning (void)) x -let setEnablesReturnKeyOnNonWhiteSpaceContent x self = msg_send ~self ~cmd:(selector "setEnablesReturnKeyOnNonWhiteSpaceContent:") ~typ:(bool @-> returning (void)) x -let setFloatingKeyboardEdgeInsets x self = msg_send ~self ~cmd:(selector "setFloatingKeyboardEdgeInsets:") ~typ:(ptr void @-> returning (void)) x -let setForceDefaultDictationInfo x self = msg_send ~self ~cmd:(selector "setForceDefaultDictationInfo:") ~typ:(bool @-> returning (void)) x -let setForceDictationKeyboardType x self = msg_send ~self ~cmd:(selector "setForceDictationKeyboardType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setForceDisableDictation x self = msg_send ~self ~cmd:(selector "setForceDisableDictation:") ~typ:(bool @-> returning (void)) x -let setForceEnableDictation x self = msg_send ~self ~cmd:(selector "setForceEnableDictation:") ~typ:(bool @-> returning (void)) x -let setForceFloatingKeyboard x self = msg_send ~self ~cmd:(selector "setForceFloatingKeyboard:") ~typ:(bool @-> returning (void)) x -let setHasDefaultContents x self = msg_send ~self ~cmd:(selector "setHasDefaultContents:") ~typ:(bool @-> returning (void)) x -let setHidePrediction x self = msg_send ~self ~cmd:(selector "setHidePrediction:") ~typ:(bool @-> returning (void)) x -let setInputContextHistory x self = msg_send ~self ~cmd:(selector "setInputContextHistory:") ~typ:(id @-> returning (void)) x -let setInsertionPointColor x self = msg_send ~self ~cmd:(selector "setInsertionPointColor:") ~typ:(id @-> returning (void)) x -let setInsertionPointWidth x self = msg_send ~self ~cmd:(selector "setInsertionPointWidth:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setIsCarPlayIdiom x self = msg_send ~self ~cmd:(selector "setIsCarPlayIdiom:") ~typ:(bool @-> returning (void)) x -let setIsSingleLineDocument x self = msg_send ~self ~cmd:(selector "setIsSingleLineDocument:") ~typ:(bool @-> returning (void)) x -let setKeyboardAppearance x self = msg_send ~self ~cmd:(selector "setKeyboardAppearance:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setKeyboardType x self = msg_send ~self ~cmd:(selector "setKeyboardType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setLearnsCorrections x self = msg_send ~self ~cmd:(selector "setLearnsCorrections:") ~typ:(bool @-> returning (void)) x -let setLoadKeyboardsForSiriLanguage x self = msg_send ~self ~cmd:(selector "setLoadKeyboardsForSiriLanguage:") ~typ:(bool @-> returning (void)) x -let setManageRecentInputs x self = msg_send ~self ~cmd:(selector "setManageRecentInputs:") ~typ:(bool @-> returning (void)) x -let setPINEntrySeparatorIndexes x self = msg_send ~self ~cmd:(selector "setPINEntrySeparatorIndexes:") ~typ:(id @-> returning (void)) x -let setPasswordRules x self = msg_send ~self ~cmd:(selector "setPasswordRules:") ~typ:(id @-> returning (void)) x -let setPreferOnlineDictation x self = msg_send ~self ~cmd:(selector "setPreferOnlineDictation:") ~typ:(bool @-> returning (void)) x -let setPreferredKeyboardStyle x self = msg_send ~self ~cmd:(selector "setPreferredKeyboardStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setRecentInputIdentifier x self = msg_send ~self ~cmd:(selector "setRecentInputIdentifier:") ~typ:(id @-> returning (void)) x -let setResponseContext x self = msg_send ~self ~cmd:(selector "setResponseContext:") ~typ:(id @-> returning (void)) x -let setReturnKeyGoesToNextResponder x self = msg_send ~self ~cmd:(selector "setReturnKeyGoesToNextResponder:") ~typ:(bool @-> returning (void)) x -let setReturnKeyType x self = msg_send ~self ~cmd:(selector "setReturnKeyType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSecureTextEntry x self = msg_send ~self ~cmd:(selector "setSecureTextEntry:") ~typ:(bool @-> returning (void)) x -let setSelectionBarColor x self = msg_send ~self ~cmd:(selector "setSelectionBarColor:") ~typ:(id @-> returning (void)) x -let setSelectionBorderColor x self = msg_send ~self ~cmd:(selector "setSelectionBorderColor:") ~typ:(id @-> returning (void)) x -let setSelectionBorderWidth x self = msg_send ~self ~cmd:(selector "setSelectionBorderWidth:") ~typ:(double @-> returning (void)) x -let setSelectionCornerRadius x self = msg_send ~self ~cmd:(selector "setSelectionCornerRadius:") ~typ:(double @-> returning (void)) x -let setSelectionDragDotImage x self = msg_send ~self ~cmd:(selector "setSelectionDragDotImage:") ~typ:(id @-> returning (void)) x -let setSelectionEdgeInsets x self = msg_send ~self ~cmd:(selector "setSelectionEdgeInsets:") ~typ:(ptr void @-> returning (void)) x -let setSelectionHighlightColor x self = msg_send ~self ~cmd:(selector "setSelectionHighlightColor:") ~typ:(id @-> returning (void)) x -let setShortcutConversionType x self = msg_send ~self ~cmd:(selector "setShortcutConversionType:") ~typ:(int @-> returning (void)) x -let setShowDictationButton x self = msg_send ~self ~cmd:(selector "setShowDictationButton:") ~typ:(bool @-> returning (void)) x -let setSmartDashesType x self = msg_send ~self ~cmd:(selector "setSmartDashesType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSmartInsertDeleteType x self = msg_send ~self ~cmd:(selector "setSmartInsertDeleteType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSmartQuotesType x self = msg_send ~self ~cmd:(selector "setSmartQuotesType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSpellCheckingType x self = msg_send ~self ~cmd:(selector "setSpellCheckingType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSupplementalLexicon x self = msg_send ~self ~cmd:(selector "setSupplementalLexicon:") ~typ:(id @-> returning (void)) x -let setSupplementalLexiconAmbiguousItemIcon x self = msg_send ~self ~cmd:(selector "setSupplementalLexiconAmbiguousItemIcon:") ~typ:(id @-> returning (void)) x -let setSuppressReturnKeyStyling x self = msg_send ~self ~cmd:(selector "setSuppressReturnKeyStyling:") ~typ:(bool @-> returning (void)) x -let setTextContentType x self = msg_send ~self ~cmd:(selector "setTextContentType:") ~typ:(id @-> returning (void)) x -let setTextLoupeVisibility x self = msg_send ~self ~cmd:(selector "setTextLoupeVisibility:") ~typ:(int @-> returning (void)) x -let setTextScriptType x self = msg_send ~self ~cmd:(selector "setTextScriptType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTextSelectionBehavior x self = msg_send ~self ~cmd:(selector "setTextSelectionBehavior:") ~typ:(int @-> returning (void)) x -let setTextSuggestionDelegate x self = msg_send ~self ~cmd:(selector "setTextSuggestionDelegate:") ~typ:(id @-> returning (void)) x -let setTextTrimmingSet x self = msg_send ~self ~cmd:(selector "setTextTrimmingSet:") ~typ:(id @-> returning (void)) x -let setToDefaultValues self = msg_send ~self ~cmd:(selector "setToDefaultValues") ~typ:(returning (void)) -let setToSecureValues self = msg_send ~self ~cmd:(selector "setToSecureValues") ~typ:(returning (void)) -let setUnderlineColorForSpelling x self = msg_send ~self ~cmd:(selector "setUnderlineColorForSpelling:") ~typ:(id @-> returning (void)) x -let setUnderlineColorForTextAlternatives x self = msg_send ~self ~cmd:(selector "setUnderlineColorForTextAlternatives:") ~typ:(id @-> returning (void)) x -let setUseAutomaticEndpointing x self = msg_send ~self ~cmd:(selector "setUseAutomaticEndpointing:") ~typ:(bool @-> returning (void)) x -let setUseInterfaceLanguageForLocalization x self = msg_send ~self ~cmd:(selector "setUseInterfaceLanguageForLocalization:") ~typ:(bool @-> returning (void)) x -let setValidTextRange x self = msg_send ~self ~cmd:(selector "setValidTextRange:") ~typ:(NSRange.t @-> returning (void)) x -let shortcutConversionType self = msg_send ~self ~cmd:(selector "shortcutConversionType") ~typ:(returning (int)) -let showDictationButton self = msg_send ~self ~cmd:(selector "showDictationButton") ~typ:(returning (bool)) -let smartDashesType self = msg_send ~self ~cmd:(selector "smartDashesType") ~typ:(returning (llong)) -let smartInsertDeleteType self = msg_send ~self ~cmd:(selector "smartInsertDeleteType") ~typ:(returning (llong)) -let smartQuotesType self = msg_send ~self ~cmd:(selector "smartQuotesType") ~typ:(returning (llong)) -let spellCheckingType self = msg_send ~self ~cmd:(selector "spellCheckingType") ~typ:(returning (llong)) -let supplementalLexicon self = msg_send ~self ~cmd:(selector "supplementalLexicon") ~typ:(returning (id)) -let supplementalLexiconAmbiguousItemIcon self = msg_send ~self ~cmd:(selector "supplementalLexiconAmbiguousItemIcon") ~typ:(returning (id)) -let suppressReturnKeyStyling self = msg_send ~self ~cmd:(selector "suppressReturnKeyStyling") ~typ:(returning (bool)) -let takeTraitsFrom x self = msg_send ~self ~cmd:(selector "takeTraitsFrom:") ~typ:(id @-> returning (void)) x -let takeTraitsFrom' x ~lightweight self = msg_send ~self ~cmd:(selector "takeTraitsFrom:lightweight:") ~typ:(id @-> bool @-> returning (void)) x lightweight -let textContentType self = msg_send ~self ~cmd:(selector "textContentType") ~typ:(returning (id)) -let textLoupeVisibility self = msg_send ~self ~cmd:(selector "textLoupeVisibility") ~typ:(returning (int)) -let textScriptType self = msg_send ~self ~cmd:(selector "textScriptType") ~typ:(returning (llong)) -let textSelectionBehavior self = msg_send ~self ~cmd:(selector "textSelectionBehavior") ~typ:(returning (int)) -let textSuggestionDelegate self = msg_send ~self ~cmd:(selector "textSuggestionDelegate") ~typ:(returning (id)) -let textTrimmingSet self = msg_send ~self ~cmd:(selector "textTrimmingSet") ~typ:(returning (id)) -let underlineColorForSpelling self = msg_send ~self ~cmd:(selector "underlineColorForSpelling") ~typ:(returning (id)) -let underlineColorForTextAlternatives self = msg_send ~self ~cmd:(selector "underlineColorForTextAlternatives") ~typ:(returning (id)) -let updateResultComparedToTraits x self = msg_send ~self ~cmd:(selector "updateResultComparedToTraits:") ~typ:(id @-> returning (llong)) x -let useAutomaticEndpointing self = msg_send ~self ~cmd:(selector "useAutomaticEndpointing") ~typ:(returning (bool)) -let useInterfaceLanguageForLocalization self = msg_send ~self ~cmd:(selector "useInterfaceLanguageForLocalization") ~typ:(returning (bool)) -let validTextRange self = msg_send_stret ~self ~cmd:(selector "validTextRange") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t \ No newline at end of file +let _PINEntrySeparatorIndexes self = msg_send ~self ~cmd:(selector "PINEntrySeparatorIndexes") ~typ:(returning id) +let acceptsDictationSearchResults self = msg_send ~self ~cmd:(selector "acceptsDictationSearchResults") ~typ:(returning bool) +let acceptsEmoji self = msg_send ~self ~cmd:(selector "acceptsEmoji") ~typ:(returning bool) +let acceptsFloatingKeyboard self = msg_send ~self ~cmd:(selector "acceptsFloatingKeyboard") ~typ:(returning bool) +let acceptsInitialEmojiKeyboard self = msg_send ~self ~cmd:(selector "acceptsInitialEmojiKeyboard") ~typ:(returning bool) +let acceptsPayloads self = msg_send ~self ~cmd:(selector "acceptsPayloads") ~typ:(returning bool) +let acceptsSplitKeyboard self = msg_send ~self ~cmd:(selector "acceptsSplitKeyboard") ~typ:(returning bool) +let allowsSuggestionsOnlyMode self = msg_send ~self ~cmd:(selector "allowsSuggestionsOnlyMode") ~typ:(returning bool) +let autocapitalizationType self = msg_send ~self ~cmd:(selector "autocapitalizationType") ~typ:(returning llong) +let autocorrectionContext self = msg_send ~self ~cmd:(selector "autocorrectionContext") ~typ:(returning id) +let autocorrectionType self = msg_send ~self ~cmd:(selector "autocorrectionType") ~typ:(returning llong) +let contentsIsSingleValue self = msg_send ~self ~cmd:(selector "contentsIsSingleValue") ~typ:(returning bool) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let deferBecomingResponder self = msg_send ~self ~cmd:(selector "deferBecomingResponder") ~typ:(returning bool) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let dictationInfoKeyboardType self = msg_send ~self ~cmd:(selector "dictationInfoKeyboardType") ~typ:(returning llong) +let dictationKeyboardType self = msg_send ~self ~cmd:(selector "dictationKeyboardType") ~typ:(returning llong) +let dictionaryRepresentation self = msg_send ~self ~cmd:(selector "dictionaryRepresentation") ~typ:(returning id) +let disableHandwritingKeyboard self = msg_send ~self ~cmd:(selector "disableHandwritingKeyboard") ~typ:(returning bool) +let disableInputBars self = msg_send ~self ~cmd:(selector "disableInputBars") ~typ:(returning bool) +let disablePrediction self = msg_send ~self ~cmd:(selector "disablePrediction") ~typ:(returning bool) +let displaySecureEditsUsingPlainText self = msg_send ~self ~cmd:(selector "displaySecureEditsUsingPlainText") ~typ:(returning bool) +let displaySecureTextUsingPlainText self = msg_send ~self ~cmd:(selector "displaySecureTextUsingPlainText") ~typ:(returning bool) +let emptyContentReturnKeyType self = msg_send ~self ~cmd:(selector "emptyContentReturnKeyType") ~typ:(returning int) +let enablesReturnKeyAutomatically self = msg_send ~self ~cmd:(selector "enablesReturnKeyAutomatically") ~typ:(returning bool) +let enablesReturnKeyOnNonWhiteSpaceContent self = msg_send ~self ~cmd:(selector "enablesReturnKeyOnNonWhiteSpaceContent") ~typ:(returning bool) +let extendedPathToObtainTraitsFrom x ~lightweight self = msg_send ~self ~cmd:(selector "extendedPathToObtainTraitsFrom:lightweight:") ~typ:(id @-> bool @-> returning void) x lightweight +let fastPathToObtainTraitsFrom x self = msg_send ~self ~cmd:(selector "fastPathToObtainTraitsFrom:") ~typ:(id @-> returning void) x +let floatingKeyboardEdgeInsets self = msg_send ~self ~cmd:(selector "floatingKeyboardEdgeInsets") ~typ:(returning UIEdgeInsets.t) +let forceDefaultDictationInfo self = msg_send ~self ~cmd:(selector "forceDefaultDictationInfo") ~typ:(returning bool) +let forceDictationKeyboardType self = msg_send ~self ~cmd:(selector "forceDictationKeyboardType") ~typ:(returning llong) +let forceDisableDictation self = msg_send ~self ~cmd:(selector "forceDisableDictation") ~typ:(returning bool) +let forceEnableDictation self = msg_send ~self ~cmd:(selector "forceEnableDictation") ~typ:(returning bool) +let forceFloatingKeyboard self = msg_send ~self ~cmd:(selector "forceFloatingKeyboard") ~typ:(returning bool) +let hasDefaultContents self = msg_send ~self ~cmd:(selector "hasDefaultContents") ~typ:(returning bool) +let hidePrediction self = msg_send ~self ~cmd:(selector "hidePrediction") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let inputContextHistory self = msg_send ~self ~cmd:(selector "inputContextHistory") ~typ:(returning id) +let insertionPointColor self = msg_send ~self ~cmd:(selector "insertionPointColor") ~typ:(returning id) +let insertionPointWidth self = msg_send ~self ~cmd:(selector "insertionPointWidth") ~typ:(returning ullong) +let isCarPlayIdiom self = msg_send ~self ~cmd:(selector "isCarPlayIdiom") ~typ:(returning bool) +let isDevicePasscodeEntry self = msg_send ~self ~cmd:(selector "isDevicePasscodeEntry") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isSecureTextEntry self = msg_send ~self ~cmd:(selector "isSecureTextEntry") ~typ:(returning bool) +let isSingleLineDocument self = msg_send ~self ~cmd:(selector "isSingleLineDocument") ~typ:(returning bool) +let keyboardAppearance self = msg_send ~self ~cmd:(selector "keyboardAppearance") ~typ:(returning llong) +let keyboardType self = msg_send ~self ~cmd:(selector "keyboardType") ~typ:(returning llong) +let learnsCorrections self = msg_send ~self ~cmd:(selector "learnsCorrections") ~typ:(returning bool) +let loadKeyboardsForSiriLanguage self = msg_send ~self ~cmd:(selector "loadKeyboardsForSiriLanguage") ~typ:(returning bool) +let manageRecentInputs self = msg_send ~self ~cmd:(selector "manageRecentInputs") ~typ:(returning bool) +let overlayWithTITextInputTraits x self = msg_send ~self ~cmd:(selector "overlayWithTITextInputTraits:") ~typ:(id @-> returning void) x +let overrideWithTraits x self = msg_send ~self ~cmd:(selector "overrideWithTraits:") ~typ:(id @-> returning void) x +let passwordRules self = msg_send ~self ~cmd:(selector "passwordRules") ~typ:(returning id) +let preferOnlineDictation self = msg_send ~self ~cmd:(selector "preferOnlineDictation") ~typ:(returning bool) +let preferredKeyboardStyle self = msg_send ~self ~cmd:(selector "preferredKeyboardStyle") ~typ:(returning llong) +let publicTraitsMatchTraits x self = msg_send ~self ~cmd:(selector "publicTraitsMatchTraits:") ~typ:(id @-> returning bool) x +let recentInputIdentifier self = msg_send ~self ~cmd:(selector "recentInputIdentifier") ~typ:(returning id) +let responseContext self = msg_send ~self ~cmd:(selector "responseContext") ~typ:(returning id) +let returnKeyGoesToNextResponder self = msg_send ~self ~cmd:(selector "returnKeyGoesToNextResponder") ~typ:(returning bool) +let returnKeyType self = msg_send ~self ~cmd:(selector "returnKeyType") ~typ:(returning llong) +let selectionBarColor self = msg_send ~self ~cmd:(selector "selectionBarColor") ~typ:(returning id) +let selectionBorderColor self = msg_send ~self ~cmd:(selector "selectionBorderColor") ~typ:(returning id) +let selectionBorderWidth self = msg_send ~self ~cmd:(selector "selectionBorderWidth") ~typ:(returning double) +let selectionCornerRadius self = msg_send ~self ~cmd:(selector "selectionCornerRadius") ~typ:(returning double) +let selectionDragDotImage self = msg_send ~self ~cmd:(selector "selectionDragDotImage") ~typ:(returning id) +let selectionEdgeInsets self = msg_send ~self ~cmd:(selector "selectionEdgeInsets") ~typ:(returning UIEdgeInsets.t) +let selectionHighlightColor self = msg_send ~self ~cmd:(selector "selectionHighlightColor") ~typ:(returning id) +let setAcceptsDictationSearchResults x self = msg_send ~self ~cmd:(selector "setAcceptsDictationSearchResults:") ~typ:(bool @-> returning void) x +let setAcceptsEmoji x self = msg_send ~self ~cmd:(selector "setAcceptsEmoji:") ~typ:(bool @-> returning void) x +let setAcceptsFloatingKeyboard x self = msg_send ~self ~cmd:(selector "setAcceptsFloatingKeyboard:") ~typ:(bool @-> returning void) x +let setAcceptsInitialEmojiKeyboard x self = msg_send ~self ~cmd:(selector "setAcceptsInitialEmojiKeyboard:") ~typ:(bool @-> returning void) x +let setAcceptsPayloads x self = msg_send ~self ~cmd:(selector "setAcceptsPayloads:") ~typ:(bool @-> returning void) x +let setAcceptsSplitKeyboard x self = msg_send ~self ~cmd:(selector "setAcceptsSplitKeyboard:") ~typ:(bool @-> returning void) x +let setAutocapitalizationType x self = msg_send ~self ~cmd:(selector "setAutocapitalizationType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setAutocorrectionContext x self = msg_send ~self ~cmd:(selector "setAutocorrectionContext:") ~typ:(id @-> returning void) x +let setAutocorrectionType x self = msg_send ~self ~cmd:(selector "setAutocorrectionType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContentsIsSingleValue x self = msg_send ~self ~cmd:(selector "setContentsIsSingleValue:") ~typ:(bool @-> returning void) x +let setDeferBecomingResponder x self = msg_send ~self ~cmd:(selector "setDeferBecomingResponder:") ~typ:(bool @-> returning void) x +let setDevicePasscodeEntry x self = msg_send ~self ~cmd:(selector "setDevicePasscodeEntry:") ~typ:(bool @-> returning void) x +let setDisableHandwritingKeyboard x self = msg_send ~self ~cmd:(selector "setDisableHandwritingKeyboard:") ~typ:(bool @-> returning void) x +let setDisableInputBars x self = msg_send ~self ~cmd:(selector "setDisableInputBars:") ~typ:(bool @-> returning void) x +let setDisablePrediction x self = msg_send ~self ~cmd:(selector "setDisablePrediction:") ~typ:(bool @-> returning void) x +let setDisplaySecureEditsUsingPlainText x self = msg_send ~self ~cmd:(selector "setDisplaySecureEditsUsingPlainText:") ~typ:(bool @-> returning void) x +let setDisplaySecureTextUsingPlainText x self = msg_send ~self ~cmd:(selector "setDisplaySecureTextUsingPlainText:") ~typ:(bool @-> returning void) x +let setEmptyContentReturnKeyType x self = msg_send ~self ~cmd:(selector "setEmptyContentReturnKeyType:") ~typ:(int @-> returning void) x +let setEnablesReturnKeyAutomatically x self = msg_send ~self ~cmd:(selector "setEnablesReturnKeyAutomatically:") ~typ:(bool @-> returning void) x +let setEnablesReturnKeyOnNonWhiteSpaceContent x self = msg_send ~self ~cmd:(selector "setEnablesReturnKeyOnNonWhiteSpaceContent:") ~typ:(bool @-> returning void) x +let setFloatingKeyboardEdgeInsets x self = msg_send ~self ~cmd:(selector "setFloatingKeyboardEdgeInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setForceDefaultDictationInfo x self = msg_send ~self ~cmd:(selector "setForceDefaultDictationInfo:") ~typ:(bool @-> returning void) x +let setForceDictationKeyboardType x self = msg_send ~self ~cmd:(selector "setForceDictationKeyboardType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setForceDisableDictation x self = msg_send ~self ~cmd:(selector "setForceDisableDictation:") ~typ:(bool @-> returning void) x +let setForceEnableDictation x self = msg_send ~self ~cmd:(selector "setForceEnableDictation:") ~typ:(bool @-> returning void) x +let setForceFloatingKeyboard x self = msg_send ~self ~cmd:(selector "setForceFloatingKeyboard:") ~typ:(bool @-> returning void) x +let setHasDefaultContents x self = msg_send ~self ~cmd:(selector "setHasDefaultContents:") ~typ:(bool @-> returning void) x +let setHidePrediction x self = msg_send ~self ~cmd:(selector "setHidePrediction:") ~typ:(bool @-> returning void) x +let setInputContextHistory x self = msg_send ~self ~cmd:(selector "setInputContextHistory:") ~typ:(id @-> returning void) x +let setInsertionPointColor x self = msg_send ~self ~cmd:(selector "setInsertionPointColor:") ~typ:(id @-> returning void) x +let setInsertionPointWidth x self = msg_send ~self ~cmd:(selector "setInsertionPointWidth:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setIsCarPlayIdiom x self = msg_send ~self ~cmd:(selector "setIsCarPlayIdiom:") ~typ:(bool @-> returning void) x +let setIsSingleLineDocument x self = msg_send ~self ~cmd:(selector "setIsSingleLineDocument:") ~typ:(bool @-> returning void) x +let setKeyboardAppearance x self = msg_send ~self ~cmd:(selector "setKeyboardAppearance:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setKeyboardType x self = msg_send ~self ~cmd:(selector "setKeyboardType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setLearnsCorrections x self = msg_send ~self ~cmd:(selector "setLearnsCorrections:") ~typ:(bool @-> returning void) x +let setLoadKeyboardsForSiriLanguage x self = msg_send ~self ~cmd:(selector "setLoadKeyboardsForSiriLanguage:") ~typ:(bool @-> returning void) x +let setManageRecentInputs x self = msg_send ~self ~cmd:(selector "setManageRecentInputs:") ~typ:(bool @-> returning void) x +let setPINEntrySeparatorIndexes x self = msg_send ~self ~cmd:(selector "setPINEntrySeparatorIndexes:") ~typ:(id @-> returning void) x +let setPasswordRules x self = msg_send ~self ~cmd:(selector "setPasswordRules:") ~typ:(id @-> returning void) x +let setPreferOnlineDictation x self = msg_send ~self ~cmd:(selector "setPreferOnlineDictation:") ~typ:(bool @-> returning void) x +let setPreferredKeyboardStyle x self = msg_send ~self ~cmd:(selector "setPreferredKeyboardStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setRecentInputIdentifier x self = msg_send ~self ~cmd:(selector "setRecentInputIdentifier:") ~typ:(id @-> returning void) x +let setResponseContext x self = msg_send ~self ~cmd:(selector "setResponseContext:") ~typ:(id @-> returning void) x +let setReturnKeyGoesToNextResponder x self = msg_send ~self ~cmd:(selector "setReturnKeyGoesToNextResponder:") ~typ:(bool @-> returning void) x +let setReturnKeyType x self = msg_send ~self ~cmd:(selector "setReturnKeyType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSecureTextEntry x self = msg_send ~self ~cmd:(selector "setSecureTextEntry:") ~typ:(bool @-> returning void) x +let setSelectionBarColor x self = msg_send ~self ~cmd:(selector "setSelectionBarColor:") ~typ:(id @-> returning void) x +let setSelectionBorderColor x self = msg_send ~self ~cmd:(selector "setSelectionBorderColor:") ~typ:(id @-> returning void) x +let setSelectionBorderWidth x self = msg_send ~self ~cmd:(selector "setSelectionBorderWidth:") ~typ:(double @-> returning void) x +let setSelectionCornerRadius x self = msg_send ~self ~cmd:(selector "setSelectionCornerRadius:") ~typ:(double @-> returning void) x +let setSelectionDragDotImage x self = msg_send ~self ~cmd:(selector "setSelectionDragDotImage:") ~typ:(id @-> returning void) x +let setSelectionEdgeInsets x self = msg_send ~self ~cmd:(selector "setSelectionEdgeInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setSelectionHighlightColor x self = msg_send ~self ~cmd:(selector "setSelectionHighlightColor:") ~typ:(id @-> returning void) x +let setShortcutConversionType x self = msg_send ~self ~cmd:(selector "setShortcutConversionType:") ~typ:(int @-> returning void) x +let setShowDictationButton x self = msg_send ~self ~cmd:(selector "setShowDictationButton:") ~typ:(bool @-> returning void) x +let setSmartDashesType x self = msg_send ~self ~cmd:(selector "setSmartDashesType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSmartInsertDeleteType x self = msg_send ~self ~cmd:(selector "setSmartInsertDeleteType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSmartQuotesType x self = msg_send ~self ~cmd:(selector "setSmartQuotesType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSpellCheckingType x self = msg_send ~self ~cmd:(selector "setSpellCheckingType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSupplementalLexicon x self = msg_send ~self ~cmd:(selector "setSupplementalLexicon:") ~typ:(id @-> returning void) x +let setSupplementalLexiconAmbiguousItemIcon x self = msg_send ~self ~cmd:(selector "setSupplementalLexiconAmbiguousItemIcon:") ~typ:(id @-> returning void) x +let setSuppressReturnKeyStyling x self = msg_send ~self ~cmd:(selector "setSuppressReturnKeyStyling:") ~typ:(bool @-> returning void) x +let setTextContentType x self = msg_send ~self ~cmd:(selector "setTextContentType:") ~typ:(id @-> returning void) x +let setTextLoupeVisibility x self = msg_send ~self ~cmd:(selector "setTextLoupeVisibility:") ~typ:(int @-> returning void) x +let setTextScriptType x self = msg_send ~self ~cmd:(selector "setTextScriptType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTextSelectionBehavior x self = msg_send ~self ~cmd:(selector "setTextSelectionBehavior:") ~typ:(int @-> returning void) x +let setTextSuggestionDelegate x self = msg_send ~self ~cmd:(selector "setTextSuggestionDelegate:") ~typ:(id @-> returning void) x +let setTextTrimmingSet x self = msg_send ~self ~cmd:(selector "setTextTrimmingSet:") ~typ:((ptr CFCharacterSet.t) @-> returning void) x +let setToDefaultValues self = msg_send ~self ~cmd:(selector "setToDefaultValues") ~typ:(returning void) +let setToSecureValues self = msg_send ~self ~cmd:(selector "setToSecureValues") ~typ:(returning void) +let setUnderlineColorForSpelling x self = msg_send ~self ~cmd:(selector "setUnderlineColorForSpelling:") ~typ:(id @-> returning void) x +let setUnderlineColorForTextAlternatives x self = msg_send ~self ~cmd:(selector "setUnderlineColorForTextAlternatives:") ~typ:(id @-> returning void) x +let setUseAutomaticEndpointing x self = msg_send ~self ~cmd:(selector "setUseAutomaticEndpointing:") ~typ:(bool @-> returning void) x +let setUseInterfaceLanguageForLocalization x self = msg_send ~self ~cmd:(selector "setUseInterfaceLanguageForLocalization:") ~typ:(bool @-> returning void) x +let setValidTextRange x self = msg_send ~self ~cmd:(selector "setValidTextRange:") ~typ:(NSRange.t @-> returning void) x +let shortcutConversionType self = msg_send ~self ~cmd:(selector "shortcutConversionType") ~typ:(returning int) +let showDictationButton self = msg_send ~self ~cmd:(selector "showDictationButton") ~typ:(returning bool) +let smartDashesType self = msg_send ~self ~cmd:(selector "smartDashesType") ~typ:(returning llong) +let smartInsertDeleteType self = msg_send ~self ~cmd:(selector "smartInsertDeleteType") ~typ:(returning llong) +let smartQuotesType self = msg_send ~self ~cmd:(selector "smartQuotesType") ~typ:(returning llong) +let spellCheckingType self = msg_send ~self ~cmd:(selector "spellCheckingType") ~typ:(returning llong) +let supplementalLexicon self = msg_send ~self ~cmd:(selector "supplementalLexicon") ~typ:(returning id) +let supplementalLexiconAmbiguousItemIcon self = msg_send ~self ~cmd:(selector "supplementalLexiconAmbiguousItemIcon") ~typ:(returning id) +let suppressReturnKeyStyling self = msg_send ~self ~cmd:(selector "suppressReturnKeyStyling") ~typ:(returning bool) +let takeTraitsFrom x self = msg_send ~self ~cmd:(selector "takeTraitsFrom:") ~typ:(id @-> returning void) x +let takeTraitsFrom' x ~lightweight self = msg_send ~self ~cmd:(selector "takeTraitsFrom:lightweight:") ~typ:(id @-> bool @-> returning void) x lightweight +let textContentType self = msg_send ~self ~cmd:(selector "textContentType") ~typ:(returning id) +let textLoupeVisibility self = msg_send ~self ~cmd:(selector "textLoupeVisibility") ~typ:(returning int) +let textScriptType self = msg_send ~self ~cmd:(selector "textScriptType") ~typ:(returning llong) +let textSelectionBehavior self = msg_send ~self ~cmd:(selector "textSelectionBehavior") ~typ:(returning int) +let textSuggestionDelegate self = msg_send ~self ~cmd:(selector "textSuggestionDelegate") ~typ:(returning id) +let textTrimmingSet self = msg_send ~self ~cmd:(selector "textTrimmingSet") ~typ:(returning (ptr CFCharacterSet.t)) +let underlineColorForSpelling self = msg_send ~self ~cmd:(selector "underlineColorForSpelling") ~typ:(returning id) +let underlineColorForTextAlternatives self = msg_send ~self ~cmd:(selector "underlineColorForTextAlternatives") ~typ:(returning id) +let updateResultComparedToTraits x self = msg_send ~self ~cmd:(selector "updateResultComparedToTraits:") ~typ:(id @-> returning llong) x +let useAutomaticEndpointing self = msg_send ~self ~cmd:(selector "useAutomaticEndpointing") ~typ:(returning bool) +let useInterfaceLanguageForLocalization self = msg_send ~self ~cmd:(selector "useInterfaceLanguageForLocalization") ~typ:(returning bool) +let validTextRange self = msg_send ~self ~cmd:(selector "validTextRange") ~typ:(returning NSRange.t) \ No newline at end of file diff --git a/uikit/UITextInputTraitsClass.ml b/uikit/UITextInputTraitsClass.ml new file mode 100644 index 00000000..daf213a0 --- /dev/null +++ b/uikit/UITextInputTraitsClass.ml @@ -0,0 +1,27 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinputtraits?language=objc}UITextInputTraits} *) + +let accessibleAppearanceForAppearance x self = msg_send ~self ~cmd:(selector "accessibleAppearanceForAppearance:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let configuredAppearanceForAppearance x ~withTraitEnvironment self = msg_send ~self ~cmd:(selector "configuredAppearanceForAppearance:withTraitEnvironment:") ~typ:(llong @-> id @-> returning llong) (LLong.of_int x) withTraitEnvironment +let defaultTextInputTraits self = msg_send ~self ~cmd:(selector "defaultTextInputTraits") ~typ:(returning id) +let keyboardTypeRequiresASCIICapable x self = msg_send ~self ~cmd:(selector "keyboardTypeRequiresASCIICapable:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let traitEnvironmentFromTraits x self = msg_send ~self ~cmd:(selector "traitEnvironmentFromTraits:") ~typ:(id @-> returning id) x +let traitsByAdoptingTraits x self = msg_send ~self ~cmd:(selector "traitsByAdoptingTraits:") ~typ:(id @-> returning id) x +let traitsByAdoptingTraits' x ~lightweight self = msg_send ~self ~cmd:(selector "traitsByAdoptingTraits:lightweight:") ~typ:(id @-> bool @-> returning id) x lightweight +let translateToUIAutocapitalizationType x self = msg_send ~self ~cmd:(selector "translateToUIAutocapitalizationType:") ~typ:(ullong @-> returning llong) (ULLong.of_int x) +let translateToUIAutocorrectionType x self = msg_send ~self ~cmd:(selector "translateToUIAutocorrectionType:") ~typ:(ullong @-> returning llong) (ULLong.of_int x) +let translateToUIKeyboardAppearance x self = msg_send ~self ~cmd:(selector "translateToUIKeyboardAppearance:") ~typ:(ullong @-> returning llong) (ULLong.of_int x) +let translateToUIKeyboardType x self = msg_send ~self ~cmd:(selector "translateToUIKeyboardType:") ~typ:(ullong @-> returning llong) (ULLong.of_int x) +let translateToUIReturnKeyType x self = msg_send ~self ~cmd:(selector "translateToUIReturnKeyType:") ~typ:(ullong @-> returning llong) (ULLong.of_int x) +let translateToUISmartInsertDeleteEnabled x self = msg_send ~self ~cmd:(selector "translateToUISmartInsertDeleteEnabled:") ~typ:(bool @-> returning llong) x +let translateToUISpellCheckingType x self = msg_send ~self ~cmd:(selector "translateToUISpellCheckingType:") ~typ:(ullong @-> returning llong) (ULLong.of_int x) +let translateToUITextScriptType x self = msg_send ~self ~cmd:(selector "translateToUITextScriptType:") ~typ:(ullong @-> returning llong) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UITextInteraction.ml b/uikit/UITextInteraction.ml index 71b5f00b..cb915e54 100644 --- a/uikit/UITextInteraction.ml +++ b/uikit/UITextInteraction.ml @@ -5,62 +5,61 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinteraction?language=objc}UITextInteraction} *) -module C = struct - let textInteractionForMode x self = msg_send ~self ~cmd:(selector "textInteractionForMode:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let textInteractionsForSet x self = msg_send ~self ~cmd:(selector "textInteractionsForSet:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -end +let self = get_class "UITextInteraction" -let addChild x self = msg_send ~self ~cmd:(selector "addChild:") ~typ:(id @-> returning (void)) x -let addGestureRecognizer x ~withName self = msg_send ~self ~cmd:(selector "addGestureRecognizer:withName:") ~typ:(id @-> id @-> returning (void)) x withName -let assistantDelegate self = msg_send ~self ~cmd:(selector "assistantDelegate") ~typ:(returning (id)) -let cancelLinkInteractionSession self = msg_send ~self ~cmd:(selector "cancelLinkInteractionSession") ~typ:(returning (void)) -let children self = msg_send ~self ~cmd:(selector "children") ~typ:(returning (id)) -let containerChangesSelectionOnOneFingerTap self = msg_send ~self ~cmd:(selector "containerChangesSelectionOnOneFingerTap") ~typ:(returning (bool)) -let currentSelectionContainsPoint x self = msg_send ~self ~cmd:(selector "currentSelectionContainsPoint:") ~typ:(CGPoint.t @-> returning (bool)) x -let defaultDoubleTapRecognizerWithAction x self = msg_send ~self ~cmd:(selector "defaultDoubleTapRecognizerWithAction:") ~typ:(_SEL @-> returning (id)) x -let defaultTapRecognizerWithAction x self = msg_send ~self ~cmd:(selector "defaultTapRecognizerWithAction:") ~typ:(_SEL @-> returning (id)) x -let defaultTripleTapRecognizerWithAction x self = msg_send ~self ~cmd:(selector "defaultTripleTapRecognizerWithAction:") ~typ:(_SEL @-> returning (id)) x -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let disableClearsOnInsertion self = msg_send ~self ~cmd:(selector "disableClearsOnInsertion") ~typ:(returning (void)) -let distanceBetweenPoint x ~andRects self = msg_send ~self ~cmd:(selector "distanceBetweenPoint:andRects:") ~typ:(CGPoint.t @-> id @-> returning (double)) x andRects -let doesControlDelegate self = msg_send ~self ~cmd:(selector "doesControlDelegate") ~typ:(returning (bool)) -let feedbackBehaviour self = msg_send ~self ~cmd:(selector "feedbackBehaviour") ~typ:(returning (id)) -let finishSetup self = msg_send ~self ~cmd:(selector "finishSetup") ~typ:(returning (void)) -let gestureMap self = msg_send ~self ~cmd:(selector "gestureMap") ~typ:(returning (id)) -let gestureRecognizer x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning (bool)) x shouldReceiveTouch -let gestureRecognizer' x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRecognizeSimultaneouslyWithGestureRecognizer -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let gestures self = msg_send ~self ~cmd:(selector "gestures") ~typ:(returning (id)) -let gesturesForFailureRequirements self = msg_send ~self ~cmd:(selector "gesturesForFailureRequirements") ~typ:(returning (id)) -let inGesture self = msg_send ~self ~cmd:(selector "inGesture") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let interactionInputDelegate self = msg_send ~self ~cmd:(selector "interactionInputDelegate") ~typ:(returning (id)) -let interactionWithClass x self = msg_send ~self ~cmd:(selector "interactionWithClass:") ~typ:(_Class @-> returning (id)) x -let interactionWithGestureForName x self = msg_send ~self ~cmd:(selector "interactionWithGestureForName:") ~typ:(id @-> returning (id)) x -let linkInteractionSession self = msg_send ~self ~cmd:(selector "linkInteractionSession") ~typ:(returning (id)) -let parent self = msg_send ~self ~cmd:(selector "parent") ~typ:(returning (id)) -let rangeWithTextAlternatives x ~atPosition self = msg_send ~self ~cmd:(selector "rangeWithTextAlternatives:atPosition:") ~typ:(ptr (id) @-> id @-> returning (id)) x atPosition -let recognizerForName x self = msg_send ~self ~cmd:(selector "recognizerForName:") ~typ:(id @-> returning (id)) x -let removeChild x self = msg_send ~self ~cmd:(selector "removeChild:") ~typ:(id @-> returning (void)) x -let removeGestureRecognizerWithName x self = msg_send ~self ~cmd:(selector "removeGestureRecognizerWithName:") ~typ:(id @-> returning (void)) x -let root self = msg_send ~self ~cmd:(selector "root") ~typ:(returning (id)) -let selection x ~containsPoint self = msg_send ~self ~cmd:(selector "selection:containsPoint:") ~typ:(id @-> CGPoint.t @-> returning (bool)) x containsPoint -let setAssistantDelegate x self = msg_send ~self ~cmd:(selector "setAssistantDelegate:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setFeedbackBehaviour x self = msg_send ~self ~cmd:(selector "setFeedbackBehaviour:") ~typ:(id @-> returning (void)) x -let setInGesture x self = msg_send ~self ~cmd:(selector "setInGesture:") ~typ:(bool @-> returning (void)) x -let setInteractionInputDelegate x self = msg_send ~self ~cmd:(selector "setInteractionInputDelegate:") ~typ:(id @-> returning (void)) x -let setTextInput x self = msg_send ~self ~cmd:(selector "setTextInput:") ~typ:(id @-> returning (void)) x -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let shouldAllowWithTouchTypes x ~atPoint ~toBegin self = msg_send ~self ~cmd:(selector "shouldAllowWithTouchTypes:atPoint:toBegin:") ~typ:(id @-> CGPoint.t @-> bool @-> returning (bool)) x atPoint toBegin -let shouldHandleFormGestureAtLocation x self = msg_send ~self ~cmd:(selector "shouldHandleFormGestureAtLocation:") ~typ:(CGPoint.t @-> returning (bool)) x -let textInput self = msg_send ~self ~cmd:(selector "textInput") ~typ:(returning (id)) -let textInteractionMode self = msg_send ~self ~cmd:(selector "textInteractionMode") ~typ:(returning (llong)) -let textInteractionSet self = msg_send ~self ~cmd:(selector "textInteractionSet") ~typ:(returning (llong)) -let updateTextInputSourceForScribbleGesture x self = msg_send ~self ~cmd:(selector "updateTextInputSourceForScribbleGesture:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let addChild x self = msg_send ~self ~cmd:(selector "addChild:") ~typ:(id @-> returning void) x +let addGestureRecognizer x ~withName self = msg_send ~self ~cmd:(selector "addGestureRecognizer:withName:") ~typ:(id @-> id @-> returning void) x withName +let assistantDelegate self = msg_send ~self ~cmd:(selector "assistantDelegate") ~typ:(returning id) +let cancelLinkInteractionSession self = msg_send ~self ~cmd:(selector "cancelLinkInteractionSession") ~typ:(returning void) +let children self = msg_send ~self ~cmd:(selector "children") ~typ:(returning id) +let containerChangesSelectionOnOneFingerTap self = msg_send ~self ~cmd:(selector "containerChangesSelectionOnOneFingerTap") ~typ:(returning bool) +let currentSelectionContainsPoint x self = msg_send ~self ~cmd:(selector "currentSelectionContainsPoint:") ~typ:(CGPoint.t @-> returning bool) x +let defaultDoubleTapRecognizerWithAction x self = msg_send ~self ~cmd:(selector "defaultDoubleTapRecognizerWithAction:") ~typ:(_SEL @-> returning id) x +let defaultTapRecognizerWithAction x self = msg_send ~self ~cmd:(selector "defaultTapRecognizerWithAction:") ~typ:(_SEL @-> returning id) x +let defaultTripleTapRecognizerWithAction x self = msg_send ~self ~cmd:(selector "defaultTripleTapRecognizerWithAction:") ~typ:(_SEL @-> returning id) x +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let disableClearsOnInsertion self = msg_send ~self ~cmd:(selector "disableClearsOnInsertion") ~typ:(returning void) +let distanceBetweenPoint x ~andRects self = msg_send ~self ~cmd:(selector "distanceBetweenPoint:andRects:") ~typ:(CGPoint.t @-> id @-> returning double) x andRects +let doesControlDelegate self = msg_send ~self ~cmd:(selector "doesControlDelegate") ~typ:(returning bool) +let feedbackBehaviour self = msg_send ~self ~cmd:(selector "feedbackBehaviour") ~typ:(returning id) +let finishSetup self = msg_send ~self ~cmd:(selector "finishSetup") ~typ:(returning void) +let gestureMap self = msg_send ~self ~cmd:(selector "gestureMap") ~typ:(returning id) +let gestureRecognizer x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning bool) x shouldReceiveTouch +let gestureRecognizer' x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldRecognizeSimultaneouslyWithGestureRecognizer +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let gestures self = msg_send ~self ~cmd:(selector "gestures") ~typ:(returning id) +let gesturesForFailureRequirements self = msg_send ~self ~cmd:(selector "gesturesForFailureRequirements") ~typ:(returning id) +let inGesture self = msg_send ~self ~cmd:(selector "inGesture") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let interactionInputDelegate self = msg_send ~self ~cmd:(selector "interactionInputDelegate") ~typ:(returning id) +let interactionWithClass x self = msg_send ~self ~cmd:(selector "interactionWithClass:") ~typ:(_Class @-> returning id) x +let interactionWithGestureForName x self = msg_send ~self ~cmd:(selector "interactionWithGestureForName:") ~typ:(id @-> returning id) x +let linkInteractionSession self = msg_send ~self ~cmd:(selector "linkInteractionSession") ~typ:(returning id) +let parent self = msg_send ~self ~cmd:(selector "parent") ~typ:(returning id) +let rangeWithTextAlternatives x ~atPosition self = msg_send ~self ~cmd:(selector "rangeWithTextAlternatives:atPosition:") ~typ:((ptr id) @-> id @-> returning id) x atPosition +let recognizerForName x self = msg_send ~self ~cmd:(selector "recognizerForName:") ~typ:(id @-> returning id) x +let removeChild x self = msg_send ~self ~cmd:(selector "removeChild:") ~typ:(id @-> returning void) x +let removeGestureRecognizerWithName x self = msg_send ~self ~cmd:(selector "removeGestureRecognizerWithName:") ~typ:(id @-> returning void) x +let root self = msg_send ~self ~cmd:(selector "root") ~typ:(returning id) +let selection x ~containsPoint self = msg_send ~self ~cmd:(selector "selection:containsPoint:") ~typ:(id @-> CGPoint.t @-> returning bool) x containsPoint +let setAssistantDelegate x self = msg_send ~self ~cmd:(selector "setAssistantDelegate:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setFeedbackBehaviour x self = msg_send ~self ~cmd:(selector "setFeedbackBehaviour:") ~typ:(id @-> returning void) x +let setInGesture x self = msg_send ~self ~cmd:(selector "setInGesture:") ~typ:(bool @-> returning void) x +let setInteractionInputDelegate x self = msg_send ~self ~cmd:(selector "setInteractionInputDelegate:") ~typ:(id @-> returning void) x +let setTextInput x self = msg_send ~self ~cmd:(selector "setTextInput:") ~typ:(id @-> returning void) x +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let shouldAllowWithTouchTypes x ~atPoint ~toBegin self = msg_send ~self ~cmd:(selector "shouldAllowWithTouchTypes:atPoint:toBegin:") ~typ:(id @-> CGPoint.t @-> bool @-> returning bool) x atPoint toBegin +let shouldHandleFormGestureAtLocation x self = msg_send ~self ~cmd:(selector "shouldHandleFormGestureAtLocation:") ~typ:(CGPoint.t @-> returning bool) x +let textInput self = msg_send ~self ~cmd:(selector "textInput") ~typ:(returning id) +let textInteractionMode self = msg_send ~self ~cmd:(selector "textInteractionMode") ~typ:(returning llong) +let textInteractionSet self = msg_send ~self ~cmd:(selector "textInteractionSet") ~typ:(returning llong) +let updateTextInputSourceForScribbleGesture x self = msg_send ~self ~cmd:(selector "updateTextInputSourceForScribbleGesture:") ~typ:(id @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextInteractionAssistant.ml b/uikit/UITextInteractionAssistant.ml index 544dbba0..e4acf316 100644 --- a/uikit/UITextInteractionAssistant.ml +++ b/uikit/UITextInteractionAssistant.ml @@ -5,149 +5,153 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextInteractionAssistant" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinteractionassistant?language=objc}UITextInteractionAssistant} *) -let activate self = msg_send ~self ~cmd:(selector "activate") ~typ:(returning (void)) -let activateSelection self = msg_send ~self ~cmd:(selector "activateSelection") ~typ:(returning (void)) -let activeSelectionController self = msg_send ~self ~cmd:(selector "activeSelectionController") ~typ:(returning (id)) -let addGestureRecognizersToView x self = msg_send ~self ~cmd:(selector "addGestureRecognizersToView:") ~typ:(id @-> returning (void)) x -let attach self = msg_send ~self ~cmd:(selector "attach") ~typ:(returning (void)) -let attributedTextInRange x self = msg_send ~self ~cmd:(selector "attributedTextInRange:") ~typ:(id @-> returning (id)) x -let autoscrollUntransformedExtentPoint self = msg_send_stret ~self ~cmd:(selector "autoscrollUntransformedExtentPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let autoscrollWillNotStart self = msg_send ~self ~cmd:(selector "autoscrollWillNotStart") ~typ:(returning (void)) -let autoscrolled self = msg_send ~self ~cmd:(selector "autoscrolled") ~typ:(returning (bool)) -let beginFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "beginFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let canBeginDragCursor x self = msg_send ~self ~cmd:(selector "canBeginDragCursor:") ~typ:(id @-> returning (void)) x -let canShowSelectionCommands self = msg_send ~self ~cmd:(selector "canShowSelectionCommands") ~typ:(returning (bool)) -let cancelAutoscroll self = msg_send ~self ~cmd:(selector "cancelAutoscroll") ~typ:(returning (void)) -let checkEditabilityAndSetFirstResponderIfNecessary self = msg_send ~self ~cmd:(selector "checkEditabilityAndSetFirstResponderIfNecessary") ~typ:(returning (void)) -let clearGestureRecognizers self = msg_send ~self ~cmd:(selector "clearGestureRecognizers") ~typ:(returning (void)) -let clearGestureRecognizers' x self = msg_send ~self ~cmd:(selector "clearGestureRecognizers:") ~typ:(bool @-> returning (void)) x -let clearSelection self = msg_send ~self ~cmd:(selector "clearSelection") ~typ:(returning (void)) -let clearStashedSelection self = msg_send ~self ~cmd:(selector "clearStashedSelection") ~typ:(returning (void)) -let configureForHighlightMode self = msg_send ~self ~cmd:(selector "configureForHighlightMode") ~typ:(returning (void)) -let configureForPencilDeletionPreviewMode self = msg_send ~self ~cmd:(selector "configureForPencilDeletionPreviewMode") ~typ:(returning (void)) -let configureForPencilHighlightMode self = msg_send ~self ~cmd:(selector "configureForPencilHighlightMode") ~typ:(returning (void)) -let configureForReplacementMode self = msg_send ~self ~cmd:(selector "configureForReplacementMode") ~typ:(returning (void)) -let configureForSelectionMode self = msg_send ~self ~cmd:(selector "configureForSelectionMode") ~typ:(returning (void)) -let constrainedPoint x self = msg_send_stret ~self ~cmd:(selector "constrainedPoint:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let containerAllowsSelection self = msg_send ~self ~cmd:(selector "containerAllowsSelection") ~typ:(returning (bool)) -let containerAllowsSelectionTintOnly self = msg_send ~self ~cmd:(selector "containerAllowsSelectionTintOnly") ~typ:(returning (bool)) -let containerIsBrowserView self = msg_send ~self ~cmd:(selector "containerIsBrowserView") ~typ:(returning (bool)) -let containerIsTextField self = msg_send ~self ~cmd:(selector "containerIsTextField") ~typ:(returning (bool)) -let currentCursorBehavior self = msg_send ~self ~cmd:(selector "currentCursorBehavior") ~typ:(returning (llong)) -let currentDraggedHandle self = msg_send ~self ~cmd:(selector "currentDraggedHandle") ~typ:(returning (ullong)) -let cursorBlinks self = msg_send ~self ~cmd:(selector "cursorBlinks") ~typ:(returning (bool)) -let cursorVisible self = msg_send ~self ~cmd:(selector "cursorVisible") ~typ:(returning (bool)) -let deactivateSelection self = msg_send ~self ~cmd:(selector "deactivateSelection") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let detach self = msg_send ~self ~cmd:(selector "detach") ~typ:(returning (void)) -let detach' x self = msg_send ~self ~cmd:(selector "detach:") ~typ:(bool @-> returning (void)) x -let didEndScrollingOrZooming self = msg_send ~self ~cmd:(selector "didEndScrollingOrZooming") ~typ:(returning (void)) -let didEndSelectionInteraction self = msg_send ~self ~cmd:(selector "didEndSelectionInteraction") ~typ:(returning (void)) -let didPerformLoupeSelectionHandoff self = msg_send ~self ~cmd:(selector "didPerformLoupeSelectionHandoff") ~typ:(returning (bool)) -let didUseStashedSelection self = msg_send ~self ~cmd:(selector "didUseStashedSelection") ~typ:(returning (bool)) -let doubleTapGesture self = msg_send ~self ~cmd:(selector "doubleTapGesture") ~typ:(returning (id)) -let endFloatingCursor self = msg_send ~self ~cmd:(selector "endFloatingCursor") ~typ:(returning (void)) -let expectingCommit self = msg_send ~self ~cmd:(selector "expectingCommit") ~typ:(returning (bool)) -let extendSelectionToLoupeOrSetToPoint x self = msg_send ~self ~cmd:(selector "extendSelectionToLoupeOrSetToPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let extendSelectionToPoint x self = msg_send ~self ~cmd:(selector "extendSelectionToPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let externalInteractions self = msg_send ~self ~cmd:(selector "externalInteractions") ~typ:(returning (id)) -let externalTextInput self = msg_send ~self ~cmd:(selector "externalTextInput") ~typ:(returning (bool)) -let fieldEditor self = msg_send ~self ~cmd:(selector "fieldEditor") ~typ:(returning (id)) -let forcePressGesture self = msg_send ~self ~cmd:(selector "forcePressGesture") ~typ:(returning (id)) -let generatorForRange x ~withOptions self = msg_send ~self ~cmd:(selector "generatorForRange:withOptions:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int withOptions) -let ghostAppearance self = msg_send ~self ~cmd:(selector "ghostAppearance") ~typ:(returning (bool)) -let grabberSuppressionAssertion self = msg_send ~self ~cmd:(selector "grabberSuppressionAssertion") ~typ:(returning (id)) -let handleMultilingualAlternativeWithString x ~range self = msg_send ~self ~cmd:(selector "handleMultilingualAlternativeWithString:range:") ~typ:(id @-> id @-> returning (bool)) x range -let hasActiveSelectionInteraction self = msg_send ~self ~cmd:(selector "hasActiveSelectionInteraction") ~typ:(returning (bool)) -let hasReplacements self = msg_send ~self ~cmd:(selector "hasReplacements") ~typ:(returning (bool)) -let inGesture self = msg_send ~self ~cmd:(selector "inGesture") ~typ:(returning (bool)) -let initWithResponder x self = msg_send ~self ~cmd:(selector "initWithResponder:") ~typ:(id @-> returning (id)) x -let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning (id)) x -let initWithView' x ~textInteractionMode self = msg_send ~self ~cmd:(selector "initWithView:textInteractionMode:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int textInteractionMode) -let interactions self = msg_send ~self ~cmd:(selector "interactions") ~typ:(returning (id)) -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let isInteractiveSelectionDisabled self = msg_send ~self ~cmd:(selector "isInteractiveSelectionDisabled") ~typ:(returning (bool)) -let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning (bool)) -let keyboardSuppressionAssertion self = msg_send ~self ~cmd:(selector "keyboardSuppressionAssertion") ~typ:(returning (id)) -let layoutChangedByScrolling x self = msg_send ~self ~cmd:(selector "layoutChangedByScrolling:") ~typ:(bool @-> returning (void)) x -let linkInteraction self = msg_send ~self ~cmd:(selector "linkInteraction") ~typ:(returning (id)) -let lollipopGestureWithState x ~location ~locationOfFirstTouch ~forTouchType self = msg_send ~self ~cmd:(selector "lollipopGestureWithState:location:locationOfFirstTouch:forTouchType:") ~typ:(llong @-> CGPoint.t @-> CGPoint.t @-> llong @-> returning (void)) (LLong.of_int x) location locationOfFirstTouch (LLong.of_int forTouchType) -let loupeGesture self = msg_send ~self ~cmd:(selector "loupeGesture") ~typ:(returning (id)) -let loupeGestureEndPoint self = msg_send_stret ~self ~cmd:(selector "loupeGestureEndPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let loupeGestureWithState x ~location ~translation ~velocity ~modifierFlags ~shouldCancel self = msg_send ~self ~cmd:(selector "loupeGestureWithState:location:translation:velocity:modifierFlags:shouldCancel:") ~typ:(llong @-> ptr void @-> ptr void @-> ptr void @-> llong @-> ptr (bool) @-> returning (void)) (LLong.of_int x) location translation velocity (LLong.of_int modifierFlags) shouldCancel -let loupeMagnifierWithState x ~atPoint self = msg_send ~self ~cmd:(selector "loupeMagnifierWithState:atPoint:") ~typ:(llong @-> CGPoint.t @-> returning (void)) (LLong.of_int x) atPoint -let needsGestureUpdate self = msg_send ~self ~cmd:(selector "needsGestureUpdate") ~typ:(returning (bool)) -let notifyKeyboardSelectionChanged self = msg_send ~self ~cmd:(selector "notifyKeyboardSelectionChanged") ~typ:(returning (void)) -let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning (id)) x styleForRegion -let pointerInteraction1 x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning (id)) x regionForRequest defaultRegion -let pointerInteraction2 x ~willEnterRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willEnterRegion:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willEnterRegion animator -let pointerInteraction3 x ~willExitRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willExitRegion:animator:") ~typ:(id @-> id @-> id @-> returning (void)) x willExitRegion animator -let rangeForTextReplacement x self = msg_send ~self ~cmd:(selector "rangeForTextReplacement:") ~typ:(id @-> returning (id)) x -let rangeSelectionCanceled self = msg_send ~self ~cmd:(selector "rangeSelectionCanceled") ~typ:(returning (void)) -let rangeSelectionEnded x self = msg_send ~self ~cmd:(selector "rangeSelectionEnded:") ~typ:(CGPoint.t @-> returning (void)) x -let rangeSelectionMoved x ~withTouchPoint self = msg_send ~self ~cmd:(selector "rangeSelectionMoved:withTouchPoint:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (void)) x withTouchPoint -let rangeSelectionStarted x self = msg_send ~self ~cmd:(selector "rangeSelectionStarted:") ~typ:(CGPoint.t @-> returning (void)) x -let rangedMagnifierWithState x ~atPoint self = msg_send ~self ~cmd:(selector "rangedMagnifierWithState:atPoint:") ~typ:(llong @-> CGPoint.t @-> returning (void)) (LLong.of_int x) atPoint -let requiresImmediateUpdate self = msg_send ~self ~cmd:(selector "requiresImmediateUpdate") ~typ:(returning (bool)) -let resetWillHandoffLoupeMagnifier self = msg_send ~self ~cmd:(selector "resetWillHandoffLoupeMagnifier") ~typ:(returning (void)) -let resignedFirstResponder self = msg_send ~self ~cmd:(selector "resignedFirstResponder") ~typ:(returning (void)) -let scheduleChineseTransliteration self = msg_send ~self ~cmd:(selector "scheduleChineseTransliteration") ~typ:(returning (void)) -let scheduleDictationReplacementsForAlternatives x ~range self = msg_send ~self ~cmd:(selector "scheduleDictationReplacementsForAlternatives:range:") ~typ:(id @-> id @-> returning (void)) x range -let scheduleReplacements self = msg_send ~self ~cmd:(selector "scheduleReplacements") ~typ:(returning (void)) -let scheduleReplacementsForRange x ~withOptions self = msg_send ~self ~cmd:(selector "scheduleReplacementsForRange:withOptions:") ~typ:(id @-> ullong @-> returning (bool)) x (ULLong.of_int withOptions) -let scheduleReplacementsWithOptions x self = msg_send ~self ~cmd:(selector "scheduleReplacementsWithOptions:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let scrollSelectionToVisible self = msg_send ~self ~cmd:(selector "scrollSelectionToVisible") ~typ:(returning (void)) -let scrollSelectionToVisible' x self = msg_send ~self ~cmd:(selector "scrollSelectionToVisible:") ~typ:(bool @-> returning (void)) x -let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning (id)) -let selectAll x self = msg_send ~self ~cmd:(selector "selectAll:") ~typ:(id @-> returning (void)) x -let selectWord self = msg_send ~self ~cmd:(selector "selectWord") ~typ:(returning (void)) -let selectWordWithoutShowingCommands self = msg_send ~self ~cmd:(selector "selectWordWithoutShowingCommands") ~typ:(returning (void)) -let selectionAnimationDidStop self = msg_send ~self ~cmd:(selector "selectionAnimationDidStop") ~typ:(returning (void)) -let selectionChanged self = msg_send ~self ~cmd:(selector "selectionChanged") ~typ:(returning (void)) -let selectionInteractionClass self = msg_send ~self ~cmd:(selector "selectionInteractionClass") ~typ:(returning (_Class)) -let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning (id)) -let setAutoscrollUntransformedExtentPoint x self = msg_send ~self ~cmd:(selector "setAutoscrollUntransformedExtentPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setAutoscrolled x self = msg_send ~self ~cmd:(selector "setAutoscrolled:") ~typ:(bool @-> returning (void)) x -let setCursorBlinks x self = msg_send ~self ~cmd:(selector "setCursorBlinks:") ~typ:(bool @-> returning (void)) x -let setCursorVisible x self = msg_send ~self ~cmd:(selector "setCursorVisible:") ~typ:(bool @-> returning (void)) x -let setExpectingCommit x self = msg_send ~self ~cmd:(selector "setExpectingCommit:") ~typ:(bool @-> returning (void)) x -let setExternalInteractions x self = msg_send ~self ~cmd:(selector "setExternalInteractions:") ~typ:(id @-> returning (void)) x -let setFirstResponderIfNecessary self = msg_send ~self ~cmd:(selector "setFirstResponderIfNecessary") ~typ:(returning (void)) -let setFirstResponderIfNecessaryActivatingSelection x self = msg_send ~self ~cmd:(selector "setFirstResponderIfNecessaryActivatingSelection:") ~typ:(bool @-> returning (void)) x -let setGestureRecognizers self = msg_send ~self ~cmd:(selector "setGestureRecognizers") ~typ:(returning (void)) -let setGhostAppearance x self = msg_send ~self ~cmd:(selector "setGhostAppearance:") ~typ:(bool @-> returning (void)) x -let setGrabberSuppressionAssertion x self = msg_send ~self ~cmd:(selector "setGrabberSuppressionAssertion:") ~typ:(id @-> returning (void)) x -let setInGesture x self = msg_send ~self ~cmd:(selector "setInGesture:") ~typ:(bool @-> returning (void)) x -let setKeyboardSuppressionAssertion x self = msg_send ~self ~cmd:(selector "setKeyboardSuppressionAssertion:") ~typ:(id @-> returning (void)) x -let setLoupeGestureEndPoint x self = msg_send ~self ~cmd:(selector "setLoupeGestureEndPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setNeedsGestureUpdate x self = msg_send ~self ~cmd:(selector "setNeedsGestureUpdate:") ~typ:(bool @-> returning (void)) x -let setSelectionWithPoint x self = msg_send ~self ~cmd:(selector "setSelectionWithPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setSuppressSystemUI x self = msg_send ~self ~cmd:(selector "setSuppressSystemUI:") ~typ:(bool @-> returning (void)) x -let setWillHandoffLoupeMagnifier self = msg_send ~self ~cmd:(selector "setWillHandoffLoupeMagnifier") ~typ:(returning (void)) -let shouldSuppressSelectionCommands self = msg_send ~self ~cmd:(selector "shouldSuppressSelectionCommands") ~typ:(returning (bool)) -let showMultilingualDictationReplacementWithRange x self = msg_send ~self ~cmd:(selector "showMultilingualDictationReplacementWithRange:") ~typ:(id @-> returning (bool)) x -let singleTapGesture self = msg_send ~self ~cmd:(selector "singleTapGesture") ~typ:(returning (id)) -let startAutoscroll x self = msg_send ~self ~cmd:(selector "startAutoscroll:") ~typ:(CGPoint.t @-> returning (void)) x -let stashCurrentSelection self = msg_send ~self ~cmd:(selector "stashCurrentSelection") ~typ:(returning (void)) -let supportsIndirectInteractions self = msg_send ~self ~cmd:(selector "supportsIndirectInteractions") ~typ:(returning (bool)) -let swallowsDoubleTapWithScale x ~atPoint self = msg_send ~self ~cmd:(selector "swallowsDoubleTapWithScale:atPoint:") ~typ:(double @-> CGPoint.t @-> returning (bool)) x atPoint -let textDocument self = msg_send ~self ~cmd:(selector "textDocument") ~typ:(returning (id)) -let textSelectionView self = msg_send ~self ~cmd:(selector "textSelectionView") ~typ:(returning (id)) -let updateAutoscroll x self = msg_send ~self ~cmd:(selector "updateAutoscroll:") ~typ:(id @-> returning (void)) x -let updateFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let updateFloatingCursorAtPoint' x ~velocity self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:velocity:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (void)) x velocity -let updateSelectionWithPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let updateWithMagnifierTerminalPoint x self = msg_send ~self ~cmd:(selector "updateWithMagnifierTerminalPoint:") ~typ:(bool @-> returning (void)) x -let useGesturesForEditableContent self = msg_send ~self ~cmd:(selector "useGesturesForEditableContent") ~typ:(returning (bool)) -let usesAsynchronousSelectionController self = msg_send ~self ~cmd:(selector "usesAsynchronousSelectionController") ~typ:(returning (bool)) -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let viewConformsToAsynchronousInteractionProtocol self = msg_send ~self ~cmd:(selector "viewConformsToAsynchronousInteractionProtocol") ~typ:(returning (bool)) -let viewCouldBecomeEditable x self = msg_send ~self ~cmd:(selector "viewCouldBecomeEditable:") ~typ:(id @-> returning (bool)) x -let wantsLinkInteraction self = msg_send ~self ~cmd:(selector "wantsLinkInteraction") ~typ:(returning (bool)) -let willBeginFloatingCursor x self = msg_send ~self ~cmd:(selector "willBeginFloatingCursor:") ~typ:(bool @-> returning (void)) x -let willBeginSelectionInteraction self = msg_send ~self ~cmd:(selector "willBeginSelectionInteraction") ~typ:(returning (void)) -let willHandoffLoupeMagnifier self = msg_send ~self ~cmd:(selector "willHandoffLoupeMagnifier") ~typ:(returning (bool)) -let willStartScrollingOrZooming self = msg_send ~self ~cmd:(selector "willStartScrollingOrZooming") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UITextInteractionAssistant" + +let activate self = msg_send ~self ~cmd:(selector "activate") ~typ:(returning void) +let activateSelection self = msg_send ~self ~cmd:(selector "activateSelection") ~typ:(returning void) +let activeSelectionController self = msg_send ~self ~cmd:(selector "activeSelectionController") ~typ:(returning id) +let addGestureRecognizersToView x self = msg_send ~self ~cmd:(selector "addGestureRecognizersToView:") ~typ:(id @-> returning void) x +let attach self = msg_send ~self ~cmd:(selector "attach") ~typ:(returning void) +let attributedTextInRange x self = msg_send ~self ~cmd:(selector "attributedTextInRange:") ~typ:(id @-> returning id) x +let autoscrollUntransformedExtentPoint self = msg_send ~self ~cmd:(selector "autoscrollUntransformedExtentPoint") ~typ:(returning CGPoint.t) +let autoscrollWillNotStart self = msg_send ~self ~cmd:(selector "autoscrollWillNotStart") ~typ:(returning void) +let autoscrolled self = msg_send ~self ~cmd:(selector "autoscrolled") ~typ:(returning bool) +let beginFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "beginFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let canBeginDragCursor x self = msg_send ~self ~cmd:(selector "canBeginDragCursor:") ~typ:(id @-> returning void) x +let canShowSelectionCommands self = msg_send ~self ~cmd:(selector "canShowSelectionCommands") ~typ:(returning bool) +let cancelAutoscroll self = msg_send ~self ~cmd:(selector "cancelAutoscroll") ~typ:(returning void) +let checkEditabilityAndSetFirstResponderIfNecessary self = msg_send ~self ~cmd:(selector "checkEditabilityAndSetFirstResponderIfNecessary") ~typ:(returning void) +let clearGestureRecognizers self = msg_send ~self ~cmd:(selector "clearGestureRecognizers") ~typ:(returning void) +let clearGestureRecognizers' x self = msg_send ~self ~cmd:(selector "clearGestureRecognizers:") ~typ:(bool @-> returning void) x +let clearSelection self = msg_send ~self ~cmd:(selector "clearSelection") ~typ:(returning void) +let clearStashedSelection self = msg_send ~self ~cmd:(selector "clearStashedSelection") ~typ:(returning void) +let configureForHighlightMode self = msg_send ~self ~cmd:(selector "configureForHighlightMode") ~typ:(returning void) +let configureForPencilDeletionPreviewMode self = msg_send ~self ~cmd:(selector "configureForPencilDeletionPreviewMode") ~typ:(returning void) +let configureForPencilHighlightMode self = msg_send ~self ~cmd:(selector "configureForPencilHighlightMode") ~typ:(returning void) +let configureForReplacementMode self = msg_send ~self ~cmd:(selector "configureForReplacementMode") ~typ:(returning void) +let configureForSelectionMode self = msg_send ~self ~cmd:(selector "configureForSelectionMode") ~typ:(returning void) +let constrainedPoint x self = msg_send ~self ~cmd:(selector "constrainedPoint:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let containerAllowsSelection self = msg_send ~self ~cmd:(selector "containerAllowsSelection") ~typ:(returning bool) +let containerAllowsSelectionTintOnly self = msg_send ~self ~cmd:(selector "containerAllowsSelectionTintOnly") ~typ:(returning bool) +let containerIsBrowserView self = msg_send ~self ~cmd:(selector "containerIsBrowserView") ~typ:(returning bool) +let containerIsTextField self = msg_send ~self ~cmd:(selector "containerIsTextField") ~typ:(returning bool) +let currentCursorBehavior self = msg_send ~self ~cmd:(selector "currentCursorBehavior") ~typ:(returning llong) +let currentDraggedHandle self = msg_send ~self ~cmd:(selector "currentDraggedHandle") ~typ:(returning ullong) +let cursorBlinks self = msg_send ~self ~cmd:(selector "cursorBlinks") ~typ:(returning bool) +let cursorVisible self = msg_send ~self ~cmd:(selector "cursorVisible") ~typ:(returning bool) +let deactivateSelection self = msg_send ~self ~cmd:(selector "deactivateSelection") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let detach self = msg_send ~self ~cmd:(selector "detach") ~typ:(returning void) +let detach' x self = msg_send ~self ~cmd:(selector "detach:") ~typ:(bool @-> returning void) x +let didEndScrollingOrZooming self = msg_send ~self ~cmd:(selector "didEndScrollingOrZooming") ~typ:(returning void) +let didEndSelectionInteraction self = msg_send ~self ~cmd:(selector "didEndSelectionInteraction") ~typ:(returning void) +let didPerformLoupeSelectionHandoff self = msg_send ~self ~cmd:(selector "didPerformLoupeSelectionHandoff") ~typ:(returning bool) +let didUseStashedSelection self = msg_send ~self ~cmd:(selector "didUseStashedSelection") ~typ:(returning bool) +let doubleTapGesture self = msg_send ~self ~cmd:(selector "doubleTapGesture") ~typ:(returning id) +let endFloatingCursor self = msg_send ~self ~cmd:(selector "endFloatingCursor") ~typ:(returning void) +let expectingCommit self = msg_send ~self ~cmd:(selector "expectingCommit") ~typ:(returning bool) +let extendSelectionToLoupeOrSetToPoint x self = msg_send ~self ~cmd:(selector "extendSelectionToLoupeOrSetToPoint:") ~typ:(CGPoint.t @-> returning void) x +let extendSelectionToPoint x self = msg_send ~self ~cmd:(selector "extendSelectionToPoint:") ~typ:(CGPoint.t @-> returning void) x +let externalInteractions self = msg_send ~self ~cmd:(selector "externalInteractions") ~typ:(returning id) +let externalTextInput self = msg_send ~self ~cmd:(selector "externalTextInput") ~typ:(returning bool) +let fieldEditor self = msg_send ~self ~cmd:(selector "fieldEditor") ~typ:(returning id) +let forcePressGesture self = msg_send ~self ~cmd:(selector "forcePressGesture") ~typ:(returning id) +let generatorForRange x ~withOptions self = msg_send ~self ~cmd:(selector "generatorForRange:withOptions:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int withOptions) +let ghostAppearance self = msg_send ~self ~cmd:(selector "ghostAppearance") ~typ:(returning bool) +let grabberSuppressionAssertion self = msg_send ~self ~cmd:(selector "grabberSuppressionAssertion") ~typ:(returning id) +let handleMultilingualAlternativeWithString x ~range self = msg_send ~self ~cmd:(selector "handleMultilingualAlternativeWithString:range:") ~typ:(id @-> id @-> returning bool) x range +let hasActiveSelectionInteraction self = msg_send ~self ~cmd:(selector "hasActiveSelectionInteraction") ~typ:(returning bool) +let hasReplacements self = msg_send ~self ~cmd:(selector "hasReplacements") ~typ:(returning bool) +let inGesture self = msg_send ~self ~cmd:(selector "inGesture") ~typ:(returning bool) +let initWithResponder x self = msg_send ~self ~cmd:(selector "initWithResponder:") ~typ:(id @-> returning id) x +let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning id) x +let initWithView' x ~textInteractionMode self = msg_send ~self ~cmd:(selector "initWithView:textInteractionMode:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int textInteractionMode) +let interactions self = msg_send ~self ~cmd:(selector "interactions") ~typ:(returning id) +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let isInteractiveSelectionDisabled self = msg_send ~self ~cmd:(selector "isInteractiveSelectionDisabled") ~typ:(returning bool) +let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning bool) +let keyboardSuppressionAssertion self = msg_send ~self ~cmd:(selector "keyboardSuppressionAssertion") ~typ:(returning id) +let layoutChangedByScrolling x self = msg_send ~self ~cmd:(selector "layoutChangedByScrolling:") ~typ:(bool @-> returning void) x +let linkInteraction self = msg_send ~self ~cmd:(selector "linkInteraction") ~typ:(returning id) +let lollipopGestureWithState x ~location ~locationOfFirstTouch ~forTouchType self = msg_send ~self ~cmd:(selector "lollipopGestureWithState:location:locationOfFirstTouch:forTouchType:") ~typ:(llong @-> CGPoint.t @-> CGPoint.t @-> llong @-> returning void) (LLong.of_int x) location locationOfFirstTouch (LLong.of_int forTouchType) +let loupeGesture self = msg_send ~self ~cmd:(selector "loupeGesture") ~typ:(returning id) +let loupeGestureEndPoint self = msg_send ~self ~cmd:(selector "loupeGestureEndPoint") ~typ:(returning CGPoint.t) +let loupeGestureWithState x ~location ~translation ~velocity ~modifierFlags ~shouldCancel self = msg_send ~self ~cmd:(selector "loupeGestureWithState:location:translation:velocity:modifierFlags:shouldCancel:") ~typ:(llong @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> llong @-> (ptr bool) @-> returning void) (LLong.of_int x) location translation velocity (LLong.of_int modifierFlags) shouldCancel +let loupeMagnifierWithState x ~atPoint self = msg_send ~self ~cmd:(selector "loupeMagnifierWithState:atPoint:") ~typ:(llong @-> CGPoint.t @-> returning void) (LLong.of_int x) atPoint +let needsGestureUpdate self = msg_send ~self ~cmd:(selector "needsGestureUpdate") ~typ:(returning bool) +let notifyKeyboardSelectionChanged self = msg_send ~self ~cmd:(selector "notifyKeyboardSelectionChanged") ~typ:(returning void) +let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning id) x styleForRegion +let pointerInteraction1 x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning id) x regionForRequest defaultRegion +let pointerInteraction2 x ~willEnterRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willEnterRegion:animator:") ~typ:(id @-> id @-> id @-> returning void) x willEnterRegion animator +let pointerInteraction3 x ~willExitRegion ~animator self = msg_send ~self ~cmd:(selector "pointerInteraction:willExitRegion:animator:") ~typ:(id @-> id @-> id @-> returning void) x willExitRegion animator +let rangeForTextReplacement x self = msg_send ~self ~cmd:(selector "rangeForTextReplacement:") ~typ:(id @-> returning id) x +let rangeSelectionCanceled self = msg_send ~self ~cmd:(selector "rangeSelectionCanceled") ~typ:(returning void) +let rangeSelectionEnded x self = msg_send ~self ~cmd:(selector "rangeSelectionEnded:") ~typ:(CGPoint.t @-> returning void) x +let rangeSelectionMoved x ~withTouchPoint self = msg_send ~self ~cmd:(selector "rangeSelectionMoved:withTouchPoint:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning void) x withTouchPoint +let rangeSelectionStarted x self = msg_send ~self ~cmd:(selector "rangeSelectionStarted:") ~typ:(CGPoint.t @-> returning void) x +let rangedMagnifierWithState x ~atPoint self = msg_send ~self ~cmd:(selector "rangedMagnifierWithState:atPoint:") ~typ:(llong @-> CGPoint.t @-> returning void) (LLong.of_int x) atPoint +let requiresImmediateUpdate self = msg_send ~self ~cmd:(selector "requiresImmediateUpdate") ~typ:(returning bool) +let resetWillHandoffLoupeMagnifier self = msg_send ~self ~cmd:(selector "resetWillHandoffLoupeMagnifier") ~typ:(returning void) +let resignedFirstResponder self = msg_send ~self ~cmd:(selector "resignedFirstResponder") ~typ:(returning void) +let scheduleChineseTransliteration self = msg_send ~self ~cmd:(selector "scheduleChineseTransliteration") ~typ:(returning void) +let scheduleDictationReplacementsForAlternatives x ~range self = msg_send ~self ~cmd:(selector "scheduleDictationReplacementsForAlternatives:range:") ~typ:(id @-> id @-> returning void) x range +let scheduleReplacements self = msg_send ~self ~cmd:(selector "scheduleReplacements") ~typ:(returning void) +let scheduleReplacementsForRange x ~withOptions self = msg_send ~self ~cmd:(selector "scheduleReplacementsForRange:withOptions:") ~typ:(id @-> ullong @-> returning bool) x (ULLong.of_int withOptions) +let scheduleReplacementsWithOptions x self = msg_send ~self ~cmd:(selector "scheduleReplacementsWithOptions:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let scrollSelectionToVisible self = msg_send ~self ~cmd:(selector "scrollSelectionToVisible") ~typ:(returning void) +let scrollSelectionToVisible' x self = msg_send ~self ~cmd:(selector "scrollSelectionToVisible:") ~typ:(bool @-> returning void) x +let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning id) +let selectAll x self = msg_send ~self ~cmd:(selector "selectAll:") ~typ:(id @-> returning void) x +let selectWord self = msg_send ~self ~cmd:(selector "selectWord") ~typ:(returning void) +let selectWordWithoutShowingCommands self = msg_send ~self ~cmd:(selector "selectWordWithoutShowingCommands") ~typ:(returning void) +let selectionAnimationDidStop self = msg_send ~self ~cmd:(selector "selectionAnimationDidStop") ~typ:(returning void) +let selectionChanged self = msg_send ~self ~cmd:(selector "selectionChanged") ~typ:(returning void) +let selectionInteractionClass self = msg_send ~self ~cmd:(selector "selectionInteractionClass") ~typ:(returning _Class) +let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning id) +let setAutoscrollUntransformedExtentPoint x self = msg_send ~self ~cmd:(selector "setAutoscrollUntransformedExtentPoint:") ~typ:(CGPoint.t @-> returning void) x +let setAutoscrolled x self = msg_send ~self ~cmd:(selector "setAutoscrolled:") ~typ:(bool @-> returning void) x +let setCursorBlinks x self = msg_send ~self ~cmd:(selector "setCursorBlinks:") ~typ:(bool @-> returning void) x +let setCursorVisible x self = msg_send ~self ~cmd:(selector "setCursorVisible:") ~typ:(bool @-> returning void) x +let setExpectingCommit x self = msg_send ~self ~cmd:(selector "setExpectingCommit:") ~typ:(bool @-> returning void) x +let setExternalInteractions x self = msg_send ~self ~cmd:(selector "setExternalInteractions:") ~typ:(id @-> returning void) x +let setFirstResponderIfNecessary self = msg_send ~self ~cmd:(selector "setFirstResponderIfNecessary") ~typ:(returning void) +let setFirstResponderIfNecessaryActivatingSelection x self = msg_send ~self ~cmd:(selector "setFirstResponderIfNecessaryActivatingSelection:") ~typ:(bool @-> returning void) x +let setGestureRecognizers self = msg_send ~self ~cmd:(selector "setGestureRecognizers") ~typ:(returning void) +let setGhostAppearance x self = msg_send ~self ~cmd:(selector "setGhostAppearance:") ~typ:(bool @-> returning void) x +let setGrabberSuppressionAssertion x self = msg_send ~self ~cmd:(selector "setGrabberSuppressionAssertion:") ~typ:(id @-> returning void) x +let setInGesture x self = msg_send ~self ~cmd:(selector "setInGesture:") ~typ:(bool @-> returning void) x +let setKeyboardSuppressionAssertion x self = msg_send ~self ~cmd:(selector "setKeyboardSuppressionAssertion:") ~typ:(id @-> returning void) x +let setLoupeGestureEndPoint x self = msg_send ~self ~cmd:(selector "setLoupeGestureEndPoint:") ~typ:(CGPoint.t @-> returning void) x +let setNeedsGestureUpdate x self = msg_send ~self ~cmd:(selector "setNeedsGestureUpdate:") ~typ:(bool @-> returning void) x +let setSelectionWithPoint x self = msg_send ~self ~cmd:(selector "setSelectionWithPoint:") ~typ:(CGPoint.t @-> returning void) x +let setSuppressSystemUI x self = msg_send ~self ~cmd:(selector "setSuppressSystemUI:") ~typ:(bool @-> returning void) x +let setWillHandoffLoupeMagnifier self = msg_send ~self ~cmd:(selector "setWillHandoffLoupeMagnifier") ~typ:(returning void) +let shouldSuppressSelectionCommands self = msg_send ~self ~cmd:(selector "shouldSuppressSelectionCommands") ~typ:(returning bool) +let showMultilingualDictationReplacementWithRange x self = msg_send ~self ~cmd:(selector "showMultilingualDictationReplacementWithRange:") ~typ:(id @-> returning bool) x +let singleTapGesture self = msg_send ~self ~cmd:(selector "singleTapGesture") ~typ:(returning id) +let startAutoscroll x self = msg_send ~self ~cmd:(selector "startAutoscroll:") ~typ:(CGPoint.t @-> returning void) x +let stashCurrentSelection self = msg_send ~self ~cmd:(selector "stashCurrentSelection") ~typ:(returning void) +let supportsIndirectInteractions self = msg_send ~self ~cmd:(selector "supportsIndirectInteractions") ~typ:(returning bool) +let swallowsDoubleTapWithScale x ~atPoint self = msg_send ~self ~cmd:(selector "swallowsDoubleTapWithScale:atPoint:") ~typ:(double @-> CGPoint.t @-> returning bool) x atPoint +let textDocument self = msg_send ~self ~cmd:(selector "textDocument") ~typ:(returning id) +let textSelectionView self = msg_send ~self ~cmd:(selector "textSelectionView") ~typ:(returning id) +let updateAutoscroll x self = msg_send ~self ~cmd:(selector "updateAutoscroll:") ~typ:(id @-> returning void) x +let updateFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let updateFloatingCursorAtPoint' x ~velocity self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:velocity:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning void) x velocity +let updateSelectionWithPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithPoint:") ~typ:(CGPoint.t @-> returning void) x +let updateWithMagnifierTerminalPoint x self = msg_send ~self ~cmd:(selector "updateWithMagnifierTerminalPoint:") ~typ:(bool @-> returning void) x +let useGesturesForEditableContent self = msg_send ~self ~cmd:(selector "useGesturesForEditableContent") ~typ:(returning bool) +let usesAsynchronousSelectionController self = msg_send ~self ~cmd:(selector "usesAsynchronousSelectionController") ~typ:(returning bool) +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let viewConformsToAsynchronousInteractionProtocol self = msg_send ~self ~cmd:(selector "viewConformsToAsynchronousInteractionProtocol") ~typ:(returning bool) +let viewCouldBecomeEditable x self = msg_send ~self ~cmd:(selector "viewCouldBecomeEditable:") ~typ:(id @-> returning bool) x +let wantsLinkInteraction self = msg_send ~self ~cmd:(selector "wantsLinkInteraction") ~typ:(returning bool) +let willBeginFloatingCursor x self = msg_send ~self ~cmd:(selector "willBeginFloatingCursor:") ~typ:(bool @-> returning void) x +let willBeginSelectionInteraction self = msg_send ~self ~cmd:(selector "willBeginSelectionInteraction") ~typ:(returning void) +let willHandoffLoupeMagnifier self = msg_send ~self ~cmd:(selector "willHandoffLoupeMagnifier") ~typ:(returning bool) +let willStartScrollingOrZooming self = msg_send ~self ~cmd:(selector "willStartScrollingOrZooming") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UITextInteractionClass.ml b/uikit/UITextInteractionClass.ml new file mode 100644 index 00000000..89ad75ac --- /dev/null +++ b/uikit/UITextInteractionClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinteraction?language=objc}UITextInteraction} *) + +let textInteractionForMode x self = msg_send ~self ~cmd:(selector "textInteractionForMode:") ~typ:(llong @-> returning id) (LLong.of_int x) +let textInteractionsForSet x self = msg_send ~self ~cmd:(selector "textInteractionsForSet:") ~typ:(llong @-> returning id) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UITextInteractionInputDelegate.ml b/uikit/UITextInteractionInputDelegate.ml index 0df7c5b3..1a791276 100644 --- a/uikit/UITextInteractionInputDelegate.ml +++ b/uikit/UITextInteractionInputDelegate.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextInteractionInputDelegate" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinteractioninputdelegate?language=objc}UITextInteractionInputDelegate} *) -let rootInteraction self = msg_send ~self ~cmd:(selector "rootInteraction") ~typ:(returning (id)) -let selectionDidChange x self = msg_send ~self ~cmd:(selector "selectionDidChange:") ~typ:(id @-> returning (void)) x -let selectionWillChange x self = msg_send ~self ~cmd:(selector "selectionWillChange:") ~typ:(id @-> returning (void)) x -let setRootInteraction x self = msg_send ~self ~cmd:(selector "setRootInteraction:") ~typ:(id @-> returning (void)) x -let textDidChange x self = msg_send ~self ~cmd:(selector "textDidChange:") ~typ:(id @-> returning (void)) x -let textWillChange x self = msg_send ~self ~cmd:(selector "textWillChange:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UITextInteractionInputDelegate" + +let rootInteraction self = msg_send ~self ~cmd:(selector "rootInteraction") ~typ:(returning id) +let selectionDidChange x self = msg_send ~self ~cmd:(selector "selectionDidChange:") ~typ:(id @-> returning void) x +let selectionWillChange x self = msg_send ~self ~cmd:(selector "selectionWillChange:") ~typ:(id @-> returning void) x +let setRootInteraction x self = msg_send ~self ~cmd:(selector "setRootInteraction:") ~typ:(id @-> returning void) x +let textDidChange x self = msg_send ~self ~cmd:(selector "textDidChange:") ~typ:(id @-> returning void) x +let textWillChange x self = msg_send ~self ~cmd:(selector "textWillChange:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextInteractionSelectableInputDelegate.ml b/uikit/UITextInteractionSelectableInputDelegate.ml deleted file mode 100644 index 889eede2..00000000 --- a/uikit/UITextInteractionSelectableInputDelegate.ml +++ /dev/null @@ -1,49 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextInteractionSelectableInputDelegate" - -module C = struct - let selectableInputDelegateWithTextInput x self = msg_send ~self ~cmd:(selector "selectableInputDelegateWithTextInput:") ~typ:(id @-> returning (id)) x -end - -let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int inDirection) -let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning (id)) -let caretRectForPosition x self = msg_send_stret ~self ~cmd:(selector "caretRectForPosition:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let characterRangeAtPoint x self = msg_send ~self ~cmd:(selector "characterRangeAtPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let characterRangeByExtendingPosition x ~inDirection self = msg_send ~self ~cmd:(selector "characterRangeByExtendingPosition:inDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int inDirection) -let closestPositionToPoint x self = msg_send ~self ~cmd:(selector "closestPositionToPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let closestPositionToPoint' x ~withinRange self = msg_send ~self ~cmd:(selector "closestPositionToPoint:withinRange:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withinRange -let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning (llong)) x toPosition -let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning (void)) -let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning (id)) -let firstRectForRange x self = msg_send_stret ~self ~cmd:(selector "firstRectForRange:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning (bool)) -let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning (id)) -let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning (void)) x -let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning (id)) -let markedTextStyle self = msg_send ~self ~cmd:(selector "markedTextStyle") ~typ:(returning (id)) -let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning (id)) -let offsetFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "offsetFromPosition:toPosition:") ~typ:(id @-> id @-> returning (llong)) x toPosition -let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int offset) -let positionFromPosition' x ~inDirection ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:inDirection:offset:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int inDirection) (LLong.of_int offset) -let positionWithinRange x ~farthestInDirection self = msg_send ~self ~cmd:(selector "positionWithinRange:farthestInDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int farthestInDirection) -let replaceRange x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning (void)) x withText -let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning (id)) -let selectionRectsForRange x self = msg_send ~self ~cmd:(selector "selectionRectsForRange:") ~typ:(id @-> returning (id)) x -let setBaseWritingDirection x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) forRange -let setInputDelegate x self = msg_send ~self ~cmd:(selector "setInputDelegate:") ~typ:(id @-> returning (void)) x -let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning (void)) x selectedRange -let setMarkedTextStyle x self = msg_send ~self ~cmd:(selector "setMarkedTextStyle:") ~typ:(id @-> returning (void)) x -let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning (void)) x -let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning (id)) x -let textInput self = msg_send ~self ~cmd:(selector "textInput") ~typ:(returning (id)) -let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning (id)) x toPosition -let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning (id)) -let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning (void)) -let updateSelectionRects self = msg_send ~self ~cmd:(selector "updateSelectionRects") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit/UITextLabel.ml b/uikit/UITextLabel.ml index e4ab3fd4..fccef829 100644 --- a/uikit/UITextLabel.ml +++ b/uikit/UITextLabel.ml @@ -5,22 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextLabel" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextlabel?language=objc}UITextLabel} *) -let alignment self = msg_send ~self ~cmd:(selector "alignment") ~typ:(returning (llong)) -let centersHorizontally self = msg_send ~self ~cmd:(selector "centersHorizontally") ~typ:(returning (bool)) -let color self = msg_send ~self ~cmd:(selector "color") ~typ:(returning (id)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let ellipsizedTextSize self = msg_send_stret ~self ~cmd:(selector "ellipsizedTextSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let highlightedColor self = msg_send ~self ~cmd:(selector "highlightedColor") ~typ:(returning (id)) -let minFontSize self = msg_send ~self ~cmd:(selector "minFontSize") ~typ:(returning (float)) -let setAlignment x self = msg_send ~self ~cmd:(selector "setAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCentersHorizontally x self = msg_send ~self ~cmd:(selector "setCentersHorizontally:") ~typ:(bool @-> returning (void)) x -let setColor x self = msg_send ~self ~cmd:(selector "setColor:") ~typ:(id @-> returning (void)) x -let setHighlightedColor x self = msg_send ~self ~cmd:(selector "setHighlightedColor:") ~typ:(id @-> returning (void)) x -let setMinFontSize x self = msg_send ~self ~cmd:(selector "setMinFontSize:") ~typ:(float @-> returning (void)) x -let setTextAutoresizesToFit x self = msg_send ~self ~cmd:(selector "setTextAutoresizesToFit:") ~typ:(bool @-> returning (void)) x -let setWrapsText x self = msg_send ~self ~cmd:(selector "setWrapsText:") ~typ:(bool @-> returning (void)) x -let textAutoresizesToFit self = msg_send ~self ~cmd:(selector "textAutoresizesToFit") ~typ:(returning (bool)) -let wrapsText self = msg_send ~self ~cmd:(selector "wrapsText") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UITextLabel" + +let alignment self = msg_send ~self ~cmd:(selector "alignment") ~typ:(returning llong) +let centersHorizontally self = msg_send ~self ~cmd:(selector "centersHorizontally") ~typ:(returning bool) +let color self = msg_send ~self ~cmd:(selector "color") ~typ:(returning id) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let ellipsizedTextSize self = msg_send ~self ~cmd:(selector "ellipsizedTextSize") ~typ:(returning CGSize.t) +let highlightedColor self = msg_send ~self ~cmd:(selector "highlightedColor") ~typ:(returning id) +let minFontSize self = msg_send ~self ~cmd:(selector "minFontSize") ~typ:(returning float) +let setAlignment x self = msg_send ~self ~cmd:(selector "setAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCentersHorizontally x self = msg_send ~self ~cmd:(selector "setCentersHorizontally:") ~typ:(bool @-> returning void) x +let setColor x self = msg_send ~self ~cmd:(selector "setColor:") ~typ:(id @-> returning void) x +let setHighlightedColor x self = msg_send ~self ~cmd:(selector "setHighlightedColor:") ~typ:(id @-> returning void) x +let setMinFontSize x self = msg_send ~self ~cmd:(selector "setMinFontSize:") ~typ:(float @-> returning void) x +let setTextAutoresizesToFit x self = msg_send ~self ~cmd:(selector "setTextAutoresizesToFit:") ~typ:(bool @-> returning void) x +let setWrapsText x self = msg_send ~self ~cmd:(selector "setWrapsText:") ~typ:(bool @-> returning void) x +let textAutoresizesToFit self = msg_send ~self ~cmd:(selector "textAutoresizesToFit") ~typ:(returning bool) +let wrapsText self = msg_send ~self ~cmd:(selector "wrapsText") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UITextLiveConversionInteraction.ml b/uikit/UITextLiveConversionInteraction.ml index 64561a4a..34a03d55 100644 --- a/uikit/UITextLiveConversionInteraction.ml +++ b/uikit/UITextLiveConversionInteraction.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextLiveConversionInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextliveconversioninteraction?language=objc}UITextLiveConversionInteraction} *) -let initWithTextInput x self = msg_send ~self ~cmd:(selector "initWithTextInput:") ~typ:(id @-> returning (id)) x -let pointSize self = msg_send ~self ~cmd:(selector "pointSize") ~typ:(returning (double)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UITextLiveConversionInteraction" + +let initWithTextInput x self = msg_send ~self ~cmd:(selector "initWithTextInput:") ~typ:(id @-> returning id) x +let pointSize self = msg_send ~self ~cmd:(selector "pointSize") ~typ:(returning double) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextLoupeAcceleratedTouchBehavior.ml b/uikit/UITextLoupeAcceleratedTouchBehavior.ml index 993f3bc7..feda54af 100644 --- a/uikit/UITextLoupeAcceleratedTouchBehavior.ml +++ b/uikit/UITextLoupeAcceleratedTouchBehavior.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextLoupeAcceleratedTouchBehavior" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextloupeacceleratedtouchbehavior?language=objc}UITextLoupeAcceleratedTouchBehavior} *) -let adjustVariableDelaySettingsForLoupeInteraction x self = msg_send ~self ~cmd:(selector "adjustVariableDelaySettingsForLoupeInteraction:") ~typ:(id @-> returning (void)) x -let configureGestureExclusionRequirementsForTextLoupeInteraction x self = msg_send ~self ~cmd:(selector "configureGestureExclusionRequirementsForTextLoupeInteraction:") ~typ:(id @-> returning (void)) x -let configureLoupeGestureRecognizer x ~forTextLoupeInteraction self = msg_send ~self ~cmd:(selector "configureLoupeGestureRecognizer:forTextLoupeInteraction:") ~typ:(id @-> id @-> returning (void)) x forTextLoupeInteraction -let gestureRecognizerClassForLoupeInteraction x self = msg_send ~self ~cmd:(selector "gestureRecognizerClassForLoupeInteraction:") ~typ:(id @-> returning (_Class)) x -let loupeGestureRecognizerShouldBegin x ~forTextLoupeInteraction self = msg_send ~self ~cmd:(selector "loupeGestureRecognizerShouldBegin:forTextLoupeInteraction:") ~typ:(id @-> id @-> returning (bool)) x forTextLoupeInteraction -let shouldAllowEnforcedTouchTypeForTouch x ~forGestureRecognizer self = msg_send ~self ~cmd:(selector "shouldAllowEnforcedTouchTypeForTouch:forGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x forGestureRecognizer -let startPointForLoupeGesture x self = msg_send_stret ~self ~cmd:(selector "startPointForLoupeGesture:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let textLoupeInteraction x ~gestureChangedWithState ~location ~translation ~velocity ~modifierFlags ~shouldCancel self = msg_send ~self ~cmd:(selector "textLoupeInteraction:gestureChangedWithState:location:translation:velocity:modifierFlags:shouldCancel:") ~typ:(id @-> llong @-> ptr void @-> ptr void @-> ptr void @-> llong @-> ptr (bool) @-> returning (void)) x (LLong.of_int gestureChangedWithState) location translation velocity (LLong.of_int modifierFlags) shouldCancel -let translationInView x ~forLoupeGesture self = msg_send_stret ~self ~cmd:(selector "translationInView:forLoupeGesture:") ~typ:(id @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x forLoupeGesture -let triggeredByLongPressGesture x self = msg_send ~self ~cmd:(selector "triggeredByLongPressGesture:") ~typ:(id @-> returning (bool)) x -let usesTouchAlignment self = msg_send ~self ~cmd:(selector "usesTouchAlignment") ~typ:(returning (bool)) -let velocityInView x ~forLoupeGesture self = msg_send_stret ~self ~cmd:(selector "velocityInView:forLoupeGesture:") ~typ:(id @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x forLoupeGesture \ No newline at end of file +let self = get_class "UITextLoupeAcceleratedTouchBehavior" + +let adjustVariableDelaySettingsForLoupeInteraction x self = msg_send ~self ~cmd:(selector "adjustVariableDelaySettingsForLoupeInteraction:") ~typ:(id @-> returning void) x +let configureGestureExclusionRequirementsForTextLoupeInteraction x self = msg_send ~self ~cmd:(selector "configureGestureExclusionRequirementsForTextLoupeInteraction:") ~typ:(id @-> returning void) x +let configureLoupeGestureRecognizer x ~forTextLoupeInteraction self = msg_send ~self ~cmd:(selector "configureLoupeGestureRecognizer:forTextLoupeInteraction:") ~typ:(id @-> id @-> returning void) x forTextLoupeInteraction +let gestureRecognizerClassForLoupeInteraction x self = msg_send ~self ~cmd:(selector "gestureRecognizerClassForLoupeInteraction:") ~typ:(id @-> returning _Class) x +let loupeGestureRecognizerShouldBegin x ~forTextLoupeInteraction self = msg_send ~self ~cmd:(selector "loupeGestureRecognizerShouldBegin:forTextLoupeInteraction:") ~typ:(id @-> id @-> returning bool) x forTextLoupeInteraction +let shouldAllowEnforcedTouchTypeForTouch x ~forGestureRecognizer self = msg_send ~self ~cmd:(selector "shouldAllowEnforcedTouchTypeForTouch:forGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x forGestureRecognizer +let startPointForLoupeGesture x self = msg_send ~self ~cmd:(selector "startPointForLoupeGesture:") ~typ:(id @-> returning CGPoint.t) x +let textLoupeInteraction x ~gestureChangedWithState ~location ~translation ~velocity ~modifierFlags ~shouldCancel self = msg_send ~self ~cmd:(selector "textLoupeInteraction:gestureChangedWithState:location:translation:velocity:modifierFlags:shouldCancel:") ~typ:(id @-> llong @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> llong @-> (ptr bool) @-> returning void) x (LLong.of_int gestureChangedWithState) location translation velocity (LLong.of_int modifierFlags) shouldCancel +let translationInView x ~forLoupeGesture self = msg_send ~self ~cmd:(selector "translationInView:forLoupeGesture:") ~typ:(id @-> id @-> returning CGPoint.t) x forLoupeGesture +let triggeredByLongPressGesture x self = msg_send ~self ~cmd:(selector "triggeredByLongPressGesture:") ~typ:(id @-> returning bool) x +let usesTouchAlignment self = msg_send ~self ~cmd:(selector "usesTouchAlignment") ~typ:(returning bool) +let velocityInView x ~forLoupeGesture self = msg_send ~self ~cmd:(selector "velocityInView:forLoupeGesture:") ~typ:(id @-> id @-> returning CGPoint.t) x forLoupeGesture \ No newline at end of file diff --git a/uikit/UITextLoupeCursorBehavior.ml b/uikit/UITextLoupeCursorBehavior.ml index 12fd94c0..66847df1 100644 --- a/uikit/UITextLoupeCursorBehavior.ml +++ b/uikit/UITextLoupeCursorBehavior.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextLoupeCursorBehavior" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextloupecursorbehavior?language=objc}UITextLoupeCursorBehavior} *) -let adjustVariableDelaySettingsForLoupeInteraction x self = msg_send ~self ~cmd:(selector "adjustVariableDelaySettingsForLoupeInteraction:") ~typ:(id @-> returning (void)) x -let configureGestureExclusionRequirementsForTextLoupeInteraction x self = msg_send ~self ~cmd:(selector "configureGestureExclusionRequirementsForTextLoupeInteraction:") ~typ:(id @-> returning (void)) x -let configureLoupeGestureRecognizer x ~forTextLoupeInteraction self = msg_send ~self ~cmd:(selector "configureLoupeGestureRecognizer:forTextLoupeInteraction:") ~typ:(id @-> id @-> returning (void)) x forTextLoupeInteraction -let gestureRecognizerClassForLoupeInteraction x self = msg_send ~self ~cmd:(selector "gestureRecognizerClassForLoupeInteraction:") ~typ:(id @-> returning (_Class)) x -let loupeGestureRecognizerShouldBegin x ~forTextLoupeInteraction self = msg_send ~self ~cmd:(selector "loupeGestureRecognizerShouldBegin:forTextLoupeInteraction:") ~typ:(id @-> id @-> returning (bool)) x forTextLoupeInteraction -let shouldAllowEnforcedTouchTypeForTouch x ~forGestureRecognizer self = msg_send ~self ~cmd:(selector "shouldAllowEnforcedTouchTypeForTouch:forGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x forGestureRecognizer -let startPointForLoupeGesture x self = msg_send_stret ~self ~cmd:(selector "startPointForLoupeGesture:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let textLoupeInteraction x ~gestureChangedWithState ~location ~translation ~velocity ~modifierFlags ~shouldCancel self = msg_send ~self ~cmd:(selector "textLoupeInteraction:gestureChangedWithState:location:translation:velocity:modifierFlags:shouldCancel:") ~typ:(id @-> llong @-> ptr void @-> ptr void @-> ptr void @-> llong @-> ptr (bool) @-> returning (void)) x (LLong.of_int gestureChangedWithState) location translation velocity (LLong.of_int modifierFlags) shouldCancel -let translationInView x ~forLoupeGesture self = msg_send_stret ~self ~cmd:(selector "translationInView:forLoupeGesture:") ~typ:(id @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x forLoupeGesture -let triggeredByLongPressGesture x self = msg_send ~self ~cmd:(selector "triggeredByLongPressGesture:") ~typ:(id @-> returning (bool)) x -let usesTouchAlignment self = msg_send ~self ~cmd:(selector "usesTouchAlignment") ~typ:(returning (bool)) -let velocityInView x ~forLoupeGesture self = msg_send_stret ~self ~cmd:(selector "velocityInView:forLoupeGesture:") ~typ:(id @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x forLoupeGesture \ No newline at end of file +let self = get_class "UITextLoupeCursorBehavior" + +let adjustVariableDelaySettingsForLoupeInteraction x self = msg_send ~self ~cmd:(selector "adjustVariableDelaySettingsForLoupeInteraction:") ~typ:(id @-> returning void) x +let configureGestureExclusionRequirementsForTextLoupeInteraction x self = msg_send ~self ~cmd:(selector "configureGestureExclusionRequirementsForTextLoupeInteraction:") ~typ:(id @-> returning void) x +let configureLoupeGestureRecognizer x ~forTextLoupeInteraction self = msg_send ~self ~cmd:(selector "configureLoupeGestureRecognizer:forTextLoupeInteraction:") ~typ:(id @-> id @-> returning void) x forTextLoupeInteraction +let gestureRecognizerClassForLoupeInteraction x self = msg_send ~self ~cmd:(selector "gestureRecognizerClassForLoupeInteraction:") ~typ:(id @-> returning _Class) x +let loupeGestureRecognizerShouldBegin x ~forTextLoupeInteraction self = msg_send ~self ~cmd:(selector "loupeGestureRecognizerShouldBegin:forTextLoupeInteraction:") ~typ:(id @-> id @-> returning bool) x forTextLoupeInteraction +let shouldAllowEnforcedTouchTypeForTouch x ~forGestureRecognizer self = msg_send ~self ~cmd:(selector "shouldAllowEnforcedTouchTypeForTouch:forGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x forGestureRecognizer +let startPointForLoupeGesture x self = msg_send ~self ~cmd:(selector "startPointForLoupeGesture:") ~typ:(id @-> returning CGPoint.t) x +let textLoupeInteraction x ~gestureChangedWithState ~location ~translation ~velocity ~modifierFlags ~shouldCancel self = msg_send ~self ~cmd:(selector "textLoupeInteraction:gestureChangedWithState:location:translation:velocity:modifierFlags:shouldCancel:") ~typ:(id @-> llong @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> llong @-> (ptr bool) @-> returning void) x (LLong.of_int gestureChangedWithState) location translation velocity (LLong.of_int modifierFlags) shouldCancel +let translationInView x ~forLoupeGesture self = msg_send ~self ~cmd:(selector "translationInView:forLoupeGesture:") ~typ:(id @-> id @-> returning CGPoint.t) x forLoupeGesture +let triggeredByLongPressGesture x self = msg_send ~self ~cmd:(selector "triggeredByLongPressGesture:") ~typ:(id @-> returning bool) x +let usesTouchAlignment self = msg_send ~self ~cmd:(selector "usesTouchAlignment") ~typ:(returning bool) +let velocityInView x ~forLoupeGesture self = msg_send ~self ~cmd:(selector "velocityInView:forLoupeGesture:") ~typ:(id @-> id @-> returning CGPoint.t) x forLoupeGesture \ No newline at end of file diff --git a/uikit/UITextLoupeInteraction.ml b/uikit/UITextLoupeInteraction.ml index 63f829db..e8fc6c95 100644 --- a/uikit/UITextLoupeInteraction.ml +++ b/uikit/UITextLoupeInteraction.ml @@ -5,44 +5,48 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextLoupeInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextloupeinteraction?language=objc}UITextLoupeInteraction} *) -let behaviorDelegate self = msg_send ~self ~cmd:(selector "behaviorDelegate") ~typ:(returning (id)) -let canBeginDragCursor x self = msg_send ~self ~cmd:(selector "canBeginDragCursor:") ~typ:(id @-> returning (void)) x -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let cancelDelayedLoupeActionIfNecessary self = msg_send ~self ~cmd:(selector "cancelDelayedLoupeActionIfNecessary") ~typ:(returning (void)) -let delayedDisplayLoupe x self = msg_send ~self ~cmd:(selector "delayedDisplayLoupe:") ~typ:(id @-> returning (void)) x -let delayedLoupeAction x self = msg_send ~self ~cmd:(selector "delayedLoupeAction:") ~typ:(id @-> returning (void)) x -let delayedSelectionAction x self = msg_send ~self ~cmd:(selector "delayedSelectionAction:") ~typ:(id @-> returning (void)) x -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let finishSetup self = msg_send ~self ~cmd:(selector "finishSetup") ~typ:(returning (void)) -let gestureRecognizer x ~shouldBeRequiredToFailByGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldBeRequiredToFailByGestureRecognizer -let gestureRecognizer1 x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRecognizeSimultaneouslyWithGestureRecognizer -let gestureRecognizer2 x ~shouldRequireFailureOfGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRequireFailureOfGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRequireFailureOfGestureRecognizer -let gestureTuning self = msg_send ~self ~cmd:(selector "gestureTuning") ~typ:(returning (id)) -let inheritedGranularity self = msg_send ~self ~cmd:(selector "inheritedGranularity") ~typ:(returning (llong)) -let initWithBehaviorDelegate x self = msg_send ~self ~cmd:(selector "initWithBehaviorDelegate:") ~typ:(id @-> returning (id)) x -let loupeGesture x self = msg_send ~self ~cmd:(selector "loupeGesture:") ~typ:(id @-> returning (void)) x -let loupeGestureWithState x ~location ~translation ~velocity ~modifierFlags ~shouldCancel self = msg_send ~self ~cmd:(selector "loupeGestureWithState:location:translation:velocity:modifierFlags:shouldCancel:") ~typ:(llong @-> ptr void @-> ptr void @-> ptr void @-> llong @-> ptr (bool) @-> returning (void)) (LLong.of_int x) location translation velocity (LLong.of_int modifierFlags) shouldCancel -let pointIfPlacedCarefully x self = msg_send_stret ~self ~cmd:(selector "pointIfPlacedCarefully:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let responder self = msg_send ~self ~cmd:(selector "responder") ~typ:(returning (id)) -let responderProxy self = msg_send ~self ~cmd:(selector "responderProxy") ~typ:(returning (id)) -let setBehaviorDelegate x self = msg_send ~self ~cmd:(selector "setBehaviorDelegate:") ~typ:(id @-> returning (void)) x -let setInheritedGranularity x self = msg_send ~self ~cmd:(selector "setInheritedGranularity:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setResponderProxy x self = msg_send ~self ~cmd:(selector "setResponderProxy:") ~typ:(id @-> returning (void)) x -let setShouldUseLineThreshold x self = msg_send ~self ~cmd:(selector "setShouldUseLineThreshold:") ~typ:(bool @-> returning (void)) x -let setStrongerBiasAgainstUp x self = msg_send ~self ~cmd:(selector "setStrongerBiasAgainstUp:") ~typ:(bool @-> returning (void)) x -let setTriggeredByLongPress x self = msg_send ~self ~cmd:(selector "setTriggeredByLongPress:") ~typ:(bool @-> returning (void)) x -let setupDelayedLoupeActionWithInitialPoint x self = msg_send ~self ~cmd:(selector "setupDelayedLoupeActionWithInitialPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setupGestureExclusionRequirements self = msg_send ~self ~cmd:(selector "setupGestureExclusionRequirements") ~typ:(returning (void)) -let shouldUseLineThreshold self = msg_send ~self ~cmd:(selector "shouldUseLineThreshold") ~typ:(returning (bool)) -let strongerBiasAgainstUp self = msg_send ~self ~cmd:(selector "strongerBiasAgainstUp") ~typ:(returning (bool)) -let touchAlignedPointForPoint x ~translation self = msg_send_stret ~self ~cmd:(selector "touchAlignedPointForPoint:translation:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x translation -let translationIsWithinAllowableMovement x self = msg_send ~self ~cmd:(selector "translationIsWithinAllowableMovement:") ~typ:(CGPoint.t @-> returning (bool)) x -let triggeredByLongPress self = msg_send ~self ~cmd:(selector "triggeredByLongPress") ~typ:(returning (bool)) -let updateInitialPoint x self = msg_send ~self ~cmd:(selector "updateInitialPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let updateOrCancelDelayedLoupeActionWithPoint x ~translation self = msg_send ~self ~cmd:(selector "updateOrCancelDelayedLoupeActionWithPoint:translation:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (void)) x translation -let updateVisibilityOffsetForGesture x self = msg_send ~self ~cmd:(selector "updateVisibilityOffsetForGesture:") ~typ:(id @-> returning (void)) x -let willBeginExternalGesture self = msg_send ~self ~cmd:(selector "willBeginExternalGesture") ~typ:(returning (void)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UITextLoupeInteraction" + +let behaviorDelegate self = msg_send ~self ~cmd:(selector "behaviorDelegate") ~typ:(returning id) +let canBeginDragCursor x self = msg_send ~self ~cmd:(selector "canBeginDragCursor:") ~typ:(id @-> returning void) x +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let cancelDelayedLoupeActionIfNecessary self = msg_send ~self ~cmd:(selector "cancelDelayedLoupeActionIfNecessary") ~typ:(returning void) +let delayedDisplayLoupe x self = msg_send ~self ~cmd:(selector "delayedDisplayLoupe:") ~typ:(id @-> returning void) x +let delayedLoupeAction x self = msg_send ~self ~cmd:(selector "delayedLoupeAction:") ~typ:(id @-> returning void) x +let delayedSelectionAction x self = msg_send ~self ~cmd:(selector "delayedSelectionAction:") ~typ:(id @-> returning void) x +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let finishSetup self = msg_send ~self ~cmd:(selector "finishSetup") ~typ:(returning void) +let gestureRecognizer x ~shouldBeRequiredToFailByGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldBeRequiredToFailByGestureRecognizer +let gestureRecognizer1 x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldRecognizeSimultaneouslyWithGestureRecognizer +let gestureRecognizer2 x ~shouldRequireFailureOfGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRequireFailureOfGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldRequireFailureOfGestureRecognizer +let gestureTuning self = msg_send ~self ~cmd:(selector "gestureTuning") ~typ:(returning id) +let inheritedGranularity self = msg_send ~self ~cmd:(selector "inheritedGranularity") ~typ:(returning llong) +let initWithBehaviorDelegate x self = msg_send ~self ~cmd:(selector "initWithBehaviorDelegate:") ~typ:(id @-> returning id) x +let loupeGesture x self = msg_send ~self ~cmd:(selector "loupeGesture:") ~typ:(id @-> returning void) x +let loupeGestureWithState x ~location ~translation ~velocity ~modifierFlags ~shouldCancel self = msg_send ~self ~cmd:(selector "loupeGestureWithState:location:translation:velocity:modifierFlags:shouldCancel:") ~typ:(llong @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> llong @-> (ptr bool) @-> returning void) (LLong.of_int x) location translation velocity (LLong.of_int modifierFlags) shouldCancel +let pointIfPlacedCarefully x self = msg_send ~self ~cmd:(selector "pointIfPlacedCarefully:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let responder self = msg_send ~self ~cmd:(selector "responder") ~typ:(returning id) +let responderProxy self = msg_send ~self ~cmd:(selector "responderProxy") ~typ:(returning id) +let setBehaviorDelegate x self = msg_send ~self ~cmd:(selector "setBehaviorDelegate:") ~typ:(id @-> returning void) x +let setInheritedGranularity x self = msg_send ~self ~cmd:(selector "setInheritedGranularity:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setResponderProxy x self = msg_send ~self ~cmd:(selector "setResponderProxy:") ~typ:(id @-> returning void) x +let setShouldUseLineThreshold x self = msg_send ~self ~cmd:(selector "setShouldUseLineThreshold:") ~typ:(bool @-> returning void) x +let setStrongerBiasAgainstUp x self = msg_send ~self ~cmd:(selector "setStrongerBiasAgainstUp:") ~typ:(bool @-> returning void) x +let setTriggeredByLongPress x self = msg_send ~self ~cmd:(selector "setTriggeredByLongPress:") ~typ:(bool @-> returning void) x +let setupDelayedLoupeActionWithInitialPoint x self = msg_send ~self ~cmd:(selector "setupDelayedLoupeActionWithInitialPoint:") ~typ:(CGPoint.t @-> returning void) x +let setupGestureExclusionRequirements self = msg_send ~self ~cmd:(selector "setupGestureExclusionRequirements") ~typ:(returning void) +let shouldUseLineThreshold self = msg_send ~self ~cmd:(selector "shouldUseLineThreshold") ~typ:(returning bool) +let strongerBiasAgainstUp self = msg_send ~self ~cmd:(selector "strongerBiasAgainstUp") ~typ:(returning bool) +let touchAlignedPointForPoint x ~translation self = msg_send ~self ~cmd:(selector "touchAlignedPointForPoint:translation:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning CGPoint.t) x translation +let translationIsWithinAllowableMovement x self = msg_send ~self ~cmd:(selector "translationIsWithinAllowableMovement:") ~typ:(CGPoint.t @-> returning bool) x +let triggeredByLongPress self = msg_send ~self ~cmd:(selector "triggeredByLongPress") ~typ:(returning bool) +let updateInitialPoint x self = msg_send ~self ~cmd:(selector "updateInitialPoint:") ~typ:(CGPoint.t @-> returning void) x +let updateOrCancelDelayedLoupeActionWithPoint x ~translation self = msg_send ~self ~cmd:(selector "updateOrCancelDelayedLoupeActionWithPoint:translation:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning void) x translation +let updateVisibilityOffsetForGesture x self = msg_send ~self ~cmd:(selector "updateVisibilityOffsetForGesture:") ~typ:(id @-> returning void) x +let willBeginExternalGesture self = msg_send ~self ~cmd:(selector "willBeginExternalGesture") ~typ:(returning void) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextLoupePanGestureRecognizer.ml b/uikit/UITextLoupePanGestureRecognizer.ml index 0c2b2f8a..7d9fbb96 100644 --- a/uikit/UITextLoupePanGestureRecognizer.ml +++ b/uikit/UITextLoupePanGestureRecognizer.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextLoupePanGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextloupepangesturerecognizer?language=objc}UITextLoupePanGestureRecognizer} *) -let startPoint self = msg_send ~self ~cmd:(selector "startPoint") ~typ:(returning (CGPoint.t)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let self = get_class "UITextLoupePanGestureRecognizer" + +let startPoint self = msg_send ~self ~cmd:(selector "startPoint") ~typ:(returning CGPoint.t) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UITextLoupeTouchBehavior.ml b/uikit/UITextLoupeTouchBehavior.ml index 3c6e1320..8eba7acd 100644 --- a/uikit/UITextLoupeTouchBehavior.ml +++ b/uikit/UITextLoupeTouchBehavior.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextLoupeTouchBehavior" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextloupetouchbehavior?language=objc}UITextLoupeTouchBehavior} *) -let adjustVariableDelaySettingsForLoupeInteraction x self = msg_send ~self ~cmd:(selector "adjustVariableDelaySettingsForLoupeInteraction:") ~typ:(id @-> returning (void)) x -let configureGestureExclusionRequirementsForTextLoupeInteraction x self = msg_send ~self ~cmd:(selector "configureGestureExclusionRequirementsForTextLoupeInteraction:") ~typ:(id @-> returning (void)) x -let configureLoupeGestureRecognizer x ~forTextLoupeInteraction self = msg_send ~self ~cmd:(selector "configureLoupeGestureRecognizer:forTextLoupeInteraction:") ~typ:(id @-> id @-> returning (void)) x forTextLoupeInteraction -let gestureRecognizerClassForLoupeInteraction x self = msg_send ~self ~cmd:(selector "gestureRecognizerClassForLoupeInteraction:") ~typ:(id @-> returning (_Class)) x -let loupeGestureRecognizerShouldBegin x ~forTextLoupeInteraction self = msg_send ~self ~cmd:(selector "loupeGestureRecognizerShouldBegin:forTextLoupeInteraction:") ~typ:(id @-> id @-> returning (bool)) x forTextLoupeInteraction -let shouldAllowEnforcedTouchTypeForTouch x ~forGestureRecognizer self = msg_send ~self ~cmd:(selector "shouldAllowEnforcedTouchTypeForTouch:forGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x forGestureRecognizer -let startPointForLoupeGesture x self = msg_send_stret ~self ~cmd:(selector "startPointForLoupeGesture:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let textLoupeInteraction x ~gestureChangedWithState ~location ~translation ~velocity ~modifierFlags ~shouldCancel self = msg_send ~self ~cmd:(selector "textLoupeInteraction:gestureChangedWithState:location:translation:velocity:modifierFlags:shouldCancel:") ~typ:(id @-> llong @-> ptr void @-> ptr void @-> ptr void @-> llong @-> ptr (bool) @-> returning (void)) x (LLong.of_int gestureChangedWithState) location translation velocity (LLong.of_int modifierFlags) shouldCancel -let translationInView x ~forLoupeGesture self = msg_send_stret ~self ~cmd:(selector "translationInView:forLoupeGesture:") ~typ:(id @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x forLoupeGesture -let triggeredByLongPressGesture x self = msg_send ~self ~cmd:(selector "triggeredByLongPressGesture:") ~typ:(id @-> returning (bool)) x -let usesTouchAlignment self = msg_send ~self ~cmd:(selector "usesTouchAlignment") ~typ:(returning (bool)) -let velocityInView x ~forLoupeGesture self = msg_send_stret ~self ~cmd:(selector "velocityInView:forLoupeGesture:") ~typ:(id @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x forLoupeGesture \ No newline at end of file +let self = get_class "UITextLoupeTouchBehavior" + +let adjustVariableDelaySettingsForLoupeInteraction x self = msg_send ~self ~cmd:(selector "adjustVariableDelaySettingsForLoupeInteraction:") ~typ:(id @-> returning void) x +let configureGestureExclusionRequirementsForTextLoupeInteraction x self = msg_send ~self ~cmd:(selector "configureGestureExclusionRequirementsForTextLoupeInteraction:") ~typ:(id @-> returning void) x +let configureLoupeGestureRecognizer x ~forTextLoupeInteraction self = msg_send ~self ~cmd:(selector "configureLoupeGestureRecognizer:forTextLoupeInteraction:") ~typ:(id @-> id @-> returning void) x forTextLoupeInteraction +let gestureRecognizerClassForLoupeInteraction x self = msg_send ~self ~cmd:(selector "gestureRecognizerClassForLoupeInteraction:") ~typ:(id @-> returning _Class) x +let loupeGestureRecognizerShouldBegin x ~forTextLoupeInteraction self = msg_send ~self ~cmd:(selector "loupeGestureRecognizerShouldBegin:forTextLoupeInteraction:") ~typ:(id @-> id @-> returning bool) x forTextLoupeInteraction +let shouldAllowEnforcedTouchTypeForTouch x ~forGestureRecognizer self = msg_send ~self ~cmd:(selector "shouldAllowEnforcedTouchTypeForTouch:forGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x forGestureRecognizer +let startPointForLoupeGesture x self = msg_send ~self ~cmd:(selector "startPointForLoupeGesture:") ~typ:(id @-> returning CGPoint.t) x +let textLoupeInteraction x ~gestureChangedWithState ~location ~translation ~velocity ~modifierFlags ~shouldCancel self = msg_send ~self ~cmd:(selector "textLoupeInteraction:gestureChangedWithState:location:translation:velocity:modifierFlags:shouldCancel:") ~typ:(id @-> llong @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> llong @-> (ptr bool) @-> returning void) x (LLong.of_int gestureChangedWithState) location translation velocity (LLong.of_int modifierFlags) shouldCancel +let translationInView x ~forLoupeGesture self = msg_send ~self ~cmd:(selector "translationInView:forLoupeGesture:") ~typ:(id @-> id @-> returning CGPoint.t) x forLoupeGesture +let triggeredByLongPressGesture x self = msg_send ~self ~cmd:(selector "triggeredByLongPressGesture:") ~typ:(id @-> returning bool) x +let usesTouchAlignment self = msg_send ~self ~cmd:(selector "usesTouchAlignment") ~typ:(returning bool) +let velocityInView x ~forLoupeGesture self = msg_send ~self ~cmd:(selector "velocityInView:forLoupeGesture:") ~typ:(id @-> id @-> returning CGPoint.t) x forLoupeGesture \ No newline at end of file diff --git a/uikit/UITextMagnifier.ml b/uikit/UITextMagnifier.ml index d5124d8c..8dab96c0 100644 --- a/uikit/UITextMagnifier.ml +++ b/uikit/UITextMagnifier.ml @@ -5,42 +5,42 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextMagnifier" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextmagnifier?language=objc}UITextMagnifier} *) -module C = struct - let renderClass self = msg_send ~self ~cmd:(selector "renderClass") ~typ:(returning (_Class)) -end +let self = get_class "UITextMagnifier" -let adjustMagnificationPoint x self = msg_send_stret ~self ~cmd:(selector "adjustMagnificationPoint:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let animateToAutoscrollRenderer self = msg_send ~self ~cmd:(selector "animateToAutoscrollRenderer") ~typ:(returning (void)) -let animateToMagnifierRenderer self = msg_send ~self ~cmd:(selector "animateToMagnifierRenderer") ~typ:(returning (void)) -let animationPoint self = msg_send_stret ~self ~cmd:(selector "animationPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let autoscrollWillNotStart self = msg_send ~self ~cmd:(selector "autoscrollWillNotStart") ~typ:(returning (void)) -let beginMagnifyingTarget x ~text ~magnificationPoint ~offset ~animated self = msg_send ~self ~cmd:(selector "beginMagnifyingTarget:text:magnificationPoint:offset:animated:") ~typ:(id @-> id @-> CGPoint.t @-> CGPoint.t @-> bool @-> returning (void)) x text magnificationPoint offset animated -let beginZoomDownAnimation x ~withDuration ~postponeHandler self = msg_send ~self ~cmd:(selector "beginZoomDownAnimation:withDuration:postponeHandler:") ~typ:(ptr void @-> double @-> ptr void @-> returning (void)) x withDuration postponeHandler -let beginZoomUpAnimation x ~withDuration self = msg_send ~self ~cmd:(selector "beginZoomUpAnimation:withDuration:") ~typ:(ptr void @-> double @-> returning (void)) x withDuration -let detectLostTouches x self = msg_send ~self ~cmd:(selector "detectLostTouches:") ~typ:(id @-> returning (void)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isHorizontal self = msg_send ~self ~cmd:(selector "isHorizontal") ~typ:(returning (bool)) -let magnificationPoint self = msg_send_stret ~self ~cmd:(selector "magnificationPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let offsetFromMagnificationPoint self = msg_send ~self ~cmd:(selector "offsetFromMagnificationPoint") ~typ:(returning (double)) -let postAutoscrollPoint x self = msg_send ~self ~cmd:(selector "postAutoscrollPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let remove self = msg_send ~self ~cmd:(selector "remove") ~typ:(returning (void)) -let setAnimationPoint x self = msg_send ~self ~cmd:(selector "setAnimationPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setAutoscrollDirections x self = msg_send ~self ~cmd:(selector "setAutoscrollDirections:") ~typ:(int @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setMagnificationPoint x self = msg_send ~self ~cmd:(selector "setMagnificationPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning (void)) -let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let setToMagnifierRenderer self = msg_send ~self ~cmd:(selector "setToMagnifierRenderer") ~typ:(returning (void)) -let stopMagnifying x self = msg_send ~self ~cmd:(selector "stopMagnifying:") ~typ:(bool @-> returning (void)) x -let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning (id)) -let terminalPoint self = msg_send_stret ~self ~cmd:(selector "terminalPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let terminalPointPlacedCarefully self = msg_send ~self ~cmd:(selector "terminalPointPlacedCarefully") ~typ:(returning (bool)) -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let updateFrameAndOffset self = msg_send ~self ~cmd:(selector "updateFrameAndOffset") ~typ:(returning (void)) -let windowWillRotate x self = msg_send ~self ~cmd:(selector "windowWillRotate:") ~typ:(id @-> returning (void)) x -let zoomDownAnimation self = msg_send ~self ~cmd:(selector "zoomDownAnimation") ~typ:(returning (void)) -let zoomUpAnimation self = msg_send ~self ~cmd:(selector "zoomUpAnimation") ~typ:(returning (void)) \ No newline at end of file +let adjustMagnificationPoint x self = msg_send ~self ~cmd:(selector "adjustMagnificationPoint:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let animateToAutoscrollRenderer self = msg_send ~self ~cmd:(selector "animateToAutoscrollRenderer") ~typ:(returning void) +let animateToMagnifierRenderer self = msg_send ~self ~cmd:(selector "animateToMagnifierRenderer") ~typ:(returning void) +let animationPoint self = msg_send ~self ~cmd:(selector "animationPoint") ~typ:(returning CGPoint.t) +let autoscrollWillNotStart self = msg_send ~self ~cmd:(selector "autoscrollWillNotStart") ~typ:(returning void) +let beginMagnifyingTarget x ~text ~magnificationPoint ~offset ~animated self = msg_send ~self ~cmd:(selector "beginMagnifyingTarget:text:magnificationPoint:offset:animated:") ~typ:(id @-> id @-> CGPoint.t @-> CGPoint.t @-> bool @-> returning void) x text magnificationPoint offset animated +let beginZoomDownAnimation x ~withDuration ~postponeHandler self = msg_send ~self ~cmd:(selector "beginZoomDownAnimation:withDuration:postponeHandler:") ~typ:((ptr void) @-> double @-> (ptr void) @-> returning void) x withDuration postponeHandler +let beginZoomUpAnimation x ~withDuration self = msg_send ~self ~cmd:(selector "beginZoomUpAnimation:withDuration:") ~typ:((ptr void) @-> double @-> returning void) x withDuration +let detectLostTouches x self = msg_send ~self ~cmd:(selector "detectLostTouches:") ~typ:(id @-> returning void) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isHorizontal self = msg_send ~self ~cmd:(selector "isHorizontal") ~typ:(returning bool) +let magnificationPoint self = msg_send ~self ~cmd:(selector "magnificationPoint") ~typ:(returning CGPoint.t) +let offsetFromMagnificationPoint self = msg_send ~self ~cmd:(selector "offsetFromMagnificationPoint") ~typ:(returning double) +let postAutoscrollPoint x self = msg_send ~self ~cmd:(selector "postAutoscrollPoint:") ~typ:(CGPoint.t @-> returning void) x +let remove self = msg_send ~self ~cmd:(selector "remove") ~typ:(returning void) +let setAnimationPoint x self = msg_send ~self ~cmd:(selector "setAnimationPoint:") ~typ:(CGPoint.t @-> returning void) x +let setAutoscrollDirections x self = msg_send ~self ~cmd:(selector "setAutoscrollDirections:") ~typ:(int @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setMagnificationPoint x self = msg_send ~self ~cmd:(selector "setMagnificationPoint:") ~typ:(CGPoint.t @-> returning void) x +let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning void) +let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let setToMagnifierRenderer self = msg_send ~self ~cmd:(selector "setToMagnifierRenderer") ~typ:(returning void) +let stopMagnifying x self = msg_send ~self ~cmd:(selector "stopMagnifying:") ~typ:(bool @-> returning void) x +let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning id) +let terminalPoint self = msg_send ~self ~cmd:(selector "terminalPoint") ~typ:(returning CGPoint.t) +let terminalPointPlacedCarefully self = msg_send ~self ~cmd:(selector "terminalPointPlacedCarefully") ~typ:(returning bool) +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let updateFrameAndOffset self = msg_send ~self ~cmd:(selector "updateFrameAndOffset") ~typ:(returning void) +let windowWillRotate x self = msg_send ~self ~cmd:(selector "windowWillRotate:") ~typ:(id @-> returning void) x +let zoomDownAnimation self = msg_send ~self ~cmd:(selector "zoomDownAnimation") ~typ:(returning void) +let zoomUpAnimation self = msg_send ~self ~cmd:(selector "zoomUpAnimation") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UITextMagnifierCaret.ml b/uikit/UITextMagnifierCaret.ml deleted file mode 100644 index 7cc4c6d1..00000000 --- a/uikit/UITextMagnifierCaret.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextMagnifierCaret" - -module C = struct - let activeCaretMagnifier self = msg_send ~self ~cmd:(selector "activeCaretMagnifier") ~typ:(returning (id)) - let renderClass self = msg_send ~self ~cmd:(selector "renderClass") ~typ:(returning (_Class)) - let sharedCaretMagnifier self = msg_send ~self ~cmd:(selector "sharedCaretMagnifier") ~typ:(returning (id)) -end - -let animationPoint self = msg_send_stret ~self ~cmd:(selector "animationPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let beginMagnifyingTarget x ~text ~magnificationPoint ~offset ~animated self = msg_send ~self ~cmd:(selector "beginMagnifyingTarget:text:magnificationPoint:offset:animated:") ~typ:(id @-> id @-> CGPoint.t @-> CGPoint.t @-> bool @-> returning (void)) x text magnificationPoint offset animated -let initWithFrame self = msg_send ~self ~cmd:(selector "initWithFrame") ~typ:(returning (id)) -let isHorizontal self = msg_send ~self ~cmd:(selector "isHorizontal") ~typ:(returning (bool)) -let offset self = msg_send_stret ~self ~cmd:(selector "offset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let offsetFromMagnificationPoint self = msg_send ~self ~cmd:(selector "offsetFromMagnificationPoint") ~typ:(returning (double)) -let remove self = msg_send ~self ~cmd:(selector "remove") ~typ:(returning (void)) -let setAnimationPoint x self = msg_send ~self ~cmd:(selector "setAnimationPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setOffset x self = msg_send ~self ~cmd:(selector "setOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let terminalPointPlacedCarefully self = msg_send ~self ~cmd:(selector "terminalPointPlacedCarefully") ~typ:(returning (bool)) -let updateFrameAndOffset self = msg_send ~self ~cmd:(selector "updateFrameAndOffset") ~typ:(returning (void)) -let zoomDownAnimation self = msg_send ~self ~cmd:(selector "zoomDownAnimation") ~typ:(returning (void)) -let zoomUpAnimation self = msg_send ~self ~cmd:(selector "zoomUpAnimation") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit/UITextMagnifierClass.ml b/uikit/UITextMagnifierClass.ml new file mode 100644 index 00000000..d357d3a7 --- /dev/null +++ b/uikit/UITextMagnifierClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextmagnifier?language=objc}UITextMagnifier} *) + +let renderClass self = msg_send ~self ~cmd:(selector "renderClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit/UITextMagnifierCommonRenderer.ml b/uikit/UITextMagnifierCommonRenderer.ml deleted file mode 100644 index 9e3b65f2..00000000 --- a/uikit/UITextMagnifierCommonRenderer.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextMagnifierCommonRenderer" - -let backgroundColourIfNecessary self = msg_send ~self ~cmd:(selector "backgroundColourIfNecessary") ~typ:(returning (id)) -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let loadImages self = msg_send ~self ~cmd:(selector "loadImages") ~typ:(returning (void)) -let magnifier self = msg_send ~self ~cmd:(selector "magnifier") ~typ:(returning (id)) -let performOperations x self = msg_send ~self ~cmd:(selector "performOperations:") ~typ:(ptr void @-> returning (void)) x -let update self = msg_send ~self ~cmd:(selector "update") ~typ:(returning (void)) -let visualsForMagnifier self = msg_send ~self ~cmd:(selector "visualsForMagnifier") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UITextMagnifierRanged.ml b/uikit/UITextMagnifierRanged.ml deleted file mode 100644 index 8cfaf8c4..00000000 --- a/uikit/UITextMagnifierRanged.ml +++ /dev/null @@ -1,33 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextMagnifierRanged" - -module C = struct - let activeRangedMagnifier self = msg_send ~self ~cmd:(selector "activeRangedMagnifier") ~typ:(returning (id)) - let renderClass self = msg_send ~self ~cmd:(selector "renderClass") ~typ:(returning (_Class)) - let sharedRangedMagnifier self = msg_send ~self ~cmd:(selector "sharedRangedMagnifier") ~typ:(returning (id)) -end - -let adjustMagnificationPoint x self = msg_send_stret ~self ~cmd:(selector "adjustMagnificationPoint:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let beginMagnifyingTarget x ~text ~magnificationPoint ~offset ~animated self = msg_send ~self ~cmd:(selector "beginMagnifyingTarget:text:magnificationPoint:offset:animated:") ~typ:(id @-> id @-> CGPoint.t @-> CGPoint.t @-> bool @-> returning (void)) x text magnificationPoint offset animated -let caretRectClosestToPoint x self = msg_send_stret ~self ~cmd:(selector "caretRectClosestToPoint:") ~typ:(CGPoint.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let clipPoint x ~inRect self = msg_send_stret ~self ~cmd:(selector "clipPoint:inRect:") ~typ:(CGPoint.t @-> CGRect.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x inRect -let horizontalMovement self = msg_send ~self ~cmd:(selector "horizontalMovement") ~typ:(returning (int)) -let horizontalMovementAtTime x self = msg_send ~self ~cmd:(selector "horizontalMovementAtTime:") ~typ:(double @-> returning (int)) x -let initWithFrame self = msg_send ~self ~cmd:(selector "initWithFrame") ~typ:(returning (id)) -let isHorizontal self = msg_send ~self ~cmd:(selector "isHorizontal") ~typ:(returning (bool)) -let offsetFromMagnificationPoint self = msg_send ~self ~cmd:(selector "offsetFromMagnificationPoint") ~typ:(returning (double)) -let setIsHorizontal x self = msg_send ~self ~cmd:(selector "setIsHorizontal:") ~typ:(bool @-> returning (void)) x -let setMagnificationPoint x self = msg_send ~self ~cmd:(selector "setMagnificationPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let stopMagnifying x self = msg_send ~self ~cmd:(selector "stopMagnifying:") ~typ:(bool @-> returning (void)) x -let terminalPointPlacedCarefully self = msg_send ~self ~cmd:(selector "terminalPointPlacedCarefully") ~typ:(returning (bool)) -let updateFrameAndOffset self = msg_send ~self ~cmd:(selector "updateFrameAndOffset") ~typ:(returning (void)) -let wasPlacedCarefullyAtTime x self = msg_send ~self ~cmd:(selector "wasPlacedCarefullyAtTime:") ~typ:(double @-> returning (bool)) x -let zoomDownAnimation self = msg_send ~self ~cmd:(selector "zoomDownAnimation") ~typ:(returning (void)) -let zoomUpAnimation self = msg_send ~self ~cmd:(selector "zoomUpAnimation") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit/UITextMagnifierTimeWeightedPoint.ml b/uikit/UITextMagnifierTimeWeightedPoint.ml deleted file mode 100644 index 3274c920..00000000 --- a/uikit/UITextMagnifierTimeWeightedPoint.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextMagnifierTimeWeightedPoint" - -let addPoint x self = msg_send ~self ~cmd:(selector "addPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let clearHistory self = msg_send ~self ~cmd:(selector "clearHistory") ~typ:(returning (void)) -let diffFromLastPoint self = msg_send_stret ~self ~cmd:(selector "diffFromLastPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let displacementInInterval x self = msg_send_stret ~self ~cmd:(selector "displacementInInterval:") ~typ:(double @-> returning (CGSize.t)) ~return_type:CGSize.t x -let displacementInInterval' x ~priorTo self = msg_send_stret ~self ~cmd:(selector "displacementInInterval:priorTo:") ~typ:(double @-> double @-> returning (CGSize.t)) ~return_type:CGSize.t x priorTo -let distanceCoveredInInterval x self = msg_send ~self ~cmd:(selector "distanceCoveredInInterval:") ~typ:(double @-> returning (float)) x -let distanceCoveredInInterval' x ~priorTo self = msg_send ~self ~cmd:(selector "distanceCoveredInInterval:priorTo:") ~typ:(double @-> double @-> returning (float)) x priorTo -let historyCovers x self = msg_send ~self ~cmd:(selector "historyCovers:") ~typ:(double @-> returning (bool)) x -let isPlacedCarefully self = msg_send ~self ~cmd:(selector "isPlacedCarefully") ~typ:(returning (bool)) -let weightedPoint self = msg_send_stret ~self ~cmd:(selector "weightedPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file diff --git a/uikit/UITextModernLoupeSession.ml b/uikit/UITextModernLoupeSession.ml deleted file mode 100644 index a2056716..00000000 --- a/uikit/UITextModernLoupeSession.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextModernLoupeSession" - -module C = struct - let beginLoupeSessionAtPoint x ~withCaretRect ~fromView self = msg_send ~self ~cmd:(selector "beginLoupeSessionAtPoint:withCaretRect:fromView:") ~typ:(CGPoint.t @-> CGRect.t @-> id @-> returning (id)) x withCaretRect fromView -end - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didMoveToPoint x ~withCaretRect ~tracksCaret self = msg_send ~self ~cmd:(selector "didMoveToPoint:withCaretRect:tracksCaret:") ~typ:(CGPoint.t @-> CGRect.t @-> bool @-> returning (void)) x withCaretRect tracksCaret -let gestureTuning self = msg_send ~self ~cmd:(selector "gestureTuning") ~typ:(returning (id)) -let interactionView self = msg_send ~self ~cmd:(selector "interactionView") ~typ:(returning (id)) -let loupeView self = msg_send ~self ~cmd:(selector "loupeView") ~typ:(returning (id)) -let setGestureTuning x self = msg_send ~self ~cmd:(selector "setGestureTuning:") ~typ:(id @-> returning (void)) x -let setInteractionView x self = msg_send ~self ~cmd:(selector "setInteractionView:") ~typ:(id @-> returning (void)) x -let setLoupeView x self = msg_send ~self ~cmd:(selector "setLoupeView:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UITextModernLoupeView.ml b/uikit/UITextModernLoupeView.ml deleted file mode 100644 index 773c415a..00000000 --- a/uikit/UITextModernLoupeView.ml +++ /dev/null @@ -1,30 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextModernLoupeView" - -module C = struct - let isModernLoupeEnabled self = msg_send ~self ~cmd:(selector "isModernLoupeEnabled") ~typ:(returning (bool)) -end - -let backgroundColorIfNecessary self = msg_send ~self ~cmd:(selector "backgroundColorIfNecessary") ~typ:(returning (id)) -let containerCoordinateSpace self = msg_send ~self ~cmd:(selector "containerCoordinateSpace") ~typ:(returning (id)) -let initWithSourceView x self = msg_send ~self ~cmd:(selector "initWithSourceView:") ~typ:(id @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let modelPosition self = msg_send_stret ~self ~cmd:(selector "modelPosition") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let preferredSize self = msg_send_stret ~self ~cmd:(selector "preferredSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let setModelPosition x self = msg_send ~self ~cmd:(selector "setModelPosition:") ~typ:(CGPoint.t @-> returning (void)) x -let setStatusBarHidden x self = msg_send ~self ~cmd:(selector "setStatusBarHidden:") ~typ:(bool @-> returning (void)) x -let setVisible x self = msg_send ~self ~cmd:(selector "setVisible:") ~typ:(bool @-> returning (void)) x -let setVisible1 x ~animated self = msg_send ~self ~cmd:(selector "setVisible:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setVisible2 x ~animated ~removeWhenComplete self = msg_send ~self ~cmd:(selector "setVisible:animated:removeWhenComplete:") ~typ:(bool @-> bool @-> bool @-> returning (void)) x animated removeWhenComplete -let setVisualOffset x self = msg_send ~self ~cmd:(selector "setVisualOffset:") ~typ:(double @-> returning (void)) x -let statusBarHidden self = msg_send ~self ~cmd:(selector "statusBarHidden") ~typ:(returning (bool)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning (bool)) -let visualOffset self = msg_send ~self ~cmd:(selector "visualOffset") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit/UITextMultiTapRecognizer.ml b/uikit/UITextMultiTapRecognizer.ml index 6316ca73..6a3d162f 100644 --- a/uikit/UITextMultiTapRecognizer.ml +++ b/uikit/UITextMultiTapRecognizer.ml @@ -5,34 +5,38 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextMultiTapRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextmultitaprecognizer?language=objc}UITextMultiTapRecognizer} *) -let allowableMovement self = msg_send ~self ~cmd:(selector "allowableMovement") ~typ:(returning (double)) -let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let initWithTarget x ~tapAction self = msg_send ~self ~cmd:(selector "initWithTarget:tapAction:") ~typ:(id @-> _SEL @-> returning (id)) x tapAction -let location self = msg_send_stret ~self ~cmd:(selector "location") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let maximumIntervalBetweenTaps self = msg_send ~self ~cmd:(selector "maximumIntervalBetweenTaps") ~typ:(returning (double)) -let maximumTouchDownDuration self = msg_send ~self ~cmd:(selector "maximumTouchDownDuration") ~typ:(returning (double)) -let minimumNumberOfTapsRequired self = msg_send ~self ~cmd:(selector "minimumNumberOfTapsRequired") ~typ:(returning (ullong)) -let numberOfTouchesRequired self = msg_send ~self ~cmd:(selector "numberOfTouchesRequired") ~typ:(returning (ullong)) -let onStateUpdate x self = msg_send ~self ~cmd:(selector "onStateUpdate:") ~typ:(id @-> returning (void)) x -let recognizesOnSubsequentTouchDowns self = msg_send ~self ~cmd:(selector "recognizesOnSubsequentTouchDowns") ~typ:(returning (bool)) -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let resetTapCountForTapRecognizer x self = msg_send ~self ~cmd:(selector "resetTapCountForTapRecognizer:") ~typ:(id @-> returning (void)) x -let setAllowableMovement x self = msg_send ~self ~cmd:(selector "setAllowableMovement:") ~typ:(double @-> returning (void)) x -let setMaximumIntervalBetweenTaps x self = msg_send ~self ~cmd:(selector "setMaximumIntervalBetweenTaps:") ~typ:(double @-> returning (void)) x -let setMaximumTouchDownDuration x self = msg_send ~self ~cmd:(selector "setMaximumTouchDownDuration:") ~typ:(double @-> returning (void)) x -let setMinimumNumberOfTapsRequired x self = msg_send ~self ~cmd:(selector "setMinimumNumberOfTapsRequired:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setNumberOfTouchesRequired x self = msg_send ~self ~cmd:(selector "setNumberOfTouchesRequired:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setRecognizesOnSubsequentTouchDowns x self = msg_send ~self ~cmd:(selector "setRecognizesOnSubsequentTouchDowns:") ~typ:(bool @-> returning (void)) x -let tapCount self = msg_send ~self ~cmd:(selector "tapCount") ~typ:(returning (ullong)) -let tapIsPossibleForTapRecognizer x self = msg_send ~self ~cmd:(selector "tapIsPossibleForTapRecognizer:") ~typ:(id @-> returning (bool)) x -let tapRecognizerFailedToRecognizeTap x self = msg_send ~self ~cmd:(selector "tapRecognizerFailedToRecognizeTap:") ~typ:(id @-> returning (void)) x -let tapRecognizerRecognizedTap x self = msg_send ~self ~cmd:(selector "tapRecognizerRecognizedTap:") ~typ:(id @-> returning (void)) x -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesForTap self = msg_send ~self ~cmd:(selector "touchesForTap") ~typ:(returning (id)) -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let self = get_class "UITextMultiTapRecognizer" + +let allowableMovement self = msg_send ~self ~cmd:(selector "allowableMovement") ~typ:(returning double) +let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning bool) x +let initWithTarget x ~tapAction self = msg_send ~self ~cmd:(selector "initWithTarget:tapAction:") ~typ:(id @-> _SEL @-> returning id) x tapAction +let location self = msg_send ~self ~cmd:(selector "location") ~typ:(returning CGPoint.t) +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let maximumIntervalBetweenTaps self = msg_send ~self ~cmd:(selector "maximumIntervalBetweenTaps") ~typ:(returning double) +let maximumTouchDownDuration self = msg_send ~self ~cmd:(selector "maximumTouchDownDuration") ~typ:(returning double) +let minimumNumberOfTapsRequired self = msg_send ~self ~cmd:(selector "minimumNumberOfTapsRequired") ~typ:(returning ullong) +let numberOfTouchesRequired self = msg_send ~self ~cmd:(selector "numberOfTouchesRequired") ~typ:(returning ullong) +let onStateUpdate x self = msg_send ~self ~cmd:(selector "onStateUpdate:") ~typ:(id @-> returning void) x +let recognizesOnSubsequentTouchDowns self = msg_send ~self ~cmd:(selector "recognizesOnSubsequentTouchDowns") ~typ:(returning bool) +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let resetTapCountForTapRecognizer x self = msg_send ~self ~cmd:(selector "resetTapCountForTapRecognizer:") ~typ:(id @-> returning void) x +let setAllowableMovement x self = msg_send ~self ~cmd:(selector "setAllowableMovement:") ~typ:(double @-> returning void) x +let setMaximumIntervalBetweenTaps x self = msg_send ~self ~cmd:(selector "setMaximumIntervalBetweenTaps:") ~typ:(double @-> returning void) x +let setMaximumTouchDownDuration x self = msg_send ~self ~cmd:(selector "setMaximumTouchDownDuration:") ~typ:(double @-> returning void) x +let setMinimumNumberOfTapsRequired x self = msg_send ~self ~cmd:(selector "setMinimumNumberOfTapsRequired:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setNumberOfTouchesRequired x self = msg_send ~self ~cmd:(selector "setNumberOfTouchesRequired:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setRecognizesOnSubsequentTouchDowns x self = msg_send ~self ~cmd:(selector "setRecognizesOnSubsequentTouchDowns:") ~typ:(bool @-> returning void) x +let tapCount self = msg_send ~self ~cmd:(selector "tapCount") ~typ:(returning ullong) +let tapIsPossibleForTapRecognizer x self = msg_send ~self ~cmd:(selector "tapIsPossibleForTapRecognizer:") ~typ:(id @-> returning bool) x +let tapRecognizerFailedToRecognizeTap x self = msg_send ~self ~cmd:(selector "tapRecognizerFailedToRecognizeTap:") ~typ:(id @-> returning void) x +let tapRecognizerRecognizedTap x self = msg_send ~self ~cmd:(selector "tapRecognizerRecognizedTap:") ~typ:(id @-> returning void) x +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesForTap self = msg_send ~self ~cmd:(selector "touchesForTap") ~typ:(returning id) +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UITextNonEditableInteraction.ml b/uikit/UITextNonEditableInteraction.ml index a617295b..eb763167 100644 --- a/uikit/UITextNonEditableInteraction.ml +++ b/uikit/UITextNonEditableInteraction.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextNonEditableInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextnoneditableinteraction?language=objc}UITextNonEditableInteraction} *) -let doubleTapOrTripleTapInUneditable x self = msg_send ~self ~cmd:(selector "doubleTapOrTripleTapInUneditable:") ~typ:(id @-> returning (void)) x -let initWithMode x self = msg_send ~self ~cmd:(selector "initWithMode:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let oneFingerTapInUneditable x self = msg_send ~self ~cmd:(selector "oneFingerTapInUneditable:") ~typ:(id @-> returning (void)) x -let oneFingerTapInUneditableAccelerated x self = msg_send ~self ~cmd:(selector "oneFingerTapInUneditableAccelerated:") ~typ:(id @-> returning (void)) x -let toggleSelectionCommands self = msg_send ~self ~cmd:(selector "toggleSelectionCommands") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UITextNonEditableInteraction" + +let doubleTapOrTripleTapInUneditable x self = msg_send ~self ~cmd:(selector "doubleTapOrTripleTapInUneditable:") ~typ:(id @-> returning void) x +let initWithMode x self = msg_send ~self ~cmd:(selector "initWithMode:") ~typ:(llong @-> returning id) (LLong.of_int x) +let oneFingerTapInUneditable x self = msg_send ~self ~cmd:(selector "oneFingerTapInUneditable:") ~typ:(id @-> returning void) x +let oneFingerTapInUneditableAccelerated x self = msg_send ~self ~cmd:(selector "oneFingerTapInUneditableAccelerated:") ~typ:(id @-> returning void) x +let toggleSelectionCommands self = msg_send ~self ~cmd:(selector "toggleSelectionCommands") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UITextPasteController.ml b/uikit/UITextPasteController.ml index de239951..9a6e1921 100644 --- a/uikit/UITextPasteController.ml +++ b/uikit/UITextPasteController.ml @@ -5,18 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextPasteController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextpastecontroller?language=objc}UITextPasteController} *) -module C = struct - let combineAttributedStrings x ~addingSeparation self = msg_send ~self ~cmd:(selector "combineAttributedStrings:addingSeparation:") ~typ:(id @-> bool @-> returning (id)) x addingSeparation -end +let self = get_class "UITextPasteController" -let beginDroppingItems x ~toSelectedRange ~progressSupport ~animated self = msg_send ~self ~cmd:(selector "beginDroppingItems:toSelectedRange:progressSupport:animated:") ~typ:(id @-> id @-> id @-> bool @-> returning (id)) x toSelectedRange progressSupport animated -let beginDroppingItems' x ~toSelectedRange ~progressSupport ~animated ~delegate self = msg_send ~self ~cmd:(selector "beginDroppingItems:toSelectedRange:progressSupport:animated:delegate:") ~typ:(id @-> id @-> id @-> bool @-> id @-> returning (id)) x toSelectedRange progressSupport animated delegate -let beginPastingItems x ~toRange self = msg_send ~self ~cmd:(selector "beginPastingItems:toRange:") ~typ:(id @-> id @-> returning (id)) x toRange -let beginPastingItems' x ~toRange ~delegate ~matchesTextStyles self = msg_send ~self ~cmd:(selector "beginPastingItems:toRange:delegate:matchesTextStyles:") ~typ:(id @-> id @-> id @-> bool @-> returning (id)) x toRange delegate matchesTextStyles -let coordinator x ~endPastingItems self = msg_send ~self ~cmd:(selector "coordinator:endPastingItems:") ~typ:(id @-> id @-> returning (void)) x endPastingItems -let initWithSupportingView x self = msg_send ~self ~cmd:(selector "initWithSupportingView:") ~typ:(id @-> returning (id)) x -let setSupportingView x self = msg_send ~self ~cmd:(selector "setSupportingView:") ~typ:(id @-> returning (void)) x -let supportingView self = msg_send ~self ~cmd:(selector "supportingView") ~typ:(returning (id)) \ No newline at end of file +let beginDroppingItems x ~toSelectedRange ~progressSupport ~animated self = msg_send ~self ~cmd:(selector "beginDroppingItems:toSelectedRange:progressSupport:animated:") ~typ:(id @-> id @-> id @-> bool @-> returning id) x toSelectedRange progressSupport animated +let beginDroppingItems' x ~toSelectedRange ~progressSupport ~animated ~delegate self = msg_send ~self ~cmd:(selector "beginDroppingItems:toSelectedRange:progressSupport:animated:delegate:") ~typ:(id @-> id @-> id @-> bool @-> id @-> returning id) x toSelectedRange progressSupport animated delegate +let beginPastingItems x ~toRange self = msg_send ~self ~cmd:(selector "beginPastingItems:toRange:") ~typ:(id @-> id @-> returning id) x toRange +let beginPastingItems' x ~toRange ~delegate ~matchesTextStyles self = msg_send ~self ~cmd:(selector "beginPastingItems:toRange:delegate:matchesTextStyles:") ~typ:(id @-> id @-> id @-> bool @-> returning id) x toRange delegate matchesTextStyles +let coordinator x ~endPastingItems self = msg_send ~self ~cmd:(selector "coordinator:endPastingItems:") ~typ:(id @-> id @-> returning void) x endPastingItems +let initWithSupportingView x self = msg_send ~self ~cmd:(selector "initWithSupportingView:") ~typ:(id @-> returning id) x +let setSupportingView x self = msg_send ~self ~cmd:(selector "setSupportingView:") ~typ:(id @-> returning void) x +let supportingView self = msg_send ~self ~cmd:(selector "supportingView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextPasteControllerClass.ml b/uikit/UITextPasteControllerClass.ml new file mode 100644 index 00000000..26bd626a --- /dev/null +++ b/uikit/UITextPasteControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextpastecontroller?language=objc}UITextPasteController} *) + +let combineAttributedStrings x ~addingSeparation self = msg_send ~self ~cmd:(selector "combineAttributedStrings:addingSeparation:") ~typ:(id @-> bool @-> returning id) x addingSeparation \ No newline at end of file diff --git a/uikit/UITextPasteCoordinator.ml b/uikit/UITextPasteCoordinator.ml index 8dd6c942..cf0acf3b 100644 --- a/uikit/UITextPasteCoordinator.ml +++ b/uikit/UITextPasteCoordinator.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextPasteCoordinator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextpastecoordinator?language=objc}UITextPasteCoordinator} *) -let addItem x self = msg_send ~self ~cmd:(selector "addItem:") ~typ:(id @-> returning (void)) x -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning (id)) x -let performBlockingWait x self = msg_send ~self ~cmd:(selector "performBlockingWait:") ~typ:(double @-> returning (bool)) x -let setResult x ~forItem self = msg_send ~self ~cmd:(selector "setResult:forItem:") ~typ:(id @-> id @-> returning (void)) x forItem \ No newline at end of file +let self = get_class "UITextPasteCoordinator" + +let addItem x self = msg_send ~self ~cmd:(selector "addItem:") ~typ:(id @-> returning void) x +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning id) x +let performBlockingWait x self = msg_send ~self ~cmd:(selector "performBlockingWait:") ~typ:(double @-> returning bool) x +let setResult x ~forItem self = msg_send ~self ~cmd:(selector "setResult:forItem:") ~typ:(id @-> id @-> returning void) x forItem \ No newline at end of file diff --git a/uikit/UITextPasteItem.ml b/uikit/UITextPasteItem.ml index 7d7e969e..17ae767a 100644 --- a/uikit/UITextPasteItem.ml +++ b/uikit/UITextPasteItem.ml @@ -5,25 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextPasteItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextpasteitem?language=objc}UITextPasteItem} *) -let coordinator self = msg_send ~self ~cmd:(selector "coordinator") ~typ:(returning (id)) -let defaultAttributes self = msg_send ~self ~cmd:(selector "defaultAttributes") ~typ:(returning (id)) -let documentOptions self = msg_send ~self ~cmd:(selector "documentOptions") ~typ:(returning (id)) -let forcesDefaultAttributes self = msg_send ~self ~cmd:(selector "forcesDefaultAttributes") ~typ:(returning (bool)) -let initWithTextPasteCoordinator x self = msg_send ~self ~cmd:(selector "initWithTextPasteCoordinator:") ~typ:(id @-> returning (id)) x -let itemProvider self = msg_send ~self ~cmd:(selector "itemProvider") ~typ:(returning (id)) -let localObject self = msg_send ~self ~cmd:(selector "localObject") ~typ:(returning (id)) -let setAttachmentResult x self = msg_send ~self ~cmd:(selector "setAttachmentResult:") ~typ:(id @-> returning (void)) x -let setAttributedStringResult x self = msg_send ~self ~cmd:(selector "setAttributedStringResult:") ~typ:(id @-> returning (void)) x -let setDefaultAttributes x self = msg_send ~self ~cmd:(selector "setDefaultAttributes:") ~typ:(id @-> returning (void)) x -let setDefaultResult self = msg_send ~self ~cmd:(selector "setDefaultResult") ~typ:(returning (void)) -let setDocumentOptions x self = msg_send ~self ~cmd:(selector "setDocumentOptions:") ~typ:(id @-> returning (void)) x -let setForcesDefaultAttributes x self = msg_send ~self ~cmd:(selector "setForcesDefaultAttributes:") ~typ:(bool @-> returning (void)) x -let setItemProvider x self = msg_send ~self ~cmd:(selector "setItemProvider:") ~typ:(id @-> returning (void)) x -let setLocalObject x self = msg_send ~self ~cmd:(selector "setLocalObject:") ~typ:(id @-> returning (void)) x -let setNoResult self = msg_send ~self ~cmd:(selector "setNoResult") ~typ:(returning (void)) -let setStringResult x self = msg_send ~self ~cmd:(selector "setStringResult:") ~typ:(id @-> returning (void)) x -let setSupportedPasteConfigurationClasses x self = msg_send ~self ~cmd:(selector "setSupportedPasteConfigurationClasses:") ~typ:(id @-> returning (void)) x -let supportedPasteConfigurationClasses self = msg_send ~self ~cmd:(selector "supportedPasteConfigurationClasses") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITextPasteItem" + +let coordinator self = msg_send ~self ~cmd:(selector "coordinator") ~typ:(returning id) +let defaultAttributes self = msg_send ~self ~cmd:(selector "defaultAttributes") ~typ:(returning id) +let documentOptions self = msg_send ~self ~cmd:(selector "documentOptions") ~typ:(returning id) +let forcesDefaultAttributes self = msg_send ~self ~cmd:(selector "forcesDefaultAttributes") ~typ:(returning bool) +let initWithTextPasteCoordinator x self = msg_send ~self ~cmd:(selector "initWithTextPasteCoordinator:") ~typ:(id @-> returning id) x +let itemProvider self = msg_send ~self ~cmd:(selector "itemProvider") ~typ:(returning id) +let localObject self = msg_send ~self ~cmd:(selector "localObject") ~typ:(returning id) +let setAttachmentResult x self = msg_send ~self ~cmd:(selector "setAttachmentResult:") ~typ:(id @-> returning void) x +let setAttributedStringResult x self = msg_send ~self ~cmd:(selector "setAttributedStringResult:") ~typ:(id @-> returning void) x +let setDefaultAttributes x self = msg_send ~self ~cmd:(selector "setDefaultAttributes:") ~typ:(id @-> returning void) x +let setDefaultResult self = msg_send ~self ~cmd:(selector "setDefaultResult") ~typ:(returning void) +let setDocumentOptions x self = msg_send ~self ~cmd:(selector "setDocumentOptions:") ~typ:(id @-> returning void) x +let setForcesDefaultAttributes x self = msg_send ~self ~cmd:(selector "setForcesDefaultAttributes:") ~typ:(bool @-> returning void) x +let setItemProvider x self = msg_send ~self ~cmd:(selector "setItemProvider:") ~typ:(id @-> returning void) x +let setLocalObject x self = msg_send ~self ~cmd:(selector "setLocalObject:") ~typ:(id @-> returning void) x +let setNoResult self = msg_send ~self ~cmd:(selector "setNoResult") ~typ:(returning void) +let setStringResult x self = msg_send ~self ~cmd:(selector "setStringResult:") ~typ:(id @-> returning void) x +let setSupportedPasteConfigurationClasses x self = msg_send ~self ~cmd:(selector "setSupportedPasteConfigurationClasses:") ~typ:(id @-> returning void) x +let supportedPasteConfigurationClasses self = msg_send ~self ~cmd:(selector "supportedPasteConfigurationClasses") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextPhraseBoundaryInteraction.ml b/uikit/UITextPhraseBoundaryInteraction.ml deleted file mode 100644 index 0296f561..00000000 --- a/uikit/UITextPhraseBoundaryInteraction.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextPhraseBoundaryInteraction" - -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let initWithTextInput x self = msg_send ~self ~cmd:(selector "initWithTextInput:") ~typ:(id @-> returning (id)) x -let pointIfPlacedCarefully x self = msg_send_stret ~self ~cmd:(selector "pointIfPlacedCarefully:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let touchAlignedPointForPoint x ~translation self = msg_send_stret ~self ~cmd:(selector "touchAlignedPointForPoint:translation:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x translation -let updateVisibilityOffsetForGesture x self = msg_send ~self ~cmd:(selector "updateVisibilityOffsetForGesture:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UITextPlaceholder.ml b/uikit/UITextPlaceholder.ml index 1745e4f9..5bb804fa 100644 --- a/uikit/UITextPlaceholder.ml +++ b/uikit/UITextPlaceholder.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextPlaceholder" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextplaceholder?language=objc}UITextPlaceholder} *) -let attachment self = msg_send ~self ~cmd:(selector "attachment") ~typ:(returning (id)) -let caretRectBeforeInsertion self = msg_send_stret ~self ~cmd:(selector "caretRectBeforeInsertion") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let rects self = msg_send ~self ~cmd:(selector "rects") ~typ:(returning (id)) -let setAttachment x self = msg_send ~self ~cmd:(selector "setAttachment:") ~typ:(id @-> returning (void)) x -let setCaretRectBeforeInsertion x self = msg_send ~self ~cmd:(selector "setCaretRectBeforeInsertion:") ~typ:(CGRect.t @-> returning (void)) x -let setRects x self = msg_send ~self ~cmd:(selector "setRects:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UITextPlaceholder" + +let attachment self = msg_send ~self ~cmd:(selector "attachment") ~typ:(returning id) +let caretRectBeforeInsertion self = msg_send ~self ~cmd:(selector "caretRectBeforeInsertion") ~typ:(returning CGRect.t) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let rects self = msg_send ~self ~cmd:(selector "rects") ~typ:(returning id) +let setAttachment x self = msg_send ~self ~cmd:(selector "setAttachment:") ~typ:(id @-> returning void) x +let setCaretRectBeforeInsertion x self = msg_send ~self ~cmd:(selector "setCaretRectBeforeInsertion:") ~typ:(CGRect.t @-> returning void) x +let setRects x self = msg_send ~self ~cmd:(selector "setRects:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextPositionImpl.ml b/uikit/UITextPositionImpl.ml deleted file mode 100644 index a06a68c2..00000000 --- a/uikit/UITextPositionImpl.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextPositionImpl" - -module C = struct - let wrapWebVisiblePosition x self = msg_send ~self ~cmd:(selector "wrapWebVisiblePosition:") ~typ:(id @-> returning (id)) x -end - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let setWebVisiblePosition x self = msg_send ~self ~cmd:(selector "setWebVisiblePosition:") ~typ:(id @-> returning (void)) x -let webVisiblePosition self = msg_send ~self ~cmd:(selector "webVisiblePosition") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UITextRange.ml b/uikit/UITextRange.ml index 458c5006..494aa219 100644 --- a/uikit/UITextRange.ml +++ b/uikit/UITextRange.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextRange" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextrange?language=objc}UITextRange} *) -let end_ self = msg_send ~self ~cmd:(selector "end") ~typ:(returning (id)) -let isEmpty self = msg_send ~self ~cmd:(selector "isEmpty") ~typ:(returning (bool)) -let start self = msg_send ~self ~cmd:(selector "start") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITextRange" + +let end_ self = msg_send ~self ~cmd:(selector "end") ~typ:(returning id) +let isEmpty self = msg_send ~self ~cmd:(selector "isEmpty") ~typ:(returning bool) +let start self = msg_send ~self ~cmd:(selector "start") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextRangeAdjustmentGestureRecognizer.ml b/uikit/UITextRangeAdjustmentGestureRecognizer.ml index d72d7011..c238cb3b 100644 --- a/uikit/UITextRangeAdjustmentGestureRecognizer.ml +++ b/uikit/UITextRangeAdjustmentGestureRecognizer.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextRangeAdjustmentGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextrangeadjustmentgesturerecognizer?language=objc}UITextRangeAdjustmentGestureRecognizer} *) -let startPoint self = msg_send ~self ~cmd:(selector "startPoint") ~typ:(returning (CGPoint.t)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let self = get_class "UITextRangeAdjustmentGestureRecognizer" + +let startPoint self = msg_send ~self ~cmd:(selector "startPoint") ~typ:(returning CGPoint.t) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit/UITextRangeAdjustmentInteraction.ml b/uikit/UITextRangeAdjustmentInteraction.ml deleted file mode 100644 index de9d375d..00000000 --- a/uikit/UITextRangeAdjustmentInteraction.ml +++ /dev/null @@ -1,40 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextRangeAdjustmentInteraction" - -let activeTouch self = msg_send ~self ~cmd:(selector "activeTouch") ~typ:(returning (id)) -let adjustmentGestureRecognizer self = msg_send ~self ~cmd:(selector "adjustmentGestureRecognizer") ~typ:(returning (id)) -let applyTouchOffset x self = msg_send_stret ~self ~cmd:(selector "applyTouchOffset:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let baseIsStart self = msg_send ~self ~cmd:(selector "baseIsStart") ~typ:(returning (bool)) -let basePoint self = msg_send_stret ~self ~cmd:(selector "basePoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let extentPoint self = msg_send_stret ~self ~cmd:(selector "extentPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let firstMovedTime self = msg_send ~self ~cmd:(selector "firstMovedTime") ~typ:(returning (double)) -let gestureRecognizer x ~shouldBeRequiredToFailByGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldBeRequiredToFailByGestureRecognizer -let gestureRecognizer' x ~shouldRequireFailureOfGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRequireFailureOfGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRequireFailureOfGestureRecognizer -let initialBasePoint self = msg_send_stret ~self ~cmd:(selector "initialBasePoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let initialDistance self = msg_send ~self ~cmd:(selector "initialDistance") ~typ:(returning (double)) -let initialExtentPoint self = msg_send_stret ~self ~cmd:(selector "initialExtentPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let initialPoint self = msg_send_stret ~self ~cmd:(selector "initialPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let manuallyUpdateInteractionWithGestureState x ~location ~locationOfFirstTouch ~forTouchType self = msg_send ~self ~cmd:(selector "manuallyUpdateInteractionWithGestureState:location:locationOfFirstTouch:forTouchType:") ~typ:(llong @-> CGPoint.t @-> CGPoint.t @-> llong @-> returning (void)) (LLong.of_int x) location locationOfFirstTouch (LLong.of_int forTouchType) -let setActiveTouch x self = msg_send ~self ~cmd:(selector "setActiveTouch:") ~typ:(id @-> returning (void)) x -let setBaseIsStart x self = msg_send ~self ~cmd:(selector "setBaseIsStart:") ~typ:(bool @-> returning (void)) x -let setBasePoint x self = msg_send ~self ~cmd:(selector "setBasePoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setExtentPoint x self = msg_send ~self ~cmd:(selector "setExtentPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setFirstMovedTime x self = msg_send ~self ~cmd:(selector "setFirstMovedTime:") ~typ:(double @-> returning (void)) x -let setInitialBasePoint x self = msg_send ~self ~cmd:(selector "setInitialBasePoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setInitialDistance x self = msg_send ~self ~cmd:(selector "setInitialDistance:") ~typ:(double @-> returning (void)) x -let setInitialPoint x self = msg_send ~self ~cmd:(selector "setInitialPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setTouchOffset x self = msg_send ~self ~cmd:(selector "setTouchOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let touchOffset self = msg_send_stret ~self ~cmd:(selector "touchOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let updateBaseAndExtentPointsFromEdges self = msg_send ~self ~cmd:(selector "updateBaseAndExtentPointsFromEdges") ~typ:(returning (void)) -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UITextRangeImpl.ml b/uikit/UITextRangeImpl.ml deleted file mode 100644 index b7aaa1d5..00000000 --- a/uikit/UITextRangeImpl.ml +++ /dev/null @@ -1,26 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextRangeImpl" - -module C = struct - let wrapDOMRange x self = msg_send ~self ~cmd:(selector "wrapDOMRange:") ~typ:(id @-> returning (id)) x - let wrapDOMRange' x ~withAffinity self = msg_send ~self ~cmd:(selector "wrapDOMRange:withAffinity:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int withAffinity) -end - -let adjustAffinityOfPosition x ~isStart self = msg_send ~self ~cmd:(selector "adjustAffinityOfPosition:isStart:") ~typ:(id @-> bool @-> returning (void)) x isStart -let affinity self = msg_send ~self ~cmd:(selector "affinity") ~typ:(returning (llong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let domRange self = msg_send ~self ~cmd:(selector "domRange") ~typ:(returning (id)) -let end_ self = msg_send ~self ~cmd:(selector "end") ~typ:(returning (id)) -let isEmpty self = msg_send ~self ~cmd:(selector "isEmpty") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let setAffinity x self = msg_send ~self ~cmd:(selector "setAffinity:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setDomRange x self = msg_send ~self ~cmd:(selector "setDomRange:") ~typ:(id @-> returning (void)) x -let start self = msg_send ~self ~cmd:(selector "start") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UITextRangeView.ml b/uikit/UITextRangeView.ml index c323241a..0b8b5ec8 100644 --- a/uikit/UITextRangeView.ml +++ b/uikit/UITextRangeView.ml @@ -5,105 +5,109 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextRangeView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextrangeview?language=objc}UITextRangeView} *) -let activeTouchPoint self = msg_send_stret ~self ~cmd:(selector "activeTouchPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let adjustmentInteraction self = msg_send ~self ~cmd:(selector "adjustmentInteraction") ~typ:(returning (id)) -let animateHighlighterDelayedFadeInOnLayer x self = msg_send ~self ~cmd:(selector "animateHighlighterDelayedFadeInOnLayer:") ~typ:(id @-> returning (void)) x -let animateHighlighterExpanderAnimation self = msg_send ~self ~cmd:(selector "animateHighlighterExpanderAnimation") ~typ:(returning (void)) -let animateHighlighterExpanderOnLayer x ~withOffset self = msg_send ~self ~cmd:(selector "animateHighlighterExpanderOnLayer:withOffset:") ~typ:(id @-> CGPoint.t @-> returning (void)) x withOffset -let animateUpdate self = msg_send ~self ~cmd:(selector "animateUpdate") ~typ:(returning (bool)) -let applyTouchOffset x self = msg_send_stret ~self ~cmd:(selector "applyTouchOffset:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let areSelectionRectsVisible self = msg_send ~self ~cmd:(selector "areSelectionRectsVisible") ~typ:(returning (bool)) -let autoscrolled self = msg_send ~self ~cmd:(selector "autoscrolled") ~typ:(returning (bool)) -let baseIsStart self = msg_send ~self ~cmd:(selector "baseIsStart") ~typ:(returning (bool)) -let basePoint self = msg_send_stret ~self ~cmd:(selector "basePoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let beginMagnifying self = msg_send ~self ~cmd:(selector "beginMagnifying") ~typ:(returning (void)) -let cancelDelayedActions self = msg_send ~self ~cmd:(selector "cancelDelayedActions") ~typ:(returning (void)) -let cancelRevealMode self = msg_send ~self ~cmd:(selector "cancelRevealMode") ~typ:(returning (void)) -let caretRectForTextRangeAdjustmentInteraction x self = msg_send_stret ~self ~cmd:(selector "caretRectForTextRangeAdjustmentInteraction:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let clearRangeAnimated x self = msg_send ~self ~cmd:(selector "clearRangeAnimated:") ~typ:(bool @-> returning (void)) x -let commandsWereShowing self = msg_send ~self ~cmd:(selector "commandsWereShowing") ~typ:(returning (bool)) -let container self = msg_send ~self ~cmd:(selector "container") ~typ:(returning (id)) -let containerCoordinateSpaceForTextRangeAdjustmentInteraction x self = msg_send ~self ~cmd:(selector "containerCoordinateSpaceForTextRangeAdjustmentInteraction:") ~typ:(id @-> returning (id)) x -let convertFromMagnifierPoint x self = msg_send_stret ~self ~cmd:(selector "convertFromMagnifierPoint:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let didRotate self = msg_send ~self ~cmd:(selector "didRotate") ~typ:(returning (void)) -let didScroll self = msg_send ~self ~cmd:(selector "didScroll") ~typ:(returning (void)) -let doneMagnifying self = msg_send ~self ~cmd:(selector "doneMagnifying") ~typ:(returning (void)) -let endCustomPath self = msg_send ~self ~cmd:(selector "endCustomPath") ~typ:(returning (id)) -let endEdge self = msg_send_stret ~self ~cmd:(selector "endEdge") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let endGrabber self = msg_send ~self ~cmd:(selector "endGrabber") ~typ:(returning (id)) -let extentPoint self = msg_send_stret ~self ~cmd:(selector "extentPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let inGesture self = msg_send ~self ~cmd:(selector "inGesture") ~typ:(returning (bool)) -let initWithFrame x ~selectionView self = msg_send ~self ~cmd:(selector "initWithFrame:selectionView:") ~typ:(CGRect.t @-> id @-> returning (id)) x selectionView -let initialExtentPoint self = msg_send_stret ~self ~cmd:(selector "initialExtentPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let inputViewDidChange self = msg_send ~self ~cmd:(selector "inputViewDidChange") ~typ:(returning (void)) -let inputViewIsChanging self = msg_send ~self ~cmd:(selector "inputViewIsChanging") ~typ:(returning (bool)) -let inputViewWillChange self = msg_send ~self ~cmd:(selector "inputViewWillChange") ~typ:(returning (void)) -let isClearingRange self = msg_send ~self ~cmd:(selector "isClearingRange") ~typ:(returning (bool)) -let isScrolling self = msg_send ~self ~cmd:(selector "isScrolling") ~typ:(returning (bool)) -let macWindowDidChangeKey x self = msg_send ~self ~cmd:(selector "macWindowDidChangeKey:") ~typ:(id @-> returning (void)) x -let magnifierPoint self = msg_send_stret ~self ~cmd:(selector "magnifierPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let magnifying self = msg_send ~self ~cmd:(selector "magnifying") ~typ:(returning (bool)) -let mode self = msg_send ~self ~cmd:(selector "mode") ~typ:(returning (int)) -let pointCloserToEnd x ~startEdge ~endEdge self = msg_send ~self ~cmd:(selector "pointCloserToEnd:startEdge:endEdge:") ~typ:(CGPoint.t @-> CGRect.t @-> CGRect.t @-> returning (bool)) x startEdge endEdge -let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning (id)) x styleForRegion -let pointerInteraction' x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning (id)) x regionForRequest defaultRegion -let prepareForMagnification self = msg_send ~self ~cmd:(selector "prepareForMagnification") ~typ:(returning (void)) -let rects self = msg_send ~self ~cmd:(selector "rects") ~typ:(returning (id)) -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let rotating self = msg_send ~self ~cmd:(selector "rotating") ~typ:(returning (bool)) -let scaleDidChange self = msg_send ~self ~cmd:(selector "scaleDidChange") ~typ:(returning (void)) -let scaleWillChange self = msg_send ~self ~cmd:(selector "scaleWillChange") ~typ:(returning (void)) -let scaling self = msg_send ~self ~cmd:(selector "scaling") ~typ:(returning (bool)) -let selectionHighlightColorDidChange x self = msg_send ~self ~cmd:(selector "selectionHighlightColorDidChange:") ~typ:(id @-> returning (void)) x -let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning (id)) -let setAdjustmentInteraction x self = msg_send ~self ~cmd:(selector "setAdjustmentInteraction:") ~typ:(id @-> returning (void)) x -let setAnimateUpdate x self = msg_send ~self ~cmd:(selector "setAnimateUpdate:") ~typ:(bool @-> returning (void)) x -let setBaseIsStart x self = msg_send ~self ~cmd:(selector "setBaseIsStart:") ~typ:(bool @-> returning (void)) x -let setCommandsWereShowing x self = msg_send ~self ~cmd:(selector "setCommandsWereShowing:") ~typ:(bool @-> returning (void)) x -let setEndCustomPath x self = msg_send ~self ~cmd:(selector "setEndCustomPath:") ~typ:(id @-> returning (void)) x -let setEndEdge x self = msg_send ~self ~cmd:(selector "setEndEdge:") ~typ:(CGRect.t @-> returning (void)) x -let setEndGrabber x self = msg_send ~self ~cmd:(selector "setEndGrabber:") ~typ:(id @-> returning (void)) x -let setInGesture x self = msg_send ~self ~cmd:(selector "setInGesture:") ~typ:(bool @-> returning (void)) x -let setInitialExtentPoint x self = msg_send ~self ~cmd:(selector "setInitialExtentPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setInputViewIsChanging x self = msg_send ~self ~cmd:(selector "setInputViewIsChanging:") ~typ:(bool @-> returning (void)) x -let setIsClearingRange x self = msg_send ~self ~cmd:(selector "setIsClearingRange:") ~typ:(bool @-> returning (void)) x -let setIsScrolling x self = msg_send ~self ~cmd:(selector "setIsScrolling:") ~typ:(bool @-> returning (void)) x -let setMagnifierOrientation self = msg_send ~self ~cmd:(selector "setMagnifierOrientation") ~typ:(returning (void)) -let setMagnifying x self = msg_send ~self ~cmd:(selector "setMagnifying:") ~typ:(bool @-> returning (void)) x -let setMode x self = msg_send ~self ~cmd:(selector "setMode:") ~typ:(int @-> returning (void)) x -let setRects x self = msg_send ~self ~cmd:(selector "setRects:") ~typ:(id @-> returning (void)) x -let setRotating x self = msg_send ~self ~cmd:(selector "setRotating:") ~typ:(bool @-> returning (void)) x -let setScaling x self = msg_send ~self ~cmd:(selector "setScaling:") ~typ:(bool @-> returning (void)) x -let setShouldStayVisible x self = msg_send ~self ~cmd:(selector "setShouldStayVisible:") ~typ:(bool @-> returning (void)) x -let setStartCustomPath x self = msg_send ~self ~cmd:(selector "setStartCustomPath:") ~typ:(id @-> returning (void)) x -let setStartEdge x self = msg_send ~self ~cmd:(selector "setStartEdge:") ~typ:(CGRect.t @-> returning (void)) x -let setStartGrabber x self = msg_send ~self ~cmd:(selector "setStartGrabber:") ~typ:(id @-> returning (void)) x -let setWillBeginMagnifying x self = msg_send ~self ~cmd:(selector "setWillBeginMagnifying:") ~typ:(bool @-> returning (void)) x -let shouldHitTestGrabbers self = msg_send ~self ~cmd:(selector "shouldHitTestGrabbers") ~typ:(returning (bool)) -let shouldShowGrabbers self = msg_send ~self ~cmd:(selector "shouldShowGrabbers") ~typ:(returning (bool)) -let shouldStayVisible self = msg_send ~self ~cmd:(selector "shouldStayVisible") ~typ:(returning (bool)) -let startAnimating self = msg_send ~self ~cmd:(selector "startAnimating") ~typ:(returning (void)) -let startCustomPath self = msg_send ~self ~cmd:(selector "startCustomPath") ~typ:(returning (id)) -let startEdge self = msg_send_stret ~self ~cmd:(selector "startEdge") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let startGrabber self = msg_send ~self ~cmd:(selector "startGrabber") ~typ:(returning (id)) -let stopAnimating self = msg_send ~self ~cmd:(selector "stopAnimating") ~typ:(returning (void)) -let textRangeAdjustmentInteraction x ~didBeginAtPoint self = msg_send ~self ~cmd:(selector "textRangeAdjustmentInteraction:didBeginAtPoint:") ~typ:(id @-> CGPoint.t @-> returning (void)) x didBeginAtPoint -let textRangeAdjustmentInteraction1 x ~didEndAtPoint self = msg_send ~self ~cmd:(selector "textRangeAdjustmentInteraction:didEndAtPoint:") ~typ:(id @-> CGPoint.t @-> returning (void)) x didEndAtPoint -let textRangeAdjustmentInteraction2 x ~selectionMoved ~withTouchPoint self = msg_send ~self ~cmd:(selector "textRangeAdjustmentInteraction:selectionMoved:withTouchPoint:") ~typ:(id @-> CGPoint.t @-> CGPoint.t @-> returning (void)) x selectionMoved withTouchPoint -let textRangeAdjustmentInteractionWasCancelled x self = msg_send ~self ~cmd:(selector "textRangeAdjustmentInteractionWasCancelled:") ~typ:(id @-> returning (void)) x -let updateAfterEffectiveModeChange self = msg_send ~self ~cmd:(selector "updateAfterEffectiveModeChange") ~typ:(returning (void)) -let updateBaseAndExtentPointsFromEdges self = msg_send ~self ~cmd:(selector "updateBaseAndExtentPointsFromEdges") ~typ:(returning (void)) -let updateBaseIsStartWithDocumentPoint x self = msg_send ~self ~cmd:(selector "updateBaseIsStartWithDocumentPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let updateDots self = msg_send ~self ~cmd:(selector "updateDots") ~typ:(returning (void)) -let updateEdges self = msg_send ~self ~cmd:(selector "updateEdges") ~typ:(returning (void)) -let updateGrabbers self = msg_send ~self ~cmd:(selector "updateGrabbers") ~typ:(returning (void)) -let updateRectViews self = msg_send ~self ~cmd:(selector "updateRectViews") ~typ:(returning (void)) -let updateSelectionWithDocumentPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithDocumentPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let willBeginMagnifying self = msg_send ~self ~cmd:(selector "willBeginMagnifying") ~typ:(returning (bool)) -let willRotate self = msg_send ~self ~cmd:(selector "willRotate") ~typ:(returning (void)) -let willScroll self = msg_send ~self ~cmd:(selector "willScroll") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UITextRangeView" + +let activeTouchPoint self = msg_send ~self ~cmd:(selector "activeTouchPoint") ~typ:(returning CGPoint.t) +let adjustmentInteraction self = msg_send ~self ~cmd:(selector "adjustmentInteraction") ~typ:(returning id) +let animateHighlighterDelayedFadeInOnLayer x self = msg_send ~self ~cmd:(selector "animateHighlighterDelayedFadeInOnLayer:") ~typ:(id @-> returning void) x +let animateHighlighterExpanderAnimation self = msg_send ~self ~cmd:(selector "animateHighlighterExpanderAnimation") ~typ:(returning void) +let animateHighlighterExpanderOnLayer x ~withOffset self = msg_send ~self ~cmd:(selector "animateHighlighterExpanderOnLayer:withOffset:") ~typ:(id @-> CGPoint.t @-> returning void) x withOffset +let animateUpdate self = msg_send ~self ~cmd:(selector "animateUpdate") ~typ:(returning bool) +let applyTouchOffset x self = msg_send ~self ~cmd:(selector "applyTouchOffset:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let areSelectionRectsVisible self = msg_send ~self ~cmd:(selector "areSelectionRectsVisible") ~typ:(returning bool) +let autoscrolled self = msg_send ~self ~cmd:(selector "autoscrolled") ~typ:(returning bool) +let baseIsStart self = msg_send ~self ~cmd:(selector "baseIsStart") ~typ:(returning bool) +let basePoint self = msg_send ~self ~cmd:(selector "basePoint") ~typ:(returning CGPoint.t) +let beginMagnifying self = msg_send ~self ~cmd:(selector "beginMagnifying") ~typ:(returning void) +let cancelDelayedActions self = msg_send ~self ~cmd:(selector "cancelDelayedActions") ~typ:(returning void) +let cancelRevealMode self = msg_send ~self ~cmd:(selector "cancelRevealMode") ~typ:(returning void) +let caretRectForTextRangeAdjustmentInteraction x self = msg_send ~self ~cmd:(selector "caretRectForTextRangeAdjustmentInteraction:") ~typ:(id @-> returning CGRect.t) x +let clearRangeAnimated x self = msg_send ~self ~cmd:(selector "clearRangeAnimated:") ~typ:(bool @-> returning void) x +let commandsWereShowing self = msg_send ~self ~cmd:(selector "commandsWereShowing") ~typ:(returning bool) +let container self = msg_send ~self ~cmd:(selector "container") ~typ:(returning id) +let containerCoordinateSpaceForTextRangeAdjustmentInteraction x self = msg_send ~self ~cmd:(selector "containerCoordinateSpaceForTextRangeAdjustmentInteraction:") ~typ:(id @-> returning id) x +let convertFromMagnifierPoint x self = msg_send ~self ~cmd:(selector "convertFromMagnifierPoint:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let didRotate self = msg_send ~self ~cmd:(selector "didRotate") ~typ:(returning void) +let didScroll self = msg_send ~self ~cmd:(selector "didScroll") ~typ:(returning void) +let doneMagnifying self = msg_send ~self ~cmd:(selector "doneMagnifying") ~typ:(returning void) +let endCustomPath self = msg_send ~self ~cmd:(selector "endCustomPath") ~typ:(returning id) +let endEdge self = msg_send ~self ~cmd:(selector "endEdge") ~typ:(returning CGRect.t) +let endGrabber self = msg_send ~self ~cmd:(selector "endGrabber") ~typ:(returning id) +let extentPoint self = msg_send ~self ~cmd:(selector "extentPoint") ~typ:(returning CGPoint.t) +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let inGesture self = msg_send ~self ~cmd:(selector "inGesture") ~typ:(returning bool) +let initWithFrame x ~selectionView self = msg_send ~self ~cmd:(selector "initWithFrame:selectionView:") ~typ:(CGRect.t @-> id @-> returning id) x selectionView +let initialExtentPoint self = msg_send ~self ~cmd:(selector "initialExtentPoint") ~typ:(returning CGPoint.t) +let inputViewDidChange self = msg_send ~self ~cmd:(selector "inputViewDidChange") ~typ:(returning void) +let inputViewIsChanging self = msg_send ~self ~cmd:(selector "inputViewIsChanging") ~typ:(returning bool) +let inputViewWillChange self = msg_send ~self ~cmd:(selector "inputViewWillChange") ~typ:(returning void) +let isClearingRange self = msg_send ~self ~cmd:(selector "isClearingRange") ~typ:(returning bool) +let isScrolling self = msg_send ~self ~cmd:(selector "isScrolling") ~typ:(returning bool) +let macWindowDidChangeKey x self = msg_send ~self ~cmd:(selector "macWindowDidChangeKey:") ~typ:(id @-> returning void) x +let magnifierPoint self = msg_send ~self ~cmd:(selector "magnifierPoint") ~typ:(returning CGPoint.t) +let magnifying self = msg_send ~self ~cmd:(selector "magnifying") ~typ:(returning bool) +let mode self = msg_send ~self ~cmd:(selector "mode") ~typ:(returning int) +let pointCloserToEnd x ~startEdge ~endEdge self = msg_send ~self ~cmd:(selector "pointCloserToEnd:startEdge:endEdge:") ~typ:(CGPoint.t @-> CGRect.t @-> CGRect.t @-> returning bool) x startEdge endEdge +let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning id) x styleForRegion +let pointerInteraction' x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning id) x regionForRequest defaultRegion +let prepareForMagnification self = msg_send ~self ~cmd:(selector "prepareForMagnification") ~typ:(returning void) +let rects self = msg_send ~self ~cmd:(selector "rects") ~typ:(returning id) +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let rotating self = msg_send ~self ~cmd:(selector "rotating") ~typ:(returning bool) +let scaleDidChange self = msg_send ~self ~cmd:(selector "scaleDidChange") ~typ:(returning void) +let scaleWillChange self = msg_send ~self ~cmd:(selector "scaleWillChange") ~typ:(returning void) +let scaling self = msg_send ~self ~cmd:(selector "scaling") ~typ:(returning bool) +let selectionHighlightColorDidChange x self = msg_send ~self ~cmd:(selector "selectionHighlightColorDidChange:") ~typ:(id @-> returning void) x +let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning id) +let setAdjustmentInteraction x self = msg_send ~self ~cmd:(selector "setAdjustmentInteraction:") ~typ:(id @-> returning void) x +let setAnimateUpdate x self = msg_send ~self ~cmd:(selector "setAnimateUpdate:") ~typ:(bool @-> returning void) x +let setBaseIsStart x self = msg_send ~self ~cmd:(selector "setBaseIsStart:") ~typ:(bool @-> returning void) x +let setCommandsWereShowing x self = msg_send ~self ~cmd:(selector "setCommandsWereShowing:") ~typ:(bool @-> returning void) x +let setEndCustomPath x self = msg_send ~self ~cmd:(selector "setEndCustomPath:") ~typ:(id @-> returning void) x +let setEndEdge x self = msg_send ~self ~cmd:(selector "setEndEdge:") ~typ:(CGRect.t @-> returning void) x +let setEndGrabber x self = msg_send ~self ~cmd:(selector "setEndGrabber:") ~typ:(id @-> returning void) x +let setInGesture x self = msg_send ~self ~cmd:(selector "setInGesture:") ~typ:(bool @-> returning void) x +let setInitialExtentPoint x self = msg_send ~self ~cmd:(selector "setInitialExtentPoint:") ~typ:(CGPoint.t @-> returning void) x +let setInputViewIsChanging x self = msg_send ~self ~cmd:(selector "setInputViewIsChanging:") ~typ:(bool @-> returning void) x +let setIsClearingRange x self = msg_send ~self ~cmd:(selector "setIsClearingRange:") ~typ:(bool @-> returning void) x +let setIsScrolling x self = msg_send ~self ~cmd:(selector "setIsScrolling:") ~typ:(bool @-> returning void) x +let setMagnifierOrientation self = msg_send ~self ~cmd:(selector "setMagnifierOrientation") ~typ:(returning void) +let setMagnifying x self = msg_send ~self ~cmd:(selector "setMagnifying:") ~typ:(bool @-> returning void) x +let setMode x self = msg_send ~self ~cmd:(selector "setMode:") ~typ:(int @-> returning void) x +let setRects x self = msg_send ~self ~cmd:(selector "setRects:") ~typ:(id @-> returning void) x +let setRotating x self = msg_send ~self ~cmd:(selector "setRotating:") ~typ:(bool @-> returning void) x +let setScaling x self = msg_send ~self ~cmd:(selector "setScaling:") ~typ:(bool @-> returning void) x +let setShouldStayVisible x self = msg_send ~self ~cmd:(selector "setShouldStayVisible:") ~typ:(bool @-> returning void) x +let setStartCustomPath x self = msg_send ~self ~cmd:(selector "setStartCustomPath:") ~typ:(id @-> returning void) x +let setStartEdge x self = msg_send ~self ~cmd:(selector "setStartEdge:") ~typ:(CGRect.t @-> returning void) x +let setStartGrabber x self = msg_send ~self ~cmd:(selector "setStartGrabber:") ~typ:(id @-> returning void) x +let setWillBeginMagnifying x self = msg_send ~self ~cmd:(selector "setWillBeginMagnifying:") ~typ:(bool @-> returning void) x +let shouldHitTestGrabbers self = msg_send ~self ~cmd:(selector "shouldHitTestGrabbers") ~typ:(returning bool) +let shouldShowGrabbers self = msg_send ~self ~cmd:(selector "shouldShowGrabbers") ~typ:(returning bool) +let shouldStayVisible self = msg_send ~self ~cmd:(selector "shouldStayVisible") ~typ:(returning bool) +let startAnimating self = msg_send ~self ~cmd:(selector "startAnimating") ~typ:(returning void) +let startCustomPath self = msg_send ~self ~cmd:(selector "startCustomPath") ~typ:(returning id) +let startEdge self = msg_send ~self ~cmd:(selector "startEdge") ~typ:(returning CGRect.t) +let startGrabber self = msg_send ~self ~cmd:(selector "startGrabber") ~typ:(returning id) +let stopAnimating self = msg_send ~self ~cmd:(selector "stopAnimating") ~typ:(returning void) +let textRangeAdjustmentInteraction x ~didBeginAtPoint self = msg_send ~self ~cmd:(selector "textRangeAdjustmentInteraction:didBeginAtPoint:") ~typ:(id @-> CGPoint.t @-> returning void) x didBeginAtPoint +let textRangeAdjustmentInteraction1 x ~didEndAtPoint self = msg_send ~self ~cmd:(selector "textRangeAdjustmentInteraction:didEndAtPoint:") ~typ:(id @-> CGPoint.t @-> returning void) x didEndAtPoint +let textRangeAdjustmentInteraction2 x ~selectionMoved ~withTouchPoint self = msg_send ~self ~cmd:(selector "textRangeAdjustmentInteraction:selectionMoved:withTouchPoint:") ~typ:(id @-> CGPoint.t @-> CGPoint.t @-> returning void) x selectionMoved withTouchPoint +let textRangeAdjustmentInteractionWasCancelled x self = msg_send ~self ~cmd:(selector "textRangeAdjustmentInteractionWasCancelled:") ~typ:(id @-> returning void) x +let updateAfterEffectiveModeChange self = msg_send ~self ~cmd:(selector "updateAfterEffectiveModeChange") ~typ:(returning void) +let updateBaseAndExtentPointsFromEdges self = msg_send ~self ~cmd:(selector "updateBaseAndExtentPointsFromEdges") ~typ:(returning void) +let updateBaseIsStartWithDocumentPoint x self = msg_send ~self ~cmd:(selector "updateBaseIsStartWithDocumentPoint:") ~typ:(CGPoint.t @-> returning void) x +let updateDots self = msg_send ~self ~cmd:(selector "updateDots") ~typ:(returning void) +let updateEdges self = msg_send ~self ~cmd:(selector "updateEdges") ~typ:(returning void) +let updateGrabbers self = msg_send ~self ~cmd:(selector "updateGrabbers") ~typ:(returning void) +let updateRectViews self = msg_send ~self ~cmd:(selector "updateRectViews") ~typ:(returning void) +let updateSelectionWithDocumentPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithDocumentPoint:") ~typ:(CGPoint.t @-> returning void) x +let willBeginMagnifying self = msg_send ~self ~cmd:(selector "willBeginMagnifying") ~typ:(returning bool) +let willRotate self = msg_send ~self ~cmd:(selector "willRotate") ~typ:(returning void) +let willScroll self = msg_send ~self ~cmd:(selector "willScroll") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UITextRenderingAttributes.ml b/uikit/UITextRenderingAttributes.ml index b25b3b7d..5972b410 100644 --- a/uikit/UITextRenderingAttributes.ml +++ b/uikit/UITextRenderingAttributes.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextRenderingAttributes" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextrenderingattributes?language=objc}UITextRenderingAttributes} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITextRenderingAttributes" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextReplacement.ml b/uikit/UITextReplacement.ml index 5ca9de23..83e2fd36 100644 --- a/uikit/UITextReplacement.ml +++ b/uikit/UITextReplacement.ml @@ -5,19 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextReplacement" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextreplacement?language=objc}UITextReplacement} *) -module C = struct - let replacementWithRange x ~original ~replacement ~menuTitle self = msg_send ~self ~cmd:(selector "replacementWithRange:original:replacement:menuTitle:") ~typ:(id @-> id @-> id @-> id @-> returning (id)) x original replacement menuTitle -end +let self = get_class "UITextReplacement" -let didReplaceTextWithTarget x self = msg_send ~self ~cmd:(selector "didReplaceTextWithTarget:") ~typ:(id @-> returning (void)) x -let menuTitle self = msg_send ~self ~cmd:(selector "menuTitle") ~typ:(returning (id)) -let originalText self = msg_send ~self ~cmd:(selector "originalText") ~typ:(returning (id)) -let range self = msg_send ~self ~cmd:(selector "range") ~typ:(returning (id)) +let didReplaceTextWithTarget x self = msg_send ~self ~cmd:(selector "didReplaceTextWithTarget:") ~typ:(id @-> returning void) x +let menuTitle self = msg_send ~self ~cmd:(selector "menuTitle") ~typ:(returning id) +let originalText self = msg_send ~self ~cmd:(selector "originalText") ~typ:(returning id) +let range self = msg_send ~self ~cmd:(selector "range") ~typ:(returning id) let replacementCompletionBlock self = msg_send ~self ~cmd:(selector "replacementCompletionBlock") ~typ:(returning (ptr void)) -let replacementText self = msg_send ~self ~cmd:(selector "replacementText") ~typ:(returning (id)) -let setReplacementCompletionBlock x self = msg_send ~self ~cmd:(selector "setReplacementCompletionBlock:") ~typ:(ptr void @-> returning (void)) x -let setUsageTrackingMask x self = msg_send ~self ~cmd:(selector "setUsageTrackingMask:") ~typ:(uint @-> returning (void)) x -let usageTrackingMask self = msg_send ~self ~cmd:(selector "usageTrackingMask") ~typ:(returning (uint)) \ No newline at end of file +let replacementText self = msg_send ~self ~cmd:(selector "replacementText") ~typ:(returning id) +let setReplacementCompletionBlock x self = msg_send ~self ~cmd:(selector "setReplacementCompletionBlock:") ~typ:((ptr void) @-> returning void) x +let setUsageTrackingMask x self = msg_send ~self ~cmd:(selector "setUsageTrackingMask:") ~typ:(uint @-> returning void) x +let usageTrackingMask self = msg_send ~self ~cmd:(selector "usageTrackingMask") ~typ:(returning uint) \ No newline at end of file diff --git a/uikit/UITextReplacementCandidate.ml b/uikit/UITextReplacementCandidate.ml index 13ab7388..78a2af25 100644 --- a/uikit/UITextReplacementCandidate.ml +++ b/uikit/UITextReplacementCandidate.ml @@ -5,12 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextReplacementCandidate" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextreplacementcandidate?language=objc}UITextReplacementCandidate} *) -module Class = struct - let textReplacementCandidateForTextReplacement x self = msg_send ~self ~cmd:(selector "textReplacementCandidateForTextReplacement:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UITextReplacementCandidate" -let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning (id)) -let replacement self = msg_send ~self ~cmd:(selector "replacement") ~typ:(returning (id)) \ No newline at end of file +let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) +let replacement self = msg_send ~self ~cmd:(selector "replacement") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextReplacementCandidateClass.ml b/uikit/UITextReplacementCandidateClass.ml new file mode 100644 index 00000000..3ea45a3d --- /dev/null +++ b/uikit/UITextReplacementCandidateClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextreplacementcandidate?language=objc}UITextReplacementCandidate} *) + +let textReplacementCandidateForTextReplacement x self = msg_send ~self ~cmd:(selector "textReplacementCandidateForTextReplacement:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UITextReplacementClass.ml b/uikit/UITextReplacementClass.ml new file mode 100644 index 00000000..9e02c941 --- /dev/null +++ b/uikit/UITextReplacementClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextreplacement?language=objc}UITextReplacement} *) + +let replacementWithRange x ~original ~replacement ~menuTitle self = msg_send ~self ~cmd:(selector "replacementWithRange:original:replacement:menuTitle:") ~typ:(id @-> id @-> id @-> id @-> returning id) x original replacement menuTitle \ No newline at end of file diff --git a/uikit/UITextReplacementGenerator.ml b/uikit/UITextReplacementGenerator.ml deleted file mode 100644 index 21ee8077..00000000 --- a/uikit/UITextReplacementGenerator.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextReplacementGenerator" - -let addPlaceholderForEmptyReplacements x self = msg_send ~self ~cmd:(selector "addPlaceholderForEmptyReplacements:") ~typ:(id @-> returning (void)) x -let isStringToReplaceMisspelled self = msg_send ~self ~cmd:(selector "isStringToReplaceMisspelled") ~typ:(returning (bool)) -let replacementRange self = msg_send ~self ~cmd:(selector "replacementRange") ~typ:(returning (id)) -let replacementWithText x self = msg_send ~self ~cmd:(selector "replacementWithText:") ~typ:(id @-> returning (id)) x -let replacements self = msg_send ~self ~cmd:(selector "replacements") ~typ:(returning (id)) -let setReplacementRange x self = msg_send ~self ~cmd:(selector "setReplacementRange:") ~typ:(id @-> returning (void)) x -let setStringToReplace x self = msg_send ~self ~cmd:(selector "setStringToReplace:") ~typ:(id @-> returning (void)) x -let shouldAllowString x ~intoReplacements self = msg_send ~self ~cmd:(selector "shouldAllowString:intoReplacements:") ~typ:(id @-> id @-> returning (bool)) x intoReplacements -let stringToReplace self = msg_send ~self ~cmd:(selector "stringToReplace") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UITextReplacementGeneratorForCorrections.ml b/uikit/UITextReplacementGeneratorForCorrections.ml deleted file mode 100644 index b9c6b5d0..00000000 --- a/uikit/UITextReplacementGeneratorForCorrections.ml +++ /dev/null @@ -1,34 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextReplacementGeneratorForCorrections" - -let addAutocorrectionGuessesToReplacements x self = msg_send ~self ~cmd:(selector "addAutocorrectionGuessesToReplacements:") ~typ:(id @-> returning (void)) x -let addPreviouslySuggestedAutocorrectionToReplacements x self = msg_send ~self ~cmd:(selector "addPreviouslySuggestedAutocorrectionToReplacements:") ~typ:(id @-> returning (void)) x -let addReplacementRevertingAutocorrectionToReplacements x self = msg_send ~self ~cmd:(selector "addReplacementRevertingAutocorrectionToReplacements:") ~typ:(id @-> returning (id)) x -let addSpellingGuessesForString x ~_ToReplacements self = msg_send ~self ~cmd:(selector "addSpellingGuessesForString:ToReplacements:") ~typ:(id @-> id @-> returning (void)) x _ToReplacements -let autocorrectionRecord self = msg_send ~self ~cmd:(selector "autocorrectionRecord") ~typ:(returning (id)) -let forceAutocorrectionGuesses self = msg_send ~self ~cmd:(selector "forceAutocorrectionGuesses") ~typ:(returning (bool)) -let forceHistoryReplacement self = msg_send ~self ~cmd:(selector "forceHistoryReplacement") ~typ:(returning (bool)) -let forceSpellingGuesses self = msg_send ~self ~cmd:(selector "forceSpellingGuesses") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isStringMisspelled x self = msg_send ~self ~cmd:(selector "isStringMisspelled:") ~typ:(id @-> returning (bool)) x -let isStringToReplaceMisspelled self = msg_send ~self ~cmd:(selector "isStringToReplaceMisspelled") ~typ:(returning (bool)) -let maxCountAfterAutocorrectionGuesses self = msg_send ~self ~cmd:(selector "maxCountAfterAutocorrectionGuesses") ~typ:(returning (ullong)) -let maxCountAfterSpellingGuesses self = msg_send ~self ~cmd:(selector "maxCountAfterSpellingGuesses") ~typ:(returning (ullong)) -let maxEditDistance self = msg_send ~self ~cmd:(selector "maxEditDistance") ~typ:(returning (ullong)) -let replacements self = msg_send ~self ~cmd:(selector "replacements") ~typ:(returning (id)) -let setAutocorrectionRecord x self = msg_send ~self ~cmd:(selector "setAutocorrectionRecord:") ~typ:(id @-> returning (void)) x -let setForceAutocorrectionGuesses x self = msg_send ~self ~cmd:(selector "setForceAutocorrectionGuesses:") ~typ:(bool @-> returning (void)) x -let setForceHistoryReplacement x self = msg_send ~self ~cmd:(selector "setForceHistoryReplacement:") ~typ:(bool @-> returning (void)) x -let setForceSpellingGuesses x self = msg_send ~self ~cmd:(selector "setForceSpellingGuesses:") ~typ:(bool @-> returning (void)) x -let setMaxCountAfterAutocorrectionGuesses x self = msg_send ~self ~cmd:(selector "setMaxCountAfterAutocorrectionGuesses:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setMaxCountAfterSpellingGuesses x self = msg_send ~self ~cmd:(selector "setMaxCountAfterSpellingGuesses:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setMaxEditDistance x self = msg_send ~self ~cmd:(selector "setMaxEditDistance:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setTextChecker x self = msg_send ~self ~cmd:(selector "setTextChecker:") ~typ:(id @-> returning (void)) x -let textChecker self = msg_send ~self ~cmd:(selector "textChecker") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UITextReplacementGeneratorForDictation.ml b/uikit/UITextReplacementGeneratorForDictation.ml deleted file mode 100644 index f6f8fcf4..00000000 --- a/uikit/UITextReplacementGeneratorForDictation.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextReplacementGeneratorForDictation" - -let alternatives self = msg_send ~self ~cmd:(selector "alternatives") ~typ:(returning (id)) -let initWithAlternatives x ~stringToReplace ~replacementRange self = msg_send ~self ~cmd:(selector "initWithAlternatives:stringToReplace:replacementRange:") ~typ:(id @-> id @-> id @-> returning (id)) x stringToReplace replacementRange -let replacements self = msg_send ~self ~cmd:(selector "replacements") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UITextSelection.ml b/uikit/UITextSelection.ml index ef3b9846..01028e40 100644 --- a/uikit/UITextSelection.ml +++ b/uikit/UITextSelection.ml @@ -5,59 +5,63 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextSelection" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextselection?language=objc}UITextSelection} *) -let aggressivelyExpandSelectionToSmartSelectionContainingCaretSelection self = msg_send ~self ~cmd:(selector "aggressivelyExpandSelectionToSmartSelectionContainingCaretSelection") ~typ:(returning (void)) -let aggressivelyExpandSelectionToWordContainingCaretSelection self = msg_send ~self ~cmd:(selector "aggressivelyExpandSelectionToWordContainingCaretSelection") ~typ:(returning (void)) -let alterSelection x ~granularity self = msg_send ~self ~cmd:(selector "alterSelection:granularity:") ~typ:(CGPoint.t @-> llong @-> returning (void)) x (LLong.of_int granularity) -let alterSelectionGranularity x self = msg_send ~self ~cmd:(selector "alterSelectionGranularity:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let base self = msg_send ~self ~cmd:(selector "base") ~typ:(returning (id)) -let caretRect self = msg_send_stret ~self ~cmd:(selector "caretRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let caretRectAtBeginOfDocument self = msg_send_stret ~self ~cmd:(selector "caretRectAtBeginOfDocument") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let caretRectAtEndOfDocument self = msg_send_stret ~self ~cmd:(selector "caretRectAtEndOfDocument") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let clearRangedSelectionInitialExtent self = msg_send ~self ~cmd:(selector "clearRangedSelectionInitialExtent") ~typ:(returning (void)) -let clearSelection self = msg_send ~self ~cmd:(selector "clearSelection") ~typ:(returning (void)) -let clipPoint x ~inRect self = msg_send_stret ~self ~cmd:(selector "clipPoint:inRect:") ~typ:(CGPoint.t @-> CGRect.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x inRect -let closestCaretRectForPoint x ~inSelection self = msg_send_stret ~self ~cmd:(selector "closestCaretRectForPoint:inSelection:") ~typ:(CGPoint.t @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x inSelection -let collapseSelection self = msg_send ~self ~cmd:(selector "collapseSelection") ~typ:(returning (void)) -let commit self = msg_send ~self ~cmd:(selector "commit") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let document self = msg_send ~self ~cmd:(selector "document") ~typ:(returning (id)) -let extendSelectionToPoint x self = msg_send ~self ~cmd:(selector "extendSelectionToPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let granularity self = msg_send ~self ~cmd:(selector "granularity") ~typ:(returning (llong)) -let hasEditableSelection self = msg_send ~self ~cmd:(selector "hasEditableSelection") ~typ:(returning (bool)) -let increaseSelectionGranularity self = msg_send ~self ~cmd:(selector "increaseSelectionGranularity") ~typ:(returning (void)) -let initWithDocument x self = msg_send ~self ~cmd:(selector "initWithDocument:") ~typ:(id @-> returning (id)) x -let initialExtent self = msg_send ~self ~cmd:(selector "initialExtent") ~typ:(returning (id)) -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let isCommitting self = msg_send ~self ~cmd:(selector "isCommitting") ~typ:(returning (bool)) -let isRangedSelectionSpanningDocument self = msg_send ~self ~cmd:(selector "isRangedSelectionSpanningDocument") ~typ:(returning (bool)) -let moveCaretToBoundaryOfWhitespaceOrLine self = msg_send ~self ~cmd:(selector "moveCaretToBoundaryOfWhitespaceOrLine") ~typ:(returning (void)) -let offsetInMarkedText self = msg_send ~self ~cmd:(selector "offsetInMarkedText") ~typ:(returning (ullong)) -let pointAtEndOfLine x self = msg_send ~self ~cmd:(selector "pointAtEndOfLine:") ~typ:(CGPoint.t @-> returning (bool)) x -let pointAtStartOfLine x self = msg_send ~self ~cmd:(selector "pointAtStartOfLine:") ~typ:(CGPoint.t @-> returning (bool)) x -let selectAll self = msg_send ~self ~cmd:(selector "selectAll") ~typ:(returning (void)) -let selectedRange self = msg_send ~self ~cmd:(selector "selectedRange") ~typ:(returning (id)) -let selectedText self = msg_send ~self ~cmd:(selector "selectedText") ~typ:(returning (id)) -let selectionChanged self = msg_send ~self ~cmd:(selector "selectionChanged") ~typ:(returning (void)) -let selectionRects self = msg_send ~self ~cmd:(selector "selectionRects") ~typ:(returning (id)) -let setBase x self = msg_send ~self ~cmd:(selector "setBase:") ~typ:(id @-> returning (void)) x -let setGranularRangedSelectionWithExtentPoint x self = msg_send ~self ~cmd:(selector "setGranularRangedSelectionWithExtentPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setGranularity x self = msg_send ~self ~cmd:(selector "setGranularity:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setHybridSelectionWithPoint x self = msg_send ~self ~cmd:(selector "setHybridSelectionWithPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setInitialExtent x self = msg_send ~self ~cmd:(selector "setInitialExtent:") ~typ:(id @-> returning (void)) x -let setRangedSelectionBaseToCurrentSelection self = msg_send ~self ~cmd:(selector "setRangedSelectionBaseToCurrentSelection") ~typ:(returning (void)) -let setRangedSelectionBaseToCurrentSelectionEnd self = msg_send ~self ~cmd:(selector "setRangedSelectionBaseToCurrentSelectionEnd") ~typ:(returning (void)) -let setRangedSelectionBaseToCurrentSelectionStart self = msg_send ~self ~cmd:(selector "setRangedSelectionBaseToCurrentSelectionStart") ~typ:(returning (void)) -let setRangedSelectionExtentPoint x ~baseIsStart self = msg_send ~self ~cmd:(selector "setRangedSelectionExtentPoint:baseIsStart:") ~typ:(CGPoint.t @-> bool @-> returning (bool)) x baseIsStart -let setRangedSelectionExtentPoint' x ~baseIsStart ~allowFlipping self = msg_send ~self ~cmd:(selector "setRangedSelectionExtentPoint:baseIsStart:allowFlipping:") ~typ:(CGPoint.t @-> bool @-> bool @-> returning (bool)) x baseIsStart allowFlipping -let setRangedSelectionInitialExtentToCurrentSelectionEnd self = msg_send ~self ~cmd:(selector "setRangedSelectionInitialExtentToCurrentSelectionEnd") ~typ:(returning (void)) -let setRangedSelectionInitialExtentToCurrentSelectionStart self = msg_send ~self ~cmd:(selector "setRangedSelectionInitialExtentToCurrentSelectionStart") ~typ:(returning (void)) -let setRangedSelectionWithExtentPoint x self = msg_send ~self ~cmd:(selector "setRangedSelectionWithExtentPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setSelectedRange x self = msg_send ~self ~cmd:(selector "setSelectedRange:") ~typ:(id @-> returning (void)) x -let setSelectionWithFirstPoint x ~secondPoint self = msg_send ~self ~cmd:(selector "setSelectionWithFirstPoint:secondPoint:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (void)) x secondPoint -let setSelectionWithPoint x self = msg_send ~self ~cmd:(selector "setSelectionWithPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let smartExtendRangedSelection x ~downstream self = msg_send ~self ~cmd:(selector "smartExtendRangedSelection:downstream:") ~typ:(int @-> bool @-> returning (void)) x downstream -let willSelectionChange self = msg_send ~self ~cmd:(selector "willSelectionChange") ~typ:(returning (bool)) -let wordContainingCaretSelection self = msg_send ~self ~cmd:(selector "wordContainingCaretSelection") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITextSelection" + +let aggressivelyExpandSelectionToSmartSelectionContainingCaretSelection self = msg_send ~self ~cmd:(selector "aggressivelyExpandSelectionToSmartSelectionContainingCaretSelection") ~typ:(returning void) +let aggressivelyExpandSelectionToWordContainingCaretSelection self = msg_send ~self ~cmd:(selector "aggressivelyExpandSelectionToWordContainingCaretSelection") ~typ:(returning void) +let alterSelection x ~granularity self = msg_send ~self ~cmd:(selector "alterSelection:granularity:") ~typ:(CGPoint.t @-> llong @-> returning void) x (LLong.of_int granularity) +let alterSelectionGranularity x self = msg_send ~self ~cmd:(selector "alterSelectionGranularity:") ~typ:(llong @-> returning void) (LLong.of_int x) +let base self = msg_send ~self ~cmd:(selector "base") ~typ:(returning id) +let caretRect self = msg_send ~self ~cmd:(selector "caretRect") ~typ:(returning CGRect.t) +let caretRectAtBeginOfDocument self = msg_send ~self ~cmd:(selector "caretRectAtBeginOfDocument") ~typ:(returning CGRect.t) +let caretRectAtEndOfDocument self = msg_send ~self ~cmd:(selector "caretRectAtEndOfDocument") ~typ:(returning CGRect.t) +let clearRangedSelectionInitialExtent self = msg_send ~self ~cmd:(selector "clearRangedSelectionInitialExtent") ~typ:(returning void) +let clearSelection self = msg_send ~self ~cmd:(selector "clearSelection") ~typ:(returning void) +let clipPoint x ~inRect self = msg_send ~self ~cmd:(selector "clipPoint:inRect:") ~typ:(CGPoint.t @-> CGRect.t @-> returning CGPoint.t) x inRect +let closestCaretRectForPoint x ~inSelection self = msg_send ~self ~cmd:(selector "closestCaretRectForPoint:inSelection:") ~typ:(CGPoint.t @-> bool @-> returning CGRect.t) x inSelection +let collapseSelection self = msg_send ~self ~cmd:(selector "collapseSelection") ~typ:(returning void) +let commit self = msg_send ~self ~cmd:(selector "commit") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let document self = msg_send ~self ~cmd:(selector "document") ~typ:(returning id) +let extendSelectionToPoint x self = msg_send ~self ~cmd:(selector "extendSelectionToPoint:") ~typ:(CGPoint.t @-> returning void) x +let granularity self = msg_send ~self ~cmd:(selector "granularity") ~typ:(returning llong) +let hasEditableSelection self = msg_send ~self ~cmd:(selector "hasEditableSelection") ~typ:(returning bool) +let increaseSelectionGranularity self = msg_send ~self ~cmd:(selector "increaseSelectionGranularity") ~typ:(returning void) +let initWithDocument x self = msg_send ~self ~cmd:(selector "initWithDocument:") ~typ:(id @-> returning id) x +let initialExtent self = msg_send ~self ~cmd:(selector "initialExtent") ~typ:(returning id) +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let isCommitting self = msg_send ~self ~cmd:(selector "isCommitting") ~typ:(returning bool) +let isRangedSelectionSpanningDocument self = msg_send ~self ~cmd:(selector "isRangedSelectionSpanningDocument") ~typ:(returning bool) +let moveCaretToBoundaryOfWhitespaceOrLine self = msg_send ~self ~cmd:(selector "moveCaretToBoundaryOfWhitespaceOrLine") ~typ:(returning void) +let offsetInMarkedText self = msg_send ~self ~cmd:(selector "offsetInMarkedText") ~typ:(returning ullong) +let pointAtEndOfLine x self = msg_send ~self ~cmd:(selector "pointAtEndOfLine:") ~typ:(CGPoint.t @-> returning bool) x +let pointAtStartOfLine x self = msg_send ~self ~cmd:(selector "pointAtStartOfLine:") ~typ:(CGPoint.t @-> returning bool) x +let selectAll self = msg_send ~self ~cmd:(selector "selectAll") ~typ:(returning void) +let selectedRange self = msg_send ~self ~cmd:(selector "selectedRange") ~typ:(returning id) +let selectedText self = msg_send ~self ~cmd:(selector "selectedText") ~typ:(returning id) +let selectionChanged self = msg_send ~self ~cmd:(selector "selectionChanged") ~typ:(returning void) +let selectionRects self = msg_send ~self ~cmd:(selector "selectionRects") ~typ:(returning id) +let setBase x self = msg_send ~self ~cmd:(selector "setBase:") ~typ:(id @-> returning void) x +let setGranularRangedSelectionWithExtentPoint x self = msg_send ~self ~cmd:(selector "setGranularRangedSelectionWithExtentPoint:") ~typ:(CGPoint.t @-> returning void) x +let setGranularity x self = msg_send ~self ~cmd:(selector "setGranularity:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setHybridSelectionWithPoint x self = msg_send ~self ~cmd:(selector "setHybridSelectionWithPoint:") ~typ:(CGPoint.t @-> returning void) x +let setInitialExtent x self = msg_send ~self ~cmd:(selector "setInitialExtent:") ~typ:(id @-> returning void) x +let setRangedSelectionBaseToCurrentSelection self = msg_send ~self ~cmd:(selector "setRangedSelectionBaseToCurrentSelection") ~typ:(returning void) +let setRangedSelectionBaseToCurrentSelectionEnd self = msg_send ~self ~cmd:(selector "setRangedSelectionBaseToCurrentSelectionEnd") ~typ:(returning void) +let setRangedSelectionBaseToCurrentSelectionStart self = msg_send ~self ~cmd:(selector "setRangedSelectionBaseToCurrentSelectionStart") ~typ:(returning void) +let setRangedSelectionExtentPoint x ~baseIsStart self = msg_send ~self ~cmd:(selector "setRangedSelectionExtentPoint:baseIsStart:") ~typ:(CGPoint.t @-> bool @-> returning bool) x baseIsStart +let setRangedSelectionExtentPoint' x ~baseIsStart ~allowFlipping self = msg_send ~self ~cmd:(selector "setRangedSelectionExtentPoint:baseIsStart:allowFlipping:") ~typ:(CGPoint.t @-> bool @-> bool @-> returning bool) x baseIsStart allowFlipping +let setRangedSelectionInitialExtentToCurrentSelectionEnd self = msg_send ~self ~cmd:(selector "setRangedSelectionInitialExtentToCurrentSelectionEnd") ~typ:(returning void) +let setRangedSelectionInitialExtentToCurrentSelectionStart self = msg_send ~self ~cmd:(selector "setRangedSelectionInitialExtentToCurrentSelectionStart") ~typ:(returning void) +let setRangedSelectionWithExtentPoint x self = msg_send ~self ~cmd:(selector "setRangedSelectionWithExtentPoint:") ~typ:(CGPoint.t @-> returning void) x +let setSelectedRange x self = msg_send ~self ~cmd:(selector "setSelectedRange:") ~typ:(id @-> returning void) x +let setSelectionWithFirstPoint x ~secondPoint self = msg_send ~self ~cmd:(selector "setSelectionWithFirstPoint:secondPoint:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning void) x secondPoint +let setSelectionWithPoint x self = msg_send ~self ~cmd:(selector "setSelectionWithPoint:") ~typ:(CGPoint.t @-> returning void) x +let smartExtendRangedSelection x ~downstream self = msg_send ~self ~cmd:(selector "smartExtendRangedSelection:downstream:") ~typ:(int @-> bool @-> returning void) x downstream +let willSelectionChange self = msg_send ~self ~cmd:(selector "willSelectionChange") ~typ:(returning bool) +let wordContainingCaretSelection self = msg_send ~self ~cmd:(selector "wordContainingCaretSelection") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextSelectionGrabberSuppressionAssertion.ml b/uikit/UITextSelectionGrabberSuppressionAssertion.ml deleted file mode 100644 index d57097c2..00000000 --- a/uikit/UITextSelectionGrabberSuppressionAssertion.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextSelectionGrabberSuppressionAssertion" - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithSelectionView x self = msg_send ~self ~cmd:(selector "initWithSelectionView:") ~typ:(id @-> returning (id)) x -let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning (id)) -let setSelectionView x self = msg_send ~self ~cmd:(selector "setSelectionView:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UITextSelectionInteraction.ml b/uikit/UITextSelectionInteraction.ml index d2131d62..ee3adf07 100644 --- a/uikit/UITextSelectionInteraction.ml +++ b/uikit/UITextSelectionInteraction.ml @@ -5,25 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextSelectionInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextselectioninteraction?language=objc}UITextSelectionInteraction} *) -let confirmMarkedText x self = msg_send ~self ~cmd:(selector "confirmMarkedText:") ~typ:(id @-> returning (void)) x -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let didUpdateSelectionWithGesture x self = msg_send ~self ~cmd:(selector "didUpdateSelectionWithGesture:") ~typ:(id @-> returning (void)) x -let finishSetup self = msg_send ~self ~cmd:(selector "finishSetup") ~typ:(returning (void)) -let gestureRecognizer x ~shouldBeRequiredToFailByGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldBeRequiredToFailByGestureRecognizer -let gestureRecognizer' x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRecognizeSimultaneouslyWithGestureRecognizer -let handOffGranularity self = msg_send ~self ~cmd:(selector "handOffGranularity") ~typ:(returning (llong)) -let initWithMode x self = msg_send ~self ~cmd:(selector "initWithMode:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let initWithMode' x ~indirect self = msg_send ~self ~cmd:(selector "initWithMode:indirect:") ~typ:(llong @-> bool @-> returning (id)) (LLong.of_int x) indirect -let oneFingerTapSelectsAll x self = msg_send ~self ~cmd:(selector "oneFingerTapSelectsAll:") ~typ:(id @-> returning (void)) x -let setHybridSelectionWithPoint x self = msg_send ~self ~cmd:(selector "setHybridSelectionWithPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let shouldHandleOneFingerTapInUneditable x self = msg_send ~self ~cmd:(selector "shouldHandleOneFingerTapInUneditable:") ~typ:(id @-> returning (bool)) x -let tapAndAHalf x self = msg_send ~self ~cmd:(selector "tapAndAHalf:") ~typ:(id @-> returning (void)) x -let tappedToPositionCursorWithGesture x ~atPoint ~granularity ~completionHandler self = msg_send ~self ~cmd:(selector "tappedToPositionCursorWithGesture:atPoint:granularity:completionHandler:") ~typ:(id @-> CGPoint.t @-> llong @-> ptr void @-> returning (void)) x atPoint (LLong.of_int granularity) completionHandler -let tappedToSelectTextWithGesture x ~atPoint ~granularity ~completionHandler self = msg_send ~self ~cmd:(selector "tappedToSelectTextWithGesture:atPoint:granularity:completionHandler:") ~typ:(id @-> CGPoint.t @-> llong @-> ptr void @-> returning (void)) x atPoint (LLong.of_int granularity) completionHandler -let tappedToUpdateSelectionWithGesture x ~atPoint ~granularity ~completionHandler self = msg_send ~self ~cmd:(selector "tappedToUpdateSelectionWithGesture:atPoint:granularity:completionHandler:") ~typ:(id @-> CGPoint.t @-> llong @-> ptr void @-> returning (void)) x atPoint (LLong.of_int granularity) completionHandler -let toggleSelectionCommands self = msg_send ~self ~cmd:(selector "toggleSelectionCommands") ~typ:(returning (void)) -let twoFingerRangedSelectGesture x self = msg_send ~self ~cmd:(selector "twoFingerRangedSelectGesture:") ~typ:(id @-> returning (void)) x -let willUpdateSelectionWithGesture x self = msg_send ~self ~cmd:(selector "willUpdateSelectionWithGesture:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UITextSelectionInteraction" + +let confirmMarkedText x self = msg_send ~self ~cmd:(selector "confirmMarkedText:") ~typ:(id @-> returning void) x +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let didUpdateSelectionWithGesture x self = msg_send ~self ~cmd:(selector "didUpdateSelectionWithGesture:") ~typ:(id @-> returning void) x +let finishSetup self = msg_send ~self ~cmd:(selector "finishSetup") ~typ:(returning void) +let gestureRecognizer x ~shouldBeRequiredToFailByGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldBeRequiredToFailByGestureRecognizer +let gestureRecognizer' x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldRecognizeSimultaneouslyWithGestureRecognizer +let handOffGranularity self = msg_send ~self ~cmd:(selector "handOffGranularity") ~typ:(returning llong) +let initWithMode x self = msg_send ~self ~cmd:(selector "initWithMode:") ~typ:(llong @-> returning id) (LLong.of_int x) +let initWithMode' x ~indirect self = msg_send ~self ~cmd:(selector "initWithMode:indirect:") ~typ:(llong @-> bool @-> returning id) (LLong.of_int x) indirect +let oneFingerTapSelectsAll x self = msg_send ~self ~cmd:(selector "oneFingerTapSelectsAll:") ~typ:(id @-> returning void) x +let setHybridSelectionWithPoint x self = msg_send ~self ~cmd:(selector "setHybridSelectionWithPoint:") ~typ:(CGPoint.t @-> returning void) x +let shouldHandleOneFingerTapInUneditable x self = msg_send ~self ~cmd:(selector "shouldHandleOneFingerTapInUneditable:") ~typ:(id @-> returning bool) x +let tapAndAHalf x self = msg_send ~self ~cmd:(selector "tapAndAHalf:") ~typ:(id @-> returning void) x +let tappedToPositionCursorWithGesture x ~atPoint ~granularity ~completionHandler self = msg_send ~self ~cmd:(selector "tappedToPositionCursorWithGesture:atPoint:granularity:completionHandler:") ~typ:(id @-> CGPoint.t @-> llong @-> (ptr void) @-> returning void) x atPoint (LLong.of_int granularity) completionHandler +let tappedToSelectTextWithGesture x ~atPoint ~granularity ~completionHandler self = msg_send ~self ~cmd:(selector "tappedToSelectTextWithGesture:atPoint:granularity:completionHandler:") ~typ:(id @-> CGPoint.t @-> llong @-> (ptr void) @-> returning void) x atPoint (LLong.of_int granularity) completionHandler +let tappedToUpdateSelectionWithGesture x ~atPoint ~granularity ~completionHandler self = msg_send ~self ~cmd:(selector "tappedToUpdateSelectionWithGesture:atPoint:granularity:completionHandler:") ~typ:(id @-> CGPoint.t @-> llong @-> (ptr void) @-> returning void) x atPoint (LLong.of_int granularity) completionHandler +let toggleSelectionCommands self = msg_send ~self ~cmd:(selector "toggleSelectionCommands") ~typ:(returning void) +let twoFingerRangedSelectGesture x self = msg_send ~self ~cmd:(selector "twoFingerRangedSelectGesture:") ~typ:(id @-> returning void) x +let willUpdateSelectionWithGesture x self = msg_send ~self ~cmd:(selector "willUpdateSelectionWithGesture:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextSelectionRect.ml b/uikit/UITextSelectionRect.ml index 7401c2fe..0a44a4b5 100644 --- a/uikit/UITextSelectionRect.ml +++ b/uikit/UITextSelectionRect.ml @@ -5,25 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextSelectionRect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextselectionrect?language=objc}UITextSelectionRect} *) -module C = struct - let endCustomSelectionPathFromRects x self = msg_send ~self ~cmd:(selector "endCustomSelectionPathFromRects:") ~typ:(id @-> returning (id)) x - let endEdgeFromRects x self = msg_send_stret ~self ~cmd:(selector "endEdgeFromRects:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x - let endIsHorizontal x self = msg_send ~self ~cmd:(selector "endIsHorizontal:") ~typ:(id @-> returning (bool)) x - let endRectFromRects x self = msg_send ~self ~cmd:(selector "endRectFromRects:") ~typ:(id @-> returning (id)) x - let startCustomSelectionPathFromRects x self = msg_send ~self ~cmd:(selector "startCustomSelectionPathFromRects:") ~typ:(id @-> returning (id)) x - let startEdgeFromRects x self = msg_send_stret ~self ~cmd:(selector "startEdgeFromRects:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x - let startIsHorizontal x self = msg_send ~self ~cmd:(selector "startIsHorizontal:") ~typ:(id @-> returning (bool)) x - let startRectFromRects x self = msg_send ~self ~cmd:(selector "startRectFromRects:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UITextSelectionRect" -let containsEnd self = msg_send ~self ~cmd:(selector "containsEnd") ~typ:(returning (bool)) -let containsStart self = msg_send ~self ~cmd:(selector "containsStart") ~typ:(returning (bool)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isVertical self = msg_send ~self ~cmd:(selector "isVertical") ~typ:(returning (bool)) -let range self = msg_send ~self ~cmd:(selector "range") ~typ:(returning (id)) -let rect self = msg_send_stret ~self ~cmd:(selector "rect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let writingDirection self = msg_send ~self ~cmd:(selector "writingDirection") ~typ:(returning (llong)) \ No newline at end of file +let containsEnd self = msg_send ~self ~cmd:(selector "containsEnd") ~typ:(returning bool) +let containsStart self = msg_send ~self ~cmd:(selector "containsStart") ~typ:(returning bool) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isVertical self = msg_send ~self ~cmd:(selector "isVertical") ~typ:(returning bool) +let range self = msg_send ~self ~cmd:(selector "range") ~typ:(returning id) +let rect self = msg_send ~self ~cmd:(selector "rect") ~typ:(returning CGRect.t) +let writingDirection self = msg_send ~self ~cmd:(selector "writingDirection") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UITextSelectionRectClass.ml b/uikit/UITextSelectionRectClass.ml new file mode 100644 index 00000000..58ada71f --- /dev/null +++ b/uikit/UITextSelectionRectClass.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextselectionrect?language=objc}UITextSelectionRect} *) + +let endCustomSelectionPathFromRects x self = msg_send ~self ~cmd:(selector "endCustomSelectionPathFromRects:") ~typ:(id @-> returning id) x +let endEdgeFromRects x self = msg_send ~self ~cmd:(selector "endEdgeFromRects:") ~typ:(id @-> returning CGRect.t) x +let endIsHorizontal x self = msg_send ~self ~cmd:(selector "endIsHorizontal:") ~typ:(id @-> returning bool) x +let endRectFromRects x self = msg_send ~self ~cmd:(selector "endRectFromRects:") ~typ:(id @-> returning id) x +let startCustomSelectionPathFromRects x self = msg_send ~self ~cmd:(selector "startCustomSelectionPathFromRects:") ~typ:(id @-> returning id) x +let startEdgeFromRects x self = msg_send ~self ~cmd:(selector "startEdgeFromRects:") ~typ:(id @-> returning CGRect.t) x +let startIsHorizontal x self = msg_send ~self ~cmd:(selector "startIsHorizontal:") ~typ:(id @-> returning bool) x +let startRectFromRects x self = msg_send ~self ~cmd:(selector "startRectFromRects:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UITextSelectionRectCustomHandleInfo.ml b/uikit/UITextSelectionRectCustomHandleInfo.ml index 5473dada..c1734962 100644 --- a/uikit/UITextSelectionRectCustomHandleInfo.ml +++ b/uikit/UITextSelectionRectCustomHandleInfo.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextSelectionRectCustomHandleInfo" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextselectionrectcustomhandleinfo?language=objc}UITextSelectionRectCustomHandleInfo} *) -let bottomLeft self = msg_send_stret ~self ~cmd:(selector "bottomLeft") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let bottomRight self = msg_send_stret ~self ~cmd:(selector "bottomRight") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let topLeft self = msg_send_stret ~self ~cmd:(selector "topLeft") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let topRight self = msg_send_stret ~self ~cmd:(selector "topRight") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UITextSelectionRectCustomHandleInfo" + +let bottomLeft self = msg_send ~self ~cmd:(selector "bottomLeft") ~typ:(returning CGPoint.t) +let bottomRight self = msg_send ~self ~cmd:(selector "bottomRight") ~typ:(returning CGPoint.t) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let topLeft self = msg_send ~self ~cmd:(selector "topLeft") ~typ:(returning CGPoint.t) +let topRight self = msg_send ~self ~cmd:(selector "topRight") ~typ:(returning CGPoint.t) \ No newline at end of file diff --git a/uikit/UITextSelectionRectImpl.ml b/uikit/UITextSelectionRectImpl.ml deleted file mode 100644 index 00efc493..00000000 --- a/uikit/UITextSelectionRectImpl.ml +++ /dev/null @@ -1,25 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextSelectionRectImpl" - -module C = struct - let rectWithWebRect x self = msg_send ~self ~cmd:(selector "rectWithWebRect:") ~typ:(id @-> returning (id)) x - let rectsWithWebRects x self = msg_send ~self ~cmd:(selector "rectsWithWebRects:") ~typ:(id @-> returning (id)) x -end - -let containsEnd self = msg_send ~self ~cmd:(selector "containsEnd") ~typ:(returning (bool)) -let containsStart self = msg_send ~self ~cmd:(selector "containsStart") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithWebRect x self = msg_send ~self ~cmd:(selector "initWithWebRect:") ~typ:(id @-> returning (id)) x -let isVertical self = msg_send ~self ~cmd:(selector "isVertical") ~typ:(returning (bool)) -let range self = msg_send ~self ~cmd:(selector "range") ~typ:(returning (id)) -let rect self = msg_send_stret ~self ~cmd:(selector "rect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let setWebRect x self = msg_send ~self ~cmd:(selector "setWebRect:") ~typ:(id @-> returning (void)) x -let webRect self = msg_send ~self ~cmd:(selector "webRect") ~typ:(returning (id)) -let writingDirection self = msg_send ~self ~cmd:(selector "writingDirection") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit/UITextSelectionRectView.ml b/uikit/UITextSelectionRectView.ml index 8ac7f7a1..51542dd0 100644 --- a/uikit/UITextSelectionRectView.ml +++ b/uikit/UITextSelectionRectView.ml @@ -5,22 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextSelectionRectView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextselectionrectview?language=objc}UITextSelectionRectView} *) -module C = struct - let layerClass self = msg_send ~self ~cmd:(selector "layerClass") ~typ:(returning (_Class)) -end +let self = get_class "UITextSelectionRectView" -let hasPath self = msg_send ~self ~cmd:(selector "hasPath") ~typ:(returning (bool)) -let path self = msg_send ~self ~cmd:(selector "path") ~typ:(returning (id)) -let pathLayer self = msg_send ~self ~cmd:(selector "pathLayer") ~typ:(returning (id)) -let selectionBorderColor self = msg_send ~self ~cmd:(selector "selectionBorderColor") ~typ:(returning (id)) -let selectionBorderWidth self = msg_send ~self ~cmd:(selector "selectionBorderWidth") ~typ:(returning (double)) -let selectionColor self = msg_send ~self ~cmd:(selector "selectionColor") ~typ:(returning (id)) -let selectionCornerRadius self = msg_send ~self ~cmd:(selector "selectionCornerRadius") ~typ:(returning (double)) -let setPath x self = msg_send ~self ~cmd:(selector "setPath:") ~typ:(id @-> returning (void)) x -let setSelectionBorderColor x self = msg_send ~self ~cmd:(selector "setSelectionBorderColor:") ~typ:(id @-> returning (void)) x -let setSelectionBorderWidth x self = msg_send ~self ~cmd:(selector "setSelectionBorderWidth:") ~typ:(double @-> returning (void)) x -let setSelectionColor x self = msg_send ~self ~cmd:(selector "setSelectionColor:") ~typ:(id @-> returning (void)) x -let setSelectionCornerRadius x self = msg_send ~self ~cmd:(selector "setSelectionCornerRadius:") ~typ:(double @-> returning (void)) x \ No newline at end of file +let hasPath self = msg_send ~self ~cmd:(selector "hasPath") ~typ:(returning bool) +let path self = msg_send ~self ~cmd:(selector "path") ~typ:(returning id) +let pathLayer self = msg_send ~self ~cmd:(selector "pathLayer") ~typ:(returning id) +let selectionBorderColor self = msg_send ~self ~cmd:(selector "selectionBorderColor") ~typ:(returning id) +let selectionBorderWidth self = msg_send ~self ~cmd:(selector "selectionBorderWidth") ~typ:(returning double) +let selectionColor self = msg_send ~self ~cmd:(selector "selectionColor") ~typ:(returning id) +let selectionCornerRadius self = msg_send ~self ~cmd:(selector "selectionCornerRadius") ~typ:(returning double) +let setPath x self = msg_send ~self ~cmd:(selector "setPath:") ~typ:(id @-> returning void) x +let setSelectionBorderColor x self = msg_send ~self ~cmd:(selector "setSelectionBorderColor:") ~typ:(id @-> returning void) x +let setSelectionBorderWidth x self = msg_send ~self ~cmd:(selector "setSelectionBorderWidth:") ~typ:(double @-> returning void) x +let setSelectionColor x self = msg_send ~self ~cmd:(selector "setSelectionColor:") ~typ:(id @-> returning void) x +let setSelectionCornerRadius x self = msg_send ~self ~cmd:(selector "setSelectionCornerRadius:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextSelectionRectViewClass.ml b/uikit/UITextSelectionRectViewClass.ml new file mode 100644 index 00000000..fe957ab1 --- /dev/null +++ b/uikit/UITextSelectionRectViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextselectionrectview?language=objc}UITextSelectionRectView} *) + +let layerClass self = msg_send ~self ~cmd:(selector "layerClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit/UITextSelectionView.ml b/uikit/UITextSelectionView.ml index 11ff351c..29972706 100644 --- a/uikit/UITextSelectionView.ml +++ b/uikit/UITextSelectionView.ml @@ -5,137 +5,141 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextSelectionView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextselectionview?language=objc}UITextSelectionView} *) -let activate self = msg_send ~self ~cmd:(selector "activate") ~typ:(returning (void)) -let activeCaret self = msg_send ~self ~cmd:(selector "activeCaret") ~typ:(returning (bool)) -let affectedByScrollerNotification x self = msg_send ~self ~cmd:(selector "affectedByScrollerNotification:") ~typ:(id @-> returning (bool)) x -let animateBoxShrinkOn x self = msg_send ~self ~cmd:(selector "animateBoxShrinkOn:") ~typ:(id @-> returning (void)) x -let animateCaret x ~toPosition ~withSize self = msg_send ~self ~cmd:(selector "animateCaret:toPosition:withSize:") ~typ:(id @-> CGPoint.t @-> CGSize.t @-> returning (void)) x toPosition withSize -let animateExpanderOn x self = msg_send ~self ~cmd:(selector "animateExpanderOn:") ~typ:(id @-> returning (void)) x -let animatePulsingDirectCaret x self = msg_send ~self ~cmd:(selector "animatePulsingDirectCaret:") ~typ:(id @-> returning (void)) x -let animatePulsingIndirectCaret x self = msg_send ~self ~cmd:(selector "animatePulsingIndirectCaret:") ~typ:(id @-> returning (void)) x -let appearOrFadeIfNecessary self = msg_send ~self ~cmd:(selector "appearOrFadeIfNecessary") ~typ:(returning (void)) -let beginFloatingCaretView self = msg_send ~self ~cmd:(selector "beginFloatingCaretView") ~typ:(returning (void)) -let beginFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "beginFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let calculateReplacementsWithGenerator x ~andShowAfterDelay self = msg_send ~self ~cmd:(selector "calculateReplacementsWithGenerator:andShowAfterDelay:") ~typ:(id @-> double @-> returning (void)) x andShowAfterDelay -let cancelDelayedCommandRequests self = msg_send ~self ~cmd:(selector "cancelDelayedCommandRequests") ~typ:(returning (void)) -let cancelRevealHighlightMode self = msg_send ~self ~cmd:(selector "cancelRevealHighlightMode") ~typ:(returning (void)) -let caretBlinks self = msg_send ~self ~cmd:(selector "caretBlinks") ~typ:(returning (bool)) -let caretView self = msg_send ~self ~cmd:(selector "caretView") ~typ:(returning (id)) -let caretViewColor self = msg_send ~self ~cmd:(selector "caretViewColor") ~typ:(returning (id)) -let caretVisible self = msg_send ~self ~cmd:(selector "caretVisible") ~typ:(returning (bool)) -let clearCaret self = msg_send ~self ~cmd:(selector "clearCaret") ~typ:(returning (void)) -let clearRangeAnimated x self = msg_send ~self ~cmd:(selector "clearRangeAnimated:") ~typ:(bool @-> returning (void)) x -let clippedTargetRect x self = msg_send_stret ~self ~cmd:(selector "clippedTargetRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let configureForHighlightMode self = msg_send ~self ~cmd:(selector "configureForHighlightMode") ~typ:(returning (void)) -let configureForPencilDeletionPreviewMode self = msg_send ~self ~cmd:(selector "configureForPencilDeletionPreviewMode") ~typ:(returning (void)) -let configureForPencilHighlightMode self = msg_send ~self ~cmd:(selector "configureForPencilHighlightMode") ~typ:(returning (void)) -let configureForReplacementMode self = msg_send ~self ~cmd:(selector "configureForReplacementMode") ~typ:(returning (void)) -let configureForRevealHighlightMode self = msg_send ~self ~cmd:(selector "configureForRevealHighlightMode") ~typ:(returning (void)) -let configureForSelectionMode self = msg_send ~self ~cmd:(selector "configureForSelectionMode") ~typ:(returning (void)) -let deactivate self = msg_send ~self ~cmd:(selector "deactivate") ~typ:(returning (void)) -let deactivateAndCollapseSelection x self = msg_send ~self ~cmd:(selector "deactivateAndCollapseSelection:") ~typ:(bool @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deferredUpdateSelectionCommands self = msg_send ~self ~cmd:(selector "deferredUpdateSelectionCommands") ~typ:(returning (void)) -let deferredUpdateSelectionRects self = msg_send ~self ~cmd:(selector "deferredUpdateSelectionRects") ~typ:(returning (void)) -let detach self = msg_send ~self ~cmd:(selector "detach") ~typ:(returning (void)) -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let didRotate x self = msg_send ~self ~cmd:(selector "didRotate:") ~typ:(id @-> returning (void)) x -let didSuspend x self = msg_send ~self ~cmd:(selector "didSuspend:") ~typ:(id @-> returning (void)) x -let doneMagnifying self = msg_send ~self ~cmd:(selector "doneMagnifying") ~typ:(returning (void)) -let dynamicCaret self = msg_send ~self ~cmd:(selector "dynamicCaret") ~typ:(returning (id)) -let dynamicCaretList self = msg_send ~self ~cmd:(selector "dynamicCaretList") ~typ:(returning (id)) -let endFloatingCaretView self = msg_send ~self ~cmd:(selector "endFloatingCaretView") ~typ:(returning (void)) -let endFloatingCursor self = msg_send ~self ~cmd:(selector "endFloatingCursor") ~typ:(returning (void)) -let floatingCaretView self = msg_send ~self ~cmd:(selector "floatingCaretView") ~typ:(returning (id)) -let floatingCaretViewColor self = msg_send ~self ~cmd:(selector "floatingCaretViewColor") ~typ:(returning (id)) -let floatingCursorPositionForPoint x self = msg_send_stret ~self ~cmd:(selector "floatingCursorPositionForPoint:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let floatingCursorPositionForPoint' x ~lineSnapping self = msg_send_stret ~self ~cmd:(selector "floatingCursorPositionForPoint:lineSnapping:") ~typ:(CGPoint.t @-> bool @-> returning (CGPoint.t)) ~return_type:CGPoint.t x lineSnapping -let forceRangeView self = msg_send ~self ~cmd:(selector "forceRangeView") ~typ:(returning (bool)) -let ghostAppearance self = msg_send ~self ~cmd:(selector "ghostAppearance") ~typ:(returning (bool)) -let ghostCaretViewColor self = msg_send ~self ~cmd:(selector "ghostCaretViewColor") ~typ:(returning (id)) -let hideCaret x self = msg_send ~self ~cmd:(selector "hideCaret:") ~typ:(int @-> returning (void)) x -let hideSelectionCommands self = msg_send ~self ~cmd:(selector "hideSelectionCommands") ~typ:(returning (void)) -let hideSelectionCommandsAfterDelay x self = msg_send ~self ~cmd:(selector "hideSelectionCommandsAfterDelay:") ~typ:(double @-> returning (void)) x -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let initWithInteractionAssistant x self = msg_send ~self ~cmd:(selector "initWithInteractionAssistant:") ~typ:(id @-> returning (id)) x -let inputModeDidChange x self = msg_send ~self ~cmd:(selector "inputModeDidChange:") ~typ:(id @-> returning (void)) x -let inputViewDidAnimate self = msg_send ~self ~cmd:(selector "inputViewDidAnimate") ~typ:(returning (void)) -let inputViewDidChange self = msg_send ~self ~cmd:(selector "inputViewDidChange") ~typ:(returning (void)) -let inputViewDidMove self = msg_send ~self ~cmd:(selector "inputViewDidMove") ~typ:(returning (void)) -let inputViewWillAnimate self = msg_send ~self ~cmd:(selector "inputViewWillAnimate") ~typ:(returning (void)) -let inputViewWillChange self = msg_send ~self ~cmd:(selector "inputViewWillChange") ~typ:(returning (void)) -let inputViewWillMove x self = msg_send ~self ~cmd:(selector "inputViewWillMove:") ~typ:(id @-> returning (void)) x -let installIfNecessary self = msg_send ~self ~cmd:(selector "installIfNecessary") ~typ:(returning (void)) -let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning (id)) -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let isIndirectFloatingCaret self = msg_send ~self ~cmd:(selector "isIndirectFloatingCaret") ~typ:(returning (bool)) -let isInstalledInSelectionContainerView self = msg_send ~self ~cmd:(selector "isInstalledInSelectionContainerView") ~typ:(returning (bool)) -let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning (bool)) -let layoutChangedByScrolling x self = msg_send ~self ~cmd:(selector "layoutChangedByScrolling:") ~typ:(bool @-> returning (void)) x -let obtainGrabberSuppressionAssertion self = msg_send ~self ~cmd:(selector "obtainGrabberSuppressionAssertion") ~typ:(returning (id)) -let point x ~isNearCursorRect self = msg_send ~self ~cmd:(selector "point:isNearCursorRect:") ~typ:(CGPoint.t @-> CGRect.t @-> returning (bool)) x isNearCursorRect -let prepareForMagnification self = msg_send ~self ~cmd:(selector "prepareForMagnification") ~typ:(returning (void)) -let previousGhostCaretRect self = msg_send_stret ~self ~cmd:(selector "previousGhostCaretRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let rangeView self = msg_send ~self ~cmd:(selector "rangeView") ~typ:(returning (id)) -let releaseGrabberHandleSuppressionAssertion x self = msg_send ~self ~cmd:(selector "releaseGrabberHandleSuppressionAssertion:") ~typ:(id @-> returning (void)) x -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let replacements self = msg_send ~self ~cmd:(selector "replacements") ~typ:(returning (id)) -let rvItem self = msg_send ~self ~cmd:(selector "rvItem") ~typ:(returning (id)) -let scaleDidChange x self = msg_send ~self ~cmd:(selector "scaleDidChange:") ~typ:(id @-> returning (void)) x -let scaleWillChange x self = msg_send ~self ~cmd:(selector "scaleWillChange:") ~typ:(id @-> returning (void)) x -let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning (id)) -let selection self = msg_send ~self ~cmd:(selector "selection") ~typ:(returning (id)) -let selectionBoundingBox self = msg_send_stret ~self ~cmd:(selector "selectionBoundingBox") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let selectionBoundingBoxForRects x self = msg_send_stret ~self ~cmd:(selector "selectionBoundingBoxForRects:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let selectionChanged self = msg_send ~self ~cmd:(selector "selectionChanged") ~typ:(returning (void)) -let selectionCommandsShowing self = msg_send ~self ~cmd:(selector "selectionCommandsShowing") ~typ:(returning (bool)) -let selectionDidScroll x self = msg_send ~self ~cmd:(selector "selectionDidScroll:") ~typ:(id @-> returning (void)) x -let selectionDidTranslateForReachability x self = msg_send ~self ~cmd:(selector "selectionDidTranslateForReachability:") ~typ:(id @-> returning (void)) x -let selectionWillScroll x self = msg_send ~self ~cmd:(selector "selectionWillScroll:") ~typ:(id @-> returning (void)) x -let selectionWillTranslateForReachability x self = msg_send ~self ~cmd:(selector "selectionWillTranslateForReachability:") ~typ:(id @-> returning (void)) x -let setCaretBlinks x self = msg_send ~self ~cmd:(selector "setCaretBlinks:") ~typ:(bool @-> returning (void)) x -let setCaretVisible x self = msg_send ~self ~cmd:(selector "setCaretVisible:") ~typ:(bool @-> returning (void)) x -let setEmphasisOnNextSelectionRects self = msg_send ~self ~cmd:(selector "setEmphasisOnNextSelectionRects") ~typ:(returning (void)) -let setForceRangeView x self = msg_send ~self ~cmd:(selector "setForceRangeView:") ~typ:(bool @-> returning (void)) x -let setGhostAppearance x self = msg_send ~self ~cmd:(selector "setGhostAppearance:") ~typ:(bool @-> returning (void)) x -let setIsIndirectFloatingCaret x self = msg_send ~self ~cmd:(selector "setIsIndirectFloatingCaret:") ~typ:(bool @-> returning (void)) x -let setPreviousGhostCaretRect x self = msg_send ~self ~cmd:(selector "setPreviousGhostCaretRect:") ~typ:(CGRect.t @-> returning (void)) x -let setReplacements x self = msg_send ~self ~cmd:(selector "setReplacements:") ~typ:(id @-> returning (void)) x -let setRvItem x self = msg_send ~self ~cmd:(selector "setRvItem:") ~typ:(id @-> returning (void)) x -let setStashedCaretRect x self = msg_send ~self ~cmd:(selector "setStashedCaretRect:") ~typ:(CGRect.t @-> returning (void)) x -let setVisible x self = msg_send ~self ~cmd:(selector "setVisible:") ~typ:(bool @-> returning (void)) x -let shouldBeVisible self = msg_send ~self ~cmd:(selector "shouldBeVisible") ~typ:(returning (bool)) -let shouldSuppressSelectionHandles self = msg_send ~self ~cmd:(selector "shouldSuppressSelectionHandles") ~typ:(returning (bool)) -let showCalloutBarAfterDelay x self = msg_send ~self ~cmd:(selector "showCalloutBarAfterDelay:") ~typ:(double @-> returning (void)) x -let showCaret x self = msg_send ~self ~cmd:(selector "showCaret:") ~typ:(int @-> returning (void)) x -let showCommandsWithReplacements x self = msg_send ~self ~cmd:(selector "showCommandsWithReplacements:") ~typ:(id @-> returning (void)) x -let showInitialCaret self = msg_send ~self ~cmd:(selector "showInitialCaret") ~typ:(returning (void)) -let showReplacementsWithGenerator x ~forDictation ~afterDelay self = msg_send ~self ~cmd:(selector "showReplacementsWithGenerator:forDictation:afterDelay:") ~typ:(id @-> bool @-> double @-> returning (void)) x forDictation afterDelay -let showSelectionCommands self = msg_send ~self ~cmd:(selector "showSelectionCommands") ~typ:(returning (void)) -let showSelectionCommandsAfterDelay x self = msg_send ~self ~cmd:(selector "showSelectionCommandsAfterDelay:") ~typ:(double @-> returning (void)) x -let showSelectionCommandsForContextMenuWithRVItem x ~atLocationInView self = msg_send ~self ~cmd:(selector "showSelectionCommandsForContextMenuWithRVItem:atLocationInView:") ~typ:(id @-> CGPoint.t @-> returning (void)) x atLocationInView -let stashedCaretRect self = msg_send_stret ~self ~cmd:(selector "stashedCaretRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let textSelectionViewActivated x self = msg_send ~self ~cmd:(selector "textSelectionViewActivated:") ~typ:(id @-> returning (void)) x -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let updateBaseIsStartWithDocumentPoint x self = msg_send ~self ~cmd:(selector "updateBaseIsStartWithDocumentPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let updateCalloutBarRects x ~effectsWindow ~rectsToEvade self = msg_send ~self ~cmd:(selector "updateCalloutBarRects:effectsWindow:rectsToEvade:") ~typ:(id @-> id @-> id @-> returning (bool)) x effectsWindow rectsToEvade -let updateDocumentHasContent x self = msg_send ~self ~cmd:(selector "updateDocumentHasContent:") ~typ:(bool @-> returning (void)) x -let updateFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let updateFloatingCursorAtPoint' x ~velocity self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:velocity:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (void)) x velocity -let updateRangeViewForSelectionMode self = msg_send ~self ~cmd:(selector "updateRangeViewForSelectionMode") ~typ:(returning (void)) -let updateSelectionCommands self = msg_send ~self ~cmd:(selector "updateSelectionCommands") ~typ:(returning (void)) -let updateSelectionDots self = msg_send ~self ~cmd:(selector "updateSelectionDots") ~typ:(returning (void)) -let updateSelectionRects self = msg_send ~self ~cmd:(selector "updateSelectionRects") ~typ:(returning (void)) -let updateSelectionRectsIfNeeded self = msg_send ~self ~cmd:(selector "updateSelectionRectsIfNeeded") ~typ:(returning (void)) -let updateSelectionWithDocumentPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithDocumentPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let validateWithInteractionAssistant x self = msg_send ~self ~cmd:(selector "validateWithInteractionAssistant:") ~typ:(id @-> returning (void)) x -let viewAnimate x self = msg_send ~self ~cmd:(selector "viewAnimate:") ~typ:(id @-> returning (void)) x -let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning (bool)) -let wilLResume x self = msg_send ~self ~cmd:(selector "wilLResume:") ~typ:(id @-> returning (void)) x -let willBeginFloatingCursor x self = msg_send ~self ~cmd:(selector "willBeginFloatingCursor:") ~typ:(bool @-> returning (void)) x -let willMoveToSuperview self = msg_send ~self ~cmd:(selector "willMoveToSuperview") ~typ:(returning (void)) -let willRotate x self = msg_send ~self ~cmd:(selector "willRotate:") ~typ:(id @-> returning (void)) x -let windowDidResignOrBecomeKey self = msg_send ~self ~cmd:(selector "windowDidResignOrBecomeKey") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UITextSelectionView" + +let activate self = msg_send ~self ~cmd:(selector "activate") ~typ:(returning void) +let activeCaret self = msg_send ~self ~cmd:(selector "activeCaret") ~typ:(returning bool) +let affectedByScrollerNotification x self = msg_send ~self ~cmd:(selector "affectedByScrollerNotification:") ~typ:(id @-> returning bool) x +let animateBoxShrinkOn x self = msg_send ~self ~cmd:(selector "animateBoxShrinkOn:") ~typ:(id @-> returning void) x +let animateCaret x ~toPosition ~withSize self = msg_send ~self ~cmd:(selector "animateCaret:toPosition:withSize:") ~typ:(id @-> CGPoint.t @-> CGSize.t @-> returning void) x toPosition withSize +let animateExpanderOn x self = msg_send ~self ~cmd:(selector "animateExpanderOn:") ~typ:(id @-> returning void) x +let animatePulsingDirectCaret x self = msg_send ~self ~cmd:(selector "animatePulsingDirectCaret:") ~typ:(id @-> returning void) x +let animatePulsingIndirectCaret x self = msg_send ~self ~cmd:(selector "animatePulsingIndirectCaret:") ~typ:(id @-> returning void) x +let appearOrFadeIfNecessary self = msg_send ~self ~cmd:(selector "appearOrFadeIfNecessary") ~typ:(returning void) +let beginFloatingCaretView self = msg_send ~self ~cmd:(selector "beginFloatingCaretView") ~typ:(returning void) +let beginFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "beginFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let calculateReplacementsWithGenerator x ~andShowAfterDelay self = msg_send ~self ~cmd:(selector "calculateReplacementsWithGenerator:andShowAfterDelay:") ~typ:(id @-> double @-> returning void) x andShowAfterDelay +let cancelDelayedCommandRequests self = msg_send ~self ~cmd:(selector "cancelDelayedCommandRequests") ~typ:(returning void) +let cancelRevealHighlightMode self = msg_send ~self ~cmd:(selector "cancelRevealHighlightMode") ~typ:(returning void) +let caretBlinks self = msg_send ~self ~cmd:(selector "caretBlinks") ~typ:(returning bool) +let caretView self = msg_send ~self ~cmd:(selector "caretView") ~typ:(returning id) +let caretViewColor self = msg_send ~self ~cmd:(selector "caretViewColor") ~typ:(returning id) +let caretVisible self = msg_send ~self ~cmd:(selector "caretVisible") ~typ:(returning bool) +let clearCaret self = msg_send ~self ~cmd:(selector "clearCaret") ~typ:(returning void) +let clearRangeAnimated x self = msg_send ~self ~cmd:(selector "clearRangeAnimated:") ~typ:(bool @-> returning void) x +let clippedTargetRect x self = msg_send ~self ~cmd:(selector "clippedTargetRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let configureForHighlightMode self = msg_send ~self ~cmd:(selector "configureForHighlightMode") ~typ:(returning void) +let configureForPencilDeletionPreviewMode self = msg_send ~self ~cmd:(selector "configureForPencilDeletionPreviewMode") ~typ:(returning void) +let configureForPencilHighlightMode self = msg_send ~self ~cmd:(selector "configureForPencilHighlightMode") ~typ:(returning void) +let configureForReplacementMode self = msg_send ~self ~cmd:(selector "configureForReplacementMode") ~typ:(returning void) +let configureForRevealHighlightMode self = msg_send ~self ~cmd:(selector "configureForRevealHighlightMode") ~typ:(returning void) +let configureForSelectionMode self = msg_send ~self ~cmd:(selector "configureForSelectionMode") ~typ:(returning void) +let deactivate self = msg_send ~self ~cmd:(selector "deactivate") ~typ:(returning void) +let deactivateAndCollapseSelection x self = msg_send ~self ~cmd:(selector "deactivateAndCollapseSelection:") ~typ:(bool @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let deferredUpdateSelectionCommands self = msg_send ~self ~cmd:(selector "deferredUpdateSelectionCommands") ~typ:(returning void) +let deferredUpdateSelectionRects self = msg_send ~self ~cmd:(selector "deferredUpdateSelectionRects") ~typ:(returning void) +let detach self = msg_send ~self ~cmd:(selector "detach") ~typ:(returning void) +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let didRotate x self = msg_send ~self ~cmd:(selector "didRotate:") ~typ:(id @-> returning void) x +let didSuspend x self = msg_send ~self ~cmd:(selector "didSuspend:") ~typ:(id @-> returning void) x +let doneMagnifying self = msg_send ~self ~cmd:(selector "doneMagnifying") ~typ:(returning void) +let dynamicCaret self = msg_send ~self ~cmd:(selector "dynamicCaret") ~typ:(returning id) +let dynamicCaretList self = msg_send ~self ~cmd:(selector "dynamicCaretList") ~typ:(returning id) +let endFloatingCaretView self = msg_send ~self ~cmd:(selector "endFloatingCaretView") ~typ:(returning void) +let endFloatingCursor self = msg_send ~self ~cmd:(selector "endFloatingCursor") ~typ:(returning void) +let floatingCaretView self = msg_send ~self ~cmd:(selector "floatingCaretView") ~typ:(returning id) +let floatingCaretViewColor self = msg_send ~self ~cmd:(selector "floatingCaretViewColor") ~typ:(returning id) +let floatingCursorPositionForPoint x self = msg_send ~self ~cmd:(selector "floatingCursorPositionForPoint:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let floatingCursorPositionForPoint' x ~lineSnapping self = msg_send ~self ~cmd:(selector "floatingCursorPositionForPoint:lineSnapping:") ~typ:(CGPoint.t @-> bool @-> returning CGPoint.t) x lineSnapping +let forceRangeView self = msg_send ~self ~cmd:(selector "forceRangeView") ~typ:(returning bool) +let ghostAppearance self = msg_send ~self ~cmd:(selector "ghostAppearance") ~typ:(returning bool) +let ghostCaretViewColor self = msg_send ~self ~cmd:(selector "ghostCaretViewColor") ~typ:(returning id) +let hideCaret x self = msg_send ~self ~cmd:(selector "hideCaret:") ~typ:(int @-> returning void) x +let hideSelectionCommands self = msg_send ~self ~cmd:(selector "hideSelectionCommands") ~typ:(returning void) +let hideSelectionCommandsAfterDelay x self = msg_send ~self ~cmd:(selector "hideSelectionCommandsAfterDelay:") ~typ:(double @-> returning void) x +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let initWithInteractionAssistant x self = msg_send ~self ~cmd:(selector "initWithInteractionAssistant:") ~typ:(id @-> returning id) x +let inputModeDidChange x self = msg_send ~self ~cmd:(selector "inputModeDidChange:") ~typ:(id @-> returning void) x +let inputViewDidAnimate self = msg_send ~self ~cmd:(selector "inputViewDidAnimate") ~typ:(returning void) +let inputViewDidChange self = msg_send ~self ~cmd:(selector "inputViewDidChange") ~typ:(returning void) +let inputViewDidMove self = msg_send ~self ~cmd:(selector "inputViewDidMove") ~typ:(returning void) +let inputViewWillAnimate self = msg_send ~self ~cmd:(selector "inputViewWillAnimate") ~typ:(returning void) +let inputViewWillChange self = msg_send ~self ~cmd:(selector "inputViewWillChange") ~typ:(returning void) +let inputViewWillMove x self = msg_send ~self ~cmd:(selector "inputViewWillMove:") ~typ:(id @-> returning void) x +let installIfNecessary self = msg_send ~self ~cmd:(selector "installIfNecessary") ~typ:(returning void) +let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning id) +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let isIndirectFloatingCaret self = msg_send ~self ~cmd:(selector "isIndirectFloatingCaret") ~typ:(returning bool) +let isInstalledInSelectionContainerView self = msg_send ~self ~cmd:(selector "isInstalledInSelectionContainerView") ~typ:(returning bool) +let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning bool) +let layoutChangedByScrolling x self = msg_send ~self ~cmd:(selector "layoutChangedByScrolling:") ~typ:(bool @-> returning void) x +let obtainGrabberSuppressionAssertion self = msg_send ~self ~cmd:(selector "obtainGrabberSuppressionAssertion") ~typ:(returning id) +let point x ~isNearCursorRect self = msg_send ~self ~cmd:(selector "point:isNearCursorRect:") ~typ:(CGPoint.t @-> CGRect.t @-> returning bool) x isNearCursorRect +let prepareForMagnification self = msg_send ~self ~cmd:(selector "prepareForMagnification") ~typ:(returning void) +let previousGhostCaretRect self = msg_send ~self ~cmd:(selector "previousGhostCaretRect") ~typ:(returning CGRect.t) +let rangeView self = msg_send ~self ~cmd:(selector "rangeView") ~typ:(returning id) +let releaseGrabberHandleSuppressionAssertion x self = msg_send ~self ~cmd:(selector "releaseGrabberHandleSuppressionAssertion:") ~typ:(id @-> returning void) x +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let replacements self = msg_send ~self ~cmd:(selector "replacements") ~typ:(returning id) +let rvItem self = msg_send ~self ~cmd:(selector "rvItem") ~typ:(returning id) +let scaleDidChange x self = msg_send ~self ~cmd:(selector "scaleDidChange:") ~typ:(id @-> returning void) x +let scaleWillChange x self = msg_send ~self ~cmd:(selector "scaleWillChange:") ~typ:(id @-> returning void) x +let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning id) +let selection self = msg_send ~self ~cmd:(selector "selection") ~typ:(returning id) +let selectionBoundingBox self = msg_send ~self ~cmd:(selector "selectionBoundingBox") ~typ:(returning CGRect.t) +let selectionBoundingBoxForRects x self = msg_send ~self ~cmd:(selector "selectionBoundingBoxForRects:") ~typ:(id @-> returning CGRect.t) x +let selectionChanged self = msg_send ~self ~cmd:(selector "selectionChanged") ~typ:(returning void) +let selectionCommandsShowing self = msg_send ~self ~cmd:(selector "selectionCommandsShowing") ~typ:(returning bool) +let selectionDidScroll x self = msg_send ~self ~cmd:(selector "selectionDidScroll:") ~typ:(id @-> returning void) x +let selectionDidTranslateForReachability x self = msg_send ~self ~cmd:(selector "selectionDidTranslateForReachability:") ~typ:(id @-> returning void) x +let selectionWillScroll x self = msg_send ~self ~cmd:(selector "selectionWillScroll:") ~typ:(id @-> returning void) x +let selectionWillTranslateForReachability x self = msg_send ~self ~cmd:(selector "selectionWillTranslateForReachability:") ~typ:(id @-> returning void) x +let setCaretBlinks x self = msg_send ~self ~cmd:(selector "setCaretBlinks:") ~typ:(bool @-> returning void) x +let setCaretVisible x self = msg_send ~self ~cmd:(selector "setCaretVisible:") ~typ:(bool @-> returning void) x +let setEmphasisOnNextSelectionRects self = msg_send ~self ~cmd:(selector "setEmphasisOnNextSelectionRects") ~typ:(returning void) +let setForceRangeView x self = msg_send ~self ~cmd:(selector "setForceRangeView:") ~typ:(bool @-> returning void) x +let setGhostAppearance x self = msg_send ~self ~cmd:(selector "setGhostAppearance:") ~typ:(bool @-> returning void) x +let setIsIndirectFloatingCaret x self = msg_send ~self ~cmd:(selector "setIsIndirectFloatingCaret:") ~typ:(bool @-> returning void) x +let setPreviousGhostCaretRect x self = msg_send ~self ~cmd:(selector "setPreviousGhostCaretRect:") ~typ:(CGRect.t @-> returning void) x +let setReplacements x self = msg_send ~self ~cmd:(selector "setReplacements:") ~typ:(id @-> returning void) x +let setRvItem x self = msg_send ~self ~cmd:(selector "setRvItem:") ~typ:(id @-> returning void) x +let setStashedCaretRect x self = msg_send ~self ~cmd:(selector "setStashedCaretRect:") ~typ:(CGRect.t @-> returning void) x +let setVisible x self = msg_send ~self ~cmd:(selector "setVisible:") ~typ:(bool @-> returning void) x +let shouldBeVisible self = msg_send ~self ~cmd:(selector "shouldBeVisible") ~typ:(returning bool) +let shouldSuppressSelectionHandles self = msg_send ~self ~cmd:(selector "shouldSuppressSelectionHandles") ~typ:(returning bool) +let showCalloutBarAfterDelay x self = msg_send ~self ~cmd:(selector "showCalloutBarAfterDelay:") ~typ:(double @-> returning void) x +let showCaret x self = msg_send ~self ~cmd:(selector "showCaret:") ~typ:(int @-> returning void) x +let showCommandsWithReplacements x self = msg_send ~self ~cmd:(selector "showCommandsWithReplacements:") ~typ:(id @-> returning void) x +let showInitialCaret self = msg_send ~self ~cmd:(selector "showInitialCaret") ~typ:(returning void) +let showReplacementsWithGenerator x ~forDictation ~afterDelay self = msg_send ~self ~cmd:(selector "showReplacementsWithGenerator:forDictation:afterDelay:") ~typ:(id @-> bool @-> double @-> returning void) x forDictation afterDelay +let showSelectionCommands self = msg_send ~self ~cmd:(selector "showSelectionCommands") ~typ:(returning void) +let showSelectionCommandsAfterDelay x self = msg_send ~self ~cmd:(selector "showSelectionCommandsAfterDelay:") ~typ:(double @-> returning void) x +let showSelectionCommandsForContextMenuWithRVItem x ~atLocationInView self = msg_send ~self ~cmd:(selector "showSelectionCommandsForContextMenuWithRVItem:atLocationInView:") ~typ:(id @-> CGPoint.t @-> returning void) x atLocationInView +let stashedCaretRect self = msg_send ~self ~cmd:(selector "stashedCaretRect") ~typ:(returning CGRect.t) +let textSelectionViewActivated x self = msg_send ~self ~cmd:(selector "textSelectionViewActivated:") ~typ:(id @-> returning void) x +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let updateBaseIsStartWithDocumentPoint x self = msg_send ~self ~cmd:(selector "updateBaseIsStartWithDocumentPoint:") ~typ:(CGPoint.t @-> returning void) x +let updateCalloutBarRects x ~effectsWindow ~rectsToEvade self = msg_send ~self ~cmd:(selector "updateCalloutBarRects:effectsWindow:rectsToEvade:") ~typ:(id @-> id @-> id @-> returning bool) x effectsWindow rectsToEvade +let updateDocumentHasContent x self = msg_send ~self ~cmd:(selector "updateDocumentHasContent:") ~typ:(bool @-> returning void) x +let updateFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let updateFloatingCursorAtPoint' x ~velocity self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:velocity:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning void) x velocity +let updateRangeViewForSelectionMode self = msg_send ~self ~cmd:(selector "updateRangeViewForSelectionMode") ~typ:(returning void) +let updateSelectionCommands self = msg_send ~self ~cmd:(selector "updateSelectionCommands") ~typ:(returning void) +let updateSelectionDots self = msg_send ~self ~cmd:(selector "updateSelectionDots") ~typ:(returning void) +let updateSelectionRects self = msg_send ~self ~cmd:(selector "updateSelectionRects") ~typ:(returning void) +let updateSelectionRectsIfNeeded self = msg_send ~self ~cmd:(selector "updateSelectionRectsIfNeeded") ~typ:(returning void) +let updateSelectionWithDocumentPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithDocumentPoint:") ~typ:(CGPoint.t @-> returning void) x +let validateWithInteractionAssistant x self = msg_send ~self ~cmd:(selector "validateWithInteractionAssistant:") ~typ:(id @-> returning void) x +let viewAnimate x self = msg_send ~self ~cmd:(selector "viewAnimate:") ~typ:(id @-> returning void) x +let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning bool) +let wilLResume x self = msg_send ~self ~cmd:(selector "wilLResume:") ~typ:(id @-> returning void) x +let willBeginFloatingCursor x self = msg_send ~self ~cmd:(selector "willBeginFloatingCursor:") ~typ:(bool @-> returning void) x +let willMoveToSuperview self = msg_send ~self ~cmd:(selector "willMoveToSuperview") ~typ:(returning void) +let willRotate x self = msg_send ~self ~cmd:(selector "willRotate:") ~typ:(id @-> returning void) x +let windowDidResignOrBecomeKey self = msg_send ~self ~cmd:(selector "windowDidResignOrBecomeKey") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UITextSelectionWindowAveragedValue.ml b/uikit/UITextSelectionWindowAveragedValue.ml deleted file mode 100644 index c0932b8c..00000000 --- a/uikit/UITextSelectionWindowAveragedValue.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextSelectionWindowAveragedValue" - -let addValue x self = msg_send ~self ~cmd:(selector "addValue:") ~typ:(double @-> returning (void)) x -let flushValues self = msg_send ~self ~cmd:(selector "flushValues") ~typ:(returning (void)) -let initWithDepth x self = msg_send ~self ~cmd:(selector "initWithDepth:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let windowAveragedValue self = msg_send ~self ~cmd:(selector "windowAveragedValue") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit/UITextServicesInteraction.ml b/uikit/UITextServicesInteraction.ml index 09d2de14..337c5e4c 100644 --- a/uikit/UITextServicesInteraction.ml +++ b/uikit/UITextServicesInteraction.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextServicesInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextservicesinteraction?language=objc}UITextServicesInteraction} *) -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let finishSetup self = msg_send ~self ~cmd:(selector "finishSetup") ~typ:(returning (void)) -let responder self = msg_send ~self ~cmd:(selector "responder") ~typ:(returning (id)) -let responderProxy self = msg_send ~self ~cmd:(selector "responderProxy") ~typ:(returning (id)) -let setResponderProxy x self = msg_send ~self ~cmd:(selector "setResponderProxy:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UITextServicesInteraction" + +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let finishSetup self = msg_send ~self ~cmd:(selector "finishSetup") ~typ:(returning void) +let responder self = msg_send ~self ~cmd:(selector "responder") ~typ:(returning id) +let responderProxy self = msg_send ~self ~cmd:(selector "responderProxy") ~typ:(returning id) +let setResponderProxy x self = msg_send ~self ~cmd:(selector "setResponderProxy:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextSuggestion.ml b/uikit/UITextSuggestion.ml index 1900946f..a795beab 100644 --- a/uikit/UITextSuggestion.ml +++ b/uikit/UITextSuggestion.ml @@ -5,24 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextSuggestion" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextsuggestion?language=objc}UITextSuggestion} *) -module C = struct - let textSuggestionWithInputText x self = msg_send ~self ~cmd:(selector "textSuggestionWithInputText:") ~typ:(id @-> returning (id)) x - let textSuggestionWithInputText' x ~searchText self = msg_send ~self ~cmd:(selector "textSuggestionWithInputText:searchText:") ~typ:(id @-> id @-> returning (id)) x searchText -end +let self = get_class "UITextSuggestion" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let displayStylePlain self = msg_send ~self ~cmd:(selector "displayStylePlain") ~typ:(returning (bool)) -let displayText self = msg_send ~self ~cmd:(selector "displayText") ~typ:(returning (id)) -let headerText self = msg_send ~self ~cmd:(selector "headerText") ~typ:(returning (id)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let initWithInputText x ~searchText ~displayText ~headerText self = msg_send ~self ~cmd:(selector "initWithInputText:searchText:displayText:headerText:") ~typ:(id @-> id @-> id @-> id @-> returning (id)) x searchText displayText headerText -let inputText self = msg_send ~self ~cmd:(selector "inputText") ~typ:(returning (id)) -let searchText self = msg_send ~self ~cmd:(selector "searchText") ~typ:(returning (id)) -let setDisplayStylePlain x self = msg_send ~self ~cmd:(selector "setDisplayStylePlain:") ~typ:(bool @-> returning (void)) x -let setDisplayText x self = msg_send ~self ~cmd:(selector "setDisplayText:") ~typ:(id @-> returning (void)) x -let setHeaderText x self = msg_send ~self ~cmd:(selector "setHeaderText:") ~typ:(id @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setSearchText x self = msg_send ~self ~cmd:(selector "setSearchText:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let displayStylePlain self = msg_send ~self ~cmd:(selector "displayStylePlain") ~typ:(returning bool) +let displayText self = msg_send ~self ~cmd:(selector "displayText") ~typ:(returning id) +let headerText self = msg_send ~self ~cmd:(selector "headerText") ~typ:(returning id) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let initWithInputText x ~searchText ~displayText ~headerText self = msg_send ~self ~cmd:(selector "initWithInputText:searchText:displayText:headerText:") ~typ:(id @-> id @-> id @-> id @-> returning id) x searchText displayText headerText +let inputText self = msg_send ~self ~cmd:(selector "inputText") ~typ:(returning id) +let searchText self = msg_send ~self ~cmd:(selector "searchText") ~typ:(returning id) +let setDisplayStylePlain x self = msg_send ~self ~cmd:(selector "setDisplayStylePlain:") ~typ:(bool @-> returning void) x +let setDisplayText x self = msg_send ~self ~cmd:(selector "setDisplayText:") ~typ:(id @-> returning void) x +let setHeaderText x self = msg_send ~self ~cmd:(selector "setHeaderText:") ~typ:(id @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setSearchText x self = msg_send ~self ~cmd:(selector "setSearchText:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextSuggestionClass.ml b/uikit/UITextSuggestionClass.ml new file mode 100644 index 00000000..0244d368 --- /dev/null +++ b/uikit/UITextSuggestionClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextsuggestion?language=objc}UITextSuggestion} *) + +let textSuggestionWithInputText x self = msg_send ~self ~cmd:(selector "textSuggestionWithInputText:") ~typ:(id @-> returning id) x +let textSuggestionWithInputText' x ~searchText self = msg_send ~self ~cmd:(selector "textSuggestionWithInputText:searchText:") ~typ:(id @-> id @-> returning id) x searchText \ No newline at end of file diff --git a/uikit/UITextSuggestionWithAction.ml b/uikit/UITextSuggestionWithAction.ml index 2e56456e..0eda5f8a 100644 --- a/uikit/UITextSuggestionWithAction.ml +++ b/uikit/UITextSuggestionWithAction.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextSuggestionWithAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextsuggestionwithaction?language=objc}UITextSuggestionWithAction} *) -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (_SEL)) -let performActionWihSender x self = msg_send ~self ~cmd:(selector "performActionWihSender:") ~typ:(id @-> returning (void)) x -let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(_SEL @-> returning (void)) x -let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning (void)) x -let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITextSuggestionWithAction" + +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning _SEL) +let performActionWihSender x self = msg_send ~self ~cmd:(selector "performActionWihSender:") ~typ:(id @-> returning void) x +let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(_SEL @-> returning void) x +let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning void) x +let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextTapRecognizer.ml b/uikit/UITextTapRecognizer.ml index f9ec597b..fc09d3b6 100644 --- a/uikit/UITextTapRecognizer.ml +++ b/uikit/UITextTapRecognizer.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextTapRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitexttaprecognizer?language=objc}UITextTapRecognizer} *) -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let setTouchBasedAllowableMovement x self = msg_send ~self ~cmd:(selector "setTouchBasedAllowableMovement:") ~typ:(double @-> returning (void)) x -let setTouchesForTap x self = msg_send ~self ~cmd:(selector "setTouchesForTap:") ~typ:(id @-> returning (void)) x -let touchBasedAllowableMovement self = msg_send ~self ~cmd:(selector "touchBasedAllowableMovement") ~typ:(returning (double)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesForTap self = msg_send ~self ~cmd:(selector "touchesForTap") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITextTapRecognizer" + +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let setTouchBasedAllowableMovement x self = msg_send ~self ~cmd:(selector "setTouchBasedAllowableMovement:") ~typ:(double @-> returning void) x +let setTouchesForTap x self = msg_send ~self ~cmd:(selector "setTouchesForTap:") ~typ:(id @-> returning void) x +let touchBasedAllowableMovement self = msg_send ~self ~cmd:(selector "touchBasedAllowableMovement") ~typ:(returning double) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesForTap self = msg_send ~self ~cmd:(selector "touchesForTap") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITextTouchObservingInteraction.ml b/uikit/UITextTouchObservingInteraction.ml index b1b33ea8..72059f5b 100644 --- a/uikit/UITextTouchObservingInteraction.ml +++ b/uikit/UITextTouchObservingInteraction.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextTouchObservingInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitexttouchobservinginteraction?language=objc}UITextTouchObservingInteraction} *) -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let longPressGesture self = msg_send ~self ~cmd:(selector "longPressGesture") ~typ:(returning (id)) -let longPressObserved x self = msg_send ~self ~cmd:(selector "longPressObserved:") ~typ:(id @-> returning (void)) x -let setLongPressGesture x self = msg_send ~self ~cmd:(selector "setLongPressGesture:") ~typ:(id @-> returning (void)) x -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UITextTouchObservingInteraction" + +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let longPressGesture self = msg_send ~self ~cmd:(selector "longPressGesture") ~typ:(returning id) +let longPressObserved x self = msg_send ~self ~cmd:(selector "longPressObserved:") ~typ:(id @-> returning void) x +let setLongPressGesture x self = msg_send ~self ~cmd:(selector "setLongPressGesture:") ~typ:(id @-> returning void) x +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITextView.ml b/uikit/UITextView.ml index 2dbad8cc..19b88daa 100644 --- a/uikit/UITextView.ml +++ b/uikit/UITextView.ml @@ -5,302 +5,307 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextview?language=objc}UITextView} *) -let accessibilityFrame self = msg_send_stret ~self ~cmd:(selector "accessibilityFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let addGhostedRange x self = msg_send ~self ~cmd:(selector "addGhostedRange:") ~typ:(id @-> returning (void)) x -let addInvisibleRange x self = msg_send ~self ~cmd:(selector "addInvisibleRange:") ~typ:(id @-> returning (void)) x -let addSnapshotSeparation x ~withAffinity self = msg_send ~self ~cmd:(selector "addSnapshotSeparation:withAffinity:") ~typ:(double @-> llong @-> returning (void)) x (LLong.of_int withAffinity) -let addTextAlternativesDisplayStyle x ~toRange self = msg_send ~self ~cmd:(selector "addTextAlternativesDisplayStyle:toRange:") ~typ:(llong @-> NSRange.t @-> returning (void)) (LLong.of_int x) toRange -let adjustedContentInsetDidChange self = msg_send ~self ~cmd:(selector "adjustedContentInsetDidChange") ~typ:(returning (void)) -let adjustsFontForContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsFontForContentSizeCategory") ~typ:(returning (bool)) -let alignCenter x self = msg_send ~self ~cmd:(selector "alignCenter:") ~typ:(id @-> returning (void)) x -let alignJustified x self = msg_send ~self ~cmd:(selector "alignJustified:") ~typ:(id @-> returning (void)) x -let alignLeft x self = msg_send ~self ~cmd:(selector "alignLeft:") ~typ:(id @-> returning (void)) x -let alignRight x self = msg_send ~self ~cmd:(selector "alignRight:") ~typ:(id @-> returning (void)) x -let allowsAttachments self = msg_send ~self ~cmd:(selector "allowsAttachments") ~typ:(returning (bool)) -let allowsDraggingAttachments self = msg_send ~self ~cmd:(selector "allowsDraggingAttachments") ~typ:(returning (bool)) -let allowsEditingTextAttributes self = msg_send ~self ~cmd:(selector "allowsEditingTextAttributes") ~typ:(returning (bool)) -let annotatedSubstringForRange x self = msg_send ~self ~cmd:(selector "annotatedSubstringForRange:") ~typ:(id @-> returning (id)) x -let attributedPlaceholder self = msg_send ~self ~cmd:(selector "attributedPlaceholder") ~typ:(returning (id)) -let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning (id)) -let attributedTextInRange x self = msg_send ~self ~cmd:(selector "attributedTextInRange:") ~typ:(id @-> returning (id)) x -let automaticallySelectedOverlay self = msg_send ~self ~cmd:(selector "automaticallySelectedOverlay") ~typ:(returning (id)) -let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int inDirection) -let becomeDropResponder self = msg_send ~self ~cmd:(selector "becomeDropResponder") ~typ:(returning (void)) -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let becomesEditableWithGestures self = msg_send ~self ~cmd:(selector "becomesEditableWithGestures") ~typ:(returning (bool)) -let beginFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "beginFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let beginSelectionChange self = msg_send ~self ~cmd:(selector "beginSelectionChange") ~typ:(returning (void)) -let beginSnapshotSeparationOfHeight x ~atYOffset self = msg_send ~self ~cmd:(selector "beginSnapshotSeparationOfHeight:atYOffset:") ~typ:(double @-> double @-> returning (double)) x atYOffset -let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning (id)) -let bottomContentPadding self = msg_send ~self ~cmd:(selector "bottomContentPadding") ~typ:(returning (id)) -let canBecomeDropResponder self = msg_send ~self ~cmd:(selector "canBecomeDropResponder") ~typ:(returning (bool)) -let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning (bool)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let canResignFirstResponder self = msg_send ~self ~cmd:(selector "canResignFirstResponder") ~typ:(returning (bool)) -let cancelAutoscroll self = msg_send ~self ~cmd:(selector "cancelAutoscroll") ~typ:(returning (void)) -let capitalizeWord x self = msg_send ~self ~cmd:(selector "capitalizeWord:") ~typ:(id @-> returning (void)) x -let captureTextFromCamera x self = msg_send ~self ~cmd:(selector "captureTextFromCamera:") ~typ:(id @-> returning (void)) x -let caretRectForPosition x self = msg_send_stret ~self ~cmd:(selector "caretRectForPosition:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let characterRangeAtPoint x self = msg_send ~self ~cmd:(selector "characterRangeAtPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let characterRangeByExtendingPosition x ~inDirection self = msg_send ~self ~cmd:(selector "characterRangeByExtendingPosition:inDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int inDirection) -let clearsOnInsertion self = msg_send ~self ~cmd:(selector "clearsOnInsertion") ~typ:(returning (bool)) -let closestPositionToPoint x self = msg_send ~self ~cmd:(selector "closestPositionToPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let closestPositionToPoint' x ~withinRange self = msg_send ~self ~cmd:(selector "closestPositionToPoint:withinRange:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withinRange -let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning (llong)) x toPosition -let contentOffsetForSameViewDrops self = msg_send_stret ~self ~cmd:(selector "contentOffsetForSameViewDrops") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning (void)) x -let copyFont x self = msg_send ~self ~cmd:(selector "copyFont:") ~typ:(id @-> returning (void)) x -let cut x self = msg_send ~self ~cmd:(selector "cut:") ~typ:(id @-> returning (void)) x -let dataDetectorTypes self = msg_send ~self ~cmd:(selector "dataDetectorTypes") ~typ:(returning (ullong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning (id)) -let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let decodeRestorableStateWithCoder' x ~includingSelectedTextAndDisplayedViewControllers self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:includingSelectedTextAndDisplayedViewControllers:") ~typ:(id @-> bool @-> returning (void)) x includingSelectedTextAndDisplayedViewControllers -let decreaseSize x self = msg_send ~self ~cmd:(selector "decreaseSize:") ~typ:(id @-> returning (void)) x -let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning (void)) -let disableClearsOnInsertion self = msg_send ~self ~cmd:(selector "disableClearsOnInsertion") ~typ:(returning (void)) -let draggingFinished x self = msg_send ~self ~cmd:(selector "draggingFinished:") ~typ:(id @-> returning (void)) x -let draggingStarted self = msg_send ~self ~cmd:(selector "draggingStarted") ~typ:(returning (void)) -let drawRect x ~forViewPrintFormatter self = msg_send ~self ~cmd:(selector "drawRect:forViewPrintFormatter:") ~typ:(CGRect.t @-> id @-> returning (void)) x forViewPrintFormatter -let drawingDelegate self = msg_send ~self ~cmd:(selector "drawingDelegate") ~typ:(returning (id)) -let droppingFinished self = msg_send ~self ~cmd:(selector "droppingFinished") ~typ:(returning (void)) -let droppingStarted self = msg_send ~self ~cmd:(selector "droppingStarted") ~typ:(returning (void)) -let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let encodeRestorableStateWithCoder' x ~includingSelectedTextAndDisplayedViewControllers self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:includingSelectedTextAndDisplayedViewControllers:") ~typ:(id @-> bool @-> returning (void)) x includingSelectedTextAndDisplayedViewControllers -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let endFloatingCursor self = msg_send ~self ~cmd:(selector "endFloatingCursor") ~typ:(returning (void)) -let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning (id)) -let endSelectionChange self = msg_send ~self ~cmd:(selector "endSelectionChange") ~typ:(returning (void)) -let endSnapshotSeparation self = msg_send ~self ~cmd:(selector "endSnapshotSeparation") ~typ:(returning (void)) -let extractWordArrayFromTokensArray x self = msg_send ~self ~cmd:(selector "extractWordArrayFromTokensArray:") ~typ:(id @-> returning (id)) x -let firstRectForRange x self = msg_send_stret ~self ~cmd:(selector "firstRectForRange:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let forceDisableDictation self = msg_send ~self ~cmd:(selector "forceDisableDictation") ~typ:(returning (bool)) -let forceEnableDictation self = msg_send ~self ~cmd:(selector "forceEnableDictation") ~typ:(returning (bool)) -let forwardingTargetForSelector x self = msg_send ~self ~cmd:(selector "forwardingTargetForSelector:") ~typ:(_SEL @-> returning (id)) x -let frameForDictationResultPlaceholder x self = msg_send_stret ~self ~cmd:(selector "frameForDictationResultPlaceholder:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning (bool)) -let hasTextItemsOfType x ~inTextRange self = msg_send ~self ~cmd:(selector "hasTextItemsOfType:inTextRange:") ~typ:(llong @-> id @-> returning (bool)) (LLong.of_int x) inTextRange -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let increaseSize x self = msg_send ~self ~cmd:(selector "increaseSize:") ~typ:(id @-> returning (void)) x -let initReadonlyAndUnselectableWithFrame x ~textContainer self = msg_send ~self ~cmd:(selector "initReadonlyAndUnselectableWithFrame:textContainer:") ~typ:(CGRect.t @-> id @-> returning (id)) x textContainer -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithFrame1 x ~font self = msg_send ~self ~cmd:(selector "initWithFrame:font:") ~typ:(CGRect.t @-> id @-> returning (id)) x font -let initWithFrame2 x ~textContainer self = msg_send ~self ~cmd:(selector "initWithFrame:textContainer:") ~typ:(CGRect.t @-> id @-> returning (id)) x textContainer -let ink self = msg_send ~self ~cmd:(selector "ink") ~typ:(returning (id)) -let inputAccessoryView self = msg_send ~self ~cmd:(selector "inputAccessoryView") ~typ:(returning (id)) -let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning (id)) -let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning (id)) -let insertAttributedText x self = msg_send ~self ~cmd:(selector "insertAttributedText:") ~typ:(id @-> returning (void)) x -let insertDictationResultPlaceholder self = msg_send ~self ~cmd:(selector "insertDictationResultPlaceholder") ~typ:(returning (id)) -let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning (void)) x -let insertText1 x ~alternatives ~style self = msg_send ~self ~cmd:(selector "insertText:alternatives:style:") ~typ:(id @-> id @-> llong @-> returning (void)) x alternatives (LLong.of_int style) -let insertText2 x ~style ~alternatives self = msg_send ~self ~cmd:(selector "insertText:style:alternatives:") ~typ:(id @-> llong @-> id @-> returning (void)) x (LLong.of_int style) alternatives -let insertTextPlaceholderWithSize x self = msg_send ~self ~cmd:(selector "insertTextPlaceholderWithSize:") ~typ:(CGSize.t @-> returning (id)) x -let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning (id)) -let interactionState self = msg_send ~self ~cmd:(selector "interactionState") ~typ:(returning (id)) -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let invalidateDropCaret self = msg_send ~self ~cmd:(selector "invalidateDropCaret") ~typ:(returning (void)) -let invalidateIntrinsicContentSize self = msg_send ~self ~cmd:(selector "invalidateIntrinsicContentSize") ~typ:(returning (void)) -let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning (bool)) -let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning (bool)) -let isEditableForTextContainerView x self = msg_send ~self ~cmd:(selector "isEditableForTextContainerView:") ~typ:(id @-> returning (bool)) x -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isFingerDrawingEnabled self = msg_send ~self ~cmd:(selector "isFingerDrawingEnabled") ~typ:(returning (bool)) -let isLayoutSizeDependentOnPerpendicularAxis self = msg_send ~self ~cmd:(selector "isLayoutSizeDependentOnPerpendicularAxis") ~typ:(returning (bool)) -let isPaperEnabled self = msg_send ~self ~cmd:(selector "isPaperEnabled") ~typ:(returning (bool)) -let isRulerEnabled self = msg_send ~self ~cmd:(selector "isRulerEnabled") ~typ:(returning (bool)) -let isSelectable self = msg_send ~self ~cmd:(selector "isSelectable") ~typ:(returning (bool)) -let isStylusDrawingEnabled self = msg_send ~self ~cmd:(selector "isStylusDrawingEnabled") ~typ:(returning (bool)) -let isTextDragActive self = msg_send ~self ~cmd:(selector "isTextDragActive") ~typ:(returning (bool)) -let isTextDropActive self = msg_send ~self ~cmd:(selector "isTextDropActive") ~typ:(returning (bool)) -let keyboardInput x ~shouldInsertText ~isMarkedText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldInsertText:isMarkedText:") ~typ:(id @-> id @-> bool @-> returning (bool)) x shouldInsertText isMarkedText -let keyboardInput' x ~shouldReplaceTextInRange ~replacementText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldReplaceTextInRange:replacementText:") ~typ:(id @-> NSRange.t @-> id @-> returning (bool)) x shouldReplaceTextInRange replacementText -let keyboardInputChanged x self = msg_send ~self ~cmd:(selector "keyboardInputChanged:") ~typ:(id @-> returning (bool)) x -let keyboardInputChangedSelection x self = msg_send ~self ~cmd:(selector "keyboardInputChangedSelection:") ~typ:(id @-> returning (void)) x -let keyboardInputShouldDelete x self = msg_send ~self ~cmd:(selector "keyboardInputShouldDelete:") ~typ:(id @-> returning (bool)) x -let largeContentTitle self = msg_send ~self ~cmd:(selector "largeContentTitle") ~typ:(returning (id)) -let layoutManager self = msg_send ~self ~cmd:(selector "layoutManager") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let lineHeight self = msg_send ~self ~cmd:(selector "lineHeight") ~typ:(returning (double)) -let linedPaper self = msg_send ~self ~cmd:(selector "linedPaper") ~typ:(returning (id)) -let linkTextAttributes self = msg_send ~self ~cmd:(selector "linkTextAttributes") ~typ:(returning (id)) -let linkTextAttributesForTextContainerView x self = msg_send ~self ~cmd:(selector "linkTextAttributesForTextContainerView:") ~typ:(id @-> returning (id)) x -let lowercaseWord x self = msg_send ~self ~cmd:(selector "lowercaseWord:") ~typ:(id @-> returning (void)) x -let makeTextWritingDirectionLeftToRight x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionLeftToRight:") ~typ:(id @-> returning (void)) x -let makeTextWritingDirectionNatural x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionNatural:") ~typ:(id @-> returning (void)) x -let makeTextWritingDirectionRightToLeft x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionRightToLeft:") ~typ:(id @-> returning (void)) x -let marginTop self = msg_send ~self ~cmd:(selector "marginTop") ~typ:(returning (ullong)) -let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning (id)) -let markedTextStyle self = msg_send ~self ~cmd:(selector "markedTextStyle") ~typ:(returning (id)) -let maxTileHeight self = msg_send ~self ~cmd:(selector "maxTileHeight") ~typ:(returning (double)) -let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning (id)) x -let offsetFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "offsetFromPosition:toPosition:") ~typ:(id @-> id @-> returning (llong)) x toPosition -let paperTexture self = msg_send ~self ~cmd:(selector "paperTexture") ~typ:(returning (id)) -let paste x self = msg_send ~self ~cmd:(selector "paste:") ~typ:(id @-> returning (void)) x -let pasteAndMatchStyle x self = msg_send ~self ~cmd:(selector "pasteAndMatchStyle:") ~typ:(id @-> returning (void)) x -let pasteDelegate self = msg_send ~self ~cmd:(selector "pasteDelegate") ~typ:(returning (id)) -let pasteFont x self = msg_send ~self ~cmd:(selector "pasteFont:") ~typ:(id @-> returning (void)) x -let pasteItemProviders x self = msg_send ~self ~cmd:(selector "pasteItemProviders:") ~typ:(id @-> returning (void)) x -let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int offset) -let positionFromPosition' x ~inDirection ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:inDirection:offset:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int inDirection) (LLong.of_int offset) -let positionWithinRange x ~farthestInDirection self = msg_send ~self ~cmd:(selector "positionWithinRange:farthestInDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int farthestInDirection) -let rangeWithTextAlternatives x ~atPosition self = msg_send ~self ~cmd:(selector "rangeWithTextAlternatives:atPosition:") ~typ:(ptr (id) @-> id @-> returning (id)) x atPosition -let rectInTextContainerForRect x self = msg_send_stret ~self ~cmd:(selector "rectInTextContainerForRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let removeAllGhostedRanges self = msg_send ~self ~cmd:(selector "removeAllGhostedRanges") ~typ:(returning (void)) -let removeAnnotation x ~forRange self = msg_send ~self ~cmd:(selector "removeAnnotation:forRange:") ~typ:(id @-> id @-> returning (void)) x forRange -let removeDictationResultPlaceholder x ~willInsertResult self = msg_send ~self ~cmd:(selector "removeDictationResultPlaceholder:willInsertResult:") ~typ:(id @-> bool @-> returning (void)) x willInsertResult -let removeInvisibleRange x self = msg_send ~self ~cmd:(selector "removeInvisibleRange:") ~typ:(id @-> returning (void)) x -let removeTextPlaceholder x self = msg_send ~self ~cmd:(selector "removeTextPlaceholder:") ~typ:(id @-> returning (void)) x -let replace x self = msg_send ~self ~cmd:(selector "replace:") ~typ:(id @-> returning (void)) x -let replaceRange x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning (void)) x withText -let replaceRange' x ~withAnnotatedString ~relativeReplacementRange self = msg_send ~self ~cmd:(selector "replaceRange:withAnnotatedString:relativeReplacementRange:") ~typ:(id @-> id @-> NSRange.t @-> returning (void)) x withAnnotatedString relativeReplacementRange -let replaceRangeWithTextWithoutClosingTyping x ~replacementText self = msg_send ~self ~cmd:(selector "replaceRangeWithTextWithoutClosingTyping:replacementText:") ~typ:(id @-> id @-> returning (void)) x replacementText -let resignDropResponderWithDropPerformed x self = msg_send ~self ~cmd:(selector "resignDropResponderWithDropPerformed:") ~typ:(bool @-> returning (void)) x -let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning (bool)) -let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning (bool)) x -let scrollRangeToVisible x self = msg_send ~self ~cmd:(selector "scrollRangeToVisible:") ~typ:(NSRange.t @-> returning (void)) x -let scrollSelectionToVisible x self = msg_send ~self ~cmd:(selector "scrollSelectionToVisible:") ~typ:(bool @-> returning (void)) x -let select x self = msg_send ~self ~cmd:(selector "select:") ~typ:(id @-> returning (void)) x -let selectAll x self = msg_send ~self ~cmd:(selector "selectAll:") ~typ:(id @-> returning (void)) x -let selectedRange self = msg_send_stret ~self ~cmd:(selector "selectedRange") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let selectedRangeForTextContainerView x self = msg_send_stret ~self ~cmd:(selector "selectedRangeForTextContainerView:") ~typ:(id @-> returning (NSRange.t)) ~return_type:NSRange.t x -let selectedText self = msg_send ~self ~cmd:(selector "selectedText") ~typ:(returning (id)) -let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning (id)) -let selectionAffinity self = msg_send ~self ~cmd:(selector "selectionAffinity") ~typ:(returning (llong)) -let selectionContainerView self = msg_send ~self ~cmd:(selector "selectionContainerView") ~typ:(returning (id)) -let selectionRectsForRange x self = msg_send ~self ~cmd:(selector "selectionRectsForRange:") ~typ:(id @-> returning (id)) x -let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning (id)) -let setAdjustsFontForContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsFontForContentSizeCategory:") ~typ:(bool @-> returning (void)) x -let setAllowsEditingTextAttributes x self = msg_send ~self ~cmd:(selector "setAllowsEditingTextAttributes:") ~typ:(bool @-> returning (void)) x -let setAttributedMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setAttributedMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning (void)) x selectedRange -let setAttributedPlaceholder x self = msg_send ~self ~cmd:(selector "setAttributedPlaceholder:") ~typ:(id @-> returning (void)) x -let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning (void)) x -let setBaseWritingDirection x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) forRange -let setBecomesEditableWithGestures x self = msg_send ~self ~cmd:(selector "setBecomesEditableWithGestures:") ~typ:(bool @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setClearsOnInsertion x self = msg_send ~self ~cmd:(selector "setClearsOnInsertion:") ~typ:(bool @-> returning (void)) x -let setContentMode x self = msg_send ~self ~cmd:(selector "setContentMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let setContentOffsetForSameViewDrops x self = msg_send ~self ~cmd:(selector "setContentOffsetForSameViewDrops:") ~typ:(CGPoint.t @-> returning (void)) x -let setContentToHTMLString x self = msg_send ~self ~cmd:(selector "setContentToHTMLString:") ~typ:(id @-> returning (void)) x -let setContinuousSpellCheckingEnabled x self = msg_send ~self ~cmd:(selector "setContinuousSpellCheckingEnabled:") ~typ:(bool @-> returning (void)) x -let setDataDetectorTypes x self = msg_send ~self ~cmd:(selector "setDataDetectorTypes:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDrawingDelegate x self = msg_send ~self ~cmd:(selector "setDrawingDelegate:") ~typ:(id @-> returning (void)) x -let setEditable x self = msg_send ~self ~cmd:(selector "setEditable:") ~typ:(bool @-> returning (void)) x -let setFingerDrawingEnabled x self = msg_send ~self ~cmd:(selector "setFingerDrawingEnabled:") ~typ:(bool @-> returning (void)) x -let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning (void)) x -let setForceDisableDictation x self = msg_send ~self ~cmd:(selector "setForceDisableDictation:") ~typ:(bool @-> returning (void)) x -let setForceEnableDictation x self = msg_send ~self ~cmd:(selector "setForceEnableDictation:") ~typ:(bool @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setInk x self = msg_send ~self ~cmd:(selector "setInk:") ~typ:(id @-> returning (void)) x -let setInputAccessoryView x self = msg_send ~self ~cmd:(selector "setInputAccessoryView:") ~typ:(id @-> returning (void)) x -let setInputDelegate x self = msg_send ~self ~cmd:(selector "setInputDelegate:") ~typ:(id @-> returning (void)) x -let setInputView x self = msg_send ~self ~cmd:(selector "setInputView:") ~typ:(id @-> returning (void)) x -let setInteractionState x self = msg_send ~self ~cmd:(selector "setInteractionState:") ~typ:(id @-> returning (void)) x -let setLineHeight x self = msg_send ~self ~cmd:(selector "setLineHeight:") ~typ:(double @-> returning (void)) x -let setLinedPaper x self = msg_send ~self ~cmd:(selector "setLinedPaper:") ~typ:(id @-> returning (void)) x -let setLinkTextAttributes x self = msg_send ~self ~cmd:(selector "setLinkTextAttributes:") ~typ:(id @-> returning (void)) x -let setMarginTop x self = msg_send ~self ~cmd:(selector "setMarginTop:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning (void)) x selectedRange -let setMarkedTextStyle x self = msg_send ~self ~cmd:(selector "setMarkedTextStyle:") ~typ:(id @-> returning (void)) x -let setMaxTileHeight x self = msg_send ~self ~cmd:(selector "setMaxTileHeight:") ~typ:(double @-> returning (void)) x -let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning (void)) -let setNeedsDisplayInRect x self = msg_send ~self ~cmd:(selector "setNeedsDisplayInRect:") ~typ:(CGRect.t @-> returning (void)) x -let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning (void)) -let setPaperEnabled x self = msg_send ~self ~cmd:(selector "setPaperEnabled:") ~typ:(bool @-> returning (void)) x -let setPaperTexture x self = msg_send ~self ~cmd:(selector "setPaperTexture:") ~typ:(id @-> returning (void)) x -let setPasteDelegate x self = msg_send ~self ~cmd:(selector "setPasteDelegate:") ~typ:(id @-> returning (void)) x -let setRulerEnabled x self = msg_send ~self ~cmd:(selector "setRulerEnabled:") ~typ:(bool @-> returning (void)) x -let setScrollEnabled x self = msg_send ~self ~cmd:(selector "setScrollEnabled:") ~typ:(bool @-> returning (void)) x -let setSecureTextEntry x self = msg_send ~self ~cmd:(selector "setSecureTextEntry:") ~typ:(bool @-> returning (void)) x -let setSelectable x self = msg_send ~self ~cmd:(selector "setSelectable:") ~typ:(bool @-> returning (void)) x -let setSelectedRange x self = msg_send ~self ~cmd:(selector "setSelectedRange:") ~typ:(NSRange.t @-> returning (void)) x -let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning (void)) x -let setShouldAutoscrollAboveBottom x self = msg_send ~self ~cmd:(selector "setShouldAutoscrollAboveBottom:") ~typ:(bool @-> returning (void)) x -let setShouldPresentSheetsInAWindowLayeredAboveTheKeyboard x self = msg_send ~self ~cmd:(selector "setShouldPresentSheetsInAWindowLayeredAboveTheKeyboard:") ~typ:(bool @-> returning (void)) x -let setShouldPreserveVisualFontSizeFidelity x self = msg_send ~self ~cmd:(selector "setShouldPreserveVisualFontSizeFidelity:") ~typ:(bool @-> returning (void)) x -let setStylusDrawingEnabled x self = msg_send ~self ~cmd:(selector "setStylusDrawingEnabled:") ~typ:(bool @-> returning (void)) x -let setStylusDrawingEnabled' x ~drawingClass ~sixChannelBlending self = msg_send ~self ~cmd:(selector "setStylusDrawingEnabled:drawingClass:sixChannelBlending:") ~typ:(bool @-> _Class @-> bool @-> returning (void)) x drawingClass sixChannelBlending -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning (void)) x -let setTextContainerInset x self = msg_send ~self ~cmd:(selector "setTextContainerInset:") ~typ:(ptr void @-> returning (void)) x -let setTextDragDelegate x self = msg_send ~self ~cmd:(selector "setTextDragDelegate:") ~typ:(id @-> returning (void)) x -let setTextDragOptions x self = msg_send ~self ~cmd:(selector "setTextDragOptions:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTextDropDelegate x self = msg_send ~self ~cmd:(selector "setTextDropDelegate:") ~typ:(id @-> returning (void)) x -let setTiledViewsDrawAsynchronously x self = msg_send ~self ~cmd:(selector "setTiledViewsDrawAsynchronously:") ~typ:(bool @-> returning (void)) x -let setTypingAttributes x self = msg_send ~self ~cmd:(selector "setTypingAttributes:") ~typ:(id @-> returning (void)) x -let setUsesStandardTextScaling x self = msg_send ~self ~cmd:(selector "setUsesStandardTextScaling:") ~typ:(bool @-> returning (void)) x -let setUsesTiledViews x self = msg_send ~self ~cmd:(selector "setUsesTiledViews:") ~typ:(bool @-> returning (void)) x -let setVisualStyle x self = msg_send ~self ~cmd:(selector "setVisualStyle:") ~typ:(id @-> returning (void)) x -let shouldAutoscrollAboveBottom self = msg_send ~self ~cmd:(selector "shouldAutoscrollAboveBottom") ~typ:(returning (bool)) -let shouldPresentSheetsInAWindowLayeredAboveTheKeyboard self = msg_send ~self ~cmd:(selector "shouldPresentSheetsInAWindowLayeredAboveTheKeyboard") ~typ:(returning (bool)) -let shouldPreserveVisualFontSizeFidelity self = msg_send ~self ~cmd:(selector "shouldPreserveVisualFontSizeFidelity") ~typ:(returning (bool)) -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let startAutoscroll x self = msg_send ~self ~cmd:(selector "startAutoscroll:") ~typ:(CGPoint.t @-> returning (void)) x -let startInteractionWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "startInteractionWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let takeTraitsFrom x self = msg_send ~self ~cmd:(selector "takeTraitsFrom:") ~typ:(id @-> returning (void)) x -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning (llong)) -let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning (id)) -let textContainer self = msg_send ~self ~cmd:(selector "textContainer") ~typ:(returning (id)) -let textContainerView x ~cuiCatalogForTextEffectName self = msg_send ~self ~cmd:(selector "textContainerView:cuiCatalogForTextEffectName:") ~typ:(id @-> id @-> returning (id)) x cuiCatalogForTextEffectName -let textContainerView' x ~linkTextAttributesForLink ~forCharacterAtIndex self = msg_send ~self ~cmd:(selector "textContainerView:linkTextAttributesForLink:forCharacterAtIndex:") ~typ:(id @-> id @-> ullong @-> returning (id)) x linkTextAttributesForLink (ULLong.of_int forCharacterAtIndex) -let textDragDelegate self = msg_send ~self ~cmd:(selector "textDragDelegate") ~typ:(returning (id)) -let textDragInteraction self = msg_send ~self ~cmd:(selector "textDragInteraction") ~typ:(returning (id)) -let textDragOptions self = msg_send ~self ~cmd:(selector "textDragOptions") ~typ:(returning (llong)) -let textDropDelegate self = msg_send ~self ~cmd:(selector "textDropDelegate") ~typ:(returning (id)) -let textDropInteraction self = msg_send ~self ~cmd:(selector "textDropInteraction") ~typ:(returning (id)) -let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning (id)) x -let textInput x ~shouldChangeCharactersInRange ~replacementText self = msg_send ~self ~cmd:(selector "textInput:shouldChangeCharactersInRange:replacementText:") ~typ:(id @-> NSRange.t @-> id @-> returning (bool)) x shouldChangeCharactersInRange replacementText -let textInputDidAnimatePaste x self = msg_send ~self ~cmd:(selector "textInputDidAnimatePaste:") ~typ:(id @-> returning (void)) x -let textInputDidChange x self = msg_send ~self ~cmd:(selector "textInputDidChange:") ~typ:(id @-> returning (void)) x -let textInputDidChangeSelection x self = msg_send ~self ~cmd:(selector "textInputDidChangeSelection:") ~typ:(id @-> returning (void)) x -let textInputShouldExtendCaretHeight x self = msg_send ~self ~cmd:(selector "textInputShouldExtendCaretHeight:") ~typ:(id @-> returning (bool)) x -let textInputView self = msg_send ~self ~cmd:(selector "textInputView") ~typ:(returning (id)) -let textInputWillAnimatePaste x self = msg_send ~self ~cmd:(selector "textInputWillAnimatePaste:") ~typ:(id @-> returning (void)) x -let textItemCoordinateSpace self = msg_send ~self ~cmd:(selector "textItemCoordinateSpace") ~typ:(returning (id)) -let textItemsOfType x ~inTextRange self = msg_send ~self ~cmd:(selector "textItemsOfType:inTextRange:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) inTextRange -let textLayoutController self = msg_send ~self ~cmd:(selector "textLayoutController") ~typ:(returning (id)) -let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning (id)) x toPosition -let textStorage self = msg_send ~self ~cmd:(selector "textStorage") ~typ:(returning (id)) -let textStylingAtPosition x ~inDirection self = msg_send ~self ~cmd:(selector "textStylingAtPosition:inDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int inDirection) -let tiledViewsDrawAsynchronously self = msg_send ~self ~cmd:(selector "tiledViewsDrawAsynchronously") ~typ:(returning (bool)) -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let toggleBoldface x self = msg_send ~self ~cmd:(selector "toggleBoldface:") ~typ:(id @-> returning (void)) x -let toggleItalics x self = msg_send ~self ~cmd:(selector "toggleItalics:") ~typ:(id @-> returning (void)) x -let toggleSmartInsertDelete x self = msg_send ~self ~cmd:(selector "toggleSmartInsertDelete:") ~typ:(id @-> returning (void)) x -let toggleUnderline x self = msg_send ~self ~cmd:(selector "toggleUnderline:") ~typ:(id @-> returning (void)) x -let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning (id)) -let topContentPadding self = msg_send ~self ~cmd:(selector "topContentPadding") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let typingAttributes self = msg_send ~self ~cmd:(selector "typingAttributes") ~typ:(returning (id)) -let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning (id)) -let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning (void)) -let updateAutoscrollAboveBottom self = msg_send ~self ~cmd:(selector "updateAutoscrollAboveBottom") ~typ:(returning (void)) -let updateFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let updateFloatingCursorAtPoint' x ~velocity self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:velocity:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (void)) x velocity -let updateInteractionWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "updateInteractionWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let updateSelection self = msg_send ~self ~cmd:(selector "updateSelection") ~typ:(returning (void)) -let updateSelectionForTextContainerView x self = msg_send ~self ~cmd:(selector "updateSelectionForTextContainerView:") ~typ:(id @-> returning (void)) x -let updateSelectionImmediately self = msg_send ~self ~cmd:(selector "updateSelectionImmediately") ~typ:(returning (void)) -let updateTextAttributesWithConversionHandler x self = msg_send ~self ~cmd:(selector "updateTextAttributesWithConversionHandler:") ~typ:(ptr void @-> returning (void)) x -let uppercaseWord x self = msg_send ~self ~cmd:(selector "uppercaseWord:") ~typ:(id @-> returning (void)) x -let usesStandardTextScaling self = msg_send ~self ~cmd:(selector "usesStandardTextScaling") ~typ:(returning (bool)) -let usesTiledViews self = msg_send ~self ~cmd:(selector "usesTiledViews") ~typ:(returning (bool)) -let validateCommand x self = msg_send ~self ~cmd:(selector "validateCommand:") ~typ:(id @-> returning (void)) x -let validateInteractionWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "validateInteractionWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let visibleRect self = msg_send_stret ~self ~cmd:(selector "visibleRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let visibleRectIgnoringKeyboard self = msg_send_stret ~self ~cmd:(selector "visibleRectIgnoringKeyboard") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let visibleTextRange self = msg_send ~self ~cmd:(selector "visibleTextRange") ~typ:(returning (id)) -let visibleTextRect self = msg_send_stret ~self ~cmd:(selector "visibleTextRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let visualStyle self = msg_send ~self ~cmd:(selector "visualStyle") ~typ:(returning (id)) -let webView self = msg_send ~self ~cmd:(selector "webView") ~typ:(returning (id)) -let willInteractWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "willInteractWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning (bool)) x \ No newline at end of file +let self = get_class "UITextView" + +let accessibilityFrame self = msg_send ~self ~cmd:(selector "accessibilityFrame") ~typ:(returning CGRect.t) +let addGhostedRange x self = msg_send ~self ~cmd:(selector "addGhostedRange:") ~typ:(id @-> returning void) x +let addInvisibleRange x self = msg_send ~self ~cmd:(selector "addInvisibleRange:") ~typ:(id @-> returning void) x +let addSnapshotSeparation x ~withAffinity self = msg_send ~self ~cmd:(selector "addSnapshotSeparation:withAffinity:") ~typ:(double @-> llong @-> returning void) x (LLong.of_int withAffinity) +let addTextAlternativesDisplayStyle x ~toRange self = msg_send ~self ~cmd:(selector "addTextAlternativesDisplayStyle:toRange:") ~typ:(llong @-> NSRange.t @-> returning void) (LLong.of_int x) toRange +let adjustedContentInsetDidChange self = msg_send ~self ~cmd:(selector "adjustedContentInsetDidChange") ~typ:(returning void) +let adjustsFontForContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsFontForContentSizeCategory") ~typ:(returning bool) +let alignCenter x self = msg_send ~self ~cmd:(selector "alignCenter:") ~typ:(id @-> returning void) x +let alignJustified x self = msg_send ~self ~cmd:(selector "alignJustified:") ~typ:(id @-> returning void) x +let alignLeft x self = msg_send ~self ~cmd:(selector "alignLeft:") ~typ:(id @-> returning void) x +let alignRight x self = msg_send ~self ~cmd:(selector "alignRight:") ~typ:(id @-> returning void) x +let allowsAttachments self = msg_send ~self ~cmd:(selector "allowsAttachments") ~typ:(returning bool) +let allowsDraggingAttachments self = msg_send ~self ~cmd:(selector "allowsDraggingAttachments") ~typ:(returning bool) +let allowsEditingTextAttributes self = msg_send ~self ~cmd:(selector "allowsEditingTextAttributes") ~typ:(returning bool) +let annotatedSubstringForRange x self = msg_send ~self ~cmd:(selector "annotatedSubstringForRange:") ~typ:(id @-> returning id) x +let attributedPlaceholder self = msg_send ~self ~cmd:(selector "attributedPlaceholder") ~typ:(returning id) +let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning id) +let attributedTextInRange x self = msg_send ~self ~cmd:(selector "attributedTextInRange:") ~typ:(id @-> returning id) x +let automaticallySelectedOverlay self = msg_send ~self ~cmd:(selector "automaticallySelectedOverlay") ~typ:(returning id) +let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int inDirection) +let becomeDropResponder self = msg_send ~self ~cmd:(selector "becomeDropResponder") ~typ:(returning void) +let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning bool) +let becomesEditableWithGestures self = msg_send ~self ~cmd:(selector "becomesEditableWithGestures") ~typ:(returning bool) +let beginFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "beginFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let beginSelectionChange self = msg_send ~self ~cmd:(selector "beginSelectionChange") ~typ:(returning void) +let beginSnapshotSeparationOfHeight x ~atYOffset self = msg_send ~self ~cmd:(selector "beginSnapshotSeparationOfHeight:atYOffset:") ~typ:(double @-> double @-> returning double) x atYOffset +let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning id) +let bottomContentPadding self = msg_send ~self ~cmd:(selector "bottomContentPadding") ~typ:(returning id) +let canBecomeDropResponder self = msg_send ~self ~cmd:(selector "canBecomeDropResponder") ~typ:(returning bool) +let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning bool) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let canResignFirstResponder self = msg_send ~self ~cmd:(selector "canResignFirstResponder") ~typ:(returning bool) +let cancelAutoscroll self = msg_send ~self ~cmd:(selector "cancelAutoscroll") ~typ:(returning void) +let capitalizeWord x self = msg_send ~self ~cmd:(selector "capitalizeWord:") ~typ:(id @-> returning void) x +let captureTextFromCamera x self = msg_send ~self ~cmd:(selector "captureTextFromCamera:") ~typ:(id @-> returning void) x +let caretRectForPosition x self = msg_send ~self ~cmd:(selector "caretRectForPosition:") ~typ:(id @-> returning CGRect.t) x +let characterRangeAtPoint x self = msg_send ~self ~cmd:(selector "characterRangeAtPoint:") ~typ:(CGPoint.t @-> returning id) x +let characterRangeByExtendingPosition x ~inDirection self = msg_send ~self ~cmd:(selector "characterRangeByExtendingPosition:inDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int inDirection) +let clearsOnInsertion self = msg_send ~self ~cmd:(selector "clearsOnInsertion") ~typ:(returning bool) +let closestPositionToPoint x self = msg_send ~self ~cmd:(selector "closestPositionToPoint:") ~typ:(CGPoint.t @-> returning id) x +let closestPositionToPoint' x ~withinRange self = msg_send ~self ~cmd:(selector "closestPositionToPoint:withinRange:") ~typ:(CGPoint.t @-> id @-> returning id) x withinRange +let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning llong) x toPosition +let contentOffsetForSameViewDrops self = msg_send ~self ~cmd:(selector "contentOffsetForSameViewDrops") ~typ:(returning CGPoint.t) +let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning void) x +let copyFont x self = msg_send ~self ~cmd:(selector "copyFont:") ~typ:(id @-> returning void) x +let cut x self = msg_send ~self ~cmd:(selector "cut:") ~typ:(id @-> returning void) x +let dataDetectorTypes self = msg_send ~self ~cmd:(selector "dataDetectorTypes") ~typ:(returning ullong) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning id) +let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let decodeRestorableStateWithCoder' x ~includingSelectedTextAndDisplayedViewControllers self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:includingSelectedTextAndDisplayedViewControllers:") ~typ:(id @-> bool @-> returning void) x includingSelectedTextAndDisplayedViewControllers +let decreaseSize x self = msg_send ~self ~cmd:(selector "decreaseSize:") ~typ:(id @-> returning void) x +let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning void) +let disableClearsOnInsertion self = msg_send ~self ~cmd:(selector "disableClearsOnInsertion") ~typ:(returning void) +let draggingFinished x self = msg_send ~self ~cmd:(selector "draggingFinished:") ~typ:(id @-> returning void) x +let draggingStarted self = msg_send ~self ~cmd:(selector "draggingStarted") ~typ:(returning void) +let drawRect x ~forViewPrintFormatter self = msg_send ~self ~cmd:(selector "drawRect:forViewPrintFormatter:") ~typ:(CGRect.t @-> id @-> returning void) x forViewPrintFormatter +let drawingDelegate self = msg_send ~self ~cmd:(selector "drawingDelegate") ~typ:(returning id) +let droppingFinished self = msg_send ~self ~cmd:(selector "droppingFinished") ~typ:(returning void) +let droppingStarted self = msg_send ~self ~cmd:(selector "droppingStarted") ~typ:(returning void) +let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let encodeRestorableStateWithCoder' x ~includingSelectedTextAndDisplayedViewControllers self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:includingSelectedTextAndDisplayedViewControllers:") ~typ:(id @-> bool @-> returning void) x includingSelectedTextAndDisplayedViewControllers +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let endFloatingCursor self = msg_send ~self ~cmd:(selector "endFloatingCursor") ~typ:(returning void) +let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning id) +let endSelectionChange self = msg_send ~self ~cmd:(selector "endSelectionChange") ~typ:(returning void) +let endSnapshotSeparation self = msg_send ~self ~cmd:(selector "endSnapshotSeparation") ~typ:(returning void) +let extractWordArrayFromTokensArray x self = msg_send ~self ~cmd:(selector "extractWordArrayFromTokensArray:") ~typ:(id @-> returning id) x +let firstRectForRange x self = msg_send ~self ~cmd:(selector "firstRectForRange:") ~typ:(id @-> returning CGRect.t) x +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let forceDisableDictation self = msg_send ~self ~cmd:(selector "forceDisableDictation") ~typ:(returning bool) +let forceEnableDictation self = msg_send ~self ~cmd:(selector "forceEnableDictation") ~typ:(returning bool) +let forwardingTargetForSelector x self = msg_send ~self ~cmd:(selector "forwardingTargetForSelector:") ~typ:(_SEL @-> returning id) x +let frameForDictationResultPlaceholder x self = msg_send ~self ~cmd:(selector "frameForDictationResultPlaceholder:") ~typ:(id @-> returning CGRect.t) x +let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning bool) +let hasTextItemsOfType x ~inTextRange self = msg_send ~self ~cmd:(selector "hasTextItemsOfType:inTextRange:") ~typ:(llong @-> id @-> returning bool) (LLong.of_int x) inTextRange +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let increaseSize x self = msg_send ~self ~cmd:(selector "increaseSize:") ~typ:(id @-> returning void) x +let initReadonlyAndUnselectableWithFrame x ~textContainer self = msg_send ~self ~cmd:(selector "initReadonlyAndUnselectableWithFrame:textContainer:") ~typ:(CGRect.t @-> id @-> returning id) x textContainer +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithFrame1 x ~font self = msg_send ~self ~cmd:(selector "initWithFrame:font:") ~typ:(CGRect.t @-> id @-> returning id) x font +let initWithFrame2 x ~textContainer self = msg_send ~self ~cmd:(selector "initWithFrame:textContainer:") ~typ:(CGRect.t @-> id @-> returning id) x textContainer +let ink self = msg_send ~self ~cmd:(selector "ink") ~typ:(returning id) +let inputAccessoryView self = msg_send ~self ~cmd:(selector "inputAccessoryView") ~typ:(returning id) +let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning id) +let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning id) +let insertAttributedText x self = msg_send ~self ~cmd:(selector "insertAttributedText:") ~typ:(id @-> returning void) x +let insertDictationResultPlaceholder self = msg_send ~self ~cmd:(selector "insertDictationResultPlaceholder") ~typ:(returning id) +let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning void) x +let insertText1 x ~alternatives ~style self = msg_send ~self ~cmd:(selector "insertText:alternatives:style:") ~typ:(id @-> id @-> llong @-> returning void) x alternatives (LLong.of_int style) +let insertText2 x ~style ~alternatives self = msg_send ~self ~cmd:(selector "insertText:style:alternatives:") ~typ:(id @-> llong @-> id @-> returning void) x (LLong.of_int style) alternatives +let insertTextPlaceholderWithSize x self = msg_send ~self ~cmd:(selector "insertTextPlaceholderWithSize:") ~typ:(CGSize.t @-> returning id) x +let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning id) +let interactionState self = msg_send ~self ~cmd:(selector "interactionState") ~typ:(returning id) +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let invalidateDropCaret self = msg_send ~self ~cmd:(selector "invalidateDropCaret") ~typ:(returning void) +let invalidateIntrinsicContentSize self = msg_send ~self ~cmd:(selector "invalidateIntrinsicContentSize") ~typ:(returning void) +let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning bool) +let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning bool) +let isEditableForTextContainerView x self = msg_send ~self ~cmd:(selector "isEditableForTextContainerView:") ~typ:(id @-> returning bool) x +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isFingerDrawingEnabled self = msg_send ~self ~cmd:(selector "isFingerDrawingEnabled") ~typ:(returning bool) +let isLayoutSizeDependentOnPerpendicularAxis self = msg_send ~self ~cmd:(selector "isLayoutSizeDependentOnPerpendicularAxis") ~typ:(returning bool) +let isPaperEnabled self = msg_send ~self ~cmd:(selector "isPaperEnabled") ~typ:(returning bool) +let isRulerEnabled self = msg_send ~self ~cmd:(selector "isRulerEnabled") ~typ:(returning bool) +let isSelectable self = msg_send ~self ~cmd:(selector "isSelectable") ~typ:(returning bool) +let isStylusDrawingEnabled self = msg_send ~self ~cmd:(selector "isStylusDrawingEnabled") ~typ:(returning bool) +let isTextDragActive self = msg_send ~self ~cmd:(selector "isTextDragActive") ~typ:(returning bool) +let isTextDropActive self = msg_send ~self ~cmd:(selector "isTextDropActive") ~typ:(returning bool) +let keyboardInput x ~shouldInsertText ~isMarkedText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldInsertText:isMarkedText:") ~typ:(id @-> id @-> bool @-> returning bool) x shouldInsertText isMarkedText +let keyboardInput' x ~shouldReplaceTextInRange ~replacementText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldReplaceTextInRange:replacementText:") ~typ:(id @-> NSRange.t @-> id @-> returning bool) x shouldReplaceTextInRange replacementText +let keyboardInputChanged x self = msg_send ~self ~cmd:(selector "keyboardInputChanged:") ~typ:(id @-> returning bool) x +let keyboardInputChangedSelection x self = msg_send ~self ~cmd:(selector "keyboardInputChangedSelection:") ~typ:(id @-> returning void) x +let keyboardInputShouldDelete x self = msg_send ~self ~cmd:(selector "keyboardInputShouldDelete:") ~typ:(id @-> returning bool) x +let largeContentTitle self = msg_send ~self ~cmd:(selector "largeContentTitle") ~typ:(returning id) +let layoutManager self = msg_send ~self ~cmd:(selector "layoutManager") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let lineHeight self = msg_send ~self ~cmd:(selector "lineHeight") ~typ:(returning double) +let linedPaper self = msg_send ~self ~cmd:(selector "linedPaper") ~typ:(returning id) +let linkTextAttributes self = msg_send ~self ~cmd:(selector "linkTextAttributes") ~typ:(returning id) +let linkTextAttributesForTextContainerView x self = msg_send ~self ~cmd:(selector "linkTextAttributesForTextContainerView:") ~typ:(id @-> returning id) x +let lowercaseWord x self = msg_send ~self ~cmd:(selector "lowercaseWord:") ~typ:(id @-> returning void) x +let makeTextWritingDirectionLeftToRight x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionLeftToRight:") ~typ:(id @-> returning void) x +let makeTextWritingDirectionNatural x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionNatural:") ~typ:(id @-> returning void) x +let makeTextWritingDirectionRightToLeft x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionRightToLeft:") ~typ:(id @-> returning void) x +let marginTop self = msg_send ~self ~cmd:(selector "marginTop") ~typ:(returning ullong) +let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning id) +let markedTextStyle self = msg_send ~self ~cmd:(selector "markedTextStyle") ~typ:(returning id) +let maxTileHeight self = msg_send ~self ~cmd:(selector "maxTileHeight") ~typ:(returning double) +let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning id) x +let offsetFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "offsetFromPosition:toPosition:") ~typ:(id @-> id @-> returning llong) x toPosition +let paperTexture self = msg_send ~self ~cmd:(selector "paperTexture") ~typ:(returning id) +let paste x self = msg_send ~self ~cmd:(selector "paste:") ~typ:(id @-> returning void) x +let pasteAndMatchStyle x self = msg_send ~self ~cmd:(selector "pasteAndMatchStyle:") ~typ:(id @-> returning void) x +let pasteDelegate self = msg_send ~self ~cmd:(selector "pasteDelegate") ~typ:(returning id) +let pasteFont x self = msg_send ~self ~cmd:(selector "pasteFont:") ~typ:(id @-> returning void) x +let pasteItemProviders x self = msg_send ~self ~cmd:(selector "pasteItemProviders:") ~typ:(id @-> returning void) x +let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int offset) +let positionFromPosition' x ~inDirection ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:inDirection:offset:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int inDirection) (LLong.of_int offset) +let positionWithinRange x ~farthestInDirection self = msg_send ~self ~cmd:(selector "positionWithinRange:farthestInDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int farthestInDirection) +let rangeWithTextAlternatives x ~atPosition self = msg_send ~self ~cmd:(selector "rangeWithTextAlternatives:atPosition:") ~typ:((ptr id) @-> id @-> returning id) x atPosition +let rectInTextContainerForRect x self = msg_send ~self ~cmd:(selector "rectInTextContainerForRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let removeAllGhostedRanges self = msg_send ~self ~cmd:(selector "removeAllGhostedRanges") ~typ:(returning void) +let removeAnnotation x ~forRange self = msg_send ~self ~cmd:(selector "removeAnnotation:forRange:") ~typ:(id @-> id @-> returning void) x forRange +let removeDictationResultPlaceholder x ~willInsertResult self = msg_send ~self ~cmd:(selector "removeDictationResultPlaceholder:willInsertResult:") ~typ:(id @-> bool @-> returning void) x willInsertResult +let removeInvisibleRange x self = msg_send ~self ~cmd:(selector "removeInvisibleRange:") ~typ:(id @-> returning void) x +let removeTextPlaceholder x self = msg_send ~self ~cmd:(selector "removeTextPlaceholder:") ~typ:(id @-> returning void) x +let replace x self = msg_send ~self ~cmd:(selector "replace:") ~typ:(id @-> returning void) x +let replaceRange x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning void) x withText +let replaceRange' x ~withAnnotatedString ~relativeReplacementRange self = msg_send ~self ~cmd:(selector "replaceRange:withAnnotatedString:relativeReplacementRange:") ~typ:(id @-> id @-> NSRange.t @-> returning void) x withAnnotatedString relativeReplacementRange +let replaceRangeWithTextWithoutClosingTyping x ~replacementText self = msg_send ~self ~cmd:(selector "replaceRangeWithTextWithoutClosingTyping:replacementText:") ~typ:(id @-> id @-> returning void) x replacementText +let resignDropResponderWithDropPerformed x self = msg_send ~self ~cmd:(selector "resignDropResponderWithDropPerformed:") ~typ:(bool @-> returning void) x +let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning bool) +let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning bool) x +let scrollRangeToVisible x self = msg_send ~self ~cmd:(selector "scrollRangeToVisible:") ~typ:(NSRange.t @-> returning void) x +let scrollSelectionToVisible x self = msg_send ~self ~cmd:(selector "scrollSelectionToVisible:") ~typ:(bool @-> returning void) x +let select x self = msg_send ~self ~cmd:(selector "select:") ~typ:(id @-> returning void) x +let selectAll x self = msg_send ~self ~cmd:(selector "selectAll:") ~typ:(id @-> returning void) x +let selectedRange self = msg_send ~self ~cmd:(selector "selectedRange") ~typ:(returning NSRange.t) +let selectedRangeForTextContainerView x self = msg_send ~self ~cmd:(selector "selectedRangeForTextContainerView:") ~typ:(id @-> returning NSRange.t) x +let selectedText self = msg_send ~self ~cmd:(selector "selectedText") ~typ:(returning id) +let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning id) +let selectionAffinity self = msg_send ~self ~cmd:(selector "selectionAffinity") ~typ:(returning llong) +let selectionContainerView self = msg_send ~self ~cmd:(selector "selectionContainerView") ~typ:(returning id) +let selectionRectsForRange x self = msg_send ~self ~cmd:(selector "selectionRectsForRange:") ~typ:(id @-> returning id) x +let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning id) +let setAdjustsFontForContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsFontForContentSizeCategory:") ~typ:(bool @-> returning void) x +let setAllowsEditingTextAttributes x self = msg_send ~self ~cmd:(selector "setAllowsEditingTextAttributes:") ~typ:(bool @-> returning void) x +let setAttributedMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setAttributedMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning void) x selectedRange +let setAttributedPlaceholder x self = msg_send ~self ~cmd:(selector "setAttributedPlaceholder:") ~typ:(id @-> returning void) x +let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning void) x +let setBaseWritingDirection x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) forRange +let setBecomesEditableWithGestures x self = msg_send ~self ~cmd:(selector "setBecomesEditableWithGestures:") ~typ:(bool @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setClearsOnInsertion x self = msg_send ~self ~cmd:(selector "setClearsOnInsertion:") ~typ:(bool @-> returning void) x +let setContentMode x self = msg_send ~self ~cmd:(selector "setContentMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGPoint.t @-> returning void) x +let setContentOffsetForSameViewDrops x self = msg_send ~self ~cmd:(selector "setContentOffsetForSameViewDrops:") ~typ:(CGPoint.t @-> returning void) x +let setContentToHTMLString x self = msg_send ~self ~cmd:(selector "setContentToHTMLString:") ~typ:(id @-> returning void) x +let setContinuousSpellCheckingEnabled x self = msg_send ~self ~cmd:(selector "setContinuousSpellCheckingEnabled:") ~typ:(bool @-> returning void) x +let setDataDetectorTypes x self = msg_send ~self ~cmd:(selector "setDataDetectorTypes:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDrawingDelegate x self = msg_send ~self ~cmd:(selector "setDrawingDelegate:") ~typ:(id @-> returning void) x +let setEditable x self = msg_send ~self ~cmd:(selector "setEditable:") ~typ:(bool @-> returning void) x +let setFingerDrawingEnabled x self = msg_send ~self ~cmd:(selector "setFingerDrawingEnabled:") ~typ:(bool @-> returning void) x +let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning void) x +let setForceDisableDictation x self = msg_send ~self ~cmd:(selector "setForceDisableDictation:") ~typ:(bool @-> returning void) x +let setForceEnableDictation x self = msg_send ~self ~cmd:(selector "setForceEnableDictation:") ~typ:(bool @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setInk x self = msg_send ~self ~cmd:(selector "setInk:") ~typ:(id @-> returning void) x +let setInputAccessoryView x self = msg_send ~self ~cmd:(selector "setInputAccessoryView:") ~typ:(id @-> returning void) x +let setInputDelegate x self = msg_send ~self ~cmd:(selector "setInputDelegate:") ~typ:(id @-> returning void) x +let setInputView x self = msg_send ~self ~cmd:(selector "setInputView:") ~typ:(id @-> returning void) x +let setInteractionState x self = msg_send ~self ~cmd:(selector "setInteractionState:") ~typ:(id @-> returning void) x +let setLineHeight x self = msg_send ~self ~cmd:(selector "setLineHeight:") ~typ:(double @-> returning void) x +let setLinedPaper x self = msg_send ~self ~cmd:(selector "setLinedPaper:") ~typ:(id @-> returning void) x +let setLinkTextAttributes x self = msg_send ~self ~cmd:(selector "setLinkTextAttributes:") ~typ:(id @-> returning void) x +let setMarginTop x self = msg_send ~self ~cmd:(selector "setMarginTop:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning void) x selectedRange +let setMarkedTextStyle x self = msg_send ~self ~cmd:(selector "setMarkedTextStyle:") ~typ:(id @-> returning void) x +let setMaxTileHeight x self = msg_send ~self ~cmd:(selector "setMaxTileHeight:") ~typ:(double @-> returning void) x +let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning void) +let setNeedsDisplayInRect x self = msg_send ~self ~cmd:(selector "setNeedsDisplayInRect:") ~typ:(CGRect.t @-> returning void) x +let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning void) +let setPaperEnabled x self = msg_send ~self ~cmd:(selector "setPaperEnabled:") ~typ:(bool @-> returning void) x +let setPaperTexture x self = msg_send ~self ~cmd:(selector "setPaperTexture:") ~typ:(id @-> returning void) x +let setPasteDelegate x self = msg_send ~self ~cmd:(selector "setPasteDelegate:") ~typ:(id @-> returning void) x +let setRulerEnabled x self = msg_send ~self ~cmd:(selector "setRulerEnabled:") ~typ:(bool @-> returning void) x +let setScrollEnabled x self = msg_send ~self ~cmd:(selector "setScrollEnabled:") ~typ:(bool @-> returning void) x +let setSecureTextEntry x self = msg_send ~self ~cmd:(selector "setSecureTextEntry:") ~typ:(bool @-> returning void) x +let setSelectable x self = msg_send ~self ~cmd:(selector "setSelectable:") ~typ:(bool @-> returning void) x +let setSelectedRange x self = msg_send ~self ~cmd:(selector "setSelectedRange:") ~typ:(NSRange.t @-> returning void) x +let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning void) x +let setShouldAutoscrollAboveBottom x self = msg_send ~self ~cmd:(selector "setShouldAutoscrollAboveBottom:") ~typ:(bool @-> returning void) x +let setShouldPresentSheetsInAWindowLayeredAboveTheKeyboard x self = msg_send ~self ~cmd:(selector "setShouldPresentSheetsInAWindowLayeredAboveTheKeyboard:") ~typ:(bool @-> returning void) x +let setShouldPreserveVisualFontSizeFidelity x self = msg_send ~self ~cmd:(selector "setShouldPreserveVisualFontSizeFidelity:") ~typ:(bool @-> returning void) x +let setStylusDrawingEnabled x self = msg_send ~self ~cmd:(selector "setStylusDrawingEnabled:") ~typ:(bool @-> returning void) x +let setStylusDrawingEnabled' x ~drawingClass ~sixChannelBlending self = msg_send ~self ~cmd:(selector "setStylusDrawingEnabled:drawingClass:sixChannelBlending:") ~typ:(bool @-> _Class @-> bool @-> returning void) x drawingClass sixChannelBlending +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning void) x +let setTextContainerInset x self = msg_send ~self ~cmd:(selector "setTextContainerInset:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setTextDragDelegate x self = msg_send ~self ~cmd:(selector "setTextDragDelegate:") ~typ:(id @-> returning void) x +let setTextDragOptions x self = msg_send ~self ~cmd:(selector "setTextDragOptions:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTextDropDelegate x self = msg_send ~self ~cmd:(selector "setTextDropDelegate:") ~typ:(id @-> returning void) x +let setTiledViewsDrawAsynchronously x self = msg_send ~self ~cmd:(selector "setTiledViewsDrawAsynchronously:") ~typ:(bool @-> returning void) x +let setTypingAttributes x self = msg_send ~self ~cmd:(selector "setTypingAttributes:") ~typ:(id @-> returning void) x +let setUsesStandardTextScaling x self = msg_send ~self ~cmd:(selector "setUsesStandardTextScaling:") ~typ:(bool @-> returning void) x +let setUsesTiledViews x self = msg_send ~self ~cmd:(selector "setUsesTiledViews:") ~typ:(bool @-> returning void) x +let setVisualStyle x self = msg_send ~self ~cmd:(selector "setVisualStyle:") ~typ:(id @-> returning void) x +let shouldAutoscrollAboveBottom self = msg_send ~self ~cmd:(selector "shouldAutoscrollAboveBottom") ~typ:(returning bool) +let shouldPresentSheetsInAWindowLayeredAboveTheKeyboard self = msg_send ~self ~cmd:(selector "shouldPresentSheetsInAWindowLayeredAboveTheKeyboard") ~typ:(returning bool) +let shouldPreserveVisualFontSizeFidelity self = msg_send ~self ~cmd:(selector "shouldPreserveVisualFontSizeFidelity") ~typ:(returning bool) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let startAutoscroll x self = msg_send ~self ~cmd:(selector "startAutoscroll:") ~typ:(CGPoint.t @-> returning void) x +let startInteractionWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "startInteractionWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let takeTraitsFrom x self = msg_send ~self ~cmd:(selector "takeTraitsFrom:") ~typ:(id @-> returning void) x +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning llong) +let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning id) +let textContainer self = msg_send ~self ~cmd:(selector "textContainer") ~typ:(returning id) +let textContainerInset self = msg_send ~self ~cmd:(selector "textContainerInset") ~typ:(returning UIEdgeInsets.t) +let textContainerView x ~cuiCatalogForTextEffectName self = msg_send ~self ~cmd:(selector "textContainerView:cuiCatalogForTextEffectName:") ~typ:(id @-> id @-> returning id) x cuiCatalogForTextEffectName +let textContainerView' x ~linkTextAttributesForLink ~forCharacterAtIndex self = msg_send ~self ~cmd:(selector "textContainerView:linkTextAttributesForLink:forCharacterAtIndex:") ~typ:(id @-> id @-> ullong @-> returning id) x linkTextAttributesForLink (ULLong.of_int forCharacterAtIndex) +let textDragDelegate self = msg_send ~self ~cmd:(selector "textDragDelegate") ~typ:(returning id) +let textDragInteraction self = msg_send ~self ~cmd:(selector "textDragInteraction") ~typ:(returning id) +let textDragOptions self = msg_send ~self ~cmd:(selector "textDragOptions") ~typ:(returning llong) +let textDropDelegate self = msg_send ~self ~cmd:(selector "textDropDelegate") ~typ:(returning id) +let textDropInteraction self = msg_send ~self ~cmd:(selector "textDropInteraction") ~typ:(returning id) +let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning id) x +let textInput x ~shouldChangeCharactersInRange ~replacementText self = msg_send ~self ~cmd:(selector "textInput:shouldChangeCharactersInRange:replacementText:") ~typ:(id @-> NSRange.t @-> id @-> returning bool) x shouldChangeCharactersInRange replacementText +let textInputDidAnimatePaste x self = msg_send ~self ~cmd:(selector "textInputDidAnimatePaste:") ~typ:(id @-> returning void) x +let textInputDidChange x self = msg_send ~self ~cmd:(selector "textInputDidChange:") ~typ:(id @-> returning void) x +let textInputDidChangeSelection x self = msg_send ~self ~cmd:(selector "textInputDidChangeSelection:") ~typ:(id @-> returning void) x +let textInputShouldExtendCaretHeight x self = msg_send ~self ~cmd:(selector "textInputShouldExtendCaretHeight:") ~typ:(id @-> returning bool) x +let textInputView self = msg_send ~self ~cmd:(selector "textInputView") ~typ:(returning id) +let textInputWillAnimatePaste x self = msg_send ~self ~cmd:(selector "textInputWillAnimatePaste:") ~typ:(id @-> returning void) x +let textItemCoordinateSpace self = msg_send ~self ~cmd:(selector "textItemCoordinateSpace") ~typ:(returning id) +let textItemsOfType x ~inTextRange self = msg_send ~self ~cmd:(selector "textItemsOfType:inTextRange:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) inTextRange +let textLayoutController self = msg_send ~self ~cmd:(selector "textLayoutController") ~typ:(returning id) +let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning id) x toPosition +let textStorage self = msg_send ~self ~cmd:(selector "textStorage") ~typ:(returning id) +let textStylingAtPosition x ~inDirection self = msg_send ~self ~cmd:(selector "textStylingAtPosition:inDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int inDirection) +let tiledViewsDrawAsynchronously self = msg_send ~self ~cmd:(selector "tiledViewsDrawAsynchronously") ~typ:(returning bool) +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let toggleBoldface x self = msg_send ~self ~cmd:(selector "toggleBoldface:") ~typ:(id @-> returning void) x +let toggleItalics x self = msg_send ~self ~cmd:(selector "toggleItalics:") ~typ:(id @-> returning void) x +let toggleSmartInsertDelete x self = msg_send ~self ~cmd:(selector "toggleSmartInsertDelete:") ~typ:(id @-> returning void) x +let toggleUnderline x self = msg_send ~self ~cmd:(selector "toggleUnderline:") ~typ:(id @-> returning void) x +let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning id) +let topContentPadding self = msg_send ~self ~cmd:(selector "topContentPadding") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let typingAttributes self = msg_send ~self ~cmd:(selector "typingAttributes") ~typ:(returning id) +let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning id) +let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning void) +let updateAutoscrollAboveBottom self = msg_send ~self ~cmd:(selector "updateAutoscrollAboveBottom") ~typ:(returning void) +let updateFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let updateFloatingCursorAtPoint' x ~velocity self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:velocity:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning void) x velocity +let updateInteractionWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "updateInteractionWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let updateSelection self = msg_send ~self ~cmd:(selector "updateSelection") ~typ:(returning void) +let updateSelectionForTextContainerView x self = msg_send ~self ~cmd:(selector "updateSelectionForTextContainerView:") ~typ:(id @-> returning void) x +let updateSelectionImmediately self = msg_send ~self ~cmd:(selector "updateSelectionImmediately") ~typ:(returning void) +let updateTextAttributesWithConversionHandler x self = msg_send ~self ~cmd:(selector "updateTextAttributesWithConversionHandler:") ~typ:((ptr void) @-> returning void) x +let uppercaseWord x self = msg_send ~self ~cmd:(selector "uppercaseWord:") ~typ:(id @-> returning void) x +let usesStandardTextScaling self = msg_send ~self ~cmd:(selector "usesStandardTextScaling") ~typ:(returning bool) +let usesTiledViews self = msg_send ~self ~cmd:(selector "usesTiledViews") ~typ:(returning bool) +let validateCommand x self = msg_send ~self ~cmd:(selector "validateCommand:") ~typ:(id @-> returning void) x +let validateInteractionWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "validateInteractionWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let visibleRect self = msg_send ~self ~cmd:(selector "visibleRect") ~typ:(returning CGRect.t) +let visibleRectIgnoringKeyboard self = msg_send ~self ~cmd:(selector "visibleRectIgnoringKeyboard") ~typ:(returning CGRect.t) +let visibleTextRange self = msg_send ~self ~cmd:(selector "visibleTextRange") ~typ:(returning id) +let visibleTextRect self = msg_send ~self ~cmd:(selector "visibleTextRect") ~typ:(returning CGRect.t) +let visualStyle self = msg_send ~self ~cmd:(selector "visualStyle") ~typ:(returning id) +let webView self = msg_send ~self ~cmd:(selector "webView") ~typ:(returning id) +let willInteractWithLinkAtPoint x self = msg_send ~self ~cmd:(selector "willInteractWithLinkAtPoint:") ~typ:(CGPoint.t @-> returning bool) x \ No newline at end of file diff --git a/uikit/UITextViewPrintFormatter.ml b/uikit/UITextViewPrintFormatter.ml index 4fa0d76e..cefa7b4a 100644 --- a/uikit/UITextViewPrintFormatter.ml +++ b/uikit/UITextViewPrintFormatter.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextViewPrintFormatter" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextviewprintformatter?language=objc}UITextViewPrintFormatter} *) -let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning (id)) -let color self = msg_send ~self ~cmd:(selector "color") ~typ:(returning (id)) -let drawInRect x ~forPageAtIndex self = msg_send ~self ~cmd:(selector "drawInRect:forPageAtIndex:") ~typ:(CGRect.t @-> llong @-> returning (void)) x (LLong.of_int forPageAtIndex) -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let rectForPageAtIndex x self = msg_send_stret ~self ~cmd:(selector "rectForPageAtIndex:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) -let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning (void)) x -let setColor x self = msg_send ~self ~cmd:(selector "setColor:") ~typ:(id @-> returning (void)) x -let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UITextViewPrintFormatter" + +let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning id) +let color self = msg_send ~self ~cmd:(selector "color") ~typ:(returning id) +let drawInRect x ~forPageAtIndex self = msg_send ~self ~cmd:(selector "drawInRect:forPageAtIndex:") ~typ:(CGRect.t @-> llong @-> returning void) x (LLong.of_int forPageAtIndex) +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let rectForPageAtIndex x self = msg_send ~self ~cmd:(selector "rectForPageAtIndex:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) +let setAttributedText x self = msg_send ~self ~cmd:(selector "setAttributedText:") ~typ:(id @-> returning void) x +let setColor x self = msg_send ~self ~cmd:(selector "setColor:") ~typ:(id @-> returning void) x +let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIThreadSafeNode.ml b/uikit/UIThreadSafeNode.ml index 7e375440..953fc9f5 100644 --- a/uikit/UIThreadSafeNode.ml +++ b/uikit/UIThreadSafeNode.ml @@ -5,18 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIThreadSafeNode" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uithreadsafenode?language=objc}UIThreadSafeNode} *) -module C = struct - let threadSafeNodeWithNode x self = msg_send ~self ~cmd:(selector "threadSafeNodeWithNode:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIThreadSafeNode" -let conformsToProtocol x self = msg_send ~self ~cmd:(selector "conformsToProtocol:") ~typ:(id @-> returning (bool)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning (void)) x -let initWithNode x self = msg_send ~self ~cmd:(selector "initWithNode:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isKindOfClass x self = msg_send ~self ~cmd:(selector "isKindOfClass:") ~typ:(_Class @-> returning (bool)) x -let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning (id)) x -let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning (bool)) x \ No newline at end of file +let conformsToProtocol x self = msg_send ~self ~cmd:(selector "conformsToProtocol:") ~typ:(id @-> returning bool) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning void) x +let initWithNode x self = msg_send ~self ~cmd:(selector "initWithNode:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isKindOfClass x self = msg_send ~self ~cmd:(selector "isKindOfClass:") ~typ:(_Class @-> returning bool) x +let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning id) x +let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIThreadSafeNodeClass.ml b/uikit/UIThreadSafeNodeClass.ml new file mode 100644 index 00000000..13aa1f1a --- /dev/null +++ b/uikit/UIThreadSafeNodeClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uithreadsafenode?language=objc}UIThreadSafeNode} *) + +let threadSafeNodeWithNode x self = msg_send ~self ~cmd:(selector "threadSafeNodeWithNode:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UITintColor.ml b/uikit/UITintColor.ml index 0bc48266..76ca8990 100644 --- a/uikit/UITintColor.ml +++ b/uikit/UITintColor.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITintColor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitintcolor?language=objc}UITintColor} *) -let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr void)) -let alphaComponent self = msg_send ~self ~cmd:(selector "alphaComponent") ~typ:(returning (double)) -let colorSpaceName self = msg_send ~self ~cmd:(selector "colorSpaceName") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let getHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "getHue:saturation:brightness:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (bool)) x saturation brightness alpha -let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> ptr (double) @-> ptr (double) @-> returning (bool)) x green blue alpha -let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:(ptr (double) @-> ptr (double) @-> returning (bool)) x alpha -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isPatternColor self = msg_send ~self ~cmd:(selector "isPatternColor") ~typ:(returning (bool)) -let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning (void)) -let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning (void)) -let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UITintColor" + +let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr CGColor.t)) +let alphaComponent self = msg_send ~self ~cmd:(selector "alphaComponent") ~typ:(returning double) +let colorSpaceName self = msg_send ~self ~cmd:(selector "colorSpaceName") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let getHue x ~saturation ~brightness ~alpha self = msg_send ~self ~cmd:(selector "getHue:saturation:brightness:alpha:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> (ptr double) @-> returning bool) x saturation brightness alpha +let getRed x ~green ~blue ~alpha self = msg_send ~self ~cmd:(selector "getRed:green:blue:alpha:") ~typ:((ptr double) @-> (ptr double) @-> (ptr double) @-> (ptr double) @-> returning bool) x green blue alpha +let getWhite x ~alpha self = msg_send ~self ~cmd:(selector "getWhite:alpha:") ~typ:((ptr double) @-> (ptr double) @-> returning bool) x alpha +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isPatternColor self = msg_send ~self ~cmd:(selector "isPatternColor") ~typ:(returning bool) +let set self = msg_send ~self ~cmd:(selector "set") ~typ:(returning void) +let setFill self = msg_send ~self ~cmd:(selector "setFill") ~typ:(returning void) +let setStroke self = msg_send ~self ~cmd:(selector "setStroke") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UITitlebar.ml b/uikit/UITitlebar.ml index fc73abad..a69687c9 100644 --- a/uikit/UITitlebar.ml +++ b/uikit/UITitlebar.ml @@ -5,27 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITitlebar" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uititlebar?language=objc}UITitlebar} *) -module C = struct - let initializeConnections self = msg_send ~self ~cmd:(selector "initializeConnections") ~typ:(returning (void)) -end +let self = get_class "UITitlebar" -let autoHidesToolbarInFullScreen self = msg_send ~self ~cmd:(selector "autoHidesToolbarInFullScreen") ~typ:(returning (bool)) -let drawsBottomDividerWhenTransparent self = msg_send ~self ~cmd:(selector "drawsBottomDividerWhenTransparent") ~typ:(returning (bool)) -let initWithScene x self = msg_send ~self ~cmd:(selector "initWithScene:") ~typ:(id @-> returning (id)) x -let representedURL self = msg_send ~self ~cmd:(selector "representedURL") ~typ:(returning (id)) -let separatorStyle self = msg_send ~self ~cmd:(selector "separatorStyle") ~typ:(returning (llong)) -let setAutoHidesToolbarInFullScreen x self = msg_send ~self ~cmd:(selector "setAutoHidesToolbarInFullScreen:") ~typ:(bool @-> returning (void)) x -let setDrawsBottomDividerWhenTransparent x self = msg_send ~self ~cmd:(selector "setDrawsBottomDividerWhenTransparent:") ~typ:(bool @-> returning (void)) x -let setRepresentedURL x self = msg_send ~self ~cmd:(selector "setRepresentedURL:") ~typ:(id @-> returning (void)) x -let setSeparatorStyle x self = msg_send ~self ~cmd:(selector "setSeparatorStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTitleVisibility x self = msg_send ~self ~cmd:(selector "setTitleVisibility:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setToolbar x self = msg_send ~self ~cmd:(selector "setToolbar:") ~typ:(id @-> returning (void)) x -let setToolbarStyle x self = msg_send ~self ~cmd:(selector "setToolbarStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setUserInterfaceStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let titleVisibility self = msg_send ~self ~cmd:(selector "titleVisibility") ~typ:(returning (llong)) -let toolbar self = msg_send ~self ~cmd:(selector "toolbar") ~typ:(returning (id)) -let toolbarStyle self = msg_send ~self ~cmd:(selector "toolbarStyle") ~typ:(returning (llong)) -let userInterfaceStyle self = msg_send ~self ~cmd:(selector "userInterfaceStyle") ~typ:(returning (llong)) \ No newline at end of file +let autoHidesToolbarInFullScreen self = msg_send ~self ~cmd:(selector "autoHidesToolbarInFullScreen") ~typ:(returning bool) +let drawsBottomDividerWhenTransparent self = msg_send ~self ~cmd:(selector "drawsBottomDividerWhenTransparent") ~typ:(returning bool) +let initWithScene x self = msg_send ~self ~cmd:(selector "initWithScene:") ~typ:(id @-> returning id) x +let representedURL self = msg_send ~self ~cmd:(selector "representedURL") ~typ:(returning id) +let separatorStyle self = msg_send ~self ~cmd:(selector "separatorStyle") ~typ:(returning llong) +let setAutoHidesToolbarInFullScreen x self = msg_send ~self ~cmd:(selector "setAutoHidesToolbarInFullScreen:") ~typ:(bool @-> returning void) x +let setDrawsBottomDividerWhenTransparent x self = msg_send ~self ~cmd:(selector "setDrawsBottomDividerWhenTransparent:") ~typ:(bool @-> returning void) x +let setRepresentedURL x self = msg_send ~self ~cmd:(selector "setRepresentedURL:") ~typ:(id @-> returning void) x +let setSeparatorStyle x self = msg_send ~self ~cmd:(selector "setSeparatorStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTitleVisibility x self = msg_send ~self ~cmd:(selector "setTitleVisibility:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setToolbar x self = msg_send ~self ~cmd:(selector "setToolbar:") ~typ:(id @-> returning void) x +let setToolbarStyle x self = msg_send ~self ~cmd:(selector "setToolbarStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setUserInterfaceStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let titleVisibility self = msg_send ~self ~cmd:(selector "titleVisibility") ~typ:(returning llong) +let toolbar self = msg_send ~self ~cmd:(selector "toolbar") ~typ:(returning id) +let toolbarStyle self = msg_send ~self ~cmd:(selector "toolbarStyle") ~typ:(returning llong) +let userInterfaceStyle self = msg_send ~self ~cmd:(selector "userInterfaceStyle") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UITitlebarClass.ml b/uikit/UITitlebarClass.ml new file mode 100644 index 00000000..c1ffdca3 --- /dev/null +++ b/uikit/UITitlebarClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uititlebar?language=objc}UITitlebar} *) + +let initializeConnections self = msg_send ~self ~cmd:(selector "initializeConnections") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIToolTipConfiguration.ml b/uikit/UIToolTipConfiguration.ml index 32ea2240..4e724fde 100644 --- a/uikit/UIToolTipConfiguration.ml +++ b/uikit/UIToolTipConfiguration.ml @@ -5,15 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIToolTipConfiguration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitooltipconfiguration?language=objc}UIToolTipConfiguration} *) -module C = struct - let configurationWithToolTip x self = msg_send ~self ~cmd:(selector "configurationWithToolTip:") ~typ:(id @-> returning (id)) x - let configurationWithToolTip' x ~inRect self = msg_send ~self ~cmd:(selector "configurationWithToolTip:inRect:") ~typ:(id @-> CGRect.t @-> returning (id)) x inRect -end +let self = get_class "UIToolTipConfiguration" -let setSourceRect x self = msg_send ~self ~cmd:(selector "setSourceRect:") ~typ:(CGRect.t @-> returning (void)) x -let setToolTip x self = msg_send ~self ~cmd:(selector "setToolTip:") ~typ:(id @-> returning (void)) x -let sourceRect self = msg_send_stret ~self ~cmd:(selector "sourceRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let toolTip self = msg_send ~self ~cmd:(selector "toolTip") ~typ:(returning (id)) \ No newline at end of file +let setSourceRect x self = msg_send ~self ~cmd:(selector "setSourceRect:") ~typ:(CGRect.t @-> returning void) x +let setToolTip x self = msg_send ~self ~cmd:(selector "setToolTip:") ~typ:(id @-> returning void) x +let sourceRect self = msg_send ~self ~cmd:(selector "sourceRect") ~typ:(returning CGRect.t) +let toolTip self = msg_send ~self ~cmd:(selector "toolTip") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIToolTipConfigurationClass.ml b/uikit/UIToolTipConfigurationClass.ml new file mode 100644 index 00000000..cc14c089 --- /dev/null +++ b/uikit/UIToolTipConfigurationClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitooltipconfiguration?language=objc}UIToolTipConfiguration} *) + +let configurationWithToolTip x self = msg_send ~self ~cmd:(selector "configurationWithToolTip:") ~typ:(id @-> returning id) x +let configurationWithToolTip' x ~inRect self = msg_send ~self ~cmd:(selector "configurationWithToolTip:inRect:") ~typ:(id @-> CGRect.t @-> returning id) x inRect \ No newline at end of file diff --git a/uikit/UIToolTipInteraction.ml b/uikit/UIToolTipInteraction.ml index 7d5d0553..39ccd197 100644 --- a/uikit/UIToolTipInteraction.ml +++ b/uikit/UIToolTipInteraction.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIToolTipInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitooltipinteraction?language=objc}UIToolTipInteraction} *) -let defaultToolTip self = msg_send ~self ~cmd:(selector "defaultToolTip") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithDefaultToolTip x self = msg_send ~self ~cmd:(selector "initWithDefaultToolTip:") ~typ:(id @-> returning (id)) x -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let setDefaultToolTip x self = msg_send ~self ~cmd:(selector "setDefaultToolTip:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIToolTipInteraction" + +let defaultToolTip self = msg_send ~self ~cmd:(selector "defaultToolTip") ~typ:(returning id) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithDefaultToolTip x self = msg_send ~self ~cmd:(selector "initWithDefaultToolTip:") ~typ:(id @-> returning id) x +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let setDefaultToolTip x self = msg_send ~self ~cmd:(selector "setDefaultToolTip:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIToolbar.ml b/uikit/UIToolbar.ml index ecafcc22..f0ec43ce 100644 --- a/uikit/UIToolbar.ml +++ b/uikit/UIToolbar.ml @@ -5,66 +5,64 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIToolbar" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitoolbar?language=objc}UIToolbar} *) -module C = struct - let defaultButtonFont self = msg_send ~self ~cmd:(selector "defaultButtonFont") ~typ:(returning (id)) - let defaultHeight self = msg_send ~self ~cmd:(selector "defaultHeight") ~typ:(returning (double)) - let defaultHeightForBarSize x self = msg_send ~self ~cmd:(selector "defaultHeightForBarSize:") ~typ:(int @-> returning (double)) x -end +let self = get_class "UIToolbar" -let autoHidesToolbarInFullscreen self = msg_send ~self ~cmd:(selector "autoHidesToolbarInFullscreen") ~typ:(returning (bool)) -let backdropView x ~didChangeToGraphicsQuality self = msg_send ~self ~cmd:(selector "backdropView:didChangeToGraphicsQuality:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int didChangeToGraphicsQuality) -let backgroundEffects self = msg_send ~self ~cmd:(selector "backgroundEffects") ~typ:(returning (id)) -let backgroundImageForToolbarPosition x ~barMetrics self = msg_send ~self ~cmd:(selector "backgroundImageForToolbarPosition:barMetrics:") ~typ:(llong @-> llong @-> returning (id)) (LLong.of_int x) (LLong.of_int barMetrics) -let barPosition self = msg_send ~self ~cmd:(selector "barPosition") ~typ:(returning (llong)) -let barStyle self = msg_send ~self ~cmd:(selector "barStyle") ~typ:(returning (llong)) -let barTintColor self = msg_send ~self ~cmd:(selector "barTintColor") ~typ:(returning (id)) -let centerItem self = msg_send ~self ~cmd:(selector "centerItem") ~typ:(returning (id)) -let centerTextButtons self = msg_send ~self ~cmd:(selector "centerTextButtons") ~typ:(returning (bool)) -let compactAppearance self = msg_send ~self ~cmd:(selector "compactAppearance") ~typ:(returning (id)) -let compactScrollEdgeAppearance self = msg_send ~self ~cmd:(selector "compactScrollEdgeAppearance") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultSizeForOrientation x self = msg_send_stret ~self ~cmd:(selector "defaultSizeForOrientation:") ~typ:(llong @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let forUseInMacToolbar self = msg_send ~self ~cmd:(selector "forUseInMacToolbar") ~typ:(returning (bool)) -let initInView x ~withFrame ~withItemList self = msg_send ~self ~cmd:(selector "initInView:withFrame:withItemList:") ~typ:(id @-> CGRect.t @-> id @-> returning (id)) x withFrame withItemList -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let invalidateIntrinsicContentSize self = msg_send ~self ~cmd:(selector "invalidateIntrinsicContentSize") ~typ:(returning (void)) -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isMinibar self = msg_send ~self ~cmd:(selector "isMinibar") ~typ:(returning (bool)) -let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning (bool)) -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let scrollEdgeAppearance self = msg_send ~self ~cmd:(selector "scrollEdgeAppearance") ~typ:(returning (id)) -let setAutoHidesToolbarInFullscreen x self = msg_send ~self ~cmd:(selector "setAutoHidesToolbarInFullscreen:") ~typ:(bool @-> returning (void)) x -let setBackgroundEffects x self = msg_send ~self ~cmd:(selector "setBackgroundEffects:") ~typ:(id @-> returning (void)) x -let setBackgroundImage x ~forToolbarPosition ~barMetrics self = msg_send ~self ~cmd:(selector "setBackgroundImage:forToolbarPosition:barMetrics:") ~typ:(id @-> llong @-> llong @-> returning (void)) x (LLong.of_int forToolbarPosition) (LLong.of_int barMetrics) -let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBarTintColor x self = msg_send ~self ~cmd:(selector "setBarTintColor:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setCenterItem x self = msg_send ~self ~cmd:(selector "setCenterItem:") ~typ:(id @-> returning (void)) x -let setCenterTextButtons x self = msg_send ~self ~cmd:(selector "setCenterTextButtons:") ~typ:(bool @-> returning (void)) x -let setCompactAppearance x self = msg_send ~self ~cmd:(selector "setCompactAppearance:") ~typ:(id @-> returning (void)) x -let setCompactScrollEdgeAppearance x self = msg_send ~self ~cmd:(selector "setCompactScrollEdgeAppearance:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setItems x self = msg_send ~self ~cmd:(selector "setItems:") ~typ:(id @-> returning (void)) x -let setItems' x ~animated self = msg_send ~self ~cmd:(selector "setItems:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setScrollEdgeAppearance x self = msg_send ~self ~cmd:(selector "setScrollEdgeAppearance:") ~typ:(id @-> returning (void)) x -let setShadowImage x ~forToolbarPosition self = msg_send ~self ~cmd:(selector "setShadowImage:forToolbarPosition:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forToolbarPosition) -let setStandardAppearance x self = msg_send ~self ~cmd:(selector "setStandardAppearance:") ~typ:(id @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning (void)) x -let setTranslucent x self = msg_send ~self ~cmd:(selector "setTranslucent:") ~typ:(bool @-> returning (void)) x -let shadowImageForToolbarPosition x self = msg_send ~self ~cmd:(selector "shadowImageForToolbarPosition:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let standardAppearance self = msg_send ~self ~cmd:(selector "standardAppearance") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let autoHidesToolbarInFullscreen self = msg_send ~self ~cmd:(selector "autoHidesToolbarInFullscreen") ~typ:(returning bool) +let backdropView x ~didChangeToGraphicsQuality self = msg_send ~self ~cmd:(selector "backdropView:didChangeToGraphicsQuality:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int didChangeToGraphicsQuality) +let backgroundEffects self = msg_send ~self ~cmd:(selector "backgroundEffects") ~typ:(returning id) +let backgroundImageForToolbarPosition x ~barMetrics self = msg_send ~self ~cmd:(selector "backgroundImageForToolbarPosition:barMetrics:") ~typ:(llong @-> llong @-> returning id) (LLong.of_int x) (LLong.of_int barMetrics) +let barPosition self = msg_send ~self ~cmd:(selector "barPosition") ~typ:(returning llong) +let barStyle self = msg_send ~self ~cmd:(selector "barStyle") ~typ:(returning llong) +let barTintColor self = msg_send ~self ~cmd:(selector "barTintColor") ~typ:(returning id) +let centerItem self = msg_send ~self ~cmd:(selector "centerItem") ~typ:(returning id) +let centerTextButtons self = msg_send ~self ~cmd:(selector "centerTextButtons") ~typ:(returning bool) +let compactAppearance self = msg_send ~self ~cmd:(selector "compactAppearance") ~typ:(returning id) +let compactScrollEdgeAppearance self = msg_send ~self ~cmd:(selector "compactScrollEdgeAppearance") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultSizeForOrientation x self = msg_send ~self ~cmd:(selector "defaultSizeForOrientation:") ~typ:(llong @-> returning CGSize.t) (LLong.of_int x) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let forUseInMacToolbar self = msg_send ~self ~cmd:(selector "forUseInMacToolbar") ~typ:(returning bool) +let initInView x ~withFrame ~withItemList self = msg_send ~self ~cmd:(selector "initInView:withFrame:withItemList:") ~typ:(id @-> CGRect.t @-> id @-> returning id) x withFrame withItemList +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let invalidateIntrinsicContentSize self = msg_send ~self ~cmd:(selector "invalidateIntrinsicContentSize") ~typ:(returning void) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isMinibar self = msg_send ~self ~cmd:(selector "isMinibar") ~typ:(returning bool) +let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning bool) +let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let scrollEdgeAppearance self = msg_send ~self ~cmd:(selector "scrollEdgeAppearance") ~typ:(returning id) +let setAutoHidesToolbarInFullscreen x self = msg_send ~self ~cmd:(selector "setAutoHidesToolbarInFullscreen:") ~typ:(bool @-> returning void) x +let setBackgroundEffects x self = msg_send ~self ~cmd:(selector "setBackgroundEffects:") ~typ:(id @-> returning void) x +let setBackgroundImage x ~forToolbarPosition ~barMetrics self = msg_send ~self ~cmd:(selector "setBackgroundImage:forToolbarPosition:barMetrics:") ~typ:(id @-> llong @-> llong @-> returning void) x (LLong.of_int forToolbarPosition) (LLong.of_int barMetrics) +let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBarTintColor x self = msg_send ~self ~cmd:(selector "setBarTintColor:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setCenterItem x self = msg_send ~self ~cmd:(selector "setCenterItem:") ~typ:(id @-> returning void) x +let setCenterTextButtons x self = msg_send ~self ~cmd:(selector "setCenterTextButtons:") ~typ:(bool @-> returning void) x +let setCompactAppearance x self = msg_send ~self ~cmd:(selector "setCompactAppearance:") ~typ:(id @-> returning void) x +let setCompactScrollEdgeAppearance x self = msg_send ~self ~cmd:(selector "setCompactScrollEdgeAppearance:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setItems x self = msg_send ~self ~cmd:(selector "setItems:") ~typ:(id @-> returning void) x +let setItems' x ~animated self = msg_send ~self ~cmd:(selector "setItems:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setScrollEdgeAppearance x self = msg_send ~self ~cmd:(selector "setScrollEdgeAppearance:") ~typ:(id @-> returning void) x +let setShadowImage x ~forToolbarPosition self = msg_send ~self ~cmd:(selector "setShadowImage:forToolbarPosition:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forToolbarPosition) +let setStandardAppearance x self = msg_send ~self ~cmd:(selector "setStandardAppearance:") ~typ:(id @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning void) x +let setTranslucent x self = msg_send ~self ~cmd:(selector "setTranslucent:") ~typ:(bool @-> returning void) x +let shadowImageForToolbarPosition x self = msg_send ~self ~cmd:(selector "shadowImageForToolbarPosition:") ~typ:(llong @-> returning id) (LLong.of_int x) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let standardAppearance self = msg_send ~self ~cmd:(selector "standardAppearance") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIToolbarAppearance.ml b/uikit/UIToolbarAppearance.ml index 654ff59d..010c22dd 100644 --- a/uikit/UIToolbarAppearance.ml +++ b/uikit/UIToolbarAppearance.ml @@ -5,15 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIToolbarAppearance" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitoolbarappearance?language=objc}UIToolbarAppearance} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIToolbarAppearance" -let buttonAppearance self = msg_send ~self ~cmd:(selector "buttonAppearance") ~typ:(returning (id)) -let doneButtonAppearance self = msg_send ~self ~cmd:(selector "doneButtonAppearance") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let setButtonAppearance x self = msg_send ~self ~cmd:(selector "setButtonAppearance:") ~typ:(id @-> returning (void)) x -let setDoneButtonAppearance x self = msg_send ~self ~cmd:(selector "setDoneButtonAppearance:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let buttonAppearance self = msg_send ~self ~cmd:(selector "buttonAppearance") ~typ:(returning id) +let doneButtonAppearance self = msg_send ~self ~cmd:(selector "doneButtonAppearance") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let setButtonAppearance x self = msg_send ~self ~cmd:(selector "setButtonAppearance:") ~typ:(id @-> returning void) x +let setDoneButtonAppearance x self = msg_send ~self ~cmd:(selector "setDoneButtonAppearance:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIToolbarAppearanceClass.ml b/uikit/UIToolbarAppearanceClass.ml new file mode 100644 index 00000000..b482be15 --- /dev/null +++ b/uikit/UIToolbarAppearanceClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitoolbarappearance?language=objc}UIToolbarAppearance} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIToolbarButton.ml b/uikit/UIToolbarButton.ml index 0b50a40a..248084fc 100644 --- a/uikit/UIToolbarButton.ml +++ b/uikit/UIToolbarButton.ml @@ -5,26 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIToolbarButton" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitoolbarbutton?language=objc}UIToolbarButton} *) -module C = struct - let defaultButtonFont self = msg_send ~self ~cmd:(selector "defaultButtonFont") ~typ:(returning (id)) -end +let self = get_class "UIToolbarButton" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (id)) x forEvent -let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let initWithImage x ~pressedImage ~label ~labelHeight ~withBarStyle ~withStyle ~withInsets ~possibleTitles ~possibleSystemItems ~withToolbarTintColor ~bezel ~imageInsets ~glowInsets ~landscape self = msg_send ~self ~cmd:(selector "initWithImage:pressedImage:label:labelHeight:withBarStyle:withStyle:withInsets:possibleTitles:possibleSystemItems:withToolbarTintColor:bezel:imageInsets:glowInsets:landscape:") ~typ:(id @-> id @-> id @-> double @-> llong @-> llong @-> ptr void @-> id @-> id @-> id @-> bool @-> ptr void @-> ptr void @-> bool @-> returning (id)) x pressedImage label labelHeight (LLong.of_int withBarStyle) (LLong.of_int withStyle) withInsets possibleTitles possibleSystemItems withToolbarTintColor bezel imageInsets glowInsets landscape -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let pointInside x ~forEvent self = msg_send ~self ~cmd:(selector "pointInside:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (bool)) x forEvent -let pointInside' x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let pointMostlyInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointMostlyInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setToolbarTintColor x self = msg_send ~self ~cmd:(selector "setToolbarTintColor:") ~typ:(id @-> returning (void)) x -let setUseSelectedImage x self = msg_send ~self ~cmd:(selector "setUseSelectedImage:") ~typ:(bool @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x \ No newline at end of file +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning id) x forEvent +let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let initWithImage x ~pressedImage ~label ~labelHeight ~withBarStyle ~withStyle ~withInsets ~possibleTitles ~possibleSystemItems ~withToolbarTintColor ~bezel ~imageInsets ~glowInsets ~landscape self = msg_send ~self ~cmd:(selector "initWithImage:pressedImage:label:labelHeight:withBarStyle:withStyle:withInsets:possibleTitles:possibleSystemItems:withToolbarTintColor:bezel:imageInsets:glowInsets:landscape:") ~typ:(id @-> id @-> id @-> double @-> llong @-> llong @-> UIEdgeInsets.t @-> id @-> id @-> id @-> bool @-> UIEdgeInsets.t @-> UIEdgeInsets.t @-> bool @-> returning id) x pressedImage label labelHeight (LLong.of_int withBarStyle) (LLong.of_int withStyle) withInsets possibleTitles possibleSystemItems withToolbarTintColor bezel imageInsets glowInsets landscape +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let pointInside x ~forEvent self = msg_send ~self ~cmd:(selector "pointInside:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning bool) x forEvent +let pointInside' x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let pointMostlyInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointMostlyInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let setBarStyle x self = msg_send ~self ~cmd:(selector "setBarStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setToolbarTintColor x self = msg_send ~self ~cmd:(selector "setToolbarTintColor:") ~typ:(id @-> returning void) x +let setUseSelectedImage x self = msg_send ~self ~cmd:(selector "setUseSelectedImage:") ~typ:(bool @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x \ No newline at end of file diff --git a/uikit/UIToolbarButtonClass.ml b/uikit/UIToolbarButtonClass.ml new file mode 100644 index 00000000..9fca3870 --- /dev/null +++ b/uikit/UIToolbarButtonClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitoolbarbutton?language=objc}UIToolbarButton} *) + +let defaultButtonFont self = msg_send ~self ~cmd:(selector "defaultButtonFont") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIToolbarClass.ml b/uikit/UIToolbarClass.ml new file mode 100644 index 00000000..93b05d26 --- /dev/null +++ b/uikit/UIToolbarClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitoolbar?language=objc}UIToolbar} *) + +let defaultButtonFont self = msg_send ~self ~cmd:(selector "defaultButtonFont") ~typ:(returning id) +let defaultHeight self = msg_send ~self ~cmd:(selector "defaultHeight") ~typ:(returning double) +let defaultHeightForBarSize x self = msg_send ~self ~cmd:(selector "defaultHeightForBarSize:") ~typ:(int @-> returning double) x \ No newline at end of file diff --git a/uikit/UIToolbarTextButton.ml b/uikit/UIToolbarTextButton.ml index 32f7b074..b3223c4c 100644 --- a/uikit/UIToolbarTextButton.ml +++ b/uikit/UIToolbarTextButton.ml @@ -5,10 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIToolbarTextButton" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitoolbartextbutton?language=objc}UIToolbarTextButton} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithTitle x ~pressedTitle ~withFont ~withBarStyle ~withStyle ~withTitleWidth ~possibleTitles ~withToolbarTintColor self = msg_send ~self ~cmd:(selector "initWithTitle:pressedTitle:withFont:withBarStyle:withStyle:withTitleWidth:possibleTitles:withToolbarTintColor:") ~typ:(id @-> id @-> id @-> llong @-> llong @-> double @-> id @-> id @-> returning (id)) x pressedTitle withFont (LLong.of_int withBarStyle) (LLong.of_int withStyle) withTitleWidth possibleTitles withToolbarTintColor -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x \ No newline at end of file +let self = get_class "UIToolbarTextButton" + +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithTitle x ~pressedTitle ~withFont ~withBarStyle ~withStyle ~withTitleWidth ~possibleTitles ~withToolbarTintColor self = msg_send ~self ~cmd:(selector "initWithTitle:pressedTitle:withFont:withBarStyle:withStyle:withTitleWidth:possibleTitles:withToolbarTintColor:") ~typ:(id @-> id @-> id @-> llong @-> llong @-> double @-> id @-> id @-> returning id) x pressedTitle withFont (LLong.of_int withBarStyle) (LLong.of_int withStyle) withTitleWidth possibleTitles withToolbarTintColor +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x \ No newline at end of file diff --git a/uikit/UITouch.ml b/uikit/UITouch.ml index 8b05d2da..d92b3eac 100644 --- a/uikit/UITouch.ml +++ b/uikit/UITouch.ml @@ -5,49 +5,54 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITouch" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitouch?language=objc}UITouch} *) -let altitudeAngle self = msg_send ~self ~cmd:(selector "altitudeAngle") ~typ:(returning (double)) -let azimuthAngle self = msg_send ~self ~cmd:(selector "azimuthAngle") ~typ:(returning (double)) -let azimuthAngleInCADisplay self = msg_send ~self ~cmd:(selector "azimuthAngleInCADisplay") ~typ:(returning (double)) -let azimuthAngleInView x self = msg_send ~self ~cmd:(selector "azimuthAngleInView:") ~typ:(id @-> returning (double)) x -let azimuthAngleInWindow self = msg_send ~self ~cmd:(selector "azimuthAngleInWindow") ~typ:(returning (double)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let estimatedProperties self = msg_send ~self ~cmd:(selector "estimatedProperties") ~typ:(returning (llong)) -let estimatedPropertiesExpectingUpdates self = msg_send ~self ~cmd:(selector "estimatedPropertiesExpectingUpdates") ~typ:(returning (llong)) -let estimationUpdateIndex self = msg_send ~self ~cmd:(selector "estimationUpdateIndex") ~typ:(returning (id)) -let force self = msg_send ~self ~cmd:(selector "force") ~typ:(returning (double)) -let gestureRecognizers self = msg_send ~self ~cmd:(selector "gestureRecognizers") ~typ:(returning (id)) -let info self = msg_send ~self ~cmd:(selector "info") ~typ:(returning (llong)) -let initialTouchTimestamp self = msg_send ~self ~cmd:(selector "initialTouchTimestamp") ~typ:(returning (double)) -let isDelayed self = msg_send ~self ~cmd:(selector "isDelayed") ~typ:(returning (bool)) -let isTap self = msg_send ~self ~cmd:(selector "isTap") ~typ:(returning (bool)) -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let majorRadius self = msg_send ~self ~cmd:(selector "majorRadius") ~typ:(returning (double)) -let majorRadiusTolerance self = msg_send ~self ~cmd:(selector "majorRadiusTolerance") ~typ:(returning (double)) -let maximumPossibleForce self = msg_send ~self ~cmd:(selector "maximumPossibleForce") ~typ:(returning (double)) -let phase self = msg_send ~self ~cmd:(selector "phase") ~typ:(returning (llong)) -let preciseLocationInView x self = msg_send_stret ~self ~cmd:(selector "preciseLocationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let precisePreviousLocationInView x self = msg_send_stret ~self ~cmd:(selector "precisePreviousLocationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let previousLocationInView x self = msg_send_stret ~self ~cmd:(selector "previousLocationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let sentTouchesEnded self = msg_send ~self ~cmd:(selector "sentTouchesEnded") ~typ:(returning (bool)) -let setInitialTouchTimestamp x self = msg_send ~self ~cmd:(selector "setInitialTouchTimestamp:") ~typ:(double @-> returning (void)) x -let setIsDelayed x self = msg_send ~self ~cmd:(selector "setIsDelayed:") ~typ:(bool @-> returning (void)) x -let setIsTap x self = msg_send ~self ~cmd:(selector "setIsTap:") ~typ:(bool @-> returning (void)) x -let setMajorRadius x self = msg_send ~self ~cmd:(selector "setMajorRadius:") ~typ:(double @-> returning (void)) x -let setMajorRadiusTolerance x self = msg_send ~self ~cmd:(selector "setMajorRadiusTolerance:") ~typ:(double @-> returning (void)) x -let setPhase x self = msg_send ~self ~cmd:(selector "setPhase:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSentTouchesEnded x self = msg_send ~self ~cmd:(selector "setSentTouchesEnded:") ~typ:(bool @-> returning (void)) x -let setTapCount x self = msg_send ~self ~cmd:(selector "setTapCount:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setTimestamp x self = msg_send ~self ~cmd:(selector "setTimestamp:") ~typ:(double @-> returning (void)) x -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let setWarpedIntoView x self = msg_send ~self ~cmd:(selector "setWarpedIntoView:") ~typ:(id @-> returning (void)) x -let setWindow x self = msg_send ~self ~cmd:(selector "setWindow:") ~typ:(id @-> returning (void)) x -let tapCount self = msg_send ~self ~cmd:(selector "tapCount") ~typ:(returning (ullong)) -let timestamp self = msg_send ~self ~cmd:(selector "timestamp") ~typ:(returning (double)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let warpedIntoView self = msg_send ~self ~cmd:(selector "warpedIntoView") ~typ:(returning (id)) -let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITouch" + +let altitudeAngle self = msg_send ~self ~cmd:(selector "altitudeAngle") ~typ:(returning double) +let azimuthAngle self = msg_send ~self ~cmd:(selector "azimuthAngle") ~typ:(returning double) +let azimuthAngleInCADisplay self = msg_send ~self ~cmd:(selector "azimuthAngleInCADisplay") ~typ:(returning double) +let azimuthAngleInView x self = msg_send ~self ~cmd:(selector "azimuthAngleInView:") ~typ:(id @-> returning double) x +let azimuthAngleInWindow self = msg_send ~self ~cmd:(selector "azimuthAngleInWindow") ~typ:(returning double) +let azimuthUnitVectorInView x self = msg_send ~self ~cmd:(selector "azimuthUnitVectorInView:") ~typ:(id @-> returning CGVector.t) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let estimatedProperties self = msg_send ~self ~cmd:(selector "estimatedProperties") ~typ:(returning llong) +let estimatedPropertiesExpectingUpdates self = msg_send ~self ~cmd:(selector "estimatedPropertiesExpectingUpdates") ~typ:(returning llong) +let estimationUpdateIndex self = msg_send ~self ~cmd:(selector "estimationUpdateIndex") ~typ:(returning id) +let force self = msg_send ~self ~cmd:(selector "force") ~typ:(returning double) +let gestureRecognizers self = msg_send ~self ~cmd:(selector "gestureRecognizers") ~typ:(returning id) +let info self = msg_send ~self ~cmd:(selector "info") ~typ:(returning llong) +let initialTouchTimestamp self = msg_send ~self ~cmd:(selector "initialTouchTimestamp") ~typ:(returning double) +let isDelayed self = msg_send ~self ~cmd:(selector "isDelayed") ~typ:(returning bool) +let isTap self = msg_send ~self ~cmd:(selector "isTap") ~typ:(returning bool) +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let majorRadius self = msg_send ~self ~cmd:(selector "majorRadius") ~typ:(returning double) +let majorRadiusTolerance self = msg_send ~self ~cmd:(selector "majorRadiusTolerance") ~typ:(returning double) +let maximumPossibleForce self = msg_send ~self ~cmd:(selector "maximumPossibleForce") ~typ:(returning double) +let phase self = msg_send ~self ~cmd:(selector "phase") ~typ:(returning llong) +let preciseLocationInView x self = msg_send ~self ~cmd:(selector "preciseLocationInView:") ~typ:(id @-> returning CGPoint.t) x +let precisePreviousLocationInView x self = msg_send ~self ~cmd:(selector "precisePreviousLocationInView:") ~typ:(id @-> returning CGPoint.t) x +let previousLocationInView x self = msg_send ~self ~cmd:(selector "previousLocationInView:") ~typ:(id @-> returning CGPoint.t) x +let sentTouchesEnded self = msg_send ~self ~cmd:(selector "sentTouchesEnded") ~typ:(returning bool) +let setInitialTouchTimestamp x self = msg_send ~self ~cmd:(selector "setInitialTouchTimestamp:") ~typ:(double @-> returning void) x +let setIsDelayed x self = msg_send ~self ~cmd:(selector "setIsDelayed:") ~typ:(bool @-> returning void) x +let setIsTap x self = msg_send ~self ~cmd:(selector "setIsTap:") ~typ:(bool @-> returning void) x +let setMajorRadius x self = msg_send ~self ~cmd:(selector "setMajorRadius:") ~typ:(double @-> returning void) x +let setMajorRadiusTolerance x self = msg_send ~self ~cmd:(selector "setMajorRadiusTolerance:") ~typ:(double @-> returning void) x +let setPhase x self = msg_send ~self ~cmd:(selector "setPhase:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSentTouchesEnded x self = msg_send ~self ~cmd:(selector "setSentTouchesEnded:") ~typ:(bool @-> returning void) x +let setTapCount x self = msg_send ~self ~cmd:(selector "setTapCount:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setTimestamp x self = msg_send ~self ~cmd:(selector "setTimestamp:") ~typ:(double @-> returning void) x +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let setWarpedIntoView x self = msg_send ~self ~cmd:(selector "setWarpedIntoView:") ~typ:(id @-> returning void) x +let setWindow x self = msg_send ~self ~cmd:(selector "setWindow:") ~typ:(id @-> returning void) x +let tapCount self = msg_send ~self ~cmd:(selector "tapCount") ~typ:(returning ullong) +let timestamp self = msg_send ~self ~cmd:(selector "timestamp") ~typ:(returning double) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let warpedIntoView self = msg_send ~self ~cmd:(selector "warpedIntoView") ~typ:(returning id) +let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITouchForceGestureRecognizer.ml b/uikit/UITouchForceGestureRecognizer.ml index 44c88460..f19c7156 100644 --- a/uikit/UITouchForceGestureRecognizer.ml +++ b/uikit/UITouchForceGestureRecognizer.ml @@ -5,34 +5,37 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITouchForceGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitouchforcegesturerecognizer?language=objc}UITouchForceGestureRecognizer} *) -let allowableMovement self = msg_send ~self ~cmd:(selector "allowableMovement") ~typ:(returning (double)) -let automaticTouchForce self = msg_send ~self ~cmd:(selector "automaticTouchForce") ~typ:(returning (double)) -let automaticTouchForceDuration self = msg_send ~self ~cmd:(selector "automaticTouchForceDuration") ~typ:(returning (double)) -let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning (bool)) x +let self = get_class "UITouchForceGestureRecognizer" + +let allowableMovement self = msg_send ~self ~cmd:(selector "allowableMovement") ~typ:(returning double) +let automaticTouchForce self = msg_send ~self ~cmd:(selector "automaticTouchForce") ~typ:(returning double) +let automaticTouchForceDuration self = msg_send ~self ~cmd:(selector "automaticTouchForceDuration") ~typ:(returning double) +let canPreventGestureRecognizer x self = msg_send ~self ~cmd:(selector "canPreventGestureRecognizer:") ~typ:(id @-> returning bool) x let configurationBlock self = msg_send ~self ~cmd:(selector "configurationBlock") ~typ:(returning (ptr void)) -let hasExceededAllowableMovement self = msg_send ~self ~cmd:(selector "hasExceededAllowableMovement") ~typ:(returning (bool)) -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let isSteady self = msg_send ~self ~cmd:(selector "isSteady") ~typ:(returning (bool)) -let maximumNumberOfTouches self = msg_send ~self ~cmd:(selector "maximumNumberOfTouches") ~typ:(returning (ullong)) -let minimumRequiredTouchForce self = msg_send ~self ~cmd:(selector "minimumRequiredTouchForce") ~typ:(returning (double)) -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let setAllowableMovement x self = msg_send ~self ~cmd:(selector "setAllowableMovement:") ~typ:(double @-> returning (void)) x -let setAutomaticTouchForce x self = msg_send ~self ~cmd:(selector "setAutomaticTouchForce:") ~typ:(double @-> returning (void)) x -let setAutomaticTouchForceDuration x self = msg_send ~self ~cmd:(selector "setAutomaticTouchForceDuration:") ~typ:(double @-> returning (void)) x -let setConfigurationBlock x self = msg_send ~self ~cmd:(selector "setConfigurationBlock:") ~typ:(ptr void @-> returning (void)) x -let setMaximumNumberOfTouches x self = msg_send ~self ~cmd:(selector "setMaximumNumberOfTouches:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setMinimumRequiredTouchForce x self = msg_send ~self ~cmd:(selector "setMinimumRequiredTouchForce:") ~typ:(double @-> returning (void)) x -let setSteady x self = msg_send ~self ~cmd:(selector "setSteady:") ~typ:(bool @-> returning (void)) x -let setTouchForce x self = msg_send ~self ~cmd:(selector "setTouchForce:") ~typ:(double @-> returning (void)) x -let setVelocity x self = msg_send ~self ~cmd:(selector "setVelocity:") ~typ:(double @-> returning (void)) x -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let touchDuration self = msg_send ~self ~cmd:(selector "touchDuration") ~typ:(returning (double)) -let touchForce self = msg_send ~self ~cmd:(selector "touchForce") ~typ:(returning (double)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning (double)) \ No newline at end of file +let hasExceededAllowableMovement self = msg_send ~self ~cmd:(selector "hasExceededAllowableMovement") ~typ:(returning bool) +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let isSteady self = msg_send ~self ~cmd:(selector "isSteady") ~typ:(returning bool) +let maximumNumberOfTouches self = msg_send ~self ~cmd:(selector "maximumNumberOfTouches") ~typ:(returning ullong) +let minimumRequiredTouchForce self = msg_send ~self ~cmd:(selector "minimumRequiredTouchForce") ~typ:(returning double) +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let setAllowableMovement x self = msg_send ~self ~cmd:(selector "setAllowableMovement:") ~typ:(double @-> returning void) x +let setAutomaticTouchForce x self = msg_send ~self ~cmd:(selector "setAutomaticTouchForce:") ~typ:(double @-> returning void) x +let setAutomaticTouchForceDuration x self = msg_send ~self ~cmd:(selector "setAutomaticTouchForceDuration:") ~typ:(double @-> returning void) x +let setConfigurationBlock x self = msg_send ~self ~cmd:(selector "setConfigurationBlock:") ~typ:((ptr void) @-> returning void) x +let setMaximumNumberOfTouches x self = msg_send ~self ~cmd:(selector "setMaximumNumberOfTouches:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setMinimumRequiredTouchForce x self = msg_send ~self ~cmd:(selector "setMinimumRequiredTouchForce:") ~typ:(double @-> returning void) x +let setSteady x self = msg_send ~self ~cmd:(selector "setSteady:") ~typ:(bool @-> returning void) x +let setTouchForce x self = msg_send ~self ~cmd:(selector "setTouchForce:") ~typ:(double @-> returning void) x +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let touchDuration self = msg_send ~self ~cmd:(selector "touchDuration") ~typ:(returning double) +let touchForce self = msg_send ~self ~cmd:(selector "touchForce") ~typ:(returning double) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UITouchesEvent.ml b/uikit/UITouchesEvent.ml index 35bc6565..59d9a90f 100644 --- a/uikit/UITouchesEvent.ml +++ b/uikit/UITouchesEvent.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITouchesEvent" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitouchesevent?language=objc}UITouchesEvent} *) -let allTouches self = msg_send ~self ~cmd:(selector "allTouches") ~typ:(returning (id)) -let coalescedTouchesForTouch x self = msg_send ~self ~cmd:(selector "coalescedTouchesForTouch:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let predictedTouchesForTouch x self = msg_send ~self ~cmd:(selector "predictedTouchesForTouch:") ~typ:(id @-> returning (id)) x -let setSingleAllowableExternalTouchPathIndex x self = msg_send ~self ~cmd:(selector "setSingleAllowableExternalTouchPathIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let singleAllowableExternalTouchPathIndex self = msg_send ~self ~cmd:(selector "singleAllowableExternalTouchPathIndex") ~typ:(returning (llong)) -let touchesForGestureRecognizer x self = msg_send ~self ~cmd:(selector "touchesForGestureRecognizer:") ~typ:(id @-> returning (id)) x -let touchesForView x self = msg_send ~self ~cmd:(selector "touchesForView:") ~typ:(id @-> returning (id)) x -let touchesForWindow x self = msg_send ~self ~cmd:(selector "touchesForWindow:") ~typ:(id @-> returning (id)) x -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UITouchesEvent" + +let allTouches self = msg_send ~self ~cmd:(selector "allTouches") ~typ:(returning id) +let coalescedTouchesForTouch x self = msg_send ~self ~cmd:(selector "coalescedTouchesForTouch:") ~typ:(id @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let predictedTouchesForTouch x self = msg_send ~self ~cmd:(selector "predictedTouchesForTouch:") ~typ:(id @-> returning id) x +let setSingleAllowableExternalTouchPathIndex x self = msg_send ~self ~cmd:(selector "setSingleAllowableExternalTouchPathIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let singleAllowableExternalTouchPathIndex self = msg_send ~self ~cmd:(selector "singleAllowableExternalTouchPathIndex") ~typ:(returning llong) +let touchesForGestureRecognizer x self = msg_send ~self ~cmd:(selector "touchesForGestureRecognizer:") ~typ:(id @-> returning id) x +let touchesForView x self = msg_send ~self ~cmd:(selector "touchesForView:") ~typ:(id @-> returning id) x +let touchesForWindow x self = msg_send ~self ~cmd:(selector "touchesForWindow:") ~typ:(id @-> returning id) x +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UITrackingLayoutGuide.ml b/uikit/UITrackingLayoutGuide.ml index 6d574146..e9234b48 100644 --- a/uikit/UITrackingLayoutGuide.ml +++ b/uikit/UITrackingLayoutGuide.ml @@ -5,48 +5,55 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITrackingLayoutGuide" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitrackinglayoutguide?language=objc}UITrackingLayoutGuide} *) -let animatesChanges self = msg_send ~self ~cmd:(selector "animatesChanges") ~typ:(returning (bool)) -let animatingConstraintsChange self = msg_send ~self ~cmd:(selector "animatingConstraintsChange") ~typ:(returning (bool)) -let animationDuration self = msg_send ~self ~cmd:(selector "animationDuration") ~typ:(returning (double)) -let animationOptions self = msg_send ~self ~cmd:(selector "animationOptions") ~typ:(returning (ullong)) -let awayFromConstraintsByEdge self = msg_send ~self ~cmd:(selector "awayFromConstraintsByEdge") ~typ:(returning (id)) -let changeOffsetConstants x self = msg_send ~self ~cmd:(selector "changeOffsetConstants:") ~typ:(ptr void @-> returning (void)) x -let changeSizingConstants x self = msg_send ~self ~cmd:(selector "changeSizingConstants:") ~typ:(CGSize.t @-> returning (void)) x -let constrainedToWindowGuide self = msg_send ~self ~cmd:(selector "constrainedToWindowGuide") ~typ:(returning (bool)) -let constraintsActiveWhenAwayFromEdge x self = msg_send ~self ~cmd:(selector "constraintsActiveWhenAwayFromEdge:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let constraintsActiveWhenNearEdge x self = msg_send ~self ~cmd:(selector "constraintsActiveWhenNearEdge:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let edgeConstraints self = msg_send ~self ~cmd:(selector "edgeConstraints") ~typ:(returning (id)) -let enableAnimations x self = msg_send ~self ~cmd:(selector "enableAnimations:") ~typ:(bool @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let nearEdgeConstraintsByEdge self = msg_send ~self ~cmd:(selector "nearEdgeConstraintsByEdge") ~typ:(returning (id)) -let overlappingEdges self = msg_send ~self ~cmd:(selector "overlappingEdges") ~typ:(returning (ullong)) -let owningViewInterfaceLayoutDirection self = msg_send ~self ~cmd:(selector "owningViewInterfaceLayoutDirection") ~typ:(returning (llong)) -let pauseUpdatingConstraintsForEdges x self = msg_send ~self ~cmd:(selector "pauseUpdatingConstraintsForEdges:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let pausedEdges self = msg_send ~self ~cmd:(selector "pausedEdges") ~typ:(returning (ullong)) -let removeAllTrackedConstraints self = msg_send ~self ~cmd:(selector "removeAllTrackedConstraints") ~typ:(returning (void)) -let resetAnimationOptions self = msg_send ~self ~cmd:(selector "resetAnimationOptions") ~typ:(returning (void)) -let setAnimatesChanges x self = msg_send ~self ~cmd:(selector "setAnimatesChanges:") ~typ:(bool @-> returning (void)) x -let setAnimatingConstraintsChange x self = msg_send ~self ~cmd:(selector "setAnimatingConstraintsChange:") ~typ:(bool @-> returning (void)) x -let setAnimationDuration x self = msg_send ~self ~cmd:(selector "setAnimationDuration:") ~typ:(double @-> returning (void)) x -let setAnimationOptions x self = msg_send ~self ~cmd:(selector "setAnimationOptions:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setAwayFromConstraintsByEdge x self = msg_send ~self ~cmd:(selector "setAwayFromConstraintsByEdge:") ~typ:(id @-> returning (void)) x -let setConstrainedToWindowGuide x self = msg_send ~self ~cmd:(selector "setConstrainedToWindowGuide:") ~typ:(bool @-> returning (void)) x -let setConstraints x ~activeWhenAwayFromEdge self = msg_send ~self ~cmd:(selector "setConstraints:activeWhenAwayFromEdge:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int activeWhenAwayFromEdge) -let setConstraints' x ~activeWhenNearEdge self = msg_send ~self ~cmd:(selector "setConstraints:activeWhenNearEdge:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int activeWhenNearEdge) -let setEdgeThresholds x ~forOrientation self = msg_send ~self ~cmd:(selector "setEdgeThresholds:forOrientation:") ~typ:(ptr void @-> llong @-> returning (void)) x (LLong.of_int forOrientation) -let setNearEdgeConstraintsByEdge x self = msg_send ~self ~cmd:(selector "setNearEdgeConstraintsByEdge:") ~typ:(id @-> returning (void)) x -let setOverlappingEdges x self = msg_send ~self ~cmd:(selector "setOverlappingEdges:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setOwningViewInterfaceLayoutDirection x self = msg_send ~self ~cmd:(selector "setOwningViewInterfaceLayoutDirection:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPausedEdges x self = msg_send ~self ~cmd:(selector "setPausedEdges:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setProportionalEdgeThresholds x self = msg_send ~self ~cmd:(selector "setProportionalEdgeThresholds:") ~typ:(ptr void @-> returning (void)) x -let setTriggerInsetsForLandscape x self = msg_send ~self ~cmd:(selector "setTriggerInsetsForLandscape:") ~typ:(ptr void @-> returning (void)) x -let setTriggerInsetsForPortrait x self = msg_send ~self ~cmd:(selector "setTriggerInsetsForPortrait:") ~typ:(ptr void @-> returning (void)) x -let setTriggerProportions x self = msg_send ~self ~cmd:(selector "setTriggerProportions:") ~typ:(ptr void @-> returning (void)) x -let startUpdatingConstraintsForEdges x self = msg_send ~self ~cmd:(selector "startUpdatingConstraintsForEdges:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let stopTrackingConstraintsForEdge x self = msg_send ~self ~cmd:(selector "stopTrackingConstraintsForEdge:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let trackConstraintsFromViewBasedGuide x self = msg_send ~self ~cmd:(selector "trackConstraintsFromViewBasedGuide:") ~typ:(id @-> returning (void)) x -let updateAnimationDuration x ~options self = msg_send ~self ~cmd:(selector "updateAnimationDuration:options:") ~typ:(double @-> ullong @-> returning (void)) x (ULLong.of_int options) -let updateConstraintsForActiveEdges self = msg_send ~self ~cmd:(selector "updateConstraintsForActiveEdges") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UITrackingLayoutGuide" + +let animatesChanges self = msg_send ~self ~cmd:(selector "animatesChanges") ~typ:(returning bool) +let animatingConstraintsChange self = msg_send ~self ~cmd:(selector "animatingConstraintsChange") ~typ:(returning bool) +let animationDuration self = msg_send ~self ~cmd:(selector "animationDuration") ~typ:(returning double) +let animationOptions self = msg_send ~self ~cmd:(selector "animationOptions") ~typ:(returning ullong) +let awayFromConstraintsByEdge self = msg_send ~self ~cmd:(selector "awayFromConstraintsByEdge") ~typ:(returning id) +let changeOffsetConstants x self = msg_send ~self ~cmd:(selector "changeOffsetConstants:") ~typ:(UIOffset.t @-> returning void) x +let changeSizingConstants x self = msg_send ~self ~cmd:(selector "changeSizingConstants:") ~typ:(CGSize.t @-> returning void) x +let constrainedToWindowGuide self = msg_send ~self ~cmd:(selector "constrainedToWindowGuide") ~typ:(returning bool) +let constraintsActiveWhenAwayFromEdge x self = msg_send ~self ~cmd:(selector "constraintsActiveWhenAwayFromEdge:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let constraintsActiveWhenNearEdge x self = msg_send ~self ~cmd:(selector "constraintsActiveWhenNearEdge:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let edgeConstraints self = msg_send ~self ~cmd:(selector "edgeConstraints") ~typ:(returning id) +let enableAnimations x self = msg_send ~self ~cmd:(selector "enableAnimations:") ~typ:(bool @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let nearEdgeConstraintsByEdge self = msg_send ~self ~cmd:(selector "nearEdgeConstraintsByEdge") ~typ:(returning id) +let overlappingEdges self = msg_send ~self ~cmd:(selector "overlappingEdges") ~typ:(returning ullong) +let owningViewInterfaceLayoutDirection self = msg_send ~self ~cmd:(selector "owningViewInterfaceLayoutDirection") ~typ:(returning llong) +let pauseUpdatingConstraintsForEdges x self = msg_send ~self ~cmd:(selector "pauseUpdatingConstraintsForEdges:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let pausedEdges self = msg_send ~self ~cmd:(selector "pausedEdges") ~typ:(returning ullong) +let removeAllTrackedConstraints self = msg_send ~self ~cmd:(selector "removeAllTrackedConstraints") ~typ:(returning void) +let resetAnimationOptions self = msg_send ~self ~cmd:(selector "resetAnimationOptions") ~typ:(returning void) +let setAnimatesChanges x self = msg_send ~self ~cmd:(selector "setAnimatesChanges:") ~typ:(bool @-> returning void) x +let setAnimatingConstraintsChange x self = msg_send ~self ~cmd:(selector "setAnimatingConstraintsChange:") ~typ:(bool @-> returning void) x +let setAnimationDuration x self = msg_send ~self ~cmd:(selector "setAnimationDuration:") ~typ:(double @-> returning void) x +let setAnimationOptions x self = msg_send ~self ~cmd:(selector "setAnimationOptions:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setAwayFromConstraintsByEdge x self = msg_send ~self ~cmd:(selector "setAwayFromConstraintsByEdge:") ~typ:(id @-> returning void) x +let setConstrainedToWindowGuide x self = msg_send ~self ~cmd:(selector "setConstrainedToWindowGuide:") ~typ:(bool @-> returning void) x +let setConstraints x ~activeWhenAwayFromEdge self = msg_send ~self ~cmd:(selector "setConstraints:activeWhenAwayFromEdge:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int activeWhenAwayFromEdge) +let setConstraints' x ~activeWhenNearEdge self = msg_send ~self ~cmd:(selector "setConstraints:activeWhenNearEdge:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int activeWhenNearEdge) +let setEdgeThresholds x ~forOrientation self = msg_send ~self ~cmd:(selector "setEdgeThresholds:forOrientation:") ~typ:(UIEdgeInsets.t @-> llong @-> returning void) x (LLong.of_int forOrientation) +let setNearEdgeConstraintsByEdge x self = msg_send ~self ~cmd:(selector "setNearEdgeConstraintsByEdge:") ~typ:(id @-> returning void) x +let setOverlappingEdges x self = msg_send ~self ~cmd:(selector "setOverlappingEdges:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setOwningViewInterfaceLayoutDirection x self = msg_send ~self ~cmd:(selector "setOwningViewInterfaceLayoutDirection:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPausedEdges x self = msg_send ~self ~cmd:(selector "setPausedEdges:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setProportionalEdgeThresholds x self = msg_send ~self ~cmd:(selector "setProportionalEdgeThresholds:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setTriggerInsetsForLandscape x self = msg_send ~self ~cmd:(selector "setTriggerInsetsForLandscape:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setTriggerInsetsForPortrait x self = msg_send ~self ~cmd:(selector "setTriggerInsetsForPortrait:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setTriggerProportions x self = msg_send ~self ~cmd:(selector "setTriggerProportions:") ~typ:(UIEdgeInsets.t @-> returning void) x +let startUpdatingConstraintsForEdges x self = msg_send ~self ~cmd:(selector "startUpdatingConstraintsForEdges:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let stopTrackingConstraintsForEdge x self = msg_send ~self ~cmd:(selector "stopTrackingConstraintsForEdge:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let trackConstraintsFromViewBasedGuide x self = msg_send ~self ~cmd:(selector "trackConstraintsFromViewBasedGuide:") ~typ:(id @-> returning void) x +let triggerInsetsForLandscape self = msg_send ~self ~cmd:(selector "triggerInsetsForLandscape") ~typ:(returning UIEdgeInsets.t) +let triggerInsetsForPortrait self = msg_send ~self ~cmd:(selector "triggerInsetsForPortrait") ~typ:(returning UIEdgeInsets.t) +let triggerProportions self = msg_send ~self ~cmd:(selector "triggerProportions") ~typ:(returning UIEdgeInsets.t) +let updateAnimationDuration x ~options self = msg_send ~self ~cmd:(selector "updateAnimationDuration:options:") ~typ:(double @-> ullong @-> returning void) x (ULLong.of_int options) +let updateConstraintsForActiveEdges self = msg_send ~self ~cmd:(selector "updateConstraintsForActiveEdges") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UITraitCollection.ml b/uikit/UITraitCollection.ml index 5d9c5df5..f073d597 100644 --- a/uikit/UITraitCollection.ml +++ b/uikit/UITraitCollection.ml @@ -5,61 +5,40 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITraitCollection" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitraitcollection?language=objc}UITraitCollection} *) -module C = struct - let currentTraitCollection self = msg_send ~self ~cmd:(selector "currentTraitCollection") ~typ:(returning (id)) - let setCurrentTraitCollection x self = msg_send ~self ~cmd:(selector "setCurrentTraitCollection:") ~typ:(id @-> returning (void)) x - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) - let traitCollectionWithAccessibilityContrast x self = msg_send ~self ~cmd:(selector "traitCollectionWithAccessibilityContrast:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let traitCollectionWithActiveAppearance x self = msg_send ~self ~cmd:(selector "traitCollectionWithActiveAppearance:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let traitCollectionWithArtworkSubtype x self = msg_send ~self ~cmd:(selector "traitCollectionWithArtworkSubtype:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) - let traitCollectionWithDisplayCornerRadius x self = msg_send ~self ~cmd:(selector "traitCollectionWithDisplayCornerRadius:") ~typ:(double @-> returning (id)) x - let traitCollectionWithDisplayGamut x self = msg_send ~self ~cmd:(selector "traitCollectionWithDisplayGamut:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let traitCollectionWithDisplayScale x self = msg_send ~self ~cmd:(selector "traitCollectionWithDisplayScale:") ~typ:(double @-> returning (id)) x - let traitCollectionWithForceTouchCapability x self = msg_send ~self ~cmd:(selector "traitCollectionWithForceTouchCapability:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let traitCollectionWithHorizontalSizeClass x self = msg_send ~self ~cmd:(selector "traitCollectionWithHorizontalSizeClass:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let traitCollectionWithInteractionModel x self = msg_send ~self ~cmd:(selector "traitCollectionWithInteractionModel:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) - let traitCollectionWithLayoutDirection x self = msg_send ~self ~cmd:(selector "traitCollectionWithLayoutDirection:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let traitCollectionWithLegibilityWeight x self = msg_send ~self ~cmd:(selector "traitCollectionWithLegibilityWeight:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let traitCollectionWithPreferredContentSizeCategory x self = msg_send ~self ~cmd:(selector "traitCollectionWithPreferredContentSizeCategory:") ~typ:(id @-> returning (id)) x - let traitCollectionWithPrimaryInteractionModel x self = msg_send ~self ~cmd:(selector "traitCollectionWithPrimaryInteractionModel:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) - let traitCollectionWithTouchLevel x self = msg_send ~self ~cmd:(selector "traitCollectionWithTouchLevel:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let traitCollectionWithTraitsFromCollections x self = msg_send ~self ~cmd:(selector "traitCollectionWithTraitsFromCollections:") ~typ:(id @-> returning (id)) x - let traitCollectionWithUserInterfaceIdiom x self = msg_send ~self ~cmd:(selector "traitCollectionWithUserInterfaceIdiom:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let traitCollectionWithUserInterfaceLevel x self = msg_send ~self ~cmd:(selector "traitCollectionWithUserInterfaceLevel:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let traitCollectionWithUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "traitCollectionWithUserInterfaceStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let traitCollectionWithVerticalSizeClass x self = msg_send ~self ~cmd:(selector "traitCollectionWithVerticalSizeClass:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -end +let self = get_class "UITraitCollection" -let accessibilityContrast self = msg_send ~self ~cmd:(selector "accessibilityContrast") ~typ:(returning (llong)) -let activeAppearance self = msg_send ~self ~cmd:(selector "activeAppearance") ~typ:(returning (llong)) -let artworkSubtype self = msg_send ~self ~cmd:(selector "artworkSubtype") ~typ:(returning (ullong)) -let containsTraitsInCollection x self = msg_send ~self ~cmd:(selector "containsTraitsInCollection:") ~typ:(id @-> returning (bool)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let displayCornerRadius self = msg_send ~self ~cmd:(selector "displayCornerRadius") ~typ:(returning (double)) -let displayGamut self = msg_send ~self ~cmd:(selector "displayGamut") ~typ:(returning (llong)) -let displayScale self = msg_send ~self ~cmd:(selector "displayScale") ~typ:(returning (double)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let forceTouchCapability self = msg_send ~self ~cmd:(selector "forceTouchCapability") ~typ:(returning (llong)) -let hasDifferentColorAppearanceComparedToTraitCollection x self = msg_send ~self ~cmd:(selector "hasDifferentColorAppearanceComparedToTraitCollection:") ~typ:(id @-> returning (bool)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let horizontalSizeClass self = msg_send ~self ~cmd:(selector "horizontalSizeClass") ~typ:(returning (llong)) -let imageConfiguration self = msg_send ~self ~cmd:(selector "imageConfiguration") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let interactionModel self = msg_send ~self ~cmd:(selector "interactionModel") ~typ:(returning (ullong)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let layoutDirection self = msg_send ~self ~cmd:(selector "layoutDirection") ~typ:(returning (llong)) -let legibilityWeight self = msg_send ~self ~cmd:(selector "legibilityWeight") ~typ:(returning (llong)) -let performAsCurrentTraitCollection x self = msg_send ~self ~cmd:(selector "performAsCurrentTraitCollection:") ~typ:(ptr void @-> returning (void)) x -let preferredContentSizeCategory self = msg_send ~self ~cmd:(selector "preferredContentSizeCategory") ~typ:(returning (id)) -let primaryInteractionModel self = msg_send ~self ~cmd:(selector "primaryInteractionModel") ~typ:(returning (ullong)) -let touchLevel self = msg_send ~self ~cmd:(selector "touchLevel") ~typ:(returning (llong)) -let userInterfaceIdiom self = msg_send ~self ~cmd:(selector "userInterfaceIdiom") ~typ:(returning (llong)) -let userInterfaceLevel self = msg_send ~self ~cmd:(selector "userInterfaceLevel") ~typ:(returning (llong)) -let userInterfaceStyle self = msg_send ~self ~cmd:(selector "userInterfaceStyle") ~typ:(returning (llong)) -let verticalSizeClass self = msg_send ~self ~cmd:(selector "verticalSizeClass") ~typ:(returning (llong)) \ No newline at end of file +let accessibilityContrast self = msg_send ~self ~cmd:(selector "accessibilityContrast") ~typ:(returning llong) +let activeAppearance self = msg_send ~self ~cmd:(selector "activeAppearance") ~typ:(returning llong) +let artworkSubtype self = msg_send ~self ~cmd:(selector "artworkSubtype") ~typ:(returning ullong) +let containsTraitsInCollection x self = msg_send ~self ~cmd:(selector "containsTraitsInCollection:") ~typ:(id @-> returning bool) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let displayCornerRadius self = msg_send ~self ~cmd:(selector "displayCornerRadius") ~typ:(returning double) +let displayGamut self = msg_send ~self ~cmd:(selector "displayGamut") ~typ:(returning llong) +let displayScale self = msg_send ~self ~cmd:(selector "displayScale") ~typ:(returning double) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let forceTouchCapability self = msg_send ~self ~cmd:(selector "forceTouchCapability") ~typ:(returning llong) +let hasDifferentColorAppearanceComparedToTraitCollection x self = msg_send ~self ~cmd:(selector "hasDifferentColorAppearanceComparedToTraitCollection:") ~typ:(id @-> returning bool) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let horizontalSizeClass self = msg_send ~self ~cmd:(selector "horizontalSizeClass") ~typ:(returning llong) +let imageConfiguration self = msg_send ~self ~cmd:(selector "imageConfiguration") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let interactionModel self = msg_send ~self ~cmd:(selector "interactionModel") ~typ:(returning ullong) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let layoutDirection self = msg_send ~self ~cmd:(selector "layoutDirection") ~typ:(returning llong) +let legibilityWeight self = msg_send ~self ~cmd:(selector "legibilityWeight") ~typ:(returning llong) +let performAsCurrentTraitCollection x self = msg_send ~self ~cmd:(selector "performAsCurrentTraitCollection:") ~typ:((ptr void) @-> returning void) x +let preferredContentSizeCategory self = msg_send ~self ~cmd:(selector "preferredContentSizeCategory") ~typ:(returning id) +let primaryInteractionModel self = msg_send ~self ~cmd:(selector "primaryInteractionModel") ~typ:(returning ullong) +let touchLevel self = msg_send ~self ~cmd:(selector "touchLevel") ~typ:(returning llong) +let userInterfaceIdiom self = msg_send ~self ~cmd:(selector "userInterfaceIdiom") ~typ:(returning llong) +let userInterfaceLevel self = msg_send ~self ~cmd:(selector "userInterfaceLevel") ~typ:(returning llong) +let userInterfaceStyle self = msg_send ~self ~cmd:(selector "userInterfaceStyle") ~typ:(returning llong) +let verticalSizeClass self = msg_send ~self ~cmd:(selector "verticalSizeClass") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UITraitCollectionClass.ml b/uikit/UITraitCollectionClass.ml new file mode 100644 index 00000000..cc7c13ea --- /dev/null +++ b/uikit/UITraitCollectionClass.ml @@ -0,0 +1,34 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitraitcollection?language=objc}UITraitCollection} *) + +let currentTraitCollection self = msg_send ~self ~cmd:(selector "currentTraitCollection") ~typ:(returning id) +let setCurrentTraitCollection x self = msg_send ~self ~cmd:(selector "setCurrentTraitCollection:") ~typ:(id @-> returning void) x +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) +let traitCollectionWithAccessibilityContrast x self = msg_send ~self ~cmd:(selector "traitCollectionWithAccessibilityContrast:") ~typ:(llong @-> returning id) (LLong.of_int x) +let traitCollectionWithActiveAppearance x self = msg_send ~self ~cmd:(selector "traitCollectionWithActiveAppearance:") ~typ:(llong @-> returning id) (LLong.of_int x) +let traitCollectionWithArtworkSubtype x self = msg_send ~self ~cmd:(selector "traitCollectionWithArtworkSubtype:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let traitCollectionWithDisplayCornerRadius x self = msg_send ~self ~cmd:(selector "traitCollectionWithDisplayCornerRadius:") ~typ:(double @-> returning id) x +let traitCollectionWithDisplayGamut x self = msg_send ~self ~cmd:(selector "traitCollectionWithDisplayGamut:") ~typ:(llong @-> returning id) (LLong.of_int x) +let traitCollectionWithDisplayScale x self = msg_send ~self ~cmd:(selector "traitCollectionWithDisplayScale:") ~typ:(double @-> returning id) x +let traitCollectionWithForceTouchCapability x self = msg_send ~self ~cmd:(selector "traitCollectionWithForceTouchCapability:") ~typ:(llong @-> returning id) (LLong.of_int x) +let traitCollectionWithHorizontalSizeClass x self = msg_send ~self ~cmd:(selector "traitCollectionWithHorizontalSizeClass:") ~typ:(llong @-> returning id) (LLong.of_int x) +let traitCollectionWithInteractionModel x self = msg_send ~self ~cmd:(selector "traitCollectionWithInteractionModel:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let traitCollectionWithLayoutDirection x self = msg_send ~self ~cmd:(selector "traitCollectionWithLayoutDirection:") ~typ:(llong @-> returning id) (LLong.of_int x) +let traitCollectionWithLegibilityWeight x self = msg_send ~self ~cmd:(selector "traitCollectionWithLegibilityWeight:") ~typ:(llong @-> returning id) (LLong.of_int x) +let traitCollectionWithPreferredContentSizeCategory x self = msg_send ~self ~cmd:(selector "traitCollectionWithPreferredContentSizeCategory:") ~typ:(id @-> returning id) x +let traitCollectionWithPrimaryInteractionModel x self = msg_send ~self ~cmd:(selector "traitCollectionWithPrimaryInteractionModel:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let traitCollectionWithTouchLevel x self = msg_send ~self ~cmd:(selector "traitCollectionWithTouchLevel:") ~typ:(llong @-> returning id) (LLong.of_int x) +let traitCollectionWithTraitsFromCollections x self = msg_send ~self ~cmd:(selector "traitCollectionWithTraitsFromCollections:") ~typ:(id @-> returning id) x +let traitCollectionWithUserInterfaceIdiom x self = msg_send ~self ~cmd:(selector "traitCollectionWithUserInterfaceIdiom:") ~typ:(llong @-> returning id) (LLong.of_int x) +let traitCollectionWithUserInterfaceLevel x self = msg_send ~self ~cmd:(selector "traitCollectionWithUserInterfaceLevel:") ~typ:(llong @-> returning id) (LLong.of_int x) +let traitCollectionWithUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "traitCollectionWithUserInterfaceStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let traitCollectionWithVerticalSizeClass x self = msg_send ~self ~cmd:(selector "traitCollectionWithVerticalSizeClass:") ~typ:(llong @-> returning id) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UITransform.ml b/uikit/UITransform.ml index dd10c55d..9666b1ba 100644 --- a/uikit/UITransform.ml +++ b/uikit/UITransform.ml @@ -5,25 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITransform" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitransform?language=objc}UITransform} *) -module C = struct - let identity self = msg_send ~self ~cmd:(selector "identity") ~typ:(returning (id)) - let rotationWithDegrees x self = msg_send ~self ~cmd:(selector "rotationWithDegrees:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let rotationWithRadians x self = msg_send ~self ~cmd:(selector "rotationWithRadians:") ~typ:(double @-> returning (id)) x - let scale x self = msg_send ~self ~cmd:(selector "scale:") ~typ:(double @-> returning (id)) x - let scaleX x ~scaleY self = msg_send ~self ~cmd:(selector "scaleX:scaleY:") ~typ:(double @-> double @-> returning (id)) x scaleY - let transformWithCGAffineTransform x self = msg_send ~self ~cmd:(selector "transformWithCGAffineTransform:") ~typ:(ptr void @-> returning (id)) x - let translation x self = msg_send ~self ~cmd:(selector "translation:") ~typ:(CGPoint.t @-> returning (id)) x -end +let self = get_class "UITransform" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let descriptionWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let succinctDescription self = msg_send ~self ~cmd:(selector "succinctDescription") ~typ:(returning (id)) -let succinctDescriptionBuilder self = msg_send ~self ~cmd:(selector "succinctDescriptionBuilder") ~typ:(returning (id)) \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning id) x +let descriptionWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionWithMultilinePrefix:") ~typ:(id @-> returning id) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let succinctDescription self = msg_send ~self ~cmd:(selector "succinctDescription") ~typ:(returning id) +let succinctDescriptionBuilder self = msg_send ~self ~cmd:(selector "succinctDescriptionBuilder") ~typ:(returning id) +let transform self = msg_send ~self ~cmd:(selector "transform") ~typ:(returning CGAffineTransform.t) \ No newline at end of file diff --git a/uikit/UITransformClass.ml b/uikit/UITransformClass.ml new file mode 100644 index 00000000..d879091a --- /dev/null +++ b/uikit/UITransformClass.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitransform?language=objc}UITransform} *) + +let identity self = msg_send ~self ~cmd:(selector "identity") ~typ:(returning id) +let rotationWithDegrees x self = msg_send ~self ~cmd:(selector "rotationWithDegrees:") ~typ:(llong @-> returning id) (LLong.of_int x) +let rotationWithRadians x self = msg_send ~self ~cmd:(selector "rotationWithRadians:") ~typ:(double @-> returning id) x +let scale x self = msg_send ~self ~cmd:(selector "scale:") ~typ:(double @-> returning id) x +let scaleX x ~scaleY self = msg_send ~self ~cmd:(selector "scaleX:scaleY:") ~typ:(double @-> double @-> returning id) x scaleY +let transformWithCGAffineTransform x self = msg_send ~self ~cmd:(selector "transformWithCGAffineTransform:") ~typ:(CGAffineTransform.t @-> returning id) x +let translation x self = msg_send ~self ~cmd:(selector "translation:") ~typ:(CGPoint.t @-> returning id) x \ No newline at end of file diff --git a/uikit/UITransformEvent.ml b/uikit/UITransformEvent.ml index ce808588..eb99325b 100644 --- a/uikit/UITransformEvent.ml +++ b/uikit/UITransformEvent.ml @@ -5,14 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITransformEvent" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitransformevent?language=objc}UITransformEvent} *) -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let phase self = msg_send ~self ~cmd:(selector "phase") ~typ:(returning (ullong)) -let rotation self = msg_send ~self ~cmd:(selector "rotation") ~typ:(returning (double)) -let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning (double)) -let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning (llong)) -let translation self = msg_send_stret ~self ~cmd:(selector "translation") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) -let weightedDominantComponentForScaleWeight x ~rotationWeight ~translationWeight self = msg_send ~self ~cmd:(selector "weightedDominantComponentForScaleWeight:rotationWeight:translationWeight:") ~typ:(double @-> double @-> double @-> returning (llong)) x rotationWeight translationWeight \ No newline at end of file +let self = get_class "UITransformEvent" + +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let phase self = msg_send ~self ~cmd:(selector "phase") ~typ:(returning ullong) +let rotation self = msg_send ~self ~cmd:(selector "rotation") ~typ:(returning double) +let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning double) +let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning llong) +let transform self = msg_send ~self ~cmd:(selector "transform") ~typ:(returning CGAffineTransform.t) +let translation self = msg_send ~self ~cmd:(selector "translation") ~typ:(returning CGPoint.t) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) +let weightedDominantComponentForScaleWeight x ~rotationWeight ~translationWeight self = msg_send ~self ~cmd:(selector "weightedDominantComponentForScaleWeight:rotationWeight:translationWeight:") ~typ:(double @-> double @-> double @-> returning llong) x rotationWeight translationWeight \ No newline at end of file diff --git a/uikit/UITransformer.ml b/uikit/UITransformer.ml index a44c9055..28c6884c 100644 --- a/uikit/UITransformer.ml +++ b/uikit/UITransformer.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITransformer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitransformer?language=objc}UITransformer} *) -let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:(id @-> returning (id)) x -let transforms self = msg_send ~self ~cmd:(selector "transforms") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UITransformer" + +let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning id) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:((ptr void) @-> returning id) x +let transforms self = msg_send ~self ~cmd:(selector "transforms") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UITransitionView.ml b/uikit/UITransitionView.ml index 2c809d94..11bf6f13 100644 --- a/uikit/UITransitionView.ml +++ b/uikit/UITransitionView.ml @@ -5,41 +5,41 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITransitionView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitransitionview?language=objc}UITransitionView} *) -module C = struct - let defaultDurationForTransition x self = msg_send ~self ~cmd:(selector "defaultDurationForTransition:") ~typ:(int @-> returning (double)) x -end +let self = get_class "UITransitionView" -let animationTimingCurve self = msg_send ~self ~cmd:(selector "animationTimingCurve") ~typ:(returning (llong)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let durationForTransition x self = msg_send ~self ~cmd:(selector "durationForTransition:") ~typ:(int @-> returning (double)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let fromView self = msg_send ~self ~cmd:(selector "fromView") ~typ:(returning (id)) -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let ignoreDirectTouchEvents self = msg_send ~self ~cmd:(selector "ignoreDirectTouchEvents") ~typ:(returning (bool)) -let ignoresInteractionEvents self = msg_send ~self ~cmd:(selector "ignoresInteractionEvents") ~typ:(returning (bool)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isTransitioning self = msg_send ~self ~cmd:(selector "isTransitioning") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let notifyDidCompleteTransition x self = msg_send ~self ~cmd:(selector "notifyDidCompleteTransition:") ~typ:(id @-> returning (void)) x -let rasterizesOnTransition self = msg_send ~self ~cmd:(selector "rasterizesOnTransition") ~typ:(returning (bool)) -let safeAreaInsetsDidChange self = msg_send ~self ~cmd:(selector "safeAreaInsetsDidChange") ~typ:(returning (void)) -let setAnimationTimingCurve x self = msg_send ~self ~cmd:(selector "setAnimationTimingCurve:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setIgnoreDirectTouchEvents x self = msg_send ~self ~cmd:(selector "setIgnoreDirectTouchEvents:") ~typ:(bool @-> returning (void)) x -let setIgnoresInteractionEvents x self = msg_send ~self ~cmd:(selector "setIgnoresInteractionEvents:") ~typ:(bool @-> returning (void)) x -let setRasterizesOnTransition x self = msg_send ~self ~cmd:(selector "setRasterizesOnTransition:") ~typ:(bool @-> returning (void)) x -let setShouldNotifyDidCompleteImmediately x self = msg_send ~self ~cmd:(selector "setShouldNotifyDidCompleteImmediately:") ~typ:(bool @-> returning (void)) x -let shouldNotifyDidCompleteImmediately self = msg_send ~self ~cmd:(selector "shouldNotifyDidCompleteImmediately") ~typ:(returning (bool)) -let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning (int)) -let toView self = msg_send ~self ~cmd:(selector "toView") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let transition x ~toView self = msg_send ~self ~cmd:(selector "transition:toView:") ~typ:(int @-> id @-> returning (bool)) x toView -let transition1 x ~fromView ~toView self = msg_send ~self ~cmd:(selector "transition:fromView:toView:") ~typ:(int @-> id @-> id @-> returning (bool)) x fromView toView -let transition2 x ~fromView ~toView ~removeFromView self = msg_send ~self ~cmd:(selector "transition:fromView:toView:removeFromView:") ~typ:(int @-> id @-> id @-> bool @-> returning (bool)) x fromView toView removeFromView -let willMoveToSuperview x self = msg_send ~self ~cmd:(selector "willMoveToSuperview:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let animationTimingCurve self = msg_send ~self ~cmd:(selector "animationTimingCurve") ~typ:(returning llong) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let durationForTransition x self = msg_send ~self ~cmd:(selector "durationForTransition:") ~typ:(int @-> returning double) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let fromView self = msg_send ~self ~cmd:(selector "fromView") ~typ:(returning id) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let ignoreDirectTouchEvents self = msg_send ~self ~cmd:(selector "ignoreDirectTouchEvents") ~typ:(returning bool) +let ignoresInteractionEvents self = msg_send ~self ~cmd:(selector "ignoresInteractionEvents") ~typ:(returning bool) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isTransitioning self = msg_send ~self ~cmd:(selector "isTransitioning") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let notifyDidCompleteTransition x self = msg_send ~self ~cmd:(selector "notifyDidCompleteTransition:") ~typ:(id @-> returning void) x +let rasterizesOnTransition self = msg_send ~self ~cmd:(selector "rasterizesOnTransition") ~typ:(returning bool) +let safeAreaInsetsDidChange self = msg_send ~self ~cmd:(selector "safeAreaInsetsDidChange") ~typ:(returning void) +let setAnimationTimingCurve x self = msg_send ~self ~cmd:(selector "setAnimationTimingCurve:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setIgnoreDirectTouchEvents x self = msg_send ~self ~cmd:(selector "setIgnoreDirectTouchEvents:") ~typ:(bool @-> returning void) x +let setIgnoresInteractionEvents x self = msg_send ~self ~cmd:(selector "setIgnoresInteractionEvents:") ~typ:(bool @-> returning void) x +let setRasterizesOnTransition x self = msg_send ~self ~cmd:(selector "setRasterizesOnTransition:") ~typ:(bool @-> returning void) x +let setShouldNotifyDidCompleteImmediately x self = msg_send ~self ~cmd:(selector "setShouldNotifyDidCompleteImmediately:") ~typ:(bool @-> returning void) x +let shouldNotifyDidCompleteImmediately self = msg_send ~self ~cmd:(selector "shouldNotifyDidCompleteImmediately") ~typ:(returning bool) +let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning int) +let toView self = msg_send ~self ~cmd:(selector "toView") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let transition x ~toView self = msg_send ~self ~cmd:(selector "transition:toView:") ~typ:(int @-> id @-> returning bool) x toView +let transition1 x ~fromView ~toView self = msg_send ~self ~cmd:(selector "transition:fromView:toView:") ~typ:(int @-> id @-> id @-> returning bool) x fromView toView +let transition2 x ~fromView ~toView ~removeFromView self = msg_send ~self ~cmd:(selector "transition:fromView:toView:removeFromView:") ~typ:(int @-> id @-> id @-> bool @-> returning bool) x fromView toView removeFromView +let willMoveToSuperview x self = msg_send ~self ~cmd:(selector "willMoveToSuperview:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITransitionViewClass.ml b/uikit/UITransitionViewClass.ml new file mode 100644 index 00000000..fb5318a6 --- /dev/null +++ b/uikit/UITransitionViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitransitionview?language=objc}UITransitionView} *) + +let defaultDurationForTransition x self = msg_send ~self ~cmd:(selector "defaultDurationForTransition:") ~typ:(int @-> returning double) x \ No newline at end of file diff --git a/uikit/UITutorialAnimatedView.ml b/uikit/UITutorialAnimatedView.ml index 495c5ba6..e75542fb 100644 --- a/uikit/UITutorialAnimatedView.ml +++ b/uikit/UITutorialAnimatedView.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITutorialAnimatedView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitutorialanimatedview?language=objc}UITutorialAnimatedView} *) -let appearance self = msg_send ~self ~cmd:(selector "appearance") ~typ:(returning (llong)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let initWithKeyboardAppearance x self = msg_send ~self ~cmd:(selector "initWithKeyboardAppearance:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let package self = msg_send ~self ~cmd:(selector "package") ~typ:(returning (id)) -let setAppearance x self = msg_send ~self ~cmd:(selector "setAppearance:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPackage x self = msg_send ~self ~cmd:(selector "setPackage:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UITutorialAnimatedView" + +let appearance self = msg_send ~self ~cmd:(selector "appearance") ~typ:(returning llong) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let initWithKeyboardAppearance x self = msg_send ~self ~cmd:(selector "initWithKeyboardAppearance:") ~typ:(llong @-> returning id) (LLong.of_int x) +let package self = msg_send ~self ~cmd:(selector "package") ~typ:(returning id) +let setAppearance x self = msg_send ~self ~cmd:(selector "setAppearance:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPackage x self = msg_send ~self ~cmd:(selector "setPackage:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UITutorialFramingView.ml b/uikit/UITutorialFramingView.ml index 775f04f8..0e99863a 100644 --- a/uikit/UITutorialFramingView.ml +++ b/uikit/UITutorialFramingView.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITutorialFramingView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitutorialframingview?language=objc}UITutorialFramingView} *) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x \ No newline at end of file +let self = get_class "UITutorialFramingView" + +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x \ No newline at end of file diff --git a/uikit/UIURLDragPreviewView.ml b/uikit/UIURLDragPreviewView.ml index 07c50abd..90c32740 100644 --- a/uikit/UIURLDragPreviewView.ml +++ b/uikit/UIURLDragPreviewView.ml @@ -5,22 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIURLDragPreviewView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiurldragpreviewview?language=objc}UIURLDragPreviewView} *) -module C = struct - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let viewWithTitle x ~_URL self = msg_send ~self ~cmd:(selector "viewWithTitle:URL:") ~typ:(id @-> id @-> returning (id)) x _URL - let viewWithTitle' x ~_URLText self = msg_send ~self ~cmd:(selector "viewWithTitle:URLText:") ~typ:(id @-> id @-> returning (id)) x _URLText - let viewWithURL x self = msg_send ~self ~cmd:(selector "viewWithURL:") ~typ:(id @-> returning (id)) x - let viewWithURLText x self = msg_send ~self ~cmd:(selector "viewWithURLText:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIURLDragPreviewView" -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setUrl x self = msg_send ~self ~cmd:(selector "setUrl:") ~typ:(id @-> returning (void)) x -let setUrlText x self = msg_send ~self ~cmd:(selector "setUrlText:") ~typ:(id @-> returning (void)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning (void)) -let url self = msg_send ~self ~cmd:(selector "url") ~typ:(returning (id)) -let urlText self = msg_send ~self ~cmd:(selector "urlText") ~typ:(returning (id)) \ No newline at end of file +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let setUrl x self = msg_send ~self ~cmd:(selector "setUrl:") ~typ:(id @-> returning void) x +let setUrlText x self = msg_send ~self ~cmd:(selector "setUrlText:") ~typ:(id @-> returning void) x +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning void) +let url self = msg_send ~self ~cmd:(selector "url") ~typ:(returning id) +let urlText self = msg_send ~self ~cmd:(selector "urlText") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIURLDragPreviewViewClass.ml b/uikit/UIURLDragPreviewViewClass.ml new file mode 100644 index 00000000..fee200cc --- /dev/null +++ b/uikit/UIURLDragPreviewViewClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiurldragpreviewview?language=objc}UIURLDragPreviewView} *) + +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) +let viewWithTitle x ~_URL self = msg_send ~self ~cmd:(selector "viewWithTitle:URL:") ~typ:(id @-> id @-> returning id) x _URL +let viewWithTitle' x ~_URLText self = msg_send ~self ~cmd:(selector "viewWithTitle:URLText:") ~typ:(id @-> id @-> returning id) x _URLText +let viewWithURL x self = msg_send ~self ~cmd:(selector "viewWithURL:") ~typ:(id @-> returning id) x +let viewWithURLText x self = msg_send ~self ~cmd:(selector "viewWithURLText:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIUndoTutorialView.ml b/uikit/UIUndoTutorialView.ml index 7808b42b..8460c112 100644 --- a/uikit/UIUndoTutorialView.ml +++ b/uikit/UIUndoTutorialView.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIUndoTutorialView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiundotutorialview?language=objc}UIUndoTutorialView} *) -let initWithKeyboardAppearance x self = msg_send ~self ~cmd:(selector "initWithKeyboardAppearance:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let largeTitle self = msg_send ~self ~cmd:(selector "largeTitle") ~typ:(returning (id)) -let presentsFullScreen self = msg_send ~self ~cmd:(selector "presentsFullScreen") ~typ:(returning (bool)) -let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIUndoTutorialView" + +let initWithKeyboardAppearance x self = msg_send ~self ~cmd:(selector "initWithKeyboardAppearance:") ~typ:(llong @-> returning id) (LLong.of_int x) +let largeTitle self = msg_send ~self ~cmd:(selector "largeTitle") ~typ:(returning id) +let presentsFullScreen self = msg_send ~self ~cmd:(selector "presentsFullScreen") ~typ:(returning bool) +let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIUndoTutorialViewController.ml b/uikit/UIUndoTutorialViewController.ml index e9e7f20c..89ae6802 100644 --- a/uikit/UIUndoTutorialViewController.ml +++ b/uikit/UIUndoTutorialViewController.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIUndoTutorialViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiundotutorialviewcontroller?language=objc}UIUndoTutorialViewController} *) + +let self = get_class "UIUndoTutorialViewController" let completionHandler self = msg_send ~self ~cmd:(selector "completionHandler") ~typ:(returning (ptr void)) -let doneButtonPressed self = msg_send ~self ~cmd:(selector "doneButtonPressed") ~typ:(returning (void)) -let initWithCompletionHandler x self = msg_send ~self ~cmd:(selector "initWithCompletionHandler:") ~typ:(ptr void @-> returning (id)) x -let setCompletionHandler x self = msg_send ~self ~cmd:(selector "setCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let setTutorialView x self = msg_send ~self ~cmd:(selector "setTutorialView:") ~typ:(id @-> returning (void)) x -let tutorialView self = msg_send ~self ~cmd:(selector "tutorialView") ~typ:(returning (id)) -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning (void)) x withTransitionCoordinator \ No newline at end of file +let doneButtonPressed self = msg_send ~self ~cmd:(selector "doneButtonPressed") ~typ:(returning void) +let initWithCompletionHandler x self = msg_send ~self ~cmd:(selector "initWithCompletionHandler:") ~typ:((ptr void) @-> returning id) x +let setCompletionHandler x self = msg_send ~self ~cmd:(selector "setCompletionHandler:") ~typ:((ptr void) @-> returning void) x +let setTutorialView x self = msg_send ~self ~cmd:(selector "setTutorialView:") ~typ:(id @-> returning void) x +let tutorialView self = msg_send ~self ~cmd:(selector "tutorialView") ~typ:(returning id) +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning void) x withTransitionCoordinator \ No newline at end of file diff --git a/uikit/UIUnhandledBackButtonAction.ml b/uikit/UIUnhandledBackButtonAction.ml index 572e03e5..f3f37b53 100644 --- a/uikit/UIUnhandledBackButtonAction.ml +++ b/uikit/UIUnhandledBackButtonAction.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIUnhandledBackButtonAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiunhandledbackbuttonaction?language=objc}UIUnhandledBackButtonAction} *) -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIUnhandledBackButtonAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIUnhandledMenuButtonAction.ml b/uikit/UIUnhandledMenuButtonAction.ml index ff08f88a..fb05bd64 100644 --- a/uikit/UIUnhandledMenuButtonAction.ml +++ b/uikit/UIUnhandledMenuButtonAction.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIUnhandledMenuButtonAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiunhandledmenubuttonaction?language=objc}UIUnhandledMenuButtonAction} *) -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIUnhandledMenuButtonAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIUpdateItem.ml b/uikit/UIUpdateItem.ml index e108c9cb..62f1352c 100644 --- a/uikit/UIUpdateItem.ml +++ b/uikit/UIUpdateItem.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIUpdateItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiupdateitem?language=objc}UIUpdateItem} *) -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (int)) -let animation self = msg_send ~self ~cmd:(selector "animation") ~typ:(returning (llong)) -let collectionViewUpdateItem self = msg_send ~self ~cmd:(selector "collectionViewUpdateItem") ~typ:(returning (id)) -let compareIndexPaths x self = msg_send ~self ~cmd:(selector "compareIndexPaths:") ~typ:(id @-> returning (llong)) x -let gap self = msg_send ~self ~cmd:(selector "gap") ~typ:(returning (id)) -let headerFooterOnly self = msg_send ~self ~cmd:(selector "headerFooterOnly") ~typ:(returning (bool)) -let indexPath self = msg_send ~self ~cmd:(selector "indexPath") ~typ:(returning (id)) -let initWithAction x ~forIndexPath ~animation self = msg_send ~self ~cmd:(selector "initWithAction:forIndexPath:animation:") ~typ:(int @-> id @-> llong @-> returning (id)) x forIndexPath (LLong.of_int animation) -let inverseCompareIndexPaths x self = msg_send ~self ~cmd:(selector "inverseCompareIndexPaths:") ~typ:(id @-> returning (llong)) x -let isDecomposedFromReload self = msg_send ~self ~cmd:(selector "isDecomposedFromReload") ~typ:(returning (bool)) -let isSectionOperation self = msg_send ~self ~cmd:(selector "isSectionOperation") ~typ:(returning (bool)) -let setAnimation x self = msg_send ~self ~cmd:(selector "setAnimation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setGap x self = msg_send ~self ~cmd:(selector "setGap:") ~typ:(id @-> returning (void)) x -let setHeaderFooterOnly x self = msg_send ~self ~cmd:(selector "setHeaderFooterOnly:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIUpdateItem" + +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning int) +let animation self = msg_send ~self ~cmd:(selector "animation") ~typ:(returning llong) +let collectionViewUpdateItem self = msg_send ~self ~cmd:(selector "collectionViewUpdateItem") ~typ:(returning id) +let compareIndexPaths x self = msg_send ~self ~cmd:(selector "compareIndexPaths:") ~typ:(id @-> returning llong) x +let gap self = msg_send ~self ~cmd:(selector "gap") ~typ:(returning id) +let headerFooterOnly self = msg_send ~self ~cmd:(selector "headerFooterOnly") ~typ:(returning bool) +let indexPath self = msg_send ~self ~cmd:(selector "indexPath") ~typ:(returning id) +let initWithAction x ~forIndexPath ~animation self = msg_send ~self ~cmd:(selector "initWithAction:forIndexPath:animation:") ~typ:(int @-> id @-> llong @-> returning id) x forIndexPath (LLong.of_int animation) +let inverseCompareIndexPaths x self = msg_send ~self ~cmd:(selector "inverseCompareIndexPaths:") ~typ:(id @-> returning llong) x +let isDecomposedFromReload self = msg_send ~self ~cmd:(selector "isDecomposedFromReload") ~typ:(returning bool) +let isSectionOperation self = msg_send ~self ~cmd:(selector "isSectionOperation") ~typ:(returning bool) +let setAnimation x self = msg_send ~self ~cmd:(selector "setAnimation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setGap x self = msg_send ~self ~cmd:(selector "setGap:") ~typ:(id @-> returning void) x +let setHeaderFooterOnly x self = msg_send ~self ~cmd:(selector "setHeaderFooterOnly:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIUserNotificationAction.ml b/uikit/UIUserNotificationAction.ml index 05f9e751..0080b201 100644 --- a/uikit/UIUserNotificationAction.ml +++ b/uikit/UIUserNotificationAction.ml @@ -5,36 +5,36 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIUserNotificationAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiusernotificationaction?language=objc}UIUserNotificationAction} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIUserNotificationAction" -let activationMode self = msg_send ~self ~cmd:(selector "activationMode") ~typ:(returning (ullong)) -let activationModeString self = msg_send ~self ~cmd:(selector "activationModeString") ~typ:(returning (id)) -let behavior self = msg_send ~self ~cmd:(selector "behavior") ~typ:(returning (ullong)) -let behaviorString self = msg_send ~self ~cmd:(selector "behaviorString") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithIdentifier x ~title ~behavior ~parameters ~activationMode ~isAuthenticationRequired ~isDestructive self = msg_send ~self ~cmd:(selector "initWithIdentifier:title:behavior:parameters:activationMode:isAuthenticationRequired:isDestructive:") ~typ:(id @-> id @-> ullong @-> id @-> ullong @-> bool @-> bool @-> returning (id)) x title (ULLong.of_int behavior) parameters (ULLong.of_int activationMode) isAuthenticationRequired isDestructive -let isAuthenticationRequired self = msg_send ~self ~cmd:(selector "isAuthenticationRequired") ~typ:(returning (bool)) -let isDestructive self = msg_send ~self ~cmd:(selector "isDestructive") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:(id @-> returning (id)) x -let parameters self = msg_send ~self ~cmd:(selector "parameters") ~typ:(returning (id)) -let setActivationMode x self = msg_send ~self ~cmd:(selector "setActivationMode:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setAuthenticationRequired x self = msg_send ~self ~cmd:(selector "setAuthenticationRequired:") ~typ:(bool @-> returning (void)) x -let setBehavior x self = msg_send ~self ~cmd:(selector "setBehavior:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDestructive x self = msg_send ~self ~cmd:(selector "setDestructive:") ~typ:(bool @-> returning (void)) x -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let setParameters x self = msg_send ~self ~cmd:(selector "setParameters:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let validatedAction self = msg_send ~self ~cmd:(selector "validatedAction") ~typ:(returning (id)) \ No newline at end of file +let activationMode self = msg_send ~self ~cmd:(selector "activationMode") ~typ:(returning ullong) +let activationModeString self = msg_send ~self ~cmd:(selector "activationModeString") ~typ:(returning id) +let behavior self = msg_send ~self ~cmd:(selector "behavior") ~typ:(returning ullong) +let behaviorString self = msg_send ~self ~cmd:(selector "behaviorString") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithIdentifier x ~title ~behavior ~parameters ~activationMode ~isAuthenticationRequired ~isDestructive self = msg_send ~self ~cmd:(selector "initWithIdentifier:title:behavior:parameters:activationMode:isAuthenticationRequired:isDestructive:") ~typ:(id @-> id @-> ullong @-> id @-> ullong @-> bool @-> bool @-> returning id) x title (ULLong.of_int behavior) parameters (ULLong.of_int activationMode) isAuthenticationRequired isDestructive +let isAuthenticationRequired self = msg_send ~self ~cmd:(selector "isAuthenticationRequired") ~typ:(returning bool) +let isDestructive self = msg_send ~self ~cmd:(selector "isDestructive") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:((ptr void) @-> returning id) x +let parameters self = msg_send ~self ~cmd:(selector "parameters") ~typ:(returning id) +let setActivationMode x self = msg_send ~self ~cmd:(selector "setActivationMode:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setAuthenticationRequired x self = msg_send ~self ~cmd:(selector "setAuthenticationRequired:") ~typ:(bool @-> returning void) x +let setBehavior x self = msg_send ~self ~cmd:(selector "setBehavior:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDestructive x self = msg_send ~self ~cmd:(selector "setDestructive:") ~typ:(bool @-> returning void) x +let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning void) x +let setParameters x self = msg_send ~self ~cmd:(selector "setParameters:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let validatedAction self = msg_send ~self ~cmd:(selector "validatedAction") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIUserNotificationActionClass.ml b/uikit/UIUserNotificationActionClass.ml new file mode 100644 index 00000000..ec3385bf --- /dev/null +++ b/uikit/UIUserNotificationActionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiusernotificationaction?language=objc}UIUserNotificationAction} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIUserNotificationActionSettings.ml b/uikit/UIUserNotificationActionSettings.ml index e571a423..ceaac8c8 100644 --- a/uikit/UIUserNotificationActionSettings.ml +++ b/uikit/UIUserNotificationActionSettings.ml @@ -5,25 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIUserNotificationActionSettings" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiusernotificationactionsettings?language=objc}UIUserNotificationActionSettings} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIUserNotificationActionSettings" -let actions self = msg_send ~self ~cmd:(selector "actions") ~typ:(returning (id)) -let actionsByContext self = msg_send ~self ~cmd:(selector "actionsByContext") ~typ:(returning (id)) -let actionsForContext x self = msg_send ~self ~cmd:(selector "actionsForContext:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let category self = msg_send ~self ~cmd:(selector "category") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCategory x ~actionsByContext self = msg_send ~self ~cmd:(selector "initWithCategory:actionsByContext:") ~typ:(id @-> id @-> returning (id)) x actionsByContext -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:(id @-> returning (id)) x -let setActionsByContext x self = msg_send ~self ~cmd:(selector "setActionsByContext:") ~typ:(id @-> returning (void)) x -let setCategory x self = msg_send ~self ~cmd:(selector "setCategory:") ~typ:(id @-> returning (void)) x -let validatedSettings self = msg_send ~self ~cmd:(selector "validatedSettings") ~typ:(returning (id)) \ No newline at end of file +let actions self = msg_send ~self ~cmd:(selector "actions") ~typ:(returning id) +let actionsByContext self = msg_send ~self ~cmd:(selector "actionsByContext") ~typ:(returning id) +let actionsForContext x self = msg_send ~self ~cmd:(selector "actionsForContext:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let category self = msg_send ~self ~cmd:(selector "category") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithCategory x ~actionsByContext self = msg_send ~self ~cmd:(selector "initWithCategory:actionsByContext:") ~typ:(id @-> id @-> returning id) x actionsByContext +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:((ptr void) @-> returning id) x +let setActionsByContext x self = msg_send ~self ~cmd:(selector "setActionsByContext:") ~typ:(id @-> returning void) x +let setCategory x self = msg_send ~self ~cmd:(selector "setCategory:") ~typ:(id @-> returning void) x +let validatedSettings self = msg_send ~self ~cmd:(selector "validatedSettings") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIUserNotificationActionSettingsClass.ml b/uikit/UIUserNotificationActionSettingsClass.ml new file mode 100644 index 00000000..c1dcabb9 --- /dev/null +++ b/uikit/UIUserNotificationActionSettingsClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiusernotificationactionsettings?language=objc}UIUserNotificationActionSettings} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIUserNotificationCategory.ml b/uikit/UIUserNotificationCategory.ml index bd9bb328..4c69fbb5 100644 --- a/uikit/UIUserNotificationCategory.ml +++ b/uikit/UIUserNotificationCategory.ml @@ -5,26 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIUserNotificationCategory" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiusernotificationcategory?language=objc}UIUserNotificationCategory} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIUserNotificationCategory" -let actions self = msg_send ~self ~cmd:(selector "actions") ~typ:(returning (id)) -let actionsByContext self = msg_send ~self ~cmd:(selector "actionsByContext") ~typ:(returning (id)) -let actionsForContext x self = msg_send ~self ~cmd:(selector "actionsForContext:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithIdentifier x ~actionsByContext self = msg_send ~self ~cmd:(selector "initWithIdentifier:actionsByContext:") ~typ:(id @-> id @-> returning (id)) x actionsByContext -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:(id @-> returning (id)) x -let setActionsByContext x self = msg_send ~self ~cmd:(selector "setActionsByContext:") ~typ:(id @-> returning (void)) x -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let validatedCategory self = msg_send ~self ~cmd:(selector "validatedCategory") ~typ:(returning (id)) \ No newline at end of file +let actions self = msg_send ~self ~cmd:(selector "actions") ~typ:(returning id) +let actionsByContext self = msg_send ~self ~cmd:(selector "actionsByContext") ~typ:(returning id) +let actionsForContext x self = msg_send ~self ~cmd:(selector "actionsForContext:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithIdentifier x ~actionsByContext self = msg_send ~self ~cmd:(selector "initWithIdentifier:actionsByContext:") ~typ:(id @-> id @-> returning id) x actionsByContext +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:((ptr void) @-> returning id) x +let setActionsByContext x self = msg_send ~self ~cmd:(selector "setActionsByContext:") ~typ:(id @-> returning void) x +let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning void) x +let validatedCategory self = msg_send ~self ~cmd:(selector "validatedCategory") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIUserNotificationCategoryClass.ml b/uikit/UIUserNotificationCategoryClass.ml new file mode 100644 index 00000000..a168f05c --- /dev/null +++ b/uikit/UIUserNotificationCategoryClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiusernotificationcategory?language=objc}UIUserNotificationCategory} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIUserNotificationSettings.ml b/uikit/UIUserNotificationSettings.ml index 6a4d0507..ffc0f36e 100644 --- a/uikit/UIUserNotificationSettings.ml +++ b/uikit/UIUserNotificationSettings.ml @@ -5,27 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIUserNotificationSettings" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiusernotificationsettings?language=objc}UIUserNotificationSettings} *) -module C = struct - let settingsForRegisteredSettings x ~requestedSettings self = msg_send ~self ~cmd:(selector "settingsForRegisteredSettings:requestedSettings:") ~typ:(id @-> id @-> returning (id)) x requestedSettings - let settingsForTypes x ~categories self = msg_send ~self ~cmd:(selector "settingsForTypes:categories:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) categories - let settingsForUserNotificationTypes x ~userNotificationActionSettings self = msg_send ~self ~cmd:(selector "settingsForUserNotificationTypes:userNotificationActionSettings:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) userNotificationActionSettings - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIUserNotificationSettings" -let allowedUserNotificationTypes self = msg_send ~self ~cmd:(selector "allowedUserNotificationTypes") ~typ:(returning (ullong)) -let categories self = msg_send ~self ~cmd:(selector "categories") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithTypes x ~categories self = msg_send ~self ~cmd:(selector "initWithTypes:categories:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) categories -let initWithUserNotificationTypes x ~userNotificationActionSettings self = msg_send ~self ~cmd:(selector "initWithUserNotificationTypes:userNotificationActionSettings:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) userNotificationActionSettings -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let mayPresentUserNotificationOfType x self = msg_send ~self ~cmd:(selector "mayPresentUserNotificationOfType:") ~typ:(ullong @-> returning (bool)) (ULLong.of_int x) -let types self = msg_send ~self ~cmd:(selector "types") ~typ:(returning (ullong)) -let userNotificationActionSettings self = msg_send ~self ~cmd:(selector "userNotificationActionSettings") ~typ:(returning (id)) -let validatedSettings self = msg_send ~self ~cmd:(selector "validatedSettings") ~typ:(returning (id)) \ No newline at end of file +let allowedUserNotificationTypes self = msg_send ~self ~cmd:(selector "allowedUserNotificationTypes") ~typ:(returning ullong) +let categories self = msg_send ~self ~cmd:(selector "categories") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithTypes x ~categories self = msg_send ~self ~cmd:(selector "initWithTypes:categories:") ~typ:(ullong @-> id @-> returning id) (ULLong.of_int x) categories +let initWithUserNotificationTypes x ~userNotificationActionSettings self = msg_send ~self ~cmd:(selector "initWithUserNotificationTypes:userNotificationActionSettings:") ~typ:(ullong @-> id @-> returning id) (ULLong.of_int x) userNotificationActionSettings +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let mayPresentUserNotificationOfType x self = msg_send ~self ~cmd:(selector "mayPresentUserNotificationOfType:") ~typ:(ullong @-> returning bool) (ULLong.of_int x) +let types self = msg_send ~self ~cmd:(selector "types") ~typ:(returning ullong) +let userNotificationActionSettings self = msg_send ~self ~cmd:(selector "userNotificationActionSettings") ~typ:(returning id) +let validatedSettings self = msg_send ~self ~cmd:(selector "validatedSettings") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIUserNotificationSettingsClass.ml b/uikit/UIUserNotificationSettingsClass.ml new file mode 100644 index 00000000..feeda286 --- /dev/null +++ b/uikit/UIUserNotificationSettingsClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiusernotificationsettings?language=objc}UIUserNotificationSettings} *) + +let settingsForRegisteredSettings x ~requestedSettings self = msg_send ~self ~cmd:(selector "settingsForRegisteredSettings:requestedSettings:") ~typ:(id @-> id @-> returning id) x requestedSettings +let settingsForTypes x ~categories self = msg_send ~self ~cmd:(selector "settingsForTypes:categories:") ~typ:(ullong @-> id @-> returning id) (ULLong.of_int x) categories +let settingsForUserNotificationTypes x ~userNotificationActionSettings self = msg_send ~self ~cmd:(selector "settingsForUserNotificationTypes:userNotificationActionSettings:") ~typ:(ullong @-> id @-> returning id) (ULLong.of_int x) userNotificationActionSettings +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIVariableDelayLoupeGesture.ml b/uikit/UIVariableDelayLoupeGesture.ml index 6dfc13ff..33252dc9 100644 --- a/uikit/UIVariableDelayLoupeGesture.ml +++ b/uikit/UIVariableDelayLoupeGesture.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIVariableDelayLoupeGesture" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uivariabledelayloupegesture?language=objc}UIVariableDelayLoupeGesture} *) -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let isCloseToCaret self = msg_send ~self ~cmd:(selector "isCloseToCaret") ~typ:(returning (bool)) -let isLongPress self = msg_send ~self ~cmd:(selector "isLongPress") ~typ:(returning (bool)) -let isWithinRecentTap self = msg_send ~self ~cmd:(selector "isWithinRecentTap") ~typ:(returning (bool)) -let setTextView x self = msg_send ~self ~cmd:(selector "setTextView:") ~typ:(id @-> returning (void)) x -let shouldUseLegacyBehavior self = msg_send ~self ~cmd:(selector "shouldUseLegacyBehavior") ~typ:(returning (bool)) -let startTimer self = msg_send ~self ~cmd:(selector "startTimer") ~typ:(returning (void)) -let textView self = msg_send ~self ~cmd:(selector "textView") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIVariableDelayLoupeGesture" + +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let isCloseToCaret self = msg_send ~self ~cmd:(selector "isCloseToCaret") ~typ:(returning bool) +let isLongPress self = msg_send ~self ~cmd:(selector "isLongPress") ~typ:(returning bool) +let isWithinRecentTap self = msg_send ~self ~cmd:(selector "isWithinRecentTap") ~typ:(returning bool) +let setTextView x self = msg_send ~self ~cmd:(selector "setTextView:") ~typ:(id @-> returning void) x +let shouldUseLegacyBehavior self = msg_send ~self ~cmd:(selector "shouldUseLegacyBehavior") ~typ:(returning bool) +let startTimer self = msg_send ~self ~cmd:(selector "startTimer") ~typ:(returning void) +let textView self = msg_send ~self ~cmd:(selector "textView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIVectorLabel.ml b/uikit/UIVectorLabel.ml index 1ab89533..980d74a5 100644 --- a/uikit/UIVectorLabel.ml +++ b/uikit/UIVectorLabel.ml @@ -5,27 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIVectorLabel" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uivectorlabel?language=objc}UIVectorLabel} *) -module C = struct - let layerClass self = msg_send ~self ~cmd:(selector "layerClass") ~typ:(returning (_Class)) -end +let self = get_class "UIVectorLabel" -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let numberOfLines self = msg_send ~self ~cmd:(selector "numberOfLines") ~typ:(returning (ullong)) -let preferredMaxLayoutWidth self = msg_send ~self ~cmd:(selector "preferredMaxLayoutWidth") ~typ:(returning (double)) -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setNumberOfLines x self = msg_send ~self ~cmd:(selector "setNumberOfLines:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setPreferredMaxLayoutWidth x self = msg_send ~self ~cmd:(selector "setPreferredMaxLayoutWidth:") ~typ:(double @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning (id)) -let textRectForBounds x ~limitedToNumberOfLines self = msg_send_stret ~self ~cmd:(selector "textRectForBounds:limitedToNumberOfLines:") ~typ:(CGRect.t @-> llong @-> returning (CGRect.t)) ~return_type:CGRect.t x (LLong.of_int limitedToNumberOfLines) \ No newline at end of file +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let numberOfLines self = msg_send ~self ~cmd:(selector "numberOfLines") ~typ:(returning ullong) +let preferredMaxLayoutWidth self = msg_send ~self ~cmd:(selector "preferredMaxLayoutWidth") ~typ:(returning double) +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setNumberOfLines x self = msg_send ~self ~cmd:(selector "setNumberOfLines:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setPreferredMaxLayoutWidth x self = msg_send ~self ~cmd:(selector "setPreferredMaxLayoutWidth:") ~typ:(double @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning id) +let textRectForBounds x ~limitedToNumberOfLines self = msg_send ~self ~cmd:(selector "textRectForBounds:limitedToNumberOfLines:") ~typ:(CGRect.t @-> llong @-> returning CGRect.t) x (LLong.of_int limitedToNumberOfLines) \ No newline at end of file diff --git a/uikit/UIVectorLabelClass.ml b/uikit/UIVectorLabelClass.ml new file mode 100644 index 00000000..cc46f559 --- /dev/null +++ b/uikit/UIVectorLabelClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uivectorlabel?language=objc}UIVectorLabel} *) + +let layerClass self = msg_send ~self ~cmd:(selector "layerClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit/UIVibrancyEffect.ml b/uikit/UIVibrancyEffect.ml index 5a20a72a..ace96987 100644 --- a/uikit/UIVibrancyEffect.ml +++ b/uikit/UIVibrancyEffect.ml @@ -5,29 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIVibrancyEffect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uivibrancyeffect?language=objc}UIVibrancyEffect} *) -module C = struct - let darkVibrantEffectWithDodgeColor x ~lightenColor ~compositingColor self = msg_send ~self ~cmd:(selector "darkVibrantEffectWithDodgeColor:lightenColor:compositingColor:") ~typ:(id @-> id @-> id @-> returning (id)) x lightenColor compositingColor - let effectForBlurEffect x self = msg_send ~self ~cmd:(selector "effectForBlurEffect:") ~typ:(id @-> returning (id)) x - let effectForBlurEffect' x ~style self = msg_send ~self ~cmd:(selector "effectForBlurEffect:style:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int style) - let lightVibrantEffectWithBurnColor x ~darkenColor ~compositingColor self = msg_send ~self ~cmd:(selector "lightVibrantEffectWithBurnColor:darkenColor:compositingColor:") ~typ:(id @-> id @-> id @-> returning (id)) x darkenColor compositingColor - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) - let vibrantChromeShadowEffect self = msg_send ~self ~cmd:(selector "vibrantChromeShadowEffect") ~typ:(returning (id)) - let vibrantEffectWithCompositingMode x ~compositingColor self = msg_send ~self ~cmd:(selector "vibrantEffectWithCompositingMode:compositingColor:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) compositingColor - let vibrantHeavyShadowEffect self = msg_send ~self ~cmd:(selector "vibrantHeavyShadowEffect") ~typ:(returning (id)) - let vibrantMediumShadowEffect self = msg_send ~self ~cmd:(selector "vibrantMediumShadowEffect") ~typ:(returning (id)) -end +let self = get_class "UIVibrancyEffect" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let effectConfig self = msg_send ~self ~cmd:(selector "effectConfig") ~typ:(returning (id)) -let effectConfigForQuality x self = msg_send ~self ~cmd:(selector "effectConfigForQuality:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let effectConfigForReducedTransperancy x self = msg_send ~self ~cmd:(selector "effectConfigForReducedTransperancy:") ~typ:(bool @-> returning (id)) x -let effectForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "effectForUserInterfaceStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let effectConfig self = msg_send ~self ~cmd:(selector "effectConfig") ~typ:(returning id) +let effectConfigForQuality x self = msg_send ~self ~cmd:(selector "effectConfigForQuality:") ~typ:(llong @-> returning id) (LLong.of_int x) +let effectConfigForReducedTransperancy x self = msg_send ~self ~cmd:(selector "effectConfigForReducedTransperancy:") ~typ:(bool @-> returning id) x +let effectForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "effectForUserInterfaceStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIVibrancyEffectClass.ml b/uikit/UIVibrancyEffectClass.ml new file mode 100644 index 00000000..d2168a1e --- /dev/null +++ b/uikit/UIVibrancyEffectClass.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uivibrancyeffect?language=objc}UIVibrancyEffect} *) + +let darkVibrantEffectWithDodgeColor x ~lightenColor ~compositingColor self = msg_send ~self ~cmd:(selector "darkVibrantEffectWithDodgeColor:lightenColor:compositingColor:") ~typ:(id @-> id @-> id @-> returning id) x lightenColor compositingColor +let effectForBlurEffect x self = msg_send ~self ~cmd:(selector "effectForBlurEffect:") ~typ:(id @-> returning id) x +let effectForBlurEffect' x ~style self = msg_send ~self ~cmd:(selector "effectForBlurEffect:style:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int style) +let lightVibrantEffectWithBurnColor x ~darkenColor ~compositingColor self = msg_send ~self ~cmd:(selector "lightVibrantEffectWithBurnColor:darkenColor:compositingColor:") ~typ:(id @-> id @-> id @-> returning id) x darkenColor compositingColor +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) +let vibrantChromeShadowEffect self = msg_send ~self ~cmd:(selector "vibrantChromeShadowEffect") ~typ:(returning id) +let vibrantEffectWithCompositingMode x ~compositingColor self = msg_send ~self ~cmd:(selector "vibrantEffectWithCompositingMode:compositingColor:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) compositingColor +let vibrantHeavyShadowEffect self = msg_send ~self ~cmd:(selector "vibrantHeavyShadowEffect") ~typ:(returning id) +let vibrantMediumShadowEffect self = msg_send ~self ~cmd:(selector "vibrantMediumShadowEffect") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIVideoEditorController.ml b/uikit/UIVideoEditorController.ml index 4e906f01..d8bde1e4 100644 --- a/uikit/UIVideoEditorController.ml +++ b/uikit/UIVideoEditorController.ml @@ -5,24 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIVideoEditorController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uivideoeditorcontroller?language=objc}UIVideoEditorController} *) -module C = struct - let canEditVideoAtPath x self = msg_send ~self ~cmd:(selector "canEditVideoAtPath:") ~typ:(id @-> returning (bool)) x -end +let self = get_class "UIVideoEditorController" -let editVideoViewController x ~didFailWithError self = msg_send ~self ~cmd:(selector "editVideoViewController:didFailWithError:") ~typ:(id @-> id @-> returning (void)) x didFailWithError -let editVideoViewController' x ~didTrimVideoWithOptions self = msg_send ~self ~cmd:(selector "editVideoViewController:didTrimVideoWithOptions:") ~typ:(id @-> id @-> returning (void)) x didTrimVideoWithOptions -let editVideoViewControllerDidCancel x self = msg_send ~self ~cmd:(selector "editVideoViewControllerDidCancel:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let setVideoMaximumDuration x self = msg_send ~self ~cmd:(selector "setVideoMaximumDuration:") ~typ:(double @-> returning (void)) x -let setVideoPath x self = msg_send ~self ~cmd:(selector "setVideoPath:") ~typ:(id @-> returning (void)) x -let setVideoQuality x self = msg_send ~self ~cmd:(selector "setVideoQuality:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let videoMaximumDuration self = msg_send ~self ~cmd:(selector "videoMaximumDuration") ~typ:(returning (double)) -let videoPath self = msg_send ~self ~cmd:(selector "videoPath") ~typ:(returning (id)) -let videoQuality self = msg_send ~self ~cmd:(selector "videoQuality") ~typ:(returning (llong)) -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillUnload self = msg_send ~self ~cmd:(selector "viewWillUnload") ~typ:(returning (void)) \ No newline at end of file +let editVideoViewController x ~didFailWithError self = msg_send ~self ~cmd:(selector "editVideoViewController:didFailWithError:") ~typ:(id @-> id @-> returning void) x didFailWithError +let editVideoViewController' x ~didTrimVideoWithOptions self = msg_send ~self ~cmd:(selector "editVideoViewController:didTrimVideoWithOptions:") ~typ:(id @-> id @-> returning void) x didTrimVideoWithOptions +let editVideoViewControllerDidCancel x self = msg_send ~self ~cmd:(selector "editVideoViewControllerDidCancel:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let setVideoMaximumDuration x self = msg_send ~self ~cmd:(selector "setVideoMaximumDuration:") ~typ:(double @-> returning void) x +let setVideoPath x self = msg_send ~self ~cmd:(selector "setVideoPath:") ~typ:(id @-> returning void) x +let setVideoQuality x self = msg_send ~self ~cmd:(selector "setVideoQuality:") ~typ:(llong @-> returning void) (LLong.of_int x) +let videoMaximumDuration self = msg_send ~self ~cmd:(selector "videoMaximumDuration") ~typ:(returning double) +let videoPath self = msg_send ~self ~cmd:(selector "videoPath") ~typ:(returning id) +let videoQuality self = msg_send ~self ~cmd:(selector "videoQuality") ~typ:(returning llong) +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let viewWillUnload self = msg_send ~self ~cmd:(selector "viewWillUnload") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIVideoEditorControllerClass.ml b/uikit/UIVideoEditorControllerClass.ml new file mode 100644 index 00000000..63854507 --- /dev/null +++ b/uikit/UIVideoEditorControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uivideoeditorcontroller?language=objc}UIVideoEditorController} *) + +let canEditVideoAtPath x self = msg_send ~self ~cmd:(selector "canEditVideoAtPath:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIView.ml b/uikit/UIView.ml index 390692f3..efa4dfae 100644 --- a/uikit/UIView.ml +++ b/uikit/UIView.ml @@ -5,440 +5,396 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiview?language=objc}UIView} *) -module C = struct - let addKeyframeWithRelativeStartTime x ~relativeDuration ~animations self = msg_send ~self ~cmd:(selector "addKeyframeWithRelativeStartTime:relativeDuration:animations:") ~typ:(double @-> double @-> ptr void @-> returning (void)) x relativeDuration animations - let animateKeyframesWithDuration x ~delay ~options ~animations ~completion self = msg_send ~self ~cmd:(selector "animateKeyframesWithDuration:delay:options:animations:completion:") ~typ:(double @-> double @-> ullong @-> ptr void @-> ptr void @-> returning (void)) x delay (ULLong.of_int options) animations completion - let animateWithDuration x ~animations self = msg_send ~self ~cmd:(selector "animateWithDuration:animations:") ~typ:(double @-> ptr void @-> returning (void)) x animations - let animateWithDuration1 x ~animations ~completion self = msg_send ~self ~cmd:(selector "animateWithDuration:animations:completion:") ~typ:(double @-> ptr void @-> ptr void @-> returning (void)) x animations completion - let animateWithDuration2 x ~delay ~options ~animations ~completion self = msg_send ~self ~cmd:(selector "animateWithDuration:delay:options:animations:completion:") ~typ:(double @-> double @-> ullong @-> ptr void @-> ptr void @-> returning (void)) x delay (ULLong.of_int options) animations completion - let animateWithDuration3 x ~delay ~usingSpringWithDamping ~initialSpringVelocity ~options ~animations ~completion self = msg_send ~self ~cmd:(selector "animateWithDuration:delay:usingSpringWithDamping:initialSpringVelocity:options:animations:completion:") ~typ:(double @-> double @-> double @-> double @-> ullong @-> ptr void @-> ptr void @-> returning (void)) x delay usingSpringWithDamping initialSpringVelocity (ULLong.of_int options) animations completion - let appearance self = msg_send ~self ~cmd:(selector "appearance") ~typ:(returning (id)) - let appearanceForTraitCollection x self = msg_send ~self ~cmd:(selector "appearanceForTraitCollection:") ~typ:(id @-> returning (id)) x - let appearanceForTraitCollection1 x ~whenContainedIn self = msg_send ~self ~cmd:(selector "appearanceForTraitCollection:whenContainedIn:") ~typ:(id @-> _Class @-> returning (id)) x whenContainedIn - let appearanceForTraitCollection2 x ~whenContainedInInstancesOfClasses self = msg_send ~self ~cmd:(selector "appearanceForTraitCollection:whenContainedInInstancesOfClasses:") ~typ:(id @-> id @-> returning (id)) x whenContainedInInstancesOfClasses - let appearanceMatchingProperties x ~whenContainedInInstancesOfClasses self = msg_send ~self ~cmd:(selector "appearanceMatchingProperties:whenContainedInInstancesOfClasses:") ~typ:(id @-> id @-> returning (id)) x whenContainedInInstancesOfClasses - let appearanceWhenContainedIn x self = msg_send ~self ~cmd:(selector "appearanceWhenContainedIn:") ~typ:(_Class @-> returning (id)) x - let appearanceWhenContainedInInstancesOfClasses x self = msg_send ~self ~cmd:(selector "appearanceWhenContainedInInstancesOfClasses:") ~typ:(id @-> returning (id)) x - let areAnimationsEnabled self = msg_send ~self ~cmd:(selector "areAnimationsEnabled") ~typ:(returning (bool)) - let beginAnimations x self = msg_send ~self ~cmd:(selector "beginAnimations:") ~typ:(id @-> returning (void)) x - let beginAnimations' x ~context self = msg_send ~self ~cmd:(selector "beginAnimations:context:") ~typ:(id @-> ptr (void) @-> returning (void)) x context - let commitAnimations self = msg_send ~self ~cmd:(selector "commitAnimations") ~typ:(returning (void)) - let conditionallyAnimate x ~withAnimation ~layout ~completion self = msg_send ~self ~cmd:(selector "conditionallyAnimate:withAnimation:layout:completion:") ~typ:(bool @-> ptr void @-> ptr void @-> ptr void @-> returning (void)) x withAnimation layout completion - let disableAnimation self = msg_send ~self ~cmd:(selector "disableAnimation") ~typ:(returning (void)) - let enableAnimation self = msg_send ~self ~cmd:(selector "enableAnimation") ~typ:(returning (void)) - let endAnimations self = msg_send ~self ~cmd:(selector "endAnimations") ~typ:(returning (void)) - let flush self = msg_send ~self ~cmd:(selector "flush") ~typ:(returning (void)) - let inheritedAnimationDuration self = msg_send ~self ~cmd:(selector "inheritedAnimationDuration") ~typ:(returning (double)) - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let layerClass self = msg_send ~self ~cmd:(selector "layerClass") ~typ:(returning (_Class)) - let mapTrackedAnimations x ~withBlock self = msg_send ~self ~cmd:(selector "mapTrackedAnimations:withBlock:") ~typ:(id @-> ptr void @-> returning (void)) x withBlock - let modifyAnimationsWithRepeatCount x ~autoreverses ~animations self = msg_send ~self ~cmd:(selector "modifyAnimationsWithRepeatCount:autoreverses:animations:") ~typ:(double @-> bool @-> ptr void @-> returning (void)) x autoreverses animations - let modifyTrackedAnimations x ~removeOnCompletion ~animationFactory ~block self = msg_send ~self ~cmd:(selector "modifyTrackedAnimations:removeOnCompletion:animationFactory:block:") ~typ:(id @-> bool @-> ptr void @-> ptr void @-> returning (void)) x removeOnCompletion animationFactory block - let modifyTrackedAnimations' x ~removeOnCompletion ~copyAnimation ~block self = msg_send ~self ~cmd:(selector "modifyTrackedAnimations:removeOnCompletion:copyAnimation:block:") ~typ:(id @-> bool @-> bool @-> ptr void @-> returning (void)) x removeOnCompletion copyAnimation block - let performSystemAnimation x ~onViews ~options ~animations ~completion self = msg_send ~self ~cmd:(selector "performSystemAnimation:onViews:options:animations:completion:") ~typ:(ullong @-> id @-> ullong @-> ptr void @-> ptr void @-> returning (void)) (ULLong.of_int x) onViews (ULLong.of_int options) animations completion - let performWithoutAnimation x self = msg_send ~self ~cmd:(selector "performWithoutAnimation:") ~typ:(ptr void @-> returning (void)) x - let requiresConstraintBasedLayout self = msg_send ~self ~cmd:(selector "requiresConstraintBasedLayout") ~typ:(returning (bool)) - let setAnimationAutoreverses x self = msg_send ~self ~cmd:(selector "setAnimationAutoreverses:") ~typ:(bool @-> returning (void)) x - let setAnimationBeginsFromCurrentState x self = msg_send ~self ~cmd:(selector "setAnimationBeginsFromCurrentState:") ~typ:(bool @-> returning (void)) x - let setAnimationCurve x self = msg_send ~self ~cmd:(selector "setAnimationCurve:") ~typ:(llong @-> returning (void)) (LLong.of_int x) - let setAnimationDelay x self = msg_send ~self ~cmd:(selector "setAnimationDelay:") ~typ:(double @-> returning (void)) x - let setAnimationDelegate x self = msg_send ~self ~cmd:(selector "setAnimationDelegate:") ~typ:(id @-> returning (void)) x - let setAnimationDidStopSelector x self = msg_send ~self ~cmd:(selector "setAnimationDidStopSelector:") ~typ:(_SEL @-> returning (void)) x - let setAnimationDuration x self = msg_send ~self ~cmd:(selector "setAnimationDuration:") ~typ:(double @-> returning (void)) x - let setAnimationFrameInterval x self = msg_send ~self ~cmd:(selector "setAnimationFrameInterval:") ~typ:(double @-> returning (void)) x - let setAnimationFromCurrentState x self = msg_send ~self ~cmd:(selector "setAnimationFromCurrentState:") ~typ:(bool @-> returning (void)) x - let setAnimationPosition x self = msg_send ~self ~cmd:(selector "setAnimationPosition:") ~typ:(CGPoint.t @-> returning (void)) x - let setAnimationPreventsAdditive x self = msg_send ~self ~cmd:(selector "setAnimationPreventsAdditive:") ~typ:(bool @-> returning (void)) x - let setAnimationRepeatAutoreverses x self = msg_send ~self ~cmd:(selector "setAnimationRepeatAutoreverses:") ~typ:(bool @-> returning (void)) x - let setAnimationRepeatCount x self = msg_send ~self ~cmd:(selector "setAnimationRepeatCount:") ~typ:(float @-> returning (void)) x - let setAnimationStartDate x self = msg_send ~self ~cmd:(selector "setAnimationStartDate:") ~typ:(id @-> returning (void)) x - let setAnimationStartTime x self = msg_send ~self ~cmd:(selector "setAnimationStartTime:") ~typ:(double @-> returning (void)) x - let setAnimationTransition x ~forView self = msg_send ~self ~cmd:(selector "setAnimationTransition:forView:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) forView - let setAnimationTransition' x ~forView ~cache self = msg_send ~self ~cmd:(selector "setAnimationTransition:forView:cache:") ~typ:(llong @-> id @-> bool @-> returning (void)) (LLong.of_int x) forView cache - let setAnimationWillStartSelector x self = msg_send ~self ~cmd:(selector "setAnimationWillStartSelector:") ~typ:(_SEL @-> returning (void)) x - let setAnimationsEnabled x self = msg_send ~self ~cmd:(selector "setAnimationsEnabled:") ~typ:(bool @-> returning (void)) x - let throttledFlush self = msg_send ~self ~cmd:(selector "throttledFlush") ~typ:(returning (void)) - let transitionFromView x ~toView ~duration ~options ~completion self = msg_send ~self ~cmd:(selector "transitionFromView:toView:duration:options:completion:") ~typ:(id @-> id @-> double @-> ullong @-> ptr void @-> returning (void)) x toView duration (ULLong.of_int options) completion - let transitionWithView x ~duration ~options ~animations ~completion self = msg_send ~self ~cmd:(selector "transitionWithView:duration:options:animations:completion:") ~typ:(id @-> double @-> ullong @-> ptr void @-> ptr void @-> returning (void)) x duration (ULLong.of_int options) animations completion - let userInterfaceLayoutDirectionForSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "userInterfaceLayoutDirectionForSemanticContentAttribute:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) - let userInterfaceLayoutDirectionForSemanticContentAttribute' x ~relativeToLayoutDirection self = msg_send ~self ~cmd:(selector "userInterfaceLayoutDirectionForSemanticContentAttribute:relativeToLayoutDirection:") ~typ:(llong @-> llong @-> returning (llong)) (LLong.of_int x) (LLong.of_int relativeToLayoutDirection) -end +let self = get_class "UIView" -let _PDFKitEnclosingScrollView self = msg_send ~self ~cmd:(selector "PDFKitEnclosingScrollView") ~typ:(returning (id)) -let abSetLayoutDebuggingColor x self = msg_send ~self ~cmd:(selector "abSetLayoutDebuggingColor:") ~typ:(id @-> returning (void)) x -let accessibilityApplyInvertFilter self = msg_send ~self ~cmd:(selector "accessibilityApplyInvertFilter") ~typ:(returning (void)) -let accessibilityIgnoresInvertColors self = msg_send ~self ~cmd:(selector "accessibilityIgnoresInvertColors") ~typ:(returning (bool)) -let accessibilityInvertFilterApplied self = msg_send ~self ~cmd:(selector "accessibilityInvertFilterApplied") ~typ:(returning (bool)) -let accessibilityUnapplyInvertFilter self = msg_send ~self ~cmd:(selector "accessibilityUnapplyInvertFilter") ~typ:(returning (void)) -let actionForLayer x ~forKey self = msg_send ~self ~cmd:(selector "actionForLayer:forKey:") ~typ:(id @-> id @-> returning (id)) x forKey -let addAnimation x ~forKey self = msg_send ~self ~cmd:(selector "addAnimation:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let addConstraint x self = msg_send ~self ~cmd:(selector "addConstraint:") ~typ:(id @-> returning (void)) x -let addConstraints x self = msg_send ~self ~cmd:(selector "addConstraints:") ~typ:(id @-> returning (void)) x -let addGestureRecognizer x self = msg_send ~self ~cmd:(selector "addGestureRecognizer:") ~typ:(id @-> returning (void)) x -let addInteraction x self = msg_send ~self ~cmd:(selector "addInteraction:") ~typ:(id @-> returning (void)) x -let addLayoutGuide x self = msg_send ~self ~cmd:(selector "addLayoutGuide:") ~typ:(id @-> returning (void)) x -let addMotionEffect x self = msg_send ~self ~cmd:(selector "addMotionEffect:") ~typ:(id @-> returning (void)) x -let addSubview x self = msg_send ~self ~cmd:(selector "addSubview:") ~typ:(id @-> returning (void)) x -let akEnclosingScrollView self = msg_send ~self ~cmd:(selector "akEnclosingScrollView") ~typ:(returning (id)) -let akVisibleRect self = msg_send_stret ~self ~cmd:(selector "akVisibleRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let alignmentRectForFrame x self = msg_send_stret ~self ~cmd:(selector "alignmentRectForFrame:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let allowsGroupBlending self = msg_send ~self ~cmd:(selector "allowsGroupBlending") ~typ:(returning (bool)) -let allowsGroupOpacity self = msg_send ~self ~cmd:(selector "allowsGroupOpacity") ~typ:(returning (bool)) -let alpha self = msg_send ~self ~cmd:(selector "alpha") ~typ:(returning (double)) -let animationInfoCreateIfNecessary x self = msg_send ~self ~cmd:(selector "animationInfoCreateIfNecessary:") ~typ:(bool @-> returning (id)) x -let appliedContentSizeCategoryLimitsDescription self = msg_send ~self ~cmd:(selector "appliedContentSizeCategoryLimitsDescription") ~typ:(returning (id)) -let areChildrenFocused self = msg_send ~self ~cmd:(selector "areChildrenFocused") ~typ:(returning (bool)) -let artworkCatalog self = msg_send ~self ~cmd:(selector "artworkCatalog") ~typ:(returning (id)) -let autorelease self = msg_send ~self ~cmd:(selector "autorelease") ~typ:(returning (id)) -let autoresizesSubviews self = msg_send ~self ~cmd:(selector "autoresizesSubviews") ~typ:(returning (bool)) -let autoresizingMask self = msg_send ~self ~cmd:(selector "autoresizingMask") ~typ:(returning (ullong)) -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let bottomAnchor self = msg_send ~self ~cmd:(selector "bottomAnchor") ~typ:(returning (id)) -let bounds self = msg_send_stret ~self ~cmd:(selector "bounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let bringSubviewToFront x self = msg_send ~self ~cmd:(selector "bringSubviewToFront:") ~typ:(id @-> returning (void)) x -let calculateLayoutSizeFittingSize x self = msg_send_stret ~self ~cmd:(selector "calculateLayoutSizeFittingSize:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let canUseFastLayoutSizeCalulation self = msg_send ~self ~cmd:(selector "canUseFastLayoutSizeCalulation") ~typ:(returning (bool)) -let cancelMouseTracking self = msg_send ~self ~cmd:(selector "cancelMouseTracking") ~typ:(returning (bool)) -let cancelTouchTracking self = msg_send ~self ~cmd:(selector "cancelTouchTracking") ~typ:(returning (bool)) -let center self = msg_send_stret ~self ~cmd:(selector "center") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let centerXAnchor self = msg_send ~self ~cmd:(selector "centerXAnchor") ~typ:(returning (id)) -let centerYAnchor self = msg_send ~self ~cmd:(selector "centerYAnchor") ~typ:(returning (id)) -let charge self = msg_send ~self ~cmd:(selector "charge") ~typ:(returning (float)) -let clearArtworkCatalogs self = msg_send ~self ~cmd:(selector "clearArtworkCatalogs") ~typ:(returning (void)) -let clearsContextBeforeDrawing self = msg_send ~self ~cmd:(selector "clearsContextBeforeDrawing") ~typ:(returning (bool)) -let clipsToBounds self = msg_send ~self ~cmd:(selector "clipsToBounds") ~typ:(returning (bool)) -let compareTextEffectsOrdering x self = msg_send ~self ~cmd:(selector "compareTextEffectsOrdering:") ~typ:(id @-> returning (llong)) x -let compositingMode self = msg_send ~self ~cmd:(selector "compositingMode") ~typ:(returning (llong)) -let constraints self = msg_send ~self ~cmd:(selector "constraints") ~typ:(returning (id)) -let constraintsAffectingLayoutForAxis x self = msg_send ~self ~cmd:(selector "constraintsAffectingLayoutForAxis:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let constraintsAffectingLayoutForAxis' x ~ofItem self = msg_send ~self ~cmd:(selector "constraintsAffectingLayoutForAxis:ofItem:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) ofItem -let constraintsDidChangeInEngine x self = msg_send ~self ~cmd:(selector "constraintsDidChangeInEngine:") ~typ:(id @-> returning (void)) x -let containsView x self = msg_send ~self ~cmd:(selector "containsView:") ~typ:(id @-> returning (bool)) x -let contentCompressionResistancePriorityForAxis x self = msg_send ~self ~cmd:(selector "contentCompressionResistancePriorityForAxis:") ~typ:(llong @-> returning (float)) (LLong.of_int x) -let contentHuggingPriorityForAxis x self = msg_send ~self ~cmd:(selector "contentHuggingPriorityForAxis:") ~typ:(llong @-> returning (float)) (LLong.of_int x) -let contentLayoutSizeCacheDescription self = msg_send ~self ~cmd:(selector "contentLayoutSizeCacheDescription") ~typ:(returning (id)) -let contentMode self = msg_send ~self ~cmd:(selector "contentMode") ~typ:(returning (llong)) -let contentScaleFactor self = msg_send ~self ~cmd:(selector "contentScaleFactor") ~typ:(returning (double)) -let contentStretch self = msg_send_stret ~self ~cmd:(selector "contentStretch") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let convertPoint x ~fromCoordinateSpace self = msg_send_stret ~self ~cmd:(selector "convertPoint:fromCoordinateSpace:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x fromCoordinateSpace -let convertPoint1 x ~fromView self = msg_send_stret ~self ~cmd:(selector "convertPoint:fromView:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x fromView -let convertPoint2 x ~toCoordinateSpace self = msg_send_stret ~self ~cmd:(selector "convertPoint:toCoordinateSpace:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x toCoordinateSpace -let convertPoint3 x ~toView self = msg_send_stret ~self ~cmd:(selector "convertPoint:toView:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x toView -let convertRect x ~fromCoordinateSpace self = msg_send_stret ~self ~cmd:(selector "convertRect:fromCoordinateSpace:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x fromCoordinateSpace -let convertRect1 x ~fromView self = msg_send_stret ~self ~cmd:(selector "convertRect:fromView:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x fromView -let convertRect2 x ~toCoordinateSpace self = msg_send_stret ~self ~cmd:(selector "convertRect:toCoordinateSpace:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x toCoordinateSpace -let convertRect3 x ~toView self = msg_send_stret ~self ~cmd:(selector "convertRect:toView:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x toView -let convertSize x ~fromView self = msg_send_stret ~self ~cmd:(selector "convertSize:fromView:") ~typ:(CGSize.t @-> id @-> returning (CGSize.t)) ~return_type:CGSize.t x fromView -let convertSize' x ~toView self = msg_send_stret ~self ~cmd:(selector "convertSize:toView:") ~typ:(CGSize.t @-> id @-> returning (CGSize.t)) ~return_type:CGSize.t x toView -let coordinateSpace self = msg_send ~self ~cmd:(selector "coordinateSpace") ~typ:(returning (id)) -let customBaselineOffsetFromBottom self = msg_send ~self ~cmd:(selector "customBaselineOffsetFromBottom") ~typ:(returning (double)) -let customFirstBaselineOffsetFromTop self = msg_send ~self ~cmd:(selector "customFirstBaselineOffsetFromTop") ~typ:(returning (double)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let debugSizeCache self = msg_send ~self ~cmd:(selector "debugSizeCache") ~typ:(returning (id)) -let debugSizeCacheDict self = msg_send ~self ~cmd:(selector "debugSizeCacheDict") ~typ:(returning (id)) -let deferredBecomeFirstResponder self = msg_send ~self ~cmd:(selector "deferredBecomeFirstResponder") ~typ:(returning (void)) -let deliversButtonsForGesturesToSuperview self = msg_send ~self ~cmd:(selector "deliversButtonsForGesturesToSuperview") ~typ:(returning (bool)) -let deliversTouchesForGesturesToSuperview self = msg_send ~self ~cmd:(selector "deliversTouchesForGesturesToSuperview") ~typ:(returning (bool)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let didAddSubview x self = msg_send ~self ~cmd:(selector "didAddSubview:") ~typ:(id @-> returning (void)) x -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let drawLayer x ~inContext self = msg_send ~self ~cmd:(selector "drawLayer:inContext:") ~typ:(id @-> id @-> returning (void)) x inContext -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let drawRect' x ~forViewPrintFormatter self = msg_send ~self ~cmd:(selector "drawRect:forViewPrintFormatter:") ~typ:(CGRect.t @-> id @-> returning (void)) x forViewPrintFormatter -let drawViewHierarchyInRect x self = msg_send ~self ~cmd:(selector "drawViewHierarchyInRect:") ~typ:(CGRect.t @-> returning (bool)) x -let drawViewHierarchyInRect' x ~afterScreenUpdates self = msg_send ~self ~cmd:(selector "drawViewHierarchyInRect:afterScreenUpdates:") ~typ:(CGRect.t @-> bool @-> returning (bool)) x afterScreenUpdates -let edgesInsettingLayoutMarginsFromSafeArea self = msg_send ~self ~cmd:(selector "edgesInsettingLayoutMarginsFromSafeArea") ~typ:(returning (ullong)) -let edgesPreservingSuperviewLayoutMargins self = msg_send ~self ~cmd:(selector "edgesPreservingSuperviewLayoutMargins") ~typ:(returning (ullong)) -let effectiveBaselineOffsetFromBottom self = msg_send ~self ~cmd:(selector "effectiveBaselineOffsetFromBottom") ~typ:(returning (double)) -let effectiveBaselineOffsetFromContentBottom self = msg_send ~self ~cmd:(selector "effectiveBaselineOffsetFromContentBottom") ~typ:(returning (double)) -let effectiveFirstBaselineOffsetFromContentTop self = msg_send ~self ~cmd:(selector "effectiveFirstBaselineOffsetFromContentTop") ~typ:(returning (double)) -let effectiveFirstBaselineOffsetFromTop self = msg_send ~self ~cmd:(selector "effectiveFirstBaselineOffsetFromTop") ~typ:(returning (double)) -let effectiveLayoutSizeFittingSize x self = msg_send_stret ~self ~cmd:(selector "effectiveLayoutSizeFittingSize:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let effectiveScreenScale self = msg_send ~self ~cmd:(selector "effectiveScreenScale") ~typ:(returning (double)) -let effectiveUserInterfaceLayoutDirection self = msg_send ~self ~cmd:(selector "effectiveUserInterfaceLayoutDirection") ~typ:(returning (llong)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let endEditing x self = msg_send ~self ~cmd:(selector "endEditing:") ~typ:(bool @-> returning (bool)) x -let engine x ~markerForConstraintToBreakAmongConstraints self = msg_send ~self ~cmd:(selector "engine:markerForConstraintToBreakAmongConstraints:") ~typ:(id @-> id @-> returning (id)) x markerForConstraintToBreakAmongConstraints -let engine' x ~willBreakConstraint ~dueToMutuallyExclusiveConstraints self = msg_send ~self ~cmd:(selector "engine:willBreakConstraint:dueToMutuallyExclusiveConstraints:") ~typ:(id @-> id @-> id @-> returning (void)) x willBreakConstraint dueToMutuallyExclusiveConstraints -let exchangeSubviewAtIndex x ~withSubviewAtIndex self = msg_send ~self ~cmd:(selector "exchangeSubviewAtIndex:withSubviewAtIndex:") ~typ:(llong @-> llong @-> returning (void)) (LLong.of_int x) (LLong.of_int withSubviewAtIndex) -let exerciseAmbiguityInLayout self = msg_send ~self ~cmd:(selector "exerciseAmbiguityInLayout") ~typ:(returning (void)) -let extent self = msg_send_stret ~self ~cmd:(selector "extent") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let fakeScribbleInteractionDelegate self = msg_send ~self ~cmd:(selector "fakeScribbleInteractionDelegate") ~typ:(returning (id)) -let findFirstResponder self = msg_send ~self ~cmd:(selector "findFirstResponder") ~typ:(returning (id)) -let firstBaselineAnchor self = msg_send ~self ~cmd:(selector "firstBaselineAnchor") ~typ:(returning (id)) -let focusEffect self = msg_send ~self ~cmd:(selector "focusEffect") ~typ:(returning (id)) -let focusGroupIdentifier self = msg_send ~self ~cmd:(selector "focusGroupIdentifier") ~typ:(returning (id)) -let focusGroupPriority self = msg_send ~self ~cmd:(selector "focusGroupPriority") ~typ:(returning (llong)) -let focusGuides self = msg_send ~self ~cmd:(selector "focusGuides") ~typ:(returning (id)) -let focusItemContainer self = msg_send ~self ~cmd:(selector "focusItemContainer") ~typ:(returning (id)) -let focusItemsInRect x self = msg_send ~self ~cmd:(selector "focusItemsInRect:") ~typ:(CGRect.t @-> returning (id)) x -let focusedViewDidChange self = msg_send ~self ~cmd:(selector "focusedViewDidChange") ~typ:(returning (void)) -let forceDisplayIfNeeded self = msg_send ~self ~cmd:(selector "forceDisplayIfNeeded") ~typ:(returning (void)) -let frame self = msg_send_stret ~self ~cmd:(selector "frame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let frameForAlignmentRect x self = msg_send_stret ~self ~cmd:(selector "frameForAlignmentRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let frameOrigin self = msg_send_stret ~self ~cmd:(selector "frameOrigin") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let gestureParent self = msg_send ~self ~cmd:(selector "gestureParent") ~typ:(returning (id)) -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let gestureRecognizers self = msg_send ~self ~cmd:(selector "gestureRecognizers") ~typ:(returning (id)) -let hasAmbiguousLayout self = msg_send ~self ~cmd:(selector "hasAmbiguousLayout") ~typ:(returning (bool)) -let heightAnchor self = msg_send ~self ~cmd:(selector "heightAnchor") ~typ:(returning (id)) -let hitRect self = msg_send_stret ~self ~cmd:(selector "hitRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (id)) x forEvent -let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let infoCardThemeChanged self = msg_send ~self ~cmd:(selector "infoCardThemeChanged") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithSize x self = msg_send ~self ~cmd:(selector "initWithSize:") ~typ:(CGSize.t @-> returning (id)) x -let inputResponderController self = msg_send ~self ~cmd:(selector "inputResponderController") ~typ:(returning (id)) -let insertSubview x ~above self = msg_send ~self ~cmd:(selector "insertSubview:above:") ~typ:(id @-> id @-> returning (void)) x above -let insertSubview1 x ~aboveSubview self = msg_send ~self ~cmd:(selector "insertSubview:aboveSubview:") ~typ:(id @-> id @-> returning (void)) x aboveSubview -let insertSubview2 x ~atIndex self = msg_send ~self ~cmd:(selector "insertSubview:atIndex:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int atIndex) -let insertSubview3 x ~below self = msg_send ~self ~cmd:(selector "insertSubview:below:") ~typ:(id @-> id @-> returning (void)) x below -let insertSubview4 x ~belowSubview self = msg_send ~self ~cmd:(selector "insertSubview:belowSubview:") ~typ:(id @-> id @-> returning (void)) x belowSubview -let insetsLayoutMarginsFromSafeArea self = msg_send ~self ~cmd:(selector "insetsLayoutMarginsFromSafeArea") ~typ:(returning (bool)) -let interactionTintColor self = msg_send ~self ~cmd:(selector "interactionTintColor") ~typ:(returning (id)) -let interactionTintColorDidChange self = msg_send ~self ~cmd:(selector "interactionTintColorDidChange") ~typ:(returning (void)) -let interactions self = msg_send ~self ~cmd:(selector "interactions") ~typ:(returning (id)) -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let invalidateIntrinsicContentSize self = msg_send ~self ~cmd:(selector "invalidateIntrinsicContentSize") ~typ:(returning (void)) -let invalidatingIntrinsicContentSizeAlsoInvalidatesSuperview self = msg_send ~self ~cmd:(selector "invalidatingIntrinsicContentSizeAlsoInvalidatesSuperview") ~typ:(returning (bool)) -let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning (bool)) -let isDescendantOfView x self = msg_send ~self ~cmd:(selector "isDescendantOfView:") ~typ:(id @-> returning (bool)) x -let isDrawingFindIndicator self = msg_send ~self ~cmd:(selector "isDrawingFindIndicator") ~typ:(returning (bool)) -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let isExclusiveTouch self = msg_send ~self ~cmd:(selector "isExclusiveTouch") ~typ:(returning (bool)) -let isFocused self = msg_send ~self ~cmd:(selector "isFocused") ~typ:(returning (bool)) -let isHidden self = msg_send ~self ~cmd:(selector "isHidden") ~typ:(returning (bool)) -let isHiddenOrHasHiddenAncestor self = msg_send ~self ~cmd:(selector "isHiddenOrHasHiddenAncestor") ~typ:(returning (bool)) -let isLayoutSizeDependentOnPerpendicularAxis self = msg_send ~self ~cmd:(selector "isLayoutSizeDependentOnPerpendicularAxis") ~typ:(returning (bool)) -let isMultipleTouchEnabled self = msg_send ~self ~cmd:(selector "isMultipleTouchEnabled") ~typ:(returning (bool)) -let isOpaque self = msg_send ~self ~cmd:(selector "isOpaque") ~typ:(returning (bool)) -let isTransparentFocusItem self = msg_send ~self ~cmd:(selector "isTransparentFocusItem") ~typ:(returning (bool)) -let isUserInteractionEnabled self = msg_send ~self ~cmd:(selector "isUserInteractionEnabled") ~typ:(returning (bool)) -let keyboardLayoutGuide self = msg_send ~self ~cmd:(selector "keyboardLayoutGuide") ~typ:(returning (id)) -let keyboardSceneDelegate self = msg_send ~self ~cmd:(selector "keyboardSceneDelegate") ~typ:(returning (id)) -let largeContentImage self = msg_send ~self ~cmd:(selector "largeContentImage") ~typ:(returning (id)) -let largeContentTitle self = msg_send ~self ~cmd:(selector "largeContentTitle") ~typ:(returning (id)) -let lastBaselineAnchor self = msg_send ~self ~cmd:(selector "lastBaselineAnchor") ~typ:(returning (id)) -let layer self = msg_send ~self ~cmd:(selector "layer") ~typ:(returning (id)) -let layerWillDraw x self = msg_send ~self ~cmd:(selector "layerWillDraw:") ~typ:(id @-> returning (void)) x -let layoutBelowIfNeeded self = msg_send ~self ~cmd:(selector "layoutBelowIfNeeded") ~typ:(returning (void)) -let layoutGuides self = msg_send ~self ~cmd:(selector "layoutGuides") ~typ:(returning (id)) -let layoutIfNeeded self = msg_send ~self ~cmd:(selector "layoutIfNeeded") ~typ:(returning (void)) -let layoutMarginsDidChange self = msg_send ~self ~cmd:(selector "layoutMarginsDidChange") ~typ:(returning (void)) -let layoutMarginsFollowReadableWidth self = msg_send ~self ~cmd:(selector "layoutMarginsFollowReadableWidth") ~typ:(returning (bool)) -let layoutMarginsGuide self = msg_send ~self ~cmd:(selector "layoutMarginsGuide") ~typ:(returning (id)) -let layoutSublayersOfLayer x self = msg_send ~self ~cmd:(selector "layoutSublayersOfLayer:") ~typ:(id @-> returning (void)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let leadingAnchor self = msg_send ~self ~cmd:(selector "leadingAnchor") ~typ:(returning (id)) -let leftAnchor self = msg_send ~self ~cmd:(selector "leftAnchor") ~typ:(returning (id)) -let maskView self = msg_send ~self ~cmd:(selector "maskView") ~typ:(returning (id)) -let maximumContentSizeCategory self = msg_send ~self ~cmd:(selector "maximumContentSizeCategory") ~typ:(returning (id)) -let maximumLayoutSize self = msg_send_stret ~self ~cmd:(selector "maximumLayoutSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let minimumContentSizeCategory self = msg_send ~self ~cmd:(selector "minimumContentSizeCategory") ~typ:(returning (id)) -let minimumLayoutSize self = msg_send_stret ~self ~cmd:(selector "minimumLayoutSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let motionEffects self = msg_send ~self ~cmd:(selector "motionEffects") ~typ:(returning (id)) -let movedFromSuperview x self = msg_send ~self ~cmd:(selector "movedFromSuperview:") ~typ:(id @-> returning (void)) x -let movedFromWindow x self = msg_send ~self ~cmd:(selector "movedFromWindow:") ~typ:(id @-> returning (void)) x -let movedToSuperview x self = msg_send ~self ~cmd:(selector "movedToSuperview:") ~typ:(id @-> returning (void)) x -let movedToWindow x self = msg_send ~self ~cmd:(selector "movedToWindow:") ~typ:(id @-> returning (void)) x -let needsDisplay self = msg_send ~self ~cmd:(selector "needsDisplay") ~typ:(returning (bool)) -let needsDisplayOnBoundsChange self = msg_send ~self ~cmd:(selector "needsDisplayOnBoundsChange") ~typ:(returning (bool)) -let needsUpdateConstraints self = msg_send ~self ~cmd:(selector "needsUpdateConstraints") ~typ:(returning (bool)) -let neverCacheEffectiveLayoutSize self = msg_send ~self ~cmd:(selector "neverCacheEffectiveLayoutSize") ~typ:(returning (bool)) -let newSnapshotWithRect x self = msg_send ~self ~cmd:(selector "newSnapshotWithRect:") ~typ:(CGRect.t @-> returning (id)) x -let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning (id)) -let nukeContentLayoutSizeCacheFromOrbit self = msg_send ~self ~cmd:(selector "nukeContentLayoutSizeCacheFromOrbit") ~typ:(returning (void)) -let origin self = msg_send_stret ~self ~cmd:(selector "origin") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let overrideUserInterfaceStyle self = msg_send ~self ~cmd:(selector "overrideUserInterfaceStyle") ~typ:(returning (llong)) -let parentFocusEnvironment self = msg_send ~self ~cmd:(selector "parentFocusEnvironment") ~typ:(returning (id)) -let pointInside x ~forEvent self = msg_send ~self ~cmd:(selector "pointInside:forEvent:") ~typ:(CGPoint.t @-> ptr void @-> returning (bool)) x forEvent -let pointInside' x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let position self = msg_send_stret ~self ~cmd:(selector "position") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning (id)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let preservesSuperviewLayoutMargins self = msg_send ~self ~cmd:(selector "preservesSuperviewLayoutMargins") ~typ:(returning (bool)) -let readableContentGuide self = msg_send ~self ~cmd:(selector "readableContentGuide") ~typ:(returning (id)) -let recursiveDescription self = msg_send ~self ~cmd:(selector "recursiveDescription") ~typ:(returning (id)) -let recursivelyForceDisplayIfNeeded self = msg_send ~self ~cmd:(selector "recursivelyForceDisplayIfNeeded") ~typ:(returning (void)) -let reduceWidth x self = msg_send ~self ~cmd:(selector "reduceWidth:") ~typ:(double @-> returning (void)) x -let release self = msg_send ~self ~cmd:(selector "release") ~typ:(returning (void)) -let removeAllGestureRecognizers self = msg_send ~self ~cmd:(selector "removeAllGestureRecognizers") ~typ:(returning (void)) -let removeConstraint x self = msg_send ~self ~cmd:(selector "removeConstraint:") ~typ:(id @-> returning (void)) x -let removeConstraints x self = msg_send ~self ~cmd:(selector "removeConstraints:") ~typ:(id @-> returning (void)) x -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let removeGestureRecognizer x self = msg_send ~self ~cmd:(selector "removeGestureRecognizer:") ~typ:(id @-> returning (void)) x -let removeInteraction x self = msg_send ~self ~cmd:(selector "removeInteraction:") ~typ:(id @-> returning (void)) x -let removeLayoutGuide x self = msg_send ~self ~cmd:(selector "removeLayoutGuide:") ~typ:(id @-> returning (void)) x -let removeMotionEffect x self = msg_send ~self ~cmd:(selector "removeMotionEffect:") ~typ:(id @-> returning (void)) x -let resizableSnapshotFromRect x ~withCapInsets self = msg_send ~self ~cmd:(selector "resizableSnapshotFromRect:withCapInsets:") ~typ:(CGRect.t @-> ptr void @-> returning (id)) x withCapInsets -let resizableSnapshotViewFromRect x ~withCapInsets self = msg_send ~self ~cmd:(selector "resizableSnapshotViewFromRect:withCapInsets:") ~typ:(CGRect.t @-> ptr void @-> returning (id)) x withCapInsets -let resizableSnapshotViewFromRect' x ~afterScreenUpdates ~withCapInsets self = msg_send ~self ~cmd:(selector "resizableSnapshotViewFromRect:afterScreenUpdates:withCapInsets:") ~typ:(CGRect.t @-> bool @-> ptr void @-> returning (id)) x afterScreenUpdates withCapInsets -let resizeSubviewsWithOldSize x self = msg_send ~self ~cmd:(selector "resizeSubviewsWithOldSize:") ~typ:(CGSize.t @-> returning (void)) x -let resizeWithOldSuperviewSize x self = msg_send ~self ~cmd:(selector "resizeWithOldSuperviewSize:") ~typ:(CGSize.t @-> returning (void)) x -let restoreUserActivityState x self = msg_send ~self ~cmd:(selector "restoreUserActivityState:") ~typ:(id @-> returning (void)) x -let retain self = msg_send ~self ~cmd:(selector "retain") ~typ:(returning (id)) -let retainCount self = msg_send ~self ~cmd:(selector "retainCount") ~typ:(returning (ullong)) -let rightAnchor self = msg_send ~self ~cmd:(selector "rightAnchor") ~typ:(returning (id)) -let safeAreaInsetsDidChange self = msg_send ~self ~cmd:(selector "safeAreaInsetsDidChange") ~typ:(returning (void)) -let safeAreaLayoutGuide self = msg_send ~self ~cmd:(selector "safeAreaLayoutGuide") ~typ:(returning (id)) -let scalesLargeContentImage self = msg_send ~self ~cmd:(selector "scalesLargeContentImage") ~typ:(returning (bool)) -let scriptingInfoWithChildren self = msg_send ~self ~cmd:(selector "scriptingInfoWithChildren") ~typ:(returning (id)) -let semanticContentAttribute self = msg_send ~self ~cmd:(selector "semanticContentAttribute") ~typ:(returning (llong)) -let sendSubviewToBack x self = msg_send ~self ~cmd:(selector "sendSubviewToBack:") ~typ:(id @-> returning (void)) x -let setAccessibilityIgnoresInvertColors x self = msg_send ~self ~cmd:(selector "setAccessibilityIgnoresInvertColors:") ~typ:(bool @-> returning (void)) x -let setAllowsGroupBlending x self = msg_send ~self ~cmd:(selector "setAllowsGroupBlending:") ~typ:(bool @-> returning (void)) x -let setAllowsGroupOpacity x self = msg_send ~self ~cmd:(selector "setAllowsGroupOpacity:") ~typ:(bool @-> returning (void)) x -let setAlpha x self = msg_send ~self ~cmd:(selector "setAlpha:") ~typ:(double @-> returning (void)) x -let setAreChildrenFocused x self = msg_send ~self ~cmd:(selector "setAreChildrenFocused:") ~typ:(bool @-> returning (void)) x -let setAutoresizesSubviews x self = msg_send ~self ~cmd:(selector "setAutoresizesSubviews:") ~typ:(bool @-> returning (void)) x -let setAutoresizingMask x self = msg_send ~self ~cmd:(selector "setAutoresizingMask:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning (void)) x -let setCharge x self = msg_send ~self ~cmd:(selector "setCharge:") ~typ:(float @-> returning (void)) x -let setClearsContext x self = msg_send ~self ~cmd:(selector "setClearsContext:") ~typ:(bool @-> returning (void)) x -let setClearsContextBeforeDrawing x self = msg_send ~self ~cmd:(selector "setClearsContextBeforeDrawing:") ~typ:(bool @-> returning (void)) x -let setClipsSubviews x self = msg_send ~self ~cmd:(selector "setClipsSubviews:") ~typ:(bool @-> returning (void)) x -let setClipsToBounds x self = msg_send ~self ~cmd:(selector "setClipsToBounds:") ~typ:(bool @-> returning (void)) x -let setCompositingMode x self = msg_send ~self ~cmd:(selector "setCompositingMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContentCompressionResistancePriority x ~forAxis self = msg_send ~self ~cmd:(selector "setContentCompressionResistancePriority:forAxis:") ~typ:(float @-> llong @-> returning (void)) x (LLong.of_int forAxis) -let setContentHuggingPriority x ~forAxis self = msg_send ~self ~cmd:(selector "setContentHuggingPriority:forAxis:") ~typ:(float @-> llong @-> returning (void)) x (LLong.of_int forAxis) -let setContentMode x self = msg_send ~self ~cmd:(selector "setContentMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setContentScaleFactor x self = msg_send ~self ~cmd:(selector "setContentScaleFactor:") ~typ:(double @-> returning (void)) x -let setContentStretch x self = msg_send ~self ~cmd:(selector "setContentStretch:") ~typ:(CGRect.t @-> returning (void)) x -let setContentsPosition x self = msg_send ~self ~cmd:(selector "setContentsPosition:") ~typ:(int @-> returning (void)) x -let setCurrentEffectiveLayoutSizeFittingSizeShouldNotBeCached self = msg_send ~self ~cmd:(selector "setCurrentEffectiveLayoutSizeFittingSizeShouldNotBeCached") ~typ:(returning (void)) -let setCustomAlignmentRectInsets x self = msg_send ~self ~cmd:(selector "setCustomAlignmentRectInsets:") ~typ:(ptr void @-> returning (void)) x -let setCustomBaselineOffsetFromBottom x self = msg_send ~self ~cmd:(selector "setCustomBaselineOffsetFromBottom:") ~typ:(double @-> returning (void)) x -let setCustomFirstBaselineOffsetFromTop x self = msg_send ~self ~cmd:(selector "setCustomFirstBaselineOffsetFromTop:") ~typ:(double @-> returning (void)) x -let setDeliversButtonsForGesturesToSuperview x self = msg_send ~self ~cmd:(selector "setDeliversButtonsForGesturesToSuperview:") ~typ:(bool @-> returning (void)) x -let setDeliversTouchesForGesturesToSuperview x self = msg_send ~self ~cmd:(selector "setDeliversTouchesForGesturesToSuperview:") ~typ:(bool @-> returning (void)) x -let setDirectionalLayoutMargins x self = msg_send ~self ~cmd:(selector "setDirectionalLayoutMargins:") ~typ:(ptr void @-> returning (void)) x -let setDrawingFindIndicator x self = msg_send ~self ~cmd:(selector "setDrawingFindIndicator:") ~typ:(bool @-> returning (void)) x -let setEdgesInsettingLayoutMarginsFromSafeArea x self = msg_send ~self ~cmd:(selector "setEdgesInsettingLayoutMarginsFromSafeArea:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setEdgesPreservingSuperviewLayoutMargins x self = msg_send ~self ~cmd:(selector "setEdgesPreservingSuperviewLayoutMargins:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setExclusiveTouch x self = msg_send ~self ~cmd:(selector "setExclusiveTouch:") ~typ:(bool @-> returning (void)) x -let setFakeScribbleInteractionDelegate x self = msg_send ~self ~cmd:(selector "setFakeScribbleInteractionDelegate:") ~typ:(id @-> returning (void)) x -let setFixedBackgroundPattern x self = msg_send ~self ~cmd:(selector "setFixedBackgroundPattern:") ~typ:(bool @-> returning (void)) x -let setFocusEffect x self = msg_send ~self ~cmd:(selector "setFocusEffect:") ~typ:(id @-> returning (void)) x -let setFocusGroupIdentifier x self = msg_send ~self ~cmd:(selector "setFocusGroupIdentifier:") ~typ:(id @-> returning (void)) x -let setFocusGroupPriority x self = msg_send ~self ~cmd:(selector "setFocusGroupPriority:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setFrame' x ~forFields self = msg_send ~self ~cmd:(selector "setFrame:forFields:") ~typ:(CGRect.t @-> int @-> returning (void)) x forFields -let setFrameOrigin x self = msg_send ~self ~cmd:(selector "setFrameOrigin:") ~typ:(CGPoint.t @-> returning (void)) x -let setGestureRecognizers x self = msg_send ~self ~cmd:(selector "setGestureRecognizers:") ~typ:(id @-> returning (void)) x -let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning (void)) x -let setHitTestDirectionalInsets x self = msg_send ~self ~cmd:(selector "setHitTestDirectionalInsets:") ~typ:(ptr void @-> returning (void)) x -let setHitTestInsets x self = msg_send ~self ~cmd:(selector "setHitTestInsets:") ~typ:(ptr void @-> returning (void)) x -let setInsetsLayoutMarginsFromSafeArea x self = msg_send ~self ~cmd:(selector "setInsetsLayoutMarginsFromSafeArea:") ~typ:(bool @-> returning (void)) x -let setInteractionTintColor x self = msg_send ~self ~cmd:(selector "setInteractionTintColor:") ~typ:(id @-> returning (void)) x -let setInteractions x self = msg_send ~self ~cmd:(selector "setInteractions:") ~typ:(id @-> returning (void)) x -let setInvalidatingIntrinsicContentSizeAlsoInvalidatesSuperview x self = msg_send ~self ~cmd:(selector "setInvalidatingIntrinsicContentSizeAlsoInvalidatesSuperview:") ~typ:(bool @-> returning (void)) x -let setLargeContentImage x self = msg_send ~self ~cmd:(selector "setLargeContentImage:") ~typ:(id @-> returning (void)) x -let setLargeContentImageInsets x self = msg_send ~self ~cmd:(selector "setLargeContentImageInsets:") ~typ:(ptr void @-> returning (void)) x -let setLargeContentTitle x self = msg_send ~self ~cmd:(selector "setLargeContentTitle:") ~typ:(id @-> returning (void)) x -let setLayoutMargins x self = msg_send ~self ~cmd:(selector "setLayoutMargins:") ~typ:(ptr void @-> returning (void)) x -let setLayoutMarginsFollowReadableWidth x self = msg_send ~self ~cmd:(selector "setLayoutMarginsFollowReadableWidth:") ~typ:(bool @-> returning (void)) x -let setLayoutSize x ~withContentPriority self = msg_send ~self ~cmd:(selector "setLayoutSize:withContentPriority:") ~typ:(CGSize.t @-> float @-> returning (void)) x withContentPriority -let setLayoutSize' x ~withHorizontalContentPriority ~verticalContentPriority self = msg_send ~self ~cmd:(selector "setLayoutSize:withHorizontalContentPriority:verticalContentPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning (void)) x withHorizontalContentPriority verticalContentPriority -let setMaskView x self = msg_send ~self ~cmd:(selector "setMaskView:") ~typ:(id @-> returning (void)) x -let setMaximumContentSizeCategory x self = msg_send ~self ~cmd:(selector "setMaximumContentSizeCategory:") ~typ:(id @-> returning (void)) x -let setMaximumLayoutSize x self = msg_send ~self ~cmd:(selector "setMaximumLayoutSize:") ~typ:(CGSize.t @-> returning (void)) x -let setMinimumContentSizeCategory x self = msg_send ~self ~cmd:(selector "setMinimumContentSizeCategory:") ~typ:(id @-> returning (void)) x -let setMinimumLayoutSize x self = msg_send ~self ~cmd:(selector "setMinimumLayoutSize:") ~typ:(CGSize.t @-> returning (void)) x -let setMotionEffects x self = msg_send ~self ~cmd:(selector "setMotionEffects:") ~typ:(id @-> returning (void)) x -let setMultipleTouchEnabled x self = msg_send ~self ~cmd:(selector "setMultipleTouchEnabled:") ~typ:(bool @-> returning (void)) x -let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning (void)) -let setNeedsDisplayInRect x self = msg_send ~self ~cmd:(selector "setNeedsDisplayInRect:") ~typ:(CGRect.t @-> returning (void)) x -let setNeedsDisplayOnBoundsChange x self = msg_send ~self ~cmd:(selector "setNeedsDisplayOnBoundsChange:") ~typ:(bool @-> returning (void)) x -let setNeedsFocusUpdate self = msg_send ~self ~cmd:(selector "setNeedsFocusUpdate") ~typ:(returning (void)) -let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning (void)) -let setNeedsPreferredFocusedItemUpdate self = msg_send ~self ~cmd:(selector "setNeedsPreferredFocusedItemUpdate") ~typ:(returning (void)) -let setNeedsUpdateConstraints self = msg_send ~self ~cmd:(selector "setNeedsUpdateConstraints") ~typ:(returning (void)) -let setNeverCacheEffectiveLayoutSize x self = msg_send ~self ~cmd:(selector "setNeverCacheEffectiveLayoutSize:") ~typ:(bool @-> returning (void)) x -let setOpaque x self = msg_send ~self ~cmd:(selector "setOpaque:") ~typ:(bool @-> returning (void)) x -let setOrigin x self = msg_send ~self ~cmd:(selector "setOrigin:") ~typ:(CGPoint.t @-> returning (void)) x -let setOverrideUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setOverrideUserInterfaceStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPosition x self = msg_send ~self ~cmd:(selector "setPosition:") ~typ:(CGPoint.t @-> returning (void)) x -let setPresentationValue x ~forKey ~updateIfExists self = msg_send ~self ~cmd:(selector "setPresentationValue:forKey:updateIfExists:") ~typ:(id @-> id @-> bool @-> returning (void)) x forKey updateIfExists -let setPreservesSuperviewLayoutMargins x self = msg_send ~self ~cmd:(selector "setPreservesSuperviewLayoutMargins:") ~typ:(bool @-> returning (void)) x -let setRotationBy x self = msg_send ~self ~cmd:(selector "setRotationBy:") ~typ:(float @-> returning (void)) x -let setSafeAreaInsets x self = msg_send ~self ~cmd:(selector "setSafeAreaInsets:") ~typ:(ptr void @-> returning (void)) x -let setScalesLargeContentImage x self = msg_send ~self ~cmd:(selector "setScalesLargeContentImage:") ~typ:(bool @-> returning (void)) x -let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShowsLargeContentViewer x self = msg_send ~self ~cmd:(selector "setShowsLargeContentViewer:") ~typ:(bool @-> returning (void)) x -let setSize x self = msg_send ~self ~cmd:(selector "setSize:") ~typ:(CGSize.t @-> returning (void)) x -let setSkipsSubviewEnumeration x self = msg_send ~self ~cmd:(selector "setSkipsSubviewEnumeration:") ~typ:(bool @-> returning (void)) x -let setTag x self = msg_send ~self ~cmd:(selector "setTag:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTintAdjustmentMode x self = msg_send ~self ~cmd:(selector "setTintAdjustmentMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let setTransform3D x self = msg_send ~self ~cmd:(selector "setTransform3D:") ~typ:(ptr void @-> returning (void)) x -let setTransform x self = msg_send ~self ~cmd:(selector "setTransform:") ~typ:(ptr void @-> returning (void)) x -let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning (void)) x -let setUntransformedFrame x self = msg_send ~self ~cmd:(selector "setUntransformedFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabled:") ~typ:(bool @-> returning (void)) x -let setValue x ~forKey self = msg_send ~self ~cmd:(selector "setValue:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let setViewTraversalMark x self = msg_send ~self ~cmd:(selector "setViewTraversalMark:") ~typ:(bool @-> returning (void)) x -let setWantsDeepColorDrawing x self = msg_send ~self ~cmd:(selector "setWantsDeepColorDrawing:") ~typ:(bool @-> returning (void)) x -let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning (bool)) x -let showsLargeContentViewer self = msg_send ~self ~cmd:(selector "showsLargeContentViewer") ~typ:(returning (bool)) -let size self = msg_send_stret ~self ~cmd:(selector "size") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let sizeToFit self = msg_send ~self ~cmd:(selector "sizeToFit") ~typ:(returning (void)) -let skipsSubviewEnumeration self = msg_send ~self ~cmd:(selector "skipsSubviewEnumeration") ~typ:(returning (bool)) -let snapshot self = msg_send ~self ~cmd:(selector "snapshot") ~typ:(returning (id)) -let snapshotView self = msg_send ~self ~cmd:(selector "snapshotView") ~typ:(returning (id)) -let snapshotViewAfterScreenUpdates x self = msg_send ~self ~cmd:(selector "snapshotViewAfterScreenUpdates:") ~typ:(bool @-> returning (id)) x -let solutionDidChangeInEngine x self = msg_send ~self ~cmd:(selector "solutionDidChangeInEngine:") ~typ:(id @-> returning (void)) x -let stopSettingPresentationValueForKey x self = msg_send ~self ~cmd:(selector "stopSettingPresentationValueForKey:") ~typ:(id @-> returning (void)) x -let subviews self = msg_send ~self ~cmd:(selector "subviews") ~typ:(returning (id)) -let superview self = msg_send ~self ~cmd:(selector "superview") ~typ:(returning (id)) -let systemLayoutSizeFittingSize x self = msg_send_stret ~self ~cmd:(selector "systemLayoutSizeFittingSize:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let systemLayoutSizeFittingSize' x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send_stret ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning (CGSize.t)) ~return_type:CGSize.t x withHorizontalFittingPriority verticalFittingPriority -let systemSpacingToAdjecentSiblingView x ~axis ~baselineRelative ~multiplier self = msg_send ~self ~cmd:(selector "systemSpacingToAdjecentSiblingView:axis:baselineRelative:multiplier:") ~typ:(id @-> llong @-> bool @-> double @-> returning (double)) x (LLong.of_int axis) baselineRelative multiplier -let systemSpacingToSuperView x ~edge ~baselineRelative ~multiplier self = msg_send ~self ~cmd:(selector "systemSpacingToSuperView:edge:baselineRelative:multiplier:") ~typ:(id @-> ullong @-> bool @-> double @-> returning (double)) x (ULLong.of_int edge) baselineRelative multiplier -let tag self = msg_send ~self ~cmd:(selector "tag") ~typ:(returning (llong)) -let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning (int)) -let textEffectsVisibilityLevelInKeyboardWindow self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevelInKeyboardWindow") ~typ:(returning (int)) -let textInputView self = msg_send ~self ~cmd:(selector "textInputView") ~typ:(returning (id)) -let tintAdjustmentMode self = msg_send ~self ~cmd:(selector "tintAdjustmentMode") ~typ:(returning (llong)) -let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning (id)) -let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning (void)) -let tintColorOverride self = msg_send ~self ~cmd:(selector "tintColorOverride") ~typ:(returning (id)) -let tintColorOverrideDarkened self = msg_send ~self ~cmd:(selector "tintColorOverrideDarkened") ~typ:(returning (id)) -let topAnchor self = msg_send ~self ~cmd:(selector "topAnchor") ~typ:(returning (id)) -let trailingAnchor self = msg_send ~self ~cmd:(selector "trailingAnchor") ~typ:(returning (id)) -let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let translatesAutoresizingMaskIntoConstraints self = msg_send ~self ~cmd:(selector "translatesAutoresizingMaskIntoConstraints") ~typ:(returning (bool)) -let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning (void)) -let updateConstraintsIfNeeded self = msg_send ~self ~cmd:(selector "updateConstraintsIfNeeded") ~typ:(returning (void)) -let updateFocusIfNeeded self = msg_send ~self ~cmd:(selector "updateFocusIfNeeded") ~typ:(returning (void)) -let updateUserActivityState x self = msg_send ~self ~cmd:(selector "updateUserActivityState:") ~typ:(id @-> returning (void)) x -let useBlockyMagnificationInClassic self = msg_send ~self ~cmd:(selector "useBlockyMagnificationInClassic") ~typ:(returning (bool)) -let viewDidMoveToSuperview self = msg_send ~self ~cmd:(selector "viewDidMoveToSuperview") ~typ:(returning (void)) -let viewForBaselineLayout self = msg_send ~self ~cmd:(selector "viewForBaselineLayout") ~typ:(returning (id)) -let viewForFirstBaselineLayout self = msg_send ~self ~cmd:(selector "viewForFirstBaselineLayout") ~typ:(returning (id)) -let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning (id)) -let viewPrintFormatter self = msg_send ~self ~cmd:(selector "viewPrintFormatter") ~typ:(returning (id)) -let viewTraversalMark self = msg_send ~self ~cmd:(selector "viewTraversalMark") ~typ:(returning (bool)) -let viewWillMoveToSuperview x self = msg_send ~self ~cmd:(selector "viewWillMoveToSuperview:") ~typ:(id @-> returning (void)) x -let viewWithTag x self = msg_send ~self ~cmd:(selector "viewWithTag:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let visibleBounds self = msg_send_stret ~self ~cmd:(selector "visibleBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let wantsDeepColorDrawing self = msg_send ~self ~cmd:(selector "wantsDeepColorDrawing") ~typ:(returning (bool)) -let widthAnchor self = msg_send ~self ~cmd:(selector "widthAnchor") ~typ:(returning (id)) -let willMoveToSuperview x self = msg_send ~self ~cmd:(selector "willMoveToSuperview:") ~typ:(id @-> returning (void)) x -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x -let willRemoveSubview x self = msg_send ~self ~cmd:(selector "willRemoveSubview:") ~typ:(id @-> returning (void)) x -let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning (id)) \ No newline at end of file +let _PDFKitEnclosingScrollView self = msg_send ~self ~cmd:(selector "PDFKitEnclosingScrollView") ~typ:(returning id) +let abSetLayoutDebuggingColor x self = msg_send ~self ~cmd:(selector "abSetLayoutDebuggingColor:") ~typ:(id @-> returning void) x +let accessibilityApplyInvertFilter self = msg_send ~self ~cmd:(selector "accessibilityApplyInvertFilter") ~typ:(returning void) +let accessibilityIgnoresInvertColors self = msg_send ~self ~cmd:(selector "accessibilityIgnoresInvertColors") ~typ:(returning bool) +let accessibilityInvertFilterApplied self = msg_send ~self ~cmd:(selector "accessibilityInvertFilterApplied") ~typ:(returning bool) +let accessibilityUnapplyInvertFilter self = msg_send ~self ~cmd:(selector "accessibilityUnapplyInvertFilter") ~typ:(returning void) +let actionForLayer x ~forKey self = msg_send ~self ~cmd:(selector "actionForLayer:forKey:") ~typ:(id @-> id @-> returning id) x forKey +let addAnimation x ~forKey self = msg_send ~self ~cmd:(selector "addAnimation:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let addConstraint x self = msg_send ~self ~cmd:(selector "addConstraint:") ~typ:(id @-> returning void) x +let addConstraints x self = msg_send ~self ~cmd:(selector "addConstraints:") ~typ:(id @-> returning void) x +let addGestureRecognizer x self = msg_send ~self ~cmd:(selector "addGestureRecognizer:") ~typ:(id @-> returning void) x +let addInteraction x self = msg_send ~self ~cmd:(selector "addInteraction:") ~typ:(id @-> returning void) x +let addLayoutGuide x self = msg_send ~self ~cmd:(selector "addLayoutGuide:") ~typ:(id @-> returning void) x +let addMotionEffect x self = msg_send ~self ~cmd:(selector "addMotionEffect:") ~typ:(id @-> returning void) x +let addSubview x self = msg_send ~self ~cmd:(selector "addSubview:") ~typ:(id @-> returning void) x +let akEnclosingScrollView self = msg_send ~self ~cmd:(selector "akEnclosingScrollView") ~typ:(returning id) +let akVisibleRect self = msg_send ~self ~cmd:(selector "akVisibleRect") ~typ:(returning CGRect.t) +let alignmentRectForFrame x self = msg_send ~self ~cmd:(selector "alignmentRectForFrame:") ~typ:(CGRect.t @-> returning CGRect.t) x +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let allowsGroupBlending self = msg_send ~self ~cmd:(selector "allowsGroupBlending") ~typ:(returning bool) +let allowsGroupOpacity self = msg_send ~self ~cmd:(selector "allowsGroupOpacity") ~typ:(returning bool) +let alpha self = msg_send ~self ~cmd:(selector "alpha") ~typ:(returning double) +let animationInfoCreateIfNecessary x self = msg_send ~self ~cmd:(selector "animationInfoCreateIfNecessary:") ~typ:(bool @-> returning id) x +let appliedContentSizeCategoryLimitsDescription self = msg_send ~self ~cmd:(selector "appliedContentSizeCategoryLimitsDescription") ~typ:(returning id) +let areChildrenFocused self = msg_send ~self ~cmd:(selector "areChildrenFocused") ~typ:(returning bool) +let artworkCatalog self = msg_send ~self ~cmd:(selector "artworkCatalog") ~typ:(returning id) +let autorelease self = msg_send ~self ~cmd:(selector "autorelease") ~typ:(returning id) +let autoresizesSubviews self = msg_send ~self ~cmd:(selector "autoresizesSubviews") ~typ:(returning bool) +let autoresizingMask self = msg_send ~self ~cmd:(selector "autoresizingMask") ~typ:(returning ullong) +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning bool) +let bottomAnchor self = msg_send ~self ~cmd:(selector "bottomAnchor") ~typ:(returning id) +let bounds self = msg_send ~self ~cmd:(selector "bounds") ~typ:(returning CGRect.t) +let bringSubviewToFront x self = msg_send ~self ~cmd:(selector "bringSubviewToFront:") ~typ:(id @-> returning void) x +let calculateLayoutSizeFittingSize x self = msg_send ~self ~cmd:(selector "calculateLayoutSizeFittingSize:") ~typ:(CGSize.t @-> returning CGSize.t) x +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let canUseFastLayoutSizeCalulation self = msg_send ~self ~cmd:(selector "canUseFastLayoutSizeCalulation") ~typ:(returning bool) +let cancelMouseTracking self = msg_send ~self ~cmd:(selector "cancelMouseTracking") ~typ:(returning bool) +let cancelTouchTracking self = msg_send ~self ~cmd:(selector "cancelTouchTracking") ~typ:(returning bool) +let center self = msg_send ~self ~cmd:(selector "center") ~typ:(returning CGPoint.t) +let centerXAnchor self = msg_send ~self ~cmd:(selector "centerXAnchor") ~typ:(returning id) +let centerYAnchor self = msg_send ~self ~cmd:(selector "centerYAnchor") ~typ:(returning id) +let charge self = msg_send ~self ~cmd:(selector "charge") ~typ:(returning float) +let clearArtworkCatalogs self = msg_send ~self ~cmd:(selector "clearArtworkCatalogs") ~typ:(returning void) +let clearsContextBeforeDrawing self = msg_send ~self ~cmd:(selector "clearsContextBeforeDrawing") ~typ:(returning bool) +let clipsToBounds self = msg_send ~self ~cmd:(selector "clipsToBounds") ~typ:(returning bool) +let compareTextEffectsOrdering x self = msg_send ~self ~cmd:(selector "compareTextEffectsOrdering:") ~typ:(id @-> returning llong) x +let compositingMode self = msg_send ~self ~cmd:(selector "compositingMode") ~typ:(returning llong) +let constraints self = msg_send ~self ~cmd:(selector "constraints") ~typ:(returning id) +let constraintsAffectingLayoutForAxis x self = msg_send ~self ~cmd:(selector "constraintsAffectingLayoutForAxis:") ~typ:(llong @-> returning id) (LLong.of_int x) +let constraintsAffectingLayoutForAxis' x ~ofItem self = msg_send ~self ~cmd:(selector "constraintsAffectingLayoutForAxis:ofItem:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) ofItem +let constraintsDidChangeInEngine x self = msg_send ~self ~cmd:(selector "constraintsDidChangeInEngine:") ~typ:(id @-> returning void) x +let containsView x self = msg_send ~self ~cmd:(selector "containsView:") ~typ:(id @-> returning bool) x +let contentCompressionResistancePriorityForAxis x self = msg_send ~self ~cmd:(selector "contentCompressionResistancePriorityForAxis:") ~typ:(llong @-> returning float) (LLong.of_int x) +let contentHuggingPriorityForAxis x self = msg_send ~self ~cmd:(selector "contentHuggingPriorityForAxis:") ~typ:(llong @-> returning float) (LLong.of_int x) +let contentLayoutSizeCacheDescription self = msg_send ~self ~cmd:(selector "contentLayoutSizeCacheDescription") ~typ:(returning id) +let contentMode self = msg_send ~self ~cmd:(selector "contentMode") ~typ:(returning llong) +let contentScaleFactor self = msg_send ~self ~cmd:(selector "contentScaleFactor") ~typ:(returning double) +let contentStretch self = msg_send ~self ~cmd:(selector "contentStretch") ~typ:(returning CGRect.t) +let convertPoint x ~fromCoordinateSpace self = msg_send ~self ~cmd:(selector "convertPoint:fromCoordinateSpace:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x fromCoordinateSpace +let convertPoint1 x ~fromView self = msg_send ~self ~cmd:(selector "convertPoint:fromView:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x fromView +let convertPoint2 x ~toCoordinateSpace self = msg_send ~self ~cmd:(selector "convertPoint:toCoordinateSpace:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x toCoordinateSpace +let convertPoint3 x ~toView self = msg_send ~self ~cmd:(selector "convertPoint:toView:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x toView +let convertRect x ~fromCoordinateSpace self = msg_send ~self ~cmd:(selector "convertRect:fromCoordinateSpace:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x fromCoordinateSpace +let convertRect1 x ~fromView self = msg_send ~self ~cmd:(selector "convertRect:fromView:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x fromView +let convertRect2 x ~toCoordinateSpace self = msg_send ~self ~cmd:(selector "convertRect:toCoordinateSpace:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x toCoordinateSpace +let convertRect3 x ~toView self = msg_send ~self ~cmd:(selector "convertRect:toView:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x toView +let convertSize x ~fromView self = msg_send ~self ~cmd:(selector "convertSize:fromView:") ~typ:(CGSize.t @-> id @-> returning CGSize.t) x fromView +let convertSize' x ~toView self = msg_send ~self ~cmd:(selector "convertSize:toView:") ~typ:(CGSize.t @-> id @-> returning CGSize.t) x toView +let coordinateSpace self = msg_send ~self ~cmd:(selector "coordinateSpace") ~typ:(returning id) +let customAlignmentRectInsets self = msg_send ~self ~cmd:(selector "customAlignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let customBaselineOffsetFromBottom self = msg_send ~self ~cmd:(selector "customBaselineOffsetFromBottom") ~typ:(returning double) +let customFirstBaselineOffsetFromTop self = msg_send ~self ~cmd:(selector "customFirstBaselineOffsetFromTop") ~typ:(returning double) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let debugSizeCache self = msg_send ~self ~cmd:(selector "debugSizeCache") ~typ:(returning id) +let debugSizeCacheDict self = msg_send ~self ~cmd:(selector "debugSizeCacheDict") ~typ:(returning id) +let deferredBecomeFirstResponder self = msg_send ~self ~cmd:(selector "deferredBecomeFirstResponder") ~typ:(returning void) +let deliversButtonsForGesturesToSuperview self = msg_send ~self ~cmd:(selector "deliversButtonsForGesturesToSuperview") ~typ:(returning bool) +let deliversTouchesForGesturesToSuperview self = msg_send ~self ~cmd:(selector "deliversTouchesForGesturesToSuperview") ~typ:(returning bool) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let didAddSubview x self = msg_send ~self ~cmd:(selector "didAddSubview:") ~typ:(id @-> returning void) x +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let directionalLayoutMargins self = msg_send ~self ~cmd:(selector "directionalLayoutMargins") ~typ:(returning NSDirectionalEdgeInsets.t) +let drawLayer x ~inContext self = msg_send ~self ~cmd:(selector "drawLayer:inContext:") ~typ:(id @-> (ptr CGContext.t) @-> returning void) x inContext +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let drawRect' x ~forViewPrintFormatter self = msg_send ~self ~cmd:(selector "drawRect:forViewPrintFormatter:") ~typ:(CGRect.t @-> id @-> returning void) x forViewPrintFormatter +let drawViewHierarchyInRect x self = msg_send ~self ~cmd:(selector "drawViewHierarchyInRect:") ~typ:(CGRect.t @-> returning bool) x +let drawViewHierarchyInRect' x ~afterScreenUpdates self = msg_send ~self ~cmd:(selector "drawViewHierarchyInRect:afterScreenUpdates:") ~typ:(CGRect.t @-> bool @-> returning bool) x afterScreenUpdates +let edgesInsettingLayoutMarginsFromSafeArea self = msg_send ~self ~cmd:(selector "edgesInsettingLayoutMarginsFromSafeArea") ~typ:(returning ullong) +let edgesPreservingSuperviewLayoutMargins self = msg_send ~self ~cmd:(selector "edgesPreservingSuperviewLayoutMargins") ~typ:(returning ullong) +let effectiveAlignmentRectInsets self = msg_send ~self ~cmd:(selector "effectiveAlignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let effectiveBaselineOffsetFromBottom self = msg_send ~self ~cmd:(selector "effectiveBaselineOffsetFromBottom") ~typ:(returning double) +let effectiveBaselineOffsetFromContentBottom self = msg_send ~self ~cmd:(selector "effectiveBaselineOffsetFromContentBottom") ~typ:(returning double) +let effectiveFirstBaselineOffsetFromContentTop self = msg_send ~self ~cmd:(selector "effectiveFirstBaselineOffsetFromContentTop") ~typ:(returning double) +let effectiveFirstBaselineOffsetFromTop self = msg_send ~self ~cmd:(selector "effectiveFirstBaselineOffsetFromTop") ~typ:(returning double) +let effectiveLayoutSizeFittingSize x self = msg_send ~self ~cmd:(selector "effectiveLayoutSizeFittingSize:") ~typ:(CGSize.t @-> returning CGSize.t) x +let effectiveScreenScale self = msg_send ~self ~cmd:(selector "effectiveScreenScale") ~typ:(returning double) +let effectiveUserInterfaceLayoutDirection self = msg_send ~self ~cmd:(selector "effectiveUserInterfaceLayoutDirection") ~typ:(returning llong) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let endEditing x self = msg_send ~self ~cmd:(selector "endEditing:") ~typ:(bool @-> returning bool) x +let engine x ~markerForConstraintToBreakAmongConstraints self = msg_send ~self ~cmd:(selector "engine:markerForConstraintToBreakAmongConstraints:") ~typ:(id @-> id @-> returning id) x markerForConstraintToBreakAmongConstraints +let engine' x ~willBreakConstraint ~dueToMutuallyExclusiveConstraints self = msg_send ~self ~cmd:(selector "engine:willBreakConstraint:dueToMutuallyExclusiveConstraints:") ~typ:(id @-> id @-> id @-> returning void) x willBreakConstraint dueToMutuallyExclusiveConstraints +let exchangeSubviewAtIndex x ~withSubviewAtIndex self = msg_send ~self ~cmd:(selector "exchangeSubviewAtIndex:withSubviewAtIndex:") ~typ:(llong @-> llong @-> returning void) (LLong.of_int x) (LLong.of_int withSubviewAtIndex) +let exerciseAmbiguityInLayout self = msg_send ~self ~cmd:(selector "exerciseAmbiguityInLayout") ~typ:(returning void) +let extent self = msg_send ~self ~cmd:(selector "extent") ~typ:(returning CGRect.t) +let fakeScribbleInteractionDelegate self = msg_send ~self ~cmd:(selector "fakeScribbleInteractionDelegate") ~typ:(returning id) +let findFirstResponder self = msg_send ~self ~cmd:(selector "findFirstResponder") ~typ:(returning id) +let firstBaselineAnchor self = msg_send ~self ~cmd:(selector "firstBaselineAnchor") ~typ:(returning id) +let focusEffect self = msg_send ~self ~cmd:(selector "focusEffect") ~typ:(returning id) +let focusGroupIdentifier self = msg_send ~self ~cmd:(selector "focusGroupIdentifier") ~typ:(returning id) +let focusGroupPriority self = msg_send ~self ~cmd:(selector "focusGroupPriority") ~typ:(returning llong) +let focusGuides self = msg_send ~self ~cmd:(selector "focusGuides") ~typ:(returning id) +let focusItemContainer self = msg_send ~self ~cmd:(selector "focusItemContainer") ~typ:(returning id) +let focusItemsInRect x self = msg_send ~self ~cmd:(selector "focusItemsInRect:") ~typ:(CGRect.t @-> returning id) x +let focusedViewDidChange self = msg_send ~self ~cmd:(selector "focusedViewDidChange") ~typ:(returning void) +let forceDisplayIfNeeded self = msg_send ~self ~cmd:(selector "forceDisplayIfNeeded") ~typ:(returning void) +let frame self = msg_send ~self ~cmd:(selector "frame") ~typ:(returning CGRect.t) +let frameForAlignmentRect x self = msg_send ~self ~cmd:(selector "frameForAlignmentRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let frameOrigin self = msg_send ~self ~cmd:(selector "frameOrigin") ~typ:(returning CGPoint.t) +let gestureParent self = msg_send ~self ~cmd:(selector "gestureParent") ~typ:(returning id) +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let gestureRecognizers self = msg_send ~self ~cmd:(selector "gestureRecognizers") ~typ:(returning id) +let hasAmbiguousLayout self = msg_send ~self ~cmd:(selector "hasAmbiguousLayout") ~typ:(returning bool) +let heightAnchor self = msg_send ~self ~cmd:(selector "heightAnchor") ~typ:(returning id) +let hitRect self = msg_send ~self ~cmd:(selector "hitRect") ~typ:(returning CGRect.t) +let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning id) x forEvent +let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let hitTestDirectionalInsets self = msg_send ~self ~cmd:(selector "hitTestDirectionalInsets") ~typ:(returning NSDirectionalEdgeInsets.t) +let hitTestInsets self = msg_send ~self ~cmd:(selector "hitTestInsets") ~typ:(returning UIEdgeInsets.t) +let infoCardThemeChanged self = msg_send ~self ~cmd:(selector "infoCardThemeChanged") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithSize x self = msg_send ~self ~cmd:(selector "initWithSize:") ~typ:(CGSize.t @-> returning id) x +let inputResponderController self = msg_send ~self ~cmd:(selector "inputResponderController") ~typ:(returning id) +let insertSubview x ~above self = msg_send ~self ~cmd:(selector "insertSubview:above:") ~typ:(id @-> id @-> returning void) x above +let insertSubview1 x ~aboveSubview self = msg_send ~self ~cmd:(selector "insertSubview:aboveSubview:") ~typ:(id @-> id @-> returning void) x aboveSubview +let insertSubview2 x ~atIndex self = msg_send ~self ~cmd:(selector "insertSubview:atIndex:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int atIndex) +let insertSubview3 x ~below self = msg_send ~self ~cmd:(selector "insertSubview:below:") ~typ:(id @-> id @-> returning void) x below +let insertSubview4 x ~belowSubview self = msg_send ~self ~cmd:(selector "insertSubview:belowSubview:") ~typ:(id @-> id @-> returning void) x belowSubview +let insetsLayoutMarginsFromSafeArea self = msg_send ~self ~cmd:(selector "insetsLayoutMarginsFromSafeArea") ~typ:(returning bool) +let interactionTintColor self = msg_send ~self ~cmd:(selector "interactionTintColor") ~typ:(returning id) +let interactionTintColorDidChange self = msg_send ~self ~cmd:(selector "interactionTintColorDidChange") ~typ:(returning void) +let interactions self = msg_send ~self ~cmd:(selector "interactions") ~typ:(returning id) +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let invalidateIntrinsicContentSize self = msg_send ~self ~cmd:(selector "invalidateIntrinsicContentSize") ~typ:(returning void) +let invalidatingIntrinsicContentSizeAlsoInvalidatesSuperview self = msg_send ~self ~cmd:(selector "invalidatingIntrinsicContentSizeAlsoInvalidatesSuperview") ~typ:(returning bool) +let isAccessibilityElementByDefault self = msg_send ~self ~cmd:(selector "isAccessibilityElementByDefault") ~typ:(returning bool) +let isDescendantOfView x self = msg_send ~self ~cmd:(selector "isDescendantOfView:") ~typ:(id @-> returning bool) x +let isDrawingFindIndicator self = msg_send ~self ~cmd:(selector "isDrawingFindIndicator") ~typ:(returning bool) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let isExclusiveTouch self = msg_send ~self ~cmd:(selector "isExclusiveTouch") ~typ:(returning bool) +let isFocused self = msg_send ~self ~cmd:(selector "isFocused") ~typ:(returning bool) +let isHidden self = msg_send ~self ~cmd:(selector "isHidden") ~typ:(returning bool) +let isHiddenOrHasHiddenAncestor self = msg_send ~self ~cmd:(selector "isHiddenOrHasHiddenAncestor") ~typ:(returning bool) +let isLayoutSizeDependentOnPerpendicularAxis self = msg_send ~self ~cmd:(selector "isLayoutSizeDependentOnPerpendicularAxis") ~typ:(returning bool) +let isMultipleTouchEnabled self = msg_send ~self ~cmd:(selector "isMultipleTouchEnabled") ~typ:(returning bool) +let isOpaque self = msg_send ~self ~cmd:(selector "isOpaque") ~typ:(returning bool) +let isTransparentFocusItem self = msg_send ~self ~cmd:(selector "isTransparentFocusItem") ~typ:(returning bool) +let isUserInteractionEnabled self = msg_send ~self ~cmd:(selector "isUserInteractionEnabled") ~typ:(returning bool) +let keyboardLayoutGuide self = msg_send ~self ~cmd:(selector "keyboardLayoutGuide") ~typ:(returning id) +let keyboardSceneDelegate self = msg_send ~self ~cmd:(selector "keyboardSceneDelegate") ~typ:(returning id) +let largeContentImage self = msg_send ~self ~cmd:(selector "largeContentImage") ~typ:(returning id) +let largeContentImageInsets self = msg_send ~self ~cmd:(selector "largeContentImageInsets") ~typ:(returning UIEdgeInsets.t) +let largeContentTitle self = msg_send ~self ~cmd:(selector "largeContentTitle") ~typ:(returning id) +let lastBaselineAnchor self = msg_send ~self ~cmd:(selector "lastBaselineAnchor") ~typ:(returning id) +let layer self = msg_send ~self ~cmd:(selector "layer") ~typ:(returning id) +let layerWillDraw x self = msg_send ~self ~cmd:(selector "layerWillDraw:") ~typ:(id @-> returning void) x +let layoutBelowIfNeeded self = msg_send ~self ~cmd:(selector "layoutBelowIfNeeded") ~typ:(returning void) +let layoutGuides self = msg_send ~self ~cmd:(selector "layoutGuides") ~typ:(returning id) +let layoutIfNeeded self = msg_send ~self ~cmd:(selector "layoutIfNeeded") ~typ:(returning void) +let layoutMargins self = msg_send ~self ~cmd:(selector "layoutMargins") ~typ:(returning UIEdgeInsets.t) +let layoutMarginsDidChange self = msg_send ~self ~cmd:(selector "layoutMarginsDidChange") ~typ:(returning void) +let layoutMarginsFollowReadableWidth self = msg_send ~self ~cmd:(selector "layoutMarginsFollowReadableWidth") ~typ:(returning bool) +let layoutMarginsGuide self = msg_send ~self ~cmd:(selector "layoutMarginsGuide") ~typ:(returning id) +let layoutSublayersOfLayer x self = msg_send ~self ~cmd:(selector "layoutSublayersOfLayer:") ~typ:(id @-> returning void) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let leadingAnchor self = msg_send ~self ~cmd:(selector "leadingAnchor") ~typ:(returning id) +let leftAnchor self = msg_send ~self ~cmd:(selector "leftAnchor") ~typ:(returning id) +let maskView self = msg_send ~self ~cmd:(selector "maskView") ~typ:(returning id) +let maximumContentSizeCategory self = msg_send ~self ~cmd:(selector "maximumContentSizeCategory") ~typ:(returning id) +let maximumLayoutSize self = msg_send ~self ~cmd:(selector "maximumLayoutSize") ~typ:(returning CGSize.t) +let minimumContentSizeCategory self = msg_send ~self ~cmd:(selector "minimumContentSizeCategory") ~typ:(returning id) +let minimumLayoutSize self = msg_send ~self ~cmd:(selector "minimumLayoutSize") ~typ:(returning CGSize.t) +let motionEffects self = msg_send ~self ~cmd:(selector "motionEffects") ~typ:(returning id) +let movedFromSuperview x self = msg_send ~self ~cmd:(selector "movedFromSuperview:") ~typ:(id @-> returning void) x +let movedFromWindow x self = msg_send ~self ~cmd:(selector "movedFromWindow:") ~typ:(id @-> returning void) x +let movedToSuperview x self = msg_send ~self ~cmd:(selector "movedToSuperview:") ~typ:(id @-> returning void) x +let movedToWindow x self = msg_send ~self ~cmd:(selector "movedToWindow:") ~typ:(id @-> returning void) x +let needsDisplay self = msg_send ~self ~cmd:(selector "needsDisplay") ~typ:(returning bool) +let needsDisplayOnBoundsChange self = msg_send ~self ~cmd:(selector "needsDisplayOnBoundsChange") ~typ:(returning bool) +let needsUpdateConstraints self = msg_send ~self ~cmd:(selector "needsUpdateConstraints") ~typ:(returning bool) +let neverCacheEffectiveLayoutSize self = msg_send ~self ~cmd:(selector "neverCacheEffectiveLayoutSize") ~typ:(returning bool) +let newSnapshotWithRect x self = msg_send ~self ~cmd:(selector "newSnapshotWithRect:") ~typ:(CGRect.t @-> returning (ptr CGImage.t)) x +let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning id) +let nukeContentLayoutSizeCacheFromOrbit self = msg_send ~self ~cmd:(selector "nukeContentLayoutSizeCacheFromOrbit") ~typ:(returning void) +let origin self = msg_send ~self ~cmd:(selector "origin") ~typ:(returning CGPoint.t) +let overrideUserInterfaceStyle self = msg_send ~self ~cmd:(selector "overrideUserInterfaceStyle") ~typ:(returning llong) +let parentFocusEnvironment self = msg_send ~self ~cmd:(selector "parentFocusEnvironment") ~typ:(returning id) +let pointInside x ~forEvent self = msg_send ~self ~cmd:(selector "pointInside:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning bool) x forEvent +let pointInside' x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let position self = msg_send ~self ~cmd:(selector "position") ~typ:(returning CGPoint.t) +let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning id) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let preservesSuperviewLayoutMargins self = msg_send ~self ~cmd:(selector "preservesSuperviewLayoutMargins") ~typ:(returning bool) +let readableContentGuide self = msg_send ~self ~cmd:(selector "readableContentGuide") ~typ:(returning id) +let recursiveDescription self = msg_send ~self ~cmd:(selector "recursiveDescription") ~typ:(returning id) +let recursivelyForceDisplayIfNeeded self = msg_send ~self ~cmd:(selector "recursivelyForceDisplayIfNeeded") ~typ:(returning void) +let reduceWidth x self = msg_send ~self ~cmd:(selector "reduceWidth:") ~typ:(double @-> returning void) x +let release self = msg_send ~self ~cmd:(selector "release") ~typ:(returning void) +let removeAllGestureRecognizers self = msg_send ~self ~cmd:(selector "removeAllGestureRecognizers") ~typ:(returning void) +let removeConstraint x self = msg_send ~self ~cmd:(selector "removeConstraint:") ~typ:(id @-> returning void) x +let removeConstraints x self = msg_send ~self ~cmd:(selector "removeConstraints:") ~typ:(id @-> returning void) x +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let removeGestureRecognizer x self = msg_send ~self ~cmd:(selector "removeGestureRecognizer:") ~typ:(id @-> returning void) x +let removeInteraction x self = msg_send ~self ~cmd:(selector "removeInteraction:") ~typ:(id @-> returning void) x +let removeLayoutGuide x self = msg_send ~self ~cmd:(selector "removeLayoutGuide:") ~typ:(id @-> returning void) x +let removeMotionEffect x self = msg_send ~self ~cmd:(selector "removeMotionEffect:") ~typ:(id @-> returning void) x +let resizableSnapshotFromRect x ~withCapInsets self = msg_send ~self ~cmd:(selector "resizableSnapshotFromRect:withCapInsets:") ~typ:(CGRect.t @-> UIEdgeInsets.t @-> returning id) x withCapInsets +let resizableSnapshotViewFromRect x ~withCapInsets self = msg_send ~self ~cmd:(selector "resizableSnapshotViewFromRect:withCapInsets:") ~typ:(CGRect.t @-> UIEdgeInsets.t @-> returning id) x withCapInsets +let resizableSnapshotViewFromRect' x ~afterScreenUpdates ~withCapInsets self = msg_send ~self ~cmd:(selector "resizableSnapshotViewFromRect:afterScreenUpdates:withCapInsets:") ~typ:(CGRect.t @-> bool @-> UIEdgeInsets.t @-> returning id) x afterScreenUpdates withCapInsets +let resizeSubviewsWithOldSize x self = msg_send ~self ~cmd:(selector "resizeSubviewsWithOldSize:") ~typ:(CGSize.t @-> returning void) x +let resizeWithOldSuperviewSize x self = msg_send ~self ~cmd:(selector "resizeWithOldSuperviewSize:") ~typ:(CGSize.t @-> returning void) x +let restoreUserActivityState x self = msg_send ~self ~cmd:(selector "restoreUserActivityState:") ~typ:(id @-> returning void) x +let retain self = msg_send ~self ~cmd:(selector "retain") ~typ:(returning id) +let retainCount self = msg_send ~self ~cmd:(selector "retainCount") ~typ:(returning ullong) +let rightAnchor self = msg_send ~self ~cmd:(selector "rightAnchor") ~typ:(returning id) +let safeAreaInsets self = msg_send ~self ~cmd:(selector "safeAreaInsets") ~typ:(returning UIEdgeInsets.t) +let safeAreaInsetsDidChange self = msg_send ~self ~cmd:(selector "safeAreaInsetsDidChange") ~typ:(returning void) +let safeAreaLayoutGuide self = msg_send ~self ~cmd:(selector "safeAreaLayoutGuide") ~typ:(returning id) +let scalesLargeContentImage self = msg_send ~self ~cmd:(selector "scalesLargeContentImage") ~typ:(returning bool) +let scriptingInfoWithChildren self = msg_send ~self ~cmd:(selector "scriptingInfoWithChildren") ~typ:(returning id) +let semanticContentAttribute self = msg_send ~self ~cmd:(selector "semanticContentAttribute") ~typ:(returning llong) +let sendSubviewToBack x self = msg_send ~self ~cmd:(selector "sendSubviewToBack:") ~typ:(id @-> returning void) x +let setAccessibilityIgnoresInvertColors x self = msg_send ~self ~cmd:(selector "setAccessibilityIgnoresInvertColors:") ~typ:(bool @-> returning void) x +let setAllowsGroupBlending x self = msg_send ~self ~cmd:(selector "setAllowsGroupBlending:") ~typ:(bool @-> returning void) x +let setAllowsGroupOpacity x self = msg_send ~self ~cmd:(selector "setAllowsGroupOpacity:") ~typ:(bool @-> returning void) x +let setAlpha x self = msg_send ~self ~cmd:(selector "setAlpha:") ~typ:(double @-> returning void) x +let setAreChildrenFocused x self = msg_send ~self ~cmd:(selector "setAreChildrenFocused:") ~typ:(bool @-> returning void) x +let setAutoresizesSubviews x self = msg_send ~self ~cmd:(selector "setAutoresizesSubviews:") ~typ:(bool @-> returning void) x +let setAutoresizingMask x self = msg_send ~self ~cmd:(selector "setAutoresizingMask:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning void) x +let setCharge x self = msg_send ~self ~cmd:(selector "setCharge:") ~typ:(float @-> returning void) x +let setClearsContext x self = msg_send ~self ~cmd:(selector "setClearsContext:") ~typ:(bool @-> returning void) x +let setClearsContextBeforeDrawing x self = msg_send ~self ~cmd:(selector "setClearsContextBeforeDrawing:") ~typ:(bool @-> returning void) x +let setClipsSubviews x self = msg_send ~self ~cmd:(selector "setClipsSubviews:") ~typ:(bool @-> returning void) x +let setClipsToBounds x self = msg_send ~self ~cmd:(selector "setClipsToBounds:") ~typ:(bool @-> returning void) x +let setCompositingMode x self = msg_send ~self ~cmd:(selector "setCompositingMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContentCompressionResistancePriority x ~forAxis self = msg_send ~self ~cmd:(selector "setContentCompressionResistancePriority:forAxis:") ~typ:(float @-> llong @-> returning void) x (LLong.of_int forAxis) +let setContentHuggingPriority x ~forAxis self = msg_send ~self ~cmd:(selector "setContentHuggingPriority:forAxis:") ~typ:(float @-> llong @-> returning void) x (LLong.of_int forAxis) +let setContentMode x self = msg_send ~self ~cmd:(selector "setContentMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContentScaleFactor x self = msg_send ~self ~cmd:(selector "setContentScaleFactor:") ~typ:(double @-> returning void) x +let setContentStretch x self = msg_send ~self ~cmd:(selector "setContentStretch:") ~typ:(CGRect.t @-> returning void) x +let setContentsPosition x self = msg_send ~self ~cmd:(selector "setContentsPosition:") ~typ:(int @-> returning void) x +let setCurrentEffectiveLayoutSizeFittingSizeShouldNotBeCached self = msg_send ~self ~cmd:(selector "setCurrentEffectiveLayoutSizeFittingSizeShouldNotBeCached") ~typ:(returning void) +let setCustomAlignmentRectInsets x self = msg_send ~self ~cmd:(selector "setCustomAlignmentRectInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setCustomBaselineOffsetFromBottom x self = msg_send ~self ~cmd:(selector "setCustomBaselineOffsetFromBottom:") ~typ:(double @-> returning void) x +let setCustomFirstBaselineOffsetFromTop x self = msg_send ~self ~cmd:(selector "setCustomFirstBaselineOffsetFromTop:") ~typ:(double @-> returning void) x +let setDeliversButtonsForGesturesToSuperview x self = msg_send ~self ~cmd:(selector "setDeliversButtonsForGesturesToSuperview:") ~typ:(bool @-> returning void) x +let setDeliversTouchesForGesturesToSuperview x self = msg_send ~self ~cmd:(selector "setDeliversTouchesForGesturesToSuperview:") ~typ:(bool @-> returning void) x +let setDirectionalLayoutMargins x self = msg_send ~self ~cmd:(selector "setDirectionalLayoutMargins:") ~typ:(NSDirectionalEdgeInsets.t @-> returning void) x +let setDrawingFindIndicator x self = msg_send ~self ~cmd:(selector "setDrawingFindIndicator:") ~typ:(bool @-> returning void) x +let setEdgesInsettingLayoutMarginsFromSafeArea x self = msg_send ~self ~cmd:(selector "setEdgesInsettingLayoutMarginsFromSafeArea:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setEdgesPreservingSuperviewLayoutMargins x self = msg_send ~self ~cmd:(selector "setEdgesPreservingSuperviewLayoutMargins:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setExclusiveTouch x self = msg_send ~self ~cmd:(selector "setExclusiveTouch:") ~typ:(bool @-> returning void) x +let setFakeScribbleInteractionDelegate x self = msg_send ~self ~cmd:(selector "setFakeScribbleInteractionDelegate:") ~typ:(id @-> returning void) x +let setFixedBackgroundPattern x self = msg_send ~self ~cmd:(selector "setFixedBackgroundPattern:") ~typ:(bool @-> returning void) x +let setFocusEffect x self = msg_send ~self ~cmd:(selector "setFocusEffect:") ~typ:(id @-> returning void) x +let setFocusGroupIdentifier x self = msg_send ~self ~cmd:(selector "setFocusGroupIdentifier:") ~typ:(id @-> returning void) x +let setFocusGroupPriority x self = msg_send ~self ~cmd:(selector "setFocusGroupPriority:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setFrame' x ~forFields self = msg_send ~self ~cmd:(selector "setFrame:forFields:") ~typ:(CGRect.t @-> int @-> returning void) x forFields +let setFrameOrigin x self = msg_send ~self ~cmd:(selector "setFrameOrigin:") ~typ:(CGPoint.t @-> returning void) x +let setGestureRecognizers x self = msg_send ~self ~cmd:(selector "setGestureRecognizers:") ~typ:(id @-> returning void) x +let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning void) x +let setHitTestDirectionalInsets x self = msg_send ~self ~cmd:(selector "setHitTestDirectionalInsets:") ~typ:(NSDirectionalEdgeInsets.t @-> returning void) x +let setHitTestInsets x self = msg_send ~self ~cmd:(selector "setHitTestInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setInsetsLayoutMarginsFromSafeArea x self = msg_send ~self ~cmd:(selector "setInsetsLayoutMarginsFromSafeArea:") ~typ:(bool @-> returning void) x +let setInteractionTintColor x self = msg_send ~self ~cmd:(selector "setInteractionTintColor:") ~typ:(id @-> returning void) x +let setInteractions x self = msg_send ~self ~cmd:(selector "setInteractions:") ~typ:(id @-> returning void) x +let setInvalidatingIntrinsicContentSizeAlsoInvalidatesSuperview x self = msg_send ~self ~cmd:(selector "setInvalidatingIntrinsicContentSizeAlsoInvalidatesSuperview:") ~typ:(bool @-> returning void) x +let setLargeContentImage x self = msg_send ~self ~cmd:(selector "setLargeContentImage:") ~typ:(id @-> returning void) x +let setLargeContentImageInsets x self = msg_send ~self ~cmd:(selector "setLargeContentImageInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setLargeContentTitle x self = msg_send ~self ~cmd:(selector "setLargeContentTitle:") ~typ:(id @-> returning void) x +let setLayoutMargins x self = msg_send ~self ~cmd:(selector "setLayoutMargins:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setLayoutMarginsFollowReadableWidth x self = msg_send ~self ~cmd:(selector "setLayoutMarginsFollowReadableWidth:") ~typ:(bool @-> returning void) x +let setLayoutSize x ~withContentPriority self = msg_send ~self ~cmd:(selector "setLayoutSize:withContentPriority:") ~typ:(CGSize.t @-> float @-> returning void) x withContentPriority +let setLayoutSize' x ~withHorizontalContentPriority ~verticalContentPriority self = msg_send ~self ~cmd:(selector "setLayoutSize:withHorizontalContentPriority:verticalContentPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning void) x withHorizontalContentPriority verticalContentPriority +let setMaskView x self = msg_send ~self ~cmd:(selector "setMaskView:") ~typ:(id @-> returning void) x +let setMaximumContentSizeCategory x self = msg_send ~self ~cmd:(selector "setMaximumContentSizeCategory:") ~typ:(id @-> returning void) x +let setMaximumLayoutSize x self = msg_send ~self ~cmd:(selector "setMaximumLayoutSize:") ~typ:(CGSize.t @-> returning void) x +let setMinimumContentSizeCategory x self = msg_send ~self ~cmd:(selector "setMinimumContentSizeCategory:") ~typ:(id @-> returning void) x +let setMinimumLayoutSize x self = msg_send ~self ~cmd:(selector "setMinimumLayoutSize:") ~typ:(CGSize.t @-> returning void) x +let setMotionEffects x self = msg_send ~self ~cmd:(selector "setMotionEffects:") ~typ:(id @-> returning void) x +let setMultipleTouchEnabled x self = msg_send ~self ~cmd:(selector "setMultipleTouchEnabled:") ~typ:(bool @-> returning void) x +let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning void) +let setNeedsDisplayInRect x self = msg_send ~self ~cmd:(selector "setNeedsDisplayInRect:") ~typ:(CGRect.t @-> returning void) x +let setNeedsDisplayOnBoundsChange x self = msg_send ~self ~cmd:(selector "setNeedsDisplayOnBoundsChange:") ~typ:(bool @-> returning void) x +let setNeedsFocusUpdate self = msg_send ~self ~cmd:(selector "setNeedsFocusUpdate") ~typ:(returning void) +let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning void) +let setNeedsPreferredFocusedItemUpdate self = msg_send ~self ~cmd:(selector "setNeedsPreferredFocusedItemUpdate") ~typ:(returning void) +let setNeedsUpdateConstraints self = msg_send ~self ~cmd:(selector "setNeedsUpdateConstraints") ~typ:(returning void) +let setNeverCacheEffectiveLayoutSize x self = msg_send ~self ~cmd:(selector "setNeverCacheEffectiveLayoutSize:") ~typ:(bool @-> returning void) x +let setOpaque x self = msg_send ~self ~cmd:(selector "setOpaque:") ~typ:(bool @-> returning void) x +let setOrigin x self = msg_send ~self ~cmd:(selector "setOrigin:") ~typ:(CGPoint.t @-> returning void) x +let setOverrideUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setOverrideUserInterfaceStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPosition x self = msg_send ~self ~cmd:(selector "setPosition:") ~typ:(CGPoint.t @-> returning void) x +let setPresentationValue x ~forKey ~updateIfExists self = msg_send ~self ~cmd:(selector "setPresentationValue:forKey:updateIfExists:") ~typ:(id @-> id @-> bool @-> returning void) x forKey updateIfExists +let setPreservesSuperviewLayoutMargins x self = msg_send ~self ~cmd:(selector "setPreservesSuperviewLayoutMargins:") ~typ:(bool @-> returning void) x +let setRotationBy x self = msg_send ~self ~cmd:(selector "setRotationBy:") ~typ:(float @-> returning void) x +let setSafeAreaInsets x self = msg_send ~self ~cmd:(selector "setSafeAreaInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setScalesLargeContentImage x self = msg_send ~self ~cmd:(selector "setScalesLargeContentImage:") ~typ:(bool @-> returning void) x +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setShowsLargeContentViewer x self = msg_send ~self ~cmd:(selector "setShowsLargeContentViewer:") ~typ:(bool @-> returning void) x +let setSize x self = msg_send ~self ~cmd:(selector "setSize:") ~typ:(CGSize.t @-> returning void) x +let setSkipsSubviewEnumeration x self = msg_send ~self ~cmd:(selector "setSkipsSubviewEnumeration:") ~typ:(bool @-> returning void) x +let setTag x self = msg_send ~self ~cmd:(selector "setTag:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTintAdjustmentMode x self = msg_send ~self ~cmd:(selector "setTintAdjustmentMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let setTransform3D x self = msg_send ~self ~cmd:(selector "setTransform3D:") ~typ:(CATransform3D.t @-> returning void) x +let setTransform x self = msg_send ~self ~cmd:(selector "setTransform:") ~typ:(CGAffineTransform.t @-> returning void) x +let setTranslatesAutoresizingMaskIntoConstraints x self = msg_send ~self ~cmd:(selector "setTranslatesAutoresizingMaskIntoConstraints:") ~typ:(bool @-> returning void) x +let setUntransformedFrame x self = msg_send ~self ~cmd:(selector "setUntransformedFrame:") ~typ:(CGRect.t @-> returning void) x +let setUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabled:") ~typ:(bool @-> returning void) x +let setValue x ~forKey self = msg_send ~self ~cmd:(selector "setValue:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let setViewTraversalMark x self = msg_send ~self ~cmd:(selector "setViewTraversalMark:") ~typ:(bool @-> returning void) x +let setWantsDeepColorDrawing x self = msg_send ~self ~cmd:(selector "setWantsDeepColorDrawing:") ~typ:(bool @-> returning void) x +let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning bool) x +let showsLargeContentViewer self = msg_send ~self ~cmd:(selector "showsLargeContentViewer") ~typ:(returning bool) +let size self = msg_send ~self ~cmd:(selector "size") ~typ:(returning CGSize.t) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let sizeToFit self = msg_send ~self ~cmd:(selector "sizeToFit") ~typ:(returning void) +let skipsSubviewEnumeration self = msg_send ~self ~cmd:(selector "skipsSubviewEnumeration") ~typ:(returning bool) +let snapshot self = msg_send ~self ~cmd:(selector "snapshot") ~typ:(returning id) +let snapshotView self = msg_send ~self ~cmd:(selector "snapshotView") ~typ:(returning id) +let snapshotViewAfterScreenUpdates x self = msg_send ~self ~cmd:(selector "snapshotViewAfterScreenUpdates:") ~typ:(bool @-> returning id) x +let solutionDidChangeInEngine x self = msg_send ~self ~cmd:(selector "solutionDidChangeInEngine:") ~typ:(id @-> returning void) x +let stopSettingPresentationValueForKey x self = msg_send ~self ~cmd:(selector "stopSettingPresentationValueForKey:") ~typ:(id @-> returning void) x +let subviews self = msg_send ~self ~cmd:(selector "subviews") ~typ:(returning id) +let superview self = msg_send ~self ~cmd:(selector "superview") ~typ:(returning id) +let systemLayoutSizeFittingSize x self = msg_send ~self ~cmd:(selector "systemLayoutSizeFittingSize:") ~typ:(CGSize.t @-> returning CGSize.t) x +let systemLayoutSizeFittingSize' x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning CGSize.t) x withHorizontalFittingPriority verticalFittingPriority +let systemSpacingToAdjecentSiblingView x ~axis ~baselineRelative ~multiplier self = msg_send ~self ~cmd:(selector "systemSpacingToAdjecentSiblingView:axis:baselineRelative:multiplier:") ~typ:(id @-> llong @-> bool @-> double @-> returning double) x (LLong.of_int axis) baselineRelative multiplier +let systemSpacingToSuperView x ~edge ~baselineRelative ~multiplier self = msg_send ~self ~cmd:(selector "systemSpacingToSuperView:edge:baselineRelative:multiplier:") ~typ:(id @-> ullong @-> bool @-> double @-> returning double) x (ULLong.of_int edge) baselineRelative multiplier +let tag self = msg_send ~self ~cmd:(selector "tag") ~typ:(returning llong) +let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning int) +let textEffectsVisibilityLevelInKeyboardWindow self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevelInKeyboardWindow") ~typ:(returning int) +let textInputView self = msg_send ~self ~cmd:(selector "textInputView") ~typ:(returning id) +let tintAdjustmentMode self = msg_send ~self ~cmd:(selector "tintAdjustmentMode") ~typ:(returning llong) +let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning id) +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let tintColorOverride self = msg_send ~self ~cmd:(selector "tintColorOverride") ~typ:(returning id) +let tintColorOverrideDarkened self = msg_send ~self ~cmd:(selector "tintColorOverrideDarkened") ~typ:(returning id) +let topAnchor self = msg_send ~self ~cmd:(selector "topAnchor") ~typ:(returning id) +let trailingAnchor self = msg_send ~self ~cmd:(selector "trailingAnchor") ~typ:(returning id) +let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let transform self = msg_send ~self ~cmd:(selector "transform") ~typ:(returning CGAffineTransform.t) +let transform3D self = msg_send ~self ~cmd:(selector "transform3D") ~typ:(returning CATransform3D.t) +let translatesAutoresizingMaskIntoConstraints self = msg_send ~self ~cmd:(selector "translatesAutoresizingMaskIntoConstraints") ~typ:(returning bool) +let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning void) +let updateConstraintsIfNeeded self = msg_send ~self ~cmd:(selector "updateConstraintsIfNeeded") ~typ:(returning void) +let updateFocusIfNeeded self = msg_send ~self ~cmd:(selector "updateFocusIfNeeded") ~typ:(returning void) +let updateUserActivityState x self = msg_send ~self ~cmd:(selector "updateUserActivityState:") ~typ:(id @-> returning void) x +let useBlockyMagnificationInClassic self = msg_send ~self ~cmd:(selector "useBlockyMagnificationInClassic") ~typ:(returning bool) +let viewDidMoveToSuperview self = msg_send ~self ~cmd:(selector "viewDidMoveToSuperview") ~typ:(returning void) +let viewForBaselineLayout self = msg_send ~self ~cmd:(selector "viewForBaselineLayout") ~typ:(returning id) +let viewForFirstBaselineLayout self = msg_send ~self ~cmd:(selector "viewForFirstBaselineLayout") ~typ:(returning id) +let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning id) +let viewPrintFormatter self = msg_send ~self ~cmd:(selector "viewPrintFormatter") ~typ:(returning id) +let viewTraversalMark self = msg_send ~self ~cmd:(selector "viewTraversalMark") ~typ:(returning bool) +let viewWillMoveToSuperview x self = msg_send ~self ~cmd:(selector "viewWillMoveToSuperview:") ~typ:(id @-> returning void) x +let viewWithTag x self = msg_send ~self ~cmd:(selector "viewWithTag:") ~typ:(llong @-> returning id) (LLong.of_int x) +let visibleBounds self = msg_send ~self ~cmd:(selector "visibleBounds") ~typ:(returning CGRect.t) +let wantsDeepColorDrawing self = msg_send ~self ~cmd:(selector "wantsDeepColorDrawing") ~typ:(returning bool) +let widthAnchor self = msg_send ~self ~cmd:(selector "widthAnchor") ~typ:(returning id) +let willMoveToSuperview x self = msg_send ~self ~cmd:(selector "willMoveToSuperview:") ~typ:(id @-> returning void) x +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x +let willRemoveSubview x self = msg_send ~self ~cmd:(selector "willRemoveSubview:") ~typ:(id @-> returning void) x +let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIViewAnimation.ml b/uikit/UIViewAnimation.ml index 6eb8d74a..ff8e35cc 100644 --- a/uikit/UIViewAnimation.ml +++ b/uikit/UIViewAnimation.ml @@ -5,27 +5,31 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewAnimation" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewanimation?language=objc}UIViewAnimation} *) -let animateFromCurrentPosition self = msg_send ~self ~cmd:(selector "animateFromCurrentPosition") ~typ:(returning (bool)) -let curve self = msg_send ~self ~cmd:(selector "curve") ~typ:(returning (int)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let editing self = msg_send ~self ~cmd:(selector "editing") ~typ:(returning (bool)) -let endAlpha self = msg_send ~self ~cmd:(selector "endAlpha") ~typ:(returning (double)) -let endFraction self = msg_send ~self ~cmd:(selector "endFraction") ~typ:(returning (double)) -let endRect self = msg_send_stret ~self ~cmd:(selector "endRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let indexPath self = msg_send ~self ~cmd:(selector "indexPath") ~typ:(returning (id)) -let initWithView x ~indexPath ~viewType ~endRect ~endAlpha ~startFraction ~endFraction ~curve ~animateFromCurrentPosition ~shouldDeleteAfterAnimation ~editing self = msg_send ~self ~cmd:(selector "initWithView:indexPath:viewType:endRect:endAlpha:startFraction:endFraction:curve:animateFromCurrentPosition:shouldDeleteAfterAnimation:editing:") ~typ:(id @-> id @-> int @-> CGRect.t @-> double @-> double @-> double @-> int @-> bool @-> bool @-> bool @-> returning (id)) x indexPath viewType endRect endAlpha startFraction endFraction curve animateFromCurrentPosition shouldDeleteAfterAnimation editing -let setShouldAllowGroupOpacityAfterAnimation x self = msg_send ~self ~cmd:(selector "setShouldAllowGroupOpacityAfterAnimation:") ~typ:(bool @-> returning (void)) x -let setShouldAnimateShadow x self = msg_send ~self ~cmd:(selector "setShouldAnimateShadow:") ~typ:(bool @-> returning (void)) x -let setShouldClipToBoundsAfterAnimation x self = msg_send ~self ~cmd:(selector "setShouldClipToBoundsAfterAnimation:") ~typ:(bool @-> returning (void)) x -let setShouldResetGroupOpacityAfterAnimation x self = msg_send ~self ~cmd:(selector "setShouldResetGroupOpacityAfterAnimation:") ~typ:(bool @-> returning (void)) x -let shouldAllowGroupOpacityAfterAnimation self = msg_send ~self ~cmd:(selector "shouldAllowGroupOpacityAfterAnimation") ~typ:(returning (bool)) -let shouldAnimateShadow self = msg_send ~self ~cmd:(selector "shouldAnimateShadow") ~typ:(returning (bool)) -let shouldClipToBoundsAfterAnimation self = msg_send ~self ~cmd:(selector "shouldClipToBoundsAfterAnimation") ~typ:(returning (bool)) -let shouldDeleteAfterAnimation self = msg_send ~self ~cmd:(selector "shouldDeleteAfterAnimation") ~typ:(returning (bool)) -let shouldResetGroupOpacityAfterAnimation self = msg_send ~self ~cmd:(selector "shouldResetGroupOpacityAfterAnimation") ~typ:(returning (bool)) -let startFraction self = msg_send ~self ~cmd:(selector "startFraction") ~typ:(returning (double)) -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let viewType self = msg_send ~self ~cmd:(selector "viewType") ~typ:(returning (int)) \ No newline at end of file +let self = get_class "UIViewAnimation" + +let animateFromCurrentPosition self = msg_send ~self ~cmd:(selector "animateFromCurrentPosition") ~typ:(returning bool) +let curve self = msg_send ~self ~cmd:(selector "curve") ~typ:(returning int) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let editing self = msg_send ~self ~cmd:(selector "editing") ~typ:(returning bool) +let endAlpha self = msg_send ~self ~cmd:(selector "endAlpha") ~typ:(returning double) +let endFraction self = msg_send ~self ~cmd:(selector "endFraction") ~typ:(returning double) +let endRect self = msg_send ~self ~cmd:(selector "endRect") ~typ:(returning CGRect.t) +let indexPath self = msg_send ~self ~cmd:(selector "indexPath") ~typ:(returning id) +let initWithView x ~indexPath ~viewType ~endRect ~endAlpha ~startFraction ~endFraction ~curve ~animateFromCurrentPosition ~shouldDeleteAfterAnimation ~editing self = msg_send ~self ~cmd:(selector "initWithView:indexPath:viewType:endRect:endAlpha:startFraction:endFraction:curve:animateFromCurrentPosition:shouldDeleteAfterAnimation:editing:") ~typ:(id @-> id @-> int @-> CGRect.t @-> double @-> double @-> double @-> int @-> bool @-> bool @-> bool @-> returning id) x indexPath viewType endRect endAlpha startFraction endFraction curve animateFromCurrentPosition shouldDeleteAfterAnimation editing +let setShouldAllowGroupOpacityAfterAnimation x self = msg_send ~self ~cmd:(selector "setShouldAllowGroupOpacityAfterAnimation:") ~typ:(bool @-> returning void) x +let setShouldAnimateShadow x self = msg_send ~self ~cmd:(selector "setShouldAnimateShadow:") ~typ:(bool @-> returning void) x +let setShouldClipToBoundsAfterAnimation x self = msg_send ~self ~cmd:(selector "setShouldClipToBoundsAfterAnimation:") ~typ:(bool @-> returning void) x +let setShouldResetGroupOpacityAfterAnimation x self = msg_send ~self ~cmd:(selector "setShouldResetGroupOpacityAfterAnimation:") ~typ:(bool @-> returning void) x +let shouldAllowGroupOpacityAfterAnimation self = msg_send ~self ~cmd:(selector "shouldAllowGroupOpacityAfterAnimation") ~typ:(returning bool) +let shouldAnimateShadow self = msg_send ~self ~cmd:(selector "shouldAnimateShadow") ~typ:(returning bool) +let shouldClipToBoundsAfterAnimation self = msg_send ~self ~cmd:(selector "shouldClipToBoundsAfterAnimation") ~typ:(returning bool) +let shouldDeleteAfterAnimation self = msg_send ~self ~cmd:(selector "shouldDeleteAfterAnimation") ~typ:(returning bool) +let shouldResetGroupOpacityAfterAnimation self = msg_send ~self ~cmd:(selector "shouldResetGroupOpacityAfterAnimation") ~typ:(returning bool) +let startFraction self = msg_send ~self ~cmd:(selector "startFraction") ~typ:(returning double) +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let viewType self = msg_send ~self ~cmd:(selector "viewType") ~typ:(returning int) \ No newline at end of file diff --git a/uikit/UIViewAnimationComposer.ml b/uikit/UIViewAnimationComposer.ml index 71776038..9f7702b4 100644 --- a/uikit/UIViewAnimationComposer.ml +++ b/uikit/UIViewAnimationComposer.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewAnimationComposer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewanimationcomposer?language=objc}UIViewAnimationComposer} *) -let composeAnimation x ~withNewAnimationDescription ~interactive ~currentValue ~targetValue self = msg_send ~self ~cmd:(selector "composeAnimation:withNewAnimationDescription:interactive:currentValue:targetValue:") ~typ:(id @-> id @-> bool @-> id @-> id @-> returning (id)) x withNewAnimationDescription interactive currentValue targetValue -let createAnimationFromDescription x ~currentValue ~velocity ~targetValue self = msg_send ~self ~cmd:(selector "createAnimationFromDescription:currentValue:velocity:targetValue:") ~typ:(id @-> id @-> id @-> id @-> returning (id)) x currentValue velocity targetValue -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning (bool)) -let projectValue x ~decelerationFactor self = msg_send ~self ~cmd:(selector "projectValue:decelerationFactor:") ~typ:(id @-> double @-> returning (id)) x decelerationFactor -let setTargetVelocity x self = msg_send ~self ~cmd:(selector "setTargetVelocity:") ~typ:(id @-> returning (void)) x -let targetVelocity self = msg_send ~self ~cmd:(selector "targetVelocity") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIViewAnimationComposer" + +let composeAnimation x ~withNewAnimationDescription ~interactive ~currentValue ~targetValue self = msg_send ~self ~cmd:(selector "composeAnimation:withNewAnimationDescription:interactive:currentValue:targetValue:") ~typ:(id @-> id @-> bool @-> id @-> id @-> returning id) x withNewAnimationDescription interactive currentValue targetValue +let createAnimationFromDescription x ~currentValue ~velocity ~targetValue self = msg_send ~self ~cmd:(selector "createAnimationFromDescription:currentValue:velocity:targetValue:") ~typ:(id @-> id @-> id @-> id @-> returning id) x currentValue velocity targetValue +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning bool) +let projectValue x ~decelerationFactor self = msg_send ~self ~cmd:(selector "projectValue:decelerationFactor:") ~typ:(id @-> double @-> returning id) x decelerationFactor +let setTargetVelocity x self = msg_send ~self ~cmd:(selector "setTargetVelocity:") ~typ:(id @-> returning void) x +let targetVelocity self = msg_send ~self ~cmd:(selector "targetVelocity") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIViewAnimationContext.ml b/uikit/UIViewAnimationContext.ml index 22dc48fd..3b826406 100644 --- a/uikit/UIViewAnimationContext.ml +++ b/uikit/UIViewAnimationContext.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewAnimationContext" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewanimationcontext?language=objc}UIViewAnimationContext} *) -let animationCount self = msg_send ~self ~cmd:(selector "animationCount") ~typ:(returning (llong)) +let self = get_class "UIViewAnimationContext" + +let animationCount self = msg_send ~self ~cmd:(selector "animationCount") ~typ:(returning llong) let completionHandler self = msg_send ~self ~cmd:(selector "completionHandler") ~typ:(returning (ptr void)) -let initWithCompletionHandler x self = msg_send ~self ~cmd:(selector "initWithCompletionHandler:") ~typ:(ptr void @-> returning (id)) x -let setAnimationCount x self = msg_send ~self ~cmd:(selector "setAnimationCount:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSwipeToDeleteCell x self = msg_send ~self ~cmd:(selector "setSwipeToDeleteCell:") ~typ:(id @-> returning (void)) x -let setViewAnimations x self = msg_send ~self ~cmd:(selector "setViewAnimations:") ~typ:(id @-> returning (void)) x -let swipeToDeleteCell self = msg_send ~self ~cmd:(selector "swipeToDeleteCell") ~typ:(returning (id)) -let viewAnimations self = msg_send ~self ~cmd:(selector "viewAnimations") ~typ:(returning (id)) \ No newline at end of file +let initWithCompletionHandler x self = msg_send ~self ~cmd:(selector "initWithCompletionHandler:") ~typ:((ptr void) @-> returning id) x +let setAnimationCount x self = msg_send ~self ~cmd:(selector "setAnimationCount:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSwipeToDeleteCell x self = msg_send ~self ~cmd:(selector "setSwipeToDeleteCell:") ~typ:(id @-> returning void) x +let setViewAnimations x self = msg_send ~self ~cmd:(selector "setViewAnimations:") ~typ:(id @-> returning void) x +let swipeToDeleteCell self = msg_send ~self ~cmd:(selector "swipeToDeleteCell") ~typ:(returning id) +let viewAnimations self = msg_send ~self ~cmd:(selector "viewAnimations") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIViewAnimationInfo.ml b/uikit/UIViewAnimationInfo.ml index b8df407b..662f3d42 100644 --- a/uikit/UIViewAnimationInfo.ml +++ b/uikit/UIViewAnimationInfo.ml @@ -5,29 +5,33 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewAnimationInfo" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewanimationinfo?language=objc}UIViewAnimationInfo} *) -let animatableProperties self = msg_send ~self ~cmd:(selector "animatableProperties") ~typ:(returning (id)) -let animatablePropertyForKey x ~createIfNecessary self = msg_send ~self ~cmd:(selector "animatablePropertyForKey:createIfNecessary:") ~typ:(id @-> bool @-> returning (id)) x createIfNecessary -let animatablePropertyKeys self = msg_send ~self ~cmd:(selector "animatablePropertyKeys") ~typ:(returning (id)) -let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning (id)) x +let self = get_class "UIViewAnimationInfo" + +let animatableProperties self = msg_send ~self ~cmd:(selector "animatableProperties") ~typ:(returning id) +let animatablePropertyForKey x ~createIfNecessary self = msg_send ~self ~cmd:(selector "animatablePropertyForKey:createIfNecessary:") ~typ:(id @-> bool @-> returning id) x createIfNecessary +let animatablePropertyKeys self = msg_send ~self ~cmd:(selector "animatablePropertyKeys") ~typ:(returning id) +let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning id) x let invalidationBlock self = msg_send ~self ~cmd:(selector "invalidationBlock") ~typ:(returning (ptr void)) -let isPartOfHigherOrderProperty self = msg_send ~self ~cmd:(selector "isPartOfHigherOrderProperty") ~typ:(returning (id)) -let lockingQueue self = msg_send ~self ~cmd:(selector "lockingQueue") ~typ:(returning (id)) -let modifierGroupRequestHandlerForKey x self = msg_send ~self ~cmd:(selector "modifierGroupRequestHandlerForKey:") ~typ:(id @-> returning (id)) x -let modifierGroupRequestHandlers self = msg_send ~self ~cmd:(selector "modifierGroupRequestHandlers") ~typ:(returning (id)) -let owningView self = msg_send ~self ~cmd:(selector "owningView") ~typ:(returning (id)) -let performWithLock x self = msg_send ~self ~cmd:(selector "performWithLock:") ~typ:(ptr void @-> returning (void)) x -let presentationModifierForKey x self = msg_send ~self ~cmd:(selector "presentationModifierForKey:") ~typ:(id @-> returning (id)) x -let presentationModifiers self = msg_send ~self ~cmd:(selector "presentationModifiers") ~typ:(returning (id)) -let setAnimatableProperties x self = msg_send ~self ~cmd:(selector "setAnimatableProperties:") ~typ:(id @-> returning (void)) x -let setAnimatableProperty x ~forKey self = msg_send ~self ~cmd:(selector "setAnimatableProperty:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let setInvalidationBlock x self = msg_send ~self ~cmd:(selector "setInvalidationBlock:") ~typ:(ptr void @-> returning (void)) x -let setIsPartOfHigherOrderProperty x self = msg_send ~self ~cmd:(selector "setIsPartOfHigherOrderProperty:") ~typ:(id @-> returning (void)) x -let setLockingQueue x self = msg_send ~self ~cmd:(selector "setLockingQueue:") ~typ:(id @-> returning (void)) x -let setModifierGroupRequestHandler x ~forKey self = msg_send ~self ~cmd:(selector "setModifierGroupRequestHandler:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let setModifierGroupRequestHandlers x self = msg_send ~self ~cmd:(selector "setModifierGroupRequestHandlers:") ~typ:(id @-> returning (void)) x -let setOwningView x self = msg_send ~self ~cmd:(selector "setOwningView:") ~typ:(id @-> returning (void)) x -let setPresentationModifier x ~forKey self = msg_send ~self ~cmd:(selector "setPresentationModifier:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let setPresentationModifiers x self = msg_send ~self ~cmd:(selector "setPresentationModifiers:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let isPartOfHigherOrderProperty self = msg_send ~self ~cmd:(selector "isPartOfHigherOrderProperty") ~typ:(returning id) +let lockingQueue self = msg_send ~self ~cmd:(selector "lockingQueue") ~typ:(returning id) +let modifierGroupRequestHandlerForKey x self = msg_send ~self ~cmd:(selector "modifierGroupRequestHandlerForKey:") ~typ:(id @-> returning id) x +let modifierGroupRequestHandlers self = msg_send ~self ~cmd:(selector "modifierGroupRequestHandlers") ~typ:(returning id) +let owningView self = msg_send ~self ~cmd:(selector "owningView") ~typ:(returning id) +let performWithLock x self = msg_send ~self ~cmd:(selector "performWithLock:") ~typ:((ptr void) @-> returning void) x +let presentationModifierForKey x self = msg_send ~self ~cmd:(selector "presentationModifierForKey:") ~typ:(id @-> returning id) x +let presentationModifiers self = msg_send ~self ~cmd:(selector "presentationModifiers") ~typ:(returning id) +let setAnimatableProperties x self = msg_send ~self ~cmd:(selector "setAnimatableProperties:") ~typ:(id @-> returning void) x +let setAnimatableProperty x ~forKey self = msg_send ~self ~cmd:(selector "setAnimatableProperty:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let setInvalidationBlock x self = msg_send ~self ~cmd:(selector "setInvalidationBlock:") ~typ:((ptr void) @-> returning void) x +let setIsPartOfHigherOrderProperty x self = msg_send ~self ~cmd:(selector "setIsPartOfHigherOrderProperty:") ~typ:(id @-> returning void) x +let setLockingQueue x self = msg_send ~self ~cmd:(selector "setLockingQueue:") ~typ:(id @-> returning void) x +let setModifierGroupRequestHandler x ~forKey self = msg_send ~self ~cmd:(selector "setModifierGroupRequestHandler:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let setModifierGroupRequestHandlers x self = msg_send ~self ~cmd:(selector "setModifierGroupRequestHandlers:") ~typ:(id @-> returning void) x +let setOwningView x self = msg_send ~self ~cmd:(selector "setOwningView:") ~typ:(id @-> returning void) x +let setPresentationModifier x ~forKey self = msg_send ~self ~cmd:(selector "setPresentationModifier:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let setPresentationModifiers x self = msg_send ~self ~cmd:(selector "setPresentationModifiers:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIViewAnimationState.ml b/uikit/UIViewAnimationState.ml index d4b4f270..b2a30c52 100644 --- a/uikit/UIViewAnimationState.ml +++ b/uikit/UIViewAnimationState.ml @@ -5,28 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewAnimationState" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewanimationstate?language=objc}UIViewAnimationState} *) -module C = struct - let originalAnimationForKeyPath x ~inLayer self = msg_send ~self ~cmd:(selector "originalAnimationForKeyPath:inLayer:") ~typ:(id @-> id @-> returning (id)) x inLayer - let popAnimationState self = msg_send ~self ~cmd:(selector "popAnimationState") ~typ:(returning (void)) - let pushViewAnimationState x ~context self = msg_send ~self ~cmd:(selector "pushViewAnimationState:context:") ~typ:(id @-> ptr (void) @-> returning (void)) x context -end +let self = get_class "UIViewAnimationState" -let actionForLayer x ~forKey ~forView self = msg_send ~self ~cmd:(selector "actionForLayer:forKey:forView:") ~typ:(id @-> id @-> id @-> returning (id)) x forKey forView -let animationDidStart x self = msg_send ~self ~cmd:(selector "animationDidStart:") ~typ:(id @-> returning (void)) x -let animationDidStop x ~finished self = msg_send ~self ~cmd:(selector "animationDidStop:finished:") ~typ:(id @-> bool @-> returning (void)) x finished -let animationForLayer x ~forKey ~forView self = msg_send ~self ~cmd:(selector "animationForLayer:forKey:forView:") ~typ:(id @-> id @-> id @-> returning (id)) x forKey forView -let configureAnimation x ~forLayer ~forKey self = msg_send ~self ~cmd:(selector "configureAnimation:forLayer:forKey:") ~typ:(id @-> id @-> id @-> returning (void)) x forLayer forKey -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let pop self = msg_send ~self ~cmd:(selector "pop") ~typ:(returning (void)) -let pushWithViewAnimationID x ~context self = msg_send ~self ~cmd:(selector "pushWithViewAnimationID:context:") ~typ:(id @-> ptr (void) @-> returning (void)) x context -let sendDelegateAnimationDidStop x ~finished self = msg_send ~self ~cmd:(selector "sendDelegateAnimationDidStop:finished:") ~typ:(id @-> bool @-> returning (void)) x finished -let sendDelegateDidStopManually x self = msg_send ~self ~cmd:(selector "sendDelegateDidStopManually:") ~typ:(bool @-> returning (void)) x -let setAnimationAttributes x self = msg_send ~self ~cmd:(selector "setAnimationAttributes:") ~typ:(id @-> returning (void)) x -let setAnimationAttributes1 x ~skipDelegateAssignment self = msg_send ~self ~cmd:(selector "setAnimationAttributes:skipDelegateAssignment:") ~typ:(id @-> bool @-> returning (void)) x skipDelegateAssignment -let setAnimationAttributes2 x ~skipDelegateAssignment ~customCurve self = msg_send ~self ~cmd:(selector "setAnimationAttributes:skipDelegateAssignment:customCurve:") ~typ:(id @-> bool @-> id @-> returning (void)) x skipDelegateAssignment customCurve -let setupCustomTimingCurve self = msg_send ~self ~cmd:(selector "setupCustomTimingCurve") ~typ:(returning (void)) -let setupWithDuration x ~delay ~view ~options ~factory ~parentState ~start ~completion self = msg_send ~self ~cmd:(selector "setupWithDuration:delay:view:options:factory:parentState:start:completion:") ~typ:(double @-> double @-> id @-> ullong @-> id @-> id @-> ptr void @-> ptr void @-> returning (void)) x delay view (ULLong.of_int options) factory parentState start completion -let shouldAnimatePropertyWithKey x self = msg_send ~self ~cmd:(selector "shouldAnimatePropertyWithKey:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let actionForLayer x ~forKey ~forView self = msg_send ~self ~cmd:(selector "actionForLayer:forKey:forView:") ~typ:(id @-> id @-> id @-> returning id) x forKey forView +let animationDidStart x self = msg_send ~self ~cmd:(selector "animationDidStart:") ~typ:(id @-> returning void) x +let animationDidStop x ~finished self = msg_send ~self ~cmd:(selector "animationDidStop:finished:") ~typ:(id @-> bool @-> returning void) x finished +let animationForLayer x ~forKey ~forView self = msg_send ~self ~cmd:(selector "animationForLayer:forKey:forView:") ~typ:(id @-> id @-> id @-> returning id) x forKey forView +let configureAnimation x ~forLayer ~forKey self = msg_send ~self ~cmd:(selector "configureAnimation:forLayer:forKey:") ~typ:(id @-> id @-> id @-> returning void) x forLayer forKey +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let pop self = msg_send ~self ~cmd:(selector "pop") ~typ:(returning void) +let pushWithViewAnimationID x ~context self = msg_send ~self ~cmd:(selector "pushWithViewAnimationID:context:") ~typ:(id @-> (ptr void) @-> returning void) x context +let sendDelegateAnimationDidStop x ~finished self = msg_send ~self ~cmd:(selector "sendDelegateAnimationDidStop:finished:") ~typ:(id @-> bool @-> returning void) x finished +let sendDelegateDidStopManually x self = msg_send ~self ~cmd:(selector "sendDelegateDidStopManually:") ~typ:(bool @-> returning void) x +let setAnimationAttributes x self = msg_send ~self ~cmd:(selector "setAnimationAttributes:") ~typ:(id @-> returning void) x +let setAnimationAttributes1 x ~skipDelegateAssignment self = msg_send ~self ~cmd:(selector "setAnimationAttributes:skipDelegateAssignment:") ~typ:(id @-> bool @-> returning void) x skipDelegateAssignment +let setAnimationAttributes2 x ~skipDelegateAssignment ~customCurve self = msg_send ~self ~cmd:(selector "setAnimationAttributes:skipDelegateAssignment:customCurve:") ~typ:(id @-> bool @-> id @-> returning void) x skipDelegateAssignment customCurve +let setupCustomTimingCurve self = msg_send ~self ~cmd:(selector "setupCustomTimingCurve") ~typ:(returning void) +let setupWithDuration x ~delay ~view ~options ~factory ~parentState ~start ~completion self = msg_send ~self ~cmd:(selector "setupWithDuration:delay:view:options:factory:parentState:start:completion:") ~typ:(double @-> double @-> id @-> ullong @-> id @-> id @-> (ptr void) @-> (ptr void) @-> returning void) x delay view (ULLong.of_int options) factory parentState start completion +let shouldAnimatePropertyWithKey x self = msg_send ~self ~cmd:(selector "shouldAnimatePropertyWithKey:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIViewAnimationStateClass.ml b/uikit/UIViewAnimationStateClass.ml new file mode 100644 index 00000000..ad76d1c5 --- /dev/null +++ b/uikit/UIViewAnimationStateClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewanimationstate?language=objc}UIViewAnimationState} *) + +let originalAnimationForKeyPath x ~inLayer self = msg_send ~self ~cmd:(selector "originalAnimationForKeyPath:inLayer:") ~typ:(id @-> id @-> returning id) x inLayer +let popAnimationState self = msg_send ~self ~cmd:(selector "popAnimationState") ~typ:(returning void) +let pushViewAnimationState x ~context self = msg_send ~self ~cmd:(selector "pushViewAnimationState:context:") ~typ:(id @-> (ptr void) @-> returning void) x context \ No newline at end of file diff --git a/uikit/UIViewBlockBasedCAAction.ml b/uikit/UIViewBlockBasedCAAction.ml deleted file mode 100644 index 512a7479..00000000 --- a/uikit/UIViewBlockBasedCAAction.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIViewBlockBasedCAAction" - -let initWithActionBlock x self = msg_send ~self ~cmd:(selector "initWithActionBlock:") ~typ:(ptr void @-> returning (id)) x -let initWithEmptyBlock x self = msg_send ~self ~cmd:(selector "initWithEmptyBlock:") ~typ:(ptr void @-> returning (id)) x -let runActionForKey x ~object_ ~arguments self = msg_send ~self ~cmd:(selector "runActionForKey:object:arguments:") ~typ:(id @-> id @-> id @-> returning (void)) x object_ arguments \ No newline at end of file diff --git a/uikit/UIViewClass.ml b/uikit/UIViewClass.ml new file mode 100644 index 00000000..bf13869e --- /dev/null +++ b/uikit/UIViewClass.ml @@ -0,0 +1,68 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiview?language=objc}UIView} *) + +let addKeyframeWithRelativeStartTime x ~relativeDuration ~animations self = msg_send ~self ~cmd:(selector "addKeyframeWithRelativeStartTime:relativeDuration:animations:") ~typ:(double @-> double @-> (ptr void) @-> returning void) x relativeDuration animations +let animateKeyframesWithDuration x ~delay ~options ~animations ~completion self = msg_send ~self ~cmd:(selector "animateKeyframesWithDuration:delay:options:animations:completion:") ~typ:(double @-> double @-> ullong @-> (ptr void) @-> (ptr void) @-> returning void) x delay (ULLong.of_int options) animations completion +let animateWithDuration x ~animations self = msg_send ~self ~cmd:(selector "animateWithDuration:animations:") ~typ:(double @-> (ptr void) @-> returning void) x animations +let animateWithDuration1 x ~animations ~completion self = msg_send ~self ~cmd:(selector "animateWithDuration:animations:completion:") ~typ:(double @-> (ptr void) @-> (ptr void) @-> returning void) x animations completion +let animateWithDuration2 x ~delay ~options ~animations ~completion self = msg_send ~self ~cmd:(selector "animateWithDuration:delay:options:animations:completion:") ~typ:(double @-> double @-> ullong @-> (ptr void) @-> (ptr void) @-> returning void) x delay (ULLong.of_int options) animations completion +let animateWithDuration3 x ~delay ~usingSpringWithDamping ~initialSpringVelocity ~options ~animations ~completion self = msg_send ~self ~cmd:(selector "animateWithDuration:delay:usingSpringWithDamping:initialSpringVelocity:options:animations:completion:") ~typ:(double @-> double @-> double @-> double @-> ullong @-> (ptr void) @-> (ptr void) @-> returning void) x delay usingSpringWithDamping initialSpringVelocity (ULLong.of_int options) animations completion +let appearance self = msg_send ~self ~cmd:(selector "appearance") ~typ:(returning id) +let appearanceForTraitCollection x self = msg_send ~self ~cmd:(selector "appearanceForTraitCollection:") ~typ:(id @-> returning id) x +let appearanceForTraitCollection1 x ~whenContainedIn self = msg_send ~self ~cmd:(selector "appearanceForTraitCollection:whenContainedIn:") ~typ:(id @-> _Class @-> returning id) x whenContainedIn +let appearanceForTraitCollection2 x ~whenContainedInInstancesOfClasses self = msg_send ~self ~cmd:(selector "appearanceForTraitCollection:whenContainedInInstancesOfClasses:") ~typ:(id @-> id @-> returning id) x whenContainedInInstancesOfClasses +let appearanceMatchingProperties x ~whenContainedInInstancesOfClasses self = msg_send ~self ~cmd:(selector "appearanceMatchingProperties:whenContainedInInstancesOfClasses:") ~typ:(id @-> id @-> returning id) x whenContainedInInstancesOfClasses +let appearanceWhenContainedIn x self = msg_send ~self ~cmd:(selector "appearanceWhenContainedIn:") ~typ:(_Class @-> returning id) x +let appearanceWhenContainedInInstancesOfClasses x self = msg_send ~self ~cmd:(selector "appearanceWhenContainedInInstancesOfClasses:") ~typ:(id @-> returning id) x +let areAnimationsEnabled self = msg_send ~self ~cmd:(selector "areAnimationsEnabled") ~typ:(returning bool) +let beginAnimations x self = msg_send ~self ~cmd:(selector "beginAnimations:") ~typ:(id @-> returning void) x +let beginAnimations' x ~context self = msg_send ~self ~cmd:(selector "beginAnimations:context:") ~typ:(id @-> (ptr void) @-> returning void) x context +let commitAnimations self = msg_send ~self ~cmd:(selector "commitAnimations") ~typ:(returning void) +let conditionallyAnimate x ~withAnimation ~layout ~completion self = msg_send ~self ~cmd:(selector "conditionallyAnimate:withAnimation:layout:completion:") ~typ:(bool @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> returning void) x withAnimation layout completion +let disableAnimation self = msg_send ~self ~cmd:(selector "disableAnimation") ~typ:(returning void) +let enableAnimation self = msg_send ~self ~cmd:(selector "enableAnimation") ~typ:(returning void) +let endAnimations self = msg_send ~self ~cmd:(selector "endAnimations") ~typ:(returning void) +let flush self = msg_send ~self ~cmd:(selector "flush") ~typ:(returning void) +let inheritedAnimationDuration self = msg_send ~self ~cmd:(selector "inheritedAnimationDuration") ~typ:(returning double) +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) +let layerClass self = msg_send ~self ~cmd:(selector "layerClass") ~typ:(returning _Class) +let mapTrackedAnimations x ~withBlock self = msg_send ~self ~cmd:(selector "mapTrackedAnimations:withBlock:") ~typ:(id @-> (ptr void) @-> returning void) x withBlock +let modifyAnimationsWithRepeatCount x ~autoreverses ~animations self = msg_send ~self ~cmd:(selector "modifyAnimationsWithRepeatCount:autoreverses:animations:") ~typ:(double @-> bool @-> (ptr void) @-> returning void) x autoreverses animations +let modifyTrackedAnimations x ~removeOnCompletion ~animationFactory ~block self = msg_send ~self ~cmd:(selector "modifyTrackedAnimations:removeOnCompletion:animationFactory:block:") ~typ:(id @-> bool @-> (ptr void) @-> (ptr void) @-> returning void) x removeOnCompletion animationFactory block +let modifyTrackedAnimations' x ~removeOnCompletion ~copyAnimation ~block self = msg_send ~self ~cmd:(selector "modifyTrackedAnimations:removeOnCompletion:copyAnimation:block:") ~typ:(id @-> bool @-> bool @-> (ptr void) @-> returning void) x removeOnCompletion copyAnimation block +let performSystemAnimation x ~onViews ~options ~animations ~completion self = msg_send ~self ~cmd:(selector "performSystemAnimation:onViews:options:animations:completion:") ~typ:(ullong @-> id @-> ullong @-> (ptr void) @-> (ptr void) @-> returning void) (ULLong.of_int x) onViews (ULLong.of_int options) animations completion +let performWithoutAnimation x self = msg_send ~self ~cmd:(selector "performWithoutAnimation:") ~typ:((ptr void) @-> returning void) x +let requiresConstraintBasedLayout self = msg_send ~self ~cmd:(selector "requiresConstraintBasedLayout") ~typ:(returning bool) +let setAnimationAutoreverses x self = msg_send ~self ~cmd:(selector "setAnimationAutoreverses:") ~typ:(bool @-> returning void) x +let setAnimationBeginsFromCurrentState x self = msg_send ~self ~cmd:(selector "setAnimationBeginsFromCurrentState:") ~typ:(bool @-> returning void) x +let setAnimationCurve x self = msg_send ~self ~cmd:(selector "setAnimationCurve:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setAnimationDelay x self = msg_send ~self ~cmd:(selector "setAnimationDelay:") ~typ:(double @-> returning void) x +let setAnimationDelegate x self = msg_send ~self ~cmd:(selector "setAnimationDelegate:") ~typ:(id @-> returning void) x +let setAnimationDidStopSelector x self = msg_send ~self ~cmd:(selector "setAnimationDidStopSelector:") ~typ:(_SEL @-> returning void) x +let setAnimationDuration x self = msg_send ~self ~cmd:(selector "setAnimationDuration:") ~typ:(double @-> returning void) x +let setAnimationFrameInterval x self = msg_send ~self ~cmd:(selector "setAnimationFrameInterval:") ~typ:(double @-> returning void) x +let setAnimationFromCurrentState x self = msg_send ~self ~cmd:(selector "setAnimationFromCurrentState:") ~typ:(bool @-> returning void) x +let setAnimationPosition x self = msg_send ~self ~cmd:(selector "setAnimationPosition:") ~typ:(CGPoint.t @-> returning void) x +let setAnimationPreventsAdditive x self = msg_send ~self ~cmd:(selector "setAnimationPreventsAdditive:") ~typ:(bool @-> returning void) x +let setAnimationRepeatAutoreverses x self = msg_send ~self ~cmd:(selector "setAnimationRepeatAutoreverses:") ~typ:(bool @-> returning void) x +let setAnimationRepeatCount x self = msg_send ~self ~cmd:(selector "setAnimationRepeatCount:") ~typ:(float @-> returning void) x +let setAnimationStartDate x self = msg_send ~self ~cmd:(selector "setAnimationStartDate:") ~typ:(id @-> returning void) x +let setAnimationStartTime x self = msg_send ~self ~cmd:(selector "setAnimationStartTime:") ~typ:(double @-> returning void) x +let setAnimationTransition x ~forView self = msg_send ~self ~cmd:(selector "setAnimationTransition:forView:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) forView +let setAnimationTransition' x ~forView ~cache self = msg_send ~self ~cmd:(selector "setAnimationTransition:forView:cache:") ~typ:(llong @-> id @-> bool @-> returning void) (LLong.of_int x) forView cache +let setAnimationWillStartSelector x self = msg_send ~self ~cmd:(selector "setAnimationWillStartSelector:") ~typ:(_SEL @-> returning void) x +let setAnimationsEnabled x self = msg_send ~self ~cmd:(selector "setAnimationsEnabled:") ~typ:(bool @-> returning void) x +let throttledFlush self = msg_send ~self ~cmd:(selector "throttledFlush") ~typ:(returning void) +let transitionFromView x ~toView ~duration ~options ~completion self = msg_send ~self ~cmd:(selector "transitionFromView:toView:duration:options:completion:") ~typ:(id @-> id @-> double @-> ullong @-> (ptr void) @-> returning void) x toView duration (ULLong.of_int options) completion +let transitionWithView x ~duration ~options ~animations ~completion self = msg_send ~self ~cmd:(selector "transitionWithView:duration:options:animations:completion:") ~typ:(id @-> double @-> ullong @-> (ptr void) @-> (ptr void) @-> returning void) x duration (ULLong.of_int options) animations completion +let userInterfaceLayoutDirectionForSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "userInterfaceLayoutDirectionForSemanticContentAttribute:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let userInterfaceLayoutDirectionForSemanticContentAttribute' x ~relativeToLayoutDirection self = msg_send ~self ~cmd:(selector "userInterfaceLayoutDirectionForSemanticContentAttribute:relativeToLayoutDirection:") ~typ:(llong @-> llong @-> returning llong) (LLong.of_int x) (LLong.of_int relativeToLayoutDirection) \ No newline at end of file diff --git a/uikit/UIViewConfigurationState.ml b/uikit/UIViewConfigurationState.ml index 5c23c42a..ab067056 100644 --- a/uikit/UIViewConfigurationState.ml +++ b/uikit/UIViewConfigurationState.ml @@ -5,33 +5,33 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewConfigurationState" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewconfigurationstate?language=objc}UIViewConfigurationState} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIViewConfigurationState" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let customStateForKey x self = msg_send ~self ~cmd:(selector "customStateForKey:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithTraitCollection x self = msg_send ~self ~cmd:(selector "initWithTraitCollection:") ~typ:(id @-> returning (id)) x -let isDisabled self = msg_send ~self ~cmd:(selector "isDisabled") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isFocused self = msg_send ~self ~cmd:(selector "isFocused") ~typ:(returning (bool)) -let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning (bool)) -let isPinned self = msg_send ~self ~cmd:(selector "isPinned") ~typ:(returning (bool)) -let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning (bool)) -let objectForKeyedSubscript x self = msg_send ~self ~cmd:(selector "objectForKeyedSubscript:") ~typ:(id @-> returning (id)) x -let setCustomState x ~forKey self = msg_send ~self ~cmd:(selector "setCustomState:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let setDisabled x self = msg_send ~self ~cmd:(selector "setDisabled:") ~typ:(bool @-> returning (void)) x -let setFocused x self = msg_send ~self ~cmd:(selector "setFocused:") ~typ:(bool @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setObject x ~forKeyedSubscript self = msg_send ~self ~cmd:(selector "setObject:forKeyedSubscript:") ~typ:(id @-> id @-> returning (void)) x forKeyedSubscript -let setPinned x self = msg_send ~self ~cmd:(selector "setPinned:") ~typ:(bool @-> returning (void)) x -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setTraitCollection x self = msg_send ~self ~cmd:(selector "setTraitCollection:") ~typ:(id @-> returning (void)) x -let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning (id)) \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let customStateForKey x self = msg_send ~self ~cmd:(selector "customStateForKey:") ~typ:(id @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithTraitCollection x self = msg_send ~self ~cmd:(selector "initWithTraitCollection:") ~typ:(id @-> returning id) x +let isDisabled self = msg_send ~self ~cmd:(selector "isDisabled") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isFocused self = msg_send ~self ~cmd:(selector "isFocused") ~typ:(returning bool) +let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning bool) +let isPinned self = msg_send ~self ~cmd:(selector "isPinned") ~typ:(returning bool) +let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning bool) +let objectForKeyedSubscript x self = msg_send ~self ~cmd:(selector "objectForKeyedSubscript:") ~typ:(id @-> returning id) x +let setCustomState x ~forKey self = msg_send ~self ~cmd:(selector "setCustomState:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let setDisabled x self = msg_send ~self ~cmd:(selector "setDisabled:") ~typ:(bool @-> returning void) x +let setFocused x self = msg_send ~self ~cmd:(selector "setFocused:") ~typ:(bool @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setObject x ~forKeyedSubscript self = msg_send ~self ~cmd:(selector "setObject:forKeyedSubscript:") ~typ:(id @-> id @-> returning void) x forKeyedSubscript +let setPinned x self = msg_send ~self ~cmd:(selector "setPinned:") ~typ:(bool @-> returning void) x +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setTraitCollection x self = msg_send ~self ~cmd:(selector "setTraitCollection:") ~typ:(id @-> returning void) x +let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIViewConfigurationStateClass.ml b/uikit/UIViewConfigurationStateClass.ml new file mode 100644 index 00000000..fdb6b396 --- /dev/null +++ b/uikit/UIViewConfigurationStateClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewconfigurationstate?language=objc}UIViewConfigurationState} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIViewController.ml b/uikit/UIViewController.ml index 1fc02370..98e19e59 100644 --- a/uikit/UIViewController.ml +++ b/uikit/UIViewController.ml @@ -5,376 +5,366 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewcontroller?language=objc}UIViewController} *) -module C = struct - let _XPCInterface self = msg_send ~self ~cmd:(selector "XPCInterface") ~typ:(returning (id)) - let attemptRotationToDeviceOrientation self = msg_send ~self ~cmd:(selector "attemptRotationToDeviceOrientation") ~typ:(returning (void)) - let customTransitionDuration self = msg_send ~self ~cmd:(selector "customTransitionDuration") ~typ:(returning (double)) - let defaultFormSheetSize self = msg_send_stret ~self ~cmd:(selector "defaultFormSheetSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t - let doesOverridePreferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "doesOverridePreferredInterfaceOrientationForPresentation") ~typ:(returning (bool)) - let doesOverrideViewControllerMethod x self = msg_send ~self ~cmd:(selector "doesOverrideViewControllerMethod:") ~typ:(_SEL @-> returning (bool)) x - let doesOverrideViewControllerMethod' x ~inBaseClass self = msg_send ~self ~cmd:(selector "doesOverrideViewControllerMethod:inBaseClass:") ~typ:(_SEL @-> _Class @-> returning (bool)) x inBaseClass - let durationForTransition x self = msg_send ~self ~cmd:(selector "durationForTransition:") ~typ:(int @-> returning (double)) x - let existingNibNameMatchingClassName x ~bundle self = msg_send ~self ~cmd:(selector "existingNibNameMatchingClassName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let removeViewControllerForView x self = msg_send ~self ~cmd:(selector "removeViewControllerForView:") ~typ:(id @-> returning (void)) x - let setCustomTransitionDuration x self = msg_send ~self ~cmd:(selector "setCustomTransitionDuration:") ~typ:(double @-> returning (void)) x - let setViewController x ~forView self = msg_send ~self ~cmd:(selector "setViewController:forView:") ~typ:(id @-> id @-> returning (void)) x forView - let viewControllerForView x self = msg_send ~self ~cmd:(selector "viewControllerForView:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIViewController" -let accessibilityIdentifier self = msg_send ~self ~cmd:(selector "accessibilityIdentifier") ~typ:(returning (id)) -let accessibilityLargeTextDidChange self = msg_send ~self ~cmd:(selector "accessibilityLargeTextDidChange") ~typ:(returning (void)) -let actionSheetPresentationController self = msg_send ~self ~cmd:(selector "actionSheetPresentationController") ~typ:(returning (id)) -let addChildViewController x self = msg_send ~self ~cmd:(selector "addChildViewController:") ~typ:(id @-> returning (void)) x -let addKeyCommand x self = msg_send ~self ~cmd:(selector "addKeyCommand:") ~typ:(id @-> returning (void)) x +let accessibilityIdentifier self = msg_send ~self ~cmd:(selector "accessibilityIdentifier") ~typ:(returning id) +let accessibilityLargeTextDidChange self = msg_send ~self ~cmd:(selector "accessibilityLargeTextDidChange") ~typ:(returning void) +let actionSheetPresentationController self = msg_send ~self ~cmd:(selector "actionSheetPresentationController") ~typ:(returning id) +let addChildViewController x self = msg_send ~self ~cmd:(selector "addChildViewController:") ~typ:(id @-> returning void) x +let addKeyCommand x self = msg_send ~self ~cmd:(selector "addKeyCommand:") ~typ:(id @-> returning void) x +let additionalSafeAreaInsets self = msg_send ~self ~cmd:(selector "additionalSafeAreaInsets") ~typ:(returning UIEdgeInsets.t) let afterAppearanceBlock self = msg_send ~self ~cmd:(selector "afterAppearanceBlock") ~typ:(returning (ptr void)) -let allowedChildViewControllersForUnwindingFromSource x self = msg_send ~self ~cmd:(selector "allowedChildViewControllersForUnwindingFromSource:") ~typ:(id @-> returning (id)) x -let appearanceTransitionsAreDisabled self = msg_send ~self ~cmd:(selector "appearanceTransitionsAreDisabled") ~typ:(returning (bool)) -let applicationDidResume self = msg_send ~self ~cmd:(selector "applicationDidResume") ~typ:(returning (void)) -let applicationFinishedRestoringState self = msg_send ~self ~cmd:(selector "applicationFinishedRestoringState") ~typ:(returning (void)) -let applicationWantsViewsToDisappear self = msg_send ~self ~cmd:(selector "applicationWantsViewsToDisappear") ~typ:(returning (void)) -let applicationWillSuspend self = msg_send ~self ~cmd:(selector "applicationWillSuspend") ~typ:(returning (void)) -let attentionClassDumpUser x ~yesItsUsAgain ~althoughSwizzlingAndOverridingPrivateMethodsIsFun ~itWasntMuchFunWhenYourAppStoppedWorking ~pleaseRefrainFromDoingSoInTheFutureOkayThanksBye self = msg_send ~self ~cmd:(selector "attentionClassDumpUser:yesItsUsAgain:althoughSwizzlingAndOverridingPrivateMethodsIsFun:itWasntMuchFunWhenYourAppStoppedWorking:pleaseRefrainFromDoingSoInTheFutureOkayThanksBye:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (void)) x yesItsUsAgain althoughSwizzlingAndOverridingPrivateMethodsIsFun itWasntMuchFunWhenYourAppStoppedWorking pleaseRefrainFromDoingSoInTheFutureOkayThanksBye -let automaticallyAdjustsScrollViewInsets self = msg_send ~self ~cmd:(selector "automaticallyAdjustsScrollViewInsets") ~typ:(returning (bool)) -let automaticallyForwardAppearanceAndRotationMethodsToChildViewControllers self = msg_send ~self ~cmd:(selector "automaticallyForwardAppearanceAndRotationMethodsToChildViewControllers") ~typ:(returning (bool)) -let autorelease self = msg_send ~self ~cmd:(selector "autorelease") ~typ:(returning (id)) -let autoresizeArchivedView self = msg_send ~self ~cmd:(selector "autoresizeArchivedView") ~typ:(returning (void)) -let autoresizesArchivedViewToFullSize self = msg_send ~self ~cmd:(selector "autoresizesArchivedViewToFullSize") ~typ:(returning (bool)) -let awakeFromNib self = msg_send ~self ~cmd:(selector "awakeFromNib") ~typ:(returning (void)) -let beginAppearanceTransition x ~animated self = msg_send ~self ~cmd:(selector "beginAppearanceTransition:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let beginRequestWithExtensionContext x self = msg_send ~self ~cmd:(selector "beginRequestWithExtensionContext:") ~typ:(id @-> returning (void)) x -let bottomLayoutGuide self = msg_send ~self ~cmd:(selector "bottomLayoutGuide") ~typ:(returning (id)) -let canHandleSnapbackIdentifier x ~animated self = msg_send ~self ~cmd:(selector "canHandleSnapbackIdentifier:animated:") ~typ:(id @-> bool @-> returning (bool)) x animated -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let canPerformUnwindSegueAction x ~fromViewController ~sender self = msg_send ~self ~cmd:(selector "canPerformUnwindSegueAction:fromViewController:sender:") ~typ:(_SEL @-> id @-> id @-> returning (bool)) x fromViewController sender -let canPerformUnwindSegueAction' x ~fromViewController ~withSender self = msg_send ~self ~cmd:(selector "canPerformUnwindSegueAction:fromViewController:withSender:") ~typ:(_SEL @-> id @-> id @-> returning (bool)) x fromViewController withSender -let cancelBeginAppearanceTransition self = msg_send ~self ~cmd:(selector "cancelBeginAppearanceTransition") ~typ:(returning (void)) -let childModalViewController self = msg_send ~self ~cmd:(selector "childModalViewController") ~typ:(returning (id)) -let childViewControllerContainingSegueSource x self = msg_send ~self ~cmd:(selector "childViewControllerContainingSegueSource:") ~typ:(id @-> returning (id)) x -let childViewControllerForHomeIndicatorAutoHidden self = msg_send ~self ~cmd:(selector "childViewControllerForHomeIndicatorAutoHidden") ~typ:(returning (id)) -let childViewControllerForPointerLock self = msg_send ~self ~cmd:(selector "childViewControllerForPointerLock") ~typ:(returning (id)) -let childViewControllerForScreenEdgesDeferringSystemGestures self = msg_send ~self ~cmd:(selector "childViewControllerForScreenEdgesDeferringSystemGestures") ~typ:(returning (id)) -let childViewControllerForStatusBarHidden self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarHidden") ~typ:(returning (id)) -let childViewControllerForStatusBarStyle self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarStyle") ~typ:(returning (id)) -let childViewControllerForTouchBar self = msg_send ~self ~cmd:(selector "childViewControllerForTouchBar") ~typ:(returning (id)) -let childViewControllerForUserInterfaceStyle self = msg_send ~self ~cmd:(selector "childViewControllerForUserInterfaceStyle") ~typ:(returning (id)) -let childViewControllerForWhitePointAdaptivityStyle self = msg_send ~self ~cmd:(selector "childViewControllerForWhitePointAdaptivityStyle") ~typ:(returning (id)) -let childViewControllers self = msg_send ~self ~cmd:(selector "childViewControllers") ~typ:(returning (id)) -let childViewControllersCount self = msg_send ~self ~cmd:(selector "childViewControllersCount") ~typ:(returning (ullong)) -let collapseSecondaryViewController x ~forSplitViewController self = msg_send ~self ~cmd:(selector "collapseSecondaryViewController:forSplitViewController:") ~typ:(id @-> id @-> returning (void)) x forSplitViewController -let containmentSupport self = msg_send ~self ~cmd:(selector "containmentSupport") ~typ:(returning (bool)) -let contentAlpha self = msg_send ~self ~cmd:(selector "contentAlpha") ~typ:(returning (double)) -let contentScrollView self = msg_send ~self ~cmd:(selector "contentScrollView") ~typ:(returning (id)) -let contentScrollViewForEdge x self = msg_send ~self ~cmd:(selector "contentScrollViewForEdge:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let contentSizeForViewInPopover self = msg_send_stret ~self ~cmd:(selector "contentSizeForViewInPopover") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let contentSizeForViewInPopoverView self = msg_send_stret ~self ~cmd:(selector "contentSizeForViewInPopoverView") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let contentVisibility self = msg_send ~self ~cmd:(selector "contentVisibility") ~typ:(returning (llong)) -let currentAction self = msg_send ~self ~cmd:(selector "currentAction") ~typ:(returning (id)) -let customNavigationInteractiveTransitionDuration self = msg_send ~self ~cmd:(selector "customNavigationInteractiveTransitionDuration") ~typ:(returning (double)) -let customNavigationInteractiveTransitionPercentComplete self = msg_send ~self ~cmd:(selector "customNavigationInteractiveTransitionPercentComplete") ~typ:(returning (double)) -let customTransitioningView self = msg_send ~self ~cmd:(selector "customTransitioningView") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultPNGName self = msg_send ~self ~cmd:(selector "defaultPNGName") ~typ:(returning (id)) -let definesPresentationContext self = msg_send ~self ~cmd:(selector "definesPresentationContext") ~typ:(returning (bool)) -let didAnimateFirstHalfOfRotationToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didAnimateFirstHalfOfRotationToInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let didMoveToParentViewController x self = msg_send ~self ~cmd:(selector "didMoveToParentViewController:") ~typ:(id @-> returning (void)) x -let didReceiveMemoryWarning self = msg_send ~self ~cmd:(selector "didReceiveMemoryWarning") ~typ:(returning (void)) -let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let disablesAutomaticKeyboardDismissal self = msg_send ~self ~cmd:(selector "disablesAutomaticKeyboardDismissal") ~typ:(returning (bool)) -let dismissModalViewControllerAnimated x self = msg_send ~self ~cmd:(selector "dismissModalViewControllerAnimated:") ~typ:(bool @-> returning (void)) x -let dismissModalViewControllerWithTransition x self = msg_send ~self ~cmd:(selector "dismissModalViewControllerWithTransition:") ~typ:(int @-> returning (void)) x -let dismissMoviePlayerViewControllerAnimated self = msg_send ~self ~cmd:(selector "dismissMoviePlayerViewControllerAnimated") ~typ:(returning (void)) -let dismissViewControllerAnimated x ~completion self = msg_send ~self ~cmd:(selector "dismissViewControllerAnimated:completion:") ~typ:(bool @-> ptr void @-> returning (void)) x completion -let dismissViewControllerWithTransition x ~completion self = msg_send ~self ~cmd:(selector "dismissViewControllerWithTransition:completion:") ~typ:(int @-> ptr void @-> returning (void)) x completion -let dropShadowView self = msg_send ~self ~cmd:(selector "dropShadowView") ~typ:(returning (id)) -let durationForTransition x self = msg_send ~self ~cmd:(selector "durationForTransition:") ~typ:(int @-> returning (double)) x -let edgesForExtendedLayout self = msg_send ~self ~cmd:(selector "edgesForExtendedLayout") ~typ:(returning (ullong)) -let editButtonItem self = msg_send ~self ~cmd:(selector "editButtonItem") ~typ:(returning (id)) -let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let endAppearanceTransition self = msg_send ~self ~cmd:(selector "endAppearanceTransition") ~typ:(returning (void)) -let extendedLayoutIncludesOpaqueBars self = msg_send ~self ~cmd:(selector "extendedLayoutIncludesOpaqueBars") ~typ:(returning (bool)) -let extensionContext self = msg_send ~self ~cmd:(selector "extensionContext") ~typ:(returning (id)) -let focusGroupIdentifier self = msg_send ~self ~cmd:(selector "focusGroupIdentifier") ~typ:(returning (id)) -let focusItemContainer self = msg_send ~self ~cmd:(selector "focusItemContainer") ~typ:(returning (id)) -let forceUnloadView self = msg_send ~self ~cmd:(selector "forceUnloadView") ~typ:(returning (void)) -let formSheetSize self = msg_send_stret ~self ~cmd:(selector "formSheetSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let getRotationContentSettings x ~forWindow self = msg_send ~self ~cmd:(selector "getRotationContentSettings:forWindow:") ~typ:(ptr void @-> id @-> returning (void)) x forWindow -let hidesBottomBarWhenPushed self = msg_send ~self ~cmd:(selector "hidesBottomBarWhenPushed") ~typ:(returning (bool)) -let ignoresParentMargins self = msg_send ~self ~cmd:(selector "ignoresParentMargins") ~typ:(returning (bool)) -let inExplicitAppearanceTransition self = msg_send ~self ~cmd:(selector "inExplicitAppearanceTransition") ~typ:(returning (bool)) -let infoCardThemeChanged self = msg_send ~self ~cmd:(selector "infoCardThemeChanged") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning (llong)) -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (id)) -let isBeingDismissed self = msg_send ~self ~cmd:(selector "isBeingDismissed") ~typ:(returning (bool)) -let isBeingPresented self = msg_send ~self ~cmd:(selector "isBeingPresented") ~typ:(returning (bool)) -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let isFinishingModalTransition self = msg_send ~self ~cmd:(selector "isFinishingModalTransition") ~typ:(returning (bool)) -let isInAnimatedVCTransition self = msg_send ~self ~cmd:(selector "isInAnimatedVCTransition") ~typ:(returning (bool)) -let isInWillRotateCallback self = msg_send ~self ~cmd:(selector "isInWillRotateCallback") ~typ:(returning (bool)) -let isModalInPopover self = msg_send ~self ~cmd:(selector "isModalInPopover") ~typ:(returning (bool)) -let isModalInPresentation self = msg_send ~self ~cmd:(selector "isModalInPresentation") ~typ:(returning (bool)) -let isMovingFromParentViewController self = msg_send ~self ~cmd:(selector "isMovingFromParentViewController") ~typ:(returning (bool)) -let isMovingToParentViewController self = msg_send ~self ~cmd:(selector "isMovingToParentViewController") ~typ:(returning (bool)) -let isPerformingModalTransition self = msg_send ~self ~cmd:(selector "isPerformingModalTransition") ~typ:(returning (bool)) -let isSettingAppearState self = msg_send ~self ~cmd:(selector "isSettingAppearState") ~typ:(returning (bool)) -let isSheet self = msg_send ~self ~cmd:(selector "isSheet") ~typ:(returning (bool)) -let isUsingLegacyContainment self = msg_send ~self ~cmd:(selector "isUsingLegacyContainment") ~typ:(returning (bool)) -let isViewControllerModallyPresented self = msg_send ~self ~cmd:(selector "isViewControllerModallyPresented") ~typ:(returning (bool)) -let isViewLoaded self = msg_send ~self ~cmd:(selector "isViewLoaded") ~typ:(returning (bool)) -let keyCommands self = msg_send ~self ~cmd:(selector "keyCommands") ~typ:(returning (id)) -let leadingPreviewAction self = msg_send ~self ~cmd:(selector "leadingPreviewAction") ~typ:(returning (id)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let loadViewIfNeeded self = msg_send ~self ~cmd:(selector "loadViewIfNeeded") ~typ:(returning (void)) -let loadViewIfRequired self = msg_send ~self ~cmd:(selector "loadViewIfRequired") ~typ:(returning (void)) -let modalInPopover self = msg_send ~self ~cmd:(selector "modalInPopover") ~typ:(returning (bool)) -let modalPresentationCapturesStatusBarAppearance self = msg_send ~self ~cmd:(selector "modalPresentationCapturesStatusBarAppearance") ~typ:(returning (bool)) -let modalPresentationStyle self = msg_send ~self ~cmd:(selector "modalPresentationStyle") ~typ:(returning (llong)) -let modalTransitionStyle self = msg_send ~self ~cmd:(selector "modalTransitionStyle") ~typ:(returning (llong)) -let modalViewController self = msg_send ~self ~cmd:(selector "modalViewController") ~typ:(returning (id)) -let moreListImage self = msg_send ~self ~cmd:(selector "moreListImage") ~typ:(returning (id)) -let moreListSelectedImage self = msg_send ~self ~cmd:(selector "moreListSelectedImage") ~typ:(returning (id)) -let moreListTableCell self = msg_send ~self ~cmd:(selector "moreListTableCell") ~typ:(returning (id)) -let mutableChildViewControllers self = msg_send ~self ~cmd:(selector "mutableChildViewControllers") ~typ:(returning (id)) -let navigationController self = msg_send ~self ~cmd:(selector "navigationController") ~typ:(returning (id)) -let navigationInsetAdjustment self = msg_send ~self ~cmd:(selector "navigationInsetAdjustment") ~typ:(returning (id)) -let navigationItem self = msg_send ~self ~cmd:(selector "navigationItem") ~typ:(returning (id)) -let needsDidMoveCleanup self = msg_send ~self ~cmd:(selector "needsDidMoveCleanup") ~typ:(returning (bool)) -let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning (id)) -let nibBundle self = msg_send ~self ~cmd:(selector "nibBundle") ~typ:(returning (id)) -let nibName self = msg_send ~self ~cmd:(selector "nibName") ~typ:(returning (id)) -let overrideTraitCollection self = msg_send ~self ~cmd:(selector "overrideTraitCollection") ~typ:(returning (id)) -let overrideTraitCollectionForChildViewController x self = msg_send ~self ~cmd:(selector "overrideTraitCollectionForChildViewController:") ~typ:(id @-> returning (id)) x -let overrideUserInterfaceStyle self = msg_send ~self ~cmd:(selector "overrideUserInterfaceStyle") ~typ:(returning (llong)) -let parentFocusEnvironment self = msg_send ~self ~cmd:(selector "parentFocusEnvironment") ~typ:(returning (id)) -let parentModalViewController self = msg_send ~self ~cmd:(selector "parentModalViewController") ~typ:(returning (id)) -let parentViewController self = msg_send ~self ~cmd:(selector "parentViewController") ~typ:(returning (id)) -let performSegueWithIdentifier x ~sender self = msg_send ~self ~cmd:(selector "performSegueWithIdentifier:sender:") ~typ:(id @-> id @-> returning (void)) x sender -let performsActionsWhilePresentingModally self = msg_send ~self ~cmd:(selector "performsActionsWhilePresentingModally") ~typ:(returning (bool)) -let popoverPresentationController self = msg_send ~self ~cmd:(selector "popoverPresentationController") ~typ:(returning (id)) -let popoverPresentationController' x self = msg_send ~self ~cmd:(selector "popoverPresentationController:") ~typ:(bool @-> returning (id)) x -let preferredContentSize self = msg_send_stret ~self ~cmd:(selector "preferredContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning (void)) x -let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning (id)) -let preferredFocusedItem self = msg_send ~self ~cmd:(selector "preferredFocusedItem") ~typ:(returning (id)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let preferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "preferredInterfaceOrientationForPresentation") ~typ:(returning (llong)) -let preferredScreenEdgesDeferringSystemGestures self = msg_send ~self ~cmd:(selector "preferredScreenEdgesDeferringSystemGestures") ~typ:(returning (ullong)) -let preferredStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredStatusBarStyle") ~typ:(returning (llong)) -let preferredStatusBarUpdateAnimation self = msg_send ~self ~cmd:(selector "preferredStatusBarUpdateAnimation") ~typ:(returning (llong)) -let preferredUserInterfaceStyle self = msg_send ~self ~cmd:(selector "preferredUserInterfaceStyle") ~typ:(returning (llong)) -let preferredWhitePointAdaptivityStyle self = msg_send ~self ~cmd:(selector "preferredWhitePointAdaptivityStyle") ~typ:(returning (llong)) -let prefersHomeIndicatorAutoHidden self = msg_send ~self ~cmd:(selector "prefersHomeIndicatorAutoHidden") ~typ:(returning (bool)) -let prefersPointerLocked self = msg_send ~self ~cmd:(selector "prefersPointerLocked") ~typ:(returning (bool)) -let prefersStatusBarHidden self = msg_send ~self ~cmd:(selector "prefersStatusBarHidden") ~typ:(returning (bool)) -let prepareForSegue x ~sender self = msg_send ~self ~cmd:(selector "prepareForSegue:sender:") ~typ:(id @-> id @-> returning (void)) x sender -let presentModalViewController x ~animated self = msg_send ~self ~cmd:(selector "presentModalViewController:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let presentModalViewController' x ~withTransition self = msg_send ~self ~cmd:(selector "presentModalViewController:withTransition:") ~typ:(id @-> int @-> returning (void)) x withTransition -let presentMoviePlayerViewControllerAnimated x self = msg_send ~self ~cmd:(selector "presentMoviePlayerViewControllerAnimated:") ~typ:(id @-> returning (void)) x -let presentViewController x ~animated ~completion self = msg_send ~self ~cmd:(selector "presentViewController:animated:completion:") ~typ:(id @-> bool @-> ptr void @-> returning (void)) x animated completion -let presentViewController' x ~withTransition ~completion self = msg_send ~self ~cmd:(selector "presentViewController:withTransition:completion:") ~typ:(id @-> int @-> ptr void @-> returning (void)) x withTransition completion -let presentationController self = msg_send ~self ~cmd:(selector "presentationController") ~typ:(returning (id)) -let presentedViewController self = msg_send ~self ~cmd:(selector "presentedViewController") ~typ:(returning (id)) -let presentingViewController self = msg_send ~self ~cmd:(selector "presentingViewController") ~typ:(returning (id)) -let previewActionItems self = msg_send ~self ~cmd:(selector "previewActionItems") ~typ:(returning (id)) -let previewActions self = msg_send ~self ~cmd:(selector "previewActions") ~typ:(returning (id)) -let previewMenuItems self = msg_send ~self ~cmd:(selector "previewMenuItems") ~typ:(returning (id)) -let providesPresentationContextTransitionStyle self = msg_send ~self ~cmd:(selector "providesPresentationContextTransitionStyle") ~typ:(returning (bool)) -let purgeMemoryForReason x self = msg_send ~self ~cmd:(selector "purgeMemoryForReason:") ~typ:(int @-> returning (void)) x -let registerForPreviewingWithDelegate x ~sourceView self = msg_send ~self ~cmd:(selector "registerForPreviewingWithDelegate:sourceView:") ~typ:(id @-> id @-> returning (id)) x sourceView -let registerPreviewSourceView x ~previewingDelegate self = msg_send ~self ~cmd:(selector "registerPreviewSourceView:previewingDelegate:") ~typ:(id @-> id @-> returning (void)) x previewingDelegate -let release self = msg_send ~self ~cmd:(selector "release") ~typ:(returning (void)) -let removeChildViewController x self = msg_send ~self ~cmd:(selector "removeChildViewController:") ~typ:(id @-> returning (void)) x -let removeChildViewController' x ~notifyDidMove self = msg_send ~self ~cmd:(selector "removeChildViewController:notifyDidMove:") ~typ:(id @-> bool @-> returning (void)) x notifyDidMove -let removeFromParentViewController self = msg_send ~self ~cmd:(selector "removeFromParentViewController") ~typ:(returning (void)) -let removeKeyCommand x self = msg_send ~self ~cmd:(selector "removeKeyCommand:") ~typ:(id @-> returning (void)) x -let restorationClass self = msg_send ~self ~cmd:(selector "restorationClass") ~typ:(returning (_Class)) -let restoreUserActivityState x self = msg_send ~self ~cmd:(selector "restoreUserActivityState:") ~typ:(id @-> returning (void)) x -let restoresFocusAfterTransition self = msg_send ~self ~cmd:(selector "restoresFocusAfterTransition") ~typ:(returning (bool)) -let retain self = msg_send ~self ~cmd:(selector "retain") ~typ:(returning (id)) -let retainCount self = msg_send ~self ~cmd:(selector "retainCount") ~typ:(returning (ullong)) -let rotatingContentViewForWindow x self = msg_send ~self ~cmd:(selector "rotatingContentViewForWindow:") ~typ:(id @-> returning (id)) x -let rotatingFooterView self = msg_send ~self ~cmd:(selector "rotatingFooterView") ~typ:(returning (id)) -let rotatingFooterViewForWindow x self = msg_send ~self ~cmd:(selector "rotatingFooterViewForWindow:") ~typ:(id @-> returning (id)) x -let rotatingHeaderView self = msg_send ~self ~cmd:(selector "rotatingHeaderView") ~typ:(returning (id)) -let rotatingHeaderViewForWindow x self = msg_send ~self ~cmd:(selector "rotatingHeaderViewForWindow:") ~typ:(id @-> returning (id)) x -let rotatingSnapshotViewForWindow x self = msg_send ~self ~cmd:(selector "rotatingSnapshotViewForWindow:") ~typ:(id @-> returning (id)) x -let safeAreaLayoutGuide self = msg_send ~self ~cmd:(selector "safeAreaLayoutGuide") ~typ:(returning (id)) -let savedHeaderSuperview self = msg_send ~self ~cmd:(selector "savedHeaderSuperview") ~typ:(returning (id)) -let searchBarHidNavBar self = msg_send ~self ~cmd:(selector "searchBarHidNavBar") ~typ:(returning (bool)) -let searchDisplayController self = msg_send ~self ~cmd:(selector "searchDisplayController") ~typ:(returning (id)) -let segueForUnwindingToViewController x ~fromViewController ~identifier self = msg_send ~self ~cmd:(selector "segueForUnwindingToViewController:fromViewController:identifier:") ~typ:(id @-> id @-> id @-> returning (id)) x fromViewController identifier -let separateSecondaryViewControllerForSplitViewController x self = msg_send ~self ~cmd:(selector "separateSecondaryViewControllerForSplitViewController:") ~typ:(id @-> returning (id)) x -let setAccessibilityIdentifier x self = msg_send ~self ~cmd:(selector "setAccessibilityIdentifier:") ~typ:(id @-> returning (void)) x -let setAdditionalSafeAreaInsets x self = msg_send ~self ~cmd:(selector "setAdditionalSafeAreaInsets:") ~typ:(ptr void @-> returning (void)) x -let setAfterAppearanceBlock x self = msg_send ~self ~cmd:(selector "setAfterAppearanceBlock:") ~typ:(ptr void @-> returning (void)) x -let setAppearanceTransitionsAreDisabled x self = msg_send ~self ~cmd:(selector "setAppearanceTransitionsAreDisabled:") ~typ:(bool @-> returning (void)) x -let setAutomaticallyAdjustsScrollViewInsets x self = msg_send ~self ~cmd:(selector "setAutomaticallyAdjustsScrollViewInsets:") ~typ:(bool @-> returning (void)) x -let setAutoresizesArchivedViewToFullSize x self = msg_send ~self ~cmd:(selector "setAutoresizesArchivedViewToFullSize:") ~typ:(bool @-> returning (void)) x -let setChildModalViewController x self = msg_send ~self ~cmd:(selector "setChildModalViewController:") ~typ:(id @-> returning (void)) x -let setContainmentSupport x self = msg_send ~self ~cmd:(selector "setContainmentSupport:") ~typ:(bool @-> returning (void)) x -let setContentAlpha x self = msg_send ~self ~cmd:(selector "setContentAlpha:") ~typ:(double @-> returning (void)) x -let setContentScrollView x ~forEdge self = msg_send ~self ~cmd:(selector "setContentScrollView:forEdge:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forEdge) -let setContentSizeForViewInPopover x self = msg_send ~self ~cmd:(selector "setContentSizeForViewInPopover:") ~typ:(CGSize.t @-> returning (void)) x -let setContentVisibility x self = msg_send ~self ~cmd:(selector "setContentVisibility:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCustomNavigationInteractiveTransitionDuration x self = msg_send ~self ~cmd:(selector "setCustomNavigationInteractiveTransitionDuration:") ~typ:(double @-> returning (void)) x -let setCustomNavigationInteractiveTransitionPercentComplete x self = msg_send ~self ~cmd:(selector "setCustomNavigationInteractiveTransitionPercentComplete:") ~typ:(double @-> returning (void)) x -let setCustomTransitioningView x self = msg_send ~self ~cmd:(selector "setCustomTransitioningView:") ~typ:(id @-> returning (void)) x -let setDefinesPresentationContext x self = msg_send ~self ~cmd:(selector "setDefinesPresentationContext:") ~typ:(bool @-> returning (void)) x -let setDisablesAutomaticKeyboardDismissal x self = msg_send ~self ~cmd:(selector "setDisablesAutomaticKeyboardDismissal:") ~typ:(bool @-> returning (void)) x -let setDropShadowView x self = msg_send ~self ~cmd:(selector "setDropShadowView:") ~typ:(id @-> returning (void)) x -let setEdgesForExtendedLayout x self = msg_send ~self ~cmd:(selector "setEdgesForExtendedLayout:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning (void)) x -let setEditing' x ~animated self = msg_send ~self ~cmd:(selector "setEditing:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setExtendedLayoutIncludesOpaqueBars x self = msg_send ~self ~cmd:(selector "setExtendedLayoutIncludesOpaqueBars:") ~typ:(bool @-> returning (void)) x -let setFinishingModalTransition x self = msg_send ~self ~cmd:(selector "setFinishingModalTransition:") ~typ:(bool @-> returning (void)) x -let setFocusGroupIdentifier x self = msg_send ~self ~cmd:(selector "setFocusGroupIdentifier:") ~typ:(id @-> returning (void)) x -let setFormSheetSize x self = msg_send ~self ~cmd:(selector "setFormSheetSize:") ~typ:(CGSize.t @-> returning (void)) x -let setHidesBottomBarWhenPushed x self = msg_send ~self ~cmd:(selector "setHidesBottomBarWhenPushed:") ~typ:(bool @-> returning (void)) x -let setIgnoresParentMargins x self = msg_send ~self ~cmd:(selector "setIgnoresParentMargins:") ~typ:(bool @-> returning (void)) x -let setInAnimatedVCTransition x self = msg_send ~self ~cmd:(selector "setInAnimatedVCTransition:") ~typ:(bool @-> returning (void)) x -let setInWillRotateCallback x self = msg_send ~self ~cmd:(selector "setInWillRotateCallback:") ~typ:(bool @-> returning (void)) x -let setInterfaceOrientation x self = msg_send ~self ~cmd:(selector "setInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setIsSheet x self = msg_send ~self ~cmd:(selector "setIsSheet:") ~typ:(bool @-> returning (void)) x -let setModalInPopover x self = msg_send ~self ~cmd:(selector "setModalInPopover:") ~typ:(bool @-> returning (void)) x -let setModalInPresentation x self = msg_send ~self ~cmd:(selector "setModalInPresentation:") ~typ:(bool @-> returning (void)) x -let setModalPresentationCapturesStatusBarAppearance x self = msg_send ~self ~cmd:(selector "setModalPresentationCapturesStatusBarAppearance:") ~typ:(bool @-> returning (void)) x -let setModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setModalPresentationStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setModalTransitionStyle x self = msg_send ~self ~cmd:(selector "setModalTransitionStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setMutableChildViewControllers x self = msg_send ~self ~cmd:(selector "setMutableChildViewControllers:") ~typ:(id @-> returning (void)) x -let setNavigationInsetAdjustment x self = msg_send ~self ~cmd:(selector "setNavigationInsetAdjustment:") ~typ:(id @-> returning (void)) x -let setNeedsDidMoveCleanup x self = msg_send ~self ~cmd:(selector "setNeedsDidMoveCleanup:") ~typ:(bool @-> returning (void)) x -let setNeedsFocusUpdate self = msg_send ~self ~cmd:(selector "setNeedsFocusUpdate") ~typ:(returning (void)) -let setNeedsStatusBarAppearanceUpdate self = msg_send ~self ~cmd:(selector "setNeedsStatusBarAppearanceUpdate") ~typ:(returning (void)) -let setNeedsTouchBarUpdate self = msg_send ~self ~cmd:(selector "setNeedsTouchBarUpdate") ~typ:(returning (void)) -let setNeedsUpdateOfHomeIndicatorAutoHidden self = msg_send ~self ~cmd:(selector "setNeedsUpdateOfHomeIndicatorAutoHidden") ~typ:(returning (void)) -let setNeedsUpdateOfPrefersPointerLocked self = msg_send ~self ~cmd:(selector "setNeedsUpdateOfPrefersPointerLocked") ~typ:(returning (void)) -let setNeedsUpdateOfScreenEdgesDeferringSystemGestures self = msg_send ~self ~cmd:(selector "setNeedsUpdateOfScreenEdgesDeferringSystemGestures") ~typ:(returning (void)) -let setNeedsUserInterfaceAppearanceUpdate self = msg_send ~self ~cmd:(selector "setNeedsUserInterfaceAppearanceUpdate") ~typ:(returning (void)) -let setNeedsWhitePointAdaptivityStyleUpdate self = msg_send ~self ~cmd:(selector "setNeedsWhitePointAdaptivityStyleUpdate") ~typ:(returning (void)) -let setNibBundle x self = msg_send ~self ~cmd:(selector "setNibBundle:") ~typ:(id @-> returning (void)) x -let setNibName x self = msg_send ~self ~cmd:(selector "setNibName:") ~typ:(id @-> returning (void)) x -let setOverrideTraitCollection x self = msg_send ~self ~cmd:(selector "setOverrideTraitCollection:") ~typ:(id @-> returning (void)) x -let setOverrideTraitCollection' x ~forChildViewController self = msg_send ~self ~cmd:(selector "setOverrideTraitCollection:forChildViewController:") ~typ:(id @-> id @-> returning (void)) x forChildViewController -let setOverrideUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setOverrideUserInterfaceStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setParentModalViewController x self = msg_send ~self ~cmd:(selector "setParentModalViewController:") ~typ:(id @-> returning (void)) x -let setParentViewController x self = msg_send ~self ~cmd:(selector "setParentViewController:") ~typ:(id @-> returning (void)) x -let setPerformingModalTransition x self = msg_send ~self ~cmd:(selector "setPerformingModalTransition:") ~typ:(bool @-> returning (void)) x -let setPreferredContentSize x self = msg_send ~self ~cmd:(selector "setPreferredContentSize:") ~typ:(CGSize.t @-> returning (void)) x -let setPreferredFocusedItem x self = msg_send ~self ~cmd:(selector "setPreferredFocusedItem:") ~typ:(id @-> returning (void)) x -let setPreferredFocusedView x self = msg_send ~self ~cmd:(selector "setPreferredFocusedView:") ~typ:(id @-> returning (void)) x -let setPreferredUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setPreferredUserInterfaceStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setProvidesPresentationContextTransitionStyle x self = msg_send ~self ~cmd:(selector "setProvidesPresentationContextTransitionStyle:") ~typ:(bool @-> returning (void)) x -let setRestorationClass x self = msg_send ~self ~cmd:(selector "setRestorationClass:") ~typ:(_Class @-> returning (void)) x -let setRestoresFocusAfterTransition x self = msg_send ~self ~cmd:(selector "setRestoresFocusAfterTransition:") ~typ:(bool @-> returning (void)) x -let setSearchBarHidNavBar x self = msg_send ~self ~cmd:(selector "setSearchBarHidNavBar:") ~typ:(bool @-> returning (void)) x -let setSearchDisplayController x self = msg_send ~self ~cmd:(selector "setSearchDisplayController:") ~typ:(id @-> returning (void)) x -let setShouldForceNonAnimatedTransition x self = msg_send ~self ~cmd:(selector "setShouldForceNonAnimatedTransition:") ~typ:(bool @-> returning (void)) x -let setStoryboardIdentifier x self = msg_send ~self ~cmd:(selector "setStoryboardIdentifier:") ~typ:(id @-> returning (void)) x -let setTabBarItem x self = msg_send ~self ~cmd:(selector "setTabBarItem:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setToolbarItems x self = msg_send ~self ~cmd:(selector "setToolbarItems:") ~typ:(id @-> returning (void)) x -let setToolbarItems' x ~animated self = msg_send ~self ~cmd:(selector "setToolbarItems:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let setTransitioningDelegate x self = msg_send ~self ~cmd:(selector "setTransitioningDelegate:") ~typ:(id @-> returning (void)) x -let setUseLegacyContainment x self = msg_send ~self ~cmd:(selector "setUseLegacyContainment:") ~typ:(bool @-> returning (void)) x -let setUserActivity x self = msg_send ~self ~cmd:(selector "setUserActivity:") ~typ:(id @-> returning (void)) x -let setValue x ~forKey self = msg_send ~self ~cmd:(selector "setValue:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let setViewRespectsSystemMinimumLayoutMargins x self = msg_send ~self ~cmd:(selector "setViewRespectsSystemMinimumLayoutMargins:") ~typ:(bool @-> returning (void)) x -let setWantsFullScreenLayout x self = msg_send ~self ~cmd:(selector "setWantsFullScreenLayout:") ~typ:(bool @-> returning (void)) x -let sheetPresentationController self = msg_send ~self ~cmd:(selector "sheetPresentationController") ~typ:(returning (id)) -let shouldAutomaticallyForwardAppearanceMethods self = msg_send ~self ~cmd:(selector "shouldAutomaticallyForwardAppearanceMethods") ~typ:(returning (bool)) -let shouldAutomaticallyForwardRotationMethods self = msg_send ~self ~cmd:(selector "shouldAutomaticallyForwardRotationMethods") ~typ:(returning (bool)) -let shouldAutorotate self = msg_send ~self ~cmd:(selector "shouldAutorotate") ~typ:(returning (bool)) -let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let shouldPerformSegueWithIdentifier x ~sender self = msg_send ~self ~cmd:(selector "shouldPerformSegueWithIdentifier:sender:") ~typ:(id @-> id @-> returning (bool)) x sender -let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning (bool)) x -let shouldWindowUseOnePartInterfaceRotationAnimation x self = msg_send ~self ~cmd:(selector "shouldWindowUseOnePartInterfaceRotationAnimation:") ~typ:(id @-> returning (bool)) x -let showDetailViewController x ~sender self = msg_send ~self ~cmd:(selector "showDetailViewController:sender:") ~typ:(id @-> id @-> returning (void)) x sender -let showViewController x ~sender self = msg_send ~self ~cmd:(selector "showViewController:sender:") ~typ:(id @-> id @-> returning (void)) x sender -let sizeForChildContentContainer x ~withParentContainerSize self = msg_send_stret ~self ~cmd:(selector "sizeForChildContentContainer:withParentContainerSize:") ~typ:(id @-> CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x withParentContainerSize -let splitViewController self = msg_send ~self ~cmd:(selector "splitViewController") ~typ:(returning (id)) -let storyboard self = msg_send ~self ~cmd:(selector "storyboard") ~typ:(returning (id)) -let storyboardCommitSegueTemplates self = msg_send ~self ~cmd:(selector "storyboardCommitSegueTemplates") ~typ:(returning (id)) -let storyboardIdentifier self = msg_send ~self ~cmd:(selector "storyboardIdentifier") ~typ:(returning (id)) -let storyboardPreviewSegueTemplates self = msg_send ~self ~cmd:(selector "storyboardPreviewSegueTemplates") ~typ:(returning (id)) -let storyboardPreviewingRegistrants self = msg_send ~self ~cmd:(selector "storyboardPreviewingRegistrants") ~typ:(returning (id)) -let storyboardSegueTemplates self = msg_send ~self ~cmd:(selector "storyboardSegueTemplates") ~typ:(returning (id)) -let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning (ullong)) -let systemLayoutFittingSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "systemLayoutFittingSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning (void)) x -let systemLayoutFittingSizeDidChangeForChildViewController x self = msg_send ~self ~cmd:(selector "systemLayoutFittingSizeDidChangeForChildViewController:") ~typ:(id @-> returning (void)) x -let tabBarController self = msg_send ~self ~cmd:(selector "tabBarController") ~typ:(returning (id)) -let tabBarItem self = msg_send ~self ~cmd:(selector "tabBarItem") ~typ:(returning (id)) -let targetViewControllerForAction x ~sender self = msg_send ~self ~cmd:(selector "targetViewControllerForAction:sender:") ~typ:(_SEL @-> id @-> returning (id)) x sender -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let toolbarItems self = msg_send ~self ~cmd:(selector "toolbarItems") ~typ:(returning (id)) -let topLayoutGuide self = msg_send ~self ~cmd:(selector "topLayoutGuide") ~typ:(returning (id)) -let trailingPreviewAction self = msg_send ~self ~cmd:(selector "trailingPreviewAction") ~typ:(returning (id)) -let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let traitCollectionForChildViewController x self = msg_send ~self ~cmd:(selector "traitCollectionForChildViewController:") ~typ:(id @-> returning (id)) x -let transitionCoordinator self = msg_send ~self ~cmd:(selector "transitionCoordinator") ~typ:(returning (id)) -let transitionFromViewController x ~toViewController ~duration ~options ~animations ~completion self = msg_send ~self ~cmd:(selector "transitionFromViewController:toViewController:duration:options:animations:completion:") ~typ:(id @-> id @-> double @-> ullong @-> ptr void @-> ptr void @-> returning (void)) x toViewController duration (ULLong.of_int options) animations completion -let transitionViewShouldUseViewControllerCallbacks self = msg_send ~self ~cmd:(selector "transitionViewShouldUseViewControllerCallbacks") ~typ:(returning (bool)) -let transitioningDelegate self = msg_send ~self ~cmd:(selector "transitioningDelegate") ~typ:(returning (id)) -let unloadView self = msg_send ~self ~cmd:(selector "unloadView") ~typ:(returning (void)) -let unloadViewForced x self = msg_send ~self ~cmd:(selector "unloadViewForced:") ~typ:(bool @-> returning (void)) x -let unloadViewIfReloadable self = msg_send ~self ~cmd:(selector "unloadViewIfReloadable") ~typ:(returning (void)) -let unregisterForPreviewingWithContext x self = msg_send ~self ~cmd:(selector "unregisterForPreviewingWithContext:") ~typ:(id @-> returning (void)) x -let unregisterPreviewSourceView x self = msg_send ~self ~cmd:(selector "unregisterPreviewSourceView:") ~typ:(id @-> returning (void)) x -let unregisterPreviewing x self = msg_send ~self ~cmd:(selector "unregisterPreviewing:") ~typ:(id @-> returning (void)) x -let unwindForSegue x ~towardsViewController self = msg_send ~self ~cmd:(selector "unwindForSegue:towardsViewController:") ~typ:(id @-> id @-> returning (void)) x towardsViewController -let updateFocusIfNeeded self = msg_send ~self ~cmd:(selector "updateFocusIfNeeded") ~typ:(returning (void)) -let updateTabBarItemForViewController x self = msg_send ~self ~cmd:(selector "updateTabBarItemForViewController:") ~typ:(id @-> returning (void)) x -let updateTitleForViewController x self = msg_send ~self ~cmd:(selector "updateTitleForViewController:") ~typ:(id @-> returning (void)) x -let updateUserActivityState x self = msg_send ~self ~cmd:(selector "updateUserActivityState:") ~typ:(id @-> returning (void)) x -let updateViewConstraints self = msg_send ~self ~cmd:(selector "updateViewConstraints") ~typ:(returning (void)) -let useLayoutToLayoutNavigationTransitions self = msg_send ~self ~cmd:(selector "useLayoutToLayoutNavigationTransitions") ~typ:(returning (bool)) -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let viewControllerForRotation self = msg_send ~self ~cmd:(selector "viewControllerForRotation") ~typ:(returning (id)) -let viewControllerForUnwindSegueAction x ~fromViewController ~withSender self = msg_send ~self ~cmd:(selector "viewControllerForUnwindSegueAction:fromViewController:withSender:") ~typ:(_SEL @-> id @-> id @-> returning (id)) x fromViewController withSender -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning (void)) -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewDidMoveToWindow x ~shouldAppearOrDisappear self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow:shouldAppearOrDisappear:") ~typ:(id @-> bool @-> returning (void)) x shouldAppearOrDisappear -let viewDidUnload self = msg_send ~self ~cmd:(selector "viewDidUnload") ~typ:(returning (void)) -let viewIfLoaded self = msg_send ~self ~cmd:(selector "viewIfLoaded") ~typ:(returning (id)) -let viewIsAppearing x self = msg_send ~self ~cmd:(selector "viewIsAppearing:") ~typ:(bool @-> returning (void)) x -let viewLayoutMarginsDidChange self = msg_send ~self ~cmd:(selector "viewLayoutMarginsDidChange") ~typ:(returning (void)) -let viewRespectsSystemMinimumLayoutMargins self = msg_send ~self ~cmd:(selector "viewRespectsSystemMinimumLayoutMargins") ~typ:(returning (bool)) -let viewSafeAreaInsetsDidChange self = msg_send ~self ~cmd:(selector "viewSafeAreaInsetsDidChange") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "viewWillLayoutSubviews") ~typ:(returning (void)) -let viewWillMoveToWindow x self = msg_send ~self ~cmd:(selector "viewWillMoveToWindow:") ~typ:(id @-> returning (void)) x -let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning (void)) x withTransitionCoordinator -let viewWillUnload self = msg_send ~self ~cmd:(selector "viewWillUnload") ~typ:(returning (void)) -let wantsFullScreenLayout self = msg_send ~self ~cmd:(selector "wantsFullScreenLayout") ~typ:(returning (bool)) -let willAnimateFirstHalfOfRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateFirstHalfOfRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willAnimateSecondHalfOfRotationFromInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateSecondHalfOfRotationFromInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willMoveToParentViewController x self = msg_send ~self ~cmd:(selector "willMoveToParentViewController:") ~typ:(id @-> returning (void)) x -let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning (void)) (LLong.of_int x) duration -let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning (void)) x withTransitionCoordinator -let window x ~didAnimateFirstHalfOfRotationToInterfaceOrientation self = msg_send ~self ~cmd:(selector "window:didAnimateFirstHalfOfRotationToInterfaceOrientation:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int didAnimateFirstHalfOfRotationToInterfaceOrientation) -let window1 x ~didRotateFromInterfaceOrientation self = msg_send ~self ~cmd:(selector "window:didRotateFromInterfaceOrientation:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int didRotateFromInterfaceOrientation) -let window2 x ~resizeFromOrientation self = msg_send ~self ~cmd:(selector "window:resizeFromOrientation:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int resizeFromOrientation) -let window3 x ~setupWithInterfaceOrientation self = msg_send ~self ~cmd:(selector "window:setupWithInterfaceOrientation:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int setupWithInterfaceOrientation) -let window4 x ~didRotateFromInterfaceOrientation ~oldSize self = msg_send ~self ~cmd:(selector "window:didRotateFromInterfaceOrientation:oldSize:") ~typ:(id @-> llong @-> CGSize.t @-> returning (void)) x (LLong.of_int didRotateFromInterfaceOrientation) oldSize -let window5 x ~statusBarWillChangeFromHeight ~toHeight self = msg_send ~self ~cmd:(selector "window:statusBarWillChangeFromHeight:toHeight:") ~typ:(id @-> double @-> double @-> returning (void)) x statusBarWillChangeFromHeight toHeight -let window6 x ~willAnimateFirstHalfOfRotationToInterfaceOrientation ~duration self = msg_send ~self ~cmd:(selector "window:willAnimateFirstHalfOfRotationToInterfaceOrientation:duration:") ~typ:(id @-> llong @-> double @-> returning (void)) x (LLong.of_int willAnimateFirstHalfOfRotationToInterfaceOrientation) duration -let window7 x ~willAnimateFromContentFrame ~toContentFrame self = msg_send ~self ~cmd:(selector "window:willAnimateFromContentFrame:toContentFrame:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> returning (void)) x willAnimateFromContentFrame toContentFrame -let window8 x ~willAnimateRotationToInterfaceOrientation ~duration self = msg_send ~self ~cmd:(selector "window:willAnimateRotationToInterfaceOrientation:duration:") ~typ:(id @-> llong @-> double @-> returning (void)) x (LLong.of_int willAnimateRotationToInterfaceOrientation) duration -let window9 x ~willAnimateSecondHalfOfRotationFromInterfaceOrientation ~duration self = msg_send ~self ~cmd:(selector "window:willAnimateSecondHalfOfRotationFromInterfaceOrientation:duration:") ~typ:(id @-> llong @-> double @-> returning (void)) x (LLong.of_int willAnimateSecondHalfOfRotationFromInterfaceOrientation) duration -let window10 x ~willRotateToInterfaceOrientation ~duration self = msg_send ~self ~cmd:(selector "window:willRotateToInterfaceOrientation:duration:") ~typ:(id @-> llong @-> double @-> returning (void)) x (LLong.of_int willRotateToInterfaceOrientation) duration -let window11 x ~statusBarWillChangeFromHeight ~toHeight ~windowSizedViewController self = msg_send ~self ~cmd:(selector "window:statusBarWillChangeFromHeight:toHeight:windowSizedViewController:") ~typ:(id @-> double @-> double @-> id @-> returning (void)) x statusBarWillChangeFromHeight toHeight windowSizedViewController -let window12 x ~willAnimateRotationToInterfaceOrientation ~duration ~newSize self = msg_send ~self ~cmd:(selector "window:willAnimateRotationToInterfaceOrientation:duration:newSize:") ~typ:(id @-> llong @-> double @-> CGSize.t @-> returning (void)) x (LLong.of_int willAnimateRotationToInterfaceOrientation) duration newSize -let window13 x ~willRotateToInterfaceOrientation ~duration ~newSize self = msg_send ~self ~cmd:(selector "window:willRotateToInterfaceOrientation:duration:newSize:") ~typ:(id @-> llong @-> double @-> CGSize.t @-> returning (void)) x (LLong.of_int willRotateToInterfaceOrientation) duration newSize \ No newline at end of file +let allowedChildViewControllersForUnwindingFromSource x self = msg_send ~self ~cmd:(selector "allowedChildViewControllersForUnwindingFromSource:") ~typ:(id @-> returning id) x +let appearanceTransitionsAreDisabled self = msg_send ~self ~cmd:(selector "appearanceTransitionsAreDisabled") ~typ:(returning bool) +let applicationDidResume self = msg_send ~self ~cmd:(selector "applicationDidResume") ~typ:(returning void) +let applicationFinishedRestoringState self = msg_send ~self ~cmd:(selector "applicationFinishedRestoringState") ~typ:(returning void) +let applicationWantsViewsToDisappear self = msg_send ~self ~cmd:(selector "applicationWantsViewsToDisappear") ~typ:(returning void) +let applicationWillSuspend self = msg_send ~self ~cmd:(selector "applicationWillSuspend") ~typ:(returning void) +let attentionClassDumpUser x ~yesItsUsAgain ~althoughSwizzlingAndOverridingPrivateMethodsIsFun ~itWasntMuchFunWhenYourAppStoppedWorking ~pleaseRefrainFromDoingSoInTheFutureOkayThanksBye self = msg_send ~self ~cmd:(selector "attentionClassDumpUser:yesItsUsAgain:althoughSwizzlingAndOverridingPrivateMethodsIsFun:itWasntMuchFunWhenYourAppStoppedWorking:pleaseRefrainFromDoingSoInTheFutureOkayThanksBye:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning void) x yesItsUsAgain althoughSwizzlingAndOverridingPrivateMethodsIsFun itWasntMuchFunWhenYourAppStoppedWorking pleaseRefrainFromDoingSoInTheFutureOkayThanksBye +let automaticallyAdjustsScrollViewInsets self = msg_send ~self ~cmd:(selector "automaticallyAdjustsScrollViewInsets") ~typ:(returning bool) +let automaticallyForwardAppearanceAndRotationMethodsToChildViewControllers self = msg_send ~self ~cmd:(selector "automaticallyForwardAppearanceAndRotationMethodsToChildViewControllers") ~typ:(returning bool) +let autorelease self = msg_send ~self ~cmd:(selector "autorelease") ~typ:(returning id) +let autoresizeArchivedView self = msg_send ~self ~cmd:(selector "autoresizeArchivedView") ~typ:(returning void) +let autoresizesArchivedViewToFullSize self = msg_send ~self ~cmd:(selector "autoresizesArchivedViewToFullSize") ~typ:(returning bool) +let awakeFromNib self = msg_send ~self ~cmd:(selector "awakeFromNib") ~typ:(returning void) +let beginAppearanceTransition x ~animated self = msg_send ~self ~cmd:(selector "beginAppearanceTransition:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let beginRequestWithExtensionContext x self = msg_send ~self ~cmd:(selector "beginRequestWithExtensionContext:") ~typ:(id @-> returning void) x +let bottomLayoutGuide self = msg_send ~self ~cmd:(selector "bottomLayoutGuide") ~typ:(returning id) +let canHandleSnapbackIdentifier x ~animated self = msg_send ~self ~cmd:(selector "canHandleSnapbackIdentifier:animated:") ~typ:(id @-> bool @-> returning bool) x animated +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let canPerformUnwindSegueAction x ~fromViewController ~sender self = msg_send ~self ~cmd:(selector "canPerformUnwindSegueAction:fromViewController:sender:") ~typ:(_SEL @-> id @-> id @-> returning bool) x fromViewController sender +let canPerformUnwindSegueAction' x ~fromViewController ~withSender self = msg_send ~self ~cmd:(selector "canPerformUnwindSegueAction:fromViewController:withSender:") ~typ:(_SEL @-> id @-> id @-> returning bool) x fromViewController withSender +let cancelBeginAppearanceTransition self = msg_send ~self ~cmd:(selector "cancelBeginAppearanceTransition") ~typ:(returning void) +let childModalViewController self = msg_send ~self ~cmd:(selector "childModalViewController") ~typ:(returning id) +let childViewControllerContainingSegueSource x self = msg_send ~self ~cmd:(selector "childViewControllerContainingSegueSource:") ~typ:(id @-> returning id) x +let childViewControllerForHomeIndicatorAutoHidden self = msg_send ~self ~cmd:(selector "childViewControllerForHomeIndicatorAutoHidden") ~typ:(returning id) +let childViewControllerForPointerLock self = msg_send ~self ~cmd:(selector "childViewControllerForPointerLock") ~typ:(returning id) +let childViewControllerForScreenEdgesDeferringSystemGestures self = msg_send ~self ~cmd:(selector "childViewControllerForScreenEdgesDeferringSystemGestures") ~typ:(returning id) +let childViewControllerForStatusBarHidden self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarHidden") ~typ:(returning id) +let childViewControllerForStatusBarStyle self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarStyle") ~typ:(returning id) +let childViewControllerForTouchBar self = msg_send ~self ~cmd:(selector "childViewControllerForTouchBar") ~typ:(returning id) +let childViewControllerForUserInterfaceStyle self = msg_send ~self ~cmd:(selector "childViewControllerForUserInterfaceStyle") ~typ:(returning id) +let childViewControllerForWhitePointAdaptivityStyle self = msg_send ~self ~cmd:(selector "childViewControllerForWhitePointAdaptivityStyle") ~typ:(returning id) +let childViewControllers self = msg_send ~self ~cmd:(selector "childViewControllers") ~typ:(returning id) +let childViewControllersCount self = msg_send ~self ~cmd:(selector "childViewControllersCount") ~typ:(returning ullong) +let collapseSecondaryViewController x ~forSplitViewController self = msg_send ~self ~cmd:(selector "collapseSecondaryViewController:forSplitViewController:") ~typ:(id @-> id @-> returning void) x forSplitViewController +let containmentSupport self = msg_send ~self ~cmd:(selector "containmentSupport") ~typ:(returning bool) +let contentAlpha self = msg_send ~self ~cmd:(selector "contentAlpha") ~typ:(returning double) +let contentScrollView self = msg_send ~self ~cmd:(selector "contentScrollView") ~typ:(returning id) +let contentScrollViewForEdge x self = msg_send ~self ~cmd:(selector "contentScrollViewForEdge:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let contentSizeForViewInPopover self = msg_send ~self ~cmd:(selector "contentSizeForViewInPopover") ~typ:(returning CGSize.t) +let contentSizeForViewInPopoverView self = msg_send ~self ~cmd:(selector "contentSizeForViewInPopoverView") ~typ:(returning CGSize.t) +let contentVisibility self = msg_send ~self ~cmd:(selector "contentVisibility") ~typ:(returning llong) +let currentAction self = msg_send ~self ~cmd:(selector "currentAction") ~typ:(returning id) +let customNavigationInteractiveTransitionDuration self = msg_send ~self ~cmd:(selector "customNavigationInteractiveTransitionDuration") ~typ:(returning double) +let customNavigationInteractiveTransitionPercentComplete self = msg_send ~self ~cmd:(selector "customNavigationInteractiveTransitionPercentComplete") ~typ:(returning double) +let customTransitioningView self = msg_send ~self ~cmd:(selector "customTransitioningView") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultPNGName self = msg_send ~self ~cmd:(selector "defaultPNGName") ~typ:(returning id) +let definesPresentationContext self = msg_send ~self ~cmd:(selector "definesPresentationContext") ~typ:(returning bool) +let didAnimateFirstHalfOfRotationToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didAnimateFirstHalfOfRotationToInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let didMoveToParentViewController x self = msg_send ~self ~cmd:(selector "didMoveToParentViewController:") ~typ:(id @-> returning void) x +let didReceiveMemoryWarning self = msg_send ~self ~cmd:(selector "didReceiveMemoryWarning") ~typ:(returning void) +let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let disablesAutomaticKeyboardDismissal self = msg_send ~self ~cmd:(selector "disablesAutomaticKeyboardDismissal") ~typ:(returning bool) +let dismissModalViewControllerAnimated x self = msg_send ~self ~cmd:(selector "dismissModalViewControllerAnimated:") ~typ:(bool @-> returning void) x +let dismissModalViewControllerWithTransition x self = msg_send ~self ~cmd:(selector "dismissModalViewControllerWithTransition:") ~typ:(int @-> returning void) x +let dismissMoviePlayerViewControllerAnimated self = msg_send ~self ~cmd:(selector "dismissMoviePlayerViewControllerAnimated") ~typ:(returning void) +let dismissViewControllerAnimated x ~completion self = msg_send ~self ~cmd:(selector "dismissViewControllerAnimated:completion:") ~typ:(bool @-> (ptr void) @-> returning void) x completion +let dismissViewControllerWithTransition x ~completion self = msg_send ~self ~cmd:(selector "dismissViewControllerWithTransition:completion:") ~typ:(int @-> (ptr void) @-> returning void) x completion +let dropShadowView self = msg_send ~self ~cmd:(selector "dropShadowView") ~typ:(returning id) +let durationForTransition x self = msg_send ~self ~cmd:(selector "durationForTransition:") ~typ:(int @-> returning double) x +let edgesForExtendedLayout self = msg_send ~self ~cmd:(selector "edgesForExtendedLayout") ~typ:(returning ullong) +let editButtonItem self = msg_send ~self ~cmd:(selector "editButtonItem") ~typ:(returning id) +let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let endAppearanceTransition self = msg_send ~self ~cmd:(selector "endAppearanceTransition") ~typ:(returning void) +let extendedLayoutIncludesOpaqueBars self = msg_send ~self ~cmd:(selector "extendedLayoutIncludesOpaqueBars") ~typ:(returning bool) +let extensionContext self = msg_send ~self ~cmd:(selector "extensionContext") ~typ:(returning id) +let focusGroupIdentifier self = msg_send ~self ~cmd:(selector "focusGroupIdentifier") ~typ:(returning id) +let focusItemContainer self = msg_send ~self ~cmd:(selector "focusItemContainer") ~typ:(returning id) +let forceUnloadView self = msg_send ~self ~cmd:(selector "forceUnloadView") ~typ:(returning void) +let formSheetSize self = msg_send ~self ~cmd:(selector "formSheetSize") ~typ:(returning CGSize.t) +let getRotationContentSettings x ~forWindow self = msg_send ~self ~cmd:(selector "getRotationContentSettings:forWindow:") ~typ:((ptr void) @-> id @-> returning void) x forWindow +let hidesBottomBarWhenPushed self = msg_send ~self ~cmd:(selector "hidesBottomBarWhenPushed") ~typ:(returning bool) +let ignoresParentMargins self = msg_send ~self ~cmd:(selector "ignoresParentMargins") ~typ:(returning bool) +let inExplicitAppearanceTransition self = msg_send ~self ~cmd:(selector "inExplicitAppearanceTransition") ~typ:(returning bool) +let infoCardThemeChanged self = msg_send ~self ~cmd:(selector "infoCardThemeChanged") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning llong) +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning id) +let isBeingDismissed self = msg_send ~self ~cmd:(selector "isBeingDismissed") ~typ:(returning bool) +let isBeingPresented self = msg_send ~self ~cmd:(selector "isBeingPresented") ~typ:(returning bool) +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let isFinishingModalTransition self = msg_send ~self ~cmd:(selector "isFinishingModalTransition") ~typ:(returning bool) +let isInAnimatedVCTransition self = msg_send ~self ~cmd:(selector "isInAnimatedVCTransition") ~typ:(returning bool) +let isInWillRotateCallback self = msg_send ~self ~cmd:(selector "isInWillRotateCallback") ~typ:(returning bool) +let isModalInPopover self = msg_send ~self ~cmd:(selector "isModalInPopover") ~typ:(returning bool) +let isModalInPresentation self = msg_send ~self ~cmd:(selector "isModalInPresentation") ~typ:(returning bool) +let isMovingFromParentViewController self = msg_send ~self ~cmd:(selector "isMovingFromParentViewController") ~typ:(returning bool) +let isMovingToParentViewController self = msg_send ~self ~cmd:(selector "isMovingToParentViewController") ~typ:(returning bool) +let isPerformingModalTransition self = msg_send ~self ~cmd:(selector "isPerformingModalTransition") ~typ:(returning bool) +let isSettingAppearState self = msg_send ~self ~cmd:(selector "isSettingAppearState") ~typ:(returning bool) +let isSheet self = msg_send ~self ~cmd:(selector "isSheet") ~typ:(returning bool) +let isUsingLegacyContainment self = msg_send ~self ~cmd:(selector "isUsingLegacyContainment") ~typ:(returning bool) +let isViewControllerModallyPresented self = msg_send ~self ~cmd:(selector "isViewControllerModallyPresented") ~typ:(returning bool) +let isViewLoaded self = msg_send ~self ~cmd:(selector "isViewLoaded") ~typ:(returning bool) +let keyCommands self = msg_send ~self ~cmd:(selector "keyCommands") ~typ:(returning id) +let leadingPreviewAction self = msg_send ~self ~cmd:(selector "leadingPreviewAction") ~typ:(returning id) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let loadViewIfNeeded self = msg_send ~self ~cmd:(selector "loadViewIfNeeded") ~typ:(returning void) +let loadViewIfRequired self = msg_send ~self ~cmd:(selector "loadViewIfRequired") ~typ:(returning void) +let modalInPopover self = msg_send ~self ~cmd:(selector "modalInPopover") ~typ:(returning bool) +let modalPresentationCapturesStatusBarAppearance self = msg_send ~self ~cmd:(selector "modalPresentationCapturesStatusBarAppearance") ~typ:(returning bool) +let modalPresentationStyle self = msg_send ~self ~cmd:(selector "modalPresentationStyle") ~typ:(returning llong) +let modalTransitionStyle self = msg_send ~self ~cmd:(selector "modalTransitionStyle") ~typ:(returning llong) +let modalViewController self = msg_send ~self ~cmd:(selector "modalViewController") ~typ:(returning id) +let moreListImage self = msg_send ~self ~cmd:(selector "moreListImage") ~typ:(returning id) +let moreListSelectedImage self = msg_send ~self ~cmd:(selector "moreListSelectedImage") ~typ:(returning id) +let moreListTableCell self = msg_send ~self ~cmd:(selector "moreListTableCell") ~typ:(returning id) +let mutableChildViewControllers self = msg_send ~self ~cmd:(selector "mutableChildViewControllers") ~typ:(returning id) +let navigationController self = msg_send ~self ~cmd:(selector "navigationController") ~typ:(returning id) +let navigationInsetAdjustment self = msg_send ~self ~cmd:(selector "navigationInsetAdjustment") ~typ:(returning id) +let navigationItem self = msg_send ~self ~cmd:(selector "navigationItem") ~typ:(returning id) +let needsDidMoveCleanup self = msg_send ~self ~cmd:(selector "needsDidMoveCleanup") ~typ:(returning bool) +let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning id) +let nibBundle self = msg_send ~self ~cmd:(selector "nibBundle") ~typ:(returning id) +let nibName self = msg_send ~self ~cmd:(selector "nibName") ~typ:(returning id) +let overrideTraitCollection self = msg_send ~self ~cmd:(selector "overrideTraitCollection") ~typ:(returning id) +let overrideTraitCollectionForChildViewController x self = msg_send ~self ~cmd:(selector "overrideTraitCollectionForChildViewController:") ~typ:(id @-> returning id) x +let overrideUserInterfaceStyle self = msg_send ~self ~cmd:(selector "overrideUserInterfaceStyle") ~typ:(returning llong) +let parentFocusEnvironment self = msg_send ~self ~cmd:(selector "parentFocusEnvironment") ~typ:(returning id) +let parentModalViewController self = msg_send ~self ~cmd:(selector "parentModalViewController") ~typ:(returning id) +let parentViewController self = msg_send ~self ~cmd:(selector "parentViewController") ~typ:(returning id) +let performSegueWithIdentifier x ~sender self = msg_send ~self ~cmd:(selector "performSegueWithIdentifier:sender:") ~typ:(id @-> id @-> returning void) x sender +let performsActionsWhilePresentingModally self = msg_send ~self ~cmd:(selector "performsActionsWhilePresentingModally") ~typ:(returning bool) +let popoverPresentationController self = msg_send ~self ~cmd:(selector "popoverPresentationController") ~typ:(returning id) +let popoverPresentationController' x self = msg_send ~self ~cmd:(selector "popoverPresentationController:") ~typ:(bool @-> returning id) x +let preferredContentSize self = msg_send ~self ~cmd:(selector "preferredContentSize") ~typ:(returning CGSize.t) +let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning void) x +let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning id) +let preferredFocusedItem self = msg_send ~self ~cmd:(selector "preferredFocusedItem") ~typ:(returning id) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let preferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "preferredInterfaceOrientationForPresentation") ~typ:(returning llong) +let preferredScreenEdgesDeferringSystemGestures self = msg_send ~self ~cmd:(selector "preferredScreenEdgesDeferringSystemGestures") ~typ:(returning ullong) +let preferredStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredStatusBarStyle") ~typ:(returning llong) +let preferredStatusBarUpdateAnimation self = msg_send ~self ~cmd:(selector "preferredStatusBarUpdateAnimation") ~typ:(returning llong) +let preferredUserInterfaceStyle self = msg_send ~self ~cmd:(selector "preferredUserInterfaceStyle") ~typ:(returning llong) +let preferredWhitePointAdaptivityStyle self = msg_send ~self ~cmd:(selector "preferredWhitePointAdaptivityStyle") ~typ:(returning llong) +let prefersHomeIndicatorAutoHidden self = msg_send ~self ~cmd:(selector "prefersHomeIndicatorAutoHidden") ~typ:(returning bool) +let prefersPointerLocked self = msg_send ~self ~cmd:(selector "prefersPointerLocked") ~typ:(returning bool) +let prefersStatusBarHidden self = msg_send ~self ~cmd:(selector "prefersStatusBarHidden") ~typ:(returning bool) +let prepareForSegue x ~sender self = msg_send ~self ~cmd:(selector "prepareForSegue:sender:") ~typ:(id @-> id @-> returning void) x sender +let presentModalViewController x ~animated self = msg_send ~self ~cmd:(selector "presentModalViewController:animated:") ~typ:(id @-> bool @-> returning void) x animated +let presentModalViewController' x ~withTransition self = msg_send ~self ~cmd:(selector "presentModalViewController:withTransition:") ~typ:(id @-> int @-> returning void) x withTransition +let presentMoviePlayerViewControllerAnimated x self = msg_send ~self ~cmd:(selector "presentMoviePlayerViewControllerAnimated:") ~typ:(id @-> returning void) x +let presentViewController x ~animated ~completion self = msg_send ~self ~cmd:(selector "presentViewController:animated:completion:") ~typ:(id @-> bool @-> (ptr void) @-> returning void) x animated completion +let presentViewController' x ~withTransition ~completion self = msg_send ~self ~cmd:(selector "presentViewController:withTransition:completion:") ~typ:(id @-> int @-> (ptr void) @-> returning void) x withTransition completion +let presentationController self = msg_send ~self ~cmd:(selector "presentationController") ~typ:(returning id) +let presentedViewController self = msg_send ~self ~cmd:(selector "presentedViewController") ~typ:(returning id) +let presentingViewController self = msg_send ~self ~cmd:(selector "presentingViewController") ~typ:(returning id) +let previewActionItems self = msg_send ~self ~cmd:(selector "previewActionItems") ~typ:(returning id) +let previewActions self = msg_send ~self ~cmd:(selector "previewActions") ~typ:(returning id) +let previewMenuItems self = msg_send ~self ~cmd:(selector "previewMenuItems") ~typ:(returning id) +let providesPresentationContextTransitionStyle self = msg_send ~self ~cmd:(selector "providesPresentationContextTransitionStyle") ~typ:(returning bool) +let purgeMemoryForReason x self = msg_send ~self ~cmd:(selector "purgeMemoryForReason:") ~typ:(int @-> returning void) x +let registerForPreviewingWithDelegate x ~sourceView self = msg_send ~self ~cmd:(selector "registerForPreviewingWithDelegate:sourceView:") ~typ:(id @-> id @-> returning id) x sourceView +let registerPreviewSourceView x ~previewingDelegate self = msg_send ~self ~cmd:(selector "registerPreviewSourceView:previewingDelegate:") ~typ:(id @-> id @-> returning void) x previewingDelegate +let release self = msg_send ~self ~cmd:(selector "release") ~typ:(returning void) +let removeChildViewController x self = msg_send ~self ~cmd:(selector "removeChildViewController:") ~typ:(id @-> returning void) x +let removeChildViewController' x ~notifyDidMove self = msg_send ~self ~cmd:(selector "removeChildViewController:notifyDidMove:") ~typ:(id @-> bool @-> returning void) x notifyDidMove +let removeFromParentViewController self = msg_send ~self ~cmd:(selector "removeFromParentViewController") ~typ:(returning void) +let removeKeyCommand x self = msg_send ~self ~cmd:(selector "removeKeyCommand:") ~typ:(id @-> returning void) x +let restorationClass self = msg_send ~self ~cmd:(selector "restorationClass") ~typ:(returning _Class) +let restoreUserActivityState x self = msg_send ~self ~cmd:(selector "restoreUserActivityState:") ~typ:(id @-> returning void) x +let restoresFocusAfterTransition self = msg_send ~self ~cmd:(selector "restoresFocusAfterTransition") ~typ:(returning bool) +let retain self = msg_send ~self ~cmd:(selector "retain") ~typ:(returning id) +let retainCount self = msg_send ~self ~cmd:(selector "retainCount") ~typ:(returning ullong) +let rotatingContentViewForWindow x self = msg_send ~self ~cmd:(selector "rotatingContentViewForWindow:") ~typ:(id @-> returning id) x +let rotatingFooterView self = msg_send ~self ~cmd:(selector "rotatingFooterView") ~typ:(returning id) +let rotatingFooterViewForWindow x self = msg_send ~self ~cmd:(selector "rotatingFooterViewForWindow:") ~typ:(id @-> returning id) x +let rotatingHeaderView self = msg_send ~self ~cmd:(selector "rotatingHeaderView") ~typ:(returning id) +let rotatingHeaderViewForWindow x self = msg_send ~self ~cmd:(selector "rotatingHeaderViewForWindow:") ~typ:(id @-> returning id) x +let rotatingSnapshotViewForWindow x self = msg_send ~self ~cmd:(selector "rotatingSnapshotViewForWindow:") ~typ:(id @-> returning id) x +let safeAreaLayoutGuide self = msg_send ~self ~cmd:(selector "safeAreaLayoutGuide") ~typ:(returning id) +let savedHeaderSuperview self = msg_send ~self ~cmd:(selector "savedHeaderSuperview") ~typ:(returning id) +let searchBarHidNavBar self = msg_send ~self ~cmd:(selector "searchBarHidNavBar") ~typ:(returning bool) +let searchDisplayController self = msg_send ~self ~cmd:(selector "searchDisplayController") ~typ:(returning id) +let segueForUnwindingToViewController x ~fromViewController ~identifier self = msg_send ~self ~cmd:(selector "segueForUnwindingToViewController:fromViewController:identifier:") ~typ:(id @-> id @-> id @-> returning id) x fromViewController identifier +let separateSecondaryViewControllerForSplitViewController x self = msg_send ~self ~cmd:(selector "separateSecondaryViewControllerForSplitViewController:") ~typ:(id @-> returning id) x +let setAccessibilityIdentifier x self = msg_send ~self ~cmd:(selector "setAccessibilityIdentifier:") ~typ:(id @-> returning void) x +let setAdditionalSafeAreaInsets x self = msg_send ~self ~cmd:(selector "setAdditionalSafeAreaInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setAfterAppearanceBlock x self = msg_send ~self ~cmd:(selector "setAfterAppearanceBlock:") ~typ:((ptr void) @-> returning void) x +let setAppearanceTransitionsAreDisabled x self = msg_send ~self ~cmd:(selector "setAppearanceTransitionsAreDisabled:") ~typ:(bool @-> returning void) x +let setAutomaticallyAdjustsScrollViewInsets x self = msg_send ~self ~cmd:(selector "setAutomaticallyAdjustsScrollViewInsets:") ~typ:(bool @-> returning void) x +let setAutoresizesArchivedViewToFullSize x self = msg_send ~self ~cmd:(selector "setAutoresizesArchivedViewToFullSize:") ~typ:(bool @-> returning void) x +let setChildModalViewController x self = msg_send ~self ~cmd:(selector "setChildModalViewController:") ~typ:(id @-> returning void) x +let setContainmentSupport x self = msg_send ~self ~cmd:(selector "setContainmentSupport:") ~typ:(bool @-> returning void) x +let setContentAlpha x self = msg_send ~self ~cmd:(selector "setContentAlpha:") ~typ:(double @-> returning void) x +let setContentScrollView x ~forEdge self = msg_send ~self ~cmd:(selector "setContentScrollView:forEdge:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forEdge) +let setContentSizeForViewInPopover x self = msg_send ~self ~cmd:(selector "setContentSizeForViewInPopover:") ~typ:(CGSize.t @-> returning void) x +let setContentVisibility x self = msg_send ~self ~cmd:(selector "setContentVisibility:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCustomNavigationInteractiveTransitionDuration x self = msg_send ~self ~cmd:(selector "setCustomNavigationInteractiveTransitionDuration:") ~typ:(double @-> returning void) x +let setCustomNavigationInteractiveTransitionPercentComplete x self = msg_send ~self ~cmd:(selector "setCustomNavigationInteractiveTransitionPercentComplete:") ~typ:(double @-> returning void) x +let setCustomTransitioningView x self = msg_send ~self ~cmd:(selector "setCustomTransitioningView:") ~typ:(id @-> returning void) x +let setDefinesPresentationContext x self = msg_send ~self ~cmd:(selector "setDefinesPresentationContext:") ~typ:(bool @-> returning void) x +let setDisablesAutomaticKeyboardDismissal x self = msg_send ~self ~cmd:(selector "setDisablesAutomaticKeyboardDismissal:") ~typ:(bool @-> returning void) x +let setDropShadowView x self = msg_send ~self ~cmd:(selector "setDropShadowView:") ~typ:(id @-> returning void) x +let setEdgesForExtendedLayout x self = msg_send ~self ~cmd:(selector "setEdgesForExtendedLayout:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning void) x +let setEditing' x ~animated self = msg_send ~self ~cmd:(selector "setEditing:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setExtendedLayoutIncludesOpaqueBars x self = msg_send ~self ~cmd:(selector "setExtendedLayoutIncludesOpaqueBars:") ~typ:(bool @-> returning void) x +let setFinishingModalTransition x self = msg_send ~self ~cmd:(selector "setFinishingModalTransition:") ~typ:(bool @-> returning void) x +let setFocusGroupIdentifier x self = msg_send ~self ~cmd:(selector "setFocusGroupIdentifier:") ~typ:(id @-> returning void) x +let setFormSheetSize x self = msg_send ~self ~cmd:(selector "setFormSheetSize:") ~typ:(CGSize.t @-> returning void) x +let setHidesBottomBarWhenPushed x self = msg_send ~self ~cmd:(selector "setHidesBottomBarWhenPushed:") ~typ:(bool @-> returning void) x +let setIgnoresParentMargins x self = msg_send ~self ~cmd:(selector "setIgnoresParentMargins:") ~typ:(bool @-> returning void) x +let setInAnimatedVCTransition x self = msg_send ~self ~cmd:(selector "setInAnimatedVCTransition:") ~typ:(bool @-> returning void) x +let setInWillRotateCallback x self = msg_send ~self ~cmd:(selector "setInWillRotateCallback:") ~typ:(bool @-> returning void) x +let setInterfaceOrientation x self = msg_send ~self ~cmd:(selector "setInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setIsSheet x self = msg_send ~self ~cmd:(selector "setIsSheet:") ~typ:(bool @-> returning void) x +let setModalInPopover x self = msg_send ~self ~cmd:(selector "setModalInPopover:") ~typ:(bool @-> returning void) x +let setModalInPresentation x self = msg_send ~self ~cmd:(selector "setModalInPresentation:") ~typ:(bool @-> returning void) x +let setModalPresentationCapturesStatusBarAppearance x self = msg_send ~self ~cmd:(selector "setModalPresentationCapturesStatusBarAppearance:") ~typ:(bool @-> returning void) x +let setModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setModalPresentationStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setModalTransitionStyle x self = msg_send ~self ~cmd:(selector "setModalTransitionStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setMutableChildViewControllers x self = msg_send ~self ~cmd:(selector "setMutableChildViewControllers:") ~typ:(id @-> returning void) x +let setNavigationInsetAdjustment x self = msg_send ~self ~cmd:(selector "setNavigationInsetAdjustment:") ~typ:(id @-> returning void) x +let setNeedsDidMoveCleanup x self = msg_send ~self ~cmd:(selector "setNeedsDidMoveCleanup:") ~typ:(bool @-> returning void) x +let setNeedsFocusUpdate self = msg_send ~self ~cmd:(selector "setNeedsFocusUpdate") ~typ:(returning void) +let setNeedsStatusBarAppearanceUpdate self = msg_send ~self ~cmd:(selector "setNeedsStatusBarAppearanceUpdate") ~typ:(returning void) +let setNeedsTouchBarUpdate self = msg_send ~self ~cmd:(selector "setNeedsTouchBarUpdate") ~typ:(returning void) +let setNeedsUpdateOfHomeIndicatorAutoHidden self = msg_send ~self ~cmd:(selector "setNeedsUpdateOfHomeIndicatorAutoHidden") ~typ:(returning void) +let setNeedsUpdateOfPrefersPointerLocked self = msg_send ~self ~cmd:(selector "setNeedsUpdateOfPrefersPointerLocked") ~typ:(returning void) +let setNeedsUpdateOfScreenEdgesDeferringSystemGestures self = msg_send ~self ~cmd:(selector "setNeedsUpdateOfScreenEdgesDeferringSystemGestures") ~typ:(returning void) +let setNeedsUserInterfaceAppearanceUpdate self = msg_send ~self ~cmd:(selector "setNeedsUserInterfaceAppearanceUpdate") ~typ:(returning void) +let setNeedsWhitePointAdaptivityStyleUpdate self = msg_send ~self ~cmd:(selector "setNeedsWhitePointAdaptivityStyleUpdate") ~typ:(returning void) +let setNibBundle x self = msg_send ~self ~cmd:(selector "setNibBundle:") ~typ:(id @-> returning void) x +let setNibName x self = msg_send ~self ~cmd:(selector "setNibName:") ~typ:(id @-> returning void) x +let setOverrideTraitCollection x self = msg_send ~self ~cmd:(selector "setOverrideTraitCollection:") ~typ:(id @-> returning void) x +let setOverrideTraitCollection' x ~forChildViewController self = msg_send ~self ~cmd:(selector "setOverrideTraitCollection:forChildViewController:") ~typ:(id @-> id @-> returning void) x forChildViewController +let setOverrideUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setOverrideUserInterfaceStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setParentModalViewController x self = msg_send ~self ~cmd:(selector "setParentModalViewController:") ~typ:(id @-> returning void) x +let setParentViewController x self = msg_send ~self ~cmd:(selector "setParentViewController:") ~typ:(id @-> returning void) x +let setPerformingModalTransition x self = msg_send ~self ~cmd:(selector "setPerformingModalTransition:") ~typ:(bool @-> returning void) x +let setPreferredContentSize x self = msg_send ~self ~cmd:(selector "setPreferredContentSize:") ~typ:(CGSize.t @-> returning void) x +let setPreferredFocusedItem x self = msg_send ~self ~cmd:(selector "setPreferredFocusedItem:") ~typ:(id @-> returning void) x +let setPreferredFocusedView x self = msg_send ~self ~cmd:(selector "setPreferredFocusedView:") ~typ:(id @-> returning void) x +let setPreferredUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setPreferredUserInterfaceStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setProvidesPresentationContextTransitionStyle x self = msg_send ~self ~cmd:(selector "setProvidesPresentationContextTransitionStyle:") ~typ:(bool @-> returning void) x +let setRestorationClass x self = msg_send ~self ~cmd:(selector "setRestorationClass:") ~typ:(_Class @-> returning void) x +let setRestoresFocusAfterTransition x self = msg_send ~self ~cmd:(selector "setRestoresFocusAfterTransition:") ~typ:(bool @-> returning void) x +let setSearchBarHidNavBar x self = msg_send ~self ~cmd:(selector "setSearchBarHidNavBar:") ~typ:(bool @-> returning void) x +let setSearchDisplayController x self = msg_send ~self ~cmd:(selector "setSearchDisplayController:") ~typ:(id @-> returning void) x +let setShouldForceNonAnimatedTransition x self = msg_send ~self ~cmd:(selector "setShouldForceNonAnimatedTransition:") ~typ:(bool @-> returning void) x +let setStoryboardIdentifier x self = msg_send ~self ~cmd:(selector "setStoryboardIdentifier:") ~typ:(id @-> returning void) x +let setTabBarItem x self = msg_send ~self ~cmd:(selector "setTabBarItem:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let setToolbarItems x self = msg_send ~self ~cmd:(selector "setToolbarItems:") ~typ:(id @-> returning void) x +let setToolbarItems' x ~animated self = msg_send ~self ~cmd:(selector "setToolbarItems:animated:") ~typ:(id @-> bool @-> returning void) x animated +let setTransitioningDelegate x self = msg_send ~self ~cmd:(selector "setTransitioningDelegate:") ~typ:(id @-> returning void) x +let setUseLegacyContainment x self = msg_send ~self ~cmd:(selector "setUseLegacyContainment:") ~typ:(bool @-> returning void) x +let setUserActivity x self = msg_send ~self ~cmd:(selector "setUserActivity:") ~typ:(id @-> returning void) x +let setValue x ~forKey self = msg_send ~self ~cmd:(selector "setValue:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let setViewRespectsSystemMinimumLayoutMargins x self = msg_send ~self ~cmd:(selector "setViewRespectsSystemMinimumLayoutMargins:") ~typ:(bool @-> returning void) x +let setWantsFullScreenLayout x self = msg_send ~self ~cmd:(selector "setWantsFullScreenLayout:") ~typ:(bool @-> returning void) x +let sheetPresentationController self = msg_send ~self ~cmd:(selector "sheetPresentationController") ~typ:(returning id) +let shouldAutomaticallyForwardAppearanceMethods self = msg_send ~self ~cmd:(selector "shouldAutomaticallyForwardAppearanceMethods") ~typ:(returning bool) +let shouldAutomaticallyForwardRotationMethods self = msg_send ~self ~cmd:(selector "shouldAutomaticallyForwardRotationMethods") ~typ:(returning bool) +let shouldAutorotate self = msg_send ~self ~cmd:(selector "shouldAutorotate") ~typ:(returning bool) +let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let shouldPerformSegueWithIdentifier x ~sender self = msg_send ~self ~cmd:(selector "shouldPerformSegueWithIdentifier:sender:") ~typ:(id @-> id @-> returning bool) x sender +let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning bool) x +let shouldWindowUseOnePartInterfaceRotationAnimation x self = msg_send ~self ~cmd:(selector "shouldWindowUseOnePartInterfaceRotationAnimation:") ~typ:(id @-> returning bool) x +let showDetailViewController x ~sender self = msg_send ~self ~cmd:(selector "showDetailViewController:sender:") ~typ:(id @-> id @-> returning void) x sender +let showViewController x ~sender self = msg_send ~self ~cmd:(selector "showViewController:sender:") ~typ:(id @-> id @-> returning void) x sender +let sizeForChildContentContainer x ~withParentContainerSize self = msg_send ~self ~cmd:(selector "sizeForChildContentContainer:withParentContainerSize:") ~typ:(id @-> CGSize.t @-> returning CGSize.t) x withParentContainerSize +let splitViewController self = msg_send ~self ~cmd:(selector "splitViewController") ~typ:(returning id) +let storyboard self = msg_send ~self ~cmd:(selector "storyboard") ~typ:(returning id) +let storyboardCommitSegueTemplates self = msg_send ~self ~cmd:(selector "storyboardCommitSegueTemplates") ~typ:(returning id) +let storyboardIdentifier self = msg_send ~self ~cmd:(selector "storyboardIdentifier") ~typ:(returning id) +let storyboardPreviewSegueTemplates self = msg_send ~self ~cmd:(selector "storyboardPreviewSegueTemplates") ~typ:(returning id) +let storyboardPreviewingRegistrants self = msg_send ~self ~cmd:(selector "storyboardPreviewingRegistrants") ~typ:(returning id) +let storyboardSegueTemplates self = msg_send ~self ~cmd:(selector "storyboardSegueTemplates") ~typ:(returning id) +let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning ullong) +let systemLayoutFittingSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "systemLayoutFittingSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning void) x +let systemLayoutFittingSizeDidChangeForChildViewController x self = msg_send ~self ~cmd:(selector "systemLayoutFittingSizeDidChangeForChildViewController:") ~typ:(id @-> returning void) x +let systemMinimumLayoutMargins self = msg_send ~self ~cmd:(selector "systemMinimumLayoutMargins") ~typ:(returning NSDirectionalEdgeInsets.t) +let tabBarController self = msg_send ~self ~cmd:(selector "tabBarController") ~typ:(returning id) +let tabBarItem self = msg_send ~self ~cmd:(selector "tabBarItem") ~typ:(returning id) +let targetViewControllerForAction x ~sender self = msg_send ~self ~cmd:(selector "targetViewControllerForAction:sender:") ~typ:(_SEL @-> id @-> returning id) x sender +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let toolbarItems self = msg_send ~self ~cmd:(selector "toolbarItems") ~typ:(returning id) +let topLayoutGuide self = msg_send ~self ~cmd:(selector "topLayoutGuide") ~typ:(returning id) +let trailingPreviewAction self = msg_send ~self ~cmd:(selector "trailingPreviewAction") ~typ:(returning id) +let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let traitCollectionForChildViewController x self = msg_send ~self ~cmd:(selector "traitCollectionForChildViewController:") ~typ:(id @-> returning id) x +let tranformForScreenOriginRotation x self = msg_send ~self ~cmd:(selector "tranformForScreenOriginRotation:") ~typ:(float @-> returning CGAffineTransform.t) x +let transitionCoordinator self = msg_send ~self ~cmd:(selector "transitionCoordinator") ~typ:(returning id) +let transitionFromViewController x ~toViewController ~duration ~options ~animations ~completion self = msg_send ~self ~cmd:(selector "transitionFromViewController:toViewController:duration:options:animations:completion:") ~typ:(id @-> id @-> double @-> ullong @-> (ptr void) @-> (ptr void) @-> returning void) x toViewController duration (ULLong.of_int options) animations completion +let transitionViewShouldUseViewControllerCallbacks self = msg_send ~self ~cmd:(selector "transitionViewShouldUseViewControllerCallbacks") ~typ:(returning bool) +let transitioningDelegate self = msg_send ~self ~cmd:(selector "transitioningDelegate") ~typ:(returning id) +let unloadView self = msg_send ~self ~cmd:(selector "unloadView") ~typ:(returning void) +let unloadViewForced x self = msg_send ~self ~cmd:(selector "unloadViewForced:") ~typ:(bool @-> returning void) x +let unloadViewIfReloadable self = msg_send ~self ~cmd:(selector "unloadViewIfReloadable") ~typ:(returning void) +let unregisterForPreviewingWithContext x self = msg_send ~self ~cmd:(selector "unregisterForPreviewingWithContext:") ~typ:(id @-> returning void) x +let unregisterPreviewSourceView x self = msg_send ~self ~cmd:(selector "unregisterPreviewSourceView:") ~typ:(id @-> returning void) x +let unregisterPreviewing x self = msg_send ~self ~cmd:(selector "unregisterPreviewing:") ~typ:(id @-> returning void) x +let unwindForSegue x ~towardsViewController self = msg_send ~self ~cmd:(selector "unwindForSegue:towardsViewController:") ~typ:(id @-> id @-> returning void) x towardsViewController +let updateFocusIfNeeded self = msg_send ~self ~cmd:(selector "updateFocusIfNeeded") ~typ:(returning void) +let updateTabBarItemForViewController x self = msg_send ~self ~cmd:(selector "updateTabBarItemForViewController:") ~typ:(id @-> returning void) x +let updateTitleForViewController x self = msg_send ~self ~cmd:(selector "updateTitleForViewController:") ~typ:(id @-> returning void) x +let updateUserActivityState x self = msg_send ~self ~cmd:(selector "updateUserActivityState:") ~typ:(id @-> returning void) x +let updateViewConstraints self = msg_send ~self ~cmd:(selector "updateViewConstraints") ~typ:(returning void) +let useLayoutToLayoutNavigationTransitions self = msg_send ~self ~cmd:(selector "useLayoutToLayoutNavigationTransitions") ~typ:(returning bool) +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let viewControllerForRotation self = msg_send ~self ~cmd:(selector "viewControllerForRotation") ~typ:(returning id) +let viewControllerForUnwindSegueAction x ~fromViewController ~withSender self = msg_send ~self ~cmd:(selector "viewControllerForUnwindSegueAction:fromViewController:withSender:") ~typ:(_SEL @-> id @-> id @-> returning id) x fromViewController withSender +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning void) +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewDidMoveToWindow x ~shouldAppearOrDisappear self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow:shouldAppearOrDisappear:") ~typ:(id @-> bool @-> returning void) x shouldAppearOrDisappear +let viewDidUnload self = msg_send ~self ~cmd:(selector "viewDidUnload") ~typ:(returning void) +let viewIfLoaded self = msg_send ~self ~cmd:(selector "viewIfLoaded") ~typ:(returning id) +let viewIsAppearing x self = msg_send ~self ~cmd:(selector "viewIsAppearing:") ~typ:(bool @-> returning void) x +let viewLayoutMarginsDidChange self = msg_send ~self ~cmd:(selector "viewLayoutMarginsDidChange") ~typ:(returning void) +let viewRespectsSystemMinimumLayoutMargins self = msg_send ~self ~cmd:(selector "viewRespectsSystemMinimumLayoutMargins") ~typ:(returning bool) +let viewSafeAreaInsetsDidChange self = msg_send ~self ~cmd:(selector "viewSafeAreaInsetsDidChange") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let viewWillLayoutSubviews self = msg_send ~self ~cmd:(selector "viewWillLayoutSubviews") ~typ:(returning void) +let viewWillMoveToWindow x self = msg_send ~self ~cmd:(selector "viewWillMoveToWindow:") ~typ:(id @-> returning void) x +let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning void) x withTransitionCoordinator +let viewWillUnload self = msg_send ~self ~cmd:(selector "viewWillUnload") ~typ:(returning void) +let wantsFullScreenLayout self = msg_send ~self ~cmd:(selector "wantsFullScreenLayout") ~typ:(returning bool) +let willAnimateFirstHalfOfRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateFirstHalfOfRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willAnimateSecondHalfOfRotationFromInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateSecondHalfOfRotationFromInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willMoveToParentViewController x self = msg_send ~self ~cmd:(selector "willMoveToParentViewController:") ~typ:(id @-> returning void) x +let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning void) x withTransitionCoordinator +let window x ~didAnimateFirstHalfOfRotationToInterfaceOrientation self = msg_send ~self ~cmd:(selector "window:didAnimateFirstHalfOfRotationToInterfaceOrientation:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int didAnimateFirstHalfOfRotationToInterfaceOrientation) +let window1 x ~didRotateFromInterfaceOrientation self = msg_send ~self ~cmd:(selector "window:didRotateFromInterfaceOrientation:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int didRotateFromInterfaceOrientation) +let window2 x ~resizeFromOrientation self = msg_send ~self ~cmd:(selector "window:resizeFromOrientation:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int resizeFromOrientation) +let window3 x ~setupWithInterfaceOrientation self = msg_send ~self ~cmd:(selector "window:setupWithInterfaceOrientation:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int setupWithInterfaceOrientation) +let window4 x ~didRotateFromInterfaceOrientation ~oldSize self = msg_send ~self ~cmd:(selector "window:didRotateFromInterfaceOrientation:oldSize:") ~typ:(id @-> llong @-> CGSize.t @-> returning void) x (LLong.of_int didRotateFromInterfaceOrientation) oldSize +let window5 x ~statusBarWillChangeFromHeight ~toHeight self = msg_send ~self ~cmd:(selector "window:statusBarWillChangeFromHeight:toHeight:") ~typ:(id @-> double @-> double @-> returning void) x statusBarWillChangeFromHeight toHeight +let window6 x ~willAnimateFirstHalfOfRotationToInterfaceOrientation ~duration self = msg_send ~self ~cmd:(selector "window:willAnimateFirstHalfOfRotationToInterfaceOrientation:duration:") ~typ:(id @-> llong @-> double @-> returning void) x (LLong.of_int willAnimateFirstHalfOfRotationToInterfaceOrientation) duration +let window7 x ~willAnimateFromContentFrame ~toContentFrame self = msg_send ~self ~cmd:(selector "window:willAnimateFromContentFrame:toContentFrame:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> returning void) x willAnimateFromContentFrame toContentFrame +let window8 x ~willAnimateRotationToInterfaceOrientation ~duration self = msg_send ~self ~cmd:(selector "window:willAnimateRotationToInterfaceOrientation:duration:") ~typ:(id @-> llong @-> double @-> returning void) x (LLong.of_int willAnimateRotationToInterfaceOrientation) duration +let window9 x ~willAnimateSecondHalfOfRotationFromInterfaceOrientation ~duration self = msg_send ~self ~cmd:(selector "window:willAnimateSecondHalfOfRotationFromInterfaceOrientation:duration:") ~typ:(id @-> llong @-> double @-> returning void) x (LLong.of_int willAnimateSecondHalfOfRotationFromInterfaceOrientation) duration +let window10 x ~willRotateToInterfaceOrientation ~duration self = msg_send ~self ~cmd:(selector "window:willRotateToInterfaceOrientation:duration:") ~typ:(id @-> llong @-> double @-> returning void) x (LLong.of_int willRotateToInterfaceOrientation) duration +let window11 x ~statusBarWillChangeFromHeight ~toHeight ~windowSizedViewController self = msg_send ~self ~cmd:(selector "window:statusBarWillChangeFromHeight:toHeight:windowSizedViewController:") ~typ:(id @-> double @-> double @-> id @-> returning void) x statusBarWillChangeFromHeight toHeight windowSizedViewController +let window12 x ~willAnimateRotationToInterfaceOrientation ~duration ~newSize self = msg_send ~self ~cmd:(selector "window:willAnimateRotationToInterfaceOrientation:duration:newSize:") ~typ:(id @-> llong @-> double @-> CGSize.t @-> returning void) x (LLong.of_int willAnimateRotationToInterfaceOrientation) duration newSize +let window13 x ~willRotateToInterfaceOrientation ~duration ~newSize self = msg_send ~self ~cmd:(selector "window:willRotateToInterfaceOrientation:duration:newSize:") ~typ:(id @-> llong @-> double @-> CGSize.t @-> returning void) x (LLong.of_int willRotateToInterfaceOrientation) duration newSize \ No newline at end of file diff --git a/uikit/UIViewControllerAction.ml b/uikit/UIViewControllerAction.ml index 1ef7c6e2..7ed8a55b 100644 --- a/uikit/UIViewControllerAction.ml +++ b/uikit/UIViewControllerAction.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewControllerAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewcontrolleraction?language=objc}UIViewControllerAction} *) -let animated self = msg_send ~self ~cmd:(selector "animated") ~typ:(returning (bool)) +let self = get_class "UIViewControllerAction" + +let animated self = msg_send ~self ~cmd:(selector "animated") ~typ:(returning bool) let completion self = msg_send ~self ~cmd:(selector "completion") ~typ:(returning (ptr void)) -let initWithViewController x ~name ~transition self = msg_send ~self ~cmd:(selector "initWithViewController:name:transition:") ~typ:(id @-> id @-> int @-> returning (id)) x name transition -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let setCompletion x self = msg_send ~self ~cmd:(selector "setCompletion:") ~typ:(ptr void @-> returning (void)) x -let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning (void)) x -let setTransition x self = msg_send ~self ~cmd:(selector "setTransition:") ~typ:(int @-> returning (void)) x -let setViewController x self = msg_send ~self ~cmd:(selector "setViewController:") ~typ:(id @-> returning (void)) x -let transition self = msg_send ~self ~cmd:(selector "transition") ~typ:(returning (int)) -let viewController self = msg_send ~self ~cmd:(selector "viewController") ~typ:(returning (id)) \ No newline at end of file +let initWithViewController x ~name ~transition self = msg_send ~self ~cmd:(selector "initWithViewController:name:transition:") ~typ:(id @-> id @-> int @-> returning id) x name transition +let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) +let setCompletion x self = msg_send ~self ~cmd:(selector "setCompletion:") ~typ:((ptr void) @-> returning void) x +let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning void) x +let setTransition x self = msg_send ~self ~cmd:(selector "setTransition:") ~typ:(int @-> returning void) x +let setViewController x self = msg_send ~self ~cmd:(selector "setViewController:") ~typ:(id @-> returning void) x +let transition self = msg_send ~self ~cmd:(selector "transition") ~typ:(returning int) +let viewController self = msg_send ~self ~cmd:(selector "viewController") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIViewControllerBuiltinTransitionViewAnimator.ml b/uikit/UIViewControllerBuiltinTransitionViewAnimator.ml deleted file mode 100644 index 5fb68302..00000000 --- a/uikit/UIViewControllerBuiltinTransitionViewAnimator.ml +++ /dev/null @@ -1,31 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIViewControllerBuiltinTransitionViewAnimator" - -let animateTransition x self = msg_send ~self ~cmd:(selector "animateTransition:") ~typ:(id @-> returning (void)) x -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let durationForTransition x self = msg_send ~self ~cmd:(selector "durationForTransition:") ~typ:(int @-> returning (double)) x -let fromView self = msg_send ~self ~cmd:(selector "fromView") ~typ:(returning (id)) -let initWithTransition x self = msg_send ~self ~cmd:(selector "initWithTransition:") ~typ:(int @-> returning (id)) x -let removeFromView self = msg_send ~self ~cmd:(selector "removeFromView") ~typ:(returning (bool)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setFromView x self = msg_send ~self ~cmd:(selector "setFromView:") ~typ:(id @-> returning (void)) x -let setRemoveFromView x self = msg_send ~self ~cmd:(selector "setRemoveFromView:") ~typ:(bool @-> returning (void)) x -let setToView x self = msg_send ~self ~cmd:(selector "setToView:") ~typ:(id @-> returning (void)) x -let setTransition x self = msg_send ~self ~cmd:(selector "setTransition:") ~typ:(int @-> returning (void)) x -let toView self = msg_send ~self ~cmd:(selector "toView") ~typ:(returning (id)) -let transition self = msg_send ~self ~cmd:(selector "transition") ~typ:(returning (int)) -let transitionDuration x self = msg_send ~self ~cmd:(selector "transitionDuration:") ~typ:(id @-> returning (double)) x -let transitionView x ~startCustomTransitionWithDuration self = msg_send ~self ~cmd:(selector "transitionView:startCustomTransitionWithDuration:") ~typ:(id @-> double @-> returning (void)) x startCustomTransitionWithDuration -let transitionView1 x ~beginOriginForToView ~forTransition ~defaultOrigin self = msg_send_stret ~self ~cmd:(selector "transitionView:beginOriginForToView:forTransition:defaultOrigin:") ~typ:(id @-> id @-> int @-> CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x beginOriginForToView forTransition defaultOrigin -let transitionView2 x ~endOriginForFromView ~forTransition ~defaultOrigin self = msg_send_stret ~self ~cmd:(selector "transitionView:endOriginForFromView:forTransition:defaultOrigin:") ~typ:(id @-> id @-> int @-> CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x endOriginForFromView forTransition defaultOrigin -let transitionView3 x ~endOriginForToView ~forTransition ~defaultOrigin self = msg_send_stret ~self ~cmd:(selector "transitionView:endOriginForToView:forTransition:defaultOrigin:") ~typ:(id @-> id @-> int @-> CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x endOriginForToView forTransition defaultOrigin -let transitionViewDidComplete x ~fromView ~toView ~removeFromView self = msg_send ~self ~cmd:(selector "transitionViewDidComplete:fromView:toView:removeFromView:") ~typ:(id @-> id @-> id @-> bool @-> returning (void)) x fromView toView removeFromView -let transitionViewDidStart x self = msg_send ~self ~cmd:(selector "transitionViewDidStart:") ~typ:(id @-> returning (void)) x -let transitionViewShouldUseViewControllerCallbacks self = msg_send ~self ~cmd:(selector "transitionViewShouldUseViewControllerCallbacks") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIViewControllerBuiltinTransitionViewAnimatorIOSMac.ml b/uikit/UIViewControllerBuiltinTransitionViewAnimatorIOSMac.ml deleted file mode 100644 index e045acd3..00000000 --- a/uikit/UIViewControllerBuiltinTransitionViewAnimatorIOSMac.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIViewControllerBuiltinTransitionViewAnimatorIOSMac" - -let animateTransition x self = msg_send ~self ~cmd:(selector "animateTransition:") ~typ:(id @-> returning (void)) x -let durationForTransition x self = msg_send ~self ~cmd:(selector "durationForTransition:") ~typ:(int @-> returning (double)) x -let isPresenting self = msg_send ~self ~cmd:(selector "isPresenting") ~typ:(returning (bool)) -let setPresenting x self = msg_send ~self ~cmd:(selector "setPresenting:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIViewControllerClass.ml b/uikit/UIViewControllerClass.ml new file mode 100644 index 00000000..a28e8387 --- /dev/null +++ b/uikit/UIViewControllerClass.ml @@ -0,0 +1,26 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewcontroller?language=objc}UIViewController} *) + +let _XPCInterface self = msg_send ~self ~cmd:(selector "XPCInterface") ~typ:(returning id) +let attemptRotationToDeviceOrientation self = msg_send ~self ~cmd:(selector "attemptRotationToDeviceOrientation") ~typ:(returning void) +let customTransitionDuration self = msg_send ~self ~cmd:(selector "customTransitionDuration") ~typ:(returning double) +let defaultFormSheetSize self = msg_send ~self ~cmd:(selector "defaultFormSheetSize") ~typ:(returning CGSize.t) +let doesOverridePreferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "doesOverridePreferredInterfaceOrientationForPresentation") ~typ:(returning bool) +let doesOverrideViewControllerMethod x self = msg_send ~self ~cmd:(selector "doesOverrideViewControllerMethod:") ~typ:(_SEL @-> returning bool) x +let doesOverrideViewControllerMethod' x ~inBaseClass self = msg_send ~self ~cmd:(selector "doesOverrideViewControllerMethod:inBaseClass:") ~typ:(_SEL @-> _Class @-> returning bool) x inBaseClass +let durationForTransition x self = msg_send ~self ~cmd:(selector "durationForTransition:") ~typ:(int @-> returning double) x +let existingNibNameMatchingClassName x ~bundle self = msg_send ~self ~cmd:(selector "existingNibNameMatchingClassName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) +let removeViewControllerForView x self = msg_send ~self ~cmd:(selector "removeViewControllerForView:") ~typ:(id @-> returning void) x +let setCustomTransitionDuration x self = msg_send ~self ~cmd:(selector "setCustomTransitionDuration:") ~typ:(double @-> returning void) x +let setViewController x ~forView self = msg_send ~self ~cmd:(selector "setViewController:forView:") ~typ:(id @-> id @-> returning void) x forView +let viewControllerForView x self = msg_send ~self ~cmd:(selector "viewControllerForView:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIViewControllerPreviewAction.ml b/uikit/UIViewControllerPreviewAction.ml index 1811f2c9..abfc7013 100644 --- a/uikit/UIViewControllerPreviewAction.ml +++ b/uikit/UIViewControllerPreviewAction.ml @@ -5,15 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewControllerPreviewAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewcontrollerpreviewaction?language=objc}UIViewControllerPreviewAction} *) -module C = struct - let actionWithTitle x ~handler self = msg_send ~self ~cmd:(selector "actionWithTitle:handler:") ~typ:(id @-> ptr void @-> returning (id)) x handler -end +let self = get_class "UIViewControllerPreviewAction" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let handler self = msg_send ~self ~cmd:(selector "handler") ~typ:(returning (ptr void)) -let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:(ptr void @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:((ptr void) @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIViewControllerPreviewActionClass.ml b/uikit/UIViewControllerPreviewActionClass.ml new file mode 100644 index 00000000..a29ea38f --- /dev/null +++ b/uikit/UIViewControllerPreviewActionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewcontrollerpreviewaction?language=objc}UIViewControllerPreviewAction} *) + +let actionWithTitle x ~handler self = msg_send ~self ~cmd:(selector "actionWithTitle:handler:") ~typ:(id @-> (ptr void) @-> returning id) x handler \ No newline at end of file diff --git a/uikit/UIViewControllerWrapperView.ml b/uikit/UIViewControllerWrapperView.ml index 78a9fcab..e183ff88 100644 --- a/uikit/UIViewControllerWrapperView.ml +++ b/uikit/UIViewControllerWrapperView.ml @@ -5,18 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewControllerWrapperView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewcontrollerwrapperview?language=objc}UIViewControllerWrapperView} *) -module C = struct - let existingWrapperViewForView x self = msg_send ~self ~cmd:(selector "existingWrapperViewForView:") ~typ:(id @-> returning (id)) x - let wrapperViewForView x ~frame self = msg_send ~self ~cmd:(selector "wrapperViewForView:frame:") ~typ:(id @-> CGRect.t @-> returning (id)) x frame - let wrapperViewForView' x ~wrapperFrame ~viewFrame self = msg_send ~self ~cmd:(selector "wrapperViewForView:wrapperFrame:viewFrame:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> returning (id)) x wrapperFrame viewFrame -end +let self = get_class "UIViewControllerWrapperView" -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setTightWrappingDisabled x self = msg_send ~self ~cmd:(selector "setTightWrappingDisabled:") ~typ:(bool @-> returning (void)) x -let tightWrappingDisabled self = msg_send ~self ~cmd:(selector "tightWrappingDisabled") ~typ:(returning (bool)) -let unwrapView self = msg_send ~self ~cmd:(selector "unwrapView") ~typ:(returning (void)) -let unwrapView' x self = msg_send ~self ~cmd:(selector "unwrapView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setTightWrappingDisabled x self = msg_send ~self ~cmd:(selector "setTightWrappingDisabled:") ~typ:(bool @-> returning void) x +let tightWrappingDisabled self = msg_send ~self ~cmd:(selector "tightWrappingDisabled") ~typ:(returning bool) +let unwrapView self = msg_send ~self ~cmd:(selector "unwrapView") ~typ:(returning void) +let unwrapView' x self = msg_send ~self ~cmd:(selector "unwrapView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIViewControllerWrapperViewClass.ml b/uikit/UIViewControllerWrapperViewClass.ml new file mode 100644 index 00000000..c1724759 --- /dev/null +++ b/uikit/UIViewControllerWrapperViewClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewcontrollerwrapperview?language=objc}UIViewControllerWrapperView} *) + +let existingWrapperViewForView x self = msg_send ~self ~cmd:(selector "existingWrapperViewForView:") ~typ:(id @-> returning id) x +let wrapperViewForView x ~frame self = msg_send ~self ~cmd:(selector "wrapperViewForView:frame:") ~typ:(id @-> CGRect.t @-> returning id) x frame +let wrapperViewForView' x ~wrapperFrame ~viewFrame self = msg_send ~self ~cmd:(selector "wrapperViewForView:wrapperFrame:viewFrame:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> returning id) x wrapperFrame viewFrame \ No newline at end of file diff --git a/uikit/UIViewFloatAnimatableProperty.ml b/uikit/UIViewFloatAnimatableProperty.ml index b5ea14f3..df70e612 100644 --- a/uikit/UIViewFloatAnimatableProperty.ml +++ b/uikit/UIViewFloatAnimatableProperty.ml @@ -5,21 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewFloatAnimatableProperty" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewfloatanimatableproperty?language=objc}UIViewFloatAnimatableProperty} *) -let animatableProperty self = msg_send ~self ~cmd:(selector "animatableProperty") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let isInvalidated self = msg_send ~self ~cmd:(selector "isInvalidated") ~typ:(returning (bool)) -let performingInterpolationBetweenTwoStates self = msg_send ~self ~cmd:(selector "performingInterpolationBetweenTwoStates") ~typ:(returning (bool)) -let presentationValue self = msg_send ~self ~cmd:(selector "presentationValue") ~typ:(returning (double)) -let setAnimatableProperty x self = msg_send ~self ~cmd:(selector "setAnimatableProperty:") ~typ:(id @-> returning (void)) x -let setPerformingInterpolationBetweenTwoStates x self = msg_send ~self ~cmd:(selector "setPerformingInterpolationBetweenTwoStates:") ~typ:(bool @-> returning (void)) x -let setTransformer x self = msg_send ~self ~cmd:(selector "setTransformer:") ~typ:(id @-> returning (void)) x -let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(double @-> returning (void)) x -let setVelocity x self = msg_send ~self ~cmd:(selector "setVelocity:") ~typ:(double @-> returning (void)) x -let transformer self = msg_send ~self ~cmd:(selector "transformer") ~typ:(returning (id)) -let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning (double)) -let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIViewFloatAnimatableProperty" + +let animatableProperty self = msg_send ~self ~cmd:(selector "animatableProperty") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let isInvalidated self = msg_send ~self ~cmd:(selector "isInvalidated") ~typ:(returning bool) +let performingInterpolationBetweenTwoStates self = msg_send ~self ~cmd:(selector "performingInterpolationBetweenTwoStates") ~typ:(returning bool) +let presentationValue self = msg_send ~self ~cmd:(selector "presentationValue") ~typ:(returning double) +let setAnimatableProperty x self = msg_send ~self ~cmd:(selector "setAnimatableProperty:") ~typ:(id @-> returning void) x +let setPerformingInterpolationBetweenTwoStates x self = msg_send ~self ~cmd:(selector "setPerformingInterpolationBetweenTwoStates:") ~typ:(bool @-> returning void) x +let setTransformer x self = msg_send ~self ~cmd:(selector "setTransformer:") ~typ:(id @-> returning void) x +let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(double @-> returning void) x +let transformer self = msg_send ~self ~cmd:(selector "transformer") ~typ:(returning id) +let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning double) +let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIViewFrictionBounceAnimation.ml b/uikit/UIViewFrictionBounceAnimation.ml index 0c400bf7..d99ec964 100644 --- a/uikit/UIViewFrictionBounceAnimation.ml +++ b/uikit/UIViewFrictionBounceAnimation.ml @@ -5,14 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewFrictionBounceAnimation" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewfrictionbounceanimation?language=objc}UIViewFrictionBounceAnimation} *) -let initWithCurrent x ~target self = msg_send ~self ~cmd:(selector "initWithCurrent:target:") ~typ:(id @-> id @-> returning (id)) x target -let isStable self = msg_send ~self ~cmd:(selector "isStable") ~typ:(returning (bool)) -let setTargetValue x self = msg_send ~self ~cmd:(selector "setTargetValue:") ~typ:(id @-> returning (void)) x -let setVelocity x self = msg_send ~self ~cmd:(selector "setVelocity:") ~typ:(id @-> returning (void)) x -let stepWithDelta x self = msg_send ~self ~cmd:(selector "stepWithDelta:") ~typ:(double @-> returning (id)) x -let targetValue self = msg_send ~self ~cmd:(selector "targetValue") ~typ:(returning (id)) -let updatedTarget self = msg_send ~self ~cmd:(selector "updatedTarget") ~typ:(returning (id)) -let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIViewFrictionBounceAnimation" + +let initWithCurrent x ~target self = msg_send ~self ~cmd:(selector "initWithCurrent:target:") ~typ:(id @-> id @-> returning id) x target +let isStable self = msg_send ~self ~cmd:(selector "isStable") ~typ:(returning bool) +let setTargetValue x self = msg_send ~self ~cmd:(selector "setTargetValue:") ~typ:(id @-> returning void) x +let stepWithDelta x self = msg_send ~self ~cmd:(selector "stepWithDelta:") ~typ:(double @-> returning id) x +let targetValue self = msg_send ~self ~cmd:(selector "targetValue") ~typ:(returning id) +let updatedTarget self = msg_send ~self ~cmd:(selector "updatedTarget") ~typ:(returning id) +let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIViewInProcessAnimationManager.ml b/uikit/UIViewInProcessAnimationManager.ml deleted file mode 100644 index 6bddc46f..00000000 --- a/uikit/UIViewInProcessAnimationManager.ml +++ /dev/null @@ -1,38 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIViewInProcessAnimationManager" - -module C = struct - let sharedManager self = msg_send ~self ~cmd:(selector "sharedManager") ~typ:(returning (id)) -end - -let addEntry x self = msg_send ~self ~cmd:(selector "addEntry:") ~typ:(id @-> returning (void)) x -let advancingOnCommitDisabled self = msg_send ~self ~cmd:(selector "advancingOnCommitDisabled") ~typ:(returning (bool)) -let animationThread self = msg_send ~self ~cmd:(selector "animationThread") ~typ:(returning (id)) -let animationThreadKeepAliveSemaphore self = msg_send ~self ~cmd:(selector "animationThreadKeepAliveSemaphore") ~typ:(returning (id)) -let animationThreadRunLoop self = msg_send ~self ~cmd:(selector "animationThreadRunLoop") ~typ:(returning (id)) -let currentTickThread self = msg_send ~self ~cmd:(selector "currentTickThread") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let executionMode self = msg_send ~self ~cmd:(selector "executionMode") ~typ:(returning (ullong)) -let finishAdvancingAnimationManager self = msg_send ~self ~cmd:(selector "finishAdvancingAnimationManager") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let performAfterTick x self = msg_send ~self ~cmd:(selector "performAfterTick:") ~typ:(ptr void @-> returning (void)) x -let performBeforeExiting x self = msg_send ~self ~cmd:(selector "performBeforeExiting:") ~typ:(ptr void @-> returning (void)) x -let refreshInterval self = msg_send ~self ~cmd:(selector "refreshInterval") ~typ:(returning (double)) -let scheduleAnimatorAdvancerToStart self = msg_send ~self ~cmd:(selector "scheduleAnimatorAdvancerToStart") ~typ:(returning (void)) -let setAdvancingOnCommitDisabled x self = msg_send ~self ~cmd:(selector "setAdvancingOnCommitDisabled:") ~typ:(bool @-> returning (void)) x -let setAnimationThread x self = msg_send ~self ~cmd:(selector "setAnimationThread:") ~typ:(id @-> returning (void)) x -let setAnimationThreadKeepAliveSemaphore x self = msg_send ~self ~cmd:(selector "setAnimationThreadKeepAliveSemaphore:") ~typ:(id @-> returning (void)) x -let setAnimationThreadRunLoop x self = msg_send ~self ~cmd:(selector "setAnimationThreadRunLoop:") ~typ:(id @-> returning (void)) x -let setCurrentTickThread x self = msg_send ~self ~cmd:(selector "setCurrentTickThread:") ~typ:(id @-> returning (void)) x -let setExecutionMode x self = msg_send ~self ~cmd:(selector "setExecutionMode:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setUsesMainThreadExecution x self = msg_send ~self ~cmd:(selector "setUsesMainThreadExecution:") ~typ:(bool @-> returning (void)) x -let startAdvancingAnimationManager x self = msg_send ~self ~cmd:(selector "startAdvancingAnimationManager:") ~typ:(id @-> returning (void)) x -let startAnimationAdvancerIfNeeded self = msg_send ~self ~cmd:(selector "startAnimationAdvancerIfNeeded") ~typ:(returning (void)) -let usesMainThreadExecution self = msg_send ~self ~cmd:(selector "usesMainThreadExecution") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIViewInProcessAnimationState.ml b/uikit/UIViewInProcessAnimationState.ml deleted file mode 100644 index 121ba260..00000000 --- a/uikit/UIViewInProcessAnimationState.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIViewInProcessAnimationState" - -let actionForLayer x ~forKey ~forView self = msg_send ~self ~cmd:(selector "actionForLayer:forKey:forView:") ~typ:(id @-> id @-> id @-> returning (id)) x forKey forView -let animatePropertyWithCurrentValue x ~targetValue ~preTickShouldRemoveCallback ~newValueCallback ~removedCallback ~animatableProperty self = msg_send ~self ~cmd:(selector "animatePropertyWithCurrentValue:targetValue:preTickShouldRemoveCallback:newValueCallback:removedCallback:animatableProperty:") ~typ:(id @-> id @-> ptr void @-> ptr void @-> ptr void @-> id @-> returning (void)) x targetValue preTickShouldRemoveCallback newValueCallback removedCallback animatableProperty -let animatePropertyWithKey x ~view ~forceNew ~currentValue ~targetValue ~preTickShouldRemoveCallback ~newValueCallback ~removedCallback self = msg_send ~self ~cmd:(selector "animatePropertyWithKey:view:forceNew:currentValue:targetValue:preTickShouldRemoveCallback:newValueCallback:removedCallback:") ~typ:(id @-> id @-> bool @-> id @-> id @-> ptr void @-> ptr void @-> ptr void @-> returning (void)) x view forceNew currentValue targetValue preTickShouldRemoveCallback newValueCallback removedCallback -let animationAndComposerGetter self = msg_send ~self ~cmd:(selector "animationAndComposerGetter") ~typ:(returning (ptr void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isKeySupported x self = msg_send ~self ~cmd:(selector "isKeySupported:") ~typ:(id @-> returning (bool)) x -let retargeted self = msg_send ~self ~cmd:(selector "retargeted") ~typ:(returning (bool)) -let setAnimationAndComposerGetter x self = msg_send ~self ~cmd:(selector "setAnimationAndComposerGetter:") ~typ:(ptr void @-> returning (void)) x -let setRetargeted x self = msg_send ~self ~cmd:(selector "setRetargeted:") ~typ:(bool @-> returning (void)) x -let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setupWithDuration x ~delay ~view ~options ~factory ~parentState ~start ~completion self = msg_send ~self ~cmd:(selector "setupWithDuration:delay:view:options:factory:parentState:start:completion:") ~typ:(double @-> double @-> id @-> ullong @-> id @-> id @-> ptr void @-> ptr void @-> returning (void)) x delay view (ULLong.of_int options) factory parentState start completion -let shouldAnimatePropertyWithKey x self = msg_send ~self ~cmd:(selector "shouldAnimatePropertyWithKey:") ~typ:(id @-> returning (bool)) x -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit/UIViewInProcessAnimationTickEntry.ml b/uikit/UIViewInProcessAnimationTickEntry.ml deleted file mode 100644 index d959300d..00000000 --- a/uikit/UIViewInProcessAnimationTickEntry.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIViewInProcessAnimationTickEntry" - -let callback self = msg_send ~self ~cmd:(selector "callback") ~typ:(returning (ptr void)) -let initWithCallback x self = msg_send ~self ~cmd:(selector "initWithCallback:") ~typ:(ptr void @-> returning (id)) x \ No newline at end of file diff --git a/uikit/UIViewInstaneouslyStableAnimation.ml b/uikit/UIViewInstaneouslyStableAnimation.ml deleted file mode 100644 index d54511cd..00000000 --- a/uikit/UIViewInstaneouslyStableAnimation.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIViewInstaneouslyStableAnimation" - -let initWithTargetValue x ~velocity self = msg_send ~self ~cmd:(selector "initWithTargetValue:velocity:") ~typ:(id @-> id @-> returning (id)) x velocity -let isStable self = msg_send ~self ~cmd:(selector "isStable") ~typ:(returning (bool)) -let setTargetValue x self = msg_send ~self ~cmd:(selector "setTargetValue:") ~typ:(id @-> returning (void)) x -let setVelocity x self = msg_send ~self ~cmd:(selector "setVelocity:") ~typ:(id @-> returning (void)) x -let stepWithDelta x self = msg_send ~self ~cmd:(selector "stepWithDelta:") ~typ:(double @-> returning (id)) x -let targetValue self = msg_send ~self ~cmd:(selector "targetValue") ~typ:(returning (id)) -let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning (id)) -let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIViewKeyframeAnimationState.ml b/uikit/UIViewKeyframeAnimationState.ml deleted file mode 100644 index 425f3206..00000000 --- a/uikit/UIViewKeyframeAnimationState.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIViewKeyframeAnimationState" - -let addKeyframeWithRelativeStartTime x ~relativeDuration ~animations self = msg_send ~self ~cmd:(selector "addKeyframeWithRelativeStartTime:relativeDuration:animations:") ~typ:(double @-> double @-> ptr void @-> returning (void)) x relativeDuration animations -let animationForLayer x ~forKey ~forView self = msg_send ~self ~cmd:(selector "animationForLayer:forKey:forView:") ~typ:(id @-> id @-> id @-> returning (id)) x forKey forView -let cleanupTrackedLayers self = msg_send ~self ~cmd:(selector "cleanupTrackedLayers") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let pop self = msg_send ~self ~cmd:(selector "pop") ~typ:(returning (void)) -let setupWithDuration x ~delay ~view ~options ~factory ~parentState ~start ~completion self = msg_send ~self ~cmd:(selector "setupWithDuration:delay:view:options:factory:parentState:start:completion:") ~typ:(double @-> double @-> id @-> ullong @-> id @-> id @-> ptr void @-> ptr void @-> returning (void)) x delay view (ULLong.of_int options) factory parentState start completion \ No newline at end of file diff --git a/uikit/UIViewPrintFormatter.ml b/uikit/UIViewPrintFormatter.ml index 55b68926..b40a29df 100644 --- a/uikit/UIViewPrintFormatter.ml +++ b/uikit/UIViewPrintFormatter.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewPrintFormatter" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewprintformatter?language=objc}UIViewPrintFormatter} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let drawInRect x ~forPageAtIndex self = msg_send ~self ~cmd:(selector "drawInRect:forPageAtIndex:") ~typ:(CGRect.t @-> llong @-> returning (void)) x (LLong.of_int forPageAtIndex) -let rectForPageAtIndex x self = msg_send_stret ~self ~cmd:(selector "rectForPageAtIndex:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIViewPrintFormatter" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let drawInRect x ~forPageAtIndex self = msg_send ~self ~cmd:(selector "drawInRect:forPageAtIndex:") ~typ:(CGRect.t @-> llong @-> returning void) x (LLong.of_int forPageAtIndex) +let rectForPageAtIndex x self = msg_send ~self ~cmd:(selector "rectForPageAtIndex:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIViewPropertyAnimator.ml b/uikit/UIViewPropertyAnimator.ml index 30da4f0c..a8fbe6ff 100644 --- a/uikit/UIViewPropertyAnimator.ml +++ b/uikit/UIViewPropertyAnimator.ml @@ -5,75 +5,70 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewPropertyAnimator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewpropertyanimator?language=objc}UIViewPropertyAnimator} *) -module C = struct - let animator x ~isObserving self = msg_send ~self ~cmd:(selector "animator:isObserving:") ~typ:(id @-> id @-> returning (void)) x isObserving - let automaticallyNotifiesObserversForKey x self = msg_send ~self ~cmd:(selector "automaticallyNotifiesObserversForKey:") ~typ:(id @-> returning (bool)) x - let observedsOfAnimatorWithTrackingId x self = msg_send ~self ~cmd:(selector "observedsOfAnimatorWithTrackingId:") ~typ:(id @-> returning (id)) x - let removeAllObservedForObservingAnimatorWithId x self = msg_send ~self ~cmd:(selector "removeAllObservedForObservingAnimatorWithId:") ~typ:(id @-> returning (void)) x - let removeObserved x ~forObservingAnimatorWithId self = msg_send ~self ~cmd:(selector "removeObserved:forObservingAnimatorWithId:") ~typ:(id @-> id @-> returning (void)) x forObservingAnimatorWithId - let runningPropertyAnimatorWithDuration x ~delay ~options ~animations ~completion self = msg_send ~self ~cmd:(selector "runningPropertyAnimatorWithDuration:delay:options:animations:completion:") ~typ:(double @-> double @-> ullong @-> ptr void @-> ptr void @-> returning (id)) x delay (ULLong.of_int options) animations completion -end +let self = get_class "UIViewPropertyAnimator" -let addAnimations x self = msg_send ~self ~cmd:(selector "addAnimations:") ~typ:(ptr void @-> returning (void)) x -let addAnimations1 x ~delayFactor self = msg_send ~self ~cmd:(selector "addAnimations:delayFactor:") ~typ:(ptr void @-> double @-> returning (void)) x delayFactor -let addAnimations2 x ~delayFactor ~durationFactor self = msg_send ~self ~cmd:(selector "addAnimations:delayFactor:durationFactor:") ~typ:(ptr void @-> double @-> double @-> returning (void)) x delayFactor durationFactor -let addCompletion x self = msg_send ~self ~cmd:(selector "addCompletion:") ~typ:(ptr void @-> returning (void)) x -let animationDescriptions self = msg_send ~self ~cmd:(selector "animationDescriptions") ~typ:(returning (id)) -let animationsDescription self = msg_send ~self ~cmd:(selector "animationsDescription") ~typ:(returning (id)) -let clearAnimationDescriptions self = msg_send ~self ~cmd:(selector "clearAnimationDescriptions") ~typ:(returning (void)) -let continueAnimation self = msg_send ~self ~cmd:(selector "continueAnimation") ~typ:(returning (void)) -let continueAnimationWithTimingParameters x ~durationFactor self = msg_send ~self ~cmd:(selector "continueAnimationWithTimingParameters:durationFactor:") ~typ:(id @-> double @-> returning (void)) x durationFactor -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delay self = msg_send ~self ~cmd:(selector "delay") ~typ:(returning (double)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning (double)) -let finalizeStoppedAnimationWithPosition x self = msg_send ~self ~cmd:(selector "finalizeStoppedAnimationWithPosition:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let finishAnimationAtPosition x self = msg_send ~self ~cmd:(selector "finishAnimationAtPosition:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let fractionComplete self = msg_send ~self ~cmd:(selector "fractionComplete") ~typ:(returning (double)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithDuration x ~timingParameters self = msg_send ~self ~cmd:(selector "initWithDuration:timingParameters:") ~typ:(double @-> id @-> returning (id)) x timingParameters -let initWithDuration1 x ~curve ~animations self = msg_send ~self ~cmd:(selector "initWithDuration:curve:animations:") ~typ:(double @-> llong @-> ptr void @-> returning (id)) x (LLong.of_int curve) animations -let initWithDuration2 x ~dampingRatio ~animations self = msg_send ~self ~cmd:(selector "initWithDuration:dampingRatio:animations:") ~typ:(double @-> double @-> ptr void @-> returning (id)) x dampingRatio animations -let initWithDuration3 x ~controlPoint1 ~controlPoint2 ~animations self = msg_send ~self ~cmd:(selector "initWithDuration:controlPoint1:controlPoint2:animations:") ~typ:(double @-> CGPoint.t @-> CGPoint.t @-> ptr void @-> returning (id)) x controlPoint1 controlPoint2 animations -let initWithMass x ~stiffness ~damping ~initialVelocity ~animations self = msg_send ~self ~cmd:(selector "initWithMass:stiffness:damping:initialVelocity:animations:") ~typ:(double @-> double @-> double @-> ptr void @-> ptr void @-> returning (id)) x stiffness damping initialVelocity animations -let interactionProgress x ~didEnd self = msg_send ~self ~cmd:(selector "interactionProgress:didEnd:") ~typ:(id @-> bool @-> returning (void)) x didEnd -let interactionProgressDidUpdate x self = msg_send ~self ~cmd:(selector "interactionProgressDidUpdate:") ~typ:(id @-> returning (void)) x -let internalDuration self = msg_send ~self ~cmd:(selector "internalDuration") ~typ:(returning (double)) -let isInterruptible self = msg_send ~self ~cmd:(selector "isInterruptible") ~typ:(returning (bool)) -let isIntrospectable self = msg_send ~self ~cmd:(selector "isIntrospectable") ~typ:(returning (bool)) -let isManualHitTestingEnabled self = msg_send ~self ~cmd:(selector "isManualHitTestingEnabled") ~typ:(returning (bool)) -let isReversed self = msg_send ~self ~cmd:(selector "isReversed") ~typ:(returning (bool)) -let isRunning self = msg_send ~self ~cmd:(selector "isRunning") ~typ:(returning (bool)) -let isUserInteractionEnabled self = msg_send ~self ~cmd:(selector "isUserInteractionEnabled") ~typ:(returning (bool)) -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let pacedFractionComplete self = msg_send ~self ~cmd:(selector "pacedFractionComplete") ~typ:(returning (double)) -let pauseAnimation self = msg_send ~self ~cmd:(selector "pauseAnimation") ~typ:(returning (void)) -let pauseAnimationTransiently self = msg_send ~self ~cmd:(selector "pauseAnimationTransiently") ~typ:(returning (void)) -let pausesOnCompletion self = msg_send ~self ~cmd:(selector "pausesOnCompletion") ~typ:(returning (bool)) -let scrubsLinearly self = msg_send ~self ~cmd:(selector "scrubsLinearly") ~typ:(returning (bool)) -let setAnimationDescriptionMap x self = msg_send ~self ~cmd:(selector "setAnimationDescriptionMap:") ~typ:(id @-> returning (void)) x -let setFractionComplete x self = msg_send ~self ~cmd:(selector "setFractionComplete:") ~typ:(double @-> returning (void)) x -let setInternalDuration x self = msg_send ~self ~cmd:(selector "setInternalDuration:") ~typ:(double @-> returning (void)) x -let setInterruptible x self = msg_send ~self ~cmd:(selector "setInterruptible:") ~typ:(bool @-> returning (void)) x -let setIntrospectable x self = msg_send ~self ~cmd:(selector "setIntrospectable:") ~typ:(bool @-> returning (void)) x -let setManualHitTestingEnabled x self = msg_send ~self ~cmd:(selector "setManualHitTestingEnabled:") ~typ:(bool @-> returning (void)) x -let setPacedFractionComplete x self = msg_send ~self ~cmd:(selector "setPacedFractionComplete:") ~typ:(double @-> returning (void)) x -let setPausesOnCompletion x self = msg_send ~self ~cmd:(selector "setPausesOnCompletion:") ~typ:(bool @-> returning (void)) x -let setReversed x self = msg_send ~self ~cmd:(selector "setReversed:") ~typ:(bool @-> returning (void)) x -let setScrubsLinearly x self = msg_send ~self ~cmd:(selector "setScrubsLinearly:") ~typ:(bool @-> returning (void)) x -let setUnitDuration x self = msg_send ~self ~cmd:(selector "setUnitDuration:") ~typ:(double @-> returning (void)) x -let setUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabled:") ~typ:(bool @-> returning (void)) x -let shouldLayoutSubviews self = msg_send ~self ~cmd:(selector "shouldLayoutSubviews") ~typ:(returning (bool)) -let startAnimation self = msg_send ~self ~cmd:(selector "startAnimation") ~typ:(returning (void)) -let startAnimationAfterDelay x self = msg_send ~self ~cmd:(selector "startAnimationAfterDelay:") ~typ:(double @-> returning (void)) x -let startAnimationAsPaused x self = msg_send ~self ~cmd:(selector "startAnimationAsPaused:") ~typ:(bool @-> returning (void)) x -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (llong)) -let stopAnimation x self = msg_send ~self ~cmd:(selector "stopAnimation:") ~typ:(bool @-> returning (void)) x -let timingFunctionForPause self = msg_send ~self ~cmd:(selector "timingFunctionForPause") ~typ:(returning (id)) -let timingParameters self = msg_send ~self ~cmd:(selector "timingParameters") ~typ:(returning (id)) -let unitDuration self = msg_send ~self ~cmd:(selector "unitDuration") ~typ:(returning (double)) -let useCoreAnimation self = msg_send ~self ~cmd:(selector "useCoreAnimation") ~typ:(returning (bool)) \ No newline at end of file +let addAnimations x self = msg_send ~self ~cmd:(selector "addAnimations:") ~typ:((ptr void) @-> returning void) x +let addAnimations1 x ~delayFactor self = msg_send ~self ~cmd:(selector "addAnimations:delayFactor:") ~typ:((ptr void) @-> double @-> returning void) x delayFactor +let addAnimations2 x ~delayFactor ~durationFactor self = msg_send ~self ~cmd:(selector "addAnimations:delayFactor:durationFactor:") ~typ:((ptr void) @-> double @-> double @-> returning void) x delayFactor durationFactor +let addCompletion x self = msg_send ~self ~cmd:(selector "addCompletion:") ~typ:((ptr void) @-> returning void) x +let animationDescriptions self = msg_send ~self ~cmd:(selector "animationDescriptions") ~typ:(returning id) +let animationsDescription self = msg_send ~self ~cmd:(selector "animationsDescription") ~typ:(returning id) +let clearAnimationDescriptions self = msg_send ~self ~cmd:(selector "clearAnimationDescriptions") ~typ:(returning void) +let continueAnimation self = msg_send ~self ~cmd:(selector "continueAnimation") ~typ:(returning void) +let continueAnimationWithTimingParameters x ~durationFactor self = msg_send ~self ~cmd:(selector "continueAnimationWithTimingParameters:durationFactor:") ~typ:(id @-> double @-> returning void) x durationFactor +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delay self = msg_send ~self ~cmd:(selector "delay") ~typ:(returning double) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning double) +let finalizeStoppedAnimationWithPosition x self = msg_send ~self ~cmd:(selector "finalizeStoppedAnimationWithPosition:") ~typ:(llong @-> returning void) (LLong.of_int x) +let finishAnimationAtPosition x self = msg_send ~self ~cmd:(selector "finishAnimationAtPosition:") ~typ:(llong @-> returning void) (LLong.of_int x) +let fractionComplete self = msg_send ~self ~cmd:(selector "fractionComplete") ~typ:(returning double) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithDuration x ~timingParameters self = msg_send ~self ~cmd:(selector "initWithDuration:timingParameters:") ~typ:(double @-> id @-> returning id) x timingParameters +let initWithDuration1 x ~curve ~animations self = msg_send ~self ~cmd:(selector "initWithDuration:curve:animations:") ~typ:(double @-> llong @-> (ptr void) @-> returning id) x (LLong.of_int curve) animations +let initWithDuration2 x ~dampingRatio ~animations self = msg_send ~self ~cmd:(selector "initWithDuration:dampingRatio:animations:") ~typ:(double @-> double @-> (ptr void) @-> returning id) x dampingRatio animations +let initWithDuration3 x ~controlPoint1 ~controlPoint2 ~animations self = msg_send ~self ~cmd:(selector "initWithDuration:controlPoint1:controlPoint2:animations:") ~typ:(double @-> CGPoint.t @-> CGPoint.t @-> (ptr void) @-> returning id) x controlPoint1 controlPoint2 animations +let initWithMass x ~stiffness ~damping ~initialVelocity ~animations self = msg_send ~self ~cmd:(selector "initWithMass:stiffness:damping:initialVelocity:animations:") ~typ:(double @-> double @-> double @-> CGVector.t @-> (ptr void) @-> returning id) x stiffness damping initialVelocity animations +let interactionProgress x ~didEnd self = msg_send ~self ~cmd:(selector "interactionProgress:didEnd:") ~typ:(id @-> bool @-> returning void) x didEnd +let interactionProgressDidUpdate x self = msg_send ~self ~cmd:(selector "interactionProgressDidUpdate:") ~typ:(id @-> returning void) x +let internalDuration self = msg_send ~self ~cmd:(selector "internalDuration") ~typ:(returning double) +let isInterruptible self = msg_send ~self ~cmd:(selector "isInterruptible") ~typ:(returning bool) +let isIntrospectable self = msg_send ~self ~cmd:(selector "isIntrospectable") ~typ:(returning bool) +let isManualHitTestingEnabled self = msg_send ~self ~cmd:(selector "isManualHitTestingEnabled") ~typ:(returning bool) +let isReversed self = msg_send ~self ~cmd:(selector "isReversed") ~typ:(returning bool) +let isRunning self = msg_send ~self ~cmd:(selector "isRunning") ~typ:(returning bool) +let isUserInteractionEnabled self = msg_send ~self ~cmd:(selector "isUserInteractionEnabled") ~typ:(returning bool) +let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x ofObject change context +let pacedFractionComplete self = msg_send ~self ~cmd:(selector "pacedFractionComplete") ~typ:(returning double) +let pauseAnimation self = msg_send ~self ~cmd:(selector "pauseAnimation") ~typ:(returning void) +let pauseAnimationTransiently self = msg_send ~self ~cmd:(selector "pauseAnimationTransiently") ~typ:(returning void) +let pausesOnCompletion self = msg_send ~self ~cmd:(selector "pausesOnCompletion") ~typ:(returning bool) +let scrubsLinearly self = msg_send ~self ~cmd:(selector "scrubsLinearly") ~typ:(returning bool) +let setAnimationDescriptionMap x self = msg_send ~self ~cmd:(selector "setAnimationDescriptionMap:") ~typ:(id @-> returning void) x +let setFractionComplete x self = msg_send ~self ~cmd:(selector "setFractionComplete:") ~typ:(double @-> returning void) x +let setInternalDuration x self = msg_send ~self ~cmd:(selector "setInternalDuration:") ~typ:(double @-> returning void) x +let setInterruptible x self = msg_send ~self ~cmd:(selector "setInterruptible:") ~typ:(bool @-> returning void) x +let setIntrospectable x self = msg_send ~self ~cmd:(selector "setIntrospectable:") ~typ:(bool @-> returning void) x +let setManualHitTestingEnabled x self = msg_send ~self ~cmd:(selector "setManualHitTestingEnabled:") ~typ:(bool @-> returning void) x +let setPacedFractionComplete x self = msg_send ~self ~cmd:(selector "setPacedFractionComplete:") ~typ:(double @-> returning void) x +let setPausesOnCompletion x self = msg_send ~self ~cmd:(selector "setPausesOnCompletion:") ~typ:(bool @-> returning void) x +let setReversed x self = msg_send ~self ~cmd:(selector "setReversed:") ~typ:(bool @-> returning void) x +let setScrubsLinearly x self = msg_send ~self ~cmd:(selector "setScrubsLinearly:") ~typ:(bool @-> returning void) x +let setUnitDuration x self = msg_send ~self ~cmd:(selector "setUnitDuration:") ~typ:(double @-> returning void) x +let setUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabled:") ~typ:(bool @-> returning void) x +let shouldLayoutSubviews self = msg_send ~self ~cmd:(selector "shouldLayoutSubviews") ~typ:(returning bool) +let startAnimation self = msg_send ~self ~cmd:(selector "startAnimation") ~typ:(returning void) +let startAnimationAfterDelay x self = msg_send ~self ~cmd:(selector "startAnimationAfterDelay:") ~typ:(double @-> returning void) x +let startAnimationAsPaused x self = msg_send ~self ~cmd:(selector "startAnimationAsPaused:") ~typ:(bool @-> returning void) x +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning llong) +let stopAnimation x self = msg_send ~self ~cmd:(selector "stopAnimation:") ~typ:(bool @-> returning void) x +let timingFunctionForPause self = msg_send ~self ~cmd:(selector "timingFunctionForPause") ~typ:(returning id) +let timingParameters self = msg_send ~self ~cmd:(selector "timingParameters") ~typ:(returning id) +let unitDuration self = msg_send ~self ~cmd:(selector "unitDuration") ~typ:(returning double) +let useCoreAnimation self = msg_send ~self ~cmd:(selector "useCoreAnimation") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIViewPropertyAnimatorClass.ml b/uikit/UIViewPropertyAnimatorClass.ml new file mode 100644 index 00000000..fd8d7331 --- /dev/null +++ b/uikit/UIViewPropertyAnimatorClass.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewpropertyanimator?language=objc}UIViewPropertyAnimator} *) + +let animator x ~isObserving self = msg_send ~self ~cmd:(selector "animator:isObserving:") ~typ:(id @-> id @-> returning void) x isObserving +let automaticallyNotifiesObserversForKey x self = msg_send ~self ~cmd:(selector "automaticallyNotifiesObserversForKey:") ~typ:(id @-> returning bool) x +let observedsOfAnimatorWithTrackingId x self = msg_send ~self ~cmd:(selector "observedsOfAnimatorWithTrackingId:") ~typ:(id @-> returning id) x +let removeAllObservedForObservingAnimatorWithId x self = msg_send ~self ~cmd:(selector "removeAllObservedForObservingAnimatorWithId:") ~typ:(id @-> returning void) x +let removeObserved x ~forObservingAnimatorWithId self = msg_send ~self ~cmd:(selector "removeObserved:forObservingAnimatorWithId:") ~typ:(id @-> id @-> returning void) x forObservingAnimatorWithId +let runningPropertyAnimatorWithDuration x ~delay ~options ~animations ~completion self = msg_send ~self ~cmd:(selector "runningPropertyAnimatorWithDuration:delay:options:animations:completion:") ~typ:(double @-> double @-> ullong @-> (ptr void) @-> (ptr void) @-> returning id) x delay (ULLong.of_int options) animations completion \ No newline at end of file diff --git a/uikit/UIViewPropertyAnimatorTrackingState.ml b/uikit/UIViewPropertyAnimatorTrackingState.ml index ae0aeb12..e2e6b271 100644 --- a/uikit/UIViewPropertyAnimatorTrackingState.ml +++ b/uikit/UIViewPropertyAnimatorTrackingState.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewPropertyAnimatorTrackingState" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewpropertyanimatortrackingstate?language=objc}UIViewPropertyAnimatorTrackingState} *) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let optimizationsEnabled self = msg_send ~self ~cmd:(selector "optimizationsEnabled") ~typ:(returning (bool)) -let scrubsLinearly self = msg_send ~self ~cmd:(selector "scrubsLinearly") ~typ:(returning (bool)) -let setOptimizationsEnabled x self = msg_send ~self ~cmd:(selector "setOptimizationsEnabled:") ~typ:(bool @-> returning (void)) x -let setScrubsLinearly x self = msg_send ~self ~cmd:(selector "setScrubsLinearly:") ~typ:(bool @-> returning (void)) x -let setShouldLayoutSubviews x self = msg_send ~self ~cmd:(selector "setShouldLayoutSubviews:") ~typ:(bool @-> returning (void)) x -let setStartPaused x self = msg_send ~self ~cmd:(selector "setStartPaused:") ~typ:(bool @-> returning (void)) x -let setUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabled:") ~typ:(bool @-> returning (void)) x -let shouldLayoutSubviews self = msg_send ~self ~cmd:(selector "shouldLayoutSubviews") ~typ:(returning (bool)) -let startPaused self = msg_send ~self ~cmd:(selector "startPaused") ~typ:(returning (bool)) -let userInteractionEnabled self = msg_send ~self ~cmd:(selector "userInteractionEnabled") ~typ:(returning (bool)) -let uuid self = msg_send ~self ~cmd:(selector "uuid") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIViewPropertyAnimatorTrackingState" + +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let optimizationsEnabled self = msg_send ~self ~cmd:(selector "optimizationsEnabled") ~typ:(returning bool) +let scrubsLinearly self = msg_send ~self ~cmd:(selector "scrubsLinearly") ~typ:(returning bool) +let setOptimizationsEnabled x self = msg_send ~self ~cmd:(selector "setOptimizationsEnabled:") ~typ:(bool @-> returning void) x +let setScrubsLinearly x self = msg_send ~self ~cmd:(selector "setScrubsLinearly:") ~typ:(bool @-> returning void) x +let setShouldLayoutSubviews x self = msg_send ~self ~cmd:(selector "setShouldLayoutSubviews:") ~typ:(bool @-> returning void) x +let setStartPaused x self = msg_send ~self ~cmd:(selector "setStartPaused:") ~typ:(bool @-> returning void) x +let setUserInteractionEnabled x self = msg_send ~self ~cmd:(selector "setUserInteractionEnabled:") ~typ:(bool @-> returning void) x +let shouldLayoutSubviews self = msg_send ~self ~cmd:(selector "shouldLayoutSubviews") ~typ:(returning bool) +let startPaused self = msg_send ~self ~cmd:(selector "startPaused") ~typ:(returning bool) +let userInteractionEnabled self = msg_send ~self ~cmd:(selector "userInteractionEnabled") ~typ:(returning bool) +let uuid self = msg_send ~self ~cmd:(selector "uuid") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIViewPropertyCollectingAnimationState.ml b/uikit/UIViewPropertyCollectingAnimationState.ml index 9b360c0b..e21e1b37 100644 --- a/uikit/UIViewPropertyCollectingAnimationState.ml +++ b/uikit/UIViewPropertyCollectingAnimationState.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewPropertyCollectingAnimationState" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewpropertycollectinganimationstate?language=objc}UIViewPropertyCollectingAnimationState} *) -let actionForLayer x ~forKey ~forView self = msg_send ~self ~cmd:(selector "actionForLayer:forKey:forView:") ~typ:(id @-> id @-> id @-> returning (id)) x forKey forView -let capturedProperties self = msg_send ~self ~cmd:(selector "capturedProperties") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let setCapturedProperties x self = msg_send ~self ~cmd:(selector "setCapturedProperties:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIViewPropertyCollectingAnimationState" + +let actionForLayer x ~forKey ~forView self = msg_send ~self ~cmd:(selector "actionForLayer:forKey:forView:") ~typ:(id @-> id @-> id @-> returning id) x forKey forView +let capturedProperties self = msg_send ~self ~cmd:(selector "capturedProperties") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let setCapturedProperties x self = msg_send ~self ~cmd:(selector "setCapturedProperties:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIViewRunningAnimationEntry.ml b/uikit/UIViewRunningAnimationEntry.ml index 0afa032b..1f16999b 100644 --- a/uikit/UIViewRunningAnimationEntry.ml +++ b/uikit/UIViewRunningAnimationEntry.ml @@ -5,19 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewRunningAnimationEntry" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewrunninganimationentry?language=objc}UIViewRunningAnimationEntry} *) -let animationState self = msg_send ~self ~cmd:(selector "animationState") ~typ:(returning (id)) -let composer self = msg_send ~self ~cmd:(selector "composer") ~typ:(returning (id)) -let initWithAnimation x ~completion ~composer self = msg_send ~self ~cmd:(selector "initWithAnimation:completion:composer:") ~typ:(id @-> ptr void @-> id @-> returning (id)) x completion composer -let invalidated self = msg_send ~self ~cmd:(selector "invalidated") ~typ:(returning (bool)) -let performCompletionCallbackFinished x self = msg_send ~self ~cmd:(selector "performCompletionCallbackFinished:") ~typ:(bool @-> returning (void)) x -let performWithLock x self = msg_send ~self ~cmd:(selector "performWithLock:") ~typ:(ptr void @-> returning (void)) x -let performWithoutLock x self = msg_send ~self ~cmd:(selector "performWithoutLock:") ~typ:(ptr void @-> returning (void)) x -let running self = msg_send ~self ~cmd:(selector "running") ~typ:(returning (bool)) -let setAnimationState x self = msg_send ~self ~cmd:(selector "setAnimationState:") ~typ:(id @-> returning (void)) x -let setCompletionCallback x self = msg_send ~self ~cmd:(selector "setCompletionCallback:") ~typ:(ptr void @-> returning (void)) x -let setComposer x self = msg_send ~self ~cmd:(selector "setComposer:") ~typ:(id @-> returning (void)) x -let setInvalidated x self = msg_send ~self ~cmd:(selector "setInvalidated:") ~typ:(bool @-> returning (void)) x -let setRunning x self = msg_send ~self ~cmd:(selector "setRunning:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIViewRunningAnimationEntry" + +let animationState self = msg_send ~self ~cmd:(selector "animationState") ~typ:(returning id) +let composer self = msg_send ~self ~cmd:(selector "composer") ~typ:(returning id) +let initWithAnimation x ~completion ~composer self = msg_send ~self ~cmd:(selector "initWithAnimation:completion:composer:") ~typ:(id @-> (ptr void) @-> id @-> returning id) x completion composer +let invalidated self = msg_send ~self ~cmd:(selector "invalidated") ~typ:(returning bool) +let performCompletionCallbackFinished x self = msg_send ~self ~cmd:(selector "performCompletionCallbackFinished:") ~typ:(bool @-> returning void) x +let performWithLock x self = msg_send ~self ~cmd:(selector "performWithLock:") ~typ:((ptr void) @-> returning void) x +let performWithoutLock x self = msg_send ~self ~cmd:(selector "performWithoutLock:") ~typ:((ptr void) @-> returning void) x +let running self = msg_send ~self ~cmd:(selector "running") ~typ:(returning bool) +let setAnimationState x self = msg_send ~self ~cmd:(selector "setAnimationState:") ~typ:(id @-> returning void) x +let setCompletionCallback x self = msg_send ~self ~cmd:(selector "setCompletionCallback:") ~typ:((ptr void) @-> returning void) x +let setComposer x self = msg_send ~self ~cmd:(selector "setComposer:") ~typ:(id @-> returning void) x +let setInvalidated x self = msg_send ~self ~cmd:(selector "setInvalidated:") ~typ:(bool @-> returning void) x +let setRunning x self = msg_send ~self ~cmd:(selector "setRunning:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIViewSpringAnimation.ml b/uikit/UIViewSpringAnimation.ml index 95887e83..2c9402be 100644 --- a/uikit/UIViewSpringAnimation.ml +++ b/uikit/UIViewSpringAnimation.ml @@ -5,22 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIViewSpringAnimation" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewspringanimation?language=objc}UIViewSpringAnimation} *) -let initWithCurrent x ~targetValue self = msg_send ~self ~cmd:(selector "initWithCurrent:targetValue:") ~typ:(id @-> id @-> returning (id)) x targetValue -let initWithDescription x ~current ~targetValue self = msg_send ~self ~cmd:(selector "initWithDescription:current:targetValue:") ~typ:(id @-> id @-> id @-> returning (id)) x current targetValue -let intermediate self = msg_send ~self ~cmd:(selector "intermediate") ~typ:(returning (id)) -let intermediateVelocity self = msg_send ~self ~cmd:(selector "intermediateVelocity") ~typ:(returning (id)) -let isStable self = msg_send ~self ~cmd:(selector "isStable") ~typ:(returning (bool)) -let setIntermediate x self = msg_send ~self ~cmd:(selector "setIntermediate:") ~typ:(id @-> returning (void)) x -let setIntermediateVelocity x self = msg_send ~self ~cmd:(selector "setIntermediateVelocity:") ~typ:(id @-> returning (void)) x -let setTargetValue x self = msg_send ~self ~cmd:(selector "setTargetValue:") ~typ:(id @-> returning (void)) x -let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(id @-> returning (void)) x -let setVelocity x self = msg_send ~self ~cmd:(selector "setVelocity:") ~typ:(id @-> returning (void)) x -let stepWithDelta x self = msg_send ~self ~cmd:(selector "stepWithDelta:") ~typ:(double @-> returning (id)) x -let targetValue self = msg_send ~self ~cmd:(selector "targetValue") ~typ:(returning (id)) -let updateWithDescription x self = msg_send ~self ~cmd:(selector "updateWithDescription:") ~typ:(id @-> returning (void)) x -let updateWithDescription' x ~initial self = msg_send ~self ~cmd:(selector "updateWithDescription:initial:") ~typ:(id @-> bool @-> returning (void)) x initial -let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning (id)) -let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIViewSpringAnimation" + +let initWithCurrent x ~targetValue self = msg_send ~self ~cmd:(selector "initWithCurrent:targetValue:") ~typ:(id @-> id @-> returning id) x targetValue +let initWithDescription x ~current ~targetValue self = msg_send ~self ~cmd:(selector "initWithDescription:current:targetValue:") ~typ:(id @-> id @-> id @-> returning id) x current targetValue +let intermediate self = msg_send ~self ~cmd:(selector "intermediate") ~typ:(returning id) +let intermediateVelocity self = msg_send ~self ~cmd:(selector "intermediateVelocity") ~typ:(returning id) +let isStable self = msg_send ~self ~cmd:(selector "isStable") ~typ:(returning bool) +let setIntermediate x self = msg_send ~self ~cmd:(selector "setIntermediate:") ~typ:(id @-> returning void) x +let setIntermediateVelocity x self = msg_send ~self ~cmd:(selector "setIntermediateVelocity:") ~typ:(id @-> returning void) x +let setTargetValue x self = msg_send ~self ~cmd:(selector "setTargetValue:") ~typ:(id @-> returning void) x +let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(id @-> returning void) x +let stepWithDelta x self = msg_send ~self ~cmd:(selector "stepWithDelta:") ~typ:(double @-> returning id) x +let targetValue self = msg_send ~self ~cmd:(selector "targetValue") ~typ:(returning id) +let updateWithDescription x self = msg_send ~self ~cmd:(selector "updateWithDescription:") ~typ:(id @-> returning void) x +let updateWithDescription' x ~initial self = msg_send ~self ~cmd:(selector "updateWithDescription:initial:") ~typ:(id @-> bool @-> returning void) x initial +let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning id) +let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIViewSpringAnimationBehavior.ml b/uikit/UIViewSpringAnimationBehavior.ml deleted file mode 100644 index 42c54cbf..00000000 --- a/uikit/UIViewSpringAnimationBehavior.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIViewSpringAnimationBehavior" - -module C = struct - let behaviorWithDampingRatio x ~response self = msg_send ~self ~cmd:(selector "behaviorWithDampingRatio:response:") ~typ:(double @-> double @-> returning (id)) x response -end - -let inertialProjectionDeceleration self = msg_send ~self ~cmd:(selector "inertialProjectionDeceleration") ~typ:(returning (double)) -let inertialTargetSmoothing self = msg_send ~self ~cmd:(selector "inertialTargetSmoothing") ~typ:(returning (double)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let setDampingRatio x ~response self = msg_send ~self ~cmd:(selector "setDampingRatio:response:") ~typ:(double @-> double @-> returning (void)) x response -let setInertialProjectionDeceleration x self = msg_send ~self ~cmd:(selector "setInertialProjectionDeceleration:") ~typ:(double @-> returning (void)) x -let setInertialTargetSmoothing x self = msg_send ~self ~cmd:(selector "setInertialTargetSmoothing:") ~typ:(double @-> returning (void)) x -let setTrackingDampingRatio x ~response ~dampingRatioSmoothing ~responseSmoothing self = msg_send ~self ~cmd:(selector "setTrackingDampingRatio:response:dampingRatioSmoothing:responseSmoothing:") ~typ:(double @-> double @-> double @-> double @-> returning (void)) x response dampingRatioSmoothing responseSmoothing \ No newline at end of file diff --git a/uikit/UIViewSpringAnimationDescription.ml b/uikit/UIViewSpringAnimationDescription.ml deleted file mode 100644 index 8a3136b8..00000000 --- a/uikit/UIViewSpringAnimationDescription.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIViewSpringAnimationDescription" - -module C = struct - let descriptionWithSpringAnimationParameters x self = msg_send ~self ~cmd:(selector "descriptionWithSpringAnimationParameters:") ~typ:(ptr void @-> returning (id)) x - let descriptionWithTension x ~friction self = msg_send ~self ~cmd:(selector "descriptionWithTension:friction:") ~typ:(double @-> double @-> returning (id)) x friction -end - -let friction self = msg_send ~self ~cmd:(selector "friction") ~typ:(returning (double)) -let setFriction x self = msg_send ~self ~cmd:(selector "setFriction:") ~typ:(double @-> returning (void)) x -let setParameters x self = msg_send ~self ~cmd:(selector "setParameters:") ~typ:(ptr void @-> returning (void)) x -let setTension x self = msg_send ~self ~cmd:(selector "setTension:") ~typ:(double @-> returning (void)) x -let setUsesDampingRatioAndResponse x self = msg_send ~self ~cmd:(selector "setUsesDampingRatioAndResponse:") ~typ:(bool @-> returning (void)) x -let tension self = msg_send ~self ~cmd:(selector "tension") ~typ:(returning (double)) -let usesDampingRatioAndResponse self = msg_send ~self ~cmd:(selector "usesDampingRatioAndResponse") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit/UIViewSpringAnimationState.ml b/uikit/UIViewSpringAnimationState.ml deleted file mode 100644 index 314034de..00000000 --- a/uikit/UIViewSpringAnimationState.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIViewSpringAnimationState" - -module C = struct - let computeDerivedSpringParameters x ~zeta ~mass ~velocity ~epsilon ~stiffness ~damping self = msg_send ~self ~cmd:(selector "computeDerivedSpringParameters:zeta:mass:velocity:epsilon:stiffness:damping:") ~typ:(double @-> double @-> double @-> double @-> double @-> ptr (double) @-> ptr (double) @-> returning (void)) x zeta mass velocity epsilon stiffness damping - let computeDerivedSpringParameters' x ~zeta ~mass ~velocity ~epsilon ~stiffness ~damping ~debugging self = msg_send ~self ~cmd:(selector "computeDerivedSpringParameters:zeta:mass:velocity:epsilon:stiffness:damping:debugging:") ~typ:(double @-> double @-> double @-> double @-> double @-> ptr (double) @-> ptr (double) @-> ptr (id) @-> returning (void)) x zeta mass velocity epsilon stiffness damping debugging - let defaultSpringAnimationForKey x ~mass ~stiffness ~damping ~velocity self = msg_send ~self ~cmd:(selector "defaultSpringAnimationForKey:mass:stiffness:damping:velocity:") ~typ:(id @-> double @-> double @-> double @-> double @-> returning (id)) x mass stiffness damping velocity -end - -let animationForLayer x ~forKey ~forView self = msg_send ~self ~cmd:(selector "animationForLayer:forKey:forView:") ~typ:(id @-> id @-> id @-> returning (id)) x forKey forView -let generateSpringPropertiesForDuration x ~damping ~velocity self = msg_send ~self ~cmd:(selector "generateSpringPropertiesForDuration:damping:velocity:") ~typ:(double @-> double @-> double @-> returning (void)) x damping velocity -let setupWithDuration x ~delay ~view ~options ~factory ~parentState ~start ~completion self = msg_send ~self ~cmd:(selector "setupWithDuration:delay:view:options:factory:parentState:start:completion:") ~typ:(double @-> double @-> id @-> ullong @-> id @-> id @-> ptr void @-> ptr void @-> returning (void)) x delay view (ULLong.of_int options) factory parentState start completion \ No newline at end of file diff --git a/uikit/UIViewUpdateVelocityAnimationDescription.ml b/uikit/UIViewUpdateVelocityAnimationDescription.ml deleted file mode 100644 index 59562e5a..00000000 --- a/uikit/UIViewUpdateVelocityAnimationDescription.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIViewUpdateVelocityAnimationDescription" - -module C = struct - let descriptionWithVelocity x ~targetVelocity self = msg_send ~self ~cmd:(selector "descriptionWithVelocity:targetVelocity:") ~typ:(id @-> id @-> returning (id)) x targetVelocity -end - -let initWithVelocity x ~targetVelocity self = msg_send ~self ~cmd:(selector "initWithVelocity:targetVelocity:") ~typ:(id @-> id @-> returning (id)) x targetVelocity -let setTargetVelocity x self = msg_send ~self ~cmd:(selector "setTargetVelocity:") ~typ:(id @-> returning (void)) x -let setVelocity x self = msg_send ~self ~cmd:(selector "setVelocity:") ~typ:(id @-> returning (void)) x -let targetVelocity self = msg_send ~self ~cmd:(selector "targetVelocity") ~typ:(returning (id)) -let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIVisualEffect.ml b/uikit/UIVisualEffect.ml index b506b0b2..f3cd52cb 100644 --- a/uikit/UIVisualEffect.ml +++ b/uikit/UIVisualEffect.ml @@ -5,23 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIVisualEffect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uivisualeffect?language=objc}UIVisualEffect} *) -module C = struct - let effectCombiningEffects x self = msg_send ~self ~cmd:(selector "effectCombiningEffects:") ~typ:(id @-> returning (id)) x - let effectCompositingColor x self = msg_send ~self ~cmd:(selector "effectCompositingColor:") ~typ:(id @-> returning (id)) x - let effectCompositingColor' x ~withMode ~alpha self = msg_send ~self ~cmd:(selector "effectCompositingColor:withMode:alpha:") ~typ:(id @-> llong @-> double @-> returning (id)) x (LLong.of_int withMode) alpha - let effectCompositingImage x self = msg_send ~self ~cmd:(selector "effectCompositingImage:") ~typ:(id @-> returning (id)) x - let effectCompositingImage' x ~withMode ~alpha self = msg_send ~self ~cmd:(selector "effectCompositingImage:withMode:alpha:") ~typ:(id @-> llong @-> double @-> returning (id)) x (LLong.of_int withMode) alpha - let emptyEffect self = msg_send ~self ~cmd:(selector "emptyEffect") ~typ:(returning (id)) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIVisualEffect" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let effectConfig self = msg_send ~self ~cmd:(selector "effectConfig") ~typ:(returning (id)) -let effectConfigForQuality x self = msg_send ~self ~cmd:(selector "effectConfigForQuality:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let effectForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "effectForUserInterfaceStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let effectSettings self = msg_send ~self ~cmd:(selector "effectSettings") ~typ:(returning (id)) -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 \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let effectConfig self = msg_send ~self ~cmd:(selector "effectConfig") ~typ:(returning id) +let effectConfigForQuality x self = msg_send ~self ~cmd:(selector "effectConfigForQuality:") ~typ:(llong @-> returning id) (LLong.of_int x) +let effectForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "effectForUserInterfaceStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let effectSettings self = msg_send ~self ~cmd:(selector "effectSettings") ~typ:(returning id) +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 \ No newline at end of file diff --git a/uikit/UIVisualEffectClass.ml b/uikit/UIVisualEffectClass.ml new file mode 100644 index 00000000..36aef1fb --- /dev/null +++ b/uikit/UIVisualEffectClass.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uivisualeffect?language=objc}UIVisualEffect} *) + +let effectCombiningEffects x self = msg_send ~self ~cmd:(selector "effectCombiningEffects:") ~typ:(id @-> returning id) x +let effectCompositingColor x self = msg_send ~self ~cmd:(selector "effectCompositingColor:") ~typ:(id @-> returning id) x +let effectCompositingColor' x ~withMode ~alpha self = msg_send ~self ~cmd:(selector "effectCompositingColor:withMode:alpha:") ~typ:(id @-> llong @-> double @-> returning id) x (LLong.of_int withMode) alpha +let effectCompositingImage x self = msg_send ~self ~cmd:(selector "effectCompositingImage:") ~typ:(id @-> returning id) x +let effectCompositingImage' x ~withMode ~alpha self = msg_send ~self ~cmd:(selector "effectCompositingImage:withMode:alpha:") ~typ:(id @-> llong @-> double @-> returning id) x (LLong.of_int withMode) alpha +let emptyEffect self = msg_send ~self ~cmd:(selector "emptyEffect") ~typ:(returning id) +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIVisualEffectView.ml b/uikit/UIVisualEffectView.ml index 19c42438..9c8f8288 100644 --- a/uikit/UIVisualEffectView.ml +++ b/uikit/UIVisualEffectView.ml @@ -5,35 +5,34 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIVisualEffectView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uivisualeffectview?language=objc}UIVisualEffectView} *) -module C = struct - let photoSmallAttributionVisualEffectView self = msg_send ~self ~cmd:(selector "photoSmallAttributionVisualEffectView") ~typ:(returning (id)) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIVisualEffectView" -let allowsBlurring self = msg_send ~self ~cmd:(selector "allowsBlurring") ~typ:(returning (bool)) -let allowsDithering self = msg_send ~self ~cmd:(selector "allowsDithering") ~typ:(returning (bool)) -let backgroundEffects self = msg_send ~self ~cmd:(selector "backgroundEffects") ~typ:(returning (id)) -let contentEffects self = msg_send ~self ~cmd:(selector "contentEffects") ~typ:(returning (id)) -let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let effect self = msg_send ~self ~cmd:(selector "effect") ~typ:(returning (id)) -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 initWithEffect x self = msg_send ~self ~cmd:(selector "initWithEffect:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setAllowsBlurring x self = msg_send ~self ~cmd:(selector "setAllowsBlurring:") ~typ:(bool @-> returning (void)) x -let setAllowsDithering x self = msg_send ~self ~cmd:(selector "setAllowsDithering:") ~typ:(bool @-> returning (void)) x -let setBackgroundEffects x self = msg_send ~self ~cmd:(selector "setBackgroundEffects:") ~typ:(id @-> returning (void)) x -let setContentEffects x self = msg_send ~self ~cmd:(selector "setContentEffects:") ~typ:(id @-> returning (void)) x -let setContentView x self = msg_send ~self ~cmd:(selector "setContentView:") ~typ:(id @-> returning (void)) x -let setEffect x self = msg_send ~self ~cmd:(selector "setEffect:") ~typ:(id @-> returning (void)) x -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let willMoveToSuperview x self = msg_send ~self ~cmd:(selector "willMoveToSuperview:") ~typ:(id @-> returning (void)) x -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let allowsBlurring self = msg_send ~self ~cmd:(selector "allowsBlurring") ~typ:(returning bool) +let allowsDithering self = msg_send ~self ~cmd:(selector "allowsDithering") ~typ:(returning bool) +let backgroundEffects self = msg_send ~self ~cmd:(selector "backgroundEffects") ~typ:(returning id) +let contentEffects self = msg_send ~self ~cmd:(selector "contentEffects") ~typ:(returning id) +let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let effect self = msg_send ~self ~cmd:(selector "effect") ~typ:(returning id) +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 initWithEffect x self = msg_send ~self ~cmd:(selector "initWithEffect:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setAllowsBlurring x self = msg_send ~self ~cmd:(selector "setAllowsBlurring:") ~typ:(bool @-> returning void) x +let setAllowsDithering x self = msg_send ~self ~cmd:(selector "setAllowsDithering:") ~typ:(bool @-> returning void) x +let setBackgroundEffects x self = msg_send ~self ~cmd:(selector "setBackgroundEffects:") ~typ:(id @-> returning void) x +let setContentEffects x self = msg_send ~self ~cmd:(selector "setContentEffects:") ~typ:(id @-> returning void) x +let setContentView x self = msg_send ~self ~cmd:(selector "setContentView:") ~typ:(id @-> returning void) x +let setEffect x self = msg_send ~self ~cmd:(selector "setEffect:") ~typ:(id @-> returning void) x +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let willMoveToSuperview x self = msg_send ~self ~cmd:(selector "willMoveToSuperview:") ~typ:(id @-> returning void) x +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIVisualEffectViewClass.ml b/uikit/UIVisualEffectViewClass.ml new file mode 100644 index 00000000..d91b5a05 --- /dev/null +++ b/uikit/UIVisualEffectViewClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uivisualeffectview?language=objc}UIVisualEffectView} *) + +let photoSmallAttributionVisualEffectView self = msg_send ~self ~cmd:(selector "photoSmallAttributionVisualEffectView") ~typ:(returning id) +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIWKAutocorrectionContext.ml b/uikit/UIWKAutocorrectionContext.ml deleted file mode 100644 index d3ade819..00000000 --- a/uikit/UIWKAutocorrectionContext.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIWKAutocorrectionContext" - -let contextAfterSelection self = msg_send ~self ~cmd:(selector "contextAfterSelection") ~typ:(returning (id)) -let contextBeforeSelection self = msg_send ~self ~cmd:(selector "contextBeforeSelection") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let markedText self = msg_send ~self ~cmd:(selector "markedText") ~typ:(returning (id)) -let rangeInMarkedText self = msg_send_stret ~self ~cmd:(selector "rangeInMarkedText") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let selectedText self = msg_send ~self ~cmd:(selector "selectedText") ~typ:(returning (id)) -let setContextAfterSelection x self = msg_send ~self ~cmd:(selector "setContextAfterSelection:") ~typ:(id @-> returning (void)) x -let setContextBeforeSelection x self = msg_send ~self ~cmd:(selector "setContextBeforeSelection:") ~typ:(id @-> returning (void)) x -let setMarkedText x self = msg_send ~self ~cmd:(selector "setMarkedText:") ~typ:(id @-> returning (void)) x -let setRangeInMarkedText x self = msg_send ~self ~cmd:(selector "setRangeInMarkedText:") ~typ:(NSRange.t @-> returning (void)) x -let setSelectedText x self = msg_send ~self ~cmd:(selector "setSelectedText:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIWKAutocorrectionRects.ml b/uikit/UIWKAutocorrectionRects.ml deleted file mode 100644 index a0d174b9..00000000 --- a/uikit/UIWKAutocorrectionRects.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIWKAutocorrectionRects" - -let firstRect self = msg_send_stret ~self ~cmd:(selector "firstRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let lastRect self = msg_send_stret ~self ~cmd:(selector "lastRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let setFirstRect x self = msg_send ~self ~cmd:(selector "setFirstRect:") ~typ:(CGRect.t @-> returning (void)) x -let setLastRect x self = msg_send ~self ~cmd:(selector "setLastRect:") ~typ:(CGRect.t @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIWKDocumentContext.ml b/uikit/UIWKDocumentContext.ml deleted file mode 100644 index 8d6ac8a1..00000000 --- a/uikit/UIWKDocumentContext.ml +++ /dev/null @@ -1,36 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIWKDocumentContext" - -let addTextRect x ~forCharacterRange self = msg_send ~self ~cmd:(selector "addTextRect:forCharacterRange:") ~typ:(CGRect.t @-> NSRange.t @-> returning (void)) x forCharacterRange -let annotatedText self = msg_send ~self ~cmd:(selector "annotatedText") ~typ:(returning (id)) -let characterRectsForCharacterRange x self = msg_send ~self ~cmd:(selector "characterRectsForCharacterRange:") ~typ:(NSRange.t @-> returning (id)) x -let closestCharacterIndexForPoint x self = msg_send ~self ~cmd:(selector "closestCharacterIndexForPoint:") ~typ:(CGPoint.t @-> returning (ullong)) x -let contextAfter self = msg_send ~self ~cmd:(selector "contextAfter") ~typ:(returning (id)) -let contextBefore self = msg_send ~self ~cmd:(selector "contextBefore") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deltaForSelectionRange x self = msg_send_stret ~self ~cmd:(selector "deltaForSelectionRange:") ~typ:(NSRange.t @-> returning (NSRange.t)) ~return_type:NSRange.t x -let enumerateLayoutRects x self = msg_send ~self ~cmd:(selector "enumerateLayoutRects:") ~typ:(ptr void @-> returning (void)) x -let enumerateLayoutRectsWithOptions x ~characterRange ~block self = msg_send ~self ~cmd:(selector "enumerateLayoutRectsWithOptions:characterRange:block:") ~typ:(ullong @-> NSRange.t @-> ptr void @-> returning (void)) (ULLong.of_int x) characterRange block -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let markedText self = msg_send ~self ~cmd:(selector "markedText") ~typ:(returning (id)) -let markedTextRange self = msg_send_stret ~self ~cmd:(selector "markedTextRange") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let rangeContainedWithinRect x self = msg_send_stret ~self ~cmd:(selector "rangeContainedWithinRect:") ~typ:(CGRect.t @-> returning (NSRange.t)) ~return_type:NSRange.t x -let resetTextRects self = msg_send ~self ~cmd:(selector "resetTextRects") ~typ:(returning (void)) -let selectedRangeInMarkedText self = msg_send_stret ~self ~cmd:(selector "selectedRangeInMarkedText") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let selectedText self = msg_send ~self ~cmd:(selector "selectedText") ~typ:(returning (id)) -let selectedTextRange self = msg_send_stret ~self ~cmd:(selector "selectedTextRange") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let setAnnotatedText x self = msg_send ~self ~cmd:(selector "setAnnotatedText:") ~typ:(id @-> returning (void)) x -let setContextAfter x self = msg_send ~self ~cmd:(selector "setContextAfter:") ~typ:(id @-> returning (void)) x -let setContextBefore x self = msg_send ~self ~cmd:(selector "setContextBefore:") ~typ:(id @-> returning (void)) x -let setMarkedText x self = msg_send ~self ~cmd:(selector "setMarkedText:") ~typ:(id @-> returning (void)) x -let setSelectedRangeInMarkedText x self = msg_send ~self ~cmd:(selector "setSelectedRangeInMarkedText:") ~typ:(NSRange.t @-> returning (void)) x -let setSelectedText x self = msg_send ~self ~cmd:(selector "setSelectedText:") ~typ:(id @-> returning (void)) x -let sortTextRectsByCharacterRange self = msg_send ~self ~cmd:(selector "sortTextRectsByCharacterRange") ~typ:(returning (void)) -let stringContainedWithinRect x self = msg_send ~self ~cmd:(selector "stringContainedWithinRect:") ~typ:(CGRect.t @-> returning (id)) x \ No newline at end of file diff --git a/uikit/UIWKDocumentRequest.ml b/uikit/UIWKDocumentRequest.ml deleted file mode 100644 index aaf6f29e..00000000 --- a/uikit/UIWKDocumentRequest.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIWKDocumentRequest" - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let documentRect self = msg_send_stret ~self ~cmd:(selector "documentRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let flags self = msg_send ~self ~cmd:(selector "flags") ~typ:(returning (llong)) -let granularityCount self = msg_send ~self ~cmd:(selector "granularityCount") ~typ:(returning (llong)) -let inputElementIdentifier self = msg_send ~self ~cmd:(selector "inputElementIdentifier") ~typ:(returning (id)) -let setDocumentRect x self = msg_send ~self ~cmd:(selector "setDocumentRect:") ~typ:(CGRect.t @-> returning (void)) x -let setFlags x self = msg_send ~self ~cmd:(selector "setFlags:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setGranularityCount x self = msg_send ~self ~cmd:(selector "setGranularityCount:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setInputElementIdentifier x self = msg_send ~self ~cmd:(selector "setInputElementIdentifier:") ~typ:(id @-> returning (void)) x -let setSurroundingGranularity x self = msg_send ~self ~cmd:(selector "setSurroundingGranularity:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let surroundingGranularity self = msg_send ~self ~cmd:(selector "surroundingGranularity") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit/UIWKTextInteractionAssistant.ml b/uikit/UIWKTextInteractionAssistant.ml deleted file mode 100644 index a0a1778a..00000000 --- a/uikit/UIWKTextInteractionAssistant.ml +++ /dev/null @@ -1,66 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIWKTextInteractionAssistant" - -let addGestureRecognizersToView x self = msg_send ~self ~cmd:(selector "addGestureRecognizersToView:") ~typ:(id @-> returning (void)) x -let caretBeforeTap self = msg_send_stret ~self ~cmd:(selector "caretBeforeTap") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let containerAllowsSelection self = msg_send ~self ~cmd:(selector "containerAllowsSelection") ~typ:(returning (bool)) -let containerAllowsSelectionTintOnly self = msg_send ~self ~cmd:(selector "containerAllowsSelectionTintOnly") ~typ:(returning (bool)) -let containerIsAtom self = msg_send ~self ~cmd:(selector "containerIsAtom") ~typ:(returning (bool)) -let containerIsBrowserView self = msg_send ~self ~cmd:(selector "containerIsBrowserView") ~typ:(returning (bool)) -let currentCursorBehavior self = msg_send ~self ~cmd:(selector "currentCursorBehavior") ~typ:(returning (llong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didEndScrollingOverflow self = msg_send ~self ~cmd:(selector "didEndScrollingOverflow") ~typ:(returning (void)) -let hadCaretSelectionBeforeTap self = msg_send ~self ~cmd:(selector "hadCaretSelectionBeforeTap") ~typ:(returning (bool)) -let hideTextStyleOptions self = msg_send ~self ~cmd:(selector "hideTextStyleOptions") ~typ:(returning (void)) -let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning (id)) x -let lookup x ~fromRect self = msg_send ~self ~cmd:(selector "lookup:fromRect:") ~typ:(id @-> CGRect.t @-> returning (void)) x fromRect -let lookup' x ~withRange ~fromRect self = msg_send ~self ~cmd:(selector "lookup:withRange:fromRect:") ~typ:(id @-> NSRange.t @-> CGRect.t @-> returning (void)) x withRange fromRect -let overrideGestureRecognizer x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "overrideGestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning (bool)) x shouldReceiveTouch -let overrideGestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "overrideGestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let rangeSelectionCanceled self = msg_send ~self ~cmd:(selector "rangeSelectionCanceled") ~typ:(returning (void)) -let rangeSelectionEnded x self = msg_send ~self ~cmd:(selector "rangeSelectionEnded:") ~typ:(CGPoint.t @-> returning (void)) x -let rangeSelectionMoved x ~withTouchPoint self = msg_send ~self ~cmd:(selector "rangeSelectionMoved:withTouchPoint:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (void)) x withTouchPoint -let rangeSelectionStarted x self = msg_send ~self ~cmd:(selector "rangeSelectionStarted:") ~typ:(CGPoint.t @-> returning (void)) x -let requiresImmediateUpdate self = msg_send ~self ~cmd:(selector "requiresImmediateUpdate") ~typ:(returning (bool)) -let scheduleChineseTransliterationForText x self = msg_send ~self ~cmd:(selector "scheduleChineseTransliterationForText:") ~typ:(id @-> returning (void)) x -let scheduleReplacementsForText x self = msg_send ~self ~cmd:(selector "scheduleReplacementsForText:") ~typ:(id @-> returning (void)) x -let scheduleReplacementsForText' x ~withOptions self = msg_send ~self ~cmd:(selector "scheduleReplacementsForText:withOptions:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int withOptions) -let scheduleReplacementsWithOptions x self = msg_send ~self ~cmd:(selector "scheduleReplacementsWithOptions:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let scrollSelectionToVisible x self = msg_send ~self ~cmd:(selector "scrollSelectionToVisible:") ~typ:(bool @-> returning (void)) x -let selectAll x self = msg_send ~self ~cmd:(selector "selectAll:") ~typ:(id @-> returning (void)) x -let selectTextForReplacement x ~withOptions self = msg_send ~self ~cmd:(selector "selectTextForReplacement:withOptions:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int withOptions) -let selectWord self = msg_send ~self ~cmd:(selector "selectWord") ~typ:(returning (void)) -let selectionChanged self = msg_send ~self ~cmd:(selector "selectionChanged") ~typ:(returning (void)) -let selectionChangedWithGestureAt x ~withGesture ~withState ~withFlags self = msg_send ~self ~cmd:(selector "selectionChangedWithGestureAt:withGesture:withState:withFlags:") ~typ:(CGPoint.t @-> llong @-> llong @-> llong @-> returning (void)) x (LLong.of_int withGesture) (LLong.of_int withState) (LLong.of_int withFlags) -let selectionChangedWithTouchAt x ~withSelectionTouch ~withFlags self = msg_send ~self ~cmd:(selector "selectionChangedWithTouchAt:withSelectionTouch:withFlags:") ~typ:(CGPoint.t @-> llong @-> llong @-> returning (void)) x (LLong.of_int withSelectionTouch) (LLong.of_int withFlags) -let selectionInteractionClass self = msg_send ~self ~cmd:(selector "selectionInteractionClass") ~typ:(returning (_Class)) -let setCaretBeforeTap x self = msg_send ~self ~cmd:(selector "setCaretBeforeTap:") ~typ:(CGRect.t @-> returning (void)) x -let setHadCaretSelectionBeforeTap x self = msg_send ~self ~cmd:(selector "setHadCaretSelectionBeforeTap:") ~typ:(bool @-> returning (void)) x -let setShouldDelayActivatingSelectionView x self = msg_send ~self ~cmd:(selector "setShouldDelayActivatingSelectionView:") ~typ:(bool @-> returning (void)) x -let setWordBeforeTap x self = msg_send ~self ~cmd:(selector "setWordBeforeTap:") ~typ:(id @-> returning (void)) x -let shouldDelayActivatingSelectionView self = msg_send ~self ~cmd:(selector "shouldDelayActivatingSelectionView") ~typ:(returning (bool)) -let shouldSuppressSelectionCommands self = msg_send ~self ~cmd:(selector "shouldSuppressSelectionCommands") ~typ:(returning (bool)) -let shouldTryReplacementsForText x ~withOptions self = msg_send ~self ~cmd:(selector "shouldTryReplacementsForText:withOptions:") ~typ:(id @-> ullong @-> returning (bool)) x (ULLong.of_int withOptions) -let showDictionaryFor x ~fromRect self = msg_send ~self ~cmd:(selector "showDictionaryFor:fromRect:") ~typ:(id @-> CGRect.t @-> returning (void)) x fromRect -let showReplacementsForText x ~withOptions self = msg_send ~self ~cmd:(selector "showReplacementsForText:withOptions:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int withOptions) -let showSelectionView self = msg_send ~self ~cmd:(selector "showSelectionView") ~typ:(returning (void)) -let showShareSheetFor x ~fromRect self = msg_send ~self ~cmd:(selector "showShareSheetFor:fromRect:") ~typ:(id @-> CGRect.t @-> returning (void)) x fromRect -let showTextServiceFor x ~fromRect self = msg_send ~self ~cmd:(selector "showTextServiceFor:fromRect:") ~typ:(id @-> CGRect.t @-> returning (void)) x fromRect -let showTextStyleOptions self = msg_send ~self ~cmd:(selector "showTextStyleOptions") ~typ:(returning (void)) -let textChecker self = msg_send ~self ~cmd:(selector "textChecker") ~typ:(returning (id)) -let translate x ~fromRect self = msg_send ~self ~cmd:(selector "translate:fromRect:") ~typ:(id @-> CGRect.t @-> returning (void)) x fromRect -let updateActivatingSelectionView self = msg_send ~self ~cmd:(selector "updateActivatingSelectionView") ~typ:(returning (void)) -let updateSelectionWithPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let updateWithMagnifierTerminalPoint x self = msg_send ~self ~cmd:(selector "updateWithMagnifierTerminalPoint:") ~typ:(bool @-> returning (void)) x -let usesAsynchronousSelectionController self = msg_send ~self ~cmd:(selector "usesAsynchronousSelectionController") ~typ:(returning (bool)) -let wantsLinkInteraction self = msg_send ~self ~cmd:(selector "wantsLinkInteraction") ~typ:(returning (bool)) -let willChangeSelection self = msg_send ~self ~cmd:(selector "willChangeSelection") ~typ:(returning (void)) -let willStartScrollingOverflow self = msg_send ~self ~cmd:(selector "willStartScrollingOverflow") ~typ:(returning (void)) -let wordBeforeTap self = msg_send ~self ~cmd:(selector "wordBeforeTap") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit/UIWKTextSelectionInteraction.ml b/uikit/UIWKTextSelectionInteraction.ml deleted file mode 100644 index cf1fe55e..00000000 --- a/uikit/UIWKTextSelectionInteraction.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIWKTextSelectionInteraction" - -let didUpdateSelectionWithGesture x self = msg_send ~self ~cmd:(selector "didUpdateSelectionWithGesture:") ~typ:(id @-> returning (void)) x -let twoFingerRangedSelectGesture x self = msg_send ~self ~cmd:(selector "twoFingerRangedSelectGesture:") ~typ:(id @-> returning (void)) x -let willUpdateSelectionWithGesture x self = msg_send ~self ~cmd:(selector "willUpdateSelectionWithGesture:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIWebBrowserFindOnPageHighlighter.ml b/uikit/UIWebBrowserFindOnPageHighlighter.ml deleted file mode 100644 index aa8afeb8..00000000 --- a/uikit/UIWebBrowserFindOnPageHighlighter.ml +++ /dev/null @@ -1,36 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIWebBrowserFindOnPageHighlighter" - -module C = struct - let expandedRectsWouldIntersect x self = msg_send ~self ~cmd:(selector "expandedRectsWouldIntersect:") ~typ:(id @-> returning (bool)) x -end - -let clearBrowserView self = msg_send ~self ~cmd:(selector "clearBrowserView") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let findOnPageOptions self = msg_send ~self ~cmd:(selector "findOnPageOptions") ~typ:(returning (ullong)) -let highlightNextMatch self = msg_send ~self ~cmd:(selector "highlightNextMatch") ~typ:(returning (void)) -let highlightPreviousMatch self = msg_send ~self ~cmd:(selector "highlightPreviousMatch") ~typ:(returning (void)) -let highlightedMatchIndex self = msg_send ~self ~cmd:(selector "highlightedMatchIndex") ~typ:(returning (ullong)) -let initWithBrowserView x self = msg_send ~self ~cmd:(selector "initWithBrowserView:") ~typ:(id @-> returning (id)) x -let initWithPDFViewHandler x self = msg_send ~self ~cmd:(selector "initWithPDFViewHandler:") ~typ:(id @-> returning (id)) x -let numberOfMatches self = msg_send ~self ~cmd:(selector "numberOfMatches") ~typ:(returning (ullong)) -let search x ~hasPartialResults self = msg_send ~self ~cmd:(selector "search:hasPartialResults:") ~typ:(id @-> id @-> returning (void)) x hasPartialResults -let searchDidBegin x self = msg_send ~self ~cmd:(selector "searchDidBegin:") ~typ:(id @-> returning (void)) x -let searchDidFinish x self = msg_send ~self ~cmd:(selector "searchDidFinish:") ~typ:(id @-> returning (void)) x -let searchDidTimeOut x self = msg_send ~self ~cmd:(selector "searchDidTimeOut:") ~typ:(id @-> returning (void)) x -let searchLimitHit x self = msg_send ~self ~cmd:(selector "searchLimitHit:") ~typ:(id @-> returning (void)) x -let searchText self = msg_send ~self ~cmd:(selector "searchText") ~typ:(returning (id)) -let searchWasCancelled x self = msg_send ~self ~cmd:(selector "searchWasCancelled:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setSearchText x ~matchLimit self = msg_send ~self ~cmd:(selector "setSearchText:matchLimit:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int matchLimit) -let setSelectionRect x ~textRects ~contentImage ~wobble self = msg_send ~self ~cmd:(selector "setSelectionRect:textRects:contentImage:wobble:") ~typ:(CGRect.t @-> id @-> id @-> bool @-> returning (void)) x textRects contentImage wobble -let setSelectionRect' x ~textRects ~contentViews ~wobble self = msg_send ~self ~cmd:(selector "setSelectionRect:textRects:contentViews:wobble:") ~typ:(CGRect.t @-> id @-> id @-> bool @-> returning (void)) x textRects contentViews wobble -let updateHighlightBubbleWobble x self = msg_send ~self ~cmd:(selector "updateHighlightBubbleWobble:") ~typ:(bool @-> returning (bool)) x \ No newline at end of file diff --git a/uikit/UIWebBrowserView.ml b/uikit/UIWebBrowserView.ml index e34f0395..5d0aff00 100644 --- a/uikit/UIWebBrowserView.ml +++ b/uikit/UIWebBrowserView.ml @@ -5,89 +5,89 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebBrowserView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebbrowserview?language=objc}UIWebBrowserView} *) -module C = struct - let getUIWebBrowserViewForWebFrame x self = msg_send ~self ~cmd:(selector "getUIWebBrowserViewForWebFrame:") ~typ:(id @-> returning (id)) x - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) -end +let self = get_class "UIWebBrowserView" -let acceptedAutoFillWord x self = msg_send ~self ~cmd:(selector "acceptedAutoFillWord:") ~typ:(id @-> returning (void)) x -let accessoryAutoFill self = msg_send ~self ~cmd:(selector "accessoryAutoFill") ~typ:(returning (void)) -let accessoryClear self = msg_send ~self ~cmd:(selector "accessoryClear") ~typ:(returning (void)) -let accessoryDone self = msg_send ~self ~cmd:(selector "accessoryDone") ~typ:(returning (void)) -let accessoryTab x self = msg_send ~self ~cmd:(selector "accessoryTab:") ~typ:(bool @-> returning (void)) x -let activeRectForRectOfInterest x self = msg_send_stret ~self ~cmd:(selector "activeRectForRectOfInterest:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let addFindOnPageHighlighter self = msg_send ~self ~cmd:(selector "addFindOnPageHighlighter") ~typ:(returning (id)) -let allowDOMFocusRedirects self = msg_send ~self ~cmd:(selector "allowDOMFocusRedirects") ~typ:(returning (bool)) -let allowsInlineMediaPlayback self = msg_send ~self ~cmd:(selector "allowsInlineMediaPlayback") ~typ:(returning (bool)) -let allowsLinkPreview self = msg_send ~self ~cmd:(selector "allowsLinkPreview") ~typ:(returning (bool)) -let allowsPictureInPictureVideo self = msg_send ~self ~cmd:(selector "allowsPictureInPictureVideo") ~typ:(returning (bool)) -let alwaysDispatchesScrollEvents self = msg_send ~self ~cmd:(selector "alwaysDispatchesScrollEvents") ~typ:(returning (bool)) -let appendOverflowScrollForNode x ~offset ~whileScrolling self = msg_send ~self ~cmd:(selector "appendOverflowScrollForNode:offset:whileScrolling:") ~typ:(id @-> CGPoint.t @-> bool @-> returning (bool)) x offset whileScrolling -let assistFormNode x self = msg_send ~self ~cmd:(selector "assistFormNode:") ~typ:(id @-> returning (void)) x -let audioSessionCategoryOverride self = msg_send ~self ~cmd:(selector "audioSessionCategoryOverride") ~typ:(returning (uint)) -let autoFillDelegate self = msg_send ~self ~cmd:(selector "autoFillDelegate") ~typ:(returning (id)) -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let clearMessagesMatchingMask x self = msg_send ~self ~cmd:(selector "clearMessagesMatchingMask:") ~typ:(int @-> returning (void)) x -let considerHeightOfRectOfInterestForRotation self = msg_send ~self ~cmd:(selector "considerHeightOfRectOfInterestForRotation") ~typ:(returning (bool)) -let contentSizeForScrollView x self = msg_send_stret ~self ~cmd:(selector "contentSizeForScrollView:") ~typ:(id @-> returning (CGSize.t)) ~return_type:CGSize.t x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let formDelegateTextDidChange self = msg_send ~self ~cmd:(selector "formDelegateTextDidChange") ~typ:(returning (void)) -let formElement self = msg_send ~self ~cmd:(selector "formElement") ~typ:(returning (id)) -let hasEditedTextField self = msg_send ~self ~cmd:(selector "hasEditedTextField") ~typ:(returning (bool)) -let heightToKeepVisible self = msg_send ~self ~cmd:(selector "heightToKeepVisible") ~typ:(returning (double)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithWebView x ~frame self = msg_send ~self ~cmd:(selector "initWithWebView:frame:") ~typ:(id @-> CGRect.t @-> returning (id)) x frame -let inputAccessoryView self = msg_send ~self ~cmd:(selector "inputAccessoryView") ~typ:(returning (id)) -let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning (id)) -let inputViewObeysDOMFocus self = msg_send ~self ~cmd:(selector "inputViewObeysDOMFocus") ~typ:(returning (bool)) -let installGestureRecognizers self = msg_send ~self ~cmd:(selector "installGestureRecognizers") ~typ:(returning (void)) -let isAccessoryEnabled self = msg_send ~self ~cmd:(selector "isAccessoryEnabled") ~typ:(returning (bool)) -let isAnyTouchOverActiveArea x self = msg_send ~self ~cmd:(selector "isAnyTouchOverActiveArea:") ~typ:(id @-> returning (bool)) x -let isAutoFillMode self = msg_send ~self ~cmd:(selector "isAutoFillMode") ~typ:(returning (bool)) -let isDispatchingTouchEvents self = msg_send ~self ~cmd:(selector "isDispatchingTouchEvents") ~typ:(returning (bool)) -let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning (bool)) -let keyCommands self = msg_send ~self ~cmd:(selector "keyCommands") ~typ:(returning (id)) -let mediaPlaybackRequiresUserAction self = msg_send ~self ~cmd:(selector "mediaPlaybackRequiresUserAction") ~typ:(returning (bool)) -let messagesMatchingMask x self = msg_send ~self ~cmd:(selector "messagesMatchingMask:") ~typ:(int @-> returning (id)) x -let minimumVerticalContentOffset self = msg_send ~self ~cmd:(selector "minimumVerticalContentOffset") ~typ:(returning (double)) -let networkInterfaceName self = msg_send ~self ~cmd:(selector "networkInterfaceName") ~typ:(returning (id)) -let playsNicelyWithGestures self = msg_send ~self ~cmd:(selector "playsNicelyWithGestures") ~typ:(returning (bool)) -let rectOfInterestForRotation self = msg_send_stret ~self ~cmd:(selector "rectOfInterestForRotation") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let redrawScaledDocument self = msg_send ~self ~cmd:(selector "redrawScaledDocument") ~typ:(returning (void)) -let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning (bool)) -let rotateEnclosingScrollViewToFrame x self = msg_send ~self ~cmd:(selector "rotateEnclosingScrollViewToFrame:") ~typ:(CGRect.t @-> returning (void)) x -let scaleForProposedNewScale x ~andOldScale self = msg_send ~self ~cmd:(selector "scaleForProposedNewScale:andOldScale:") ~typ:(double @-> double @-> returning (double)) x andOldScale -let setAccessoryEnabled x self = msg_send ~self ~cmd:(selector "setAccessoryEnabled:") ~typ:(bool @-> returning (void)) x -let setAllowDOMFocusRedirects x self = msg_send ~self ~cmd:(selector "setAllowDOMFocusRedirects:") ~typ:(bool @-> returning (void)) x -let setAllowsInlineMediaPlayback x self = msg_send ~self ~cmd:(selector "setAllowsInlineMediaPlayback:") ~typ:(bool @-> returning (void)) x -let setAllowsLinkPreview x self = msg_send ~self ~cmd:(selector "setAllowsLinkPreview:") ~typ:(bool @-> returning (void)) x -let setAllowsPictureInPictureVideo x self = msg_send ~self ~cmd:(selector "setAllowsPictureInPictureVideo:") ~typ:(bool @-> returning (void)) x -let setAlwaysDispatchesScrollEvents x self = msg_send ~self ~cmd:(selector "setAlwaysDispatchesScrollEvents:") ~typ:(bool @-> returning (void)) x -let setAudioSessionCategoryOverride x self = msg_send ~self ~cmd:(selector "setAudioSessionCategoryOverride:") ~typ:(uint @-> returning (void)) x -let setAutoFillDelegate x self = msg_send ~self ~cmd:(selector "setAutoFillDelegate:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setInputViewObeysDOMFocus x self = msg_send ~self ~cmd:(selector "setInputViewObeysDOMFocus:") ~typ:(bool @-> returning (void)) x -let setMediaPlaybackRequiresUserAction x self = msg_send ~self ~cmd:(selector "setMediaPlaybackRequiresUserAction:") ~typ:(bool @-> returning (void)) x -let setNetworkInterfaceName x self = msg_send ~self ~cmd:(selector "setNetworkInterfaceName:") ~typ:(id @-> returning (void)) x -let shouldIgnoreWebTouch self = msg_send ~self ~cmd:(selector "shouldIgnoreWebTouch") ~typ:(returning (bool)) -let simulateDidScroll self = msg_send ~self ~cmd:(selector "simulateDidScroll") ~typ:(returning (void)) -let textDocument self = msg_send ~self ~cmd:(selector "textDocument") ~typ:(returning (id)) -let textFormElement self = msg_send ~self ~cmd:(selector "textFormElement") ~typ:(returning (id)) -let updateBoundariesOfScrollView x ~withScales self = msg_send ~self ~cmd:(selector "updateBoundariesOfScrollView:withScales:") ~typ:(id @-> ptr void @-> returning (void)) x withScales -let webView x ~didFinishLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didFinishLoadForFrame:") ~typ:(id @-> id @-> returning (void)) x didFinishLoadForFrame -let webView1 x ~didFirstLayoutInFrame self = msg_send ~self ~cmd:(selector "webView:didFirstLayoutInFrame:") ~typ:(id @-> id @-> returning (void)) x didFirstLayoutInFrame -let webView2 x ~didFirstVisuallyNonEmptyLayoutInFrame self = msg_send ~self ~cmd:(selector "webView:didFirstVisuallyNonEmptyLayoutInFrame:") ~typ:(id @-> id @-> returning (void)) x didFirstVisuallyNonEmptyLayoutInFrame -let webView3 x ~didStartProvisionalLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didStartProvisionalLoadForFrame:") ~typ:(id @-> id @-> returning (void)) x didStartProvisionalLoadForFrame -let webView4 x ~elementDidBlurNode self = msg_send ~self ~cmd:(selector "webView:elementDidBlurNode:") ~typ:(id @-> id @-> returning (void)) x elementDidBlurNode -let webView5 x ~elementDidFocusNode self = msg_send ~self ~cmd:(selector "webView:elementDidFocusNode:") ~typ:(id @-> id @-> returning (void)) x elementDidFocusNode -let webView6 x ~willCloseFrame self = msg_send ~self ~cmd:(selector "webView:willCloseFrame:") ~typ:(id @-> id @-> returning (void)) x willCloseFrame -let webView7 x ~addMessageToConsole ~withSource self = msg_send ~self ~cmd:(selector "webView:addMessageToConsole:withSource:") ~typ:(id @-> id @-> id @-> returning (void)) x addMessageToConsole withSource -let webView8 x ~didFailLoadWithError ~forFrame self = msg_send ~self ~cmd:(selector "webView:didFailLoadWithError:forFrame:") ~typ:(id @-> id @-> id @-> returning (void)) x didFailLoadWithError forFrame -let webView9 x ~willRemoveScrollingLayer ~withContentsLayer ~forNode self = msg_send ~self ~cmd:(selector "webView:willRemoveScrollingLayer:withContentsLayer:forNode:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x willRemoveScrollingLayer withContentsLayer forNode -let webView10 x ~didCreateOrUpdateScrollingLayer ~withContentsLayer ~scrollSize ~forNode ~allowHorizontalScrollbar ~allowVerticalScrollbar self = msg_send ~self ~cmd:(selector "webView:didCreateOrUpdateScrollingLayer:withContentsLayer:scrollSize:forNode:allowHorizontalScrollbar:allowVerticalScrollbar:") ~typ:(id @-> id @-> id @-> id @-> id @-> bool @-> bool @-> returning (void)) x didCreateOrUpdateScrollingLayer withContentsLayer scrollSize forNode allowHorizontalScrollbar allowVerticalScrollbar -let webViewDidCommitCompositingLayerChanges x self = msg_send ~self ~cmd:(selector "webViewDidCommitCompositingLayerChanges:") ~typ:(id @-> returning (void)) x -let webViewDidPreventDefaultForEvent x self = msg_send ~self ~cmd:(selector "webViewDidPreventDefaultForEvent:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let acceptedAutoFillWord x self = msg_send ~self ~cmd:(selector "acceptedAutoFillWord:") ~typ:(id @-> returning void) x +let accessoryAutoFill self = msg_send ~self ~cmd:(selector "accessoryAutoFill") ~typ:(returning void) +let accessoryClear self = msg_send ~self ~cmd:(selector "accessoryClear") ~typ:(returning void) +let accessoryDone self = msg_send ~self ~cmd:(selector "accessoryDone") ~typ:(returning void) +let accessoryTab x self = msg_send ~self ~cmd:(selector "accessoryTab:") ~typ:(bool @-> returning void) x +let activeRectForRectOfInterest x self = msg_send ~self ~cmd:(selector "activeRectForRectOfInterest:") ~typ:(CGRect.t @-> returning CGRect.t) x +let addFindOnPageHighlighter self = msg_send ~self ~cmd:(selector "addFindOnPageHighlighter") ~typ:(returning id) +let allowDOMFocusRedirects self = msg_send ~self ~cmd:(selector "allowDOMFocusRedirects") ~typ:(returning bool) +let allowsInlineMediaPlayback self = msg_send ~self ~cmd:(selector "allowsInlineMediaPlayback") ~typ:(returning bool) +let allowsLinkPreview self = msg_send ~self ~cmd:(selector "allowsLinkPreview") ~typ:(returning bool) +let allowsPictureInPictureVideo self = msg_send ~self ~cmd:(selector "allowsPictureInPictureVideo") ~typ:(returning bool) +let alwaysDispatchesScrollEvents self = msg_send ~self ~cmd:(selector "alwaysDispatchesScrollEvents") ~typ:(returning bool) +let appendOverflowScrollForNode x ~offset ~whileScrolling self = msg_send ~self ~cmd:(selector "appendOverflowScrollForNode:offset:whileScrolling:") ~typ:(id @-> CGPoint.t @-> bool @-> returning bool) x offset whileScrolling +let assistFormNode x self = msg_send ~self ~cmd:(selector "assistFormNode:") ~typ:(id @-> returning void) x +let audioSessionCategoryOverride self = msg_send ~self ~cmd:(selector "audioSessionCategoryOverride") ~typ:(returning uint) +let autoFillDelegate self = msg_send ~self ~cmd:(selector "autoFillDelegate") ~typ:(returning id) +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let clearMessagesMatchingMask x self = msg_send ~self ~cmd:(selector "clearMessagesMatchingMask:") ~typ:(int @-> returning void) x +let considerHeightOfRectOfInterestForRotation self = msg_send ~self ~cmd:(selector "considerHeightOfRectOfInterestForRotation") ~typ:(returning bool) +let contentSizeForScrollView x self = msg_send ~self ~cmd:(selector "contentSizeForScrollView:") ~typ:(id @-> returning CGSize.t) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let formDelegateTextDidChange self = msg_send ~self ~cmd:(selector "formDelegateTextDidChange") ~typ:(returning void) +let formElement self = msg_send ~self ~cmd:(selector "formElement") ~typ:(returning id) +let hasEditedTextField self = msg_send ~self ~cmd:(selector "hasEditedTextField") ~typ:(returning bool) +let heightToKeepVisible self = msg_send ~self ~cmd:(selector "heightToKeepVisible") ~typ:(returning double) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithWebView x ~frame self = msg_send ~self ~cmd:(selector "initWithWebView:frame:") ~typ:(id @-> CGRect.t @-> returning id) x frame +let inputAccessoryView self = msg_send ~self ~cmd:(selector "inputAccessoryView") ~typ:(returning id) +let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning id) +let inputViewObeysDOMFocus self = msg_send ~self ~cmd:(selector "inputViewObeysDOMFocus") ~typ:(returning bool) +let installGestureRecognizers self = msg_send ~self ~cmd:(selector "installGestureRecognizers") ~typ:(returning void) +let isAccessoryEnabled self = msg_send ~self ~cmd:(selector "isAccessoryEnabled") ~typ:(returning bool) +let isAnyTouchOverActiveArea x self = msg_send ~self ~cmd:(selector "isAnyTouchOverActiveArea:") ~typ:(id @-> returning bool) x +let isAutoFillMode self = msg_send ~self ~cmd:(selector "isAutoFillMode") ~typ:(returning bool) +let isDispatchingTouchEvents self = msg_send ~self ~cmd:(selector "isDispatchingTouchEvents") ~typ:(returning bool) +let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning bool) +let keyCommands self = msg_send ~self ~cmd:(selector "keyCommands") ~typ:(returning id) +let mediaPlaybackRequiresUserAction self = msg_send ~self ~cmd:(selector "mediaPlaybackRequiresUserAction") ~typ:(returning bool) +let messagesMatchingMask x self = msg_send ~self ~cmd:(selector "messagesMatchingMask:") ~typ:(int @-> returning id) x +let minimumVerticalContentOffset self = msg_send ~self ~cmd:(selector "minimumVerticalContentOffset") ~typ:(returning double) +let networkInterfaceName self = msg_send ~self ~cmd:(selector "networkInterfaceName") ~typ:(returning id) +let playsNicelyWithGestures self = msg_send ~self ~cmd:(selector "playsNicelyWithGestures") ~typ:(returning bool) +let rectOfInterestForRotation self = msg_send ~self ~cmd:(selector "rectOfInterestForRotation") ~typ:(returning CGRect.t) +let redrawScaledDocument self = msg_send ~self ~cmd:(selector "redrawScaledDocument") ~typ:(returning void) +let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning bool) +let rotateEnclosingScrollViewToFrame x self = msg_send ~self ~cmd:(selector "rotateEnclosingScrollViewToFrame:") ~typ:(CGRect.t @-> returning void) x +let scaleForProposedNewScale x ~andOldScale self = msg_send ~self ~cmd:(selector "scaleForProposedNewScale:andOldScale:") ~typ:(double @-> double @-> returning double) x andOldScale +let scalesForContainerSize x self = msg_send ~self ~cmd:(selector "scalesForContainerSize:") ~typ:(CGSize.t @-> returning void) x +let setAccessoryEnabled x self = msg_send ~self ~cmd:(selector "setAccessoryEnabled:") ~typ:(bool @-> returning void) x +let setAllowDOMFocusRedirects x self = msg_send ~self ~cmd:(selector "setAllowDOMFocusRedirects:") ~typ:(bool @-> returning void) x +let setAllowsInlineMediaPlayback x self = msg_send ~self ~cmd:(selector "setAllowsInlineMediaPlayback:") ~typ:(bool @-> returning void) x +let setAllowsLinkPreview x self = msg_send ~self ~cmd:(selector "setAllowsLinkPreview:") ~typ:(bool @-> returning void) x +let setAllowsPictureInPictureVideo x self = msg_send ~self ~cmd:(selector "setAllowsPictureInPictureVideo:") ~typ:(bool @-> returning void) x +let setAlwaysDispatchesScrollEvents x self = msg_send ~self ~cmd:(selector "setAlwaysDispatchesScrollEvents:") ~typ:(bool @-> returning void) x +let setAudioSessionCategoryOverride x self = msg_send ~self ~cmd:(selector "setAudioSessionCategoryOverride:") ~typ:(uint @-> returning void) x +let setAutoFillDelegate x self = msg_send ~self ~cmd:(selector "setAutoFillDelegate:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setInputViewObeysDOMFocus x self = msg_send ~self ~cmd:(selector "setInputViewObeysDOMFocus:") ~typ:(bool @-> returning void) x +let setMediaPlaybackRequiresUserAction x self = msg_send ~self ~cmd:(selector "setMediaPlaybackRequiresUserAction:") ~typ:(bool @-> returning void) x +let setNetworkInterfaceName x self = msg_send ~self ~cmd:(selector "setNetworkInterfaceName:") ~typ:(id @-> returning void) x +let shouldIgnoreWebTouch self = msg_send ~self ~cmd:(selector "shouldIgnoreWebTouch") ~typ:(returning bool) +let simulateDidScroll self = msg_send ~self ~cmd:(selector "simulateDidScroll") ~typ:(returning void) +let textDocument self = msg_send ~self ~cmd:(selector "textDocument") ~typ:(returning id) +let textFormElement self = msg_send ~self ~cmd:(selector "textFormElement") ~typ:(returning id) +let updateBoundariesOfScrollView x ~withScales self = msg_send ~self ~cmd:(selector "updateBoundariesOfScrollView:withScales:") ~typ:(id @-> void @-> returning void) x withScales +let webView x ~didFinishLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didFinishLoadForFrame:") ~typ:(id @-> id @-> returning void) x didFinishLoadForFrame +let webView1 x ~didFirstLayoutInFrame self = msg_send ~self ~cmd:(selector "webView:didFirstLayoutInFrame:") ~typ:(id @-> id @-> returning void) x didFirstLayoutInFrame +let webView2 x ~didFirstVisuallyNonEmptyLayoutInFrame self = msg_send ~self ~cmd:(selector "webView:didFirstVisuallyNonEmptyLayoutInFrame:") ~typ:(id @-> id @-> returning void) x didFirstVisuallyNonEmptyLayoutInFrame +let webView3 x ~didStartProvisionalLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didStartProvisionalLoadForFrame:") ~typ:(id @-> id @-> returning void) x didStartProvisionalLoadForFrame +let webView4 x ~elementDidBlurNode self = msg_send ~self ~cmd:(selector "webView:elementDidBlurNode:") ~typ:(id @-> id @-> returning void) x elementDidBlurNode +let webView5 x ~elementDidFocusNode self = msg_send ~self ~cmd:(selector "webView:elementDidFocusNode:") ~typ:(id @-> id @-> returning void) x elementDidFocusNode +let webView6 x ~willCloseFrame self = msg_send ~self ~cmd:(selector "webView:willCloseFrame:") ~typ:(id @-> id @-> returning void) x willCloseFrame +let webView7 x ~addMessageToConsole ~withSource self = msg_send ~self ~cmd:(selector "webView:addMessageToConsole:withSource:") ~typ:(id @-> id @-> id @-> returning void) x addMessageToConsole withSource +let webView8 x ~didFailLoadWithError ~forFrame self = msg_send ~self ~cmd:(selector "webView:didFailLoadWithError:forFrame:") ~typ:(id @-> id @-> id @-> returning void) x didFailLoadWithError forFrame +let webView9 x ~willRemoveScrollingLayer ~withContentsLayer ~forNode self = msg_send ~self ~cmd:(selector "webView:willRemoveScrollingLayer:withContentsLayer:forNode:") ~typ:(id @-> id @-> id @-> id @-> returning void) x willRemoveScrollingLayer withContentsLayer forNode +let webView10 x ~didCreateOrUpdateScrollingLayer ~withContentsLayer ~scrollSize ~forNode ~allowHorizontalScrollbar ~allowVerticalScrollbar self = msg_send ~self ~cmd:(selector "webView:didCreateOrUpdateScrollingLayer:withContentsLayer:scrollSize:forNode:allowHorizontalScrollbar:allowVerticalScrollbar:") ~typ:(id @-> id @-> id @-> id @-> id @-> bool @-> bool @-> returning void) x didCreateOrUpdateScrollingLayer withContentsLayer scrollSize forNode allowHorizontalScrollbar allowVerticalScrollbar +let webViewDidCommitCompositingLayerChanges x self = msg_send ~self ~cmd:(selector "webViewDidCommitCompositingLayerChanges:") ~typ:(id @-> returning void) x +let webViewDidPreventDefaultForEvent x self = msg_send ~self ~cmd:(selector "webViewDidPreventDefaultForEvent:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWebBrowserViewClass.ml b/uikit/UIWebBrowserViewClass.ml new file mode 100644 index 00000000..504a4954 --- /dev/null +++ b/uikit/UIWebBrowserViewClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebbrowserview?language=objc}UIWebBrowserView} *) + +let getUIWebBrowserViewForWebFrame x self = msg_send ~self ~cmd:(selector "getUIWebBrowserViewForWebFrame:") ~typ:(id @-> returning id) x +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIWebCaretRectTextPosition.ml b/uikit/UIWebCaretRectTextPosition.ml index 07d0fd47..e283d52b 100644 --- a/uikit/UIWebCaretRectTextPosition.ml +++ b/uikit/UIWebCaretRectTextPosition.ml @@ -5,12 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebCaretRectTextPosition" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebcaretrecttextposition?language=objc}UIWebCaretRectTextPosition} *) -module Class = struct - let textPositionWithCaretRect x self = msg_send ~self ~cmd:(selector "textPositionWithCaretRect:") ~typ:(CGRect.t @-> returning (id)) x -end +let self = get_class "UIWebCaretRectTextPosition" -let caretRect self = msg_send ~self ~cmd:(selector "caretRect") ~typ:(returning (CGRect.t)) -let initWithCaretRect x self = msg_send ~self ~cmd:(selector "initWithCaretRect:") ~typ:(CGRect.t @-> returning (id)) x \ No newline at end of file +let caretRect self = msg_send ~self ~cmd:(selector "caretRect") ~typ:(returning CGRect.t) +let initWithCaretRect x self = msg_send ~self ~cmd:(selector "initWithCaretRect:") ~typ:(CGRect.t @-> returning id) x \ No newline at end of file diff --git a/uikit/UIWebCaretRectTextPositionClass.ml b/uikit/UIWebCaretRectTextPositionClass.ml new file mode 100644 index 00000000..8e88b401 --- /dev/null +++ b/uikit/UIWebCaretRectTextPositionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebcaretrecttextposition?language=objc}UIWebCaretRectTextPosition} *) + +let textPositionWithCaretRect x self = msg_send ~self ~cmd:(selector "textPositionWithCaretRect:") ~typ:(CGRect.t @-> returning id) x \ No newline at end of file diff --git a/uikit/UIWebDateTimePopoverViewController.ml b/uikit/UIWebDateTimePopoverViewController.ml index 5debc569..4aa88eda 100644 --- a/uikit/UIWebDateTimePopoverViewController.ml +++ b/uikit/UIWebDateTimePopoverViewController.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebDateTimePopoverViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebdatetimepopoverviewcontroller?language=objc}UIWebDateTimePopoverViewController} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithDOMHTMLInputElement x ~datePickerMode self = msg_send ~self ~cmd:(selector "initWithDOMHTMLInputElement:datePickerMode:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int datePickerMode) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIWebDateTimePopoverViewController" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithDOMHTMLInputElement x ~datePickerMode self = msg_send ~self ~cmd:(selector "initWithDOMHTMLInputElement:datePickerMode:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int datePickerMode) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIWebDefaultDateTimePicker.ml b/uikit/UIWebDefaultDateTimePicker.ml index d968a283..f42a21d8 100644 --- a/uikit/UIWebDefaultDateTimePicker.ml +++ b/uikit/UIWebDefaultDateTimePicker.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebDefaultDateTimePicker" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebdefaultdatetimepicker?language=objc}UIWebDefaultDateTimePicker} *) -let controlBeginEditing self = msg_send ~self ~cmd:(selector "controlBeginEditing") ~typ:(returning (void)) -let controlEndEditing self = msg_send ~self ~cmd:(selector "controlEndEditing") ~typ:(returning (void)) -let controlView self = msg_send ~self ~cmd:(selector "controlView") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithDOMHTMLInputElement x ~datePickerMode self = msg_send ~self ~cmd:(selector "initWithDOMHTMLInputElement:datePickerMode:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int datePickerMode) \ No newline at end of file +let self = get_class "UIWebDefaultDateTimePicker" + +let controlBeginEditing self = msg_send ~self ~cmd:(selector "controlBeginEditing") ~typ:(returning void) +let controlEndEditing self = msg_send ~self ~cmd:(selector "controlEndEditing") ~typ:(returning void) +let controlView self = msg_send ~self ~cmd:(selector "controlView") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithDOMHTMLInputElement x ~datePickerMode self = msg_send ~self ~cmd:(selector "initWithDOMHTMLInputElement:datePickerMode:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int datePickerMode) \ No newline at end of file diff --git a/uikit/UIWebDefaultDateTimePopover.ml b/uikit/UIWebDefaultDateTimePopover.ml index 64249496..c7ef1265 100644 --- a/uikit/UIWebDefaultDateTimePopover.ml +++ b/uikit/UIWebDefaultDateTimePopover.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebDefaultDateTimePopover" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebdefaultdatetimepopover?language=objc}UIWebDefaultDateTimePopover} *) -let clear x self = msg_send ~self ~cmd:(selector "clear:") ~typ:(id @-> returning (void)) x -let controlBeginEditing self = msg_send ~self ~cmd:(selector "controlBeginEditing") ~typ:(returning (void)) -let controlEndEditing self = msg_send ~self ~cmd:(selector "controlEndEditing") ~typ:(returning (void)) -let controlView self = msg_send ~self ~cmd:(selector "controlView") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithDOMHTMLInputElement x ~datePickerMode self = msg_send ~self ~cmd:(selector "initWithDOMHTMLInputElement:datePickerMode:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int datePickerMode) \ No newline at end of file +let self = get_class "UIWebDefaultDateTimePopover" + +let clear x self = msg_send ~self ~cmd:(selector "clear:") ~typ:(id @-> returning void) x +let controlBeginEditing self = msg_send ~self ~cmd:(selector "controlBeginEditing") ~typ:(returning void) +let controlEndEditing self = msg_send ~self ~cmd:(selector "controlEndEditing") ~typ:(returning void) +let controlView self = msg_send ~self ~cmd:(selector "controlView") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithDOMHTMLInputElement x ~datePickerMode self = msg_send ~self ~cmd:(selector "initWithDOMHTMLInputElement:datePickerMode:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int datePickerMode) \ No newline at end of file diff --git a/uikit/UIWebDocumentView.ml b/uikit/UIWebDocumentView.ml index 26dff488..7cd08fda 100644 --- a/uikit/UIWebDocumentView.ml +++ b/uikit/UIWebDocumentView.ml @@ -5,486 +5,484 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebDocumentView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebdocumentview?language=objc}UIWebDocumentView} *) -module C = struct - let getTimestamp self = msg_send ~self ~cmd:(selector "getTimestamp") ~typ:(returning (double)) - let hasLandscapeOrientation self = msg_send ~self ~cmd:(selector "hasLandscapeOrientation") ~typ:(returning (bool)) - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let layerClass self = msg_send ~self ~cmd:(selector "layerClass") ~typ:(returning (_Class)) - let standardTextViewPreferences self = msg_send ~self ~cmd:(selector "standardTextViewPreferences") ~typ:(returning (id)) -end +let self = get_class "UIWebDocumentView" -let actionDidFinish self = msg_send ~self ~cmd:(selector "actionDidFinish") ~typ:(returning (void)) -let addInputString x self = msg_send ~self ~cmd:(selector "addInputString:") ~typ:(id @-> returning (void)) x -let addInputString' x ~withFlags self = msg_send ~self ~cmd:(selector "addInputString:withFlags:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int withFlags) -let alwaysConstrainsScale self = msg_send ~self ~cmd:(selector "alwaysConstrainsScale") ~typ:(returning (bool)) -let approximateNodeAtViewportLocation x self = msg_send ~self ~cmd:(selector "approximateNodeAtViewportLocation:") ~typ:(ptr (CGPoint.t) @-> returning (id)) x -let asText self = msg_send ~self ~cmd:(selector "asText") ~typ:(returning (id)) -let assistFormNode x self = msg_send ~self ~cmd:(selector "assistFormNode:") ~typ:(id @-> returning (void)) x -let attemptClick x self = msg_send ~self ~cmd:(selector "attemptClick:") ~typ:(id @-> returning (void)) x -let automaticallySelectedOverlay self = msg_send ~self ~cmd:(selector "automaticallySelectedOverlay") ~typ:(returning (id)) -let autoscrollContentFrame self = msg_send_stret ~self ~cmd:(selector "autoscrollContentFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let autoscrollContentOffset self = msg_send_stret ~self ~cmd:(selector "autoscrollContentOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let autoscrollDragFrame self = msg_send_stret ~self ~cmd:(selector "autoscrollDragFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int inDirection) -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let becomesEditableWithGestures self = msg_send ~self ~cmd:(selector "becomesEditableWithGestures") ~typ:(returning (bool)) -let beginFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "beginFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let beginPrintModeForFrame x ~withSize ~startOffset ~minimumLayoutWidth ~maximumLayoutWidth ~tileClippedContent self = msg_send ~self ~cmd:(selector "beginPrintModeForFrame:withSize:startOffset:minimumLayoutWidth:maximumLayoutWidth:tileClippedContent:") ~typ:(id @-> CGSize.t @-> double @-> double @-> double @-> bool @-> returning (id)) x withSize startOffset minimumLayoutWidth maximumLayoutWidth tileClippedContent -let beginPrintModeForFrame' x ~withWidth ~height ~startOffset ~shrinkToFit ~tileClippedContent self = msg_send ~self ~cmd:(selector "beginPrintModeForFrame:withWidth:height:startOffset:shrinkToFit:tileClippedContent:") ~typ:(id @-> double @-> double @-> double @-> bool @-> bool @-> returning (id)) x withWidth height startOffset shrinkToFit tileClippedContent -let beginPrintModeWithSize x ~startOffset ~minimumLayoutWidth ~maximumLayoutWidth ~tileClippedContent self = msg_send ~self ~cmd:(selector "beginPrintModeWithSize:startOffset:minimumLayoutWidth:maximumLayoutWidth:tileClippedContent:") ~typ:(CGSize.t @-> double @-> double @-> double @-> bool @-> returning (id)) x startOffset minimumLayoutWidth maximumLayoutWidth tileClippedContent -let beginPrintModeWithWidth x ~height ~startOffset ~shrinkToFit ~forFrame self = msg_send ~self ~cmd:(selector "beginPrintModeWithWidth:height:startOffset:shrinkToFit:forFrame:") ~typ:(double @-> double @-> double @-> bool @-> id @-> returning (id)) x height startOffset shrinkToFit forFrame -let beginPrintModeWithWidth' x ~height ~startOffset ~shrinkToFit ~tileClippedContent ~forFrame self = msg_send ~self ~cmd:(selector "beginPrintModeWithWidth:height:startOffset:shrinkToFit:tileClippedContent:forFrame:") ~typ:(double @-> double @-> double @-> bool @-> bool @-> id @-> returning (id)) x height startOffset shrinkToFit tileClippedContent forFrame -let beginSelectionChange self = msg_send ~self ~cmd:(selector "beginSelectionChange") ~typ:(returning (void)) -let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning (id)) -let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning (bool)) -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let canResignFirstResponder self = msg_send ~self ~cmd:(selector "canResignFirstResponder") ~typ:(returning (bool)) -let cancelAutoscroll self = msg_send ~self ~cmd:(selector "cancelAutoscroll") ~typ:(returning (void)) -let cancelInteraction self = msg_send ~self ~cmd:(selector "cancelInteraction") ~typ:(returning (void)) -let cancelInteractionWithImmediateDisplay x self = msg_send ~self ~cmd:(selector "cancelInteractionWithImmediateDisplay:") ~typ:(bool @-> returning (void)) x -let cancelMouseTracking self = msg_send ~self ~cmd:(selector "cancelMouseTracking") ~typ:(returning (bool)) -let cancelTouchTracking self = msg_send ~self ~cmd:(selector "cancelTouchTracking") ~typ:(returning (bool)) -let caretRect self = msg_send_stret ~self ~cmd:(selector "caretRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let caretRectForPosition x self = msg_send_stret ~self ~cmd:(selector "caretRectForPosition:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let caretRectForVisiblePosition x self = msg_send_stret ~self ~cmd:(selector "caretRectForVisiblePosition:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let characterAfterCaretSelection self = msg_send ~self ~cmd:(selector "characterAfterCaretSelection") ~typ:(returning (ushort)) -let characterInRelationToCaretSelection x self = msg_send ~self ~cmd:(selector "characterInRelationToCaretSelection:") ~typ:(int @-> returning (ushort)) x -let characterRangeAtPoint x self = msg_send ~self ~cmd:(selector "characterRangeAtPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let characterRangeByExtendingPosition x ~inDirection self = msg_send ~self ~cmd:(selector "characterRangeByExtendingPosition:inDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int inDirection) -let checkSpellingOfString x self = msg_send ~self ~cmd:(selector "checkSpellingOfString:") ~typ:(id @-> returning (id)) x -let clearInteractionTimer self = msg_send ~self ~cmd:(selector "clearInteractionTimer") ~typ:(returning (void)) -let clearMarkedText self = msg_send ~self ~cmd:(selector "clearMarkedText") ~typ:(returning (void)) -let clearRangedSelectionInitialExtent self = msg_send ~self ~cmd:(selector "clearRangedSelectionInitialExtent") ~typ:(returning (void)) -let clearSelection self = msg_send ~self ~cmd:(selector "clearSelection") ~typ:(returning (void)) -let clearWKFirstResponder self = msg_send ~self ~cmd:(selector "clearWKFirstResponder") ~typ:(returning (bool)) -let closestCaretRectInMarkedTextRangeForPoint x self = msg_send_stret ~self ~cmd:(selector "closestCaretRectInMarkedTextRangeForPoint:") ~typ:(CGPoint.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let closestPositionToPoint x self = msg_send ~self ~cmd:(selector "closestPositionToPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let closestPositionToPoint' x ~withinRange self = msg_send ~self ~cmd:(selector "closestPositionToPoint:withinRange:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withinRange -let collapseSelection self = msg_send ~self ~cmd:(selector "collapseSelection") ~typ:(returning (void)) -let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning (llong)) x toPosition -let completeInteraction self = msg_send ~self ~cmd:(selector "completeInteraction") ~typ:(returning (void)) -let computeClientAndGlobalPointsForSession x ~outClientPoint ~outGlobalPoint self = msg_send ~self ~cmd:(selector "computeClientAndGlobalPointsForSession:outClientPoint:outGlobalPoint:") ~typ:(id @-> ptr (CGPoint.t) @-> ptr (CGPoint.t) @-> returning (void)) x outClientPoint outGlobalPoint -let computeRectForElement x ~withHighligh ~isInverted self = msg_send_stret ~self ~cmd:(selector "computeRectForElement:withHighligh:isInverted:") ~typ:(id @-> id @-> bool @-> returning (CGRect.t)) ~return_type:CGRect.t x withHighligh isInverted -let confirmMarkedText x self = msg_send ~self ~cmd:(selector "confirmMarkedText:") ~typ:(id @-> returning (void)) x -let considerHeightForDoubleTap self = msg_send ~self ~cmd:(selector "considerHeightForDoubleTap") ~typ:(returning (bool)) -let constrainedPoint x self = msg_send_stret ~self ~cmd:(selector "constrainedPoint:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let contentFrameForView x self = msg_send_stret ~self ~cmd:(selector "contentFrameForView:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning (id)) -let continueInteractionWithLocation x self = msg_send ~self ~cmd:(selector "continueInteractionWithLocation:") ~typ:(CGPoint.t @-> returning (void)) x -let convertCaretRect x self = msg_send_stret ~self ~cmd:(selector "convertCaretRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let convertPoint x ~fromFrame self = msg_send_stret ~self ~cmd:(selector "convertPoint:fromFrame:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x fromFrame -let convertPoint' x ~toFrame self = msg_send_stret ~self ~cmd:(selector "convertPoint:toFrame:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x toFrame -let convertPointToSelectedFrameCoordinates x self = msg_send_stret ~self ~cmd:(selector "convertPointToSelectedFrameCoordinates:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertRect x ~fromFrame self = msg_send_stret ~self ~cmd:(selector "convertRect:fromFrame:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x fromFrame -let convertRect' x ~toFrame self = msg_send_stret ~self ~cmd:(selector "convertRect:toFrame:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x toFrame -let convertRectFromSelectedFrameCoordinates x self = msg_send_stret ~self ~cmd:(selector "convertRectFromSelectedFrameCoordinates:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let convertRectWithDocumentScale x self = msg_send_stret ~self ~cmd:(selector "convertRectWithDocumentScale:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning (void)) x -let currentDocumentScale self = msg_send ~self ~cmd:(selector "currentDocumentScale") ~typ:(returning (double)) -let currentDragCaretRect self = msg_send_stret ~self ~cmd:(selector "currentDragCaretRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let currentDragSourceAction self = msg_send ~self ~cmd:(selector "currentDragSourceAction") ~typ:(returning (ullong)) -let cut x self = msg_send ~self ~cmd:(selector "cut:") ~typ:(id @-> returning (void)) x -let dataDetectorTypes self = msg_send ~self ~cmd:(selector "dataDetectorTypes") ~typ:(returning (ullong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let decreaseSize x self = msg_send ~self ~cmd:(selector "decreaseSize:") ~typ:(id @-> returning (void)) x -let deepestNodeAtViewportLocation x self = msg_send ~self ~cmd:(selector "deepestNodeAtViewportLocation:") ~typ:(CGPoint.t @-> returning (id)) x -let deferInteraction self = msg_send ~self ~cmd:(selector "deferInteraction") ~typ:(returning (void)) -let deferredBecomeFirstResponder self = msg_send ~self ~cmd:(selector "deferredBecomeFirstResponder") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning (void)) -let deleteFromInput self = msg_send ~self ~cmd:(selector "deleteFromInput") ~typ:(returning (void)) -let deleteFromInputWithFlags x self = msg_send ~self ~cmd:(selector "deleteFromInputWithFlags:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let detectsPhoneNumbers self = msg_send ~self ~cmd:(selector "detectsPhoneNumbers") ~typ:(returning (bool)) -let deviceOrientation self = msg_send ~self ~cmd:(selector "deviceOrientation") ~typ:(returning (int)) -let dictationInterpretations self = msg_send ~self ~cmd:(selector "dictationInterpretations") ~typ:(returning (id)) -let dictationResultMetadataForRange x self = msg_send ~self ~cmd:(selector "dictationResultMetadataForRange:") ~typ:(id @-> returning (id)) x -let didEndScroll self = msg_send ~self ~cmd:(selector "didEndScroll") ~typ:(returning (void)) -let didEndZoom self = msg_send ~self ~cmd:(selector "didEndZoom") ~typ:(returning (void)) -let didFirstVisuallyNonEmptyLayout self = msg_send ~self ~cmd:(selector "didFirstVisuallyNonEmptyLayout") ~typ:(returning (bool)) -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let didRemovePlugInView x self = msg_send ~self ~cmd:(selector "didRemovePlugInView:") ~typ:(id @-> returning (void)) x -let didRotateInteractionSheet self = msg_send ~self ~cmd:(selector "didRotateInteractionSheet") ~typ:(returning (void)) -let didZoom self = msg_send ~self ~cmd:(selector "didZoom") ~typ:(returning (void)) -let disableClearsOnInsertion self = msg_send ~self ~cmd:(selector "disableClearsOnInsertion") ~typ:(returning (void)) -let documentBounds self = msg_send_stret ~self ~cmd:(selector "documentBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let documentType self = msg_send ~self ~cmd:(selector "documentType") ~typ:(returning (int)) -let doubleTapRect self = msg_send_stret ~self ~cmd:(selector "doubleTapRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let doubleTapRectIsReplaced self = msg_send ~self ~cmd:(selector "doubleTapRectIsReplaced") ~typ:(returning (bool)) -let dragInteraction self = msg_send ~self ~cmd:(selector "dragInteraction") ~typ:(returning (id)) -let dragInteraction1 x ~itemsForBeginningSession self = msg_send ~self ~cmd:(selector "dragInteraction:itemsForBeginningSession:") ~typ:(id @-> id @-> returning (id)) x itemsForBeginningSession -let dragInteraction2 x ~sessionWillBegin self = msg_send ~self ~cmd:(selector "dragInteraction:sessionWillBegin:") ~typ:(id @-> id @-> returning (void)) x sessionWillBegin -let dragInteraction3 x ~previewForCancellingItem ~withDefault self = msg_send ~self ~cmd:(selector "dragInteraction:previewForCancellingItem:withDefault:") ~typ:(id @-> id @-> id @-> returning (id)) x previewForCancellingItem withDefault -let dragInteraction4 x ~previewForLiftingItem ~session self = msg_send ~self ~cmd:(selector "dragInteraction:previewForLiftingItem:session:") ~typ:(id @-> id @-> id @-> returning (id)) x previewForLiftingItem session -let dragInteraction5 x ~session ~didEndWithOperation self = msg_send ~self ~cmd:(selector "dragInteraction:session:didEndWithOperation:") ~typ:(id @-> id @-> ullong @-> returning (void)) x session (ULLong.of_int didEndWithOperation) -let dragInteraction6 x ~willAnimateLiftWithAnimator ~session self = msg_send ~self ~cmd:(selector "dragInteraction:willAnimateLiftWithAnimator:session:") ~typ:(id @-> id @-> id @-> returning (void)) x willAnimateLiftWithAnimator session -let dragInteractionEnabled self = msg_send ~self ~cmd:(selector "dragInteractionEnabled") ~typ:(returning (bool)) -let draggedLinkTitle self = msg_send ~self ~cmd:(selector "draggedLinkTitle") ~typ:(returning (id)) -let draggedLinkURL self = msg_send ~self ~cmd:(selector "draggedLinkURL") ~typ:(returning (id)) -let drawPage x ~withPaginationInfo self = msg_send ~self ~cmd:(selector "drawPage:withPaginationInfo:") ~typ:(ullong @-> id @-> returning (void)) (ULLong.of_int x) withPaginationInfo -let dropInteraction self = msg_send ~self ~cmd:(selector "dropInteraction") ~typ:(returning (id)) -let dropInteraction1 x ~concludeDrop self = msg_send ~self ~cmd:(selector "dropInteraction:concludeDrop:") ~typ:(id @-> id @-> returning (void)) x concludeDrop -let dropInteraction2 x ~performDrop self = msg_send ~self ~cmd:(selector "dropInteraction:performDrop:") ~typ:(id @-> id @-> returning (void)) x performDrop -let dropInteraction3 x ~sessionDidEnd self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidEnd:") ~typ:(id @-> id @-> returning (void)) x sessionDidEnd -let dropInteraction4 x ~sessionDidEnter self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidEnter:") ~typ:(id @-> id @-> returning (void)) x sessionDidEnter -let dropInteraction5 x ~sessionDidExit self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidExit:") ~typ:(id @-> id @-> returning (void)) x sessionDidExit -let dropInteraction6 x ~sessionDidUpdate self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidUpdate:") ~typ:(id @-> id @-> returning (id)) x sessionDidUpdate -let dropInteraction7 x ~item ~willAnimateDropWithAnimator self = msg_send ~self ~cmd:(selector "dropInteraction:item:willAnimateDropWithAnimator:") ~typ:(id @-> id @-> id @-> returning (void)) x item willAnimateDropWithAnimator -let dropInteraction8 x ~previewForDroppingItem ~withDefault self = msg_send ~self ~cmd:(selector "dropInteraction:previewForDroppingItem:withDefault:") ~typ:(id @-> id @-> id @-> returning (id)) x previewForDroppingItem withDefault -let editDragPreviewForTextIndicator x self = msg_send ~self ~cmd:(selector "editDragPreviewForTextIndicator:") ~typ:(id @-> returning (id)) x -let effectiveDataDetectorTypes self = msg_send ~self ~cmd:(selector "effectiveDataDetectorTypes") ~typ:(returning (ullong)) -let enclosingScrollView self = msg_send ~self ~cmd:(selector "enclosingScrollView") ~typ:(returning (id)) -let endFloatingCursor self = msg_send ~self ~cmd:(selector "endFloatingCursor") ~typ:(returning (void)) -let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning (id)) -let endPrintMode self = msg_send ~self ~cmd:(selector "endPrintMode") ~typ:(returning (void)) -let endSelectionChange self = msg_send ~self ~cmd:(selector "endSelectionChange") ~typ:(returning (void)) -let ensureSelection self = msg_send ~self ~cmd:(selector "ensureSelection") ~typ:(returning (void)) -let exposedScrollViewRect self = msg_send_stret ~self ~cmd:(selector "exposedScrollViewRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let extendCurrentSelection x self = msg_send ~self ~cmd:(selector "extendCurrentSelection:") ~typ:(int @-> returning (void)) x -let fallbackDropPreviewForUninsertedContent x self = msg_send ~self ~cmd:(selector "fallbackDropPreviewForUninsertedContent:") ~typ:(id @-> returning (id)) x -let fileUploadPanelDidDismiss x self = msg_send ~self ~cmd:(selector "fileUploadPanelDidDismiss:") ~typ:(id @-> returning (void)) x -let firstRectForRange x self = msg_send_stret ~self ~cmd:(selector "firstRectForRange:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let fontForCaretSelection self = msg_send ~self ~cmd:(selector "fontForCaretSelection") ~typ:(returning (id)) -let forceLayout self = msg_send ~self ~cmd:(selector "forceLayout") ~typ:(returning (void)) -let formElement self = msg_send ~self ~cmd:(selector "formElement") ~typ:(returning (id)) -let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning (void)) x -let fragmentContainsRichContent x self = msg_send ~self ~cmd:(selector "fragmentContainsRichContent:") ~typ:(id @-> returning (bool)) x -let frameForDictationResultPlaceholder x self = msg_send_stret ~self ~cmd:(selector "frameForDictationResultPlaceholder:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let gestureRecognizer x ~canBePreventedByGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:canBePreventedByGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x canBePreventedByGestureRecognizer -let gestureRecognizer1 x ~canPreventGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:canPreventGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x canPreventGestureRecognizer -let gestureRecognizer2 x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning (bool)) x shouldReceiveTouch -let gestureRecognizer3 x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRecognizeSimultaneouslyWithGestureRecognizer -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let getPasteboardChangeCount self = msg_send ~self ~cmd:(selector "getPasteboardChangeCount") ~typ:(returning (llong)) -let getPasteboardItemsCount self = msg_send ~self ~cmd:(selector "getPasteboardItemsCount") ~typ:(returning (llong)) -let handleKeyAppCommandForCurrentEvent self = msg_send ~self ~cmd:(selector "handleKeyAppCommandForCurrentEvent") ~typ:(returning (bool)) -let handleKeyTextCommandForCurrentEvent self = msg_send ~self ~cmd:(selector "handleKeyTextCommandForCurrentEvent") ~typ:(returning (bool)) -let handleKeyWebEvent x self = msg_send ~self ~cmd:(selector "handleKeyWebEvent:") ~typ:(id @-> returning (void)) x -let hasBodyElement self = msg_send ~self ~cmd:(selector "hasBodyElement") ~typ:(returning (bool)) -let hasContent self = msg_send ~self ~cmd:(selector "hasContent") ~typ:(returning (bool)) -let hasDrawnTiles self = msg_send ~self ~cmd:(selector "hasDrawnTiles") ~typ:(returning (bool)) -let hasEditableSelection self = msg_send ~self ~cmd:(selector "hasEditableSelection") ~typ:(returning (bool)) -let hasMarkedText self = msg_send ~self ~cmd:(selector "hasMarkedText") ~typ:(returning (bool)) -let hasPlugInSubviews self = msg_send ~self ~cmd:(selector "hasPlugInSubviews") ~typ:(returning (bool)) -let hasRangedSelection self = msg_send ~self ~cmd:(selector "hasRangedSelection") ~typ:(returning (bool)) -let hasRichlyEditableSelection self = msg_send ~self ~cmd:(selector "hasRichlyEditableSelection") ~typ:(returning (bool)) -let hasSelection self = msg_send ~self ~cmd:(selector "hasSelection") ~typ:(returning (bool)) -let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning (bool)) -let hideTapHighlight self = msg_send ~self ~cmd:(selector "hideTapHighlight") ~typ:(returning (void)) -let highlightApproximateNodeAndDisplayInfoSheet self = msg_send ~self ~cmd:(selector "highlightApproximateNodeAndDisplayInfoSheet") ~typ:(returning (void)) -let highlightApproximateNodeInverted x self = msg_send ~self ~cmd:(selector "highlightApproximateNodeInverted:") ~typ:(bool @-> returning (void)) x -let hostViewForSheet x self = msg_send ~self ~cmd:(selector "hostViewForSheet:") ~typ:(id @-> returning (id)) x -let implementationWebView self = msg_send ~self ~cmd:(selector "implementationWebView") ~typ:(returning (id)) -let inPopover self = msg_send ~self ~cmd:(selector "inPopover") ~typ:(returning (bool)) -let increaseSize x self = msg_send ~self ~cmd:(selector "increaseSize:") ~typ:(id @-> returning (void)) x -let initSimpleHTMLDocumentWithStyle x ~frame ~preferences ~groupName self = msg_send ~self ~cmd:(selector "initSimpleHTMLDocumentWithStyle:frame:preferences:groupName:") ~typ:(id @-> CGRect.t @-> id @-> id @-> returning (id)) x frame preferences groupName -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithWebView x ~frame self = msg_send ~self ~cmd:(selector "initWithWebView:frame:") ~typ:(id @-> CGRect.t @-> returning (id)) x frame -let initialDropSnapshotView self = msg_send ~self ~cmd:(selector "initialDropSnapshotView") ~typ:(returning (id)) -let initialPresentationRectInHostViewForSheet x self = msg_send_stret ~self ~cmd:(selector "initialPresentationRectInHostViewForSheet:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let initialScale self = msg_send ~self ~cmd:(selector "initialScale") ~typ:(returning (float)) -let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning (id)) -let insertDictationResult x ~withCorrectionIdentifier self = msg_send ~self ~cmd:(selector "insertDictationResult:withCorrectionIdentifier:") ~typ:(id @-> id @-> returning (void)) x withCorrectionIdentifier -let insertDictationResultPlaceholder self = msg_send ~self ~cmd:(selector "insertDictationResultPlaceholder") ~typ:(returning (id)) -let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning (void)) x -let insertTextPlaceholderWithSize x self = msg_send ~self ~cmd:(selector "insertTextPlaceholderWithSize:") ~typ:(CGSize.t @-> returning (id)) x -let insertionPointColor self = msg_send ~self ~cmd:(selector "insertionPointColor") ~typ:(returning (id)) -let installGestureRecognizers self = msg_send ~self ~cmd:(selector "installGestureRecognizers") ~typ:(returning (void)) -let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning (id)) -let interactionDelegate self = msg_send ~self ~cmd:(selector "interactionDelegate") ~typ:(returning (id)) -let interactionElement self = msg_send ~self ~cmd:(selector "interactionElement") ~typ:(returning (id)) -let interactionLocation self = msg_send_stret ~self ~cmd:(selector "interactionLocation") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let isCaretInEmptyParagraph self = msg_send ~self ~cmd:(selector "isCaretInEmptyParagraph") ~typ:(returning (bool)) -let isClassicViewportMode self = msg_send ~self ~cmd:(selector "isClassicViewportMode") ~typ:(returning (bool)) -let isDoubleTapEnabled self = msg_send ~self ~cmd:(selector "isDoubleTapEnabled") ~typ:(returning (bool)) -let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning (bool)) -let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning (bool)) -let isEditingSingleLineElement self = msg_send ~self ~cmd:(selector "isEditingSingleLineElement") ~typ:(returning (bool)) -let isInInteraction self = msg_send ~self ~cmd:(selector "isInInteraction") ~typ:(returning (bool)) -let isInPrintMode self = msg_send ~self ~cmd:(selector "isInPrintMode") ~typ:(returning (bool)) -let isInsideRichlyEditableTextWidget self = msg_send ~self ~cmd:(selector "isInsideRichlyEditableTextWidget") ~typ:(returning (bool)) -let isPosition x ~atBoundary ~inDirection self = msg_send ~self ~cmd:(selector "isPosition:atBoundary:inDirection:") ~typ:(id @-> llong @-> llong @-> returning (bool)) x (LLong.of_int atBoundary) (LLong.of_int inDirection) -let isPosition' x ~withinTextUnit ~inDirection self = msg_send ~self ~cmd:(selector "isPosition:withinTextUnit:inDirection:") ~typ:(id @-> llong @-> llong @-> returning (bool)) x (LLong.of_int withinTextUnit) (LLong.of_int inDirection) -let isPreviewing self = msg_send ~self ~cmd:(selector "isPreviewing") ~typ:(returning (bool)) -let isShowingFullScreenPlugInUI self = msg_send ~self ~cmd:(selector "isShowingFullScreenPlugInUI") ~typ:(returning (bool)) -let isStandaloneEditableView self = msg_send ~self ~cmd:(selector "isStandaloneEditableView") ~typ:(returning (bool)) -let isWidgetEditingView self = msg_send ~self ~cmd:(selector "isWidgetEditingView") ~typ:(returning (bool)) -let keyboardInput x ~shouldInsertText ~isMarkedText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldInsertText:isMarkedText:") ~typ:(id @-> id @-> bool @-> returning (bool)) x shouldInsertText isMarkedText -let keyboardInput' x ~shouldReplaceTextInRange ~replacementText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldReplaceTextInRange:replacementText:") ~typ:(id @-> NSRange.t @-> id @-> returning (bool)) x shouldReplaceTextInRange replacementText -let keyboardInputChanged x self = msg_send ~self ~cmd:(selector "keyboardInputChanged:") ~typ:(id @-> returning (bool)) x -let keyboardInputChangedSelection x self = msg_send ~self ~cmd:(selector "keyboardInputChangedSelection:") ~typ:(id @-> returning (void)) x -let keyboardInputShouldDelete x self = msg_send ~self ~cmd:(selector "keyboardInputShouldDelete:") ~typ:(id @-> returning (bool)) x -let lastGlobalPosition self = msg_send_stret ~self ~cmd:(selector "lastGlobalPosition") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let loadData x ~_MIMEType ~textEncodingName ~baseURL self = msg_send ~self ~cmd:(selector "loadData:MIMEType:textEncodingName:baseURL:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x _MIMEType textEncodingName baseURL -let loadHTMLString x ~baseURL self = msg_send ~self ~cmd:(selector "loadHTMLString:baseURL:") ~typ:(id @-> id @-> returning (void)) x baseURL -let loadRequest x self = msg_send ~self ~cmd:(selector "loadRequest:") ~typ:(id @-> returning (void)) x -let loadsSynchronously self = msg_send ~self ~cmd:(selector "loadsSynchronously") ~typ:(returning (bool)) -let makeTextWritingDirectionLeftToRight x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionLeftToRight:") ~typ:(id @-> returning (void)) x -let makeTextWritingDirectionNatural x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionNatural:") ~typ:(id @-> returning (void)) x -let makeTextWritingDirectionRightToLeft x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionRightToLeft:") ~typ:(id @-> returning (void)) x -let makeWKFirstResponder self = msg_send ~self ~cmd:(selector "makeWKFirstResponder") ~typ:(returning (bool)) -let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning (id)) -let markedTextStyle self = msg_send ~self ~cmd:(selector "markedTextStyle") ~typ:(returning (id)) -let maximumDoubleTapScale self = msg_send ~self ~cmd:(selector "maximumDoubleTapScale") ~typ:(returning (double)) -let maximumScale self = msg_send ~self ~cmd:(selector "maximumScale") ~typ:(returning (float)) -let mediaPlaybackAllowsAirPlay self = msg_send ~self ~cmd:(selector "mediaPlaybackAllowsAirPlay") ~typ:(returning (bool)) -let metadataDictionariesForDictationResults self = msg_send ~self ~cmd:(selector "metadataDictionariesForDictationResults") ~typ:(returning (id)) -let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning (id)) x -let minimumScale self = msg_send ~self ~cmd:(selector "minimumScale") ~typ:(returning (float)) -let minimumScaleForMinimumSize x self = msg_send ~self ~cmd:(selector "minimumScaleForMinimumSize:") ~typ:(CGSize.t @-> returning (float)) x -let minimumScaleForSize x self = msg_send ~self ~cmd:(selector "minimumScaleForSize:") ~typ:(CGSize.t @-> returning (double)) x -let mouseEventsChangeSelection self = msg_send ~self ~cmd:(selector "mouseEventsChangeSelection") ~typ:(returning (bool)) -let needsScrollNotifications self = msg_send ~self ~cmd:(selector "needsScrollNotifications") ~typ:(returning (bool)) -let newMouseEvent x self = msg_send ~self ~cmd:(selector "newMouseEvent:") ~typ:(int @-> returning (id)) x -let newSnapshotWithRect x self = msg_send ~self ~cmd:(selector "newSnapshotWithRect:") ~typ:(CGRect.t @-> returning (id)) x -let offsetFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "offsetFromPosition:toPosition:") ~typ:(id @-> id @-> returning (llong)) x toPosition -let offsetInMarkedTextForSelection x self = msg_send ~self ~cmd:(selector "offsetInMarkedTextForSelection:") ~typ:(id @-> returning (ullong)) x -let paste x self = msg_send ~self ~cmd:(selector "paste:") ~typ:(id @-> returning (void)) x -let pasteAndMatchStyle x self = msg_send ~self ~cmd:(selector "pasteAndMatchStyle:") ~typ:(id @-> returning (void)) x -let performClick x self = msg_send ~self ~cmd:(selector "performClick:") ~typ:(id @-> returning (void)) x -let performInteractionSelector x ~afterDelay self = msg_send ~self ~cmd:(selector "performInteractionSelector:afterDelay:") ~typ:(_SEL @-> double @-> returning (void)) x afterDelay -let performTwoStepDrop x ~atDestination ~isMove self = msg_send ~self ~cmd:(selector "performTwoStepDrop:atDestination:isMove:") ~typ:(id @-> id @-> bool @-> returning (bool)) x atDestination isMove -let performsTwoStepPaste x self = msg_send ~self ~cmd:(selector "performsTwoStepPaste:") ~typ:(id @-> returning (bool)) x -let playsNicelyWithGestures self = msg_send ~self ~cmd:(selector "playsNicelyWithGestures") ~typ:(returning (bool)) -let positionAtStartOrEndOfWord x self = msg_send ~self ~cmd:(selector "positionAtStartOrEndOfWord:") ~typ:(id @-> returning (id)) x -let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int offset) -let positionFromPosition1 x ~inDirection ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:inDirection:offset:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int inDirection) (LLong.of_int offset) -let positionFromPosition2 x ~toBoundary ~inDirection self = msg_send ~self ~cmd:(selector "positionFromPosition:toBoundary:inDirection:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int toBoundary) (LLong.of_int inDirection) -let positionWithinRange x ~farthestInDirection self = msg_send ~self ~cmd:(selector "positionWithinRange:farthestInDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int farthestInDirection) -let presentationRectInHostViewForSheet x self = msg_send_stret ~self ~cmd:(selector "presentationRectInHostViewForSheet:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let rangeByExtendingCurrentSelection x self = msg_send ~self ~cmd:(selector "rangeByExtendingCurrentSelection:") ~typ:(int @-> returning (id)) x -let rangeByMovingCurrentSelection x self = msg_send ~self ~cmd:(selector "rangeByMovingCurrentSelection:") ~typ:(int @-> returning (id)) x -let rangeEnclosingPosition x ~withGranularity ~inDirection self = msg_send ~self ~cmd:(selector "rangeEnclosingPosition:withGranularity:inDirection:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int withGranularity) (LLong.of_int inDirection) -let rangeOfEnclosingWord x self = msg_send ~self ~cmd:(selector "rangeOfEnclosingWord:") ~typ:(id @-> returning (id)) x -let rangeToRestoreAfterDictation self = msg_send ~self ~cmd:(selector "rangeToRestoreAfterDictation") ~typ:(returning (id)) -let readDataFromPasteboard x ~withIndex self = msg_send ~self ~cmd:(selector "readDataFromPasteboard:withIndex:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int withIndex) -let rectOfInterestForPoint x self = msg_send_stret ~self ~cmd:(selector "rectOfInterestForPoint:") ~typ:(CGPoint.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let rectsForNSRange x self = msg_send ~self ~cmd:(selector "rectsForNSRange:") ~typ:(NSRange.t @-> returning (id)) x -let redrawScaledDocument self = msg_send ~self ~cmd:(selector "redrawScaledDocument") ~typ:(returning (void)) -let releasePrintMode self = msg_send ~self ~cmd:(selector "releasePrintMode") ~typ:(returning (void)) -let removeDictationResultPlaceholder x ~willInsertResult self = msg_send ~self ~cmd:(selector "removeDictationResultPlaceholder:willInsertResult:") ~typ:(id @-> bool @-> returning (void)) x willInsertResult -let removeTextPlaceholder x self = msg_send ~self ~cmd:(selector "removeTextPlaceholder:") ~typ:(id @-> returning (void)) x -let renderTreeSize self = msg_send ~self ~cmd:(selector "renderTreeSize") ~typ:(returning (ullong)) -let renderTreeSizeThresholdForReset self = msg_send ~self ~cmd:(selector "renderTreeSizeThresholdForReset") ~typ:(returning (ullong)) -let replace x self = msg_send ~self ~cmd:(selector "replace:") ~typ:(id @-> returning (void)) x -let replaceCurrentWordWithText x self = msg_send ~self ~cmd:(selector "replaceCurrentWordWithText:") ~typ:(id @-> returning (void)) x -let replaceRange x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning (void)) x withText -let replaceRangeWithTextWithoutClosingTyping x ~replacementText self = msg_send ~self ~cmd:(selector "replaceRangeWithTextWithoutClosingTyping:replacementText:") ~typ:(id @-> id @-> returning (void)) x replacementText -let replaceSelectionWithWebArchive x ~selectReplacement ~smartReplace self = msg_send ~self ~cmd:(selector "replaceSelectionWithWebArchive:selectReplacement:smartReplace:") ~typ:(id @-> bool @-> bool @-> returning (void)) x selectReplacement smartReplace -let requiresKeyEvents self = msg_send ~self ~cmd:(selector "requiresKeyEvents") ~typ:(returning (bool)) -let resetCurrentDragInformation self = msg_send ~self ~cmd:(selector "resetCurrentDragInformation") ~typ:(returning (void)) -let resetInteraction self = msg_send ~self ~cmd:(selector "resetInteraction") ~typ:(returning (void)) -let resetSelectionAssistant self = msg_send ~self ~cmd:(selector "resetSelectionAssistant") ~typ:(returning (void)) -let resetTilingAfterLoadComplete self = msg_send ~self ~cmd:(selector "resetTilingAfterLoadComplete") ~typ:(returning (void)) -let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning (bool)) -let revealedSelectionByScrollingWebFrame x self = msg_send ~self ~cmd:(selector "revealedSelectionByScrollingWebFrame:") ~typ:(id @-> returning (void)) x -let saveStateToCurrentHistoryItem self = msg_send ~self ~cmd:(selector "saveStateToCurrentHistoryItem") ~typ:(returning (void)) -let scrollSelectionToVisible x self = msg_send ~self ~cmd:(selector "scrollSelectionToVisible:") ~typ:(bool @-> returning (void)) x -let scrollViewWasRemoved self = msg_send ~self ~cmd:(selector "scrollViewWasRemoved") ~typ:(returning (void)) -let select x self = msg_send ~self ~cmd:(selector "select:") ~typ:(id @-> returning (void)) x -let selectAll self = msg_send ~self ~cmd:(selector "selectAll") ~typ:(returning (void)) -let selectAll' x self = msg_send ~self ~cmd:(selector "selectAll:") ~typ:(id @-> returning (void)) x -let selectWord self = msg_send ~self ~cmd:(selector "selectWord") ~typ:(returning (void)) -let selectedDOMRange self = msg_send ~self ~cmd:(selector "selectedDOMRange") ~typ:(returning (id)) -let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning (id)) -let selectionAffinity self = msg_send ~self ~cmd:(selector "selectionAffinity") ~typ:(returning (llong)) -let selectionAtDocumentStart self = msg_send ~self ~cmd:(selector "selectionAtDocumentStart") ~typ:(returning (bool)) -let selectionAtWordStart self = msg_send ~self ~cmd:(selector "selectionAtWordStart") ~typ:(returning (bool)) -let selectionBaseWritingDirection self = msg_send ~self ~cmd:(selector "selectionBaseWritingDirection") ~typ:(returning (llong)) -let selectionChanged self = msg_send ~self ~cmd:(selector "selectionChanged") ~typ:(returning (void)) -let selectionChanged' x self = msg_send ~self ~cmd:(selector "selectionChanged:") ~typ:(id @-> returning (void)) x -let selectionGranularity self = msg_send ~self ~cmd:(selector "selectionGranularity") ~typ:(returning (llong)) -let selectionRange self = msg_send_stret ~self ~cmd:(selector "selectionRange") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let selectionRects self = msg_send ~self ~cmd:(selector "selectionRects") ~typ:(returning (id)) -let selectionRectsForDOMRange x self = msg_send ~self ~cmd:(selector "selectionRectsForDOMRange:") ~typ:(id @-> returning (id)) x -let selectionRectsForRange x self = msg_send ~self ~cmd:(selector "selectionRectsForRange:") ~typ:(id @-> returning (id)) x -let selectionState self = msg_send ~self ~cmd:(selector "selectionState") ~typ:(returning (int)) -let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning (id)) -let sendOrientationEventForOrientation x self = msg_send ~self ~cmd:(selector "sendOrientationEventForOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let sendScrollEventIfNecessary self = msg_send ~self ~cmd:(selector "sendScrollEventIfNecessary") ~typ:(returning (void)) -let sendScrollEventIfNecessaryWasUserScroll x self = msg_send ~self ~cmd:(selector "sendScrollEventIfNecessaryWasUserScroll:") ~typ:(bool @-> returning (void)) x -let sendScrollWheelEvents self = msg_send ~self ~cmd:(selector "sendScrollWheelEvents") ~typ:(returning (void)) -let setAllowsDataDetectorsSheet x self = msg_send ~self ~cmd:(selector "setAllowsDataDetectorsSheet:") ~typ:(bool @-> returning (void)) x -let setAllowsImageSheet x self = msg_send ~self ~cmd:(selector "setAllowsImageSheet:") ~typ:(bool @-> returning (void)) x -let setAllowsLinkSheet x self = msg_send ~self ~cmd:(selector "setAllowsLinkSheet:") ~typ:(bool @-> returning (void)) x -let setAllowsShrinkToFit x ~forDocumentTypes self = msg_send ~self ~cmd:(selector "setAllowsShrinkToFit:forDocumentTypes:") ~typ:(bool @-> int @-> returning (void)) x forDocumentTypes -let setAllowsUserScaling x ~forDocumentTypes self = msg_send ~self ~cmd:(selector "setAllowsUserScaling:forDocumentTypes:") ~typ:(bool @-> int @-> returning (void)) x forDocumentTypes -let setAlwaysConstrainsScale x self = msg_send ~self ~cmd:(selector "setAlwaysConstrainsScale:") ~typ:(bool @-> returning (void)) x -let setAutoresizes x self = msg_send ~self ~cmd:(selector "setAutoresizes:") ~typ:(bool @-> returning (void)) x -let setAutoscrollContentOffset x self = msg_send ~self ~cmd:(selector "setAutoscrollContentOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let setAvoidsUnsafeArea x ~forDocumentTypes self = msg_send ~self ~cmd:(selector "setAvoidsUnsafeArea:forDocumentTypes:") ~typ:(bool @-> int @-> returning (void)) x forDocumentTypes -let setBaseWritingDirection x self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBaseWritingDirection' x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) forRange -let setBecomesEditableWithGestures x self = msg_send ~self ~cmd:(selector "setBecomesEditableWithGestures:") ~typ:(bool @-> returning (void)) x -let setBottomBufferHeight x self = msg_send ~self ~cmd:(selector "setBottomBufferHeight:") ~typ:(double @-> returning (void)) x -let setCaretChangeListener x self = msg_send ~self ~cmd:(selector "setCaretChangeListener:") ~typ:(id @-> returning (void)) x -let setCaretInsets x self = msg_send ~self ~cmd:(selector "setCaretInsets:") ~typ:(ptr void @-> returning (void)) x -let setContinuousSpellCheckingEnabled x self = msg_send ~self ~cmd:(selector "setContinuousSpellCheckingEnabled:") ~typ:(bool @-> returning (void)) x -let setCurrentDragCaretRect x self = msg_send ~self ~cmd:(selector "setCurrentDragCaretRect:") ~typ:(CGRect.t @-> returning (void)) x -let setCurrentDragSourceAction x self = msg_send ~self ~cmd:(selector "setCurrentDragSourceAction:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDataDetectorTypes x self = msg_send ~self ~cmd:(selector "setDataDetectorTypes:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDetectsPhoneNumbers x self = msg_send ~self ~cmd:(selector "setDetectsPhoneNumbers:") ~typ:(bool @-> returning (void)) x -let setDoubleTapEnabled x self = msg_send ~self ~cmd:(selector "setDoubleTapEnabled:") ~typ:(bool @-> returning (void)) x -let setDragInteraction x self = msg_send ~self ~cmd:(selector "setDragInteraction:") ~typ:(id @-> returning (void)) x -let setDragInteractionEnabled x self = msg_send ~self ~cmd:(selector "setDragInteractionEnabled:") ~typ:(bool @-> returning (void)) x -let setDraggedLinkTitle x self = msg_send ~self ~cmd:(selector "setDraggedLinkTitle:") ~typ:(id @-> returning (void)) x -let setDraggedLinkURL x self = msg_send ~self ~cmd:(selector "setDraggedLinkURL:") ~typ:(id @-> returning (void)) x -let setDrawsBackground x self = msg_send ~self ~cmd:(selector "setDrawsBackground:") ~typ:(bool @-> returning (void)) x -let setDropInteraction x self = msg_send ~self ~cmd:(selector "setDropInteraction:") ~typ:(id @-> returning (void)) x -let setExposedScrollViewRect x self = msg_send ~self ~cmd:(selector "setExposedScrollViewRect:") ~typ:(CGRect.t @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setIgnoresFocusingMouse x self = msg_send ~self ~cmd:(selector "setIgnoresFocusingMouse:") ~typ:(bool @-> returning (void)) x -let setIgnoresKeyEvents x self = msg_send ~self ~cmd:(selector "setIgnoresKeyEvents:") ~typ:(bool @-> returning (void)) x -let setIgnoresViewportOverflowWhenAutoresizing x self = msg_send ~self ~cmd:(selector "setIgnoresViewportOverflowWhenAutoresizing:") ~typ:(bool @-> returning (void)) x -let setInitialDropSnapshotView x self = msg_send ~self ~cmd:(selector "setInitialDropSnapshotView:") ~typ:(id @-> returning (void)) x -let setInitialScale x ~forDocumentTypes self = msg_send ~self ~cmd:(selector "setInitialScale:forDocumentTypes:") ~typ:(float @-> int @-> returning (void)) x forDocumentTypes -let setInputDelegate x self = msg_send ~self ~cmd:(selector "setInputDelegate:") ~typ:(id @-> returning (void)) x -let setInteractionAssistantGestureRecognizers self = msg_send ~self ~cmd:(selector "setInteractionAssistantGestureRecognizers") ~typ:(returning (void)) -let setInteractionDelegate x self = msg_send ~self ~cmd:(selector "setInteractionDelegate:") ~typ:(id @-> returning (void)) x -let setIsStandaloneEditableView x self = msg_send ~self ~cmd:(selector "setIsStandaloneEditableView:") ~typ:(bool @-> returning (void)) x -let setIsWidgetEditingView x self = msg_send ~self ~cmd:(selector "setIsWidgetEditingView:") ~typ:(bool @-> returning (void)) x -let setLastGlobalPosition x self = msg_send ~self ~cmd:(selector "setLastGlobalPosition:") ~typ:(CGPoint.t @-> returning (void)) x -let setLoadsSynchronously x self = msg_send ~self ~cmd:(selector "setLoadsSynchronously:") ~typ:(bool @-> returning (void)) x -let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning (void)) x selectedRange -let setMarkedTextStyle x self = msg_send ~self ~cmd:(selector "setMarkedTextStyle:") ~typ:(id @-> returning (void)) x -let setMaximumScale x ~forDocumentTypes self = msg_send ~self ~cmd:(selector "setMaximumScale:forDocumentTypes:") ~typ:(float @-> int @-> returning (void)) x forDocumentTypes -let setMediaPlaybackAllowsAirPlay x self = msg_send ~self ~cmd:(selector "setMediaPlaybackAllowsAirPlay:") ~typ:(bool @-> returning (void)) x -let setMinimumScale x ~forDocumentTypes self = msg_send ~self ~cmd:(selector "setMinimumScale:forDocumentTypes:") ~typ:(float @-> int @-> returning (void)) x forDocumentTypes -let setMinimumSize x self = msg_send ~self ~cmd:(selector "setMinimumSize:") ~typ:(CGSize.t @-> returning (void)) x -let setMinimumSize' x ~updateCurrentViewportConfigurationSize self = msg_send ~self ~cmd:(selector "setMinimumSize:updateCurrentViewportConfigurationSize:") ~typ:(CGSize.t @-> bool @-> returning (void)) x updateCurrentViewportConfigurationSize -let setOpaque x self = msg_send ~self ~cmd:(selector "setOpaque:") ~typ:(bool @-> returning (void)) x -let setPaused x self = msg_send ~self ~cmd:(selector "setPaused:") ~typ:(bool @-> returning (void)) x -let setPaused' x ~withEvents self = msg_send ~self ~cmd:(selector "setPaused:withEvents:") ~typ:(bool @-> bool @-> returning (void)) x withEvents -let setRangeToRestoreAfterDictation x self = msg_send ~self ~cmd:(selector "setRangeToRestoreAfterDictation:") ~typ:(id @-> returning (void)) x -let setRangedSelectionBaseToCurrentSelection self = msg_send ~self ~cmd:(selector "setRangedSelectionBaseToCurrentSelection") ~typ:(returning (void)) -let setRangedSelectionBaseToCurrentSelectionEnd self = msg_send ~self ~cmd:(selector "setRangedSelectionBaseToCurrentSelectionEnd") ~typ:(returning (void)) -let setRangedSelectionBaseToCurrentSelectionStart self = msg_send ~self ~cmd:(selector "setRangedSelectionBaseToCurrentSelectionStart") ~typ:(returning (void)) -let setRangedSelectionExtentPoint x ~baseIsStart self = msg_send ~self ~cmd:(selector "setRangedSelectionExtentPoint:baseIsStart:") ~typ:(CGPoint.t @-> bool @-> returning (bool)) x baseIsStart -let setRangedSelectionExtentPoint' x ~baseIsStart ~allowFlipping self = msg_send ~self ~cmd:(selector "setRangedSelectionExtentPoint:baseIsStart:allowFlipping:") ~typ:(CGPoint.t @-> bool @-> bool @-> returning (void)) x baseIsStart allowFlipping -let setRangedSelectionInitialExtentToCurrentSelectionEnd self = msg_send ~self ~cmd:(selector "setRangedSelectionInitialExtentToCurrentSelectionEnd") ~typ:(returning (void)) -let setRangedSelectionInitialExtentToCurrentSelectionStart self = msg_send ~self ~cmd:(selector "setRangedSelectionInitialExtentToCurrentSelectionStart") ~typ:(returning (void)) -let setRangedSelectionWithExtentPoint x self = msg_send ~self ~cmd:(selector "setRangedSelectionWithExtentPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setRenderTreeSizeThresholdForReset x self = msg_send ~self ~cmd:(selector "setRenderTreeSizeThresholdForReset:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setSelectedDOMRange x ~affinity self = msg_send ~self ~cmd:(selector "setSelectedDOMRange:affinity:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int affinity) -let setSelectedDOMRange' x ~affinityDownstream self = msg_send ~self ~cmd:(selector "setSelectedDOMRange:affinityDownstream:") ~typ:(id @-> bool @-> returning (void)) x affinityDownstream -let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning (void)) x -let setSelectedTextRange' x ~withAffinityDownstream self = msg_send ~self ~cmd:(selector "setSelectedTextRange:withAffinityDownstream:") ~typ:(id @-> bool @-> returning (void)) x withAffinityDownstream -let setSelectionAffinity x self = msg_send ~self ~cmd:(selector "setSelectionAffinity:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSelectionGranularity x self = msg_send ~self ~cmd:(selector "setSelectionGranularity:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSelectionToEnd self = msg_send ~self ~cmd:(selector "setSelectionToEnd") ~typ:(returning (void)) -let setSelectionToStart self = msg_send ~self ~cmd:(selector "setSelectionToStart") ~typ:(returning (void)) -let setSelectionWithFirstPoint x ~secondPoint self = msg_send ~self ~cmd:(selector "setSelectionWithFirstPoint:secondPoint:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (void)) x secondPoint -let setSelectionWithPoint x self = msg_send ~self ~cmd:(selector "setSelectionWithPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setShouldAutoscroll x self = msg_send ~self ~cmd:(selector "setShouldAutoscroll:") ~typ:(bool @-> returning (void)) x -let setShouldIgnoreCustomViewport x self = msg_send ~self ~cmd:(selector "setShouldIgnoreCustomViewport:") ~typ:(bool @-> returning (void)) x -let setShouldOnlyRecognizeGesturesOnActiveElements x self = msg_send ~self ~cmd:(selector "setShouldOnlyRecognizeGesturesOnActiveElements:") ~typ:(bool @-> returning (void)) x -let setSizeUpdatesSuspended x self = msg_send ~self ~cmd:(selector "setSizeUpdatesSuspended:") ~typ:(bool @-> returning (void)) x -let setSmoothsFonts x self = msg_send ~self ~cmd:(selector "setSmoothsFonts:") ~typ:(bool @-> returning (void)) x -let setStandaloneEditingElement x self = msg_send ~self ~cmd:(selector "setStandaloneEditingElement:") ~typ:(id @-> returning (void)) x -let setSuppressesIncrementalRendering x self = msg_send ~self ~cmd:(selector "setSuppressesIncrementalRendering:") ~typ:(bool @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let setTileUpdatesDisabled x self = msg_send ~self ~cmd:(selector "setTileUpdatesDisabled:") ~typ:(bool @-> returning (void)) x -let setTilingArea x self = msg_send ~self ~cmd:(selector "setTilingArea:") ~typ:(int @-> returning (void)) x -let setUpdatesScrollView x self = msg_send ~self ~cmd:(selector "setUpdatesScrollView:") ~typ:(bool @-> returning (void)) x -let setUserStyleSheet x self = msg_send ~self ~cmd:(selector "setUserStyleSheet:") ~typ:(id @-> returning (void)) x -let setViewportSize x ~forDocumentTypes self = msg_send ~self ~cmd:(selector "setViewportSize:forDocumentTypes:") ~typ:(CGSize.t @-> int @-> returning (void)) x forDocumentTypes -let setWebDraggingDelegate x self = msg_send ~self ~cmd:(selector "setWebDraggingDelegate:") ~typ:(id @-> returning (void)) x -let shouldAutoscroll self = msg_send ~self ~cmd:(selector "shouldAutoscroll") ~typ:(returning (bool)) -let shouldIgnoreCustomViewport self = msg_send ~self ~cmd:(selector "shouldIgnoreCustomViewport") ~typ:(returning (bool)) -let shouldOnlyRecognizeGesturesOnActiveElements self = msg_send ~self ~cmd:(selector "shouldOnlyRecognizeGesturesOnActiveElements") ~typ:(returning (bool)) -let shouldSelectionAssistantReceiveDoubleTapAtPoint x ~forScale self = msg_send ~self ~cmd:(selector "shouldSelectionAssistantReceiveDoubleTapAtPoint:forScale:") ~typ:(CGPoint.t @-> double @-> returning (bool)) x forScale -let shouldSuppressPasswordEcho self = msg_send ~self ~cmd:(selector "shouldSuppressPasswordEcho") ~typ:(returning (bool)) -let showPlaybackTargetPicker x ~fromRect self = msg_send ~self ~cmd:(selector "showPlaybackTargetPicker:fromRect:") ~typ:(bool @-> CGRect.t @-> returning (void)) x fromRect -let sizeUpdatesSuspended self = msg_send ~self ~cmd:(selector "sizeUpdatesSuspended") ~typ:(returning (bool)) -let smartExtendRangedSelection x self = msg_send ~self ~cmd:(selector "smartExtendRangedSelection:") ~typ:(int @-> returning (void)) x -let standaloneEditingElement self = msg_send ~self ~cmd:(selector "standaloneEditingElement") ~typ:(returning (id)) -let startActionSheet self = msg_send ~self ~cmd:(selector "startActionSheet") ~typ:(returning (bool)) -let startAutoscroll x self = msg_send ~self ~cmd:(selector "startAutoscroll:") ~typ:(CGPoint.t @-> returning (void)) x -let startInteractionWithLocation x self = msg_send ~self ~cmd:(selector "startInteractionWithLocation:") ~typ:(CGPoint.t @-> returning (void)) x -let stopLoading x self = msg_send ~self ~cmd:(selector "stopLoading:") ~typ:(id @-> returning (void)) x -let subviews self = msg_send ~self ~cmd:(selector "subviews") ~typ:(returning (id)) -let superviewForSheet self = msg_send ~self ~cmd:(selector "superviewForSheet") ~typ:(returning (id)) -let supportedPasteboardTypesForCurrentSelection self = msg_send ~self ~cmd:(selector "supportedPasteboardTypesForCurrentSelection") ~typ:(returning (id)) -let supportsTwoFingerScrollingAtTouchLocation x ~andLocation self = msg_send ~self ~cmd:(selector "supportsTwoFingerScrollingAtTouchLocation:andLocation:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (bool)) x andLocation -let suppressesIncrementalRendering self = msg_send ~self ~cmd:(selector "suppressesIncrementalRendering") ~typ:(returning (bool)) -let takeTraitsFrom x self = msg_send ~self ~cmd:(selector "takeTraitsFrom:") ~typ:(id @-> returning (void)) x -let tapInteractionWithLocation x self = msg_send ~self ~cmd:(selector "tapInteractionWithLocation:") ~typ:(CGPoint.t @-> returning (void)) x -let targetedDragPreviewFromCurrentTextIndicatorData self = msg_send ~self ~cmd:(selector "targetedDragPreviewFromCurrentTextIndicatorData") ~typ:(returning (id)) -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) -let textColorForCaretSelection self = msg_send ~self ~cmd:(selector "textColorForCaretSelection") ~typ:(returning (id)) -let textFormElement self = msg_send ~self ~cmd:(selector "textFormElement") ~typ:(returning (id)) -let textInDOMRange x self = msg_send ~self ~cmd:(selector "textInDOMRange:") ~typ:(id @-> returning (id)) x -let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning (id)) x -let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning (id)) -let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning (id)) x toPosition -let textStylingAtPosition x ~inDirection self = msg_send ~self ~cmd:(selector "textStylingAtPosition:inDirection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int inDirection) -let toggleBaseWritingDirection self = msg_send ~self ~cmd:(selector "toggleBaseWritingDirection") ~typ:(returning (void)) -let toggleBoldface x self = msg_send ~self ~cmd:(selector "toggleBoldface:") ~typ:(id @-> returning (void)) x -let toggleItalics x self = msg_send ~self ~cmd:(selector "toggleItalics:") ~typ:(id @-> returning (void)) x -let toggleUnderline x self = msg_send ~self ~cmd:(selector "toggleUnderline:") ~typ:(id @-> returning (void)) x -let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning (id)) -let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning (id)) -let undoManagerForWebView x self = msg_send ~self ~cmd:(selector "undoManagerForWebView:") ~typ:(id @-> returning (id)) x -let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning (void)) -let updateDragCaretIfPossible self = msg_send ~self ~cmd:(selector "updateDragCaretIfPossible") ~typ:(returning (void)) -let updateFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let updateFloatingCursorAtPoint' x ~velocity self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:velocity:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (void)) x velocity -let updateInteractionElements self = msg_send ~self ~cmd:(selector "updateInteractionElements") ~typ:(returning (void)) -let updateKeyboardStateOnResponderChanges self = msg_send ~self ~cmd:(selector "updateKeyboardStateOnResponderChanges") ~typ:(returning (bool)) -let updateSelection self = msg_send ~self ~cmd:(selector "updateSelection") ~typ:(returning (void)) -let updatesScrollView self = msg_send ~self ~cmd:(selector "updatesScrollView") ~typ:(returning (bool)) -let useSelectionAssistantWithMode x self = msg_send ~self ~cmd:(selector "useSelectionAssistantWithMode:") ~typ:(int @-> returning (void)) x -let validateInteractionWithLocation x self = msg_send ~self ~cmd:(selector "validateInteractionWithLocation:") ~typ:(CGPoint.t @-> returning (void)) x -let viewportHandler x ~didChangeAvoidsUnsafeArea self = msg_send ~self ~cmd:(selector "viewportHandler:didChangeAvoidsUnsafeArea:") ~typ:(id @-> bool @-> returning (void)) x didChangeAvoidsUnsafeArea -let viewportHandler' x ~didChangeViewportSize self = msg_send ~self ~cmd:(selector "viewportHandler:didChangeViewportSize:") ~typ:(id @-> CGSize.t @-> returning (void)) x didChangeViewportSize -let viewportHandlerDidChangeScales x self = msg_send ~self ~cmd:(selector "viewportHandlerDidChangeScales:") ~typ:(id @-> returning (void)) x -let visibleBounds self = msg_send_stret ~self ~cmd:(selector "visibleBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let visibleContentFrame self = msg_send_stret ~self ~cmd:(selector "visibleContentFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let visibleContentRect self = msg_send_stret ~self ~cmd:(selector "visibleContentRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let visibleFrame self = msg_send_stret ~self ~cmd:(selector "visibleFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let wantsMinimalUI self = msg_send ~self ~cmd:(selector "wantsMinimalUI") ~typ:(returning (bool)) -let webDraggingDelegate self = msg_send ~self ~cmd:(selector "webDraggingDelegate") ~typ:(returning (id)) -let webThreadWebViewDidLayout x ~byScrolling self = msg_send ~self ~cmd:(selector "webThreadWebViewDidLayout:byScrolling:") ~typ:(id @-> bool @-> returning (void)) x byScrolling -let webView self = msg_send ~self ~cmd:(selector "webView") ~typ:(returning (id)) -let webView1 x ~didChangeLocationWithinPageForFrame self = msg_send ~self ~cmd:(selector "webView:didChangeLocationWithinPageForFrame:") ~typ:(id @-> id @-> returning (void)) x didChangeLocationWithinPageForFrame -let webView2 x ~didCommitLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didCommitLoadForFrame:") ~typ:(id @-> id @-> returning (void)) x didCommitLoadForFrame -let webView3 x ~didFinishLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didFinishLoadForFrame:") ~typ:(id @-> id @-> returning (void)) x didFinishLoadForFrame -let webView4 x ~didFirstVisuallyNonEmptyLayoutInFrame self = msg_send ~self ~cmd:(selector "webView:didFirstVisuallyNonEmptyLayoutInFrame:") ~typ:(id @-> id @-> returning (void)) x didFirstVisuallyNonEmptyLayoutInFrame -let webView5 x ~didHideFullScreenForPlugInView self = msg_send ~self ~cmd:(selector "webView:didHideFullScreenForPlugInView:") ~typ:(id @-> id @-> returning (void)) x didHideFullScreenForPlugInView -let webView6 x ~didReceiveViewportArguments self = msg_send ~self ~cmd:(selector "webView:didReceiveViewportArguments:") ~typ:(id @-> id @-> returning (void)) x didReceiveViewportArguments -let webView7 x ~willAddPlugInView self = msg_send ~self ~cmd:(selector "webView:willAddPlugInView:") ~typ:(id @-> id @-> returning (void)) x willAddPlugInView -let webView8 x ~willShowFullScreenForPlugInView self = msg_send ~self ~cmd:(selector "webView:willShowFullScreenForPlugInView:") ~typ:(id @-> id @-> returning (void)) x willShowFullScreenForPlugInView -let webView9 x ~didFailLoadWithError ~forFrame self = msg_send ~self ~cmd:(selector "webView:didFailLoadWithError:forFrame:") ~typ:(id @-> id @-> id @-> returning (void)) x didFailLoadWithError forFrame -let webView10 x ~didObserveDeferredContentChange ~forFrame self = msg_send ~self ~cmd:(selector "webView:didObserveDeferredContentChange:forFrame:") ~typ:(id @-> int @-> id @-> returning (void)) x didObserveDeferredContentChange forFrame -let webView11 x ~needsScrollNotifications ~forFrame self = msg_send ~self ~cmd:(selector "webView:needsScrollNotifications:forFrame:") ~typ:(id @-> id @-> id @-> returning (void)) x needsScrollNotifications forFrame -let webView12 x ~plugInViewWithArguments ~fromPlugInPackage self = msg_send ~self ~cmd:(selector "webView:plugInViewWithArguments:fromPlugInPackage:") ~typ:(id @-> id @-> id @-> returning (id)) x plugInViewWithArguments fromPlugInPackage -let webView13 x ~runOpenPanelForFileButtonWithResultListener ~configuration self = msg_send ~self ~cmd:(selector "webView:runOpenPanelForFileButtonWithResultListener:configuration:") ~typ:(id @-> id @-> id @-> returning (void)) x runOpenPanelForFileButtonWithResultListener configuration -let webView14 x ~saveStateToHistoryItem ~forFrame self = msg_send ~self ~cmd:(selector "webView:saveStateToHistoryItem:forFrame:") ~typ:(id @-> id @-> id @-> returning (void)) x saveStateToHistoryItem forFrame -let webView15 x ~shouldScrollToPoint ~forFrame self = msg_send ~self ~cmd:(selector "webView:shouldScrollToPoint:forFrame:") ~typ:(id @-> CGPoint.t @-> id @-> returning (bool)) x shouldScrollToPoint forFrame -let webView16 x ~restoreStateFromHistoryItem ~forFrame ~force self = msg_send ~self ~cmd:(selector "webView:restoreStateFromHistoryItem:forFrame:force:") ~typ:(id @-> id @-> id @-> bool @-> returning (void)) x restoreStateFromHistoryItem forFrame force -let webViewDidCommitCompositingLayerChanges x self = msg_send ~self ~cmd:(selector "webViewDidCommitCompositingLayerChanges:") ~typ:(id @-> returning (void)) x -let webViewDidDrawTiles x self = msg_send ~self ~cmd:(selector "webViewDidDrawTiles:") ~typ:(id @-> returning (void)) x -let webViewDidEndOverflowScroll x self = msg_send ~self ~cmd:(selector "webViewDidEndOverflowScroll:") ~typ:(id @-> returning (void)) x -let webViewDidPreventDefaultForEvent x self = msg_send ~self ~cmd:(selector "webViewDidPreventDefaultForEvent:") ~typ:(id @-> returning (void)) x -let webViewDidReceiveMobileDocType x self = msg_send ~self ~cmd:(selector "webViewDidReceiveMobileDocType:") ~typ:(id @-> returning (void)) x -let webViewDidRestoreFromPageCache x self = msg_send ~self ~cmd:(selector "webViewDidRestoreFromPageCache:") ~typ:(id @-> returning (void)) x -let webViewDidStartOverflowScroll x self = msg_send ~self ~cmd:(selector "webViewDidStartOverflowScroll:") ~typ:(id @-> returning (void)) x -let webViewFrameForUIFrame x self = msg_send_stret ~self ~cmd:(selector "webViewFrameForUIFrame:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let webVisiblePositionForPoint x self = msg_send ~self ~cmd:(selector "webVisiblePositionForPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let willInteractWithLocation x self = msg_send ~self ~cmd:(selector "willInteractWithLocation:") ~typ:(CGPoint.t @-> returning (bool)) x -let willMoveToSuperview x self = msg_send ~self ~cmd:(selector "willMoveToSuperview:") ~typ:(id @-> returning (void)) x -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x -let willRotateInteractionSheet self = msg_send ~self ~cmd:(selector "willRotateInteractionSheet") ~typ:(returning (void)) -let willStartScroll self = msg_send ~self ~cmd:(selector "willStartScroll") ~typ:(returning (void)) -let willStartScrollToTop self = msg_send ~self ~cmd:(selector "willStartScrollToTop") ~typ:(returning (void)) -let willStartZoom self = msg_send ~self ~cmd:(selector "willStartZoom") ~typ:(returning (void)) -let willZoomToLocation x ~atScale ~forDuration self = msg_send ~self ~cmd:(selector "willZoomToLocation:atScale:forDuration:") ~typ:(CGPoint.t @-> double @-> double @-> returning (void)) x atScale forDuration -let willZoomToMinimumScale self = msg_send ~self ~cmd:(selector "willZoomToMinimumScale") ~typ:(returning (void)) -let wordAtPoint x self = msg_send ~self ~cmd:(selector "wordAtPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let wordOffsetInRange x self = msg_send ~self ~cmd:(selector "wordOffsetInRange:") ~typ:(id @-> returning (int)) x -let writeDataToPasteboard x self = msg_send ~self ~cmd:(selector "writeDataToPasteboard:") ~typ:(id @-> returning (void)) x -let zoomedDocumentScale self = msg_send ~self ~cmd:(selector "zoomedDocumentScale") ~typ:(returning (double)) \ No newline at end of file +let actionDidFinish self = msg_send ~self ~cmd:(selector "actionDidFinish") ~typ:(returning void) +let addInputString x self = msg_send ~self ~cmd:(selector "addInputString:") ~typ:(id @-> returning void) x +let addInputString' x ~withFlags self = msg_send ~self ~cmd:(selector "addInputString:withFlags:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int withFlags) +let alwaysConstrainsScale self = msg_send ~self ~cmd:(selector "alwaysConstrainsScale") ~typ:(returning bool) +let approximateNodeAtViewportLocation x self = msg_send ~self ~cmd:(selector "approximateNodeAtViewportLocation:") ~typ:((ptr CGPoint.t) @-> returning id) x +let asText self = msg_send ~self ~cmd:(selector "asText") ~typ:(returning id) +let assistFormNode x self = msg_send ~self ~cmd:(selector "assistFormNode:") ~typ:(id @-> returning void) x +let attemptClick x self = msg_send ~self ~cmd:(selector "attemptClick:") ~typ:(id @-> returning void) x +let automaticallySelectedOverlay self = msg_send ~self ~cmd:(selector "automaticallySelectedOverlay") ~typ:(returning id) +let autoscrollContentFrame self = msg_send ~self ~cmd:(selector "autoscrollContentFrame") ~typ:(returning CGRect.t) +let autoscrollContentOffset self = msg_send ~self ~cmd:(selector "autoscrollContentOffset") ~typ:(returning CGPoint.t) +let autoscrollDragFrame self = msg_send ~self ~cmd:(selector "autoscrollDragFrame") ~typ:(returning CGRect.t) +let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int inDirection) +let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning bool) +let becomesEditableWithGestures self = msg_send ~self ~cmd:(selector "becomesEditableWithGestures") ~typ:(returning bool) +let beginFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "beginFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let beginPrintModeForFrame x ~withSize ~startOffset ~minimumLayoutWidth ~maximumLayoutWidth ~tileClippedContent self = msg_send ~self ~cmd:(selector "beginPrintModeForFrame:withSize:startOffset:minimumLayoutWidth:maximumLayoutWidth:tileClippedContent:") ~typ:(id @-> CGSize.t @-> double @-> double @-> double @-> bool @-> returning id) x withSize startOffset minimumLayoutWidth maximumLayoutWidth tileClippedContent +let beginPrintModeForFrame' x ~withWidth ~height ~startOffset ~shrinkToFit ~tileClippedContent self = msg_send ~self ~cmd:(selector "beginPrintModeForFrame:withWidth:height:startOffset:shrinkToFit:tileClippedContent:") ~typ:(id @-> double @-> double @-> double @-> bool @-> bool @-> returning id) x withWidth height startOffset shrinkToFit tileClippedContent +let beginPrintModeWithSize x ~startOffset ~minimumLayoutWidth ~maximumLayoutWidth ~tileClippedContent self = msg_send ~self ~cmd:(selector "beginPrintModeWithSize:startOffset:minimumLayoutWidth:maximumLayoutWidth:tileClippedContent:") ~typ:(CGSize.t @-> double @-> double @-> double @-> bool @-> returning id) x startOffset minimumLayoutWidth maximumLayoutWidth tileClippedContent +let beginPrintModeWithWidth x ~height ~startOffset ~shrinkToFit ~forFrame self = msg_send ~self ~cmd:(selector "beginPrintModeWithWidth:height:startOffset:shrinkToFit:forFrame:") ~typ:(double @-> double @-> double @-> bool @-> id @-> returning id) x height startOffset shrinkToFit forFrame +let beginPrintModeWithWidth' x ~height ~startOffset ~shrinkToFit ~tileClippedContent ~forFrame self = msg_send ~self ~cmd:(selector "beginPrintModeWithWidth:height:startOffset:shrinkToFit:tileClippedContent:forFrame:") ~typ:(double @-> double @-> double @-> bool @-> bool @-> id @-> returning id) x height startOffset shrinkToFit tileClippedContent forFrame +let beginSelectionChange self = msg_send ~self ~cmd:(selector "beginSelectionChange") ~typ:(returning void) +let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning id) +let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning bool) +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let canResignFirstResponder self = msg_send ~self ~cmd:(selector "canResignFirstResponder") ~typ:(returning bool) +let cancelAutoscroll self = msg_send ~self ~cmd:(selector "cancelAutoscroll") ~typ:(returning void) +let cancelInteraction self = msg_send ~self ~cmd:(selector "cancelInteraction") ~typ:(returning void) +let cancelInteractionWithImmediateDisplay x self = msg_send ~self ~cmd:(selector "cancelInteractionWithImmediateDisplay:") ~typ:(bool @-> returning void) x +let cancelMouseTracking self = msg_send ~self ~cmd:(selector "cancelMouseTracking") ~typ:(returning bool) +let cancelTouchTracking self = msg_send ~self ~cmd:(selector "cancelTouchTracking") ~typ:(returning bool) +let caretInsets self = msg_send ~self ~cmd:(selector "caretInsets") ~typ:(returning UIEdgeInsets.t) +let caretRect self = msg_send ~self ~cmd:(selector "caretRect") ~typ:(returning CGRect.t) +let caretRectForPosition x self = msg_send ~self ~cmd:(selector "caretRectForPosition:") ~typ:(id @-> returning CGRect.t) x +let caretRectForVisiblePosition x self = msg_send ~self ~cmd:(selector "caretRectForVisiblePosition:") ~typ:(id @-> returning CGRect.t) x +let characterAfterCaretSelection self = msg_send ~self ~cmd:(selector "characterAfterCaretSelection") ~typ:(returning ushort) +let characterInRelationToCaretSelection x self = msg_send ~self ~cmd:(selector "characterInRelationToCaretSelection:") ~typ:(int @-> returning ushort) x +let characterRangeAtPoint x self = msg_send ~self ~cmd:(selector "characterRangeAtPoint:") ~typ:(CGPoint.t @-> returning id) x +let characterRangeByExtendingPosition x ~inDirection self = msg_send ~self ~cmd:(selector "characterRangeByExtendingPosition:inDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int inDirection) +let checkSpellingOfString x self = msg_send ~self ~cmd:(selector "checkSpellingOfString:") ~typ:(id @-> returning id) x +let clearInteractionTimer self = msg_send ~self ~cmd:(selector "clearInteractionTimer") ~typ:(returning void) +let clearMarkedText self = msg_send ~self ~cmd:(selector "clearMarkedText") ~typ:(returning void) +let clearRangedSelectionInitialExtent self = msg_send ~self ~cmd:(selector "clearRangedSelectionInitialExtent") ~typ:(returning void) +let clearSelection self = msg_send ~self ~cmd:(selector "clearSelection") ~typ:(returning void) +let clearWKFirstResponder self = msg_send ~self ~cmd:(selector "clearWKFirstResponder") ~typ:(returning bool) +let closestCaretRectInMarkedTextRangeForPoint x self = msg_send ~self ~cmd:(selector "closestCaretRectInMarkedTextRangeForPoint:") ~typ:(CGPoint.t @-> returning CGRect.t) x +let closestPositionToPoint x self = msg_send ~self ~cmd:(selector "closestPositionToPoint:") ~typ:(CGPoint.t @-> returning id) x +let closestPositionToPoint' x ~withinRange self = msg_send ~self ~cmd:(selector "closestPositionToPoint:withinRange:") ~typ:(CGPoint.t @-> id @-> returning id) x withinRange +let collapseSelection self = msg_send ~self ~cmd:(selector "collapseSelection") ~typ:(returning void) +let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning llong) x toPosition +let completeInteraction self = msg_send ~self ~cmd:(selector "completeInteraction") ~typ:(returning void) +let computeClientAndGlobalPointsForSession x ~outClientPoint ~outGlobalPoint self = msg_send ~self ~cmd:(selector "computeClientAndGlobalPointsForSession:outClientPoint:outGlobalPoint:") ~typ:(id @-> (ptr CGPoint.t) @-> (ptr CGPoint.t) @-> returning void) x outClientPoint outGlobalPoint +let computeRectForElement x ~withHighligh ~isInverted self = msg_send ~self ~cmd:(selector "computeRectForElement:withHighligh:isInverted:") ~typ:(id @-> id @-> bool @-> returning CGRect.t) x withHighligh isInverted +let confirmMarkedText x self = msg_send ~self ~cmd:(selector "confirmMarkedText:") ~typ:(id @-> returning void) x +let considerHeightForDoubleTap self = msg_send ~self ~cmd:(selector "considerHeightForDoubleTap") ~typ:(returning bool) +let constrainedPoint x self = msg_send ~self ~cmd:(selector "constrainedPoint:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let contentFrameForView x self = msg_send ~self ~cmd:(selector "contentFrameForView:") ~typ:(id @-> returning CGRect.t) x +let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning id) +let continueInteractionWithLocation x self = msg_send ~self ~cmd:(selector "continueInteractionWithLocation:") ~typ:(CGPoint.t @-> returning void) x +let convertCaretRect x self = msg_send ~self ~cmd:(selector "convertCaretRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let convertPoint x ~fromFrame self = msg_send ~self ~cmd:(selector "convertPoint:fromFrame:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x fromFrame +let convertPoint' x ~toFrame self = msg_send ~self ~cmd:(selector "convertPoint:toFrame:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x toFrame +let convertPointToSelectedFrameCoordinates x self = msg_send ~self ~cmd:(selector "convertPointToSelectedFrameCoordinates:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let convertRect x ~fromFrame self = msg_send ~self ~cmd:(selector "convertRect:fromFrame:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x fromFrame +let convertRect' x ~toFrame self = msg_send ~self ~cmd:(selector "convertRect:toFrame:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x toFrame +let convertRectFromSelectedFrameCoordinates x self = msg_send ~self ~cmd:(selector "convertRectFromSelectedFrameCoordinates:") ~typ:(CGRect.t @-> returning CGRect.t) x +let convertRectWithDocumentScale x self = msg_send ~self ~cmd:(selector "convertRectWithDocumentScale:") ~typ:(CGRect.t @-> returning CGRect.t) x +let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning void) x +let currentDocumentScale self = msg_send ~self ~cmd:(selector "currentDocumentScale") ~typ:(returning double) +let currentDragCaretRect self = msg_send ~self ~cmd:(selector "currentDragCaretRect") ~typ:(returning CGRect.t) +let currentDragSourceAction self = msg_send ~self ~cmd:(selector "currentDragSourceAction") ~typ:(returning ullong) +let cut x self = msg_send ~self ~cmd:(selector "cut:") ~typ:(id @-> returning void) x +let dataDetectorTypes self = msg_send ~self ~cmd:(selector "dataDetectorTypes") ~typ:(returning ullong) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let decreaseSize x self = msg_send ~self ~cmd:(selector "decreaseSize:") ~typ:(id @-> returning void) x +let deepestNodeAtViewportLocation x self = msg_send ~self ~cmd:(selector "deepestNodeAtViewportLocation:") ~typ:(CGPoint.t @-> returning id) x +let deferInteraction self = msg_send ~self ~cmd:(selector "deferInteraction") ~typ:(returning void) +let deferredBecomeFirstResponder self = msg_send ~self ~cmd:(selector "deferredBecomeFirstResponder") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning void) +let deleteFromInput self = msg_send ~self ~cmd:(selector "deleteFromInput") ~typ:(returning void) +let deleteFromInputWithFlags x self = msg_send ~self ~cmd:(selector "deleteFromInputWithFlags:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let detectsPhoneNumbers self = msg_send ~self ~cmd:(selector "detectsPhoneNumbers") ~typ:(returning bool) +let deviceOrientation self = msg_send ~self ~cmd:(selector "deviceOrientation") ~typ:(returning int) +let dictationInterpretations self = msg_send ~self ~cmd:(selector "dictationInterpretations") ~typ:(returning id) +let dictationResultMetadataForRange x self = msg_send ~self ~cmd:(selector "dictationResultMetadataForRange:") ~typ:(id @-> returning id) x +let didEndScroll self = msg_send ~self ~cmd:(selector "didEndScroll") ~typ:(returning void) +let didEndZoom self = msg_send ~self ~cmd:(selector "didEndZoom") ~typ:(returning void) +let didFirstVisuallyNonEmptyLayout self = msg_send ~self ~cmd:(selector "didFirstVisuallyNonEmptyLayout") ~typ:(returning bool) +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let didRemovePlugInView x self = msg_send ~self ~cmd:(selector "didRemovePlugInView:") ~typ:(id @-> returning void) x +let didRotateInteractionSheet self = msg_send ~self ~cmd:(selector "didRotateInteractionSheet") ~typ:(returning void) +let didZoom self = msg_send ~self ~cmd:(selector "didZoom") ~typ:(returning void) +let disableClearsOnInsertion self = msg_send ~self ~cmd:(selector "disableClearsOnInsertion") ~typ:(returning void) +let documentBounds self = msg_send ~self ~cmd:(selector "documentBounds") ~typ:(returning CGRect.t) +let documentType self = msg_send ~self ~cmd:(selector "documentType") ~typ:(returning int) +let doubleTapRect self = msg_send ~self ~cmd:(selector "doubleTapRect") ~typ:(returning CGRect.t) +let doubleTapRectIsReplaced self = msg_send ~self ~cmd:(selector "doubleTapRectIsReplaced") ~typ:(returning bool) +let doubleTapScalesForSize x self = msg_send ~self ~cmd:(selector "doubleTapScalesForSize:") ~typ:(CGSize.t @-> returning void) x +let dragInteraction self = msg_send ~self ~cmd:(selector "dragInteraction") ~typ:(returning id) +let dragInteraction1 x ~itemsForBeginningSession self = msg_send ~self ~cmd:(selector "dragInteraction:itemsForBeginningSession:") ~typ:(id @-> id @-> returning id) x itemsForBeginningSession +let dragInteraction2 x ~sessionWillBegin self = msg_send ~self ~cmd:(selector "dragInteraction:sessionWillBegin:") ~typ:(id @-> id @-> returning void) x sessionWillBegin +let dragInteraction3 x ~previewForCancellingItem ~withDefault self = msg_send ~self ~cmd:(selector "dragInteraction:previewForCancellingItem:withDefault:") ~typ:(id @-> id @-> id @-> returning id) x previewForCancellingItem withDefault +let dragInteraction4 x ~previewForLiftingItem ~session self = msg_send ~self ~cmd:(selector "dragInteraction:previewForLiftingItem:session:") ~typ:(id @-> id @-> id @-> returning id) x previewForLiftingItem session +let dragInteraction5 x ~session ~didEndWithOperation self = msg_send ~self ~cmd:(selector "dragInteraction:session:didEndWithOperation:") ~typ:(id @-> id @-> ullong @-> returning void) x session (ULLong.of_int didEndWithOperation) +let dragInteraction6 x ~willAnimateLiftWithAnimator ~session self = msg_send ~self ~cmd:(selector "dragInteraction:willAnimateLiftWithAnimator:session:") ~typ:(id @-> id @-> id @-> returning void) x willAnimateLiftWithAnimator session +let dragInteractionEnabled self = msg_send ~self ~cmd:(selector "dragInteractionEnabled") ~typ:(returning bool) +let draggedLinkTitle self = msg_send ~self ~cmd:(selector "draggedLinkTitle") ~typ:(returning id) +let draggedLinkURL self = msg_send ~self ~cmd:(selector "draggedLinkURL") ~typ:(returning id) +let drawPage x ~withPaginationInfo self = msg_send ~self ~cmd:(selector "drawPage:withPaginationInfo:") ~typ:(ullong @-> id @-> returning void) (ULLong.of_int x) withPaginationInfo +let dropInteraction self = msg_send ~self ~cmd:(selector "dropInteraction") ~typ:(returning id) +let dropInteraction1 x ~concludeDrop self = msg_send ~self ~cmd:(selector "dropInteraction:concludeDrop:") ~typ:(id @-> id @-> returning void) x concludeDrop +let dropInteraction2 x ~performDrop self = msg_send ~self ~cmd:(selector "dropInteraction:performDrop:") ~typ:(id @-> id @-> returning void) x performDrop +let dropInteraction3 x ~sessionDidEnd self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidEnd:") ~typ:(id @-> id @-> returning void) x sessionDidEnd +let dropInteraction4 x ~sessionDidEnter self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidEnter:") ~typ:(id @-> id @-> returning void) x sessionDidEnter +let dropInteraction5 x ~sessionDidExit self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidExit:") ~typ:(id @-> id @-> returning void) x sessionDidExit +let dropInteraction6 x ~sessionDidUpdate self = msg_send ~self ~cmd:(selector "dropInteraction:sessionDidUpdate:") ~typ:(id @-> id @-> returning id) x sessionDidUpdate +let dropInteraction7 x ~item ~willAnimateDropWithAnimator self = msg_send ~self ~cmd:(selector "dropInteraction:item:willAnimateDropWithAnimator:") ~typ:(id @-> id @-> id @-> returning void) x item willAnimateDropWithAnimator +let dropInteraction8 x ~previewForDroppingItem ~withDefault self = msg_send ~self ~cmd:(selector "dropInteraction:previewForDroppingItem:withDefault:") ~typ:(id @-> id @-> id @-> returning id) x previewForDroppingItem withDefault +let editDragPreviewForTextIndicator x self = msg_send ~self ~cmd:(selector "editDragPreviewForTextIndicator:") ~typ:(id @-> returning id) x +let effectiveDataDetectorTypes self = msg_send ~self ~cmd:(selector "effectiveDataDetectorTypes") ~typ:(returning ullong) +let enclosingScrollView self = msg_send ~self ~cmd:(selector "enclosingScrollView") ~typ:(returning id) +let endFloatingCursor self = msg_send ~self ~cmd:(selector "endFloatingCursor") ~typ:(returning void) +let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning id) +let endPrintMode self = msg_send ~self ~cmd:(selector "endPrintMode") ~typ:(returning void) +let endSelectionChange self = msg_send ~self ~cmd:(selector "endSelectionChange") ~typ:(returning void) +let ensureSelection self = msg_send ~self ~cmd:(selector "ensureSelection") ~typ:(returning void) +let exposedScrollViewRect self = msg_send ~self ~cmd:(selector "exposedScrollViewRect") ~typ:(returning CGRect.t) +let extendCurrentSelection x self = msg_send ~self ~cmd:(selector "extendCurrentSelection:") ~typ:(int @-> returning void) x +let fallbackDropPreviewForUninsertedContent x self = msg_send ~self ~cmd:(selector "fallbackDropPreviewForUninsertedContent:") ~typ:(id @-> returning id) x +let fileUploadPanelDidDismiss x self = msg_send ~self ~cmd:(selector "fileUploadPanelDidDismiss:") ~typ:(id @-> returning void) x +let firstRectForRange x self = msg_send ~self ~cmd:(selector "firstRectForRange:") ~typ:(id @-> returning CGRect.t) x +let fontForCaretSelection self = msg_send ~self ~cmd:(selector "fontForCaretSelection") ~typ:(returning id) +let forceLayout self = msg_send ~self ~cmd:(selector "forceLayout") ~typ:(returning void) +let formElement self = msg_send ~self ~cmd:(selector "formElement") ~typ:(returning id) +let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning void) x +let fragmentContainsRichContent x self = msg_send ~self ~cmd:(selector "fragmentContainsRichContent:") ~typ:(id @-> returning bool) x +let frameForDictationResultPlaceholder x self = msg_send ~self ~cmd:(selector "frameForDictationResultPlaceholder:") ~typ:(id @-> returning CGRect.t) x +let gestureRecognizer x ~canBePreventedByGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:canBePreventedByGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x canBePreventedByGestureRecognizer +let gestureRecognizer1 x ~canPreventGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:canPreventGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x canPreventGestureRecognizer +let gestureRecognizer2 x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning bool) x shouldReceiveTouch +let gestureRecognizer3 x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldRecognizeSimultaneouslyWithGestureRecognizer +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let getPasteboardChangeCount self = msg_send ~self ~cmd:(selector "getPasteboardChangeCount") ~typ:(returning llong) +let getPasteboardItemsCount self = msg_send ~self ~cmd:(selector "getPasteboardItemsCount") ~typ:(returning llong) +let handleKeyAppCommandForCurrentEvent self = msg_send ~self ~cmd:(selector "handleKeyAppCommandForCurrentEvent") ~typ:(returning bool) +let handleKeyTextCommandForCurrentEvent self = msg_send ~self ~cmd:(selector "handleKeyTextCommandForCurrentEvent") ~typ:(returning bool) +let handleKeyWebEvent x self = msg_send ~self ~cmd:(selector "handleKeyWebEvent:") ~typ:(id @-> returning void) x +let hasBodyElement self = msg_send ~self ~cmd:(selector "hasBodyElement") ~typ:(returning bool) +let hasContent self = msg_send ~self ~cmd:(selector "hasContent") ~typ:(returning bool) +let hasDrawnTiles self = msg_send ~self ~cmd:(selector "hasDrawnTiles") ~typ:(returning bool) +let hasEditableSelection self = msg_send ~self ~cmd:(selector "hasEditableSelection") ~typ:(returning bool) +let hasMarkedText self = msg_send ~self ~cmd:(selector "hasMarkedText") ~typ:(returning bool) +let hasPlugInSubviews self = msg_send ~self ~cmd:(selector "hasPlugInSubviews") ~typ:(returning bool) +let hasRangedSelection self = msg_send ~self ~cmd:(selector "hasRangedSelection") ~typ:(returning bool) +let hasRichlyEditableSelection self = msg_send ~self ~cmd:(selector "hasRichlyEditableSelection") ~typ:(returning bool) +let hasSelection self = msg_send ~self ~cmd:(selector "hasSelection") ~typ:(returning bool) +let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning bool) +let hideTapHighlight self = msg_send ~self ~cmd:(selector "hideTapHighlight") ~typ:(returning void) +let highlightApproximateNodeAndDisplayInfoSheet self = msg_send ~self ~cmd:(selector "highlightApproximateNodeAndDisplayInfoSheet") ~typ:(returning void) +let highlightApproximateNodeInverted x self = msg_send ~self ~cmd:(selector "highlightApproximateNodeInverted:") ~typ:(bool @-> returning void) x +let hostViewForSheet x self = msg_send ~self ~cmd:(selector "hostViewForSheet:") ~typ:(id @-> returning id) x +let implementationWebView self = msg_send ~self ~cmd:(selector "implementationWebView") ~typ:(returning id) +let inPopover self = msg_send ~self ~cmd:(selector "inPopover") ~typ:(returning bool) +let increaseSize x self = msg_send ~self ~cmd:(selector "increaseSize:") ~typ:(id @-> returning void) x +let initSimpleHTMLDocumentWithStyle x ~frame ~preferences ~groupName self = msg_send ~self ~cmd:(selector "initSimpleHTMLDocumentWithStyle:frame:preferences:groupName:") ~typ:(id @-> CGRect.t @-> id @-> id @-> returning id) x frame preferences groupName +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithWebView x ~frame self = msg_send ~self ~cmd:(selector "initWithWebView:frame:") ~typ:(id @-> CGRect.t @-> returning id) x frame +let initialDropSnapshotView self = msg_send ~self ~cmd:(selector "initialDropSnapshotView") ~typ:(returning id) +let initialPresentationRectInHostViewForSheet x self = msg_send ~self ~cmd:(selector "initialPresentationRectInHostViewForSheet:") ~typ:(id @-> returning CGRect.t) x +let initialScale self = msg_send ~self ~cmd:(selector "initialScale") ~typ:(returning float) +let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning id) +let insertDictationResult x ~withCorrectionIdentifier self = msg_send ~self ~cmd:(selector "insertDictationResult:withCorrectionIdentifier:") ~typ:(id @-> id @-> returning void) x withCorrectionIdentifier +let insertDictationResultPlaceholder self = msg_send ~self ~cmd:(selector "insertDictationResultPlaceholder") ~typ:(returning id) +let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning void) x +let insertTextPlaceholderWithSize x self = msg_send ~self ~cmd:(selector "insertTextPlaceholderWithSize:") ~typ:(CGSize.t @-> returning id) x +let insertionPointColor self = msg_send ~self ~cmd:(selector "insertionPointColor") ~typ:(returning id) +let installGestureRecognizers self = msg_send ~self ~cmd:(selector "installGestureRecognizers") ~typ:(returning void) +let interactionAssistant self = msg_send ~self ~cmd:(selector "interactionAssistant") ~typ:(returning id) +let interactionDelegate self = msg_send ~self ~cmd:(selector "interactionDelegate") ~typ:(returning id) +let interactionElement self = msg_send ~self ~cmd:(selector "interactionElement") ~typ:(returning id) +let interactionLocation self = msg_send ~self ~cmd:(selector "interactionLocation") ~typ:(returning CGPoint.t) +let isCaretInEmptyParagraph self = msg_send ~self ~cmd:(selector "isCaretInEmptyParagraph") ~typ:(returning bool) +let isClassicViewportMode self = msg_send ~self ~cmd:(selector "isClassicViewportMode") ~typ:(returning bool) +let isDoubleTapEnabled self = msg_send ~self ~cmd:(selector "isDoubleTapEnabled") ~typ:(returning bool) +let isEditable self = msg_send ~self ~cmd:(selector "isEditable") ~typ:(returning bool) +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let isEditingSingleLineElement self = msg_send ~self ~cmd:(selector "isEditingSingleLineElement") ~typ:(returning bool) +let isInInteraction self = msg_send ~self ~cmd:(selector "isInInteraction") ~typ:(returning bool) +let isInPrintMode self = msg_send ~self ~cmd:(selector "isInPrintMode") ~typ:(returning bool) +let isInsideRichlyEditableTextWidget self = msg_send ~self ~cmd:(selector "isInsideRichlyEditableTextWidget") ~typ:(returning bool) +let isPosition x ~atBoundary ~inDirection self = msg_send ~self ~cmd:(selector "isPosition:atBoundary:inDirection:") ~typ:(id @-> llong @-> llong @-> returning bool) x (LLong.of_int atBoundary) (LLong.of_int inDirection) +let isPosition' x ~withinTextUnit ~inDirection self = msg_send ~self ~cmd:(selector "isPosition:withinTextUnit:inDirection:") ~typ:(id @-> llong @-> llong @-> returning bool) x (LLong.of_int withinTextUnit) (LLong.of_int inDirection) +let isPreviewing self = msg_send ~self ~cmd:(selector "isPreviewing") ~typ:(returning bool) +let isShowingFullScreenPlugInUI self = msg_send ~self ~cmd:(selector "isShowingFullScreenPlugInUI") ~typ:(returning bool) +let isStandaloneEditableView self = msg_send ~self ~cmd:(selector "isStandaloneEditableView") ~typ:(returning bool) +let isWidgetEditingView self = msg_send ~self ~cmd:(selector "isWidgetEditingView") ~typ:(returning bool) +let keyboardInput x ~shouldInsertText ~isMarkedText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldInsertText:isMarkedText:") ~typ:(id @-> id @-> bool @-> returning bool) x shouldInsertText isMarkedText +let keyboardInput' x ~shouldReplaceTextInRange ~replacementText self = msg_send ~self ~cmd:(selector "keyboardInput:shouldReplaceTextInRange:replacementText:") ~typ:(id @-> NSRange.t @-> id @-> returning bool) x shouldReplaceTextInRange replacementText +let keyboardInputChanged x self = msg_send ~self ~cmd:(selector "keyboardInputChanged:") ~typ:(id @-> returning bool) x +let keyboardInputChangedSelection x self = msg_send ~self ~cmd:(selector "keyboardInputChangedSelection:") ~typ:(id @-> returning void) x +let keyboardInputShouldDelete x self = msg_send ~self ~cmd:(selector "keyboardInputShouldDelete:") ~typ:(id @-> returning bool) x +let lastGlobalPosition self = msg_send ~self ~cmd:(selector "lastGlobalPosition") ~typ:(returning CGPoint.t) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let loadData x ~_MIMEType ~textEncodingName ~baseURL self = msg_send ~self ~cmd:(selector "loadData:MIMEType:textEncodingName:baseURL:") ~typ:(id @-> id @-> id @-> id @-> returning void) x _MIMEType textEncodingName baseURL +let loadHTMLString x ~baseURL self = msg_send ~self ~cmd:(selector "loadHTMLString:baseURL:") ~typ:(id @-> id @-> returning void) x baseURL +let loadRequest x self = msg_send ~self ~cmd:(selector "loadRequest:") ~typ:(id @-> returning void) x +let loadsSynchronously self = msg_send ~self ~cmd:(selector "loadsSynchronously") ~typ:(returning bool) +let makeTextWritingDirectionLeftToRight x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionLeftToRight:") ~typ:(id @-> returning void) x +let makeTextWritingDirectionNatural x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionNatural:") ~typ:(id @-> returning void) x +let makeTextWritingDirectionRightToLeft x self = msg_send ~self ~cmd:(selector "makeTextWritingDirectionRightToLeft:") ~typ:(id @-> returning void) x +let makeWKFirstResponder self = msg_send ~self ~cmd:(selector "makeWKFirstResponder") ~typ:(returning bool) +let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning id) +let markedTextStyle self = msg_send ~self ~cmd:(selector "markedTextStyle") ~typ:(returning id) +let maximumDoubleTapScale self = msg_send ~self ~cmd:(selector "maximumDoubleTapScale") ~typ:(returning double) +let maximumScale self = msg_send ~self ~cmd:(selector "maximumScale") ~typ:(returning float) +let mediaPlaybackAllowsAirPlay self = msg_send ~self ~cmd:(selector "mediaPlaybackAllowsAirPlay") ~typ:(returning bool) +let metadataDictionariesForDictationResults self = msg_send ~self ~cmd:(selector "metadataDictionariesForDictationResults") ~typ:(returning id) +let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning id) x +let minimumScale self = msg_send ~self ~cmd:(selector "minimumScale") ~typ:(returning float) +let minimumScaleForMinimumSize x self = msg_send ~self ~cmd:(selector "minimumScaleForMinimumSize:") ~typ:(CGSize.t @-> returning float) x +let minimumScaleForSize x self = msg_send ~self ~cmd:(selector "minimumScaleForSize:") ~typ:(CGSize.t @-> returning double) x +let mouseEventsChangeSelection self = msg_send ~self ~cmd:(selector "mouseEventsChangeSelection") ~typ:(returning bool) +let needsScrollNotifications self = msg_send ~self ~cmd:(selector "needsScrollNotifications") ~typ:(returning bool) +let newMouseEvent x self = msg_send ~self ~cmd:(selector "newMouseEvent:") ~typ:(int @-> returning id) x +let newSnapshotWithRect x self = msg_send ~self ~cmd:(selector "newSnapshotWithRect:") ~typ:(CGRect.t @-> returning (ptr CGImage.t)) x +let offsetFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "offsetFromPosition:toPosition:") ~typ:(id @-> id @-> returning llong) x toPosition +let offsetInMarkedTextForSelection x self = msg_send ~self ~cmd:(selector "offsetInMarkedTextForSelection:") ~typ:(id @-> returning ullong) x +let paste x self = msg_send ~self ~cmd:(selector "paste:") ~typ:(id @-> returning void) x +let pasteAndMatchStyle x self = msg_send ~self ~cmd:(selector "pasteAndMatchStyle:") ~typ:(id @-> returning void) x +let performClick x self = msg_send ~self ~cmd:(selector "performClick:") ~typ:(id @-> returning void) x +let performInteractionSelector x ~afterDelay self = msg_send ~self ~cmd:(selector "performInteractionSelector:afterDelay:") ~typ:(_SEL @-> double @-> returning void) x afterDelay +let performTwoStepDrop x ~atDestination ~isMove self = msg_send ~self ~cmd:(selector "performTwoStepDrop:atDestination:isMove:") ~typ:(id @-> id @-> bool @-> returning bool) x atDestination isMove +let performsTwoStepPaste x self = msg_send ~self ~cmd:(selector "performsTwoStepPaste:") ~typ:(id @-> returning bool) x +let playsNicelyWithGestures self = msg_send ~self ~cmd:(selector "playsNicelyWithGestures") ~typ:(returning bool) +let positionAtStartOrEndOfWord x self = msg_send ~self ~cmd:(selector "positionAtStartOrEndOfWord:") ~typ:(id @-> returning id) x +let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int offset) +let positionFromPosition1 x ~inDirection ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:inDirection:offset:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int inDirection) (LLong.of_int offset) +let positionFromPosition2 x ~toBoundary ~inDirection self = msg_send ~self ~cmd:(selector "positionFromPosition:toBoundary:inDirection:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int toBoundary) (LLong.of_int inDirection) +let positionWithinRange x ~farthestInDirection self = msg_send ~self ~cmd:(selector "positionWithinRange:farthestInDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int farthestInDirection) +let presentationRectInHostViewForSheet x self = msg_send ~self ~cmd:(selector "presentationRectInHostViewForSheet:") ~typ:(id @-> returning CGRect.t) x +let rangeByExtendingCurrentSelection x self = msg_send ~self ~cmd:(selector "rangeByExtendingCurrentSelection:") ~typ:(int @-> returning id) x +let rangeByMovingCurrentSelection x self = msg_send ~self ~cmd:(selector "rangeByMovingCurrentSelection:") ~typ:(int @-> returning id) x +let rangeEnclosingPosition x ~withGranularity ~inDirection self = msg_send ~self ~cmd:(selector "rangeEnclosingPosition:withGranularity:inDirection:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int withGranularity) (LLong.of_int inDirection) +let rangeOfEnclosingWord x self = msg_send ~self ~cmd:(selector "rangeOfEnclosingWord:") ~typ:(id @-> returning id) x +let rangeToRestoreAfterDictation self = msg_send ~self ~cmd:(selector "rangeToRestoreAfterDictation") ~typ:(returning id) +let readDataFromPasteboard x ~withIndex self = msg_send ~self ~cmd:(selector "readDataFromPasteboard:withIndex:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int withIndex) +let rectOfInterestForPoint x self = msg_send ~self ~cmd:(selector "rectOfInterestForPoint:") ~typ:(CGPoint.t @-> returning CGRect.t) x +let rectsForNSRange x self = msg_send ~self ~cmd:(selector "rectsForNSRange:") ~typ:(NSRange.t @-> returning id) x +let redrawScaledDocument self = msg_send ~self ~cmd:(selector "redrawScaledDocument") ~typ:(returning void) +let releasePrintMode self = msg_send ~self ~cmd:(selector "releasePrintMode") ~typ:(returning void) +let removeDictationResultPlaceholder x ~willInsertResult self = msg_send ~self ~cmd:(selector "removeDictationResultPlaceholder:willInsertResult:") ~typ:(id @-> bool @-> returning void) x willInsertResult +let removeTextPlaceholder x self = msg_send ~self ~cmd:(selector "removeTextPlaceholder:") ~typ:(id @-> returning void) x +let renderTreeSize self = msg_send ~self ~cmd:(selector "renderTreeSize") ~typ:(returning ullong) +let renderTreeSizeThresholdForReset self = msg_send ~self ~cmd:(selector "renderTreeSizeThresholdForReset") ~typ:(returning ullong) +let replace x self = msg_send ~self ~cmd:(selector "replace:") ~typ:(id @-> returning void) x +let replaceCurrentWordWithText x self = msg_send ~self ~cmd:(selector "replaceCurrentWordWithText:") ~typ:(id @-> returning void) x +let replaceRange x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning void) x withText +let replaceRangeWithTextWithoutClosingTyping x ~replacementText self = msg_send ~self ~cmd:(selector "replaceRangeWithTextWithoutClosingTyping:replacementText:") ~typ:(id @-> id @-> returning void) x replacementText +let replaceSelectionWithWebArchive x ~selectReplacement ~smartReplace self = msg_send ~self ~cmd:(selector "replaceSelectionWithWebArchive:selectReplacement:smartReplace:") ~typ:(id @-> bool @-> bool @-> returning void) x selectReplacement smartReplace +let requiresKeyEvents self = msg_send ~self ~cmd:(selector "requiresKeyEvents") ~typ:(returning bool) +let resetCurrentDragInformation self = msg_send ~self ~cmd:(selector "resetCurrentDragInformation") ~typ:(returning void) +let resetInteraction self = msg_send ~self ~cmd:(selector "resetInteraction") ~typ:(returning void) +let resetSelectionAssistant self = msg_send ~self ~cmd:(selector "resetSelectionAssistant") ~typ:(returning void) +let resetTilingAfterLoadComplete self = msg_send ~self ~cmd:(selector "resetTilingAfterLoadComplete") ~typ:(returning void) +let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning bool) +let revealedSelectionByScrollingWebFrame x self = msg_send ~self ~cmd:(selector "revealedSelectionByScrollingWebFrame:") ~typ:(id @-> returning void) x +let saveStateToCurrentHistoryItem self = msg_send ~self ~cmd:(selector "saveStateToCurrentHistoryItem") ~typ:(returning void) +let scrollSelectionToVisible x self = msg_send ~self ~cmd:(selector "scrollSelectionToVisible:") ~typ:(bool @-> returning void) x +let scrollViewWasRemoved self = msg_send ~self ~cmd:(selector "scrollViewWasRemoved") ~typ:(returning void) +let select x self = msg_send ~self ~cmd:(selector "select:") ~typ:(id @-> returning void) x +let selectAll self = msg_send ~self ~cmd:(selector "selectAll") ~typ:(returning void) +let selectAll' x self = msg_send ~self ~cmd:(selector "selectAll:") ~typ:(id @-> returning void) x +let selectWord self = msg_send ~self ~cmd:(selector "selectWord") ~typ:(returning void) +let selectedDOMRange self = msg_send ~self ~cmd:(selector "selectedDOMRange") ~typ:(returning id) +let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning id) +let selectionAffinity self = msg_send ~self ~cmd:(selector "selectionAffinity") ~typ:(returning llong) +let selectionAtDocumentStart self = msg_send ~self ~cmd:(selector "selectionAtDocumentStart") ~typ:(returning bool) +let selectionAtWordStart self = msg_send ~self ~cmd:(selector "selectionAtWordStart") ~typ:(returning bool) +let selectionBaseWritingDirection self = msg_send ~self ~cmd:(selector "selectionBaseWritingDirection") ~typ:(returning llong) +let selectionChanged self = msg_send ~self ~cmd:(selector "selectionChanged") ~typ:(returning void) +let selectionChanged' x self = msg_send ~self ~cmd:(selector "selectionChanged:") ~typ:(id @-> returning void) x +let selectionGranularity self = msg_send ~self ~cmd:(selector "selectionGranularity") ~typ:(returning llong) +let selectionRange self = msg_send ~self ~cmd:(selector "selectionRange") ~typ:(returning NSRange.t) +let selectionRects self = msg_send ~self ~cmd:(selector "selectionRects") ~typ:(returning id) +let selectionRectsForDOMRange x self = msg_send ~self ~cmd:(selector "selectionRectsForDOMRange:") ~typ:(id @-> returning id) x +let selectionRectsForRange x self = msg_send ~self ~cmd:(selector "selectionRectsForRange:") ~typ:(id @-> returning id) x +let selectionState self = msg_send ~self ~cmd:(selector "selectionState") ~typ:(returning int) +let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning id) +let sendOrientationEventForOrientation x self = msg_send ~self ~cmd:(selector "sendOrientationEventForOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let sendScrollEventIfNecessary self = msg_send ~self ~cmd:(selector "sendScrollEventIfNecessary") ~typ:(returning void) +let sendScrollEventIfNecessaryWasUserScroll x self = msg_send ~self ~cmd:(selector "sendScrollEventIfNecessaryWasUserScroll:") ~typ:(bool @-> returning void) x +let sendScrollWheelEvents self = msg_send ~self ~cmd:(selector "sendScrollWheelEvents") ~typ:(returning void) +let setAllowsDataDetectorsSheet x self = msg_send ~self ~cmd:(selector "setAllowsDataDetectorsSheet:") ~typ:(bool @-> returning void) x +let setAllowsImageSheet x self = msg_send ~self ~cmd:(selector "setAllowsImageSheet:") ~typ:(bool @-> returning void) x +let setAllowsLinkSheet x self = msg_send ~self ~cmd:(selector "setAllowsLinkSheet:") ~typ:(bool @-> returning void) x +let setAllowsShrinkToFit x ~forDocumentTypes self = msg_send ~self ~cmd:(selector "setAllowsShrinkToFit:forDocumentTypes:") ~typ:(bool @-> int @-> returning void) x forDocumentTypes +let setAllowsUserScaling x ~forDocumentTypes self = msg_send ~self ~cmd:(selector "setAllowsUserScaling:forDocumentTypes:") ~typ:(bool @-> int @-> returning void) x forDocumentTypes +let setAlwaysConstrainsScale x self = msg_send ~self ~cmd:(selector "setAlwaysConstrainsScale:") ~typ:(bool @-> returning void) x +let setAutoresizes x self = msg_send ~self ~cmd:(selector "setAutoresizes:") ~typ:(bool @-> returning void) x +let setAutoscrollContentOffset x self = msg_send ~self ~cmd:(selector "setAutoscrollContentOffset:") ~typ:(CGPoint.t @-> returning void) x +let setAvoidsUnsafeArea x ~forDocumentTypes self = msg_send ~self ~cmd:(selector "setAvoidsUnsafeArea:forDocumentTypes:") ~typ:(bool @-> int @-> returning void) x forDocumentTypes +let setBaseWritingDirection x self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBaseWritingDirection' x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) forRange +let setBecomesEditableWithGestures x self = msg_send ~self ~cmd:(selector "setBecomesEditableWithGestures:") ~typ:(bool @-> returning void) x +let setBottomBufferHeight x self = msg_send ~self ~cmd:(selector "setBottomBufferHeight:") ~typ:(double @-> returning void) x +let setCaretChangeListener x self = msg_send ~self ~cmd:(selector "setCaretChangeListener:") ~typ:(id @-> returning void) x +let setCaretInsets x self = msg_send ~self ~cmd:(selector "setCaretInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setContinuousSpellCheckingEnabled x self = msg_send ~self ~cmd:(selector "setContinuousSpellCheckingEnabled:") ~typ:(bool @-> returning void) x +let setCurrentDragCaretRect x self = msg_send ~self ~cmd:(selector "setCurrentDragCaretRect:") ~typ:(CGRect.t @-> returning void) x +let setCurrentDragSourceAction x self = msg_send ~self ~cmd:(selector "setCurrentDragSourceAction:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDataDetectorTypes x self = msg_send ~self ~cmd:(selector "setDataDetectorTypes:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDetectsPhoneNumbers x self = msg_send ~self ~cmd:(selector "setDetectsPhoneNumbers:") ~typ:(bool @-> returning void) x +let setDoubleTapEnabled x self = msg_send ~self ~cmd:(selector "setDoubleTapEnabled:") ~typ:(bool @-> returning void) x +let setDragInteraction x self = msg_send ~self ~cmd:(selector "setDragInteraction:") ~typ:(id @-> returning void) x +let setDragInteractionEnabled x self = msg_send ~self ~cmd:(selector "setDragInteractionEnabled:") ~typ:(bool @-> returning void) x +let setDraggedLinkTitle x self = msg_send ~self ~cmd:(selector "setDraggedLinkTitle:") ~typ:(id @-> returning void) x +let setDraggedLinkURL x self = msg_send ~self ~cmd:(selector "setDraggedLinkURL:") ~typ:(id @-> returning void) x +let setDrawsBackground x self = msg_send ~self ~cmd:(selector "setDrawsBackground:") ~typ:(bool @-> returning void) x +let setDropInteraction x self = msg_send ~self ~cmd:(selector "setDropInteraction:") ~typ:(id @-> returning void) x +let setExposedScrollViewRect x self = msg_send ~self ~cmd:(selector "setExposedScrollViewRect:") ~typ:(CGRect.t @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setIgnoresFocusingMouse x self = msg_send ~self ~cmd:(selector "setIgnoresFocusingMouse:") ~typ:(bool @-> returning void) x +let setIgnoresKeyEvents x self = msg_send ~self ~cmd:(selector "setIgnoresKeyEvents:") ~typ:(bool @-> returning void) x +let setIgnoresViewportOverflowWhenAutoresizing x self = msg_send ~self ~cmd:(selector "setIgnoresViewportOverflowWhenAutoresizing:") ~typ:(bool @-> returning void) x +let setInitialDropSnapshotView x self = msg_send ~self ~cmd:(selector "setInitialDropSnapshotView:") ~typ:(id @-> returning void) x +let setInitialScale x ~forDocumentTypes self = msg_send ~self ~cmd:(selector "setInitialScale:forDocumentTypes:") ~typ:(float @-> int @-> returning void) x forDocumentTypes +let setInputDelegate x self = msg_send ~self ~cmd:(selector "setInputDelegate:") ~typ:(id @-> returning void) x +let setInteractionAssistantGestureRecognizers self = msg_send ~self ~cmd:(selector "setInteractionAssistantGestureRecognizers") ~typ:(returning void) +let setInteractionDelegate x self = msg_send ~self ~cmd:(selector "setInteractionDelegate:") ~typ:(id @-> returning void) x +let setIsStandaloneEditableView x self = msg_send ~self ~cmd:(selector "setIsStandaloneEditableView:") ~typ:(bool @-> returning void) x +let setIsWidgetEditingView x self = msg_send ~self ~cmd:(selector "setIsWidgetEditingView:") ~typ:(bool @-> returning void) x +let setLastGlobalPosition x self = msg_send ~self ~cmd:(selector "setLastGlobalPosition:") ~typ:(CGPoint.t @-> returning void) x +let setLoadsSynchronously x self = msg_send ~self ~cmd:(selector "setLoadsSynchronously:") ~typ:(bool @-> returning void) x +let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning void) x selectedRange +let setMarkedTextStyle x self = msg_send ~self ~cmd:(selector "setMarkedTextStyle:") ~typ:(id @-> returning void) x +let setMaximumScale x ~forDocumentTypes self = msg_send ~self ~cmd:(selector "setMaximumScale:forDocumentTypes:") ~typ:(float @-> int @-> returning void) x forDocumentTypes +let setMediaPlaybackAllowsAirPlay x self = msg_send ~self ~cmd:(selector "setMediaPlaybackAllowsAirPlay:") ~typ:(bool @-> returning void) x +let setMinimumScale x ~forDocumentTypes self = msg_send ~self ~cmd:(selector "setMinimumScale:forDocumentTypes:") ~typ:(float @-> int @-> returning void) x forDocumentTypes +let setMinimumSize x self = msg_send ~self ~cmd:(selector "setMinimumSize:") ~typ:(CGSize.t @-> returning void) x +let setMinimumSize' x ~updateCurrentViewportConfigurationSize self = msg_send ~self ~cmd:(selector "setMinimumSize:updateCurrentViewportConfigurationSize:") ~typ:(CGSize.t @-> bool @-> returning void) x updateCurrentViewportConfigurationSize +let setOpaque x self = msg_send ~self ~cmd:(selector "setOpaque:") ~typ:(bool @-> returning void) x +let setPaused x self = msg_send ~self ~cmd:(selector "setPaused:") ~typ:(bool @-> returning void) x +let setPaused' x ~withEvents self = msg_send ~self ~cmd:(selector "setPaused:withEvents:") ~typ:(bool @-> bool @-> returning void) x withEvents +let setRangeToRestoreAfterDictation x self = msg_send ~self ~cmd:(selector "setRangeToRestoreAfterDictation:") ~typ:(id @-> returning void) x +let setRangedSelectionBaseToCurrentSelection self = msg_send ~self ~cmd:(selector "setRangedSelectionBaseToCurrentSelection") ~typ:(returning void) +let setRangedSelectionBaseToCurrentSelectionEnd self = msg_send ~self ~cmd:(selector "setRangedSelectionBaseToCurrentSelectionEnd") ~typ:(returning void) +let setRangedSelectionBaseToCurrentSelectionStart self = msg_send ~self ~cmd:(selector "setRangedSelectionBaseToCurrentSelectionStart") ~typ:(returning void) +let setRangedSelectionExtentPoint x ~baseIsStart self = msg_send ~self ~cmd:(selector "setRangedSelectionExtentPoint:baseIsStart:") ~typ:(CGPoint.t @-> bool @-> returning bool) x baseIsStart +let setRangedSelectionExtentPoint' x ~baseIsStart ~allowFlipping self = msg_send ~self ~cmd:(selector "setRangedSelectionExtentPoint:baseIsStart:allowFlipping:") ~typ:(CGPoint.t @-> bool @-> bool @-> returning void) x baseIsStart allowFlipping +let setRangedSelectionInitialExtentToCurrentSelectionEnd self = msg_send ~self ~cmd:(selector "setRangedSelectionInitialExtentToCurrentSelectionEnd") ~typ:(returning void) +let setRangedSelectionInitialExtentToCurrentSelectionStart self = msg_send ~self ~cmd:(selector "setRangedSelectionInitialExtentToCurrentSelectionStart") ~typ:(returning void) +let setRangedSelectionWithExtentPoint x self = msg_send ~self ~cmd:(selector "setRangedSelectionWithExtentPoint:") ~typ:(CGPoint.t @-> returning void) x +let setRenderTreeSizeThresholdForReset x self = msg_send ~self ~cmd:(selector "setRenderTreeSizeThresholdForReset:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setSelectedDOMRange x ~affinity self = msg_send ~self ~cmd:(selector "setSelectedDOMRange:affinity:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int affinity) +let setSelectedDOMRange' x ~affinityDownstream self = msg_send ~self ~cmd:(selector "setSelectedDOMRange:affinityDownstream:") ~typ:(id @-> bool @-> returning void) x affinityDownstream +let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning void) x +let setSelectedTextRange' x ~withAffinityDownstream self = msg_send ~self ~cmd:(selector "setSelectedTextRange:withAffinityDownstream:") ~typ:(id @-> bool @-> returning void) x withAffinityDownstream +let setSelectionAffinity x self = msg_send ~self ~cmd:(selector "setSelectionAffinity:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSelectionGranularity x self = msg_send ~self ~cmd:(selector "setSelectionGranularity:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSelectionToEnd self = msg_send ~self ~cmd:(selector "setSelectionToEnd") ~typ:(returning void) +let setSelectionToStart self = msg_send ~self ~cmd:(selector "setSelectionToStart") ~typ:(returning void) +let setSelectionWithFirstPoint x ~secondPoint self = msg_send ~self ~cmd:(selector "setSelectionWithFirstPoint:secondPoint:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning void) x secondPoint +let setSelectionWithPoint x self = msg_send ~self ~cmd:(selector "setSelectionWithPoint:") ~typ:(CGPoint.t @-> returning void) x +let setShouldAutoscroll x self = msg_send ~self ~cmd:(selector "setShouldAutoscroll:") ~typ:(bool @-> returning void) x +let setShouldIgnoreCustomViewport x self = msg_send ~self ~cmd:(selector "setShouldIgnoreCustomViewport:") ~typ:(bool @-> returning void) x +let setShouldOnlyRecognizeGesturesOnActiveElements x self = msg_send ~self ~cmd:(selector "setShouldOnlyRecognizeGesturesOnActiveElements:") ~typ:(bool @-> returning void) x +let setSizeUpdatesSuspended x self = msg_send ~self ~cmd:(selector "setSizeUpdatesSuspended:") ~typ:(bool @-> returning void) x +let setSmoothsFonts x self = msg_send ~self ~cmd:(selector "setSmoothsFonts:") ~typ:(bool @-> returning void) x +let setStandaloneEditingElement x self = msg_send ~self ~cmd:(selector "setStandaloneEditingElement:") ~typ:(id @-> returning void) x +let setSuppressesIncrementalRendering x self = msg_send ~self ~cmd:(selector "setSuppressesIncrementalRendering:") ~typ:(bool @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let setTileUpdatesDisabled x self = msg_send ~self ~cmd:(selector "setTileUpdatesDisabled:") ~typ:(bool @-> returning void) x +let setTilingArea x self = msg_send ~self ~cmd:(selector "setTilingArea:") ~typ:(int @-> returning void) x +let setUpdatesScrollView x self = msg_send ~self ~cmd:(selector "setUpdatesScrollView:") ~typ:(bool @-> returning void) x +let setUserStyleSheet x self = msg_send ~self ~cmd:(selector "setUserStyleSheet:") ~typ:(id @-> returning void) x +let setViewportSize x ~forDocumentTypes self = msg_send ~self ~cmd:(selector "setViewportSize:forDocumentTypes:") ~typ:(CGSize.t @-> int @-> returning void) x forDocumentTypes +let setWebDraggingDelegate x self = msg_send ~self ~cmd:(selector "setWebDraggingDelegate:") ~typ:(id @-> returning void) x +let shouldAutoscroll self = msg_send ~self ~cmd:(selector "shouldAutoscroll") ~typ:(returning bool) +let shouldIgnoreCustomViewport self = msg_send ~self ~cmd:(selector "shouldIgnoreCustomViewport") ~typ:(returning bool) +let shouldOnlyRecognizeGesturesOnActiveElements self = msg_send ~self ~cmd:(selector "shouldOnlyRecognizeGesturesOnActiveElements") ~typ:(returning bool) +let shouldSelectionAssistantReceiveDoubleTapAtPoint x ~forScale self = msg_send ~self ~cmd:(selector "shouldSelectionAssistantReceiveDoubleTapAtPoint:forScale:") ~typ:(CGPoint.t @-> double @-> returning bool) x forScale +let shouldSuppressPasswordEcho self = msg_send ~self ~cmd:(selector "shouldSuppressPasswordEcho") ~typ:(returning bool) +let showPlaybackTargetPicker x ~fromRect self = msg_send ~self ~cmd:(selector "showPlaybackTargetPicker:fromRect:") ~typ:(bool @-> CGRect.t @-> returning void) x fromRect +let sizeUpdatesSuspended self = msg_send ~self ~cmd:(selector "sizeUpdatesSuspended") ~typ:(returning bool) +let smartExtendRangedSelection x self = msg_send ~self ~cmd:(selector "smartExtendRangedSelection:") ~typ:(int @-> returning void) x +let standaloneEditingElement self = msg_send ~self ~cmd:(selector "standaloneEditingElement") ~typ:(returning id) +let startActionSheet self = msg_send ~self ~cmd:(selector "startActionSheet") ~typ:(returning bool) +let startAutoscroll x self = msg_send ~self ~cmd:(selector "startAutoscroll:") ~typ:(CGPoint.t @-> returning void) x +let startInteractionWithLocation x self = msg_send ~self ~cmd:(selector "startInteractionWithLocation:") ~typ:(CGPoint.t @-> returning void) x +let stopLoading x self = msg_send ~self ~cmd:(selector "stopLoading:") ~typ:(id @-> returning void) x +let subviews self = msg_send ~self ~cmd:(selector "subviews") ~typ:(returning id) +let superviewForSheet self = msg_send ~self ~cmd:(selector "superviewForSheet") ~typ:(returning id) +let supportedPasteboardTypesForCurrentSelection self = msg_send ~self ~cmd:(selector "supportedPasteboardTypesForCurrentSelection") ~typ:(returning id) +let supportsTwoFingerScrollingAtTouchLocation x ~andLocation self = msg_send ~self ~cmd:(selector "supportsTwoFingerScrollingAtTouchLocation:andLocation:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning bool) x andLocation +let suppressesIncrementalRendering self = msg_send ~self ~cmd:(selector "suppressesIncrementalRendering") ~typ:(returning bool) +let takeTraitsFrom x self = msg_send ~self ~cmd:(selector "takeTraitsFrom:") ~typ:(id @-> returning void) x +let tapInteractionWithLocation x self = msg_send ~self ~cmd:(selector "tapInteractionWithLocation:") ~typ:(CGPoint.t @-> returning void) x +let targetedDragPreviewFromCurrentTextIndicatorData self = msg_send ~self ~cmd:(selector "targetedDragPreviewFromCurrentTextIndicatorData") ~typ:(returning id) +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let textColorForCaretSelection self = msg_send ~self ~cmd:(selector "textColorForCaretSelection") ~typ:(returning id) +let textFormElement self = msg_send ~self ~cmd:(selector "textFormElement") ~typ:(returning id) +let textInDOMRange x self = msg_send ~self ~cmd:(selector "textInDOMRange:") ~typ:(id @-> returning id) x +let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning id) x +let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning id) +let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning id) x toPosition +let textStylingAtPosition x ~inDirection self = msg_send ~self ~cmd:(selector "textStylingAtPosition:inDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int inDirection) +let toggleBaseWritingDirection self = msg_send ~self ~cmd:(selector "toggleBaseWritingDirection") ~typ:(returning void) +let toggleBoldface x self = msg_send ~self ~cmd:(selector "toggleBoldface:") ~typ:(id @-> returning void) x +let toggleItalics x self = msg_send ~self ~cmd:(selector "toggleItalics:") ~typ:(id @-> returning void) x +let toggleUnderline x self = msg_send ~self ~cmd:(selector "toggleUnderline:") ~typ:(id @-> returning void) x +let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning id) +let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning id) +let undoManagerForWebView x self = msg_send ~self ~cmd:(selector "undoManagerForWebView:") ~typ:(id @-> returning id) x +let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning void) +let updateDragCaretIfPossible self = msg_send ~self ~cmd:(selector "updateDragCaretIfPossible") ~typ:(returning void) +let updateFloatingCursorAtPoint x self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let updateFloatingCursorAtPoint' x ~velocity self = msg_send ~self ~cmd:(selector "updateFloatingCursorAtPoint:velocity:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning void) x velocity +let updateInteractionElements self = msg_send ~self ~cmd:(selector "updateInteractionElements") ~typ:(returning void) +let updateKeyboardStateOnResponderChanges self = msg_send ~self ~cmd:(selector "updateKeyboardStateOnResponderChanges") ~typ:(returning bool) +let updateSelection self = msg_send ~self ~cmd:(selector "updateSelection") ~typ:(returning void) +let updatesScrollView self = msg_send ~self ~cmd:(selector "updatesScrollView") ~typ:(returning bool) +let useSelectionAssistantWithMode x self = msg_send ~self ~cmd:(selector "useSelectionAssistantWithMode:") ~typ:(int @-> returning void) x +let validateInteractionWithLocation x self = msg_send ~self ~cmd:(selector "validateInteractionWithLocation:") ~typ:(CGPoint.t @-> returning void) x +let viewportHandler x ~didChangeAvoidsUnsafeArea self = msg_send ~self ~cmd:(selector "viewportHandler:didChangeAvoidsUnsafeArea:") ~typ:(id @-> bool @-> returning void) x didChangeAvoidsUnsafeArea +let viewportHandler' x ~didChangeViewportSize self = msg_send ~self ~cmd:(selector "viewportHandler:didChangeViewportSize:") ~typ:(id @-> CGSize.t @-> returning void) x didChangeViewportSize +let viewportHandlerDidChangeScales x self = msg_send ~self ~cmd:(selector "viewportHandlerDidChangeScales:") ~typ:(id @-> returning void) x +let visibleBounds self = msg_send ~self ~cmd:(selector "visibleBounds") ~typ:(returning CGRect.t) +let visibleContentFrame self = msg_send ~self ~cmd:(selector "visibleContentFrame") ~typ:(returning CGRect.t) +let visibleContentRect self = msg_send ~self ~cmd:(selector "visibleContentRect") ~typ:(returning CGRect.t) +let visibleFrame self = msg_send ~self ~cmd:(selector "visibleFrame") ~typ:(returning CGRect.t) +let wantsMinimalUI self = msg_send ~self ~cmd:(selector "wantsMinimalUI") ~typ:(returning bool) +let webDraggingDelegate self = msg_send ~self ~cmd:(selector "webDraggingDelegate") ~typ:(returning id) +let webThreadWebViewDidLayout x ~byScrolling self = msg_send ~self ~cmd:(selector "webThreadWebViewDidLayout:byScrolling:") ~typ:(id @-> bool @-> returning void) x byScrolling +let webView self = msg_send ~self ~cmd:(selector "webView") ~typ:(returning id) +let webView1 x ~didChangeLocationWithinPageForFrame self = msg_send ~self ~cmd:(selector "webView:didChangeLocationWithinPageForFrame:") ~typ:(id @-> id @-> returning void) x didChangeLocationWithinPageForFrame +let webView2 x ~didCommitLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didCommitLoadForFrame:") ~typ:(id @-> id @-> returning void) x didCommitLoadForFrame +let webView3 x ~didFinishLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didFinishLoadForFrame:") ~typ:(id @-> id @-> returning void) x didFinishLoadForFrame +let webView4 x ~didFirstVisuallyNonEmptyLayoutInFrame self = msg_send ~self ~cmd:(selector "webView:didFirstVisuallyNonEmptyLayoutInFrame:") ~typ:(id @-> id @-> returning void) x didFirstVisuallyNonEmptyLayoutInFrame +let webView5 x ~didHideFullScreenForPlugInView self = msg_send ~self ~cmd:(selector "webView:didHideFullScreenForPlugInView:") ~typ:(id @-> id @-> returning void) x didHideFullScreenForPlugInView +let webView6 x ~didReceiveViewportArguments self = msg_send ~self ~cmd:(selector "webView:didReceiveViewportArguments:") ~typ:(id @-> id @-> returning void) x didReceiveViewportArguments +let webView7 x ~willAddPlugInView self = msg_send ~self ~cmd:(selector "webView:willAddPlugInView:") ~typ:(id @-> id @-> returning void) x willAddPlugInView +let webView8 x ~willShowFullScreenForPlugInView self = msg_send ~self ~cmd:(selector "webView:willShowFullScreenForPlugInView:") ~typ:(id @-> id @-> returning void) x willShowFullScreenForPlugInView +let webView9 x ~didFailLoadWithError ~forFrame self = msg_send ~self ~cmd:(selector "webView:didFailLoadWithError:forFrame:") ~typ:(id @-> id @-> id @-> returning void) x didFailLoadWithError forFrame +let webView10 x ~didObserveDeferredContentChange ~forFrame self = msg_send ~self ~cmd:(selector "webView:didObserveDeferredContentChange:forFrame:") ~typ:(id @-> int @-> id @-> returning void) x didObserveDeferredContentChange forFrame +let webView11 x ~needsScrollNotifications ~forFrame self = msg_send ~self ~cmd:(selector "webView:needsScrollNotifications:forFrame:") ~typ:(id @-> id @-> id @-> returning void) x needsScrollNotifications forFrame +let webView12 x ~plugInViewWithArguments ~fromPlugInPackage self = msg_send ~self ~cmd:(selector "webView:plugInViewWithArguments:fromPlugInPackage:") ~typ:(id @-> id @-> id @-> returning id) x plugInViewWithArguments fromPlugInPackage +let webView13 x ~runOpenPanelForFileButtonWithResultListener ~configuration self = msg_send ~self ~cmd:(selector "webView:runOpenPanelForFileButtonWithResultListener:configuration:") ~typ:(id @-> id @-> id @-> returning void) x runOpenPanelForFileButtonWithResultListener configuration +let webView14 x ~saveStateToHistoryItem ~forFrame self = msg_send ~self ~cmd:(selector "webView:saveStateToHistoryItem:forFrame:") ~typ:(id @-> id @-> id @-> returning void) x saveStateToHistoryItem forFrame +let webView15 x ~shouldScrollToPoint ~forFrame self = msg_send ~self ~cmd:(selector "webView:shouldScrollToPoint:forFrame:") ~typ:(id @-> CGPoint.t @-> id @-> returning bool) x shouldScrollToPoint forFrame +let webView16 x ~restoreStateFromHistoryItem ~forFrame ~force self = msg_send ~self ~cmd:(selector "webView:restoreStateFromHistoryItem:forFrame:force:") ~typ:(id @-> id @-> id @-> bool @-> returning void) x restoreStateFromHistoryItem forFrame force +let webViewDidCommitCompositingLayerChanges x self = msg_send ~self ~cmd:(selector "webViewDidCommitCompositingLayerChanges:") ~typ:(id @-> returning void) x +let webViewDidDrawTiles x self = msg_send ~self ~cmd:(selector "webViewDidDrawTiles:") ~typ:(id @-> returning void) x +let webViewDidEndOverflowScroll x self = msg_send ~self ~cmd:(selector "webViewDidEndOverflowScroll:") ~typ:(id @-> returning void) x +let webViewDidPreventDefaultForEvent x self = msg_send ~self ~cmd:(selector "webViewDidPreventDefaultForEvent:") ~typ:(id @-> returning void) x +let webViewDidReceiveMobileDocType x self = msg_send ~self ~cmd:(selector "webViewDidReceiveMobileDocType:") ~typ:(id @-> returning void) x +let webViewDidRestoreFromPageCache x self = msg_send ~self ~cmd:(selector "webViewDidRestoreFromPageCache:") ~typ:(id @-> returning void) x +let webViewDidStartOverflowScroll x self = msg_send ~self ~cmd:(selector "webViewDidStartOverflowScroll:") ~typ:(id @-> returning void) x +let webViewFrameForUIFrame x self = msg_send ~self ~cmd:(selector "webViewFrameForUIFrame:") ~typ:(CGRect.t @-> returning CGRect.t) x +let webVisiblePositionForPoint x self = msg_send ~self ~cmd:(selector "webVisiblePositionForPoint:") ~typ:(CGPoint.t @-> returning id) x +let willInteractWithLocation x self = msg_send ~self ~cmd:(selector "willInteractWithLocation:") ~typ:(CGPoint.t @-> returning bool) x +let willMoveToSuperview x self = msg_send ~self ~cmd:(selector "willMoveToSuperview:") ~typ:(id @-> returning void) x +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x +let willRotateInteractionSheet self = msg_send ~self ~cmd:(selector "willRotateInteractionSheet") ~typ:(returning void) +let willStartScroll self = msg_send ~self ~cmd:(selector "willStartScroll") ~typ:(returning void) +let willStartScrollToTop self = msg_send ~self ~cmd:(selector "willStartScrollToTop") ~typ:(returning void) +let willStartZoom self = msg_send ~self ~cmd:(selector "willStartZoom") ~typ:(returning void) +let willZoomToLocation x ~atScale ~forDuration self = msg_send ~self ~cmd:(selector "willZoomToLocation:atScale:forDuration:") ~typ:(CGPoint.t @-> double @-> double @-> returning void) x atScale forDuration +let willZoomToMinimumScale self = msg_send ~self ~cmd:(selector "willZoomToMinimumScale") ~typ:(returning void) +let wordAtPoint x self = msg_send ~self ~cmd:(selector "wordAtPoint:") ~typ:(CGPoint.t @-> returning id) x +let wordOffsetInRange x self = msg_send ~self ~cmd:(selector "wordOffsetInRange:") ~typ:(id @-> returning int) x +let writeDataToPasteboard x self = msg_send ~self ~cmd:(selector "writeDataToPasteboard:") ~typ:(id @-> returning void) x +let zoomedDocumentScale self = msg_send ~self ~cmd:(selector "zoomedDocumentScale") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIWebDocumentViewClass.ml b/uikit/UIWebDocumentViewClass.ml new file mode 100644 index 00000000..2d302028 --- /dev/null +++ b/uikit/UIWebDocumentViewClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebdocumentview?language=objc}UIWebDocumentView} *) + +let getTimestamp self = msg_send ~self ~cmd:(selector "getTimestamp") ~typ:(returning double) +let hasLandscapeOrientation self = msg_send ~self ~cmd:(selector "hasLandscapeOrientation") ~typ:(returning bool) +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) +let layerClass self = msg_send ~self ~cmd:(selector "layerClass") ~typ:(returning _Class) +let standardTextViewPreferences self = msg_send ~self ~cmd:(selector "standardTextViewPreferences") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIWebDocumentViewPrintFormatter.ml b/uikit/UIWebDocumentViewPrintFormatter.ml index 33655b89..6a13f884 100644 --- a/uikit/UIWebDocumentViewPrintFormatter.ml +++ b/uikit/UIWebDocumentViewPrintFormatter.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebDocumentViewPrintFormatter" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebdocumentviewprintformatter?language=objc}UIWebDocumentViewPrintFormatter} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let drawInRect x ~forPageAtIndex self = msg_send ~self ~cmd:(selector "drawInRect:forPageAtIndex:") ~typ:(CGRect.t @-> llong @-> returning (void)) x (LLong.of_int forPageAtIndex) -let frameToPrint self = msg_send ~self ~cmd:(selector "frameToPrint") ~typ:(returning (id)) -let rectForPageAtIndex x self = msg_send_stret ~self ~cmd:(selector "rectForPageAtIndex:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) -let removeFromPrintPageRenderer self = msg_send ~self ~cmd:(selector "removeFromPrintPageRenderer") ~typ:(returning (void)) -let setFrameToPrint x self = msg_send ~self ~cmd:(selector "setFrameToPrint:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIWebDocumentViewPrintFormatter" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let drawInRect x ~forPageAtIndex self = msg_send ~self ~cmd:(selector "drawInRect:forPageAtIndex:") ~typ:(CGRect.t @-> llong @-> returning void) x (LLong.of_int forPageAtIndex) +let frameToPrint self = msg_send ~self ~cmd:(selector "frameToPrint") ~typ:(returning id) +let rectForPageAtIndex x self = msg_send ~self ~cmd:(selector "rectForPageAtIndex:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) +let removeFromPrintPageRenderer self = msg_send ~self ~cmd:(selector "removeFromPrintPageRenderer") ~typ:(returning void) +let setFrameToPrint x self = msg_send ~self ~cmd:(selector "setFrameToPrint:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWebElementAction.ml b/uikit/UIWebElementAction.ml index 8fd22822..16096dd6 100644 --- a/uikit/UIWebElementAction.ml +++ b/uikit/UIWebElementAction.ml @@ -5,17 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebElementAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebelementaction?language=objc}UIWebElementAction} *) -module C = struct - let customElementActionWithTitle x ~actionHandler self = msg_send ~self ~cmd:(selector "customElementActionWithTitle:actionHandler:") ~typ:(id @-> ptr void @-> returning (id)) x actionHandler - let standardElementActionWithType x self = msg_send ~self ~cmd:(selector "standardElementActionWithType:") ~typ:(int @-> returning (id)) x - let standardElementActionWithType' x ~customTitle ~context self = msg_send ~self ~cmd:(selector "standardElementActionWithType:customTitle:context:") ~typ:(int @-> id @-> id @-> returning (id)) x customTitle context -end +let self = get_class "UIWebElementAction" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let dismissalHandler self = msg_send ~self ~cmd:(selector "dismissalHandler") ~typ:(returning (ptr void)) -let initWithTitle x ~actionHandler ~type_ self = msg_send ~self ~cmd:(selector "initWithTitle:actionHandler:type:") ~typ:(id @-> ptr void @-> int @-> returning (id)) x actionHandler type_ -let setDismissalHandler x self = msg_send ~self ~cmd:(selector "setDismissalHandler:") ~typ:(ptr void @-> returning (void)) x -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (int)) \ No newline at end of file +let initWithTitle x ~actionHandler ~type_ self = msg_send ~self ~cmd:(selector "initWithTitle:actionHandler:type:") ~typ:(id @-> (ptr void) @-> int @-> returning id) x actionHandler type_ +let setDismissalHandler x self = msg_send ~self ~cmd:(selector "setDismissalHandler:") ~typ:((ptr void) @-> returning void) x +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning int) \ No newline at end of file diff --git a/uikit/UIWebElementActionClass.ml b/uikit/UIWebElementActionClass.ml new file mode 100644 index 00000000..34f52347 --- /dev/null +++ b/uikit/UIWebElementActionClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebelementaction?language=objc}UIWebElementAction} *) + +let customElementActionWithTitle x ~actionHandler self = msg_send ~self ~cmd:(selector "customElementActionWithTitle:actionHandler:") ~typ:(id @-> (ptr void) @-> returning id) x actionHandler +let standardElementActionWithType x self = msg_send ~self ~cmd:(selector "standardElementActionWithType:") ~typ:(int @-> returning id) x +let standardElementActionWithType' x ~customTitle ~context self = msg_send ~self ~cmd:(selector "standardElementActionWithType:customTitle:context:") ~typ:(int @-> id @-> id @-> returning id) x customTitle context \ No newline at end of file diff --git a/uikit/UIWebFileUploadPanel.ml b/uikit/UIWebFileUploadPanel.ml index 0ccc65f6..23c7ce28 100644 --- a/uikit/UIWebFileUploadPanel.ml +++ b/uikit/UIWebFileUploadPanel.ml @@ -5,32 +5,36 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebFileUploadPanel" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebfileuploadpanel?language=objc}UIWebFileUploadPanel} *) -let allowMultipleFiles self = msg_send ~self ~cmd:(selector "allowMultipleFiles") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let dismiss self = msg_send ~self ~cmd:(selector "dismiss") ~typ:(returning (void)) -let documentMenu x ~didPickDocumentPicker self = msg_send ~self ~cmd:(selector "documentMenu:didPickDocumentPicker:") ~typ:(id @-> id @-> returning (void)) x didPickDocumentPicker -let documentMenuWasCancelled x self = msg_send ~self ~cmd:(selector "documentMenuWasCancelled:") ~typ:(id @-> returning (void)) x -let documentPicker x ~didPickDocumentAtURL self = msg_send ~self ~cmd:(selector "documentPicker:didPickDocumentAtURL:") ~typ:(id @-> id @-> returning (void)) x didPickDocumentAtURL -let documentPickerWasCancelled x self = msg_send ~self ~cmd:(selector "documentPickerWasCancelled:") ~typ:(id @-> returning (void)) x -let documentView self = msg_send ~self ~cmd:(selector "documentView") ~typ:(returning (id)) -let imagePickerController x ~didFinishPickingMediaWithInfo self = msg_send ~self ~cmd:(selector "imagePickerController:didFinishPickingMediaWithInfo:") ~typ:(id @-> id @-> returning (void)) x didFinishPickingMediaWithInfo -let imagePickerController' x ~didFinishPickingMultipleMediaWithInfo self = msg_send ~self ~cmd:(selector "imagePickerController:didFinishPickingMultipleMediaWithInfo:") ~typ:(id @-> id @-> returning (void)) x didFinishPickingMultipleMediaWithInfo -let imagePickerControllerDidCancel x self = msg_send ~self ~cmd:(selector "imagePickerControllerDidCancel:") ~typ:(id @-> returning (void)) x -let initWithResultListener x ~configuration ~documentView self = msg_send ~self ~cmd:(selector "initWithResultListener:configuration:documentView:") ~typ:(id @-> id @-> id @-> returning (id)) x configuration documentView -let isUsingCamera self = msg_send ~self ~cmd:(selector "isUsingCamera") ~typ:(returning (bool)) -let mediaCaptureType self = msg_send ~self ~cmd:(selector "mediaCaptureType") ~typ:(returning (llong)) -let mimeTypes self = msg_send ~self ~cmd:(selector "mimeTypes") ~typ:(returning (id)) -let popoverControllerDidDismissPopover x self = msg_send ~self ~cmd:(selector "popoverControllerDidDismissPopover:") ~typ:(id @-> returning (void)) x -let present self = msg_send ~self ~cmd:(selector "present") ~typ:(returning (void)) -let resultListener self = msg_send ~self ~cmd:(selector "resultListener") ~typ:(returning (id)) -let setAllowMultipleFiles x self = msg_send ~self ~cmd:(selector "setAllowMultipleFiles:") ~typ:(bool @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDocumentView x self = msg_send ~self ~cmd:(selector "setDocumentView:") ~typ:(id @-> returning (void)) x -let setIsUsingCamera x self = msg_send ~self ~cmd:(selector "setIsUsingCamera:") ~typ:(bool @-> returning (void)) x -let setMediaCaptureType x self = msg_send ~self ~cmd:(selector "setMediaCaptureType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setMimeTypes x self = msg_send ~self ~cmd:(selector "setMimeTypes:") ~typ:(id @-> returning (void)) x -let setResultListener x self = msg_send ~self ~cmd:(selector "setResultListener:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIWebFileUploadPanel" + +let allowMultipleFiles self = msg_send ~self ~cmd:(selector "allowMultipleFiles") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let dismiss self = msg_send ~self ~cmd:(selector "dismiss") ~typ:(returning void) +let documentMenu x ~didPickDocumentPicker self = msg_send ~self ~cmd:(selector "documentMenu:didPickDocumentPicker:") ~typ:(id @-> id @-> returning void) x didPickDocumentPicker +let documentMenuWasCancelled x self = msg_send ~self ~cmd:(selector "documentMenuWasCancelled:") ~typ:(id @-> returning void) x +let documentPicker x ~didPickDocumentAtURL self = msg_send ~self ~cmd:(selector "documentPicker:didPickDocumentAtURL:") ~typ:(id @-> id @-> returning void) x didPickDocumentAtURL +let documentPickerWasCancelled x self = msg_send ~self ~cmd:(selector "documentPickerWasCancelled:") ~typ:(id @-> returning void) x +let documentView self = msg_send ~self ~cmd:(selector "documentView") ~typ:(returning id) +let imagePickerController x ~didFinishPickingMediaWithInfo self = msg_send ~self ~cmd:(selector "imagePickerController:didFinishPickingMediaWithInfo:") ~typ:(id @-> id @-> returning void) x didFinishPickingMediaWithInfo +let imagePickerController' x ~didFinishPickingMultipleMediaWithInfo self = msg_send ~self ~cmd:(selector "imagePickerController:didFinishPickingMultipleMediaWithInfo:") ~typ:(id @-> id @-> returning void) x didFinishPickingMultipleMediaWithInfo +let imagePickerControllerDidCancel x self = msg_send ~self ~cmd:(selector "imagePickerControllerDidCancel:") ~typ:(id @-> returning void) x +let initWithResultListener x ~configuration ~documentView self = msg_send ~self ~cmd:(selector "initWithResultListener:configuration:documentView:") ~typ:(id @-> id @-> id @-> returning id) x configuration documentView +let isUsingCamera self = msg_send ~self ~cmd:(selector "isUsingCamera") ~typ:(returning bool) +let mediaCaptureType self = msg_send ~self ~cmd:(selector "mediaCaptureType") ~typ:(returning llong) +let mimeTypes self = msg_send ~self ~cmd:(selector "mimeTypes") ~typ:(returning id) +let popoverControllerDidDismissPopover x self = msg_send ~self ~cmd:(selector "popoverControllerDidDismissPopover:") ~typ:(id @-> returning void) x +let present self = msg_send ~self ~cmd:(selector "present") ~typ:(returning void) +let resultListener self = msg_send ~self ~cmd:(selector "resultListener") ~typ:(returning id) +let setAllowMultipleFiles x self = msg_send ~self ~cmd:(selector "setAllowMultipleFiles:") ~typ:(bool @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDocumentView x self = msg_send ~self ~cmd:(selector "setDocumentView:") ~typ:(id @-> returning void) x +let setIsUsingCamera x self = msg_send ~self ~cmd:(selector "setIsUsingCamera:") ~typ:(bool @-> returning void) x +let setMediaCaptureType x self = msg_send ~self ~cmd:(selector "setMediaCaptureType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setMimeTypes x self = msg_send ~self ~cmd:(selector "setMimeTypes:") ~typ:(id @-> returning void) x +let setResultListener x self = msg_send ~self ~cmd:(selector "setResultListener:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWebFormAccessory.ml b/uikit/UIWebFormAccessory.ml index 5af5cc70..99a69bad 100644 --- a/uikit/UIWebFormAccessory.ml +++ b/uikit/UIWebFormAccessory.ml @@ -5,28 +5,28 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebFormAccessory" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebformaccessory?language=objc}UIWebFormAccessory} *) -module C = struct - let toolbarWithItems x self = msg_send ~self ~cmd:(selector "toolbarWithItems:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIWebFormAccessory" -let autoFill x self = msg_send ~self ~cmd:(selector "autoFill:") ~typ:(id @-> returning (void)) x -let clear x self = msg_send ~self ~cmd:(selector "clear:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let done_ x self = msg_send ~self ~cmd:(selector "done:") ~typ:(id @-> returning (void)) x -let hideAutoFillButton self = msg_send ~self ~cmd:(selector "hideAutoFillButton") ~typ:(returning (void)) -let initForUCB x self = msg_send ~self ~cmd:(selector "initForUCB:") ~typ:(id @-> returning (void)) x -let initWithInputAssistantItem x self = msg_send ~self ~cmd:(selector "initWithInputAssistantItem:") ~typ:(id @-> returning (id)) x -let isNextEnabled self = msg_send ~self ~cmd:(selector "isNextEnabled") ~typ:(returning (bool)) -let isPreviousEnabled self = msg_send ~self ~cmd:(selector "isPreviousEnabled") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setClearVisible x self = msg_send ~self ~cmd:(selector "setClearVisible:") ~typ:(bool @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setNextEnabled x self = msg_send ~self ~cmd:(selector "setNextEnabled:") ~typ:(bool @-> returning (void)) x -let setNextPreviousItemsVisible x self = msg_send ~self ~cmd:(selector "setNextPreviousItemsVisible:") ~typ:(bool @-> returning (void)) x -let setPreviousEnabled x self = msg_send ~self ~cmd:(selector "setPreviousEnabled:") ~typ:(bool @-> returning (void)) x -let showAutoFillButton self = msg_send ~self ~cmd:(selector "showAutoFillButton") ~typ:(returning (void)) -let showAutoFillButtonWithTitle x self = msg_send ~self ~cmd:(selector "showAutoFillButtonWithTitle:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let autoFill x self = msg_send ~self ~cmd:(selector "autoFill:") ~typ:(id @-> returning void) x +let clear x self = msg_send ~self ~cmd:(selector "clear:") ~typ:(id @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let done_ x self = msg_send ~self ~cmd:(selector "done:") ~typ:(id @-> returning void) x +let hideAutoFillButton self = msg_send ~self ~cmd:(selector "hideAutoFillButton") ~typ:(returning void) +let initForUCB x self = msg_send ~self ~cmd:(selector "initForUCB:") ~typ:(id @-> returning void) x +let initWithInputAssistantItem x self = msg_send ~self ~cmd:(selector "initWithInputAssistantItem:") ~typ:(id @-> returning id) x +let isNextEnabled self = msg_send ~self ~cmd:(selector "isNextEnabled") ~typ:(returning bool) +let isPreviousEnabled self = msg_send ~self ~cmd:(selector "isPreviousEnabled") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setClearVisible x self = msg_send ~self ~cmd:(selector "setClearVisible:") ~typ:(bool @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setNextEnabled x self = msg_send ~self ~cmd:(selector "setNextEnabled:") ~typ:(bool @-> returning void) x +let setNextPreviousItemsVisible x self = msg_send ~self ~cmd:(selector "setNextPreviousItemsVisible:") ~typ:(bool @-> returning void) x +let setPreviousEnabled x self = msg_send ~self ~cmd:(selector "setPreviousEnabled:") ~typ:(bool @-> returning void) x +let showAutoFillButton self = msg_send ~self ~cmd:(selector "showAutoFillButton") ~typ:(returning void) +let showAutoFillButtonWithTitle x self = msg_send ~self ~cmd:(selector "showAutoFillButtonWithTitle:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWebFormAccessoryClass.ml b/uikit/UIWebFormAccessoryClass.ml new file mode 100644 index 00000000..f746bbfd --- /dev/null +++ b/uikit/UIWebFormAccessoryClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebformaccessory?language=objc}UIWebFormAccessory} *) + +let toolbarWithItems x self = msg_send ~self ~cmd:(selector "toolbarWithItems:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIWebFormDateTimePeripheral.ml b/uikit/UIWebFormDateTimePeripheral.ml deleted file mode 100644 index 276e61cf..00000000 --- a/uikit/UIWebFormDateTimePeripheral.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIWebFormDateTimePeripheral" - -module C = struct - let createPeripheralWithDOMHTMLInputElement x self = msg_send ~self ~cmd:(selector "createPeripheralWithDOMHTMLInputElement:") ~typ:(id @-> returning (id)) x -end - -let assistantView self = msg_send ~self ~cmd:(selector "assistantView") ~typ:(returning (id)) -let beginEditing self = msg_send ~self ~cmd:(selector "beginEditing") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let endEditing self = msg_send ~self ~cmd:(selector "endEditing") ~typ:(returning (void)) -let initWithDOMHTMLInputElement x self = msg_send ~self ~cmd:(selector "initWithDOMHTMLInputElement:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit/UIWebFormDelegate.ml b/uikit/UIWebFormDelegate.ml index 9921099a..dd43acef 100644 --- a/uikit/UIWebFormDelegate.ml +++ b/uikit/UIWebFormDelegate.ml @@ -5,20 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebFormDelegate" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebformdelegate?language=objc}UIWebFormDelegate} *) -let acceptedAutoFillWord x self = msg_send ~self ~cmd:(selector "acceptedAutoFillWord:") ~typ:(id @-> returning (void)) x -let dataSourceHasChangedForFrame x self = msg_send ~self ~cmd:(selector "dataSourceHasChangedForFrame:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didFocusTextField x ~inFrame self = msg_send ~self ~cmd:(selector "didFocusTextField:inFrame:") ~typ:(id @-> id @-> returning (void)) x inFrame -let formWasEdited self = msg_send ~self ~cmd:(selector "formWasEdited") ~typ:(returning (bool)) -let frame x ~sourceFrame ~willSubmitForm ~withValues ~submissionListener self = msg_send ~self ~cmd:(selector "frame:sourceFrame:willSubmitForm:withValues:submissionListener:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (void)) x sourceFrame willSubmitForm withValues submissionListener -let hasCurrentSuggestions self = msg_send ~self ~cmd:(selector "hasCurrentSuggestions") ~typ:(returning (bool)) -let initWithWebBrowserView x self = msg_send ~self ~cmd:(selector "initWithWebBrowserView:") ~typ:(id @-> returning (id)) x -let textDidChangeInTextArea x ~inFrame self = msg_send ~self ~cmd:(selector "textDidChangeInTextArea:inFrame:") ~typ:(id @-> id @-> returning (void)) x inFrame -let textDidChangeInTextField x ~inFrame self = msg_send ~self ~cmd:(selector "textDidChangeInTextField:inFrame:") ~typ:(id @-> id @-> returning (void)) x inFrame -let textField x ~doCommandBySelector ~inFrame self = msg_send ~self ~cmd:(selector "textField:doCommandBySelector:inFrame:") ~typ:(id @-> _SEL @-> id @-> returning (bool)) x doCommandBySelector inFrame -let textFieldDidBeginEditing x ~inFrame self = msg_send ~self ~cmd:(selector "textFieldDidBeginEditing:inFrame:") ~typ:(id @-> id @-> returning (void)) x inFrame -let textFieldDidEndEditing x ~inFrame self = msg_send ~self ~cmd:(selector "textFieldDidEndEditing:inFrame:") ~typ:(id @-> id @-> returning (void)) x inFrame -let willSendSubmitEventToForm x ~inFrame ~withValues self = msg_send ~self ~cmd:(selector "willSendSubmitEventToForm:inFrame:withValues:") ~typ:(id @-> id @-> id @-> returning (void)) x inFrame withValues \ No newline at end of file +let self = get_class "UIWebFormDelegate" + +let acceptedAutoFillWord x self = msg_send ~self ~cmd:(selector "acceptedAutoFillWord:") ~typ:(id @-> returning void) x +let dataSourceHasChangedForFrame x self = msg_send ~self ~cmd:(selector "dataSourceHasChangedForFrame:") ~typ:(id @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didFocusTextField x ~inFrame self = msg_send ~self ~cmd:(selector "didFocusTextField:inFrame:") ~typ:(id @-> id @-> returning void) x inFrame +let formWasEdited self = msg_send ~self ~cmd:(selector "formWasEdited") ~typ:(returning bool) +let frame x ~sourceFrame ~willSubmitForm ~withValues ~submissionListener self = msg_send ~self ~cmd:(selector "frame:sourceFrame:willSubmitForm:withValues:submissionListener:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning void) x sourceFrame willSubmitForm withValues submissionListener +let hasCurrentSuggestions self = msg_send ~self ~cmd:(selector "hasCurrentSuggestions") ~typ:(returning bool) +let initWithWebBrowserView x self = msg_send ~self ~cmd:(selector "initWithWebBrowserView:") ~typ:(id @-> returning id) x +let suggestionsForString x ~inputIndex self = msg_send ~self ~cmd:(selector "suggestionsForString:inputIndex:") ~typ:(id @-> uint @-> returning void) x inputIndex +let textDidChangeInTextArea x ~inFrame self = msg_send ~self ~cmd:(selector "textDidChangeInTextArea:inFrame:") ~typ:(id @-> id @-> returning void) x inFrame +let textDidChangeInTextField x ~inFrame self = msg_send ~self ~cmd:(selector "textDidChangeInTextField:inFrame:") ~typ:(id @-> id @-> returning void) x inFrame +let textField x ~doCommandBySelector ~inFrame self = msg_send ~self ~cmd:(selector "textField:doCommandBySelector:inFrame:") ~typ:(id @-> _SEL @-> id @-> returning bool) x doCommandBySelector inFrame +let textFieldDidBeginEditing x ~inFrame self = msg_send ~self ~cmd:(selector "textFieldDidBeginEditing:inFrame:") ~typ:(id @-> id @-> returning void) x inFrame +let textFieldDidEndEditing x ~inFrame self = msg_send ~self ~cmd:(selector "textFieldDidEndEditing:inFrame:") ~typ:(id @-> id @-> returning void) x inFrame +let willSendSubmitEventToForm x ~inFrame ~withValues self = msg_send ~self ~cmd:(selector "willSendSubmitEventToForm:inFrame:withValues:") ~typ:(id @-> id @-> id @-> returning void) x inFrame withValues \ No newline at end of file diff --git a/uikit/UIWebFormRotatingAccessoryPopover.ml b/uikit/UIWebFormRotatingAccessoryPopover.ml deleted file mode 100644 index e8e9dd46..00000000 --- a/uikit/UIWebFormRotatingAccessoryPopover.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIWebFormRotatingAccessoryPopover" - -let accessoryDone self = msg_send ~self ~cmd:(selector "accessoryDone") ~typ:(returning (void)) -let initWithDOMNode x self = msg_send ~self ~cmd:(selector "initWithDOMNode:") ~typ:(id @-> returning (id)) x -let popoverArrowDirections self = msg_send ~self ~cmd:(selector "popoverArrowDirections") ~typ:(returning (ullong)) -let popoverWasDismissed x self = msg_send ~self ~cmd:(selector "popoverWasDismissed:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit/UIWebFormSelectPeripheral.ml b/uikit/UIWebFormSelectPeripheral.ml index 03e19b94..17bb32bc 100644 --- a/uikit/UIWebFormSelectPeripheral.ml +++ b/uikit/UIWebFormSelectPeripheral.ml @@ -5,15 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebFormSelectPeripheral" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebformselectperipheral?language=objc}UIWebFormSelectPeripheral} *) -module C = struct - let createPeripheralWithDOMHTMLSelectElement x self = msg_send ~self ~cmd:(selector "createPeripheralWithDOMHTMLSelectElement:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIWebFormSelectPeripheral" -let assistantView self = msg_send ~self ~cmd:(selector "assistantView") ~typ:(returning (id)) -let beginEditing self = msg_send ~self ~cmd:(selector "beginEditing") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let endEditing self = msg_send ~self ~cmd:(selector "endEditing") ~typ:(returning (void)) -let initWithDOMHTMLSelectElement x self = msg_send ~self ~cmd:(selector "initWithDOMHTMLSelectElement:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let assistantView self = msg_send ~self ~cmd:(selector "assistantView") ~typ:(returning id) +let beginEditing self = msg_send ~self ~cmd:(selector "beginEditing") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let endEditing self = msg_send ~self ~cmd:(selector "endEditing") ~typ:(returning void) +let initWithDOMHTMLSelectElement x self = msg_send ~self ~cmd:(selector "initWithDOMHTMLSelectElement:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIWebFormSelectPeripheralClass.ml b/uikit/UIWebFormSelectPeripheralClass.ml new file mode 100644 index 00000000..e7482797 --- /dev/null +++ b/uikit/UIWebFormSelectPeripheralClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebformselectperipheral?language=objc}UIWebFormSelectPeripheral} *) + +let createPeripheralWithDOMHTMLSelectElement x self = msg_send ~self ~cmd:(selector "createPeripheralWithDOMHTMLSelectElement:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIWebGeolocationPolicyDecider.ml b/uikit/UIWebGeolocationPolicyDecider.ml index 454f1457..6c76f6bf 100644 --- a/uikit/UIWebGeolocationPolicyDecider.ml +++ b/uikit/UIWebGeolocationPolicyDecider.ml @@ -5,23 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebGeolocationPolicyDecider" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebgeolocationpolicydecider?language=objc}UIWebGeolocationPolicyDecider} *) -module C = struct - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let sharedPolicyDecider self = msg_send ~self ~cmd:(selector "sharedPolicyDecider") ~typ:(returning (id)) -end +let self = get_class "UIWebGeolocationPolicyDecider" -let clearAllCaches self = msg_send ~self ~cmd:(selector "clearAllCaches") ~typ:(returning (void)) -let clearAuthorizationsAddedBetween x ~and_ self = msg_send ~self ~cmd:(selector "clearAuthorizationsAddedBetween:and:") ~typ:(id @-> id @-> returning (void)) x and_ -let clearCache self = msg_send ~self ~cmd:(selector "clearCache") ~typ:(returning (void)) -let clearSafariCache self = msg_send ~self ~cmd:(selector "clearSafariCache") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let decidePolicyForGeolocationRequestFromOrigin x ~requestingURL ~view ~listener self = msg_send ~self ~cmd:(selector "decidePolicyForGeolocationRequestFromOrigin:requestingURL:view:listener:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x requestingURL view listener -let decidePolicyForGeolocationRequestFromOrigin' x ~requestingURL ~window ~listener self = msg_send ~self ~cmd:(selector "decidePolicyForGeolocationRequestFromOrigin:requestingURL:window:listener:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x requestingURL window listener -let didAuthorizeGeolocationForPromptInfo x self = msg_send ~self ~cmd:(selector "didAuthorizeGeolocationForPromptInfo:") ~typ:(id @-> returning (void)) x -let didDenyGeolocationForPromptInfo x self = msg_send ~self ~cmd:(selector "didDenyGeolocationForPromptInfo:") ~typ:(id @-> returning (void)) x -let getAuthorizationStatusForOrigin x ~requestingURL ~promptInfo self = msg_send ~self ~cmd:(selector "getAuthorizationStatusForOrigin:requestingURL:promptInfo:") ~typ:(id @-> id @-> ptr (id) @-> returning (bool)) x requestingURL promptInfo -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let webView x ~decidePolicyForGeolocationRequestFromOrigin ~frame ~listener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForGeolocationRequestFromOrigin:frame:listener:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x decidePolicyForGeolocationRequestFromOrigin frame listener \ No newline at end of file +let clearAllCaches self = msg_send ~self ~cmd:(selector "clearAllCaches") ~typ:(returning void) +let clearAuthorizationsAddedBetween x ~and_ self = msg_send ~self ~cmd:(selector "clearAuthorizationsAddedBetween:and:") ~typ:(id @-> id @-> returning void) x and_ +let clearCache self = msg_send ~self ~cmd:(selector "clearCache") ~typ:(returning void) +let clearSafariCache self = msg_send ~self ~cmd:(selector "clearSafariCache") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let decidePolicyForGeolocationRequestFromOrigin x ~requestingURL ~view ~listener self = msg_send ~self ~cmd:(selector "decidePolicyForGeolocationRequestFromOrigin:requestingURL:view:listener:") ~typ:(id @-> id @-> id @-> id @-> returning void) x requestingURL view listener +let decidePolicyForGeolocationRequestFromOrigin' x ~requestingURL ~window ~listener self = msg_send ~self ~cmd:(selector "decidePolicyForGeolocationRequestFromOrigin:requestingURL:window:listener:") ~typ:(id @-> id @-> id @-> id @-> returning void) x requestingURL window listener +let didAuthorizeGeolocationForPromptInfo x self = msg_send ~self ~cmd:(selector "didAuthorizeGeolocationForPromptInfo:") ~typ:(id @-> returning void) x +let didDenyGeolocationForPromptInfo x self = msg_send ~self ~cmd:(selector "didDenyGeolocationForPromptInfo:") ~typ:(id @-> returning void) x +let getAuthorizationStatusForOrigin x ~requestingURL ~promptInfo self = msg_send ~self ~cmd:(selector "getAuthorizationStatusForOrigin:requestingURL:promptInfo:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x requestingURL promptInfo +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let webView x ~decidePolicyForGeolocationRequestFromOrigin ~frame ~listener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForGeolocationRequestFromOrigin:frame:listener:") ~typ:(id @-> id @-> id @-> id @-> returning void) x decidePolicyForGeolocationRequestFromOrigin frame listener \ No newline at end of file diff --git a/uikit/UIWebGeolocationPolicyDeciderClass.ml b/uikit/UIWebGeolocationPolicyDeciderClass.ml new file mode 100644 index 00000000..8b445f10 --- /dev/null +++ b/uikit/UIWebGeolocationPolicyDeciderClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebgeolocationpolicydecider?language=objc}UIWebGeolocationPolicyDecider} *) + +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) +let sharedPolicyDecider self = msg_send ~self ~cmd:(selector "sharedPolicyDecider") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIWebLayer.ml b/uikit/UIWebLayer.ml index 94f2d8bb..89d08b59 100644 --- a/uikit/UIWebLayer.ml +++ b/uikit/UIWebLayer.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebLayer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiweblayer?language=objc}UIWebLayer} *) -let setLayoutsSuspended x self = msg_send ~self ~cmd:(selector "setLayoutsSuspended:") ~typ:(bool @-> returning (void)) x -let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIWebLayer" + +let setLayoutsSuspended x self = msg_send ~self ~cmd:(selector "setLayoutsSuspended:") ~typ:(bool @-> returning void) x +let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIWebOptGroup.ml b/uikit/UIWebOptGroup.ml index f8ea8996..4c86d48b 100644 --- a/uikit/UIWebOptGroup.ml +++ b/uikit/UIWebOptGroup.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebOptGroup" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiweboptgroup?language=objc}UIWebOptGroup} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let group self = msg_send ~self ~cmd:(selector "group") ~typ:(returning (id)) -let initWithGroup x ~itemOffset self = msg_send ~self ~cmd:(selector "initWithGroup:itemOffset:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int itemOffset) -let offset self = msg_send ~self ~cmd:(selector "offset") ~typ:(returning (llong)) -let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning (id)) -let setGroup x self = msg_send ~self ~cmd:(selector "setGroup:") ~typ:(id @-> returning (void)) x -let setOptions x self = msg_send ~self ~cmd:(selector "setOptions:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIWebOptGroup" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let group self = msg_send ~self ~cmd:(selector "group") ~typ:(returning id) +let initWithGroup x ~itemOffset self = msg_send ~self ~cmd:(selector "initWithGroup:itemOffset:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int itemOffset) +let offset self = msg_send ~self ~cmd:(selector "offset") ~typ:(returning llong) +let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning id) +let setGroup x self = msg_send ~self ~cmd:(selector "setGroup:") ~typ:(id @-> returning void) x +let setOptions x self = msg_send ~self ~cmd:(selector "setOptions:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWebOverflowContentView.ml b/uikit/UIWebOverflowContentView.ml index 8c7e1616..04b6c8ca 100644 --- a/uikit/UIWebOverflowContentView.ml +++ b/uikit/UIWebOverflowContentView.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebOverflowContentView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiweboverflowcontentview?language=objc}UIWebOverflowContentView} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let fixUpViewAfterInsertion self = msg_send ~self ~cmd:(selector "fixUpViewAfterInsertion") ~typ:(returning (void)) -let initWithLayer x self = msg_send ~self ~cmd:(selector "initWithLayer:") ~typ:(id @-> returning (id)) x -let replaceLayer x self = msg_send ~self ~cmd:(selector "replaceLayer:") ~typ:(id @-> returning (void)) x -let setWebLayer x self = msg_send ~self ~cmd:(selector "setWebLayer:") ~typ:(id @-> returning (void)) x -let superview self = msg_send ~self ~cmd:(selector "superview") ~typ:(returning (id)) -let webLayer self = msg_send ~self ~cmd:(selector "webLayer") ~typ:(returning (id)) -let willBeRemoved self = msg_send ~self ~cmd:(selector "willBeRemoved") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIWebOverflowContentView" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let fixUpViewAfterInsertion self = msg_send ~self ~cmd:(selector "fixUpViewAfterInsertion") ~typ:(returning void) +let initWithLayer x self = msg_send ~self ~cmd:(selector "initWithLayer:") ~typ:(id @-> returning id) x +let replaceLayer x self = msg_send ~self ~cmd:(selector "replaceLayer:") ~typ:(id @-> returning void) x +let setWebLayer x self = msg_send ~self ~cmd:(selector "setWebLayer:") ~typ:(id @-> returning void) x +let superview self = msg_send ~self ~cmd:(selector "superview") ~typ:(returning id) +let webLayer self = msg_send ~self ~cmd:(selector "webLayer") ~typ:(returning id) +let willBeRemoved self = msg_send ~self ~cmd:(selector "willBeRemoved") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIWebOverflowScrollInfo.ml b/uikit/UIWebOverflowScrollInfo.ml index 5355c364..f4348192 100644 --- a/uikit/UIWebOverflowScrollInfo.ml +++ b/uikit/UIWebOverflowScrollInfo.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebOverflowScrollInfo" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiweboverflowscrollinfo?language=objc}UIWebOverflowScrollInfo} *) -let coalesceScrollForNode x ~offset ~isUserScroll self = msg_send ~self ~cmd:(selector "coalesceScrollForNode:offset:isUserScroll:") ~typ:(id @-> CGPoint.t @-> bool @-> returning (bool)) x offset isUserScroll -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithNode x ~offset ~isUserScroll self = msg_send ~self ~cmd:(selector "initWithNode:offset:isUserScroll:") ~typ:(id @-> CGPoint.t @-> bool @-> returning (id)) x offset isUserScroll -let isUserScroll self = msg_send ~self ~cmd:(selector "isUserScroll") ~typ:(returning (bool)) -let node self = msg_send ~self ~cmd:(selector "node") ~typ:(returning (id)) -let offset self = msg_send_stret ~self ~cmd:(selector "offset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let setIsUserScroll x self = msg_send ~self ~cmd:(selector "setIsUserScroll:") ~typ:(bool @-> returning (void)) x -let setNode x self = msg_send ~self ~cmd:(selector "setNode:") ~typ:(id @-> returning (void)) x -let setOffset x self = msg_send ~self ~cmd:(selector "setOffset:") ~typ:(CGPoint.t @-> returning (void)) x \ No newline at end of file +let self = get_class "UIWebOverflowScrollInfo" + +let coalesceScrollForNode x ~offset ~isUserScroll self = msg_send ~self ~cmd:(selector "coalesceScrollForNode:offset:isUserScroll:") ~typ:(id @-> CGPoint.t @-> bool @-> returning bool) x offset isUserScroll +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithNode x ~offset ~isUserScroll self = msg_send ~self ~cmd:(selector "initWithNode:offset:isUserScroll:") ~typ:(id @-> CGPoint.t @-> bool @-> returning id) x offset isUserScroll +let isUserScroll self = msg_send ~self ~cmd:(selector "isUserScroll") ~typ:(returning bool) +let node self = msg_send ~self ~cmd:(selector "node") ~typ:(returning id) +let offset self = msg_send ~self ~cmd:(selector "offset") ~typ:(returning CGPoint.t) +let setIsUserScroll x self = msg_send ~self ~cmd:(selector "setIsUserScroll:") ~typ:(bool @-> returning void) x +let setNode x self = msg_send ~self ~cmd:(selector "setNode:") ~typ:(id @-> returning void) x +let setOffset x self = msg_send ~self ~cmd:(selector "setOffset:") ~typ:(CGPoint.t @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWebOverflowScrollListener.ml b/uikit/UIWebOverflowScrollListener.ml index 484a24c5..07a856f9 100644 --- a/uikit/UIWebOverflowScrollListener.ml +++ b/uikit/UIWebOverflowScrollListener.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebOverflowScrollListener" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiweboverflowscrolllistener?language=objc}UIWebOverflowScrollListener} *) -let initWithScrollView x self = msg_send ~self ~cmd:(selector "initWithScrollView:") ~typ:(id @-> returning (id)) x -let scrollViewDidEndDecelerating x self = msg_send ~self ~cmd:(selector "scrollViewDidEndDecelerating:") ~typ:(id @-> returning (void)) x -let scrollViewDidEndDragging x ~willDecelerate self = msg_send ~self ~cmd:(selector "scrollViewDidEndDragging:willDecelerate:") ~typ:(id @-> bool @-> returning (void)) x willDecelerate -let scrollViewDidScrollToTop x self = msg_send ~self ~cmd:(selector "scrollViewDidScrollToTop:") ~typ:(id @-> returning (void)) x -let scrollViewWillBeginDragging x self = msg_send ~self ~cmd:(selector "scrollViewWillBeginDragging:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIWebOverflowScrollListener" + +let initWithScrollView x self = msg_send ~self ~cmd:(selector "initWithScrollView:") ~typ:(id @-> returning id) x +let scrollViewDidEndDecelerating x self = msg_send ~self ~cmd:(selector "scrollViewDidEndDecelerating:") ~typ:(id @-> returning void) x +let scrollViewDidEndDragging x ~willDecelerate self = msg_send ~self ~cmd:(selector "scrollViewDidEndDragging:willDecelerate:") ~typ:(id @-> bool @-> returning void) x willDecelerate +let scrollViewDidScrollToTop x self = msg_send ~self ~cmd:(selector "scrollViewDidScrollToTop:") ~typ:(id @-> returning void) x +let scrollViewWillBeginDragging x self = msg_send ~self ~cmd:(selector "scrollViewWillBeginDragging:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWebOverflowScrollView.ml b/uikit/UIWebOverflowScrollView.ml index 2cc2ccfc..232f62e7 100644 --- a/uikit/UIWebOverflowScrollView.ml +++ b/uikit/UIWebOverflowScrollView.ml @@ -5,25 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebOverflowScrollView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiweboverflowscrollview?language=objc}UIWebOverflowScrollView} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let fixUpViewAfterInsertion self = msg_send ~self ~cmd:(selector "fixUpViewAfterInsertion") ~typ:(returning (bool)) -let initWithLayer x ~node ~webBrowserView self = msg_send ~self ~cmd:(selector "initWithLayer:node:webBrowserView:") ~typ:(id @-> id @-> id @-> returning (id)) x node webBrowserView -let isBeingRemoved self = msg_send ~self ~cmd:(selector "isBeingRemoved") ~typ:(returning (bool)) -let node self = msg_send ~self ~cmd:(selector "node") ~typ:(returning (id)) -let overflowContentView self = msg_send ~self ~cmd:(selector "overflowContentView") ~typ:(returning (id)) -let replaceLayer x self = msg_send ~self ~cmd:(selector "replaceLayer:") ~typ:(id @-> returning (void)) x -let scrollListener self = msg_send ~self ~cmd:(selector "scrollListener") ~typ:(returning (id)) -let setBeingRemoved x self = msg_send ~self ~cmd:(selector "setBeingRemoved:") ~typ:(bool @-> returning (void)) x -let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let setNode x self = msg_send ~self ~cmd:(selector "setNode:") ~typ:(id @-> returning (void)) x -let setOverflowContentView x self = msg_send ~self ~cmd:(selector "setOverflowContentView:") ~typ:(id @-> returning (void)) x -let setScrollListener x self = msg_send ~self ~cmd:(selector "setScrollListener:") ~typ:(id @-> returning (void)) x -let setWebBrowserView x self = msg_send ~self ~cmd:(selector "setWebBrowserView:") ~typ:(id @-> returning (void)) x -let setWebLayer x self = msg_send ~self ~cmd:(selector "setWebLayer:") ~typ:(id @-> returning (void)) x -let superview self = msg_send ~self ~cmd:(selector "superview") ~typ:(returning (id)) -let webBrowserView self = msg_send ~self ~cmd:(selector "webBrowserView") ~typ:(returning (id)) -let webLayer self = msg_send ~self ~cmd:(selector "webLayer") ~typ:(returning (id)) -let willBeRemoved self = msg_send ~self ~cmd:(selector "willBeRemoved") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIWebOverflowScrollView" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let fixUpViewAfterInsertion self = msg_send ~self ~cmd:(selector "fixUpViewAfterInsertion") ~typ:(returning bool) +let initWithLayer x ~node ~webBrowserView self = msg_send ~self ~cmd:(selector "initWithLayer:node:webBrowserView:") ~typ:(id @-> id @-> id @-> returning id) x node webBrowserView +let isBeingRemoved self = msg_send ~self ~cmd:(selector "isBeingRemoved") ~typ:(returning bool) +let node self = msg_send ~self ~cmd:(selector "node") ~typ:(returning id) +let overflowContentView self = msg_send ~self ~cmd:(selector "overflowContentView") ~typ:(returning id) +let replaceLayer x self = msg_send ~self ~cmd:(selector "replaceLayer:") ~typ:(id @-> returning void) x +let scrollListener self = msg_send ~self ~cmd:(selector "scrollListener") ~typ:(returning id) +let setBeingRemoved x self = msg_send ~self ~cmd:(selector "setBeingRemoved:") ~typ:(bool @-> returning void) x +let setContentOffset x self = msg_send ~self ~cmd:(selector "setContentOffset:") ~typ:(CGPoint.t @-> returning void) x +let setNode x self = msg_send ~self ~cmd:(selector "setNode:") ~typ:(id @-> returning void) x +let setOverflowContentView x self = msg_send ~self ~cmd:(selector "setOverflowContentView:") ~typ:(id @-> returning void) x +let setScrollListener x self = msg_send ~self ~cmd:(selector "setScrollListener:") ~typ:(id @-> returning void) x +let setWebBrowserView x self = msg_send ~self ~cmd:(selector "setWebBrowserView:") ~typ:(id @-> returning void) x +let setWebLayer x self = msg_send ~self ~cmd:(selector "setWebLayer:") ~typ:(id @-> returning void) x +let superview self = msg_send ~self ~cmd:(selector "superview") ~typ:(returning id) +let webBrowserView self = msg_send ~self ~cmd:(selector "webBrowserView") ~typ:(returning id) +let webLayer self = msg_send ~self ~cmd:(selector "webLayer") ~typ:(returning id) +let willBeRemoved self = msg_send ~self ~cmd:(selector "willBeRemoved") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIWebOverflowScrollViewInfo.ml b/uikit/UIWebOverflowScrollViewInfo.ml index 1886193f..742c07ba 100644 --- a/uikit/UIWebOverflowScrollViewInfo.ml +++ b/uikit/UIWebOverflowScrollViewInfo.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebOverflowScrollViewInfo" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiweboverflowscrollviewinfo?language=objc}UIWebOverflowScrollViewInfo} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithScrollView x self = msg_send ~self ~cmd:(selector "initWithScrollView:") ~typ:(id @-> returning (id)) x -let oldSuperview self = msg_send ~self ~cmd:(selector "oldSuperview") ~typ:(returning (id)) -let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning (id)) -let setOldSuperview x self = msg_send ~self ~cmd:(selector "setOldSuperview:") ~typ:(id @-> returning (void)) x -let setScrollView x self = msg_send ~self ~cmd:(selector "setScrollView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIWebOverflowScrollViewInfo" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithScrollView x self = msg_send ~self ~cmd:(selector "initWithScrollView:") ~typ:(id @-> returning id) x +let oldSuperview self = msg_send ~self ~cmd:(selector "oldSuperview") ~typ:(returning id) +let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning id) +let setOldSuperview x self = msg_send ~self ~cmd:(selector "setOldSuperview:") ~typ:(id @-> returning void) x +let setScrollView x self = msg_send ~self ~cmd:(selector "setScrollView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWebPDFLabelView.ml b/uikit/UIWebPDFLabelView.ml new file mode 100644 index 00000000..929f9915 --- /dev/null +++ b/uikit/UIWebPDFLabelView.ml @@ -0,0 +1,24 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebpdflabelview?language=objc}UIWebPDFLabelView} *) + +let self = get_class "UIWebPDFLabelView" + +let clearTimer self = msg_send ~self ~cmd:(selector "clearTimer") ~typ:(returning void) +let currentPageIndex self = msg_send ~self ~cmd:(selector "currentPageIndex") ~typ:(returning ullong) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let fadeOut self = msg_send ~self ~cmd:(selector "fadeOut") ~typ:(returning void) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isTimerInstalled self = msg_send ~self ~cmd:(selector "isTimerInstalled") ~typ:(returning bool) +let setCurrentPageIndex x self = msg_send ~self ~cmd:(selector "setCurrentPageIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let showNowInSuperView x ~atOrigin ~withText ~animated self = msg_send ~self ~cmd:(selector "showNowInSuperView:atOrigin:withText:animated:") ~typ:(id @-> CGPoint.t @-> id @-> bool @-> returning void) x atOrigin withText animated +let sizeToFit self = msg_send ~self ~cmd:(selector "sizeToFit") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIWebPDFLinkAction.ml b/uikit/UIWebPDFLinkAction.ml new file mode 100644 index 00000000..5f8c6b61 --- /dev/null +++ b/uikit/UIWebPDFLinkAction.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebpdflinkaction?language=objc}UIWebPDFLinkAction} *) + +let self = get_class "UIWebPDFLinkAction" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let handler self = msg_send ~self ~cmd:(selector "handler") ~typ:(returning (ptr void)) +let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:((ptr void) @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(int @-> returning void) x +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning int) \ No newline at end of file diff --git a/uikit/UIWebPDFSearchController.ml b/uikit/UIWebPDFSearchController.ml new file mode 100644 index 00000000..6a8815a5 --- /dev/null +++ b/uikit/UIWebPDFSearchController.ml @@ -0,0 +1,42 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebpdfsearchcontroller?language=objc}UIWebPDFSearchController} *) + +let self = get_class "UIWebPDFSearchController" + +let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let documentScale self = msg_send ~self ~cmd:(selector "documentScale") ~typ:(returning double) +let documentToSearch self = msg_send ~self ~cmd:(selector "documentToSearch") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let pause self = msg_send ~self ~cmd:(selector "pause") ~typ:(returning void) +let paused self = msg_send ~self ~cmd:(selector "paused") ~typ:(returning bool) +let resultLimit self = msg_send ~self ~cmd:(selector "resultLimit") ~typ:(returning ullong) +let results self = msg_send ~self ~cmd:(selector "results") ~typ:(returning id) +let resume self = msg_send ~self ~cmd:(selector "resume") ~typ:(returning void) +let search x self = msg_send ~self ~cmd:(selector "search:") ~typ:(id @-> returning void) x +let search' x ~hasPartialResults self = msg_send ~self ~cmd:(selector "search:hasPartialResults:") ~typ:(id @-> id @-> returning void) x hasPartialResults +let searchDelegate self = msg_send ~self ~cmd:(selector "searchDelegate") ~typ:(returning id) +let searchDidBegin x self = msg_send ~self ~cmd:(selector "searchDidBegin:") ~typ:(id @-> returning void) x +let searchDidFinish x self = msg_send ~self ~cmd:(selector "searchDidFinish:") ~typ:(id @-> returning void) x +let searchDidTimeOut x self = msg_send ~self ~cmd:(selector "searchDidTimeOut:") ~typ:(id @-> returning void) x +let searchLimitHit x self = msg_send ~self ~cmd:(selector "searchLimitHit:") ~typ:(id @-> returning void) x +let searchString self = msg_send ~self ~cmd:(selector "searchString") ~typ:(returning id) +let searchWasCancelled x self = msg_send ~self ~cmd:(selector "searchWasCancelled:") ~typ:(id @-> returning void) x +let searching self = msg_send ~self ~cmd:(selector "searching") ~typ:(returning bool) +let setDocumentScale x self = msg_send ~self ~cmd:(selector "setDocumentScale:") ~typ:(double @-> returning void) x +let setDocumentToSearch x self = msg_send ~self ~cmd:(selector "setDocumentToSearch:") ~typ:(id @-> returning void) x +let setResultLimit x self = msg_send ~self ~cmd:(selector "setResultLimit:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setResults x self = msg_send ~self ~cmd:(selector "setResults:") ~typ:(id @-> returning void) x +let setSearchDelegate x self = msg_send ~self ~cmd:(selector "setSearchDelegate:") ~typ:(id @-> returning void) x +let setSearchString x self = msg_send ~self ~cmd:(selector "setSearchString:") ~typ:(id @-> returning void) x +let setStartingPageIndex x self = msg_send ~self ~cmd:(selector "setStartingPageIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let startingPageIndex self = msg_send ~self ~cmd:(selector "startingPageIndex") ~typ:(returning ullong) \ No newline at end of file diff --git a/uikit/UIWebPDFSearchOperation.ml b/uikit/UIWebPDFSearchOperation.ml new file mode 100644 index 00000000..2b96bb9f --- /dev/null +++ b/uikit/UIWebPDFSearchOperation.ml @@ -0,0 +1,35 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebpdfsearchoperation?language=objc}UIWebPDFSearchOperation} *) + +let self = get_class "UIWebPDFSearchOperation" + +let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning void) +let currentPageIndex self = msg_send ~self ~cmd:(selector "currentPageIndex") ~typ:(returning ullong) +let currentPageResultCount self = msg_send ~self ~cmd:(selector "currentPageResultCount") ~typ:(returning ullong) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let documentScale self = msg_send ~self ~cmd:(selector "documentScale") ~typ:(returning double) +let documentToSearch self = msg_send ~self ~cmd:(selector "documentToSearch") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let main self = msg_send ~self ~cmd:(selector "main") ~typ:(returning void) +let numberOfResultsToSkip self = msg_send ~self ~cmd:(selector "numberOfResultsToSkip") ~typ:(returning ullong) +let resultLimit self = msg_send ~self ~cmd:(selector "resultLimit") ~typ:(returning ullong) +let sanitizedAttributedStringForAttributedString x self = msg_send ~self ~cmd:(selector "sanitizedAttributedStringForAttributedString:") ~typ:(id @-> returning id) x +let searchDelegate self = msg_send ~self ~cmd:(selector "searchDelegate") ~typ:(returning id) +let searchString self = msg_send ~self ~cmd:(selector "searchString") ~typ:(returning id) +let setDocumentScale x self = msg_send ~self ~cmd:(selector "setDocumentScale:") ~typ:(double @-> returning void) x +let setDocumentToSearch x self = msg_send ~self ~cmd:(selector "setDocumentToSearch:") ~typ:(id @-> returning void) x +let setNumberOfResultsToSkip x self = msg_send ~self ~cmd:(selector "setNumberOfResultsToSkip:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setResultLimit x self = msg_send ~self ~cmd:(selector "setResultLimit:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setSearchDelegate x self = msg_send ~self ~cmd:(selector "setSearchDelegate:") ~typ:(id @-> returning void) x +let setSearchString x self = msg_send ~self ~cmd:(selector "setSearchString:") ~typ:(id @-> returning void) x +let setStartingPageIndex x self = msg_send ~self ~cmd:(selector "setStartingPageIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let startingPageIndex self = msg_send ~self ~cmd:(selector "startingPageIndex") ~typ:(returning ullong) \ No newline at end of file diff --git a/uikit/UIWebPDFSearchResult.ml b/uikit/UIWebPDFSearchResult.ml new file mode 100644 index 00000000..383f9859 --- /dev/null +++ b/uikit/UIWebPDFSearchResult.ml @@ -0,0 +1,27 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebpdfsearchresult?language=objc}UIWebPDFSearchResult} *) + +let self = get_class "UIWebPDFSearchResult" + +let boundingBox self = msg_send ~self ~cmd:(selector "boundingBox") ~typ:(returning CGRect.t) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let pageIndex self = msg_send ~self ~cmd:(selector "pageIndex") ~typ:(returning ullong) +let rects self = msg_send ~self ~cmd:(selector "rects") ~typ:(returning id) +let rotationAngles self = msg_send ~self ~cmd:(selector "rotationAngles") ~typ:(returning id) +let setBoundingBox x self = msg_send ~self ~cmd:(selector "setBoundingBox:") ~typ:(CGRect.t @-> returning void) x +let setPageIndex x self = msg_send ~self ~cmd:(selector "setPageIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setRects x self = msg_send ~self ~cmd:(selector "setRects:") ~typ:(id @-> returning void) x +let setRotationAngles x self = msg_send ~self ~cmd:(selector "setRotationAngles:") ~typ:(id @-> returning void) x +let setString x self = msg_send ~self ~cmd:(selector "setString:") ~typ:(id @-> returning void) x +let setStrings x self = msg_send ~self ~cmd:(selector "setStrings:") ~typ:(id @-> returning void) x +let string_ self = msg_send ~self ~cmd:(selector "string") ~typ:(returning id) +let strings self = msg_send ~self ~cmd:(selector "strings") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIWebPDFView.ml b/uikit/UIWebPDFView.ml new file mode 100644 index 00000000..cafcc98e --- /dev/null +++ b/uikit/UIWebPDFView.ml @@ -0,0 +1,72 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebpdfview?language=objc}UIWebPDFView} *) + +let self = get_class "UIWebPDFView" + +let annotation x ~isBeingPressedAtPoint ~controller self = msg_send ~self ~cmd:(selector "annotation:isBeingPressedAtPoint:controller:") ~typ:(id @-> CGPoint.t @-> id @-> returning void) x isBeingPressedAtPoint controller +let annotation' x ~wasTouchedAtPoint ~controller self = msg_send ~self ~cmd:(selector "annotation:wasTouchedAtPoint:controller:") ~typ:(id @-> CGPoint.t @-> id @-> returning void) x wasTouchedAtPoint controller +let backgroundColorForUnRenderedContent self = msg_send ~self ~cmd:(selector "backgroundColorForUnRenderedContent") ~typ:(returning id) +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let cgPDFDocument self = msg_send ~self ~cmd:(selector "cgPDFDocument") ~typ:(returning (ptr CGPDFDocument.t)) +let clearSelection self = msg_send ~self ~cmd:(selector "clearSelection") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didCompleteLayout self = msg_send ~self ~cmd:(selector "didCompleteLayout") ~typ:(returning void) +let didReceiveMemoryWarning x self = msg_send ~self ~cmd:(selector "didReceiveMemoryWarning:") ~typ:(id @-> returning void) x +let didRotate x self = msg_send ~self ~cmd:(selector "didRotate:") ~typ:(id @-> returning void) x +let didZoom x self = msg_send ~self ~cmd:(selector "didZoom:") ~typ:(id @-> returning void) x +let document self = msg_send ~self ~cmd:(selector "document") ~typ:(returning id) +let documentBounds self = msg_send ~self ~cmd:(selector "documentBounds") ~typ:(returning CGRect.t) +let documentData self = msg_send ~self ~cmd:(selector "documentData") ~typ:(returning id) +let documentPassword self = msg_send ~self ~cmd:(selector "documentPassword") ~typ:(returning id) +let documentScale self = msg_send ~self ~cmd:(selector "documentScale") ~typ:(returning double) +let documentTransform self = msg_send ~self ~cmd:(selector "documentTransform") ~typ:(returning CGAffineTransform.t) +let documentURL self = msg_send ~self ~cmd:(selector "documentURL") ~typ:(returning id) +let ensureCorrectPagesAreInstalled x self = msg_send ~self ~cmd:(selector "ensureCorrectPagesAreInstalled:") ~typ:(bool @-> returning void) x +let firstVisiblePageNumber self = msg_send ~self ~cmd:(selector "firstVisiblePageNumber") ~typ:(returning ullong) +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let hideActivityIndicatorForUnRenderedContent self = msg_send ~self ~cmd:(selector "hideActivityIndicatorForUnRenderedContent") ~typ:(returning bool) +let hidePageViewsUntilReadyToRender self = msg_send ~self ~cmd:(selector "hidePageViewsUntilReadyToRender") ~typ:(returning bool) +let ignoreContentOffsetChanges self = msg_send ~self ~cmd:(selector "ignoreContentOffsetChanges") ~typ:(returning llong) +let imageForContactRect x ~onPageInViewRect ~destinationRect self = msg_send ~self ~cmd:(selector "imageForContactRect:onPageInViewRect:destinationRect:") ~typ:(CGRect.t @-> CGRect.t @-> CGRect.t @-> returning id) x onPageInViewRect destinationRect +let initWithWebPDFViewPlaceholder x self = msg_send ~self ~cmd:(selector "initWithWebPDFViewPlaceholder:") ~typ:(id @-> returning id) x +let initialZoomScale self = msg_send ~self ~cmd:(selector "initialZoomScale") ~typ:(returning double) +let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x ofObject change context +let pageMinYs self = msg_send ~self ~cmd:(selector "pageMinYs") ~typ:(returning id) +let pageRects self = msg_send ~self ~cmd:(selector "pageRects") ~typ:(returning id) +let pdfDelegate self = msg_send ~self ~cmd:(selector "pdfDelegate") ~typ:(returning id) +let pdfPlaceHolderView self = msg_send ~self ~cmd:(selector "pdfPlaceHolderView") ~typ:(returning id) +let prepareForSnapshot x self = msg_send ~self ~cmd:(selector "prepareForSnapshot:") ~typ:(bool @-> returning void) x +let readyForSnapshot self = msg_send ~self ~cmd:(selector "readyForSnapshot") ~typ:(returning bool) +let resetZoom x self = msg_send ~self ~cmd:(selector "resetZoom:") ~typ:(id @-> returning void) x +let setBackgroundColorForUnRenderedContent x self = msg_send ~self ~cmd:(selector "setBackgroundColorForUnRenderedContent:") ~typ:(id @-> returning void) x +let setDocumentPassword x self = msg_send ~self ~cmd:(selector "setDocumentPassword:") ~typ:(id @-> returning void) x +let setDocumentTransform x self = msg_send ~self ~cmd:(selector "setDocumentTransform:") ~typ:(CGAffineTransform.t @-> returning void) x +let setDocumentURL x self = msg_send ~self ~cmd:(selector "setDocumentURL:") ~typ:(id @-> returning void) x +let setHideActivityIndicatorForUnRenderedContent x self = msg_send ~self ~cmd:(selector "setHideActivityIndicatorForUnRenderedContent:") ~typ:(bool @-> returning void) x +let setHidePageViewsUntilReadyToRender x self = msg_send ~self ~cmd:(selector "setHidePageViewsUntilReadyToRender:") ~typ:(bool @-> returning void) x +let setIgnoreContentOffsetChanges x self = msg_send ~self ~cmd:(selector "setIgnoreContentOffsetChanges:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setInitialZoomScale x self = msg_send ~self ~cmd:(selector "setInitialZoomScale:") ~typ:(double @-> returning void) x +let setPageMinYs x self = msg_send ~self ~cmd:(selector "setPageMinYs:") ~typ:(id @-> returning void) x +let setPageRects x self = msg_send ~self ~cmd:(selector "setPageRects:") ~typ:(id @-> returning void) x +let setPdfDelegate x self = msg_send ~self ~cmd:(selector "setPdfDelegate:") ~typ:(id @-> returning void) x +let setPdfPlaceHolderView x self = msg_send ~self ~cmd:(selector "setPdfPlaceHolderView:") ~typ:(id @-> returning void) x +let setReadyForSnapshot x self = msg_send ~self ~cmd:(selector "setReadyForSnapshot:") ~typ:(bool @-> returning void) x +let snapshotComplete self = msg_send ~self ~cmd:(selector "snapshotComplete") ~typ:(returning void) +let totalPages self = msg_send ~self ~cmd:(selector "totalPages") ~typ:(returning ullong) +let uiPDFDocument self = msg_send ~self ~cmd:(selector "uiPDFDocument") ~typ:(returning id) +let viewAtIndex x self = msg_send ~self ~cmd:(selector "viewAtIndex:") ~typ:(llong @-> returning id) (LLong.of_int x) +let viewWillClose self = msg_send ~self ~cmd:(selector "viewWillClose") ~typ:(returning void) +let viewportView self = msg_send ~self ~cmd:(selector "viewportView") ~typ:(returning id) +let willRotate x self = msg_send ~self ~cmd:(selector "willRotate:") ~typ:(id @-> returning void) x +let willScroll x self = msg_send ~self ~cmd:(selector "willScroll:") ~typ:(id @-> returning void) x +let willZoom x self = msg_send ~self ~cmd:(selector "willZoom:") ~typ:(id @-> returning void) x +let zoom x ~to_ ~atPoint ~kind self = msg_send ~self ~cmd:(selector "zoom:to:atPoint:kind:") ~typ:(id @-> CGRect.t @-> CGPoint.t @-> int @-> returning void) x to_ atPoint kind \ No newline at end of file diff --git a/uikit/UIWebPDFViewClass.ml b/uikit/UIWebPDFViewClass.ml new file mode 100644 index 00000000..8e7f55e9 --- /dev/null +++ b/uikit/UIWebPDFViewClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebpdfview?language=objc}UIWebPDFView} *) + +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) +let setAsPDFDocRepAndView self = msg_send ~self ~cmd:(selector "setAsPDFDocRepAndView") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIWebPDFViewHandler.ml b/uikit/UIWebPDFViewHandler.ml new file mode 100644 index 00000000..da8b20c9 --- /dev/null +++ b/uikit/UIWebPDFViewHandler.ml @@ -0,0 +1,88 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebpdfviewhandler?language=objc}UIWebPDFViewHandler} *) + +let self = get_class "UIWebPDFViewHandler" + +let activeRectForRectOfInterest x self = msg_send ~self ~cmd:(selector "activeRectForRectOfInterest:") ~typ:(CGRect.t @-> returning CGRect.t) x +let adjustZoomScalesForScrollView self = msg_send ~self ~cmd:(selector "adjustZoomScalesForScrollView") ~typ:(returning void) +let backgroundColorForUnRenderedContent self = msg_send ~self ~cmd:(selector "backgroundColorForUnRenderedContent") ~typ:(returning id) +let clearActionSheet self = msg_send ~self ~cmd:(selector "clearActionSheet") ~typ:(returning void) +let clearAllViews self = msg_send ~self ~cmd:(selector "clearAllViews") ~typ:(returning void) +let clearLinkHighlight self = msg_send ~self ~cmd:(selector "clearLinkHighlight") ~typ:(returning void) +let clearPageLabel self = msg_send ~self ~cmd:(selector "clearPageLabel") ~typ:(returning void) +let clearSearchControllerForHighlighter x self = msg_send ~self ~cmd:(selector "clearSearchControllerForHighlighter:") ~typ:(id @-> returning void) x +let considerHeightForDoubleTap self = msg_send ~self ~cmd:(selector "considerHeightForDoubleTap") ~typ:(returning bool) +let considerHeightOfRectOfInterestForRotation self = msg_send ~self ~cmd:(selector "considerHeightOfRectOfInterestForRotation") ~typ:(returning bool) +let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning id) +let createLinkHighlight self = msg_send ~self ~cmd:(selector "createLinkHighlight") ~typ:(returning id) +let createPageLabel self = msg_send ~self ~cmd:(selector "createPageLabel") ~typ:(returning id) +let currentDocumentScale self = msg_send ~self ~cmd:(selector "currentDocumentScale") ~typ:(returning double) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didBeginEditingPassword x ~inView self = msg_send ~self ~cmd:(selector "didBeginEditingPassword:inView:") ~typ:(id @-> id @-> returning void) x inView +let didDetermineDocumentBounds x self = msg_send ~self ~cmd:(selector "didDetermineDocumentBounds:") ~typ:(id @-> returning void) x +let didEndEditingPassword x ~inView self = msg_send ~self ~cmd:(selector "didEndEditingPassword:inView:") ~typ:(id @-> id @-> returning void) x inView +let didReceiveMemoryWarning x self = msg_send ~self ~cmd:(selector "didReceiveMemoryWarning:") ~typ:(id @-> returning void) x +let didScroll x self = msg_send ~self ~cmd:(selector "didScroll:") ~typ:(id @-> returning void) x +let doubleTapScalesForSize x self = msg_send ~self ~cmd:(selector "doubleTapScalesForSize:") ~typ:(CGSize.t @-> returning void) x +let enclosingScrollView self = msg_send ~self ~cmd:(selector "enclosingScrollView") ~typ:(returning id) +let ensureCorrectPagesAreInstalled x self = msg_send ~self ~cmd:(selector "ensureCorrectPagesAreInstalled:") ~typ:(bool @-> returning void) x +let findOnPageHighlighter self = msg_send ~self ~cmd:(selector "findOnPageHighlighter") ~typ:(returning id) +let frontView self = msg_send ~self ~cmd:(selector "frontView") ~typ:(returning id) +let handleLinkClick x ~inRect self = msg_send ~self ~cmd:(selector "handleLinkClick:inRect:") ~typ:(id @-> CGRect.t @-> returning void) x inRect +let handleLongPressOnLink x ~atPoint ~inRect ~contentRect self = msg_send ~self ~cmd:(selector "handleLongPressOnLink:atPoint:inRect:contentRect:") ~typ:(id @-> CGPoint.t @-> CGRect.t @-> CGRect.t @-> returning void) x atPoint inRect contentRect +let handleScrollToAnchor x self = msg_send ~self ~cmd:(selector "handleScrollToAnchor:") ~typ:(id @-> returning void) x +let heightToKeepVisible self = msg_send ~self ~cmd:(selector "heightToKeepVisible") ~typ:(returning double) +let hideActivityIndicatorForUnRenderedContent self = msg_send ~self ~cmd:(selector "hideActivityIndicatorForUnRenderedContent") ~typ:(returning bool) +let hidePageViewsUntilReadyToRender self = msg_send ~self ~cmd:(selector "hidePageViewsUntilReadyToRender") ~typ:(returning bool) +let highlightRect x self = msg_send ~self ~cmd:(selector "highlightRect:") ~typ:(CGRect.t @-> returning void) x +let hostViewForSheet x self = msg_send ~self ~cmd:(selector "hostViewForSheet:") ~typ:(id @-> returning id) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initialPresentationRectInHostViewForSheet x self = msg_send ~self ~cmd:(selector "initialPresentationRectInHostViewForSheet:") ~typ:(id @-> returning CGRect.t) x +let minimumScaleForSize x self = msg_send ~self ~cmd:(selector "minimumScaleForSize:") ~typ:(CGSize.t @-> returning double) x +let minimumVerticalContentOffset self = msg_send ~self ~cmd:(selector "minimumVerticalContentOffset") ~typ:(returning double) +let passwordForPDFView x self = msg_send ~self ~cmd:(selector "passwordForPDFView:") ~typ:(id @-> returning id) x +let pdfHandlerDelegate self = msg_send ~self ~cmd:(selector "pdfHandlerDelegate") ~typ:(returning id) +let pdfView self = msg_send ~self ~cmd:(selector "pdfView") ~typ:(returning id) +let pdfView' x ~zoomToRect ~forPoint ~considerHeight self = msg_send ~self ~cmd:(selector "pdfView:zoomToRect:forPoint:considerHeight:") ~typ:(id @-> CGRect.t @-> CGPoint.t @-> bool @-> returning void) x zoomToRect forPoint considerHeight +let performAction x ~fromAlertController self = msg_send ~self ~cmd:(selector "performAction:fromAlertController:") ~typ:(id @-> id @-> returning void) x fromAlertController +let presentationRectInHostViewForSheet x self = msg_send ~self ~cmd:(selector "presentationRectInHostViewForSheet:") ~typ:(id @-> returning CGRect.t) x +let rectOfInterestForPoint x self = msg_send ~self ~cmd:(selector "rectOfInterestForPoint:") ~typ:(CGPoint.t @-> returning CGRect.t) x +let rectOfInterestForRotation self = msg_send ~self ~cmd:(selector "rectOfInterestForRotation") ~typ:(returning CGRect.t) +let removeViewFromSuperview self = msg_send ~self ~cmd:(selector "removeViewFromSuperview") ~typ:(returning void) +let resetZoom x self = msg_send ~self ~cmd:(selector "resetZoom:") ~typ:(id @-> returning void) x +let restoreStateFromHistoryItem x ~forWebView self = msg_send ~self ~cmd:(selector "restoreStateFromHistoryItem:forWebView:") ~typ:(id @-> id @-> returning void) x forWebView +let restoreStateFromPendingHistoryItem self = msg_send ~self ~cmd:(selector "restoreStateFromPendingHistoryItem") ~typ:(returning void) +let revealSearchResult x ~andZoomIn self = msg_send ~self ~cmd:(selector "revealSearchResult:andZoomIn:") ~typ:(id @-> bool @-> returning void) x andZoomIn +let rotateEnclosingScrollViewToFrame x self = msg_send ~self ~cmd:(selector "rotateEnclosingScrollViewToFrame:") ~typ:(CGRect.t @-> returning void) x +let saveStateToHistoryItem x ~forWebView self = msg_send ~self ~cmd:(selector "saveStateToHistoryItem:forWebView:") ~typ:(id @-> id @-> returning void) x forWebView +let scalesForContainerSize x self = msg_send ~self ~cmd:(selector "scalesForContainerSize:") ~typ:(CGSize.t @-> returning void) x +let scalesPageToFit self = msg_send ~self ~cmd:(selector "scalesPageToFit") ~typ:(returning bool) +let scrollToPageNumber x ~animate self = msg_send ~self ~cmd:(selector "scrollToPageNumber:animate:") ~typ:(llong @-> bool @-> returning void) (LLong.of_int x) animate +let searchControllerForHighlighter x self = msg_send ~self ~cmd:(selector "searchControllerForHighlighter:") ~typ:(id @-> returning id) x +let setBackgroundColorForUnRenderedContent x self = msg_send ~self ~cmd:(selector "setBackgroundColorForUnRenderedContent:") ~typ:(id @-> returning void) x +let setHideActivityIndicatorForUnRenderedContent x self = msg_send ~self ~cmd:(selector "setHideActivityIndicatorForUnRenderedContent:") ~typ:(bool @-> returning void) x +let setHidePageViewsUntilReadyToRender x self = msg_send ~self ~cmd:(selector "setHidePageViewsUntilReadyToRender:") ~typ:(bool @-> returning void) x +let setPdfHandlerDelegate x self = msg_send ~self ~cmd:(selector "setPdfHandlerDelegate:") ~typ:(id @-> returning void) x +let setScalesPageToFit x self = msg_send ~self ~cmd:(selector "setScalesPageToFit:") ~typ:(bool @-> returning void) x +let setShowPageLabels x self = msg_send ~self ~cmd:(selector "setShowPageLabels:") ~typ:(bool @-> returning void) x +let showPageLabels self = msg_send ~self ~cmd:(selector "showPageLabels") ~typ:(returning bool) +let updateBoundariesOfScrollView x ~withScales self = msg_send ~self ~cmd:(selector "updateBoundariesOfScrollView:withScales:") ~typ:(id @-> void @-> returning void) x withScales +let updatePageNumberLabelWithUserScrolling x ~animated self = msg_send ~self ~cmd:(selector "updatePageNumberLabelWithUserScrolling:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let updateViewHierarchyForDocumentViewLoadComplete x self = msg_send ~self ~cmd:(selector "updateViewHierarchyForDocumentViewLoadComplete:") ~typ:(id @-> returning void) x +let updateViewHierarchyForDocumentViewNewLoad x self = msg_send ~self ~cmd:(selector "updateViewHierarchyForDocumentViewNewLoad:") ~typ:(id @-> returning void) x +let updateViewHierarchyForDocumentViewTabSwitch x self = msg_send ~self ~cmd:(selector "updateViewHierarchyForDocumentViewTabSwitch:") ~typ:(id @-> returning void) x +let updateViewHierarchyForDocumentViewTabSwitch' x ~restoringZoomScale ~andScrollPt self = msg_send ~self ~cmd:(selector "updateViewHierarchyForDocumentViewTabSwitch:restoringZoomScale:andScrollPt:") ~typ:(id @-> double @-> CGPoint.t @-> returning void) x restoringZoomScale andScrollPt +let updateViewHierarchyForFirstNonEmptyLayoutInFrame x self = msg_send ~self ~cmd:(selector "updateViewHierarchyForFirstNonEmptyLayoutInFrame:") ~typ:(id @-> returning void) x +let updateViewSettings self = msg_send ~self ~cmd:(selector "updateViewSettings") ~typ:(returning void) +let userDidEnterPassword x ~forPasswordView self = msg_send ~self ~cmd:(selector "userDidEnterPassword:forPasswordView:") ~typ:(id @-> id @-> returning void) x forPasswordView +let visibleContentRect self = msg_send ~self ~cmd:(selector "visibleContentRect") ~typ:(returning CGRect.t) +let zoomedDocumentScale self = msg_send ~self ~cmd:(selector "zoomedDocumentScale") ~typ:(returning double) \ No newline at end of file diff --git a/uikit/UIWebPaginationInfo.ml b/uikit/UIWebPaginationInfo.ml index 09949838..7c827fe4 100644 --- a/uikit/UIWebPaginationInfo.ml +++ b/uikit/UIWebPaginationInfo.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebPaginationInfo" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebpaginationinfo?language=objc}UIWebPaginationInfo} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let documentView self = msg_send ~self ~cmd:(selector "documentView") ~typ:(returning (id)) -let initWithDocumentView x ~scaleFactor ~layoutSize ~pageRects self = msg_send ~self ~cmd:(selector "initWithDocumentView:scaleFactor:layoutSize:pageRects:") ~typ:(id @-> double @-> CGSize.t @-> id @-> returning (id)) x scaleFactor layoutSize pageRects -let lastPageHeight self = msg_send ~self ~cmd:(selector "lastPageHeight") ~typ:(returning (double)) -let layoutSize self = msg_send_stret ~self ~cmd:(selector "layoutSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let pageCount self = msg_send ~self ~cmd:(selector "pageCount") ~typ:(returning (ullong)) -let pageRects self = msg_send ~self ~cmd:(selector "pageRects") ~typ:(returning (id)) -let scaleFactor self = msg_send ~self ~cmd:(selector "scaleFactor") ~typ:(returning (double)) -let setWebDocumentView x self = msg_send ~self ~cmd:(selector "setWebDocumentView:") ~typ:(id @-> returning (void)) x -let sizeForPageAtIndex x self = msg_send_stret ~self ~cmd:(selector "sizeForPageAtIndex:") ~typ:(llong @-> returning (CGSize.t)) ~return_type:CGSize.t (LLong.of_int x) -let webDocumentView self = msg_send ~self ~cmd:(selector "webDocumentView") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIWebPaginationInfo" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let documentView self = msg_send ~self ~cmd:(selector "documentView") ~typ:(returning id) +let initWithDocumentView x ~scaleFactor ~layoutSize ~pageRects self = msg_send ~self ~cmd:(selector "initWithDocumentView:scaleFactor:layoutSize:pageRects:") ~typ:(id @-> double @-> CGSize.t @-> id @-> returning id) x scaleFactor layoutSize pageRects +let lastPageHeight self = msg_send ~self ~cmd:(selector "lastPageHeight") ~typ:(returning double) +let layoutSize self = msg_send ~self ~cmd:(selector "layoutSize") ~typ:(returning CGSize.t) +let pageCount self = msg_send ~self ~cmd:(selector "pageCount") ~typ:(returning ullong) +let pageRects self = msg_send ~self ~cmd:(selector "pageRects") ~typ:(returning id) +let scaleFactor self = msg_send ~self ~cmd:(selector "scaleFactor") ~typ:(returning double) +let setWebDocumentView x self = msg_send ~self ~cmd:(selector "setWebDocumentView:") ~typ:(id @-> returning void) x +let sizeForPageAtIndex x self = msg_send ~self ~cmd:(selector "sizeForPageAtIndex:") ~typ:(llong @-> returning CGSize.t) (LLong.of_int x) +let webDocumentView self = msg_send ~self ~cmd:(selector "webDocumentView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIWebPlaybackTargetPicker.ml b/uikit/UIWebPlaybackTargetPicker.ml index 0ab32656..e4afc62e 100644 --- a/uikit/UIWebPlaybackTargetPicker.ml +++ b/uikit/UIWebPlaybackTargetPicker.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebPlaybackTargetPicker" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebplaybacktargetpicker?language=objc}UIWebPlaybackTargetPicker} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let popoverControllerDidDismissPopover x self = msg_send ~self ~cmd:(selector "popoverControllerDidDismissPopover:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let show x ~fromRect self = msg_send ~self ~cmd:(selector "show:fromRect:") ~typ:(bool @-> CGRect.t @-> returning (void)) x fromRect -let showAirPlayPickerIPad x ~fromRect self = msg_send ~self ~cmd:(selector "showAirPlayPickerIPad:fromRect:") ~typ:(llong @-> CGRect.t @-> returning (void)) (LLong.of_int x) fromRect -let showAirPlayPickerIPhone x self = msg_send ~self ~cmd:(selector "showAirPlayPickerIPhone:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file +let self = get_class "UIWebPlaybackTargetPicker" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let popoverControllerDidDismissPopover x self = msg_send ~self ~cmd:(selector "popoverControllerDidDismissPopover:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let show x ~fromRect self = msg_send ~self ~cmd:(selector "show:fromRect:") ~typ:(bool @-> CGRect.t @-> returning void) x fromRect +let showAirPlayPickerIPad x ~fromRect self = msg_send ~self ~cmd:(selector "showAirPlayPickerIPad:fromRect:") ~typ:(llong @-> CGRect.t @-> returning void) (LLong.of_int x) fromRect +let showAirPlayPickerIPhone x self = msg_send ~self ~cmd:(selector "showAirPlayPickerIPhone:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit/UIWebPlugInView.ml b/uikit/UIWebPlugInView.ml index a1118a5d..a88231dc 100644 --- a/uikit/UIWebPlugInView.ml +++ b/uikit/UIWebPlugInView.ml @@ -5,40 +5,44 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebPlugInView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebpluginview?language=objc}UIWebPlugInView} *) -let attachPluginLayer self = msg_send ~self ~cmd:(selector "attachPluginLayer") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let detachPluginLayer self = msg_send ~self ~cmd:(selector "detachPluginLayer") ~typ:(returning (void)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning (void)) x -let initWithWebView x ~plugInView self = msg_send ~self ~cmd:(selector "initWithWebView:plugInView:") ~typ:(id @-> id @-> returning (id)) x plugInView -let invalidateGState self = msg_send ~self ~cmd:(selector "invalidateGState") ~typ:(returning (void)) -let isMapViewPlugIn self = msg_send ~self ~cmd:(selector "isMapViewPlugIn") ~typ:(returning (bool)) -let isParented self = msg_send ~self ~cmd:(selector "isParented") ~typ:(returning (bool)) -let isParentedInLayer self = msg_send ~self ~cmd:(selector "isParentedInLayer") ~typ:(returning (bool)) -let isQuickTimePlugIn self = msg_send ~self ~cmd:(selector "isQuickTimePlugIn") ~typ:(returning (bool)) -let isiAdPlugIn self = msg_send ~self ~cmd:(selector "isiAdPlugIn") ~typ:(returning (bool)) -let layout self = msg_send ~self ~cmd:(selector "layout") ~typ:(returning (void)) -let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning (id)) x -let mouseDown x self = msg_send ~self ~cmd:(selector "mouseDown:") ~typ:(id @-> returning (void)) x -let mouseUp x self = msg_send ~self ~cmd:(selector "mouseUp:") ~typ:(id @-> returning (void)) x -let objectForWebScript self = msg_send ~self ~cmd:(selector "objectForWebScript") ~typ:(returning (id)) -let plugInView self = msg_send ~self ~cmd:(selector "plugInView") ~typ:(returning (id)) -let pluginLayer self = msg_send ~self ~cmd:(selector "pluginLayer") ~typ:(returning (id)) -let reshape self = msg_send ~self ~cmd:(selector "reshape") ~typ:(returning (void)) -let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning (bool)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setFrameSize x self = msg_send ~self ~cmd:(selector "setFrameSize:") ~typ:(CGSize.t @-> returning (void)) x -let setIsMapViewPlugIn x self = msg_send ~self ~cmd:(selector "setIsMapViewPlugIn:") ~typ:(bool @-> returning (void)) x -let setIsQuickTimePlugIn x self = msg_send ~self ~cmd:(selector "setIsQuickTimePlugIn:") ~typ:(bool @-> returning (void)) x -let setIsiAdPlugIn x self = msg_send ~self ~cmd:(selector "setIsiAdPlugIn:") ~typ:(bool @-> returning (void)) x -let setParentedInLayer x self = msg_send ~self ~cmd:(selector "setParentedInLayer:") ~typ:(bool @-> returning (void)) x -let setWebView x self = msg_send ~self ~cmd:(selector "setWebView:") ~typ:(id @-> returning (void)) x -let viewDidMoveToWindow self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow") ~typ:(returning (void)) -let webPlugInDestroy self = msg_send ~self ~cmd:(selector "webPlugInDestroy") ~typ:(returning (void)) -let webPlugInInitialize self = msg_send ~self ~cmd:(selector "webPlugInInitialize") ~typ:(returning (void)) -let webPlugInStart self = msg_send ~self ~cmd:(selector "webPlugInStart") ~typ:(returning (void)) -let webPlugInStop self = msg_send ~self ~cmd:(selector "webPlugInStop") ~typ:(returning (void)) -let willProvidePluginLayer self = msg_send ~self ~cmd:(selector "willProvidePluginLayer") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIWebPlugInView" + +let attachPluginLayer self = msg_send ~self ~cmd:(selector "attachPluginLayer") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let detachPluginLayer self = msg_send ~self ~cmd:(selector "detachPluginLayer") ~typ:(returning void) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning void) x +let initWithWebView x ~plugInView self = msg_send ~self ~cmd:(selector "initWithWebView:plugInView:") ~typ:(id @-> id @-> returning id) x plugInView +let invalidateGState self = msg_send ~self ~cmd:(selector "invalidateGState") ~typ:(returning void) +let isMapViewPlugIn self = msg_send ~self ~cmd:(selector "isMapViewPlugIn") ~typ:(returning bool) +let isParented self = msg_send ~self ~cmd:(selector "isParented") ~typ:(returning bool) +let isParentedInLayer self = msg_send ~self ~cmd:(selector "isParentedInLayer") ~typ:(returning bool) +let isQuickTimePlugIn self = msg_send ~self ~cmd:(selector "isQuickTimePlugIn") ~typ:(returning bool) +let isiAdPlugIn self = msg_send ~self ~cmd:(selector "isiAdPlugIn") ~typ:(returning bool) +let layout self = msg_send ~self ~cmd:(selector "layout") ~typ:(returning void) +let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning id) x +let mouseDown x self = msg_send ~self ~cmd:(selector "mouseDown:") ~typ:(id @-> returning void) x +let mouseUp x self = msg_send ~self ~cmd:(selector "mouseUp:") ~typ:(id @-> returning void) x +let objectForWebScript self = msg_send ~self ~cmd:(selector "objectForWebScript") ~typ:(returning id) +let plugInView self = msg_send ~self ~cmd:(selector "plugInView") ~typ:(returning id) +let pluginLayer self = msg_send ~self ~cmd:(selector "pluginLayer") ~typ:(returning id) +let reshape self = msg_send ~self ~cmd:(selector "reshape") ~typ:(returning void) +let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning bool) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setFrameSize x self = msg_send ~self ~cmd:(selector "setFrameSize:") ~typ:(CGSize.t @-> returning void) x +let setIsMapViewPlugIn x self = msg_send ~self ~cmd:(selector "setIsMapViewPlugIn:") ~typ:(bool @-> returning void) x +let setIsQuickTimePlugIn x self = msg_send ~self ~cmd:(selector "setIsQuickTimePlugIn:") ~typ:(bool @-> returning void) x +let setIsiAdPlugIn x self = msg_send ~self ~cmd:(selector "setIsiAdPlugIn:") ~typ:(bool @-> returning void) x +let setParentedInLayer x self = msg_send ~self ~cmd:(selector "setParentedInLayer:") ~typ:(bool @-> returning void) x +let setWebView x self = msg_send ~self ~cmd:(selector "setWebView:") ~typ:(id @-> returning void) x +let viewDidMoveToWindow self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow") ~typ:(returning void) +let webPlugInDestroy self = msg_send ~self ~cmd:(selector "webPlugInDestroy") ~typ:(returning void) +let webPlugInInitialize self = msg_send ~self ~cmd:(selector "webPlugInInitialize") ~typ:(returning void) +let webPlugInStart self = msg_send ~self ~cmd:(selector "webPlugInStart") ~typ:(returning void) +let webPlugInStop self = msg_send ~self ~cmd:(selector "webPlugInStop") ~typ:(returning void) +let willProvidePluginLayer self = msg_send ~self ~cmd:(selector "willProvidePluginLayer") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIWebRotatingAlertController.ml b/uikit/UIWebRotatingAlertController.ml index 6fcb68be..0dbb242c 100644 --- a/uikit/UIWebRotatingAlertController.ml +++ b/uikit/UIWebRotatingAlertController.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebRotatingAlertController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebrotatingalertcontroller?language=objc}UIWebRotatingAlertController} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let doneWithSheet self = msg_send ~self ~cmd:(selector "doneWithSheet") ~typ:(returning (void)) -let initWithUIWebDocumentView x self = msg_send ~self ~cmd:(selector "initWithUIWebDocumentView:") ~typ:(id @-> returning (id)) x -let presentSheet self = msg_send ~self ~cmd:(selector "presentSheet") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIWebRotatingAlertController" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let doneWithSheet self = msg_send ~self ~cmd:(selector "doneWithSheet") ~typ:(returning void) +let initWithUIWebDocumentView x self = msg_send ~self ~cmd:(selector "initWithUIWebDocumentView:") ~typ:(id @-> returning id) x +let presentSheet self = msg_send ~self ~cmd:(selector "presentSheet") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIWebRotatingNodePopover.ml b/uikit/UIWebRotatingNodePopover.ml index aba02cbf..2cc1cf3c 100644 --- a/uikit/UIWebRotatingNodePopover.ml +++ b/uikit/UIWebRotatingNodePopover.ml @@ -5,22 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebRotatingNodePopover" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebrotatingnodepopover?language=objc}UIWebRotatingNodePopover} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didRotate x self = msg_send ~self ~cmd:(selector "didRotate:") ~typ:(id @-> returning (void)) x -let dismissDelegate self = msg_send ~self ~cmd:(selector "dismissDelegate") ~typ:(returning (id)) -let dismissPopoverAnimated x self = msg_send ~self ~cmd:(selector "dismissPopoverAnimated:") ~typ:(bool @-> returning (void)) x -let initWithDOMNode x self = msg_send ~self ~cmd:(selector "initWithDOMNode:") ~typ:(id @-> returning (id)) x -let node self = msg_send ~self ~cmd:(selector "node") ~typ:(returning (id)) -let popoverArrowDirections self = msg_send ~self ~cmd:(selector "popoverArrowDirections") ~typ:(returning (ullong)) -let popoverController self = msg_send ~self ~cmd:(selector "popoverController") ~typ:(returning (id)) -let popoverControllerDidDismissPopover x self = msg_send ~self ~cmd:(selector "popoverControllerDidDismissPopover:") ~typ:(id @-> returning (void)) x -let presentPopoverAnimated x self = msg_send ~self ~cmd:(selector "presentPopoverAnimated:") ~typ:(bool @-> returning (void)) x -let presentationPoint self = msg_send_stret ~self ~cmd:(selector "presentationPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let setDismissDelegate x self = msg_send ~self ~cmd:(selector "setDismissDelegate:") ~typ:(id @-> returning (void)) x -let setNode x self = msg_send ~self ~cmd:(selector "setNode:") ~typ:(id @-> returning (void)) x -let setPopoverController x self = msg_send ~self ~cmd:(selector "setPopoverController:") ~typ:(id @-> returning (void)) x -let setPresentationPoint x self = msg_send ~self ~cmd:(selector "setPresentationPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let willRotate x self = msg_send ~self ~cmd:(selector "willRotate:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIWebRotatingNodePopover" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didRotate x self = msg_send ~self ~cmd:(selector "didRotate:") ~typ:(id @-> returning void) x +let dismissDelegate self = msg_send ~self ~cmd:(selector "dismissDelegate") ~typ:(returning id) +let dismissPopoverAnimated x self = msg_send ~self ~cmd:(selector "dismissPopoverAnimated:") ~typ:(bool @-> returning void) x +let initWithDOMNode x self = msg_send ~self ~cmd:(selector "initWithDOMNode:") ~typ:(id @-> returning id) x +let node self = msg_send ~self ~cmd:(selector "node") ~typ:(returning id) +let popoverArrowDirections self = msg_send ~self ~cmd:(selector "popoverArrowDirections") ~typ:(returning ullong) +let popoverController self = msg_send ~self ~cmd:(selector "popoverController") ~typ:(returning id) +let popoverControllerDidDismissPopover x self = msg_send ~self ~cmd:(selector "popoverControllerDidDismissPopover:") ~typ:(id @-> returning void) x +let presentPopoverAnimated x self = msg_send ~self ~cmd:(selector "presentPopoverAnimated:") ~typ:(bool @-> returning void) x +let presentationPoint self = msg_send ~self ~cmd:(selector "presentationPoint") ~typ:(returning CGPoint.t) +let setDismissDelegate x self = msg_send ~self ~cmd:(selector "setDismissDelegate:") ~typ:(id @-> returning void) x +let setNode x self = msg_send ~self ~cmd:(selector "setNode:") ~typ:(id @-> returning void) x +let setPopoverController x self = msg_send ~self ~cmd:(selector "setPopoverController:") ~typ:(id @-> returning void) x +let setPresentationPoint x self = msg_send ~self ~cmd:(selector "setPresentationPoint:") ~typ:(CGPoint.t @-> returning void) x +let willRotate x self = msg_send ~self ~cmd:(selector "willRotate:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWebScrollView.ml b/uikit/UIWebScrollView.ml index 6ca24148..c8357d4e 100644 --- a/uikit/UIWebScrollView.ml +++ b/uikit/UIWebScrollView.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebScrollView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebscrollview?language=objc}UIWebScrollView} *) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let touchesShouldCancelInContentView x self = msg_send ~self ~cmd:(selector "touchesShouldCancelInContentView:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let self = get_class "UIWebScrollView" + +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let touchesShouldCancelInContentView x self = msg_send ~self ~cmd:(selector "touchesShouldCancelInContentView:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit/UIWebSelectMultiplePicker.ml b/uikit/UIWebSelectMultiplePicker.ml index 5129476f..e7cce87f 100644 --- a/uikit/UIWebSelectMultiplePicker.ml +++ b/uikit/UIWebSelectMultiplePicker.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebSelectMultiplePicker" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebselectmultiplepicker?language=objc}UIWebSelectMultiplePicker} *) -let controlBeginEditing self = msg_send ~self ~cmd:(selector "controlBeginEditing") ~typ:(returning (void)) -let controlEndEditing self = msg_send ~self ~cmd:(selector "controlEndEditing") ~typ:(returning (void)) -let controlView self = msg_send ~self ~cmd:(selector "controlView") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithDOMHTMLSelectElement x ~cachedItems ~singleSelectionItem ~singleSelectionIndex ~multipleSelection self = msg_send ~self ~cmd:(selector "initWithDOMHTMLSelectElement:cachedItems:singleSelectionItem:singleSelectionIndex:multipleSelection:") ~typ:(id @-> id @-> id @-> ullong @-> bool @-> returning (id)) x cachedItems singleSelectionItem (ULLong.of_int singleSelectionIndex) multipleSelection -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let numberOfComponentsInPickerView x self = msg_send ~self ~cmd:(selector "numberOfComponentsInPickerView:") ~typ:(id @-> returning (llong)) x -let pickerView x ~numberOfRowsInComponent self = msg_send ~self ~cmd:(selector "pickerView:numberOfRowsInComponent:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInComponent) -let pickerView1 x ~row ~column ~checked self = msg_send ~self ~cmd:(selector "pickerView:row:column:checked:") ~typ:(id @-> int @-> int @-> bool @-> returning (void)) x row column checked -let pickerView2 x ~viewForRow ~forComponent ~reusingView self = msg_send ~self ~cmd:(selector "pickerView:viewForRow:forComponent:reusingView:") ~typ:(id @-> llong @-> llong @-> id @-> returning (id)) x (LLong.of_int viewForRow) (LLong.of_int forComponent) reusingView \ No newline at end of file +let self = get_class "UIWebSelectMultiplePicker" + +let controlBeginEditing self = msg_send ~self ~cmd:(selector "controlBeginEditing") ~typ:(returning void) +let controlEndEditing self = msg_send ~self ~cmd:(selector "controlEndEditing") ~typ:(returning void) +let controlView self = msg_send ~self ~cmd:(selector "controlView") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithDOMHTMLSelectElement x ~cachedItems ~singleSelectionItem ~singleSelectionIndex ~multipleSelection self = msg_send ~self ~cmd:(selector "initWithDOMHTMLSelectElement:cachedItems:singleSelectionItem:singleSelectionIndex:multipleSelection:") ~typ:(id @-> id @-> id @-> ullong @-> bool @-> returning id) x cachedItems singleSelectionItem (ULLong.of_int singleSelectionIndex) multipleSelection +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let numberOfComponentsInPickerView x self = msg_send ~self ~cmd:(selector "numberOfComponentsInPickerView:") ~typ:(id @-> returning llong) x +let pickerView x ~numberOfRowsInComponent self = msg_send ~self ~cmd:(selector "pickerView:numberOfRowsInComponent:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInComponent) +let pickerView1 x ~row ~column ~checked self = msg_send ~self ~cmd:(selector "pickerView:row:column:checked:") ~typ:(id @-> int @-> int @-> bool @-> returning void) x row column checked +let pickerView2 x ~viewForRow ~forComponent ~reusingView self = msg_send ~self ~cmd:(selector "pickerView:viewForRow:forComponent:reusingView:") ~typ:(id @-> llong @-> llong @-> id @-> returning id) x (LLong.of_int viewForRow) (LLong.of_int forComponent) reusingView \ No newline at end of file diff --git a/uikit/UIWebSelectPopover.ml b/uikit/UIWebSelectPopover.ml index 96b5696b..75a5d526 100644 --- a/uikit/UIWebSelectPopover.ml +++ b/uikit/UIWebSelectPopover.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebSelectPopover" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebselectpopover?language=objc}UIWebSelectPopover} *) -let controlBeginEditing self = msg_send ~self ~cmd:(selector "controlBeginEditing") ~typ:(returning (void)) -let controlEndEditing self = msg_send ~self ~cmd:(selector "controlEndEditing") ~typ:(returning (void)) -let controlView self = msg_send ~self ~cmd:(selector "controlView") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithDOMHTMLSelectElement x ~cachedItems ~singleSelectionItem ~singleSelectionIndex ~multipleSelection self = msg_send ~self ~cmd:(selector "initWithDOMHTMLSelectElement:cachedItems:singleSelectionItem:singleSelectionIndex:multipleSelection:") ~typ:(id @-> id @-> id @-> ullong @-> bool @-> returning (id)) x cachedItems singleSelectionItem (ULLong.of_int singleSelectionIndex) multipleSelection \ No newline at end of file +let self = get_class "UIWebSelectPopover" + +let controlBeginEditing self = msg_send ~self ~cmd:(selector "controlBeginEditing") ~typ:(returning void) +let controlEndEditing self = msg_send ~self ~cmd:(selector "controlEndEditing") ~typ:(returning void) +let controlView self = msg_send ~self ~cmd:(selector "controlView") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithDOMHTMLSelectElement x ~cachedItems ~singleSelectionItem ~singleSelectionIndex ~multipleSelection self = msg_send ~self ~cmd:(selector "initWithDOMHTMLSelectElement:cachedItems:singleSelectionItem:singleSelectionIndex:multipleSelection:") ~typ:(id @-> id @-> id @-> ullong @-> bool @-> returning id) x cachedItems singleSelectionItem (ULLong.of_int singleSelectionIndex) multipleSelection \ No newline at end of file diff --git a/uikit/UIWebSelectSinglePicker.ml b/uikit/UIWebSelectSinglePicker.ml index b9e6e889..f81739f4 100644 --- a/uikit/UIWebSelectSinglePicker.ml +++ b/uikit/UIWebSelectSinglePicker.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebSelectSinglePicker" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebselectsinglepicker?language=objc}UIWebSelectSinglePicker} *) -let controlBeginEditing self = msg_send ~self ~cmd:(selector "controlBeginEditing") ~typ:(returning (void)) -let controlEndEditing self = msg_send ~self ~cmd:(selector "controlEndEditing") ~typ:(returning (void)) -let controlView self = msg_send ~self ~cmd:(selector "controlView") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithDOMHTMLSelectElement x ~allItems self = msg_send ~self ~cmd:(selector "initWithDOMHTMLSelectElement:allItems:") ~typ:(id @-> id @-> returning (id)) x allItems -let numberOfComponentsInPickerView x self = msg_send ~self ~cmd:(selector "numberOfComponentsInPickerView:") ~typ:(id @-> returning (llong)) x -let pickerView x ~numberOfRowsInComponent self = msg_send ~self ~cmd:(selector "pickerView:numberOfRowsInComponent:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInComponent) -let pickerView1 x ~attributedTitleForRow ~forComponent self = msg_send ~self ~cmd:(selector "pickerView:attributedTitleForRow:forComponent:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int attributedTitleForRow) (LLong.of_int forComponent) -let pickerView2 x ~didSelectRow ~inComponent self = msg_send ~self ~cmd:(selector "pickerView:didSelectRow:inComponent:") ~typ:(id @-> llong @-> llong @-> returning (void)) x (LLong.of_int didSelectRow) (LLong.of_int inComponent) \ No newline at end of file +let self = get_class "UIWebSelectSinglePicker" + +let controlBeginEditing self = msg_send ~self ~cmd:(selector "controlBeginEditing") ~typ:(returning void) +let controlEndEditing self = msg_send ~self ~cmd:(selector "controlEndEditing") ~typ:(returning void) +let controlView self = msg_send ~self ~cmd:(selector "controlView") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithDOMHTMLSelectElement x ~allItems self = msg_send ~self ~cmd:(selector "initWithDOMHTMLSelectElement:allItems:") ~typ:(id @-> id @-> returning id) x allItems +let numberOfComponentsInPickerView x self = msg_send ~self ~cmd:(selector "numberOfComponentsInPickerView:") ~typ:(id @-> returning llong) x +let pickerView x ~numberOfRowsInComponent self = msg_send ~self ~cmd:(selector "pickerView:numberOfRowsInComponent:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInComponent) +let pickerView1 x ~attributedTitleForRow ~forComponent self = msg_send ~self ~cmd:(selector "pickerView:attributedTitleForRow:forComponent:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int attributedTitleForRow) (LLong.of_int forComponent) +let pickerView2 x ~didSelectRow ~inComponent self = msg_send ~self ~cmd:(selector "pickerView:didSelectRow:inComponent:") ~typ:(id @-> llong @-> llong @-> returning void) x (LLong.of_int didSelectRow) (LLong.of_int inComponent) \ No newline at end of file diff --git a/uikit/UIWebSelectTableViewController.ml b/uikit/UIWebSelectTableViewController.ml index 1b4a0f38..bf7736f9 100644 --- a/uikit/UIWebSelectTableViewController.ml +++ b/uikit/UIWebSelectTableViewController.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebSelectTableViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebselecttableviewcontroller?language=objc}UIWebSelectTableViewController} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning (void)) -let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning (bool)) -let initWithDOMHTMLSelectNode x ~cachedItems ~singleSelectionIndex ~multipleSelection self = msg_send ~self ~cmd:(selector "initWithDOMHTMLSelectNode:cachedItems:singleSelectionIndex:multipleSelection:") ~typ:(id @-> id @-> ullong @-> bool @-> returning (id)) x cachedItems (ULLong.of_int singleSelectionIndex) multipleSelection -let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning (void)) x -let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning (llong)) x -let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didSelectRowAtIndexPath -let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let tableView3 x ~titleForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:titleForHeaderInSection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int titleForHeaderInSection) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIWebSelectTableViewController" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning void) +let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning bool) +let initWithDOMHTMLSelectNode x ~cachedItems ~singleSelectionIndex ~multipleSelection self = msg_send ~self ~cmd:(selector "initWithDOMHTMLSelectNode:cachedItems:singleSelectionIndex:multipleSelection:") ~typ:(id @-> id @-> ullong @-> bool @-> returning id) x cachedItems (ULLong.of_int singleSelectionIndex) multipleSelection +let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning void) x +let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning llong) x +let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x didSelectRowAtIndexPath +let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let tableView3 x ~titleForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:titleForHeaderInSection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int titleForHeaderInSection) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWebTextPlaceholder.ml b/uikit/UIWebTextPlaceholder.ml index 4956d9a5..6ed58ab1 100644 --- a/uikit/UIWebTextPlaceholder.ml +++ b/uikit/UIWebTextPlaceholder.ml @@ -5,14 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebTextPlaceholder" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebtextplaceholder?language=objc}UIWebTextPlaceholder} *) -module C = struct - let placeholderWithWebDocumentView x self = msg_send ~self ~cmd:(selector "placeholderWithWebDocumentView:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIWebTextPlaceholder" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let element self = msg_send ~self ~cmd:(selector "element") ~typ:(returning (id)) -let rects self = msg_send ~self ~cmd:(selector "rects") ~typ:(returning (id)) -let setElement x self = msg_send ~self ~cmd:(selector "setElement:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let element self = msg_send ~self ~cmd:(selector "element") ~typ:(returning id) +let rects self = msg_send ~self ~cmd:(selector "rects") ~typ:(returning id) +let setElement x self = msg_send ~self ~cmd:(selector "setElement:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWebTextPlaceholderClass.ml b/uikit/UIWebTextPlaceholderClass.ml new file mode 100644 index 00000000..2f6bfda1 --- /dev/null +++ b/uikit/UIWebTextPlaceholderClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebtextplaceholder?language=objc}UIWebTextPlaceholder} *) + +let placeholderWithWebDocumentView x self = msg_send ~self ~cmd:(selector "placeholderWithWebDocumentView:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit/UIWebTiledView.ml b/uikit/UIWebTiledView.ml index 4894f369..69d0b475 100644 --- a/uikit/UIWebTiledView.ml +++ b/uikit/UIWebTiledView.ml @@ -5,54 +5,58 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebTiledView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebtiledview?language=objc}UIWebTiledView} *) -let adjustedMaxTileCount self = msg_send ~self ~cmd:(selector "adjustedMaxTileCount") ~typ:(returning (uint)) -let allowsPaintingAndScriptsWhilePanning self = msg_send ~self ~cmd:(selector "allowsPaintingAndScriptsWhilePanning") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let drawImageIntoTiles x self = msg_send ~self ~cmd:(selector "drawImageIntoTiles:") ~typ:(id @-> returning (void)) x -let drawsGrid self = msg_send ~self ~cmd:(selector "drawsGrid") ~typ:(returning (bool)) -let dumpTiles self = msg_send ~self ~cmd:(selector "dumpTiles") ~typ:(returning (void)) -let editingTilingModeEnabled self = msg_send ~self ~cmd:(selector "editingTilingModeEnabled") ~typ:(returning (bool)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isTilingEnabled self = msg_send ~self ~cmd:(selector "isTilingEnabled") ~typ:(returning (bool)) -let keepsZoomedOutTiles self = msg_send ~self ~cmd:(selector "keepsZoomedOutTiles") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let layoutTilesInMainThread self = msg_send ~self ~cmd:(selector "layoutTilesInMainThread") ~typ:(returning (bool)) -let layoutTilesNow self = msg_send ~self ~cmd:(selector "layoutTilesNow") ~typ:(returning (void)) -let layoutTilesNowForRect x self = msg_send ~self ~cmd:(selector "layoutTilesNowForRect:") ~typ:(CGRect.t @-> returning (void)) x -let layoutTilesNowOnWebThread self = msg_send ~self ~cmd:(selector "layoutTilesNowOnWebThread") ~typ:(returning (void)) -let lockTilingMode self = msg_send ~self ~cmd:(selector "lockTilingMode") ~typ:(returning (void)) -let logsTilingChanges self = msg_send ~self ~cmd:(selector "logsTilingChanges") ~typ:(returning (bool)) -let maxTileCount self = msg_send ~self ~cmd:(selector "maxTileCount") ~typ:(returning (uint)) -let removeAllNonVisibleTiles self = msg_send ~self ~cmd:(selector "removeAllNonVisibleTiles") ~typ:(returning (void)) -let removeAllTiles self = msg_send ~self ~cmd:(selector "removeAllTiles") ~typ:(returning (void)) -let removeForegroundTiles self = msg_send ~self ~cmd:(selector "removeForegroundTiles") ~typ:(returning (void)) -let setAllowsPaintingAndScriptsWhilePanning x self = msg_send ~self ~cmd:(selector "setAllowsPaintingAndScriptsWhilePanning:") ~typ:(bool @-> returning (void)) x -let setDrawsGrid x self = msg_send ~self ~cmd:(selector "setDrawsGrid:") ~typ:(bool @-> returning (void)) x -let setEditingTilingModeEnabled x self = msg_send ~self ~cmd:(selector "setEditingTilingModeEnabled:") ~typ:(bool @-> returning (void)) x -let setInGesture x self = msg_send ~self ~cmd:(selector "setInGesture:") ~typ:(int @-> returning (void)) x -let setKeepsZoomedOutTiles x self = msg_send ~self ~cmd:(selector "setKeepsZoomedOutTiles:") ~typ:(bool @-> returning (void)) x -let setLayoutTilesInMainThread x self = msg_send ~self ~cmd:(selector "setLayoutTilesInMainThread:") ~typ:(bool @-> returning (void)) x -let setLogsTilingChanges x self = msg_send ~self ~cmd:(selector "setLogsTilingChanges:") ~typ:(bool @-> returning (void)) x -let setMaxTileCount x self = msg_send ~self ~cmd:(selector "setMaxTileCount:") ~typ:(uint @-> returning (void)) x -let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning (void)) -let setNeedsDisplayInRect x self = msg_send ~self ~cmd:(selector "setNeedsDisplayInRect:") ~typ:(CGRect.t @-> returning (void)) x -let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning (void)) -let setTileDrawingEnabled x self = msg_send ~self ~cmd:(selector "setTileDrawingEnabled:") ~typ:(bool @-> returning (void)) x -let setTileSize x self = msg_send ~self ~cmd:(selector "setTileSize:") ~typ:(CGSize.t @-> returning (void)) x -let setTilesOpaque x self = msg_send ~self ~cmd:(selector "setTilesOpaque:") ~typ:(bool @-> returning (void)) x -let setTilingArea x self = msg_send ~self ~cmd:(selector "setTilingArea:") ~typ:(int @-> returning (void)) x -let setTilingEnabled x self = msg_send ~self ~cmd:(selector "setTilingEnabled:") ~typ:(bool @-> returning (void)) x -let setTransform x self = msg_send ~self ~cmd:(selector "setTransform:") ~typ:(ptr void @-> returning (void)) x -let setWAKWindow x self = msg_send ~self ~cmd:(selector "setWAKWindow:") ~typ:(id @-> returning (void)) x -let tileDrawingEnabled self = msg_send ~self ~cmd:(selector "tileDrawingEnabled") ~typ:(returning (bool)) -let tileSize self = msg_send_stret ~self ~cmd:(selector "tileSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let tilesOpaque self = msg_send ~self ~cmd:(selector "tilesOpaque") ~typ:(returning (bool)) -let tilingArea self = msg_send ~self ~cmd:(selector "tilingArea") ~typ:(returning (int)) -let unlockTilingMode self = msg_send ~self ~cmd:(selector "unlockTilingMode") ~typ:(returning (void)) -let updateTilingMode self = msg_send ~self ~cmd:(selector "updateTilingMode") ~typ:(returning (void)) -let visibleRect self = msg_send_stret ~self ~cmd:(selector "visibleRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let wakWindow self = msg_send ~self ~cmd:(selector "wakWindow") ~typ:(returning (id)) -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIWebTiledView" + +let adjustedMaxTileCount self = msg_send ~self ~cmd:(selector "adjustedMaxTileCount") ~typ:(returning uint) +let allowsPaintingAndScriptsWhilePanning self = msg_send ~self ~cmd:(selector "allowsPaintingAndScriptsWhilePanning") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let drawImageIntoTiles x self = msg_send ~self ~cmd:(selector "drawImageIntoTiles:") ~typ:((ptr CGImage.t) @-> returning void) x +let drawsGrid self = msg_send ~self ~cmd:(selector "drawsGrid") ~typ:(returning bool) +let dumpTiles self = msg_send ~self ~cmd:(selector "dumpTiles") ~typ:(returning void) +let editingTilingModeEnabled self = msg_send ~self ~cmd:(selector "editingTilingModeEnabled") ~typ:(returning bool) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isTilingEnabled self = msg_send ~self ~cmd:(selector "isTilingEnabled") ~typ:(returning bool) +let keepsZoomedOutTiles self = msg_send ~self ~cmd:(selector "keepsZoomedOutTiles") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let layoutTilesInMainThread self = msg_send ~self ~cmd:(selector "layoutTilesInMainThread") ~typ:(returning bool) +let layoutTilesNow self = msg_send ~self ~cmd:(selector "layoutTilesNow") ~typ:(returning void) +let layoutTilesNowForRect x self = msg_send ~self ~cmd:(selector "layoutTilesNowForRect:") ~typ:(CGRect.t @-> returning void) x +let layoutTilesNowOnWebThread self = msg_send ~self ~cmd:(selector "layoutTilesNowOnWebThread") ~typ:(returning void) +let lockTilingMode self = msg_send ~self ~cmd:(selector "lockTilingMode") ~typ:(returning void) +let logsTilingChanges self = msg_send ~self ~cmd:(selector "logsTilingChanges") ~typ:(returning bool) +let maxTileCount self = msg_send ~self ~cmd:(selector "maxTileCount") ~typ:(returning uint) +let removeAllNonVisibleTiles self = msg_send ~self ~cmd:(selector "removeAllNonVisibleTiles") ~typ:(returning void) +let removeAllTiles self = msg_send ~self ~cmd:(selector "removeAllTiles") ~typ:(returning void) +let removeForegroundTiles self = msg_send ~self ~cmd:(selector "removeForegroundTiles") ~typ:(returning void) +let setAllowsPaintingAndScriptsWhilePanning x self = msg_send ~self ~cmd:(selector "setAllowsPaintingAndScriptsWhilePanning:") ~typ:(bool @-> returning void) x +let setDrawsGrid x self = msg_send ~self ~cmd:(selector "setDrawsGrid:") ~typ:(bool @-> returning void) x +let setEditingTilingModeEnabled x self = msg_send ~self ~cmd:(selector "setEditingTilingModeEnabled:") ~typ:(bool @-> returning void) x +let setInGesture x self = msg_send ~self ~cmd:(selector "setInGesture:") ~typ:(int @-> returning void) x +let setKeepsZoomedOutTiles x self = msg_send ~self ~cmd:(selector "setKeepsZoomedOutTiles:") ~typ:(bool @-> returning void) x +let setLayoutTilesInMainThread x self = msg_send ~self ~cmd:(selector "setLayoutTilesInMainThread:") ~typ:(bool @-> returning void) x +let setLogsTilingChanges x self = msg_send ~self ~cmd:(selector "setLogsTilingChanges:") ~typ:(bool @-> returning void) x +let setMaxTileCount x self = msg_send ~self ~cmd:(selector "setMaxTileCount:") ~typ:(uint @-> returning void) x +let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning void) +let setNeedsDisplayInRect x self = msg_send ~self ~cmd:(selector "setNeedsDisplayInRect:") ~typ:(CGRect.t @-> returning void) x +let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning void) +let setTileDrawingEnabled x self = msg_send ~self ~cmd:(selector "setTileDrawingEnabled:") ~typ:(bool @-> returning void) x +let setTileSize x self = msg_send ~self ~cmd:(selector "setTileSize:") ~typ:(CGSize.t @-> returning void) x +let setTilesOpaque x self = msg_send ~self ~cmd:(selector "setTilesOpaque:") ~typ:(bool @-> returning void) x +let setTilingArea x self = msg_send ~self ~cmd:(selector "setTilingArea:") ~typ:(int @-> returning void) x +let setTilingEnabled x self = msg_send ~self ~cmd:(selector "setTilingEnabled:") ~typ:(bool @-> returning void) x +let setTransform x self = msg_send ~self ~cmd:(selector "setTransform:") ~typ:(CGAffineTransform.t @-> returning void) x +let setWAKWindow x self = msg_send ~self ~cmd:(selector "setWAKWindow:") ~typ:(id @-> returning void) x +let tileDrawingEnabled self = msg_send ~self ~cmd:(selector "tileDrawingEnabled") ~typ:(returning bool) +let tileSize self = msg_send ~self ~cmd:(selector "tileSize") ~typ:(returning CGSize.t) +let tilesOpaque self = msg_send ~self ~cmd:(selector "tilesOpaque") ~typ:(returning bool) +let tilingArea self = msg_send ~self ~cmd:(selector "tilingArea") ~typ:(returning int) +let unlockTilingMode self = msg_send ~self ~cmd:(selector "unlockTilingMode") ~typ:(returning void) +let updateTilingMode self = msg_send ~self ~cmd:(selector "updateTilingMode") ~typ:(returning void) +let visibleRect self = msg_send ~self ~cmd:(selector "visibleRect") ~typ:(returning CGRect.t) +let wakWindow self = msg_send ~self ~cmd:(selector "wakWindow") ~typ:(returning id) +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWebTouchEventsGestureRecognizer.ml b/uikit/UIWebTouchEventsGestureRecognizer.ml index 88213d28..99f206d3 100644 --- a/uikit/UIWebTouchEventsGestureRecognizer.ml +++ b/uikit/UIWebTouchEventsGestureRecognizer.ml @@ -5,32 +5,33 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebTouchEventsGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebtoucheventsgesturerecognizer?language=objc}UIWebTouchEventsGestureRecognizer} *) -module C = struct - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) -end +let self = get_class "UIWebTouchEventsGestureRecognizer" -let activeTouchesByIdentifier self = msg_send ~self ~cmd:(selector "activeTouchesByIdentifier") ~typ:(returning (id)) -let canBePreventedByGestureRecognizer x self = msg_send ~self ~cmd:(selector "canBePreventedByGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let inJavaScriptGesture self = msg_send ~self ~cmd:(selector "inJavaScriptGesture") ~typ:(returning (bool)) -let initWithTarget x ~action ~touchDelegate self = msg_send ~self ~cmd:(selector "initWithTarget:action:touchDelegate:") ~typ:(id @-> _SEL @-> id @-> returning (id)) x action touchDelegate -let isDefaultPrevented self = msg_send ~self ~cmd:(selector "isDefaultPrevented") ~typ:(returning (bool)) -let isDispatchingTouchEvents self = msg_send ~self ~cmd:(selector "isDispatchingTouchEvents") ~typ:(returning (bool)) -let locationInWindow self = msg_send_stret ~self ~cmd:(selector "locationInWindow") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let performAction self = msg_send ~self ~cmd:(selector "performAction") ~typ:(returning (void)) -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let rotation self = msg_send ~self ~cmd:(selector "rotation") ~typ:(returning (double)) -let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning (double)) -let setDefaultPrevented x self = msg_send ~self ~cmd:(selector "setDefaultPrevented:") ~typ:(bool @-> returning (void)) x -let touchIdentifiers self = msg_send ~self ~cmd:(selector "touchIdentifiers") ~typ:(returning (id)) -let touchLocations self = msg_send ~self ~cmd:(selector "touchLocations") ~typ:(returning (id)) -let touchPhases self = msg_send ~self ~cmd:(selector "touchPhases") ~typ:(returning (id)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (int)) \ No newline at end of file +let activeTouchesByIdentifier self = msg_send ~self ~cmd:(selector "activeTouchesByIdentifier") ~typ:(returning id) +let canBePreventedByGestureRecognizer x self = msg_send ~self ~cmd:(selector "canBePreventedByGestureRecognizer:") ~typ:(id @-> returning bool) x +let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let inJavaScriptGesture self = msg_send ~self ~cmd:(selector "inJavaScriptGesture") ~typ:(returning bool) +let initWithTarget x ~action ~touchDelegate self = msg_send ~self ~cmd:(selector "initWithTarget:action:touchDelegate:") ~typ:(id @-> _SEL @-> id @-> returning id) x action touchDelegate +let isDefaultPrevented self = msg_send ~self ~cmd:(selector "isDefaultPrevented") ~typ:(returning bool) +let isDispatchingTouchEvents self = msg_send ~self ~cmd:(selector "isDispatchingTouchEvents") ~typ:(returning bool) +let lastTouchEvent self = msg_send ~self ~cmd:(selector "lastTouchEvent") ~typ:(returning (ptr void)) +let locationInWindow self = msg_send ~self ~cmd:(selector "locationInWindow") ~typ:(returning CGPoint.t) +let performAction self = msg_send ~self ~cmd:(selector "performAction") ~typ:(returning void) +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let rotation self = msg_send ~self ~cmd:(selector "rotation") ~typ:(returning double) +let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning double) +let setDefaultPrevented x self = msg_send ~self ~cmd:(selector "setDefaultPrevented:") ~typ:(bool @-> returning void) x +let touchIdentifiers self = msg_send ~self ~cmd:(selector "touchIdentifiers") ~typ:(returning id) +let touchLocations self = msg_send ~self ~cmd:(selector "touchLocations") ~typ:(returning id) +let touchPhases self = msg_send ~self ~cmd:(selector "touchPhases") ~typ:(returning id) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning int) \ No newline at end of file diff --git a/uikit/UIWebTouchEventsGestureRecognizerClass.ml b/uikit/UIWebTouchEventsGestureRecognizerClass.ml new file mode 100644 index 00000000..734ff3c4 --- /dev/null +++ b/uikit/UIWebTouchEventsGestureRecognizerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebtoucheventsgesturerecognizer?language=objc}UIWebTouchEventsGestureRecognizer} *) + +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIWebView.ml b/uikit/UIWebView.ml index ad1a8176..2d41b436 100644 --- a/uikit/UIWebView.ml +++ b/uikit/UIWebView.ml @@ -5,120 +5,120 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebview?language=objc}UIWebView} *) -module C = struct - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) -end +let self = get_class "UIWebView" -let allowsInlineMediaPlayback self = msg_send ~self ~cmd:(selector "allowsInlineMediaPlayback") ~typ:(returning (bool)) -let allowsLinkPreview self = msg_send ~self ~cmd:(selector "allowsLinkPreview") ~typ:(returning (bool)) -let allowsPictureInPictureMediaPlayback self = msg_send ~self ~cmd:(selector "allowsPictureInPictureMediaPlayback") ~typ:(returning (bool)) -let canGoBack self = msg_send ~self ~cmd:(selector "canGoBack") ~typ:(returning (bool)) -let canGoForward self = msg_send ~self ~cmd:(selector "canGoForward") ~typ:(returning (bool)) -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning (void)) x -let dataDetectorTypes self = msg_send ~self ~cmd:(selector "dataDetectorTypes") ~typ:(returning (ullong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let detectsPhoneNumbers self = msg_send ~self ~cmd:(selector "detectsPhoneNumbers") ~typ:(returning (bool)) -let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let gapBetweenPages self = msg_send ~self ~cmd:(selector "gapBetweenPages") ~typ:(returning (double)) -let goBack self = msg_send ~self ~cmd:(selector "goBack") ~typ:(returning (void)) -let goForward self = msg_send ~self ~cmd:(selector "goForward") ~typ:(returning (void)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isLoading self = msg_send ~self ~cmd:(selector "isLoading") ~typ:(returning (bool)) -let keyboardDisplayRequiresUserAction self = msg_send ~self ~cmd:(selector "keyboardDisplayRequiresUserAction") ~typ:(returning (bool)) -let loadData x ~_MIMEType ~textEncodingName ~baseURL self = msg_send ~self ~cmd:(selector "loadData:MIMEType:textEncodingName:baseURL:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x _MIMEType textEncodingName baseURL -let loadHTMLString x ~baseURL self = msg_send ~self ~cmd:(selector "loadHTMLString:baseURL:") ~typ:(id @-> id @-> returning (void)) x baseURL -let loadRequest x self = msg_send ~self ~cmd:(selector "loadRequest:") ~typ:(id @-> returning (void)) x -let mediaPlaybackAllowsAirPlay self = msg_send ~self ~cmd:(selector "mediaPlaybackAllowsAirPlay") ~typ:(returning (bool)) -let mediaPlaybackRequiresUserAction self = msg_send ~self ~cmd:(selector "mediaPlaybackRequiresUserAction") ~typ:(returning (bool)) -let newSnapshotWithRect x self = msg_send ~self ~cmd:(selector "newSnapshotWithRect:") ~typ:(CGRect.t @-> returning (id)) x -let pageCount self = msg_send ~self ~cmd:(selector "pageCount") ~typ:(returning (ullong)) -let pageLength self = msg_send ~self ~cmd:(selector "pageLength") ~typ:(returning (double)) -let paginationBreakingMode self = msg_send ~self ~cmd:(selector "paginationBreakingMode") ~typ:(returning (llong)) -let paginationMode self = msg_send ~self ~cmd:(selector "paginationMode") ~typ:(returning (llong)) -let reload self = msg_send ~self ~cmd:(selector "reload") ~typ:(returning (void)) -let request self = msg_send ~self ~cmd:(selector "request") ~typ:(returning (id)) -let restoreStateFromHistoryItem x ~forWebView self = msg_send ~self ~cmd:(selector "restoreStateFromHistoryItem:forWebView:") ~typ:(id @-> id @-> returning (void)) x forWebView -let saveStateToHistoryItem x ~forWebView self = msg_send ~self ~cmd:(selector "saveStateToHistoryItem:forWebView:") ~typ:(id @-> id @-> returning (void)) x forWebView -let scalesPageToFit self = msg_send ~self ~cmd:(selector "scalesPageToFit") ~typ:(returning (bool)) -let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning (id)) -let scrollViewDidChangeAdjustedContentInset x self = msg_send ~self ~cmd:(selector "scrollViewDidChangeAdjustedContentInset:") ~typ:(id @-> returning (void)) x -let scrollViewDidEndDecelerating x self = msg_send ~self ~cmd:(selector "scrollViewDidEndDecelerating:") ~typ:(id @-> returning (void)) x -let scrollViewDidEndDragging x ~willDecelerate self = msg_send ~self ~cmd:(selector "scrollViewDidEndDragging:willDecelerate:") ~typ:(id @-> bool @-> returning (void)) x willDecelerate -let scrollViewDidEndZooming x ~withView ~atScale self = msg_send ~self ~cmd:(selector "scrollViewDidEndZooming:withView:atScale:") ~typ:(id @-> id @-> double @-> returning (void)) x withView atScale -let scrollViewDidScroll x self = msg_send ~self ~cmd:(selector "scrollViewDidScroll:") ~typ:(id @-> returning (void)) x -let scrollViewDidScrollToTop x self = msg_send ~self ~cmd:(selector "scrollViewDidScrollToTop:") ~typ:(id @-> returning (void)) x -let scrollViewDidZoom x self = msg_send ~self ~cmd:(selector "scrollViewDidZoom:") ~typ:(id @-> returning (void)) x -let scrollViewWasRemoved x self = msg_send ~self ~cmd:(selector "scrollViewWasRemoved:") ~typ:(id @-> returning (void)) x -let scrollViewWillBeginDragging x self = msg_send ~self ~cmd:(selector "scrollViewWillBeginDragging:") ~typ:(id @-> returning (void)) x -let scrollViewWillBeginZooming x ~withView self = msg_send ~self ~cmd:(selector "scrollViewWillBeginZooming:withView:") ~typ:(id @-> id @-> returning (void)) x withView -let select x self = msg_send ~self ~cmd:(selector "select:") ~typ:(id @-> returning (void)) x -let selectAll x self = msg_send ~self ~cmd:(selector "selectAll:") ~typ:(id @-> returning (void)) x -let setAllowsInlineMediaPlayback x self = msg_send ~self ~cmd:(selector "setAllowsInlineMediaPlayback:") ~typ:(bool @-> returning (void)) x -let setAllowsLinkPreview x self = msg_send ~self ~cmd:(selector "setAllowsLinkPreview:") ~typ:(bool @-> returning (void)) x -let setAllowsPictureInPictureMediaPlayback x self = msg_send ~self ~cmd:(selector "setAllowsPictureInPictureMediaPlayback:") ~typ:(bool @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setDataDetectorTypes x self = msg_send ~self ~cmd:(selector "setDataDetectorTypes:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDetectsPhoneNumbers x self = msg_send ~self ~cmd:(selector "setDetectsPhoneNumbers:") ~typ:(bool @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setGapBetweenPages x self = msg_send ~self ~cmd:(selector "setGapBetweenPages:") ~typ:(double @-> returning (void)) x -let setKeyboardDisplayRequiresUserAction x self = msg_send ~self ~cmd:(selector "setKeyboardDisplayRequiresUserAction:") ~typ:(bool @-> returning (void)) x -let setMediaPlaybackAllowsAirPlay x self = msg_send ~self ~cmd:(selector "setMediaPlaybackAllowsAirPlay:") ~typ:(bool @-> returning (void)) x -let setMediaPlaybackRequiresUserAction x self = msg_send ~self ~cmd:(selector "setMediaPlaybackRequiresUserAction:") ~typ:(bool @-> returning (void)) x -let setOpaque x self = msg_send ~self ~cmd:(selector "setOpaque:") ~typ:(bool @-> returning (void)) x -let setPageLength x self = msg_send ~self ~cmd:(selector "setPageLength:") ~typ:(double @-> returning (void)) x -let setPaginationBreakingMode x self = msg_send ~self ~cmd:(selector "setPaginationBreakingMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPaginationMode x self = msg_send ~self ~cmd:(selector "setPaginationMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setScalesPageToFit x self = msg_send ~self ~cmd:(selector "setScalesPageToFit:") ~typ:(bool @-> returning (void)) x -let setSuppressesIncrementalRendering x self = msg_send ~self ~cmd:(selector "setSuppressesIncrementalRendering:") ~typ:(bool @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let stopLoading self = msg_send ~self ~cmd:(selector "stopLoading") ~typ:(returning (void)) -let stringByEvaluatingJavaScriptFromString x self = msg_send ~self ~cmd:(selector "stringByEvaluatingJavaScriptFromString:") ~typ:(id @-> returning (id)) x -let suppressesIncrementalRendering self = msg_send ~self ~cmd:(selector "suppressesIncrementalRendering") ~typ:(returning (bool)) -let view x ~didSetFrame ~oldFrame self = msg_send ~self ~cmd:(selector "view:didSetFrame:oldFrame:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> returning (void)) x didSetFrame oldFrame -let viewForZoomingInScrollView x self = msg_send ~self ~cmd:(selector "viewForZoomingInScrollView:") ~typ:(id @-> returning (id)) x -let webThreadWebView x ~resource ~willSendRequest ~redirectResponse ~fromDataSource self = msg_send ~self ~cmd:(selector "webThreadWebView:resource:willSendRequest:redirectResponse:fromDataSource:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (id)) x resource willSendRequest redirectResponse fromDataSource -let webView x ~didChangeLocationWithinPageForFrame self = msg_send ~self ~cmd:(selector "webView:didChangeLocationWithinPageForFrame:") ~typ:(id @-> id @-> returning (void)) x didChangeLocationWithinPageForFrame -let webView1 x ~didCommitLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didCommitLoadForFrame:") ~typ:(id @-> id @-> returning (void)) x didCommitLoadForFrame -let webView2 x ~didFinishLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didFinishLoadForFrame:") ~typ:(id @-> id @-> returning (void)) x didFinishLoadForFrame -let webView3 x ~didFirstLayoutInFrame self = msg_send ~self ~cmd:(selector "webView:didFirstLayoutInFrame:") ~typ:(id @-> id @-> returning (void)) x didFirstLayoutInFrame -let webView4 x ~didReceiveServerRedirectForProvisionalLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didReceiveServerRedirectForProvisionalLoadForFrame:") ~typ:(id @-> id @-> returning (void)) x didReceiveServerRedirectForProvisionalLoadForFrame -let webView5 x ~didStartProvisionalLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didStartProvisionalLoadForFrame:") ~typ:(id @-> id @-> returning (void)) x didStartProvisionalLoadForFrame -let webView6 x ~printFrameView self = msg_send ~self ~cmd:(selector "webView:printFrameView:") ~typ:(id @-> id @-> returning (void)) x printFrameView -let webView7 x ~connectionPropertiesForResource ~dataSource self = msg_send ~self ~cmd:(selector "webView:connectionPropertiesForResource:dataSource:") ~typ:(id @-> id @-> id @-> returning (id)) x connectionPropertiesForResource dataSource -let webView8 x ~didClearWindowObject ~forFrame self = msg_send ~self ~cmd:(selector "webView:didClearWindowObject:forFrame:") ~typ:(id @-> id @-> id @-> returning (void)) x didClearWindowObject forFrame -let webView9 x ~didFailLoadWithError ~forFrame self = msg_send ~self ~cmd:(selector "webView:didFailLoadWithError:forFrame:") ~typ:(id @-> id @-> id @-> returning (void)) x didFailLoadWithError forFrame -let webView10 x ~didFailProvisionalLoadWithError ~forFrame self = msg_send ~self ~cmd:(selector "webView:didFailProvisionalLoadWithError:forFrame:") ~typ:(id @-> id @-> id @-> returning (void)) x didFailProvisionalLoadWithError forFrame -let webView11 x ~didReceiveTitle ~forFrame self = msg_send ~self ~cmd:(selector "webView:didReceiveTitle:forFrame:") ~typ:(id @-> id @-> id @-> returning (void)) x didReceiveTitle forFrame -let webView12 x ~exceededApplicationCacheOriginQuotaForSecurityOrigin ~totalSpaceNeeded self = msg_send ~self ~cmd:(selector "webView:exceededApplicationCacheOriginQuotaForSecurityOrigin:totalSpaceNeeded:") ~typ:(id @-> id @-> ullong @-> returning (void)) x exceededApplicationCacheOriginQuotaForSecurityOrigin (ULLong.of_int totalSpaceNeeded) -let webView13 x ~identifierForInitialRequest ~fromDataSource self = msg_send ~self ~cmd:(selector "webView:identifierForInitialRequest:fromDataSource:") ~typ:(id @-> id @-> id @-> returning (id)) x identifierForInitialRequest fromDataSource -let webView14 x ~resource ~didFinishLoadingFromDataSource self = msg_send ~self ~cmd:(selector "webView:resource:didFinishLoadingFromDataSource:") ~typ:(id @-> id @-> id @-> returning (void)) x resource didFinishLoadingFromDataSource -let webView15 x ~runJavaScriptAlertPanelWithMessage ~initiatedByFrame self = msg_send ~self ~cmd:(selector "webView:runJavaScriptAlertPanelWithMessage:initiatedByFrame:") ~typ:(id @-> id @-> id @-> returning (void)) x runJavaScriptAlertPanelWithMessage initiatedByFrame -let webView16 x ~runJavaScriptConfirmPanelWithMessage ~initiatedByFrame self = msg_send ~self ~cmd:(selector "webView:runJavaScriptConfirmPanelWithMessage:initiatedByFrame:") ~typ:(id @-> id @-> id @-> returning (bool)) x runJavaScriptConfirmPanelWithMessage initiatedByFrame -let webView17 x ~unableToImplementPolicyWithError ~frame self = msg_send ~self ~cmd:(selector "webView:unableToImplementPolicyWithError:frame:") ~typ:(id @-> id @-> id @-> returning (void)) x unableToImplementPolicyWithError frame -let webView18 x ~decidePolicyForGeolocationRequestFromOrigin ~frame ~listener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForGeolocationRequestFromOrigin:frame:listener:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x decidePolicyForGeolocationRequestFromOrigin frame listener -let webView19 x ~frame ~exceededDatabaseQuotaForSecurityOrigin ~database self = msg_send ~self ~cmd:(selector "webView:frame:exceededDatabaseQuotaForSecurityOrigin:database:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x frame exceededDatabaseQuotaForSecurityOrigin database -let webView20 x ~resource ~canAuthenticateAgainstProtectionSpace ~forDataSource self = msg_send ~self ~cmd:(selector "webView:resource:canAuthenticateAgainstProtectionSpace:forDataSource:") ~typ:(id @-> id @-> id @-> id @-> returning (bool)) x resource canAuthenticateAgainstProtectionSpace forDataSource -let webView21 x ~resource ~didCancelAuthenticationChallenge ~fromDataSource self = msg_send ~self ~cmd:(selector "webView:resource:didCancelAuthenticationChallenge:fromDataSource:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x resource didCancelAuthenticationChallenge fromDataSource -let webView22 x ~resource ~didFailLoadingWithError ~fromDataSource self = msg_send ~self ~cmd:(selector "webView:resource:didFailLoadingWithError:fromDataSource:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x resource didFailLoadingWithError fromDataSource -let webView23 x ~resource ~didReceiveAuthenticationChallenge ~fromDataSource self = msg_send ~self ~cmd:(selector "webView:resource:didReceiveAuthenticationChallenge:fromDataSource:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x resource didReceiveAuthenticationChallenge fromDataSource -let webView24 x ~runJavaScriptTextInputPanelWithPrompt ~defaultText ~initiatedByFrame self = msg_send ~self ~cmd:(selector "webView:runJavaScriptTextInputPanelWithPrompt:defaultText:initiatedByFrame:") ~typ:(id @-> id @-> id @-> id @-> returning (id)) x runJavaScriptTextInputPanelWithPrompt defaultText initiatedByFrame -let webView25 x ~decidePolicyForMIMEType ~request ~frame ~decisionListener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForMIMEType:request:frame:decisionListener:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (void)) x decidePolicyForMIMEType request frame decisionListener -let webView26 x ~decidePolicyForNavigationAction ~request ~frame ~decisionListener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForNavigationAction:request:frame:decisionListener:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (void)) x decidePolicyForNavigationAction request frame decisionListener -let webView27 x ~decidePolicyForNewWindowAction ~request ~newFrameName ~decisionListener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForNewWindowAction:request:newFrameName:decisionListener:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (void)) x decidePolicyForNewWindowAction request newFrameName decisionListener -let webViewClose x self = msg_send ~self ~cmd:(selector "webViewClose:") ~typ:(id @-> returning (void)) x -let webViewMainFrameDidCommitLoad x self = msg_send ~self ~cmd:(selector "webViewMainFrameDidCommitLoad:") ~typ:(id @-> returning (void)) x -let webViewMainFrameDidFailLoad x ~withError self = msg_send ~self ~cmd:(selector "webViewMainFrameDidFailLoad:withError:") ~typ:(id @-> id @-> returning (void)) x withError -let webViewMainFrameDidFinishLoad x self = msg_send ~self ~cmd:(selector "webViewMainFrameDidFinishLoad:") ~typ:(id @-> returning (void)) x -let webViewMainFrameDidFirstVisuallyNonEmptyLayoutInFrame x self = msg_send ~self ~cmd:(selector "webViewMainFrameDidFirstVisuallyNonEmptyLayoutInFrame:") ~typ:(id @-> returning (void)) x -let webViewSupportedOrientationsUpdated x self = msg_send ~self ~cmd:(selector "webViewSupportedOrientationsUpdated:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let allowsInlineMediaPlayback self = msg_send ~self ~cmd:(selector "allowsInlineMediaPlayback") ~typ:(returning bool) +let allowsLinkPreview self = msg_send ~self ~cmd:(selector "allowsLinkPreview") ~typ:(returning bool) +let allowsPictureInPictureMediaPlayback self = msg_send ~self ~cmd:(selector "allowsPictureInPictureMediaPlayback") ~typ:(returning bool) +let canGoBack self = msg_send ~self ~cmd:(selector "canGoBack") ~typ:(returning bool) +let canGoForward self = msg_send ~self ~cmd:(selector "canGoForward") ~typ:(returning bool) +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning void) x +let dataDetectorTypes self = msg_send ~self ~cmd:(selector "dataDetectorTypes") ~typ:(returning ullong) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let detectsPhoneNumbers self = msg_send ~self ~cmd:(selector "detectsPhoneNumbers") ~typ:(returning bool) +let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let gapBetweenPages self = msg_send ~self ~cmd:(selector "gapBetweenPages") ~typ:(returning double) +let goBack self = msg_send ~self ~cmd:(selector "goBack") ~typ:(returning void) +let goForward self = msg_send ~self ~cmd:(selector "goForward") ~typ:(returning void) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isLoading self = msg_send ~self ~cmd:(selector "isLoading") ~typ:(returning bool) +let keyboardDisplayRequiresUserAction self = msg_send ~self ~cmd:(selector "keyboardDisplayRequiresUserAction") ~typ:(returning bool) +let loadData x ~_MIMEType ~textEncodingName ~baseURL self = msg_send ~self ~cmd:(selector "loadData:MIMEType:textEncodingName:baseURL:") ~typ:(id @-> id @-> id @-> id @-> returning void) x _MIMEType textEncodingName baseURL +let loadHTMLString x ~baseURL self = msg_send ~self ~cmd:(selector "loadHTMLString:baseURL:") ~typ:(id @-> id @-> returning void) x baseURL +let loadRequest x self = msg_send ~self ~cmd:(selector "loadRequest:") ~typ:(id @-> returning void) x +let mediaPlaybackAllowsAirPlay self = msg_send ~self ~cmd:(selector "mediaPlaybackAllowsAirPlay") ~typ:(returning bool) +let mediaPlaybackRequiresUserAction self = msg_send ~self ~cmd:(selector "mediaPlaybackRequiresUserAction") ~typ:(returning bool) +let newSnapshotWithRect x self = msg_send ~self ~cmd:(selector "newSnapshotWithRect:") ~typ:(CGRect.t @-> returning (ptr CGImage.t)) x +let pageCount self = msg_send ~self ~cmd:(selector "pageCount") ~typ:(returning ullong) +let pageLength self = msg_send ~self ~cmd:(selector "pageLength") ~typ:(returning double) +let paginationBreakingMode self = msg_send ~self ~cmd:(selector "paginationBreakingMode") ~typ:(returning llong) +let paginationMode self = msg_send ~self ~cmd:(selector "paginationMode") ~typ:(returning llong) +let reload self = msg_send ~self ~cmd:(selector "reload") ~typ:(returning void) +let request self = msg_send ~self ~cmd:(selector "request") ~typ:(returning id) +let restoreStateFromHistoryItem x ~forWebView self = msg_send ~self ~cmd:(selector "restoreStateFromHistoryItem:forWebView:") ~typ:(id @-> id @-> returning void) x forWebView +let saveStateToHistoryItem x ~forWebView self = msg_send ~self ~cmd:(selector "saveStateToHistoryItem:forWebView:") ~typ:(id @-> id @-> returning void) x forWebView +let scalesPageToFit self = msg_send ~self ~cmd:(selector "scalesPageToFit") ~typ:(returning bool) +let scrollView self = msg_send ~self ~cmd:(selector "scrollView") ~typ:(returning id) +let scrollViewDidChangeAdjustedContentInset x self = msg_send ~self ~cmd:(selector "scrollViewDidChangeAdjustedContentInset:") ~typ:(id @-> returning void) x +let scrollViewDidEndDecelerating x self = msg_send ~self ~cmd:(selector "scrollViewDidEndDecelerating:") ~typ:(id @-> returning void) x +let scrollViewDidEndDragging x ~willDecelerate self = msg_send ~self ~cmd:(selector "scrollViewDidEndDragging:willDecelerate:") ~typ:(id @-> bool @-> returning void) x willDecelerate +let scrollViewDidEndZooming x ~withView ~atScale self = msg_send ~self ~cmd:(selector "scrollViewDidEndZooming:withView:atScale:") ~typ:(id @-> id @-> double @-> returning void) x withView atScale +let scrollViewDidScroll x self = msg_send ~self ~cmd:(selector "scrollViewDidScroll:") ~typ:(id @-> returning void) x +let scrollViewDidScrollToTop x self = msg_send ~self ~cmd:(selector "scrollViewDidScrollToTop:") ~typ:(id @-> returning void) x +let scrollViewDidZoom x self = msg_send ~self ~cmd:(selector "scrollViewDidZoom:") ~typ:(id @-> returning void) x +let scrollViewWasRemoved x self = msg_send ~self ~cmd:(selector "scrollViewWasRemoved:") ~typ:(id @-> returning void) x +let scrollViewWillBeginDragging x self = msg_send ~self ~cmd:(selector "scrollViewWillBeginDragging:") ~typ:(id @-> returning void) x +let scrollViewWillBeginZooming x ~withView self = msg_send ~self ~cmd:(selector "scrollViewWillBeginZooming:withView:") ~typ:(id @-> id @-> returning void) x withView +let select x self = msg_send ~self ~cmd:(selector "select:") ~typ:(id @-> returning void) x +let selectAll x self = msg_send ~self ~cmd:(selector "selectAll:") ~typ:(id @-> returning void) x +let setAllowsInlineMediaPlayback x self = msg_send ~self ~cmd:(selector "setAllowsInlineMediaPlayback:") ~typ:(bool @-> returning void) x +let setAllowsLinkPreview x self = msg_send ~self ~cmd:(selector "setAllowsLinkPreview:") ~typ:(bool @-> returning void) x +let setAllowsPictureInPictureMediaPlayback x self = msg_send ~self ~cmd:(selector "setAllowsPictureInPictureMediaPlayback:") ~typ:(bool @-> returning void) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setDataDetectorTypes x self = msg_send ~self ~cmd:(selector "setDataDetectorTypes:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDetectsPhoneNumbers x self = msg_send ~self ~cmd:(selector "setDetectsPhoneNumbers:") ~typ:(bool @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setGapBetweenPages x self = msg_send ~self ~cmd:(selector "setGapBetweenPages:") ~typ:(double @-> returning void) x +let setKeyboardDisplayRequiresUserAction x self = msg_send ~self ~cmd:(selector "setKeyboardDisplayRequiresUserAction:") ~typ:(bool @-> returning void) x +let setMediaPlaybackAllowsAirPlay x self = msg_send ~self ~cmd:(selector "setMediaPlaybackAllowsAirPlay:") ~typ:(bool @-> returning void) x +let setMediaPlaybackRequiresUserAction x self = msg_send ~self ~cmd:(selector "setMediaPlaybackRequiresUserAction:") ~typ:(bool @-> returning void) x +let setOpaque x self = msg_send ~self ~cmd:(selector "setOpaque:") ~typ:(bool @-> returning void) x +let setPageLength x self = msg_send ~self ~cmd:(selector "setPageLength:") ~typ:(double @-> returning void) x +let setPaginationBreakingMode x self = msg_send ~self ~cmd:(selector "setPaginationBreakingMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPaginationMode x self = msg_send ~self ~cmd:(selector "setPaginationMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setScalesPageToFit x self = msg_send ~self ~cmd:(selector "setScalesPageToFit:") ~typ:(bool @-> returning void) x +let setSuppressesIncrementalRendering x self = msg_send ~self ~cmd:(selector "setSuppressesIncrementalRendering:") ~typ:(bool @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let stopLoading self = msg_send ~self ~cmd:(selector "stopLoading") ~typ:(returning void) +let stringByEvaluatingJavaScriptFromString x self = msg_send ~self ~cmd:(selector "stringByEvaluatingJavaScriptFromString:") ~typ:(id @-> returning id) x +let suppressesIncrementalRendering self = msg_send ~self ~cmd:(selector "suppressesIncrementalRendering") ~typ:(returning bool) +let view x ~didSetFrame ~oldFrame self = msg_send ~self ~cmd:(selector "view:didSetFrame:oldFrame:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> returning void) x didSetFrame oldFrame +let viewForZoomingInScrollView x self = msg_send ~self ~cmd:(selector "viewForZoomingInScrollView:") ~typ:(id @-> returning id) x +let webThreadWebView x ~resource ~willSendRequest ~redirectResponse ~fromDataSource self = msg_send ~self ~cmd:(selector "webThreadWebView:resource:willSendRequest:redirectResponse:fromDataSource:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning id) x resource willSendRequest redirectResponse fromDataSource +let webView x ~didChangeLocationWithinPageForFrame self = msg_send ~self ~cmd:(selector "webView:didChangeLocationWithinPageForFrame:") ~typ:(id @-> id @-> returning void) x didChangeLocationWithinPageForFrame +let webView1 x ~didCommitLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didCommitLoadForFrame:") ~typ:(id @-> id @-> returning void) x didCommitLoadForFrame +let webView2 x ~didFinishLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didFinishLoadForFrame:") ~typ:(id @-> id @-> returning void) x didFinishLoadForFrame +let webView3 x ~didFirstLayoutInFrame self = msg_send ~self ~cmd:(selector "webView:didFirstLayoutInFrame:") ~typ:(id @-> id @-> returning void) x didFirstLayoutInFrame +let webView4 x ~didReceiveServerRedirectForProvisionalLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didReceiveServerRedirectForProvisionalLoadForFrame:") ~typ:(id @-> id @-> returning void) x didReceiveServerRedirectForProvisionalLoadForFrame +let webView5 x ~didStartProvisionalLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didStartProvisionalLoadForFrame:") ~typ:(id @-> id @-> returning void) x didStartProvisionalLoadForFrame +let webView6 x ~printFrameView self = msg_send ~self ~cmd:(selector "webView:printFrameView:") ~typ:(id @-> id @-> returning void) x printFrameView +let webView7 x ~connectionPropertiesForResource ~dataSource self = msg_send ~self ~cmd:(selector "webView:connectionPropertiesForResource:dataSource:") ~typ:(id @-> id @-> id @-> returning id) x connectionPropertiesForResource dataSource +let webView8 x ~didClearWindowObject ~forFrame self = msg_send ~self ~cmd:(selector "webView:didClearWindowObject:forFrame:") ~typ:(id @-> id @-> id @-> returning void) x didClearWindowObject forFrame +let webView9 x ~didFailLoadWithError ~forFrame self = msg_send ~self ~cmd:(selector "webView:didFailLoadWithError:forFrame:") ~typ:(id @-> id @-> id @-> returning void) x didFailLoadWithError forFrame +let webView10 x ~didFailProvisionalLoadWithError ~forFrame self = msg_send ~self ~cmd:(selector "webView:didFailProvisionalLoadWithError:forFrame:") ~typ:(id @-> id @-> id @-> returning void) x didFailProvisionalLoadWithError forFrame +let webView11 x ~didReceiveTitle ~forFrame self = msg_send ~self ~cmd:(selector "webView:didReceiveTitle:forFrame:") ~typ:(id @-> id @-> id @-> returning void) x didReceiveTitle forFrame +let webView12 x ~exceededApplicationCacheOriginQuotaForSecurityOrigin ~totalSpaceNeeded self = msg_send ~self ~cmd:(selector "webView:exceededApplicationCacheOriginQuotaForSecurityOrigin:totalSpaceNeeded:") ~typ:(id @-> id @-> ullong @-> returning void) x exceededApplicationCacheOriginQuotaForSecurityOrigin (ULLong.of_int totalSpaceNeeded) +let webView13 x ~identifierForInitialRequest ~fromDataSource self = msg_send ~self ~cmd:(selector "webView:identifierForInitialRequest:fromDataSource:") ~typ:(id @-> id @-> id @-> returning id) x identifierForInitialRequest fromDataSource +let webView14 x ~resource ~didFinishLoadingFromDataSource self = msg_send ~self ~cmd:(selector "webView:resource:didFinishLoadingFromDataSource:") ~typ:(id @-> id @-> id @-> returning void) x resource didFinishLoadingFromDataSource +let webView15 x ~runJavaScriptAlertPanelWithMessage ~initiatedByFrame self = msg_send ~self ~cmd:(selector "webView:runJavaScriptAlertPanelWithMessage:initiatedByFrame:") ~typ:(id @-> id @-> id @-> returning void) x runJavaScriptAlertPanelWithMessage initiatedByFrame +let webView16 x ~runJavaScriptConfirmPanelWithMessage ~initiatedByFrame self = msg_send ~self ~cmd:(selector "webView:runJavaScriptConfirmPanelWithMessage:initiatedByFrame:") ~typ:(id @-> id @-> id @-> returning bool) x runJavaScriptConfirmPanelWithMessage initiatedByFrame +let webView17 x ~unableToImplementPolicyWithError ~frame self = msg_send ~self ~cmd:(selector "webView:unableToImplementPolicyWithError:frame:") ~typ:(id @-> id @-> id @-> returning void) x unableToImplementPolicyWithError frame +let webView18 x ~decidePolicyForGeolocationRequestFromOrigin ~frame ~listener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForGeolocationRequestFromOrigin:frame:listener:") ~typ:(id @-> id @-> id @-> id @-> returning void) x decidePolicyForGeolocationRequestFromOrigin frame listener +let webView19 x ~frame ~exceededDatabaseQuotaForSecurityOrigin ~database self = msg_send ~self ~cmd:(selector "webView:frame:exceededDatabaseQuotaForSecurityOrigin:database:") ~typ:(id @-> id @-> id @-> id @-> returning void) x frame exceededDatabaseQuotaForSecurityOrigin database +let webView20 x ~resource ~canAuthenticateAgainstProtectionSpace ~forDataSource self = msg_send ~self ~cmd:(selector "webView:resource:canAuthenticateAgainstProtectionSpace:forDataSource:") ~typ:(id @-> id @-> id @-> id @-> returning bool) x resource canAuthenticateAgainstProtectionSpace forDataSource +let webView21 x ~resource ~didCancelAuthenticationChallenge ~fromDataSource self = msg_send ~self ~cmd:(selector "webView:resource:didCancelAuthenticationChallenge:fromDataSource:") ~typ:(id @-> id @-> id @-> id @-> returning void) x resource didCancelAuthenticationChallenge fromDataSource +let webView22 x ~resource ~didFailLoadingWithError ~fromDataSource self = msg_send ~self ~cmd:(selector "webView:resource:didFailLoadingWithError:fromDataSource:") ~typ:(id @-> id @-> id @-> id @-> returning void) x resource didFailLoadingWithError fromDataSource +let webView23 x ~resource ~didReceiveAuthenticationChallenge ~fromDataSource self = msg_send ~self ~cmd:(selector "webView:resource:didReceiveAuthenticationChallenge:fromDataSource:") ~typ:(id @-> id @-> id @-> id @-> returning void) x resource didReceiveAuthenticationChallenge fromDataSource +let webView24 x ~runJavaScriptTextInputPanelWithPrompt ~defaultText ~initiatedByFrame self = msg_send ~self ~cmd:(selector "webView:runJavaScriptTextInputPanelWithPrompt:defaultText:initiatedByFrame:") ~typ:(id @-> id @-> id @-> id @-> returning id) x runJavaScriptTextInputPanelWithPrompt defaultText initiatedByFrame +let webView25 x ~decidePolicyForMIMEType ~request ~frame ~decisionListener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForMIMEType:request:frame:decisionListener:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning void) x decidePolicyForMIMEType request frame decisionListener +let webView26 x ~decidePolicyForNavigationAction ~request ~frame ~decisionListener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForNavigationAction:request:frame:decisionListener:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning void) x decidePolicyForNavigationAction request frame decisionListener +let webView27 x ~decidePolicyForNewWindowAction ~request ~newFrameName ~decisionListener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForNewWindowAction:request:newFrameName:decisionListener:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning void) x decidePolicyForNewWindowAction request newFrameName decisionListener +let webViewClose x self = msg_send ~self ~cmd:(selector "webViewClose:") ~typ:(id @-> returning void) x +let webViewMainFrameDidCommitLoad x self = msg_send ~self ~cmd:(selector "webViewMainFrameDidCommitLoad:") ~typ:(id @-> returning void) x +let webViewMainFrameDidFailLoad x ~withError self = msg_send ~self ~cmd:(selector "webViewMainFrameDidFailLoad:withError:") ~typ:(id @-> id @-> returning void) x withError +let webViewMainFrameDidFinishLoad x self = msg_send ~self ~cmd:(selector "webViewMainFrameDidFinishLoad:") ~typ:(id @-> returning void) x +let webViewMainFrameDidFirstVisuallyNonEmptyLayoutInFrame x self = msg_send ~self ~cmd:(selector "webViewMainFrameDidFirstVisuallyNonEmptyLayoutInFrame:") ~typ:(id @-> returning void) x +let webViewSupportedOrientationsUpdated x self = msg_send ~self ~cmd:(selector "webViewSupportedOrientationsUpdated:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWebViewClass.ml b/uikit/UIWebViewClass.ml new file mode 100644 index 00000000..fbe0cfc3 --- /dev/null +++ b/uikit/UIWebViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebview?language=objc}UIWebView} *) + +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIWebViewWebViewDelegate.ml b/uikit/UIWebViewWebViewDelegate.ml index 7282ae9b..75c5b98e 100644 --- a/uikit/UIWebViewWebViewDelegate.ml +++ b/uikit/UIWebViewWebViewDelegate.ml @@ -5,39 +5,43 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWebViewWebViewDelegate" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebviewwebviewdelegate?language=objc}UIWebViewWebViewDelegate} *) -let initWithUIWebView x self = msg_send ~self ~cmd:(selector "initWithUIWebView:") ~typ:(id @-> returning (id)) x -let webThreadWebView x ~resource ~willSendRequest ~redirectResponse ~fromDataSource self = msg_send ~self ~cmd:(selector "webThreadWebView:resource:willSendRequest:redirectResponse:fromDataSource:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (id)) x resource willSendRequest redirectResponse fromDataSource -let webView x ~createWebViewWithRequest self = msg_send ~self ~cmd:(selector "webView:createWebViewWithRequest:") ~typ:(id @-> id @-> returning (id)) x createWebViewWithRequest -let webView1 x ~didChangeLocationWithinPageForFrame self = msg_send ~self ~cmd:(selector "webView:didChangeLocationWithinPageForFrame:") ~typ:(id @-> id @-> returning (void)) x didChangeLocationWithinPageForFrame -let webView2 x ~didCommitLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didCommitLoadForFrame:") ~typ:(id @-> id @-> returning (void)) x didCommitLoadForFrame -let webView3 x ~didFinishLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didFinishLoadForFrame:") ~typ:(id @-> id @-> returning (void)) x didFinishLoadForFrame -let webView4 x ~didFirstLayoutInFrame self = msg_send ~self ~cmd:(selector "webView:didFirstLayoutInFrame:") ~typ:(id @-> id @-> returning (void)) x didFirstLayoutInFrame -let webView5 x ~didReceiveServerRedirectForProvisionalLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didReceiveServerRedirectForProvisionalLoadForFrame:") ~typ:(id @-> id @-> returning (void)) x didReceiveServerRedirectForProvisionalLoadForFrame -let webView6 x ~didStartProvisionalLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didStartProvisionalLoadForFrame:") ~typ:(id @-> id @-> returning (void)) x didStartProvisionalLoadForFrame -let webView7 x ~printFrameView self = msg_send ~self ~cmd:(selector "webView:printFrameView:") ~typ:(id @-> id @-> returning (void)) x printFrameView -let webView8 x ~connectionPropertiesForResource ~dataSource self = msg_send ~self ~cmd:(selector "webView:connectionPropertiesForResource:dataSource:") ~typ:(id @-> id @-> id @-> returning (id)) x connectionPropertiesForResource dataSource -let webView9 x ~didClearWindowObject ~forFrame self = msg_send ~self ~cmd:(selector "webView:didClearWindowObject:forFrame:") ~typ:(id @-> id @-> id @-> returning (void)) x didClearWindowObject forFrame -let webView10 x ~didFailLoadWithError ~forFrame self = msg_send ~self ~cmd:(selector "webView:didFailLoadWithError:forFrame:") ~typ:(id @-> id @-> id @-> returning (void)) x didFailLoadWithError forFrame -let webView11 x ~didFailProvisionalLoadWithError ~forFrame self = msg_send ~self ~cmd:(selector "webView:didFailProvisionalLoadWithError:forFrame:") ~typ:(id @-> id @-> id @-> returning (void)) x didFailProvisionalLoadWithError forFrame -let webView12 x ~didReceiveTitle ~forFrame self = msg_send ~self ~cmd:(selector "webView:didReceiveTitle:forFrame:") ~typ:(id @-> id @-> id @-> returning (void)) x didReceiveTitle forFrame -let webView13 x ~exceededApplicationCacheOriginQuotaForSecurityOrigin ~totalSpaceNeeded self = msg_send ~self ~cmd:(selector "webView:exceededApplicationCacheOriginQuotaForSecurityOrigin:totalSpaceNeeded:") ~typ:(id @-> id @-> ullong @-> returning (void)) x exceededApplicationCacheOriginQuotaForSecurityOrigin (ULLong.of_int totalSpaceNeeded) -let webView14 x ~identifierForInitialRequest ~fromDataSource self = msg_send ~self ~cmd:(selector "webView:identifierForInitialRequest:fromDataSource:") ~typ:(id @-> id @-> id @-> returning (id)) x identifierForInitialRequest fromDataSource -let webView15 x ~resource ~didFinishLoadingFromDataSource self = msg_send ~self ~cmd:(selector "webView:resource:didFinishLoadingFromDataSource:") ~typ:(id @-> id @-> id @-> returning (void)) x resource didFinishLoadingFromDataSource -let webView16 x ~runJavaScriptAlertPanelWithMessage ~initiatedByFrame self = msg_send ~self ~cmd:(selector "webView:runJavaScriptAlertPanelWithMessage:initiatedByFrame:") ~typ:(id @-> id @-> id @-> returning (void)) x runJavaScriptAlertPanelWithMessage initiatedByFrame -let webView17 x ~runJavaScriptConfirmPanelWithMessage ~initiatedByFrame self = msg_send ~self ~cmd:(selector "webView:runJavaScriptConfirmPanelWithMessage:initiatedByFrame:") ~typ:(id @-> id @-> id @-> returning (bool)) x runJavaScriptConfirmPanelWithMessage initiatedByFrame -let webView18 x ~unableToImplementPolicyWithError ~frame self = msg_send ~self ~cmd:(selector "webView:unableToImplementPolicyWithError:frame:") ~typ:(id @-> id @-> id @-> returning (void)) x unableToImplementPolicyWithError frame -let webView19 x ~decidePolicyForGeolocationRequestFromOrigin ~frame ~listener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForGeolocationRequestFromOrigin:frame:listener:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x decidePolicyForGeolocationRequestFromOrigin frame listener -let webView20 x ~frame ~exceededDatabaseQuotaForSecurityOrigin ~database self = msg_send ~self ~cmd:(selector "webView:frame:exceededDatabaseQuotaForSecurityOrigin:database:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x frame exceededDatabaseQuotaForSecurityOrigin database -let webView21 x ~resource ~canAuthenticateAgainstProtectionSpace ~forDataSource self = msg_send ~self ~cmd:(selector "webView:resource:canAuthenticateAgainstProtectionSpace:forDataSource:") ~typ:(id @-> id @-> id @-> id @-> returning (bool)) x resource canAuthenticateAgainstProtectionSpace forDataSource -let webView22 x ~resource ~didCancelAuthenticationChallenge ~fromDataSource self = msg_send ~self ~cmd:(selector "webView:resource:didCancelAuthenticationChallenge:fromDataSource:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x resource didCancelAuthenticationChallenge fromDataSource -let webView23 x ~resource ~didFailLoadingWithError ~fromDataSource self = msg_send ~self ~cmd:(selector "webView:resource:didFailLoadingWithError:fromDataSource:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x resource didFailLoadingWithError fromDataSource -let webView24 x ~resource ~didReceiveAuthenticationChallenge ~fromDataSource self = msg_send ~self ~cmd:(selector "webView:resource:didReceiveAuthenticationChallenge:fromDataSource:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x resource didReceiveAuthenticationChallenge fromDataSource -let webView25 x ~runJavaScriptTextInputPanelWithPrompt ~defaultText ~initiatedByFrame self = msg_send ~self ~cmd:(selector "webView:runJavaScriptTextInputPanelWithPrompt:defaultText:initiatedByFrame:") ~typ:(id @-> id @-> id @-> id @-> returning (id)) x runJavaScriptTextInputPanelWithPrompt defaultText initiatedByFrame -let webView26 x ~decidePolicyForMIMEType ~request ~frame ~decisionListener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForMIMEType:request:frame:decisionListener:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (void)) x decidePolicyForMIMEType request frame decisionListener -let webView27 x ~decidePolicyForNavigationAction ~request ~frame ~decisionListener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForNavigationAction:request:frame:decisionListener:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (void)) x decidePolicyForNavigationAction request frame decisionListener -let webView28 x ~decidePolicyForNewWindowAction ~request ~newFrameName ~decisionListener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForNewWindowAction:request:newFrameName:decisionListener:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (void)) x decidePolicyForNewWindowAction request newFrameName decisionListener -let webViewClose x self = msg_send ~self ~cmd:(selector "webViewClose:") ~typ:(id @-> returning (void)) x -let webViewSupportedOrientationsUpdated x self = msg_send ~self ~cmd:(selector "webViewSupportedOrientationsUpdated:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIWebViewWebViewDelegate" + +let initWithUIWebView x self = msg_send ~self ~cmd:(selector "initWithUIWebView:") ~typ:(id @-> returning id) x +let webThreadWebView x ~resource ~willSendRequest ~redirectResponse ~fromDataSource self = msg_send ~self ~cmd:(selector "webThreadWebView:resource:willSendRequest:redirectResponse:fromDataSource:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning id) x resource willSendRequest redirectResponse fromDataSource +let webView x ~createWebViewWithRequest self = msg_send ~self ~cmd:(selector "webView:createWebViewWithRequest:") ~typ:(id @-> id @-> returning id) x createWebViewWithRequest +let webView1 x ~didChangeLocationWithinPageForFrame self = msg_send ~self ~cmd:(selector "webView:didChangeLocationWithinPageForFrame:") ~typ:(id @-> id @-> returning void) x didChangeLocationWithinPageForFrame +let webView2 x ~didCommitLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didCommitLoadForFrame:") ~typ:(id @-> id @-> returning void) x didCommitLoadForFrame +let webView3 x ~didFinishLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didFinishLoadForFrame:") ~typ:(id @-> id @-> returning void) x didFinishLoadForFrame +let webView4 x ~didFirstLayoutInFrame self = msg_send ~self ~cmd:(selector "webView:didFirstLayoutInFrame:") ~typ:(id @-> id @-> returning void) x didFirstLayoutInFrame +let webView5 x ~didReceiveServerRedirectForProvisionalLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didReceiveServerRedirectForProvisionalLoadForFrame:") ~typ:(id @-> id @-> returning void) x didReceiveServerRedirectForProvisionalLoadForFrame +let webView6 x ~didStartProvisionalLoadForFrame self = msg_send ~self ~cmd:(selector "webView:didStartProvisionalLoadForFrame:") ~typ:(id @-> id @-> returning void) x didStartProvisionalLoadForFrame +let webView7 x ~printFrameView self = msg_send ~self ~cmd:(selector "webView:printFrameView:") ~typ:(id @-> id @-> returning void) x printFrameView +let webView8 x ~connectionPropertiesForResource ~dataSource self = msg_send ~self ~cmd:(selector "webView:connectionPropertiesForResource:dataSource:") ~typ:(id @-> id @-> id @-> returning id) x connectionPropertiesForResource dataSource +let webView9 x ~didClearWindowObject ~forFrame self = msg_send ~self ~cmd:(selector "webView:didClearWindowObject:forFrame:") ~typ:(id @-> id @-> id @-> returning void) x didClearWindowObject forFrame +let webView10 x ~didFailLoadWithError ~forFrame self = msg_send ~self ~cmd:(selector "webView:didFailLoadWithError:forFrame:") ~typ:(id @-> id @-> id @-> returning void) x didFailLoadWithError forFrame +let webView11 x ~didFailProvisionalLoadWithError ~forFrame self = msg_send ~self ~cmd:(selector "webView:didFailProvisionalLoadWithError:forFrame:") ~typ:(id @-> id @-> id @-> returning void) x didFailProvisionalLoadWithError forFrame +let webView12 x ~didReceiveTitle ~forFrame self = msg_send ~self ~cmd:(selector "webView:didReceiveTitle:forFrame:") ~typ:(id @-> id @-> id @-> returning void) x didReceiveTitle forFrame +let webView13 x ~exceededApplicationCacheOriginQuotaForSecurityOrigin ~totalSpaceNeeded self = msg_send ~self ~cmd:(selector "webView:exceededApplicationCacheOriginQuotaForSecurityOrigin:totalSpaceNeeded:") ~typ:(id @-> id @-> ullong @-> returning void) x exceededApplicationCacheOriginQuotaForSecurityOrigin (ULLong.of_int totalSpaceNeeded) +let webView14 x ~identifierForInitialRequest ~fromDataSource self = msg_send ~self ~cmd:(selector "webView:identifierForInitialRequest:fromDataSource:") ~typ:(id @-> id @-> id @-> returning id) x identifierForInitialRequest fromDataSource +let webView15 x ~resource ~didFinishLoadingFromDataSource self = msg_send ~self ~cmd:(selector "webView:resource:didFinishLoadingFromDataSource:") ~typ:(id @-> id @-> id @-> returning void) x resource didFinishLoadingFromDataSource +let webView16 x ~runJavaScriptAlertPanelWithMessage ~initiatedByFrame self = msg_send ~self ~cmd:(selector "webView:runJavaScriptAlertPanelWithMessage:initiatedByFrame:") ~typ:(id @-> id @-> id @-> returning void) x runJavaScriptAlertPanelWithMessage initiatedByFrame +let webView17 x ~runJavaScriptConfirmPanelWithMessage ~initiatedByFrame self = msg_send ~self ~cmd:(selector "webView:runJavaScriptConfirmPanelWithMessage:initiatedByFrame:") ~typ:(id @-> id @-> id @-> returning bool) x runJavaScriptConfirmPanelWithMessage initiatedByFrame +let webView18 x ~unableToImplementPolicyWithError ~frame self = msg_send ~self ~cmd:(selector "webView:unableToImplementPolicyWithError:frame:") ~typ:(id @-> id @-> id @-> returning void) x unableToImplementPolicyWithError frame +let webView19 x ~decidePolicyForGeolocationRequestFromOrigin ~frame ~listener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForGeolocationRequestFromOrigin:frame:listener:") ~typ:(id @-> id @-> id @-> id @-> returning void) x decidePolicyForGeolocationRequestFromOrigin frame listener +let webView20 x ~frame ~exceededDatabaseQuotaForSecurityOrigin ~database self = msg_send ~self ~cmd:(selector "webView:frame:exceededDatabaseQuotaForSecurityOrigin:database:") ~typ:(id @-> id @-> id @-> id @-> returning void) x frame exceededDatabaseQuotaForSecurityOrigin database +let webView21 x ~resource ~canAuthenticateAgainstProtectionSpace ~forDataSource self = msg_send ~self ~cmd:(selector "webView:resource:canAuthenticateAgainstProtectionSpace:forDataSource:") ~typ:(id @-> id @-> id @-> id @-> returning bool) x resource canAuthenticateAgainstProtectionSpace forDataSource +let webView22 x ~resource ~didCancelAuthenticationChallenge ~fromDataSource self = msg_send ~self ~cmd:(selector "webView:resource:didCancelAuthenticationChallenge:fromDataSource:") ~typ:(id @-> id @-> id @-> id @-> returning void) x resource didCancelAuthenticationChallenge fromDataSource +let webView23 x ~resource ~didFailLoadingWithError ~fromDataSource self = msg_send ~self ~cmd:(selector "webView:resource:didFailLoadingWithError:fromDataSource:") ~typ:(id @-> id @-> id @-> id @-> returning void) x resource didFailLoadingWithError fromDataSource +let webView24 x ~resource ~didReceiveAuthenticationChallenge ~fromDataSource self = msg_send ~self ~cmd:(selector "webView:resource:didReceiveAuthenticationChallenge:fromDataSource:") ~typ:(id @-> id @-> id @-> id @-> returning void) x resource didReceiveAuthenticationChallenge fromDataSource +let webView25 x ~runJavaScriptTextInputPanelWithPrompt ~defaultText ~initiatedByFrame self = msg_send ~self ~cmd:(selector "webView:runJavaScriptTextInputPanelWithPrompt:defaultText:initiatedByFrame:") ~typ:(id @-> id @-> id @-> id @-> returning id) x runJavaScriptTextInputPanelWithPrompt defaultText initiatedByFrame +let webView26 x ~decidePolicyForMIMEType ~request ~frame ~decisionListener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForMIMEType:request:frame:decisionListener:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning void) x decidePolicyForMIMEType request frame decisionListener +let webView27 x ~decidePolicyForNavigationAction ~request ~frame ~decisionListener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForNavigationAction:request:frame:decisionListener:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning void) x decidePolicyForNavigationAction request frame decisionListener +let webView28 x ~decidePolicyForNewWindowAction ~request ~newFrameName ~decisionListener self = msg_send ~self ~cmd:(selector "webView:decidePolicyForNewWindowAction:request:newFrameName:decisionListener:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning void) x decidePolicyForNewWindowAction request newFrameName decisionListener +let webViewClose x self = msg_send ~self ~cmd:(selector "webViewClose:") ~typ:(id @-> returning void) x +let webViewSupportedOrientationsUpdated x self = msg_send ~self ~cmd:(selector "webViewSupportedOrientationsUpdated:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWheelEvent.ml b/uikit/UIWheelEvent.ml index 65717af6..5d149de1 100644 --- a/uikit/UIWheelEvent.ml +++ b/uikit/UIWheelEvent.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWheelEvent" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwheelevent?language=objc}UIWheelEvent} *) -let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning (llong)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIWheelEvent" + +let subtype self = msg_send ~self ~cmd:(selector "subtype") ~typ:(returning llong) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIWillPresentNotificationAction.ml b/uikit/UIWillPresentNotificationAction.ml index 3f90e8fd..cb35c231 100644 --- a/uikit/UIWillPresentNotificationAction.ml +++ b/uikit/UIWillPresentNotificationAction.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWillPresentNotificationAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwillpresentnotificationaction?language=objc}UIWillPresentNotificationAction} *) -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let initWithNotification x ~timeout ~withHandler self = msg_send ~self ~cmd:(selector "initWithNotification:timeout:withHandler:") ~typ:(id @-> double @-> ptr void @-> returning (id)) x timeout withHandler -let initWithNotification' x ~deliverable ~timeout ~withHandler self = msg_send ~self ~cmd:(selector "initWithNotification:deliverable:timeout:withHandler:") ~typ:(id @-> bool @-> double @-> ptr void @-> returning (id)) x deliverable timeout withHandler -let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning (id)) x -let isDeliverable self = msg_send ~self ~cmd:(selector "isDeliverable") ~typ:(returning (bool)) -let isLocal self = msg_send ~self ~cmd:(selector "isLocal") ~typ:(returning (bool)) -let isRemote self = msg_send ~self ~cmd:(selector "isRemote") ~typ:(returning (bool)) -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let notification self = msg_send ~self ~cmd:(selector "notification") ~typ:(returning (id)) -let valueDescriptionForFlag x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning (id)) (LLong.of_int x) object_ (ULLong.of_int ofSetting) \ No newline at end of file +let self = get_class "UIWillPresentNotificationAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let initWithNotification x ~timeout ~withHandler self = msg_send ~self ~cmd:(selector "initWithNotification:timeout:withHandler:") ~typ:(id @-> double @-> (ptr void) @-> returning id) x timeout withHandler +let initWithNotification' x ~deliverable ~timeout ~withHandler self = msg_send ~self ~cmd:(selector "initWithNotification:deliverable:timeout:withHandler:") ~typ:(id @-> bool @-> double @-> (ptr void) @-> returning id) x deliverable timeout withHandler +let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning id) x +let isDeliverable self = msg_send ~self ~cmd:(selector "isDeliverable") ~typ:(returning bool) +let isLocal self = msg_send ~self ~cmd:(selector "isLocal") ~typ:(returning bool) +let isRemote self = msg_send ~self ~cmd:(selector "isRemote") ~typ:(returning bool) +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let notification self = msg_send ~self ~cmd:(selector "notification") ~typ:(returning id) +let valueDescriptionForFlag x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning id) (LLong.of_int x) object_ (ULLong.of_int ofSetting) \ No newline at end of file diff --git a/uikit/UIWillPresentNotificationActionResponse.ml b/uikit/UIWillPresentNotificationActionResponse.ml index ad3564ae..ab126a6f 100644 --- a/uikit/UIWillPresentNotificationActionResponse.ml +++ b/uikit/UIWillPresentNotificationActionResponse.ml @@ -5,14 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWillPresentNotificationActionResponse" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwillpresentnotificationactionresponse?language=objc}UIWillPresentNotificationActionResponse} *) -module C = struct - let responseWithOptions x self = msg_send ~self ~cmd:(selector "responseWithOptions:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -end +let self = get_class "UIWillPresentNotificationActionResponse" -let initWithInfo x ~error self = msg_send ~self ~cmd:(selector "initWithInfo:error:") ~typ:(id @-> id @-> returning (id)) x error -let initWithOptions x self = msg_send ~self ~cmd:(selector "initWithOptions:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning (ullong)) \ No newline at end of file +let initWithInfo x ~error self = msg_send ~self ~cmd:(selector "initWithInfo:error:") ~typ:(id @-> id @-> returning id) x error +let initWithOptions x self = msg_send ~self ~cmd:(selector "initWithOptions:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning ullong) \ No newline at end of file diff --git a/uikit/UIWillPresentNotificationActionResponseClass.ml b/uikit/UIWillPresentNotificationActionResponseClass.ml new file mode 100644 index 00000000..68972fcd --- /dev/null +++ b/uikit/UIWillPresentNotificationActionResponseClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwillpresentnotificationactionresponse?language=objc}UIWillPresentNotificationActionResponse} *) + +let responseWithOptions x self = msg_send ~self ~cmd:(selector "responseWithOptions:") ~typ:(ullong @-> returning id) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UIWindow.ml b/uikit/UIWindow.ml index 1c44341b..98c53c18 100644 --- a/uikit/UIWindow.ml +++ b/uikit/UIWindow.ml @@ -5,146 +5,128 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWindow" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwindow?language=objc}UIWindow} *) -module C = struct - let adjustFocusForAccessibilityIfNeeded x self = msg_send ~self ~cmd:(selector "adjustFocusForAccessibilityIfNeeded:") ~typ:(id @-> returning (void)) x - let adjustForAccessibilityIfNeeded x self = msg_send ~self ~cmd:(selector "adjustForAccessibilityIfNeeded:") ~typ:(id @-> returning (void)) x - let allWindowsIncludingInternalWindows x ~onlyVisibleWindows self = msg_send ~self ~cmd:(selector "allWindowsIncludingInternalWindows:onlyVisibleWindows:") ~typ:(bool @-> bool @-> returning (id)) x onlyVisibleWindows - let allWindowsIncludingInternalWindows' x ~onlyVisibleWindows ~forScreen self = msg_send ~self ~cmd:(selector "allWindowsIncludingInternalWindows:onlyVisibleWindows:forScreen:") ~typ:(bool @-> bool @-> id @-> returning (id)) x onlyVisibleWindows forScreen - let constrainFrameToScreen x self = msg_send_stret ~self ~cmd:(selector "constrainFrameToScreen:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x - let createIOSurfaceFromDisplayConfiguration x self = msg_send ~self ~cmd:(selector "createIOSurfaceFromDisplayConfiguration:") ~typ:(id @-> returning (ptr (void))) x - let createIOSurfaceFromScreen x self = msg_send ~self ~cmd:(selector "createIOSurfaceFromScreen:") ~typ:(id @-> returning (ptr (void))) x - let createIOSurfaceOnScreen x ~withContextIds ~count ~frame ~baseTransform self = msg_send ~self ~cmd:(selector "createIOSurfaceOnScreen:withContextIds:count:frame:baseTransform:") ~typ:(id @-> ptr (uint) @-> ullong @-> CGRect.t @-> ptr void @-> returning (ptr (void))) x withContextIds (ULLong.of_int count) frame baseTransform - let createIOSurfaceOnScreen' x ~withContextIds ~count ~frame ~usePurpleGfx ~outTransform self = msg_send ~self ~cmd:(selector "createIOSurfaceOnScreen:withContextIds:count:frame:usePurpleGfx:outTransform:") ~typ:(id @-> ptr (uint) @-> ullong @-> CGRect.t @-> bool @-> ptr void @-> returning (ptr (void))) x withContextIds (ULLong.of_int count) frame usePurpleGfx outTransform - let createIOSurfaceWithContextIds x ~count ~frame self = msg_send ~self ~cmd:(selector "createIOSurfaceWithContextIds:count:frame:") ~typ:(ptr (uint) @-> ullong @-> CGRect.t @-> returning (ptr (void))) x (ULLong.of_int count) frame - let createIOSurfaceWithContextIds1 x ~count ~frame ~outTransform self = msg_send ~self ~cmd:(selector "createIOSurfaceWithContextIds:count:frame:outTransform:") ~typ:(ptr (uint) @-> ullong @-> CGRect.t @-> ptr void @-> returning (ptr (void))) x (ULLong.of_int count) frame outTransform - let createIOSurfaceWithContextIds2 x ~count ~frame ~usePurpleGfx ~outTransform self = msg_send ~self ~cmd:(selector "createIOSurfaceWithContextIds:count:frame:usePurpleGfx:outTransform:") ~typ:(ptr (uint) @-> ullong @-> CGRect.t @-> bool @-> ptr void @-> returning (ptr (void))) x (ULLong.of_int count) frame usePurpleGfx outTransform - let createScreenIOSurface self = msg_send ~self ~cmd:(selector "createScreenIOSurface") ~typ:(returning (ptr (void))) - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let keyWindow self = msg_send ~self ~cmd:(selector "keyWindow") ~typ:(returning (id)) - let layerClass self = msg_send ~self ~cmd:(selector "layerClass") ~typ:(returning (_Class)) - let restrictedSplashboardClasses self = msg_send ~self ~cmd:(selector "restrictedSplashboardClasses") ~typ:(returning (id)) - let setRestrictedSplashboardClasses x self = msg_send ~self ~cmd:(selector "setRestrictedSplashboardClasses:") ~typ:(id @-> returning (void)) x - let setShouldRestrictViewsForSplashboard x self = msg_send ~self ~cmd:(selector "setShouldRestrictViewsForSplashboard:") ~typ:(bool @-> returning (void)) x - let shouldRestrictViewsForSplashboard self = msg_send ~self ~cmd:(selector "shouldRestrictViewsForSplashboard") ~typ:(returning (bool)) -end +let self = get_class "UIWindow" -let addKeyboardLayoutGuideIfNeeded x self = msg_send ~self ~cmd:(selector "addKeyboardLayoutGuideIfNeeded:") ~typ:(id @-> returning (void)) x -let addRootViewControllerViewIfPossible self = msg_send ~self ~cmd:(selector "addRootViewControllerViewIfPossible") ~typ:(returning (void)) -let autorotates self = msg_send ~self ~cmd:(selector "autorotates") ~typ:(returning (bool)) -let awakeFromNib self = msg_send ~self ~cmd:(selector "awakeFromNib") ~typ:(returning (void)) -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let becomeKeyWindow self = msg_send ~self ~cmd:(selector "becomeKeyWindow") ~typ:(returning (void)) -let beginDisablingInterfaceAutorotation self = msg_send ~self ~cmd:(selector "beginDisablingInterfaceAutorotation") ~typ:(returning (void)) -let bitsPerComponent self = msg_send ~self ~cmd:(selector "bitsPerComponent") ~typ:(returning (int)) -let canBecomeKeyWindow self = msg_send ~self ~cmd:(selector "canBecomeKeyWindow") ~typ:(returning (bool)) -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let canResizeToFitContent self = msg_send ~self ~cmd:(selector "canResizeToFitContent") ~typ:(returning (bool)) -let constraintsDidChangeInEngine x self = msg_send ~self ~cmd:(selector "constraintsDidChangeInEngine:") ~typ:(id @-> returning (void)) x -let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning (id)) -let convertDeviceToWindow x self = msg_send_stret ~self ~cmd:(selector "convertDeviceToWindow:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertPoint x ~fromWindow self = msg_send_stret ~self ~cmd:(selector "convertPoint:fromWindow:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x fromWindow -let convertPoint' x ~toWindow self = msg_send_stret ~self ~cmd:(selector "convertPoint:toWindow:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x toWindow -let convertRect x ~fromCoordinateSpace self = msg_send_stret ~self ~cmd:(selector "convertRect:fromCoordinateSpace:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x fromCoordinateSpace -let convertRect1 x ~fromWindow self = msg_send_stret ~self ~cmd:(selector "convertRect:fromWindow:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x fromWindow -let convertRect2 x ~toCoordinateSpace self = msg_send_stret ~self ~cmd:(selector "convertRect:toCoordinateSpace:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x toCoordinateSpace -let convertRect3 x ~toWindow self = msg_send_stret ~self ~cmd:(selector "convertRect:toWindow:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x toWindow -let convertWindowToDevice x self = msg_send_stret ~self ~cmd:(selector "convertWindowToDevice:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let createIOSurface self = msg_send ~self ~cmd:(selector "createIOSurface") ~typ:(returning (ptr (void))) -let createIOSurfaceWithFrame x self = msg_send ~self ~cmd:(selector "createIOSurfaceWithFrame:") ~typ:(CGRect.t @-> returning (ptr (void))) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let directEmbeddedResponder self = msg_send ~self ~cmd:(selector "directEmbeddedResponder") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let endDisablingInterfaceAutorotation self = msg_send ~self ~cmd:(selector "endDisablingInterfaceAutorotation") ~typ:(returning (void)) -let endDisablingInterfaceAutorotationAnimated x self = msg_send ~self ~cmd:(selector "endDisablingInterfaceAutorotationAnimated:") ~typ:(bool @-> returning (void)) x -let engine x ~markerForConstraintToBreakAmongConstraints self = msg_send ~self ~cmd:(selector "engine:markerForConstraintToBreakAmongConstraints:") ~typ:(id @-> id @-> returning (id)) x markerForConstraintToBreakAmongConstraints -let engine' x ~willBreakConstraint ~dueToMutuallyExclusiveConstraints self = msg_send ~self ~cmd:(selector "engine:willBreakConstraint:dueToMutuallyExclusiveConstraints:") ~typ:(id @-> id @-> id @-> returning (void)) x willBreakConstraint dueToMutuallyExclusiveConstraints -let exerciseAmbiguityInLayout self = msg_send ~self ~cmd:(selector "exerciseAmbiguityInLayout") ~typ:(returning (void)) -let firstResponder self = msg_send ~self ~cmd:(selector "firstResponder") ~typ:(returning (id)) -let gestureParent self = msg_send ~self ~cmd:(selector "gestureParent") ~typ:(returning (id)) -let handleStatusBarChangeFromHeight x ~toHeight self = msg_send ~self ~cmd:(selector "handleStatusBarChangeFromHeight:toHeight:") ~typ:(double @-> double @-> returning (void)) x toHeight -let hasAmbiguousLayout self = msg_send ~self ~cmd:(selector "hasAmbiguousLayout") ~typ:(returning (bool)) -let inhibitManualTransform self = msg_send ~self ~cmd:(selector "inhibitManualTransform") ~typ:(returning (bool)) -let inhibitSetupOrientation self = msg_send ~self ~cmd:(selector "inhibitSetupOrientation") ~typ:(returning (bool)) -let inhibitTextEffectsRotation self = msg_send ~self ~cmd:(selector "inhibitTextEffectsRotation") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithContentRect x self = msg_send ~self ~cmd:(selector "initWithContentRect:") ~typ:(CGRect.t @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithWindowScene x self = msg_send ~self ~cmd:(selector "initWithWindowScene:") ~typ:(id @-> returning (id)) x -let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning (llong)) -let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning (bool)) -let isInterfaceAutorotationDisabled self = msg_send ~self ~cmd:(selector "isInterfaceAutorotationDisabled") ~typ:(returning (bool)) -let isInternalWindow self = msg_send ~self ~cmd:(selector "isInternalWindow") ~typ:(returning (bool)) -let isKeyWindow self = msg_send ~self ~cmd:(selector "isKeyWindow") ~typ:(returning (bool)) -let isRotating self = msg_send ~self ~cmd:(selector "isRotating") ~typ:(returning (bool)) -let isTrackingKeyboard self = msg_send ~self ~cmd:(selector "isTrackingKeyboard") ~typ:(returning (bool)) -let isUsingOnePartRotationAnimation self = msg_send ~self ~cmd:(selector "isUsingOnePartRotationAnimation") ~typ:(returning (bool)) -let keepContextInBackground self = msg_send ~self ~cmd:(selector "keepContextInBackground") ~typ:(returning (bool)) -let keyboardDidHide self = msg_send ~self ~cmd:(selector "keyboardDidHide") ~typ:(returning (void)) -let level self = msg_send ~self ~cmd:(selector "level") ~typ:(returning (double)) -let makeKey x self = msg_send ~self ~cmd:(selector "makeKey:") ~typ:(id @-> returning (void)) x -let makeKeyAndOrderFront x self = msg_send ~self ~cmd:(selector "makeKeyAndOrderFront:") ~typ:(id @-> returning (void)) x -let makeKeyAndVisible self = msg_send ~self ~cmd:(selector "makeKeyAndVisible") ~typ:(returning (void)) -let makeKeyWindow self = msg_send ~self ~cmd:(selector "makeKeyWindow") ~typ:(returning (void)) -let matchDeviceOrientation x self = msg_send ~self ~cmd:(selector "matchDeviceOrientation:") ~typ:(id @-> returning (void)) x -let nextEmbeddedResponder self = msg_send ~self ~cmd:(selector "nextEmbeddedResponder") ~typ:(returning (id)) -let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning (id)) -let orderFront x self = msg_send ~self ~cmd:(selector "orderFront:") ~typ:(id @-> returning (void)) x -let orderOut x self = msg_send ~self ~cmd:(selector "orderOut:") ~typ:(id @-> returning (void)) x -let parentFocusEnvironment self = msg_send ~self ~cmd:(selector "parentFocusEnvironment") ~typ:(returning (id)) -let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning (id)) -let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning (id)) -let previousEmbeddedResponder self = msg_send ~self ~cmd:(selector "previousEmbeddedResponder") ~typ:(returning (id)) -let redo x self = msg_send ~self ~cmd:(selector "redo:") ~typ:(id @-> returning (void)) x -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let removeKeyboardLayoutGuideIfNeeded x self = msg_send ~self ~cmd:(selector "removeKeyboardLayoutGuideIfNeeded:") ~typ:(id @-> returning (void)) x -let representation self = msg_send ~self ~cmd:(selector "representation") ~typ:(returning (id)) -let resignKeyWindow self = msg_send ~self ~cmd:(selector "resignKeyWindow") ~typ:(returning (void)) -let resizesToFullScreen self = msg_send ~self ~cmd:(selector "resizesToFullScreen") ~typ:(returning (bool)) -let restorationIdentifier self = msg_send ~self ~cmd:(selector "restorationIdentifier") ~typ:(returning (id)) -let rootViewController self = msg_send ~self ~cmd:(selector "rootViewController") ~typ:(returning (id)) -let screen self = msg_send ~self ~cmd:(selector "screen") ~typ:(returning (id)) -let sendEvent x self = msg_send ~self ~cmd:(selector "sendEvent:") ~typ:(id @-> returning (void)) x -let setAutorotates x self = msg_send ~self ~cmd:(selector "setAutorotates:") ~typ:(bool @-> returning (void)) x -let setAutorotates' x ~forceUpdateInterfaceOrientation self = msg_send ~self ~cmd:(selector "setAutorotates:forceUpdateInterfaceOrientation:") ~typ:(bool @-> bool @-> returning (void)) x forceUpdateInterfaceOrientation -let setBecomeKeyOnOrderFront x self = msg_send ~self ~cmd:(selector "setBecomeKeyOnOrderFront:") ~typ:(bool @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setCanResizeToFitContent x self = msg_send ~self ~cmd:(selector "setCanResizeToFitContent:") ~typ:(bool @-> returning (void)) x -let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning (void)) x -let setContentView x self = msg_send ~self ~cmd:(selector "setContentView:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDirectEmbeddedResponder x self = msg_send ~self ~cmd:(selector "setDirectEmbeddedResponder:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning (void)) x -let setKeepContextInBackground x self = msg_send ~self ~cmd:(selector "setKeepContextInBackground:") ~typ:(bool @-> returning (void)) x -let setLevel x self = msg_send ~self ~cmd:(selector "setLevel:") ~typ:(double @-> returning (void)) x -let setNextEmbeddedResponder x self = msg_send ~self ~cmd:(selector "setNextEmbeddedResponder:") ~typ:(id @-> returning (void)) x -let setPreviousEmbeddedResponder x self = msg_send ~self ~cmd:(selector "setPreviousEmbeddedResponder:") ~typ:(id @-> returning (void)) x -let setResizesToFullScreen x self = msg_send ~self ~cmd:(selector "setResizesToFullScreen:") ~typ:(bool @-> returning (void)) x -let setRestorationIdentifier x self = msg_send ~self ~cmd:(selector "setRestorationIdentifier:") ~typ:(id @-> returning (void)) x -let setRootViewController x self = msg_send ~self ~cmd:(selector "setRootViewController:") ~typ:(id @-> returning (void)) x -let setScreen x self = msg_send ~self ~cmd:(selector "setScreen:") ~typ:(id @-> returning (void)) x -let setWindowLevel x self = msg_send ~self ~cmd:(selector "setWindowLevel:") ~typ:(double @-> returning (void)) x -let setWindowScene x self = msg_send ~self ~cmd:(selector "setWindowScene:") ~typ:(id @-> returning (void)) x -let setupForOrientation x self = msg_send ~self ~cmd:(selector "setupForOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning (bool)) x -let solutionDidChangeInEngine x self = msg_send ~self ~cmd:(selector "solutionDidChangeInEngine:") ~typ:(id @-> returning (void)) x -let toggleKeyboardLayoutGuideAnimation x self = msg_send ~self ~cmd:(selector "toggleKeyboardLayoutGuideAnimation:") ~typ:(bool @-> returning (void)) x -let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let undo x self = msg_send ~self ~cmd:(selector "undo:") ~typ:(id @-> returning (void)) x -let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning (id)) -let updateKeyboardAnimationOptions x ~duration self = msg_send ~self ~cmd:(selector "updateKeyboardAnimationOptions:duration:") ~typ:(ullong @-> double @-> returning (void)) (ULLong.of_int x) duration -let updateKeyboardDockedState x self = msg_send ~self ~cmd:(selector "updateKeyboardDockedState:") ~typ:(bool @-> returning (void)) x -let updateKeyboardForAssistantBar x self = msg_send ~self ~cmd:(selector "updateKeyboardForAssistantBar:") ~typ:(bool @-> returning (void)) x -let updateKeyboardOffset x self = msg_send ~self ~cmd:(selector "updateKeyboardOffset:") ~typ:(ptr void @-> returning (bool)) x -let updateKeyboardSize x self = msg_send ~self ~cmd:(selector "updateKeyboardSize:") ~typ:(CGSize.t @-> returning (bool)) x -let updateKeyboardTransitionState x self = msg_send ~self ~cmd:(selector "updateKeyboardTransitionState:") ~typ:(bool @-> returning (void)) x -let warpPoint x self = msg_send_stret ~self ~cmd:(selector "warpPoint:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let windowLevel self = msg_send ~self ~cmd:(selector "windowLevel") ~typ:(returning (double)) -let windowOutput self = msg_send ~self ~cmd:(selector "windowOutput") ~typ:(returning (int)) -let windowScene self = msg_send ~self ~cmd:(selector "windowScene") ~typ:(returning (id)) \ No newline at end of file +let addKeyboardLayoutGuideIfNeeded x self = msg_send ~self ~cmd:(selector "addKeyboardLayoutGuideIfNeeded:") ~typ:(id @-> returning void) x +let addRootViewControllerViewIfPossible self = msg_send ~self ~cmd:(selector "addRootViewControllerViewIfPossible") ~typ:(returning void) +let autorotates self = msg_send ~self ~cmd:(selector "autorotates") ~typ:(returning bool) +let awakeFromNib self = msg_send ~self ~cmd:(selector "awakeFromNib") ~typ:(returning void) +let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning bool) +let becomeKeyWindow self = msg_send ~self ~cmd:(selector "becomeKeyWindow") ~typ:(returning void) +let beginDisablingInterfaceAutorotation self = msg_send ~self ~cmd:(selector "beginDisablingInterfaceAutorotation") ~typ:(returning void) +let bitsPerComponent self = msg_send ~self ~cmd:(selector "bitsPerComponent") ~typ:(returning int) +let canBecomeKeyWindow self = msg_send ~self ~cmd:(selector "canBecomeKeyWindow") ~typ:(returning bool) +let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning bool) x withSender +let canResizeToFitContent self = msg_send ~self ~cmd:(selector "canResizeToFitContent") ~typ:(returning bool) +let constraintsDidChangeInEngine x self = msg_send ~self ~cmd:(selector "constraintsDidChangeInEngine:") ~typ:(id @-> returning void) x +let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning id) +let convertDeviceToWindow x self = msg_send ~self ~cmd:(selector "convertDeviceToWindow:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let convertPoint x ~fromWindow self = msg_send ~self ~cmd:(selector "convertPoint:fromWindow:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x fromWindow +let convertPoint' x ~toWindow self = msg_send ~self ~cmd:(selector "convertPoint:toWindow:") ~typ:(CGPoint.t @-> id @-> returning CGPoint.t) x toWindow +let convertRect x ~fromCoordinateSpace self = msg_send ~self ~cmd:(selector "convertRect:fromCoordinateSpace:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x fromCoordinateSpace +let convertRect1 x ~fromWindow self = msg_send ~self ~cmd:(selector "convertRect:fromWindow:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x fromWindow +let convertRect2 x ~toCoordinateSpace self = msg_send ~self ~cmd:(selector "convertRect:toCoordinateSpace:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x toCoordinateSpace +let convertRect3 x ~toWindow self = msg_send ~self ~cmd:(selector "convertRect:toWindow:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x toWindow +let convertWindowToDevice x self = msg_send ~self ~cmd:(selector "convertWindowToDevice:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let createIOSurface self = msg_send ~self ~cmd:(selector "createIOSurface") ~typ:(returning (ptr void)) +let createIOSurfaceWithFrame x self = msg_send ~self ~cmd:(selector "createIOSurfaceWithFrame:") ~typ:(CGRect.t @-> returning (ptr void)) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let directEmbeddedResponder self = msg_send ~self ~cmd:(selector "directEmbeddedResponder") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let endDisablingInterfaceAutorotation self = msg_send ~self ~cmd:(selector "endDisablingInterfaceAutorotation") ~typ:(returning void) +let endDisablingInterfaceAutorotationAnimated x self = msg_send ~self ~cmd:(selector "endDisablingInterfaceAutorotationAnimated:") ~typ:(bool @-> returning void) x +let engine x ~markerForConstraintToBreakAmongConstraints self = msg_send ~self ~cmd:(selector "engine:markerForConstraintToBreakAmongConstraints:") ~typ:(id @-> id @-> returning id) x markerForConstraintToBreakAmongConstraints +let engine' x ~willBreakConstraint ~dueToMutuallyExclusiveConstraints self = msg_send ~self ~cmd:(selector "engine:willBreakConstraint:dueToMutuallyExclusiveConstraints:") ~typ:(id @-> id @-> id @-> returning void) x willBreakConstraint dueToMutuallyExclusiveConstraints +let exerciseAmbiguityInLayout self = msg_send ~self ~cmd:(selector "exerciseAmbiguityInLayout") ~typ:(returning void) +let firstResponder self = msg_send ~self ~cmd:(selector "firstResponder") ~typ:(returning id) +let gestureParent self = msg_send ~self ~cmd:(selector "gestureParent") ~typ:(returning id) +let handleStatusBarChangeFromHeight x ~toHeight self = msg_send ~self ~cmd:(selector "handleStatusBarChangeFromHeight:toHeight:") ~typ:(double @-> double @-> returning void) x toHeight +let hasAmbiguousLayout self = msg_send ~self ~cmd:(selector "hasAmbiguousLayout") ~typ:(returning bool) +let inhibitManualTransform self = msg_send ~self ~cmd:(selector "inhibitManualTransform") ~typ:(returning bool) +let inhibitSetupOrientation self = msg_send ~self ~cmd:(selector "inhibitSetupOrientation") ~typ:(returning bool) +let inhibitTextEffectsRotation self = msg_send ~self ~cmd:(selector "inhibitTextEffectsRotation") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithContentRect x self = msg_send ~self ~cmd:(selector "initWithContentRect:") ~typ:(CGRect.t @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithWindowScene x self = msg_send ~self ~cmd:(selector "initWithWindowScene:") ~typ:(id @-> returning id) x +let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning llong) +let isElementAccessibilityExposedToInterfaceBuilder self = msg_send ~self ~cmd:(selector "isElementAccessibilityExposedToInterfaceBuilder") ~typ:(returning bool) +let isInterfaceAutorotationDisabled self = msg_send ~self ~cmd:(selector "isInterfaceAutorotationDisabled") ~typ:(returning bool) +let isInternalWindow self = msg_send ~self ~cmd:(selector "isInternalWindow") ~typ:(returning bool) +let isKeyWindow self = msg_send ~self ~cmd:(selector "isKeyWindow") ~typ:(returning bool) +let isRotating self = msg_send ~self ~cmd:(selector "isRotating") ~typ:(returning bool) +let isTrackingKeyboard self = msg_send ~self ~cmd:(selector "isTrackingKeyboard") ~typ:(returning bool) +let isUsingOnePartRotationAnimation self = msg_send ~self ~cmd:(selector "isUsingOnePartRotationAnimation") ~typ:(returning bool) +let keepContextInBackground self = msg_send ~self ~cmd:(selector "keepContextInBackground") ~typ:(returning bool) +let keyboardDidHide self = msg_send ~self ~cmd:(selector "keyboardDidHide") ~typ:(returning void) +let level self = msg_send ~self ~cmd:(selector "level") ~typ:(returning double) +let makeKey x self = msg_send ~self ~cmd:(selector "makeKey:") ~typ:(id @-> returning void) x +let makeKeyAndOrderFront x self = msg_send ~self ~cmd:(selector "makeKeyAndOrderFront:") ~typ:(id @-> returning void) x +let makeKeyAndVisible self = msg_send ~self ~cmd:(selector "makeKeyAndVisible") ~typ:(returning void) +let makeKeyWindow self = msg_send ~self ~cmd:(selector "makeKeyWindow") ~typ:(returning void) +let matchDeviceOrientation x self = msg_send ~self ~cmd:(selector "matchDeviceOrientation:") ~typ:(id @-> returning void) x +let nextEmbeddedResponder self = msg_send ~self ~cmd:(selector "nextEmbeddedResponder") ~typ:(returning id) +let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning id) +let orderFront x self = msg_send ~self ~cmd:(selector "orderFront:") ~typ:(id @-> returning void) x +let orderOut x self = msg_send ~self ~cmd:(selector "orderOut:") ~typ:(id @-> returning void) x +let parentFocusEnvironment self = msg_send ~self ~cmd:(selector "parentFocusEnvironment") ~typ:(returning id) +let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning id) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let previousEmbeddedResponder self = msg_send ~self ~cmd:(selector "previousEmbeddedResponder") ~typ:(returning id) +let redo x self = msg_send ~self ~cmd:(selector "redo:") ~typ:(id @-> returning void) x +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let removeKeyboardLayoutGuideIfNeeded x self = msg_send ~self ~cmd:(selector "removeKeyboardLayoutGuideIfNeeded:") ~typ:(id @-> returning void) x +let representation self = msg_send ~self ~cmd:(selector "representation") ~typ:(returning id) +let resignKeyWindow self = msg_send ~self ~cmd:(selector "resignKeyWindow") ~typ:(returning void) +let resizesToFullScreen self = msg_send ~self ~cmd:(selector "resizesToFullScreen") ~typ:(returning bool) +let restorationIdentifier self = msg_send ~self ~cmd:(selector "restorationIdentifier") ~typ:(returning id) +let rootViewController self = msg_send ~self ~cmd:(selector "rootViewController") ~typ:(returning id) +let safeAreaInsets self = msg_send ~self ~cmd:(selector "safeAreaInsets") ~typ:(returning UIEdgeInsets.t) +let screen self = msg_send ~self ~cmd:(selector "screen") ~typ:(returning id) +let sendEvent x self = msg_send ~self ~cmd:(selector "sendEvent:") ~typ:(id @-> returning void) x +let setAutorotates x self = msg_send ~self ~cmd:(selector "setAutorotates:") ~typ:(bool @-> returning void) x +let setAutorotates' x ~forceUpdateInterfaceOrientation self = msg_send ~self ~cmd:(selector "setAutorotates:forceUpdateInterfaceOrientation:") ~typ:(bool @-> bool @-> returning void) x forceUpdateInterfaceOrientation +let setBecomeKeyOnOrderFront x self = msg_send ~self ~cmd:(selector "setBecomeKeyOnOrderFront:") ~typ:(bool @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setCanResizeToFitContent x self = msg_send ~self ~cmd:(selector "setCanResizeToFitContent:") ~typ:(bool @-> returning void) x +let setCenter x self = msg_send ~self ~cmd:(selector "setCenter:") ~typ:(CGPoint.t @-> returning void) x +let setContentView x self = msg_send ~self ~cmd:(selector "setContentView:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDirectEmbeddedResponder x self = msg_send ~self ~cmd:(selector "setDirectEmbeddedResponder:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning void) x +let setKeepContextInBackground x self = msg_send ~self ~cmd:(selector "setKeepContextInBackground:") ~typ:(bool @-> returning void) x +let setLevel x self = msg_send ~self ~cmd:(selector "setLevel:") ~typ:(double @-> returning void) x +let setNextEmbeddedResponder x self = msg_send ~self ~cmd:(selector "setNextEmbeddedResponder:") ~typ:(id @-> returning void) x +let setPreviousEmbeddedResponder x self = msg_send ~self ~cmd:(selector "setPreviousEmbeddedResponder:") ~typ:(id @-> returning void) x +let setResizesToFullScreen x self = msg_send ~self ~cmd:(selector "setResizesToFullScreen:") ~typ:(bool @-> returning void) x +let setRestorationIdentifier x self = msg_send ~self ~cmd:(selector "setRestorationIdentifier:") ~typ:(id @-> returning void) x +let setRootViewController x self = msg_send ~self ~cmd:(selector "setRootViewController:") ~typ:(id @-> returning void) x +let setScreen x self = msg_send ~self ~cmd:(selector "setScreen:") ~typ:(id @-> returning void) x +let setWindowLevel x self = msg_send ~self ~cmd:(selector "setWindowLevel:") ~typ:(double @-> returning void) x +let setWindowScene x self = msg_send ~self ~cmd:(selector "setWindowScene:") ~typ:(id @-> returning void) x +let setupForOrientation x self = msg_send ~self ~cmd:(selector "setupForOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning bool) x +let solutionDidChangeInEngine x self = msg_send ~self ~cmd:(selector "solutionDidChangeInEngine:") ~typ:(id @-> returning void) x +let toggleKeyboardLayoutGuideAnimation x self = msg_send ~self ~cmd:(selector "toggleKeyboardLayoutGuideAnimation:") ~typ:(bool @-> returning void) x +let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let undo x self = msg_send ~self ~cmd:(selector "undo:") ~typ:(id @-> returning void) x +let undoManager self = msg_send ~self ~cmd:(selector "undoManager") ~typ:(returning id) +let updateKeyboardAnimationOptions x ~duration self = msg_send ~self ~cmd:(selector "updateKeyboardAnimationOptions:duration:") ~typ:(ullong @-> double @-> returning void) (ULLong.of_int x) duration +let updateKeyboardDockedState x self = msg_send ~self ~cmd:(selector "updateKeyboardDockedState:") ~typ:(bool @-> returning void) x +let updateKeyboardForAssistantBar x self = msg_send ~self ~cmd:(selector "updateKeyboardForAssistantBar:") ~typ:(bool @-> returning void) x +let updateKeyboardOffset x self = msg_send ~self ~cmd:(selector "updateKeyboardOffset:") ~typ:(UIOffset.t @-> returning bool) x +let updateKeyboardSize x self = msg_send ~self ~cmd:(selector "updateKeyboardSize:") ~typ:(CGSize.t @-> returning bool) x +let updateKeyboardTransitionState x self = msg_send ~self ~cmd:(selector "updateKeyboardTransitionState:") ~typ:(bool @-> returning void) x +let warpPoint x self = msg_send ~self ~cmd:(selector "warpPoint:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let windowLevel self = msg_send ~self ~cmd:(selector "windowLevel") ~typ:(returning double) +let windowOutput self = msg_send ~self ~cmd:(selector "windowOutput") ~typ:(returning int) +let windowScene self = msg_send ~self ~cmd:(selector "windowScene") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIWindowClass.ml b/uikit/UIWindowClass.ml new file mode 100644 index 00000000..e72df11a --- /dev/null +++ b/uikit/UIWindowClass.ml @@ -0,0 +1,32 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwindow?language=objc}UIWindow} *) + +let adjustFocusForAccessibilityIfNeeded x self = msg_send ~self ~cmd:(selector "adjustFocusForAccessibilityIfNeeded:") ~typ:(id @-> returning void) x +let adjustForAccessibilityIfNeeded x self = msg_send ~self ~cmd:(selector "adjustForAccessibilityIfNeeded:") ~typ:(id @-> returning void) x +let allWindowsIncludingInternalWindows x ~onlyVisibleWindows self = msg_send ~self ~cmd:(selector "allWindowsIncludingInternalWindows:onlyVisibleWindows:") ~typ:(bool @-> bool @-> returning id) x onlyVisibleWindows +let allWindowsIncludingInternalWindows' x ~onlyVisibleWindows ~forScreen self = msg_send ~self ~cmd:(selector "allWindowsIncludingInternalWindows:onlyVisibleWindows:forScreen:") ~typ:(bool @-> bool @-> id @-> returning id) x onlyVisibleWindows forScreen +let constrainFrameToScreen x self = msg_send ~self ~cmd:(selector "constrainFrameToScreen:") ~typ:(CGRect.t @-> returning CGRect.t) x +let createIOSurfaceFromDisplayConfiguration x self = msg_send ~self ~cmd:(selector "createIOSurfaceFromDisplayConfiguration:") ~typ:(id @-> returning (ptr void)) x +let createIOSurfaceFromScreen x self = msg_send ~self ~cmd:(selector "createIOSurfaceFromScreen:") ~typ:(id @-> returning (ptr void)) x +let createIOSurfaceOnScreen x ~withContextIds ~count ~frame ~baseTransform self = msg_send ~self ~cmd:(selector "createIOSurfaceOnScreen:withContextIds:count:frame:baseTransform:") ~typ:(id @-> (ptr uint) @-> ullong @-> CGRect.t @-> CGAffineTransform.t @-> returning (ptr void)) x withContextIds (ULLong.of_int count) frame baseTransform +let createIOSurfaceOnScreen' x ~withContextIds ~count ~frame ~usePurpleGfx ~outTransform self = msg_send ~self ~cmd:(selector "createIOSurfaceOnScreen:withContextIds:count:frame:usePurpleGfx:outTransform:") ~typ:(id @-> (ptr uint) @-> ullong @-> CGRect.t @-> bool @-> (ptr CGAffineTransform.t) @-> returning (ptr void)) x withContextIds (ULLong.of_int count) frame usePurpleGfx outTransform +let createIOSurfaceWithContextIds x ~count ~frame self = msg_send ~self ~cmd:(selector "createIOSurfaceWithContextIds:count:frame:") ~typ:((ptr uint) @-> ullong @-> CGRect.t @-> returning (ptr void)) x (ULLong.of_int count) frame +let createIOSurfaceWithContextIds1 x ~count ~frame ~outTransform self = msg_send ~self ~cmd:(selector "createIOSurfaceWithContextIds:count:frame:outTransform:") ~typ:((ptr uint) @-> ullong @-> CGRect.t @-> (ptr CGAffineTransform.t) @-> returning (ptr void)) x (ULLong.of_int count) frame outTransform +let createIOSurfaceWithContextIds2 x ~count ~frame ~usePurpleGfx ~outTransform self = msg_send ~self ~cmd:(selector "createIOSurfaceWithContextIds:count:frame:usePurpleGfx:outTransform:") ~typ:((ptr uint) @-> ullong @-> CGRect.t @-> bool @-> (ptr CGAffineTransform.t) @-> returning (ptr void)) x (ULLong.of_int count) frame usePurpleGfx outTransform +let createScreenIOSurface self = msg_send ~self ~cmd:(selector "createScreenIOSurface") ~typ:(returning (ptr void)) +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) +let keyWindow self = msg_send ~self ~cmd:(selector "keyWindow") ~typ:(returning id) +let layerClass self = msg_send ~self ~cmd:(selector "layerClass") ~typ:(returning _Class) +let restrictedSplashboardClasses self = msg_send ~self ~cmd:(selector "restrictedSplashboardClasses") ~typ:(returning id) +let setRestrictedSplashboardClasses x self = msg_send ~self ~cmd:(selector "setRestrictedSplashboardClasses:") ~typ:(id @-> returning void) x +let setShouldRestrictViewsForSplashboard x self = msg_send ~self ~cmd:(selector "setShouldRestrictViewsForSplashboard:") ~typ:(bool @-> returning void) x +let shouldRestrictViewsForSplashboard self = msg_send ~self ~cmd:(selector "shouldRestrictViewsForSplashboard") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit/UIWindowController.ml b/uikit/UIWindowController.ml index 56504d64..73f92283 100644 --- a/uikit/UIWindowController.ml +++ b/uikit/UIWindowController.ml @@ -5,28 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWindowController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwindowcontroller?language=objc}UIWindowController} *) -module C = struct - let windowControllerForWindow x self = msg_send ~self ~cmd:(selector "windowControllerForWindow:") ~typ:(id @-> returning (id)) x - let windowWillBeDeallocated x self = msg_send ~self ~cmd:(selector "windowWillBeDeallocated:") ~typ:(id @-> returning (void)) x -end +let self = get_class "UIWindowController" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let durationForTransition x self = msg_send ~self ~cmd:(selector "durationForTransition:") ~typ:(int @-> returning (double)) x -let presenting self = msg_send ~self ~cmd:(selector "presenting") ~typ:(returning (bool)) -let setPresenting x self = msg_send ~self ~cmd:(selector "setPresenting:") ~typ:(bool @-> returning (void)) x -let setWindow x self = msg_send ~self ~cmd:(selector "setWindow:") ~typ:(id @-> returning (void)) x -let transition x ~fromViewController ~toViewController ~target ~didEndSelector self = msg_send ~self ~cmd:(selector "transition:fromViewController:toViewController:target:didEndSelector:") ~typ:(int @-> id @-> id @-> id @-> _SEL @-> returning (void)) x fromViewController toViewController target didEndSelector -let transition' x ~fromViewController ~toViewController ~target ~didEndSelector ~animation self = msg_send ~self ~cmd:(selector "transition:fromViewController:toViewController:target:didEndSelector:animation:") ~typ:(int @-> id @-> id @-> id @-> _SEL @-> ptr void @-> returning (void)) x fromViewController toViewController target didEndSelector animation -let transitionView self = msg_send ~self ~cmd:(selector "transitionView") ~typ:(returning (id)) -let transitionView1 x ~startCustomTransitionWithDuration self = msg_send ~self ~cmd:(selector "transitionView:startCustomTransitionWithDuration:") ~typ:(id @-> double @-> returning (void)) x startCustomTransitionWithDuration -let transitionView2 x ~beginOriginForToView ~forTransition ~defaultOrigin self = msg_send_stret ~self ~cmd:(selector "transitionView:beginOriginForToView:forTransition:defaultOrigin:") ~typ:(id @-> id @-> int @-> CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x beginOriginForToView forTransition defaultOrigin -let transitionView3 x ~endOriginForFromView ~forTransition ~defaultOrigin self = msg_send_stret ~self ~cmd:(selector "transitionView:endOriginForFromView:forTransition:defaultOrigin:") ~typ:(id @-> id @-> int @-> CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x endOriginForFromView forTransition defaultOrigin -let transitionView4 x ~endOriginForToView ~forTransition ~defaultOrigin self = msg_send_stret ~self ~cmd:(selector "transitionView:endOriginForToView:forTransition:defaultOrigin:") ~typ:(id @-> id @-> int @-> CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x endOriginForToView forTransition defaultOrigin -let transitionViewDidCancel x ~fromView ~toView self = msg_send ~self ~cmd:(selector "transitionViewDidCancel:fromView:toView:") ~typ:(id @-> id @-> id @-> returning (void)) x fromView toView -let transitionViewDidComplete x ~fromView ~toView ~removeFromView self = msg_send ~self ~cmd:(selector "transitionViewDidComplete:fromView:toView:removeFromView:") ~typ:(id @-> id @-> id @-> bool @-> returning (void)) x fromView toView removeFromView -let transitionViewDidStart x self = msg_send ~self ~cmd:(selector "transitionViewDidStart:") ~typ:(id @-> returning (void)) x -let transitionViewShouldUseViewControllerCallbacks self = msg_send ~self ~cmd:(selector "transitionViewShouldUseViewControllerCallbacks") ~typ:(returning (bool)) -let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning (id)) \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let durationForTransition x self = msg_send ~self ~cmd:(selector "durationForTransition:") ~typ:(int @-> returning double) x +let presenting self = msg_send ~self ~cmd:(selector "presenting") ~typ:(returning bool) +let setPresenting x self = msg_send ~self ~cmd:(selector "setPresenting:") ~typ:(bool @-> returning void) x +let setWindow x self = msg_send ~self ~cmd:(selector "setWindow:") ~typ:(id @-> returning void) x +let transition x ~fromViewController ~toViewController ~target ~didEndSelector self = msg_send ~self ~cmd:(selector "transition:fromViewController:toViewController:target:didEndSelector:") ~typ:(int @-> id @-> id @-> id @-> _SEL @-> returning void) x fromViewController toViewController target didEndSelector +let transition' x ~fromViewController ~toViewController ~target ~didEndSelector ~animation self = msg_send ~self ~cmd:(selector "transition:fromViewController:toViewController:target:didEndSelector:animation:") ~typ:(int @-> id @-> id @-> id @-> _SEL @-> (ptr void) @-> returning void) x fromViewController toViewController target didEndSelector animation +let transitionView self = msg_send ~self ~cmd:(selector "transitionView") ~typ:(returning id) +let transitionView1 x ~startCustomTransitionWithDuration self = msg_send ~self ~cmd:(selector "transitionView:startCustomTransitionWithDuration:") ~typ:(id @-> double @-> returning void) x startCustomTransitionWithDuration +let transitionView2 x ~beginOriginForToView ~forTransition ~defaultOrigin self = msg_send ~self ~cmd:(selector "transitionView:beginOriginForToView:forTransition:defaultOrigin:") ~typ:(id @-> id @-> int @-> CGPoint.t @-> returning CGPoint.t) x beginOriginForToView forTransition defaultOrigin +let transitionView3 x ~endOriginForFromView ~forTransition ~defaultOrigin self = msg_send ~self ~cmd:(selector "transitionView:endOriginForFromView:forTransition:defaultOrigin:") ~typ:(id @-> id @-> int @-> CGPoint.t @-> returning CGPoint.t) x endOriginForFromView forTransition defaultOrigin +let transitionView4 x ~endOriginForToView ~forTransition ~defaultOrigin self = msg_send ~self ~cmd:(selector "transitionView:endOriginForToView:forTransition:defaultOrigin:") ~typ:(id @-> id @-> int @-> CGPoint.t @-> returning CGPoint.t) x endOriginForToView forTransition defaultOrigin +let transitionViewDidCancel x ~fromView ~toView self = msg_send ~self ~cmd:(selector "transitionViewDidCancel:fromView:toView:") ~typ:(id @-> id @-> id @-> returning void) x fromView toView +let transitionViewDidComplete x ~fromView ~toView ~removeFromView self = msg_send ~self ~cmd:(selector "transitionViewDidComplete:fromView:toView:removeFromView:") ~typ:(id @-> id @-> id @-> bool @-> returning void) x fromView toView removeFromView +let transitionViewDidStart x self = msg_send ~self ~cmd:(selector "transitionViewDidStart:") ~typ:(id @-> returning void) x +let transitionViewShouldUseViewControllerCallbacks self = msg_send ~self ~cmd:(selector "transitionViewShouldUseViewControllerCallbacks") ~typ:(returning bool) +let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIWindowControllerClass.ml b/uikit/UIWindowControllerClass.ml new file mode 100644 index 00000000..54f3ead9 --- /dev/null +++ b/uikit/UIWindowControllerClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwindowcontroller?language=objc}UIWindowController} *) + +let windowControllerForWindow x self = msg_send ~self ~cmd:(selector "windowControllerForWindow:") ~typ:(id @-> returning id) x +let windowWillBeDeallocated x self = msg_send ~self ~cmd:(selector "windowWillBeDeallocated:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWindowLayer.ml b/uikit/UIWindowLayer.ml index f4593b1e..38cedfee 100644 --- a/uikit/UIWindowLayer.ml +++ b/uikit/UIWindowLayer.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWindowLayer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwindowlayer?language=objc}UIWindowLayer} *) -let actionForKey x self = msg_send ~self ~cmd:(selector "actionForKey:") ~typ:(id @-> returning (id)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setTransform x self = msg_send ~self ~cmd:(selector "setTransform:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file +let self = get_class "UIWindowLayer" + +let actionForKey x self = msg_send ~self ~cmd:(selector "actionForKey:") ~typ:(id @-> returning id) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setTransform x self = msg_send ~self ~cmd:(selector "setTransform:") ~typ:(CATransform3D.t @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWindowScene.ml b/uikit/UIWindowScene.ml index 9b9d8259..0d20b10e 100644 --- a/uikit/UIWindowScene.ml +++ b/uikit/UIWindowScene.ml @@ -5,35 +5,35 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWindowScene" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwindowscene?language=objc}UIWindowScene} *) -module C = struct - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) -end +let self = get_class "UIWindowScene" -let activityItemsConfigurationSource self = msg_send ~self ~cmd:(selector "activityItemsConfigurationSource") ~typ:(returning (id)) -let canvasToolbar self = msg_send ~self ~cmd:(selector "canvasToolbar") ~typ:(returning (id)) -let coordinateSpace self = msg_send ~self ~cmd:(selector "coordinateSpace") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let focusSystem self = msg_send ~self ~cmd:(selector "focusSystem") ~typ:(returning (id)) -let initWithSession x ~connectionOptions self = msg_send ~self ~cmd:(selector "initWithSession:connectionOptions:") ~typ:(id @-> id @-> returning (id)) x connectionOptions -let inputResponderController self = msg_send ~self ~cmd:(selector "inputResponderController") ~typ:(returning (id)) -let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning (llong)) -let isExcludedFromWindowsMenu self = msg_send ~self ~cmd:(selector "isExcludedFromWindowsMenu") ~typ:(returning (bool)) -let isKeyCanvas self = msg_send ~self ~cmd:(selector "isKeyCanvas") ~typ:(returning (bool)) -let keyWindow self = msg_send ~self ~cmd:(selector "keyWindow") ~typ:(returning (id)) -let keyboardSceneDelegate self = msg_send ~self ~cmd:(selector "keyboardSceneDelegate") ~typ:(returning (id)) -let registerFallbackTouchBarProvider x self = msg_send ~self ~cmd:(selector "registerFallbackTouchBarProvider:") ~typ:(id @-> returning (void)) x -let screen self = msg_send ~self ~cmd:(selector "screen") ~typ:(returning (id)) -let screenshotService self = msg_send ~self ~cmd:(selector "screenshotService") ~typ:(returning (id)) -let setActivityItemsConfigurationSource x self = msg_send ~self ~cmd:(selector "setActivityItemsConfigurationSource:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setExcludedFromWindowsMenu x self = msg_send ~self ~cmd:(selector "setExcludedFromWindowsMenu:") ~typ:(bool @-> returning (void)) x -let sizeRestrictions self = msg_send ~self ~cmd:(selector "sizeRestrictions") ~typ:(returning (id)) -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (llong)) -let statusBarManager self = msg_send ~self ~cmd:(selector "statusBarManager") ~typ:(returning (id)) -let titlebar self = msg_send ~self ~cmd:(selector "titlebar") ~typ:(returning (id)) -let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning (id)) -let unregisterFallbackTouchBarProvider x self = msg_send ~self ~cmd:(selector "unregisterFallbackTouchBarProvider:") ~typ:(id @-> returning (void)) x -let windows self = msg_send ~self ~cmd:(selector "windows") ~typ:(returning (id)) \ No newline at end of file +let activityItemsConfigurationSource self = msg_send ~self ~cmd:(selector "activityItemsConfigurationSource") ~typ:(returning id) +let canvasToolbar self = msg_send ~self ~cmd:(selector "canvasToolbar") ~typ:(returning id) +let coordinateSpace self = msg_send ~self ~cmd:(selector "coordinateSpace") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let focusSystem self = msg_send ~self ~cmd:(selector "focusSystem") ~typ:(returning id) +let initWithSession x ~connectionOptions self = msg_send ~self ~cmd:(selector "initWithSession:connectionOptions:") ~typ:(id @-> id @-> returning id) x connectionOptions +let inputResponderController self = msg_send ~self ~cmd:(selector "inputResponderController") ~typ:(returning id) +let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning llong) +let isExcludedFromWindowsMenu self = msg_send ~self ~cmd:(selector "isExcludedFromWindowsMenu") ~typ:(returning bool) +let isKeyCanvas self = msg_send ~self ~cmd:(selector "isKeyCanvas") ~typ:(returning bool) +let keyWindow self = msg_send ~self ~cmd:(selector "keyWindow") ~typ:(returning id) +let keyboardSceneDelegate self = msg_send ~self ~cmd:(selector "keyboardSceneDelegate") ~typ:(returning id) +let registerFallbackTouchBarProvider x self = msg_send ~self ~cmd:(selector "registerFallbackTouchBarProvider:") ~typ:(id @-> returning void) x +let screen self = msg_send ~self ~cmd:(selector "screen") ~typ:(returning id) +let screenshotService self = msg_send ~self ~cmd:(selector "screenshotService") ~typ:(returning id) +let setActivityItemsConfigurationSource x self = msg_send ~self ~cmd:(selector "setActivityItemsConfigurationSource:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setExcludedFromWindowsMenu x self = msg_send ~self ~cmd:(selector "setExcludedFromWindowsMenu:") ~typ:(bool @-> returning void) x +let sizeRestrictions self = msg_send ~self ~cmd:(selector "sizeRestrictions") ~typ:(returning id) +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning llong) +let statusBarManager self = msg_send ~self ~cmd:(selector "statusBarManager") ~typ:(returning id) +let titlebar self = msg_send ~self ~cmd:(selector "titlebar") ~typ:(returning id) +let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning id) +let unregisterFallbackTouchBarProvider x self = msg_send ~self ~cmd:(selector "unregisterFallbackTouchBarProvider:") ~typ:(id @-> returning void) x +let windows self = msg_send ~self ~cmd:(selector "windows") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIWindowSceneActivationAction.ml b/uikit/UIWindowSceneActivationAction.ml index a1a3d0eb..4469785a 100644 --- a/uikit/UIWindowSceneActivationAction.ml +++ b/uikit/UIWindowSceneActivationAction.ml @@ -5,18 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWindowSceneActivationAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwindowsceneactivationaction?language=objc}UIWindowSceneActivationAction} *) -module C = struct - let actionWithHandler x self = msg_send ~self ~cmd:(selector "actionWithHandler:") ~typ:(ptr void @-> returning (id)) x - let actionWithIdentifier x ~alternateAction ~configurationProvider self = msg_send ~self ~cmd:(selector "actionWithIdentifier:alternateAction:configurationProvider:") ~typ:(id @-> id @-> ptr void @-> returning (id)) x alternateAction configurationProvider - let actionWithTitle x ~image ~identifier ~handler self = msg_send ~self ~cmd:(selector "actionWithTitle:image:identifier:handler:") ~typ:(id @-> id @-> id @-> ptr void @-> returning (id)) x image identifier handler -end +let self = get_class "UIWindowSceneActivationAction" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithTitle x ~image ~identifier ~discoverabilityTitle ~attributes ~alternateAction ~configurationProvider self = msg_send ~self ~cmd:(selector "initWithTitle:image:identifier:discoverabilityTitle:attributes:alternateAction:configurationProvider:") ~typ:(id @-> id @-> id @-> id @-> ullong @-> id @-> ptr void @-> returning (id)) x image identifier discoverabilityTitle (ULLong.of_int attributes) alternateAction configurationProvider -let initWithTitle' x ~image ~identifier ~discoverabilityTitle ~attributes ~state ~handler self = msg_send ~self ~cmd:(selector "initWithTitle:image:identifier:discoverabilityTitle:attributes:state:handler:") ~typ:(id @-> id @-> id @-> id @-> ullong @-> llong @-> ptr void @-> returning (id)) x image identifier discoverabilityTitle (ULLong.of_int attributes) (LLong.of_int state) handler -let keepsMenuPresented self = msg_send ~self ~cmd:(selector "keepsMenuPresented") ~typ:(returning (bool)) -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithTitle x ~image ~identifier ~discoverabilityTitle ~attributes ~alternateAction ~configurationProvider self = msg_send ~self ~cmd:(selector "initWithTitle:image:identifier:discoverabilityTitle:attributes:alternateAction:configurationProvider:") ~typ:(id @-> id @-> id @-> id @-> ullong @-> id @-> (ptr void) @-> returning id) x image identifier discoverabilityTitle (ULLong.of_int attributes) alternateAction configurationProvider +let initWithTitle' x ~image ~identifier ~discoverabilityTitle ~attributes ~state ~handler self = msg_send ~self ~cmd:(selector "initWithTitle:image:identifier:discoverabilityTitle:attributes:state:handler:") ~typ:(id @-> id @-> id @-> id @-> ullong @-> llong @-> (ptr void) @-> returning id) x image identifier discoverabilityTitle (ULLong.of_int attributes) (LLong.of_int state) handler +let keepsMenuPresented self = msg_send ~self ~cmd:(selector "keepsMenuPresented") ~typ:(returning bool) +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWindowSceneActivationActionClass.ml b/uikit/UIWindowSceneActivationActionClass.ml new file mode 100644 index 00000000..0381958b --- /dev/null +++ b/uikit/UIWindowSceneActivationActionClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwindowsceneactivationaction?language=objc}UIWindowSceneActivationAction} *) + +let actionWithHandler x self = msg_send ~self ~cmd:(selector "actionWithHandler:") ~typ:((ptr void) @-> returning id) x +let actionWithIdentifier x ~alternateAction ~configurationProvider self = msg_send ~self ~cmd:(selector "actionWithIdentifier:alternateAction:configurationProvider:") ~typ:(id @-> id @-> (ptr void) @-> returning id) x alternateAction configurationProvider +let actionWithTitle x ~image ~identifier ~handler self = msg_send ~self ~cmd:(selector "actionWithTitle:image:identifier:handler:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning id) x image identifier handler \ No newline at end of file diff --git a/uikit/UIWindowSceneActivationConfiguration.ml b/uikit/UIWindowSceneActivationConfiguration.ml index 1bb676a9..34f1d3d8 100644 --- a/uikit/UIWindowSceneActivationConfiguration.ml +++ b/uikit/UIWindowSceneActivationConfiguration.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWindowSceneActivationConfiguration" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwindowsceneactivationconfiguration?language=objc}UIWindowSceneActivationConfiguration} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let initWithUserActivity x self = msg_send ~self ~cmd:(selector "initWithUserActivity:") ~typ:(id @-> returning (id)) x -let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning (id)) -let preview self = msg_send ~self ~cmd:(selector "preview") ~typ:(returning (id)) -let setOptions x self = msg_send ~self ~cmd:(selector "setOptions:") ~typ:(id @-> returning (void)) x -let setPreview x self = msg_send ~self ~cmd:(selector "setPreview:") ~typ:(id @-> returning (void)) x -let userActivity self = msg_send ~self ~cmd:(selector "userActivity") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIWindowSceneActivationConfiguration" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let initWithUserActivity x self = msg_send ~self ~cmd:(selector "initWithUserActivity:") ~typ:(id @-> returning id) x +let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning id) +let preview self = msg_send ~self ~cmd:(selector "preview") ~typ:(returning id) +let setOptions x self = msg_send ~self ~cmd:(selector "setOptions:") ~typ:(id @-> returning void) x +let setPreview x self = msg_send ~self ~cmd:(selector "setPreview:") ~typ:(id @-> returning void) x +let userActivity self = msg_send ~self ~cmd:(selector "userActivity") ~typ:(returning id) \ No newline at end of file diff --git a/uikit/UIWindowSceneActivationInteraction.ml b/uikit/UIWindowSceneActivationInteraction.ml index cab492d9..3f23298a 100644 --- a/uikit/UIWindowSceneActivationInteraction.ml +++ b/uikit/UIWindowSceneActivationInteraction.ml @@ -5,23 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWindowSceneActivationInteraction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwindowsceneactivationinteraction?language=objc}UIWindowSceneActivationInteraction} *) -let activeConfiguration self = msg_send ~self ~cmd:(selector "activeConfiguration") ~typ:(returning (id)) -let activeEffect self = msg_send ~self ~cmd:(selector "activeEffect") ~typ:(returning (id)) -let animator self = msg_send ~self ~cmd:(selector "animator") ~typ:(returning (id)) +let self = get_class "UIWindowSceneActivationInteraction" + +let activeConfiguration self = msg_send ~self ~cmd:(selector "activeConfiguration") ~typ:(returning id) +let activeEffect self = msg_send ~self ~cmd:(selector "activeEffect") ~typ:(returning id) +let animator self = msg_send ~self ~cmd:(selector "animator") ~typ:(returning id) let configurationProvider self = msg_send ~self ~cmd:(selector "configurationProvider") ~typ:(returning (ptr void)) -let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning (void)) x +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x let errorHandler self = msg_send ~self ~cmd:(selector "errorHandler") ~typ:(returning (ptr void)) -let gestureRecognizer x ~shouldBeRequiredToFailByGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldBeRequiredToFailByGestureRecognizer -let initWithConfigurationProvider x ~errorHandler self = msg_send ~self ~cmd:(selector "initWithConfigurationProvider:errorHandler:") ~typ:(ptr void @-> ptr void @-> returning (id)) x errorHandler -let pinchGR self = msg_send ~self ~cmd:(selector "pinchGR") ~typ:(returning (id)) -let setActiveConfiguration x self = msg_send ~self ~cmd:(selector "setActiveConfiguration:") ~typ:(id @-> returning (void)) x -let setActiveEffect x self = msg_send ~self ~cmd:(selector "setActiveEffect:") ~typ:(id @-> returning (void)) x -let setAnimator x self = msg_send ~self ~cmd:(selector "setAnimator:") ~typ:(id @-> returning (void)) x -let setConfigurationProvider x self = msg_send ~self ~cmd:(selector "setConfigurationProvider:") ~typ:(ptr void @-> returning (void)) x -let setErrorHandler x self = msg_send ~self ~cmd:(selector "setErrorHandler:") ~typ:(ptr void @-> returning (void)) x -let setPinchGR x self = msg_send ~self ~cmd:(selector "setPinchGR:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) -let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let gestureRecognizer x ~shouldBeRequiredToFailByGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldBeRequiredToFailByGestureRecognizer +let initWithConfigurationProvider x ~errorHandler self = msg_send ~self ~cmd:(selector "initWithConfigurationProvider:errorHandler:") ~typ:((ptr void) @-> (ptr void) @-> returning id) x errorHandler +let pinchGR self = msg_send ~self ~cmd:(selector "pinchGR") ~typ:(returning id) +let setActiveConfiguration x self = msg_send ~self ~cmd:(selector "setActiveConfiguration:") ~typ:(id @-> returning void) x +let setActiveEffect x self = msg_send ~self ~cmd:(selector "setActiveEffect:") ~typ:(id @-> returning void) x +let setAnimator x self = msg_send ~self ~cmd:(selector "setAnimator:") ~typ:(id @-> returning void) x +let setConfigurationProvider x self = msg_send ~self ~cmd:(selector "setConfigurationProvider:") ~typ:((ptr void) @-> returning void) x +let setErrorHandler x self = msg_send ~self ~cmd:(selector "setErrorHandler:") ~typ:((ptr void) @-> returning void) x +let setPinchGR x self = msg_send ~self ~cmd:(selector "setPinchGR:") ~typ:(id @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit/UIWindowSceneActivationRequestOptions.ml b/uikit/UIWindowSceneActivationRequestOptions.ml index 8c986ada..7fa48cbf 100644 --- a/uikit/UIWindowSceneActivationRequestOptions.ml +++ b/uikit/UIWindowSceneActivationRequestOptions.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWindowSceneActivationRequestOptions" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwindowsceneactivationrequestoptions?language=objc}UIWindowSceneActivationRequestOptions} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let preferredPresentationStyle self = msg_send ~self ~cmd:(selector "preferredPresentationStyle") ~typ:(returning (ullong)) -let setPreferredPresentationStyle x self = msg_send ~self ~cmd:(selector "setPreferredPresentationStyle:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) \ No newline at end of file +let self = get_class "UIWindowSceneActivationRequestOptions" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let preferredPresentationStyle self = msg_send ~self ~cmd:(selector "preferredPresentationStyle") ~typ:(returning ullong) +let setPreferredPresentationStyle x self = msg_send ~self ~cmd:(selector "setPreferredPresentationStyle:") ~typ:(ullong @-> returning void) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit/UIWindowSceneClass.ml b/uikit/UIWindowSceneClass.ml new file mode 100644 index 00000000..17b96e4d --- /dev/null +++ b/uikit/UIWindowSceneClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwindowscene?language=objc}UIWindowScene} *) + +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) \ No newline at end of file diff --git a/uikit/UIWindowSceneDestructionRequestOptions.ml b/uikit/UIWindowSceneDestructionRequestOptions.ml index dd9b5d57..afb74b8b 100644 --- a/uikit/UIWindowSceneDestructionRequestOptions.ml +++ b/uikit/UIWindowSceneDestructionRequestOptions.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWindowSceneDestructionRequestOptions" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwindowscenedestructionrequestoptions?language=objc}UIWindowSceneDestructionRequestOptions} *) -let setWindowDismissalAnimation x self = msg_send ~self ~cmd:(selector "setWindowDismissalAnimation:") ~typ:(llong @-> returning (void)) x -let windowDismissalAnimation self = msg_send ~self ~cmd:(selector "windowDismissalAnimation") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIWindowSceneDestructionRequestOptions" + +let setWindowDismissalAnimation x self = msg_send ~self ~cmd:(selector "setWindowDismissalAnimation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let windowDismissalAnimation self = msg_send ~self ~cmd:(selector "windowDismissalAnimation") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit/UIWindowSceneSpecification.ml b/uikit/UIWindowSceneSpecification.ml index 47003e2a..822670d1 100644 --- a/uikit/UIWindowSceneSpecification.ml +++ b/uikit/UIWindowSceneSpecification.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIWindowSceneSpecification" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwindowscenespecification?language=objc}UIWindowSceneSpecification} *) -let baseSceneComponentClassDictionary self = msg_send ~self ~cmd:(selector "baseSceneComponentClassDictionary") ~typ:(returning (id)) -let clientSettingsClass self = msg_send ~self ~cmd:(selector "clientSettingsClass") ~typ:(returning (_Class)) -let settingsClass self = msg_send ~self ~cmd:(selector "settingsClass") ~typ:(returning (_Class)) -let transitionContextClass self = msg_send ~self ~cmd:(selector "transitionContextClass") ~typ:(returning (_Class)) \ No newline at end of file +let self = get_class "UIWindowSceneSpecification" + +let baseSceneComponentClassDictionary self = msg_send ~self ~cmd:(selector "baseSceneComponentClassDictionary") ~typ:(returning id) +let clientSettingsClass self = msg_send ~self ~cmd:(selector "clientSettingsClass") ~typ:(returning _Class) +let settingsClass self = msg_send ~self ~cmd:(selector "settingsClass") ~typ:(returning _Class) +let transitionContextClass self = msg_send ~self ~cmd:(selector "transitionContextClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit/UIWindowSceneTouchCancellationOnRotationAssertion.ml b/uikit/UIWindowSceneTouchCancellationOnRotationAssertion.ml deleted file mode 100644 index 21090462..00000000 --- a/uikit/UIWindowSceneTouchCancellationOnRotationAssertion.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIWindowSceneTouchCancellationOnRotationAssertion" - -let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithWindowScene x self = msg_send ~self ~cmd:(selector "initWithWindowScene:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit/dune b/uikit/dune index a52ca398..ecbd7a37 100644 --- a/uikit/dune +++ b/uikit/dune @@ -1,6 +1,6 @@ (library - (name uikit) - (public_name camlkit-gui.uikit) + (name UIKit) + (public_name camlkit-gui.UIKit) (enabled_if (or (= %{context_name} default.ios) (= %{context_name} device.ios) @@ -10,6 +10,8 @@ ; (flags :standard -ccopt "-framework UIKit") (libraries camlkit-base.Foundation - camlkit-base.CoreGraphics)) + camlkit-base.CoreAnimation + camlkit-gui.CoreText + camlkit-gui.UIKit_extra)) (documentation (package camlkit-gui)) \ No newline at end of file diff --git a/uikit_extra/EmojiSectionHeaderLayoutInvalidationContext.ml b/uikit_extra/EmojiSectionHeaderLayoutInvalidationContext.ml new file mode 100644 index 00000000..3b9aed2b --- /dev/null +++ b/uikit_extra/EmojiSectionHeaderLayoutInvalidationContext.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/emojisectionheaderlayoutinvalidationcontext?language=objc}EmojiSectionHeaderLayoutInvalidationContext} *) + +let self = get_class "EmojiSectionHeaderLayoutInvalidationContext" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let invalidatedSections self = msg_send ~self ~cmd:(selector "invalidatedSections") ~typ:(returning id) +let preferredWidthForHeaderInSection x self = msg_send ~self ~cmd:(selector "preferredWidthForHeaderInSection:") ~typ:(llong @-> returning double) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/NSDiffableDataSourceSectionSnapshot.ml b/uikit_extra/NSDiffableDataSourceSectionSnapshot.ml new file mode 100644 index 00000000..d5112f21 --- /dev/null +++ b/uikit_extra/NSDiffableDataSourceSectionSnapshot.ml @@ -0,0 +1,57 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/nsdiffabledatasourcesectionsnapshot?language=objc}NSDiffableDataSourceSectionSnapshot} *) + +let self = get_class "NSDiffableDataSourceSectionSnapshot" + +let appendItems x self = msg_send ~self ~cmd:(selector "appendItems:") ~typ:(id @-> returning void) x +let appendItems1 x ~intoParent self = msg_send ~self ~cmd:(selector "appendItems:intoParent:") ~typ:(id @-> id @-> returning void) x intoParent +let appendItems2 x ~intoParentItem self = msg_send ~self ~cmd:(selector "appendItems:intoParentItem:") ~typ:(id @-> id @-> returning void) x intoParentItem +let childSnapshotOfParent x self = msg_send ~self ~cmd:(selector "childSnapshotOfParent:") ~typ:(id @-> returning id) x +let childSnapshotOfParent' x ~includingParent self = msg_send ~self ~cmd:(selector "childSnapshotOfParent:includingParent:") ~typ:(id @-> bool @-> returning id) x includingParent +let childrenOfParent x self = msg_send ~self ~cmd:(selector "childrenOfParent:") ~typ:(id @-> returning id) x +let childrenOfParent' x ~recursive self = msg_send ~self ~cmd:(selector "childrenOfParent:recursive:") ~typ:(id @-> bool @-> returning id) x recursive +let collapseItems x self = msg_send ~self ~cmd:(selector "collapseItems:") ~typ:(id @-> returning void) x +let collapsedItemsUpdates self = msg_send ~self ~cmd:(selector "collapsedItemsUpdates") ~typ:(returning id) +let containsItem x self = msg_send ~self ~cmd:(selector "containsItem:") ~typ:(id @-> returning bool) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let deleteAllItems self = msg_send ~self ~cmd:(selector "deleteAllItems") ~typ:(returning void) +let deleteItems x self = msg_send ~self ~cmd:(selector "deleteItems:") ~typ:(id @-> returning void) x +let deleteItems' x ~orphanDisposition self = msg_send ~self ~cmd:(selector "deleteItems:orphanDisposition:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int orphanDisposition) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let expandItems x self = msg_send ~self ~cmd:(selector "expandItems:") ~typ:(id @-> returning void) x +let expandedItems self = msg_send ~self ~cmd:(selector "expandedItems") ~typ:(returning id) +let expandedItemsUpdates self = msg_send ~self ~cmd:(selector "expandedItemsUpdates") ~typ:(returning id) +let indexOfItem x self = msg_send ~self ~cmd:(selector "indexOfItem:") ~typ:(id @-> returning llong) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithSnapshot x self = msg_send ~self ~cmd:(selector "initWithSnapshot:") ~typ:(id @-> returning id) x +let initWithState x self = msg_send ~self ~cmd:(selector "initWithState:") ~typ:(id @-> returning id) x +let insertItems x ~afterItem self = msg_send ~self ~cmd:(selector "insertItems:afterItem:") ~typ:(id @-> id @-> returning void) x afterItem +let insertItems1 x ~beforeItem self = msg_send ~self ~cmd:(selector "insertItems:beforeItem:") ~typ:(id @-> id @-> returning void) x beforeItem +let insertItems2 x ~afterItem ~insertionMode self = msg_send ~self ~cmd:(selector "insertItems:afterItem:insertionMode:") ~typ:(id @-> id @-> llong @-> returning void) x afterItem (LLong.of_int insertionMode) +let insertSnapshot x ~afterItem self = msg_send ~self ~cmd:(selector "insertSnapshot:afterItem:") ~typ:(id @-> id @-> returning id) x afterItem +let insertSnapshot' x ~beforeItem self = msg_send ~self ~cmd:(selector "insertSnapshot:beforeItem:") ~typ:(id @-> id @-> returning void) x beforeItem +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isExpanded x self = msg_send ~self ~cmd:(selector "isExpanded:") ~typ:(id @-> returning bool) x +let isVisible x self = msg_send ~self ~cmd:(selector "isVisible:") ~typ:(id @-> returning bool) x +let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning id) +let levelForItem x self = msg_send ~self ~cmd:(selector "levelForItem:") ~typ:(id @-> returning llong) x +let levelOfItem x self = msg_send ~self ~cmd:(selector "levelOfItem:") ~typ:(id @-> returning llong) x +let parentOfChild x self = msg_send ~self ~cmd:(selector "parentOfChild:") ~typ:(id @-> returning id) x +let parentOfChildItem x self = msg_send ~self ~cmd:(selector "parentOfChildItem:") ~typ:(id @-> returning id) x +let replaceChildrenOfParentItem x ~withSnapshot self = msg_send ~self ~cmd:(selector "replaceChildrenOfParentItem:withSnapshot:") ~typ:(id @-> id @-> returning void) x withSnapshot +let rootItems self = msg_send ~self ~cmd:(selector "rootItems") ~typ:(returning id) +let setChildrenWithSnapshot x ~forParent self = msg_send ~self ~cmd:(selector "setChildrenWithSnapshot:forParent:") ~typ:(id @-> id @-> returning void) x forParent +let snapshotOfParentItem x self = msg_send ~self ~cmd:(selector "snapshotOfParentItem:") ~typ:(id @-> returning id) x +let snapshotOfParentItem' x ~includingParentItem self = msg_send ~self ~cmd:(selector "snapshotOfParentItem:includingParentItem:") ~typ:(id @-> bool @-> returning id) x includingParentItem +let snapshotter self = msg_send ~self ~cmd:(selector "snapshotter") ~typ:(returning id) +let visibleItems self = msg_send ~self ~cmd:(selector "visibleItems") ~typ:(returning id) +let visualDescription self = msg_send ~self ~cmd:(selector "visualDescription") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/NSDiffableDataSourceSectionTransaction.ml b/uikit_extra/NSDiffableDataSourceSectionTransaction.ml new file mode 100644 index 00000000..f276843f --- /dev/null +++ b/uikit_extra/NSDiffableDataSourceSectionTransaction.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/nsdiffabledatasourcesectiontransaction?language=objc}NSDiffableDataSourceSectionTransaction} *) + +let self = get_class "NSDiffableDataSourceSectionTransaction" + +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let difference self = msg_send ~self ~cmd:(selector "difference") ~typ:(returning id) +let finalSnapshot self = msg_send ~self ~cmd:(selector "finalSnapshot") ~typ:(returning id) +let initWithSectionIdentifier x ~initialSnapshot ~finalSnapshot ~difference self = msg_send ~self ~cmd:(selector "initWithSectionIdentifier:initialSnapshot:finalSnapshot:difference:") ~typ:(id @-> id @-> id @-> id @-> returning id) x initialSnapshot finalSnapshot difference +let initialSnapshot self = msg_send ~self ~cmd:(selector "initialSnapshot") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let sectionIdentifier self = msg_send ~self ~cmd:(selector "sectionIdentifier") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/NSDiffableDataSourceTransaction.ml b/uikit_extra/NSDiffableDataSourceTransaction.ml new file mode 100644 index 00000000..cfd4a99f --- /dev/null +++ b/uikit_extra/NSDiffableDataSourceTransaction.ml @@ -0,0 +1,43 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/nsdiffabledatasourcetransaction?language=objc}NSDiffableDataSourceTransaction} *) + +let self = get_class "NSDiffableDataSourceTransaction" + +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let difference self = msg_send ~self ~cmd:(selector "difference") ~typ:(returning id) +let finalDataSourceSnapshotter self = msg_send ~self ~cmd:(selector "finalDataSourceSnapshotter") ~typ:(returning id) +let finalGlobalIndexForInitialGlobalIndex x self = msg_send ~self ~cmd:(selector "finalGlobalIndexForInitialGlobalIndex:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let finalIndexPathForInitialIndexPath x self = msg_send ~self ~cmd:(selector "finalIndexPathForInitialIndexPath:") ~typ:(id @-> returning id) x +let finalIndexPathForSupplementaryElementOfKind x ~forInitialIndexPath self = msg_send ~self ~cmd:(selector "finalIndexPathForSupplementaryElementOfKind:forInitialIndexPath:") ~typ:(id @-> id @-> returning id) x forInitialIndexPath +let finalSectionCount self = msg_send ~self ~cmd:(selector "finalSectionCount") ~typ:(returning llong) +let finalSectionGlobalItemRangeForSection x self = msg_send ~self ~cmd:(selector "finalSectionGlobalItemRangeForSection:") ~typ:(llong @-> returning NSRange.t) (LLong.of_int x) +let finalSectionIndexForInitialSectionIndex x self = msg_send ~self ~cmd:(selector "finalSectionIndexForInitialSectionIndex:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let finalSnapshot self = msg_send ~self ~cmd:(selector "finalSnapshot") ~typ:(returning id) +let initWithInitialSnapshot x ~finalSnapshot ~source ~difference ~finalSectionSnapshots self = msg_send ~self ~cmd:(selector "initWithInitialSnapshot:finalSnapshot:source:difference:finalSectionSnapshots:") ~typ:(id @-> id @-> llong @-> id @-> id @-> returning id) x finalSnapshot (LLong.of_int source) difference finalSectionSnapshots +let initWithInitialSnapshot1 x ~finalSnapshot ~source ~difference ~reorderedItemIdentifiers ~sectionTransactions self = msg_send ~self ~cmd:(selector "initWithInitialSnapshot:finalSnapshot:source:difference:reorderedItemIdentifiers:sectionTransactions:") ~typ:(id @-> id @-> llong @-> id @-> id @-> id @-> returning id) x finalSnapshot (LLong.of_int source) difference reorderedItemIdentifiers sectionTransactions +let initWithInitialSnapshot2 x ~finalSnapshot ~source ~reorderedItemIdentifiers ~difference ~sectionTransactions self = msg_send ~self ~cmd:(selector "initWithInitialSnapshot:finalSnapshot:source:reorderedItemIdentifiers:difference:sectionTransactions:") ~typ:(id @-> id @-> llong @-> id @-> id @-> id @-> returning id) x finalSnapshot (LLong.of_int source) reorderedItemIdentifiers difference sectionTransactions +let initalSectionGlobalItemRangeForSection x self = msg_send ~self ~cmd:(selector "initalSectionGlobalItemRangeForSection:") ~typ:(llong @-> returning NSRange.t) (LLong.of_int x) +let initialDataSourceSnapshotter self = msg_send ~self ~cmd:(selector "initialDataSourceSnapshotter") ~typ:(returning id) +let initialGlobalIndexForFinalGlobalIndex x self = msg_send ~self ~cmd:(selector "initialGlobalIndexForFinalGlobalIndex:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let initialIndexPathForFinalIndexPath x self = msg_send ~self ~cmd:(selector "initialIndexPathForFinalIndexPath:") ~typ:(id @-> returning id) x +let initialIndexPathForSupplementaryElementOfKind x ~forFinalIndexPath self = msg_send ~self ~cmd:(selector "initialIndexPathForSupplementaryElementOfKind:forFinalIndexPath:") ~typ:(id @-> id @-> returning id) x forFinalIndexPath +let initialSectionCount self = msg_send ~self ~cmd:(selector "initialSectionCount") ~typ:(returning llong) +let initialSectionIndexForFinalSectionIndex x self = msg_send ~self ~cmd:(selector "initialSectionIndexForFinalSectionIndex:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let initialSnapshot self = msg_send ~self ~cmd:(selector "initialSnapshot") ~typ:(returning id) +let isApplyTransaction self = msg_send ~self ~cmd:(selector "isApplyTransaction") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isReorderingTransaction self = msg_send ~self ~cmd:(selector "isReorderingTransaction") ~typ:(returning bool) +let performDiffGeneratingUpdates self = msg_send ~self ~cmd:(selector "performDiffGeneratingUpdates") ~typ:(returning id) +let reorderedItemIdentifiers self = msg_send ~self ~cmd:(selector "reorderedItemIdentifiers") ~typ:(returning id) +let sectionTransactions self = msg_send ~self ~cmd:(selector "sectionTransactions") ~typ:(returning id) +let source self = msg_send ~self ~cmd:(selector "source") ~typ:(returning llong) +let transactionWithSectionTransactions x self = msg_send ~self ~cmd:(selector "transactionWithSectionTransactions:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/NSDiffableDataSourceTransactionClass.ml b/uikit_extra/NSDiffableDataSourceTransactionClass.ml new file mode 100644 index 00000000..f8c8f21e --- /dev/null +++ b/uikit_extra/NSDiffableDataSourceTransactionClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/nsdiffabledatasourcetransaction?language=objc}NSDiffableDataSourceTransaction} *) + +let applyTransactionWithInitialSnapshot x ~finalSnapshot ~difference ~sectionTransactions self = msg_send ~self ~cmd:(selector "applyTransactionWithInitialSnapshot:finalSnapshot:difference:sectionTransactions:") ~typ:(id @-> id @-> id @-> id @-> returning id) x finalSnapshot difference sectionTransactions +let reorderingTransactionWithInitialSnapshot x ~finalSnapshot ~difference ~sectionTransactions self = msg_send ~self ~cmd:(selector "reorderingTransactionWithInitialSnapshot:finalSnapshot:difference:sectionTransactions:") ~typ:(id @-> id @-> id @-> id @-> returning id) x finalSnapshot difference sectionTransactions \ No newline at end of file diff --git a/uikit_extra/NSDirectionalEdgeInsets.ml b/uikit_extra/NSDirectionalEdgeInsets.ml new file mode 100644 index 00000000..1e3698e0 --- /dev/null +++ b/uikit_extra/NSDirectionalEdgeInsets.ml @@ -0,0 +1,34 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation + +let t : [`NSDirectionalEdgeInsets] structure typ = structure "NSDirectionalEdgeInsets" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/nsdirectionaledgeinsets?language=objc}NSDirectionalEdgeInsets} *) + +let top = field t "top" double +let leading = field t "leading" double +let bottom = field t "bottom" double +let trailing = field t "trailing" double + +let () = seal t + +let init + ~top:top_v + ~leading:leading_v + ~bottom:bottom_v + ~trailing:trailing_v + = + let t = make t in + setf t top top_v; + setf t leading leading_v; + setf t bottom bottom_v; + setf t trailing trailing_v; + t +let top t = getf t top +let leading t = getf t leading +let bottom t = getf t bottom +let trailing t = getf t trailing diff --git a/uikit_extra/NSDocumentDifferenceSize.ml b/uikit_extra/NSDocumentDifferenceSize.ml new file mode 100644 index 00000000..2f400f44 --- /dev/null +++ b/uikit_extra/NSDocumentDifferenceSize.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/nsdocumentdifferencesize?language=objc}NSDocumentDifferenceSize} *) + +let self = get_class "NSDocumentDifferenceSize" + +let changeCount self = msg_send ~self ~cmd:(selector "changeCount") ~typ:(returning llong) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let generationCount self = msg_send ~self ~cmd:(selector "generationCount") ~typ:(returning llong) +let setChangeCount x self = msg_send ~self ~cmd:(selector "setChangeCount:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setGenerationCount x self = msg_send ~self ~cmd:(selector "setGenerationCount:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/NSDocumentDifferenceSizeTriple.ml b/uikit_extra/NSDocumentDifferenceSizeTriple.ml new file mode 100644 index 00000000..902b2eba --- /dev/null +++ b/uikit_extra/NSDocumentDifferenceSizeTriple.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/nsdocumentdifferencesizetriple?language=objc}NSDocumentDifferenceSizeTriple} *) + +let self = get_class "NSDocumentDifferenceSizeTriple" + +let betweenPreservingPreviousVersionAndSaving self = msg_send ~self ~cmd:(selector "betweenPreservingPreviousVersionAndSaving") ~typ:(returning id) +let betweenPreviousSavingAndSaving self = msg_send ~self ~cmd:(selector "betweenPreviousSavingAndSaving") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let dueToRecentChangesBeforeSaving self = msg_send ~self ~cmd:(selector "dueToRecentChangesBeforeSaving") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/NSUIImageAssetImage.ml b/uikit_extra/NSUIImageAssetImage.ml new file mode 100644 index 00000000..1dd64bd4 --- /dev/null +++ b/uikit_extra/NSUIImageAssetImage.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/nsuiimageassetimage?language=objc}NSUIImageAssetImage} *) + +let self = get_class "NSUIImageAssetImage" + +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +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 initWithImageAsset x ~configuration ~size ~tintColor self = msg_send ~self ~cmd:(selector "initWithImageAsset:configuration:size:tintColor:") ~typ:(id @-> id @-> CGSize.t @-> id @-> returning id) x configuration size tintColor +let initWithSize x self = msg_send ~self ~cmd:(selector "initWithSize:") ~typ:(CGSize.t @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/NSUIImageAssetImageRep.ml b/uikit_extra/NSUIImageAssetImageRep.ml new file mode 100644 index 00000000..08232cbc --- /dev/null +++ b/uikit_extra/NSUIImageAssetImageRep.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/nsuiimageassetimagerep?language=objc}NSUIImageAssetImageRep} *) + +let self = get_class "NSUIImageAssetImageRep" + +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let draw self = msg_send ~self ~cmd:(selector "draw") ~typ:(returning bool) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithImageAsset x ~configuration ~size ~tintColor self = msg_send ~self ~cmd:(selector "initWithImageAsset:configuration:size:tintColor:") ~typ:(id @-> id @-> CGSize.t @-> id @-> returning id) x configuration size tintColor \ No newline at end of file diff --git a/uikit_extra/PKExtendedPhysicsBody.ml b/uikit_extra/PKExtendedPhysicsBody.ml new file mode 100644 index 00000000..6b4b7a24 --- /dev/null +++ b/uikit_extra/PKExtendedPhysicsBody.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/pkextendedphysicsbody?language=objc}PKExtendedPhysicsBody} *) + +let self = get_class "PKExtendedPhysicsBody" + +let associate self = msg_send ~self ~cmd:(selector "associate") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let dissociate self = msg_send ~self ~cmd:(selector "dissociate") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithRectangleOfSize x self = msg_send ~self ~cmd:(selector "initWithRectangleOfSize:") ~typ:(CGSize.t @-> returning id) x +let normalizedDensity self = msg_send ~self ~cmd:(selector "normalizedDensity") ~typ:(returning double) +let setNormalizedDensity x self = msg_send ~self ~cmd:(selector "setNormalizedDensity:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/PKExtendedPhysicsBodyClass.ml b/uikit_extra/PKExtendedPhysicsBodyClass.ml new file mode 100644 index 00000000..8483b528 --- /dev/null +++ b/uikit_extra/PKExtendedPhysicsBodyClass.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/pkextendedphysicsbody?language=objc}PKExtendedPhysicsBody} *) + +let bodyWithBodies x self = msg_send ~self ~cmd:(selector "bodyWithBodies:") ~typ:(id @-> returning id) x +let bodyWithCircleOfRadius x self = msg_send ~self ~cmd:(selector "bodyWithCircleOfRadius:") ~typ:(double @-> returning id) x +let bodyWithEdgeChainFromPath x self = msg_send ~self ~cmd:(selector "bodyWithEdgeChainFromPath:") ~typ:((ptr CGPath.t) @-> returning id) x +let bodyWithEdgeFromPoint x ~toPoint self = msg_send ~self ~cmd:(selector "bodyWithEdgeFromPoint:toPoint:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning id) x toPoint +let bodyWithEdgeLoopFromPath x self = msg_send ~self ~cmd:(selector "bodyWithEdgeLoopFromPath:") ~typ:((ptr CGPath.t) @-> returning id) x +let bodyWithEllipseInRect x self = msg_send ~self ~cmd:(selector "bodyWithEllipseInRect:") ~typ:(CGRect.t @-> returning id) x +let bodyWithPolygonFromPath x self = msg_send ~self ~cmd:(selector "bodyWithPolygonFromPath:") ~typ:((ptr CGPath.t) @-> returning id) x +let bodyWithRectangleOfSize x self = msg_send ~self ~cmd:(selector "bodyWithRectangleOfSize:") ~typ:(CGSize.t @-> returning id) x +let bodyWithRectangleOfSize' x ~center self = msg_send ~self ~cmd:(selector "bodyWithRectangleOfSize:center:") ~typ:(CGSize.t @-> CGPoint.t @-> returning id) x center \ No newline at end of file diff --git a/uikit_extra/TIKeyboardCandidateSuggestion.ml b/uikit_extra/TIKeyboardCandidateSuggestion.ml new file mode 100644 index 00000000..48fa1bfc --- /dev/null +++ b/uikit_extra/TIKeyboardCandidateSuggestion.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/tikeyboardcandidatesuggestion?language=objc}TIKeyboardCandidateSuggestion} *) + +let self = get_class "TIKeyboardCandidateSuggestion" + +let candidate self = msg_send ~self ~cmd:(selector "candidate") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let customInfoType self = msg_send ~self ~cmd:(selector "customInfoType") ~typ:(returning ullong) +let initWithSuggestion x ~customInfoType self = msg_send ~self ~cmd:(selector "initWithSuggestion:customInfoType:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int customInfoType) +let input self = msg_send ~self ~cmd:(selector "input") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) +let textSuggestion self = msg_send ~self ~cmd:(selector "textSuggestion") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/TIKeyboardCandidateSuggestionClass.ml b/uikit_extra/TIKeyboardCandidateSuggestionClass.ml new file mode 100644 index 00000000..fcc8db80 --- /dev/null +++ b/uikit_extra/TIKeyboardCandidateSuggestionClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/tikeyboardcandidatesuggestion?language=objc}TIKeyboardCandidateSuggestion} *) + +let candidateWithSuggestion x self = msg_send ~self ~cmd:(selector "candidateWithSuggestion:") ~typ:(id @-> returning id) x +let candidateWithSuggestion' x ~customInfoType self = msg_send ~self ~cmd:(selector "candidateWithSuggestion:customInfoType:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int customInfoType) \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityContainerReferenceHolder.ml b/uikit_extra/UIAccessibilityContainerReferenceHolder.ml index 44008a90..55cec57c 100644 --- a/uikit_extra/UIAccessibilityContainerReferenceHolder.ml +++ b/uikit_extra/UIAccessibilityContainerReferenceHolder.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAccessibilityContainerReferenceHolder" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilitycontainerreferenceholder?language=objc}UIAccessibilityContainerReferenceHolder} *) -let referencedContainer self = msg_send ~self ~cmd:(selector "referencedContainer") ~typ:(returning (id)) -let setReferencedContainer x self = msg_send ~self ~cmd:(selector "setReferencedContainer:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIAccessibilityContainerReferenceHolder" + +let referencedContainer self = msg_send ~self ~cmd:(selector "referencedContainer") ~typ:(returning id) +let setReferencedContainer x self = msg_send ~self ~cmd:(selector "setReferencedContainer:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityCustomAction.ml b/uikit_extra/UIAccessibilityCustomAction.ml index 63a7658e..b5b109eb 100644 --- a/uikit_extra/UIAccessibilityCustomAction.ml +++ b/uikit_extra/UIAccessibilityCustomAction.ml @@ -5,27 +5,31 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAccessibilityCustomAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilitycustomaction?language=objc}UIAccessibilityCustomAction} *) + +let self = get_class "UIAccessibilityCustomAction" let actionHandler self = msg_send ~self ~cmd:(selector "actionHandler") ~typ:(returning (ptr void)) -let attributedName self = msg_send ~self ~cmd:(selector "attributedName") ~typ:(returning (id)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithAttributedName x ~actionHandler self = msg_send ~self ~cmd:(selector "initWithAttributedName:actionHandler:") ~typ:(id @-> ptr void @-> returning (id)) x actionHandler -let initWithAttributedName1 x ~image ~actionHandler self = msg_send ~self ~cmd:(selector "initWithAttributedName:image:actionHandler:") ~typ:(id @-> id @-> ptr void @-> returning (id)) x image actionHandler -let initWithAttributedName2 x ~target ~selector_ self = msg_send ~self ~cmd:(selector "initWithAttributedName:target:selector:") ~typ:(id @-> id @-> _SEL @-> returning (id)) x target selector_ -let initWithAttributedName3 x ~image ~target ~selector_ self = msg_send ~self ~cmd:(selector "initWithAttributedName:image:target:selector:") ~typ:(id @-> id @-> id @-> _SEL @-> returning (id)) x image target selector_ -let initWithName x ~actionHandler self = msg_send ~self ~cmd:(selector "initWithName:actionHandler:") ~typ:(id @-> ptr void @-> returning (id)) x actionHandler -let initWithName1 x ~image ~actionHandler self = msg_send ~self ~cmd:(selector "initWithName:image:actionHandler:") ~typ:(id @-> id @-> ptr void @-> returning (id)) x image actionHandler -let initWithName2 x ~target ~selector_ self = msg_send ~self ~cmd:(selector "initWithName:target:selector:") ~typ:(id @-> id @-> _SEL @-> returning (id)) x target selector_ -let initWithName3 x ~image ~target ~selector_ self = msg_send ~self ~cmd:(selector "initWithName:image:target:selector:") ~typ:(id @-> id @-> id @-> _SEL @-> returning (id)) x image target selector_ -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let selector_ self = msg_send ~self ~cmd:(selector "selector") ~typ:(returning (_SEL)) -let setActionHandler x self = msg_send ~self ~cmd:(selector "setActionHandler:") ~typ:(ptr void @-> returning (void)) x -let setAttributedName x self = msg_send ~self ~cmd:(selector "setAttributedName:") ~typ:(id @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning (void)) x -let setSelector x self = msg_send ~self ~cmd:(selector "setSelector:") ~typ:(_SEL @-> returning (void)) x -let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning (void)) x -let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning (id)) \ No newline at end of file +let attributedName self = msg_send ~self ~cmd:(selector "attributedName") ~typ:(returning id) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithAttributedName x ~actionHandler self = msg_send ~self ~cmd:(selector "initWithAttributedName:actionHandler:") ~typ:(id @-> (ptr void) @-> returning id) x actionHandler +let initWithAttributedName1 x ~image ~actionHandler self = msg_send ~self ~cmd:(selector "initWithAttributedName:image:actionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning id) x image actionHandler +let initWithAttributedName2 x ~target ~selector_ self = msg_send ~self ~cmd:(selector "initWithAttributedName:target:selector:") ~typ:(id @-> id @-> _SEL @-> returning id) x target selector_ +let initWithAttributedName3 x ~image ~target ~selector_ self = msg_send ~self ~cmd:(selector "initWithAttributedName:image:target:selector:") ~typ:(id @-> id @-> id @-> _SEL @-> returning id) x image target selector_ +let initWithName x ~actionHandler self = msg_send ~self ~cmd:(selector "initWithName:actionHandler:") ~typ:(id @-> (ptr void) @-> returning id) x actionHandler +let initWithName1 x ~image ~actionHandler self = msg_send ~self ~cmd:(selector "initWithName:image:actionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning id) x image actionHandler +let initWithName2 x ~target ~selector_ self = msg_send ~self ~cmd:(selector "initWithName:target:selector:") ~typ:(id @-> id @-> _SEL @-> returning id) x target selector_ +let initWithName3 x ~image ~target ~selector_ self = msg_send ~self ~cmd:(selector "initWithName:image:target:selector:") ~typ:(id @-> id @-> id @-> _SEL @-> returning id) x image target selector_ +let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) +let selector_ self = msg_send ~self ~cmd:(selector "selector") ~typ:(returning _SEL) +let setActionHandler x self = msg_send ~self ~cmd:(selector "setActionHandler:") ~typ:((ptr void) @-> returning void) x +let setAttributedName x self = msg_send ~self ~cmd:(selector "setAttributedName:") ~typ:(id @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning void) x +let setSelector x self = msg_send ~self ~cmd:(selector "setSelector:") ~typ:(_SEL @-> returning void) x +let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning void) x +let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityCustomRotor.ml b/uikit_extra/UIAccessibilityCustomRotor.ml index f7ca7205..29031b58 100644 --- a/uikit_extra/UIAccessibilityCustomRotor.ml +++ b/uikit_extra/UIAccessibilityCustomRotor.ml @@ -5,21 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAccessibilityCustomRotor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilitycustomrotor?language=objc}UIAccessibilityCustomRotor} *) -let attributedName self = msg_send ~self ~cmd:(selector "attributedName") ~typ:(returning (id)) -let initWithAttributedName x ~itemSearchBlock self = msg_send ~self ~cmd:(selector "initWithAttributedName:itemSearchBlock:") ~typ:(id @-> ptr void @-> returning (id)) x itemSearchBlock -let initWithName x ~itemSearchBlock self = msg_send ~self ~cmd:(selector "initWithName:itemSearchBlock:") ~typ:(id @-> ptr void @-> returning (id)) x itemSearchBlock -let initWithSystemType x ~itemSearchBlock self = msg_send ~self ~cmd:(selector "initWithSystemType:itemSearchBlock:") ~typ:(llong @-> ptr void @-> returning (id)) (LLong.of_int x) itemSearchBlock +let self = get_class "UIAccessibilityCustomRotor" + +let attributedName self = msg_send ~self ~cmd:(selector "attributedName") ~typ:(returning id) +let initWithAttributedName x ~itemSearchBlock self = msg_send ~self ~cmd:(selector "initWithAttributedName:itemSearchBlock:") ~typ:(id @-> (ptr void) @-> returning id) x itemSearchBlock +let initWithName x ~itemSearchBlock self = msg_send ~self ~cmd:(selector "initWithName:itemSearchBlock:") ~typ:(id @-> (ptr void) @-> returning id) x itemSearchBlock +let initWithSystemType x ~itemSearchBlock self = msg_send ~self ~cmd:(selector "initWithSystemType:itemSearchBlock:") ~typ:(llong @-> (ptr void) @-> returning id) (LLong.of_int x) itemSearchBlock let itemSearchBlock self = msg_send ~self ~cmd:(selector "itemSearchBlock") ~typ:(returning (ptr void)) -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let setAttributedName x self = msg_send ~self ~cmd:(selector "setAttributedName:") ~typ:(id @-> returning (void)) x -let setItemSearchBlock x self = msg_send ~self ~cmd:(selector "setItemSearchBlock:") ~typ:(ptr void @-> returning (void)) x -let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning (void)) x -let setSystemRotorType x self = msg_send ~self ~cmd:(selector "setSystemRotorType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTargetElement x self = msg_send ~self ~cmd:(selector "setTargetElement:") ~typ:(id @-> returning (void)) x -let setUuid x self = msg_send ~self ~cmd:(selector "setUuid:") ~typ:(id @-> returning (void)) x -let systemRotorType self = msg_send ~self ~cmd:(selector "systemRotorType") ~typ:(returning (llong)) -let targetElement self = msg_send ~self ~cmd:(selector "targetElement") ~typ:(returning (id)) -let uuid self = msg_send ~self ~cmd:(selector "uuid") ~typ:(returning (id)) \ No newline at end of file +let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) +let setAttributedName x self = msg_send ~self ~cmd:(selector "setAttributedName:") ~typ:(id @-> returning void) x +let setItemSearchBlock x self = msg_send ~self ~cmd:(selector "setItemSearchBlock:") ~typ:((ptr void) @-> returning void) x +let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning void) x +let setSystemRotorType x self = msg_send ~self ~cmd:(selector "setSystemRotorType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTargetElement x self = msg_send ~self ~cmd:(selector "setTargetElement:") ~typ:(id @-> returning void) x +let setUuid x self = msg_send ~self ~cmd:(selector "setUuid:") ~typ:(id @-> returning void) x +let systemRotorType self = msg_send ~self ~cmd:(selector "systemRotorType") ~typ:(returning llong) +let targetElement self = msg_send ~self ~cmd:(selector "targetElement") ~typ:(returning id) +let uuid self = msg_send ~self ~cmd:(selector "uuid") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityCustomRotorItemResult.ml b/uikit_extra/UIAccessibilityCustomRotorItemResult.ml index 08c58f48..42bef4ba 100644 --- a/uikit_extra/UIAccessibilityCustomRotorItemResult.ml +++ b/uikit_extra/UIAccessibilityCustomRotorItemResult.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAccessibilityCustomRotorItemResult" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilitycustomrotoritemresult?language=objc}UIAccessibilityCustomRotorItemResult} *) -let initWithTargetElement x ~targetRange self = msg_send ~self ~cmd:(selector "initWithTargetElement:targetRange:") ~typ:(id @-> id @-> returning (id)) x targetRange -let setTargetElement x self = msg_send ~self ~cmd:(selector "setTargetElement:") ~typ:(id @-> returning (void)) x -let setTargetRange x self = msg_send ~self ~cmd:(selector "setTargetRange:") ~typ:(id @-> returning (void)) x -let setUuid x self = msg_send ~self ~cmd:(selector "setUuid:") ~typ:(id @-> returning (void)) x -let targetElement self = msg_send ~self ~cmd:(selector "targetElement") ~typ:(returning (id)) -let targetRange self = msg_send ~self ~cmd:(selector "targetRange") ~typ:(returning (id)) -let uuid self = msg_send ~self ~cmd:(selector "uuid") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIAccessibilityCustomRotorItemResult" + +let initWithTargetElement x ~targetRange self = msg_send ~self ~cmd:(selector "initWithTargetElement:targetRange:") ~typ:(id @-> id @-> returning id) x targetRange +let setTargetElement x self = msg_send ~self ~cmd:(selector "setTargetElement:") ~typ:(id @-> returning void) x +let setTargetRange x self = msg_send ~self ~cmd:(selector "setTargetRange:") ~typ:(id @-> returning void) x +let setUuid x self = msg_send ~self ~cmd:(selector "setUuid:") ~typ:(id @-> returning void) x +let targetElement self = msg_send ~self ~cmd:(selector "targetElement") ~typ:(returning id) +let targetRange self = msg_send ~self ~cmd:(selector "targetRange") ~typ:(returning id) +let uuid self = msg_send ~self ~cmd:(selector "uuid") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityCustomRotorSearchPredicate.ml b/uikit_extra/UIAccessibilityCustomRotorSearchPredicate.ml index e73f079d..a512f7f6 100644 --- a/uikit_extra/UIAccessibilityCustomRotorSearchPredicate.ml +++ b/uikit_extra/UIAccessibilityCustomRotorSearchPredicate.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAccessibilityCustomRotorSearchPredicate" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilitycustomrotorsearchpredicate?language=objc}UIAccessibilityCustomRotorSearchPredicate} *) -let currentItem self = msg_send ~self ~cmd:(selector "currentItem") ~typ:(returning (id)) -let searchDirection self = msg_send ~self ~cmd:(selector "searchDirection") ~typ:(returning (llong)) -let setCurrentItem x self = msg_send ~self ~cmd:(selector "setCurrentItem:") ~typ:(id @-> returning (void)) x -let setSearchDirection x self = msg_send ~self ~cmd:(selector "setSearchDirection:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file +let self = get_class "UIAccessibilityCustomRotorSearchPredicate" + +let currentItem self = msg_send ~self ~cmd:(selector "currentItem") ~typ:(returning id) +let searchDirection self = msg_send ~self ~cmd:(selector "searchDirection") ~typ:(returning llong) +let setCurrentItem x self = msg_send ~self ~cmd:(selector "setCurrentItem:") ~typ:(id @-> returning void) x +let setSearchDirection x self = msg_send ~self ~cmd:(selector "setSearchDirection:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityCustomViewHUDLayoutManager.ml b/uikit_extra/UIAccessibilityCustomViewHUDLayoutManager.ml index 3780c484..e0a2fd2a 100644 --- a/uikit_extra/UIAccessibilityCustomViewHUDLayoutManager.ml +++ b/uikit_extra/UIAccessibilityCustomViewHUDLayoutManager.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAccessibilityCustomViewHUDLayoutManager" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilitycustomviewhudlayoutmanager?language=objc}UIAccessibilityCustomViewHUDLayoutManager} *) -let layoutSubviewsOfHUD x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfHUD:") ~typ:(id @-> returning (void)) x -let minimumUnscaledSizeForHUD x ~preferredLabelSize self = msg_send_stret ~self ~cmd:(selector "minimumUnscaledSizeForHUD:preferredLabelSize:") ~typ:(id @-> CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x preferredLabelSize -let preferredSizeForLabelInHUD x ~maximumWidth self = msg_send_stret ~self ~cmd:(selector "preferredSizeForLabelInHUD:maximumWidth:") ~typ:(id @-> double @-> returning (CGSize.t)) ~return_type:CGSize.t x maximumWidth \ No newline at end of file +let self = get_class "UIAccessibilityCustomViewHUDLayoutManager" + +let layoutSubviewsOfHUD x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfHUD:") ~typ:(id @-> returning void) x +let minimumUnscaledSizeForHUD x ~preferredLabelSize self = msg_send ~self ~cmd:(selector "minimumUnscaledSizeForHUD:preferredLabelSize:") ~typ:(id @-> CGSize.t @-> returning CGSize.t) x preferredLabelSize +let preferredSizeForLabelInHUD x ~maximumWidth self = msg_send ~self ~cmd:(selector "preferredSizeForLabelInHUD:maximumWidth:") ~typ:(id @-> double @-> returning CGSize.t) x maximumWidth \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityElement.ml b/uikit_extra/UIAccessibilityElement.ml index 8c5241b1..6fb0a618 100644 --- a/uikit_extra/UIAccessibilityElement.ml +++ b/uikit_extra/UIAccessibilityElement.ml @@ -5,36 +5,40 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAccessibilityElement" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilityelement?language=objc}UIAccessibilityElement} *) -let accessibilityFrame self = msg_send_stret ~self ~cmd:(selector "accessibilityFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let accessibilityFrameInContainerSpace self = msg_send_stret ~self ~cmd:(selector "accessibilityFrameInContainerSpace") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let accessibilityHint self = msg_send ~self ~cmd:(selector "accessibilityHint") ~typ:(returning (id)) -let accessibilityLabel self = msg_send ~self ~cmd:(selector "accessibilityLabel") ~typ:(returning (id)) -let accessibilityTraits self = msg_send ~self ~cmd:(selector "accessibilityTraits") ~typ:(returning (ullong)) -let accessibilityValue self = msg_send ~self ~cmd:(selector "accessibilityValue") ~typ:(returning (id)) -let areChildrenFocused self = msg_send ~self ~cmd:(selector "areChildrenFocused") ~typ:(returning (bool)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let coordinateSpace self = msg_send ~self ~cmd:(selector "coordinateSpace") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let focusItemContainer self = msg_send ~self ~cmd:(selector "focusItemContainer") ~typ:(returning (id)) -let focusItemsInRect x self = msg_send ~self ~cmd:(selector "focusItemsInRect:") ~typ:(CGRect.t @-> returning (id)) x -let frame self = msg_send_stret ~self ~cmd:(selector "frame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let initWithAccessibilityContainer x self = msg_send ~self ~cmd:(selector "initWithAccessibilityContainer:") ~typ:(id @-> returning (id)) x -let isAccessibilityElement self = msg_send ~self ~cmd:(selector "isAccessibilityElement") ~typ:(returning (bool)) -let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning (id)) -let parentFocusEnvironment self = msg_send ~self ~cmd:(selector "parentFocusEnvironment") ~typ:(returning (id)) -let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning (id)) -let setAccessibilityFrame x self = msg_send ~self ~cmd:(selector "setAccessibilityFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setAccessibilityFrameInContainerSpace x self = msg_send ~self ~cmd:(selector "setAccessibilityFrameInContainerSpace:") ~typ:(CGRect.t @-> returning (void)) x -let setAccessibilityHint x self = msg_send ~self ~cmd:(selector "setAccessibilityHint:") ~typ:(id @-> returning (void)) x -let setAccessibilityLabel x self = msg_send ~self ~cmd:(selector "setAccessibilityLabel:") ~typ:(id @-> returning (void)) x -let setAccessibilityTraits x self = msg_send ~self ~cmd:(selector "setAccessibilityTraits:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setAccessibilityValue x self = msg_send ~self ~cmd:(selector "setAccessibilityValue:") ~typ:(id @-> returning (void)) x -let setAreChildrenFocused x self = msg_send ~self ~cmd:(selector "setAreChildrenFocused:") ~typ:(bool @-> returning (void)) x -let setIsAccessibilityElement x self = msg_send ~self ~cmd:(selector "setIsAccessibilityElement:") ~typ:(bool @-> returning (void)) x -let setNeedsFocusUpdate self = msg_send ~self ~cmd:(selector "setNeedsFocusUpdate") ~typ:(returning (void)) -let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning (bool)) x -let updateFocusIfNeeded self = msg_send ~self ~cmd:(selector "updateFocusIfNeeded") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIAccessibilityElement" + +let accessibilityFrame self = msg_send ~self ~cmd:(selector "accessibilityFrame") ~typ:(returning CGRect.t) +let accessibilityFrameInContainerSpace self = msg_send ~self ~cmd:(selector "accessibilityFrameInContainerSpace") ~typ:(returning CGRect.t) +let accessibilityHint self = msg_send ~self ~cmd:(selector "accessibilityHint") ~typ:(returning id) +let accessibilityLabel self = msg_send ~self ~cmd:(selector "accessibilityLabel") ~typ:(returning id) +let accessibilityTraits self = msg_send ~self ~cmd:(selector "accessibilityTraits") ~typ:(returning ullong) +let accessibilityValue self = msg_send ~self ~cmd:(selector "accessibilityValue") ~typ:(returning id) +let areChildrenFocused self = msg_send ~self ~cmd:(selector "areChildrenFocused") ~typ:(returning bool) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let coordinateSpace self = msg_send ~self ~cmd:(selector "coordinateSpace") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let focusItemContainer self = msg_send ~self ~cmd:(selector "focusItemContainer") ~typ:(returning id) +let focusItemsInRect x self = msg_send ~self ~cmd:(selector "focusItemsInRect:") ~typ:(CGRect.t @-> returning id) x +let frame self = msg_send ~self ~cmd:(selector "frame") ~typ:(returning CGRect.t) +let initWithAccessibilityContainer x self = msg_send ~self ~cmd:(selector "initWithAccessibilityContainer:") ~typ:(id @-> returning id) x +let isAccessibilityElement self = msg_send ~self ~cmd:(selector "isAccessibilityElement") ~typ:(returning bool) +let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning id) +let parentFocusEnvironment self = msg_send ~self ~cmd:(selector "parentFocusEnvironment") ~typ:(returning id) +let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning id) +let setAccessibilityFrame x self = msg_send ~self ~cmd:(selector "setAccessibilityFrame:") ~typ:(CGRect.t @-> returning void) x +let setAccessibilityFrameInContainerSpace x self = msg_send ~self ~cmd:(selector "setAccessibilityFrameInContainerSpace:") ~typ:(CGRect.t @-> returning void) x +let setAccessibilityHint x self = msg_send ~self ~cmd:(selector "setAccessibilityHint:") ~typ:(id @-> returning void) x +let setAccessibilityLabel x self = msg_send ~self ~cmd:(selector "setAccessibilityLabel:") ~typ:(id @-> returning void) x +let setAccessibilityTraits x self = msg_send ~self ~cmd:(selector "setAccessibilityTraits:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setAccessibilityValue x self = msg_send ~self ~cmd:(selector "setAccessibilityValue:") ~typ:(id @-> returning void) x +let setAreChildrenFocused x self = msg_send ~self ~cmd:(selector "setAreChildrenFocused:") ~typ:(bool @-> returning void) x +let setIsAccessibilityElement x self = msg_send ~self ~cmd:(selector "setIsAccessibilityElement:") ~typ:(bool @-> returning void) x +let setNeedsFocusUpdate self = msg_send ~self ~cmd:(selector "setNeedsFocusUpdate") ~typ:(returning void) +let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning bool) x +let updateFocusIfNeeded self = msg_send ~self ~cmd:(selector "updateFocusIfNeeded") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityHUDGestureManager.ml b/uikit_extra/UIAccessibilityHUDGestureManager.ml index f2ee9097..6b408727 100644 --- a/uikit_extra/UIAccessibilityHUDGestureManager.ml +++ b/uikit_extra/UIAccessibilityHUDGestureManager.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAccessibilityHUDGestureManager" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilityhudgesturemanager?language=objc}UIAccessibilityHUDGestureManager} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let initWithView x ~delegate self = msg_send ~self ~cmd:(selector "initWithView:delegate:") ~typ:(id @-> id @-> returning (id)) x delegate -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIAccessibilityHUDGestureManager" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let initWithView x ~delegate self = msg_send ~self ~cmd:(selector "initWithView:delegate:") ~typ:(id @-> id @-> returning id) x delegate +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityHUDItem.ml b/uikit_extra/UIAccessibilityHUDItem.ml index f66cdfd8..8ccc2352 100644 --- a/uikit_extra/UIAccessibilityHUDItem.ml +++ b/uikit_extra/UIAccessibilityHUDItem.ml @@ -5,32 +5,32 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAccessibilityHUDItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilityhuditem?language=objc}UIAccessibilityHUDItem} *) -module C = struct - let _HUDItemForBarButtonItem x ~atPoint ~inView ~isBackButton self = msg_send ~self ~cmd:(selector "HUDItemForBarButtonItem:atPoint:inView:isBackButton:") ~typ:(id @-> CGPoint.t @-> id @-> bool @-> returning (id)) x atPoint inView isBackButton - let _HUDItemForTabBarItem x self = msg_send ~self ~cmd:(selector "HUDItemForTabBarItem:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIAccessibilityHUDItem" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let customUserInterfaceStyle self = msg_send ~self ~cmd:(selector "customUserInterfaceStyle") ~typ:(returning (llong)) -let customView self = msg_send ~self ~cmd:(selector "customView") ~typ:(returning (id)) -let disabledAppearance self = msg_send ~self ~cmd:(selector "disabledAppearance") ~typ:(returning (bool)) -let flattenImage self = msg_send ~self ~cmd:(selector "flattenImage") ~typ:(returning (bool)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let initWithCustomView x self = msg_send ~self ~cmd:(selector "initWithCustomView:") ~typ:(id @-> returning (id)) x -let initWithTitle x ~image ~imageInsets self = msg_send ~self ~cmd:(selector "initWithTitle:image:imageInsets:") ~typ:(id @-> id @-> ptr void @-> returning (id)) x image imageInsets -let initWithTitle' x ~image ~imageInsets ~scaleImage self = msg_send ~self ~cmd:(selector "initWithTitle:image:imageInsets:scaleImage:") ~typ:(id @-> id @-> ptr void @-> bool @-> returning (id)) x image imageInsets scaleImage -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let scaleImage self = msg_send ~self ~cmd:(selector "scaleImage") ~typ:(returning (bool)) -let setCustomUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setCustomUserInterfaceStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCustomView x self = msg_send ~self ~cmd:(selector "setCustomView:") ~typ:(id @-> returning (void)) x -let setDisabledAppearance x self = msg_send ~self ~cmd:(selector "setDisabledAppearance:") ~typ:(bool @-> returning (void)) x -let setFlattenImage x self = msg_send ~self ~cmd:(selector "setFlattenImage:") ~typ:(bool @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setImageInsets x self = msg_send ~self ~cmd:(selector "setImageInsets:") ~typ:(ptr void @-> returning (void)) x -let setScaleImage x self = msg_send ~self ~cmd:(selector "setScaleImage:") ~typ:(bool @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let customUserInterfaceStyle self = msg_send ~self ~cmd:(selector "customUserInterfaceStyle") ~typ:(returning llong) +let customView self = msg_send ~self ~cmd:(selector "customView") ~typ:(returning id) +let disabledAppearance self = msg_send ~self ~cmd:(selector "disabledAppearance") ~typ:(returning bool) +let flattenImage self = msg_send ~self ~cmd:(selector "flattenImage") ~typ:(returning bool) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let imageInsets self = msg_send ~self ~cmd:(selector "imageInsets") ~typ:(returning UIEdgeInsets.t) +let initWithCustomView x self = msg_send ~self ~cmd:(selector "initWithCustomView:") ~typ:(id @-> returning id) x +let initWithTitle x ~image ~imageInsets self = msg_send ~self ~cmd:(selector "initWithTitle:image:imageInsets:") ~typ:(id @-> id @-> UIEdgeInsets.t @-> returning id) x image imageInsets +let initWithTitle' x ~image ~imageInsets ~scaleImage self = msg_send ~self ~cmd:(selector "initWithTitle:image:imageInsets:scaleImage:") ~typ:(id @-> id @-> UIEdgeInsets.t @-> bool @-> returning id) x image imageInsets scaleImage +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let scaleImage self = msg_send ~self ~cmd:(selector "scaleImage") ~typ:(returning bool) +let setCustomUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setCustomUserInterfaceStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCustomView x self = msg_send ~self ~cmd:(selector "setCustomView:") ~typ:(id @-> returning void) x +let setDisabledAppearance x self = msg_send ~self ~cmd:(selector "setDisabledAppearance:") ~typ:(bool @-> returning void) x +let setFlattenImage x self = msg_send ~self ~cmd:(selector "setFlattenImage:") ~typ:(bool @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setImageInsets x self = msg_send ~self ~cmd:(selector "setImageInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setScaleImage x self = msg_send ~self ~cmd:(selector "setScaleImage:") ~typ:(bool @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityHUDItemClass.ml b/uikit_extra/UIAccessibilityHUDItemClass.ml new file mode 100644 index 00000000..df986db4 --- /dev/null +++ b/uikit_extra/UIAccessibilityHUDItemClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilityhuditem?language=objc}UIAccessibilityHUDItem} *) + +let _HUDItemForBarButtonItem x ~atPoint ~inView ~isBackButton self = msg_send ~self ~cmd:(selector "HUDItemForBarButtonItem:atPoint:inView:isBackButton:") ~typ:(id @-> CGPoint.t @-> id @-> bool @-> returning id) x atPoint inView isBackButton +let _HUDItemForTabBarItem x self = msg_send ~self ~cmd:(selector "HUDItemForTabBarItem:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityHUDLayoutManager.ml b/uikit_extra/UIAccessibilityHUDLayoutManager.ml index 364bd338..813a17cd 100644 --- a/uikit_extra/UIAccessibilityHUDLayoutManager.ml +++ b/uikit_extra/UIAccessibilityHUDLayoutManager.ml @@ -5,17 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAccessibilityHUDLayoutManager" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilityhudlayoutmanager?language=objc}UIAccessibilityHUDLayoutManager} *) -let containerViewForHUD x self = msg_send ~self ~cmd:(selector "containerViewForHUD:") ~typ:(id @-> returning (id)) x -let imageViewFrameForHUD x ~preferredSizeForLabel self = msg_send_stret ~self ~cmd:(selector "imageViewFrameForHUD:preferredSizeForLabel:") ~typ:(id @-> CGSize.t @-> returning (CGRect.t)) ~return_type:CGRect.t x preferredSizeForLabel -let imageViewSizeForHUD x self = msg_send_stret ~self ~cmd:(selector "imageViewSizeForHUD:") ~typ:(id @-> returning (CGSize.t)) ~return_type:CGSize.t x -let itemContainerViewForHUD x self = msg_send ~self ~cmd:(selector "itemContainerViewForHUD:") ~typ:(id @-> returning (id)) x -let labelFontForHUD x self = msg_send ~self ~cmd:(selector "labelFontForHUD:") ~typ:(id @-> returning (id)) x -let labelFrameForHUD x ~preferredSize self = msg_send_stret ~self ~cmd:(selector "labelFrameForHUD:preferredSize:") ~typ:(id @-> CGSize.t @-> returning (CGRect.t)) ~return_type:CGRect.t x preferredSize -let layoutBoundsForHUD x self = msg_send_stret ~self ~cmd:(selector "layoutBoundsForHUD:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let layoutSubviewsOfHUD x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfHUD:") ~typ:(id @-> returning (void)) x -let minimumUnscaledSizeForHUD x ~preferredLabelSize self = msg_send_stret ~self ~cmd:(selector "minimumUnscaledSizeForHUD:preferredLabelSize:") ~typ:(id @-> CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x preferredLabelSize -let preferredSizeForLabelInHUD x ~maximumWidth self = msg_send_stret ~self ~cmd:(selector "preferredSizeForLabelInHUD:maximumWidth:") ~typ:(id @-> double @-> returning (CGSize.t)) ~return_type:CGSize.t x maximumWidth -let unscaledSizeForHUD x ~containingSize self = msg_send_stret ~self ~cmd:(selector "unscaledSizeForHUD:containingSize:") ~typ:(id @-> CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x containingSize \ No newline at end of file +let self = get_class "UIAccessibilityHUDLayoutManager" + +let containerViewForHUD x self = msg_send ~self ~cmd:(selector "containerViewForHUD:") ~typ:(id @-> returning id) x +let imageInsetsForHUD x self = msg_send ~self ~cmd:(selector "imageInsetsForHUD:") ~typ:(id @-> returning UIEdgeInsets.t) x +let imageViewFrameForHUD x ~preferredSizeForLabel self = msg_send ~self ~cmd:(selector "imageViewFrameForHUD:preferredSizeForLabel:") ~typ:(id @-> CGSize.t @-> returning CGRect.t) x preferredSizeForLabel +let imageViewSizeForHUD x self = msg_send ~self ~cmd:(selector "imageViewSizeForHUD:") ~typ:(id @-> returning CGSize.t) x +let itemContainerViewForHUD x self = msg_send ~self ~cmd:(selector "itemContainerViewForHUD:") ~typ:(id @-> returning id) x +let labelFontForHUD x self = msg_send ~self ~cmd:(selector "labelFontForHUD:") ~typ:(id @-> returning id) x +let labelFrameForHUD x ~preferredSize self = msg_send ~self ~cmd:(selector "labelFrameForHUD:preferredSize:") ~typ:(id @-> CGSize.t @-> returning CGRect.t) x preferredSize +let layoutBoundsForHUD x self = msg_send ~self ~cmd:(selector "layoutBoundsForHUD:") ~typ:(id @-> returning CGRect.t) x +let layoutSubviewsOfHUD x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfHUD:") ~typ:(id @-> returning void) x +let minimumUnscaledSizeForHUD x ~preferredLabelSize self = msg_send ~self ~cmd:(selector "minimumUnscaledSizeForHUD:preferredLabelSize:") ~typ:(id @-> CGSize.t @-> returning CGSize.t) x preferredLabelSize +let preferredSizeForLabelInHUD x ~maximumWidth self = msg_send ~self ~cmd:(selector "preferredSizeForLabelInHUD:maximumWidth:") ~typ:(id @-> double @-> returning CGSize.t) x maximumWidth +let unscaledSizeForHUD x ~containingSize self = msg_send ~self ~cmd:(selector "unscaledSizeForHUD:containingSize:") ~typ:(id @-> CGSize.t @-> returning CGSize.t) x containingSize \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityHUDPositionManager.ml b/uikit_extra/UIAccessibilityHUDPositionManager.ml index 1cddb18e..23503ae9 100644 --- a/uikit_extra/UIAccessibilityHUDPositionManager.ml +++ b/uikit_extra/UIAccessibilityHUDPositionManager.ml @@ -5,18 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAccessibilityHUDPositionManager" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilityhudpositionmanager?language=objc}UIAccessibilityHUDPositionManager} *) -module C = struct - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end +let self = get_class "UIAccessibilityHUDPositionManager" -let adjustViewPropertiesForHUD x ~withReferenceView self = msg_send ~self ~cmd:(selector "adjustViewPropertiesForHUD:withReferenceView:") ~typ:(id @-> id @-> returning (void)) x withReferenceView -let adjustViewPropertiesForHUD' x ~withReferenceView ~keyboardFrame self = msg_send ~self ~cmd:(selector "adjustViewPropertiesForHUD:withReferenceView:keyboardFrame:") ~typ:(id @-> id @-> CGRect.t @-> returning (void)) x withReferenceView keyboardFrame -let beginManagingPositionOfHUD x ~withReferenceView self = msg_send ~self ~cmd:(selector "beginManagingPositionOfHUD:withReferenceView:") ~typ:(id @-> id @-> returning (void)) x withReferenceView -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let keyboardFrameDidChange x self = msg_send ~self ~cmd:(selector "keyboardFrameDidChange:") ~typ:(id @-> returning (void)) x -let stopManagingPositionOfHUD x self = msg_send ~self ~cmd:(selector "stopManagingPositionOfHUD:") ~typ:(id @-> returning (void)) x -let updateFramesForManagedHUDsUsingKeyboardFrame x self = msg_send ~self ~cmd:(selector "updateFramesForManagedHUDsUsingKeyboardFrame:") ~typ:(CGRect.t @-> returning (void)) x \ No newline at end of file +let adjustViewPropertiesForHUD x ~withReferenceView self = msg_send ~self ~cmd:(selector "adjustViewPropertiesForHUD:withReferenceView:") ~typ:(id @-> id @-> returning void) x withReferenceView +let adjustViewPropertiesForHUD' x ~withReferenceView ~keyboardFrame self = msg_send ~self ~cmd:(selector "adjustViewPropertiesForHUD:withReferenceView:keyboardFrame:") ~typ:(id @-> id @-> CGRect.t @-> returning void) x withReferenceView keyboardFrame +let beginManagingPositionOfHUD x ~withReferenceView self = msg_send ~self ~cmd:(selector "beginManagingPositionOfHUD:withReferenceView:") ~typ:(id @-> id @-> returning void) x withReferenceView +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let keyboardFrameDidChange x self = msg_send ~self ~cmd:(selector "keyboardFrameDidChange:") ~typ:(id @-> returning void) x +let stopManagingPositionOfHUD x self = msg_send ~self ~cmd:(selector "stopManagingPositionOfHUD:") ~typ:(id @-> returning void) x +let updateFramesForManagedHUDsUsingKeyboardFrame x self = msg_send ~self ~cmd:(selector "updateFramesForManagedHUDsUsingKeyboardFrame:") ~typ:(CGRect.t @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityHUDPositionManagerClass.ml b/uikit_extra/UIAccessibilityHUDPositionManagerClass.ml new file mode 100644 index 00000000..cc59259d --- /dev/null +++ b/uikit_extra/UIAccessibilityHUDPositionManagerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilityhudpositionmanager?language=objc}UIAccessibilityHUDPositionManager} *) + +let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityHUDView.ml b/uikit_extra/UIAccessibilityHUDView.ml index ecb1b08b..c78a98a4 100644 --- a/uikit_extra/UIAccessibilityHUDView.ml +++ b/uikit_extra/UIAccessibilityHUDView.ml @@ -5,23 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAccessibilityHUDView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilityhudview?language=objc}UIAccessibilityHUDView} *) -module C = struct - let preferredHUDSize self = msg_send_stret ~self ~cmd:(selector "preferredHUDSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -end +let self = get_class "UIAccessibilityHUDView" -let containerViewForLayout self = msg_send ~self ~cmd:(selector "containerViewForLayout") ~typ:(returning (id)) -let customView self = msg_send ~self ~cmd:(selector "customView") ~typ:(returning (id)) -let dismissAnimated x ~completion self = msg_send ~self ~cmd:(selector "dismissAnimated:completion:") ~typ:(bool @-> ptr void @-> returning (void)) x completion -let imageView self = msg_send ~self ~cmd:(selector "imageView") ~typ:(returning (id)) -let initWithHUDItem x self = msg_send ~self ~cmd:(selector "initWithHUDItem:") ~typ:(id @-> returning (id)) x -let item self = msg_send ~self ~cmd:(selector "item") ~typ:(returning (id)) -let itemContainerViewForLayout self = msg_send ~self ~cmd:(selector "itemContainerViewForLayout") ~typ:(returning (id)) -let layoutManager self = msg_send ~self ~cmd:(selector "layoutManager") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setItem x self = msg_send ~self ~cmd:(selector "setItem:") ~typ:(id @-> returning (void)) x -let showAnimated x ~completion self = msg_send ~self ~cmd:(selector "showAnimated:completion:") ~typ:(bool @-> ptr void @-> returning (void)) x completion -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let titleLabel self = msg_send ~self ~cmd:(selector "titleLabel") ~typ:(returning (id)) \ No newline at end of file +let containerViewForLayout self = msg_send ~self ~cmd:(selector "containerViewForLayout") ~typ:(returning id) +let customView self = msg_send ~self ~cmd:(selector "customView") ~typ:(returning id) +let dismissAnimated x ~completion self = msg_send ~self ~cmd:(selector "dismissAnimated:completion:") ~typ:(bool @-> (ptr void) @-> returning void) x completion +let imageInsetsForLayout self = msg_send ~self ~cmd:(selector "imageInsetsForLayout") ~typ:(returning UIEdgeInsets.t) +let imageView self = msg_send ~self ~cmd:(selector "imageView") ~typ:(returning id) +let initWithHUDItem x self = msg_send ~self ~cmd:(selector "initWithHUDItem:") ~typ:(id @-> returning id) x +let item self = msg_send ~self ~cmd:(selector "item") ~typ:(returning id) +let itemContainerViewForLayout self = msg_send ~self ~cmd:(selector "itemContainerViewForLayout") ~typ:(returning id) +let layoutManager self = msg_send ~self ~cmd:(selector "layoutManager") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setItem x self = msg_send ~self ~cmd:(selector "setItem:") ~typ:(id @-> returning void) x +let showAnimated x ~completion self = msg_send ~self ~cmd:(selector "showAnimated:completion:") ~typ:(bool @-> (ptr void) @-> returning void) x completion +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let titleLabel self = msg_send ~self ~cmd:(selector "titleLabel") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityHUDViewClass.ml b/uikit_extra/UIAccessibilityHUDViewClass.ml new file mode 100644 index 00000000..ed3260da --- /dev/null +++ b/uikit_extra/UIAccessibilityHUDViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilityhudview?language=objc}UIAccessibilityHUDView} *) + +let preferredHUDSize self = msg_send ~self ~cmd:(selector "preferredHUDSize") ~typ:(returning CGSize.t) \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityImageOnlyHUDLayoutManager.ml b/uikit_extra/UIAccessibilityImageOnlyHUDLayoutManager.ml index f5fa1007..b2fcf6dd 100644 --- a/uikit_extra/UIAccessibilityImageOnlyHUDLayoutManager.ml +++ b/uikit_extra/UIAccessibilityImageOnlyHUDLayoutManager.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAccessibilityImageOnlyHUDLayoutManager" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilityimageonlyhudlayoutmanager?language=objc}UIAccessibilityImageOnlyHUDLayoutManager} *) -let imageViewFrameForHUD x ~preferredSizeForLabel self = msg_send_stret ~self ~cmd:(selector "imageViewFrameForHUD:preferredSizeForLabel:") ~typ:(id @-> CGSize.t @-> returning (CGRect.t)) ~return_type:CGRect.t x preferredSizeForLabel -let minimumUnscaledSizeForHUD x ~preferredLabelSize self = msg_send_stret ~self ~cmd:(selector "minimumUnscaledSizeForHUD:preferredLabelSize:") ~typ:(id @-> CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x preferredLabelSize -let preferredSizeForLabelInHUD x ~maximumWidth self = msg_send_stret ~self ~cmd:(selector "preferredSizeForLabelInHUD:maximumWidth:") ~typ:(id @-> double @-> returning (CGSize.t)) ~return_type:CGSize.t x maximumWidth \ No newline at end of file +let self = get_class "UIAccessibilityImageOnlyHUDLayoutManager" + +let imageViewFrameForHUD x ~preferredSizeForLabel self = msg_send ~self ~cmd:(selector "imageViewFrameForHUD:preferredSizeForLabel:") ~typ:(id @-> CGSize.t @-> returning CGRect.t) x preferredSizeForLabel +let minimumUnscaledSizeForHUD x ~preferredLabelSize self = msg_send ~self ~cmd:(selector "minimumUnscaledSizeForHUD:preferredLabelSize:") ~typ:(id @-> CGSize.t @-> returning CGSize.t) x preferredLabelSize +let preferredSizeForLabelInHUD x ~maximumWidth self = msg_send ~self ~cmd:(selector "preferredSizeForLabelInHUD:maximumWidth:") ~typ:(id @-> double @-> returning CGSize.t) x maximumWidth \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityLabelOnlyHUDLayoutManager.ml b/uikit_extra/UIAccessibilityLabelOnlyHUDLayoutManager.ml index 17483cc9..e86c774c 100644 --- a/uikit_extra/UIAccessibilityLabelOnlyHUDLayoutManager.ml +++ b/uikit_extra/UIAccessibilityLabelOnlyHUDLayoutManager.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAccessibilityLabelOnlyHUDLayoutManager" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilitylabelonlyhudlayoutmanager?language=objc}UIAccessibilityLabelOnlyHUDLayoutManager} *) -let labelContainsSingleCharacter x self = msg_send ~self ~cmd:(selector "labelContainsSingleCharacter:") ~typ:(id @-> returning (bool)) x -let labelFontForHUD x self = msg_send ~self ~cmd:(selector "labelFontForHUD:") ~typ:(id @-> returning (id)) x -let labelFrameForHUD x ~preferredSize self = msg_send_stret ~self ~cmd:(selector "labelFrameForHUD:preferredSize:") ~typ:(id @-> CGSize.t @-> returning (CGRect.t)) ~return_type:CGRect.t x preferredSize -let minimumUnscaledSizeForHUD x ~preferredLabelSize self = msg_send_stret ~self ~cmd:(selector "minimumUnscaledSizeForHUD:preferredLabelSize:") ~typ:(id @-> CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x preferredLabelSize -let unscaledSizeForHUD x ~containingSize self = msg_send_stret ~self ~cmd:(selector "unscaledSizeForHUD:containingSize:") ~typ:(id @-> CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x containingSize \ No newline at end of file +let self = get_class "UIAccessibilityLabelOnlyHUDLayoutManager" + +let labelContainsSingleCharacter x self = msg_send ~self ~cmd:(selector "labelContainsSingleCharacter:") ~typ:(id @-> returning bool) x +let labelFontForHUD x self = msg_send ~self ~cmd:(selector "labelFontForHUD:") ~typ:(id @-> returning id) x +let labelFrameForHUD x ~preferredSize self = msg_send ~self ~cmd:(selector "labelFrameForHUD:preferredSize:") ~typ:(id @-> CGSize.t @-> returning CGRect.t) x preferredSize +let minimumUnscaledSizeForHUD x ~preferredLabelSize self = msg_send ~self ~cmd:(selector "minimumUnscaledSizeForHUD:preferredLabelSize:") ~typ:(id @-> CGSize.t @-> returning CGSize.t) x preferredLabelSize +let unscaledSizeForHUD x ~containingSize self = msg_send ~self ~cmd:(selector "unscaledSizeForHUD:containingSize:") ~typ:(id @-> CGSize.t @-> returning CGSize.t) x containingSize \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityLargeTextSegmentedViewController.ml b/uikit_extra/UIAccessibilityLargeTextSegmentedViewController.ml index ac586f6a..ca8f854f 100644 --- a/uikit_extra/UIAccessibilityLargeTextSegmentedViewController.ml +++ b/uikit_extra/UIAccessibilityLargeTextSegmentedViewController.ml @@ -5,22 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAccessibilityLargeTextSegmentedViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilitylargetextsegmentedviewcontroller?language=objc}UIAccessibilityLargeTextSegmentedViewController} *) -let buttonPress x self = msg_send ~self ~cmd:(selector "buttonPress:") ~typ:(id @-> returning (void)) x -let buttonTouchDown x self = msg_send ~self ~cmd:(selector "buttonTouchDown:") ~typ:(id @-> returning (void)) x -let buttonTouchUp x self = msg_send ~self ~cmd:(selector "buttonTouchUp:") ~typ:(id @-> returning (void)) x -let initWithSegmentedControl x ~segments ~delegate self = msg_send ~self ~cmd:(selector "initWithSegmentedControl:segments:delegate:") ~typ:(id @-> id @-> id @-> returning (id)) x segments delegate -let mainScrollView self = msg_send ~self ~cmd:(selector "mainScrollView") ~typ:(returning (id)) -let originalSelectedSegment self = msg_send ~self ~cmd:(selector "originalSelectedSegment") ~typ:(returning (id)) -let segmentButtons self = msg_send ~self ~cmd:(selector "segmentButtons") ~typ:(returning (id)) -let segmentFromSegment x self = msg_send ~self ~cmd:(selector "segmentFromSegment:") ~typ:(id @-> returning (id)) x -let segmentedControl self = msg_send ~self ~cmd:(selector "segmentedControl") ~typ:(returning (id)) -let segments self = msg_send ~self ~cmd:(selector "segments") ~typ:(returning (id)) -let setMainScrollView x self = msg_send ~self ~cmd:(selector "setMainScrollView:") ~typ:(id @-> returning (void)) x -let setOriginalSelectedSegment x self = msg_send ~self ~cmd:(selector "setOriginalSelectedSegment:") ~typ:(id @-> returning (void)) x -let setSegmentButtons x self = msg_send ~self ~cmd:(selector "setSegmentButtons:") ~typ:(id @-> returning (void)) x -let setSegmentedControl x self = msg_send ~self ~cmd:(selector "setSegmentedControl:") ~typ:(id @-> returning (void)) x -let setSegments x self = msg_send ~self ~cmd:(selector "setSegments:") ~typ:(id @-> returning (void)) x -let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIAccessibilityLargeTextSegmentedViewController" + +let buttonPress x self = msg_send ~self ~cmd:(selector "buttonPress:") ~typ:(id @-> returning void) x +let buttonTouchDown x self = msg_send ~self ~cmd:(selector "buttonTouchDown:") ~typ:(id @-> returning void) x +let buttonTouchUp x self = msg_send ~self ~cmd:(selector "buttonTouchUp:") ~typ:(id @-> returning void) x +let initWithSegmentedControl x ~segments ~delegate self = msg_send ~self ~cmd:(selector "initWithSegmentedControl:segments:delegate:") ~typ:(id @-> id @-> id @-> returning id) x segments delegate +let mainScrollView self = msg_send ~self ~cmd:(selector "mainScrollView") ~typ:(returning id) +let originalSelectedSegment self = msg_send ~self ~cmd:(selector "originalSelectedSegment") ~typ:(returning id) +let segmentButtons self = msg_send ~self ~cmd:(selector "segmentButtons") ~typ:(returning id) +let segmentFromSegment x self = msg_send ~self ~cmd:(selector "segmentFromSegment:") ~typ:(id @-> returning id) x +let segmentedControl self = msg_send ~self ~cmd:(selector "segmentedControl") ~typ:(returning id) +let segments self = msg_send ~self ~cmd:(selector "segments") ~typ:(returning id) +let setMainScrollView x self = msg_send ~self ~cmd:(selector "setMainScrollView:") ~typ:(id @-> returning void) x +let setOriginalSelectedSegment x self = msg_send ~self ~cmd:(selector "setOriginalSelectedSegment:") ~typ:(id @-> returning void) x +let setSegmentButtons x self = msg_send ~self ~cmd:(selector "setSegmentButtons:") ~typ:(id @-> returning void) x +let setSegmentedControl x self = msg_send ~self ~cmd:(selector "setSegmentedControl:") ~typ:(id @-> returning void) x +let setSegments x self = msg_send ~self ~cmd:(selector "setSegments:") ~typ:(id @-> returning void) x +let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIAccessibilityLocationDescriptor.ml b/uikit_extra/UIAccessibilityLocationDescriptor.ml index 30d64760..03df3400 100644 --- a/uikit_extra/UIAccessibilityLocationDescriptor.ml +++ b/uikit_extra/UIAccessibilityLocationDescriptor.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIAccessibilityLocationDescriptor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessibilitylocationdescriptor?language=objc}UIAccessibilityLocationDescriptor} *) -let attributedName self = msg_send ~self ~cmd:(selector "attributedName") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithAttributedName x ~point ~inView self = msg_send ~self ~cmd:(selector "initWithAttributedName:point:inView:") ~typ:(id @-> CGPoint.t @-> id @-> returning (id)) x point inView -let initWithName x ~view self = msg_send ~self ~cmd:(selector "initWithName:view:") ~typ:(id @-> id @-> returning (id)) x view -let initWithName' x ~point ~inView self = msg_send ~self ~cmd:(selector "initWithName:point:inView:") ~typ:(id @-> CGPoint.t @-> id @-> returning (id)) x point inView -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let point self = msg_send_stret ~self ~cmd:(selector "point") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIAccessibilityLocationDescriptor" + +let attributedName self = msg_send ~self ~cmd:(selector "attributedName") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithAttributedName x ~point ~inView self = msg_send ~self ~cmd:(selector "initWithAttributedName:point:inView:") ~typ:(id @-> CGPoint.t @-> id @-> returning id) x point inView +let initWithName x ~view self = msg_send ~self ~cmd:(selector "initWithName:view:") ~typ:(id @-> id @-> returning id) x view +let initWithName' x ~point ~inView self = msg_send ~self ~cmd:(selector "initWithName:point:inView:") ~typ:(id @-> CGPoint.t @-> id @-> returning id) x point inView +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) +let point self = msg_send ~self ~cmd:(selector "point") ~typ:(returning CGPoint.t) +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIAccessoryBackgroundTaskAction.ml b/uikit_extra/UIAccessoryBackgroundTaskAction.ml new file mode 100644 index 00000000..51f41b01 --- /dev/null +++ b/uikit_extra/UIAccessoryBackgroundTaskAction.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiaccessorybackgroundtaskaction?language=objc}UIAccessoryBackgroundTaskAction} *) + +let self = get_class "UIAccessoryBackgroundTaskAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithInfo x ~timeout ~forResponseOnQueue ~withHandler self = msg_send ~self ~cmd:(selector "initWithInfo:timeout:forResponseOnQueue:withHandler:") ~typ:(id @-> double @-> id @-> (ptr void) @-> returning id) x timeout forResponseOnQueue withHandler \ No newline at end of file diff --git a/uikit_extra/UIActionSheetiOSDismissActionView.ml b/uikit_extra/UIActionSheetiOSDismissActionView.ml new file mode 100644 index 00000000..71754723 --- /dev/null +++ b/uikit_extra/UIActionSheetiOSDismissActionView.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiactionsheetiosdismissactionview?language=objc}UIActionSheetiOSDismissActionView} *) + +let self = get_class "UIActionSheetiOSDismissActionView" + +let dismissButton self = msg_send ~self ~cmd:(selector "dismissButton") ~typ:(returning id) +let initWithContinuousCornerRadius x self = msg_send ~self ~cmd:(selector "initWithContinuousCornerRadius:") ~typ:(double @-> returning id) x +let setDismissButton x self = msg_send ~self ~cmd:(selector "setDismissButton:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let setUsesShortCompactVerticalLayout x self = msg_send ~self ~cmd:(selector "setUsesShortCompactVerticalLayout:") ~typ:(bool @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let usesShortCompactVerticalLayout self = msg_send ~self ~cmd:(selector "usesShortCompactVerticalLayout") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIActivity.ml b/uikit_extra/UIActivity.ml deleted file mode 100644 index 6ae24770..00000000 --- a/uikit_extra/UIActivity.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIActivity" - -module C = struct - let activityCategory self = msg_send ~self ~cmd:(selector "activityCategory") ~typ:(returning (llong)) -end - -let activityDidFinish x self = msg_send ~self ~cmd:(selector "activityDidFinish:") ~typ:(bool @-> returning (void)) x -let activityImage self = msg_send ~self ~cmd:(selector "activityImage") ~typ:(returning (id)) -let activityTitle self = msg_send ~self ~cmd:(selector "activityTitle") ~typ:(returning (id)) -let activityType self = msg_send ~self ~cmd:(selector "activityType") ~typ:(returning (id)) -let activityViewController self = msg_send ~self ~cmd:(selector "activityViewController") ~typ:(returning (id)) -let applicationExtension self = msg_send ~self ~cmd:(selector "applicationExtension") ~typ:(returning (id)) -let canPerformWithActivityItems x self = msg_send ~self ~cmd:(selector "canPerformWithActivityItems:") ~typ:(id @-> returning (bool)) x -let performActivity self = msg_send ~self ~cmd:(selector "performActivity") ~typ:(returning (void)) -let prepareWithActivityItems x self = msg_send ~self ~cmd:(selector "prepareWithActivityItems:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UIActivityActionCell.ml b/uikit_extra/UIActivityActionCell.ml deleted file mode 100644 index 6b73e56b..00000000 --- a/uikit_extra/UIActivityActionCell.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIActivityActionCell" - -let effectView self = msg_send ~self ~cmd:(selector "effectView") ~typ:(returning (id)) -let fillView self = msg_send ~self ~cmd:(selector "fillView") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isDisabled self = msg_send ~self ~cmd:(selector "isDisabled") ~typ:(returning (bool)) -let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning (void)) -let setDisabled x self = msg_send ~self ~cmd:(selector "setDisabled:") ~typ:(bool @-> returning (void)) x -let setEffectView x self = msg_send ~self ~cmd:(selector "setEffectView:") ~typ:(id @-> returning (void)) x -let setFillView x self = msg_send ~self ~cmd:(selector "setFillView:") ~typ:(id @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UIActivityActionGroupCell.ml b/uikit_extra/UIActivityActionGroupCell.ml deleted file mode 100644 index 27a89fd2..00000000 --- a/uikit_extra/UIActivityActionGroupCell.ml +++ /dev/null @@ -1,61 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIActivityActionGroupCell" - -let activityImageView self = msg_send ~self ~cmd:(selector "activityImageView") ~typ:(returning (id)) -let activityProxy self = msg_send ~self ~cmd:(selector "activityProxy") ~typ:(returning (id)) -let activitySlotView self = msg_send ~self ~cmd:(selector "activitySlotView") ~typ:(returning (id)) -let badgeView self = msg_send ~self ~cmd:(selector "badgeView") ~typ:(returning (id)) -let badgeViewIfLoaded self = msg_send ~self ~cmd:(selector "badgeViewIfLoaded") ~typ:(returning (id)) -let contentTintColor self = msg_send ~self ~cmd:(selector "contentTintColor") ~typ:(returning (id)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let imageSlotID self = msg_send ~self ~cmd:(selector "imageSlotID") ~typ:(returning (uint)) -let imageStackView self = msg_send ~self ~cmd:(selector "imageStackView") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let platterTextHeight self = msg_send ~self ~cmd:(selector "platterTextHeight") ~typ:(returning (double)) -let platterView self = msg_send ~self ~cmd:(selector "platterView") ~typ:(returning (id)) -let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning (void)) -let setActivityImageView x self = msg_send ~self ~cmd:(selector "setActivityImageView:") ~typ:(id @-> returning (void)) x -let setActivityProxy x self = msg_send ~self ~cmd:(selector "setActivityProxy:") ~typ:(id @-> returning (void)) x -let setActivitySlotView x self = msg_send ~self ~cmd:(selector "setActivitySlotView:") ~typ:(id @-> returning (void)) x -let setBadgeText x ~textColor ~backgroundColor self = msg_send ~self ~cmd:(selector "setBadgeText:textColor:backgroundColor:") ~typ:(id @-> id @-> id @-> returning (void)) x textColor backgroundColor -let setBadgeViewIfLoaded x self = msg_send ~self ~cmd:(selector "setBadgeViewIfLoaded:") ~typ:(id @-> returning (void)) x -let setContentTintColor x self = msg_send ~self ~cmd:(selector "setContentTintColor:") ~typ:(id @-> returning (void)) x -let setDisabled x self = msg_send ~self ~cmd:(selector "setDisabled:") ~typ:(bool @-> returning (void)) x -let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning (void)) x -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setImageSlotID x self = msg_send ~self ~cmd:(selector "setImageSlotID:") ~typ:(uint @-> returning (void)) x -let setImageStackView x self = msg_send ~self ~cmd:(selector "setImageStackView:") ~typ:(id @-> returning (void)) x -let setPlatterTextHeight x self = msg_send ~self ~cmd:(selector "setPlatterTextHeight:") ~typ:(double @-> returning (void)) x -let setPlatterView x self = msg_send ~self ~cmd:(selector "setPlatterView:") ~typ:(id @-> returning (void)) x -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setStatusImage x self = msg_send ~self ~cmd:(selector "setStatusImage:") ~typ:(id @-> returning (void)) x -let setStatusImageTintColor x self = msg_send ~self ~cmd:(selector "setStatusImageTintColor:") ~typ:(id @-> returning (void)) x -let setStatusImageViewIfLoaded x self = msg_send ~self ~cmd:(selector "setStatusImageViewIfLoaded:") ~typ:(id @-> returning (void)) x -let setSubtitle x self = msg_send ~self ~cmd:(selector "setSubtitle:") ~typ:(id @-> returning (void)) x -let setSubtitleLabelIfLoaded x self = msg_send ~self ~cmd:(selector "setSubtitleLabelIfLoaded:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setTitleLabel x self = msg_send ~self ~cmd:(selector "setTitleLabel:") ~typ:(id @-> returning (void)) x -let setTitleSlotID x self = msg_send ~self ~cmd:(selector "setTitleSlotID:") ~typ:(uint @-> returning (void)) x -let setTitleSlotView x self = msg_send ~self ~cmd:(selector "setTitleSlotView:") ~typ:(id @-> returning (void)) x -let setTitleStackView x self = msg_send ~self ~cmd:(selector "setTitleStackView:") ~typ:(id @-> returning (void)) x -let statusImage self = msg_send ~self ~cmd:(selector "statusImage") ~typ:(returning (id)) -let statusImageTintColor self = msg_send ~self ~cmd:(selector "statusImageTintColor") ~typ:(returning (id)) -let statusImageView self = msg_send ~self ~cmd:(selector "statusImageView") ~typ:(returning (id)) -let statusImageViewIfLoaded self = msg_send ~self ~cmd:(selector "statusImageViewIfLoaded") ~typ:(returning (id)) -let subtitle self = msg_send ~self ~cmd:(selector "subtitle") ~typ:(returning (id)) -let subtitleLabel self = msg_send ~self ~cmd:(selector "subtitleLabel") ~typ:(returning (id)) -let subtitleLabelIfLoaded self = msg_send ~self ~cmd:(selector "subtitleLabelIfLoaded") ~typ:(returning (id)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let titleLabel self = msg_send ~self ~cmd:(selector "titleLabel") ~typ:(returning (id)) -let titleSlotID self = msg_send ~self ~cmd:(selector "titleSlotID") ~typ:(returning (uint)) -let titleSlotView self = msg_send ~self ~cmd:(selector "titleSlotView") ~typ:(returning (id)) -let titleStackView self = msg_send ~self ~cmd:(selector "titleStackView") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UIActivityHeroActionCell.ml b/uikit_extra/UIActivityHeroActionCell.ml deleted file mode 100644 index 68de8f99..00000000 --- a/uikit_extra/UIActivityHeroActionCell.ml +++ /dev/null @@ -1,30 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIActivityHeroActionCell" - -module C = struct - let heightForNumberOfLines x self = msg_send ~self ~cmd:(selector "heightForNumberOfLines:") ~typ:(double @-> returning (double)) x - let numberOfLinesForTitle x ~itemWidth self = msg_send ~self ~cmd:(selector "numberOfLinesForTitle:itemWidth:") ~typ:(id @-> double @-> returning (llong)) x itemWidth -end - -let activityImageView self = msg_send ~self ~cmd:(selector "activityImageView") ~typ:(returning (id)) -let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning (void)) x -let bottomInsetConstraint self = msg_send ~self ~cmd:(selector "bottomInsetConstraint") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning (void)) -let setActivityImageView x self = msg_send ~self ~cmd:(selector "setActivityImageView:") ~typ:(id @-> returning (void)) x -let setBottomInsetConstraint x self = msg_send ~self ~cmd:(selector "setBottomInsetConstraint:") ~typ:(id @-> returning (void)) x -let setDisabled x self = msg_send ~self ~cmd:(selector "setDisabled:") ~typ:(bool @-> returning (void)) x -let setStackView x self = msg_send ~self ~cmd:(selector "setStackView:") ~typ:(id @-> returning (void)) x -let setTallBottomInsetConstraint x self = msg_send ~self ~cmd:(selector "setTallBottomInsetConstraint:") ~typ:(id @-> returning (void)) x -let setTitleLabel x self = msg_send ~self ~cmd:(selector "setTitleLabel:") ~typ:(id @-> returning (void)) x -let stackView self = msg_send ~self ~cmd:(selector "stackView") ~typ:(returning (id)) -let tallBottomInsetConstraint self = msg_send ~self ~cmd:(selector "tallBottomInsetConstraint") ~typ:(returning (id)) -let titleLabel self = msg_send ~self ~cmd:(selector "titleLabel") ~typ:(returning (id)) -let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UIActivityItemCustomization.ml b/uikit_extra/UIActivityItemCustomization.ml deleted file mode 100644 index 3a5aa044..00000000 --- a/uikit_extra/UIActivityItemCustomization.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIActivityItemCustomization" - -module C = struct - let actionCustomizationWithTitle x ~identifier ~handler self = msg_send ~self ~cmd:(selector "actionCustomizationWithTitle:identifier:handler:") ~typ:(id @-> id @-> ptr void @-> returning (id)) x identifier handler - let pickerCustomizationWithTitle x ~identifier ~options ~selectedOptionIndex ~valueChangedHandler self = msg_send ~self ~cmd:(selector "pickerCustomizationWithTitle:identifier:options:selectedOptionIndex:valueChangedHandler:") ~typ:(id @-> id @-> id @-> llong @-> ptr void @-> returning (id)) x identifier options (LLong.of_int selectedOptionIndex) valueChangedHandler - let switchCustomizationWithTitle x ~identifier ~value ~valueChangedHandler self = msg_send ~self ~cmd:(selector "switchCustomizationWithTitle:identifier:value:valueChangedHandler:") ~typ:(id @-> id @-> bool @-> ptr void @-> returning (id)) x identifier value valueChangedHandler -end - -let enabled self = msg_send ~self ~cmd:(selector "enabled") ~typ:(returning (bool)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UIActivityItemProvider.ml b/uikit_extra/UIActivityItemProvider.ml deleted file mode 100644 index 4ac3cb04..00000000 --- a/uikit_extra/UIActivityItemProvider.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIActivityItemProvider" - -let activityType self = msg_send ~self ~cmd:(selector "activityType") ~typ:(returning (id)) -let activityViewController x ~itemForActivityType self = msg_send ~self ~cmd:(selector "activityViewController:itemForActivityType:") ~typ:(id @-> id @-> returning (id)) x itemForActivityType -let activityViewControllerPlaceholderItem x self = msg_send ~self ~cmd:(selector "activityViewControllerPlaceholderItem:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithPlaceholderItem x self = msg_send ~self ~cmd:(selector "initWithPlaceholderItem:") ~typ:(id @-> returning (id)) x -let item self = msg_send ~self ~cmd:(selector "item") ~typ:(returning (id)) -let main self = msg_send ~self ~cmd:(selector "main") ~typ:(returning (void)) -let placeholderItem self = msg_send ~self ~cmd:(selector "placeholderItem") ~typ:(returning (id)) -let providedItem self = msg_send ~self ~cmd:(selector "providedItem") ~typ:(returning (id)) -let setPlaceholderItem x self = msg_send ~self ~cmd:(selector "setPlaceholderItem:") ~typ:(id @-> returning (void)) x -let setProvidedItem x self = msg_send ~self ~cmd:(selector "setProvidedItem:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UIActivityItemSourceProxy.ml b/uikit_extra/UIActivityItemSourceProxy.ml deleted file mode 100644 index bb4004a5..00000000 --- a/uikit_extra/UIActivityItemSourceProxy.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIActivityItemSourceProxy" - -let activityItem self = msg_send ~self ~cmd:(selector "activityItem") ~typ:(returning (id)) -let avc self = msg_send ~self ~cmd:(selector "avc") ~typ:(returning (id)) -let dataTypeIdentifierForActivityType x self = msg_send ~self ~cmd:(selector "dataTypeIdentifierForActivityType:") ~typ:(id @-> returning (id)) x -let initWithActivityItem x ~activityViewController self = msg_send ~self ~cmd:(selector "initWithActivityItem:activityViewController:") ~typ:(id @-> id @-> returning (id)) x activityViewController -let isItemProvider self = msg_send ~self ~cmd:(selector "isItemProvider") ~typ:(returning (bool)) -let itemForActivityType x self = msg_send ~self ~cmd:(selector "itemForActivityType:") ~typ:(id @-> returning (id)) x -let operation self = msg_send ~self ~cmd:(selector "operation") ~typ:(returning (id)) -let placeholderItem self = msg_send ~self ~cmd:(selector "placeholderItem") ~typ:(returning (id)) -let subjectForActivityType x self = msg_send ~self ~cmd:(selector "subjectForActivityType:") ~typ:(id @-> returning (id)) x -let thumbnailImageForActivityType x ~suggestedSize self = msg_send ~self ~cmd:(selector "thumbnailImageForActivityType:suggestedSize:") ~typ:(id @-> CGSize.t @-> returning (id)) x suggestedSize \ No newline at end of file diff --git a/uikit_extra/UIActivityProxy.ml b/uikit_extra/UIActivityProxy.ml deleted file mode 100644 index 142083de..00000000 --- a/uikit_extra/UIActivityProxy.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIActivityProxy" - -let activity self = msg_send ~self ~cmd:(selector "activity") ~typ:(returning (id)) -let activityCategory self = msg_send ~self ~cmd:(selector "activityCategory") ~typ:(returning (llong)) -let activityImage self = msg_send ~self ~cmd:(selector "activityImage") ~typ:(returning (id)) -let activityItems self = msg_send ~self ~cmd:(selector "activityItems") ~typ:(returning (id)) -let activityTitle self = msg_send ~self ~cmd:(selector "activityTitle") ~typ:(returning (id)) -let activityType self = msg_send ~self ~cmd:(selector "activityType") ~typ:(returning (id)) -let activityViewController self = msg_send ~self ~cmd:(selector "activityViewController") ~typ:(returning (id)) -let initWithActivity x ~activityItems ~activityViewController self = msg_send ~self ~cmd:(selector "initWithActivity:activityItems:activityViewController:") ~typ:(id @-> id @-> id @-> returning (id)) x activityItems activityViewController -let performActivity self = msg_send ~self ~cmd:(selector "performActivity") ~typ:(returning (void)) -let prepareToPerformActivity self = msg_send ~self ~cmd:(selector "prepareToPerformActivity") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UIActivityViewController.ml b/uikit_extra/UIActivityViewController.ml deleted file mode 100644 index 974a97f2..00000000 --- a/uikit_extra/UIActivityViewController.ml +++ /dev/null @@ -1,89 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIActivityViewController" - -let activity self = msg_send ~self ~cmd:(selector "activity") ~typ:(returning (id)) -let activityItems self = msg_send ~self ~cmd:(selector "activityItems") ~typ:(returning (id)) -let activityTypeOrder self = msg_send ~self ~cmd:(selector "activityTypeOrder") ~typ:(returning (id)) -let activityViewController self = msg_send ~self ~cmd:(selector "activityViewController") ~typ:(returning (id)) -let airDropDelegate self = msg_send ~self ~cmd:(selector "airDropDelegate") ~typ:(returning (id)) -let allowsCustomPresentationStyle self = msg_send ~self ~cmd:(selector "allowsCustomPresentationStyle") ~typ:(returning (bool)) -let allowsEmbedding self = msg_send ~self ~cmd:(selector "allowsEmbedding") ~typ:(returning (bool)) -let allowsProminentActivity self = msg_send ~self ~cmd:(selector "allowsProminentActivity") ~typ:(returning (bool)) -let applicationActivities self = msg_send ~self ~cmd:(selector "applicationActivities") ~typ:(returning (id)) -let compatibleApplicationActivities self = msg_send ~self ~cmd:(selector "compatibleApplicationActivities") ~typ:(returning (id)) -let completionHandler self = msg_send ~self ~cmd:(selector "completionHandler") ~typ:(returning (ptr void)) -let completionWithItemsHandler self = msg_send ~self ~cmd:(selector "completionWithItemsHandler") ~typ:(returning (ptr void)) -let configureForCloudSharing self = msg_send ~self ~cmd:(selector "configureForCloudSharing") ~typ:(returning (bool)) -let configureForPhotosEdit self = msg_send ~self ~cmd:(selector "configureForPhotosEdit") ~typ:(returning (bool)) -let customViewController self = msg_send ~self ~cmd:(selector "customViewController") ~typ:(returning (id)) -let customViewControllerVerticalInset self = msg_send ~self ~cmd:(selector "customViewControllerVerticalInset") ~typ:(returning (double)) -let dismissCompletionHandler self = msg_send ~self ~cmd:(selector "dismissCompletionHandler") ~typ:(returning (ptr void)) -let enableNewDesignInPhotos self = msg_send ~self ~cmd:(selector "enableNewDesignInPhotos") ~typ:(returning (bool)) -let excludedActivityCategories self = msg_send ~self ~cmd:(selector "excludedActivityCategories") ~typ:(returning (llong)) -let excludedActivityTypes self = msg_send ~self ~cmd:(selector "excludedActivityTypes") ~typ:(returning (id)) -let heroActionActivityTypes self = msg_send ~self ~cmd:(selector "heroActionActivityTypes") ~typ:(returning (id)) -let hideHeaderView self = msg_send ~self ~cmd:(selector "hideHeaderView") ~typ:(returning (bool)) -let includedActivityTypes self = msg_send ~self ~cmd:(selector "includedActivityTypes") ~typ:(returning (id)) -let initWithActivityItems x ~applicationActivities self = msg_send ~self ~cmd:(selector "initWithActivityItems:applicationActivities:") ~typ:(id @-> id @-> returning (id)) x applicationActivities -let initWithActivityItemsConfiguration x self = msg_send ~self ~cmd:(selector "initWithActivityItemsConfiguration:") ~typ:(id @-> returning (id)) x -let initWithAssetIdentifiers x ~activityItems ~applicationActivities self = msg_send ~self ~cmd:(selector "initWithAssetIdentifiers:activityItems:applicationActivities:") ~typ:(id @-> id @-> id @-> returning (id)) x activityItems applicationActivities -let initWithUserDefaults x ~userDefaultsIdentifier ~applicationActivities self = msg_send ~self ~cmd:(selector "initWithUserDefaults:userDefaultsIdentifier:applicationActivities:") ~typ:(id @-> id @-> id @-> returning (id)) x userDefaultsIdentifier applicationActivities -let isContentManaged self = msg_send ~self ~cmd:(selector "isContentManaged") ~typ:(returning (bool)) -let objectManipulationDelegate self = msg_send ~self ~cmd:(selector "objectManipulationDelegate") ~typ:(returning (id)) -let photosCarouselViewController self = msg_send ~self ~cmd:(selector "photosCarouselViewController") ~typ:(returning (id)) -let photosDelegate self = msg_send ~self ~cmd:(selector "photosDelegate") ~typ:(returning (id)) -let photosHeaderMetadata self = msg_send ~self ~cmd:(selector "photosHeaderMetadata") ~typ:(returning (id)) -let photosStackViewController self = msg_send ~self ~cmd:(selector "photosStackViewController") ~typ:(returning (id)) -let preCompletionHandler self = msg_send ~self ~cmd:(selector "preCompletionHandler") ~typ:(returning (ptr void)) -let setActivity x self = msg_send ~self ~cmd:(selector "setActivity:") ~typ:(id @-> returning (void)) x -let setActivityItems x self = msg_send ~self ~cmd:(selector "setActivityItems:") ~typ:(id @-> returning (void)) x -let setActivityTypeOrder x self = msg_send ~self ~cmd:(selector "setActivityTypeOrder:") ~typ:(id @-> returning (void)) x -let setActivityViewController x self = msg_send ~self ~cmd:(selector "setActivityViewController:") ~typ:(id @-> returning (void)) x -let setAirDropDelegate x self = msg_send ~self ~cmd:(selector "setAirDropDelegate:") ~typ:(id @-> returning (void)) x -let setAllowsCustomPresentationStyle x self = msg_send ~self ~cmd:(selector "setAllowsCustomPresentationStyle:") ~typ:(bool @-> returning (void)) x -let setAllowsEmbedding x self = msg_send ~self ~cmd:(selector "setAllowsEmbedding:") ~typ:(bool @-> returning (void)) x -let setAllowsProminentActivity x self = msg_send ~self ~cmd:(selector "setAllowsProminentActivity:") ~typ:(bool @-> returning (void)) x -let setApplicationActivities x self = msg_send ~self ~cmd:(selector "setApplicationActivities:") ~typ:(id @-> returning (void)) x -let setCompletionHandler x self = msg_send ~self ~cmd:(selector "setCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let setCompletionWithItemsHandler x self = msg_send ~self ~cmd:(selector "setCompletionWithItemsHandler:") ~typ:(ptr void @-> returning (void)) x -let setConfigureForCloudSharing x self = msg_send ~self ~cmd:(selector "setConfigureForCloudSharing:") ~typ:(bool @-> returning (void)) x -let setConfigureForPhotosEdit x self = msg_send ~self ~cmd:(selector "setConfigureForPhotosEdit:") ~typ:(bool @-> returning (void)) x -let setCustomViewController x self = msg_send ~self ~cmd:(selector "setCustomViewController:") ~typ:(id @-> returning (void)) x -let setCustomViewControllerVerticalInset x self = msg_send ~self ~cmd:(selector "setCustomViewControllerVerticalInset:") ~typ:(double @-> returning (void)) x -let setDismissCompletionHandler x self = msg_send ~self ~cmd:(selector "setDismissCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let setEnableNewDesignInPhotos x self = msg_send ~self ~cmd:(selector "setEnableNewDesignInPhotos:") ~typ:(bool @-> returning (void)) x -let setExcludedActivityCategories x self = msg_send ~self ~cmd:(selector "setExcludedActivityCategories:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setExcludedActivityTypes x self = msg_send ~self ~cmd:(selector "setExcludedActivityTypes:") ~typ:(id @-> returning (void)) x -let setHeroActionActivityTypes x self = msg_send ~self ~cmd:(selector "setHeroActionActivityTypes:") ~typ:(id @-> returning (void)) x -let setHideHeaderView x self = msg_send ~self ~cmd:(selector "setHideHeaderView:") ~typ:(bool @-> returning (void)) x -let setIncludedActivityTypes x self = msg_send ~self ~cmd:(selector "setIncludedActivityTypes:") ~typ:(id @-> returning (void)) x -let setIsContentManaged x self = msg_send ~self ~cmd:(selector "setIsContentManaged:") ~typ:(bool @-> returning (void)) x -let setObjectManipulationDelegate x self = msg_send ~self ~cmd:(selector "setObjectManipulationDelegate:") ~typ:(id @-> returning (void)) x -let setPhotosCarouselViewController x self = msg_send ~self ~cmd:(selector "setPhotosCarouselViewController:") ~typ:(id @-> returning (void)) x -let setPhotosDelegate x self = msg_send ~self ~cmd:(selector "setPhotosDelegate:") ~typ:(id @-> returning (void)) x -let setPhotosHeaderMetadata x self = msg_send ~self ~cmd:(selector "setPhotosHeaderMetadata:") ~typ:(id @-> returning (void)) x -let setPhotosStackViewController x self = msg_send ~self ~cmd:(selector "setPhotosStackViewController:") ~typ:(id @-> returning (void)) x -let setPreCompletionHandler x self = msg_send ~self ~cmd:(selector "setPreCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let setShareKitInfo x self = msg_send ~self ~cmd:(selector "setShareKitInfo:") ~typ:(id @-> returning (void)) x -let setSharingStyle x self = msg_send ~self ~cmd:(selector "setSharingStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setShowHeroActionsHorizontally x self = msg_send ~self ~cmd:(selector "setShowHeroActionsHorizontally:") ~typ:(bool @-> returning (void)) x -let setShowKeyboardAutomatically x self = msg_send ~self ~cmd:(selector "setShowKeyboardAutomatically:") ~typ:(bool @-> returning (void)) x -let setSourceIsManaged x self = msg_send ~self ~cmd:(selector "setSourceIsManaged:") ~typ:(bool @-> returning (void)) x -let setSubject x self = msg_send ~self ~cmd:(selector "setSubject:") ~typ:(id @-> returning (void)) x -let setTopContentSectionText x self = msg_send ~self ~cmd:(selector "setTopContentSectionText:") ~typ:(id @-> returning (void)) x -let setWhitelistActionActivitiesOnly x self = msg_send ~self ~cmd:(selector "setWhitelistActionActivitiesOnly:") ~typ:(bool @-> returning (void)) x -let shareKitInfo self = msg_send ~self ~cmd:(selector "shareKitInfo") ~typ:(returning (id)) -let sharingStyle self = msg_send ~self ~cmd:(selector "sharingStyle") ~typ:(returning (llong)) -let showHeroActionsHorizontally self = msg_send ~self ~cmd:(selector "showHeroActionsHorizontally") ~typ:(returning (bool)) -let showKeyboardAutomatically self = msg_send ~self ~cmd:(selector "showKeyboardAutomatically") ~typ:(returning (bool)) -let sourceIsManaged self = msg_send ~self ~cmd:(selector "sourceIsManaged") ~typ:(returning (bool)) -let subject self = msg_send ~self ~cmd:(selector "subject") ~typ:(returning (id)) -let topContentSectionText self = msg_send ~self ~cmd:(selector "topContentSectionText") ~typ:(returning (id)) -let whitelistActionActivitiesOnly self = msg_send ~self ~cmd:(selector "whitelistActionActivitiesOnly") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UIAirDropNode.ml b/uikit_extra/UIAirDropNode.ml deleted file mode 100644 index 883100a9..00000000 --- a/uikit_extra/UIAirDropNode.ml +++ /dev/null @@ -1,48 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIAirDropNode" - -module C = struct - let nodeWithImageSlotID x ~labelSlotID ~transportSlotID self = msg_send ~self ~cmd:(selector "nodeWithImageSlotID:labelSlotID:transportSlotID:") ~typ:(uint @-> uint @-> uint @-> returning (id)) x labelSlotID transportSlotID - let nodeWithSuggestionNode x ~wantsPeopleSuggestionData self = msg_send ~self ~cmd:(selector "nodeWithSuggestionNode:wantsPeopleSuggestionData:") ~typ:(id @-> bool @-> returning (id)) x wantsPeopleSuggestionData - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let bottomLabelSlotID self = msg_send ~self ~cmd:(selector "bottomLabelSlotID") ~typ:(returning (uint)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let displayName self = msg_send ~self ~cmd:(selector "displayName") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hasSquareImage self = msg_send ~self ~cmd:(selector "hasSquareImage") ~typ:(returning (bool)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let imageSlotID self = msg_send ~self ~cmd:(selector "imageSlotID") ~typ:(returning (uint)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isDisabled self = msg_send ~self ~cmd:(selector "isDisabled") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isRestricted self = msg_send ~self ~cmd:(selector "isRestricted") ~typ:(returning (bool)) -let load self = msg_send ~self ~cmd:(selector "load") ~typ:(returning (bool)) -let loadHandler self = msg_send ~self ~cmd:(selector "loadHandler") ~typ:(returning (ptr void)) -let mainLabelSlotID self = msg_send ~self ~cmd:(selector "mainLabelSlotID") ~typ:(returning (uint)) -let nodeIdentifier self = msg_send ~self ~cmd:(selector "nodeIdentifier") ~typ:(returning (id)) -let peopleSuggestion self = msg_send ~self ~cmd:(selector "peopleSuggestion") ~typ:(returning (id)) -let setBottomLabelSlotID x self = msg_send ~self ~cmd:(selector "setBottomLabelSlotID:") ~typ:(uint @-> returning (void)) x -let setDisabled x self = msg_send ~self ~cmd:(selector "setDisabled:") ~typ:(bool @-> returning (void)) x -let setDisplayName x self = msg_send ~self ~cmd:(selector "setDisplayName:") ~typ:(id @-> returning (void)) x -let setHasSquareImage x self = msg_send ~self ~cmd:(selector "setHasSquareImage:") ~typ:(bool @-> returning (void)) x -let setImageSlotID x self = msg_send ~self ~cmd:(selector "setImageSlotID:") ~typ:(uint @-> returning (void)) x -let setLoadHandler x self = msg_send ~self ~cmd:(selector "setLoadHandler:") ~typ:(ptr void @-> returning (void)) x -let setMainLabelSlotID x self = msg_send ~self ~cmd:(selector "setMainLabelSlotID:") ~typ:(uint @-> returning (void)) x -let setNodeIdentifier x self = msg_send ~self ~cmd:(selector "setNodeIdentifier:") ~typ:(id @-> returning (void)) x -let setPeopleSuggestion x self = msg_send ~self ~cmd:(selector "setPeopleSuggestion:") ~typ:(id @-> returning (void)) x -let setRestricted x self = msg_send ~self ~cmd:(selector "setRestricted:") ~typ:(bool @-> returning (void)) x -let setSubtitle x self = msg_send ~self ~cmd:(selector "setSubtitle:") ~typ:(id @-> returning (void)) x -let setSuggestionNode x self = msg_send ~self ~cmd:(selector "setSuggestionNode:") ~typ:(id @-> returning (void)) x -let setTransportSlotID x self = msg_send ~self ~cmd:(selector "setTransportSlotID:") ~typ:(uint @-> returning (void)) x -let subtitle self = msg_send ~self ~cmd:(selector "subtitle") ~typ:(returning (id)) -let suggestionNode self = msg_send ~self ~cmd:(selector "suggestionNode") ~typ:(returning (id)) -let transportSlotID self = msg_send ~self ~cmd:(selector "transportSlotID") ~typ:(returning (uint)) \ No newline at end of file diff --git a/uikit_extra/UIAlertControllerVisualStyle.ml b/uikit_extra/UIAlertControllerVisualStyle.ml new file mode 100644 index 00000000..5f46f1ce --- /dev/null +++ b/uikit_extra/UIAlertControllerVisualStyle.ml @@ -0,0 +1,70 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uialertcontrollervisualstyle?language=objc}UIAlertControllerVisualStyle} *) + +let self = get_class "UIAlertControllerVisualStyle" + +let actionImageMarginForAction self = msg_send ~self ~cmd:(selector "actionImageMarginForAction") ~typ:(returning UIEdgeInsets.t) +let actionSequenceEdgeInsets self = msg_send ~self ~cmd:(selector "actionSequenceEdgeInsets") ~typ:(returning UIEdgeInsets.t) +let actionWidthForMinimumActionWidth x self = msg_send ~self ~cmd:(selector "actionWidthForMinimumActionWidth:") ~typ:(double @-> returning double) x +let animateAlertControllerView x ~ofAlertController ~forPresentation ~inContainerView ~descendantOfContainerView ~duration ~completionBlock self = msg_send ~self ~cmd:(selector "animateAlertControllerView:ofAlertController:forPresentation:inContainerView:descendantOfContainerView:duration:completionBlock:") ~typ:(id @-> id @-> bool @-> id @-> id @-> double @-> (ptr void) @-> returning void) x ofAlertController forPresentation inContainerView descendantOfContainerView duration completionBlock +let animateRevealOfAlertControllerView x ~alertController ~inContainerView ~duration ~completionBlock self = msg_send ~self ~cmd:(selector "animateRevealOfAlertControllerView:alertController:inContainerView:duration:completionBlock:") ~typ:(id @-> id @-> id @-> double @-> (ptr void) @-> returning void) x alertController inContainerView duration completionBlock +let collectionViewOutsetSize self = msg_send ~self ~cmd:(selector "collectionViewOutsetSize") ~typ:(returning CGSize.t) +let configureAttributesForImageView x ~imageProperty ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForImageView:imageProperty:actionViewState:") ~typ:(id @-> id @-> id @-> returning void) x imageProperty actionViewState +let configureAttributesForTitleLabel x ~classificationLabel ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForTitleLabel:classificationLabel:actionViewState:") ~typ:(id @-> id @-> id @-> returning void) x classificationLabel actionViewState +let contentHorizontalMargin self = msg_send ~self ~cmd:(selector "contentHorizontalMargin") ~typ:(returning double) +let contentInsetsForContainerView x self = msg_send ~self ~cmd:(selector "contentInsetsForContainerView:") ~typ:(id @-> returning UIEdgeInsets.t) x +let contentVerticalMargin self = msg_send ~self ~cmd:(selector "contentVerticalMargin") ~typ:(returning double) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let defaultActionFont self = msg_send ~self ~cmd:(selector "defaultActionFont") ~typ:(returning id) +let descriptor self = msg_send ~self ~cmd:(selector "descriptor") ~typ:(returning id) +let dimmingViewForAlertController x self = msg_send ~self ~cmd:(selector "dimmingViewForAlertController:") ~typ:(id @-> returning id) x +let forcedInterfaceIdiom self = msg_send ~self ~cmd:(selector "forcedInterfaceIdiom") ~typ:(returning llong) +let hideCancelAction x ~inAlertController self = msg_send ~self ~cmd:(selector "hideCancelAction:inAlertController:") ~typ:(id @-> id @-> returning bool) x inAlertController +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let interactionProgressForTransitionOfType x ~forAlertController self = msg_send ~self ~cmd:(selector "interactionProgressForTransitionOfType:forAlertController:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) forAlertController +let interfaceActionVisualStyle self = msg_send ~self ~cmd:(selector "interfaceActionVisualStyle") ~typ:(returning id) +let interfaceActionVisualStyleClassForManagingConcreteVisualStyle self = msg_send ~self ~cmd:(selector "interfaceActionVisualStyleClassForManagingConcreteVisualStyle") ~typ:(returning _Class) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let marginAboveMessageLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveMessageLabelFirstBaseline") ~typ:(returning double) +let marginAboveTitleLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveTitleLabelFirstBaseline") ~typ:(returning double) +let marginBelowLastLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowLastLabelLastBaseline") ~typ:(returning double) +let marginBelowMessageLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowMessageLabelLastBaseline") ~typ:(returning double) +let marginBelowTitleLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowTitleLabelLastBaseline") ~typ:(returning double) +let maximumHeightForDisplayOnScreen x self = msg_send ~self ~cmd:(selector "maximumHeightForDisplayOnScreen:") ~typ:(id @-> returning double) x +let maximumNumberOfLinesInMessageLabel self = msg_send ~self ~cmd:(selector "maximumNumberOfLinesInMessageLabel") ~typ:(returning llong) +let maximumNumberOfLinesInTitleLabel self = msg_send ~self ~cmd:(selector "maximumNumberOfLinesInTitleLabel") ~typ:(returning llong) +let maximumWidth self = msg_send ~self ~cmd:(selector "maximumWidth") ~typ:(returning double) +let maximumWidthForTitleAndMessageContentView self = msg_send ~self ~cmd:(selector "maximumWidthForTitleAndMessageContentView") ~typ:(returning double) +let messageLabelColor self = msg_send ~self ~cmd:(selector "messageLabelColor") ~typ:(returning id) +let messageLabelFont self = msg_send ~self ~cmd:(selector "messageLabelFont") ~typ:(returning id) +let minimumActionContentSize self = msg_send ~self ~cmd:(selector "minimumActionContentSize") ~typ:(returning CGSize.t) +let minimumWidth self = msg_send ~self ~cmd:(selector "minimumWidth") ~typ:(returning double) +let permittedActionLayoutDirection self = msg_send ~self ~cmd:(selector "permittedActionLayoutDirection") ~typ:(returning llong) +let placementAvoidsKeyboard self = msg_send ~self ~cmd:(selector "placementAvoidsKeyboard") ~typ:(returning bool) +let preferredActionFont self = msg_send ~self ~cmd:(selector "preferredActionFont") ~typ:(returning id) +let preferredActionForActions x ~suggestedPreferredAction self = msg_send ~self ~cmd:(selector "preferredActionForActions:suggestedPreferredAction:") ~typ:(id @-> id @-> returning id) x suggestedPreferredAction +let regularActionFont self = msg_send ~self ~cmd:(selector "regularActionFont") ~typ:(returning id) +let setDescriptor x self = msg_send ~self ~cmd:(selector "setDescriptor:") ~typ:(id @-> returning void) x +let setForcedInterfaceIdiom x self = msg_send ~self ~cmd:(selector "setForcedInterfaceIdiom:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTraitCollection x self = msg_send ~self ~cmd:(selector "setTraitCollection:") ~typ:(id @-> returning void) x +let shouldOccludeDuringPresentation self = msg_send ~self ~cmd:(selector "shouldOccludeDuringPresentation") ~typ:(returning bool) +let shouldPreserveRespondersAcrossWindows self = msg_send ~self ~cmd:(selector "shouldPreserveRespondersAcrossWindows") ~typ:(returning bool) +let textFieldContainingViewWithTextField x ~position self = msg_send ~self ~cmd:(selector "textFieldContainingViewWithTextField:position:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int position) +let textFieldContentInset self = msg_send ~self ~cmd:(selector "textFieldContentInset") ~typ:(returning UIEdgeInsets.t) +let textFieldHorizontalMargin self = msg_send ~self ~cmd:(selector "textFieldHorizontalMargin") ~typ:(returning double) +let tintColorForAlertController x self = msg_send ~self ~cmd:(selector "tintColorForAlertController:") ~typ:(id @-> returning id) x +let titleLabelColor self = msg_send ~self ~cmd:(selector "titleLabelColor") ~typ:(returning id) +let titleLabelFont self = msg_send ~self ~cmd:(selector "titleLabelFont") ~typ:(returning id) +let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning id) +let transitionDurationForPresentation x ~ofAlertController self = msg_send ~self ~cmd:(selector "transitionDurationForPresentation:ofAlertController:") ~typ:(bool @-> id @-> returning double) x ofAlertController +let transitionOfType x ~shouldBeInteractiveForAlertController self = msg_send ~self ~cmd:(selector "transitionOfType:shouldBeInteractiveForAlertController:") ~typ:(llong @-> id @-> returning bool) (LLong.of_int x) shouldBeInteractiveForAlertController +let vibrancyEffectForTitleAndMessageLabel self = msg_send ~self ~cmd:(selector "vibrancyEffectForTitleAndMessageLabel") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIAlertControllerVisualStyleActionSheet.ml b/uikit_extra/UIAlertControllerVisualStyleActionSheet.ml new file mode 100644 index 00000000..d5cb4dd2 --- /dev/null +++ b/uikit_extra/UIAlertControllerVisualStyleActionSheet.ml @@ -0,0 +1,31 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uialertcontrollervisualstyleactionsheet?language=objc}UIAlertControllerVisualStyleActionSheet} *) + +let self = get_class "UIAlertControllerVisualStyleActionSheet" + +let animateAlertControllerView x ~ofAlertController ~forPresentation ~inContainerView ~descendantOfContainerView ~duration ~completionBlock self = msg_send ~self ~cmd:(selector "animateAlertControllerView:ofAlertController:forPresentation:inContainerView:descendantOfContainerView:duration:completionBlock:") ~typ:(id @-> id @-> bool @-> id @-> id @-> double @-> (ptr void) @-> returning void) x ofAlertController forPresentation inContainerView descendantOfContainerView duration completionBlock +let contentInsetsForContainerView x self = msg_send ~self ~cmd:(selector "contentInsetsForContainerView:") ~typ:(id @-> returning UIEdgeInsets.t) x +let hideCancelAction x ~inAlertController self = msg_send ~self ~cmd:(selector "hideCancelAction:inAlertController:") ~typ:(id @-> id @-> returning bool) x inAlertController +let marginAboveMessageLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveMessageLabelFirstBaseline") ~typ:(returning double) +let marginAboveTitleLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveTitleLabelFirstBaseline") ~typ:(returning double) +let marginBelowLastLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowLastLabelLastBaseline") ~typ:(returning double) +let marginBelowMessageLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowMessageLabelLastBaseline") ~typ:(returning double) +let marginBelowTitleLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowTitleLabelLastBaseline") ~typ:(returning double) +let maximumWidth self = msg_send ~self ~cmd:(selector "maximumWidth") ~typ:(returning double) +let messageLabelColor self = msg_send ~self ~cmd:(selector "messageLabelColor") ~typ:(returning id) +let messageLabelFont self = msg_send ~self ~cmd:(selector "messageLabelFont") ~typ:(returning id) +let permittedActionLayoutDirection self = msg_send ~self ~cmd:(selector "permittedActionLayoutDirection") ~typ:(returning llong) +let placementAvoidsKeyboard self = msg_send ~self ~cmd:(selector "placementAvoidsKeyboard") ~typ:(returning bool) +let titleLabelColor self = msg_send ~self ~cmd:(selector "titleLabelColor") ~typ:(returning id) +let titleLabelFont self = msg_send ~self ~cmd:(selector "titleLabelFont") ~typ:(returning id) +let transitionDurationForPresentation x ~ofAlertController self = msg_send ~self ~cmd:(selector "transitionDurationForPresentation:ofAlertController:") ~typ:(bool @-> id @-> returning double) x ofAlertController +let vibrancyEffectForTitleAndMessageLabel self = msg_send ~self ~cmd:(selector "vibrancyEffectForTitleAndMessageLabel") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIAlertControllerVisualStyleActionSheetCar.ml b/uikit_extra/UIAlertControllerVisualStyleActionSheetCar.ml new file mode 100644 index 00000000..be4b043b --- /dev/null +++ b/uikit_extra/UIAlertControllerVisualStyleActionSheetCar.ml @@ -0,0 +1,25 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uialertcontrollervisualstyleactionsheetcar?language=objc}UIAlertControllerVisualStyleActionSheetCar} *) + +let self = get_class "UIAlertControllerVisualStyleActionSheetCar" + +let contentInsetsForContainerView x self = msg_send ~self ~cmd:(selector "contentInsetsForContainerView:") ~typ:(id @-> returning UIEdgeInsets.t) x +let marginAboveTitleLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveTitleLabelFirstBaseline") ~typ:(returning double) +let marginBelowLastLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowLastLabelLastBaseline") ~typ:(returning double) +let maximumNumberOfLinesInMessageLabel self = msg_send ~self ~cmd:(selector "maximumNumberOfLinesInMessageLabel") ~typ:(returning llong) +let maximumNumberOfLinesInTitleLabel self = msg_send ~self ~cmd:(selector "maximumNumberOfLinesInTitleLabel") ~typ:(returning llong) +let messageLabelColor self = msg_send ~self ~cmd:(selector "messageLabelColor") ~typ:(returning id) +let messageLabelFont self = msg_send ~self ~cmd:(selector "messageLabelFont") ~typ:(returning id) +let permittedActionLayoutDirection self = msg_send ~self ~cmd:(selector "permittedActionLayoutDirection") ~typ:(returning llong) +let placementAvoidsKeyboard self = msg_send ~self ~cmd:(selector "placementAvoidsKeyboard") ~typ:(returning bool) +let titleLabelColor self = msg_send ~self ~cmd:(selector "titleLabelColor") ~typ:(returning id) +let titleLabelFont self = msg_send ~self ~cmd:(selector "titleLabelFont") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIAlertControllerVisualStyleActionSheetClass.ml b/uikit_extra/UIAlertControllerVisualStyleActionSheetClass.ml new file mode 100644 index 00000000..9052ce31 --- /dev/null +++ b/uikit_extra/UIAlertControllerVisualStyleActionSheetClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uialertcontrollervisualstyleactionsheet?language=objc}UIAlertControllerVisualStyleActionSheet} *) + +let interfaceActionPresentationStyle self = msg_send ~self ~cmd:(selector "interfaceActionPresentationStyle") ~typ:(returning llong) +let positionContentsOfAlertController x ~alertContentView ~availableSpaceView ~visualStyle ~updatableConstraints self = msg_send ~self ~cmd:(selector "positionContentsOfAlertController:alertContentView:availableSpaceView:visualStyle:updatableConstraints:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning void) x alertContentView availableSpaceView visualStyle updatableConstraints \ No newline at end of file diff --git a/uikit_extra/UIAlertControllerVisualStyleActionSheetInline.ml b/uikit_extra/UIAlertControllerVisualStyleActionSheetInline.ml new file mode 100644 index 00000000..99300d03 --- /dev/null +++ b/uikit_extra/UIAlertControllerVisualStyleActionSheetInline.ml @@ -0,0 +1,37 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uialertcontrollervisualstyleactionsheetinline?language=objc}UIAlertControllerVisualStyleActionSheetInline} *) + +let self = get_class "UIAlertControllerVisualStyleActionSheetInline" + +let actionsReversed self = msg_send ~self ~cmd:(selector "actionsReversed") ~typ:(returning bool) +let animateAlertControllerView x ~ofAlertController ~forPresentation ~inContainerView ~descendantOfContainerView ~duration ~completionBlock self = msg_send ~self ~cmd:(selector "animateAlertControllerView:ofAlertController:forPresentation:inContainerView:descendantOfContainerView:duration:completionBlock:") ~typ:(id @-> id @-> bool @-> id @-> id @-> double @-> (ptr void) @-> returning void) x ofAlertController forPresentation inContainerView descendantOfContainerView duration completionBlock +let animateRevealOfAlertControllerView x ~alertController ~inContainerView ~duration ~completionBlock self = msg_send ~self ~cmd:(selector "animateRevealOfAlertControllerView:alertController:inContainerView:duration:completionBlock:") ~typ:(id @-> id @-> id @-> double @-> (ptr void) @-> returning void) x alertController inContainerView duration completionBlock +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dimmingViewForAlertController x self = msg_send ~self ~cmd:(selector "dimmingViewForAlertController:") ~typ:(id @-> returning id) x +let headerView self = msg_send ~self ~cmd:(selector "headerView") ~typ:(returning id) +let hideCancelAction x ~inAlertController self = msg_send ~self ~cmd:(selector "hideCancelAction:inAlertController:") ~typ:(id @-> id @-> returning bool) x inAlertController +let interactionProgressForTransitionOfType x ~forAlertController self = msg_send ~self ~cmd:(selector "interactionProgressForTransitionOfType:forAlertController:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) forAlertController +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let minimumWidth self = msg_send ~self ~cmd:(selector "minimumWidth") ~typ:(returning double) +let permittedActionLayoutDirection self = msg_send ~self ~cmd:(selector "permittedActionLayoutDirection") ~typ:(returning llong) +let placementAvoidsKeyboard self = msg_send ~self ~cmd:(selector "placementAvoidsKeyboard") ~typ:(returning bool) +let revealEffectView self = msg_send ~self ~cmd:(selector "revealEffectView") ~typ:(returning id) +let setActionsReversed x self = msg_send ~self ~cmd:(selector "setActionsReversed:") ~typ:(bool @-> returning void) x +let setHeaderView x self = msg_send ~self ~cmd:(selector "setHeaderView:") ~typ:(id @-> returning void) x +let setRevealEffectView x self = msg_send ~self ~cmd:(selector "setRevealEffectView:") ~typ:(id @-> returning void) x +let setSourceViewSnapshot x self = msg_send ~self ~cmd:(selector "setSourceViewSnapshot:") ~typ:(id @-> returning void) x +let shouldOccludeDuringPresentation self = msg_send ~self ~cmd:(selector "shouldOccludeDuringPresentation") ~typ:(returning bool) +let shouldPreserveRespondersAcrossWindows self = msg_send ~self ~cmd:(selector "shouldPreserveRespondersAcrossWindows") ~typ:(returning bool) +let sourceViewSnapshot self = msg_send ~self ~cmd:(selector "sourceViewSnapshot") ~typ:(returning id) +let tintColorForAlertController x self = msg_send ~self ~cmd:(selector "tintColorForAlertController:") ~typ:(id @-> returning id) x +let transitionDurationForPresentation x ~ofAlertController self = msg_send ~self ~cmd:(selector "transitionDurationForPresentation:ofAlertController:") ~typ:(bool @-> id @-> returning double) x ofAlertController +let transitionOfType x ~shouldBeInteractiveForAlertController self = msg_send ~self ~cmd:(selector "transitionOfType:shouldBeInteractiveForAlertController:") ~typ:(llong @-> id @-> returning bool) (LLong.of_int x) shouldBeInteractiveForAlertController \ No newline at end of file diff --git a/uikit_extra/UIAlertControllerVisualStyleActionSheetInlineClass.ml b/uikit_extra/UIAlertControllerVisualStyleActionSheetInlineClass.ml new file mode 100644 index 00000000..f25dd094 --- /dev/null +++ b/uikit_extra/UIAlertControllerVisualStyleActionSheetInlineClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uialertcontrollervisualstyleactionsheetinline?language=objc}UIAlertControllerVisualStyleActionSheetInline} *) + +let interfaceActionPresentationStyle self = msg_send ~self ~cmd:(selector "interfaceActionPresentationStyle") ~typ:(returning llong) +let positionContentsOfAlertController x ~alertContentView ~availableSpaceView ~visualStyle ~updatableConstraints self = msg_send ~self ~cmd:(selector "positionContentsOfAlertController:alertContentView:availableSpaceView:visualStyle:updatableConstraints:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning void) x alertContentView availableSpaceView visualStyle updatableConstraints \ No newline at end of file diff --git a/uikit_extra/UIAlertControllerVisualStyleAlert.ml b/uikit_extra/UIAlertControllerVisualStyleAlert.ml new file mode 100644 index 00000000..50b26422 --- /dev/null +++ b/uikit_extra/UIAlertControllerVisualStyleAlert.ml @@ -0,0 +1,31 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uialertcontrollervisualstylealert?language=objc}UIAlertControllerVisualStyleAlert} *) + +let self = get_class "UIAlertControllerVisualStyleAlert" + +let animateAlertControllerView x ~ofAlertController ~forPresentation ~inContainerView ~descendantOfContainerView ~duration ~completionBlock self = msg_send ~self ~cmd:(selector "animateAlertControllerView:ofAlertController:forPresentation:inContainerView:descendantOfContainerView:duration:completionBlock:") ~typ:(id @-> id @-> bool @-> id @-> id @-> double @-> (ptr void) @-> returning void) x ofAlertController forPresentation inContainerView descendantOfContainerView duration completionBlock +let contentInsetsForContainerView x self = msg_send ~self ~cmd:(selector "contentInsetsForContainerView:") ~typ:(id @-> returning UIEdgeInsets.t) x +let marginAboveMessageLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveMessageLabelFirstBaseline") ~typ:(returning double) +let marginAboveTitleLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveTitleLabelFirstBaseline") ~typ:(returning double) +let marginBelowLastLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowLastLabelLastBaseline") ~typ:(returning double) +let marginBelowMessageLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowMessageLabelLastBaseline") ~typ:(returning double) +let marginBelowTitleLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowTitleLabelLastBaseline") ~typ:(returning double) +let maximumWidth self = msg_send ~self ~cmd:(selector "maximumWidth") ~typ:(returning double) +let messageLabelColor self = msg_send ~self ~cmd:(selector "messageLabelColor") ~typ:(returning id) +let messageLabelFont self = msg_send ~self ~cmd:(selector "messageLabelFont") ~typ:(returning id) +let permittedActionLayoutDirection self = msg_send ~self ~cmd:(selector "permittedActionLayoutDirection") ~typ:(returning llong) +let placementAvoidsKeyboard self = msg_send ~self ~cmd:(selector "placementAvoidsKeyboard") ~typ:(returning bool) +let textFieldContainingViewWithTextField x ~position self = msg_send ~self ~cmd:(selector "textFieldContainingViewWithTextField:position:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int position) +let textFieldHorizontalMargin self = msg_send ~self ~cmd:(selector "textFieldHorizontalMargin") ~typ:(returning double) +let titleLabelColor self = msg_send ~self ~cmd:(selector "titleLabelColor") ~typ:(returning id) +let titleLabelFont self = msg_send ~self ~cmd:(selector "titleLabelFont") ~typ:(returning id) +let transitionDurationForPresentation x ~ofAlertController self = msg_send ~self ~cmd:(selector "transitionDurationForPresentation:ofAlertController:") ~typ:(bool @-> id @-> returning double) x ofAlertController \ No newline at end of file diff --git a/uikit_extra/UIAlertControllerVisualStyleAlertCar.ml b/uikit_extra/UIAlertControllerVisualStyleAlertCar.ml new file mode 100644 index 00000000..f6390cb9 --- /dev/null +++ b/uikit_extra/UIAlertControllerVisualStyleAlertCar.ml @@ -0,0 +1,26 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uialertcontrollervisualstylealertcar?language=objc}UIAlertControllerVisualStyleAlertCar} *) + +let self = get_class "UIAlertControllerVisualStyleAlertCar" + +let contentInsetsForContainerView x self = msg_send ~self ~cmd:(selector "contentInsetsForContainerView:") ~typ:(id @-> returning UIEdgeInsets.t) x +let marginAboveTitleLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveTitleLabelFirstBaseline") ~typ:(returning double) +let marginBelowLastLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowLastLabelLastBaseline") ~typ:(returning double) +let marginBelowMessageLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowMessageLabelLastBaseline") ~typ:(returning double) +let maximumNumberOfLinesInMessageLabel self = msg_send ~self ~cmd:(selector "maximumNumberOfLinesInMessageLabel") ~typ:(returning llong) +let maximumNumberOfLinesInTitleLabel self = msg_send ~self ~cmd:(selector "maximumNumberOfLinesInTitleLabel") ~typ:(returning llong) +let maximumWidth self = msg_send ~self ~cmd:(selector "maximumWidth") ~typ:(returning double) +let messageLabelColor self = msg_send ~self ~cmd:(selector "messageLabelColor") ~typ:(returning id) +let messageLabelFont self = msg_send ~self ~cmd:(selector "messageLabelFont") ~typ:(returning id) +let placementAvoidsKeyboard self = msg_send ~self ~cmd:(selector "placementAvoidsKeyboard") ~typ:(returning bool) +let titleLabelColor self = msg_send ~self ~cmd:(selector "titleLabelColor") ~typ:(returning id) +let titleLabelFont self = msg_send ~self ~cmd:(selector "titleLabelFont") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIAlertControllerVisualStyleAlertTV.ml b/uikit_extra/UIAlertControllerVisualStyleAlertTV.ml new file mode 100644 index 00000000..d6af9831 --- /dev/null +++ b/uikit_extra/UIAlertControllerVisualStyleAlertTV.ml @@ -0,0 +1,39 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uialertcontrollervisualstylealerttv?language=objc}UIAlertControllerVisualStyleAlertTV} *) + +let self = get_class "UIAlertControllerVisualStyleAlertTV" + +let actionWidthForMinimumActionWidth x self = msg_send ~self ~cmd:(selector "actionWidthForMinimumActionWidth:") ~typ:(double @-> returning double) x +let animateAlertControllerView x ~ofAlertController ~forPresentation ~inContainerView ~descendantOfContainerView ~duration ~completionBlock self = msg_send ~self ~cmd:(selector "animateAlertControllerView:ofAlertController:forPresentation:inContainerView:descendantOfContainerView:duration:completionBlock:") ~typ:(id @-> id @-> bool @-> id @-> id @-> double @-> (ptr void) @-> returning void) x ofAlertController forPresentation inContainerView descendantOfContainerView duration completionBlock +let contentInsetsForContainerView x self = msg_send ~self ~cmd:(selector "contentInsetsForContainerView:") ~typ:(id @-> returning UIEdgeInsets.t) x +let dimmingViewForAlertController x self = msg_send ~self ~cmd:(selector "dimmingViewForAlertController:") ~typ:(id @-> returning id) x +let hideCancelAction x ~inAlertController self = msg_send ~self ~cmd:(selector "hideCancelAction:inAlertController:") ~typ:(id @-> id @-> returning bool) x inAlertController +let marginAboveMessageLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveMessageLabelFirstBaseline") ~typ:(returning double) +let marginAboveTitleLabelFirstBaseline self = msg_send ~self ~cmd:(selector "marginAboveTitleLabelFirstBaseline") ~typ:(returning double) +let marginBelowLastLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowLastLabelLastBaseline") ~typ:(returning double) +let marginBelowMessageLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowMessageLabelLastBaseline") ~typ:(returning double) +let marginBelowTitleLabelLastBaseline self = msg_send ~self ~cmd:(selector "marginBelowTitleLabelLastBaseline") ~typ:(returning double) +let maximumNumberOfLinesInMessageLabel self = msg_send ~self ~cmd:(selector "maximumNumberOfLinesInMessageLabel") ~typ:(returning llong) +let maximumNumberOfLinesInTitleLabel self = msg_send ~self ~cmd:(selector "maximumNumberOfLinesInTitleLabel") ~typ:(returning llong) +let maximumWidth self = msg_send ~self ~cmd:(selector "maximumWidth") ~typ:(returning double) +let maximumWidthForTitleAndMessageContentView self = msg_send ~self ~cmd:(selector "maximumWidthForTitleAndMessageContentView") ~typ:(returning double) +let messageLabelColor self = msg_send ~self ~cmd:(selector "messageLabelColor") ~typ:(returning id) +let messageLabelFont self = msg_send ~self ~cmd:(selector "messageLabelFont") ~typ:(returning id) +let permittedActionLayoutDirection self = msg_send ~self ~cmd:(selector "permittedActionLayoutDirection") ~typ:(returning llong) +let placementAvoidsKeyboard self = msg_send ~self ~cmd:(selector "placementAvoidsKeyboard") ~typ:(returning bool) +let preferredActionForActions x ~suggestedPreferredAction self = msg_send ~self ~cmd:(selector "preferredActionForActions:suggestedPreferredAction:") ~typ:(id @-> id @-> returning id) x suggestedPreferredAction +let textFieldContainingViewWithTextField x ~position self = msg_send ~self ~cmd:(selector "textFieldContainingViewWithTextField:position:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int position) +let textFieldContentInset self = msg_send ~self ~cmd:(selector "textFieldContentInset") ~typ:(returning UIEdgeInsets.t) +let textFieldHorizontalMargin self = msg_send ~self ~cmd:(selector "textFieldHorizontalMargin") ~typ:(returning double) +let titleLabelColor self = msg_send ~self ~cmd:(selector "titleLabelColor") ~typ:(returning id) +let titleLabelFont self = msg_send ~self ~cmd:(selector "titleLabelFont") ~typ:(returning id) +let transitionDurationForPresentation x ~ofAlertController self = msg_send ~self ~cmd:(selector "transitionDurationForPresentation:ofAlertController:") ~typ:(bool @-> id @-> returning double) x ofAlertController \ No newline at end of file diff --git a/uikit_extra/UIAlertControllerVisualStyleClass.ml b/uikit_extra/UIAlertControllerVisualStyleClass.ml new file mode 100644 index 00000000..30dfaa4b --- /dev/null +++ b/uikit_extra/UIAlertControllerVisualStyleClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uialertcontrollervisualstyle?language=objc}UIAlertControllerVisualStyle} *) + +let interfaceActionPresentationStyle self = msg_send ~self ~cmd:(selector "interfaceActionPresentationStyle") ~typ:(returning llong) +let positionContentsOfAlertController x ~alertContentView ~availableSpaceView ~visualStyle ~updatableConstraints self = msg_send ~self ~cmd:(selector "positionContentsOfAlertController:alertContentView:availableSpaceView:visualStyle:updatableConstraints:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning void) x alertContentView availableSpaceView visualStyle updatableConstraints \ No newline at end of file diff --git a/uikit_extra/UIApplicationCoverSheetSceneSpecification.ml b/uikit_extra/UIApplicationCoverSheetSceneSpecification.ml new file mode 100644 index 00000000..db2a5562 --- /dev/null +++ b/uikit_extra/UIApplicationCoverSheetSceneSpecification.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationcoversheetscenespecification?language=objc}UIApplicationCoverSheetSceneSpecification} *) + +let self = get_class "UIApplicationCoverSheetSceneSpecification" + +let baseSceneComponentClassDictionary self = msg_send ~self ~cmd:(selector "baseSceneComponentClassDictionary") ~typ:(returning id) +let connectionHandlers self = msg_send ~self ~cmd:(selector "connectionHandlers") ~typ:(returning id) +let disconnectionHandlers self = msg_send ~self ~cmd:(selector "disconnectionHandlers") ~typ:(returning id) +let uiSceneSessionRole self = msg_send ~self ~cmd:(selector "uiSceneSessionRole") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIApplicationExternalScreenSceneSpecification.ml b/uikit_extra/UIApplicationExternalScreenSceneSpecification.ml new file mode 100644 index 00000000..2e0c2712 --- /dev/null +++ b/uikit_extra/UIApplicationExternalScreenSceneSpecification.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationexternalscreenscenespecification?language=objc}UIApplicationExternalScreenSceneSpecification} *) + +let self = get_class "UIApplicationExternalScreenSceneSpecification" + +let baseSceneComponentClassDictionary self = msg_send ~self ~cmd:(selector "baseSceneComponentClassDictionary") ~typ:(returning id) +let connectionHandlers self = msg_send ~self ~cmd:(selector "connectionHandlers") ~typ:(returning id) +let disconnectionHandlers self = msg_send ~self ~cmd:(selector "disconnectionHandlers") ~typ:(returning id) +let initialSettingsDiffActions self = msg_send ~self ~cmd:(selector "initialSettingsDiffActions") ~typ:(returning id) +let uiSceneSessionRole self = msg_send ~self ~cmd:(selector "uiSceneSessionRole") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIApplicationRotationFollowingController.ml b/uikit_extra/UIApplicationRotationFollowingController.ml new file mode 100644 index 00000000..eb8e4522 --- /dev/null +++ b/uikit_extra/UIApplicationRotationFollowingController.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationrotationfollowingcontroller?language=objc}UIApplicationRotationFollowingController} *) + +let self = get_class "UIApplicationRotationFollowingController" + +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let setSizesWindowToScene x self = msg_send ~self ~cmd:(selector "setSizesWindowToScene:") ~typ:(bool @-> returning void) x +let shouldAutorotate self = msg_send ~self ~cmd:(selector "shouldAutorotate") ~typ:(returning bool) +let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let sizesWindowToScene self = msg_send ~self ~cmd:(selector "sizesWindowToScene") ~typ:(returning bool) +let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning ullong) +let window x ~setupWithInterfaceOrientation self = msg_send ~self ~cmd:(selector "window:setupWithInterfaceOrientation:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int setupWithInterfaceOrientation) \ No newline at end of file diff --git a/uikit_extra/UIApplicationRotationFollowingControllerView.ml b/uikit_extra/UIApplicationRotationFollowingControllerView.ml new file mode 100644 index 00000000..910f25be --- /dev/null +++ b/uikit_extra/UIApplicationRotationFollowingControllerView.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationrotationfollowingcontrollerview?language=objc}UIApplicationRotationFollowingControllerView} *) + +let self = get_class "UIApplicationRotationFollowingControllerView" + +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIApplicationRotationFollowingWindow.ml b/uikit_extra/UIApplicationRotationFollowingWindow.ml new file mode 100644 index 00000000..8a4fb9ba --- /dev/null +++ b/uikit_extra/UIApplicationRotationFollowingWindow.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationrotationfollowingwindow?language=objc}UIApplicationRotationFollowingWindow} *) + +let self = get_class "UIApplicationRotationFollowingWindow" + +let applicationWindowRotated x self = msg_send ~self ~cmd:(selector "applicationWindowRotated:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithWindowScene x self = msg_send ~self ~cmd:(selector "initWithWindowScene:") ~typ:(id @-> returning id) x +let isInterfaceAutorotationDisabled self = msg_send ~self ~cmd:(selector "isInterfaceAutorotationDisabled") ~typ:(returning bool) +let limitToWindowLevel self = msg_send ~self ~cmd:(selector "limitToWindowLevel") ~typ:(returning bool) +let priorityLevel self = msg_send ~self ~cmd:(selector "priorityLevel") ~typ:(returning llong) +let setLimitToWindowLevel x self = msg_send ~self ~cmd:(selector "setLimitToWindowLevel:") ~typ:(bool @-> returning void) x +let setPriorityLevel x self = msg_send ~self ~cmd:(selector "setPriorityLevel:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIApplicationSceneClientAgent.ml b/uikit_extra/UIApplicationSceneClientAgent.ml new file mode 100644 index 00000000..bc39fc00 --- /dev/null +++ b/uikit_extra/UIApplicationSceneClientAgent.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationsceneclientagent?language=objc}UIApplicationSceneClientAgent} *) + +let self = get_class "UIApplicationSceneClientAgent" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let scene x ~didInitializeWithEvent ~completion self = msg_send ~self ~cmd:(selector "scene:didInitializeWithEvent:completion:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x didInitializeWithEvent completion +let scene1 x ~handleEvent ~withCompletion self = msg_send ~self ~cmd:(selector "scene:handleEvent:withCompletion:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x handleEvent withCompletion +let scene2 x ~willInvalidateWithEvent ~completion self = msg_send ~self ~cmd:(selector "scene:willInvalidateWithEvent:completion:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x willInvalidateWithEvent completion \ No newline at end of file diff --git a/uikit_extra/UIApplicationSceneClientSettings.ml b/uikit_extra/UIApplicationSceneClientSettings.ml new file mode 100644 index 00000000..8b3782b4 --- /dev/null +++ b/uikit_extra/UIApplicationSceneClientSettings.ml @@ -0,0 +1,66 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationsceneclientsettings?language=objc}UIApplicationSceneClientSettings} *) + +let self = get_class "UIApplicationSceneClientSettings" + +let activationConditionsData self = msg_send ~self ~cmd:(selector "activationConditionsData") ~typ:(returning id) +let audioCategoriesDisablingVolumeHUD self = msg_send ~self ~cmd:(selector "audioCategoriesDisablingVolumeHUD") ~typ:(returning id) +let backgroundStyle self = msg_send ~self ~cmd:(selector "backgroundStyle") ~typ:(returning llong) +let brightnessLevel self = msg_send ~self ~cmd:(selector "brightnessLevel") ~typ:(returning double) +let canvasTitle self = msg_send ~self ~cmd:(selector "canvasTitle") ~typ:(returning id) +let compatibilityMode self = msg_send ~self ~cmd:(selector "compatibilityMode") ~typ:(returning llong) +let controlCenterAmbiguousActivationMargin self = msg_send ~self ~cmd:(selector "controlCenterAmbiguousActivationMargin") ~typ:(returning double) +let controlCenterRevealMode self = msg_send ~self ~cmd:(selector "controlCenterRevealMode") ~typ:(returning llong) +let defaultPNGExpirationTime self = msg_send ~self ~cmd:(selector "defaultPNGExpirationTime") ~typ:(returning double) +let defaultPNGName self = msg_send ~self ~cmd:(selector "defaultPNGName") ~typ:(returning id) +let defaultStatusBarHidden self = msg_send ~self ~cmd:(selector "defaultStatusBarHidden") ~typ:(returning bool) +let defaultStatusBarStyle self = msg_send ~self ~cmd:(selector "defaultStatusBarStyle") ~typ:(returning llong) +let deviceOrientationEventsEnabled self = msg_send ~self ~cmd:(selector "deviceOrientationEventsEnabled") ~typ:(returning bool) +let disablesMirroring self = msg_send ~self ~cmd:(selector "disablesMirroring") ~typ:(returning bool) +let discardSessionOnUserDisconnect self = msg_send ~self ~cmd:(selector "discardSessionOnUserDisconnect") ~typ:(returning bool) +let displayConfigurationRequest self = msg_send ~self ~cmd:(selector "displayConfigurationRequest") ~typ:(returning id) +let homeIndicatorAutoHidden self = msg_send ~self ~cmd:(selector "homeIndicatorAutoHidden") ~typ:(returning bool) +let idleModeVisualEffectsEnabled self = msg_send ~self ~cmd:(selector "idleModeVisualEffectsEnabled") ~typ:(returning bool) +let idleTimerDisabled self = msg_send ~self ~cmd:(selector "idleTimerDisabled") ~typ:(returning bool) +let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning llong) +let interfaceOrientationChangesDisabled self = msg_send ~self ~cmd:(selector "interfaceOrientationChangesDisabled") ~typ:(returning bool) +let isReachabilitySupported self = msg_send ~self ~cmd:(selector "isReachabilitySupported") ~typ:(returning bool) +let isStatusBarForegroundTransparent self = msg_send ~self ~cmd:(selector "isStatusBarForegroundTransparent") ~typ:(returning bool) +let isUISubclass self = msg_send ~self ~cmd:(selector "isUISubclass") ~typ:(returning bool) +let keyDescriptionForOtherSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForOtherSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let multitaskingDragExclusionRects self = msg_send ~self ~cmd:(selector "multitaskingDragExclusionRects") ~typ:(returning id) +let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:((ptr void) @-> returning id) x +let notificationCenterRevealMode self = msg_send ~self ~cmd:(selector "notificationCenterRevealMode") ~typ:(returning llong) +let playbackControlsState self = msg_send ~self ~cmd:(selector "playbackControlsState") ~typ:(returning llong) +let preferredPointerLockStatus self = msg_send ~self ~cmd:(selector "preferredPointerLockStatus") ~typ:(returning llong) +let primaryWindowOverlayInsets self = msg_send ~self ~cmd:(selector "primaryWindowOverlayInsets") ~typ:(returning UIEdgeInsets.t) +let proximityDetectionModes self = msg_send ~self ~cmd:(selector "proximityDetectionModes") ~typ:(returning ullong) +let requestedDisplayMode self = msg_send ~self ~cmd:(selector "requestedDisplayMode") ~typ:(returning id) +let sceneActivationBias self = msg_send ~self ~cmd:(selector "sceneActivationBias") ~typ:(returning llong) +let screenEdgesDeferringSystemGestures self = msg_send ~self ~cmd:(selector "screenEdgesDeferringSystemGestures") ~typ:(returning ullong) +let screenFocusedFrame self = msg_send ~self ~cmd:(selector "screenFocusedFrame") ~typ:(returning CGRect.t) +let settings x ~appendDescriptionToBuilder ~forFlag ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "settings:appendDescriptionToBuilder:forFlag:object:ofSetting:") ~typ:(id @-> id @-> llong @-> id @-> ullong @-> returning bool) x appendDescriptionToBuilder (LLong.of_int forFlag) object_ (ULLong.of_int ofSetting) +let shouldHideHostWindow self = msg_send ~self ~cmd:(selector "shouldHideHostWindow") ~typ:(returning bool) +let statusBarAlpha self = msg_send ~self ~cmd:(selector "statusBarAlpha") ~typ:(returning double) +let statusBarContextID self = msg_send ~self ~cmd:(selector "statusBarContextID") ~typ:(returning uint) +let statusBarHidden self = msg_send ~self ~cmd:(selector "statusBarHidden") ~typ:(returning bool) +let statusBarModernStyle self = msg_send ~self ~cmd:(selector "statusBarModernStyle") ~typ:(returning llong) +let statusBarPartStyles self = msg_send ~self ~cmd:(selector "statusBarPartStyles") ~typ:(returning id) +let statusBarStyle self = msg_send ~self ~cmd:(selector "statusBarStyle") ~typ:(returning llong) +let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning ullong) +let userInterfaceStyle self = msg_send ~self ~cmd:(selector "userInterfaceStyle") ~typ:(returning llong) +let valueDescriptionForFlag x ~object_ ~ofOtherSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofOtherSetting:") ~typ:(llong @-> id @-> ullong @-> returning id) (LLong.of_int x) object_ (ULLong.of_int ofOtherSetting) +let valueDescriptionForFlag' x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning id) (LLong.of_int x) object_ (ULLong.of_int ofSetting) +let visibleMiniAlertCount self = msg_send ~self ~cmd:(selector "visibleMiniAlertCount") ~typ:(returning ullong) +let wantsExclusiveForeground self = msg_send ~self ~cmd:(selector "wantsExclusiveForeground") ~typ:(returning bool) +let whitePointAdaptivityStyle self = msg_send ~self ~cmd:(selector "whitePointAdaptivityStyle") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit_extra/UIApplicationSceneClientSettingsDiffInspector.ml b/uikit_extra/UIApplicationSceneClientSettingsDiffInspector.ml new file mode 100644 index 00000000..f5fd7dc2 --- /dev/null +++ b/uikit_extra/UIApplicationSceneClientSettingsDiffInspector.ml @@ -0,0 +1,52 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationsceneclientsettingsdiffinspector?language=objc}UIApplicationSceneClientSettingsDiffInspector} *) + +let self = get_class "UIApplicationSceneClientSettingsDiffInspector" + +let observeActivationConditionsDataWithBlock x self = msg_send ~self ~cmd:(selector "observeActivationConditionsDataWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeAudioCategoriesDisablingVolumeHUDWithBlock x self = msg_send ~self ~cmd:(selector "observeAudioCategoriesDisablingVolumeHUDWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeBackgroundStyleWithBlock x self = msg_send ~self ~cmd:(selector "observeBackgroundStyleWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeBrightnessLevelWithBlock x self = msg_send ~self ~cmd:(selector "observeBrightnessLevelWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeCanvasTitleWithBlock x self = msg_send ~self ~cmd:(selector "observeCanvasTitleWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeCompatibilityModeWithBlock x self = msg_send ~self ~cmd:(selector "observeCompatibilityModeWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeControlCenterAmbiguousActivationMargin x self = msg_send ~self ~cmd:(selector "observeControlCenterAmbiguousActivationMargin:") ~typ:((ptr void) @-> returning void) x +let observeControlCenterRevealModeWithBlock x self = msg_send ~self ~cmd:(selector "observeControlCenterRevealModeWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeDefaultPNGExpirationTimeWithBlock x self = msg_send ~self ~cmd:(selector "observeDefaultPNGExpirationTimeWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeDefaultPNGNameWithBlock x self = msg_send ~self ~cmd:(selector "observeDefaultPNGNameWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeDefaultStatusBarHiddenWithBlock x self = msg_send ~self ~cmd:(selector "observeDefaultStatusBarHiddenWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeDefaultStatusBarStyleWithBlock x self = msg_send ~self ~cmd:(selector "observeDefaultStatusBarStyleWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeDeviceOrientationEventsEnabledWithBlock x self = msg_send ~self ~cmd:(selector "observeDeviceOrientationEventsEnabledWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeHomeIndicatorAutoHiddenWithBlock x self = msg_send ~self ~cmd:(selector "observeHomeIndicatorAutoHiddenWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeIdleModeVisualEffectsEnabledWithBlock x self = msg_send ~self ~cmd:(selector "observeIdleModeVisualEffectsEnabledWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeIdleTimerDisabledWithBlock x self = msg_send ~self ~cmd:(selector "observeIdleTimerDisabledWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeInterfaceOrientationChangesDisabledWithBlock x self = msg_send ~self ~cmd:(selector "observeInterfaceOrientationChangesDisabledWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeInterfaceOrientationWithBlock x self = msg_send ~self ~cmd:(selector "observeInterfaceOrientationWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeNotificationCenterRevealModeWithBlock x self = msg_send ~self ~cmd:(selector "observeNotificationCenterRevealModeWithBlock:") ~typ:((ptr void) @-> returning void) x +let observePreferredPointerLockStateWithBlock x self = msg_send ~self ~cmd:(selector "observePreferredPointerLockStateWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeProximityDetectionModesWithBlock x self = msg_send ~self ~cmd:(selector "observeProximityDetectionModesWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeReachabilitySupportedWithBlock x self = msg_send ~self ~cmd:(selector "observeReachabilitySupportedWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeSceneActivationBiasWithBlock x self = msg_send ~self ~cmd:(selector "observeSceneActivationBiasWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeScreenEdgesDeferringSystemGesturesWithBlock x self = msg_send ~self ~cmd:(selector "observeScreenEdgesDeferringSystemGesturesWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeShouldHideHostWindow x self = msg_send ~self ~cmd:(selector "observeShouldHideHostWindow:") ~typ:((ptr void) @-> returning void) x +let observeStatusBarAlphaWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarAlphaWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeStatusBarContextIDWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarContextIDWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeStatusBarHiddenWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarHiddenWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeStatusBarModernStyleWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarModernStyleWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeStatusBarPartStylesWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarPartStylesWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeStatusBarStyleWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarStyleWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeSupportedInterfaceOrientationsWithBlock x self = msg_send ~self ~cmd:(selector "observeSupportedInterfaceOrientationsWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeUserInterfaceStyleWithBlock x self = msg_send ~self ~cmd:(selector "observeUserInterfaceStyleWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeVisibleMiniAlertCountWithBlock x self = msg_send ~self ~cmd:(selector "observeVisibleMiniAlertCountWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeWantsExclusiveForegroundWithBlock x self = msg_send ~self ~cmd:(selector "observeWantsExclusiveForegroundWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeWhitePointAdaptivityStyleWithBlock x self = msg_send ~self ~cmd:(selector "observeWhitePointAdaptivityStyleWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeWindowFocusedFrameWithBlock x self = msg_send ~self ~cmd:(selector "observeWindowFocusedFrameWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeWindowOverlayInsetsWithBlock x self = msg_send ~self ~cmd:(selector "observeWindowOverlayInsetsWithBlock:") ~typ:((ptr void) @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIApplicationSceneDeactivationAssertion.ml b/uikit_extra/UIApplicationSceneDeactivationAssertion.ml new file mode 100644 index 00000000..f1b9571b --- /dev/null +++ b/uikit_extra/UIApplicationSceneDeactivationAssertion.ml @@ -0,0 +1,28 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationscenedeactivationassertion?language=objc}UIApplicationSceneDeactivationAssertion} *) + +let self = get_class "UIApplicationSceneDeactivationAssertion" + +let acquire self = msg_send ~self ~cmd:(selector "acquire") ~typ:(returning void) +let acquireWithPredicate x ~transitionContext self = msg_send ~self ~cmd:(selector "acquireWithPredicate:transitionContext:") ~typ:((ptr void) @-> id @-> returning void) x transitionContext +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning id) x +let descriptionWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionWithMultilinePrefix:") ~typ:(id @-> returning id) x +let initWithReason x ~manager self = msg_send ~self ~cmd:(selector "initWithReason:manager:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) manager +let isAcquired self = msg_send ~self ~cmd:(selector "isAcquired") ~typ:(returning bool) +let manager self = msg_send ~self ~cmd:(selector "manager") ~typ:(returning id) +let predicate self = msg_send ~self ~cmd:(selector "predicate") ~typ:(returning (ptr void)) +let reason self = msg_send ~self ~cmd:(selector "reason") ~typ:(returning llong) +let relinquish self = msg_send ~self ~cmd:(selector "relinquish") ~typ:(returning void) +let succinctDescription self = msg_send ~self ~cmd:(selector "succinctDescription") ~typ:(returning id) +let succinctDescriptionBuilder self = msg_send ~self ~cmd:(selector "succinctDescriptionBuilder") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIApplicationSceneDeactivationManager.ml b/uikit_extra/UIApplicationSceneDeactivationManager.ml new file mode 100644 index 00000000..f29c8d4d --- /dev/null +++ b/uikit_extra/UIApplicationSceneDeactivationManager.ml @@ -0,0 +1,28 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationscenedeactivationmanager?language=objc}UIApplicationSceneDeactivationManager} *) + +let self = get_class "UIApplicationSceneDeactivationManager" + +let addAssertion x ~withTransitionContext self = msg_send ~self ~cmd:(selector "addAssertion:withTransitionContext:") ~typ:(id @-> id @-> returning void) x withTransitionContext +let amendSceneSettings x ~forScene self = msg_send ~self ~cmd:(selector "amendSceneSettings:forScene:") ~typ:(id @-> id @-> returning void) x forScene +let assertions self = msg_send ~self ~cmd:(selector "assertions") ~typ:(returning id) +let beginTrackingScene x self = msg_send ~self ~cmd:(selector "beginTrackingScene:") ~typ:(id @-> returning void) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning id) x +let descriptionWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionWithMultilinePrefix:") ~typ:(id @-> returning id) x +let eligibleScenes self = msg_send ~self ~cmd:(selector "eligibleScenes") ~typ:(returning id) +let endTrackingScene x self = msg_send ~self ~cmd:(selector "endTrackingScene:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let newAssertionWithReason x self = msg_send ~self ~cmd:(selector "newAssertionWithReason:") ~typ:(llong @-> returning id) (LLong.of_int x) +let removeAssertion x self = msg_send ~self ~cmd:(selector "removeAssertion:") ~typ:(id @-> returning void) x +let succinctDescription self = msg_send ~self ~cmd:(selector "succinctDescription") ~typ:(returning id) +let succinctDescriptionBuilder self = msg_send ~self ~cmd:(selector "succinctDescriptionBuilder") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIApplicationSceneHostAgent.ml b/uikit_extra/UIApplicationSceneHostAgent.ml new file mode 100644 index 00000000..66932e83 --- /dev/null +++ b/uikit_extra/UIApplicationSceneHostAgent.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationscenehostagent?language=objc}UIApplicationSceneHostAgent} *) + +let self = get_class "UIApplicationSceneHostAgent" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIApplicationSceneSettingsDiffInspector.ml b/uikit_extra/UIApplicationSceneSettingsDiffInspector.ml new file mode 100644 index 00000000..fffbc03d --- /dev/null +++ b/uikit_extra/UIApplicationSceneSettingsDiffInspector.ml @@ -0,0 +1,37 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationscenesettingsdiffinspector?language=objc}UIApplicationSceneSettingsDiffInspector} *) + +let self = get_class "UIApplicationSceneSettingsDiffInspector" + +let observeAccessibilityContrastWithBlock x self = msg_send ~self ~cmd:(selector "observeAccessibilityContrastWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeCanShowAlertsWithBlock x self = msg_send ~self ~cmd:(selector "observeCanShowAlertsWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeCatalystHostWindowFrameWithBlock x self = msg_send ~self ~cmd:(selector "observeCatalystHostWindowFrameWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeDeactivationReasonsWithBlock x self = msg_send ~self ~cmd:(selector "observeDeactivationReasonsWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeDeviceOrientationEventsEnabledWithBlock x self = msg_send ~self ~cmd:(selector "observeDeviceOrientationEventsEnabledWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeDeviceOrientationWithBlock x self = msg_send ~self ~cmd:(selector "observeDeviceOrientationWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeForcedStatusBarForegroundTransparentWithBlock x self = msg_send ~self ~cmd:(selector "observeForcedStatusBarForegroundTransparentWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeForcedStatusBarStyleWithBlock x self = msg_send ~self ~cmd:(selector "observeForcedStatusBarStyleWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeIdleModeEnabledWithBlock x self = msg_send ~self ~cmd:(selector "observeIdleModeEnabledWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeInterfaceOrientationModeWithBlock x self = msg_send ~self ~cmd:(selector "observeInterfaceOrientationModeWithBlock:") ~typ:((ptr void) @-> returning void) x +let observePersistenceIdentifierWithBlock x self = msg_send ~self ~cmd:(selector "observePersistenceIdentifierWithBlock:") ~typ:((ptr void) @-> returning void) x +let observePointerLockStatusWithBlock x self = msg_send ~self ~cmd:(selector "observePointerLockStatusWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeSafeAreaInsetsLandscapeLeftWithBlock x self = msg_send ~self ~cmd:(selector "observeSafeAreaInsetsLandscapeLeftWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeSafeAreaInsetsLandscapeRightWithBlock x self = msg_send ~self ~cmd:(selector "observeSafeAreaInsetsLandscapeRightWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeSafeAreaInsetsPortraitUpsideDownWithBlock x self = msg_send ~self ~cmd:(selector "observeSafeAreaInsetsPortraitUpsideDownWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeSafeAreaInsetsPortraitWithBlock x self = msg_send ~self ~cmd:(selector "observeSafeAreaInsetsPortraitWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeStatusBarAvoidanceFrameWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarAvoidanceFrameWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeStatusBarHeightWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarHeightWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeStatusBarPartsWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarPartsWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeStatusBarStyleOverridesToSuppressWithBlock x self = msg_send ~self ~cmd:(selector "observeStatusBarStyleOverridesToSuppressWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeTargetOfEventDeferringEnvironmentsWithBlock x self = msg_send ~self ~cmd:(selector "observeTargetOfEventDeferringEnvironmentsWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeUnderLockWithBlock x self = msg_send ~self ~cmd:(selector "observeUnderLockWithBlock:") ~typ:((ptr void) @-> returning void) x +let observeUserInterfaceStyleWithBlock x self = msg_send ~self ~cmd:(selector "observeUserInterfaceStyleWithBlock:") ~typ:((ptr void) @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIApplicationSceneTransitionContext.ml b/uikit_extra/UIApplicationSceneTransitionContext.ml new file mode 100644 index 00000000..030fc5d0 --- /dev/null +++ b/uikit_extra/UIApplicationSceneTransitionContext.ml @@ -0,0 +1,43 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationscenetransitioncontext?language=objc}UIApplicationSceneTransitionContext} *) + +let self = get_class "UIApplicationSceneTransitionContext" + +let clickAttribution self = msg_send ~self ~cmd:(selector "clickAttribution") ~typ:(returning id) +let disableTouchCancellationOnRotation self = msg_send ~self ~cmd:(selector "disableTouchCancellationOnRotation") ~typ:(returning bool) +let execTime self = msg_send ~self ~cmd:(selector "execTime") ~typ:(returning double) +let forTesting self = msg_send ~self ~cmd:(selector "forTesting") ~typ:(returning bool) +let isUISubclass self = msg_send ~self ~cmd:(selector "isUISubclass") ~typ:(returning bool) +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let payload self = msg_send ~self ~cmd:(selector "payload") ~typ:(returning id) +let safeMode self = msg_send ~self ~cmd:(selector "safeMode") ~typ:(returning bool) +let sceneCollectionJoinBehavior self = msg_send ~self ~cmd:(selector "sceneCollectionJoinBehavior") ~typ:(returning llong) +let setClickAttribution x self = msg_send ~self ~cmd:(selector "setClickAttribution:") ~typ:(id @-> returning void) x +let setDisableTouchCancellationOnRotation x self = msg_send ~self ~cmd:(selector "setDisableTouchCancellationOnRotation:") ~typ:(bool @-> returning void) x +let setExecTime x self = msg_send ~self ~cmd:(selector "setExecTime:") ~typ:(double @-> returning void) x +let setForTesting x self = msg_send ~self ~cmd:(selector "setForTesting:") ~typ:(bool @-> returning void) x +let setPayload x self = msg_send ~self ~cmd:(selector "setPayload:") ~typ:(id @-> returning void) x +let setSafeMode x self = msg_send ~self ~cmd:(selector "setSafeMode:") ~typ:(bool @-> returning void) x +let setSceneCollectionJoinBehavior x self = msg_send ~self ~cmd:(selector "setSceneCollectionJoinBehavior:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setShouldTakeKeyboardFocus x self = msg_send ~self ~cmd:(selector "setShouldTakeKeyboardFocus:") ~typ:(bool @-> returning void) x +let setSignpostID x self = msg_send ~self ~cmd:(selector "setSignpostID:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setSourceIdentifier x self = msg_send ~self ~cmd:(selector "setSourceIdentifier:") ~typ:(id @-> returning void) x +let setStatusBarAnimation x self = msg_send ~self ~cmd:(selector "setStatusBarAnimation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setUserLaunchEventTime x self = msg_send ~self ~cmd:(selector "setUserLaunchEventTime:") ~typ:(double @-> returning void) x +let setWaitForBackgroundTaskCompletion x self = msg_send ~self ~cmd:(selector "setWaitForBackgroundTaskCompletion:") ~typ:(bool @-> returning void) x +let shouldTakeKeyboardFocus self = msg_send ~self ~cmd:(selector "shouldTakeKeyboardFocus") ~typ:(returning bool) +let signpostID self = msg_send ~self ~cmd:(selector "signpostID") ~typ:(returning ullong) +let sourceIdentifier self = msg_send ~self ~cmd:(selector "sourceIdentifier") ~typ:(returning id) +let statusBarAnimation self = msg_send ~self ~cmd:(selector "statusBarAnimation") ~typ:(returning llong) +let userLaunchEventTime self = msg_send ~self ~cmd:(selector "userLaunchEventTime") ~typ:(returning double) +let valueDescriptionForFlag x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning id) (LLong.of_int x) object_ (ULLong.of_int ofSetting) +let waitForBackgroundTaskCompletion self = msg_send ~self ~cmd:(selector "waitForBackgroundTaskCompletion") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIApplicationStarkSceneSpecification.ml b/uikit_extra/UIApplicationStarkSceneSpecification.ml new file mode 100644 index 00000000..ff3acf50 --- /dev/null +++ b/uikit_extra/UIApplicationStarkSceneSpecification.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiapplicationstarkscenespecification?language=objc}UIApplicationStarkSceneSpecification} *) + +let self = get_class "UIApplicationStarkSceneSpecification" + +let baseSceneComponentClassDictionary self = msg_send ~self ~cmd:(selector "baseSceneComponentClassDictionary") ~typ:(returning id) +let connectionHandlers self = msg_send ~self ~cmd:(selector "connectionHandlers") ~typ:(returning id) +let disconnectionHandlers self = msg_send ~self ~cmd:(selector "disconnectionHandlers") ~typ:(returning id) +let finalActionHandlers self = msg_send ~self ~cmd:(selector "finalActionHandlers") ~typ:(returning id) +let initialSettingsDiffActions self = msg_send ~self ~cmd:(selector "initialSettingsDiffActions") ~typ:(returning id) +let settingsClass self = msg_send ~self ~cmd:(selector "settingsClass") ~typ:(returning _Class) +let uiSceneSessionRole self = msg_send ~self ~cmd:(selector "uiSceneSessionRole") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIAssistantBarRoundedButtonViewButton.ml b/uikit_extra/UIAssistantBarRoundedButtonViewButton.ml new file mode 100644 index 00000000..a64f9954 --- /dev/null +++ b/uikit_extra/UIAssistantBarRoundedButtonViewButton.ml @@ -0,0 +1,23 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiassistantbarroundedbuttonviewbutton?language=objc}UIAssistantBarRoundedButtonViewButton} *) + +let self = get_class "UIAssistantBarRoundedButtonViewButton" + +let highlightedBackgroundColor self = msg_send ~self ~cmd:(selector "highlightedBackgroundColor") ~typ:(returning id) +let highlightedTitleColor self = msg_send ~self ~cmd:(selector "highlightedTitleColor") ~typ:(returning id) +let normalBackgroundColor self = msg_send ~self ~cmd:(selector "normalBackgroundColor") ~typ:(returning id) +let normalTitleColor self = msg_send ~self ~cmd:(selector "normalTitleColor") ~typ:(returning id) +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setHighlightedBackgroundColor x self = msg_send ~self ~cmd:(selector "setHighlightedBackgroundColor:") ~typ:(id @-> returning void) x +let setHighlightedTitleColor x self = msg_send ~self ~cmd:(selector "setHighlightedTitleColor:") ~typ:(id @-> returning void) x +let setNormalBackgroundColor x self = msg_send ~self ~cmd:(selector "setNormalBackgroundColor:") ~typ:(id @-> returning void) x +let setNormalTitleColor x self = msg_send ~self ~cmd:(selector "setNormalTitleColor:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIAutoRespondingScrollViewControllerKeyboardSupport.ml b/uikit_extra/UIAutoRespondingScrollViewControllerKeyboardSupport.ml new file mode 100644 index 00000000..b89d3df2 --- /dev/null +++ b/uikit_extra/UIAutoRespondingScrollViewControllerKeyboardSupport.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiautorespondingscrollviewcontrollerkeyboardsupport?language=objc}UIAutoRespondingScrollViewControllerKeyboardSupport} *) + +let self = get_class "UIAutoRespondingScrollViewControllerKeyboardSupport" + +let adjustmentForKeyboard self = msg_send ~self ~cmd:(selector "adjustmentForKeyboard") ~typ:(returning double) +let initWithViewController x self = msg_send ~self ~cmd:(selector "initWithViewController:") ~typ:(id @-> returning id) x +let registeredForNotifications self = msg_send ~self ~cmd:(selector "registeredForNotifications") ~typ:(returning bool) +let setAdjustmentForKeyboard x self = msg_send ~self ~cmd:(selector "setAdjustmentForKeyboard:") ~typ:(double @-> returning void) x +let setRegisteredForNotifications x self = msg_send ~self ~cmd:(selector "setRegisteredForNotifications:") ~typ:(bool @-> returning void) x +let setViewIsDisappearing x self = msg_send ~self ~cmd:(selector "setViewIsDisappearing:") ~typ:(bool @-> returning void) x +let viewIsDisappearing self = msg_send ~self ~cmd:(selector "viewIsDisappearing") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIAutonomousSingleAppModeConfiguration.ml b/uikit_extra/UIAutonomousSingleAppModeConfiguration.ml new file mode 100644 index 00000000..69cd5b3d --- /dev/null +++ b/uikit_extra/UIAutonomousSingleAppModeConfiguration.ml @@ -0,0 +1,26 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiautonomoussingleappmodeconfiguration?language=objc}UIAutonomousSingleAppModeConfiguration} *) + +let self = get_class "UIAutonomousSingleAppModeConfiguration" + +let allowsAutoLock self = msg_send ~self ~cmd:(selector "allowsAutoLock") ~typ:(returning bool) +let allowsLockButton self = msg_send ~self ~cmd:(selector "allowsLockButton") ~typ:(returning bool) +let automaticallyRelaunchesAfterAppCrash self = msg_send ~self ~cmd:(selector "automaticallyRelaunchesAfterAppCrash") ~typ:(returning bool) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let managedConfigurationSettings self = msg_send ~self ~cmd:(selector "managedConfigurationSettings") ~typ:(returning id) +let propertiesAsDictionary self = msg_send ~self ~cmd:(selector "propertiesAsDictionary") ~typ:(returning id) +let setAllowsAutoLock x self = msg_send ~self ~cmd:(selector "setAllowsAutoLock:") ~typ:(bool @-> returning void) x +let setAllowsLockButton x self = msg_send ~self ~cmd:(selector "setAllowsLockButton:") ~typ:(bool @-> returning void) x +let setAutomaticallyRelaunchesAfterAppCrash x self = msg_send ~self ~cmd:(selector "setAutomaticallyRelaunchesAfterAppCrash:") ~typ:(bool @-> returning void) x +let setManagedConfigurationSettings x self = msg_send ~self ~cmd:(selector "setManagedConfigurationSettings:") ~typ:(id @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning ullong) \ No newline at end of file diff --git a/uikit_extra/UIAutonomousSingleAppModeConfigurationClass.ml b/uikit_extra/UIAutonomousSingleAppModeConfigurationClass.ml new file mode 100644 index 00000000..2cb31be4 --- /dev/null +++ b/uikit_extra/UIAutonomousSingleAppModeConfigurationClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiautonomoussingleappmodeconfiguration?language=objc}UIAutonomousSingleAppModeConfiguration} *) + +let defaultConfiguration self = msg_send ~self ~cmd:(selector "defaultConfiguration") ~typ:(returning id) +let defaultConfigurationForStyle x self = msg_send ~self ~cmd:(selector "defaultConfigurationForStyle:") ~typ:(ullong @-> returning id) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIAutonomousSingleAppModeSession.ml b/uikit_extra/UIAutonomousSingleAppModeSession.ml new file mode 100644 index 00000000..1a25c9ee --- /dev/null +++ b/uikit_extra/UIAutonomousSingleAppModeSession.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiautonomoussingleappmodesession?language=objc}UIAutonomousSingleAppModeSession} *) + +let self = get_class "UIAutonomousSingleAppModeSession" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let effectiveConfiguration self = msg_send ~self ~cmd:(selector "effectiveConfiguration") ~typ:(returning id) +let endWithCompletion x self = msg_send ~self ~cmd:(selector "endWithCompletion:") ~typ:((ptr void) @-> returning void) x +let initWithEffectiveConfiguration x self = msg_send ~self ~cmd:(selector "initWithEffectiveConfiguration:") ~typ:(id @-> returning id) x +let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning bool) +let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning void) x +let setEffectiveConfiguration x self = msg_send ~self ~cmd:(selector "setEffectiveConfiguration:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIAutonomousSingleAppModeSessionClass.ml b/uikit_extra/UIAutonomousSingleAppModeSessionClass.ml new file mode 100644 index 00000000..2d856014 --- /dev/null +++ b/uikit_extra/UIAutonomousSingleAppModeSessionClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiautonomoussingleappmodesession?language=objc}UIAutonomousSingleAppModeSession} *) + +let currentlyActiveSession self = msg_send ~self ~cmd:(selector "currentlyActiveSession") ~typ:(returning id) +let requestSessionWithConfiguration x ~completion self = msg_send ~self ~cmd:(selector "requestSessionWithConfiguration:completion:") ~typ:(id @-> (ptr void) @-> returning void) x completion \ No newline at end of file diff --git a/uikit_extra/UIBarButtonItemStateAppearance.ml b/uikit_extra/UIBarButtonItemStateAppearance.ml new file mode 100644 index 00000000..eea75f1c --- /dev/null +++ b/uikit_extra/UIBarButtonItemStateAppearance.ml @@ -0,0 +1,27 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibarbuttonitemstateappearance?language=objc}UIBarButtonItemStateAppearance} *) + +let self = get_class "UIBarButtonItemStateAppearance" + +let backgroundImage self = msg_send ~self ~cmd:(selector "backgroundImage") ~typ:(returning id) +let backgroundImagePositionAdjustment self = msg_send ~self ~cmd:(selector "backgroundImagePositionAdjustment") ~typ:(returning UIOffset.t) +let data self = msg_send ~self ~cmd:(selector "data") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let itemEffects self = msg_send ~self ~cmd:(selector "itemEffects") ~typ:(returning id) +let setBackgroundImage x self = msg_send ~self ~cmd:(selector "setBackgroundImage:") ~typ:(id @-> returning void) x +let setBackgroundImagePositionAdjustment x self = msg_send ~self ~cmd:(selector "setBackgroundImagePositionAdjustment:") ~typ:(UIOffset.t @-> returning void) x +let setData x self = msg_send ~self ~cmd:(selector "setData:") ~typ:(id @-> returning void) x +let setItemEffects x self = msg_send ~self ~cmd:(selector "setItemEffects:") ~typ:(id @-> returning void) x +let setTitlePositionAdjustment x self = msg_send ~self ~cmd:(selector "setTitlePositionAdjustment:") ~typ:(UIOffset.t @-> returning void) x +let setTitleTextAttributes x self = msg_send ~self ~cmd:(selector "setTitleTextAttributes:") ~typ:(id @-> returning void) x +let titlePositionAdjustment self = msg_send ~self ~cmd:(selector "titlePositionAdjustment") ~typ:(returning UIOffset.t) +let titleTextAttributes self = msg_send ~self ~cmd:(selector "titleTextAttributes") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIButtonConfigurationVisualProvider.ml b/uikit_extra/UIButtonConfigurationVisualProvider.ml new file mode 100644 index 00000000..cc194b14 --- /dev/null +++ b/uikit_extra/UIButtonConfigurationVisualProvider.ml @@ -0,0 +1,94 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibuttonconfigurationvisualprovider?language=objc}UIButtonConfigurationVisualProvider} *) + +let self = get_class "UIButtonConfigurationVisualProvider" + +let adjustsFontForContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsFontForContentSizeCategory") ~typ:(returning bool) +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let applyConfiguration self = msg_send ~self ~cmd:(selector "applyConfiguration") ~typ:(returning void) +let automaticallyUpdateConfigurationIfNecessary x self = msg_send ~self ~cmd:(selector "automaticallyUpdateConfigurationIfNecessary:") ~typ:(id @-> returning void) x +let backgroundViewCreateIfNeeded x self = msg_send ~self ~cmd:(selector "backgroundViewCreateIfNeeded:") ~typ:(bool @-> returning id) x +let baselineOffsetsAtSize x self = msg_send ~self ~cmd:(selector "baselineOffsetsAtSize:") ~typ:(CGSize.t @-> returning void) x +let button self = msg_send ~self ~cmd:(selector "button") ~typ:(returning id) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let cleanupForVisualProvider x self = msg_send ~self ~cmd:(selector "cleanupForVisualProvider:") ~typ:(id @-> returning void) x +let contentBackdropView self = msg_send ~self ~cmd:(selector "contentBackdropView") ~typ:(returning id) +let contentRectForBounds x self = msg_send ~self ~cmd:(selector "contentRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let contextMenuInteraction x ~configurationForMenuAtLocation self = msg_send ~self ~cmd:(selector "contextMenuInteraction:configurationForMenuAtLocation:") ~typ:(id @-> CGPoint.t @-> returning id) x configurationForMenuAtLocation +let contextMenuInteraction1 x ~previewForDismissingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForDismissingMenuWithConfiguration:") ~typ:(id @-> id @-> returning id) x previewForDismissingMenuWithConfiguration +let contextMenuInteraction2 x ~previewForHighlightingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForHighlightingMenuWithConfiguration:") ~typ:(id @-> id @-> returning id) x previewForHighlightingMenuWithConfiguration +let contextMenuInteraction3 x ~updateStyleForMenuWithConfiguration ~style self = msg_send ~self ~cmd:(selector "contextMenuInteraction:updateStyleForMenuWithConfiguration:style:") ~typ:(id @-> id @-> id @-> returning void) x updateStyleForMenuWithConfiguration style +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultFocusEffect self = msg_send ~self ~cmd:(selector "defaultFocusEffect") ~typ:(returning id) +let didChangeFromIdiom x ~onScreen ~traverseHierarchy self = msg_send ~self ~cmd:(selector "didChangeFromIdiom:onScreen:traverseHierarchy:") ~typ:(llong @-> id @-> bool @-> returning void) (LLong.of_int x) onScreen traverseHierarchy +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let effectiveContentView self = msg_send ~self ~cmd:(selector "effectiveContentView") ~typ:(returning id) +let hasBaseline self = msg_send ~self ~cmd:(selector "hasBaseline") ~typ:(returning bool) +let hasMultilineText self = msg_send ~self ~cmd:(selector "hasMultilineText") ~typ:(returning bool) +let imageRectForContentRect x self = msg_send ~self ~cmd:(selector "imageRectForContentRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let imageViewCreateIfNeeded x self = msg_send ~self ~cmd:(selector "imageViewCreateIfNeeded:") ~typ:(bool @-> returning id) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let intrinsicContentSizeInvalidatedForChildView x self = msg_send ~self ~cmd:(selector "intrinsicContentSizeInvalidatedForChildView:") ~typ:(id @-> returning void) x +let intrinsicSizeWithinSize x self = msg_send ~self ~cmd:(selector "intrinsicSizeWithinSize:") ~typ:(CGSize.t @-> returning CGSize.t) x +let invalidateLayoutData self = msg_send ~self ~cmd:(selector "invalidateLayoutData") ~typ:(returning void) +let isOn self = msg_send ~self ~cmd:(selector "isOn") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let menuAttachmentPointForConfiguration x self = msg_send ~self ~cmd:(selector "menuAttachmentPointForConfiguration:") ~typ:(id @-> returning CGPoint.t) x +let pointerEffectPreviewParameters self = msg_send ~self ~cmd:(selector "pointerEffectPreviewParameters") ~typ:(returning id) +let pointerEffectWithPreview x self = msg_send ~self ~cmd:(selector "pointerEffectWithPreview:") ~typ:(id @-> returning id) x +let pointerShapeInContainer x ~proposal self = msg_send ~self ~cmd:(selector "pointerShapeInContainer:proposal:") ~typ:(id @-> (ptr void) @-> returning id) x proposal +let pointerWillEnter x self = msg_send ~self ~cmd:(selector "pointerWillEnter:") ~typ:(id @-> returning void) x +let pointerWillExit x self = msg_send ~self ~cmd:(selector "pointerWillExit:") ~typ:(id @-> returning void) x +let preferredConfigurationForFocusAnimation x ~inContext self = msg_send ~self ~cmd:(selector "preferredConfigurationForFocusAnimation:inContext:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) inContext +let previousFirstBaselineOffsetForAttributeLowering self = msg_send ~self ~cmd:(selector "previousFirstBaselineOffsetForAttributeLowering") ~typ:(returning double) +let previousLastBaselineOffsetForAttributeLowering self = msg_send ~self ~cmd:(selector "previousLastBaselineOffsetForAttributeLowering") ~typ:(returning double) +let selectionIndicatorView self = msg_send ~self ~cmd:(selector "selectionIndicatorView") ~typ:(returning id) +let setAttributedTitle x ~forState self = msg_send ~self ~cmd:(selector "setAttributedTitle:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setButton x self = msg_send ~self ~cmd:(selector "setButton:") ~typ:(id @-> returning void) x +let setContentHorizontalAlignment x self = msg_send ~self ~cmd:(selector "setContentHorizontalAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContentHuggingPriorities x self = msg_send ~self ~cmd:(selector "setContentHuggingPriorities:") ~typ:(CGSize.t @-> returning void) x +let setContentVerticalAlignment x self = msg_send ~self ~cmd:(selector "setContentVerticalAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContextMenuIsPrimary x self = msg_send ~self ~cmd:(selector "setContextMenuIsPrimary:") ~typ:(bool @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setHighlighted x ~animated self = msg_send ~self ~cmd:(selector "setHighlighted:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setImage x ~forState self = msg_send ~self ~cmd:(selector "setImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning void) x +let setMenuProvider x self = msg_send ~self ~cmd:(selector "setMenuProvider:") ~typ:((ptr void) @-> returning void) x +let setNeedsUpdateConfiguration self = msg_send ~self ~cmd:(selector "setNeedsUpdateConfiguration") ~typ:(returning void) +let setOn x self = msg_send ~self ~cmd:(selector "setOn:") ~typ:(bool @-> returning void) x +let setPreferredSymbolConfiguration x ~forImageInState self = msg_send ~self ~cmd:(selector "setPreferredSymbolConfiguration:forImageInState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forImageInState) +let setPreviousFirstBaselineOffsetForAttributeLowering x self = msg_send ~self ~cmd:(selector "setPreviousFirstBaselineOffsetForAttributeLowering:") ~typ:(double @-> returning void) x +let setPreviousLastBaselineOffsetForAttributeLowering x self = msg_send ~self ~cmd:(selector "setPreviousLastBaselineOffsetForAttributeLowering:") ~typ:(double @-> returning void) x +let setReversesTitleShadowWhenHighlighted x self = msg_send ~self ~cmd:(selector "setReversesTitleShadowWhenHighlighted:") ~typ:(bool @-> returning void) x +let setRole x self = msg_send ~self ~cmd:(selector "setRole:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setShowsTouchWhenHighlighted x self = msg_send ~self ~cmd:(selector "setShowsTouchWhenHighlighted:") ~typ:(bool @-> returning void) x +let setTitle x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setVendsBaselineInformationToAutoLayout x self = msg_send ~self ~cmd:(selector "setVendsBaselineInformationToAutoLayout:") ~typ:(bool @-> returning void) x +let setWidthForMultilineTextLayout x self = msg_send ~self ~cmd:(selector "setWidthForMultilineTextLayout:") ~typ:(double @-> returning void) x +let subtitleViewCreateIfNeeded x self = msg_send ~self ~cmd:(selector "subtitleViewCreateIfNeeded:") ~typ:(bool @-> returning id) x +let systemLayoutSizeFittingSize x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning CGSize.t) x withHorizontalFittingPriority verticalFittingPriority +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let titleRectForContentRect x self = msg_send ~self ~cmd:(selector "titleRectForContentRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let titleViewCreateIfNeeded x self = msg_send ~self ~cmd:(selector "titleViewCreateIfNeeded:") ~typ:(bool @-> returning id) x +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let updateBaselineInformationDependentOnBounds self = msg_send ~self ~cmd:(selector "updateBaselineInformationDependentOnBounds") ~typ:(returning void) +let updateConfigurationIfNecessary self = msg_send ~self ~cmd:(selector "updateConfigurationIfNecessary") ~typ:(returning void) +let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning void) +let useTitleForSelectedIndicatorBounds self = msg_send ~self ~cmd:(selector "useTitleForSelectedIndicatorBounds") ~typ:(returning bool) +let vendsBaselineInformationToAutoLayout self = msg_send ~self ~cmd:(selector "vendsBaselineInformationToAutoLayout") ~typ:(returning bool) +let viewForFirstBaselineLayout self = msg_send ~self ~cmd:(selector "viewForFirstBaselineLayout") ~typ:(returning id) +let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning id) +let widthForMultilineTextLayout self = msg_send ~self ~cmd:(selector "widthForMultilineTextLayout") ~typ:(returning double) +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIButtonConfigurationVisualProviderClass.ml b/uikit_extra/UIButtonConfigurationVisualProviderClass.ml new file mode 100644 index 00000000..5eecefe5 --- /dev/null +++ b/uikit_extra/UIButtonConfigurationVisualProviderClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibuttonconfigurationvisualprovider?language=objc}UIButtonConfigurationVisualProvider} *) + +let requiresNewVisualProviderForChanges self = msg_send ~self ~cmd:(selector "requiresNewVisualProviderForChanges") ~typ:(returning bool) +let shouldUpdateContextMenuEnabledOnMenuChanges self = msg_send ~self ~cmd:(selector "shouldUpdateContextMenuEnabledOnMenuChanges") ~typ:(returning bool) +let visualProviderForButton x self = msg_send ~self ~cmd:(selector "visualProviderForButton:") ~typ:(id @-> returning id) x +let wantsConfigurationUpdateForButtonShapes self = msg_send ~self ~cmd:(selector "wantsConfigurationUpdateForButtonShapes") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIButtonConfigurationVisualProviderTVOS.ml b/uikit_extra/UIButtonConfigurationVisualProviderTVOS.ml new file mode 100644 index 00000000..70ece173 --- /dev/null +++ b/uikit_extra/UIButtonConfigurationVisualProviderTVOS.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibuttonconfigurationvisualprovidertvos?language=objc}UIButtonConfigurationVisualProviderTVOS} *) + +let self = get_class "UIButtonConfigurationVisualProviderTVOS" + +let cleanupForVisualProvider x self = msg_send ~self ~cmd:(selector "cleanupForVisualProvider:") ~typ:(id @-> returning void) x +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let effectiveContentView self = msg_send ~self ~cmd:(selector "effectiveContentView") ~typ:(returning id) +let floatingContentView x ~isTransitioningFromState ~toState self = msg_send ~self ~cmd:(selector "floatingContentView:isTransitioningFromState:toState:") ~typ:(id @-> ullong @-> ullong @-> returning void) x (ULLong.of_int isTransitioningFromState) (ULLong.of_int toState) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setHighlighted x ~animated self = msg_send ~self ~cmd:(selector "setHighlighted:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIButtonLegacyVisualProvider.ml b/uikit_extra/UIButtonLegacyVisualProvider.ml new file mode 100644 index 00000000..a7abc760 --- /dev/null +++ b/uikit_extra/UIButtonLegacyVisualProvider.ml @@ -0,0 +1,94 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibuttonlegacyvisualprovider?language=objc}UIButtonLegacyVisualProvider} *) + +let self = get_class "UIButtonLegacyVisualProvider" + +let adjustsFontForContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsFontForContentSizeCategory") ~typ:(returning bool) +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let backgroundRectForBounds x self = msg_send ~self ~cmd:(selector "backgroundRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let backgroundViewCreateIfNeeded x self = msg_send ~self ~cmd:(selector "backgroundViewCreateIfNeeded:") ~typ:(bool @-> returning id) x +let baselineOffsetsAtSize x self = msg_send ~self ~cmd:(selector "baselineOffsetsAtSize:") ~typ:(CGSize.t @-> returning void) x +let button self = msg_send ~self ~cmd:(selector "button") ~typ:(returning id) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let cleanupForVisualProvider x self = msg_send ~self ~cmd:(selector "cleanupForVisualProvider:") ~typ:(id @-> returning void) x +let contentBackdropView self = msg_send ~self ~cmd:(selector "contentBackdropView") ~typ:(returning id) +let contentRectForBounds x self = msg_send ~self ~cmd:(selector "contentRectForBounds:") ~typ:(CGRect.t @-> returning CGRect.t) x +let contextMenuInteraction x ~configurationForMenuAtLocation self = msg_send ~self ~cmd:(selector "contextMenuInteraction:configurationForMenuAtLocation:") ~typ:(id @-> CGPoint.t @-> returning id) x configurationForMenuAtLocation +let contextMenuInteraction1 x ~previewForDismissingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForDismissingMenuWithConfiguration:") ~typ:(id @-> id @-> returning id) x previewForDismissingMenuWithConfiguration +let contextMenuInteraction2 x ~previewForHighlightingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForHighlightingMenuWithConfiguration:") ~typ:(id @-> id @-> returning id) x previewForHighlightingMenuWithConfiguration +let contextMenuInteraction3 x ~updateStyleForMenuWithConfiguration ~style self = msg_send ~self ~cmd:(selector "contextMenuInteraction:updateStyleForMenuWithConfiguration:style:") ~typ:(id @-> id @-> id @-> returning void) x updateStyleForMenuWithConfiguration style +let currentImageWithResolvedConfiguration self = msg_send ~self ~cmd:(selector "currentImageWithResolvedConfiguration") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultFocusEffect self = msg_send ~self ~cmd:(selector "defaultFocusEffect") ~typ:(returning id) +let deferToLazyTitleFont self = msg_send ~self ~cmd:(selector "deferToLazyTitleFont") ~typ:(returning bool) +let didChangeFromIdiom x ~onScreen ~traverseHierarchy self = msg_send ~self ~cmd:(selector "didChangeFromIdiom:onScreen:traverseHierarchy:") ~typ:(llong @-> id @-> bool @-> returning void) (LLong.of_int x) onScreen traverseHierarchy +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let effectiveContentView self = msg_send ~self ~cmd:(selector "effectiveContentView") ~typ:(returning id) +let encodableSubviews self = msg_send ~self ~cmd:(selector "encodableSubviews") ~typ:(returning id) +let floatingContentView x ~isTransitioningFromState ~toState self = msg_send ~self ~cmd:(selector "floatingContentView:isTransitioningFromState:toState:") ~typ:(id @-> ullong @-> ullong @-> returning void) x (ULLong.of_int isTransitioningFromState) (ULLong.of_int toState) +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let fontIsDefaultForIdiom self = msg_send ~self ~cmd:(selector "fontIsDefaultForIdiom") ~typ:(returning bool) +let highlightBounds self = msg_send ~self ~cmd:(selector "highlightBounds") ~typ:(returning CGRect.t) +let imageRectForContentRect x self = msg_send ~self ~cmd:(selector "imageRectForContentRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let imageViewCreateIfNeeded x self = msg_send ~self ~cmd:(selector "imageViewCreateIfNeeded:") ~typ:(bool @-> returning id) x +let intrinsicContentSizeInvalidatedForChildView x self = msg_send ~self ~cmd:(selector "intrinsicContentSizeInvalidatedForChildView:") ~typ:(id @-> returning void) x +let intrinsicSizeWithinSize x self = msg_send ~self ~cmd:(selector "intrinsicSizeWithinSize:") ~typ:(CGSize.t @-> returning CGSize.t) x +let isOn self = msg_send ~self ~cmd:(selector "isOn") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let lineBreakMode self = msg_send ~self ~cmd:(selector "lineBreakMode") ~typ:(returning llong) +let menuAttachmentPointForConfiguration x self = msg_send ~self ~cmd:(selector "menuAttachmentPointForConfiguration:") ~typ:(id @-> returning CGPoint.t) x +let pointerEffectPreviewParameters self = msg_send ~self ~cmd:(selector "pointerEffectPreviewParameters") ~typ:(returning id) +let pointerEffectWithPreview x self = msg_send ~self ~cmd:(selector "pointerEffectWithPreview:") ~typ:(id @-> returning id) x +let pointerShapeInContainer x ~proposal self = msg_send ~self ~cmd:(selector "pointerShapeInContainer:proposal:") ~typ:(id @-> (ptr void) @-> returning id) x proposal +let pointerWillEnter x self = msg_send ~self ~cmd:(selector "pointerWillEnter:") ~typ:(id @-> returning void) x +let pointerWillExit x self = msg_send ~self ~cmd:(selector "pointerWillExit:") ~typ:(id @-> returning void) x +let populateArchivedSubviews x self = msg_send ~self ~cmd:(selector "populateArchivedSubviews:") ~typ:(id @-> returning void) x +let preferredConfigurationForFocusAnimation x ~inContext self = msg_send ~self ~cmd:(selector "preferredConfigurationForFocusAnimation:inContext:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) inContext +let selectionIndicatorView self = msg_send ~self ~cmd:(selector "selectionIndicatorView") ~typ:(returning id) +let setAttributedTitle x ~forState self = msg_send ~self ~cmd:(selector "setAttributedTitle:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setBlurEnabled x self = msg_send ~self ~cmd:(selector "setBlurEnabled:") ~typ:(bool @-> returning void) x +let setButton x self = msg_send ~self ~cmd:(selector "setButton:") ~typ:(id @-> returning void) x +let setContentHorizontalAlignment x self = msg_send ~self ~cmd:(selector "setContentHorizontalAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContentHuggingPriorities x self = msg_send ~self ~cmd:(selector "setContentHuggingPriorities:") ~typ:(CGSize.t @-> returning void) x +let setContentVerticalAlignment x self = msg_send ~self ~cmd:(selector "setContentVerticalAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContextMenuIsPrimary x self = msg_send ~self ~cmd:(selector "setContextMenuIsPrimary:") ~typ:(bool @-> returning void) x +let setDrawingStroke x ~forState self = msg_send ~self ~cmd:(selector "setDrawingStroke:forState:") ~typ:(double @-> ullong @-> returning void) x (ULLong.of_int forState) +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setExternalFlatEdge x self = msg_send ~self ~cmd:(selector "setExternalFlatEdge:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setFont x ~isDefaultForIdiom self = msg_send ~self ~cmd:(selector "setFont:isDefaultForIdiom:") ~typ:(id @-> bool @-> returning void) x isDefaultForIdiom +let setHighlighted x ~animated self = msg_send ~self ~cmd:(selector "setHighlighted:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setImage x ~forState self = msg_send ~self ~cmd:(selector "setImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setImageContentMode x self = msg_send ~self ~cmd:(selector "setImageContentMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setLineBreakMode x self = msg_send ~self ~cmd:(selector "setLineBreakMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning void) x +let setMenuProvider x self = msg_send ~self ~cmd:(selector "setMenuProvider:") ~typ:((ptr void) @-> returning void) x +let setOn x self = msg_send ~self ~cmd:(selector "setOn:") ~typ:(bool @-> returning void) x +let setPreferredSymbolConfiguration x ~forImageInState self = msg_send ~self ~cmd:(selector "setPreferredSymbolConfiguration:forImageInState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forImageInState) +let setReversesTitleShadowWhenHighlighted x self = msg_send ~self ~cmd:(selector "setReversesTitleShadowWhenHighlighted:") ~typ:(bool @-> returning void) x +let setRole x self = msg_send ~self ~cmd:(selector "setRole:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setShowsTouchWhenHighlighted x self = msg_send ~self ~cmd:(selector "setShowsTouchWhenHighlighted:") ~typ:(bool @-> returning void) x +let setTitle x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setTitleShadowOffset x self = msg_send ~self ~cmd:(selector "setTitleShadowOffset:") ~typ:(CGSize.t @-> returning void) x +let setVisualEffectViewEnabled x ~backgroundColor self = msg_send ~self ~cmd:(selector "setVisualEffectViewEnabled:backgroundColor:") ~typ:(bool @-> id @-> returning void) x backgroundColor +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let titleRectForContentRect x self = msg_send ~self ~cmd:(selector "titleRectForContentRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let titleShadowOffset self = msg_send ~self ~cmd:(selector "titleShadowOffset") ~typ:(returning CGSize.t) +let titleViewCreateIfNeeded x self = msg_send ~self ~cmd:(selector "titleViewCreateIfNeeded:") ~typ:(bool @-> returning id) x +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning void) +let useTitleForSelectedIndicatorBounds self = msg_send ~self ~cmd:(selector "useTitleForSelectedIndicatorBounds") ~typ:(returning bool) +let viewForFirstBaselineLayout self = msg_send ~self ~cmd:(selector "viewForFirstBaselineLayout") ~typ:(returning id) +let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning id) +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIButtonLegacyVisualProviderClass.ml b/uikit_extra/UIButtonLegacyVisualProviderClass.ml new file mode 100644 index 00000000..f72e650e --- /dev/null +++ b/uikit_extra/UIButtonLegacyVisualProviderClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibuttonlegacyvisualprovider?language=objc}UIButtonLegacyVisualProvider} *) + +let requiresNewVisualProviderForChanges self = msg_send ~self ~cmd:(selector "requiresNewVisualProviderForChanges") ~typ:(returning bool) +let shouldUpdateContextMenuEnabledOnMenuChanges self = msg_send ~self ~cmd:(selector "shouldUpdateContextMenuEnabledOnMenuChanges") ~typ:(returning bool) +let visualProviderForButton x self = msg_send ~self ~cmd:(selector "visualProviderForButton:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIButtonMacLegacyVisualProvider.ml b/uikit_extra/UIButtonMacLegacyVisualProvider.ml new file mode 100644 index 00000000..365f6cd7 --- /dev/null +++ b/uikit_extra/UIButtonMacLegacyVisualProvider.ml @@ -0,0 +1,43 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibuttonmaclegacyvisualprovider?language=objc}UIButtonMacLegacyVisualProvider} *) + +let self = get_class "UIButtonMacLegacyVisualProvider" + +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let baselineOffsetsAtSize x self = msg_send ~self ~cmd:(selector "baselineOffsetsAtSize:") ~typ:(CGSize.t @-> returning void) x +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let cleanupForVisualProvider x self = msg_send ~self ~cmd:(selector "cleanupForVisualProvider:") ~typ:(id @-> returning void) x +let contextMenuInteraction x ~configurationForMenuAtLocation self = msg_send ~self ~cmd:(selector "contextMenuInteraction:configurationForMenuAtLocation:") ~typ:(id @-> CGPoint.t @-> returning id) x configurationForMenuAtLocation +let contextMenuInteraction1 x ~previewForDismissingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForDismissingMenuWithConfiguration:") ~typ:(id @-> id @-> returning id) x previewForDismissingMenuWithConfiguration +let contextMenuInteraction2 x ~previewForHighlightingMenuWithConfiguration self = msg_send ~self ~cmd:(selector "contextMenuInteraction:previewForHighlightingMenuWithConfiguration:") ~typ:(id @-> id @-> returning id) x previewForHighlightingMenuWithConfiguration +let contextMenuInteraction3 x ~updateStyleForMenuWithConfiguration ~style self = msg_send ~self ~cmd:(selector "contextMenuInteraction:updateStyleForMenuWithConfiguration:style:") ~typ:(id @-> id @-> id @-> returning void) x updateStyleForMenuWithConfiguration style +let effectiveContentView self = msg_send ~self ~cmd:(selector "effectiveContentView") ~typ:(returning id) +let initWithVisualElement x ~button self = msg_send ~self ~cmd:(selector "initWithVisualElement:button:") ~typ:(id @-> id @-> returning id) x button +let intrinsicSizeWithinSize x self = msg_send ~self ~cmd:(selector "intrinsicSizeWithinSize:") ~typ:(CGSize.t @-> returning CGSize.t) x +let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let menuAttachmentPointForConfiguration x self = msg_send ~self ~cmd:(selector "menuAttachmentPointForConfiguration:") ~typ:(id @-> returning CGPoint.t) x +let preferredConfigurationForFocusAnimation x ~inContext self = msg_send ~self ~cmd:(selector "preferredConfigurationForFocusAnimation:inContext:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) inContext +let setAttributedTitle x ~forState self = msg_send ~self ~cmd:(selector "setAttributedTitle:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setContextMenuIsPrimary x self = msg_send ~self ~cmd:(selector "setContextMenuIsPrimary:") ~typ:(bool @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setImage x ~forState self = msg_send ~self ~cmd:(selector "setImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning void) x +let setMenuProvider x self = msg_send ~self ~cmd:(selector "setMenuProvider:") ~typ:((ptr void) @-> returning void) x +let setPreferredSymbolConfiguration x ~forImageInState self = msg_send ~self ~cmd:(selector "setPreferredSymbolConfiguration:forImageInState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forImageInState) +let setRole x self = msg_send ~self ~cmd:(selector "setRole:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setTitle x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let useTitleForSelectedIndicatorBounds self = msg_send ~self ~cmd:(selector "useTitleForSelectedIndicatorBounds") ~typ:(returning bool) +let viewForFirstBaselineLayout self = msg_send ~self ~cmd:(selector "viewForFirstBaselineLayout") ~typ:(returning id) +let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIButtonMacLegacyVisualProviderClass.ml b/uikit_extra/UIButtonMacLegacyVisualProviderClass.ml new file mode 100644 index 00000000..8584e633 --- /dev/null +++ b/uikit_extra/UIButtonMacLegacyVisualProviderClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibuttonmaclegacyvisualprovider?language=objc}UIButtonMacLegacyVisualProvider} *) + +let requiresNewVisualProviderForChanges self = msg_send ~self ~cmd:(selector "requiresNewVisualProviderForChanges") ~typ:(returning bool) +let shouldUpdateContextMenuEnabledOnMenuChanges self = msg_send ~self ~cmd:(selector "shouldUpdateContextMenuEnabledOnMenuChanges") ~typ:(returning bool) +let visualProviderForButton x self = msg_send ~self ~cmd:(selector "visualProviderForButton:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIButtonMacVisualElement.ml b/uikit_extra/UIButtonMacVisualElement.ml new file mode 100644 index 00000000..bb507ce8 --- /dev/null +++ b/uikit_extra/UIButtonMacVisualElement.ml @@ -0,0 +1,45 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibuttonmacvisualelement?language=objc}UIButtonMacVisualElement} *) + +let self = get_class "UIButtonMacVisualElement" + +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let bridge self = msg_send ~self ~cmd:(selector "bridge") ~typ:(returning id) +let button self = msg_send ~self ~cmd:(selector "button") ~typ:(returning id) +let buttonControl self = msg_send ~self ~cmd:(selector "buttonControl") ~typ:(returning id) +let contentTintColor self = msg_send ~self ~cmd:(selector "contentTintColor") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithUIButtonRepesentable x self = msg_send ~self ~cmd:(selector "initWithUIButtonRepesentable:") ~typ:(id @-> returning id) x +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let setAttributedTitle x ~forState self = msg_send ~self ~cmd:(selector "setAttributedTitle:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBridge x self = msg_send ~self ~cmd:(selector "setBridge:") ~typ:(id @-> returning void) x +let setButton x self = msg_send ~self ~cmd:(selector "setButton:") ~typ:(id @-> returning void) x +let setButtonControl x self = msg_send ~self ~cmd:(selector "setButtonControl:") ~typ:(id @-> returning void) x +let setButtonRole x self = msg_send ~self ~cmd:(selector "setButtonRole:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setContentTintColor x self = msg_send ~self ~cmd:(selector "setContentTintColor:") ~typ:(id @-> returning void) x +let setContextMenuIsPrimary x self = msg_send ~self ~cmd:(selector "setContextMenuIsPrimary:") ~typ:(bool @-> returning void) x +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setImage x ~forState self = msg_send ~self ~cmd:(selector "setImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setSymbolConfiguration x self = msg_send ~self ~cmd:(selector "setSymbolConfiguration:") ~typ:(id @-> returning void) x +let setTitle x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setTitle' x ~orAttributedTitle ~forState self = msg_send ~self ~cmd:(selector "setTitle:orAttributedTitle:forState:") ~typ:(id @-> id @-> ullong @-> returning void) x orAttributedTitle (ULLong.of_int forState) +let setUIImageSymbolConfiguration x self = msg_send ~self ~cmd:(selector "setUIImageSymbolConfiguration:") ~typ:(id @-> returning void) x +let setUIMenu x self = msg_send ~self ~cmd:(selector "setUIMenu:") ~typ:(id @-> returning void) x +let trackingBeganAction x self = msg_send ~self ~cmd:(selector "trackingBeganAction:") ~typ:(id @-> returning void) x +let trackingDraggingEnterAction x self = msg_send ~self ~cmd:(selector "trackingDraggingEnterAction:") ~typ:(id @-> returning void) x +let trackingDraggingExitedAction x self = msg_send ~self ~cmd:(selector "trackingDraggingExitedAction:") ~typ:(id @-> returning void) x +let trackingEndedInsideAction x self = msg_send ~self ~cmd:(selector "trackingEndedInsideAction:") ~typ:(id @-> returning void) x +let trackingEndedOutsideAction x self = msg_send ~self ~cmd:(selector "trackingEndedOutsideAction:") ~typ:(id @-> returning void) x +let trackingInsideAction x self = msg_send ~self ~cmd:(selector "trackingInsideAction:") ~typ:(id @-> returning void) x +let trackingOutsideAction x self = msg_send ~self ~cmd:(selector "trackingOutsideAction:") ~typ:(id @-> returning void) x +let willPopUpNotification x self = msg_send ~self ~cmd:(selector "willPopUpNotification:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIButtonMacVisualElementClass.ml b/uikit_extra/UIButtonMacVisualElementClass.ml new file mode 100644 index 00000000..2cc9a32e --- /dev/null +++ b/uikit_extra/UIButtonMacVisualElementClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibuttonmacvisualelement?language=objc}UIButtonMacVisualElement} *) + +let nsControlForMenuAndNonConfigurationButtons x self = msg_send ~self ~cmd:(selector "nsControlForMenuAndNonConfigurationButtons:") ~typ:(id @-> returning id) x +let visualElementForUIButton x self = msg_send ~self ~cmd:(selector "visualElementForUIButton:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIButtonMacVisualProvider.ml b/uikit_extra/UIButtonMacVisualProvider.ml new file mode 100644 index 00000000..ec846089 --- /dev/null +++ b/uikit_extra/UIButtonMacVisualProvider.ml @@ -0,0 +1,41 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibuttonmacvisualprovider?language=objc}UIButtonMacVisualProvider} *) + +let self = get_class "UIButtonMacVisualProvider" + +let applyConfiguration self = msg_send ~self ~cmd:(selector "applyConfiguration") ~typ:(returning void) +let automaticallyUpdateConfigurationIfNecessary x self = msg_send ~self ~cmd:(selector "automaticallyUpdateConfigurationIfNecessary:") ~typ:(id @-> returning void) x +let baselineOffsetsAtSize x self = msg_send ~self ~cmd:(selector "baselineOffsetsAtSize:") ~typ:(CGSize.t @-> returning void) x +let hasBaseline self = msg_send ~self ~cmd:(selector "hasBaseline") ~typ:(returning bool) +let hasMultilineText self = msg_send ~self ~cmd:(selector "hasMultilineText") ~typ:(returning bool) +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let intrinsicSizeWithinSize x self = msg_send ~self ~cmd:(selector "intrinsicSizeWithinSize:") ~typ:(CGSize.t @-> returning CGSize.t) x +let invalidateLayoutData self = msg_send ~self ~cmd:(selector "invalidateLayoutData") ~typ:(returning void) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let previousFirstBaselineOffsetForAttributeLowering self = msg_send ~self ~cmd:(selector "previousFirstBaselineOffsetForAttributeLowering") ~typ:(returning double) +let previousLastBaselineOffsetForAttributeLowering self = msg_send ~self ~cmd:(selector "previousLastBaselineOffsetForAttributeLowering") ~typ:(returning double) +let resetSavedCornerPadding self = msg_send ~self ~cmd:(selector "resetSavedCornerPadding") ~typ:(returning void) +let setAttributedTitle x ~forState self = msg_send ~self ~cmd:(selector "setAttributedTitle:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setNeedsUpdateConfiguration self = msg_send ~self ~cmd:(selector "setNeedsUpdateConfiguration") ~typ:(returning void) +let setPreviousFirstBaselineOffsetForAttributeLowering x self = msg_send ~self ~cmd:(selector "setPreviousFirstBaselineOffsetForAttributeLowering:") ~typ:(double @-> returning void) x +let setPreviousLastBaselineOffsetForAttributeLowering x self = msg_send ~self ~cmd:(selector "setPreviousLastBaselineOffsetForAttributeLowering:") ~typ:(double @-> returning void) x +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setTitle x ~forState self = msg_send ~self ~cmd:(selector "setTitle:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setVendsBaselineInformationToAutoLayout x self = msg_send ~self ~cmd:(selector "setVendsBaselineInformationToAutoLayout:") ~typ:(bool @-> returning void) x +let setWidthForMultilineTextLayout x self = msg_send ~self ~cmd:(selector "setWidthForMultilineTextLayout:") ~typ:(double @-> returning void) x +let subtitleViewCreateIfNeeded x self = msg_send ~self ~cmd:(selector "subtitleViewCreateIfNeeded:") ~typ:(bool @-> returning id) x +let systemLayoutSizeFittingSize x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning CGSize.t) x withHorizontalFittingPriority verticalFittingPriority +let updateBaselineInformationDependentOnBounds self = msg_send ~self ~cmd:(selector "updateBaselineInformationDependentOnBounds") ~typ:(returning void) +let updateConfigurationIfNecessary self = msg_send ~self ~cmd:(selector "updateConfigurationIfNecessary") ~typ:(returning void) +let vendsBaselineInformationToAutoLayout self = msg_send ~self ~cmd:(selector "vendsBaselineInformationToAutoLayout") ~typ:(returning bool) +let widthForMultilineTextLayout self = msg_send ~self ~cmd:(selector "widthForMultilineTextLayout") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIButtonMacVisualProviderClass.ml b/uikit_extra/UIButtonMacVisualProviderClass.ml new file mode 100644 index 00000000..f12f07c0 --- /dev/null +++ b/uikit_extra/UIButtonMacVisualProviderClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uibuttonmacvisualprovider?language=objc}UIButtonMacVisualProvider} *) + +let visualProviderForButton x self = msg_send ~self ~cmd:(selector "visualProviderForButton:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UICachedDeviceRGBColor.ml b/uikit_extra/UICachedDeviceRGBColor.ml new file mode 100644 index 00000000..cfa32141 --- /dev/null +++ b/uikit_extra/UICachedDeviceRGBColor.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicacheddevicergbcolor?language=objc}UICachedDeviceRGBColor} *) + +let self = get_class "UICachedDeviceRGBColor" + +let allowsWeakReference self = msg_send ~self ~cmd:(selector "allowsWeakReference") ~typ:(returning bool) +let autorelease self = msg_send ~self ~cmd:(selector "autorelease") ~typ:(returning id) +let copy self = msg_send ~self ~cmd:(selector "copy") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let release self = msg_send ~self ~cmd:(selector "release") ~typ:(returning void) +let retain self = msg_send ~self ~cmd:(selector "retain") ~typ:(returning id) +let retainCount self = msg_send ~self ~cmd:(selector "retainCount") ~typ:(returning ullong) +let retainWeakReference self = msg_send ~self ~cmd:(selector "retainWeakReference") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UICachedDeviceWhiteColor.ml b/uikit_extra/UICachedDeviceWhiteColor.ml new file mode 100644 index 00000000..54156f5a --- /dev/null +++ b/uikit_extra/UICachedDeviceWhiteColor.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicacheddevicewhitecolor?language=objc}UICachedDeviceWhiteColor} *) + +let self = get_class "UICachedDeviceWhiteColor" + +let allowsWeakReference self = msg_send ~self ~cmd:(selector "allowsWeakReference") ~typ:(returning bool) +let autorelease self = msg_send ~self ~cmd:(selector "autorelease") ~typ:(returning id) +let copy self = msg_send ~self ~cmd:(selector "copy") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let release self = msg_send ~self ~cmd:(selector "release") ~typ:(returning void) +let retain self = msg_send ~self ~cmd:(selector "retain") ~typ:(returning id) +let retainCount self = msg_send ~self ~cmd:(selector "retainCount") ~typ:(returning ullong) +let retainWeakReference self = msg_send ~self ~cmd:(selector "retainWeakReference") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UICachedPatternCGColor.ml b/uikit_extra/UICachedPatternCGColor.ml new file mode 100644 index 00000000..3422b101 --- /dev/null +++ b/uikit_extra/UICachedPatternCGColor.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicachedpatterncgcolor?language=objc}UICachedPatternCGColor} *) + +let self = get_class "UICachedPatternCGColor" + +let allowsWeakReference self = msg_send ~self ~cmd:(selector "allowsWeakReference") ~typ:(returning bool) +let autorelease self = msg_send ~self ~cmd:(selector "autorelease") ~typ:(returning id) +let copy self = msg_send ~self ~cmd:(selector "copy") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let release self = msg_send ~self ~cmd:(selector "release") ~typ:(returning void) +let retain self = msg_send ~self ~cmd:(selector "retain") ~typ:(returning id) +let retainCount self = msg_send ~self ~cmd:(selector "retainCount") ~typ:(returning ullong) +let retainWeakReference self = msg_send ~self ~cmd:(selector "retainWeakReference") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UICarPlayApplicationSceneSettings.ml b/uikit_extra/UICarPlayApplicationSceneSettings.ml deleted file mode 100644 index d944abd0..00000000 --- a/uikit_extra/UICarPlayApplicationSceneSettings.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UICarPlayApplicationSceneSettings" - -let disableFiveRowKeyboards self = msg_send ~self ~cmd:(selector "disableFiveRowKeyboards") ~typ:(returning (bool)) -let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit_extra/UICellAccessoryCustomView.ml b/uikit_extra/UICellAccessoryCustomView.ml new file mode 100644 index 00000000..12eae935 --- /dev/null +++ b/uikit_extra/UICellAccessoryCustomView.ml @@ -0,0 +1,26 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessorycustomview?language=objc}UICellAccessoryCustomView} *) + +let self = get_class "UICellAccessoryCustomView" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let customView self = msg_send ~self ~cmd:(selector "customView") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithCustomView x ~placement self = msg_send ~self ~cmd:(selector "initWithCustomView:placement:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int placement) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let maintainsFixedSize self = msg_send ~self ~cmd:(selector "maintainsFixedSize") ~typ:(returning bool) +let placement self = msg_send ~self ~cmd:(selector "placement") ~typ:(returning llong) +let position self = msg_send ~self ~cmd:(selector "position") ~typ:(returning (ptr void)) +let setMaintainsFixedSize x self = msg_send ~self ~cmd:(selector "setMaintainsFixedSize:") ~typ:(bool @-> returning void) x +let setPosition x self = msg_send ~self ~cmd:(selector "setPosition:") ~typ:((ptr void) @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UICellAccessoryCustomViewClass.ml b/uikit_extra/UICellAccessoryCustomViewClass.ml new file mode 100644 index 00000000..6ba15eed --- /dev/null +++ b/uikit_extra/UICellAccessoryCustomViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessorycustomview?language=objc}UICellAccessoryCustomView} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UICellAccessoryDelete.ml b/uikit_extra/UICellAccessoryDelete.ml new file mode 100644 index 00000000..ed0ff6d4 --- /dev/null +++ b/uikit_extra/UICellAccessoryDelete.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessorydelete?language=objc}UICellAccessoryDelete} *) + +let self = get_class "UICellAccessoryDelete" + +let actionHandler self = msg_send ~self ~cmd:(selector "actionHandler") ~typ:(returning (ptr void)) +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let setActionHandler x self = msg_send ~self ~cmd:(selector "setActionHandler:") ~typ:((ptr void) @-> returning void) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UICellAccessoryDeleteClass.ml b/uikit_extra/UICellAccessoryDeleteClass.ml new file mode 100644 index 00000000..5efcbcb6 --- /dev/null +++ b/uikit_extra/UICellAccessoryDeleteClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessorydelete?language=objc}UICellAccessoryDelete} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UICellAccessoryDetail.ml b/uikit_extra/UICellAccessoryDetail.ml new file mode 100644 index 00000000..709af708 --- /dev/null +++ b/uikit_extra/UICellAccessoryDetail.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessorydetail?language=objc}UICellAccessoryDetail} *) + +let self = get_class "UICellAccessoryDetail" + +let actionHandler self = msg_send ~self ~cmd:(selector "actionHandler") ~typ:(returning (ptr void)) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let setActionHandler x self = msg_send ~self ~cmd:(selector "setActionHandler:") ~typ:((ptr void) @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UICellAccessoryDetailClass.ml b/uikit_extra/UICellAccessoryDetailClass.ml new file mode 100644 index 00000000..3a1a8e22 --- /dev/null +++ b/uikit_extra/UICellAccessoryDetailClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessorydetail?language=objc}UICellAccessoryDetail} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UICellAccessoryInsert.ml b/uikit_extra/UICellAccessoryInsert.ml new file mode 100644 index 00000000..b0396e1c --- /dev/null +++ b/uikit_extra/UICellAccessoryInsert.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessoryinsert?language=objc}UICellAccessoryInsert} *) + +let self = get_class "UICellAccessoryInsert" + +let actionHandler self = msg_send ~self ~cmd:(selector "actionHandler") ~typ:(returning (ptr void)) +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let setActionHandler x self = msg_send ~self ~cmd:(selector "setActionHandler:") ~typ:((ptr void) @-> returning void) x +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UICellAccessoryInsertClass.ml b/uikit_extra/UICellAccessoryInsertClass.ml new file mode 100644 index 00000000..2d6b6af3 --- /dev/null +++ b/uikit_extra/UICellAccessoryInsertClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessoryinsert?language=objc}UICellAccessoryInsert} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UICellAccessoryLabel.ml b/uikit_extra/UICellAccessoryLabel.ml new file mode 100644 index 00000000..19bbee9a --- /dev/null +++ b/uikit_extra/UICellAccessoryLabel.ml @@ -0,0 +1,25 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessorylabel?language=objc}UICellAccessoryLabel} *) + +let self = get_class "UICellAccessoryLabel" + +let adjustsFontForContentSizeCategory self = msg_send ~self ~cmd:(selector "adjustsFontForContentSizeCategory") ~typ:(returning bool) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithText x self = msg_send ~self ~cmd:(selector "initWithText:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let setAdjustsFontForContentSizeCategory x self = msg_send ~self ~cmd:(selector "setAdjustsFontForContentSizeCategory:") ~typ:(bool @-> returning void) x +let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning void) x +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UICellAccessoryLabelClass.ml b/uikit_extra/UICellAccessoryLabelClass.ml new file mode 100644 index 00000000..e776ddde --- /dev/null +++ b/uikit_extra/UICellAccessoryLabelClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessorylabel?language=objc}UICellAccessoryLabel} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UICellAccessoryManager.ml b/uikit_extra/UICellAccessoryManager.ml new file mode 100644 index 00000000..bdf7bfb5 --- /dev/null +++ b/uikit_extra/UICellAccessoryManager.ml @@ -0,0 +1,49 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessorymanager?language=objc}UICellAccessoryManager} *) + +let self = get_class "UICellAccessoryManager" + +let accessoryViews self = msg_send ~self ~cmd:(selector "accessoryViews") ~typ:(returning id) +let configurations self = msg_send ~self ~cmd:(selector "configurations") ~typ:(returning id) +let containerBounds self = msg_send ~self ~cmd:(selector "containerBounds") ~typ:(returning CGRect.t) +let containerSize self = msg_send ~self ~cmd:(selector "containerSize") ~typ:(returning CGSize.t) +let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning id) +let contentFrame self = msg_send ~self ~cmd:(selector "contentFrame") ~typ:(returning CGRect.t) +let contentInset self = msg_send ~self ~cmd:(selector "contentInset") ~typ:(returning UIEdgeInsets.t) +let currentConfiguration self = msg_send ~self ~cmd:(selector "currentConfiguration") ~typ:(returning id) +let currentConfigurationIdentifier self = msg_send ~self ~cmd:(selector "currentConfigurationIdentifier") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let disclosureLayoutWidthProvider self = msg_send ~self ~cmd:(selector "disclosureLayoutWidthProvider") ~typ:(returning (ptr void)) +let initWithContainerView x self = msg_send ~self ~cmd:(selector "initWithContainerView:") ~typ:(id @-> returning id) x +let layoutIfNeeded self = msg_send ~self ~cmd:(selector "layoutIfNeeded") ~typ:(returning void) +let leadingLayout self = msg_send ~self ~cmd:(selector "leadingLayout") ~typ:(returning id) +let needsLayout self = msg_send ~self ~cmd:(selector "needsLayout") ~typ:(returning bool) +let performWithEnforcedContainerSize x ~block self = msg_send ~self ~cmd:(selector "performWithEnforcedContainerSize:block:") ~typ:(CGSize.t @-> (ptr void) @-> returning void) x block +let previousConfiguration self = msg_send ~self ~cmd:(selector "previousConfiguration") ~typ:(returning id) +let previousContainerSize self = msg_send ~self ~cmd:(selector "previousContainerSize") ~typ:(returning CGSize.t) +let safeAreaInsets self = msg_send ~self ~cmd:(selector "safeAreaInsets") ~typ:(returning UIEdgeInsets.t) +let setAccessoryViews x self = msg_send ~self ~cmd:(selector "setAccessoryViews:") ~typ:(id @-> returning void) x +let setConfigurations x self = msg_send ~self ~cmd:(selector "setConfigurations:") ~typ:(id @-> returning void) x +let setContainerView x self = msg_send ~self ~cmd:(selector "setContainerView:") ~typ:(id @-> returning void) x +let setCurrentConfigurationIdentifier x self = msg_send ~self ~cmd:(selector "setCurrentConfigurationIdentifier:") ~typ:(id @-> returning void) x +let setDisclosureLayoutWidthProvider x self = msg_send ~self ~cmd:(selector "setDisclosureLayoutWidthProvider:") ~typ:((ptr void) @-> returning void) x +let setLeadingLayout x self = msg_send ~self ~cmd:(selector "setLeadingLayout:") ~typ:(id @-> returning void) x +let setNeedsLayout self = msg_send ~self ~cmd:(selector "setNeedsLayout") ~typ:(returning void) +let setNeedsLayout' x self = msg_send ~self ~cmd:(selector "setNeedsLayout:") ~typ:(bool @-> returning void) x +let setPreviousConfiguration x self = msg_send ~self ~cmd:(selector "setPreviousConfiguration:") ~typ:(id @-> returning void) x +let setPreviousContainerSize x self = msg_send ~self ~cmd:(selector "setPreviousContainerSize:") ~typ:(CGSize.t @-> returning void) x +let setSafeAreaInsets x self = msg_send ~self ~cmd:(selector "setSafeAreaInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setStandardLayoutWidthProvider x self = msg_send ~self ~cmd:(selector "setStandardLayoutWidthProvider:") ~typ:((ptr void) @-> returning void) x +let setTrailingLayout x self = msg_send ~self ~cmd:(selector "setTrailingLayout:") ~typ:(id @-> returning void) x +let standardLayoutWidthProvider self = msg_send ~self ~cmd:(selector "standardLayoutWidthProvider") ~typ:(returning (ptr void)) +let trailingLayout self = msg_send ~self ~cmd:(selector "trailingLayout") ~typ:(returning id) +let updateContainerView x self = msg_send ~self ~cmd:(selector "updateContainerView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UICellAccessoryMultiselect.ml b/uikit_extra/UICellAccessoryMultiselect.ml new file mode 100644 index 00000000..b4fa7f4c --- /dev/null +++ b/uikit_extra/UICellAccessoryMultiselect.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessorymultiselect?language=objc}UICellAccessoryMultiselect} *) + +let self = get_class "UICellAccessoryMultiselect" + +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UICellAccessoryMultiselectClass.ml b/uikit_extra/UICellAccessoryMultiselectClass.ml new file mode 100644 index 00000000..8746b0cf --- /dev/null +++ b/uikit_extra/UICellAccessoryMultiselectClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessorymultiselect?language=objc}UICellAccessoryMultiselect} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UICellAccessoryOutlineDisclosure.ml b/uikit_extra/UICellAccessoryOutlineDisclosure.ml new file mode 100644 index 00000000..e620f48a --- /dev/null +++ b/uikit_extra/UICellAccessoryOutlineDisclosure.ml @@ -0,0 +1,24 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessoryoutlinedisclosure?language=objc}UICellAccessoryOutlineDisclosure} *) + +let self = get_class "UICellAccessoryOutlineDisclosure" + +let actionHandler self = msg_send ~self ~cmd:(selector "actionHandler") ~typ:(returning (ptr void)) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let rotationAngle self = msg_send ~self ~cmd:(selector "rotationAngle") ~typ:(returning double) +let setActionHandler x self = msg_send ~self ~cmd:(selector "setActionHandler:") ~typ:((ptr void) @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit_extra/UICellAccessoryOutlineDisclosureClass.ml b/uikit_extra/UICellAccessoryOutlineDisclosureClass.ml new file mode 100644 index 00000000..31b3f932 --- /dev/null +++ b/uikit_extra/UICellAccessoryOutlineDisclosureClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessoryoutlinedisclosure?language=objc}UICellAccessoryOutlineDisclosure} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UICellAccessoryReorder.ml b/uikit_extra/UICellAccessoryReorder.ml new file mode 100644 index 00000000..2b945915 --- /dev/null +++ b/uikit_extra/UICellAccessoryReorder.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessoryreorder?language=objc}UICellAccessoryReorder} *) + +let self = get_class "UICellAccessoryReorder" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let setShowsVerticalSeparator x self = msg_send ~self ~cmd:(selector "setShowsVerticalSeparator:") ~typ:(bool @-> returning void) x +let showsVerticalSeparator self = msg_send ~self ~cmd:(selector "showsVerticalSeparator") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UICellAccessoryReorderClass.ml b/uikit_extra/UICellAccessoryReorderClass.ml new file mode 100644 index 00000000..0e88e9e2 --- /dev/null +++ b/uikit_extra/UICellAccessoryReorderClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellaccessoryreorder?language=objc}UICellAccessoryReorder} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UICellConfigurationState.ml b/uikit_extra/UICellConfigurationState.ml new file mode 100644 index 00000000..d28cc1fa --- /dev/null +++ b/uikit_extra/UICellConfigurationState.ml @@ -0,0 +1,30 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellconfigurationstate?language=objc}UICellConfigurationState} *) + +let self = get_class "UICellConfigurationState" + +let cellDragState self = msg_send ~self ~cmd:(selector "cellDragState") ~typ:(returning llong) +let cellDropState self = msg_send ~self ~cmd:(selector "cellDropState") ~typ:(returning llong) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isExpanded self = msg_send ~self ~cmd:(selector "isExpanded") ~typ:(returning bool) +let isReordering self = msg_send ~self ~cmd:(selector "isReordering") ~typ:(returning bool) +let isSwiped self = msg_send ~self ~cmd:(selector "isSwiped") ~typ:(returning bool) +let setCellDragState x self = msg_send ~self ~cmd:(selector "setCellDragState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCellDropState x self = msg_send ~self ~cmd:(selector "setCellDropState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning void) x +let setExpanded x self = msg_send ~self ~cmd:(selector "setExpanded:") ~typ:(bool @-> returning void) x +let setReordering x self = msg_send ~self ~cmd:(selector "setReordering:") ~typ:(bool @-> returning void) x +let setSwiped x self = msg_send ~self ~cmd:(selector "setSwiped:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UICellConfigurationStateClass.ml b/uikit_extra/UICellConfigurationStateClass.ml new file mode 100644 index 00000000..2e61429b --- /dev/null +++ b/uikit_extra/UICellConfigurationStateClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellconfigurationstate?language=objc}UICellConfigurationState} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UICellHighlightingSupport.ml b/uikit_extra/UICellHighlightingSupport.ml new file mode 100644 index 00000000..c3c93b67 --- /dev/null +++ b/uikit_extra/UICellHighlightingSupport.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicellhighlightingsupport?language=objc}UICellHighlightingSupport} *) + +let self = get_class "UICellHighlightingSupport" + +let applyState x ~toView self = msg_send ~self ~cmd:(selector "applyState:toView:") ~typ:(ullong @-> id @-> returning void) (ULLong.of_int x) toView +let cacheState x ~forView self = msg_send ~self ~cmd:(selector "cacheState:forView:") ~typ:(ullong @-> id @-> returning void) (ULLong.of_int x) forView +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let highlightView x self = msg_send ~self ~cmd:(selector "highlightView:") ~typ:(id @-> returning void) x +let initWithCell x self = msg_send ~self ~cmd:(selector "initWithCell:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UICollectionViewCompositionalLayout.ml b/uikit_extra/UICollectionViewCompositionalLayout.ml new file mode 100644 index 00000000..adb687ce --- /dev/null +++ b/uikit_extra/UICollectionViewCompositionalLayout.ml @@ -0,0 +1,85 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewcompositionallayout?language=objc}UICollectionViewCompositionalLayout} *) + +let self = get_class "UICollectionViewCompositionalLayout" + +let boundarySupplementaryItems self = msg_send ~self ~cmd:(selector "boundarySupplementaryItems") ~typ:(returning id) +let canBeEdited self = msg_send ~self ~cmd:(selector "canBeEdited") ~typ:(returning bool) +let collectionViewContentSize self = msg_send ~self ~cmd:(selector "collectionViewContentSize") ~typ:(returning CGSize.t) +let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning id) +let contentFrame self = msg_send ~self ~cmd:(selector "contentFrame") ~typ:(returning CGRect.t) +let currentResolveResult self = msg_send ~self ~cmd:(selector "currentResolveResult") ~typ:(returning id) +let currentUpdate self = msg_send ~self ~cmd:(selector "currentUpdate") ~typ:(returning id) +let dataSourceSnapshotter self = msg_send ~self ~cmd:(selector "dataSourceSnapshotter") ~typ:(returning id) +let deferredLastInvalidationNextInvalidationRequiresFullResolve self = msg_send ~self ~cmd:(selector "deferredLastInvalidationNextInvalidationRequiresFullResolve") ~typ:(returning bool) +let defersInitialSolveUntilPrepare self = msg_send ~self ~cmd:(selector "defersInitialSolveUntilPrepare") ~typ:(returning bool) +let dynamicsConfigurationHandler self = msg_send ~self ~cmd:(selector "dynamicsConfigurationHandler") ~typ:(returning (ptr void)) +let edgesForSafeAreaPropagation self = msg_send ~self ~cmd:(selector "edgesForSafeAreaPropagation") ~typ:(returning ullong) +let finalLayoutAttributesForDisappearingDecorationElementOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForDisappearingDecorationElementOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let finalLayoutAttributesForDisappearingItemAtIndexPath x self = msg_send ~self ~cmd:(selector "finalLayoutAttributesForDisappearingItemAtIndexPath:") ~typ:(id @-> returning id) x +let indexPathsToDeleteForDecorationViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToDeleteForDecorationViewOfKind:") ~typ:(id @-> returning id) x +let indexPathsToDeleteForSupplementaryViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToDeleteForSupplementaryViewOfKind:") ~typ:(id @-> returning id) x +let indexPathsToInsertForDecorationViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToInsertForDecorationViewOfKind:") ~typ:(id @-> returning id) x +let indexPathsToInsertForSupplementaryViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToInsertForSupplementaryViewOfKind:") ~typ:(id @-> returning id) x +let initWithLayoutSection x self = msg_send ~self ~cmd:(selector "initWithLayoutSection:") ~typ:(id @-> returning id) x +let initWithLayoutSection' x ~scrollDirection self = msg_send ~self ~cmd:(selector "initWithLayoutSection:scrollDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int scrollDirection) +let initWithSection x self = msg_send ~self ~cmd:(selector "initWithSection:") ~typ:(id @-> returning id) x +let initWithSection1 x ~configuration self = msg_send ~self ~cmd:(selector "initWithSection:configuration:") ~typ:(id @-> id @-> returning id) x configuration +let initWithSection2 x ~sectionProvider ~configuration self = msg_send ~self ~cmd:(selector "initWithSection:sectionProvider:configuration:") ~typ:(id @-> (ptr void) @-> id @-> returning id) x sectionProvider configuration +let initWithSectionProvider x self = msg_send ~self ~cmd:(selector "initWithSectionProvider:") ~typ:((ptr void) @-> returning id) x +let initWithSectionProvider' x ~configuration self = msg_send ~self ~cmd:(selector "initWithSectionProvider:configuration:") ~typ:((ptr void) @-> id @-> returning id) x configuration +let invalidateLayoutWithContext x self = msg_send ~self ~cmd:(selector "invalidateLayoutWithContext:") ~typ:(id @-> returning void) x +let invalidationContextForBoundsChange x self = msg_send ~self ~cmd:(selector "invalidationContextForBoundsChange:") ~typ:(CGRect.t @-> returning id) x +let invalidationContextForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "invalidationContextForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning id) x withOriginalAttributes +let isEditing self = msg_send ~self ~cmd:(selector "isEditing") ~typ:(returning bool) +let isInUpdateVisibleCellsPass self = msg_send ~self ~cmd:(selector "isInUpdateVisibleCellsPass") ~typ:(returning bool) +let layoutAttributesForDecorationViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForDecorationViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning id) x +let layoutAttributesForInteractivelyMovingItemAtIndexPath x ~withTargetPosition self = msg_send ~self ~cmd:(selector "layoutAttributesForInteractivelyMovingItemAtIndexPath:withTargetPosition:") ~typ:(id @-> CGPoint.t @-> returning id) x withTargetPosition +let layoutAttributesForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:") ~typ:(id @-> returning id) x +let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let layoutRTL self = msg_send ~self ~cmd:(selector "layoutRTL") ~typ:(returning bool) +let layoutSectionProvider self = msg_send ~self ~cmd:(selector "layoutSectionProvider") ~typ:(returning (ptr void)) +let layoutSectionTemplate self = msg_send ~self ~cmd:(selector "layoutSectionTemplate") ~typ:(returning id) +let memoizedDynamicAnimatorWorldAdjustingInsets self = msg_send ~self ~cmd:(selector "memoizedDynamicAnimatorWorldAdjustingInsets") ~typ:(returning UIEdgeInsets.t) +let memoizedPreviousLayoutMargins self = msg_send ~self ~cmd:(selector "memoizedPreviousLayoutMargins") ~typ:(returning UIEdgeInsets.t) +let memoizedPreviousSolvedViewBoundsSize self = msg_send ~self ~cmd:(selector "memoizedPreviousSolvedViewBoundsSize") ~typ:(returning CGSize.t) +let prepareLayout self = msg_send ~self ~cmd:(selector "prepareLayout") ~typ:(returning void) +let roundsToScreenScale self = msg_send ~self ~cmd:(selector "roundsToScreenScale") ~typ:(returning bool) +let scrollDirection self = msg_send ~self ~cmd:(selector "scrollDirection") ~typ:(returning llong) +let setBoundarySupplementaryItems x self = msg_send ~self ~cmd:(selector "setBoundarySupplementaryItems:") ~typ:(id @-> returning void) x +let setConfiguration x self = msg_send ~self ~cmd:(selector "setConfiguration:") ~typ:(id @-> returning void) x +let setContentFrame x self = msg_send ~self ~cmd:(selector "setContentFrame:") ~typ:(CGRect.t @-> returning void) x +let setCurrentResolveResult x self = msg_send ~self ~cmd:(selector "setCurrentResolveResult:") ~typ:(id @-> returning void) x +let setCurrentUpdate x self = msg_send ~self ~cmd:(selector "setCurrentUpdate:") ~typ:(id @-> returning void) x +let setDataSourceSnapshotter x self = msg_send ~self ~cmd:(selector "setDataSourceSnapshotter:") ~typ:(id @-> returning void) x +let setDeferredLastInvalidationNextInvalidationRequiresFullResolve x self = msg_send ~self ~cmd:(selector "setDeferredLastInvalidationNextInvalidationRequiresFullResolve:") ~typ:(bool @-> returning void) x +let setDefersInitialSolveUntilPrepare x self = msg_send ~self ~cmd:(selector "setDefersInitialSolveUntilPrepare:") ~typ:(bool @-> returning void) x +let setDynamicsConfigurationHandler x self = msg_send ~self ~cmd:(selector "setDynamicsConfigurationHandler:") ~typ:((ptr void) @-> returning void) x +let setEdgesForSafeAreaPropagation x self = msg_send ~self ~cmd:(selector "setEdgesForSafeAreaPropagation:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setEditing x self = msg_send ~self ~cmd:(selector "setEditing:") ~typ:(bool @-> returning void) x +let setIsInUpdateVisibleCellsPass x self = msg_send ~self ~cmd:(selector "setIsInUpdateVisibleCellsPass:") ~typ:(bool @-> returning void) x +let setLayoutRTL x self = msg_send ~self ~cmd:(selector "setLayoutRTL:") ~typ:(bool @-> returning void) x +let setLayoutSectionProvider x self = msg_send ~self ~cmd:(selector "setLayoutSectionProvider:") ~typ:((ptr void) @-> returning void) x +let setLayoutSectionTemplate x self = msg_send ~self ~cmd:(selector "setLayoutSectionTemplate:") ~typ:(id @-> returning void) x +let setMemoizedDynamicAnimatorWorldAdjustingInsets x self = msg_send ~self ~cmd:(selector "setMemoizedDynamicAnimatorWorldAdjustingInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setMemoizedPreviousLayoutMargins x self = msg_send ~self ~cmd:(selector "setMemoizedPreviousLayoutMargins:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setMemoizedPreviousSolvedViewBoundsSize x self = msg_send ~self ~cmd:(selector "setMemoizedPreviousSolvedViewBoundsSize:") ~typ:(CGSize.t @-> returning void) x +let setRoundsToScreenScale x self = msg_send ~self ~cmd:(selector "setRoundsToScreenScale:") ~typ:(bool @-> returning void) x +let setShouldAdjustContentInsetModeForCollectionViewNeverMode x self = msg_send ~self ~cmd:(selector "setShouldAdjustContentInsetModeForCollectionViewNeverMode:") ~typ:(bool @-> returning void) x +let setSolver x self = msg_send ~self ~cmd:(selector "setSolver:") ~typ:(id @-> returning void) x +let setUpdateVisibleCellsContext x self = msg_send ~self ~cmd:(selector "setUpdateVisibleCellsContext:") ~typ:(id @-> returning void) x +let shouldAdjustContentInsetModeForCollectionViewNeverMode self = msg_send ~self ~cmd:(selector "shouldAdjustContentInsetModeForCollectionViewNeverMode") ~typ:(returning bool) +let shouldInvalidateLayoutForBoundsChange x self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForBoundsChange:") ~typ:(CGRect.t @-> returning bool) x +let shouldInvalidateLayoutForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning bool) x withOriginalAttributes +let solver self = msg_send ~self ~cmd:(selector "solver") ~typ:(returning id) +let updateVisibleCellsContext self = msg_send ~self ~cmd:(selector "updateVisibleCellsContext") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UICollectionViewCompositionalLayoutClass.ml b/uikit_extra/UICollectionViewCompositionalLayoutClass.ml new file mode 100644 index 00000000..f0e66ea8 --- /dev/null +++ b/uikit_extra/UICollectionViewCompositionalLayoutClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewcompositionallayout?language=objc}UICollectionViewCompositionalLayout} *) + +let layoutWithListConfiguration x self = msg_send ~self ~cmd:(selector "layoutWithListConfiguration:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UICollectionViewCompositionalLayoutConfiguration.ml b/uikit_extra/UICollectionViewCompositionalLayoutConfiguration.ml new file mode 100644 index 00000000..017d8220 --- /dev/null +++ b/uikit_extra/UICollectionViewCompositionalLayoutConfiguration.ml @@ -0,0 +1,26 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewcompositionallayoutconfiguration?language=objc}UICollectionViewCompositionalLayoutConfiguration} *) + +let self = get_class "UICollectionViewCompositionalLayoutConfiguration" + +let boundarySupplementaryItems self = msg_send ~self ~cmd:(selector "boundarySupplementaryItems") ~typ:(returning id) +let contentInsetsReference self = msg_send ~self ~cmd:(selector "contentInsetsReference") ~typ:(returning llong) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let differencesFromConfiguration x self = msg_send ~self ~cmd:(selector "differencesFromConfiguration:") ~typ:(id @-> returning ullong) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithScrollDirection x ~interSectionSpacing ~boundarySupplememtaryItems ~contentInsetsReference self = msg_send ~self ~cmd:(selector "initWithScrollDirection:interSectionSpacing:boundarySupplememtaryItems:contentInsetsReference:") ~typ:(llong @-> double @-> id @-> llong @-> returning id) (LLong.of_int x) interSectionSpacing boundarySupplememtaryItems (LLong.of_int contentInsetsReference) +let interSectionSpacing self = msg_send ~self ~cmd:(selector "interSectionSpacing") ~typ:(returning double) +let scrollDirection self = msg_send ~self ~cmd:(selector "scrollDirection") ~typ:(returning llong) +let setBoundarySupplementaryItems x self = msg_send ~self ~cmd:(selector "setBoundarySupplementaryItems:") ~typ:(id @-> returning void) x +let setContentInsetsReference x self = msg_send ~self ~cmd:(selector "setContentInsetsReference:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setInterSectionSpacing x self = msg_send ~self ~cmd:(selector "setInterSectionSpacing:") ~typ:(double @-> returning void) x +let setScrollDirection x self = msg_send ~self ~cmd:(selector "setScrollDirection:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UICollectionViewCompositionalLayoutConfigurationClass.ml b/uikit_extra/UICollectionViewCompositionalLayoutConfigurationClass.ml new file mode 100644 index 00000000..a4ae9774 --- /dev/null +++ b/uikit_extra/UICollectionViewCompositionalLayoutConfigurationClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewcompositionallayoutconfiguration?language=objc}UICollectionViewCompositionalLayoutConfiguration} *) + +let defaultConfiguration self = msg_send ~self ~cmd:(selector "defaultConfiguration") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UICollectionViewControllerWrapperView.ml b/uikit_extra/UICollectionViewControllerWrapperView.ml new file mode 100644 index 00000000..6b52eb93 --- /dev/null +++ b/uikit_extra/UICollectionViewControllerWrapperView.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewcontrollerwrapperview?language=objc}UICollectionViewControllerWrapperView} *) + +let self = get_class "UICollectionViewControllerWrapperView" + +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UICollectionViewDiffableDataSourceReorderingHandlers.ml b/uikit_extra/UICollectionViewDiffableDataSourceReorderingHandlers.ml new file mode 100644 index 00000000..968f7a81 --- /dev/null +++ b/uikit_extra/UICollectionViewDiffableDataSourceReorderingHandlers.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewdiffabledatasourcereorderinghandlers?language=objc}UICollectionViewDiffableDataSourceReorderingHandlers} *) + +let self = get_class "UICollectionViewDiffableDataSourceReorderingHandlers" + +let canReorderItemHandler self = msg_send ~self ~cmd:(selector "canReorderItemHandler") ~typ:(returning (ptr void)) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let didReorderHandler self = msg_send ~self ~cmd:(selector "didReorderHandler") ~typ:(returning (ptr void)) +let initWithCanReorderItemHandler x ~willReorderItemHandler ~didReorderItemHandler self = msg_send ~self ~cmd:(selector "initWithCanReorderItemHandler:willReorderItemHandler:didReorderItemHandler:") ~typ:((ptr void) @-> (ptr void) @-> (ptr void) @-> returning id) x willReorderItemHandler didReorderItemHandler +let setCanReorderItemHandler x self = msg_send ~self ~cmd:(selector "setCanReorderItemHandler:") ~typ:((ptr void) @-> returning void) x +let setDidReorderHandler x self = msg_send ~self ~cmd:(selector "setDidReorderHandler:") ~typ:((ptr void) @-> returning void) x +let setWillReorderHandler x self = msg_send ~self ~cmd:(selector "setWillReorderHandler:") ~typ:((ptr void) @-> returning void) x +let willReorderHandler self = msg_send ~self ~cmd:(selector "willReorderHandler") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/uikit_extra/UICollectionViewDiffableDataSourceSectionSnapshotHandlers.ml b/uikit_extra/UICollectionViewDiffableDataSourceSectionSnapshotHandlers.ml new file mode 100644 index 00000000..5a52cf43 --- /dev/null +++ b/uikit_extra/UICollectionViewDiffableDataSourceSectionSnapshotHandlers.ml @@ -0,0 +1,26 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewdiffabledatasourcesectionsnapshothandlers?language=objc}UICollectionViewDiffableDataSourceSectionSnapshotHandlers} *) + +let self = get_class "UICollectionViewDiffableDataSourceSectionSnapshotHandlers" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let initWithShouldExpandItemHandler x ~willExpandItemHandler ~shouldCollapseItemHandler ~willCollapseItemHandler ~snapshotForExpandingParentItemHandler self = msg_send ~self ~cmd:(selector "initWithShouldExpandItemHandler:willExpandItemHandler:shouldCollapseItemHandler:willCollapseItemHandler:snapshotForExpandingParentItemHandler:") ~typ:((ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> returning id) x willExpandItemHandler shouldCollapseItemHandler willCollapseItemHandler snapshotForExpandingParentItemHandler +let setShouldCollapseItemHandler x self = msg_send ~self ~cmd:(selector "setShouldCollapseItemHandler:") ~typ:((ptr void) @-> returning void) x +let setShouldExpandItemHandler x self = msg_send ~self ~cmd:(selector "setShouldExpandItemHandler:") ~typ:((ptr void) @-> returning void) x +let setSnapshotForExpandingParentItemHandler x self = msg_send ~self ~cmd:(selector "setSnapshotForExpandingParentItemHandler:") ~typ:((ptr void) @-> returning void) x +let setWillCollapseItemHandler x self = msg_send ~self ~cmd:(selector "setWillCollapseItemHandler:") ~typ:((ptr void) @-> returning void) x +let setWillExpandItemHandler x self = msg_send ~self ~cmd:(selector "setWillExpandItemHandler:") ~typ:((ptr void) @-> returning void) x +let shouldCollapseItemHandler self = msg_send ~self ~cmd:(selector "shouldCollapseItemHandler") ~typ:(returning (ptr void)) +let shouldExpandItemHandler self = msg_send ~self ~cmd:(selector "shouldExpandItemHandler") ~typ:(returning (ptr void)) +let snapshotForExpandingParentItemHandler self = msg_send ~self ~cmd:(selector "snapshotForExpandingParentItemHandler") ~typ:(returning (ptr void)) +let willCollapseItemHandler self = msg_send ~self ~cmd:(selector "willCollapseItemHandler") ~typ:(returning (ptr void)) +let willExpandItemHandler self = msg_send ~self ~cmd:(selector "willExpandItemHandler") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/uikit_extra/UICollectionViewFlowLayoutInvalidationContext.ml b/uikit_extra/UICollectionViewFlowLayoutInvalidationContext.ml new file mode 100644 index 00000000..f52e627f --- /dev/null +++ b/uikit_extra/UICollectionViewFlowLayoutInvalidationContext.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewflowlayoutinvalidationcontext?language=objc}UICollectionViewFlowLayoutInvalidationContext} *) + +let self = get_class "UICollectionViewFlowLayoutInvalidationContext" + +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let invalidateFlowLayoutAttributes self = msg_send ~self ~cmd:(selector "invalidateFlowLayoutAttributes") ~typ:(returning bool) +let invalidateFlowLayoutDelegateMetrics self = msg_send ~self ~cmd:(selector "invalidateFlowLayoutDelegateMetrics") ~typ:(returning bool) +let setInvalidateFlowLayoutAttributes x self = msg_send ~self ~cmd:(selector "setInvalidateFlowLayoutAttributes:") ~typ:(bool @-> returning void) x +let setInvalidateFlowLayoutDelegateMetrics x self = msg_send ~self ~cmd:(selector "setInvalidateFlowLayoutDelegateMetrics:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UICollectionViewLayoutInvalidationContext.ml b/uikit_extra/UICollectionViewLayoutInvalidationContext.ml new file mode 100644 index 00000000..24e80c71 --- /dev/null +++ b/uikit_extra/UICollectionViewLayoutInvalidationContext.ml @@ -0,0 +1,29 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewlayoutinvalidationcontext?language=objc}UICollectionViewLayoutInvalidationContext} *) + +let self = get_class "UICollectionViewLayoutInvalidationContext" + +let contentOffsetAdjustment self = msg_send ~self ~cmd:(selector "contentOffsetAdjustment") ~typ:(returning CGPoint.t) +let contentSizeAdjustment self = msg_send ~self ~cmd:(selector "contentSizeAdjustment") ~typ:(returning CGSize.t) +let interactiveMovementTarget self = msg_send ~self ~cmd:(selector "interactiveMovementTarget") ~typ:(returning CGPoint.t) +let invalidateDataSourceCounts self = msg_send ~self ~cmd:(selector "invalidateDataSourceCounts") ~typ:(returning bool) +let invalidateDecorationElementsOfKind x ~atIndexPaths self = msg_send ~self ~cmd:(selector "invalidateDecorationElementsOfKind:atIndexPaths:") ~typ:(id @-> id @-> returning void) x atIndexPaths +let invalidateEverything self = msg_send ~self ~cmd:(selector "invalidateEverything") ~typ:(returning bool) +let invalidateItemsAtIndexPaths x self = msg_send ~self ~cmd:(selector "invalidateItemsAtIndexPaths:") ~typ:(id @-> returning void) x +let invalidateSupplementaryElementsOfKind x ~atIndexPaths self = msg_send ~self ~cmd:(selector "invalidateSupplementaryElementsOfKind:atIndexPaths:") ~typ:(id @-> id @-> returning void) x atIndexPaths +let invalidatedDecorationIndexPaths self = msg_send ~self ~cmd:(selector "invalidatedDecorationIndexPaths") ~typ:(returning id) +let invalidatedItemIndexPaths self = msg_send ~self ~cmd:(selector "invalidatedItemIndexPaths") ~typ:(returning id) +let invalidatedSupplementaryIndexPaths self = msg_send ~self ~cmd:(selector "invalidatedSupplementaryIndexPaths") ~typ:(returning id) +let previousIndexPathsForInteractivelyMovingItems self = msg_send ~self ~cmd:(selector "previousIndexPathsForInteractivelyMovingItems") ~typ:(returning id) +let setContentOffsetAdjustment x self = msg_send ~self ~cmd:(selector "setContentOffsetAdjustment:") ~typ:(CGPoint.t @-> returning void) x +let setContentSizeAdjustment x self = msg_send ~self ~cmd:(selector "setContentSizeAdjustment:") ~typ:(CGSize.t @-> returning void) x +let targetIndexPathsForInteractivelyMovingItems self = msg_send ~self ~cmd:(selector "targetIndexPathsForInteractivelyMovingItems") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UICollectionViewSupplementaryRegistration.ml b/uikit_extra/UICollectionViewSupplementaryRegistration.ml new file mode 100644 index 00000000..227f7c60 --- /dev/null +++ b/uikit_extra/UICollectionViewSupplementaryRegistration.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewsupplementaryregistration?language=objc}UICollectionViewSupplementaryRegistration} *) + +let self = get_class "UICollectionViewSupplementaryRegistration" + +let configurationHandler self = msg_send ~self ~cmd:(selector "configurationHandler") ~typ:(returning (ptr void)) +let elementKind self = msg_send ~self ~cmd:(selector "elementKind") ~typ:(returning id) +let hasSupplementaryClass self = msg_send ~self ~cmd:(selector "hasSupplementaryClass") ~typ:(returning bool) +let hasSupplementaryNib self = msg_send ~self ~cmd:(selector "hasSupplementaryNib") ~typ:(returning bool) +let initWithSupplementaryClass x ~supplementaryNib ~elementKind ~configurationHandler ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithSupplementaryClass:supplementaryNib:elementKind:configurationHandler:reuseIdentifier:") ~typ:(_Class @-> id @-> id @-> (ptr void) @-> id @-> returning id) x supplementaryNib elementKind configurationHandler reuseIdentifier +let reuseIdentifier self = msg_send ~self ~cmd:(selector "reuseIdentifier") ~typ:(returning id) +let supplementaryClass self = msg_send ~self ~cmd:(selector "supplementaryClass") ~typ:(returning _Class) +let supplementaryNib self = msg_send ~self ~cmd:(selector "supplementaryNib") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UICollectionViewSupplementaryRegistrationClass.ml b/uikit_extra/UICollectionViewSupplementaryRegistrationClass.ml new file mode 100644 index 00000000..802d6974 --- /dev/null +++ b/uikit_extra/UICollectionViewSupplementaryRegistrationClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewsupplementaryregistration?language=objc}UICollectionViewSupplementaryRegistration} *) + +let registrationWithSupplementaryClass x ~elementKind ~configurationHandler self = msg_send ~self ~cmd:(selector "registrationWithSupplementaryClass:elementKind:configurationHandler:") ~typ:(_Class @-> id @-> (ptr void) @-> returning id) x elementKind configurationHandler +let registrationWithSupplementaryNib x ~elementKind ~configurationHandler self = msg_send ~self ~cmd:(selector "registrationWithSupplementaryNib:elementKind:configurationHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning id) x elementKind configurationHandler \ No newline at end of file diff --git a/uikit_extra/UICollectionViewTableHeaderFooterView.ml b/uikit_extra/UICollectionViewTableHeaderFooterView.ml new file mode 100644 index 00000000..4dbb95b7 --- /dev/null +++ b/uikit_extra/UICollectionViewTableHeaderFooterView.ml @@ -0,0 +1,33 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewtableheaderfooterview?language=objc}UICollectionViewTableHeaderFooterView} *) + +let self = get_class "UICollectionViewTableHeaderFooterView" + +let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning void) x +let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning id) +let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning id) +let detailTextLabel self = msg_send ~self ~cmd:(selector "detailTextLabel") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let floating self = msg_send ~self ~cmd:(selector "floating") ~typ:(returning bool) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithReuseIdentifier x self = msg_send ~self ~cmd:(selector "initWithReuseIdentifier:") ~typ:(id @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let preferredLayoutAttributesFittingAttributes x self = msg_send ~self ~cmd:(selector "preferredLayoutAttributesFittingAttributes:") ~typ:(id @-> returning id) x +let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning void) +let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning void) x +let setFloating x self = msg_send ~self ~cmd:(selector "setFloating:") ~typ:(bool @-> returning void) x +let setTableViewHeaderFooterView x self = msg_send ~self ~cmd:(selector "setTableViewHeaderFooterView:") ~typ:(id @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let tableViewHeaderFooterView self = msg_send ~self ~cmd:(selector "tableViewHeaderFooterView") ~typ:(returning id) +let textLabel self = msg_send ~self ~cmd:(selector "textLabel") ~typ:(returning id) +let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UICollectionViewTableLayoutInvalidationContext.ml b/uikit_extra/UICollectionViewTableLayoutInvalidationContext.ml new file mode 100644 index 00000000..6f8d50ae --- /dev/null +++ b/uikit_extra/UICollectionViewTableLayoutInvalidationContext.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicollectionviewtablelayoutinvalidationcontext?language=objc}UICollectionViewTableLayoutInvalidationContext} *) + +let self = get_class "UICollectionViewTableLayoutInvalidationContext" + +let invalidateTableLayoutDelegateMetrics self = msg_send ~self ~cmd:(selector "invalidateTableLayoutDelegateMetrics") ~typ:(returning bool) +let setInvalidateTableLayoutDelegateMetrics x self = msg_send ~self ~cmd:(selector "setInvalidateTableLayoutDelegateMetrics:") ~typ:(bool @-> returning void) x +let setSkipSectionInvalidation x self = msg_send ~self ~cmd:(selector "setSkipSectionInvalidation:") ~typ:(bool @-> returning void) x +let skipSectionInvalidation self = msg_send ~self ~cmd:(selector "skipSectionInvalidation") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UICompatibilityInputViewController.ml b/uikit_extra/UICompatibilityInputViewController.ml new file mode 100644 index 00000000..52c2f41c --- /dev/null +++ b/uikit_extra/UICompatibilityInputViewController.ml @@ -0,0 +1,56 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicompatibilityinputviewcontroller?language=objc}UICompatibilityInputViewController} *) + +let self = get_class "UICompatibilityInputViewController" + +let addSnapshotViewForInputMode x self = msg_send ~self ~cmd:(selector "addSnapshotViewForInputMode:") ~typ:(id @-> returning void) x +let assertCurrentInputModeIfNecessary self = msg_send ~self ~cmd:(selector "assertCurrentInputModeIfNecessary") ~typ:(returning void) +let blinkAssertion self = msg_send ~self ~cmd:(selector "blinkAssertion") ~typ:(returning id) +let childCompatibilityController self = msg_send ~self ~cmd:(selector "childCompatibilityController") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didFinishTranslation self = msg_send ~self ~cmd:(selector "didFinishTranslation") ~typ:(returning void) +let didMoveToParentViewController x self = msg_send ~self ~cmd:(selector "didMoveToParentViewController:") ~typ:(id @-> returning void) x +let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let didSuspend x self = msg_send ~self ~cmd:(selector "didSuspend:") ~typ:(id @-> returning void) x +let finishSplitTransition x self = msg_send ~self ~cmd:(selector "finishSplitTransition:") ~typ:(bool @-> returning void) x +let focusSafeAreaLayoutGuide self = msg_send ~self ~cmd:(selector "focusSafeAreaLayoutGuide") ~typ:(returning id) +let generateCompatibleSizeConstraintsIfNecessary self = msg_send ~self ~cmd:(selector "generateCompatibleSizeConstraintsIfNecessary") ~typ:(returning void) +let inputController self = msg_send ~self ~cmd:(selector "inputController") ~typ:(returning id) +let internalEdgeMatchConstraints self = msg_send ~self ~cmd:(selector "internalEdgeMatchConstraints") ~typ:(returning id) +let isHosted x self = msg_send ~self ~cmd:(selector "isHosted:") ~typ:(id @-> returning void) x +let keyboardWillChangeFromDelegate x ~toDelegate self = msg_send ~self ~cmd:(selector "keyboardWillChangeFromDelegate:toDelegate:") ~typ:(id @-> id @-> returning void) x toDelegate +let killIncomingExtension self = msg_send ~self ~cmd:(selector "killIncomingExtension") ~typ:(returning void) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let rebuildChildConstraints self = msg_send ~self ~cmd:(selector "rebuildChildConstraints") ~typ:(returning void) +let removeSnapshotView self = msg_send ~self ~cmd:(selector "removeSnapshotView") ~typ:(returning void) +let resetInputMode self = msg_send ~self ~cmd:(selector "resetInputMode") ~typ:(returning void) +let resetInputModeInMainThread self = msg_send ~self ~cmd:(selector "resetInputModeInMainThread") ~typ:(returning void) +let setBlinkAssertion x self = msg_send ~self ~cmd:(selector "setBlinkAssertion:") ~typ:(id @-> returning void) x +let setDeferredSystemView x self = msg_send ~self ~cmd:(selector "setDeferredSystemView:") ~typ:(id @-> returning void) x +let setInputController x self = msg_send ~self ~cmd:(selector "setInputController:") ~typ:(id @-> returning void) x +let setInputMode x self = msg_send ~self ~cmd:(selector "setInputMode:") ~typ:(id @-> returning void) x +let setInternalEdgeMatchConstraints x self = msg_send ~self ~cmd:(selector "setInternalEdgeMatchConstraints:") ~typ:(id @-> returning void) x +let setTearingDownInputController self = msg_send ~self ~cmd:(selector "setTearingDownInputController") ~typ:(returning void) +let shouldAutomaticallyForwardAppearanceMethods self = msg_send ~self ~cmd:(selector "shouldAutomaticallyForwardAppearanceMethods") ~typ:(returning bool) +let shouldAutomaticallyForwardRotationMethods self = msg_send ~self ~cmd:(selector "shouldAutomaticallyForwardRotationMethods") ~typ:(returning bool) +let shouldUpdateInputMode x self = msg_send ~self ~cmd:(selector "shouldUpdateInputMode:") ~typ:(id @-> returning void) x +let takeSnapshotView self = msg_send ~self ~cmd:(selector "takeSnapshotView") ~typ:(returning void) +let tearDownInputController self = msg_send ~self ~cmd:(selector "tearDownInputController") ~typ:(returning void) +let validateInputModeIsDisplayed self = msg_send ~self ~cmd:(selector "validateInputModeIsDisplayed") ~typ:(returning void) +let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willBeginTranslation self = msg_send ~self ~cmd:(selector "willBeginTranslation") ~typ:(returning void) +let willResume x self = msg_send ~self ~cmd:(selector "willResume:") ~typ:(id @-> returning void) x +let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration \ No newline at end of file diff --git a/uikit_extra/UICompatibilityInputViewControllerClass.ml b/uikit_extra/UICompatibilityInputViewControllerClass.ml new file mode 100644 index 00000000..b5ff1e6c --- /dev/null +++ b/uikit_extra/UICompatibilityInputViewControllerClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicompatibilityinputviewcontroller?language=objc}UICompatibilityInputViewController} *) + +let applicationDidReceiveMemoryWarning x self = msg_send ~self ~cmd:(selector "applicationDidReceiveMemoryWarning:") ~typ:(id @-> returning void) x +let deferredInputModeControllerWithKeyboard x self = msg_send ~self ~cmd:(selector "deferredInputModeControllerWithKeyboard:") ~typ:(id @-> returning id) x +let inputSnapshotViewForInputMode x ~orientation self = msg_send ~self ~cmd:(selector "inputSnapshotViewForInputMode:orientation:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int orientation) +let inputViewControllerWithView x self = msg_send ~self ~cmd:(selector "inputViewControllerWithView:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UICompatibilityPredictiveViewController.ml b/uikit_extra/UICompatibilityPredictiveViewController.ml new file mode 100644 index 00000000..66b25d35 --- /dev/null +++ b/uikit_extra/UICompatibilityPredictiveViewController.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicompatibilitypredictiveviewcontroller?language=objc}UICompatibilityPredictiveViewController} *) + +let self = get_class "UICompatibilityPredictiveViewController" + +let customView self = msg_send ~self ~cmd:(selector "customView") ~typ:(returning id) +let displayedCandidates self = msg_send ~self ~cmd:(selector "displayedCandidates") ~typ:(returning id) +let hidesExpandableButton self = msg_send ~self ~cmd:(selector "hidesExpandableButton") ~typ:(returning bool) +let isVisibleForInputDelegate x ~inputViews self = msg_send ~self ~cmd:(selector "isVisibleForInputDelegate:inputViews:") ~typ:(id @-> id @-> returning bool) x inputViews +let preferredHeightForTraitCollection x self = msg_send ~self ~cmd:(selector "preferredHeightForTraitCollection:") ~typ:(id @-> returning double) x +let setCustomView x self = msg_send ~self ~cmd:(selector "setCustomView:") ~typ:(id @-> returning void) x +let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIContentSizeCategoryPreference.ml b/uikit_extra/UIContentSizeCategoryPreference.ml new file mode 100644 index 00000000..cdb759dd --- /dev/null +++ b/uikit_extra/UIContentSizeCategoryPreference.ml @@ -0,0 +1,26 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicontentsizecategorypreference?language=objc}UIContentSizeCategoryPreference} *) + +let self = get_class "UIContentSizeCategoryPreference" + +let checkForChanges self = msg_send ~self ~cmd:(selector "checkForChanges") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithContentSizeCategory x self = msg_send ~self ~cmd:(selector "initWithContentSizeCategory:") ~typ:(id @-> returning id) x +let initWithContentSizeCategory' x ~carPlay self = msg_send ~self ~cmd:(selector "initWithContentSizeCategory:carPlay:") ~typ:(id @-> id @-> returning id) x carPlay +let initWithRawUserDefaults self = msg_send ~self ~cmd:(selector "initWithRawUserDefaults") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let preferredContentSizeCategory self = msg_send ~self ~cmd:(selector "preferredContentSizeCategory") ~typ:(returning id) +let preferredContentSizeCategoryCarPlay self = msg_send ~self ~cmd:(selector "preferredContentSizeCategoryCarPlay") ~typ:(returning id) +let setPreferredContentSizeCategory x self = msg_send ~self ~cmd:(selector "setPreferredContentSizeCategory:") ~typ:(id @-> returning void) x +let setPreferredContentSizeCategoryCarPlay x self = msg_send ~self ~cmd:(selector "setPreferredContentSizeCategoryCarPlay:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIContentSizeCategoryPreferenceClass.ml b/uikit_extra/UIContentSizeCategoryPreferenceClass.ml new file mode 100644 index 00000000..b1f25eff --- /dev/null +++ b/uikit_extra/UIContentSizeCategoryPreferenceClass.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uicontentsizecategorypreference?language=objc}UIContentSizeCategoryPreference} *) + +let asyncOverrideSystemWithPreference x self = msg_send ~self ~cmd:(selector "asyncOverrideSystemWithPreference:") ~typ:(id @-> returning void) x +let asyncResetSystemPreferenceOverride self = msg_send ~self ~cmd:(selector "asyncResetSystemPreferenceOverride") ~typ:(returning void) +let overrideSystemWithPreference x self = msg_send ~self ~cmd:(selector "overrideSystemWithPreference:") ~typ:(id @-> returning void) x +let overrideSystemWithPreference' x ~forBlock self = msg_send ~self ~cmd:(selector "overrideSystemWithPreference:forBlock:") ~typ:(id @-> (ptr void) @-> returning void) x forBlock +let resetSystemPreferenceOverride self = msg_send ~self ~cmd:(selector "resetSystemPreferenceOverride") ~typ:(returning void) +let system self = msg_send ~self ~cmd:(selector "system") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIDOMHTMLOptGroupCell.ml b/uikit_extra/UIDOMHTMLOptGroupCell.ml index ba7f4399..3271f803 100644 --- a/uikit_extra/UIDOMHTMLOptGroupCell.ml +++ b/uikit_extra/UIDOMHTMLOptGroupCell.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDOMHTMLOptGroupCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidomhtmloptgroupcell?language=objc}UIDOMHTMLOptGroupCell} *) -let initWithHTMLOptGroupNode x self = msg_send ~self ~cmd:(selector "initWithHTMLOptGroupNode:") ~typ:(id @-> returning (id)) x -let labelWidthForBounds x self = msg_send ~self ~cmd:(selector "labelWidthForBounds:") ~typ:(CGRect.t @-> returning (double)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIDOMHTMLOptGroupCell" + +let initWithHTMLOptGroupNode x self = msg_send ~self ~cmd:(selector "initWithHTMLOptGroupNode:") ~typ:(id @-> returning id) x +let labelWidthForBounds x self = msg_send ~self ~cmd:(selector "labelWidthForBounds:") ~typ:(CGRect.t @-> returning double) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIDOMHTMLOptGroupSelectedItem.ml b/uikit_extra/UIDOMHTMLOptGroupSelectedItem.ml index 8abce2f3..e1b1b69e 100644 --- a/uikit_extra/UIDOMHTMLOptGroupSelectedItem.ml +++ b/uikit_extra/UIDOMHTMLOptGroupSelectedItem.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDOMHTMLOptGroupSelectedItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidomhtmloptgroupselecteditem?language=objc}UIDOMHTMLOptGroupSelectedItem} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithHTMLOptGroupNode x self = msg_send ~self ~cmd:(selector "initWithHTMLOptGroupNode:") ~typ:(id @-> returning (id)) x -let isGroup self = msg_send ~self ~cmd:(selector "isGroup") ~typ:(returning (bool)) -let node self = msg_send ~self ~cmd:(selector "node") ~typ:(returning (id)) -let selected self = msg_send ~self ~cmd:(selector "selected") ~typ:(returning (bool)) -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let unselect self = msg_send ~self ~cmd:(selector "unselect") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIDOMHTMLOptGroupSelectedItem" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithHTMLOptGroupNode x self = msg_send ~self ~cmd:(selector "initWithHTMLOptGroupNode:") ~typ:(id @-> returning id) x +let isGroup self = msg_send ~self ~cmd:(selector "isGroup") ~typ:(returning bool) +let node self = msg_send ~self ~cmd:(selector "node") ~typ:(returning id) +let selected self = msg_send ~self ~cmd:(selector "selected") ~typ:(returning bool) +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let unselect self = msg_send ~self ~cmd:(selector "unselect") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIDOMHTMLOptionPickerCell.ml b/uikit_extra/UIDOMHTMLOptionPickerCell.ml index eb41b318..9ff1b483 100644 --- a/uikit_extra/UIDOMHTMLOptionPickerCell.ml +++ b/uikit_extra/UIDOMHTMLOptionPickerCell.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDOMHTMLOptionPickerCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidomhtmloptionpickercell?language=objc}UIDOMHTMLOptionPickerCell} *) -let disabled self = msg_send ~self ~cmd:(selector "disabled") ~typ:(returning (bool)) -let initCommon self = msg_send ~self ~cmd:(selector "initCommon") ~typ:(returning (id)) -let initWithHTMLOptionNode x self = msg_send ~self ~cmd:(selector "initWithHTMLOptionNode:") ~typ:(id @-> returning (id)) x -let setDisabled x self = msg_send ~self ~cmd:(selector "setDisabled:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIDOMHTMLOptionPickerCell" + +let disabled self = msg_send ~self ~cmd:(selector "disabled") ~typ:(returning bool) +let initCommon self = msg_send ~self ~cmd:(selector "initCommon") ~typ:(returning id) +let initWithHTMLOptionNode x self = msg_send ~self ~cmd:(selector "initWithHTMLOptionNode:") ~typ:(id @-> returning id) x +let setDisabled x self = msg_send ~self ~cmd:(selector "setDisabled:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIDOMHTMLOptionSelectedItem.ml b/uikit_extra/UIDOMHTMLOptionSelectedItem.ml index 93118506..ac9a557f 100644 --- a/uikit_extra/UIDOMHTMLOptionSelectedItem.ml +++ b/uikit_extra/UIDOMHTMLOptionSelectedItem.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDOMHTMLOptionSelectedItem" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidomhtmloptionselecteditem?language=objc}UIDOMHTMLOptionSelectedItem} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithHTMLOptionNode x self = msg_send ~self ~cmd:(selector "initWithHTMLOptionNode:") ~typ:(id @-> returning (id)) x -let isGroup self = msg_send ~self ~cmd:(selector "isGroup") ~typ:(returning (bool)) -let node self = msg_send ~self ~cmd:(selector "node") ~typ:(returning (id)) -let selected self = msg_send ~self ~cmd:(selector "selected") ~typ:(returning (bool)) -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let unselect self = msg_send ~self ~cmd:(selector "unselect") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIDOMHTMLOptionSelectedItem" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithHTMLOptionNode x self = msg_send ~self ~cmd:(selector "initWithHTMLOptionNode:") ~typ:(id @-> returning id) x +let isGroup self = msg_send ~self ~cmd:(selector "isGroup") ~typ:(returning bool) +let node self = msg_send ~self ~cmd:(selector "node") ~typ:(returning id) +let selected self = msg_send ~self ~cmd:(selector "selected") ~typ:(returning bool) +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let unselect self = msg_send ~self ~cmd:(selector "unselect") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationContainerView.ml b/uikit_extra/UIDebuggingInformationContainerView.ml index cec0fac3..e6b8bc56 100644 --- a/uikit_extra/UIDebuggingInformationContainerView.ml +++ b/uikit_extra/UIDebuggingInformationContainerView.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingInformationContainerView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationcontainerview?language=objc}UIDebuggingInformationContainerView} *) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setShadowHidden x self = msg_send ~self ~cmd:(selector "setShadowHidden:") ~typ:(bool @-> returning (void)) x -let shadowHidden self = msg_send ~self ~cmd:(selector "shadowHidden") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIDebuggingInformationContainerView" + +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setShadowHidden x self = msg_send ~self ~cmd:(selector "setShadowHidden:") ~typ:(bool @-> returning void) x +let shadowHidden self = msg_send ~self ~cmd:(selector "shadowHidden") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationHierarchyCell.ml b/uikit_extra/UIDebuggingInformationHierarchyCell.ml index d37cd987..6fee53e3 100644 --- a/uikit_extra/UIDebuggingInformationHierarchyCell.ml +++ b/uikit_extra/UIDebuggingInformationHierarchyCell.ml @@ -5,19 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingInformationHierarchyCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationhierarchycell?language=objc}UIDebuggingInformationHierarchyCell} *) -let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning (void)) x -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let deliverToggle self = msg_send ~self ~cmd:(selector "deliverToggle") ~typ:(returning (void)) -let disclosureIndicatorHidden self = msg_send ~self ~cmd:(selector "disclosureIndicatorHidden") ~typ:(returning (bool)) -let displayDetailsForCell self = msg_send ~self ~cmd:(selector "displayDetailsForCell") ~typ:(returning (void)) -let indexPath self = msg_send ~self ~cmd:(selector "indexPath") ~typ:(returning (id)) -let infoButton self = msg_send ~self ~cmd:(selector "infoButton") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning (void)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDisclosureIndicatorHidden x self = msg_send ~self ~cmd:(selector "setDisclosureIndicatorHidden:") ~typ:(bool @-> returning (void)) x -let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIDebuggingInformationHierarchyCell" + +let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning void) x +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let deliverToggle self = msg_send ~self ~cmd:(selector "deliverToggle") ~typ:(returning void) +let disclosureIndicatorHidden self = msg_send ~self ~cmd:(selector "disclosureIndicatorHidden") ~typ:(returning bool) +let displayDetailsForCell self = msg_send ~self ~cmd:(selector "displayDetailsForCell") ~typ:(returning void) +let indexPath self = msg_send ~self ~cmd:(selector "indexPath") ~typ:(returning id) +let infoButton self = msg_send ~self ~cmd:(selector "infoButton") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) +let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning void) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDisclosureIndicatorHidden x self = msg_send ~self ~cmd:(selector "setDisclosureIndicatorHidden:") ~typ:(bool @-> returning void) x +let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationHierarchyDataContainer.ml b/uikit_extra/UIDebuggingInformationHierarchyDataContainer.ml index a7b5e0c4..96cee6a0 100644 --- a/uikit_extra/UIDebuggingInformationHierarchyDataContainer.ml +++ b/uikit_extra/UIDebuggingInformationHierarchyDataContainer.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingInformationHierarchyDataContainer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationhierarchydatacontainer?language=objc}UIDebuggingInformationHierarchyDataContainer} *) -let collapsed self = msg_send ~self ~cmd:(selector "collapsed") ~typ:(returning (bool)) -let initWithView x ~atLevel self = msg_send ~self ~cmd:(selector "initWithView:atLevel:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int atLevel) -let level self = msg_send ~self ~cmd:(selector "level") ~typ:(returning (llong)) -let setCollapsed x self = msg_send ~self ~cmd:(selector "setCollapsed:") ~typ:(bool @-> returning (void)) x -let setLevel x self = msg_send ~self ~cmd:(selector "setLevel:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIDebuggingInformationHierarchyDataContainer" + +let collapsed self = msg_send ~self ~cmd:(selector "collapsed") ~typ:(returning bool) +let initWithView x ~atLevel self = msg_send ~self ~cmd:(selector "initWithView:atLevel:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int atLevel) +let level self = msg_send ~self ~cmd:(selector "level") ~typ:(returning llong) +let setCollapsed x self = msg_send ~self ~cmd:(selector "setCollapsed:") ~typ:(bool @-> returning void) x +let setLevel x self = msg_send ~self ~cmd:(selector "setLevel:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationHierarchyLayout.ml b/uikit_extra/UIDebuggingInformationHierarchyLayout.ml index d8f53dd5..ab34215a 100644 --- a/uikit_extra/UIDebuggingInformationHierarchyLayout.ml +++ b/uikit_extra/UIDebuggingInformationHierarchyLayout.ml @@ -5,25 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingInformationHierarchyLayout" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationhierarchylayout?language=objc}UIDebuggingInformationHierarchyLayout} *) -module C = struct - let layoutAttributesClass self = msg_send ~self ~cmd:(selector "layoutAttributesClass") ~typ:(returning (_Class)) -end +let self = get_class "UIDebuggingInformationHierarchyLayout" -let allAttributes self = msg_send ~self ~cmd:(selector "allAttributes") ~typ:(returning (id)) -let allLineAttributes self = msg_send ~self ~cmd:(selector "allLineAttributes") ~typ:(returning (id)) -let collectionViewContentSize self = msg_send_stret ~self ~cmd:(selector "collectionViewContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let indexPathsToDeleteForSupplementaryViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToDeleteForSupplementaryViewOfKind:") ~typ:(id @-> returning (id)) x -let invalidateLayout self = msg_send ~self ~cmd:(selector "invalidateLayout") ~typ:(returning (void)) -let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning (id)) x -let layoutAttributesForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:") ~typ:(id @-> returning (id)) x -let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let prepareForCollectionViewUpdates x self = msg_send ~self ~cmd:(selector "prepareForCollectionViewUpdates:") ~typ:(id @-> returning (void)) x -let prepareLayout self = msg_send ~self ~cmd:(selector "prepareLayout") ~typ:(returning (void)) -let setAllAttributes x self = msg_send ~self ~cmd:(selector "setAllAttributes:") ~typ:(id @-> returning (void)) x -let setAllLineAttributes x self = msg_send ~self ~cmd:(selector "setAllLineAttributes:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let shouldInvalidateLayoutForBoundsChange x self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForBoundsChange:") ~typ:(CGRect.t @-> returning (bool)) x \ No newline at end of file +let allAttributes self = msg_send ~self ~cmd:(selector "allAttributes") ~typ:(returning id) +let allLineAttributes self = msg_send ~self ~cmd:(selector "allLineAttributes") ~typ:(returning id) +let collectionViewContentSize self = msg_send ~self ~cmd:(selector "collectionViewContentSize") ~typ:(returning CGSize.t) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let indexPathsToDeleteForSupplementaryViewOfKind x self = msg_send ~self ~cmd:(selector "indexPathsToDeleteForSupplementaryViewOfKind:") ~typ:(id @-> returning id) x +let invalidateLayout self = msg_send ~self ~cmd:(selector "invalidateLayout") ~typ:(returning void) +let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning id) x +let layoutAttributesForItemAtIndexPath x self = msg_send ~self ~cmd:(selector "layoutAttributesForItemAtIndexPath:") ~typ:(id @-> returning id) x +let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let prepareForCollectionViewUpdates x self = msg_send ~self ~cmd:(selector "prepareForCollectionViewUpdates:") ~typ:(id @-> returning void) x +let prepareLayout self = msg_send ~self ~cmd:(selector "prepareLayout") ~typ:(returning void) +let setAllAttributes x self = msg_send ~self ~cmd:(selector "setAllAttributes:") ~typ:(id @-> returning void) x +let setAllLineAttributes x self = msg_send ~self ~cmd:(selector "setAllLineAttributes:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let shouldInvalidateLayoutForBoundsChange x self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForBoundsChange:") ~typ:(CGRect.t @-> returning bool) x \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationHierarchyLayoutAttributes.ml b/uikit_extra/UIDebuggingInformationHierarchyLayoutAttributes.ml index 494fc507..2dac2b2f 100644 --- a/uikit_extra/UIDebuggingInformationHierarchyLayoutAttributes.ml +++ b/uikit_extra/UIDebuggingInformationHierarchyLayoutAttributes.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingInformationHierarchyLayoutAttributes" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationhierarchylayoutattributes?language=objc}UIDebuggingInformationHierarchyLayoutAttributes} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let lineColor self = msg_send ~self ~cmd:(selector "lineColor") ~typ:(returning (id)) -let setLineColor x self = msg_send ~self ~cmd:(selector "setLineColor:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIDebuggingInformationHierarchyLayoutAttributes" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let lineColor self = msg_send ~self ~cmd:(selector "lineColor") ~typ:(returning id) +let setLineColor x self = msg_send ~self ~cmd:(selector "setLineColor:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationHierarchyLayoutClass.ml b/uikit_extra/UIDebuggingInformationHierarchyLayoutClass.ml new file mode 100644 index 00000000..b642cff7 --- /dev/null +++ b/uikit_extra/UIDebuggingInformationHierarchyLayoutClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationhierarchylayout?language=objc}UIDebuggingInformationHierarchyLayout} *) + +let layoutAttributesClass self = msg_send ~self ~cmd:(selector "layoutAttributesClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationHierarchyLineView.ml b/uikit_extra/UIDebuggingInformationHierarchyLineView.ml index de876166..9df7cdc7 100644 --- a/uikit_extra/UIDebuggingInformationHierarchyLineView.ml +++ b/uikit_extra/UIDebuggingInformationHierarchyLineView.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingInformationHierarchyLineView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationhierarchylineview?language=objc}UIDebuggingInformationHierarchyLineView} *) -let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning (void)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIDebuggingInformationHierarchyLineView" + +let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning void) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationHierarchyViewController.ml b/uikit_extra/UIDebuggingInformationHierarchyViewController.ml index 5e72ca02..3f2efae7 100644 --- a/uikit_extra/UIDebuggingInformationHierarchyViewController.ml +++ b/uikit_extra/UIDebuggingInformationHierarchyViewController.ml @@ -5,53 +5,57 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingInformationHierarchyViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationhierarchyviewcontroller?language=objc}UIDebuggingInformationHierarchyViewController} *) -let chooseNewTarget x self = msg_send ~self ~cmd:(selector "chooseNewTarget:") ~typ:(id @-> returning (void)) x -let collapseBeneathCell x self = msg_send ~self ~cmd:(selector "collapseBeneathCell:") ~typ:(id @-> returning (void)) x -let collectionView self = msg_send ~self ~cmd:(selector "collectionView") ~typ:(returning (id)) -let collectionView1 x ~cellForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:cellForItemAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForItemAtIndexPath -let collectionView2 x ~didDeselectItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:didDeselectItemAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didDeselectItemAtIndexPath -let collectionView3 x ~didSelectItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:didSelectItemAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didSelectItemAtIndexPath -let collectionView4 x ~numberOfItemsInSection self = msg_send ~self ~cmd:(selector "collectionView:numberOfItemsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfItemsInSection) -let collectionView5 x ~viewForSupplementaryElementOfKind ~atIndexPath self = msg_send ~self ~cmd:(selector "collectionView:viewForSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> id @-> returning (id)) x viewForSupplementaryElementOfKind atIndexPath -let colorForIndentationLevel x self = msg_send ~self ~cmd:(selector "colorForIndentationLevel:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let controlsForKeys self = msg_send ~self ~cmd:(selector "controlsForKeys") ~typ:(returning (id)) -let data self = msg_send ~self ~cmd:(selector "data") ~typ:(returning (id)) -let detail self = msg_send ~self ~cmd:(selector "detail") ~typ:(returning (id)) -let didReceiveNewView x self = msg_send ~self ~cmd:(selector "didReceiveNewView:") ~typ:(id @-> returning (void)) x -let displayDetailsForCell x self = msg_send ~self ~cmd:(selector "displayDetailsForCell:") ~typ:(id @-> returning (void)) x -let expandBeneathCell x self = msg_send ~self ~cmd:(selector "expandBeneathCell:") ~typ:(id @-> returning (void)) x -let getViewsRecursiveWithLevel x ~forView self = msg_send ~self ~cmd:(selector "getViewsRecursiveWithLevel:forView:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) forView -let highlightView x self = msg_send ~self ~cmd:(selector "highlightView:") ~typ:(id @-> returning (void)) x -let highlightedView self = msg_send ~self ~cmd:(selector "highlightedView") ~typ:(returning (id)) -let indentationLevelForIndexPath x self = msg_send ~self ~cmd:(selector "indentationLevelForIndexPath:") ~typ:(id @-> returning (ullong)) x -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let keys self = msg_send ~self ~cmd:(selector "keys") ~typ:(returning (id)) -let managedValues self = msg_send ~self ~cmd:(selector "managedValues") ~typ:(returning (id)) -let observersForKeys self = msg_send ~self ~cmd:(selector "observersForKeys") ~typ:(returning (id)) -let originalBorderColor self = msg_send ~self ~cmd:(selector "originalBorderColor") ~typ:(returning (ptr void)) -let originalBorderWidth self = msg_send ~self ~cmd:(selector "originalBorderWidth") ~typ:(returning (double)) -let refresh x self = msg_send ~self ~cmd:(selector "refresh:") ~typ:(id @-> returning (void)) x -let refreshControl self = msg_send ~self ~cmd:(selector "refreshControl") ~typ:(returning (id)) -let rootViewForInspection self = msg_send ~self ~cmd:(selector "rootViewForInspection") ~typ:(returning (id)) -let setCollectionView x self = msg_send ~self ~cmd:(selector "setCollectionView:") ~typ:(id @-> returning (void)) x -let setControlsForKeys x self = msg_send ~self ~cmd:(selector "setControlsForKeys:") ~typ:(id @-> returning (void)) x -let setData x self = msg_send ~self ~cmd:(selector "setData:") ~typ:(id @-> returning (void)) x -let setDetail x self = msg_send ~self ~cmd:(selector "setDetail:") ~typ:(id @-> returning (void)) x -let setHighlightedView x self = msg_send ~self ~cmd:(selector "setHighlightedView:") ~typ:(id @-> returning (void)) x -let setKeys x self = msg_send ~self ~cmd:(selector "setKeys:") ~typ:(id @-> returning (void)) x -let setManagedValues x self = msg_send ~self ~cmd:(selector "setManagedValues:") ~typ:(id @-> returning (void)) x -let setObserversForKeys x self = msg_send ~self ~cmd:(selector "setObserversForKeys:") ~typ:(id @-> returning (void)) x -let setOriginalBorderColor x self = msg_send ~self ~cmd:(selector "setOriginalBorderColor:") ~typ:(ptr void @-> returning (void)) x -let setOriginalBorderWidth x self = msg_send ~self ~cmd:(selector "setOriginalBorderWidth:") ~typ:(double @-> returning (void)) x -let setRefreshControl x self = msg_send ~self ~cmd:(selector "setRefreshControl:") ~typ:(id @-> returning (void)) x -let setRootViewForInspection x self = msg_send ~self ~cmd:(selector "setRootViewForInspection:") ~typ:(id @-> returning (void)) x -let shouldCollapseAtIndexPath x self = msg_send ~self ~cmd:(selector "shouldCollapseAtIndexPath:") ~typ:(id @-> returning (bool)) x -let shouldHighlightSelectedCells self = msg_send ~self ~cmd:(selector "shouldHighlightSelectedCells") ~typ:(returning (bool)) -let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning (void)) -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x -let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning (void)) x withTransitionCoordinator \ No newline at end of file +let self = get_class "UIDebuggingInformationHierarchyViewController" + +let chooseNewTarget x self = msg_send ~self ~cmd:(selector "chooseNewTarget:") ~typ:(id @-> returning void) x +let collapseBeneathCell x self = msg_send ~self ~cmd:(selector "collapseBeneathCell:") ~typ:(id @-> returning void) x +let collectionView self = msg_send ~self ~cmd:(selector "collectionView") ~typ:(returning id) +let collectionView1 x ~cellForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:cellForItemAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForItemAtIndexPath +let collectionView2 x ~didDeselectItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:didDeselectItemAtIndexPath:") ~typ:(id @-> id @-> returning void) x didDeselectItemAtIndexPath +let collectionView3 x ~didSelectItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:didSelectItemAtIndexPath:") ~typ:(id @-> id @-> returning void) x didSelectItemAtIndexPath +let collectionView4 x ~numberOfItemsInSection self = msg_send ~self ~cmd:(selector "collectionView:numberOfItemsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfItemsInSection) +let collectionView5 x ~viewForSupplementaryElementOfKind ~atIndexPath self = msg_send ~self ~cmd:(selector "collectionView:viewForSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> id @-> returning id) x viewForSupplementaryElementOfKind atIndexPath +let colorForIndentationLevel x self = msg_send ~self ~cmd:(selector "colorForIndentationLevel:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let controlsForKeys self = msg_send ~self ~cmd:(selector "controlsForKeys") ~typ:(returning id) +let data self = msg_send ~self ~cmd:(selector "data") ~typ:(returning id) +let detail self = msg_send ~self ~cmd:(selector "detail") ~typ:(returning id) +let didReceiveNewView x self = msg_send ~self ~cmd:(selector "didReceiveNewView:") ~typ:(id @-> returning void) x +let displayDetailsForCell x self = msg_send ~self ~cmd:(selector "displayDetailsForCell:") ~typ:(id @-> returning void) x +let expandBeneathCell x self = msg_send ~self ~cmd:(selector "expandBeneathCell:") ~typ:(id @-> returning void) x +let getViewsRecursiveWithLevel x ~forView self = msg_send ~self ~cmd:(selector "getViewsRecursiveWithLevel:forView:") ~typ:(ullong @-> id @-> returning id) (ULLong.of_int x) forView +let highlightView x self = msg_send ~self ~cmd:(selector "highlightView:") ~typ:(id @-> returning void) x +let highlightedView self = msg_send ~self ~cmd:(selector "highlightedView") ~typ:(returning id) +let indentationLevelForIndexPath x self = msg_send ~self ~cmd:(selector "indentationLevelForIndexPath:") ~typ:(id @-> returning ullong) x +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let keys self = msg_send ~self ~cmd:(selector "keys") ~typ:(returning id) +let managedValues self = msg_send ~self ~cmd:(selector "managedValues") ~typ:(returning id) +let observersForKeys self = msg_send ~self ~cmd:(selector "observersForKeys") ~typ:(returning id) +let originalBorderColor self = msg_send ~self ~cmd:(selector "originalBorderColor") ~typ:(returning (ptr CGColor.t)) +let originalBorderWidth self = msg_send ~self ~cmd:(selector "originalBorderWidth") ~typ:(returning double) +let refresh x self = msg_send ~self ~cmd:(selector "refresh:") ~typ:(id @-> returning void) x +let refreshControl self = msg_send ~self ~cmd:(selector "refreshControl") ~typ:(returning id) +let rootViewForInspection self = msg_send ~self ~cmd:(selector "rootViewForInspection") ~typ:(returning id) +let setCollectionView x self = msg_send ~self ~cmd:(selector "setCollectionView:") ~typ:(id @-> returning void) x +let setControlsForKeys x self = msg_send ~self ~cmd:(selector "setControlsForKeys:") ~typ:(id @-> returning void) x +let setData x self = msg_send ~self ~cmd:(selector "setData:") ~typ:(id @-> returning void) x +let setDetail x self = msg_send ~self ~cmd:(selector "setDetail:") ~typ:(id @-> returning void) x +let setHighlightedView x self = msg_send ~self ~cmd:(selector "setHighlightedView:") ~typ:(id @-> returning void) x +let setKeys x self = msg_send ~self ~cmd:(selector "setKeys:") ~typ:(id @-> returning void) x +let setManagedValues x self = msg_send ~self ~cmd:(selector "setManagedValues:") ~typ:(id @-> returning void) x +let setObserversForKeys x self = msg_send ~self ~cmd:(selector "setObserversForKeys:") ~typ:(id @-> returning void) x +let setOriginalBorderColor x self = msg_send ~self ~cmd:(selector "setOriginalBorderColor:") ~typ:((ptr CGColor.t) @-> returning void) x +let setOriginalBorderWidth x self = msg_send ~self ~cmd:(selector "setOriginalBorderWidth:") ~typ:(double @-> returning void) x +let setRefreshControl x self = msg_send ~self ~cmd:(selector "setRefreshControl:") ~typ:(id @-> returning void) x +let setRootViewForInspection x self = msg_send ~self ~cmd:(selector "setRootViewForInspection:") ~typ:(id @-> returning void) x +let shouldCollapseAtIndexPath x self = msg_send ~self ~cmd:(selector "shouldCollapseAtIndexPath:") ~typ:(id @-> returning bool) x +let shouldHighlightSelectedCells self = msg_send ~self ~cmd:(selector "shouldHighlightSelectedCells") ~typ:(returning bool) +let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning void) +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning void) x withTransitionCoordinator \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationInspectorDetailViewController.ml b/uikit_extra/UIDebuggingInformationInspectorDetailViewController.ml index e3c01c64..dc30079d 100644 --- a/uikit_extra/UIDebuggingInformationInspectorDetailViewController.ml +++ b/uikit_extra/UIDebuggingInformationInspectorDetailViewController.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingInformationInspectorDetailViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationinspectordetailviewcontroller?language=objc}UIDebuggingInformationInspectorDetailViewController} *) -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let inspectView x self = msg_send ~self ~cmd:(selector "inspectView:") ~typ:(id @-> returning (void)) x -let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didSelectRowAtIndexPath -let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIDebuggingInformationInspectorDetailViewController" + +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let inspectView x self = msg_send ~self ~cmd:(selector "inspectView:") ~typ:(id @-> returning void) x +let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x didSelectRowAtIndexPath +let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationListTableViewController.ml b/uikit_extra/UIDebuggingInformationListTableViewController.ml index 1036b131..ca422eac 100644 --- a/uikit_extra/UIDebuggingInformationListTableViewController.ml +++ b/uikit_extra/UIDebuggingInformationListTableViewController.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingInformationListTableViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationlisttableviewcontroller?language=objc}UIDebuggingInformationListTableViewController} *) -let addTopLevelViewController x ~forName self = msg_send ~self ~cmd:(selector "addTopLevelViewController:forName:") ~typ:(id @-> id @-> returning (void)) x forName -let initWithStyle x self = msg_send ~self ~cmd:(selector "initWithStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning (llong)) x -let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didSelectRowAtIndexPath -let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let toggleOverlayFullscreen self = msg_send ~self ~cmd:(selector "toggleOverlayFullscreen") ~typ:(returning (void)) -let toggleOverlayVisibility self = msg_send ~self ~cmd:(selector "toggleOverlayVisibility") ~typ:(returning (void)) -let topLevelViewControllerForName x self = msg_send ~self ~cmd:(selector "topLevelViewControllerForName:") ~typ:(id @-> returning (id)) x -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIDebuggingInformationListTableViewController" + +let addTopLevelViewController x ~forName self = msg_send ~self ~cmd:(selector "addTopLevelViewController:forName:") ~typ:(id @-> id @-> returning void) x forName +let initWithStyle x self = msg_send ~self ~cmd:(selector "initWithStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning llong) x +let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x didSelectRowAtIndexPath +let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let toggleOverlayFullscreen self = msg_send ~self ~cmd:(selector "toggleOverlayFullscreen") ~typ:(returning void) +let toggleOverlayVisibility self = msg_send ~self ~cmd:(selector "toggleOverlayVisibility") ~typ:(returning void) +let topLevelViewControllerForName x self = msg_send ~self ~cmd:(selector "topLevelViewControllerForName:") ~typ:(id @-> returning id) x +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationOverlay.ml b/uikit_extra/UIDebuggingInformationOverlay.ml index 972adc8a..9de38df2 100644 --- a/uikit_extra/UIDebuggingInformationOverlay.ml +++ b/uikit_extra/UIDebuggingInformationOverlay.ml @@ -5,33 +5,32 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingInformationOverlay" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationoverlay?language=objc}UIDebuggingInformationOverlay} *) -module C = struct - let overlay self = msg_send ~self ~cmd:(selector "overlay") ~typ:(returning (id)) - let prepareDebuggingOverlay self = msg_send ~self ~cmd:(selector "prepareDebuggingOverlay") ~typ:(returning (void)) -end +let self = get_class "UIDebuggingInformationOverlay" -let checkingTouches self = msg_send ~self ~cmd:(selector "checkingTouches") ~typ:(returning (bool)) -let drawingOrigin self = msg_send_stret ~self ~cmd:(selector "drawingOrigin") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let inspectedWindow self = msg_send ~self ~cmd:(selector "inspectedWindow") ~typ:(returning (id)) -let isFullscreen self = msg_send ~self ~cmd:(selector "isFullscreen") ~typ:(returning (bool)) -let lastTouch self = msg_send ~self ~cmd:(selector "lastTouch") ~typ:(returning (id)) -let overlayViewController self = msg_send ~self ~cmd:(selector "overlayViewController") ~typ:(returning (id)) -let rootTableViewController self = msg_send ~self ~cmd:(selector "rootTableViewController") ~typ:(returning (id)) -let setCheckingTouches x self = msg_send ~self ~cmd:(selector "setCheckingTouches:") ~typ:(bool @-> returning (void)) x -let setDrawingOrigin x self = msg_send ~self ~cmd:(selector "setDrawingOrigin:") ~typ:(CGPoint.t @-> returning (void)) x -let setInspectedWindow x self = msg_send ~self ~cmd:(selector "setInspectedWindow:") ~typ:(id @-> returning (void)) x -let setIsFullscreen x self = msg_send ~self ~cmd:(selector "setIsFullscreen:") ~typ:(bool @-> returning (void)) x -let setLastTouch x self = msg_send ~self ~cmd:(selector "setLastTouch:") ~typ:(id @-> returning (void)) x -let setRootTableViewController x self = msg_send ~self ~cmd:(selector "setRootTableViewController:") ~typ:(id @-> returning (void)) x -let setTouchCaptureEnabled x self = msg_send ~self ~cmd:(selector "setTouchCaptureEnabled:") ~typ:(bool @-> returning (void)) x -let setTouchObservers x self = msg_send ~self ~cmd:(selector "setTouchObservers:") ~typ:(id @-> returning (void)) x -let toggleFullscreen self = msg_send ~self ~cmd:(selector "toggleFullscreen") ~typ:(returning (void)) -let toggleVisibility self = msg_send ~self ~cmd:(selector "toggleVisibility") ~typ:(returning (void)) -let touchCaptureEnabled self = msg_send ~self ~cmd:(selector "touchCaptureEnabled") ~typ:(returning (bool)) -let touchObservers self = msg_send ~self ~cmd:(selector "touchObservers") ~typ:(returning (id)) \ No newline at end of file +let checkingTouches self = msg_send ~self ~cmd:(selector "checkingTouches") ~typ:(returning bool) +let drawingOrigin self = msg_send ~self ~cmd:(selector "drawingOrigin") ~typ:(returning CGPoint.t) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let inspectedWindow self = msg_send ~self ~cmd:(selector "inspectedWindow") ~typ:(returning id) +let isFullscreen self = msg_send ~self ~cmd:(selector "isFullscreen") ~typ:(returning bool) +let lastTouch self = msg_send ~self ~cmd:(selector "lastTouch") ~typ:(returning id) +let overlayViewController self = msg_send ~self ~cmd:(selector "overlayViewController") ~typ:(returning id) +let rootTableViewController self = msg_send ~self ~cmd:(selector "rootTableViewController") ~typ:(returning id) +let setCheckingTouches x self = msg_send ~self ~cmd:(selector "setCheckingTouches:") ~typ:(bool @-> returning void) x +let setDrawingOrigin x self = msg_send ~self ~cmd:(selector "setDrawingOrigin:") ~typ:(CGPoint.t @-> returning void) x +let setInspectedWindow x self = msg_send ~self ~cmd:(selector "setInspectedWindow:") ~typ:(id @-> returning void) x +let setIsFullscreen x self = msg_send ~self ~cmd:(selector "setIsFullscreen:") ~typ:(bool @-> returning void) x +let setLastTouch x self = msg_send ~self ~cmd:(selector "setLastTouch:") ~typ:(id @-> returning void) x +let setRootTableViewController x self = msg_send ~self ~cmd:(selector "setRootTableViewController:") ~typ:(id @-> returning void) x +let setTouchCaptureEnabled x self = msg_send ~self ~cmd:(selector "setTouchCaptureEnabled:") ~typ:(bool @-> returning void) x +let setTouchObservers x self = msg_send ~self ~cmd:(selector "setTouchObservers:") ~typ:(id @-> returning void) x +let toggleFullscreen self = msg_send ~self ~cmd:(selector "toggleFullscreen") ~typ:(returning void) +let toggleVisibility self = msg_send ~self ~cmd:(selector "toggleVisibility") ~typ:(returning void) +let touchCaptureEnabled self = msg_send ~self ~cmd:(selector "touchCaptureEnabled") ~typ:(returning bool) +let touchObservers self = msg_send ~self ~cmd:(selector "touchObservers") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationOverlayClass.ml b/uikit_extra/UIDebuggingInformationOverlayClass.ml new file mode 100644 index 00000000..8e3f2d46 --- /dev/null +++ b/uikit_extra/UIDebuggingInformationOverlayClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationoverlay?language=objc}UIDebuggingInformationOverlay} *) + +let overlay self = msg_send ~self ~cmd:(selector "overlay") ~typ:(returning id) +let prepareDebuggingOverlay self = msg_send ~self ~cmd:(selector "prepareDebuggingOverlay") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationOverlayViewController.ml b/uikit_extra/UIDebuggingInformationOverlayViewController.ml index b92a0e78..963270a9 100644 --- a/uikit_extra/UIDebuggingInformationOverlayViewController.ml +++ b/uikit_extra/UIDebuggingInformationOverlayViewController.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingInformationOverlayViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationoverlayviewcontroller?language=objc}UIDebuggingInformationOverlayViewController} *) -let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning (id)) -let didReceiveGesture x self = msg_send ~self ~cmd:(selector "didReceiveGesture:") ~typ:(id @-> returning (void)) x -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let isFullscreen self = msg_send ~self ~cmd:(selector "isFullscreen") ~typ:(returning (bool)) -let offset self = msg_send_stret ~self ~cmd:(selector "offset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let rootTableViewController self = msg_send ~self ~cmd:(selector "rootTableViewController") ~typ:(returning (id)) -let setIsFullscreen x self = msg_send ~self ~cmd:(selector "setIsFullscreen:") ~typ:(bool @-> returning (void)) x -let setOffset x self = msg_send ~self ~cmd:(selector "setOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let setRootTableViewController x self = msg_send ~self ~cmd:(selector "setRootTableViewController:") ~typ:(id @-> returning (void)) x -let toggleFullscreen self = msg_send ~self ~cmd:(selector "toggleFullscreen") ~typ:(returning (void)) -let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIDebuggingInformationOverlayViewController" + +let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning id) +let didReceiveGesture x self = msg_send ~self ~cmd:(selector "didReceiveGesture:") ~typ:(id @-> returning void) x +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let isFullscreen self = msg_send ~self ~cmd:(selector "isFullscreen") ~typ:(returning bool) +let offset self = msg_send ~self ~cmd:(selector "offset") ~typ:(returning CGPoint.t) +let rootTableViewController self = msg_send ~self ~cmd:(selector "rootTableViewController") ~typ:(returning id) +let setIsFullscreen x self = msg_send ~self ~cmd:(selector "setIsFullscreen:") ~typ:(bool @-> returning void) x +let setOffset x self = msg_send ~self ~cmd:(selector "setOffset:") ~typ:(CGPoint.t @-> returning void) x +let setRootTableViewController x self = msg_send ~self ~cmd:(selector "setRootTableViewController:") ~typ:(id @-> returning void) x +let toggleFullscreen self = msg_send ~self ~cmd:(selector "toggleFullscreen") ~typ:(returning void) +let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationOverlayWindowPickerViewController.ml b/uikit_extra/UIDebuggingInformationOverlayWindowPickerViewController.ml index d757f153..5e8f3464 100644 --- a/uikit_extra/UIDebuggingInformationOverlayWindowPickerViewController.ml +++ b/uikit_extra/UIDebuggingInformationOverlayWindowPickerViewController.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingInformationOverlayWindowPickerViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationoverlaywindowpickerviewcontroller?language=objc}UIDebuggingInformationOverlayWindowPickerViewController} *) -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let loadData self = msg_send ~self ~cmd:(selector "loadData") ~typ:(returning (void)) -let setTableView x self = msg_send ~self ~cmd:(selector "setTableView:") ~typ:(id @-> returning (void)) x -let setWindows x self = msg_send ~self ~cmd:(selector "setWindows:") ~typ:(id @-> returning (void)) x -let tableView self = msg_send ~self ~cmd:(selector "tableView") ~typ:(returning (id)) -let tableView1 x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView2 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didSelectRowAtIndexPath -let tableView3 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let windows self = msg_send ~self ~cmd:(selector "windows") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIDebuggingInformationOverlayWindowPickerViewController" + +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let loadData self = msg_send ~self ~cmd:(selector "loadData") ~typ:(returning void) +let setTableView x self = msg_send ~self ~cmd:(selector "setTableView:") ~typ:(id @-> returning void) x +let setWindows x self = msg_send ~self ~cmd:(selector "setWindows:") ~typ:(id @-> returning void) x +let tableView self = msg_send ~self ~cmd:(selector "tableView") ~typ:(returning id) +let tableView1 x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView2 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x didSelectRowAtIndexPath +let tableView3 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let windows self = msg_send ~self ~cmd:(selector "windows") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationRootTableViewController.ml b/uikit_extra/UIDebuggingInformationRootTableViewController.ml index e5ce04ca..95137026 100644 --- a/uikit_extra/UIDebuggingInformationRootTableViewController.ml +++ b/uikit_extra/UIDebuggingInformationRootTableViewController.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingInformationRootTableViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationroottableviewcontroller?language=objc}UIDebuggingInformationRootTableViewController} *) -let initWithStyle x self = msg_send ~self ~cmd:(selector "initWithStyle:") ~typ:(llong @-> returning (id)) x -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIDebuggingInformationRootTableViewController" + +let initWithStyle x self = msg_send ~self ~cmd:(selector "initWithStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationVCDetailViewController.ml b/uikit_extra/UIDebuggingInformationVCDetailViewController.ml index 95135d0f..1ee5ca36 100644 --- a/uikit_extra/UIDebuggingInformationVCDetailViewController.ml +++ b/uikit_extra/UIDebuggingInformationVCDetailViewController.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingInformationVCDetailViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationvcdetailviewcontroller?language=objc}UIDebuggingInformationVCDetailViewController} *) -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let inspectVC x self = msg_send ~self ~cmd:(selector "inspectVC:") ~typ:(id @-> returning (void)) x -let inspectedVC self = msg_send ~self ~cmd:(selector "inspectedVC") ~typ:(returning (id)) -let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning (llong)) x -let setInspectedVC x self = msg_send ~self ~cmd:(selector "setInspectedVC:") ~typ:(id @-> returning (void)) x -let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didSelectRowAtIndexPath -let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let tableView3 x ~titleForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:titleForHeaderInSection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int titleForHeaderInSection) -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIDebuggingInformationVCDetailViewController" + +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let inspectVC x self = msg_send ~self ~cmd:(selector "inspectVC:") ~typ:(id @-> returning void) x +let inspectedVC self = msg_send ~self ~cmd:(selector "inspectedVC") ~typ:(returning id) +let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning llong) x +let setInspectedVC x self = msg_send ~self ~cmd:(selector "setInspectedVC:") ~typ:(id @-> returning void) x +let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x didSelectRowAtIndexPath +let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let tableView3 x ~titleForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:titleForHeaderInSection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int titleForHeaderInSection) +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationVCHierarchyDataContainer.ml b/uikit_extra/UIDebuggingInformationVCHierarchyDataContainer.ml index 20f3e55f..f40bef45 100644 --- a/uikit_extra/UIDebuggingInformationVCHierarchyDataContainer.ml +++ b/uikit_extra/UIDebuggingInformationVCHierarchyDataContainer.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingInformationVCHierarchyDataContainer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationvchierarchydatacontainer?language=objc}UIDebuggingInformationVCHierarchyDataContainer} *) -let initWithViewController x ~atLevel self = msg_send ~self ~cmd:(selector "initWithViewController:atLevel:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int atLevel) -let level self = msg_send ~self ~cmd:(selector "level") ~typ:(returning (llong)) -let setLevel x self = msg_send ~self ~cmd:(selector "setLevel:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setViewController x self = msg_send ~self ~cmd:(selector "setViewController:") ~typ:(id @-> returning (void)) x -let viewController self = msg_send ~self ~cmd:(selector "viewController") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIDebuggingInformationVCHierarchyDataContainer" + +let initWithViewController x ~atLevel self = msg_send ~self ~cmd:(selector "initWithViewController:atLevel:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int atLevel) +let level self = msg_send ~self ~cmd:(selector "level") ~typ:(returning llong) +let setLevel x self = msg_send ~self ~cmd:(selector "setLevel:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setViewController x self = msg_send ~self ~cmd:(selector "setViewController:") ~typ:(id @-> returning void) x +let viewController self = msg_send ~self ~cmd:(selector "viewController") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIDebuggingInformationVCHierarchyViewController.ml b/uikit_extra/UIDebuggingInformationVCHierarchyViewController.ml index 39720c27..f37f7096 100644 --- a/uikit_extra/UIDebuggingInformationVCHierarchyViewController.ml +++ b/uikit_extra/UIDebuggingInformationVCHierarchyViewController.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingInformationVCHierarchyViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebugginginformationvchierarchyviewcontroller?language=objc}UIDebuggingInformationVCHierarchyViewController} *) -let data self = msg_send ~self ~cmd:(selector "data") ~typ:(returning (id)) -let getViewControllersRecursiveWithLevel x ~forView self = msg_send ~self ~cmd:(selector "getViewControllersRecursiveWithLevel:forView:") ~typ:(int @-> id @-> returning (id)) x forView -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let setData x self = msg_send ~self ~cmd:(selector "setData:") ~typ:(id @-> returning (void)) x -let setTableView x self = msg_send ~self ~cmd:(selector "setTableView:") ~typ:(id @-> returning (void)) x -let tableView self = msg_send ~self ~cmd:(selector "tableView") ~typ:(returning (id)) -let tableView1 x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView2 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didSelectRowAtIndexPath -let tableView3 x ~indentationLevelForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:indentationLevelForRowAtIndexPath:") ~typ:(id @-> id @-> returning (llong)) x indentationLevelForRowAtIndexPath -let tableView4 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIDebuggingInformationVCHierarchyViewController" + +let data self = msg_send ~self ~cmd:(selector "data") ~typ:(returning id) +let getViewControllersRecursiveWithLevel x ~forView self = msg_send ~self ~cmd:(selector "getViewControllersRecursiveWithLevel:forView:") ~typ:(int @-> id @-> returning id) x forView +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let setData x self = msg_send ~self ~cmd:(selector "setData:") ~typ:(id @-> returning void) x +let setTableView x self = msg_send ~self ~cmd:(selector "setTableView:") ~typ:(id @-> returning void) x +let tableView self = msg_send ~self ~cmd:(selector "tableView") ~typ:(returning id) +let tableView1 x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView2 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x didSelectRowAtIndexPath +let tableView3 x ~indentationLevelForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:indentationLevelForRowAtIndexPath:") ~typ:(id @-> id @-> returning llong) x indentationLevelForRowAtIndexPath +let tableView4 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIDebuggingIvar.ml b/uikit_extra/UIDebuggingIvar.ml index b4523b7f..5f6bc32d 100644 --- a/uikit_extra/UIDebuggingIvar.ml +++ b/uikit_extra/UIDebuggingIvar.ml @@ -5,25 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingIvar" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebuggingivar?language=objc}UIDebuggingIvar} *) -module C = struct - let ivarWithObjcIvar x ~forObject self = msg_send ~self ~cmd:(selector "ivarWithObjcIvar:forObject:") ~typ:(ptr void @-> id @-> returning (id)) x forObject -end +let self = get_class "UIDebuggingIvar" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let isObject self = msg_send ~self ~cmd:(selector "isObject") ~typ:(returning (bool)) -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let objcIvar self = msg_send ~self ~cmd:(selector "objcIvar") ~typ:(returning (ptr void)) -let object_ self = msg_send ~self ~cmd:(selector "object") ~typ:(returning (id)) -let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning (void)) x -let setObjcIvar x self = msg_send ~self ~cmd:(selector "setObjcIvar:") ~typ:(ptr void @-> returning (void)) x -let setObject x self = msg_send ~self ~cmd:(selector "setObject:") ~typ:(id @-> returning (void)) x -let setTypeDescription x self = msg_send ~self ~cmd:(selector "setTypeDescription:") ~typ:(id @-> returning (void)) x -let setTypeEncoding x self = msg_send ~self ~cmd:(selector "setTypeEncoding:") ~typ:(string @-> returning (void)) x -let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(id @-> returning (void)) x -let typeDescription self = msg_send ~self ~cmd:(selector "typeDescription") ~typ:(returning (id)) -let typeEncoding self = msg_send ~self ~cmd:(selector "typeEncoding") ~typ:(returning (string)) -let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning (id)) -let valueDescription self = msg_send ~self ~cmd:(selector "valueDescription") ~typ:(returning (id)) \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let isObject self = msg_send ~self ~cmd:(selector "isObject") ~typ:(returning bool) +let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) +let objcIvar self = msg_send ~self ~cmd:(selector "objcIvar") ~typ:(returning (ptr objc_ivar)) +let object_ self = msg_send ~self ~cmd:(selector "object") ~typ:(returning id) +let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning void) x +let setObjcIvar x self = msg_send ~self ~cmd:(selector "setObjcIvar:") ~typ:((ptr objc_ivar) @-> returning void) x +let setObject x self = msg_send ~self ~cmd:(selector "setObject:") ~typ:(id @-> returning void) x +let setTypeDescription x self = msg_send ~self ~cmd:(selector "setTypeDescription:") ~typ:(id @-> returning void) x +let setTypeEncoding x self = msg_send ~self ~cmd:(selector "setTypeEncoding:") ~typ:(string @-> returning void) x +let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(id @-> returning void) x +let typeDescription self = msg_send ~self ~cmd:(selector "typeDescription") ~typ:(returning id) +let typeEncoding self = msg_send ~self ~cmd:(selector "typeEncoding") ~typ:(returning string) +let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning id) +let valueDescription self = msg_send ~self ~cmd:(selector "valueDescription") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIDebuggingIvarClass.ml b/uikit_extra/UIDebuggingIvarClass.ml new file mode 100644 index 00000000..529ef891 --- /dev/null +++ b/uikit_extra/UIDebuggingIvarClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebuggingivar?language=objc}UIDebuggingIvar} *) + +let ivarWithObjcIvar x ~forObject self = msg_send ~self ~cmd:(selector "ivarWithObjcIvar:forObject:") ~typ:((ptr objc_ivar) @-> id @-> returning id) x forObject \ No newline at end of file diff --git a/uikit_extra/UIDebuggingIvarTableViewCell.ml b/uikit_extra/UIDebuggingIvarTableViewCell.ml index 3402a0c3..92537fba 100644 --- a/uikit_extra/UIDebuggingIvarTableViewCell.ml +++ b/uikit_extra/UIDebuggingIvarTableViewCell.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingIvarTableViewCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebuggingivartableviewcell?language=objc}UIDebuggingIvarTableViewCell} *) -let initWithStyle x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithStyle:reuseIdentifier:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) reuseIdentifier -let ivar self = msg_send ~self ~cmd:(selector "ivar") ~typ:(returning (id)) -let nameLabel self = msg_send ~self ~cmd:(selector "nameLabel") ~typ:(returning (id)) -let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning (void)) -let setIvar x self = msg_send ~self ~cmd:(selector "setIvar:") ~typ:(id @-> returning (void)) x -let setNameLabel x self = msg_send ~self ~cmd:(selector "setNameLabel:") ~typ:(id @-> returning (void)) x -let setTypeLabel x self = msg_send ~self ~cmd:(selector "setTypeLabel:") ~typ:(id @-> returning (void)) x -let setValueLabel x self = msg_send ~self ~cmd:(selector "setValueLabel:") ~typ:(id @-> returning (void)) x -let typeLabel self = msg_send ~self ~cmd:(selector "typeLabel") ~typ:(returning (id)) -let valueLabel self = msg_send ~self ~cmd:(selector "valueLabel") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIDebuggingIvarTableViewCell" + +let initWithStyle x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithStyle:reuseIdentifier:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) reuseIdentifier +let ivar self = msg_send ~self ~cmd:(selector "ivar") ~typ:(returning id) +let nameLabel self = msg_send ~self ~cmd:(selector "nameLabel") ~typ:(returning id) +let prepareForReuse self = msg_send ~self ~cmd:(selector "prepareForReuse") ~typ:(returning void) +let setIvar x self = msg_send ~self ~cmd:(selector "setIvar:") ~typ:(id @-> returning void) x +let setNameLabel x self = msg_send ~self ~cmd:(selector "setNameLabel:") ~typ:(id @-> returning void) x +let setTypeLabel x self = msg_send ~self ~cmd:(selector "setTypeLabel:") ~typ:(id @-> returning void) x +let setValueLabel x self = msg_send ~self ~cmd:(selector "setValueLabel:") ~typ:(id @-> returning void) x +let typeLabel self = msg_send ~self ~cmd:(selector "typeLabel") ~typ:(returning id) +let valueLabel self = msg_send ~self ~cmd:(selector "valueLabel") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIDebuggingIvarViewController.ml b/uikit_extra/UIDebuggingIvarViewController.ml index 9caf7a2d..50771f60 100644 --- a/uikit_extra/UIDebuggingIvarViewController.ml +++ b/uikit_extra/UIDebuggingIvarViewController.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingIvarViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebuggingivarviewcontroller?language=objc}UIDebuggingIvarViewController} *) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let inspectedObject self = msg_send ~self ~cmd:(selector "inspectedObject") ~typ:(returning (id)) -let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning (llong)) x -let prepareForDisplayAsTopLevelDebuggingViewController self = msg_send ~self ~cmd:(selector "prepareForDisplayAsTopLevelDebuggingViewController") ~typ:(returning (void)) -let setInspectedObject x self = msg_send ~self ~cmd:(selector "setInspectedObject:") ~typ:(id @-> returning (void)) x -let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didSelectRowAtIndexPath -let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let tableView3 x ~titleForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:titleForHeaderInSection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int titleForHeaderInSection) \ No newline at end of file +let self = get_class "UIDebuggingIvarViewController" + +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let inspectedObject self = msg_send ~self ~cmd:(selector "inspectedObject") ~typ:(returning id) +let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning llong) x +let prepareForDisplayAsTopLevelDebuggingViewController self = msg_send ~self ~cmd:(selector "prepareForDisplayAsTopLevelDebuggingViewController") ~typ:(returning void) +let setInspectedObject x self = msg_send ~self ~cmd:(selector "setInspectedObject:") ~typ:(id @-> returning void) x +let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x didSelectRowAtIndexPath +let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let tableView3 x ~titleForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:titleForHeaderInSection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int titleForHeaderInSection) \ No newline at end of file diff --git a/uikit_extra/UIDebuggingKBAutoFillViewController.ml b/uikit_extra/UIDebuggingKBAutoFillViewController.ml index 41d10c23..a07943a0 100644 --- a/uikit_extra/UIDebuggingKBAutoFillViewController.ml +++ b/uikit_extra/UIDebuggingKBAutoFillViewController.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingKBAutoFillViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebuggingkbautofillviewcontroller?language=objc}UIDebuggingKBAutoFillViewController} *) -let autoFillTestGroundTruthGenerationViewController x ~didFinishWithResult self = msg_send ~self ~cmd:(selector "autoFillTestGroundTruthGenerationViewController:didFinishWithResult:") ~typ:(id @-> id @-> returning (void)) x didFinishWithResult -let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didSelectRowAtIndexPath -let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIDebuggingKBAutoFillViewController" + +let autoFillTestGroundTruthGenerationViewController x ~didFinishWithResult self = msg_send ~self ~cmd:(selector "autoFillTestGroundTruthGenerationViewController:didFinishWithResult:") ~typ:(id @-> id @-> returning void) x didFinishWithResult +let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x didSelectRowAtIndexPath +let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIDebuggingSpecViewController.ml b/uikit_extra/UIDebuggingSpecViewController.ml index 4bbc05a6..5e5f18fc 100644 --- a/uikit_extra/UIDebuggingSpecViewController.ml +++ b/uikit_extra/UIDebuggingSpecViewController.ml @@ -5,31 +5,35 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingSpecViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebuggingspecviewcontroller?language=objc}UIDebuggingSpecViewController} *) -let collectionView self = msg_send ~self ~cmd:(selector "collectionView") ~typ:(returning (id)) -let collectionView1 x ~cellForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:cellForItemAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForItemAtIndexPath -let collectionView2 x ~didSelectItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:didSelectItemAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didSelectItemAtIndexPath -let collectionView3 x ~numberOfItemsInSection self = msg_send ~self ~cmd:(selector "collectionView:numberOfItemsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfItemsInSection) -let flowLayout self = msg_send ~self ~cmd:(selector "flowLayout") ~typ:(returning (id)) -let gotDeleteGesture x self = msg_send ~self ~cmd:(selector "gotDeleteGesture:") ~typ:(id @-> returning (void)) x -let gotPanGesture x self = msg_send ~self ~cmd:(selector "gotPanGesture:") ~typ:(id @-> returning (void)) x -let hideImage self = msg_send ~self ~cmd:(selector "hideImage") ~typ:(returning (void)) -let imagePickerController x ~didFinishPickingMediaWithInfo self = msg_send ~self ~cmd:(selector "imagePickerController:didFinishPickingMediaWithInfo:") ~typ:(id @-> id @-> returning (void)) x didFinishPickingMediaWithInfo -let imagePickerControllerDidCancel x self = msg_send ~self ~cmd:(selector "imagePickerControllerDidCancel:") ~typ:(id @-> returning (void)) x -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let numberOfSectionsInCollectionView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInCollectionView:") ~typ:(id @-> returning (llong)) x -let origin self = msg_send_stret ~self ~cmd:(selector "origin") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let originalOpacity self = msg_send ~self ~cmd:(selector "originalOpacity") ~typ:(returning (double)) -let prepareForMediaBrowser self = msg_send ~self ~cmd:(selector "prepareForMediaBrowser") ~typ:(returning (void)) -let setCollectionView x self = msg_send ~self ~cmd:(selector "setCollectionView:") ~typ:(id @-> returning (void)) x -let setFlowLayout x self = msg_send ~self ~cmd:(selector "setFlowLayout:") ~typ:(id @-> returning (void)) x -let setOrigin x self = msg_send ~self ~cmd:(selector "setOrigin:") ~typ:(CGPoint.t @-> returning (void)) x -let setOriginalOpacity x self = msg_send ~self ~cmd:(selector "setOriginalOpacity:") ~typ:(double @-> returning (void)) x -let setSpec x self = msg_send ~self ~cmd:(selector "setSpec:") ~typ:(id @-> returning (void)) x -let setSpecImages x self = msg_send ~self ~cmd:(selector "setSpecImages:") ~typ:(id @-> returning (void)) x -let spec self = msg_send ~self ~cmd:(selector "spec") ~typ:(returning (id)) -let specImages self = msg_send ~self ~cmd:(selector "specImages") ~typ:(returning (id)) -let startMediaBrowserFromViewController x self = msg_send ~self ~cmd:(selector "startMediaBrowserFromViewController:") ~typ:(id @-> returning (bool)) x -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIDebuggingSpecViewController" + +let collectionView self = msg_send ~self ~cmd:(selector "collectionView") ~typ:(returning id) +let collectionView1 x ~cellForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:cellForItemAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForItemAtIndexPath +let collectionView2 x ~didSelectItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:didSelectItemAtIndexPath:") ~typ:(id @-> id @-> returning void) x didSelectItemAtIndexPath +let collectionView3 x ~numberOfItemsInSection self = msg_send ~self ~cmd:(selector "collectionView:numberOfItemsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfItemsInSection) +let flowLayout self = msg_send ~self ~cmd:(selector "flowLayout") ~typ:(returning id) +let gotDeleteGesture x self = msg_send ~self ~cmd:(selector "gotDeleteGesture:") ~typ:(id @-> returning void) x +let gotPanGesture x self = msg_send ~self ~cmd:(selector "gotPanGesture:") ~typ:(id @-> returning void) x +let hideImage self = msg_send ~self ~cmd:(selector "hideImage") ~typ:(returning void) +let imagePickerController x ~didFinishPickingMediaWithInfo self = msg_send ~self ~cmd:(selector "imagePickerController:didFinishPickingMediaWithInfo:") ~typ:(id @-> id @-> returning void) x didFinishPickingMediaWithInfo +let imagePickerControllerDidCancel x self = msg_send ~self ~cmd:(selector "imagePickerControllerDidCancel:") ~typ:(id @-> returning void) x +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let numberOfSectionsInCollectionView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInCollectionView:") ~typ:(id @-> returning llong) x +let origin self = msg_send ~self ~cmd:(selector "origin") ~typ:(returning CGPoint.t) +let originalOpacity self = msg_send ~self ~cmd:(selector "originalOpacity") ~typ:(returning double) +let prepareForMediaBrowser self = msg_send ~self ~cmd:(selector "prepareForMediaBrowser") ~typ:(returning void) +let setCollectionView x self = msg_send ~self ~cmd:(selector "setCollectionView:") ~typ:(id @-> returning void) x +let setFlowLayout x self = msg_send ~self ~cmd:(selector "setFlowLayout:") ~typ:(id @-> returning void) x +let setOrigin x self = msg_send ~self ~cmd:(selector "setOrigin:") ~typ:(CGPoint.t @-> returning void) x +let setOriginalOpacity x self = msg_send ~self ~cmd:(selector "setOriginalOpacity:") ~typ:(double @-> returning void) x +let setSpec x self = msg_send ~self ~cmd:(selector "setSpec:") ~typ:(id @-> returning void) x +let setSpecImages x self = msg_send ~self ~cmd:(selector "setSpecImages:") ~typ:(id @-> returning void) x +let spec self = msg_send ~self ~cmd:(selector "spec") ~typ:(returning id) +let specImages self = msg_send ~self ~cmd:(selector "specImages") ~typ:(returning id) +let startMediaBrowserFromViewController x self = msg_send ~self ~cmd:(selector "startMediaBrowserFromViewController:") ~typ:(id @-> returning bool) x +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIDebuggingZoomLineView.ml b/uikit_extra/UIDebuggingZoomLineView.ml index 3421de98..ca76b3e1 100644 --- a/uikit_extra/UIDebuggingZoomLineView.ml +++ b/uikit_extra/UIDebuggingZoomLineView.ml @@ -5,19 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingZoomLineView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebuggingzoomlineview?language=objc}UIDebuggingZoomLineView} *) -let direction self = msg_send ~self ~cmd:(selector "direction") ~typ:(returning (ullong)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let end_ self = msg_send_stret ~self ~cmd:(selector "end") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let lineLabel self = msg_send ~self ~cmd:(selector "lineLabel") ~typ:(returning (id)) -let rect self = msg_send_stret ~self ~cmd:(selector "rect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let setDirection x self = msg_send ~self ~cmd:(selector "setDirection:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setEnd x self = msg_send ~self ~cmd:(selector "setEnd:") ~typ:(CGPoint.t @-> returning (void)) x -let setLineLabel x self = msg_send ~self ~cmd:(selector "setLineLabel:") ~typ:(id @-> returning (void)) x -let setRect x self = msg_send ~self ~cmd:(selector "setRect:") ~typ:(CGRect.t @-> returning (void)) x -let setStart x self = msg_send ~self ~cmd:(selector "setStart:") ~typ:(CGPoint.t @-> returning (void)) x -let start self = msg_send_stret ~self ~cmd:(selector "start") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let updateLabelFrame self = msg_send ~self ~cmd:(selector "updateLabelFrame") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIDebuggingZoomLineView" + +let direction self = msg_send ~self ~cmd:(selector "direction") ~typ:(returning ullong) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let end_ self = msg_send ~self ~cmd:(selector "end") ~typ:(returning CGPoint.t) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let lineLabel self = msg_send ~self ~cmd:(selector "lineLabel") ~typ:(returning id) +let rect self = msg_send ~self ~cmd:(selector "rect") ~typ:(returning CGRect.t) +let setEnd x self = msg_send ~self ~cmd:(selector "setEnd:") ~typ:(CGPoint.t @-> returning void) x +let setLineLabel x self = msg_send ~self ~cmd:(selector "setLineLabel:") ~typ:(id @-> returning void) x +let setRect x self = msg_send ~self ~cmd:(selector "setRect:") ~typ:(CGRect.t @-> returning void) x +let setStart x self = msg_send ~self ~cmd:(selector "setStart:") ~typ:(CGPoint.t @-> returning void) x +let start self = msg_send ~self ~cmd:(selector "start") ~typ:(returning CGPoint.t) +let updateLabelFrame self = msg_send ~self ~cmd:(selector "updateLabelFrame") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIDebuggingZoomLoupeView.ml b/uikit_extra/UIDebuggingZoomLoupeView.ml index fb9ea03c..603d55eb 100644 --- a/uikit_extra/UIDebuggingZoomLoupeView.ml +++ b/uikit_extra/UIDebuggingZoomLoupeView.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingZoomLoupeView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebuggingzoomloupeview?language=objc}UIDebuggingZoomLoupeView} *) -let currentlyInspectedPoint self = msg_send_stret ~self ~cmd:(selector "currentlyInspectedPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let setCurrentlyInspectedPoint x self = msg_send ~self ~cmd:(selector "setCurrentlyInspectedPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIDebuggingZoomLoupeView" + +let currentlyInspectedPoint self = msg_send ~self ~cmd:(selector "currentlyInspectedPoint") ~typ:(returning CGPoint.t) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let setCurrentlyInspectedPoint x self = msg_send ~self ~cmd:(selector "setCurrentlyInspectedPoint:") ~typ:(CGPoint.t @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIDebuggingZoomViewController.ml b/uikit_extra/UIDebuggingZoomViewController.ml index a9a412f4..9d90a97b 100644 --- a/uikit_extra/UIDebuggingZoomViewController.ml +++ b/uikit_extra/UIDebuggingZoomViewController.ml @@ -5,42 +5,46 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIDebuggingZoomViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidebuggingzoomviewcontroller?language=objc}UIDebuggingZoomViewController} *) -let currentDirection self = msg_send ~self ~cmd:(selector "currentDirection") ~typ:(returning (ullong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let directionSegmentedControl self = msg_send ~self ~cmd:(selector "directionSegmentedControl") ~typ:(returning (id)) -let distanceLabel self = msg_send ~self ~cmd:(selector "distanceLabel") ~typ:(returning (id)) -let drawLinesAtPoint x self = msg_send ~self ~cmd:(selector "drawLinesAtPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let drawViewLinesAtPoint x ~forView self = msg_send ~self ~cmd:(selector "drawViewLinesAtPoint:forView:") ~typ:(CGPoint.t @-> id @-> returning (id)) x forView -let group self = msg_send ~self ~cmd:(selector "group") ~typ:(returning (id)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning (id)) -let lastViewSeen self = msg_send ~self ~cmd:(selector "lastViewSeen") ~typ:(returning (id)) -let lineView self = msg_send ~self ~cmd:(selector "lineView") ~typ:(returning (id)) -let loupe self = msg_send ~self ~cmd:(selector "loupe") ~typ:(returning (id)) -let newCaptureSnapshotAtRect x ~window self = msg_send ~self ~cmd:(selector "newCaptureSnapshotAtRect:window:") ~typ:(CGRect.t @-> id @-> returning (id)) x window -let pan self = msg_send ~self ~cmd:(selector "pan") ~typ:(returning (id)) -let queue self = msg_send ~self ~cmd:(selector "queue") ~typ:(returning (id)) -let setCurrentDirection x self = msg_send ~self ~cmd:(selector "setCurrentDirection:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDirectionSegmentedControl x self = msg_send ~self ~cmd:(selector "setDirectionSegmentedControl:") ~typ:(id @-> returning (void)) x -let setDistanceLabel x self = msg_send ~self ~cmd:(selector "setDistanceLabel:") ~typ:(id @-> returning (void)) x -let setGroup x self = msg_send ~self ~cmd:(selector "setGroup:") ~typ:(id @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setLabel x self = msg_send ~self ~cmd:(selector "setLabel:") ~typ:(id @-> returning (void)) x -let setLastViewSeen x self = msg_send ~self ~cmd:(selector "setLastViewSeen:") ~typ:(id @-> returning (void)) x -let setLineView x self = msg_send ~self ~cmd:(selector "setLineView:") ~typ:(id @-> returning (void)) x -let setLoupe x self = msg_send ~self ~cmd:(selector "setLoupe:") ~typ:(id @-> returning (void)) x -let setPan x self = msg_send ~self ~cmd:(selector "setPan:") ~typ:(id @-> returning (void)) x -let setQueue x self = msg_send ~self ~cmd:(selector "setQueue:") ~typ:(id @-> returning (void)) x -let setUseViewForEdges x self = msg_send ~self ~cmd:(selector "setUseViewForEdges:") ~typ:(bool @-> returning (void)) x -let toggleDirection x self = msg_send ~self ~cmd:(selector "toggleDirection:") ~typ:(id @-> returning (void)) x -let toggleMeasuring x self = msg_send ~self ~cmd:(selector "toggleMeasuring:") ~typ:(id @-> returning (void)) x -let toggleMode x self = msg_send ~self ~cmd:(selector "toggleMode:") ~typ:(id @-> returning (void)) x -let updateGesture x self = msg_send ~self ~cmd:(selector "updateGesture:") ~typ:(id @-> returning (void)) x -let useViewForEdges self = msg_send ~self ~cmd:(selector "useViewForEdges") ~typ:(returning (bool)) -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIDebuggingZoomViewController" + +let currentDirection self = msg_send ~self ~cmd:(selector "currentDirection") ~typ:(returning ullong) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let directionSegmentedControl self = msg_send ~self ~cmd:(selector "directionSegmentedControl") ~typ:(returning id) +let distanceLabel self = msg_send ~self ~cmd:(selector "distanceLabel") ~typ:(returning id) +let drawLinesAtPoint x self = msg_send ~self ~cmd:(selector "drawLinesAtPoint:") ~typ:(CGPoint.t @-> returning id) x +let drawViewLinesAtPoint x ~forView self = msg_send ~self ~cmd:(selector "drawViewLinesAtPoint:forView:") ~typ:(CGPoint.t @-> id @-> returning id) x forView +let group self = msg_send ~self ~cmd:(selector "group") ~typ:(returning id) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (ptr CGImage.t)) +let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning id) x bundle +let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) +let lastViewSeen self = msg_send ~self ~cmd:(selector "lastViewSeen") ~typ:(returning id) +let lineView self = msg_send ~self ~cmd:(selector "lineView") ~typ:(returning id) +let loupe self = msg_send ~self ~cmd:(selector "loupe") ~typ:(returning id) +let newCaptureSnapshotAtRect x ~window self = msg_send ~self ~cmd:(selector "newCaptureSnapshotAtRect:window:") ~typ:(CGRect.t @-> id @-> returning (ptr CGImage.t)) x window +let pan self = msg_send ~self ~cmd:(selector "pan") ~typ:(returning id) +let queue self = msg_send ~self ~cmd:(selector "queue") ~typ:(returning id) +let setCurrentDirection x self = msg_send ~self ~cmd:(selector "setCurrentDirection:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDirectionSegmentedControl x self = msg_send ~self ~cmd:(selector "setDirectionSegmentedControl:") ~typ:(id @-> returning void) x +let setDistanceLabel x self = msg_send ~self ~cmd:(selector "setDistanceLabel:") ~typ:(id @-> returning void) x +let setGroup x self = msg_send ~self ~cmd:(selector "setGroup:") ~typ:(id @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:((ptr CGImage.t) @-> returning void) x +let setLabel x self = msg_send ~self ~cmd:(selector "setLabel:") ~typ:(id @-> returning void) x +let setLastViewSeen x self = msg_send ~self ~cmd:(selector "setLastViewSeen:") ~typ:(id @-> returning void) x +let setLineView x self = msg_send ~self ~cmd:(selector "setLineView:") ~typ:(id @-> returning void) x +let setLoupe x self = msg_send ~self ~cmd:(selector "setLoupe:") ~typ:(id @-> returning void) x +let setPan x self = msg_send ~self ~cmd:(selector "setPan:") ~typ:(id @-> returning void) x +let setQueue x self = msg_send ~self ~cmd:(selector "setQueue:") ~typ:(id @-> returning void) x +let setUseViewForEdges x self = msg_send ~self ~cmd:(selector "setUseViewForEdges:") ~typ:(bool @-> returning void) x +let toggleDirection x self = msg_send ~self ~cmd:(selector "toggleDirection:") ~typ:(id @-> returning void) x +let toggleMeasuring x self = msg_send ~self ~cmd:(selector "toggleMeasuring:") ~typ:(id @-> returning void) x +let toggleMode x self = msg_send ~self ~cmd:(selector "toggleMode:") ~typ:(id @-> returning void) x +let updateGesture x self = msg_send ~self ~cmd:(selector "updateGesture:") ~typ:(id @-> returning void) x +let useViewForEdges self = msg_send ~self ~cmd:(selector "useViewForEdges") ~typ:(returning bool) +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIDecomposedReloadUpdateItem.ml b/uikit_extra/UIDecomposedReloadUpdateItem.ml new file mode 100644 index 00000000..26bd2a88 --- /dev/null +++ b/uikit_extra/UIDecomposedReloadUpdateItem.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidecomposedreloadupdateitem?language=objc}UIDecomposedReloadUpdateItem} *) + +let self = get_class "UIDecomposedReloadUpdateItem" + +let isDecomposedFromReload self = msg_send ~self ~cmd:(selector "isDecomposedFromReload") ~typ:(returning bool) +let pairedItem self = msg_send ~self ~cmd:(selector "pairedItem") ~typ:(returning id) +let setPairedItem x self = msg_send ~self ~cmd:(selector "setPairedItem:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIDocumentBrowserAction.ml b/uikit_extra/UIDocumentBrowserAction.ml deleted file mode 100644 index 6496f6c6..00000000 --- a/uikit_extra/UIDocumentBrowserAction.ml +++ /dev/null @@ -1,62 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDocumentBrowserAction" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let actionStyle self = msg_send ~self ~cmd:(selector "actionStyle") ~typ:(returning (llong)) -let availability self = msg_send ~self ~cmd:(selector "availability") ~typ:(returning (llong)) -let commonInit self = msg_send ~self ~cmd:(selector "commonInit") ~typ:(returning (void)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let filteringPredicate self = msg_send ~self ~cmd:(selector "filteringPredicate") ~typ:(returning (id)) -let handler self = msg_send ~self ~cmd:(selector "handler") ~typ:(returning (ptr void)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithIdentifier x ~localizedTitle ~resolvedHandler self = msg_send ~self ~cmd:(selector "initWithIdentifier:localizedTitle:resolvedHandler:") ~typ:(id @-> id @-> ptr void @-> returning (id)) x localizedTitle resolvedHandler -let initWithIdentifier1 x ~localizedTitle ~unresolvedHandler self = msg_send ~self ~cmd:(selector "initWithIdentifier:localizedTitle:unresolvedHandler:") ~typ:(id @-> id @-> ptr void @-> returning (id)) x localizedTitle unresolvedHandler -let initWithIdentifier2 x ~localizedTitle ~availability ~handler self = msg_send ~self ~cmd:(selector "initWithIdentifier:localizedTitle:availability:handler:") ~typ:(id @-> id @-> llong @-> ptr void @-> returning (id)) x localizedTitle (LLong.of_int availability) handler -let initWithUIActionDescriptor x self = msg_send ~self ~cmd:(selector "initWithUIActionDescriptor:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let localizedTitle self = msg_send ~self ~cmd:(selector "localizedTitle") ~typ:(returning (id)) -let menuSortOrder self = msg_send ~self ~cmd:(selector "menuSortOrder") ~typ:(returning (ullong)) -let navigationSide self = msg_send ~self ~cmd:(selector "navigationSide") ~typ:(returning (llong)) -let performActionExitsEditMode self = msg_send ~self ~cmd:(selector "performActionExitsEditMode") ~typ:(returning (bool)) -let requiresResolvedItems self = msg_send ~self ~cmd:(selector "requiresResolvedItems") ~typ:(returning (bool)) -let requiresVersioning self = msg_send ~self ~cmd:(selector "requiresVersioning") ~typ:(returning (bool)) -let resolvedHandler self = msg_send ~self ~cmd:(selector "resolvedHandler") ~typ:(returning (ptr void)) -let setActionStyle x self = msg_send ~self ~cmd:(selector "setActionStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setAvailability x self = msg_send ~self ~cmd:(selector "setAvailability:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setFilteringPredicate x self = msg_send ~self ~cmd:(selector "setFilteringPredicate:") ~typ:(id @-> returning (void)) x -let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:(ptr void @-> returning (void)) x -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setLocalizedTitle x self = msg_send ~self ~cmd:(selector "setLocalizedTitle:") ~typ:(id @-> returning (void)) x -let setMenuSortOrder x self = msg_send ~self ~cmd:(selector "setMenuSortOrder:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setNavigationSide x self = msg_send ~self ~cmd:(selector "setNavigationSide:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPerformActionExitsEditMode x self = msg_send ~self ~cmd:(selector "setPerformActionExitsEditMode:") ~typ:(bool @-> returning (void)) x -let setRequiresResolvedItems x self = msg_send ~self ~cmd:(selector "setRequiresResolvedItems:") ~typ:(bool @-> returning (void)) x -let setRequiresVersioning x self = msg_send ~self ~cmd:(selector "setRequiresVersioning:") ~typ:(bool @-> returning (void)) x -let setResolvedHandler x self = msg_send ~self ~cmd:(selector "setResolvedHandler:") ~typ:(ptr void @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSupportedContentTypes x self = msg_send ~self ~cmd:(selector "setSupportedContentTypes:") ~typ:(id @-> returning (void)) x -let setSupportsMultipleItems x self = msg_send ~self ~cmd:(selector "setSupportsMultipleItems:") ~typ:(bool @-> returning (void)) x -let setUiActionDescriptor x self = msg_send ~self ~cmd:(selector "setUiActionDescriptor:") ~typ:(id @-> returning (void)) x -let setUiActionProviderIdentifier x self = msg_send ~self ~cmd:(selector "setUiActionProviderIdentifier:") ~typ:(id @-> returning (void)) x -let setUnresolvedHandler x self = msg_send ~self ~cmd:(selector "setUnresolvedHandler:") ~typ:(ptr void @-> returning (void)) x -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let supportedContentTypes self = msg_send ~self ~cmd:(selector "supportedContentTypes") ~typ:(returning (id)) -let supportsMultipleItems self = msg_send ~self ~cmd:(selector "supportsMultipleItems") ~typ:(returning (bool)) -let uiActionDescriptor self = msg_send ~self ~cmd:(selector "uiActionDescriptor") ~typ:(returning (id)) -let uiActionProviderIdentifier self = msg_send ~self ~cmd:(selector "uiActionProviderIdentifier") ~typ:(returning (id)) -let unresolvedHandler self = msg_send ~self ~cmd:(selector "unresolvedHandler") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/uikit_extra/UIDocumentBrowserActionDescriptor.ml b/uikit_extra/UIDocumentBrowserActionDescriptor.ml deleted file mode 100644 index a4b766a4..00000000 --- a/uikit_extra/UIDocumentBrowserActionDescriptor.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDocumentBrowserActionDescriptor" - -let displayInline self = msg_send ~self ~cmd:(selector "displayInline") ~typ:(returning (bool)) -let displayName self = msg_send ~self ~cmd:(selector "displayName") ~typ:(returning (id)) -let fileProviderIdentifier self = msg_send ~self ~cmd:(selector "fileProviderIdentifier") ~typ:(returning (id)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let initWithIdentifier x ~uiActionProviderIdentifier ~fileProviderIdentifier ~displayName ~predicate ~displayInline self = msg_send ~self ~cmd:(selector "initWithIdentifier:uiActionProviderIdentifier:fileProviderIdentifier:displayName:predicate:displayInline:") ~typ:(id @-> id @-> id @-> id @-> id @-> bool @-> returning (id)) x uiActionProviderIdentifier fileProviderIdentifier displayName predicate displayInline -let predicate self = msg_send ~self ~cmd:(selector "predicate") ~typ:(returning (id)) -let uiActionProviderIdentifier self = msg_send ~self ~cmd:(selector "uiActionProviderIdentifier") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UIDocumentBrowserTransitionController.ml b/uikit_extra/UIDocumentBrowserTransitionController.ml deleted file mode 100644 index c9c2c3b6..00000000 --- a/uikit_extra/UIDocumentBrowserTransitionController.ml +++ /dev/null @@ -1,27 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDocumentBrowserTransitionController" - -let animateTransition x self = msg_send ~self ~cmd:(selector "animateTransition:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithItem x ~documentBrowserProxy ~referenceView self = msg_send ~self ~cmd:(selector "initWithItem:documentBrowserProxy:referenceView:") ~typ:(id @-> id @-> id @-> returning (id)) x documentBrowserProxy referenceView -let initWithItemURL x ~documentBrowserProxy ~referenceView self = msg_send ~self ~cmd:(selector "initWithItemURL:documentBrowserProxy:referenceView:") ~typ:(id @-> id @-> id @-> returning (id)) x documentBrowserProxy referenceView -let loadingProgress self = msg_send ~self ~cmd:(selector "loadingProgress") ~typ:(returning (id)) -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let setLoadingProgress x self = msg_send ~self ~cmd:(selector "setLoadingProgress:") ~typ:(id @-> returning (void)) x -let setTargetView x self = msg_send ~self ~cmd:(selector "setTargetView:") ~typ:(id @-> returning (void)) x -let setTransitionController x self = msg_send ~self ~cmd:(selector "setTransitionController:") ~typ:(id @-> returning (void)) x -let setTransitionControllerQueue x self = msg_send ~self ~cmd:(selector "setTransitionControllerQueue:") ~typ:(id @-> returning (void)) x -let setTransitionDidFinish x self = msg_send ~self ~cmd:(selector "setTransitionDidFinish:") ~typ:(bool @-> returning (void)) x -let targetView self = msg_send ~self ~cmd:(selector "targetView") ~typ:(returning (id)) -let transitionController self = msg_send ~self ~cmd:(selector "transitionController") ~typ:(returning (id)) -let transitionControllerQueue self = msg_send ~self ~cmd:(selector "transitionControllerQueue") ~typ:(returning (id)) -let transitionDidFinish self = msg_send ~self ~cmd:(selector "transitionDidFinish") ~typ:(returning (bool)) -let transitionDuration x self = msg_send ~self ~cmd:(selector "transitionDuration:") ~typ:(id @-> returning (double)) x \ No newline at end of file diff --git a/uikit_extra/UIDocumentBrowserViewController.ml b/uikit_extra/UIDocumentBrowserViewController.ml deleted file mode 100644 index 8e2e73a2..00000000 --- a/uikit_extra/UIDocumentBrowserViewController.ml +++ /dev/null @@ -1,148 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDocumentBrowserViewController" - -module C = struct - let placeholderURLForDownloadsFolder self = msg_send ~self ~cmd:(selector "placeholderURLForDownloadsFolder") ~typ:(returning (id)) -end - -let activityViewController self = msg_send ~self ~cmd:(selector "activityViewController") ~typ:(returning (id)) -let adaptivePresentationController self = msg_send ~self ~cmd:(selector "adaptivePresentationController") ~typ:(returning (id)) -let addOperationToServiceQueue x self = msg_send ~self ~cmd:(selector "addOperationToServiceQueue:") ~typ:(ptr void @-> returning (void)) x -let additionalLeadingNavigationBarButtonItems self = msg_send ~self ~cmd:(selector "additionalLeadingNavigationBarButtonItems") ~typ:(returning (id)) -let additionalTrailingNavigationBarButtonItems self = msg_send ~self ~cmd:(selector "additionalTrailingNavigationBarButtonItems") ~typ:(returning (id)) -let allowedContentTypes self = msg_send ~self ~cmd:(selector "allowedContentTypes") ~typ:(returning (id)) -let allowsDocumentCreation self = msg_send ~self ~cmd:(selector "allowsDocumentCreation") ~typ:(returning (bool)) -let allowsPickingMultipleItems self = msg_send ~self ~cmd:(selector "allowsPickingMultipleItems") ~typ:(returning (bool)) -let applicationDidBecomeActive x self = msg_send ~self ~cmd:(selector "applicationDidBecomeActive:") ~typ:(id @-> returning (void)) x -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let backgroundTintColor self = msg_send ~self ~cmd:(selector "backgroundTintColor") ~typ:(returning (id)) -let badgeTintColor self = msg_send ~self ~cmd:(selector "badgeTintColor") ~typ:(returning (id)) -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let bridgedDocumentBrowserViewController self = msg_send ~self ~cmd:(selector "bridgedDocumentBrowserViewController") ~typ:(returning (id)) -let browserUserInterfaceStyle self = msg_send ~self ~cmd:(selector "browserUserInterfaceStyle") ~typ:(returning (ullong)) -let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning (bool)) -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let clearCurrentOpenInteraction self = msg_send ~self ~cmd:(selector "clearCurrentOpenInteraction") ~typ:(returning (void)) -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) -let configurationForOpeningDocumentsWithContentTypes x self = msg_send ~self ~cmd:(selector "configurationForOpeningDocumentsWithContentTypes:") ~typ:(id @-> returning (id)) x -let contentTypesForRecentDocuments self = msg_send ~self ~cmd:(selector "contentTypesForRecentDocuments") ~typ:(returning (id)) -let createButtonAspectRatio self = msg_send ~self ~cmd:(selector "createButtonAspectRatio") ~typ:(returning (double)) -let createButtonColor self = msg_send ~self ~cmd:(selector "createButtonColor") ~typ:(returning (id)) -let createButtonTitle self = msg_send ~self ~cmd:(selector "createButtonTitle") ~typ:(returning (id)) -let customActions self = msg_send ~self ~cmd:(selector "customActions") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultDocumentAspectRatio self = msg_send ~self ~cmd:(selector "defaultDocumentAspectRatio") ~typ:(returning (double)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didCancel self = msg_send ~self ~cmd:(selector "didCancel") ~typ:(returning (void)) -let didImportDocumentAtURL x ~toDestinationURL self = msg_send ~self ~cmd:(selector "didImportDocumentAtURL:toDestinationURL:") ~typ:(id @-> id @-> returning (void)) x toDestinationURL -let didMoveToSceneNotificationListener self = msg_send ~self ~cmd:(selector "didMoveToSceneNotificationListener") ~typ:(returning (id)) -let didPickDocumentsAtURLs x self = msg_send ~self ~cmd:(selector "didPickDocumentsAtURLs:") ~typ:(id @-> returning (void)) x -let didRequestDocumentCreationWithHandler x self = msg_send ~self ~cmd:(selector "didRequestDocumentCreationWithHandler:") ~typ:(ptr void @-> returning (void)) x -let didTapTryAgainInErrorViewController x self = msg_send ~self ~cmd:(selector "didTapTryAgainInErrorViewController:") ~typ:(id @-> returning (void)) x -let dismiss self = msg_send ~self ~cmd:(selector "dismiss") ~typ:(returning (void)) -let dismissAllPresentedViewControllers x ~completion self = msg_send ~self ~cmd:(selector "dismissAllPresentedViewControllers:completion:") ~typ:(bool @-> ptr void @-> returning (void)) x completion -let dismissalTransitionWillBeginNotificationListener self = msg_send ~self ~cmd:(selector "dismissalTransitionWillBeginNotificationListener") ~typ:(returning (id)) -let documentTypes self = msg_send ~self ~cmd:(selector "documentTypes") ~typ:(returning (id)) -let effectiveAppearanceDidChange x self = msg_send ~self ~cmd:(selector "effectiveAppearanceDidChange:") ~typ:(id @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let failedToImportDocumentAtURL x ~error self = msg_send ~self ~cmd:(selector "failedToImportDocumentAtURL:error:") ~typ:(id @-> id @-> returning (void)) x error -let forwardHostSceneIdentifier x self = msg_send ~self ~cmd:(selector "forwardHostSceneIdentifier:") ~typ:(id @-> returning (void)) x -let getTrackingViews x ~remoteButtons ~fromBarButtons self = msg_send ~self ~cmd:(selector "getTrackingViews:remoteButtons:fromBarButtons:") ~typ:(ptr (id) @-> ptr (id) @-> id @-> returning (void)) x remoteButtons fromBarButtons -let importDocumentAtURL x ~byMoving ~toCurrentBrowserLocationWithCompletion self = msg_send ~self ~cmd:(selector "importDocumentAtURL:byMoving:toCurrentBrowserLocationWithCompletion:") ~typ:(id @-> bool @-> ptr void @-> returning (void)) x byMoving toCurrentBrowserLocationWithCompletion -let importDocumentAtURL1 x ~mode ~toCurrentBrowserLocationWithCompletion self = msg_send ~self ~cmd:(selector "importDocumentAtURL:mode:toCurrentBrowserLocationWithCompletion:") ~typ:(id @-> ullong @-> ptr void @-> returning (void)) x (ULLong.of_int mode) toCurrentBrowserLocationWithCompletion -let importDocumentAtURL2 x ~nextToDocumentAtURL ~mode ~completionHandler self = msg_send ~self ~cmd:(selector "importDocumentAtURL:nextToDocumentAtURL:mode:completionHandler:") ~typ:(id @-> id @-> ullong @-> ptr void @-> returning (void)) x nextToDocumentAtURL (ULLong.of_int mode) completionHandler -let inBrowserTintColor self = msg_send ~self ~cmd:(selector "inBrowserTintColor") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initForOpeningContentTypes x self = msg_send ~self ~cmd:(selector "initForOpeningContentTypes:") ~typ:(id @-> returning (id)) x -let initForOpeningFilesWithContentTypes x self = msg_send ~self ~cmd:(selector "initForOpeningFilesWithContentTypes:") ~typ:(id @-> returning (id)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithConfiguration x self = msg_send ~self ~cmd:(selector "initWithConfiguration:") ~typ:(id @-> returning (id)) x -let initializeBridgedDocumentBrowserIfNeeded self = msg_send ~self ~cmd:(selector "initializeBridgedDocumentBrowserIfNeeded") ~typ:(returning (void)) -let itemSubtitleColor self = msg_send ~self ~cmd:(selector "itemSubtitleColor") ~typ:(returning (id)) -let itemTitleColor self = msg_send ~self ~cmd:(selector "itemTitleColor") ~typ:(returning (id)) -let keyCommands self = msg_send ~self ~cmd:(selector "keyCommands") ~typ:(returning (id)) -let leadingBarButtonTrackingViews self = msg_send ~self ~cmd:(selector "leadingBarButtonTrackingViews") ~typ:(returning (id)) -let localizedCreateDocumentActionTitle self = msg_send ~self ~cmd:(selector "localizedCreateDocumentActionTitle") ~typ:(returning (id)) -let performKeyCommandNoOpOnHostSide x self = msg_send ~self ~cmd:(selector "performKeyCommandNoOpOnHostSide:") ~typ:(id @-> returning (void)) x -let preferredStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredStatusBarStyle") ~typ:(returning (llong)) -let prepareItems x ~usingBookmark ~completionBlock self = msg_send ~self ~cmd:(selector "prepareItems:usingBookmark:completionBlock:") ~typ:(id @-> bool @-> ptr void @-> returning (void)) x usingBookmark completionBlock -let prepareItems' x ~forMode ~usingBookmark ~completionBlock self = msg_send ~self ~cmd:(selector "prepareItems:forMode:usingBookmark:completionBlock:") ~typ:(id @-> ullong @-> bool @-> ptr void @-> returning (void)) x (ULLong.of_int forMode) usingBookmark completionBlock -let presentDocumentBrowserTimer self = msg_send ~self ~cmd:(selector "presentDocumentBrowserTimer") ~typ:(returning (id)) -let presentViewController x ~animated ~completion self = msg_send ~self ~cmd:(selector "presentViewController:animated:completion:") ~typ:(id @-> bool @-> ptr void @-> returning (void)) x animated completion -let presentationTransitionWillBeginNotificationListener self = msg_send ~self ~cmd:(selector "presentationTransitionWillBeginNotificationListener") ~typ:(returning (id)) -let recentDocumentsContentTypes self = msg_send ~self ~cmd:(selector "recentDocumentsContentTypes") ~typ:(returning (id)) -let recentDocumentsContentTypesFromInfoPlist self = msg_send ~self ~cmd:(selector "recentDocumentsContentTypesFromInfoPlist") ~typ:(returning (id)) -let registerSceneListenerForWindow x self = msg_send ~self ~cmd:(selector "registerSceneListenerForWindow:") ~typ:(id @-> returning (void)) x -let remoteAdditionalLeadingNavigationBarButtonItems self = msg_send ~self ~cmd:(selector "remoteAdditionalLeadingNavigationBarButtonItems") ~typ:(returning (id)) -let remoteAdditionalTrailingNavigationBarButtonItems self = msg_send ~self ~cmd:(selector "remoteAdditionalTrailingNavigationBarButtonItems") ~typ:(returning (id)) -let remoteBarButtonForUUID x self = msg_send ~self ~cmd:(selector "remoteBarButtonForUUID:") ~typ:(id @-> returning (id)) x -let remoteViewController self = msg_send ~self ~cmd:(selector "remoteViewController") ~typ:(returning (id)) -let remoteViewController' x ~didTerminateViewServiceWithError self = msg_send ~self ~cmd:(selector "remoteViewController:didTerminateViewServiceWithError:") ~typ:(id @-> id @-> returning (void)) x didTerminateViewServiceWithError -let revealDocumentAtURL x ~importIfNeeded ~completion self = msg_send ~self ~cmd:(selector "revealDocumentAtURL:importIfNeeded:completion:") ~typ:(id @-> bool @-> ptr void @-> returning (void)) x importIfNeeded completion -let revealDocumentAtURL' x ~shouldImport ~completion self = msg_send ~self ~cmd:(selector "revealDocumentAtURL:shouldImport:completion:") ~typ:(id @-> bool @-> ptr void @-> returning (void)) x shouldImport completion -let serviceProxy self = msg_send ~self ~cmd:(selector "serviceProxy") ~typ:(returning (id)) -let serviceQueue self = msg_send ~self ~cmd:(selector "serviceQueue") ~typ:(returning (id)) -let setActivityViewController x self = msg_send ~self ~cmd:(selector "setActivityViewController:") ~typ:(id @-> returning (void)) x -let setAdaptivePresentationController x self = msg_send ~self ~cmd:(selector "setAdaptivePresentationController:") ~typ:(id @-> returning (void)) x -let setAdditionalLeadingNavigationBarButtonItems x self = msg_send ~self ~cmd:(selector "setAdditionalLeadingNavigationBarButtonItems:") ~typ:(id @-> returning (void)) x -let setAdditionalToolbarButtonItems x self = msg_send ~self ~cmd:(selector "setAdditionalToolbarButtonItems:") ~typ:(id @-> returning (void)) x -let setAdditionalTrailingNavigationBarButtonItems x self = msg_send ~self ~cmd:(selector "setAdditionalTrailingNavigationBarButtonItems:") ~typ:(id @-> returning (void)) x -let setAllowsDocumentCreation x self = msg_send ~self ~cmd:(selector "setAllowsDocumentCreation:") ~typ:(bool @-> returning (void)) x -let setAllowsPickingMultipleItems x self = msg_send ~self ~cmd:(selector "setAllowsPickingMultipleItems:") ~typ:(bool @-> returning (void)) x -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBackgroundTintColor x self = msg_send ~self ~cmd:(selector "setBackgroundTintColor:") ~typ:(id @-> returning (void)) x -let setBadgeTintColor x self = msg_send ~self ~cmd:(selector "setBadgeTintColor:") ~typ:(id @-> returning (void)) x -let setBridgedDocumentBrowserViewController x self = msg_send ~self ~cmd:(selector "setBridgedDocumentBrowserViewController:") ~typ:(id @-> returning (void)) x -let setBrowserUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setBrowserUserInterfaceStyle:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setConfiguration x self = msg_send ~self ~cmd:(selector "setConfiguration:") ~typ:(id @-> returning (void)) x -let setCreateButtonAspectRatio x self = msg_send ~self ~cmd:(selector "setCreateButtonAspectRatio:") ~typ:(double @-> returning (void)) x -let setCreateButtonColor x self = msg_send ~self ~cmd:(selector "setCreateButtonColor:") ~typ:(id @-> returning (void)) x -let setCreateButtonTitle x self = msg_send ~self ~cmd:(selector "setCreateButtonTitle:") ~typ:(id @-> returning (void)) x -let setCustomActions x self = msg_send ~self ~cmd:(selector "setCustomActions:") ~typ:(id @-> returning (void)) x -let setDefaultDocumentAspectRatio x self = msg_send ~self ~cmd:(selector "setDefaultDocumentAspectRatio:") ~typ:(double @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDidMoveToSceneNotificationListener x self = msg_send ~self ~cmd:(selector "setDidMoveToSceneNotificationListener:") ~typ:(id @-> returning (void)) x -let setDismissalTransitionWillBeginNotificationListener x self = msg_send ~self ~cmd:(selector "setDismissalTransitionWillBeginNotificationListener:") ~typ:(id @-> returning (void)) x -let setDocumentTypes x self = msg_send ~self ~cmd:(selector "setDocumentTypes:") ~typ:(id @-> returning (void)) x -let setEditing x ~animated self = msg_send ~self ~cmd:(selector "setEditing:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setInBrowserTintColor x self = msg_send ~self ~cmd:(selector "setInBrowserTintColor:") ~typ:(id @-> returning (void)) x -let setItemSubtitleColor x self = msg_send ~self ~cmd:(selector "setItemSubtitleColor:") ~typ:(id @-> returning (void)) x -let setItemTitleColor x self = msg_send ~self ~cmd:(selector "setItemTitleColor:") ~typ:(id @-> returning (void)) x -let setLeadingBarButtonTrackingViews x self = msg_send ~self ~cmd:(selector "setLeadingBarButtonTrackingViews:") ~typ:(id @-> returning (void)) x -let setLocalizedCreateDocumentActionTitle x self = msg_send ~self ~cmd:(selector "setLocalizedCreateDocumentActionTitle:") ~typ:(id @-> returning (void)) x -let setPresentDocumentBrowserTimer x self = msg_send ~self ~cmd:(selector "setPresentDocumentBrowserTimer:") ~typ:(id @-> returning (void)) x -let setPresentationTransitionWillBeginNotificationListener x self = msg_send ~self ~cmd:(selector "setPresentationTransitionWillBeginNotificationListener:") ~typ:(id @-> returning (void)) x -let setRemoteAdditionalLeadingNavigationBarButtonItems x self = msg_send ~self ~cmd:(selector "setRemoteAdditionalLeadingNavigationBarButtonItems:") ~typ:(id @-> returning (void)) x -let setRemoteAdditionalTrailingNavigationBarButtonItems x self = msg_send ~self ~cmd:(selector "setRemoteAdditionalTrailingNavigationBarButtonItems:") ~typ:(id @-> returning (void)) x -let setRemoteViewController x self = msg_send ~self ~cmd:(selector "setRemoteViewController:") ~typ:(id @-> returning (void)) x -let setServiceProxy x self = msg_send ~self ~cmd:(selector "setServiceProxy:") ~typ:(id @-> returning (void)) x -let setServiceQueue x self = msg_send ~self ~cmd:(selector "setServiceQueue:") ~typ:(id @-> returning (void)) x -let setShouldDelayRemoteViewController x self = msg_send ~self ~cmd:(selector "setShouldDelayRemoteViewController:") ~typ:(bool @-> returning (void)) x -let setShouldPresentBridgedDocumentBrowser x self = msg_send ~self ~cmd:(selector "setShouldPresentBridgedDocumentBrowser:") ~typ:(bool @-> returning (void)) x -let setShouldShowFileExtensions x self = msg_send ~self ~cmd:(selector "setShouldShowFileExtensions:") ~typ:(bool @-> returning (void)) x -let setSortingBackgroundColor x self = msg_send ~self ~cmd:(selector "setSortingBackgroundColor:") ~typ:(id @-> returning (void)) x -let setTrailingBarButtonTrackingViews x self = msg_send ~self ~cmd:(selector "setTrailingBarButtonTrackingViews:") ~typ:(id @-> returning (void)) x -let setshouldShowFileExtensions x self = msg_send ~self ~cmd:(selector "setshouldShowFileExtensions:") ~typ:(bool @-> returning (void)) x -let shouldDelayRemoteViewController self = msg_send ~self ~cmd:(selector "shouldDelayRemoteViewController") ~typ:(returning (bool)) -let shouldPresentBridgedDocumentBrowser self = msg_send ~self ~cmd:(selector "shouldPresentBridgedDocumentBrowser") ~typ:(returning (bool)) -let shouldShowFileExtensions self = msg_send ~self ~cmd:(selector "shouldShowFileExtensions") ~typ:(returning (bool)) -let sortingBackgroundColor self = msg_send ~self ~cmd:(selector "sortingBackgroundColor") ~typ:(returning (id)) -let supportsRemovableFileProvidersForConfiguration x self = msg_send ~self ~cmd:(selector "supportsRemovableFileProvidersForConfiguration:") ~typ:(id @-> returning (bool)) x -let trackingViewForUUID x self = msg_send ~self ~cmd:(selector "trackingViewForUUID:") ~typ:(id @-> returning (id)) x -let trailingBarButtonTrackingViews self = msg_send ~self ~cmd:(selector "trailingBarButtonTrackingViews") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let transitionControllerForDocumentAtURL x self = msg_send ~self ~cmd:(selector "transitionControllerForDocumentAtURL:") ~typ:(id @-> returning (id)) x -let transitionControllerForDocumentURL x self = msg_send ~self ~cmd:(selector "transitionControllerForDocumentURL:") ~typ:(id @-> returning (id)) x -let uinsCustomActionsFromCustomActions x self = msg_send ~self ~cmd:(selector "uinsCustomActionsFromCustomActions:") ~typ:(id @-> returning (id)) x -let updateBackgroundColor self = msg_send ~self ~cmd:(selector "updateBackgroundColor") ~typ:(returning (void)) -let updateSceneSettingsForWindow x self = msg_send ~self ~cmd:(selector "updateSceneSettingsForWindow:") ~typ:(id @-> returning (void)) x -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewDidMoveToWindow x ~shouldAppearOrDisappear self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow:shouldAppearOrDisappear:") ~typ:(id @-> bool @-> returning (void)) x shouldAppearOrDisappear -let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning (void)) x withTransitionCoordinator \ No newline at end of file diff --git a/uikit_extra/UIDocumentErrorRecoveryAttempter.ml b/uikit_extra/UIDocumentErrorRecoveryAttempter.ml new file mode 100644 index 00000000..25c06db4 --- /dev/null +++ b/uikit_extra/UIDocumentErrorRecoveryAttempter.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidocumenterrorrecoveryattempter?language=objc}UIDocumentErrorRecoveryAttempter} *) + +let self = get_class "UIDocumentErrorRecoveryAttempter" + +let attemptRecoveryFromError x ~optionIndex self = msg_send ~self ~cmd:(selector "attemptRecoveryFromError:optionIndex:") ~typ:(id @-> ullong @-> returning bool) x (ULLong.of_int optionIndex) +let attemptSilentRecoveryFromError x ~error self = msg_send ~self ~cmd:(selector "attemptSilentRecoveryFromError:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let cancelRecovery self = msg_send ~self ~cmd:(selector "cancelRecovery") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithDocument x ~wrappedRecoveryAttempter self = msg_send ~self ~cmd:(selector "initWithDocument:wrappedRecoveryAttempter:") ~typ:(id @-> id @-> returning id) x wrappedRecoveryAttempter +let initWithDocument' x ~silentRecoveryOptionIndex ~appModalRecoveryAttempter ~recoveryCanceler self = msg_send ~self ~cmd:(selector "initWithDocument:silentRecoveryOptionIndex:appModalRecoveryAttempter:recoveryCanceler:") ~typ:(id @-> ullong @-> (ptr void) @-> (ptr void) @-> returning id) x (ULLong.of_int silentRecoveryOptionIndex) appModalRecoveryAttempter recoveryCanceler \ No newline at end of file diff --git a/uikit_extra/UIDocumentInteractionController.ml b/uikit_extra/UIDocumentInteractionController.ml deleted file mode 100644 index b1985e75..00000000 --- a/uikit_extra/UIDocumentInteractionController.ml +++ /dev/null @@ -1,67 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDocumentInteractionController" - -module C = struct - let interactionControllerWithURL x self = msg_send ~self ~cmd:(selector "interactionControllerWithURL:") ~typ:(id @-> returning (id)) x -end - -let _URL self = msg_send ~self ~cmd:(selector "URL") ~typ:(returning (id)) -let _UTI self = msg_send ~self ~cmd:(selector "UTI") ~typ:(returning (id)) -let activityViewController self = msg_send ~self ~cmd:(selector "activityViewController") ~typ:(returning (id)) -let activityViewController1 x ~didFinishPresentingActivityType self = msg_send ~self ~cmd:(selector "activityViewController:didFinishPresentingActivityType:") ~typ:(id @-> id @-> returning (void)) x didFinishPresentingActivityType -let activityViewController2 x ~mailSubjectForActivityType self = msg_send ~self ~cmd:(selector "activityViewController:mailSubjectForActivityType:") ~typ:(id @-> id @-> returning (id)) x mailSubjectForActivityType -let activityViewController3 x ~openActivityDidEndSendingToApplication self = msg_send ~self ~cmd:(selector "activityViewController:openActivityDidEndSendingToApplication:") ~typ:(id @-> id @-> returning (void)) x openActivityDidEndSendingToApplication -let activityViewController4 x ~openActivityWillBeginSendingToApplication self = msg_send ~self ~cmd:(selector "activityViewController:openActivityWillBeginSendingToApplication:") ~typ:(id @-> id @-> returning (void)) x openActivityWillBeginSendingToApplication -let activityViewController5 x ~didFinishPerformingActivityType ~completed ~items ~error self = msg_send ~self ~cmd:(selector "activityViewController:didFinishPerformingActivityType:completed:items:error:") ~typ:(id @-> id @-> bool @-> id @-> id @-> returning (void)) x didFinishPerformingActivityType completed items error -let annotation self = msg_send ~self ~cmd:(selector "annotation") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let dismissMenuAnimated x self = msg_send ~self ~cmd:(selector "dismissMenuAnimated:") ~typ:(bool @-> returning (void)) x -let dismissPreviewAnimated x self = msg_send ~self ~cmd:(selector "dismissPreviewAnimated:") ~typ:(bool @-> returning (void)) x -let excludeDotFilesFromArchiveListings self = msg_send ~self ~cmd:(selector "excludeDotFilesFromArchiveListings") ~typ:(returning (bool)) -let extractSubitemFromArchive x ~completion self = msg_send ~self ~cmd:(selector "extractSubitemFromArchive:completion:") ~typ:(id @-> ptr void @-> returning (id)) x completion -let gestureRecognizers self = msg_send ~self ~cmd:(selector "gestureRecognizers") ~typ:(returning (id)) -let icons self = msg_send ~self ~cmd:(selector "icons") ~typ:(returning (id)) -let initWithURL x self = msg_send ~self ~cmd:(selector "initWithURL:") ~typ:(id @-> returning (id)) x -let isArchive self = msg_send ~self ~cmd:(selector "isArchive") ~typ:(returning (bool)) -let isContentManaged self = msg_send ~self ~cmd:(selector "isContentManaged") ~typ:(returning (bool)) -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let openDocumentWithDefaultApplication self = msg_send ~self ~cmd:(selector "openDocumentWithDefaultApplication") ~typ:(returning (void)) -let openResourceOperation x ~didFinishCopyingResource self = msg_send ~self ~cmd:(selector "openResourceOperation:didFinishCopyingResource:") ~typ:(id @-> id @-> returning (void)) x didFinishCopyingResource -let physicalURL self = msg_send ~self ~cmd:(selector "physicalURL") ~typ:(returning (id)) -let popoverController self = msg_send ~self ~cmd:(selector "popoverController") ~typ:(returning (id)) -let popoverController' x ~animationCompleted self = msg_send ~self ~cmd:(selector "popoverController:animationCompleted:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int animationCompleted) -let presentOpenInMenuFromBarButtonItem x ~animated self = msg_send ~self ~cmd:(selector "presentOpenInMenuFromBarButtonItem:animated:") ~typ:(id @-> bool @-> returning (bool)) x animated -let presentOpenInMenuFromRect x ~inView ~animated self = msg_send ~self ~cmd:(selector "presentOpenInMenuFromRect:inView:animated:") ~typ:(CGRect.t @-> id @-> bool @-> returning (bool)) x inView animated -let presentOptionsMenuFromBarButtonItem x ~animated self = msg_send ~self ~cmd:(selector "presentOptionsMenuFromBarButtonItem:animated:") ~typ:(id @-> bool @-> returning (bool)) x animated -let presentOptionsMenuFromRect x ~inView ~animated self = msg_send ~self ~cmd:(selector "presentOptionsMenuFromRect:inView:animated:") ~typ:(CGRect.t @-> id @-> bool @-> returning (bool)) x inView animated -let presentPreviewAnimated x self = msg_send ~self ~cmd:(selector "presentPreviewAnimated:") ~typ:(bool @-> returning (bool)) x -let presentingNavigationController self = msg_send ~self ~cmd:(selector "presentingNavigationController") ~typ:(returning (id)) -let previewController self = msg_send ~self ~cmd:(selector "previewController") ~typ:(returning (id)) -let previewControllerItem self = msg_send ~self ~cmd:(selector "previewControllerItem") ~typ:(returning (id)) -let previewsPresentWithMarkup self = msg_send ~self ~cmd:(selector "previewsPresentWithMarkup") ~typ:(returning (bool)) -let setActivityViewController x self = msg_send ~self ~cmd:(selector "setActivityViewController:") ~typ:(id @-> returning (void)) x -let setAnnotation x self = msg_send ~self ~cmd:(selector "setAnnotation:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setExcludeDotFilesFromArchiveListings x self = msg_send ~self ~cmd:(selector "setExcludeDotFilesFromArchiveListings:") ~typ:(bool @-> returning (void)) x -let setIsContentManaged x self = msg_send ~self ~cmd:(selector "setIsContentManaged:") ~typ:(bool @-> returning (void)) x -let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning (void)) x -let setPopoverController x self = msg_send ~self ~cmd:(selector "setPopoverController:") ~typ:(id @-> returning (void)) x -let setPreviewURLOverride x self = msg_send ~self ~cmd:(selector "setPreviewURLOverride:") ~typ:(id @-> returning (void)) x -let setPreviewsPresentWithMarkup x self = msg_send ~self ~cmd:(selector "setPreviewsPresentWithMarkup:") ~typ:(bool @-> returning (void)) x -let setShouldUnzipDocument x self = msg_send ~self ~cmd:(selector "setShouldUnzipDocument:") ~typ:(bool @-> returning (void)) x -let setSourceIsManaged x self = msg_send ~self ~cmd:(selector "setSourceIsManaged:") ~typ:(bool @-> returning (void)) x -let setURL x self = msg_send ~self ~cmd:(selector "setURL:") ~typ:(id @-> returning (void)) x -let setUTI x self = msg_send ~self ~cmd:(selector "setUTI:") ~typ:(id @-> returning (void)) x -let setUniqueIdentifier x self = msg_send ~self ~cmd:(selector "setUniqueIdentifier:") ~typ:(id @-> returning (void)) x -let shouldUnzipDocument self = msg_send ~self ~cmd:(selector "shouldUnzipDocument") ~typ:(returning (bool)) -let sourceIsManaged self = msg_send ~self ~cmd:(selector "sourceIsManaged") ~typ:(returning (bool)) -let subitemsInArchive x self = msg_send ~self ~cmd:(selector "subitemsInArchive:") ~typ:(ptr void @-> returning (id)) x -let uniqueIdentifier self = msg_send ~self ~cmd:(selector "uniqueIdentifier") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UIDocumentInteractionControllerDismissMarkupAction.ml b/uikit_extra/UIDocumentInteractionControllerDismissMarkupAction.ml deleted file mode 100644 index a82af346..00000000 --- a/uikit_extra/UIDocumentInteractionControllerDismissMarkupAction.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIDocumentInteractionControllerDismissMarkupAction" - -module C = struct - let actionWithTitle x ~handler self = msg_send ~self ~cmd:(selector "actionWithTitle:handler:") ~typ:(id @-> ptr void @-> returning (id)) x handler -end - -let completionHandler self = msg_send ~self ~cmd:(selector "completionHandler") ~typ:(returning (ptr void)) -let initWithTitle x ~handler self = msg_send ~self ~cmd:(selector "initWithTitle:handler:") ~typ:(id @-> ptr void @-> returning (id)) x handler -let setCompletionHandler x self = msg_send ~self ~cmd:(selector "setCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UIDocumentPickerExtensionViewController.ml b/uikit_extra/UIDocumentPickerExtensionViewController.ml new file mode 100644 index 00000000..f0b2d5e1 --- /dev/null +++ b/uikit_extra/UIDocumentPickerExtensionViewController.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidocumentpickerextensionviewcontroller?language=objc}UIDocumentPickerExtensionViewController} *) + +let self = get_class "UIDocumentPickerExtensionViewController" + +let dismissGrantingAccessToURL x self = msg_send ~self ~cmd:(selector "dismissGrantingAccessToURL:") ~typ:(id @-> returning void) x +let documentPickerMode self = msg_send ~self ~cmd:(selector "documentPickerMode") ~typ:(returning ullong) +let documentStorageURL self = msg_send ~self ~cmd:(selector "documentStorageURL") ~typ:(returning id) +let originalURL self = msg_send ~self ~cmd:(selector "originalURL") ~typ:(returning id) +let prepareForDocumentSelectionInMode x self = msg_send ~self ~cmd:(selector "prepareForDocumentSelectionInMode:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let prepareForPresentationInMode x self = msg_send ~self ~cmd:(selector "prepareForPresentationInMode:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let providerIdentifier self = msg_send ~self ~cmd:(selector "providerIdentifier") ~typ:(returning id) +let validTypes self = msg_send ~self ~cmd:(selector "validTypes") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIDragInteractionContextImpl.ml b/uikit_extra/UIDragInteractionContextImpl.ml new file mode 100644 index 00000000..568eedff --- /dev/null +++ b/uikit_extra/UIDragInteractionContextImpl.ml @@ -0,0 +1,38 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidraginteractioncontextimpl?language=objc}UIDragInteractionContextImpl} *) + +let self = get_class "UIDragInteractionContextImpl" + +let addAnimations x self = msg_send ~self ~cmd:(selector "addAnimations:") ~typ:((ptr void) @-> returning void) x +let addCompletion x self = msg_send ~self ~cmd:(selector "addCompletion:") ~typ:((ptr void) @-> returning void) x +let animationBlocks self = msg_send ~self ~cmd:(selector "animationBlocks") ~typ:(returning id) +let animations self = msg_send ~self ~cmd:(selector "animations") ~typ:(returning (ptr void)) +let completion self = msg_send ~self ~cmd:(selector "completion") ~typ:(returning (ptr void)) +let completionBlocks self = msg_send ~self ~cmd:(selector "completionBlocks") ~typ:(returning id) +let hasBegunDrag self = msg_send ~self ~cmd:(selector "hasBegunDrag") ~typ:(returning bool) +let initialLocation self = msg_send ~self ~cmd:(selector "initialLocation") ~typ:(returning CGPoint.t) +let initiationTouch self = msg_send ~self ~cmd:(selector "initiationTouch") ~typ:(returning id) +let invocationType self = msg_send ~self ~cmd:(selector "invocationType") ~typ:(returning llong) +let isPreparedForLift self = msg_send ~self ~cmd:(selector "isPreparedForLift") ~typ:(returning bool) +let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning id) +let setAnimations x self = msg_send ~self ~cmd:(selector "setAnimations:") ~typ:((ptr void) @-> returning void) x +let setCompletion x self = msg_send ~self ~cmd:(selector "setCompletion:") ~typ:((ptr void) @-> returning void) x +let setHasBegunDrag x self = msg_send ~self ~cmd:(selector "setHasBegunDrag:") ~typ:(bool @-> returning void) x +let setInitialLocation x self = msg_send ~self ~cmd:(selector "setInitialLocation:") ~typ:(CGPoint.t @-> returning void) x +let setInitiationTouch x self = msg_send ~self ~cmd:(selector "setInitiationTouch:") ~typ:(id @-> returning void) x +let setInvocationType x self = msg_send ~self ~cmd:(selector "setInvocationType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setItems x self = msg_send ~self ~cmd:(selector "setItems:") ~typ:(id @-> returning void) x +let setPreparedForLift x self = msg_send ~self ~cmd:(selector "setPreparedForLift:") ~typ:(bool @-> returning void) x +let setShouldAnimateLift x self = msg_send ~self ~cmd:(selector "setShouldAnimateLift:") ~typ:(bool @-> returning void) x +let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let shouldAnimateLift self = msg_send ~self ~cmd:(selector "shouldAnimateLift") ~typ:(returning bool) +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit_extra/UIDraggingBeginningSessionConfiguration.ml b/uikit_extra/UIDraggingBeginningSessionConfiguration.ml new file mode 100644 index 00000000..4ffc7f69 --- /dev/null +++ b/uikit_extra/UIDraggingBeginningSessionConfiguration.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidraggingbeginningsessionconfiguration?language=objc}UIDraggingBeginningSessionConfiguration} *) + +let self = get_class "UIDraggingBeginningSessionConfiguration" + +let dataOwner self = msg_send ~self ~cmd:(selector "dataOwner") ~typ:(returning llong) +let initWithItems x ~dataOwner ~requiredContextIds ~sourceView self = msg_send ~self ~cmd:(selector "initWithItems:dataOwner:requiredContextIds:sourceView:") ~typ:(id @-> llong @-> id @-> id @-> returning id) x (LLong.of_int dataOwner) requiredContextIds sourceView +let initialCentroidInSourceWindow self = msg_send ~self ~cmd:(selector "initialCentroidInSourceWindow") ~typ:(returning CGPoint.t) +let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning id) +let setInitialCentroidInSourceWindow x self = msg_send ~self ~cmd:(selector "setInitialCentroidInSourceWindow:") ~typ:(CGPoint.t @-> returning void) x +let sourceView self = msg_send ~self ~cmd:(selector "sourceView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIDraggingBeginningSessionConfigurationClass.ml b/uikit_extra/UIDraggingBeginningSessionConfigurationClass.ml new file mode 100644 index 00000000..decfd8b7 --- /dev/null +++ b/uikit_extra/UIDraggingBeginningSessionConfigurationClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidraggingbeginningsessionconfiguration?language=objc}UIDraggingBeginningSessionConfiguration} *) + +let configurationWithItems x ~dataOwner ~pointerTouch ~requiredContextIds ~sourceView self = msg_send ~self ~cmd:(selector "configurationWithItems:dataOwner:pointerTouch:requiredContextIds:sourceView:") ~typ:(id @-> llong @-> id @-> id @-> id @-> returning id) x (LLong.of_int dataOwner) pointerTouch requiredContextIds sourceView +let configurationWithItems1 x ~dataOwner ~touches ~requiredContextIds ~sourceView self = msg_send ~self ~cmd:(selector "configurationWithItems:dataOwner:touches:requiredContextIds:sourceView:") ~typ:(id @-> llong @-> id @-> id @-> id @-> returning id) x (LLong.of_int dataOwner) touches requiredContextIds sourceView +let configurationWithItems2 x ~dataOwner ~initialCentroidInSourceWindow ~requiredContextIds ~sourceView ~accessibilityEndpoint self = msg_send ~self ~cmd:(selector "configurationWithItems:dataOwner:initialCentroidInSourceWindow:requiredContextIds:sourceView:accessibilityEndpoint:") ~typ:(id @-> llong @-> CGPoint.t @-> id @-> id @-> id @-> returning id) x (LLong.of_int dataOwner) initialCentroidInSourceWindow requiredContextIds sourceView accessibilityEndpoint \ No newline at end of file diff --git a/uikit_extra/UIDraggingSessionConfiguration.ml b/uikit_extra/UIDraggingSessionConfiguration.ml new file mode 100644 index 00000000..e357cfa5 --- /dev/null +++ b/uikit_extra/UIDraggingSessionConfiguration.ml @@ -0,0 +1,38 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidraggingsessionconfiguration?language=objc}UIDraggingSessionConfiguration} *) + +let self = get_class "UIDraggingSessionConfiguration" + +let axEndpoint self = msg_send ~self ~cmd:(selector "axEndpoint") ~typ:(returning id) +let coordinateSpaceSourceContextID self = msg_send ~self ~cmd:(selector "coordinateSpaceSourceContextID") ~typ:(returning uint) +let coordinateSpaceSourceLayerRenderID self = msg_send ~self ~cmd:(selector "coordinateSpaceSourceLayerRenderID") ~typ:(returning ullong) +let dataProviderEndpoint self = msg_send ~self ~cmd:(selector "dataProviderEndpoint") ~typ:(returning id) +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 initialCentroid self = msg_send ~self ~cmd:(selector "initialCentroid") ~typ:(returning CGPoint.t) +let initiatedWithPointer self = msg_send ~self ~cmd:(selector "initiatedWithPointer") ~typ:(returning bool) +let itemCollection self = msg_send ~self ~cmd:(selector "itemCollection") ~typ:(returning id) +let routingPolicy self = msg_send ~self ~cmd:(selector "routingPolicy") ~typ:(returning id) +let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning id) +let setAxEndpoint x self = msg_send ~self ~cmd:(selector "setAxEndpoint:") ~typ:(id @-> returning void) x +let setCoordinateSpaceSourceContextID x self = msg_send ~self ~cmd:(selector "setCoordinateSpaceSourceContextID:") ~typ:(uint @-> returning void) x +let setCoordinateSpaceSourceLayerRenderID x self = msg_send ~self ~cmd:(selector "setCoordinateSpaceSourceLayerRenderID:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDataProviderEndpoint x self = msg_send ~self ~cmd:(selector "setDataProviderEndpoint:") ~typ:(id @-> returning void) x +let setInitialCentroid x self = msg_send ~self ~cmd:(selector "setInitialCentroid:") ~typ:(CGPoint.t @-> returning void) x +let setInitiatedWithPointer x self = msg_send ~self ~cmd:(selector "setInitiatedWithPointer:") ~typ:(bool @-> returning void) x +let setItemCollection x self = msg_send ~self ~cmd:(selector "setItemCollection:") ~typ:(id @-> returning void) x +let setRoutingPolicy x self = msg_send ~self ~cmd:(selector "setRoutingPolicy:") ~typ:(id @-> returning void) x +let setSceneIdentifier x self = msg_send ~self ~cmd:(selector "setSceneIdentifier:") ~typ:(id @-> returning void) x +let setSupportsSystemDrag x self = msg_send ~self ~cmd:(selector "setSupportsSystemDrag:") ~typ:(bool @-> returning void) x +let setTouchIDs x self = msg_send ~self ~cmd:(selector "setTouchIDs:") ~typ:(id @-> returning void) x +let supportsSystemDrag self = msg_send ~self ~cmd:(selector "supportsSystemDrag") ~typ:(returning bool) +let touchIDs self = msg_send ~self ~cmd:(selector "touchIDs") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIDraggingSessionConfigurationClass.ml b/uikit_extra/UIDraggingSessionConfigurationClass.ml new file mode 100644 index 00000000..51910081 --- /dev/null +++ b/uikit_extra/UIDraggingSessionConfigurationClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidraggingsessionconfiguration?language=objc}UIDraggingSessionConfiguration} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIDraggingSystemMonitor.ml b/uikit_extra/UIDraggingSystemMonitor.ml new file mode 100644 index 00000000..0d61c8d4 --- /dev/null +++ b/uikit_extra/UIDraggingSystemMonitor.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidraggingsystemmonitor?language=objc}UIDraggingSystemMonitor} *) + +let self = get_class "UIDraggingSystemMonitor" + +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let dragDidBeginWithSystemSession x ~info ~reply self = msg_send ~self ~cmd:(selector "dragDidBeginWithSystemSession:info:reply:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x info reply +let dragDidEndWithSystemSession x self = msg_send ~self ~cmd:(selector "dragDidEndWithSystemSession:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let listener x ~shouldAcceptNewConnection self = msg_send ~self ~cmd:(selector "listener:shouldAcceptNewConnection:") ~typ:(id @-> id @-> returning bool) x shouldAcceptNewConnection +let sessionForDropSession x self = msg_send ~self ~cmd:(selector "sessionForDropSession:") ~typ:(id @-> returning id) x +let sessions self = msg_send ~self ~cmd:(selector "sessions") ~typ:(returning id) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIDraggingSystemMonitorClass.ml b/uikit_extra/UIDraggingSystemMonitorClass.ml new file mode 100644 index 00000000..336e941e --- /dev/null +++ b/uikit_extra/UIDraggingSystemMonitorClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidraggingsystemmonitor?language=objc}UIDraggingSystemMonitor} *) + +let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIDraggingSystemSceneMetadata.ml b/uikit_extra/UIDraggingSystemSceneMetadata.ml new file mode 100644 index 00000000..5e66c647 --- /dev/null +++ b/uikit_extra/UIDraggingSystemSceneMetadata.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidraggingsystemscenemetadata?language=objc}UIDraggingSystemSceneMetadata} *) + +let self = get_class "UIDraggingSystemSceneMetadata" + +let activityType self = msg_send ~self ~cmd:(selector "activityType") ~typ:(returning id) +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 sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning id) +let setActivityType x self = msg_send ~self ~cmd:(selector "setActivityType:") ~typ:(id @-> returning void) x +let setSceneIdentifier x self = msg_send ~self ~cmd:(selector "setSceneIdentifier:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIDraggingSystemSceneMetadataClass.ml b/uikit_extra/UIDraggingSystemSceneMetadataClass.ml new file mode 100644 index 00000000..d427ccee --- /dev/null +++ b/uikit_extra/UIDraggingSystemSceneMetadataClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidraggingsystemscenemetadata?language=objc}UIDraggingSystemSceneMetadata} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIDraggingSystemSession.ml b/uikit_extra/UIDraggingSystemSession.ml new file mode 100644 index 00000000..185df69e --- /dev/null +++ b/uikit_extra/UIDraggingSystemSession.ml @@ -0,0 +1,24 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidraggingsystemsession?language=objc}UIDraggingSystemSession} *) + +let self = get_class "UIDraggingSystemSession" + +let commandeerImmediately self = msg_send ~self ~cmd:(selector "commandeerImmediately") ~typ:(returning void) +let info self = msg_send ~self ~cmd:(selector "info") ~typ:(returning id) +let isCommandeered self = msg_send ~self ~cmd:(selector "isCommandeered") ~typ:(returning bool) +let loadURLForItem x ~completion self = msg_send ~self ~cmd:(selector "loadURLForItem:completion:") ~typ:(id @-> (ptr void) @-> returning void) x completion +let loadUserActivityForItem x ~completion self = msg_send ~self ~cmd:(selector "loadUserActivityForItem:completion:") ~typ:(id @-> (ptr void) @-> returning void) x completion +let routingPolicy self = msg_send ~self ~cmd:(selector "routingPolicy") ~typ:(returning id) +let setCommandeered x self = msg_send ~self ~cmd:(selector "setCommandeered:") ~typ:(bool @-> returning void) x +let setInfo x self = msg_send ~self ~cmd:(selector "setInfo:") ~typ:(id @-> returning void) x +let setRoutingPolicy x self = msg_send ~self ~cmd:(selector "setRoutingPolicy:") ~typ:(id @-> returning void) x +let setServerSession x self = msg_send ~self ~cmd:(selector "setServerSession:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIDraggingSystemSessionInfo.ml b/uikit_extra/UIDraggingSystemSessionInfo.ml new file mode 100644 index 00000000..19a30c26 --- /dev/null +++ b/uikit_extra/UIDraggingSystemSessionInfo.ml @@ -0,0 +1,30 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidraggingsystemsessioninfo?language=objc}UIDraggingSystemSessionInfo} *) + +let self = get_class "UIDraggingSystemSessionInfo" + +let auditToken self = msg_send ~self ~cmd:(selector "auditToken") ~typ:(returning void) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let processIdentifier self = msg_send ~self ~cmd:(selector "processIdentifier") ~typ:(returning int) +let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning id) +let sessionIdentifier self = msg_send ~self ~cmd:(selector "sessionIdentifier") ~typ:(returning uint) +let setAuditToken x self = msg_send ~self ~cmd:(selector "setAuditToken:") ~typ:(void @-> returning void) x +let setProcessIdentifier x self = msg_send ~self ~cmd:(selector "setProcessIdentifier:") ~typ:(int @-> returning void) x +let setSceneIdentifier x self = msg_send ~self ~cmd:(selector "setSceneIdentifier:") ~typ:(id @-> returning void) x +let setSessionIdentifier x self = msg_send ~self ~cmd:(selector "setSessionIdentifier:") ~typ:(uint @-> returning void) x +let setSupportsSystemDrag x self = msg_send ~self ~cmd:(selector "setSupportsSystemDrag:") ~typ:(bool @-> returning void) x +let supportsSystemDrag self = msg_send ~self ~cmd:(selector "supportsSystemDrag") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIDraggingSystemSessionInfoClass.ml b/uikit_extra/UIDraggingSystemSessionInfoClass.ml new file mode 100644 index 00000000..72215126 --- /dev/null +++ b/uikit_extra/UIDraggingSystemSessionInfoClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidraggingsystemsessioninfo?language=objc}UIDraggingSystemSessionInfo} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIDraggingSystemTouchRoutingPolicy.ml b/uikit_extra/UIDraggingSystemTouchRoutingPolicy.ml new file mode 100644 index 00000000..8e9c0421 --- /dev/null +++ b/uikit_extra/UIDraggingSystemTouchRoutingPolicy.ml @@ -0,0 +1,23 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidraggingsystemtouchroutingpolicy?language=objc}UIDraggingSystemTouchRoutingPolicy} *) + +let self = get_class "UIDraggingSystemTouchRoutingPolicy" + +let contextIDsToAlwaysSendTouches self = msg_send ~self ~cmd:(selector "contextIDsToAlwaysSendTouches") ~typ:(returning id) +let contextIDsToExcludeFromHitTesting self = msg_send ~self ~cmd:(selector "contextIDsToExcludeFromHitTesting") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +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 isHitTestingDisabled self = msg_send ~self ~cmd:(selector "isHitTestingDisabled") ~typ:(returning bool) +let setContextIDsToAlwaysSendTouches x self = msg_send ~self ~cmd:(selector "setContextIDsToAlwaysSendTouches:") ~typ:(id @-> returning void) x +let setContextIDsToExcludeFromHitTesting x self = msg_send ~self ~cmd:(selector "setContextIDsToExcludeFromHitTesting:") ~typ:(id @-> returning void) x +let setHitTestingDisabled x self = msg_send ~self ~cmd:(selector "setHitTestingDisabled:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIDraggingSystemTouchRoutingPolicyClass.ml b/uikit_extra/UIDraggingSystemTouchRoutingPolicyClass.ml new file mode 100644 index 00000000..802f7fb5 --- /dev/null +++ b/uikit_extra/UIDraggingSystemTouchRoutingPolicyClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidraggingsystemtouchroutingpolicy?language=objc}UIDraggingSystemTouchRoutingPolicy} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIDropInteractionContextImpl.ml b/uikit_extra/UIDropInteractionContextImpl.ml new file mode 100644 index 00000000..1d0274c6 --- /dev/null +++ b/uikit_extra/UIDropInteractionContextImpl.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uidropinteractioncontextimpl?language=objc}UIDropInteractionContextImpl} *) + +let self = get_class "UIDropInteractionContextImpl" + +let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning id) +let setItems x self = msg_send ~self ~cmd:(selector "setItems:") ~typ:(id @-> returning void) x +let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit_extra/UIEdgeInsets.ml b/uikit_extra/UIEdgeInsets.ml new file mode 100644 index 00000000..97dcb580 --- /dev/null +++ b/uikit_extra/UIEdgeInsets.ml @@ -0,0 +1,34 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation + +let t : [`UIEdgeInsets] structure typ = structure "UIEdgeInsets" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiedgeinsets?language=objc}UIEdgeInsets} *) + +let top = field t "top" double +let left = field t "left" double +let bottom = field t "bottom" double +let right = field t "right" double + +let () = seal t + +let init + ~top:top_v + ~left:left_v + ~bottom:bottom_v + ~right:right_v + = + let t = make t in + setf t top top_v; + setf t left left_v; + setf t bottom bottom_v; + setf t right right_v; + t +let top t = getf t top +let left t = getf t left +let bottom t = getf t bottom +let right t = getf t right diff --git a/uikit_extra/UIExpandedBarItemsTableViewController.ml b/uikit_extra/UIExpandedBarItemsTableViewController.ml new file mode 100644 index 00000000..8c729e84 --- /dev/null +++ b/uikit_extra/UIExpandedBarItemsTableViewController.ml @@ -0,0 +1,24 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiexpandedbaritemstableviewcontroller?language=objc}UIExpandedBarItemsTableViewController} *) + +let self = get_class "UIExpandedBarItemsTableViewController" + +let barButtonGroup self = msg_send ~self ~cmd:(selector "barButtonGroup") ~typ:(returning id) +let initWithBarButtonGroup x self = msg_send ~self ~cmd:(selector "initWithBarButtonGroup:") ~typ:(id @-> returning id) x +let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning llong) x +let preferredContentSize self = msg_send ~self ~cmd:(selector "preferredContentSize") ~typ:(returning CGSize.t) +let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView1 x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x didSelectRowAtIndexPath +let tableView2 x ~heightForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:heightForRowAtIndexPath:") ~typ:(id @-> id @-> returning double) x heightForRowAtIndexPath +let tableView3 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIFlickingAssistantViewSupport.ml b/uikit_extra/UIFlickingAssistantViewSupport.ml new file mode 100644 index 00000000..59dbf46b --- /dev/null +++ b/uikit_extra/UIFlickingAssistantViewSupport.ml @@ -0,0 +1,31 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiflickingassistantviewsupport?language=objc}UIFlickingAssistantViewSupport} *) + +let self = get_class "UIFlickingAssistantViewSupport" + +let assistantFrame self = msg_send ~self ~cmd:(selector "assistantFrame") ~typ:(returning CGRect.t) +let assistantPosition self = msg_send ~self ~cmd:(selector "assistantPosition") ~typ:(returning ullong) +let barOriginFromTouchPoint x self = msg_send ~self ~cmd:(selector "barOriginFromTouchPoint:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didUpdateTransition self = msg_send ~self ~cmd:(selector "didUpdateTransition") ~typ:(returning void) +let draggingState self = msg_send ~self ~cmd:(selector "draggingState") ~typ:(returning llong) +let isCompact self = msg_send ~self ~cmd:(selector "isCompact") ~typ:(returning bool) +let isInputAssistantItemHidden self = msg_send ~self ~cmd:(selector "isInputAssistantItemHidden") ~typ:(returning bool) +let keyboardOriginFromAssistantViewPosition x self = msg_send ~self ~cmd:(selector "keyboardOriginFromAssistantViewPosition:") ~typ:(llong @-> returning CGPoint.t) (LLong.of_int x) +let panGestureHandler x self = msg_send ~self ~cmd:(selector "panGestureHandler:") ~typ:(id @-> returning void) x +let projectedLandingPointForGestureRecognizerEnd x self = msg_send ~self ~cmd:(selector "projectedLandingPointForGestureRecognizerEnd:") ~typ:(id @-> returning CGPoint.t) x +let remotePlacement self = msg_send ~self ~cmd:(selector "remotePlacement") ~typ:(returning id) +let setCompact x self = msg_send ~self ~cmd:(selector "setCompact:") ~typ:(bool @-> returning void) x +let setDraggingState x self = msg_send ~self ~cmd:(selector "setDraggingState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setRemotePlacement x self = msg_send ~self ~cmd:(selector "setRemotePlacement:") ~typ:(id @-> returning void) x +let transitToDraggingVisualState x ~withTouchLocation self = msg_send ~self ~cmd:(selector "transitToDraggingVisualState:withTouchLocation:") ~typ:(llong @-> CGPoint.t @-> returning void) (LLong.of_int x) withTouchLocation +let updateTransition x ~animated self = msg_send ~self ~cmd:(selector "updateTransition:animated:") ~typ:(CGPoint.t @-> bool @-> returning void) x animated \ No newline at end of file diff --git a/uikit_extra/UIFocusAnimationCoordinator.ml b/uikit_extra/UIFocusAnimationCoordinator.ml new file mode 100644 index 00000000..d93b71c9 --- /dev/null +++ b/uikit_extra/UIFocusAnimationCoordinator.ml @@ -0,0 +1,30 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifocusanimationcoordinator?language=objc}UIFocusAnimationCoordinator} *) + +let self = get_class "UIFocusAnimationCoordinator" + +let activeFocusAnimation self = msg_send ~self ~cmd:(selector "activeFocusAnimation") ~typ:(returning llong) +let addCoordinatedAnimations x ~completion self = msg_send ~self ~cmd:(selector "addCoordinatedAnimations:completion:") ~typ:((ptr void) @-> (ptr void) @-> returning void) x completion +let addCoordinatedAnimationsForAnimation x ~animations ~completion self = msg_send ~self ~cmd:(selector "addCoordinatedAnimationsForAnimation:animations:completion:") ~typ:(llong @-> (ptr void) @-> (ptr void) @-> returning void) (LLong.of_int x) animations completion +let addCoordinatedFocusingAnimations x ~completion self = msg_send ~self ~cmd:(selector "addCoordinatedFocusingAnimations:completion:") ~typ:((ptr void) @-> (ptr void) @-> returning void) x completion +let addCoordinatedUnfocusingAnimations x ~completion self = msg_send ~self ~cmd:(selector "addCoordinatedUnfocusingAnimations:completion:") ~typ:((ptr void) @-> (ptr void) @-> returning void) x completion +let focusingAnimations self = msg_send ~self ~cmd:(selector "focusingAnimations") ~typ:(returning id) +let focusingCompletions self = msg_send ~self ~cmd:(selector "focusingCompletions") ~typ:(returning id) +let focusingConfiguration self = msg_send ~self ~cmd:(selector "focusingConfiguration") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let legacyFocusingAnimations self = msg_send ~self ~cmd:(selector "legacyFocusingAnimations") ~typ:(returning id) +let legacyUnfocusingAnimations self = msg_send ~self ~cmd:(selector "legacyUnfocusingAnimations") ~typ:(returning id) +let setFocusingConfiguration x self = msg_send ~self ~cmd:(selector "setFocusingConfiguration:") ~typ:(id @-> returning void) x +let setUnfocusingConfiguration x self = msg_send ~self ~cmd:(selector "setUnfocusingConfiguration:") ~typ:(id @-> returning void) x +let unfocusingAnimations self = msg_send ~self ~cmd:(selector "unfocusingAnimations") ~typ:(returning id) +let unfocusingCompletions self = msg_send ~self ~cmd:(selector "unfocusingCompletions") ~typ:(returning id) +let unfocusingConfiguration self = msg_send ~self ~cmd:(selector "unfocusingConfiguration") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIFocusHaloEffect.ml b/uikit_extra/UIFocusHaloEffect.ml new file mode 100644 index 00000000..2c779ce4 --- /dev/null +++ b/uikit_extra/UIFocusHaloEffect.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifocushaloeffect?language=objc}UIFocusHaloEffect} *) + +let self = get_class "UIFocusHaloEffect" + +let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let position self = msg_send ~self ~cmd:(selector "position") ~typ:(returning llong) +let referenceView self = msg_send ~self ~cmd:(selector "referenceView") ~typ:(returning id) +let setContainerView x self = msg_send ~self ~cmd:(selector "setContainerView:") ~typ:(id @-> returning void) x +let setPosition x self = msg_send ~self ~cmd:(selector "setPosition:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setReferenceView x self = msg_send ~self ~cmd:(selector "setReferenceView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIFocusHaloEffectClass.ml b/uikit_extra/UIFocusHaloEffectClass.ml new file mode 100644 index 00000000..af746ab0 --- /dev/null +++ b/uikit_extra/UIFocusHaloEffectClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifocushaloeffect?language=objc}UIFocusHaloEffect} *) + +let effectWithPath x self = msg_send ~self ~cmd:(selector "effectWithPath:") ~typ:(id @-> returning id) x +let effectWithRect x self = msg_send ~self ~cmd:(selector "effectWithRect:") ~typ:(CGRect.t @-> returning id) x +let effectWithRoundedRect x ~cornerRadius ~curve self = msg_send ~self ~cmd:(selector "effectWithRoundedRect:cornerRadius:curve:") ~typ:(CGRect.t @-> double @-> id @-> returning id) x cornerRadius curve \ No newline at end of file diff --git a/uikit_extra/UIFocusMovementAction.ml b/uikit_extra/UIFocusMovementAction.ml new file mode 100644 index 00000000..0ca3d6af --- /dev/null +++ b/uikit_extra/UIFocusMovementAction.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifocusmovementaction?language=objc}UIFocusMovementAction} *) + +let self = get_class "UIFocusMovementAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let focusMovementInfo self = msg_send ~self ~cmd:(selector "focusMovementInfo") ~typ:(returning id) +let focusedFrame self = msg_send ~self ~cmd:(selector "focusedFrame") ~typ:(returning CGRect.t) +let initWithFocusMovementInfo x self = msg_send ~self ~cmd:(selector "initWithFocusMovementInfo:") ~typ:(id @-> returning id) x +let initWithFocusMovementInfo1 x ~inputDeviceInfo ~shouldPerformHapticFeedback self = msg_send ~self ~cmd:(selector "initWithFocusMovementInfo:inputDeviceInfo:shouldPerformHapticFeedback:") ~typ:(id @-> id @-> bool @-> returning id) x inputDeviceInfo shouldPerformHapticFeedback +let initWithFocusMovementInfo2 x ~inputDeviceInfo ~shouldPerformHapticFeedback ~focusedFrameInSceneCoordinateSpace self = msg_send ~self ~cmd:(selector "initWithFocusMovementInfo:inputDeviceInfo:shouldPerformHapticFeedback:focusedFrameInSceneCoordinateSpace:") ~typ:(id @-> id @-> bool @-> CGRect.t @-> returning id) x inputDeviceInfo shouldPerformHapticFeedback focusedFrameInSceneCoordinateSpace +let inputDeviceInfo self = msg_send ~self ~cmd:(selector "inputDeviceInfo") ~typ:(returning id) +let shouldPerformHapticFeedback self = msg_send ~self ~cmd:(selector "shouldPerformHapticFeedback") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIFocusMovementHint.ml b/uikit_extra/UIFocusMovementHint.ml new file mode 100644 index 00000000..84bc9e8e --- /dev/null +++ b/uikit_extra/UIFocusMovementHint.ml @@ -0,0 +1,25 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifocusmovementhint?language=objc}UIFocusMovementHint} *) + +let self = get_class "UIFocusMovementHint" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let initWithMovementDirection x ~itemSize self = msg_send ~self ~cmd:(selector "initWithMovementDirection:itemSize:") ~typ:(CGVector.t @-> CGSize.t @-> returning id) x itemSize +let interactionTransform self = msg_send ~self ~cmd:(selector "interactionTransform") ~typ:(returning CATransform3D.t) +let movementDirection self = msg_send ~self ~cmd:(selector "movementDirection") ~typ:(returning CGVector.t) +let perspectiveTransform self = msg_send ~self ~cmd:(selector "perspectiveTransform") ~typ:(returning CATransform3D.t) +let rotation self = msg_send ~self ~cmd:(selector "rotation") ~typ:(returning CGVector.t) +let rotationAmount self = msg_send ~self ~cmd:(selector "rotationAmount") ~typ:(returning double) +let setRotationAmount x self = msg_send ~self ~cmd:(selector "setRotationAmount:") ~typ:(double @-> returning void) x +let setTranslationAmount x self = msg_send ~self ~cmd:(selector "setTranslationAmount:") ~typ:(double @-> returning void) x +let translation self = msg_send ~self ~cmd:(selector "translation") ~typ:(returning CGVector.t) +let translationAmount self = msg_send ~self ~cmd:(selector "translationAmount") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIFocusRingClientState.ml b/uikit_extra/UIFocusRingClientState.ml new file mode 100644 index 00000000..e8a33b91 --- /dev/null +++ b/uikit_extra/UIFocusRingClientState.ml @@ -0,0 +1,24 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifocusringclientstate?language=objc}UIFocusRingClientState} *) + +let self = get_class "UIFocusRingClientState" + +let activeFocusLayers self = msg_send ~self ~cmd:(selector "activeFocusLayers") ~typ:(returning id) +let activeFocusLayersToItems self = msg_send ~self ~cmd:(selector "activeFocusLayersToItems") ~typ:(returning id) +let clientID self = msg_send ~self ~cmd:(selector "clientID") ~typ:(returning id) +let currentFocusItem self = msg_send ~self ~cmd:(selector "currentFocusItem") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let initWithClientID x self = msg_send ~self ~cmd:(selector "initWithClientID:") ~typ:(id @-> returning id) x +let setActiveFocusLayers x self = msg_send ~self ~cmd:(selector "setActiveFocusLayers:") ~typ:(id @-> returning void) x +let setActiveFocusLayersToItems x self = msg_send ~self ~cmd:(selector "setActiveFocusLayersToItems:") ~typ:(id @-> returning void) x +let setClientID x self = msg_send ~self ~cmd:(selector "setClientID:") ~typ:(id @-> returning void) x +let setCurrentFocusItem x self = msg_send ~self ~cmd:(selector "setCurrentFocusItem:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIFocusRingManager.ml b/uikit_extra/UIFocusRingManager.ml new file mode 100644 index 00000000..576c40f3 --- /dev/null +++ b/uikit_extra/UIFocusRingManager.ml @@ -0,0 +1,23 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifocusringmanager?language=objc}UIFocusRingManager} *) + +let self = get_class "UIFocusRingManager" + +let activeFocusLayersForClient x self = msg_send ~self ~cmd:(selector "activeFocusLayersForClient:") ~typ:(id @-> returning id) x +let activeFocusLayersToItemsForClient x self = msg_send ~self ~cmd:(selector "activeFocusLayersToItemsForClient:") ~typ:(id @-> returning id) x +let addFocusRingForItem x ~forClient self = msg_send ~self ~cmd:(selector "addFocusRingForItem:forClient:") ~typ:(id @-> id @-> returning void) x forClient +let addParentFocusRingForItem x ~forClient self = msg_send ~self ~cmd:(selector "addParentFocusRingForItem:forClient:") ~typ:(id @-> id @-> returning void) x forClient +let addSelectedFocusRingForItem x ~forClient self = msg_send ~self ~cmd:(selector "addSelectedFocusRingForItem:forClient:") ~typ:(id @-> id @-> returning void) x forClient +let addSelectedParentFocusRingForItem x ~forClient self = msg_send ~self ~cmd:(selector "addSelectedParentFocusRingForItem:forClient:") ~typ:(id @-> id @-> returning void) x forClient +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let focusRingStateForClient self = msg_send ~self ~cmd:(selector "focusRingStateForClient") ~typ:(returning id) +let setFocusRingStateForClient x self = msg_send ~self ~cmd:(selector "setFocusRingStateForClient:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIFocusRingManagerClass.ml b/uikit_extra/UIFocusRingManagerClass.ml new file mode 100644 index 00000000..1ec234c8 --- /dev/null +++ b/uikit_extra/UIFocusRingManagerClass.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifocusringmanager?language=objc}UIFocusRingManager} *) + +let focusRingAvailable self = msg_send ~self ~cmd:(selector "focusRingAvailable") ~typ:(returning bool) +let manager self = msg_send ~self ~cmd:(selector "manager") ~typ:(returning id) +let moveRingToFocusItem x self = msg_send ~self ~cmd:(selector "moveRingToFocusItem:") ~typ:(id @-> returning void) x +let moveRingToFocusItem' x ~forClient self = msg_send ~self ~cmd:(selector "moveRingToFocusItem:forClient:") ~typ:(id @-> id @-> returning void) x forClient +let removeRingFromFocusItem x self = msg_send ~self ~cmd:(selector "removeRingFromFocusItem:") ~typ:(id @-> returning void) x +let removeRingFromFocusItem' x ~forClient self = msg_send ~self ~cmd:(selector "removeRingFromFocusItem:forClient:") ~typ:(id @-> id @-> returning void) x forClient +let shapeLayerClassForItem x ~client self = msg_send ~self ~cmd:(selector "shapeLayerClassForItem:client:") ~typ:(id @-> id @-> returning _Class) x client +let updateRingForFocusItem x self = msg_send ~self ~cmd:(selector "updateRingForFocusItem:") ~typ:(id @-> returning void) x +let updateRingForFocusItem' x ~forClient self = msg_send ~self ~cmd:(selector "updateRingForFocusItem:forClient:") ~typ:(id @-> id @-> returning void) x forClient \ No newline at end of file diff --git a/uikit_extra/UIFont.ml b/uikit_extra/UIFont.ml deleted file mode 100644 index f0fe0868..00000000 --- a/uikit_extra/UIFont.ml +++ /dev/null @@ -1,60 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIFont" - -module C = struct - let boldSystemFontOfSize x self = msg_send ~self ~cmd:(selector "boldSystemFontOfSize:") ~typ:(double @-> returning (id)) x - let buttonFontSize self = msg_send ~self ~cmd:(selector "buttonFontSize") ~typ:(returning (double)) - let classFallbacksForKeyedArchiver self = msg_send ~self ~cmd:(selector "classFallbacksForKeyedArchiver") ~typ:(returning (id)) - let defaultFontForTextStyle x self = msg_send ~self ~cmd:(selector "defaultFontForTextStyle:") ~typ:(id @-> returning (id)) x - let defaultFontSize self = msg_send ~self ~cmd:(selector "defaultFontSize") ~typ:(returning (double)) - let familyNames self = msg_send ~self ~cmd:(selector "familyNames") ~typ:(returning (id)) - let fontNamesForFamilyName x self = msg_send ~self ~cmd:(selector "fontNamesForFamilyName:") ~typ:(id @-> returning (id)) x - let fontWithDescriptor x ~size self = msg_send ~self ~cmd:(selector "fontWithDescriptor:size:") ~typ:(id @-> double @-> returning (id)) x size - let fontWithFamilyName x ~traits ~size self = msg_send ~self ~cmd:(selector "fontWithFamilyName:traits:size:") ~typ:(id @-> int @-> double @-> returning (id)) x traits size - let fontWithMarkupDescription x self = msg_send ~self ~cmd:(selector "fontWithMarkupDescription:") ~typ:(id @-> returning (id)) x - let fontWithName x ~size self = msg_send ~self ~cmd:(selector "fontWithName:size:") ~typ:(id @-> double @-> returning (id)) x size - let fontWithName' x ~size ~traits self = msg_send ~self ~cmd:(selector "fontWithName:size:traits:") ~typ:(id @-> double @-> int @-> returning (id)) x size traits - let italicSystemFontOfSize x self = msg_send ~self ~cmd:(selector "italicSystemFontOfSize:") ~typ:(double @-> returning (id)) x - let labelFontSize self = msg_send ~self ~cmd:(selector "labelFontSize") ~typ:(returning (double)) - let monospacedDigitSystemFontOfSize x ~weight self = msg_send ~self ~cmd:(selector "monospacedDigitSystemFontOfSize:weight:") ~typ:(double @-> double @-> returning (id)) x weight - let monospacedSystemFontOfSize x ~weight self = msg_send ~self ~cmd:(selector "monospacedSystemFontOfSize:weight:") ~typ:(double @-> double @-> returning (id)) x weight - let preferredContentSizeCategory self = msg_send ~self ~cmd:(selector "preferredContentSizeCategory") ~typ:(returning (id)) - let preferredFontForTextStyle x self = msg_send ~self ~cmd:(selector "preferredFontForTextStyle:") ~typ:(id @-> returning (id)) x - let preferredFontForTextStyle' x ~compatibleWithTraitCollection self = msg_send ~self ~cmd:(selector "preferredFontForTextStyle:compatibleWithTraitCollection:") ~typ:(id @-> id @-> returning (id)) x compatibleWithTraitCollection - let preferredFontForUsage x self = msg_send ~self ~cmd:(selector "preferredFontForUsage:") ~typ:(id @-> returning (id)) x - let preferredFontForUsage' x ~contentSizeCategoryName self = msg_send ~self ~cmd:(selector "preferredFontForUsage:contentSizeCategoryName:") ~typ:(id @-> id @-> returning (id)) x contentSizeCategoryName - let smallSystemFontSize self = msg_send ~self ~cmd:(selector "smallSystemFontSize") ~typ:(returning (double)) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) - let systemFontOfSize x self = msg_send ~self ~cmd:(selector "systemFontOfSize:") ~typ:(double @-> returning (id)) x - let systemFontOfSize1 x ~traits self = msg_send ~self ~cmd:(selector "systemFontOfSize:traits:") ~typ:(double @-> int @-> returning (id)) x traits - let systemFontOfSize2 x ~weight self = msg_send ~self ~cmd:(selector "systemFontOfSize:weight:") ~typ:(double @-> double @-> returning (id)) x weight - let systemFontOfSize3 x ~weight ~design self = msg_send ~self ~cmd:(selector "systemFontOfSize:weight:design:") ~typ:(double @-> double @-> id @-> returning (id)) x weight design - let systemFontSize self = msg_send ~self ~cmd:(selector "systemFontSize") ~typ:(returning (double)) - let systemMinimumFontSize self = msg_send ~self ~cmd:(selector "systemMinimumFontSize") ~typ:(returning (double)) -end - -let classForCoder self = msg_send ~self ~cmd:(selector "classForCoder") ~typ:(returning (_Class)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let familyNameForCSSFontFamilyValueForWebKit x self = msg_send ~self ~cmd:(selector "familyNameForCSSFontFamilyValueForWebKit:") ~typ:(bool @-> returning (id)) x -let htmlMarkupDescription self = msg_send ~self ~cmd:(selector "htmlMarkupDescription") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFamilyName x ~traits ~size self = msg_send ~self ~cmd:(selector "initWithFamilyName:traits:size:") ~typ:(id @-> int @-> double @-> returning (id)) x traits size -let initWithMarkupDescription x self = msg_send ~self ~cmd:(selector "initWithMarkupDescription:") ~typ:(id @-> returning (id)) x -let initWithName x ~size self = msg_send ~self ~cmd:(selector "initWithName:size:") ~typ:(id @-> double @-> returning (id)) x size -let isIBFontMetricsScaledFont self = msg_send ~self ~cmd:(selector "isIBFontMetricsScaledFont") ~typ:(returning (bool)) -let isIBTextStyleFont self = msg_send ~self ~cmd:(selector "isIBTextStyleFont") ~typ:(returning (bool)) -let markupDescription self = msg_send ~self ~cmd:(selector "markupDescription") ~typ:(returning (id)) -let markupDescriptionForWebKit x ~pointSize ~sizeUnit self = msg_send ~self ~cmd:(selector "markupDescriptionForWebKit:pointSize:sizeUnit:") ~typ:(bool @-> float @-> id @-> returning (id)) x pointSize sizeUnit -let maximumPointSizeAfterScaling self = msg_send ~self ~cmd:(selector "maximumPointSizeAfterScaling") ~typ:(returning (double)) -let pointSizeForScaling self = msg_send ~self ~cmd:(selector "pointSizeForScaling") ~typ:(returning (double)) -let readableWidth self = msg_send ~self ~cmd:(selector "readableWidth") ~typ:(returning (double)) -let textStyleForScaling self = msg_send ~self ~cmd:(selector "textStyleForScaling") ~typ:(returning (id)) -let traitCollectionFromTraitEnvironment x self = msg_send ~self ~cmd:(selector "traitCollectionFromTraitEnvironment:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit_extra/UIFontDescriptor.ml b/uikit_extra/UIFontDescriptor.ml deleted file mode 100644 index 5d286ff2..00000000 --- a/uikit_extra/UIFontDescriptor.ml +++ /dev/null @@ -1,37 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIFontDescriptor" - -module C = struct - let defaultFontDescriptorWithTextStyle x self = msg_send ~self ~cmd:(selector "defaultFontDescriptorWithTextStyle:") ~typ:(id @-> returning (id)) x - let defaultFontDescriptorWithTextStyle' x ~addingSymbolicTraits ~options self = msg_send ~self ~cmd:(selector "defaultFontDescriptorWithTextStyle:addingSymbolicTraits:options:") ~typ:(id @-> uint @-> ullong @-> returning (id)) x addingSymbolicTraits (ULLong.of_int options) - let fontDescriptorWithFontAttributes x self = msg_send ~self ~cmd:(selector "fontDescriptorWithFontAttributes:") ~typ:(id @-> returning (id)) x - let fontDescriptorWithName x ~matrix self = msg_send ~self ~cmd:(selector "fontDescriptorWithName:matrix:") ~typ:(id @-> ptr void @-> returning (id)) x matrix - let fontDescriptorWithName' x ~size self = msg_send ~self ~cmd:(selector "fontDescriptorWithName:size:") ~typ:(id @-> double @-> returning (id)) x size - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let preferredFontDescriptorWithTextStyle x self = msg_send ~self ~cmd:(selector "preferredFontDescriptorWithTextStyle:") ~typ:(id @-> returning (id)) x - let preferredFontDescriptorWithTextStyle1 x ~compatibleWithTraitCollection self = msg_send ~self ~cmd:(selector "preferredFontDescriptorWithTextStyle:compatibleWithTraitCollection:") ~typ:(id @-> id @-> returning (id)) x compatibleWithTraitCollection - let preferredFontDescriptorWithTextStyle2 x ~addingSymbolicTraits ~options self = msg_send ~self ~cmd:(selector "preferredFontDescriptorWithTextStyle:addingSymbolicTraits:options:") ~typ:(id @-> uint @-> ullong @-> returning (id)) x addingSymbolicTraits (ULLong.of_int options) - let prepareMatrixMethods self = msg_send ~self ~cmd:(selector "prepareMatrixMethods") ~typ:(returning (void)) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let classForCoder self = msg_send ~self ~cmd:(selector "classForCoder") ~typ:(returning (_Class)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let fontAttributes self = msg_send ~self ~cmd:(selector "fontAttributes") ~typ:(returning (id)) -let fontDescriptorByAddingAttributes x self = msg_send ~self ~cmd:(selector "fontDescriptorByAddingAttributes:") ~typ:(id @-> returning (id)) x -let fontDescriptorWithSymbolicTraits x self = msg_send ~self ~cmd:(selector "fontDescriptorWithSymbolicTraits:") ~typ:(uint @-> returning (id)) x -let fontDescriptorWithSymbolicTraits' x ~mask self = msg_send ~self ~cmd:(selector "fontDescriptorWithSymbolicTraits:mask:") ~typ:(uint @-> uint @-> returning (id)) x mask -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFontAttributes x self = msg_send ~self ~cmd:(selector "initWithFontAttributes:") ~typ:(id @-> returning (id)) x -let postscriptName self = msg_send ~self ~cmd:(selector "postscriptName") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UIFontPickerViewControllerConfiguration.ml b/uikit_extra/UIFontPickerViewControllerConfiguration.ml new file mode 100644 index 00000000..83eafb3e --- /dev/null +++ b/uikit_extra/UIFontPickerViewControllerConfiguration.ml @@ -0,0 +1,26 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifontpickerviewcontrollerconfiguration?language=objc}UIFontPickerViewControllerConfiguration} *) + +let self = get_class "UIFontPickerViewControllerConfiguration" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let displayUsingSystemFont self = msg_send ~self ~cmd:(selector "displayUsingSystemFont") ~typ:(returning bool) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let filteredLanguagesPredicate self = msg_send ~self ~cmd:(selector "filteredLanguagesPredicate") ~typ:(returning id) +let filteredTraits self = msg_send ~self ~cmd:(selector "filteredTraits") ~typ:(returning uint) +let includeFaces self = msg_send ~self ~cmd:(selector "includeFaces") ~typ:(returning bool) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let setDisplayUsingSystemFont x self = msg_send ~self ~cmd:(selector "setDisplayUsingSystemFont:") ~typ:(bool @-> returning void) x +let setFilteredLanguagesPredicate x self = msg_send ~self ~cmd:(selector "setFilteredLanguagesPredicate:") ~typ:(id @-> returning void) x +let setFilteredTraits x self = msg_send ~self ~cmd:(selector "setFilteredTraits:") ~typ:(uint @-> returning void) x +let setIncludeFaces x self = msg_send ~self ~cmd:(selector "setIncludeFaces:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIFontPickerViewControllerConfigurationClass.ml b/uikit_extra/UIFontPickerViewControllerConfigurationClass.ml new file mode 100644 index 00000000..662c75f1 --- /dev/null +++ b/uikit_extra/UIFontPickerViewControllerConfigurationClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uifontpickerviewcontrollerconfiguration?language=objc}UIFontPickerViewControllerConfiguration} *) + +let filterPredicateForFilteredLanguages x self = msg_send ~self ~cmd:(selector "filterPredicateForFilteredLanguages:") ~typ:(id @-> returning id) x +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIForceStageInteractionProgress.ml b/uikit_extra/UIForceStageInteractionProgress.ml new file mode 100644 index 00000000..07fc261d --- /dev/null +++ b/uikit_extra/UIForceStageInteractionProgress.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiforcestageinteractionprogress?language=objc}UIForceStageInteractionProgress} *) + +let self = get_class "UIForceStageInteractionProgress" + +let completesAtTargetState self = msg_send ~self ~cmd:(selector "completesAtTargetState") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let receiveObservedValue x self = msg_send ~self ~cmd:(selector "receiveObservedValue:") ~typ:(id @-> returning void) x +let setCompletesAtTargetState x self = msg_send ~self ~cmd:(selector "setCompletesAtTargetState:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIHBClickGestureRecognizer.ml b/uikit_extra/UIHBClickGestureRecognizer.ml new file mode 100644 index 00000000..11560ead --- /dev/null +++ b/uikit_extra/UIHBClickGestureRecognizer.ml @@ -0,0 +1,24 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uihbclickgesturerecognizer?language=objc}UIHBClickGestureRecognizer} *) + +let self = get_class "UIHBClickGestureRecognizer" + +let clickCount self = msg_send ~self ~cmd:(selector "clickCount") ~typ:(returning ullong) +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEventDidReceiveTerminal x self = msg_send ~self ~cmd:(selector "pressesEventDidReceiveTerminal:") ~typ:(id @-> returning void) x +let recognizesOnPressPhaseBegan self = msg_send ~self ~cmd:(selector "recognizesOnPressPhaseBegan") ~typ:(returning bool) +let setClickCount x self = msg_send ~self ~cmd:(selector "setClickCount:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setRecognizesOnPressPhaseBegan x self = msg_send ~self ~cmd:(selector "setRecognizesOnPressPhaseBegan:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIHBDownGestureRecognizer.ml b/uikit_extra/UIHBDownGestureRecognizer.ml new file mode 100644 index 00000000..1fd97d9f --- /dev/null +++ b/uikit_extra/UIHBDownGestureRecognizer.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uihbdowngesturerecognizer?language=objc}UIHBDownGestureRecognizer} *) + +let self = get_class "UIHBDownGestureRecognizer" + +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let maximumIntervalBetweenPresses self = msg_send ~self ~cmd:(selector "maximumIntervalBetweenPresses") ~typ:(returning double) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let setAllowedPressTypes x self = msg_send ~self ~cmd:(selector "setAllowedPressTypes:") ~typ:(id @-> returning void) x +let setMaximumIntervalBetweenPresses x self = msg_send ~self ~cmd:(selector "setMaximumIntervalBetweenPresses:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIHBLongClickGestureRecognizer.ml b/uikit_extra/UIHBLongClickGestureRecognizer.ml new file mode 100644 index 00000000..7b28f704 --- /dev/null +++ b/uikit_extra/UIHBLongClickGestureRecognizer.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uihblongclickgesturerecognizer?language=objc}UIHBLongClickGestureRecognizer} *) + +let self = get_class "UIHBLongClickGestureRecognizer" + +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let numberOfClicksRequired self = msg_send ~self ~cmd:(selector "numberOfClicksRequired") ~typ:(returning ullong) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEventDidReceiveTerminal x self = msg_send ~self ~cmd:(selector "pressesEventDidReceiveTerminal:") ~typ:(id @-> returning void) x +let setNumberOfClicksRequired x self = msg_send ~self ~cmd:(selector "setNumberOfClicksRequired:") ~typ:(ullong @-> returning void) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIIndexBarDisplayEntry_LegacyIOS.ml b/uikit_extra/UIIndexBarDisplayEntry_LegacyIOS.ml index 0881534e..7b4ba23f 100644 --- a/uikit_extra/UIIndexBarDisplayEntry_LegacyIOS.ml +++ b/uikit_extra/UIIndexBarDisplayEntry_LegacyIOS.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIIndexBarDisplayEntry_LegacyIOS" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiindexbardisplayentry_legacyios?language=objc}UIIndexBarDisplayEntry_LegacyIOS} *) -let baselinePoint self = msg_send_stret ~self ~cmd:(selector "baselinePoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let bounds self = msg_send_stret ~self ~cmd:(selector "bounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let line self = msg_send ~self ~cmd:(selector "line") ~typ:(returning (id)) -let setBaselinePoint x self = msg_send ~self ~cmd:(selector "setBaselinePoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning (void)) x -let setLine x self = msg_send ~self ~cmd:(selector "setLine:") ~typ:(id @-> returning (void)) x -let setTypeBounds x self = msg_send ~self ~cmd:(selector "setTypeBounds:") ~typ:(CGRect.t @-> returning (void)) x -let typeBounds self = msg_send_stret ~self ~cmd:(selector "typeBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t \ No newline at end of file +let self = get_class "UIIndexBarDisplayEntry_LegacyIOS" + +let baselinePoint self = msg_send ~self ~cmd:(selector "baselinePoint") ~typ:(returning CGPoint.t) +let bounds self = msg_send ~self ~cmd:(selector "bounds") ~typ:(returning CGRect.t) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning id) +let line self = msg_send ~self ~cmd:(selector "line") ~typ:(returning id) +let setBaselinePoint x self = msg_send ~self ~cmd:(selector "setBaselinePoint:") ~typ:(CGPoint.t @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setImage x self = msg_send ~self ~cmd:(selector "setImage:") ~typ:(id @-> returning void) x +let setLine x self = msg_send ~self ~cmd:(selector "setLine:") ~typ:(id @-> returning void) x +let setTypeBounds x self = msg_send ~self ~cmd:(selector "setTypeBounds:") ~typ:(CGRect.t @-> returning void) x +let typeBounds self = msg_send ~self ~cmd:(selector "typeBounds") ~typ:(returning CGRect.t) \ No newline at end of file diff --git a/uikit_extra/UIIndexBarVisualStyle_Base.ml b/uikit_extra/UIIndexBarVisualStyle_Base.ml index 375091a3..33892f71 100644 --- a/uikit_extra/UIIndexBarVisualStyle_Base.ml +++ b/uikit_extra/UIIndexBarVisualStyle_Base.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIIndexBarVisualStyle_Base" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiindexbarvisualstyle_base?language=objc}UIIndexBarVisualStyle_Base} *) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let displayEntryFromEntry x self = msg_send ~self ~cmd:(selector "displayEntryFromEntry:") ~typ:(id @-> returning (id)) x -let indexBarView self = msg_send ~self ~cmd:(selector "indexBarView") ~typ:(returning (id)) -let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning (id)) x -let minLineHeight self = msg_send ~self ~cmd:(selector "minLineHeight") ~typ:(returning (double)) -let overlay self = msg_send ~self ~cmd:(selector "overlay") ~typ:(returning (bool)) -let setIndexBarView x self = msg_send ~self ~cmd:(selector "setIndexBarView:") ~typ:(id @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x \ No newline at end of file +let self = get_class "UIIndexBarVisualStyle_Base" + +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let displayEntryFromEntry x self = msg_send ~self ~cmd:(selector "displayEntryFromEntry:") ~typ:(id @-> returning id) x +let indexBarView self = msg_send ~self ~cmd:(selector "indexBarView") ~typ:(returning id) +let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning id) x +let minLineHeight self = msg_send ~self ~cmd:(selector "minLineHeight") ~typ:(returning double) +let overlay self = msg_send ~self ~cmd:(selector "overlay") ~typ:(returning bool) +let setIndexBarView x self = msg_send ~self ~cmd:(selector "setIndexBarView:") ~typ:(id @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x \ No newline at end of file diff --git a/uikit_extra/UIIndexBarVisualStyle_LegacyiOS.ml b/uikit_extra/UIIndexBarVisualStyle_LegacyiOS.ml index 28accf37..c3a5c9be 100644 --- a/uikit_extra/UIIndexBarVisualStyle_LegacyiOS.ml +++ b/uikit_extra/UIIndexBarVisualStyle_LegacyiOS.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIIndexBarVisualStyle_LegacyiOS" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiindexbarvisualstyle_legacyios?language=objc}UIIndexBarVisualStyle_LegacyiOS} *) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let displayEntriesUpdated self = msg_send ~self ~cmd:(selector "displayEntriesUpdated") ~typ:(returning (void)) -let displayEntryFromEntry x self = msg_send ~self ~cmd:(selector "displayEntryFromEntry:") ~typ:(id @-> returning (id)) x -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let indexColorUpdated self = msg_send ~self ~cmd:(selector "indexColorUpdated") ~typ:(returning (void)) -let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning (id)) x -let minLineHeight self = msg_send ~self ~cmd:(selector "minLineHeight") ~typ:(returning (double)) -let nonTrackingBackgroundColor self = msg_send ~self ~cmd:(selector "nonTrackingBackgroundColor") ~typ:(returning (id)) -let overlay self = msg_send ~self ~cmd:(selector "overlay") ~typ:(returning (bool)) -let setNonTrackingBackgroundColor x self = msg_send ~self ~cmd:(selector "setNonTrackingBackgroundColor:") ~typ:(id @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let sizeUpdated self = msg_send ~self ~cmd:(selector "sizeUpdated") ~typ:(returning (void)) -let updateSectionForTouch x ~withEvent self = msg_send ~self ~cmd:(selector "updateSectionForTouch:withEvent:") ~typ:(id @-> id @-> returning (bool)) x withEvent \ No newline at end of file +let self = get_class "UIIndexBarVisualStyle_LegacyiOS" + +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let displayEntriesUpdated self = msg_send ~self ~cmd:(selector "displayEntriesUpdated") ~typ:(returning void) +let displayEntryFromEntry x self = msg_send ~self ~cmd:(selector "displayEntryFromEntry:") ~typ:(id @-> returning id) x +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let indexColorUpdated self = msg_send ~self ~cmd:(selector "indexColorUpdated") ~typ:(returning void) +let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning id) x +let minLineHeight self = msg_send ~self ~cmd:(selector "minLineHeight") ~typ:(returning double) +let nonTrackingBackgroundColor self = msg_send ~self ~cmd:(selector "nonTrackingBackgroundColor") ~typ:(returning id) +let overlay self = msg_send ~self ~cmd:(selector "overlay") ~typ:(returning bool) +let setNonTrackingBackgroundColor x self = msg_send ~self ~cmd:(selector "setNonTrackingBackgroundColor:") ~typ:(id @-> returning void) x +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let sizeUpdated self = msg_send ~self ~cmd:(selector "sizeUpdated") ~typ:(returning void) +let updateSectionForTouch x ~withEvent self = msg_send ~self ~cmd:(selector "updateSectionForTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent \ No newline at end of file diff --git a/uikit_extra/UIInputViewAnimationControllerBasic.ml b/uikit_extra/UIInputViewAnimationControllerBasic.ml new file mode 100644 index 00000000..dcebdc4f --- /dev/null +++ b/uikit_extra/UIInputViewAnimationControllerBasic.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewanimationcontrollerbasic?language=objc}UIInputViewAnimationControllerBasic} *) + +let self = get_class "UIInputViewAnimationControllerBasic" + +let completeAnimationWithHost x ~context self = msg_send ~self ~cmd:(selector "completeAnimationWithHost:context:") ~typ:(id @-> id @-> returning void) x context +let performAnimationWithHost x ~context self = msg_send ~self ~cmd:(selector "performAnimationWithHost:context:") ~typ:(id @-> id @-> returning void) x context +let prepareAnimationWithHost x ~startPlacement ~endPlacement self = msg_send ~self ~cmd:(selector "prepareAnimationWithHost:startPlacement:endPlacement:") ~typ:(id @-> id @-> id @-> returning id) x startPlacement endPlacement \ No newline at end of file diff --git a/uikit_extra/UIInputViewAnimationControllerSlide.ml b/uikit_extra/UIInputViewAnimationControllerSlide.ml new file mode 100644 index 00000000..7c10c3b6 --- /dev/null +++ b/uikit_extra/UIInputViewAnimationControllerSlide.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewanimationcontrollerslide?language=objc}UIInputViewAnimationControllerSlide} *) + +let self = get_class "UIInputViewAnimationControllerSlide" + +let completeAnimationWithHost x ~context self = msg_send ~self ~cmd:(selector "completeAnimationWithHost:context:") ~typ:(id @-> id @-> returning void) x context +let initWithSlide x self = msg_send ~self ~cmd:(selector "initWithSlide:") ~typ:(int @-> returning id) x +let performAnimationWithHost x ~context self = msg_send ~self ~cmd:(selector "performAnimationWithHost:context:") ~typ:(id @-> id @-> returning void) x context +let placementForSlideStart x self = msg_send ~self ~cmd:(selector "placementForSlideStart:") ~typ:(bool @-> returning id) x +let prepareAnimationWithHost x ~startPlacement ~endPlacement self = msg_send ~self ~cmd:(selector "prepareAnimationWithHost:startPlacement:endPlacement:") ~typ:(id @-> id @-> id @-> returning id) x startPlacement endPlacement \ No newline at end of file diff --git a/uikit_extra/UIInputViewAnimationControllerSlideContext.ml b/uikit_extra/UIInputViewAnimationControllerSlideContext.ml new file mode 100644 index 00000000..924aef25 --- /dev/null +++ b/uikit_extra/UIInputViewAnimationControllerSlideContext.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewanimationcontrollerslidecontext?language=objc}UIInputViewAnimationControllerSlideContext} *) + +let self = get_class "UIInputViewAnimationControllerSlideContext" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let endPlacement self = msg_send ~self ~cmd:(selector "endPlacement") ~typ:(returning id) +let setEndPlacement x self = msg_send ~self ~cmd:(selector "setEndPlacement:") ~typ:(id @-> returning void) x +let setSnapshot x self = msg_send ~self ~cmd:(selector "setSnapshot:") ~typ:(id @-> returning void) x +let setSnapshotEndFrame x self = msg_send ~self ~cmd:(selector "setSnapshotEndFrame:") ~typ:(CGRect.t @-> returning void) x +let snapshot self = msg_send ~self ~cmd:(selector "snapshot") ~typ:(returning id) +let snapshotEndFrame self = msg_send ~self ~cmd:(selector "snapshotEndFrame") ~typ:(returning CGRect.t) \ No newline at end of file diff --git a/uikit_extra/UIInputViewAnimationControllerViewController.ml b/uikit_extra/UIInputViewAnimationControllerViewController.ml new file mode 100644 index 00000000..6dbaf80f --- /dev/null +++ b/uikit_extra/UIInputViewAnimationControllerViewController.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewanimationcontrollerviewcontroller?language=objc}UIInputViewAnimationControllerViewController} *) + +let self = get_class "UIInputViewAnimationControllerViewController" + +let completeAnimationWithHost x ~context self = msg_send ~self ~cmd:(selector "completeAnimationWithHost:context:") ~typ:(id @-> id @-> returning void) x context +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithContext x self = msg_send ~self ~cmd:(selector "initWithContext:") ~typ:(id @-> returning id) x +let performAnimationWithHost x ~context self = msg_send ~self ~cmd:(selector "performAnimationWithHost:context:") ~typ:(id @-> id @-> returning void) x context +let prepareAnimationWithHost x ~startPlacement ~endPlacement self = msg_send ~self ~cmd:(selector "prepareAnimationWithHost:startPlacement:endPlacement:") ~typ:(id @-> id @-> id @-> returning id) x startPlacement endPlacement \ No newline at end of file diff --git a/uikit_extra/UIInputViewAnimationControllerViewControllerClass.ml b/uikit_extra/UIInputViewAnimationControllerViewControllerClass.ml new file mode 100644 index 00000000..8f6a3c33 --- /dev/null +++ b/uikit_extra/UIInputViewAnimationControllerViewControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewanimationcontrollerviewcontroller?language=objc}UIInputViewAnimationControllerViewController} *) + +let controllerWithContext x self = msg_send ~self ~cmd:(selector "controllerWithContext:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIInputViewAnimationControllerViewControllerContext.ml b/uikit_extra/UIInputViewAnimationControllerViewControllerContext.ml new file mode 100644 index 00000000..703dee2c --- /dev/null +++ b/uikit_extra/UIInputViewAnimationControllerViewControllerContext.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewanimationcontrollerviewcontrollercontext?language=objc}UIInputViewAnimationControllerViewControllerContext} *) + +let self = get_class "UIInputViewAnimationControllerViewControllerContext" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let fromKeyboard self = msg_send ~self ~cmd:(selector "fromKeyboard") ~typ:(returning id) +let fromKeyboardFrame self = msg_send ~self ~cmd:(selector "fromKeyboardFrame") ~typ:(returning CGRect.t) +let initWithHost x ~startPlacement ~endPlacement ~transitionContext self = msg_send ~self ~cmd:(selector "initWithHost:startPlacement:endPlacement:transitionContext:") ~typ:(id @-> id @-> id @-> id @-> returning id) x startPlacement endPlacement transitionContext +let mainContext self = msg_send ~self ~cmd:(selector "mainContext") ~typ:(returning id) +let toKeyboard self = msg_send ~self ~cmd:(selector "toKeyboard") ~typ:(returning id) +let toKeyboardFrame self = msg_send ~self ~cmd:(selector "toKeyboardFrame") ~typ:(returning CGRect.t) \ No newline at end of file diff --git a/uikit_extra/UIInputViewAnimationControllerViewControllerContextClass.ml b/uikit_extra/UIInputViewAnimationControllerViewControllerContextClass.ml new file mode 100644 index 00000000..ad066473 --- /dev/null +++ b/uikit_extra/UIInputViewAnimationControllerViewControllerContextClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewanimationcontrollerviewcontrollercontext?language=objc}UIInputViewAnimationControllerViewControllerContext} *) + +let contextWithHost x ~startPlacement ~endPlacement ~transitionContext self = msg_send ~self ~cmd:(selector "contextWithHost:startPlacement:endPlacement:transitionContext:") ~typ:(id @-> id @-> id @-> id @-> returning id) x startPlacement endPlacement transitionContext \ No newline at end of file diff --git a/uikit_extra/UIInputViewAnimationStyleDirectional.ml b/uikit_extra/UIInputViewAnimationStyleDirectional.ml new file mode 100644 index 00000000..f0a485ba --- /dev/null +++ b/uikit_extra/UIInputViewAnimationStyleDirectional.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewanimationstyledirectional?language=objc}UIInputViewAnimationStyleDirectional} *) + +let self = get_class "UIInputViewAnimationStyleDirectional" + +let canDismissWithScrollView self = msg_send ~self ~cmd:(selector "canDismissWithScrollView") ~typ:(returning bool) +let controllerForStartPlacement x ~endPlacement self = msg_send ~self ~cmd:(selector "controllerForStartPlacement:endPlacement:") ~typ:(id @-> id @-> returning id) x endPlacement +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let endPlacementForInputViewSet x ~windowScene self = msg_send ~self ~cmd:(selector "endPlacementForInputViewSet:windowScene:") ~typ:(id @-> id @-> returning id) x windowScene +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let outDirection self = msg_send ~self ~cmd:(selector "outDirection") ~typ:(returning int) +let setOutDirection x self = msg_send ~self ~cmd:(selector "setOutDirection:") ~typ:(int @-> returning void) x +let startPlacementForInputViewSet x ~currentPlacement ~windowScene self = msg_send ~self ~cmd:(selector "startPlacementForInputViewSet:currentPlacement:windowScene:") ~typ:(id @-> id @-> id @-> returning id) x currentPlacement windowScene \ No newline at end of file diff --git a/uikit_extra/UIInputViewAnimationStyleDirectionalClass.ml b/uikit_extra/UIInputViewAnimationStyleDirectionalClass.ml new file mode 100644 index 00000000..5036b08f --- /dev/null +++ b/uikit_extra/UIInputViewAnimationStyleDirectionalClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewanimationstyledirectional?language=objc}UIInputViewAnimationStyleDirectional} *) + +let animationStyleAnimated x ~duration ~outDirection self = msg_send ~self ~cmd:(selector "animationStyleAnimated:duration:outDirection:") ~typ:(bool @-> double @-> int @-> returning id) x duration outDirection \ No newline at end of file diff --git a/uikit_extra/UIInputViewAnimationStyleExtraView.ml b/uikit_extra/UIInputViewAnimationStyleExtraView.ml new file mode 100644 index 00000000..26b27962 --- /dev/null +++ b/uikit_extra/UIInputViewAnimationStyleExtraView.ml @@ -0,0 +1,23 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewanimationstyleextraview?language=objc}UIInputViewAnimationStyleExtraView} *) + +let self = get_class "UIInputViewAnimationStyleExtraView" + +let alignment self = msg_send ~self ~cmd:(selector "alignment") ~typ:(returning int) +let animation self = msg_send ~self ~cmd:(selector "animation") ~typ:(returning (ptr void)) +let clipContainerType self = msg_send ~self ~cmd:(selector "clipContainerType") ~typ:(returning int) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let setAlignment x self = msg_send ~self ~cmd:(selector "setAlignment:") ~typ:(int @-> returning void) x +let setAnimation x self = msg_send ~self ~cmd:(selector "setAnimation:") ~typ:((ptr void) @-> returning void) x +let setClipContainerType x self = msg_send ~self ~cmd:(selector "setClipContainerType:") ~typ:(int @-> returning void) x +let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning void) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIInputViewAnimationStyleExtraViewClass.ml b/uikit_extra/UIInputViewAnimationStyleExtraViewClass.ml new file mode 100644 index 00000000..4f9b9cbd --- /dev/null +++ b/uikit_extra/UIInputViewAnimationStyleExtraViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewanimationstyleextraview?language=objc}UIInputViewAnimationStyleExtraView} *) + +let extraView x ~withAlignment ~animation ~onSnapshot self = msg_send ~self ~cmd:(selector "extraView:withAlignment:animation:onSnapshot:") ~typ:(id @-> int @-> (ptr void) @-> bool @-> returning id) x withAlignment animation onSnapshot \ No newline at end of file diff --git a/uikit_extra/UIInputViewPlacementTransition.ml b/uikit_extra/UIInputViewPlacementTransition.ml new file mode 100644 index 00000000..fb5be1eb --- /dev/null +++ b/uikit_extra/UIInputViewPlacementTransition.ml @@ -0,0 +1,34 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewplacementtransition?language=objc}UIInputViewPlacementTransition} *) + +let self = get_class "UIInputViewPlacementTransition" + +let animationContext self = msg_send ~self ~cmd:(selector "animationContext") ~typ:(returning id) +let animationController self = msg_send ~self ~cmd:(selector "animationController") ~typ:(returning id) +let animationState self = msg_send ~self ~cmd:(selector "animationState") ~typ:(returning int) +let animationStyle self = msg_send ~self ~cmd:(selector "animationStyle") ~typ:(returning id) +let cancelled self = msg_send ~self ~cmd:(selector "cancelled") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didAdvanceAnimationToState x self = msg_send ~self ~cmd:(selector "didAdvanceAnimationToState:") ~typ:(int @-> returning bool) x +let fromPlacement self = msg_send ~self ~cmd:(selector "fromPlacement") ~typ:(returning id) +let notificationInfo self = msg_send ~self ~cmd:(selector "notificationInfo") ~typ:(returning id) +let notifications self = msg_send ~self ~cmd:(selector "notifications") ~typ:(returning ullong) +let setAnimationContext x self = msg_send ~self ~cmd:(selector "setAnimationContext:") ~typ:(id @-> returning void) x +let setAnimationController x self = msg_send ~self ~cmd:(selector "setAnimationController:") ~typ:(id @-> returning void) x +let setAnimationState x self = msg_send ~self ~cmd:(selector "setAnimationState:") ~typ:(int @-> returning void) x +let setAnimationStyle x self = msg_send ~self ~cmd:(selector "setAnimationStyle:") ~typ:(id @-> returning void) x +let setCancelled x self = msg_send ~self ~cmd:(selector "setCancelled:") ~typ:(bool @-> returning void) x +let setFromPlacement x self = msg_send ~self ~cmd:(selector "setFromPlacement:") ~typ:(id @-> returning void) x +let setNotificationInfo x self = msg_send ~self ~cmd:(selector "setNotificationInfo:") ~typ:(id @-> returning void) x +let setNotifications x self = msg_send ~self ~cmd:(selector "setNotifications:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setToPlacement x self = msg_send ~self ~cmd:(selector "setToPlacement:") ~typ:(id @-> returning void) x +let toPlacement self = msg_send ~self ~cmd:(selector "toPlacement") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIInputViewPlacementTransitionClass.ml b/uikit_extra/UIInputViewPlacementTransitionClass.ml new file mode 100644 index 00000000..a1671a67 --- /dev/null +++ b/uikit_extra/UIInputViewPlacementTransitionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewplacementtransition?language=objc}UIInputViewPlacementTransition} *) + +let transitionFromPlacement x ~toPlacement ~withAnimationStyle self = msg_send ~self ~cmd:(selector "transitionFromPlacement:toPlacement:withAnimationStyle:") ~typ:(id @-> id @-> id @-> returning id) x toPlacement withAnimationStyle \ No newline at end of file diff --git a/uikit_extra/UIInputViewPostPinningReloadState.ml b/uikit_extra/UIInputViewPostPinningReloadState.ml new file mode 100644 index 00000000..1b0189a9 --- /dev/null +++ b/uikit_extra/UIInputViewPostPinningReloadState.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewpostpinningreloadstate?language=objc}UIInputViewPostPinningReloadState} *) + +let self = get_class "UIInputViewPostPinningReloadState" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let responderToReload self = msg_send ~self ~cmd:(selector "responderToReload") ~typ:(returning id) +let setResponderToReload x self = msg_send ~self ~cmd:(selector "setResponderToReload:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIInputViewPostPinningReloadStateClass.ml b/uikit_extra/UIInputViewPostPinningReloadStateClass.ml new file mode 100644 index 00000000..925650bc --- /dev/null +++ b/uikit_extra/UIInputViewPostPinningReloadStateClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewpostpinningreloadstate?language=objc}UIInputViewPostPinningReloadState} *) + +let stateWithResponder x self = msg_send ~self ~cmd:(selector "stateWithResponder:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementAccessoryOnScreen.ml b/uikit_extra/UIInputViewSetPlacementAccessoryOnScreen.ml new file mode 100644 index 00000000..825bb7ec --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementAccessoryOnScreen.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementaccessoryonscreen?language=objc}UIInputViewSetPlacementAccessoryOnScreen} *) + +let self = get_class "UIInputViewSetPlacementAccessoryOnScreen" + +let accessoryViewWillAppear self = msg_send ~self ~cmd:(selector "accessoryViewWillAppear") ~typ:(returning bool) +let remoteIntrinsicContentSizeForInputViewInSet x ~includingIAV self = msg_send ~self ~cmd:(selector "remoteIntrinsicContentSizeForInputViewInSet:includingIAV:") ~typ:(id @-> bool @-> returning CGRect.t) x includingIAV +let showsEditItems self = msg_send ~self ~cmd:(selector "showsEditItems") ~typ:(returning bool) +let showsInputViews self = msg_send ~self ~cmd:(selector "showsInputViews") ~typ:(returning bool) +let verticalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "verticalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementAccessoryOnScreenClass.ml b/uikit_extra/UIInputViewSetPlacementAccessoryOnScreenClass.ml new file mode 100644 index 00000000..94958d8e --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementAccessoryOnScreenClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementaccessoryonscreen?language=objc}UIInputViewSetPlacementAccessoryOnScreen} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementAssistantOnScreen.ml b/uikit_extra/UIInputViewSetPlacementAssistantOnScreen.ml new file mode 100644 index 00000000..b4ed5902 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementAssistantOnScreen.ml @@ -0,0 +1,26 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementassistantonscreen?language=objc}UIInputViewSetPlacementAssistantOnScreen} *) + +let self = get_class "UIInputViewSetPlacementAssistantOnScreen" + +let accessoryViewWillAppear self = msg_send ~self ~cmd:(selector "accessoryViewWillAppear") ~typ:(returning bool) +let applicatorClassForKeyboard x self = msg_send ~self ~cmd:(selector "applicatorClassForKeyboard:") ~typ:(bool @-> returning _Class) x +let inputAccessoryViewPadding self = msg_send ~self ~cmd:(selector "inputAccessoryViewPadding") ~typ:(returning UIEdgeInsets.t) +let inputAssistantViewHeightForInputViewSet x self = msg_send ~self ~cmd:(selector "inputAssistantViewHeightForInputViewSet:") ~typ:(id @-> returning double) x +let inputViewWillAppear self = msg_send ~self ~cmd:(selector "inputViewWillAppear") ~typ:(returning bool) +let isFloatingAssistantView self = msg_send ~self ~cmd:(selector "isFloatingAssistantView") ~typ:(returning bool) +let remoteIntrinsicContentSizeForInputViewInSet x ~includingIAV self = msg_send ~self ~cmd:(selector "remoteIntrinsicContentSizeForInputViewInSet:includingIAV:") ~typ:(id @-> bool @-> returning CGRect.t) x includingIAV +let showsEditItems self = msg_send ~self ~cmd:(selector "showsEditItems") ~typ:(returning bool) +let showsInputOrAssistantViews self = msg_send ~self ~cmd:(selector "showsInputOrAssistantViews") ~typ:(returning bool) +let showsInputViews self = msg_send ~self ~cmd:(selector "showsInputViews") ~typ:(returning bool) +let verticalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "verticalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView +let verticalOffset self = msg_send ~self ~cmd:(selector "verticalOffset") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementAssistantOnScreenClass.ml b/uikit_extra/UIInputViewSetPlacementAssistantOnScreenClass.ml new file mode 100644 index 00000000..8d38e49d --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementAssistantOnScreenClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementassistantonscreen?language=objc}UIInputViewSetPlacementAssistantOnScreen} *) + +let infoWithPoint x ~isCompact ~frame ~position self = msg_send ~self ~cmd:(selector "infoWithPoint:isCompact:frame:position:") ~typ:(CGPoint.t @-> bool @-> CGRect.t @-> ullong @-> returning id) x isCompact frame (ULLong.of_int position) +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementAssistantOnScreenForNonKeyboard.ml b/uikit_extra/UIInputViewSetPlacementAssistantOnScreenForNonKeyboard.ml new file mode 100644 index 00000000..98fc7d67 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementAssistantOnScreenForNonKeyboard.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementassistantonscreenfornonkeyboard?language=objc}UIInputViewSetPlacementAssistantOnScreenForNonKeyboard} *) + +let self = get_class "UIInputViewSetPlacementAssistantOnScreenForNonKeyboard" + +let horizontalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "horizontalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView +let verticalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "verticalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView +let widthConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "widthConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementAssistantOnScreenForNonKeyboardClass.ml b/uikit_extra/UIInputViewSetPlacementAssistantOnScreenForNonKeyboardClass.ml new file mode 100644 index 00000000..9b43cd64 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementAssistantOnScreenForNonKeyboardClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementassistantonscreenfornonkeyboard?language=objc}UIInputViewSetPlacementAssistantOnScreenForNonKeyboard} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementClassicAssistantOnScreen.ml b/uikit_extra/UIInputViewSetPlacementClassicAssistantOnScreen.ml new file mode 100644 index 00000000..f5dbb22f --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementClassicAssistantOnScreen.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementclassicassistantonscreen?language=objc}UIInputViewSetPlacementClassicAssistantOnScreen} *) + +let self = get_class "UIInputViewSetPlacementClassicAssistantOnScreen" + +let isFloatingAssistantView self = msg_send ~self ~cmd:(selector "isFloatingAssistantView") ~typ:(returning bool) +let verticalOffset self = msg_send ~self ~cmd:(selector "verticalOffset") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreen.ml b/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreen.ml new file mode 100644 index 00000000..36e480e3 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreen.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementcompactassistantonscreen?language=objc}UIInputViewSetPlacementCompactAssistantOnScreen} *) + +let self = get_class "UIInputViewSetPlacementCompactAssistantOnScreen" + +let applicatorInfoForOwner x self = msg_send ~self ~cmd:(selector "applicatorInfoForOwner:") ~typ:(id @-> returning id) x +let horizontalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "horizontalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView +let isCompactAssistantView self = msg_send ~self ~cmd:(selector "isCompactAssistantView") ~typ:(returning bool) +let offset self = msg_send ~self ~cmd:(selector "offset") ~typ:(returning CGPoint.t) +let setOffset x self = msg_send ~self ~cmd:(selector "setOffset:") ~typ:(CGPoint.t @-> returning void) x +let verticalOffset self = msg_send ~self ~cmd:(selector "verticalOffset") ~typ:(returning double) +let widthConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "widthConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreenClass.ml b/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreenClass.ml new file mode 100644 index 00000000..f0de0298 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreenClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementcompactassistantonscreen?language=objc}UIInputViewSetPlacementCompactAssistantOnScreen} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreenLeft.ml b/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreenLeft.ml new file mode 100644 index 00000000..f0365bdf --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreenLeft.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementcompactassistantonscreenleft?language=objc}UIInputViewSetPlacementCompactAssistantOnScreenLeft} *) + +let self = get_class "UIInputViewSetPlacementCompactAssistantOnScreenLeft" + +let horizontalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "horizontalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView +let verticalOffset self = msg_send ~self ~cmd:(selector "verticalOffset") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreenLeftClass.ml b/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreenLeftClass.ml new file mode 100644 index 00000000..9282c323 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreenLeftClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementcompactassistantonscreenleft?language=objc}UIInputViewSetPlacementCompactAssistantOnScreenLeft} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreenRight.ml b/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreenRight.ml new file mode 100644 index 00000000..30169671 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreenRight.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementcompactassistantonscreenright?language=objc}UIInputViewSetPlacementCompactAssistantOnScreenRight} *) + +let self = get_class "UIInputViewSetPlacementCompactAssistantOnScreenRight" + +let horizontalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "horizontalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView +let verticalOffset self = msg_send ~self ~cmd:(selector "verticalOffset") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreenRightClass.ml b/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreenRightClass.ml new file mode 100644 index 00000000..b35cf4f8 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementCompactAssistantOnScreenRightClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementcompactassistantonscreenright?language=objc}UIInputViewSetPlacementCompactAssistantOnScreenRight} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementFloating.ml b/uikit_extra/UIInputViewSetPlacementFloating.ml new file mode 100644 index 00000000..9aa12cc8 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementFloating.ml @@ -0,0 +1,35 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementfloating?language=objc}UIInputViewSetPlacementFloating} *) + +let self = get_class "UIInputViewSetPlacementFloating" + +let adjustBoundsForNotificationsWithOwner x self = msg_send ~self ~cmd:(selector "adjustBoundsForNotificationsWithOwner:") ~typ:(id @-> returning CGRect.t) x +let applicatorClassForKeyboard x self = msg_send ~self ~cmd:(selector "applicatorClassForKeyboard:") ~typ:(bool @-> returning _Class) x +let applicatorInfoForOwner x self = msg_send ~self ~cmd:(selector "applicatorInfoForOwner:") ~typ:(id @-> returning id) x +let checkSizeForOwner x self = msg_send ~self ~cmd:(selector "checkSizeForOwner:") ~typ:(id @-> returning void) x +let currentResponderView self = msg_send ~self ~cmd:(selector "currentResponderView") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let expiringPlacement self = msg_send ~self ~cmd:(selector "expiringPlacement") ~typ:(returning id) +let floatingWidth self = msg_send ~self ~cmd:(selector "floatingWidth") ~typ:(returning double) +let horizontalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "horizontalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView +let indexForPurpose x self = msg_send ~self ~cmd:(selector "indexForPurpose:") ~typ:(ullong @-> returning ullong) (ULLong.of_int x) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isFloating self = msg_send ~self ~cmd:(selector "isFloating") ~typ:(returning bool) +let isFloatingAssistantView self = msg_send ~self ~cmd:(selector "isFloatingAssistantView") ~typ:(returning bool) +let responderToFollow self = msg_send ~self ~cmd:(selector "responderToFollow") ~typ:(returning id) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setFloatingWidth x self = msg_send ~self ~cmd:(selector "setFloatingWidth:") ~typ:(double @-> returning void) x +let setResponderToFollow x self = msg_send ~self ~cmd:(selector "setResponderToFollow:") ~typ:(id @-> returning void) x +let subPlacements self = msg_send ~self ~cmd:(selector "subPlacements") ~typ:(returning id) +let widthConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "widthConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementFloatingClass.ml b/uikit_extra/UIInputViewSetPlacementFloatingClass.ml new file mode 100644 index 00000000..25880101 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementFloatingClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementfloating?language=objc}UIInputViewSetPlacementFloating} *) + +let frameAtOffset x ~keyboardSize ~screenSize self = msg_send ~self ~cmd:(selector "frameAtOffset:keyboardSize:screenSize:") ~typ:(CGPoint.t @-> CGSize.t @-> CGSize.t @-> returning CGRect.t) x keyboardSize screenSize +let infoWithPoint x ~forOwner self = msg_send ~self ~cmd:(selector "infoWithPoint:forOwner:") ~typ:(CGPoint.t @-> id @-> returning id) x forOwner +let placementWithUndockedOffset x ~chromeBuffer ~floatingWidth self = msg_send ~self ~cmd:(selector "placementWithUndockedOffset:chromeBuffer:floatingWidth:") ~typ:(CGPoint.t @-> UIEdgeInsets.t @-> double @-> returning id) x chromeBuffer floatingWidth +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementInvisible.ml b/uikit_extra/UIInputViewSetPlacementInvisible.ml new file mode 100644 index 00000000..8238a03f --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementInvisible.ml @@ -0,0 +1,24 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementinvisible?language=objc}UIInputViewSetPlacementInvisible} *) + +let self = get_class "UIInputViewSetPlacementInvisible" + +let alpha self = msg_send ~self ~cmd:(selector "alpha") ~typ:(returning double) +let applicatorInfoForOwner x self = msg_send ~self ~cmd:(selector "applicatorInfoForOwner:") ~typ:(id @-> returning id) x +let inputViewWillAppear self = msg_send ~self ~cmd:(selector "inputViewWillAppear") ~typ:(returning bool) +let isInteractive self = msg_send ~self ~cmd:(selector "isInteractive") ~typ:(returning bool) +let isUndocked self = msg_send ~self ~cmd:(selector "isUndocked") ~typ:(returning bool) +let isVisible self = msg_send ~self ~cmd:(selector "isVisible") ~typ:(returning bool) +let showsInputOrAssistantViews self = msg_send ~self ~cmd:(selector "showsInputOrAssistantViews") ~typ:(returning bool) +let showsInputViews self = msg_send ~self ~cmd:(selector "showsInputViews") ~typ:(returning bool) +let showsKeyboard self = msg_send ~self ~cmd:(selector "showsKeyboard") ~typ:(returning bool) +let transform self = msg_send ~self ~cmd:(selector "transform") ~typ:(returning CGAffineTransform.t) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementInvisibleAssistantBar.ml b/uikit_extra/UIInputViewSetPlacementInvisibleAssistantBar.ml new file mode 100644 index 00000000..771e3d4a --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementInvisibleAssistantBar.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementinvisibleassistantbar?language=objc}UIInputViewSetPlacementInvisibleAssistantBar} *) + +let self = get_class "UIInputViewSetPlacementInvisibleAssistantBar" + +let applicatorInfoForOwner x self = msg_send ~self ~cmd:(selector "applicatorInfoForOwner:") ~typ:(id @-> returning id) x +let isCompactAssistantView self = msg_send ~self ~cmd:(selector "isCompactAssistantView") ~typ:(returning bool) +let isFloatingAssistantView self = msg_send ~self ~cmd:(selector "isFloatingAssistantView") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementInvisibleAssistantBarClass.ml b/uikit_extra/UIInputViewSetPlacementInvisibleAssistantBarClass.ml new file mode 100644 index 00000000..f77174d7 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementInvisibleAssistantBarClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementinvisibleassistantbar?language=objc}UIInputViewSetPlacementInvisibleAssistantBar} *) + +let placementWithPlacement x self = msg_send ~self ~cmd:(selector "placementWithPlacement:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementInvisibleClass.ml b/uikit_extra/UIInputViewSetPlacementInvisibleClass.ml new file mode 100644 index 00000000..79003dc5 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementInvisibleClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementinvisible?language=objc}UIInputViewSetPlacementInvisible} *) + +let placementWithPlacement x self = msg_send ~self ~cmd:(selector "placementWithPlacement:") ~typ:(id @-> returning id) x +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementInvisibleForFloatingAssistantTransition.ml b/uikit_extra/UIInputViewSetPlacementInvisibleForFloatingAssistantTransition.ml new file mode 100644 index 00000000..1e704056 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementInvisibleForFloatingAssistantTransition.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementinvisibleforfloatingassistanttransition?language=objc}UIInputViewSetPlacementInvisibleForFloatingAssistantTransition} *) + +let self = get_class "UIInputViewSetPlacementInvisibleForFloatingAssistantTransition" + +let alpha self = msg_send ~self ~cmd:(selector "alpha") ~typ:(returning double) +let isCompactAssistantView self = msg_send ~self ~cmd:(selector "isCompactAssistantView") ~typ:(returning bool) +let isFloatingAssistantView self = msg_send ~self ~cmd:(selector "isFloatingAssistantView") ~typ:(returning bool) +let transform self = msg_send ~self ~cmd:(selector "transform") ~typ:(returning CGAffineTransform.t) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementInvisibleForFloatingAssistantTransitionClass.ml b/uikit_extra/UIInputViewSetPlacementInvisibleForFloatingAssistantTransitionClass.ml new file mode 100644 index 00000000..0fefcfab --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementInvisibleForFloatingAssistantTransitionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementinvisibleforfloatingassistanttransition?language=objc}UIInputViewSetPlacementInvisibleForFloatingAssistantTransition} *) + +let placementWithPlacement x self = msg_send ~self ~cmd:(selector "placementWithPlacement:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementInvisibleForFloatingTransition.ml b/uikit_extra/UIInputViewSetPlacementInvisibleForFloatingTransition.ml new file mode 100644 index 00000000..53d190ea --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementInvisibleForFloatingTransition.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementinvisibleforfloatingtransition?language=objc}UIInputViewSetPlacementInvisibleForFloatingTransition} *) + +let self = get_class "UIInputViewSetPlacementInvisibleForFloatingTransition" + +let isFloatingAssistantView self = msg_send ~self ~cmd:(selector "isFloatingAssistantView") ~typ:(returning bool) +let isHiddenForFloatingTransition self = msg_send ~self ~cmd:(selector "isHiddenForFloatingTransition") ~typ:(returning bool) +let showsEditItems self = msg_send ~self ~cmd:(selector "showsEditItems") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementInvisibleForFloatingTransitionClass.ml b/uikit_extra/UIInputViewSetPlacementInvisibleForFloatingTransitionClass.ml new file mode 100644 index 00000000..dd3ee335 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementInvisibleForFloatingTransitionClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementinvisibleforfloatingtransition?language=objc}UIInputViewSetPlacementInvisibleForFloatingTransition} *) + +let placementWithPlacement x self = msg_send ~self ~cmd:(selector "placementWithPlacement:") ~typ:(id @-> returning id) x +let placementWithPlacement' x ~forFloatingAssistantViewTransition self = msg_send ~self ~cmd:(selector "placementWithPlacement:forFloatingAssistantViewTransition:") ~typ:(id @-> bool @-> returning id) x forFloatingAssistantViewTransition \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementOffScreenDownForFloatingAssistant.ml b/uikit_extra/UIInputViewSetPlacementOffScreenDownForFloatingAssistant.ml new file mode 100644 index 00000000..508debac --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementOffScreenDownForFloatingAssistant.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementoffscreendownforfloatingassistant?language=objc}UIInputViewSetPlacementOffScreenDownForFloatingAssistant} *) + +let self = get_class "UIInputViewSetPlacementOffScreenDownForFloatingAssistant" + +let applicatorClassForKeyboard x self = msg_send ~self ~cmd:(selector "applicatorClassForKeyboard:") ~typ:(bool @-> returning _Class) x +let isFloatingAssistantView self = msg_send ~self ~cmd:(selector "isFloatingAssistantView") ~typ:(returning bool) +let remoteIntrinsicContentSizeForInputViewInSet x ~includingIAV self = msg_send ~self ~cmd:(selector "remoteIntrinsicContentSizeForInputViewInSet:includingIAV:") ~typ:(id @-> bool @-> returning CGRect.t) x includingIAV +let showsEditItems self = msg_send ~self ~cmd:(selector "showsEditItems") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementOffScreenDownForFloatingAssistantClass.ml b/uikit_extra/UIInputViewSetPlacementOffScreenDownForFloatingAssistantClass.ml new file mode 100644 index 00000000..e25c1ebf --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementOffScreenDownForFloatingAssistantClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementoffscreendownforfloatingassistant?language=objc}UIInputViewSetPlacementOffScreenDownForFloatingAssistant} *) + +let placement self = msg_send ~self ~cmd:(selector "placement") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementOffScreenLeftOrRight.ml b/uikit_extra/UIInputViewSetPlacementOffScreenLeftOrRight.ml new file mode 100644 index 00000000..1a33c1d6 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementOffScreenLeftOrRight.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementoffscreenleftorright?language=objc}UIInputViewSetPlacementOffScreenLeftOrRight} *) + +let self = get_class "UIInputViewSetPlacementOffScreenLeftOrRight" + +let setOtherPlacement x self = msg_send ~self ~cmd:(selector "setOtherPlacement:") ~typ:(id @-> returning void) x +let verticalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "verticalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementOnScreen.ml b/uikit_extra/UIInputViewSetPlacementOnScreen.ml new file mode 100644 index 00000000..a3377790 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementOnScreen.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementonscreen?language=objc}UIInputViewSetPlacementOnScreen} *) + +let self = get_class "UIInputViewSetPlacementOnScreen" + +let inputViewWillAppear self = msg_send ~self ~cmd:(selector "inputViewWillAppear") ~typ:(returning bool) +let showsInputOrAssistantViews self = msg_send ~self ~cmd:(selector "showsInputOrAssistantViews") ~typ:(returning bool) +let showsInputViews self = msg_send ~self ~cmd:(selector "showsInputViews") ~typ:(returning bool) +let showsKeyboard self = msg_send ~self ~cmd:(selector "showsKeyboard") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementOnScreenClass.ml b/uikit_extra/UIInputViewSetPlacementOnScreenClass.ml new file mode 100644 index 00000000..4440d0ce --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementOnScreenClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementonscreen?language=objc}UIInputViewSetPlacementOnScreen} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementPlaceholder.ml b/uikit_extra/UIInputViewSetPlacementPlaceholder.ml new file mode 100644 index 00000000..5e140a15 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementPlaceholder.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementplaceholder?language=objc}UIInputViewSetPlacementPlaceholder} *) + +let self = get_class "UIInputViewSetPlacementPlaceholder" + +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let remoteIntrinsicContentSizeForInputViewInSet x ~includingIAV self = msg_send ~self ~cmd:(selector "remoteIntrinsicContentSizeForInputViewInSet:includingIAV:") ~typ:(id @-> bool @-> returning CGRect.t) x includingIAV +let verticalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "verticalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementPlaceholderClass.ml b/uikit_extra/UIInputViewSetPlacementPlaceholderClass.ml new file mode 100644 index 00000000..d4036779 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementPlaceholderClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementplaceholder?language=objc}UIInputViewSetPlacementPlaceholder} *) + +let placementWithHeight x self = msg_send ~self ~cmd:(selector "placementWithHeight:") ~typ:(double @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementPlaceholderUndocked.ml b/uikit_extra/UIInputViewSetPlacementPlaceholderUndocked.ml new file mode 100644 index 00000000..ac601d6a --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementPlaceholderUndocked.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementplaceholderundocked?language=objc}UIInputViewSetPlacementPlaceholderUndocked} *) + +let self = get_class "UIInputViewSetPlacementPlaceholderUndocked" + +let heightOfInputViews x self = msg_send ~self ~cmd:(selector "heightOfInputViews:") ~typ:(id @-> returning double) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementPlaceholderUndockedClass.ml b/uikit_extra/UIInputViewSetPlacementPlaceholderUndockedClass.ml new file mode 100644 index 00000000..c9231dfe --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementPlaceholderUndockedClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementplaceholderundocked?language=objc}UIInputViewSetPlacementPlaceholderUndocked} *) + +let placementWithHeight x ~undockedOffset ~chromeBuffer self = msg_send ~self ~cmd:(selector "placementWithHeight:undockedOffset:chromeBuffer:") ~typ:(double @-> CGPoint.t @-> UIEdgeInsets.t @-> returning id) x undockedOffset chromeBuffer \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementUndocked.ml b/uikit_extra/UIInputViewSetPlacementUndocked.ml new file mode 100644 index 00000000..06d9db88 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementUndocked.ml @@ -0,0 +1,29 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementundocked?language=objc}UIInputViewSetPlacementUndocked} *) + +let self = get_class "UIInputViewSetPlacementUndocked" + +let applicatorClassForKeyboard x self = msg_send ~self ~cmd:(selector "applicatorClassForKeyboard:") ~typ:(bool @-> returning _Class) x +let applicatorInfoForOwner x self = msg_send ~self ~cmd:(selector "applicatorInfoForOwner:") ~typ:(id @-> returning id) x +let chromeBuffer self = msg_send ~self ~cmd:(selector "chromeBuffer") ~typ:(returning UIEdgeInsets.t) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let heightOfInputViews x self = msg_send ~self ~cmd:(selector "heightOfInputViews:") ~typ:(id @-> returning double) x +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let inputViewWillAppear self = msg_send ~self ~cmd:(selector "inputViewWillAppear") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isUndocked self = msg_send ~self ~cmd:(selector "isUndocked") ~typ:(returning bool) +let normalizedOffset self = msg_send ~self ~cmd:(selector "normalizedOffset") ~typ:(returning CGPoint.t) +let remoteIntrinsicContentSizeForInputViewInSet x ~includingIAV self = msg_send ~self ~cmd:(selector "remoteIntrinsicContentSizeForInputViewInSet:includingIAV:") ~typ:(id @-> bool @-> returning CGRect.t) x includingIAV +let setChromeBuffer x self = msg_send ~self ~cmd:(selector "setChromeBuffer:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setNormalizedOffset x self = msg_send ~self ~cmd:(selector "setNormalizedOffset:") ~typ:(CGPoint.t @-> returning void) x +let setOffset x self = msg_send ~self ~cmd:(selector "setOffset:") ~typ:(CGPoint.t @-> returning void) x +let verticalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "verticalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementUndockedClass.ml b/uikit_extra/UIInputViewSetPlacementUndockedClass.ml new file mode 100644 index 00000000..c296ca59 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementUndockedClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementundocked?language=objc}UIInputViewSetPlacementUndocked} *) + +let computeOffsetForOffset x ~withSize ~chromeBuffer ~onScreenSize self = msg_send ~self ~cmd:(selector "computeOffsetForOffset:withSize:chromeBuffer:onScreenSize:") ~typ:(CGPoint.t @-> CGSize.t @-> UIEdgeInsets.t @-> CGSize.t @-> returning CGPoint.t) x withSize chromeBuffer onScreenSize +let infoWithPoint x self = msg_send ~self ~cmd:(selector "infoWithPoint:") ~typ:(CGPoint.t @-> returning id) x +let placementWithUndockedOffset x ~chromeBuffer self = msg_send ~self ~cmd:(selector "placementWithUndockedOffset:chromeBuffer:") ~typ:(CGPoint.t @-> UIEdgeInsets.t @-> returning id) x chromeBuffer +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementWrapper.ml b/uikit_extra/UIInputViewSetPlacementWrapper.ml new file mode 100644 index 00000000..ea6a480c --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementWrapper.ml @@ -0,0 +1,40 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementwrapper?language=objc}UIInputViewSetPlacementWrapper} *) + +let self = get_class "UIInputViewSetPlacementWrapper" + +let accessoryViewWillAppear self = msg_send ~self ~cmd:(selector "accessoryViewWillAppear") ~typ:(returning bool) +let alpha self = msg_send ~self ~cmd:(selector "alpha") ~typ:(returning double) +let applicatorClassForKeyboard x self = msg_send ~self ~cmd:(selector "applicatorClassForKeyboard:") ~typ:(bool @-> returning _Class) x +let applicatorInfoForOwner x self = msg_send ~self ~cmd:(selector "applicatorInfoForOwner:") ~typ:(id @-> returning id) x +let computeComparisonMask self = msg_send ~self ~cmd:(selector "computeComparisonMask") ~typ:(returning ullong) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let horizontalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "horizontalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView +let indexForPurpose x self = msg_send ~self ~cmd:(selector "indexForPurpose:") ~typ:(ullong @-> returning ullong) (ULLong.of_int x) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let inputAssistantViewHeightForInputViewSet x self = msg_send ~self ~cmd:(selector "inputAssistantViewHeightForInputViewSet:") ~typ:(id @-> returning double) x +let inputViewWillAppear self = msg_send ~self ~cmd:(selector "inputViewWillAppear") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isInteractive self = msg_send ~self ~cmd:(selector "isInteractive") ~typ:(returning bool) +let isUndocked self = msg_send ~self ~cmd:(selector "isUndocked") ~typ:(returning bool) +let isVisible self = msg_send ~self ~cmd:(selector "isVisible") ~typ:(returning bool) +let remoteIntrinsicContentSizeForInputViewInSet x ~includingIAV self = msg_send ~self ~cmd:(selector "remoteIntrinsicContentSizeForInputViewInSet:includingIAV:") ~typ:(id @-> bool @-> returning CGRect.t) x includingIAV +let setDirty self = msg_send ~self ~cmd:(selector "setDirty") ~typ:(returning void) +let showsEditItems self = msg_send ~self ~cmd:(selector "showsEditItems") ~typ:(returning bool) +let showsInputOrAssistantViews self = msg_send ~self ~cmd:(selector "showsInputOrAssistantViews") ~typ:(returning bool) +let showsInputViews self = msg_send ~self ~cmd:(selector "showsInputViews") ~typ:(returning bool) +let showsKeyboard self = msg_send ~self ~cmd:(selector "showsKeyboard") ~typ:(returning bool) +let subPlacements self = msg_send ~self ~cmd:(selector "subPlacements") ~typ:(returning id) +let transform self = msg_send ~self ~cmd:(selector "transform") ~typ:(returning CGAffineTransform.t) +let verticalConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "verticalConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView +let widthConstraintForInputViewSet x ~hostView ~containerView self = msg_send ~self ~cmd:(selector "widthConstraintForInputViewSet:hostView:containerView:") ~typ:(id @-> id @-> id @-> returning id) x hostView containerView \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacementWrapperClass.ml b/uikit_extra/UIInputViewSetPlacementWrapperClass.ml new file mode 100644 index 00000000..3797928b --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacementWrapperClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacementwrapper?language=objc}UIInputViewSetPlacementWrapper} *) + +let placementWithPlacement x self = msg_send ~self ~cmd:(selector "placementWithPlacement:") ~typ:(id @-> returning id) x +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacement_DockResponderApplicator.ml b/uikit_extra/UIInputViewSetPlacement_DockResponderApplicator.ml index ef5d3e0e..d27f7a29 100644 --- a/uikit_extra/UIInputViewSetPlacement_DockResponderApplicator.ml +++ b/uikit_extra/UIInputViewSetPlacement_DockResponderApplicator.ml @@ -5,22 +5,28 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputViewSetPlacement_DockResponderApplicator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacement_dockresponderapplicator?language=objc}UIInputViewSetPlacement_DockResponderApplicator} *) -let applyChanges x self = msg_send ~self ~cmd:(selector "applyChanges:") ~typ:(id @-> returning (void)) x -let draggableView self = msg_send ~self ~cmd:(selector "draggableView") ~typ:(returning (id)) -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let invalidatePopover self = msg_send ~self ~cmd:(selector "invalidatePopover") ~typ:(returning (void)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isGesture x ~inDraggableView self = msg_send ~self ~cmd:(selector "isGesture:inDraggableView:") ~typ:(id @-> CGPoint.t @-> returning (bool)) x inDraggableView -let isPopoverRequired self = msg_send ~self ~cmd:(selector "isPopoverRequired") ~typ:(returning (bool)) -let popover self = msg_send ~self ~cmd:(selector "popover") ~typ:(returning (id)) -let popoverFrame self = msg_send_stret ~self ~cmd:(selector "popoverFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let popoverRectPlaceholder self = msg_send_stret ~self ~cmd:(selector "popoverRectPlaceholder") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let preBeginGesture x ~shouldBegin self = msg_send ~self ~cmd:(selector "preBeginGesture:shouldBegin:") ~typ:(id @-> ptr (bool) @-> returning (bool)) x shouldBegin -let prepare self = msg_send ~self ~cmd:(selector "prepare") ~typ:(returning (void)) -let setPopover x self = msg_send ~self ~cmd:(selector "setPopover:") ~typ:(id @-> returning (void)) x -let setPopoverRectPlaceholder x self = msg_send ~self ~cmd:(selector "setPopoverRectPlaceholder:") ~typ:(CGRect.t @-> returning (void)) x -let startingPropertiesFromPlacementProperties x self = msg_send ~self ~cmd:(selector "startingPropertiesFromPlacementProperties:") ~typ:(id @-> returning (id)) x -let twoFingerDraggableView self = msg_send ~self ~cmd:(selector "twoFingerDraggableView") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIInputViewSetPlacement_DockResponderApplicator" + +let applyChanges x self = msg_send ~self ~cmd:(selector "applyChanges:") ~typ:(id @-> returning void) x +let contentInsets self = msg_send ~self ~cmd:(selector "contentInsets") ~typ:(returning UIEdgeInsets.t) +let draggableView self = msg_send ~self ~cmd:(selector "draggableView") ~typ:(returning id) +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let invalidatePopover self = msg_send ~self ~cmd:(selector "invalidatePopover") ~typ:(returning void) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isGesture x ~inDraggableView self = msg_send ~self ~cmd:(selector "isGesture:inDraggableView:") ~typ:(id @-> CGPoint.t @-> returning bool) x inDraggableView +let isPopoverRequired self = msg_send ~self ~cmd:(selector "isPopoverRequired") ~typ:(returning bool) +let popover self = msg_send ~self ~cmd:(selector "popover") ~typ:(returning id) +let popoverFrame self = msg_send ~self ~cmd:(selector "popoverFrame") ~typ:(returning CGRect.t) +let popoverRectPlaceholder self = msg_send ~self ~cmd:(selector "popoverRectPlaceholder") ~typ:(returning CGRect.t) +let preBeginGesture x ~shouldBegin self = msg_send ~self ~cmd:(selector "preBeginGesture:shouldBegin:") ~typ:(id @-> (ptr bool) @-> returning bool) x shouldBegin +let prepare self = msg_send ~self ~cmd:(selector "prepare") ~typ:(returning void) +let scaledPopoverTransform self = msg_send ~self ~cmd:(selector "scaledPopoverTransform") ~typ:(returning CGAffineTransform.t) +let setPopover x self = msg_send ~self ~cmd:(selector "setPopover:") ~typ:(id @-> returning void) x +let setPopoverRectPlaceholder x self = msg_send ~self ~cmd:(selector "setPopoverRectPlaceholder:") ~typ:(CGRect.t @-> returning void) x +let startingPropertiesFromPlacementProperties x self = msg_send ~self ~cmd:(selector "startingPropertiesFromPlacementProperties:") ~typ:(id @-> returning id) x +let twoFingerDraggableView self = msg_send ~self ~cmd:(selector "twoFingerDraggableView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacement_FloatingAssistantApplicator.ml b/uikit_extra/UIInputViewSetPlacement_FloatingAssistantApplicator.ml index 4f48eb11..4b5bf59e 100644 --- a/uikit_extra/UIInputViewSetPlacement_FloatingAssistantApplicator.ml +++ b/uikit_extra/UIInputViewSetPlacement_FloatingAssistantApplicator.ml @@ -5,11 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputViewSetPlacement_FloatingAssistantApplicator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacement_floatingassistantapplicator?language=objc}UIInputViewSetPlacement_FloatingAssistantApplicator} *) -let applyChanges x self = msg_send ~self ~cmd:(selector "applyChanges:") ~typ:(id @-> returning (void)) x -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let popoverFrame self = msg_send_stret ~self ~cmd:(selector "popoverFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let prepare self = msg_send ~self ~cmd:(selector "prepare") ~typ:(returning (void)) -let shouldApplyOriginChange self = msg_send ~self ~cmd:(selector "shouldApplyOriginChange") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIInputViewSetPlacement_FloatingAssistantApplicator" + +let applyChanges x self = msg_send ~self ~cmd:(selector "applyChanges:") ~typ:(id @-> returning void) x +let inputAccessoryPadding self = msg_send ~self ~cmd:(selector "inputAccessoryPadding") ~typ:(returning UIEdgeInsets.t) +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let popoverFrame self = msg_send ~self ~cmd:(selector "popoverFrame") ~typ:(returning CGRect.t) +let prepare self = msg_send ~self ~cmd:(selector "prepare") ~typ:(returning void) +let shouldApplyOriginChange self = msg_send ~self ~cmd:(selector "shouldApplyOriginChange") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacement_FloatingAssistantApplicatorClass.ml b/uikit_extra/UIInputViewSetPlacement_FloatingAssistantApplicatorClass.ml new file mode 100644 index 00000000..a91a2b42 --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacement_FloatingAssistantApplicatorClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacement_floatingassistantapplicator?language=objc}UIInputViewSetPlacement_FloatingAssistantApplicator} *) + +let inputAccessoryPaddingForTraitCollection x self = msg_send ~self ~cmd:(selector "inputAccessoryPaddingForTraitCollection:") ~typ:(id @-> returning UIEdgeInsets.t) x \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacement_FloatingAssistantApplicatorForNonKeyboard.ml b/uikit_extra/UIInputViewSetPlacement_FloatingAssistantApplicatorForNonKeyboard.ml index 71e4ba14..1a93019f 100644 --- a/uikit_extra/UIInputViewSetPlacement_FloatingAssistantApplicatorForNonKeyboard.ml +++ b/uikit_extra/UIInputViewSetPlacement_FloatingAssistantApplicatorForNonKeyboard.ml @@ -5,9 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputViewSetPlacement_FloatingAssistantApplicatorForNonKeyboard" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacement_floatingassistantapplicatorfornonkeyboard?language=objc}UIInputViewSetPlacement_FloatingAssistantApplicatorForNonKeyboard} *) -let initForOwner x ~withPlacement self = msg_send ~self ~cmd:(selector "initForOwner:withPlacement:") ~typ:(id @-> id @-> returning (id)) x withPlacement -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let shouldApplyOriginChange self = msg_send ~self ~cmd:(selector "shouldApplyOriginChange") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIInputViewSetPlacement_FloatingAssistantApplicatorForNonKeyboard" + +let initForOwner x ~withPlacement self = msg_send ~self ~cmd:(selector "initForOwner:withPlacement:") ~typ:(id @-> id @-> returning id) x withPlacement +let inputAssistantPadding self = msg_send ~self ~cmd:(selector "inputAssistantPadding") ~typ:(returning UIEdgeInsets.t) +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let shouldApplyOriginChange self = msg_send ~self ~cmd:(selector "shouldApplyOriginChange") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacement_GenericApplicator.ml b/uikit_extra/UIInputViewSetPlacement_GenericApplicator.ml index 1e774156..80a431ed 100644 --- a/uikit_extra/UIInputViewSetPlacement_GenericApplicator.ml +++ b/uikit_extra/UIInputViewSetPlacement_GenericApplicator.ml @@ -5,26 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputViewSetPlacement_GenericApplicator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacement_genericapplicator?language=objc}UIInputViewSetPlacement_GenericApplicator} *) -module C = struct - let applicatorForOwner x ~withPlacement self = msg_send ~self ~cmd:(selector "applicatorForOwner:withPlacement:") ~typ:(id @-> id @-> returning (id)) x withPlacement -end +let self = get_class "UIInputViewSetPlacement_GenericApplicator" -let allConstraintsActive self = msg_send ~self ~cmd:(selector "allConstraintsActive") ~typ:(returning (bool)) -let applyChanges x self = msg_send ~self ~cmd:(selector "applyChanges:") ~typ:(id @-> returning (void)) x -let checkVerticalConstraint self = msg_send ~self ~cmd:(selector "checkVerticalConstraint") ~typ:(returning (void)) -let constraints self = msg_send ~self ~cmd:(selector "constraints") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let draggableView self = msg_send ~self ~cmd:(selector "draggableView") ~typ:(returning (id)) -let initForOwner x ~withPlacement self = msg_send ~self ~cmd:(selector "initForOwner:withPlacement:") ~typ:(id @-> id @-> returning (id)) x withPlacement -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isGesture x ~inDraggableView self = msg_send ~self ~cmd:(selector "isGesture:inDraggableView:") ~typ:(id @-> CGPoint.t @-> returning (bool)) x inDraggableView -let origin self = msg_send_stret ~self ~cmd:(selector "origin") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let popoverFrame self = msg_send_stret ~self ~cmd:(selector "popoverFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let preBeginGesture x ~shouldBegin self = msg_send ~self ~cmd:(selector "preBeginGesture:shouldBegin:") ~typ:(id @-> ptr (bool) @-> returning (bool)) x shouldBegin -let prepare self = msg_send ~self ~cmd:(selector "prepare") ~typ:(returning (void)) -let targetRect self = msg_send_stret ~self ~cmd:(selector "targetRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let twoFingerDraggableView self = msg_send ~self ~cmd:(selector "twoFingerDraggableView") ~typ:(returning (id)) \ No newline at end of file +let allConstraintsActive self = msg_send ~self ~cmd:(selector "allConstraintsActive") ~typ:(returning bool) +let applyChanges x self = msg_send ~self ~cmd:(selector "applyChanges:") ~typ:(id @-> returning void) x +let checkVerticalConstraint self = msg_send ~self ~cmd:(selector "checkVerticalConstraint") ~typ:(returning void) +let constraints self = msg_send ~self ~cmd:(selector "constraints") ~typ:(returning id) +let contentInsets self = msg_send ~self ~cmd:(selector "contentInsets") ~typ:(returning UIEdgeInsets.t) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let draggableView self = msg_send ~self ~cmd:(selector "draggableView") ~typ:(returning id) +let initForOwner x ~withPlacement self = msg_send ~self ~cmd:(selector "initForOwner:withPlacement:") ~typ:(id @-> id @-> returning id) x withPlacement +let inputAccessoryPadding self = msg_send ~self ~cmd:(selector "inputAccessoryPadding") ~typ:(returning UIEdgeInsets.t) +let inputAssistantPadding self = msg_send ~self ~cmd:(selector "inputAssistantPadding") ~typ:(returning UIEdgeInsets.t) +let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isGesture x ~inDraggableView self = msg_send ~self ~cmd:(selector "isGesture:inDraggableView:") ~typ:(id @-> CGPoint.t @-> returning bool) x inDraggableView +let origin self = msg_send ~self ~cmd:(selector "origin") ~typ:(returning CGPoint.t) +let popoverFrame self = msg_send ~self ~cmd:(selector "popoverFrame") ~typ:(returning CGRect.t) +let preBeginGesture x ~shouldBegin self = msg_send ~self ~cmd:(selector "preBeginGesture:shouldBegin:") ~typ:(id @-> (ptr bool) @-> returning bool) x shouldBegin +let prepare self = msg_send ~self ~cmd:(selector "prepare") ~typ:(returning void) +let targetRect self = msg_send ~self ~cmd:(selector "targetRect") ~typ:(returning CGRect.t) +let twoFingerDraggableView self = msg_send ~self ~cmd:(selector "twoFingerDraggableView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacement_GenericApplicatorClass.ml b/uikit_extra/UIInputViewSetPlacement_GenericApplicatorClass.ml new file mode 100644 index 00000000..9ba9fdfa --- /dev/null +++ b/uikit_extra/UIInputViewSetPlacement_GenericApplicatorClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacement_genericapplicator?language=objc}UIInputViewSetPlacement_GenericApplicator} *) + +let applicatorForOwner x ~withPlacement self = msg_send ~self ~cmd:(selector "applicatorForOwner:withPlacement:") ~typ:(id @-> id @-> returning id) x withPlacement \ No newline at end of file diff --git a/uikit_extra/UIInputViewSetPlacement_UndockedApplicator.ml b/uikit_extra/UIInputViewSetPlacement_UndockedApplicator.ml index 7684e3f2..8ac3420a 100644 --- a/uikit_extra/UIInputViewSetPlacement_UndockedApplicator.ml +++ b/uikit_extra/UIInputViewSetPlacement_UndockedApplicator.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInputViewSetPlacement_UndockedApplicator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinputviewsetplacement_undockedapplicator?language=objc}UIInputViewSetPlacement_UndockedApplicator} *) -let applyChanges x self = msg_send ~self ~cmd:(selector "applyChanges:") ~typ:(id @-> returning (void)) x -let checkVerticalConstraint self = msg_send ~self ~cmd:(selector "checkVerticalConstraint") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIInputViewSetPlacement_UndockedApplicator" + +let applyChanges x self = msg_send ~self ~cmd:(selector "applyChanges:") ~typ:(id @-> returning void) x +let checkVerticalConstraint self = msg_send ~self ~cmd:(selector "checkVerticalConstraint") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIInterfaceActionConcreteVisualStyle.ml b/uikit_extra/UIInterfaceActionConcreteVisualStyle.ml new file mode 100644 index 00000000..d4c0cd65 --- /dev/null +++ b/uikit_extra/UIInterfaceActionConcreteVisualStyle.ml @@ -0,0 +1,49 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionconcretevisualstyle?language=objc}UIInterfaceActionConcreteVisualStyle} *) + +let self = get_class "UIInterfaceActionConcreteVisualStyle" + +let actionClassificationLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionClassificationLabelColorForViewState:") ~typ:(id @-> returning id) x +let actionClassificationLabelFontForViewState x self = msg_send ~self ~cmd:(selector "actionClassificationLabelFontForViewState:") ~typ:(id @-> returning id) x +let actionGroupPropertiesAffectingActionsScrollViewStyling self = msg_send ~self ~cmd:(selector "actionGroupPropertiesAffectingActionsScrollViewStyling") ~typ:(returning id) +let actionImageViewTintColorForImageProperty x ~actionViewState self = msg_send ~self ~cmd:(selector "actionImageViewTintColorForImageProperty:actionViewState:") ~typ:(id @-> id @-> returning id) x actionViewState +let actionPropertiesAffectingActionRepresentationViewStyling self = msg_send ~self ~cmd:(selector "actionPropertiesAffectingActionRepresentationViewStyling") ~typ:(returning id) +let actionPropertiesAffectingImageViewStyling self = msg_send ~self ~cmd:(selector "actionPropertiesAffectingImageViewStyling") ~typ:(returning id) +let actionPropertiesAffectingLabelStyling self = msg_send ~self ~cmd:(selector "actionPropertiesAffectingLabelStyling") ~typ:(returning id) +let actionSectionSpacing self = msg_send ~self ~cmd:(selector "actionSectionSpacing") ~typ:(returning double) +let actionSequenceEdgeInsets self = msg_send ~self ~cmd:(selector "actionSequenceEdgeInsets") ~typ:(returning UIEdgeInsets.t) +let actionTitleLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelColorForViewState:") ~typ:(id @-> returning id) x +let actionTitleLabelFontForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelFontForViewState:") ~typ:(id @-> returning id) x +let actionTitleLabelMinimumScaleFactor self = msg_send ~self ~cmd:(selector "actionTitleLabelMinimumScaleFactor") ~typ:(returning double) +let actionViewStateForAttachingToActionRepresentationView x self = msg_send ~self ~cmd:(selector "actionViewStateForAttachingToActionRepresentationView:") ~typ:(id @-> returning id) x +let configureAttributesForActionRepresentationView x ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForActionRepresentationView:actionViewState:") ~typ:(id @-> id @-> returning void) x actionViewState +let configureAttributesForActionScrollView x ~groupViewState self = msg_send ~self ~cmd:(selector "configureAttributesForActionScrollView:groupViewState:") ~typ:(id @-> id @-> returning void) x groupViewState +let configureAttributesForImageView x ~imageProperty ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForImageView:imageProperty:actionViewState:") ~typ:(id @-> id @-> id @-> returning void) x imageProperty actionViewState +let configureAttributesForTitleLabel x ~classificationLabel ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForTitleLabel:classificationLabel:actionViewState:") ~typ:(id @-> id @-> id @-> returning void) x classificationLabel actionViewState +let configureForDismissingGroupView x ~alongsideTransitionCoordinator self = msg_send ~self ~cmd:(selector "configureForDismissingGroupView:alongsideTransitionCoordinator:") ~typ:(id @-> id @-> returning void) x alongsideTransitionCoordinator +let configureForPresentingGroupView x ~alongsideTransitionCoordinator self = msg_send ~self ~cmd:(selector "configureForPresentingGroupView:alongsideTransitionCoordinator:") ~typ:(id @-> id @-> returning void) x alongsideTransitionCoordinator +let contentCornerRadius self = msg_send ~self ~cmd:(selector "contentCornerRadius") ~typ:(returning double) +let contentMargin self = msg_send ~self ~cmd:(selector "contentMargin") ~typ:(returning UIEdgeInsets.t) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let defaultScreen self = msg_send ~self ~cmd:(selector "defaultScreen") ~typ:(returning id) +let horizontalImageContentSpacing self = msg_send ~self ~cmd:(selector "horizontalImageContentSpacing") ~typ:(returning double) +let maximumActionGroupContentSize self = msg_send ~self ~cmd:(selector "maximumActionGroupContentSize") ~typ:(returning CGSize.t) +let minimumActionContentSize self = msg_send ~self ~cmd:(selector "minimumActionContentSize") ~typ:(returning CGSize.t) +let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning id) x +let newActionSeparatorViewForGroupViewState x self = msg_send ~self ~cmd:(selector "newActionSeparatorViewForGroupViewState:") ~typ:(id @-> returning id) x +let newGroupBackgroundViewWithGroupViewState x self = msg_send ~self ~cmd:(selector "newGroupBackgroundViewWithGroupViewState:") ~typ:(id @-> returning id) x +let newRepresentationViewForAction x self = msg_send ~self ~cmd:(selector "newRepresentationViewForAction:") ~typ:(id @-> returning id) x +let newSectionSeparatorViewForGroupViewState x self = msg_send ~self ~cmd:(selector "newSectionSeparatorViewForGroupViewState:") ~typ:(id @-> returning id) x +let selectByIndirectPointerTouchRequired self = msg_send ~self ~cmd:(selector "selectByIndirectPointerTouchRequired") ~typ:(returning bool) +let selectByPressGestureRequired self = msg_send ~self ~cmd:(selector "selectByPressGestureRequired") ~typ:(returning bool) +let selectionFeedbackEnabled self = msg_send ~self ~cmd:(selector "selectionFeedbackEnabled") ~typ:(returning bool) +let verticalImageContentSpacing self = msg_send ~self ~cmd:(selector "verticalImageContentSpacing") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIInterfaceActionConcreteVisualStyle_AppleTV.ml b/uikit_extra/UIInterfaceActionConcreteVisualStyle_AppleTV.ml index 50c735ec..89621adc 100644 --- a/uikit_extra/UIInterfaceActionConcreteVisualStyle_AppleTV.ml +++ b/uikit_extra/UIInterfaceActionConcreteVisualStyle_AppleTV.ml @@ -5,26 +5,32 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterfaceActionConcreteVisualStyle_AppleTV" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionconcretevisualstyle_appletv?language=objc}UIInterfaceActionConcreteVisualStyle_AppleTV} *) -let actionImageViewTintColorForImageProperty x ~actionViewState self = msg_send ~self ~cmd:(selector "actionImageViewTintColorForImageProperty:actionViewState:") ~typ:(id @-> id @-> returning (id)) x actionViewState -let actionPropertiesAffectingActionRepresentationViewStyling self = msg_send ~self ~cmd:(selector "actionPropertiesAffectingActionRepresentationViewStyling") ~typ:(returning (id)) -let actionPropertiesAffectingLabelStyling self = msg_send ~self ~cmd:(selector "actionPropertiesAffectingLabelStyling") ~typ:(returning (id)) -let actionSectionSpacing self = msg_send ~self ~cmd:(selector "actionSectionSpacing") ~typ:(returning (double)) -let actionTitleLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelColorForViewState:") ~typ:(id @-> returning (id)) x -let actionTitleLabelFontForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelFontForViewState:") ~typ:(id @-> returning (id)) x -let actionViewStateForAttachingToActionRepresentationView x self = msg_send ~self ~cmd:(selector "actionViewStateForAttachingToActionRepresentationView:") ~typ:(id @-> returning (id)) x -let configureAttributesForActionRepresentationView x ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForActionRepresentationView:actionViewState:") ~typ:(id @-> id @-> returning (void)) x actionViewState -let configureAttributesForActionScrollView x ~groupViewState self = msg_send ~self ~cmd:(selector "configureAttributesForActionScrollView:groupViewState:") ~typ:(id @-> id @-> returning (void)) x groupViewState -let configureAttributesForTitleLabel x ~classificationLabel ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForTitleLabel:classificationLabel:actionViewState:") ~typ:(id @-> id @-> id @-> returning (void)) x classificationLabel actionViewState -let configureForDismissingGroupView x ~alongsideTransitionCoordinator self = msg_send ~self ~cmd:(selector "configureForDismissingGroupView:alongsideTransitionCoordinator:") ~typ:(id @-> id @-> returning (void)) x alongsideTransitionCoordinator -let configureForPresentingGroupView x ~alongsideTransitionCoordinator self = msg_send ~self ~cmd:(selector "configureForPresentingGroupView:alongsideTransitionCoordinator:") ~typ:(id @-> id @-> returning (void)) x alongsideTransitionCoordinator -let contentCornerRadius self = msg_send ~self ~cmd:(selector "contentCornerRadius") ~typ:(returning (double)) -let defaultScreen self = msg_send ~self ~cmd:(selector "defaultScreen") ~typ:(returning (id)) -let horizontalImageContentSpacing self = msg_send ~self ~cmd:(selector "horizontalImageContentSpacing") ~typ:(returning (double)) -let minimumActionContentSize self = msg_send_stret ~self ~cmd:(selector "minimumActionContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning (id)) x -let newGroupBackgroundViewWithGroupViewState x self = msg_send ~self ~cmd:(selector "newGroupBackgroundViewWithGroupViewState:") ~typ:(id @-> returning (id)) x -let selectByPressGestureRequired self = msg_send ~self ~cmd:(selector "selectByPressGestureRequired") ~typ:(returning (bool)) -let verticalImageContentSpacing self = msg_send ~self ~cmd:(selector "verticalImageContentSpacing") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIInterfaceActionConcreteVisualStyle_AppleTV" + +let actionImageViewTintColorForImageProperty x ~actionViewState self = msg_send ~self ~cmd:(selector "actionImageViewTintColorForImageProperty:actionViewState:") ~typ:(id @-> id @-> returning id) x actionViewState +let actionPropertiesAffectingActionRepresentationViewStyling self = msg_send ~self ~cmd:(selector "actionPropertiesAffectingActionRepresentationViewStyling") ~typ:(returning id) +let actionPropertiesAffectingLabelStyling self = msg_send ~self ~cmd:(selector "actionPropertiesAffectingLabelStyling") ~typ:(returning id) +let actionSectionSpacing self = msg_send ~self ~cmd:(selector "actionSectionSpacing") ~typ:(returning double) +let actionSequenceEdgeInsets self = msg_send ~self ~cmd:(selector "actionSequenceEdgeInsets") ~typ:(returning UIEdgeInsets.t) +let actionTitleLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelColorForViewState:") ~typ:(id @-> returning id) x +let actionTitleLabelFontForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelFontForViewState:") ~typ:(id @-> returning id) x +let actionViewStateForAttachingToActionRepresentationView x self = msg_send ~self ~cmd:(selector "actionViewStateForAttachingToActionRepresentationView:") ~typ:(id @-> returning id) x +let configureAttributesForActionRepresentationView x ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForActionRepresentationView:actionViewState:") ~typ:(id @-> id @-> returning void) x actionViewState +let configureAttributesForActionScrollView x ~groupViewState self = msg_send ~self ~cmd:(selector "configureAttributesForActionScrollView:groupViewState:") ~typ:(id @-> id @-> returning void) x groupViewState +let configureAttributesForTitleLabel x ~classificationLabel ~actionViewState self = msg_send ~self ~cmd:(selector "configureAttributesForTitleLabel:classificationLabel:actionViewState:") ~typ:(id @-> id @-> id @-> returning void) x classificationLabel actionViewState +let configureForDismissingGroupView x ~alongsideTransitionCoordinator self = msg_send ~self ~cmd:(selector "configureForDismissingGroupView:alongsideTransitionCoordinator:") ~typ:(id @-> id @-> returning void) x alongsideTransitionCoordinator +let configureForPresentingGroupView x ~alongsideTransitionCoordinator self = msg_send ~self ~cmd:(selector "configureForPresentingGroupView:alongsideTransitionCoordinator:") ~typ:(id @-> id @-> returning void) x alongsideTransitionCoordinator +let contentCornerRadius self = msg_send ~self ~cmd:(selector "contentCornerRadius") ~typ:(returning double) +let contentMargin self = msg_send ~self ~cmd:(selector "contentMargin") ~typ:(returning UIEdgeInsets.t) +let defaultScreen self = msg_send ~self ~cmd:(selector "defaultScreen") ~typ:(returning id) +let horizontalImageContentSpacing self = msg_send ~self ~cmd:(selector "horizontalImageContentSpacing") ~typ:(returning double) +let minimumActionContentSize self = msg_send ~self ~cmd:(selector "minimumActionContentSize") ~typ:(returning CGSize.t) +let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning id) x +let newGroupBackgroundViewWithGroupViewState x self = msg_send ~self ~cmd:(selector "newGroupBackgroundViewWithGroupViewState:") ~typ:(id @-> returning id) x +let selectByPressGestureRequired self = msg_send ~self ~cmd:(selector "selectByPressGestureRequired") ~typ:(returning bool) +let verticalImageContentSpacing self = msg_send ~self ~cmd:(selector "verticalImageContentSpacing") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIInterfaceActionConcreteVisualStyle_CarPlay.ml b/uikit_extra/UIInterfaceActionConcreteVisualStyle_CarPlay.ml index 1bedf67a..15eec829 100644 --- a/uikit_extra/UIInterfaceActionConcreteVisualStyle_CarPlay.ml +++ b/uikit_extra/UIInterfaceActionConcreteVisualStyle_CarPlay.ml @@ -5,17 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterfaceActionConcreteVisualStyle_CarPlay" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionconcretevisualstyle_carplay?language=objc}UIInterfaceActionConcreteVisualStyle_CarPlay} *) -let actionTitleLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelColorForViewState:") ~typ:(id @-> returning (id)) x -let actionTitleLabelFontForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelFontForViewState:") ~typ:(id @-> returning (id)) x -let contentCornerRadius self = msg_send ~self ~cmd:(selector "contentCornerRadius") ~typ:(returning (double)) -let defaultScreen self = msg_send ~self ~cmd:(selector "defaultScreen") ~typ:(returning (id)) -let horizontalImageContentSpacing self = msg_send ~self ~cmd:(selector "horizontalImageContentSpacing") ~typ:(returning (double)) -let minimumActionContentSize self = msg_send_stret ~self ~cmd:(selector "minimumActionContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning (id)) x -let newActionSeparatorViewForGroupViewState x self = msg_send ~self ~cmd:(selector "newActionSeparatorViewForGroupViewState:") ~typ:(id @-> returning (id)) x -let newGroupBackgroundViewWithGroupViewState x self = msg_send ~self ~cmd:(selector "newGroupBackgroundViewWithGroupViewState:") ~typ:(id @-> returning (id)) x -let selectByPressGestureRequired self = msg_send ~self ~cmd:(selector "selectByPressGestureRequired") ~typ:(returning (bool)) -let verticalImageContentSpacing self = msg_send ~self ~cmd:(selector "verticalImageContentSpacing") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIInterfaceActionConcreteVisualStyle_CarPlay" + +let actionTitleLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelColorForViewState:") ~typ:(id @-> returning id) x +let actionTitleLabelFontForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelFontForViewState:") ~typ:(id @-> returning id) x +let contentCornerRadius self = msg_send ~self ~cmd:(selector "contentCornerRadius") ~typ:(returning double) +let contentMargin self = msg_send ~self ~cmd:(selector "contentMargin") ~typ:(returning UIEdgeInsets.t) +let defaultScreen self = msg_send ~self ~cmd:(selector "defaultScreen") ~typ:(returning id) +let horizontalImageContentSpacing self = msg_send ~self ~cmd:(selector "horizontalImageContentSpacing") ~typ:(returning double) +let minimumActionContentSize self = msg_send ~self ~cmd:(selector "minimumActionContentSize") ~typ:(returning CGSize.t) +let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning id) x +let newActionSeparatorViewForGroupViewState x self = msg_send ~self ~cmd:(selector "newActionSeparatorViewForGroupViewState:") ~typ:(id @-> returning id) x +let newGroupBackgroundViewWithGroupViewState x self = msg_send ~self ~cmd:(selector "newGroupBackgroundViewWithGroupViewState:") ~typ:(id @-> returning id) x +let selectByPressGestureRequired self = msg_send ~self ~cmd:(selector "selectByPressGestureRequired") ~typ:(returning bool) +let verticalImageContentSpacing self = msg_send ~self ~cmd:(selector "verticalImageContentSpacing") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOS.ml b/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOS.ml index 7a8569e9..12c27b68 100644 --- a/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOS.ml +++ b/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOS.ml @@ -5,18 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterfaceActionConcreteVisualStyle_iOS" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionconcretevisualstyle_ios?language=objc}UIInterfaceActionConcreteVisualStyle_iOS} *) -let actionTitleLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelColorForViewState:") ~typ:(id @-> returning (id)) x -let actionTitleLabelFontForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelFontForViewState:") ~typ:(id @-> returning (id)) x -let contentCornerRadius self = msg_send ~self ~cmd:(selector "contentCornerRadius") ~typ:(returning (double)) -let defaultScreen self = msg_send ~self ~cmd:(selector "defaultScreen") ~typ:(returning (id)) -let horizontalImageContentSpacing self = msg_send ~self ~cmd:(selector "horizontalImageContentSpacing") ~typ:(returning (double)) -let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning (id)) x -let newActionSeparatorViewForGroupViewState x self = msg_send ~self ~cmd:(selector "newActionSeparatorViewForGroupViewState:") ~typ:(id @-> returning (id)) x -let newGroupBackgroundViewWithGroupViewState x self = msg_send ~self ~cmd:(selector "newGroupBackgroundViewWithGroupViewState:") ~typ:(id @-> returning (id)) x -let newSectionSeparatorViewForGroupViewState x self = msg_send ~self ~cmd:(selector "newSectionSeparatorViewForGroupViewState:") ~typ:(id @-> returning (id)) x -let selectByIndirectPointerTouchRequired self = msg_send ~self ~cmd:(selector "selectByIndirectPointerTouchRequired") ~typ:(returning (bool)) -let selectionFeedbackEnabled self = msg_send ~self ~cmd:(selector "selectionFeedbackEnabled") ~typ:(returning (bool)) -let verticalImageContentSpacing self = msg_send ~self ~cmd:(selector "verticalImageContentSpacing") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIInterfaceActionConcreteVisualStyle_iOS" + +let actionTitleLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelColorForViewState:") ~typ:(id @-> returning id) x +let actionTitleLabelFontForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelFontForViewState:") ~typ:(id @-> returning id) x +let contentCornerRadius self = msg_send ~self ~cmd:(selector "contentCornerRadius") ~typ:(returning double) +let contentMargin self = msg_send ~self ~cmd:(selector "contentMargin") ~typ:(returning UIEdgeInsets.t) +let defaultScreen self = msg_send ~self ~cmd:(selector "defaultScreen") ~typ:(returning id) +let horizontalImageContentSpacing self = msg_send ~self ~cmd:(selector "horizontalImageContentSpacing") ~typ:(returning double) +let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning id) x +let newActionSeparatorViewForGroupViewState x self = msg_send ~self ~cmd:(selector "newActionSeparatorViewForGroupViewState:") ~typ:(id @-> returning id) x +let newGroupBackgroundViewWithGroupViewState x self = msg_send ~self ~cmd:(selector "newGroupBackgroundViewWithGroupViewState:") ~typ:(id @-> returning id) x +let newSectionSeparatorViewForGroupViewState x self = msg_send ~self ~cmd:(selector "newSectionSeparatorViewForGroupViewState:") ~typ:(id @-> returning id) x +let selectByIndirectPointerTouchRequired self = msg_send ~self ~cmd:(selector "selectByIndirectPointerTouchRequired") ~typ:(returning bool) +let selectionFeedbackEnabled self = msg_send ~self ~cmd:(selector "selectionFeedbackEnabled") ~typ:(returning bool) +let verticalImageContentSpacing self = msg_send ~self ~cmd:(selector "verticalImageContentSpacing") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSAlert.ml b/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSAlert.ml index fb484bc5..7d7f7519 100644 --- a/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSAlert.ml +++ b/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSAlert.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterfaceActionConcreteVisualStyle_iOSAlert" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionconcretevisualstyle_iosalert?language=objc}UIInterfaceActionConcreteVisualStyle_iOSAlert} *) -let contentCornerRadius self = msg_send ~self ~cmd:(selector "contentCornerRadius") ~typ:(returning (double)) -let minimumActionContentSize self = msg_send_stret ~self ~cmd:(selector "minimumActionContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let self = get_class "UIInterfaceActionConcreteVisualStyle_iOSAlert" + +let contentCornerRadius self = msg_send ~self ~cmd:(selector "contentCornerRadius") ~typ:(returning double) +let minimumActionContentSize self = msg_send ~self ~cmd:(selector "minimumActionContentSize") ~typ:(returning CGSize.t) +let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSInlineActionSheet.ml b/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSInlineActionSheet.ml index 8fd49df0..a40467dc 100644 --- a/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSInlineActionSheet.ml +++ b/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSInlineActionSheet.ml @@ -5,11 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterfaceActionConcreteVisualStyle_iOSInlineActionSheet" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionconcretevisualstyle_iosinlineactionsheet?language=objc}UIInterfaceActionConcreteVisualStyle_iOSInlineActionSheet} *) -let horizontalImageContentSpacing self = msg_send ~self ~cmd:(selector "horizontalImageContentSpacing") ~typ:(returning (double)) -let minimumActionContentSize self = msg_send_stret ~self ~cmd:(selector "minimumActionContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning (id)) x -let newGroupBackgroundViewWithGroupViewState x self = msg_send ~self ~cmd:(selector "newGroupBackgroundViewWithGroupViewState:") ~typ:(id @-> returning (id)) x -let verticalImageContentSpacing self = msg_send ~self ~cmd:(selector "verticalImageContentSpacing") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIInterfaceActionConcreteVisualStyle_iOSInlineActionSheet" + +let contentMargin self = msg_send ~self ~cmd:(selector "contentMargin") ~typ:(returning UIEdgeInsets.t) +let horizontalImageContentSpacing self = msg_send ~self ~cmd:(selector "horizontalImageContentSpacing") ~typ:(returning double) +let minimumActionContentSize self = msg_send ~self ~cmd:(selector "minimumActionContentSize") ~typ:(returning CGSize.t) +let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning id) x +let newGroupBackgroundViewWithGroupViewState x self = msg_send ~self ~cmd:(selector "newGroupBackgroundViewWithGroupViewState:") ~typ:(id @-> returning id) x +let verticalImageContentSpacing self = msg_send ~self ~cmd:(selector "verticalImageContentSpacing") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSMacAlert.ml b/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSMacAlert.ml index 445a3846..95897291 100644 --- a/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSMacAlert.ml +++ b/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSMacAlert.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterfaceActionConcreteVisualStyle_iOSMacAlert" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionconcretevisualstyle_iosmacalert?language=objc}UIInterfaceActionConcreteVisualStyle_iOSMacAlert} *) -let actionTitleLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelColorForViewState:") ~typ:(id @-> returning (id)) x -let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let self = get_class "UIInterfaceActionConcreteVisualStyle_iOSMacAlert" + +let actionTitleLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelColorForViewState:") ~typ:(id @-> returning id) x +let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSMacSheet.ml b/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSMacSheet.ml index 1762fc1c..078d1ef7 100644 --- a/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSMacSheet.ml +++ b/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSMacSheet.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterfaceActionConcreteVisualStyle_iOSMacSheet" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionconcretevisualstyle_iosmacsheet?language=objc}UIInterfaceActionConcreteVisualStyle_iOSMacSheet} *) -let actionTitleLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelColorForViewState:") ~typ:(id @-> returning (id)) x -let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let self = get_class "UIInterfaceActionConcreteVisualStyle_iOSMacSheet" + +let actionTitleLabelColorForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelColorForViewState:") ~typ:(id @-> returning id) x +let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSSheet.ml b/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSSheet.ml index 27eec3db..d982d649 100644 --- a/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSSheet.ml +++ b/uikit_extra/UIInterfaceActionConcreteVisualStyle_iOSSheet.ml @@ -5,9 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIInterfaceActionConcreteVisualStyle_iOSSheet" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionconcretevisualstyle_iossheet?language=objc}UIInterfaceActionConcreteVisualStyle_iOSSheet} *) -let actionSectionSpacing self = msg_send ~self ~cmd:(selector "actionSectionSpacing") ~typ:(returning (double)) -let minimumActionContentSize self = msg_send_stret ~self ~cmd:(selector "minimumActionContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let self = get_class "UIInterfaceActionConcreteVisualStyle_iOSSheet" + +let actionSectionSpacing self = msg_send ~self ~cmd:(selector "actionSectionSpacing") ~typ:(returning double) +let contentMargin self = msg_send ~self ~cmd:(selector "contentMargin") ~typ:(returning UIEdgeInsets.t) +let minimumActionContentSize self = msg_send ~self ~cmd:(selector "minimumActionContentSize") ~typ:(returning CGSize.t) +let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIInterfaceActionHighlightAttributes.ml b/uikit_extra/UIInterfaceActionHighlightAttributes.ml new file mode 100644 index 00000000..d4022e31 --- /dev/null +++ b/uikit_extra/UIInterfaceActionHighlightAttributes.ml @@ -0,0 +1,24 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionhighlightattributes?language=objc}UIInterfaceActionHighlightAttributes} *) + +let self = get_class "UIInterfaceActionHighlightAttributes" + +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let filters self = msg_send ~self ~cmd:(selector "filters") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let newBackgroundHighlightView self = msg_send ~self ~cmd:(selector "newBackgroundHighlightView") ~typ:(returning id) +let opacity self = msg_send ~self ~cmd:(selector "opacity") ~typ:(returning double) +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setFilters x self = msg_send ~self ~cmd:(selector "setFilters:") ~typ:(id @-> returning void) x +let setOpacity x self = msg_send ~self ~cmd:(selector "setOpacity:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIInterfaceActionOverrideVisualStyle.ml b/uikit_extra/UIInterfaceActionOverrideVisualStyle.ml new file mode 100644 index 00000000..ddc88a84 --- /dev/null +++ b/uikit_extra/UIInterfaceActionOverrideVisualStyle.ml @@ -0,0 +1,29 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionoverridevisualstyle?language=objc}UIInterfaceActionOverrideVisualStyle} *) + +let self = get_class "UIInterfaceActionOverrideVisualStyle" + +let actionTitleLabelFontForViewState x self = msg_send ~self ~cmd:(selector "actionTitleLabelFontForViewState:") ~typ:(id @-> returning id) x +let alignActionSeparatorLeadingEdgeWithContent self = msg_send ~self ~cmd:(selector "alignActionSeparatorLeadingEdgeWithContent") ~typ:(returning bool) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let customActionHighlightAttributes self = msg_send ~self ~cmd:(selector "customActionHighlightAttributes") ~typ:(returning id) +let customSelectionHighlightContinuousCornerRadius self = msg_send ~self ~cmd:(selector "customSelectionHighlightContinuousCornerRadius") ~typ:(returning double) +let customSeparatorAttributes self = msg_send ~self ~cmd:(selector "customSeparatorAttributes") ~typ:(returning id) +let customTitleLabelFontProviderForViewState self = msg_send ~self ~cmd:(selector "customTitleLabelFontProviderForViewState") ~typ:(returning (ptr void)) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let newActionBackgroundViewForViewState x self = msg_send ~self ~cmd:(selector "newActionBackgroundViewForViewState:") ~typ:(id @-> returning id) x +let newActionSeparatorViewForGroupViewState x self = msg_send ~self ~cmd:(selector "newActionSeparatorViewForGroupViewState:") ~typ:(id @-> returning id) x +let setAlignActionSeparatorLeadingEdgeWithContent x self = msg_send ~self ~cmd:(selector "setAlignActionSeparatorLeadingEdgeWithContent:") ~typ:(bool @-> returning void) x +let setCustomActionHighlightAttributes x self = msg_send ~self ~cmd:(selector "setCustomActionHighlightAttributes:") ~typ:(id @-> returning void) x +let setCustomSelectionHighlightContinuousCornerRadius x self = msg_send ~self ~cmd:(selector "setCustomSelectionHighlightContinuousCornerRadius:") ~typ:(double @-> returning void) x +let setCustomSeparatorAttributes x self = msg_send ~self ~cmd:(selector "setCustomSeparatorAttributes:") ~typ:(id @-> returning void) x +let setCustomTitleLabelFontProviderForViewState x self = msg_send ~self ~cmd:(selector "setCustomTitleLabelFontProviderForViewState:") ~typ:((ptr void) @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIInterfaceActionOverrideVisualStyleClass.ml b/uikit_extra/UIInterfaceActionOverrideVisualStyleClass.ml new file mode 100644 index 00000000..db281d89 --- /dev/null +++ b/uikit_extra/UIInterfaceActionOverrideVisualStyleClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionoverridevisualstyle?language=objc}UIInterfaceActionOverrideVisualStyle} *) + +let styleOverride self = msg_send ~self ~cmd:(selector "styleOverride") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIInterfaceActionRepresentationView.ml b/uikit_extra/UIInterfaceActionRepresentationView.ml new file mode 100644 index 00000000..881a797f --- /dev/null +++ b/uikit_extra/UIInterfaceActionRepresentationView.ml @@ -0,0 +1,62 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionrepresentationview?language=objc}UIInterfaceActionRepresentationView} *) + +let self = get_class "UIInterfaceActionRepresentationView" + +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning id) +let actionViewStateContext self = msg_send ~self ~cmd:(selector "actionViewStateContext") ~typ:(returning id) +let backgroundHighlightView self = msg_send ~self ~cmd:(selector "backgroundHighlightView") ~typ:(returning id) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let canRemoveContentFromHierarchyWhenNotVisible self = msg_send ~self ~cmd:(selector "canRemoveContentFromHierarchyWhenNotVisible") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let hasLayoutHeightConstraintsIdenticalToRepresentationView x self = msg_send ~self ~cmd:(selector "hasLayoutHeightConstraintsIdenticalToRepresentationView:") ~typ:(id @-> returning bool) x +let initWithAction x self = msg_send ~self ~cmd:(selector "initWithAction:") ~typ:(id @-> returning id) x +let interactionForSpringLoading self = msg_send ~self ~cmd:(selector "interactionForSpringLoading") ~typ:(returning id) +let interfaceAction x ~reloadDisplayedContentActionProperties self = msg_send ~self ~cmd:(selector "interfaceAction:reloadDisplayedContentActionProperties:") ~typ:(id @-> id @-> returning void) x reloadDisplayedContentActionProperties +let interfaceAction' x ~reloadDisplayedContentVisualStyle self = msg_send ~self ~cmd:(selector "interfaceAction:reloadDisplayedContentVisualStyle:") ~typ:(id @-> id @-> returning void) x reloadDisplayedContentVisualStyle +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let invalidateIntrinsicContentSize self = msg_send ~self ~cmd:(selector "invalidateIntrinsicContentSize") ~typ:(returning void) +let invokeInterfaceAction self = msg_send ~self ~cmd:(selector "invokeInterfaceAction") ~typ:(returning void) +let isFocused self = msg_send ~self ~cmd:(selector "isFocused") ~typ:(returning bool) +let isHighlighted self = msg_send ~self ~cmd:(selector "isHighlighted") ~typ:(returning bool) +let isPressed self = msg_send ~self ~cmd:(selector "isPressed") ~typ:(returning bool) +let isSpringLoaded self = msg_send ~self ~cmd:(selector "isSpringLoaded") ~typ:(returning bool) +let layoutMarginsDidChange self = msg_send ~self ~cmd:(selector "layoutMarginsDidChange") ~typ:(returning void) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let loadContents self = msg_send ~self ~cmd:(selector "loadContents") ~typ:(returning void) +let minimumHeightConstraint self = msg_send ~self ~cmd:(selector "minimumHeightConstraint") ~typ:(returning id) +let minimumWidthConstraint self = msg_send ~self ~cmd:(selector "minimumWidthConstraint") ~typ:(returning id) +let ownsActionContent self = msg_send ~self ~cmd:(selector "ownsActionContent") ~typ:(returning bool) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesChanged x ~withEvent self = msg_send ~self ~cmd:(selector "pressesChanged:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let sectionID self = msg_send ~self ~cmd:(selector "sectionID") ~typ:(returning id) +let setActionViewStateContext x self = msg_send ~self ~cmd:(selector "setActionViewStateContext:") ~typ:(id @-> returning void) x +let setCanRemoveContentFromHierarchyWhenNotVisible x self = msg_send ~self ~cmd:(selector "setCanRemoveContentFromHierarchyWhenNotVisible:") ~typ:(bool @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setInteractionForSpringLoading x self = msg_send ~self ~cmd:(selector "setInteractionForSpringLoading:") ~typ:(id @-> returning void) x +let setOwnsActionContent x self = msg_send ~self ~cmd:(selector "setOwnsActionContent:") ~typ:(bool @-> returning void) x +let setPressed x self = msg_send ~self ~cmd:(selector "setPressed:") ~typ:(bool @-> returning void) x +let setSectionID x self = msg_send ~self ~cmd:(selector "setSectionID:") ~typ:(id @-> returning void) x +let setSpringLoaded x self = msg_send ~self ~cmd:(selector "setSpringLoaded:") ~typ:(bool @-> returning void) x +let setViewsToDisappearWhenHighlighted x self = msg_send ~self ~cmd:(selector "setViewsToDisappearWhenHighlighted:") ~typ:(id @-> returning void) x +let setVisualCornerPosition x self = msg_send ~self ~cmd:(selector "setVisualCornerPosition:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let systemLayoutSizeFittingSize x ~withHorizontalFittingPriority ~verticalFittingPriority self = msg_send ~self ~cmd:(selector "systemLayoutSizeFittingSize:withHorizontalFittingPriority:verticalFittingPriority:") ~typ:(CGSize.t @-> float @-> float @-> returning CGSize.t) x withHorizontalFittingPriority verticalFittingPriority +let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning void) +let updateContentsInsertedIntoHierarchy self = msg_send ~self ~cmd:(selector "updateContentsInsertedIntoHierarchy") ~typ:(returning void) +let viewsToDisappearWhenHighlighted self = msg_send ~self ~cmd:(selector "viewsToDisappearWhenHighlighted") ~typ:(returning id) +let visualCornerPosition self = msg_send ~self ~cmd:(selector "visualCornerPosition") ~typ:(returning ullong) +let visualStyle self = msg_send ~self ~cmd:(selector "visualStyle") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIInterfaceActionRepresentationViewSpringLoadedEffect.ml b/uikit_extra/UIInterfaceActionRepresentationViewSpringLoadedEffect.ml new file mode 100644 index 00000000..86d5b34c --- /dev/null +++ b/uikit_extra/UIInterfaceActionRepresentationViewSpringLoadedEffect.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionrepresentationviewspringloadedeffect?language=objc}UIInterfaceActionRepresentationViewSpringLoadedEffect} *) + +let self = get_class "UIInterfaceActionRepresentationViewSpringLoadedEffect" + +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let interaction x ~didChangeWithContext self = msg_send ~self ~cmd:(selector "interaction:didChangeWithContext:") ~typ:(id @-> id @-> returning void) x didChangeWithContext \ No newline at end of file diff --git a/uikit_extra/UIInterfaceActionSelectionTrackingController.ml b/uikit_extra/UIInterfaceActionSelectionTrackingController.ml new file mode 100644 index 00000000..c511d3d8 --- /dev/null +++ b/uikit_extra/UIInterfaceActionSelectionTrackingController.ml @@ -0,0 +1,57 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionselectiontrackingcontroller?language=objc}UIInterfaceActionSelectionTrackingController} *) + +let self = get_class "UIInterfaceActionSelectionTrackingController" + +let actionSelectionInitialLocationInContainerView self = msg_send ~self ~cmd:(selector "actionSelectionInitialLocationInContainerView") ~typ:(returning CGPoint.t) +let actionsScrollView self = msg_send ~self ~cmd:(selector "actionsScrollView") ~typ:(returning id) +let beginTrackingSessionByTakingOverForSystemProvidedGestureRecognizer x self = msg_send ~self ~cmd:(selector "beginTrackingSessionByTakingOverForSystemProvidedGestureRecognizer:") ~typ:(id @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let deselectAllActions self = msg_send ~self ~cmd:(selector "deselectAllActions") ~typ:(returning void) +let focusedInterfaceAction self = msg_send ~self ~cmd:(selector "focusedInterfaceAction") ~typ:(returning id) +let gestureRecognizer x ~shouldRequireFailureOfGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRequireFailureOfGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldRequireFailureOfGestureRecognizer +let handlePressedFocusedInterfaceAction x self = msg_send ~self ~cmd:(selector "handlePressedFocusedInterfaceAction:") ~typ:(id @-> returning void) x +let hoverGestureRecognizer self = msg_send ~self ~cmd:(selector "hoverGestureRecognizer") ~typ:(returning id) +let initWithTrackableContainerView x ~actionsScrollView self = msg_send ~self ~cmd:(selector "initWithTrackableContainerView:actionsScrollView:") ~typ:(id @-> id @-> returning id) x actionsScrollView +let proposedActionToActivate self = msg_send ~self ~cmd:(selector "proposedActionToActivate") ~typ:(returning id) +let representationViews self = msg_send ~self ~cmd:(selector "representationViews") ~typ:(returning id) +let scrollViewDidEndDeceleratingNotificationToken self = msg_send ~self ~cmd:(selector "scrollViewDidEndDeceleratingNotificationToken") ~typ:(returning id) +let scrollViewDidEndDraggingNotificationToken self = msg_send ~self ~cmd:(selector "scrollViewDidEndDraggingNotificationToken") ~typ:(returning id) +let scrollViewWillBeginDraggingNotificationToken self = msg_send ~self ~cmd:(selector "scrollViewWillBeginDraggingNotificationToken") ~typ:(returning id) +let scrubbingEnabled self = msg_send ~self ~cmd:(selector "scrubbingEnabled") ~typ:(returning bool) +let selectByIndirectPointerTouchEnabled self = msg_send ~self ~cmd:(selector "selectByIndirectPointerTouchEnabled") ~typ:(returning bool) +let selectByPressGestureEnabled self = msg_send ~self ~cmd:(selector "selectByPressGestureEnabled") ~typ:(returning bool) +let selectByPressGestureRecognizer self = msg_send ~self ~cmd:(selector "selectByPressGestureRecognizer") ~typ:(returning id) +let selectionDelayGestureRecognizer self = msg_send ~self ~cmd:(selector "selectionDelayGestureRecognizer") ~typ:(returning id) +let selectionFeedbackEnabled self = msg_send ~self ~cmd:(selector "selectionFeedbackEnabled") ~typ:(returning bool) +let selectionGestureRecognizer self = msg_send ~self ~cmd:(selector "selectionGestureRecognizer") ~typ:(returning id) +let selectionRetargetFeedbackGenerator self = msg_send ~self ~cmd:(selector "selectionRetargetFeedbackGenerator") ~typ:(returning id) +let setActionsScrollView x self = msg_send ~self ~cmd:(selector "setActionsScrollView:") ~typ:(id @-> returning void) x +let setCooperatingSelectionTrackingControllers x self = msg_send ~self ~cmd:(selector "setCooperatingSelectionTrackingControllers:") ~typ:(id @-> returning void) x +let setHoverGestureRecognizer x self = msg_send ~self ~cmd:(selector "setHoverGestureRecognizer:") ~typ:(id @-> returning void) x +let setProposedActionToActivate x self = msg_send ~self ~cmd:(selector "setProposedActionToActivate:") ~typ:(id @-> returning void) x +let setRepresentationViews x self = msg_send ~self ~cmd:(selector "setRepresentationViews:") ~typ:(id @-> returning void) x +let setScrollViewDidEndDeceleratingNotificationToken x self = msg_send ~self ~cmd:(selector "setScrollViewDidEndDeceleratingNotificationToken:") ~typ:(id @-> returning void) x +let setScrollViewDidEndDraggingNotificationToken x self = msg_send ~self ~cmd:(selector "setScrollViewDidEndDraggingNotificationToken:") ~typ:(id @-> returning void) x +let setScrollViewWillBeginDraggingNotificationToken x self = msg_send ~self ~cmd:(selector "setScrollViewWillBeginDraggingNotificationToken:") ~typ:(id @-> returning void) x +let setScrubbingEnabled x self = msg_send ~self ~cmd:(selector "setScrubbingEnabled:") ~typ:(bool @-> returning void) x +let setSelectByIndirectPointerTouchEnabled x self = msg_send ~self ~cmd:(selector "setSelectByIndirectPointerTouchEnabled:") ~typ:(bool @-> returning void) x +let setSelectByPressGestureEnabled x self = msg_send ~self ~cmd:(selector "setSelectByPressGestureEnabled:") ~typ:(bool @-> returning void) x +let setSelectByPressGestureRecognizer x self = msg_send ~self ~cmd:(selector "setSelectByPressGestureRecognizer:") ~typ:(id @-> returning void) x +let setSelectionFeedbackEnabled x self = msg_send ~self ~cmd:(selector "setSelectionFeedbackEnabled:") ~typ:(bool @-> returning void) x +let setSelectionRetargetFeedbackGenerator x self = msg_send ~self ~cmd:(selector "setSelectionRetargetFeedbackGenerator:") ~typ:(id @-> returning void) x +let setTrackableContainerView x self = msg_send ~self ~cmd:(selector "setTrackableContainerView:") ~typ:(id @-> returning void) x +let setWeakCooperatingSelectionTrackingControllers x self = msg_send ~self ~cmd:(selector "setWeakCooperatingSelectionTrackingControllers:") ~typ:(id @-> returning void) x +let systemProvidedGestureRecognizer self = msg_send ~self ~cmd:(selector "systemProvidedGestureRecognizer") ~typ:(returning id) +let trackableContainerView self = msg_send ~self ~cmd:(selector "trackableContainerView") ~typ:(returning id) +let viewsRequiringSelectionGestureDisabling self = msg_send ~self ~cmd:(selector "viewsRequiringSelectionGestureDisabling") ~typ:(returning id) +let weakCooperatingSelectionTrackingControllers self = msg_send ~self ~cmd:(selector "weakCooperatingSelectionTrackingControllers") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIInterfaceActionVisualStyleViewState.ml b/uikit_extra/UIInterfaceActionVisualStyleViewState.ml new file mode 100644 index 00000000..6d7e9f10 --- /dev/null +++ b/uikit_extra/UIInterfaceActionVisualStyleViewState.ml @@ -0,0 +1,24 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiinterfaceactionvisualstyleviewstate?language=objc}UIInterfaceActionVisualStyleViewState} *) + +let self = get_class "UIInterfaceActionVisualStyleViewState" + +let copyWithScreen x self = msg_send ~self ~cmd:(selector "copyWithScreen:") ~typ:(id @-> returning id) x +let copyWithTraitCollection x self = msg_send ~self ~cmd:(selector "copyWithTraitCollection:") ~typ:(id @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithPropertiesFromTopLevelView x self = msg_send ~self ~cmd:(selector "initWithPropertiesFromTopLevelView:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let screen self = msg_send ~self ~cmd:(selector "screen") ~typ:(returning id) +let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning id) +let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBASPCoverView.ml b/uikit_extra/UIKBASPCoverView.ml index 59ef1ac7..7b354f49 100644 --- a/uikit_extra/UIKBASPCoverView.ml +++ b/uikit_extra/UIKBASPCoverView.ml @@ -5,16 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBASPCoverView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbaspcoverview?language=objc}UIKBASPCoverView} *) -module C = struct - let _ASPCoverView x ~withFrame ~isRightToLeft ~withTextWidth self = msg_send ~self ~cmd:(selector "ASPCoverView:withFrame:isRightToLeft:withTextWidth:") ~typ:(bool @-> CGRect.t @-> bool @-> double @-> returning (id)) x withFrame isRightToLeft withTextWidth - let _ASPCoverViewColor self = msg_send ~self ~cmd:(selector "ASPCoverViewColor") ~typ:(returning (id)) -end +let self = get_class "UIKBASPCoverView" -let gradientLayer self = msg_send ~self ~cmd:(selector "gradientLayer") ~typ:(returning (id)) -let initCoverBackgroundViewWithFrame x ~isRightToLeft self = msg_send ~self ~cmd:(selector "initCoverBackgroundViewWithFrame:isRightToLeft:") ~typ:(CGRect.t @-> bool @-> returning (id)) x isRightToLeft -let initCoverViewWithFrame x ~isRightToLeft ~withTextWidth self = msg_send ~self ~cmd:(selector "initCoverViewWithFrame:isRightToLeft:withTextWidth:") ~typ:(CGRect.t @-> bool @-> double @-> returning (id)) x isRightToLeft withTextWidth -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setGradientLayer x self = msg_send ~self ~cmd:(selector "setGradientLayer:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let gradientLayer self = msg_send ~self ~cmd:(selector "gradientLayer") ~typ:(returning id) +let initCoverBackgroundViewWithFrame x ~isRightToLeft self = msg_send ~self ~cmd:(selector "initCoverBackgroundViewWithFrame:isRightToLeft:") ~typ:(CGRect.t @-> bool @-> returning id) x isRightToLeft +let initCoverViewWithFrame x ~isRightToLeft ~withTextWidth self = msg_send ~self ~cmd:(selector "initCoverViewWithFrame:isRightToLeft:withTextWidth:") ~typ:(CGRect.t @-> bool @-> double @-> returning id) x isRightToLeft withTextWidth +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setGradientLayer x self = msg_send ~self ~cmd:(selector "setGradientLayer:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBASPCoverViewClass.ml b/uikit_extra/UIKBASPCoverViewClass.ml new file mode 100644 index 00000000..aeceb048 --- /dev/null +++ b/uikit_extra/UIKBASPCoverViewClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbaspcoverview?language=objc}UIKBASPCoverView} *) + +let _ASPCoverView x ~withFrame ~isRightToLeft ~withTextWidth self = msg_send ~self ~cmd:(selector "ASPCoverView:withFrame:isRightToLeft:withTextWidth:") ~typ:(bool @-> CGRect.t @-> bool @-> double @-> returning id) x withFrame isRightToLeft withTextWidth +let _ASPCoverViewColor self = msg_send ~self ~cmd:(selector "ASPCoverViewColor") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBAlertController.ml b/uikit_extra/UIKBAlertController.ml index 9dbc0df5..71afdb7b 100644 --- a/uikit_extra/UIKBAlertController.ml +++ b/uikit_extra/UIKBAlertController.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBAlertController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbalertcontroller?language=objc}UIKBAlertController} *) -let kbDelegate self = msg_send ~self ~cmd:(selector "kbDelegate") ~typ:(returning (id)) -let setKbDelegate x self = msg_send ~self ~cmd:(selector "setKbDelegate:") ~typ:(id @-> returning (void)) x -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKBAlertController" + +let kbDelegate self = msg_send ~self ~cmd:(selector "kbDelegate") ~typ:(returning id) +let setKbDelegate x self = msg_send ~self ~cmd:(selector "setKbDelegate:") ~typ:(id @-> returning void) x +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBAutoFillTestArchive.ml b/uikit_extra/UIKBAutoFillTestArchive.ml index 26eb0ab3..32ae2186 100644 --- a/uikit_extra/UIKBAutoFillTestArchive.ml +++ b/uikit_extra/UIKBAutoFillTestArchive.ml @@ -5,33 +5,33 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBAutoFillTestArchive" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbautofilltestarchive?language=objc}UIKBAutoFillTestArchive} *) -module C = struct - let autoFillTestArchiveWithData x self = msg_send ~self ~cmd:(selector "autoFillTestArchiveWithData:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIKBAutoFillTestArchive" -let autoFillTestArchiveData self = msg_send ~self ~cmd:(selector "autoFillTestArchiveData") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let expectedResult self = msg_send ~self ~cmd:(selector "expectedResult") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let navigationControllerClassName self = msg_send ~self ~cmd:(selector "navigationControllerClassName") ~typ:(returning (id)) -let presentingViewControllerClassName self = msg_send ~self ~cmd:(selector "presentingViewControllerClassName") ~typ:(returning (id)) -let requiresNavigationControllerNesting self = msg_send ~self ~cmd:(selector "requiresNavigationControllerNesting") ~typ:(returning (bool)) -let setExpectedResult x self = msg_send ~self ~cmd:(selector "setExpectedResult:") ~typ:(id @-> returning (void)) x -let setNavigationControllerClassName x self = msg_send ~self ~cmd:(selector "setNavigationControllerClassName:") ~typ:(id @-> returning (void)) x -let setPresentingViewControllerClassName x self = msg_send ~self ~cmd:(selector "setPresentingViewControllerClassName:") ~typ:(id @-> returning (void)) x -let setRequiresNavigationControllerNesting x self = msg_send ~self ~cmd:(selector "setRequiresNavigationControllerNesting:") ~typ:(bool @-> returning (void)) x -let setSnapshotView x self = msg_send ~self ~cmd:(selector "setSnapshotView:") ~typ:(id @-> returning (void)) x -let setTableViewDataSource x ~forTableViewWithTag self = msg_send ~self ~cmd:(selector "setTableViewDataSource:forTableViewWithTag:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forTableViewWithTag) -let setViewControllerClassName x self = msg_send ~self ~cmd:(selector "setViewControllerClassName:") ~typ:(id @-> returning (void)) x -let setViewControllerNavigationItem x self = msg_send ~self ~cmd:(selector "setViewControllerNavigationItem:") ~typ:(id @-> returning (void)) x -let setViewControllerTitle x self = msg_send ~self ~cmd:(selector "setViewControllerTitle:") ~typ:(id @-> returning (void)) x -let snapshotView self = msg_send ~self ~cmd:(selector "snapshotView") ~typ:(returning (id)) -let tableViewDataSourceWithTag x self = msg_send ~self ~cmd:(selector "tableViewDataSourceWithTag:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let viewControllerClassName self = msg_send ~self ~cmd:(selector "viewControllerClassName") ~typ:(returning (id)) -let viewControllerNavigationItem self = msg_send ~self ~cmd:(selector "viewControllerNavigationItem") ~typ:(returning (id)) -let viewControllerTitle self = msg_send ~self ~cmd:(selector "viewControllerTitle") ~typ:(returning (id)) \ No newline at end of file +let autoFillTestArchiveData self = msg_send ~self ~cmd:(selector "autoFillTestArchiveData") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let expectedResult self = msg_send ~self ~cmd:(selector "expectedResult") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let navigationControllerClassName self = msg_send ~self ~cmd:(selector "navigationControllerClassName") ~typ:(returning id) +let presentingViewControllerClassName self = msg_send ~self ~cmd:(selector "presentingViewControllerClassName") ~typ:(returning id) +let requiresNavigationControllerNesting self = msg_send ~self ~cmd:(selector "requiresNavigationControllerNesting") ~typ:(returning bool) +let setExpectedResult x self = msg_send ~self ~cmd:(selector "setExpectedResult:") ~typ:(id @-> returning void) x +let setNavigationControllerClassName x self = msg_send ~self ~cmd:(selector "setNavigationControllerClassName:") ~typ:(id @-> returning void) x +let setPresentingViewControllerClassName x self = msg_send ~self ~cmd:(selector "setPresentingViewControllerClassName:") ~typ:(id @-> returning void) x +let setRequiresNavigationControllerNesting x self = msg_send ~self ~cmd:(selector "setRequiresNavigationControllerNesting:") ~typ:(bool @-> returning void) x +let setSnapshotView x self = msg_send ~self ~cmd:(selector "setSnapshotView:") ~typ:(id @-> returning void) x +let setTableViewDataSource x ~forTableViewWithTag self = msg_send ~self ~cmd:(selector "setTableViewDataSource:forTableViewWithTag:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forTableViewWithTag) +let setViewControllerClassName x self = msg_send ~self ~cmd:(selector "setViewControllerClassName:") ~typ:(id @-> returning void) x +let setViewControllerNavigationItem x self = msg_send ~self ~cmd:(selector "setViewControllerNavigationItem:") ~typ:(id @-> returning void) x +let setViewControllerTitle x self = msg_send ~self ~cmd:(selector "setViewControllerTitle:") ~typ:(id @-> returning void) x +let snapshotView self = msg_send ~self ~cmd:(selector "snapshotView") ~typ:(returning id) +let tableViewDataSourceWithTag x self = msg_send ~self ~cmd:(selector "tableViewDataSourceWithTag:") ~typ:(llong @-> returning id) (LLong.of_int x) +let viewControllerClassName self = msg_send ~self ~cmd:(selector "viewControllerClassName") ~typ:(returning id) +let viewControllerNavigationItem self = msg_send ~self ~cmd:(selector "viewControllerNavigationItem") ~typ:(returning id) +let viewControllerTitle self = msg_send ~self ~cmd:(selector "viewControllerTitle") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBAutoFillTestArchiveClass.ml b/uikit_extra/UIKBAutoFillTestArchiveClass.ml new file mode 100644 index 00000000..b8bcb822 --- /dev/null +++ b/uikit_extra/UIKBAutoFillTestArchiveClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbautofilltestarchive?language=objc}UIKBAutoFillTestArchive} *) + +let autoFillTestArchiveWithData x self = msg_send ~self ~cmd:(selector "autoFillTestArchiveWithData:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBAutoFillTestArchiveMaker.ml b/uikit_extra/UIKBAutoFillTestArchiveMaker.ml index ea194d9a..6471eec5 100644 --- a/uikit_extra/UIKBAutoFillTestArchiveMaker.ml +++ b/uikit_extra/UIKBAutoFillTestArchiveMaker.ml @@ -5,13 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBAutoFillTestArchiveMaker" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbautofilltestarchivemaker?language=objc}UIKBAutoFillTestArchiveMaker} *) -module C = struct - let archiveMakerWithViewControllerToSnapshot x self = msg_send ~self ~cmd:(selector "archiveMakerWithViewControllerToSnapshot:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIKBAutoFillTestArchiveMaker" -let archiver x ~willEncodeObject self = msg_send ~self ~cmd:(selector "archiver:willEncodeObject:") ~typ:(id @-> id @-> returning (id)) x willEncodeObject -let initWithViewControllerToSnapshot x self = msg_send ~self ~cmd:(selector "initWithViewControllerToSnapshot:") ~typ:(id @-> returning (id)) x -let makeArchive self = msg_send ~self ~cmd:(selector "makeArchive") ~typ:(returning (id)) \ No newline at end of file +let archiver x ~willEncodeObject self = msg_send ~self ~cmd:(selector "archiver:willEncodeObject:") ~typ:(id @-> id @-> returning id) x willEncodeObject +let initWithViewControllerToSnapshot x self = msg_send ~self ~cmd:(selector "initWithViewControllerToSnapshot:") ~typ:(id @-> returning id) x +let makeArchive self = msg_send ~self ~cmd:(selector "makeArchive") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBAutoFillTestArchiveMakerClass.ml b/uikit_extra/UIKBAutoFillTestArchiveMakerClass.ml new file mode 100644 index 00000000..8cef0ca0 --- /dev/null +++ b/uikit_extra/UIKBAutoFillTestArchiveMakerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbautofilltestarchivemaker?language=objc}UIKBAutoFillTestArchiveMaker} *) + +let archiveMakerWithViewControllerToSnapshot x self = msg_send ~self ~cmd:(selector "archiveMakerWithViewControllerToSnapshot:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBAutoFillTestExpectedResult.ml b/uikit_extra/UIKBAutoFillTestExpectedResult.ml index 44f11628..069d1f72 100644 --- a/uikit_extra/UIKBAutoFillTestExpectedResult.ml +++ b/uikit_extra/UIKBAutoFillTestExpectedResult.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBAutoFillTestExpectedResult" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbautofilltestexpectedresult?language=objc}UIKBAutoFillTestExpectedResult} *) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let formType self = msg_send ~self ~cmd:(selector "formType") ~typ:(returning (llong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let setFormType x self = msg_send ~self ~cmd:(selector "setFormType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setType x ~forTextFieldWithTag self = msg_send ~self ~cmd:(selector "setType:forTextFieldWithTag:") ~typ:(llong @-> llong @-> returning (void)) (LLong.of_int x) (LLong.of_int forTextFieldWithTag) -let typeForTextFieldWithTag x self = msg_send ~self ~cmd:(selector "typeForTextFieldWithTag:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) \ No newline at end of file +let self = get_class "UIKBAutoFillTestExpectedResult" + +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let formType self = msg_send ~self ~cmd:(selector "formType") ~typ:(returning llong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let setFormType x self = msg_send ~self ~cmd:(selector "setFormType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setType x ~forTextFieldWithTag self = msg_send ~self ~cmd:(selector "setType:forTextFieldWithTag:") ~typ:(llong @-> llong @-> returning void) (LLong.of_int x) (LLong.of_int forTextFieldWithTag) +let typeForTextFieldWithTag x self = msg_send ~self ~cmd:(selector "typeForTextFieldWithTag:") ~typ:(llong @-> returning llong) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIKBAutoFillTestGroundTruthGenerationViewController.ml b/uikit_extra/UIKBAutoFillTestGroundTruthGenerationViewController.ml index 6a91f280..d44765f6 100644 --- a/uikit_extra/UIKBAutoFillTestGroundTruthGenerationViewController.ml +++ b/uikit_extra/UIKBAutoFillTestGroundTruthGenerationViewController.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBAutoFillTestGroundTruthGenerationViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbautofilltestgroundtruthgenerationviewcontroller?language=objc}UIKBAutoFillTestGroundTruthGenerationViewController} *) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let initWithAutoFillTestViewController x self = msg_send ~self ~cmd:(selector "initWithAutoFillTestViewController:") ~typ:(id @-> returning (id)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let taggerView x ~selectedTypeForFormRequest self = msg_send ~self ~cmd:(selector "taggerView:selectedTypeForFormRequest:") ~typ:(id @-> id @-> returning (llong)) x selectedTypeForFormRequest -let taggerView1 x ~selectedTypeForTextFieldRequest self = msg_send ~self ~cmd:(selector "taggerView:selectedTypeForTextFieldRequest:") ~typ:(id @-> id @-> returning (llong)) x selectedTypeForTextFieldRequest -let taggerView2 x ~willTagRequest self = msg_send ~self ~cmd:(selector "taggerView:willTagRequest:") ~typ:(id @-> id @-> returning (void)) x willTagRequest -let taggerView3 x ~didTagFormRequest ~withSelectedType self = msg_send ~self ~cmd:(selector "taggerView:didTagFormRequest:withSelectedType:") ~typ:(id @-> id @-> llong @-> returning (void)) x didTagFormRequest (LLong.of_int withSelectedType) -let taggerView4 x ~didTagTextFieldRequest ~withSelectedType self = msg_send ~self ~cmd:(selector "taggerView:didTagTextFieldRequest:withSelectedType:") ~typ:(id @-> id @-> llong @-> returning (void)) x didTagTextFieldRequest (LLong.of_int withSelectedType) -let taggerViewDidFinish x self = msg_send ~self ~cmd:(selector "taggerViewDidFinish:") ~typ:(id @-> returning (void)) x -let testViewController self = msg_send ~self ~cmd:(selector "testViewController") ~typ:(returning (id)) -let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning (void)) x -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIKBAutoFillTestGroundTruthGenerationViewController" + +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let initWithAutoFillTestViewController x self = msg_send ~self ~cmd:(selector "initWithAutoFillTestViewController:") ~typ:(id @-> returning id) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let taggerView x ~selectedTypeForFormRequest self = msg_send ~self ~cmd:(selector "taggerView:selectedTypeForFormRequest:") ~typ:(id @-> id @-> returning llong) x selectedTypeForFormRequest +let taggerView1 x ~selectedTypeForTextFieldRequest self = msg_send ~self ~cmd:(selector "taggerView:selectedTypeForTextFieldRequest:") ~typ:(id @-> id @-> returning llong) x selectedTypeForTextFieldRequest +let taggerView2 x ~willTagRequest self = msg_send ~self ~cmd:(selector "taggerView:willTagRequest:") ~typ:(id @-> id @-> returning void) x willTagRequest +let taggerView3 x ~didTagFormRequest ~withSelectedType self = msg_send ~self ~cmd:(selector "taggerView:didTagFormRequest:withSelectedType:") ~typ:(id @-> id @-> llong @-> returning void) x didTagFormRequest (LLong.of_int withSelectedType) +let taggerView4 x ~didTagTextFieldRequest ~withSelectedType self = msg_send ~self ~cmd:(selector "taggerView:didTagTextFieldRequest:withSelectedType:") ~typ:(id @-> id @-> llong @-> returning void) x didTagTextFieldRequest (LLong.of_int withSelectedType) +let taggerViewDidFinish x self = msg_send ~self ~cmd:(selector "taggerViewDidFinish:") ~typ:(id @-> returning void) x +let testViewController self = msg_send ~self ~cmd:(selector "testViewController") ~typ:(returning id) +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKBAutoFillTestTableViewDataSource.ml b/uikit_extra/UIKBAutoFillTestTableViewDataSource.ml index d18142bc..04ac8f62 100644 --- a/uikit_extra/UIKBAutoFillTestTableViewDataSource.ml +++ b/uikit_extra/UIKBAutoFillTestTableViewDataSource.ml @@ -5,23 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBAutoFillTestTableViewDataSource" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbautofilltesttableviewdatasource?language=objc}UIKBAutoFillTestTableViewDataSource} *) -let cellForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "cellForRowAtIndexPath:") ~typ:(id @-> returning (id)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let heightForFooterInSection x self = msg_send ~self ~cmd:(selector "heightForFooterInSection:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let heightForHeaderInSection x self = msg_send ~self ~cmd:(selector "heightForHeaderInSection:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let heightForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "heightForRowAtIndexPath:") ~typ:(id @-> returning (double)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let numberOfRowsInSection x self = msg_send ~self ~cmd:(selector "numberOfRowsInSection:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let numberOfSections self = msg_send ~self ~cmd:(selector "numberOfSections") ~typ:(returning (llong)) -let setCellData x ~forRowAtIndexPath self = msg_send ~self ~cmd:(selector "setCellData:forRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x forRowAtIndexPath -let setFooterData x ~forSection self = msg_send ~self ~cmd:(selector "setFooterData:forSection:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forSection) -let setHeaderData x ~forSection self = msg_send ~self ~cmd:(selector "setHeaderData:forSection:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forSection) -let setNumberOfRows x ~forSection self = msg_send ~self ~cmd:(selector "setNumberOfRows:forSection:") ~typ:(llong @-> llong @-> returning (void)) (LLong.of_int x) (LLong.of_int forSection) -let titleForFooterInSection x self = msg_send ~self ~cmd:(selector "titleForFooterInSection:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let titleForHeaderInSection x self = msg_send ~self ~cmd:(selector "titleForHeaderInSection:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let viewForFooterInSection x self = msg_send ~self ~cmd:(selector "viewForFooterInSection:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let viewForHeaderInSection x self = msg_send ~self ~cmd:(selector "viewForHeaderInSection:") ~typ:(llong @-> returning (id)) (LLong.of_int x) \ No newline at end of file +let self = get_class "UIKBAutoFillTestTableViewDataSource" + +let cellForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "cellForRowAtIndexPath:") ~typ:(id @-> returning id) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let heightForFooterInSection x self = msg_send ~self ~cmd:(selector "heightForFooterInSection:") ~typ:(llong @-> returning double) (LLong.of_int x) +let heightForHeaderInSection x self = msg_send ~self ~cmd:(selector "heightForHeaderInSection:") ~typ:(llong @-> returning double) (LLong.of_int x) +let heightForRowAtIndexPath x self = msg_send ~self ~cmd:(selector "heightForRowAtIndexPath:") ~typ:(id @-> returning double) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let numberOfRowsInSection x self = msg_send ~self ~cmd:(selector "numberOfRowsInSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let numberOfSections self = msg_send ~self ~cmd:(selector "numberOfSections") ~typ:(returning llong) +let setCellData x ~forRowAtIndexPath self = msg_send ~self ~cmd:(selector "setCellData:forRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x forRowAtIndexPath +let setFooterData x ~forSection self = msg_send ~self ~cmd:(selector "setFooterData:forSection:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forSection) +let setHeaderData x ~forSection self = msg_send ~self ~cmd:(selector "setHeaderData:forSection:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forSection) +let setNumberOfRows x ~forSection self = msg_send ~self ~cmd:(selector "setNumberOfRows:forSection:") ~typ:(llong @-> llong @-> returning void) (LLong.of_int x) (LLong.of_int forSection) +let titleForFooterInSection x self = msg_send ~self ~cmd:(selector "titleForFooterInSection:") ~typ:(llong @-> returning id) (LLong.of_int x) +let titleForHeaderInSection x self = msg_send ~self ~cmd:(selector "titleForHeaderInSection:") ~typ:(llong @-> returning id) (LLong.of_int x) +let viewForFooterInSection x self = msg_send ~self ~cmd:(selector "viewForFooterInSection:") ~typ:(llong @-> returning id) (LLong.of_int x) +let viewForHeaderInSection x self = msg_send ~self ~cmd:(selector "viewForHeaderInSection:") ~typ:(llong @-> returning id) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIKBAutoFillTestTableViewHeaderFooterData.ml b/uikit_extra/UIKBAutoFillTestTableViewHeaderFooterData.ml index 0e2d0dc8..8e83da2d 100644 --- a/uikit_extra/UIKBAutoFillTestTableViewHeaderFooterData.ml +++ b/uikit_extra/UIKBAutoFillTestTableViewHeaderFooterData.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBAutoFillTestTableViewHeaderFooterData" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbautofilltesttableviewheaderfooterdata?language=objc}UIKBAutoFillTestTableViewHeaderFooterData} *) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let headerFooterView self = msg_send ~self ~cmd:(selector "headerFooterView") ~typ:(returning (id)) -let height self = msg_send ~self ~cmd:(selector "height") ~typ:(returning (double)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithTitle x ~view ~height self = msg_send ~self ~cmd:(selector "initWithTitle:view:height:") ~typ:(id @-> id @-> double @-> returning (id)) x view height -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBAutoFillTestTableViewHeaderFooterData" + +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let headerFooterView self = msg_send ~self ~cmd:(selector "headerFooterView") ~typ:(returning id) +let height self = msg_send ~self ~cmd:(selector "height") ~typ:(returning double) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithTitle x ~view ~height self = msg_send ~self ~cmd:(selector "initWithTitle:view:height:") ~typ:(id @-> id @-> double @-> returning id) x view height +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBAutoFillTestTagRequest.ml b/uikit_extra/UIKBAutoFillTestTagRequest.ml index dc97ccd3..650f16c0 100644 --- a/uikit_extra/UIKBAutoFillTestTagRequest.ml +++ b/uikit_extra/UIKBAutoFillTestTagRequest.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBAutoFillTestTagRequest" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbautofilltesttagrequest?language=objc}UIKBAutoFillTestTagRequest} *) -let initWithRequestType x ~view self = msg_send ~self ~cmd:(selector "initWithRequestType:view:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) view -let requestType self = msg_send ~self ~cmd:(selector "requestType") ~typ:(returning (llong)) -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBAutoFillTestTagRequest" + +let initWithRequestType x ~view self = msg_send ~self ~cmd:(selector "initWithRequestType:view:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) view +let requestType self = msg_send ~self ~cmd:(selector "requestType") ~typ:(returning llong) +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBAutoFillTestTaggerView.ml b/uikit_extra/UIKBAutoFillTestTaggerView.ml index 70028874..95e26b64 100644 --- a/uikit_extra/UIKBAutoFillTestTaggerView.ml +++ b/uikit_extra/UIKBAutoFillTestTaggerView.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBAutoFillTestTaggerView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbautofilltesttaggerview?language=objc}UIKBAutoFillTestTaggerView} *) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let numberOfComponentsInPickerView x self = msg_send ~self ~cmd:(selector "numberOfComponentsInPickerView:") ~typ:(id @-> returning (llong)) x -let pickerView x ~numberOfRowsInComponent self = msg_send ~self ~cmd:(selector "pickerView:numberOfRowsInComponent:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInComponent) -let pickerView1 x ~rowHeightForComponent self = msg_send ~self ~cmd:(selector "pickerView:rowHeightForComponent:") ~typ:(id @-> llong @-> returning (double)) x (LLong.of_int rowHeightForComponent) -let pickerView2 x ~didSelectRow ~inComponent self = msg_send ~self ~cmd:(selector "pickerView:didSelectRow:inComponent:") ~typ:(id @-> llong @-> llong @-> returning (void)) x (LLong.of_int didSelectRow) (LLong.of_int inComponent) -let pickerView3 x ~titleForRow ~forComponent self = msg_send ~self ~cmd:(selector "pickerView:titleForRow:forComponent:") ~typ:(id @-> llong @-> llong @-> returning (id)) x (LLong.of_int titleForRow) (LLong.of_int forComponent) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setTagRequests x self = msg_send ~self ~cmd:(selector "setTagRequests:") ~typ:(id @-> returning (void)) x -let tagRequests self = msg_send ~self ~cmd:(selector "tagRequests") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBAutoFillTestTaggerView" + +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let numberOfComponentsInPickerView x self = msg_send ~self ~cmd:(selector "numberOfComponentsInPickerView:") ~typ:(id @-> returning llong) x +let pickerView x ~numberOfRowsInComponent self = msg_send ~self ~cmd:(selector "pickerView:numberOfRowsInComponent:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInComponent) +let pickerView1 x ~rowHeightForComponent self = msg_send ~self ~cmd:(selector "pickerView:rowHeightForComponent:") ~typ:(id @-> llong @-> returning double) x (LLong.of_int rowHeightForComponent) +let pickerView2 x ~didSelectRow ~inComponent self = msg_send ~self ~cmd:(selector "pickerView:didSelectRow:inComponent:") ~typ:(id @-> llong @-> llong @-> returning void) x (LLong.of_int didSelectRow) (LLong.of_int inComponent) +let pickerView3 x ~titleForRow ~forComponent self = msg_send ~self ~cmd:(selector "pickerView:titleForRow:forComponent:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int titleForRow) (LLong.of_int forComponent) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setTagRequests x self = msg_send ~self ~cmd:(selector "setTagRequests:") ~typ:(id @-> returning void) x +let tagRequests self = msg_send ~self ~cmd:(selector "tagRequests") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBAutoFillTestViewController.ml b/uikit_extra/UIKBAutoFillTestViewController.ml index a46d5dac..a363b9cd 100644 --- a/uikit_extra/UIKBAutoFillTestViewController.ml +++ b/uikit_extra/UIKBAutoFillTestViewController.ml @@ -5,23 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBAutoFillTestViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbautofilltestviewcontroller?language=objc}UIKBAutoFillTestViewController} *) -module C = struct - let enumerateSubviewsOfRootView x ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateSubviewsOfRootView:usingBlock:") ~typ:(id @-> ptr void @-> returning (void)) x usingBlock -end +let self = get_class "UIKBAutoFillTestViewController" -let initWithAutoFillTestArchive x self = msg_send ~self ~cmd:(selector "initWithAutoFillTestArchive:") ~typ:(id @-> returning (id)) x -let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning (llong)) x -let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView1 x ~heightForFooterInSection self = msg_send ~self ~cmd:(selector "tableView:heightForFooterInSection:") ~typ:(id @-> llong @-> returning (double)) x (LLong.of_int heightForFooterInSection) -let tableView2 x ~heightForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:heightForHeaderInSection:") ~typ:(id @-> llong @-> returning (double)) x (LLong.of_int heightForHeaderInSection) -let tableView3 x ~heightForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:heightForRowAtIndexPath:") ~typ:(id @-> id @-> returning (double)) x heightForRowAtIndexPath -let tableView4 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let tableView5 x ~titleForFooterInSection self = msg_send ~self ~cmd:(selector "tableView:titleForFooterInSection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int titleForFooterInSection) -let tableView6 x ~titleForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:titleForHeaderInSection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int titleForHeaderInSection) -let tableView7 x ~viewForFooterInSection self = msg_send ~self ~cmd:(selector "tableView:viewForFooterInSection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int viewForFooterInSection) -let tableView8 x ~viewForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:viewForHeaderInSection:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int viewForHeaderInSection) -let testArchive self = msg_send ~self ~cmd:(selector "testArchive") ~typ:(returning (id)) -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) \ No newline at end of file +let initWithAutoFillTestArchive x self = msg_send ~self ~cmd:(selector "initWithAutoFillTestArchive:") ~typ:(id @-> returning id) x +let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning llong) x +let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView1 x ~heightForFooterInSection self = msg_send ~self ~cmd:(selector "tableView:heightForFooterInSection:") ~typ:(id @-> llong @-> returning double) x (LLong.of_int heightForFooterInSection) +let tableView2 x ~heightForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:heightForHeaderInSection:") ~typ:(id @-> llong @-> returning double) x (LLong.of_int heightForHeaderInSection) +let tableView3 x ~heightForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:heightForRowAtIndexPath:") ~typ:(id @-> id @-> returning double) x heightForRowAtIndexPath +let tableView4 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let tableView5 x ~titleForFooterInSection self = msg_send ~self ~cmd:(selector "tableView:titleForFooterInSection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int titleForFooterInSection) +let tableView6 x ~titleForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:titleForHeaderInSection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int titleForHeaderInSection) +let tableView7 x ~viewForFooterInSection self = msg_send ~self ~cmd:(selector "tableView:viewForFooterInSection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int viewForFooterInSection) +let tableView8 x ~viewForHeaderInSection self = msg_send ~self ~cmd:(selector "tableView:viewForHeaderInSection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int viewForHeaderInSection) +let testArchive self = msg_send ~self ~cmd:(selector "testArchive") ~typ:(returning id) +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKBAutoFillTestViewControllerClass.ml b/uikit_extra/UIKBAutoFillTestViewControllerClass.ml new file mode 100644 index 00000000..a1978245 --- /dev/null +++ b/uikit_extra/UIKBAutoFillTestViewControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbautofilltestviewcontroller?language=objc}UIKBAutoFillTestViewController} *) + +let enumerateSubviewsOfRootView x ~usingBlock self = msg_send ~self ~cmd:(selector "enumerateSubviewsOfRootView:usingBlock:") ~typ:(id @-> (ptr void) @-> returning void) x usingBlock \ No newline at end of file diff --git a/uikit_extra/UIKBAutofillController.ml b/uikit_extra/UIKBAutofillController.ml index 3efc0d79..b216fd45 100644 --- a/uikit_extra/UIKBAutofillController.ml +++ b/uikit_extra/UIKBAutofillController.ml @@ -5,57 +5,57 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBAutofillController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbautofillcontroller?language=objc}UIKBAutofillController} *) -module C = struct - let translateToTextInputAutofillMode x self = msg_send ~self ~cmd:(selector "translateToTextInputAutofillMode:") ~typ:(llong @-> returning (ullong)) (LLong.of_int x) -end +let self = get_class "UIKBAutofillController" -let accessibilityLoginKeywordList self = msg_send ~self ~cmd:(selector "accessibilityLoginKeywordList") ~typ:(returning (id)) -let accessibilitySignupKeywordList self = msg_send ~self ~cmd:(selector "accessibilitySignupKeywordList") ~typ:(returning (id)) -let addTemporaryTextColorToTextField x self = msg_send ~self ~cmd:(selector "addTemporaryTextColorToTextField:") ~typ:(id @-> returning (void)) x -let addressKeywordSet self = msg_send ~self ~cmd:(selector "addressKeywordSet") ~typ:(returning (id)) -let autofillContextForInputDelegate x self = msg_send ~self ~cmd:(selector "autofillContextForInputDelegate:") ~typ:(id @-> returning (id)) x -let autofillGroup self = msg_send ~self ~cmd:(selector "autofillGroup") ~typ:(returning (id)) -let clearASPInPasswordFields self = msg_send ~self ~cmd:(selector "clearASPInPasswordFields") ~typ:(returning (void)) -let clearASPVisualEffectsInTextField x self = msg_send ~self ~cmd:(selector "clearASPVisualEffectsInTextField:") ~typ:(id @-> returning (void)) x -let clearAutofillGroup self = msg_send ~self ~cmd:(selector "clearAutofillGroup") ~typ:(returning (void)) -let clearFallbackAutofillGroup self = msg_send ~self ~cmd:(selector "clearFallbackAutofillGroup") ~typ:(returning (void)) -let contactAutoFillKeywordsForKey x ~value ~localizedKeywords self = msg_send ~self ~cmd:(selector "contactAutoFillKeywordsForKey:value:localizedKeywords:") ~typ:(id @-> id @-> id @-> returning (id)) x value localizedKeywords -let contactAutofillModeWithAutofillGroup x ~responders self = msg_send ~self ~cmd:(selector "contactAutofillModeWithAutofillGroup:responders:") ~typ:(id @-> id @-> returning (llong)) x responders -let containsIndicationInText x ~withAccessibilityHints self = msg_send ~self ~cmd:(selector "containsIndicationInText:withAccessibilityHints:") ~typ:(id @-> bool @-> returning (llong)) x withAccessibilityHints -let containsUsernamePasswordPairsInAutofillGroup x self = msg_send ~self ~cmd:(selector "containsUsernamePasswordPairsInAutofillGroup:") ~typ:(id @-> returning (bool)) x -let delegateNeedsAutofillMode self = msg_send ~self ~cmd:(selector "delegateNeedsAutofillMode") ~typ:(returning (llong)) -let didOptOutOfAutofillSignup self = msg_send ~self ~cmd:(selector "didOptOutOfAutofillSignup") ~typ:(returning (void)) -let doTraits x ~matchTextContentType self = msg_send ~self ~cmd:(selector "doTraits:matchTextContentType:") ~typ:(id @-> id @-> returning (llong)) x matchTextContentType -let emailKeywordSet self = msg_send ~self ~cmd:(selector "emailKeywordSet") ~typ:(returning (id)) -let enumeratePasswordFieldsUsingBlock x self = msg_send ~self ~cmd:(selector "enumeratePasswordFieldsUsingBlock:") ~typ:(ptr void @-> returning (void)) x -let fallbackAutofillGroup self = msg_send ~self ~cmd:(selector "fallbackAutofillGroup") ~typ:(returning (id)) -let handleAutofillCredentialSaveIfNeeded x ~fromASP self = msg_send ~self ~cmd:(selector "handleAutofillCredentialSaveIfNeeded:fromASP:") ~typ:(id @-> bool @-> returning (void)) x fromASP -let handleWebviewCredentialsSaveForResponder x ~_WebsiteURL ~user ~password ~passwordIsAutoGenerated self = msg_send ~self ~cmd:(selector "handleWebviewCredentialsSaveForResponder:WebsiteURL:user:password:passwordIsAutoGenerated:") ~typ:(id @-> id @-> id @-> id @-> bool @-> returning (void)) x _WebsiteURL user password passwordIsAutoGenerated -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let loginKeywordList self = msg_send ~self ~cmd:(selector "loginKeywordList") ~typ:(returning (id)) -let needAutofillCandidate x ~delegateAsResponder ~keyboardState self = msg_send ~self ~cmd:(selector "needAutofillCandidate:delegateAsResponder:keyboardState:") ~typ:(id @-> id @-> id @-> returning (llong)) x delegateAsResponder keyboardState -let optOutASPInTextField self = msg_send ~self ~cmd:(selector "optOutASPInTextField") ~typ:(returning (void)) -let phoneKeywordSet self = msg_send ~self ~cmd:(selector "phoneKeywordSet") ~typ:(returning (id)) -let preferFallbackAutofillGroup self = msg_send ~self ~cmd:(selector "preferFallbackAutofillGroup") ~typ:(returning (bool)) -let processLocalizedString x self = msg_send ~self ~cmd:(selector "processLocalizedString:") ~typ:(id @-> returning (id)) x -let removeTemporaryTextColorFromTextField x self = msg_send ~self ~cmd:(selector "removeTemporaryTextColorFromTextField:") ~typ:(id @-> returning (void)) x -let searchKeywordSet self = msg_send ~self ~cmd:(selector "searchKeywordSet") ~typ:(returning (id)) -let setDelegateNeedsAutofillMode x self = msg_send ~self ~cmd:(selector "setDelegateNeedsAutofillMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setFallbackAutofillGroup x self = msg_send ~self ~cmd:(selector "setFallbackAutofillGroup:") ~typ:(id @-> returning (void)) x -let setShouldSaveAutofill x self = msg_send ~self ~cmd:(selector "setShouldSaveAutofill:") ~typ:(bool @-> returning (void)) x -let setTextFieldOrigColor x self = msg_send ~self ~cmd:(selector "setTextFieldOrigColor:") ~typ:(id @-> returning (void)) x -let shouldLoadASPForResponder x self = msg_send ~self ~cmd:(selector "shouldLoadASPForResponder:") ~typ:(id @-> returning (bool)) x -let shouldSaveAutofill self = msg_send ~self ~cmd:(selector "shouldSaveAutofill") ~typ:(returning (bool)) -let showASPInTextField x ~isRightToLeft self = msg_send ~self ~cmd:(selector "showASPInTextField:isRightToLeft:") ~typ:(id @-> bool @-> returning (void)) x isRightToLeft -let signUpSignalFromButton x self = msg_send ~self ~cmd:(selector "signUpSignalFromButton:") ~typ:(id @-> returning (llong)) x -let signUpSignalFromNavBarItem x self = msg_send ~self ~cmd:(selector "signUpSignalFromNavBarItem:") ~typ:(id @-> returning (llong)) x -let signUpSignalFromViewControllerHierarchy x self = msg_send ~self ~cmd:(selector "signUpSignalFromViewControllerHierarchy:") ~typ:(id @-> returning (llong)) x -let signupHintForUsername x ~password ~responder self = msg_send ~self ~cmd:(selector "signupHintForUsername:password:responder:") ~typ:(id @-> id @-> id @-> returning (bool)) x password responder -let signupKeywordList self = msg_send ~self ~cmd:(selector "signupKeywordList") ~typ:(returning (id)) -let textFieldOrigColor self = msg_send ~self ~cmd:(selector "textFieldOrigColor") ~typ:(returning (id)) -let textSignalsForResponder x self = msg_send ~self ~cmd:(selector "textSignalsForResponder:") ~typ:(id @-> returning (id)) x -let trackResponderForAutofillIfNeeded x self = msg_send ~self ~cmd:(selector "trackResponderForAutofillIfNeeded:") ~typ:(id @-> returning (void)) x -let updateAutofillContextForInputDelegate x self = msg_send ~self ~cmd:(selector "updateAutofillContextForInputDelegate:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let accessibilityLoginKeywordList self = msg_send ~self ~cmd:(selector "accessibilityLoginKeywordList") ~typ:(returning id) +let accessibilitySignupKeywordList self = msg_send ~self ~cmd:(selector "accessibilitySignupKeywordList") ~typ:(returning id) +let addTemporaryTextColorToTextField x self = msg_send ~self ~cmd:(selector "addTemporaryTextColorToTextField:") ~typ:(id @-> returning void) x +let addressKeywordSet self = msg_send ~self ~cmd:(selector "addressKeywordSet") ~typ:(returning id) +let autofillContextForInputDelegate x self = msg_send ~self ~cmd:(selector "autofillContextForInputDelegate:") ~typ:(id @-> returning id) x +let autofillGroup self = msg_send ~self ~cmd:(selector "autofillGroup") ~typ:(returning id) +let clearASPInPasswordFields self = msg_send ~self ~cmd:(selector "clearASPInPasswordFields") ~typ:(returning void) +let clearASPVisualEffectsInTextField x self = msg_send ~self ~cmd:(selector "clearASPVisualEffectsInTextField:") ~typ:(id @-> returning void) x +let clearAutofillGroup self = msg_send ~self ~cmd:(selector "clearAutofillGroup") ~typ:(returning void) +let clearFallbackAutofillGroup self = msg_send ~self ~cmd:(selector "clearFallbackAutofillGroup") ~typ:(returning void) +let contactAutoFillKeywordsForKey x ~value ~localizedKeywords self = msg_send ~self ~cmd:(selector "contactAutoFillKeywordsForKey:value:localizedKeywords:") ~typ:(id @-> id @-> id @-> returning id) x value localizedKeywords +let contactAutofillModeWithAutofillGroup x ~responders self = msg_send ~self ~cmd:(selector "contactAutofillModeWithAutofillGroup:responders:") ~typ:(id @-> id @-> returning llong) x responders +let containsIndicationInText x ~withAccessibilityHints self = msg_send ~self ~cmd:(selector "containsIndicationInText:withAccessibilityHints:") ~typ:(id @-> bool @-> returning llong) x withAccessibilityHints +let containsUsernamePasswordPairsInAutofillGroup x self = msg_send ~self ~cmd:(selector "containsUsernamePasswordPairsInAutofillGroup:") ~typ:(id @-> returning bool) x +let delegateNeedsAutofillMode self = msg_send ~self ~cmd:(selector "delegateNeedsAutofillMode") ~typ:(returning llong) +let didOptOutOfAutofillSignup self = msg_send ~self ~cmd:(selector "didOptOutOfAutofillSignup") ~typ:(returning void) +let doTraits x ~matchTextContentType self = msg_send ~self ~cmd:(selector "doTraits:matchTextContentType:") ~typ:(id @-> id @-> returning llong) x matchTextContentType +let emailKeywordSet self = msg_send ~self ~cmd:(selector "emailKeywordSet") ~typ:(returning id) +let enumeratePasswordFieldsUsingBlock x self = msg_send ~self ~cmd:(selector "enumeratePasswordFieldsUsingBlock:") ~typ:((ptr void) @-> returning void) x +let fallbackAutofillGroup self = msg_send ~self ~cmd:(selector "fallbackAutofillGroup") ~typ:(returning id) +let handleAutofillCredentialSaveIfNeeded x ~fromASP self = msg_send ~self ~cmd:(selector "handleAutofillCredentialSaveIfNeeded:fromASP:") ~typ:(id @-> bool @-> returning void) x fromASP +let handleWebviewCredentialsSaveForResponder x ~_WebsiteURL ~user ~password ~passwordIsAutoGenerated self = msg_send ~self ~cmd:(selector "handleWebviewCredentialsSaveForResponder:WebsiteURL:user:password:passwordIsAutoGenerated:") ~typ:(id @-> id @-> id @-> id @-> bool @-> returning void) x _WebsiteURL user password passwordIsAutoGenerated +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let loginKeywordList self = msg_send ~self ~cmd:(selector "loginKeywordList") ~typ:(returning id) +let needAutofillCandidate x ~delegateAsResponder ~keyboardState self = msg_send ~self ~cmd:(selector "needAutofillCandidate:delegateAsResponder:keyboardState:") ~typ:(id @-> id @-> id @-> returning llong) x delegateAsResponder keyboardState +let optOutASPInTextField self = msg_send ~self ~cmd:(selector "optOutASPInTextField") ~typ:(returning void) +let phoneKeywordSet self = msg_send ~self ~cmd:(selector "phoneKeywordSet") ~typ:(returning id) +let preferFallbackAutofillGroup self = msg_send ~self ~cmd:(selector "preferFallbackAutofillGroup") ~typ:(returning bool) +let processLocalizedString x self = msg_send ~self ~cmd:(selector "processLocalizedString:") ~typ:(id @-> returning id) x +let removeTemporaryTextColorFromTextField x self = msg_send ~self ~cmd:(selector "removeTemporaryTextColorFromTextField:") ~typ:(id @-> returning void) x +let searchKeywordSet self = msg_send ~self ~cmd:(selector "searchKeywordSet") ~typ:(returning id) +let setDelegateNeedsAutofillMode x self = msg_send ~self ~cmd:(selector "setDelegateNeedsAutofillMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setFallbackAutofillGroup x self = msg_send ~self ~cmd:(selector "setFallbackAutofillGroup:") ~typ:(id @-> returning void) x +let setShouldSaveAutofill x self = msg_send ~self ~cmd:(selector "setShouldSaveAutofill:") ~typ:(bool @-> returning void) x +let setTextFieldOrigColor x self = msg_send ~self ~cmd:(selector "setTextFieldOrigColor:") ~typ:(id @-> returning void) x +let shouldLoadASPForResponder x self = msg_send ~self ~cmd:(selector "shouldLoadASPForResponder:") ~typ:(id @-> returning bool) x +let shouldSaveAutofill self = msg_send ~self ~cmd:(selector "shouldSaveAutofill") ~typ:(returning bool) +let showASPInTextField x ~isRightToLeft self = msg_send ~self ~cmd:(selector "showASPInTextField:isRightToLeft:") ~typ:(id @-> bool @-> returning void) x isRightToLeft +let signUpSignalFromButton x self = msg_send ~self ~cmd:(selector "signUpSignalFromButton:") ~typ:(id @-> returning llong) x +let signUpSignalFromNavBarItem x self = msg_send ~self ~cmd:(selector "signUpSignalFromNavBarItem:") ~typ:(id @-> returning llong) x +let signUpSignalFromViewControllerHierarchy x self = msg_send ~self ~cmd:(selector "signUpSignalFromViewControllerHierarchy:") ~typ:(id @-> returning llong) x +let signupHintForUsername x ~password ~responder self = msg_send ~self ~cmd:(selector "signupHintForUsername:password:responder:") ~typ:(id @-> id @-> id @-> returning bool) x password responder +let signupKeywordList self = msg_send ~self ~cmd:(selector "signupKeywordList") ~typ:(returning id) +let textFieldOrigColor self = msg_send ~self ~cmd:(selector "textFieldOrigColor") ~typ:(returning id) +let textSignalsForResponder x self = msg_send ~self ~cmd:(selector "textSignalsForResponder:") ~typ:(id @-> returning id) x +let trackResponderForAutofillIfNeeded x self = msg_send ~self ~cmd:(selector "trackResponderForAutofillIfNeeded:") ~typ:(id @-> returning void) x +let updateAutofillContextForInputDelegate x self = msg_send ~self ~cmd:(selector "updateAutofillContextForInputDelegate:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBAutofillControllerClass.ml b/uikit_extra/UIKBAutofillControllerClass.ml new file mode 100644 index 00000000..6b88be8b --- /dev/null +++ b/uikit_extra/UIKBAutofillControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbautofillcontroller?language=objc}UIKBAutofillController} *) + +let translateToTextInputAutofillMode x self = msg_send ~self ~cmd:(selector "translateToTextInputAutofillMode:") ~typ:(llong @-> returning ullong) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIKBBackdropView.ml b/uikit_extra/UIKBBackdropView.ml index e8cd3dd7..d94264c0 100644 --- a/uikit_extra/UIKBBackdropView.ml +++ b/uikit_extra/UIKBBackdropView.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBBackdropView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbbackdropview?language=objc}UIKBBackdropView} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let imageForCorners self = msg_send ~self ~cmd:(selector "imageForCorners") ~typ:(returning (id)) -let initWithFrame x ~style self = msg_send ~self ~cmd:(selector "initWithFrame:style:") ~typ:(CGRect.t @-> llong @-> returning (id)) x (LLong.of_int style) -let setImageForCorners x self = msg_send ~self ~cmd:(selector "setImageForCorners:") ~typ:(id @-> returning (void)) x -let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning (int)) -let transitionToStyle x self = msg_send ~self ~cmd:(selector "transitionToStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let updateCorners x self = msg_send ~self ~cmd:(selector "updateCorners:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let updateFrame x ~withCorners self = msg_send ~self ~cmd:(selector "updateFrame:withCorners:") ~typ:(CGRect.t @-> ullong @-> returning (void)) x (ULLong.of_int withCorners) \ No newline at end of file +let self = get_class "UIKBBackdropView" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let imageForCorners self = msg_send ~self ~cmd:(selector "imageForCorners") ~typ:(returning id) +let initWithFrame x ~style self = msg_send ~self ~cmd:(selector "initWithFrame:style:") ~typ:(CGRect.t @-> llong @-> returning id) x (LLong.of_int style) +let setImageForCorners x self = msg_send ~self ~cmd:(selector "setImageForCorners:") ~typ:(id @-> returning void) x +let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning int) +let transitionToStyle x self = msg_send ~self ~cmd:(selector "transitionToStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let updateCorners x self = msg_send ~self ~cmd:(selector "updateCorners:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let updateFrame x ~withCorners self = msg_send ~self ~cmd:(selector "updateFrame:withCorners:") ~typ:(CGRect.t @-> ullong @-> returning void) x (ULLong.of_int withCorners) \ No newline at end of file diff --git a/uikit_extra/UIKBBackgroundView.ml b/uikit_extra/UIKBBackgroundView.ml index 07ba2281..81e030b2 100644 --- a/uikit_extra/UIKBBackgroundView.ml +++ b/uikit_extra/UIKBBackgroundView.ml @@ -5,23 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBBackgroundView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbbackgroundview?language=objc}UIKBBackgroundView} *) -let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning (llong)) -let cacheDeferable self = msg_send ~self ~cmd:(selector "cacheDeferable") ~typ:(returning (bool)) -let cacheKey self = msg_send ~self ~cmd:(selector "cacheKey") ~typ:(returning (id)) -let cacheKeysForRenderFlags x self = msg_send ~self ~cmd:(selector "cacheKeysForRenderFlags:") ~typ:(id @-> returning (id)) x -let cachedWidth self = msg_send ~self ~cmd:(selector "cachedWidth") ~typ:(returning (double)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning (void)) x -let drawContentsOfRenderers x self = msg_send ~self ~cmd:(selector "drawContentsOfRenderers:") ~typ:(id @-> returning (void)) x -let geometryCacheKey self = msg_send ~self ~cmd:(selector "geometryCacheKey") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let keepNonPersistent self = msg_send ~self ~cmd:(selector "keepNonPersistent") ~typ:(returning (bool)) -let refreshStyleForKeyplane x ~inputTraits self = msg_send ~self ~cmd:(selector "refreshStyleForKeyplane:inputTraits:") ~typ:(id @-> id @-> returning (void)) x inputTraits -let renderConfig self = msg_send ~self ~cmd:(selector "renderConfig") ~typ:(returning (id)) -let screenTraits self = msg_send ~self ~cmd:(selector "screenTraits") ~typ:(returning (id)) -let setGeometryCacheKey x self = msg_send ~self ~cmd:(selector "setGeometryCacheKey:") ~typ:(id @-> returning (void)) x -let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning (void)) x -let setScreenTraits x self = msg_send ~self ~cmd:(selector "setScreenTraits:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKBBackgroundView" + +let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning llong) +let cacheDeferable self = msg_send ~self ~cmd:(selector "cacheDeferable") ~typ:(returning bool) +let cacheKey self = msg_send ~self ~cmd:(selector "cacheKey") ~typ:(returning id) +let cacheKeysForRenderFlags x self = msg_send ~self ~cmd:(selector "cacheKeysForRenderFlags:") ~typ:(id @-> returning id) x +let cachedWidth self = msg_send ~self ~cmd:(selector "cachedWidth") ~typ:(returning double) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning void) x +let drawContentsOfRenderers x self = msg_send ~self ~cmd:(selector "drawContentsOfRenderers:") ~typ:(id @-> returning void) x +let geometryCacheKey self = msg_send ~self ~cmd:(selector "geometryCacheKey") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let keepNonPersistent self = msg_send ~self ~cmd:(selector "keepNonPersistent") ~typ:(returning bool) +let refreshStyleForKeyplane x ~inputTraits self = msg_send ~self ~cmd:(selector "refreshStyleForKeyplane:inputTraits:") ~typ:(id @-> id @-> returning void) x inputTraits +let renderConfig self = msg_send ~self ~cmd:(selector "renderConfig") ~typ:(returning id) +let screenTraits self = msg_send ~self ~cmd:(selector "screenTraits") ~typ:(returning id) +let setGeometryCacheKey x self = msg_send ~self ~cmd:(selector "setGeometryCacheKey:") ~typ:(id @-> returning void) x +let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning void) x +let setScreenTraits x self = msg_send ~self ~cmd:(selector "setScreenTraits:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBBlurredKeyView.ml b/uikit_extra/UIKBBlurredKeyView.ml index e15aa968..71dc14e9 100644 --- a/uikit_extra/UIKBBlurredKeyView.ml +++ b/uikit_extra/UIKBBlurredKeyView.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBBlurredKeyView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbblurredkeyview?language=objc}UIKBBlurredKeyView} *) -let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning (id)) x keyplane key -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKBBlurredKeyView" + +let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning id) x keyplane key +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBCacheToken.ml b/uikit_extra/UIKBCacheToken.ml index ceaea55e..41734bf3 100644 --- a/uikit_extra/UIKBCacheToken.ml +++ b/uikit_extra/UIKBCacheToken.ml @@ -5,50 +5,45 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBCacheToken" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbcachetoken?language=objc}UIKBCacheToken} *) -module C = struct - let tokenForKey x ~style self = msg_send ~self ~cmd:(selector "tokenForKey:style:") ~typ:(id @-> ptr void @-> returning (id)) x style - let tokenForKey' x ~style ~displayInsets self = msg_send ~self ~cmd:(selector "tokenForKey:style:displayInsets:") ~typ:(id @-> ptr void @-> ptr void @-> returning (id)) x style displayInsets - let tokenForKeyMask x ~style ~displayInsets self = msg_send ~self ~cmd:(selector "tokenForKeyMask:style:displayInsets:") ~typ:(id @-> ptr void @-> ptr void @-> returning (id)) x style displayInsets - let tokenForKeyplane x self = msg_send ~self ~cmd:(selector "tokenForKeyplane:") ~typ:(id @-> returning (id)) x - let tokenTemplateFilledForKey x ~style ~size self = msg_send ~self ~cmd:(selector "tokenTemplateFilledForKey:style:size:") ~typ:(id @-> int @-> CGSize.t @-> returning (id)) x style size - let tokenTemplateForKey x ~style ~size self = msg_send ~self ~cmd:(selector "tokenTemplateForKey:style:size:") ~typ:(id @-> int @-> CGSize.t @-> returning (id)) x style size - let tokenTemplateForKey' x ~name ~style ~size self = msg_send ~self ~cmd:(selector "tokenTemplateForKey:name:style:size:") ~typ:(id @-> id @-> int @-> CGSize.t @-> returning (id)) x name style size -end +let self = get_class "UIKBCacheToken" -let annotateWithBool x self = msg_send ~self ~cmd:(selector "annotateWithBool:") ~typ:(bool @-> returning (void)) x -let annotateWithInt x self = msg_send ~self ~cmd:(selector "annotateWithInt:") ~typ:(int @-> returning (void)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let displayHint self = msg_send ~self ~cmd:(selector "displayHint") ~typ:(returning (int)) -let emptyFields self = msg_send ~self ~cmd:(selector "emptyFields") ~typ:(returning (int)) -let hasKey self = msg_send ~self ~cmd:(selector "hasKey") ~typ:(returning (bool)) -let initWithComponents x ~name self = msg_send ~self ~cmd:(selector "initWithComponents:name:") ~typ:(id @-> id @-> returning (id)) x name -let initWithName x self = msg_send ~self ~cmd:(selector "initWithName:") ~typ:(id @-> returning (id)) x -let isUsableForCacheToken x ~withRenderFlags self = msg_send ~self ~cmd:(selector "isUsableForCacheToken:withRenderFlags:") ~typ:(id @-> llong @-> returning (bool)) x (LLong.of_int withRenderFlags) -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let renderFlags self = msg_send ~self ~cmd:(selector "renderFlags") ~typ:(returning (llong)) -let resetAnnotations self = msg_send ~self ~cmd:(selector "resetAnnotations") ~typ:(returning (void)) -let rowHint self = msg_send ~self ~cmd:(selector "rowHint") ~typ:(returning (int)) -let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning (double)) -let setDisplayHint x self = msg_send ~self ~cmd:(selector "setDisplayHint:") ~typ:(int @-> returning (void)) x -let setEmptyFields x self = msg_send ~self ~cmd:(selector "setEmptyFields:") ~typ:(int @-> returning (void)) x -let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning (void)) x -let setRenderFlags x self = msg_send ~self ~cmd:(selector "setRenderFlags:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setRowHint x self = msg_send ~self ~cmd:(selector "setRowHint:") ~typ:(int @-> returning (void)) x -let setScale x self = msg_send ~self ~cmd:(selector "setScale:") ~typ:(double @-> returning (void)) x -let setSize x self = msg_send ~self ~cmd:(selector "setSize:") ~typ:(CGSize.t @-> returning (void)) x -let setStyling x self = msg_send ~self ~cmd:(selector "setStyling:") ~typ:(ptr void @-> returning (void)) x -let setTransformationIdentifiers x self = msg_send ~self ~cmd:(selector "setTransformationIdentifiers:") ~typ:(id @-> returning (void)) x -let size self = msg_send_stret ~self ~cmd:(selector "size") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let string_ self = msg_send ~self ~cmd:(selector "string") ~typ:(returning (id)) -let stringForComponentArray x ~additionalValues self = msg_send ~self ~cmd:(selector "stringForComponentArray:additionalValues:") ~typ:(id @-> ptr void @-> returning (id)) x additionalValues -let stringForConstruction x self = msg_send ~self ~cmd:(selector "stringForConstruction:") ~typ:(ptr void @-> returning (id)) x -let stringForKey x ~state self = msg_send ~self ~cmd:(selector "stringForKey:state:") ~typ:(id @-> int @-> returning (id)) x state -let stringForRenderFlags x ~lightKeyboard self = msg_send ~self ~cmd:(selector "stringForRenderFlags:lightKeyboard:") ~typ:(llong @-> bool @-> returning (id)) (LLong.of_int x) lightKeyboard -let stringForSplitState x ~handBias self = msg_send ~self ~cmd:(selector "stringForSplitState:handBias:") ~typ:(bool @-> llong @-> returning (id)) x (LLong.of_int handBias) -let stringForState x self = msg_send ~self ~cmd:(selector "stringForState:") ~typ:(int @-> returning (id)) x -let transformationIdentifiers self = msg_send ~self ~cmd:(selector "transformationIdentifiers") ~typ:(returning (id)) \ No newline at end of file +let annotateWithBool x self = msg_send ~self ~cmd:(selector "annotateWithBool:") ~typ:(bool @-> returning void) x +let annotateWithInt x self = msg_send ~self ~cmd:(selector "annotateWithInt:") ~typ:(int @-> returning void) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let displayHint self = msg_send ~self ~cmd:(selector "displayHint") ~typ:(returning int) +let emptyFields self = msg_send ~self ~cmd:(selector "emptyFields") ~typ:(returning int) +let hasKey self = msg_send ~self ~cmd:(selector "hasKey") ~typ:(returning bool) +let initWithComponents x ~name self = msg_send ~self ~cmd:(selector "initWithComponents:name:") ~typ:(id @-> id @-> returning id) x name +let initWithName x self = msg_send ~self ~cmd:(selector "initWithName:") ~typ:(id @-> returning id) x +let isUsableForCacheToken x ~withRenderFlags self = msg_send ~self ~cmd:(selector "isUsableForCacheToken:withRenderFlags:") ~typ:(id @-> llong @-> returning bool) x (LLong.of_int withRenderFlags) +let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) +let renderFlags self = msg_send ~self ~cmd:(selector "renderFlags") ~typ:(returning llong) +let resetAnnotations self = msg_send ~self ~cmd:(selector "resetAnnotations") ~typ:(returning void) +let rowHint self = msg_send ~self ~cmd:(selector "rowHint") ~typ:(returning int) +let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning double) +let setDisplayHint x self = msg_send ~self ~cmd:(selector "setDisplayHint:") ~typ:(int @-> returning void) x +let setEmptyFields x self = msg_send ~self ~cmd:(selector "setEmptyFields:") ~typ:(int @-> returning void) x +let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning void) x +let setRenderFlags x self = msg_send ~self ~cmd:(selector "setRenderFlags:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setRowHint x self = msg_send ~self ~cmd:(selector "setRowHint:") ~typ:(int @-> returning void) x +let setScale x self = msg_send ~self ~cmd:(selector "setScale:") ~typ:(double @-> returning void) x +let setSize x self = msg_send ~self ~cmd:(selector "setSize:") ~typ:(CGSize.t @-> returning void) x +let setStyling x self = msg_send ~self ~cmd:(selector "setStyling:") ~typ:(void @-> returning void) x +let setTransformationIdentifiers x self = msg_send ~self ~cmd:(selector "setTransformationIdentifiers:") ~typ:(id @-> returning void) x +let size self = msg_send ~self ~cmd:(selector "size") ~typ:(returning CGSize.t) +let string_ self = msg_send ~self ~cmd:(selector "string") ~typ:(returning id) +let stringForComponentArray x ~additionalValues self = msg_send ~self ~cmd:(selector "stringForComponentArray:additionalValues:") ~typ:(id @-> (ptr void) @-> returning id) x additionalValues +let stringForConstruction x self = msg_send ~self ~cmd:(selector "stringForConstruction:") ~typ:((ptr void) @-> returning id) x +let stringForKey x ~state self = msg_send ~self ~cmd:(selector "stringForKey:state:") ~typ:(id @-> int @-> returning id) x state +let stringForRenderFlags x ~lightKeyboard self = msg_send ~self ~cmd:(selector "stringForRenderFlags:lightKeyboard:") ~typ:(llong @-> bool @-> returning id) (LLong.of_int x) lightKeyboard +let stringForSplitState x ~handBias self = msg_send ~self ~cmd:(selector "stringForSplitState:handBias:") ~typ:(bool @-> llong @-> returning id) x (LLong.of_int handBias) +let stringForState x self = msg_send ~self ~cmd:(selector "stringForState:") ~typ:(int @-> returning id) x +let styling self = msg_send ~self ~cmd:(selector "styling") ~typ:(returning void) +let transformationIdentifiers self = msg_send ~self ~cmd:(selector "transformationIdentifiers") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBCacheTokenClass.ml b/uikit_extra/UIKBCacheTokenClass.ml new file mode 100644 index 00000000..255e61ba --- /dev/null +++ b/uikit_extra/UIKBCacheTokenClass.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbcachetoken?language=objc}UIKBCacheToken} *) + +let tokenForKey x ~style self = msg_send ~self ~cmd:(selector "tokenForKey:style:") ~typ:(id @-> void @-> returning id) x style +let tokenForKey' x ~style ~displayInsets self = msg_send ~self ~cmd:(selector "tokenForKey:style:displayInsets:") ~typ:(id @-> void @-> UIEdgeInsets.t @-> returning id) x style displayInsets +let tokenForKeyMask x ~style ~displayInsets self = msg_send ~self ~cmd:(selector "tokenForKeyMask:style:displayInsets:") ~typ:(id @-> void @-> UIEdgeInsets.t @-> returning id) x style displayInsets +let tokenForKeyplane x self = msg_send ~self ~cmd:(selector "tokenForKeyplane:") ~typ:(id @-> returning id) x +let tokenTemplateFilledForKey x ~style ~size self = msg_send ~self ~cmd:(selector "tokenTemplateFilledForKey:style:size:") ~typ:(id @-> int @-> CGSize.t @-> returning id) x style size +let tokenTemplateForKey x ~style ~size self = msg_send ~self ~cmd:(selector "tokenTemplateForKey:style:size:") ~typ:(id @-> int @-> CGSize.t @-> returning id) x style size +let tokenTemplateForKey' x ~name ~style ~size self = msg_send ~self ~cmd:(selector "tokenTemplateForKey:name:style:size:") ~typ:(id @-> id @-> int @-> CGSize.t @-> returning id) x name style size \ No newline at end of file diff --git a/uikit_extra/UIKBCacheToken_Key.ml b/uikit_extra/UIKBCacheToken_Key.ml index c16c3bcb..0074c79b 100644 --- a/uikit_extra/UIKBCacheToken_Key.ml +++ b/uikit_extra/UIKBCacheToken_Key.ml @@ -5,26 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBCacheToken_Key" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbcachetoken_key?language=objc}UIKBCacheToken_Key} *) -module C = struct - let tokenForKey x ~style self = msg_send ~self ~cmd:(selector "tokenForKey:style:") ~typ:(id @-> ptr void @-> returning (id)) x style - let tokenForKey' x ~style ~displayInsets self = msg_send ~self ~cmd:(selector "tokenForKey:style:displayInsets:") ~typ:(id @-> ptr void @-> ptr void @-> returning (id)) x style displayInsets -end +let self = get_class "UIKBCacheToken_Key" -let annotateWithBool x self = msg_send ~self ~cmd:(selector "annotateWithBool:") ~typ:(bool @-> returning (void)) x -let annotateWithInt x self = msg_send ~self ~cmd:(selector "annotateWithInt:") ~typ:(int @-> returning (void)) x -let annotateWithString x self = msg_send ~self ~cmd:(selector "annotateWithString:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let displayHint self = msg_send ~self ~cmd:(selector "displayHint") ~typ:(returning (int)) -let hasKey self = msg_send ~self ~cmd:(selector "hasKey") ~typ:(returning (bool)) -let resetAnnotations self = msg_send ~self ~cmd:(selector "resetAnnotations") ~typ:(returning (void)) -let rowHint self = msg_send ~self ~cmd:(selector "rowHint") ~typ:(returning (int)) -let setDisplayHint x self = msg_send ~self ~cmd:(selector "setDisplayHint:") ~typ:(int @-> returning (void)) x -let setRowHint x self = msg_send ~self ~cmd:(selector "setRowHint:") ~typ:(int @-> returning (void)) x -let setSize x self = msg_send ~self ~cmd:(selector "setSize:") ~typ:(CGSize.t @-> returning (void)) x -let setStyling x self = msg_send ~self ~cmd:(selector "setStyling:") ~typ:(ptr void @-> returning (void)) x -let size self = msg_send_stret ~self ~cmd:(selector "size") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let string_ self = msg_send ~self ~cmd:(selector "string") ~typ:(returning (id)) -let stringForRenderFlags x ~lightKeyboard self = msg_send ~self ~cmd:(selector "stringForRenderFlags:lightKeyboard:") ~typ:(llong @-> bool @-> returning (id)) (LLong.of_int x) lightKeyboard \ No newline at end of file +let annotateWithBool x self = msg_send ~self ~cmd:(selector "annotateWithBool:") ~typ:(bool @-> returning void) x +let annotateWithInt x self = msg_send ~self ~cmd:(selector "annotateWithInt:") ~typ:(int @-> returning void) x +let annotateWithString x self = msg_send ~self ~cmd:(selector "annotateWithString:") ~typ:(id @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let displayHint self = msg_send ~self ~cmd:(selector "displayHint") ~typ:(returning int) +let hasKey self = msg_send ~self ~cmd:(selector "hasKey") ~typ:(returning bool) +let resetAnnotations self = msg_send ~self ~cmd:(selector "resetAnnotations") ~typ:(returning void) +let rowHint self = msg_send ~self ~cmd:(selector "rowHint") ~typ:(returning int) +let setDisplayHint x self = msg_send ~self ~cmd:(selector "setDisplayHint:") ~typ:(int @-> returning void) x +let setRowHint x self = msg_send ~self ~cmd:(selector "setRowHint:") ~typ:(int @-> returning void) x +let setSize x self = msg_send ~self ~cmd:(selector "setSize:") ~typ:(CGSize.t @-> returning void) x +let setStyling x self = msg_send ~self ~cmd:(selector "setStyling:") ~typ:(void @-> returning void) x +let size self = msg_send ~self ~cmd:(selector "size") ~typ:(returning CGSize.t) +let string_ self = msg_send ~self ~cmd:(selector "string") ~typ:(returning id) +let stringForRenderFlags x ~lightKeyboard self = msg_send ~self ~cmd:(selector "stringForRenderFlags:lightKeyboard:") ~typ:(llong @-> bool @-> returning id) (LLong.of_int x) lightKeyboard +let styling self = msg_send ~self ~cmd:(selector "styling") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKBCacheToken_KeyClass.ml b/uikit_extra/UIKBCacheToken_KeyClass.ml new file mode 100644 index 00000000..66b86014 --- /dev/null +++ b/uikit_extra/UIKBCacheToken_KeyClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbcachetoken_key?language=objc}UIKBCacheToken_Key} *) + +let tokenForKey x ~style self = msg_send ~self ~cmd:(selector "tokenForKey:style:") ~typ:(id @-> void @-> returning id) x style +let tokenForKey' x ~style ~displayInsets self = msg_send ~self ~cmd:(selector "tokenForKey:style:displayInsets:") ~typ:(id @-> void @-> UIEdgeInsets.t @-> returning id) x style displayInsets \ No newline at end of file diff --git a/uikit_extra/UIKBCacheToken_Keyplane.ml b/uikit_extra/UIKBCacheToken_Keyplane.ml index 2cdaf45b..2a8f9f15 100644 --- a/uikit_extra/UIKBCacheToken_Keyplane.ml +++ b/uikit_extra/UIKBCacheToken_Keyplane.ml @@ -5,18 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBCacheToken_Keyplane" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbcachetoken_keyplane?language=objc}UIKBCacheToken_Keyplane} *) -module C = struct - let tokenForKeyplane x self = msg_send ~self ~cmd:(selector "tokenForKeyplane:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIKBCacheToken_Keyplane" -let annotateWithBool x self = msg_send ~self ~cmd:(selector "annotateWithBool:") ~typ:(bool @-> returning (void)) x -let annotateWithInt x self = msg_send ~self ~cmd:(selector "annotateWithInt:") ~typ:(int @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let isUsableForCacheToken x ~withRenderFlags self = msg_send ~self ~cmd:(selector "isUsableForCacheToken:withRenderFlags:") ~typ:(id @-> llong @-> returning (bool)) x (LLong.of_int withRenderFlags) -let setSize x self = msg_send ~self ~cmd:(selector "setSize:") ~typ:(CGSize.t @-> returning (void)) x -let setStyling x self = msg_send ~self ~cmd:(selector "setStyling:") ~typ:(ptr void @-> returning (void)) x -let size self = msg_send_stret ~self ~cmd:(selector "size") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let stringForSplitState x ~handBias self = msg_send ~self ~cmd:(selector "stringForSplitState:handBias:") ~typ:(bool @-> llong @-> returning (id)) x (LLong.of_int handBias) \ No newline at end of file +let annotateWithBool x self = msg_send ~self ~cmd:(selector "annotateWithBool:") ~typ:(bool @-> returning void) x +let annotateWithInt x self = msg_send ~self ~cmd:(selector "annotateWithInt:") ~typ:(int @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let isUsableForCacheToken x ~withRenderFlags self = msg_send ~self ~cmd:(selector "isUsableForCacheToken:withRenderFlags:") ~typ:(id @-> llong @-> returning bool) x (LLong.of_int withRenderFlags) +let setSize x self = msg_send ~self ~cmd:(selector "setSize:") ~typ:(CGSize.t @-> returning void) x +let setStyling x self = msg_send ~self ~cmd:(selector "setStyling:") ~typ:(void @-> returning void) x +let size self = msg_send ~self ~cmd:(selector "size") ~typ:(returning CGSize.t) +let stringForSplitState x ~handBias self = msg_send ~self ~cmd:(selector "stringForSplitState:handBias:") ~typ:(bool @-> llong @-> returning id) x (LLong.of_int handBias) +let styling self = msg_send ~self ~cmd:(selector "styling") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKBCacheToken_KeyplaneClass.ml b/uikit_extra/UIKBCacheToken_KeyplaneClass.ml new file mode 100644 index 00000000..2e8064e9 --- /dev/null +++ b/uikit_extra/UIKBCacheToken_KeyplaneClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbcachetoken_keyplane?language=objc}UIKBCacheToken_Keyplane} *) + +let tokenForKeyplane x self = msg_send ~self ~cmd:(selector "tokenForKeyplane:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBCachedImage.ml b/uikit_extra/UIKBCachedImage.ml index 5746536d..165cb441 100644 --- a/uikit_extra/UIKBCachedImage.ml +++ b/uikit_extra/UIKBCachedImage.ml @@ -5,13 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBCachedImage" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbcachedimage?language=objc}UIKBCachedImage} *) -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end +let self = get_class "UIKBCachedImage" -let formatColor self = msg_send ~self ~cmd:(selector "formatColor") ~typ:(returning (id)) -let hasFormatColor self = msg_send ~self ~cmd:(selector "hasFormatColor") ~typ:(returning (bool)) -let setFormatColor x self = msg_send ~self ~cmd:(selector "setFormatColor:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let formatColor self = msg_send ~self ~cmd:(selector "formatColor") ~typ:(returning id) +let hasFormatColor self = msg_send ~self ~cmd:(selector "hasFormatColor") ~typ:(returning bool) +let setFormatColor x self = msg_send ~self ~cmd:(selector "setFormatColor:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBCachedImageClass.ml b/uikit_extra/UIKBCachedImageClass.ml new file mode 100644 index 00000000..cc97fb22 --- /dev/null +++ b/uikit_extra/UIKBCachedImageClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbcachedimage?language=objc}UIKBCachedImage} *) + +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKBCadenceMonitor.ml b/uikit_extra/UIKBCadenceMonitor.ml index ebf41547..92dc0483 100644 --- a/uikit_extra/UIKBCadenceMonitor.ml +++ b/uikit_extra/UIKBCadenceMonitor.ml @@ -5,30 +5,34 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBCadenceMonitor" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbcadencemonitor?language=objc}UIKBCadenceMonitor} *) -let addTypingTouchTime x self = msg_send ~self ~cmd:(selector "addTypingTouchTime:") ~typ:(double @-> returning (void)) x -let cadence self = msg_send ~self ~cmd:(selector "cadence") ~typ:(returning (float)) -let confidence self = msg_send ~self ~cmd:(selector "confidence") ~typ:(returning (float)) -let gapAvg self = msg_send ~self ~cmd:(selector "gapAvg") ~typ:(returning (double)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isUserTyping self = msg_send ~self ~cmd:(selector "isUserTyping") ~typ:(returning (bool)) -let logUserTyping x self = msg_send ~self ~cmd:(selector "logUserTyping:") ~typ:(id @-> returning (void)) x -let prevTouchDown self = msg_send ~self ~cmd:(selector "prevTouchDown") ~typ:(returning (double)) -let recognizer x ~confidenceWhenPendingTouchInfo self = msg_send ~self ~cmd:(selector "recognizer:confidenceWhenPendingTouchInfo:") ~typ:(id @-> id @-> returning (id)) x confidenceWhenPendingTouchInfo -let recognizer' x ~confidenceWhenSettingTouchInfo self = msg_send ~self ~cmd:(selector "recognizer:confidenceWhenSettingTouchInfo:") ~typ:(id @-> id @-> returning (id)) x confidenceWhenSettingTouchInfo -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let setCadence x self = msg_send ~self ~cmd:(selector "setCadence:") ~typ:(float @-> returning (void)) x -let setConfidence x self = msg_send ~self ~cmd:(selector "setConfidence:") ~typ:(float @-> returning (void)) x -let setGapAvg x self = msg_send ~self ~cmd:(selector "setGapAvg:") ~typ:(double @-> returning (void)) x -let setIsUserTyping x self = msg_send ~self ~cmd:(selector "setIsUserTyping:") ~typ:(bool @-> returning (void)) x -let setPrevTouchDown x self = msg_send ~self ~cmd:(selector "setPrevTouchDown:") ~typ:(double @-> returning (void)) x -let setTouchCount x self = msg_send ~self ~cmd:(selector "setTouchCount:") ~typ:(int @-> returning (void)) x -let setTouchLogTimer x self = msg_send ~self ~cmd:(selector "setTouchLogTimer:") ~typ:(id @-> returning (void)) x -let setTypingAvg x self = msg_send ~self ~cmd:(selector "setTypingAvg:") ~typ:(float @-> returning (void)) x -let touchCount self = msg_send ~self ~cmd:(selector "touchCount") ~typ:(returning (int)) -let touchLogTimer self = msg_send ~self ~cmd:(selector "touchLogTimer") ~typ:(returning (id)) -let typingAvg self = msg_send ~self ~cmd:(selector "typingAvg") ~typ:(returning (float)) -let typingCadence x self = msg_send ~self ~cmd:(selector "typingCadence:") ~typ:(double @-> returning (void)) x -let updateConfidenceWithGap x self = msg_send ~self ~cmd:(selector "updateConfidenceWithGap:") ~typ:(double @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKBCadenceMonitor" + +let addTypingTouchTime x self = msg_send ~self ~cmd:(selector "addTypingTouchTime:") ~typ:(double @-> returning void) x +let cadence self = msg_send ~self ~cmd:(selector "cadence") ~typ:(returning float) +let confidence self = msg_send ~self ~cmd:(selector "confidence") ~typ:(returning float) +let gapAvg self = msg_send ~self ~cmd:(selector "gapAvg") ~typ:(returning double) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isUserTyping self = msg_send ~self ~cmd:(selector "isUserTyping") ~typ:(returning bool) +let logUserTyping x self = msg_send ~self ~cmd:(selector "logUserTyping:") ~typ:(id @-> returning void) x +let prevTouchDown self = msg_send ~self ~cmd:(selector "prevTouchDown") ~typ:(returning double) +let recognizer x ~confidenceWhenPendingTouchInfo self = msg_send ~self ~cmd:(selector "recognizer:confidenceWhenPendingTouchInfo:") ~typ:(id @-> id @-> returning id) x confidenceWhenPendingTouchInfo +let recognizer' x ~confidenceWhenSettingTouchInfo self = msg_send ~self ~cmd:(selector "recognizer:confidenceWhenSettingTouchInfo:") ~typ:(id @-> id @-> returning id) x confidenceWhenSettingTouchInfo +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let setCadence x self = msg_send ~self ~cmd:(selector "setCadence:") ~typ:(float @-> returning void) x +let setConfidence x self = msg_send ~self ~cmd:(selector "setConfidence:") ~typ:(float @-> returning void) x +let setGapAvg x self = msg_send ~self ~cmd:(selector "setGapAvg:") ~typ:(double @-> returning void) x +let setIsUserTyping x self = msg_send ~self ~cmd:(selector "setIsUserTyping:") ~typ:(bool @-> returning void) x +let setPrevTouchDown x self = msg_send ~self ~cmd:(selector "setPrevTouchDown:") ~typ:(double @-> returning void) x +let setTouchCount x self = msg_send ~self ~cmd:(selector "setTouchCount:") ~typ:(int @-> returning void) x +let setTouchLogTimer x self = msg_send ~self ~cmd:(selector "setTouchLogTimer:") ~typ:(id @-> returning void) x +let setTypingAvg x self = msg_send ~self ~cmd:(selector "setTypingAvg:") ~typ:(float @-> returning void) x +let touchCount self = msg_send ~self ~cmd:(selector "touchCount") ~typ:(returning int) +let touchLogTimer self = msg_send ~self ~cmd:(selector "touchLogTimer") ~typ:(returning id) +let typingAvg self = msg_send ~self ~cmd:(selector "typingAvg") ~typ:(returning float) +let typingCadence x self = msg_send ~self ~cmd:(selector "typingCadence:") ~typ:(double @-> returning void) x +let updateConfidenceWithGap x self = msg_send ~self ~cmd:(selector "updateConfidenceWithGap:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBCandidateView.ml b/uikit_extra/UIKBCandidateView.ml index 129b3d8d..88a0d360 100644 --- a/uikit_extra/UIKBCandidateView.ml +++ b/uikit_extra/UIKBCandidateView.ml @@ -5,17 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBCandidateView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbcandidateview?language=objc}UIKBCandidateView} *) -let candidateKey self = msg_send ~self ~cmd:(selector "candidateKey") ~typ:(returning (id)) -let candidateList self = msg_send ~self ~cmd:(selector "candidateList") ~typ:(returning (id)) -let clearCandidateKey self = msg_send ~self ~cmd:(selector "clearCandidateKey") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning (void)) x -let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning (id)) x keyplane key -let isTenKey self = msg_send ~self ~cmd:(selector "isTenKey") ~typ:(returning (bool)) -let setCandidateKey x self = msg_send ~self ~cmd:(selector "setCandidateKey:") ~typ:(id @-> returning (void)) x -let setVisualStyling x self = msg_send ~self ~cmd:(selector "setVisualStyling:") ~typ:(ptr void @-> returning (void)) x -let updateCandidateKey self = msg_send ~self ~cmd:(selector "updateCandidateKey") ~typ:(returning (void)) -let updateForKeyplane x ~key self = msg_send ~self ~cmd:(selector "updateForKeyplane:key:") ~typ:(id @-> id @-> returning (void)) x key \ No newline at end of file +let self = get_class "UIKBCandidateView" + +let candidateKey self = msg_send ~self ~cmd:(selector "candidateKey") ~typ:(returning id) +let candidateList self = msg_send ~self ~cmd:(selector "candidateList") ~typ:(returning id) +let clearCandidateKey self = msg_send ~self ~cmd:(selector "clearCandidateKey") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning void) x +let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning id) x keyplane key +let isTenKey self = msg_send ~self ~cmd:(selector "isTenKey") ~typ:(returning bool) +let setCandidateKey x self = msg_send ~self ~cmd:(selector "setCandidateKey:") ~typ:(id @-> returning void) x +let setVisualStyling x self = msg_send ~self ~cmd:(selector "setVisualStyling:") ~typ:(void @-> returning void) x +let updateCandidateKey self = msg_send ~self ~cmd:(selector "updateCandidateKey") ~typ:(returning void) +let updateForKeyplane x ~key self = msg_send ~self ~cmd:(selector "updateForKeyplane:key:") ~typ:(id @-> id @-> returning void) x key +let visualStyling self = msg_send ~self ~cmd:(selector "visualStyling") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKBColorGradient.ml b/uikit_extra/UIKBColorGradient.ml index 0dd6ed54..caf9c4eb 100644 --- a/uikit_extra/UIKBColorGradient.ml +++ b/uikit_extra/UIKBColorGradient.ml @@ -5,13 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBColorGradient" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbcolorgradient?language=objc}UIKBColorGradient} *) -module C = struct - let gradientWithUIColor x self = msg_send ~self ~cmd:(selector "gradientWithUIColor:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIKBColorGradient" -let _CGGradient self = msg_send ~self ~cmd:(selector "CGGradient") ~typ:(returning (ptr void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithUIColor x self = msg_send ~self ~cmd:(selector "initWithUIColor:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let _CGGradient self = msg_send ~self ~cmd:(selector "CGGradient") ~typ:(returning (ptr CGGradient.t)) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithUIColor x self = msg_send ~self ~cmd:(selector "initWithUIColor:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBColorGradientClass.ml b/uikit_extra/UIKBColorGradientClass.ml new file mode 100644 index 00000000..8e977c2c --- /dev/null +++ b/uikit_extra/UIKBColorGradientClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbcolorgradient?language=objc}UIKBColorGradient} *) + +let gradientWithUIColor x self = msg_send ~self ~cmd:(selector "gradientWithUIColor:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBContainerKeyView.ml b/uikit_extra/UIKBContainerKeyView.ml index 34d40428..3a065006 100644 --- a/uikit_extra/UIKBContainerKeyView.ml +++ b/uikit_extra/UIKBContainerKeyView.ml @@ -5,29 +5,33 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBContainerKeyView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbcontainerkeyview?language=objc}UIKBContainerKeyView} *) -let changeBackgroundToActiveIfNecessary self = msg_send ~self ~cmd:(selector "changeBackgroundToActiveIfNecessary") ~typ:(returning (void)) -let changeBackgroundToEnabled self = msg_send ~self ~cmd:(selector "changeBackgroundToEnabled") ~typ:(returning (void)) -let contentsKeyView self = msg_send ~self ~cmd:(selector "contentsKeyView") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let dimKeys x self = msg_send ~self ~cmd:(selector "dimKeys:") ~typ:(id @-> returning (void)) x -let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning (void)) x -let drawFrame self = msg_send_stret ~self ~cmd:(selector "drawFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let factory self = msg_send ~self ~cmd:(selector "factory") ~typ:(returning (id)) -let hasRendered self = msg_send ~self ~cmd:(selector "hasRendered") ~typ:(returning (bool)) -let imageOrientationForLayer x self = msg_send ~self ~cmd:(selector "imageOrientationForLayer:") ~typ:(id @-> returning (llong)) x -let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning (id)) x keyplane key -let key self = msg_send ~self ~cmd:(selector "key") ~typ:(returning (id)) -let keyplane self = msg_send ~self ~cmd:(selector "keyplane") ~typ:(returning (id)) -let layerForRenderFlags x self = msg_send ~self ~cmd:(selector "layerForRenderFlags:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let prepareForDisplay self = msg_send ~self ~cmd:(selector "prepareForDisplay") ~typ:(returning (void)) -let renderConfig self = msg_send ~self ~cmd:(selector "renderConfig") ~typ:(returning (id)) -let requiresSublayers self = msg_send ~self ~cmd:(selector "requiresSublayers") ~typ:(returning (bool)) -let setDrawFrame x self = msg_send ~self ~cmd:(selector "setDrawFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setFactory x self = msg_send ~self ~cmd:(selector "setFactory:") ~typ:(id @-> returning (void)) x -let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning (void)) -let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning (void)) x -let setScreenTraits x self = msg_send ~self ~cmd:(selector "setScreenTraits:") ~typ:(id @-> returning (void)) x -let updateForKeyplane x ~key self = msg_send ~self ~cmd:(selector "updateForKeyplane:key:") ~typ:(id @-> id @-> returning (void)) x key \ No newline at end of file +let self = get_class "UIKBContainerKeyView" + +let changeBackgroundToActiveIfNecessary self = msg_send ~self ~cmd:(selector "changeBackgroundToActiveIfNecessary") ~typ:(returning void) +let changeBackgroundToEnabled self = msg_send ~self ~cmd:(selector "changeBackgroundToEnabled") ~typ:(returning void) +let contentsKeyView self = msg_send ~self ~cmd:(selector "contentsKeyView") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let dimKeys x self = msg_send ~self ~cmd:(selector "dimKeys:") ~typ:(id @-> returning void) x +let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning void) x +let drawFrame self = msg_send ~self ~cmd:(selector "drawFrame") ~typ:(returning CGRect.t) +let factory self = msg_send ~self ~cmd:(selector "factory") ~typ:(returning id) +let hasRendered self = msg_send ~self ~cmd:(selector "hasRendered") ~typ:(returning bool) +let imageOrientationForLayer x self = msg_send ~self ~cmd:(selector "imageOrientationForLayer:") ~typ:(id @-> returning llong) x +let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning id) x keyplane key +let key self = msg_send ~self ~cmd:(selector "key") ~typ:(returning id) +let keyplane self = msg_send ~self ~cmd:(selector "keyplane") ~typ:(returning id) +let layerForRenderFlags x self = msg_send ~self ~cmd:(selector "layerForRenderFlags:") ~typ:(llong @-> returning id) (LLong.of_int x) +let prepareForDisplay self = msg_send ~self ~cmd:(selector "prepareForDisplay") ~typ:(returning void) +let renderConfig self = msg_send ~self ~cmd:(selector "renderConfig") ~typ:(returning id) +let requiresSublayers self = msg_send ~self ~cmd:(selector "requiresSublayers") ~typ:(returning bool) +let setDrawFrame x self = msg_send ~self ~cmd:(selector "setDrawFrame:") ~typ:(CGRect.t @-> returning void) x +let setFactory x self = msg_send ~self ~cmd:(selector "setFactory:") ~typ:(id @-> returning void) x +let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning void) +let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning void) x +let setScreenTraits x self = msg_send ~self ~cmd:(selector "setScreenTraits:") ~typ:(id @-> returning void) x +let updateForKeyplane x ~key self = msg_send ~self ~cmd:(selector "updateForKeyplane:key:") ~typ:(id @-> id @-> returning void) x key \ No newline at end of file diff --git a/uikit_extra/UIKBDerivedKeyboard.ml b/uikit_extra/UIKBDerivedKeyboard.ml index d57c03a9..621cf5af 100644 --- a/uikit_extra/UIKBDerivedKeyboard.ml +++ b/uikit_extra/UIKBDerivedKeyboard.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBDerivedKeyboard" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbderivedkeyboard?language=objc}UIKBDerivedKeyboard} *) -let addsSupplementaryControlKeys self = msg_send ~self ~cmd:(selector "addsSupplementaryControlKeys") ~typ:(returning (bool)) -let derivedKBStarPrefixName self = msg_send ~self ~cmd:(selector "derivedKBStarPrefixName") ~typ:(returning (id)) -let keyboardSize self = msg_send_stret ~self ~cmd:(selector "keyboardSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let setAddsSupplementaryControlKeys x self = msg_send ~self ~cmd:(selector "setAddsSupplementaryControlKeys:") ~typ:(bool @-> returning (void)) x -let setDerivedKBStarPrefixName x self = msg_send ~self ~cmd:(selector "setDerivedKBStarPrefixName:") ~typ:(id @-> returning (void)) x -let setKeyboardSize x self = msg_send ~self ~cmd:(selector "setKeyboardSize:") ~typ:(CGSize.t @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKBDerivedKeyboard" + +let addsSupplementaryControlKeys self = msg_send ~self ~cmd:(selector "addsSupplementaryControlKeys") ~typ:(returning bool) +let derivedKBStarPrefixName self = msg_send ~self ~cmd:(selector "derivedKBStarPrefixName") ~typ:(returning id) +let keyboardSize self = msg_send ~self ~cmd:(selector "keyboardSize") ~typ:(returning CGSize.t) +let setAddsSupplementaryControlKeys x self = msg_send ~self ~cmd:(selector "setAddsSupplementaryControlKeys:") ~typ:(bool @-> returning void) x +let setDerivedKBStarPrefixName x self = msg_send ~self ~cmd:(selector "setDerivedKBStarPrefixName:") ~typ:(id @-> returning void) x +let setKeyboardSize x self = msg_send ~self ~cmd:(selector "setKeyboardSize:") ~typ:(CGSize.t @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBDimmingView.ml b/uikit_extra/UIKBDimmingView.ml index b6d8a924..e1a5e38f 100644 --- a/uikit_extra/UIKBDimmingView.ml +++ b/uikit_extra/UIKBDimmingView.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBDimmingView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbdimmingview?language=objc}UIKBDimmingView} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let refreshStyleForKeyplane x self = msg_send ~self ~cmd:(selector "refreshStyleForKeyplane:") ~typ:(id @-> returning (void)) x -let screenTraits self = msg_send ~self ~cmd:(selector "screenTraits") ~typ:(returning (id)) -let setScreenTraits x self = msg_send ~self ~cmd:(selector "setScreenTraits:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKBDimmingView" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let refreshStyleForKeyplane x self = msg_send ~self ~cmd:(selector "refreshStyleForKeyplane:") ~typ:(id @-> returning void) x +let screenTraits self = msg_send ~self ~cmd:(selector "screenTraits") ~typ:(returning id) +let setScreenTraits x self = msg_send ~self ~cmd:(selector "setScreenTraits:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBDivotedEffect.ml b/uikit_extra/UIKBDivotedEffect.ml index 0c9cc5f2..b8ca452b 100644 --- a/uikit_extra/UIKBDivotedEffect.ml +++ b/uikit_extra/UIKBDivotedEffect.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBDivotedEffect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbdivotedeffect?language=objc}UIKBDivotedEffect} *) -let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr void)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let gradient self = msg_send ~self ~cmd:(selector "gradient") ~typ:(returning (id)) -let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning (bool)) -let renderSelector self = msg_send ~self ~cmd:(selector "renderSelector") ~typ:(returning (_SEL)) -let renderUnder self = msg_send ~self ~cmd:(selector "renderUnder") ~typ:(returning (bool)) -let setWeight x self = msg_send ~self ~cmd:(selector "setWeight:") ~typ:(double @-> returning (void)) x -let usesRGBColors self = msg_send ~self ~cmd:(selector "usesRGBColors") ~typ:(returning (bool)) -let weight self = msg_send ~self ~cmd:(selector "weight") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIKBDivotedEffect" + +let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr CGColor.t)) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let gradient self = msg_send ~self ~cmd:(selector "gradient") ~typ:(returning id) +let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning bool) +let renderSelector self = msg_send ~self ~cmd:(selector "renderSelector") ~typ:(returning _SEL) +let renderUnder self = msg_send ~self ~cmd:(selector "renderUnder") ~typ:(returning bool) +let setWeight x self = msg_send ~self ~cmd:(selector "setWeight:") ~typ:(double @-> returning void) x +let usesRGBColors self = msg_send ~self ~cmd:(selector "usesRGBColors") ~typ:(returning bool) +let weight self = msg_send ~self ~cmd:(selector "weight") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIKBEdgeEffect.ml b/uikit_extra/UIKBEdgeEffect.ml index dcb3dc52..8cb3625f 100644 --- a/uikit_extra/UIKBEdgeEffect.ml +++ b/uikit_extra/UIKBEdgeEffect.ml @@ -5,30 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBEdgeEffect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbedgeeffect?language=objc}UIKBEdgeEffect} *) -module C = struct - let effectWithColor x ~edges ~inset ~weight self = msg_send ~self ~cmd:(selector "effectWithColor:edges:inset:weight:") ~typ:(id @-> ullong @-> double @-> double @-> returning (id)) x (ULLong.of_int edges) inset weight - let effectWithColor' x ~edges ~insets ~weight self = msg_send ~self ~cmd:(selector "effectWithColor:edges:insets:weight:") ~typ:(id @-> ullong @-> ptr void @-> double @-> returning (id)) x (ULLong.of_int edges) insets weight -end +let self = get_class "UIKBEdgeEffect" -let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr void)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let edges self = msg_send ~self ~cmd:(selector "edges") ~typ:(returning (ullong)) -let gradient self = msg_send ~self ~cmd:(selector "gradient") ~typ:(returning (id)) -let initWithColor x ~edges ~insets ~weight self = msg_send ~self ~cmd:(selector "initWithColor:edges:insets:weight:") ~typ:(id @-> ullong @-> ptr void @-> double @-> returning (id)) x (ULLong.of_int edges) insets weight -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning (bool)) -let opacity self = msg_send ~self ~cmd:(selector "opacity") ~typ:(returning (double)) -let renderSelector self = msg_send ~self ~cmd:(selector "renderSelector") ~typ:(returning (_SEL)) -let renderUnder self = msg_send ~self ~cmd:(selector "renderUnder") ~typ:(returning (bool)) -let setEdges x self = msg_send ~self ~cmd:(selector "setEdges:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setGradient x self = msg_send ~self ~cmd:(selector "setGradient:") ~typ:(id @-> returning (void)) x -let setInsets x self = msg_send ~self ~cmd:(selector "setInsets:") ~typ:(ptr void @-> returning (void)) x -let setOpacity x self = msg_send ~self ~cmd:(selector "setOpacity:") ~typ:(double @-> returning (void)) x -let setWeight x self = msg_send ~self ~cmd:(selector "setWeight:") ~typ:(double @-> returning (void)) x -let usesRGBColors self = msg_send ~self ~cmd:(selector "usesRGBColors") ~typ:(returning (bool)) -let weight self = msg_send ~self ~cmd:(selector "weight") ~typ:(returning (double)) \ No newline at end of file +let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr CGColor.t)) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let edges self = msg_send ~self ~cmd:(selector "edges") ~typ:(returning ullong) +let gradient self = msg_send ~self ~cmd:(selector "gradient") ~typ:(returning id) +let initWithColor x ~edges ~insets ~weight self = msg_send ~self ~cmd:(selector "initWithColor:edges:insets:weight:") ~typ:(id @-> ullong @-> UIEdgeInsets.t @-> double @-> returning id) x (ULLong.of_int edges) insets weight +let insets self = msg_send ~self ~cmd:(selector "insets") ~typ:(returning UIEdgeInsets.t) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning bool) +let opacity self = msg_send ~self ~cmd:(selector "opacity") ~typ:(returning double) +let renderSelector self = msg_send ~self ~cmd:(selector "renderSelector") ~typ:(returning _SEL) +let renderUnder self = msg_send ~self ~cmd:(selector "renderUnder") ~typ:(returning bool) +let setEdges x self = msg_send ~self ~cmd:(selector "setEdges:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setGradient x self = msg_send ~self ~cmd:(selector "setGradient:") ~typ:(id @-> returning void) x +let setInsets x self = msg_send ~self ~cmd:(selector "setInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setOpacity x self = msg_send ~self ~cmd:(selector "setOpacity:") ~typ:(double @-> returning void) x +let setWeight x self = msg_send ~self ~cmd:(selector "setWeight:") ~typ:(double @-> returning void) x +let usesRGBColors self = msg_send ~self ~cmd:(selector "usesRGBColors") ~typ:(returning bool) +let weight self = msg_send ~self ~cmd:(selector "weight") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIKBEdgeEffectClass.ml b/uikit_extra/UIKBEdgeEffectClass.ml new file mode 100644 index 00000000..76251bcc --- /dev/null +++ b/uikit_extra/UIKBEdgeEffectClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbedgeeffect?language=objc}UIKBEdgeEffect} *) + +let effectWithColor x ~edges ~inset ~weight self = msg_send ~self ~cmd:(selector "effectWithColor:edges:inset:weight:") ~typ:(id @-> ullong @-> double @-> double @-> returning id) x (ULLong.of_int edges) inset weight +let effectWithColor' x ~edges ~insets ~weight self = msg_send ~self ~cmd:(selector "effectWithColor:edges:insets:weight:") ~typ:(id @-> ullong @-> UIEdgeInsets.t @-> double @-> returning id) x (ULLong.of_int edges) insets weight \ No newline at end of file diff --git a/uikit_extra/UIKBEditingGesturesIntroduction.ml b/uikit_extra/UIKBEditingGesturesIntroduction.ml index 9c840f52..cf824958 100644 --- a/uikit_extra/UIKBEditingGesturesIntroduction.ml +++ b/uikit_extra/UIKBEditingGesturesIntroduction.ml @@ -5,22 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBEditingGesturesIntroduction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbeditinggesturesintroduction?language=objc}UIKBEditingGesturesIntroduction} *) -module C = struct - let shouldShowEditingIntroduction self = msg_send ~self ~cmd:(selector "shouldShowEditingIntroduction") ~typ:(returning (bool)) -end +let self = get_class "UIKBEditingGesturesIntroduction" -let animatedTutorialViewNamed x ~ofType ~needsFrame self = msg_send ~self ~cmd:(selector "animatedTutorialViewNamed:ofType:needsFrame:") ~typ:(id @-> id @-> bool @-> returning (id)) x ofType needsFrame -let buttonTitle self = msg_send ~self ~cmd:(selector "buttonTitle") ~typ:(returning (id)) -let extraButtonTapAction self = msg_send ~self ~cmd:(selector "extraButtonTapAction") ~typ:(returning (void)) -let mediaContents self = msg_send ~self ~cmd:(selector "mediaContents") ~typ:(returning (id)) -let pagingInterval self = msg_send ~self ~cmd:(selector "pagingInterval") ~typ:(returning (double)) -let presentsFullScreen self = msg_send ~self ~cmd:(selector "presentsFullScreen") ~typ:(returning (bool)) -let setTopPaddingConstraint x self = msg_send ~self ~cmd:(selector "setTopPaddingConstraint:") ~typ:(id @-> returning (void)) x -let textBodyDescriptions self = msg_send ~self ~cmd:(selector "textBodyDescriptions") ~typ:(returning (id)) -let textBodyFont self = msg_send ~self ~cmd:(selector "textBodyFont") ~typ:(returning (id)) -let textTitleDescriptions self = msg_send ~self ~cmd:(selector "textTitleDescriptions") ~typ:(returning (id)) -let topPaddingConstraint self = msg_send ~self ~cmd:(selector "topPaddingConstraint") ~typ:(returning (id)) -let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning (void)) \ No newline at end of file +let animatedTutorialViewNamed x ~ofType ~needsFrame self = msg_send ~self ~cmd:(selector "animatedTutorialViewNamed:ofType:needsFrame:") ~typ:(id @-> id @-> bool @-> returning id) x ofType needsFrame +let buttonTitle self = msg_send ~self ~cmd:(selector "buttonTitle") ~typ:(returning id) +let extraButtonTapAction self = msg_send ~self ~cmd:(selector "extraButtonTapAction") ~typ:(returning void) +let mediaContents self = msg_send ~self ~cmd:(selector "mediaContents") ~typ:(returning id) +let pagingInterval self = msg_send ~self ~cmd:(selector "pagingInterval") ~typ:(returning double) +let presentsFullScreen self = msg_send ~self ~cmd:(selector "presentsFullScreen") ~typ:(returning bool) +let setTopPaddingConstraint x self = msg_send ~self ~cmd:(selector "setTopPaddingConstraint:") ~typ:(id @-> returning void) x +let textBodyDescriptions self = msg_send ~self ~cmd:(selector "textBodyDescriptions") ~typ:(returning id) +let textBodyFont self = msg_send ~self ~cmd:(selector "textBodyFont") ~typ:(returning id) +let textTitleDescriptions self = msg_send ~self ~cmd:(selector "textTitleDescriptions") ~typ:(returning id) +let topPaddingConstraint self = msg_send ~self ~cmd:(selector "topPaddingConstraint") ~typ:(returning id) +let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKBEditingGesturesIntroductionClass.ml b/uikit_extra/UIKBEditingGesturesIntroductionClass.ml new file mode 100644 index 00000000..76741f58 --- /dev/null +++ b/uikit_extra/UIKBEditingGesturesIntroductionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbeditinggesturesintroduction?language=objc}UIKBEditingGesturesIntroduction} *) + +let shouldShowEditingIntroduction self = msg_send ~self ~cmd:(selector "shouldShowEditingIntroduction") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKBEmojiSnapshotSizingView.ml b/uikit_extra/UIKBEmojiSnapshotSizingView.ml index 0e4f4b38..5803df26 100644 --- a/uikit_extra/UIKBEmojiSnapshotSizingView.ml +++ b/uikit_extra/UIKBEmojiSnapshotSizingView.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBEmojiSnapshotSizingView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbemojisnapshotsizingview?language=objc}UIKBEmojiSnapshotSizingView} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithSnapshotView x self = msg_send ~self ~cmd:(selector "initWithSnapshotView:") ~typ:(id @-> returning (id)) x -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let snapshotView self = msg_send ~self ~cmd:(selector "snapshotView") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBEmojiSnapshotSizingView" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithSnapshotView x self = msg_send ~self ~cmd:(selector "initWithSnapshotView:") ~typ:(id @-> returning id) x +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let snapshotView self = msg_send ~self ~cmd:(selector "snapshotView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBFloatingKeyView.ml b/uikit_extra/UIKBFloatingKeyView.ml index aafe2acc..439f81c7 100644 --- a/uikit_extra/UIKBFloatingKeyView.ml +++ b/uikit_extra/UIKBFloatingKeyView.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBFloatingKeyView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbfloatingkeyview?language=objc}UIKBFloatingKeyView} *) -let floatingContentView self = msg_send ~self ~cmd:(selector "floatingContentView") ~typ:(returning (id)) -let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning (id)) x keyplane key -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let prepareForDisplay self = msg_send ~self ~cmd:(selector "prepareForDisplay") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIKBFloatingKeyView" + +let floatingContentView self = msg_send ~self ~cmd:(selector "floatingContentView") ~typ:(returning id) +let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning id) x keyplane key +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let prepareForDisplay self = msg_send ~self ~cmd:(selector "prepareForDisplay") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKBFocusGuide.ml b/uikit_extra/UIKBFocusGuide.ml index 3e5b51e0..caa4fdb3 100644 --- a/uikit_extra/UIKBFocusGuide.ml +++ b/uikit_extra/UIKBFocusGuide.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBFocusGuide" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbfocusguide?language=objc}UIKBFocusGuide} *) -let focusGuideRegion x ~preferredFocusEnvironmentsForMovementRequest self = msg_send ~self ~cmd:(selector "focusGuideRegion:preferredFocusEnvironmentsForMovementRequest:") ~typ:(id @-> id @-> returning (id)) x preferredFocusEnvironmentsForMovementRequest -let focusHeading self = msg_send ~self ~cmd:(selector "focusHeading") ~typ:(returning (ullong)) -let keyboardDelegate self = msg_send ~self ~cmd:(selector "keyboardDelegate") ~typ:(returning (id)) -let setFocusHeading x self = msg_send ~self ~cmd:(selector "setFocusHeading:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setKeyboardDelegate x self = msg_send ~self ~cmd:(selector "setKeyboardDelegate:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKBFocusGuide" + +let focusGuideRegion x ~preferredFocusEnvironmentsForMovementRequest self = msg_send ~self ~cmd:(selector "focusGuideRegion:preferredFocusEnvironmentsForMovementRequest:") ~typ:(id @-> id @-> returning id) x preferredFocusEnvironmentsForMovementRequest +let focusHeading self = msg_send ~self ~cmd:(selector "focusHeading") ~typ:(returning ullong) +let keyboardDelegate self = msg_send ~self ~cmd:(selector "keyboardDelegate") ~typ:(returning id) +let setFocusHeading x self = msg_send ~self ~cmd:(selector "setFocusHeading:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setKeyboardDelegate x self = msg_send ~self ~cmd:(selector "setKeyboardDelegate:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBGeometry.ml b/uikit_extra/UIKBGeometry.ml index 34b6932e..fd5c7b02 100644 --- a/uikit_extra/UIKBGeometry.ml +++ b/uikit_extra/UIKBGeometry.ml @@ -5,46 +5,50 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBGeometry" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbgeometry?language=objc}UIKBGeometry} *) -module C = struct - let codeStringForValue x self = msg_send ~self ~cmd:(selector "codeStringForValue:") ~typ:(ptr void @-> returning (id)) x - let geometry self = msg_send ~self ~cmd:(selector "geometry") ~typ:(returning (id)) - let geometryWithOriginValue x ~sizeValue self = msg_send ~self ~cmd:(selector "geometryWithOriginValue:sizeValue:") ~typ:(ptr void @-> ptr void @-> returning (id)) x sizeValue - let geometryWithRect x self = msg_send ~self ~cmd:(selector "geometryWithRect:") ~typ:(CGRect.t @-> returning (id)) x - let performOperations x ~withScale self = msg_send ~self ~cmd:(selector "performOperations:withScale:") ~typ:(ptr void @-> double @-> returning (void)) x withScale -end +let self = get_class "UIKBGeometry" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let explicitlySpecified self = msg_send ~self ~cmd:(selector "explicitlySpecified") ~typ:(returning (bool)) -let frame self = msg_send_stret ~self ~cmd:(selector "frame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let frameWithContainingFrame x self = msg_send_stret ~self ~cmd:(selector "frameWithContainingFrame:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initTemplateWithName x ~rect ~padding self = msg_send ~self ~cmd:(selector "initTemplateWithName:rect:padding:") ~typ:(id @-> ptr void @-> ptr void @-> returning (id)) x rect padding -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithName x ~rect ~padding self = msg_send ~self ~cmd:(selector "initWithName:rect:padding:") ~typ:(id @-> ptr void @-> ptr void @-> returning (id)) x rect padding -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isTemplate self = msg_send ~self ~cmd:(selector "isTemplate") ~typ:(returning (bool)) -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let overrideGeometry x self = msg_send ~self ~cmd:(selector "overrideGeometry:") ~typ:(id @-> returning (id)) x -let paddedFrameWithContainingFrame x self = msg_send_stret ~self ~cmd:(selector "paddedFrameWithContainingFrame:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let paddedFrameWithResolvedFrame x self = msg_send_stret ~self ~cmd:(selector "paddedFrameWithResolvedFrame:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let setExplicitlySpecified x self = msg_send ~self ~cmd:(selector "setExplicitlySpecified:") ~typ:(bool @-> returning (void)) x -let setH x self = msg_send ~self ~cmd:(selector "setH:") ~typ:(ptr void @-> returning (void)) x -let setIsTemplate x self = msg_send ~self ~cmd:(selector "setIsTemplate:") ~typ:(bool @-> returning (void)) x -let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning (void)) x -let setPaddingBottom x self = msg_send ~self ~cmd:(selector "setPaddingBottom:") ~typ:(ptr void @-> returning (void)) x -let setPaddingLeft x self = msg_send ~self ~cmd:(selector "setPaddingLeft:") ~typ:(ptr void @-> returning (void)) x -let setPaddingRight x self = msg_send ~self ~cmd:(selector "setPaddingRight:") ~typ:(ptr void @-> returning (void)) x -let setPaddingTop x self = msg_send ~self ~cmd:(selector "setPaddingTop:") ~typ:(ptr void @-> returning (void)) x -let setW x self = msg_send ~self ~cmd:(selector "setW:") ~typ:(ptr void @-> returning (void)) x -let setX x self = msg_send ~self ~cmd:(selector "setX:") ~typ:(ptr void @-> returning (void)) x -let setY x self = msg_send ~self ~cmd:(selector "setY:") ~typ:(ptr void @-> returning (void)) x -let shortDescription self = msg_send ~self ~cmd:(selector "shortDescription") ~typ:(returning (id)) -let usesAutomaticMetrics self = msg_send ~self ~cmd:(selector "usesAutomaticMetrics") ~typ:(returning (bool)) -let usesPercentages self = msg_send ~self ~cmd:(selector "usesPercentages") ~typ:(returning (bool)) \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let explicitlySpecified self = msg_send ~self ~cmd:(selector "explicitlySpecified") ~typ:(returning bool) +let frame self = msg_send ~self ~cmd:(selector "frame") ~typ:(returning CGRect.t) +let frameWithContainingFrame x self = msg_send ~self ~cmd:(selector "frameWithContainingFrame:") ~typ:(CGRect.t @-> returning CGRect.t) x +let h self = msg_send ~self ~cmd:(selector "h") ~typ:(returning void) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initTemplateWithName x ~rect ~padding self = msg_send ~self ~cmd:(selector "initTemplateWithName:rect:padding:") ~typ:(id @-> void @-> void @-> returning id) x rect padding +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithName x ~rect ~padding self = msg_send ~self ~cmd:(selector "initWithName:rect:padding:") ~typ:(id @-> void @-> void @-> returning id) x rect padding +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isTemplate self = msg_send ~self ~cmd:(selector "isTemplate") ~typ:(returning bool) +let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) +let overrideGeometry x self = msg_send ~self ~cmd:(selector "overrideGeometry:") ~typ:(id @-> returning id) x +let paddedFrameWithContainingFrame x self = msg_send ~self ~cmd:(selector "paddedFrameWithContainingFrame:") ~typ:(CGRect.t @-> returning CGRect.t) x +let paddedFrameWithResolvedFrame x self = msg_send ~self ~cmd:(selector "paddedFrameWithResolvedFrame:") ~typ:(CGRect.t @-> returning CGRect.t) x +let paddingBottom self = msg_send ~self ~cmd:(selector "paddingBottom") ~typ:(returning void) +let paddingLeft self = msg_send ~self ~cmd:(selector "paddingLeft") ~typ:(returning void) +let paddingRight self = msg_send ~self ~cmd:(selector "paddingRight") ~typ:(returning void) +let paddingTop self = msg_send ~self ~cmd:(selector "paddingTop") ~typ:(returning void) +let setExplicitlySpecified x self = msg_send ~self ~cmd:(selector "setExplicitlySpecified:") ~typ:(bool @-> returning void) x +let setH x self = msg_send ~self ~cmd:(selector "setH:") ~typ:(void @-> returning void) x +let setIsTemplate x self = msg_send ~self ~cmd:(selector "setIsTemplate:") ~typ:(bool @-> returning void) x +let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning void) x +let setPaddingBottom x self = msg_send ~self ~cmd:(selector "setPaddingBottom:") ~typ:(void @-> returning void) x +let setPaddingLeft x self = msg_send ~self ~cmd:(selector "setPaddingLeft:") ~typ:(void @-> returning void) x +let setPaddingRight x self = msg_send ~self ~cmd:(selector "setPaddingRight:") ~typ:(void @-> returning void) x +let setPaddingTop x self = msg_send ~self ~cmd:(selector "setPaddingTop:") ~typ:(void @-> returning void) x +let setW x self = msg_send ~self ~cmd:(selector "setW:") ~typ:(void @-> returning void) x +let setX x self = msg_send ~self ~cmd:(selector "setX:") ~typ:(void @-> returning void) x +let setY x self = msg_send ~self ~cmd:(selector "setY:") ~typ:(void @-> returning void) x +let shortDescription self = msg_send ~self ~cmd:(selector "shortDescription") ~typ:(returning id) +let usesAutomaticMetrics self = msg_send ~self ~cmd:(selector "usesAutomaticMetrics") ~typ:(returning bool) +let usesPercentages self = msg_send ~self ~cmd:(selector "usesPercentages") ~typ:(returning bool) +let w self = msg_send ~self ~cmd:(selector "w") ~typ:(returning void) +let x self = msg_send ~self ~cmd:(selector "x") ~typ:(returning void) +let y self = msg_send ~self ~cmd:(selector "y") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKBGeometryClass.ml b/uikit_extra/UIKBGeometryClass.ml new file mode 100644 index 00000000..be4e327a --- /dev/null +++ b/uikit_extra/UIKBGeometryClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbgeometry?language=objc}UIKBGeometry} *) + +let codeStringForValue x self = msg_send ~self ~cmd:(selector "codeStringForValue:") ~typ:(void @-> returning id) x +let geometry self = msg_send ~self ~cmd:(selector "geometry") ~typ:(returning id) +let geometryWithOriginValue x ~sizeValue self = msg_send ~self ~cmd:(selector "geometryWithOriginValue:sizeValue:") ~typ:(void @-> void @-> returning id) x sizeValue +let geometryWithRect x self = msg_send ~self ~cmd:(selector "geometryWithRect:") ~typ:(CGRect.t @-> returning id) x +let performOperations x ~withScale self = msg_send ~self ~cmd:(selector "performOperations:withScale:") ~typ:((ptr void) @-> double @-> returning void) x withScale \ No newline at end of file diff --git a/uikit_extra/UIKBGradient.ml b/uikit_extra/UIKBGradient.ml index f3d61f4e..38780ea8 100644 --- a/uikit_extra/UIKBGradient.ml +++ b/uikit_extra/UIKBGradient.ml @@ -5,30 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBGradient" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbgradient?language=objc}UIKBGradient} *) -module C = struct - let gradientWith3Colors x ~middleLocation self = msg_send ~self ~cmd:(selector "gradientWith3Colors:middleLocation:") ~typ:(id @-> double @-> returning (id)) x middleLocation - let gradientWithColors x ~middleLocations self = msg_send ~self ~cmd:(selector "gradientWithColors:middleLocations:") ~typ:(id @-> id @-> returning (id)) x middleLocations - let gradientWithFlatColor x self = msg_send ~self ~cmd:(selector "gradientWithFlatColor:") ~typ:(id @-> returning (id)) x - let gradientWithName x self = msg_send ~self ~cmd:(selector "gradientWithName:") ~typ:(id @-> returning (id)) x - let gradientWithStartColor x ~endColor self = msg_send ~self ~cmd:(selector "gradientWithStartColor:endColor:") ~typ:(id @-> id @-> returning (id)) x endColor -end +let self = get_class "UIKBGradient" -let _CGGradient self = msg_send ~self ~cmd:(selector "CGGradient") ~typ:(returning (ptr void)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let flatColorName self = msg_send ~self ~cmd:(selector "flatColorName") ~typ:(returning (id)) -let horizontal self = msg_send ~self ~cmd:(selector "horizontal") ~typ:(returning (bool)) -let initWith3Colors x ~middleLocation self = msg_send ~self ~cmd:(selector "initWith3Colors:middleLocation:") ~typ:(id @-> double @-> returning (id)) x middleLocation -let initWithColors x ~middleLocations self = msg_send ~self ~cmd:(selector "initWithColors:middleLocations:") ~typ:(id @-> id @-> returning (id)) x middleLocations -let initWithFlatColor x self = msg_send ~self ~cmd:(selector "initWithFlatColor:") ~typ:(id @-> returning (id)) x -let initWithName x self = msg_send ~self ~cmd:(selector "initWithName:") ~typ:(id @-> returning (id)) x -let initWithStartColor x ~endColor self = msg_send ~self ~cmd:(selector "initWithStartColor:endColor:") ~typ:(id @-> id @-> returning (id)) x endColor -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let opacity self = msg_send ~self ~cmd:(selector "opacity") ~typ:(returning (double)) -let setHorizontal x self = msg_send ~self ~cmd:(selector "setHorizontal:") ~typ:(bool @-> returning (void)) x -let setOpacity x self = msg_send ~self ~cmd:(selector "setOpacity:") ~typ:(double @-> returning (void)) x -let usesRGBColors self = msg_send ~self ~cmd:(selector "usesRGBColors") ~typ:(returning (bool)) \ No newline at end of file +let _CGGradient self = msg_send ~self ~cmd:(selector "CGGradient") ~typ:(returning (ptr CGGradient.t)) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let flatColorName self = msg_send ~self ~cmd:(selector "flatColorName") ~typ:(returning id) +let horizontal self = msg_send ~self ~cmd:(selector "horizontal") ~typ:(returning bool) +let initWith3Colors x ~middleLocation self = msg_send ~self ~cmd:(selector "initWith3Colors:middleLocation:") ~typ:(id @-> double @-> returning id) x middleLocation +let initWithColors x ~middleLocations self = msg_send ~self ~cmd:(selector "initWithColors:middleLocations:") ~typ:(id @-> id @-> returning id) x middleLocations +let initWithFlatColor x self = msg_send ~self ~cmd:(selector "initWithFlatColor:") ~typ:(id @-> returning id) x +let initWithName x self = msg_send ~self ~cmd:(selector "initWithName:") ~typ:(id @-> returning id) x +let initWithStartColor x ~endColor self = msg_send ~self ~cmd:(selector "initWithStartColor:endColor:") ~typ:(id @-> id @-> returning id) x endColor +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let opacity self = msg_send ~self ~cmd:(selector "opacity") ~typ:(returning double) +let setHorizontal x self = msg_send ~self ~cmd:(selector "setHorizontal:") ~typ:(bool @-> returning void) x +let setOpacity x self = msg_send ~self ~cmd:(selector "setOpacity:") ~typ:(double @-> returning void) x +let usesRGBColors self = msg_send ~self ~cmd:(selector "usesRGBColors") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKBGradientClass.ml b/uikit_extra/UIKBGradientClass.ml new file mode 100644 index 00000000..596bea53 --- /dev/null +++ b/uikit_extra/UIKBGradientClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbgradient?language=objc}UIKBGradient} *) + +let gradientWith3Colors x ~middleLocation self = msg_send ~self ~cmd:(selector "gradientWith3Colors:middleLocation:") ~typ:(id @-> double @-> returning id) x middleLocation +let gradientWithColors x ~middleLocations self = msg_send ~self ~cmd:(selector "gradientWithColors:middleLocations:") ~typ:(id @-> id @-> returning id) x middleLocations +let gradientWithFlatColor x self = msg_send ~self ~cmd:(selector "gradientWithFlatColor:") ~typ:(id @-> returning id) x +let gradientWithName x self = msg_send ~self ~cmd:(selector "gradientWithName:") ~typ:(id @-> returning id) x +let gradientWithStartColor x ~endColor self = msg_send ~self ~cmd:(selector "gradientWithStartColor:endColor:") ~typ:(id @-> id @-> returning id) x endColor \ No newline at end of file diff --git a/uikit_extra/UIKBGraphCache.ml b/uikit_extra/UIKBGraphCache.ml index e4ba2134..ad4c9402 100644 --- a/uikit_extra/UIKBGraphCache.ml +++ b/uikit_extra/UIKBGraphCache.ml @@ -5,12 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBGraphCache" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbgraphcache?language=objc}UIKBGraphCache} *) -module Class = struct - let graphCacheForScreen x self = msg_send ~self ~cmd:(selector "graphCacheForScreen:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIKBGraphCache" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let graphCache self = msg_send ~self ~cmd:(selector "graphCache") ~typ:(returning (id)) \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let graphCache self = msg_send ~self ~cmd:(selector "graphCache") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBGraphCacheClass.ml b/uikit_extra/UIKBGraphCacheClass.ml new file mode 100644 index 00000000..ccb7810b --- /dev/null +++ b/uikit_extra/UIKBGraphCacheClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbgraphcache?language=objc}UIKBGraphCache} *) + +let graphCacheForScreen x self = msg_send ~self ~cmd:(selector "graphCacheForScreen:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBHandwritingBezierPathPointFIFO.ml b/uikit_extra/UIKBHandwritingBezierPathPointFIFO.ml index d3a8659d..472d9c71 100644 --- a/uikit_extra/UIKBHandwritingBezierPathPointFIFO.ml +++ b/uikit_extra/UIKBHandwritingBezierPathPointFIFO.ml @@ -5,16 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBHandwritingBezierPathPointFIFO" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbhandwritingbezierpathpointfifo?language=objc}UIKBHandwritingBezierPathPointFIFO} *) -let addPoint x self = msg_send ~self ~cmd:(selector "addPoint:") ~typ:(ptr void @-> returning (void)) x -let clear self = msg_send ~self ~cmd:(selector "clear") ~typ:(returning (void)) +let self = get_class "UIKBHandwritingBezierPathPointFIFO" + +let clear self = msg_send ~self ~cmd:(selector "clear") ~typ:(returning void) let emissionHandler self = msg_send ~self ~cmd:(selector "emissionHandler") ~typ:(returning (ptr void)) -let flush self = msg_send ~self ~cmd:(selector "flush") ~typ:(returning (void)) -let initWithFIFO x self = msg_send ~self ~cmd:(selector "initWithFIFO:") ~typ:(id @-> returning (id)) x -let path self = msg_send ~self ~cmd:(selector "path") ~typ:(returning (id)) -let prevPoints self = msg_send ~self ~cmd:(selector "prevPoints") ~typ:(returning (id)) -let setEmissionHandler x self = msg_send ~self ~cmd:(selector "setEmissionHandler:") ~typ:(ptr void @-> returning (void)) x -let setPath x self = msg_send ~self ~cmd:(selector "setPath:") ~typ:(id @-> returning (void)) x -let setPrevPoints x self = msg_send ~self ~cmd:(selector "setPrevPoints:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let flush self = msg_send ~self ~cmd:(selector "flush") ~typ:(returning void) +let initWithFIFO x self = msg_send ~self ~cmd:(selector "initWithFIFO:") ~typ:(id @-> returning id) x +let path self = msg_send ~self ~cmd:(selector "path") ~typ:(returning id) +let prevPoints self = msg_send ~self ~cmd:(selector "prevPoints") ~typ:(returning id) +let setEmissionHandler x self = msg_send ~self ~cmd:(selector "setEmissionHandler:") ~typ:((ptr void) @-> returning void) x +let setPath x self = msg_send ~self ~cmd:(selector "setPath:") ~typ:(id @-> returning void) x +let setPrevPoints x self = msg_send ~self ~cmd:(selector "setPrevPoints:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBHandwritingBoxcarFilterPointFIFO.ml b/uikit_extra/UIKBHandwritingBoxcarFilterPointFIFO.ml index 3aa90a68..650bf759 100644 --- a/uikit_extra/UIKBHandwritingBoxcarFilterPointFIFO.ml +++ b/uikit_extra/UIKBHandwritingBoxcarFilterPointFIFO.ml @@ -5,15 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBHandwritingBoxcarFilterPointFIFO" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbhandwritingboxcarfilterpointfifo?language=objc}UIKBHandwritingBoxcarFilterPointFIFO} *) -let addPoint x self = msg_send ~self ~cmd:(selector "addPoint:") ~typ:(ptr void @-> returning (void)) x -let clear self = msg_send ~self ~cmd:(selector "clear") ~typ:(returning (void)) -let emitAveragedPoint self = msg_send ~self ~cmd:(selector "emitAveragedPoint") ~typ:(returning (void)) -let flush self = msg_send ~self ~cmd:(selector "flush") ~typ:(returning (void)) -let initWithFIFO x ~width self = msg_send ~self ~cmd:(selector "initWithFIFO:width:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int width) -let prevPoints self = msg_send ~self ~cmd:(selector "prevPoints") ~typ:(returning (id)) -let setPrevPoints x self = msg_send ~self ~cmd:(selector "setPrevPoints:") ~typ:(id @-> returning (void)) x -let setWidth x self = msg_send ~self ~cmd:(selector "setWidth:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let width self = msg_send ~self ~cmd:(selector "width") ~typ:(returning (ullong)) \ No newline at end of file +let self = get_class "UIKBHandwritingBoxcarFilterPointFIFO" + +let clear self = msg_send ~self ~cmd:(selector "clear") ~typ:(returning void) +let emitAveragedPoint self = msg_send ~self ~cmd:(selector "emitAveragedPoint") ~typ:(returning void) +let flush self = msg_send ~self ~cmd:(selector "flush") ~typ:(returning void) +let initWithFIFO x ~width self = msg_send ~self ~cmd:(selector "initWithFIFO:width:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int width) +let prevPoints self = msg_send ~self ~cmd:(selector "prevPoints") ~typ:(returning id) +let setPrevPoints x self = msg_send ~self ~cmd:(selector "setPrevPoints:") ~typ:(id @-> returning void) x +let setWidth x self = msg_send ~self ~cmd:(selector "setWidth:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let width self = msg_send ~self ~cmd:(selector "width") ~typ:(returning ullong) \ No newline at end of file diff --git a/uikit_extra/UIKBHandwritingCandidateView.ml b/uikit_extra/UIKBHandwritingCandidateView.ml index 789cc97a..450cd160 100644 --- a/uikit_extra/UIKBHandwritingCandidateView.ml +++ b/uikit_extra/UIKBHandwritingCandidateView.ml @@ -5,13 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBHandwritingCandidateView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbhandwritingcandidateview?language=objc}UIKBHandwritingCandidateView} *) -module C = struct - let shadowYForBounds x ~shadowHeight self = msg_send ~self ~cmd:(selector "shadowYForBounds:shadowHeight:") ~typ:(CGRect.t @-> double @-> returning (double)) x shadowHeight -end +let self = get_class "UIKBHandwritingCandidateView" -let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning (id)) x keyplane key -let updateCandidateKey self = msg_send ~self ~cmd:(selector "updateCandidateKey") ~typ:(returning (void)) -let updateForKeyplane x ~key self = msg_send ~self ~cmd:(selector "updateForKeyplane:key:") ~typ:(id @-> id @-> returning (void)) x key \ No newline at end of file +let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning id) x keyplane key +let updateCandidateKey self = msg_send ~self ~cmd:(selector "updateCandidateKey") ~typ:(returning void) +let updateForKeyplane x ~key self = msg_send ~self ~cmd:(selector "updateForKeyplane:key:") ~typ:(id @-> id @-> returning void) x key \ No newline at end of file diff --git a/uikit_extra/UIKBHandwritingCandidateViewClass.ml b/uikit_extra/UIKBHandwritingCandidateViewClass.ml new file mode 100644 index 00000000..8a7b857d --- /dev/null +++ b/uikit_extra/UIKBHandwritingCandidateViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbhandwritingcandidateview?language=objc}UIKBHandwritingCandidateView} *) + +let shadowYForBounds x ~shadowHeight self = msg_send ~self ~cmd:(selector "shadowYForBounds:shadowHeight:") ~typ:(CGRect.t @-> double @-> returning double) x shadowHeight \ No newline at end of file diff --git a/uikit_extra/UIKBHandwritingInputSpeedModel.ml b/uikit_extra/UIKBHandwritingInputSpeedModel.ml index df92fe91..c54c47f6 100644 --- a/uikit_extra/UIKBHandwritingInputSpeedModel.ml +++ b/uikit_extra/UIKBHandwritingInputSpeedModel.ml @@ -5,20 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBHandwritingInputSpeedModel" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbhandwritinginputspeedmodel?language=objc}UIKBHandwritingInputSpeedModel} *) -let addPoint x ~timestamp self = msg_send ~self ~cmd:(selector "addPoint:timestamp:") ~typ:(CGPoint.t @-> double @-> returning (void)) x timestamp -let autoConfirmationEnabled self = msg_send ~self ~cmd:(selector "autoConfirmationEnabled") ~typ:(returning (bool)) -let beginStroke self = msg_send ~self ~cmd:(selector "beginStroke") ~typ:(returning (void)) -let endCharacter self = msg_send ~self ~cmd:(selector "endCharacter") ~typ:(returning (void)) -let endStroke self = msg_send ~self ~cmd:(selector "endStroke") ~typ:(returning (void)) -let handwritingFrame self = msg_send_stret ~self ~cmd:(selector "handwritingFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let maxTimeout self = msg_send ~self ~cmd:(selector "maxTimeout") ~typ:(returning (double)) -let minTimeout self = msg_send ~self ~cmd:(selector "minTimeout") ~typ:(returning (double)) -let setHandwritingFrame x self = msg_send ~self ~cmd:(selector "setHandwritingFrame:") ~typ:(CGRect.t @-> returning (void)) x -let smoothValueFromArray x self = msg_send ~self ~cmd:(selector "smoothValueFromArray:") ~typ:(id @-> returning (double)) x -let speedForCurrentStroke self = msg_send ~self ~cmd:(selector "speedForCurrentStroke") ~typ:(returning (double)) -let timeoutForNextPage self = msg_send ~self ~cmd:(selector "timeoutForNextPage") ~typ:(returning (double)) -let updatePreferences self = msg_send ~self ~cmd:(selector "updatePreferences") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIKBHandwritingInputSpeedModel" + +let autoConfirmationEnabled self = msg_send ~self ~cmd:(selector "autoConfirmationEnabled") ~typ:(returning bool) +let beginStroke self = msg_send ~self ~cmd:(selector "beginStroke") ~typ:(returning void) +let endCharacter self = msg_send ~self ~cmd:(selector "endCharacter") ~typ:(returning void) +let endStroke self = msg_send ~self ~cmd:(selector "endStroke") ~typ:(returning void) +let handwritingFrame self = msg_send ~self ~cmd:(selector "handwritingFrame") ~typ:(returning CGRect.t) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let maxTimeout self = msg_send ~self ~cmd:(selector "maxTimeout") ~typ:(returning double) +let minTimeout self = msg_send ~self ~cmd:(selector "minTimeout") ~typ:(returning double) +let setHandwritingFrame x self = msg_send ~self ~cmd:(selector "setHandwritingFrame:") ~typ:(CGRect.t @-> returning void) x +let smoothValueFromArray x self = msg_send ~self ~cmd:(selector "smoothValueFromArray:") ~typ:(id @-> returning double) x +let speedForCurrentStroke self = msg_send ~self ~cmd:(selector "speedForCurrentStroke") ~typ:(returning double) +let timeoutForNextPage self = msg_send ~self ~cmd:(selector "timeoutForNextPage") ~typ:(returning double) +let updatePreferences self = msg_send ~self ~cmd:(selector "updatePreferences") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKBHandwritingPointFIFO.ml b/uikit_extra/UIKBHandwritingPointFIFO.ml index b559ebac..70946497 100644 --- a/uikit_extra/UIKBHandwritingPointFIFO.ml +++ b/uikit_extra/UIKBHandwritingPointFIFO.ml @@ -5,13 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBHandwritingPointFIFO" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbhandwritingpointfifo?language=objc}UIKBHandwritingPointFIFO} *) -let addPoint x self = msg_send ~self ~cmd:(selector "addPoint:") ~typ:(ptr void @-> returning (void)) x -let clear self = msg_send ~self ~cmd:(selector "clear") ~typ:(returning (void)) -let emitPoint x self = msg_send ~self ~cmd:(selector "emitPoint:") ~typ:(ptr void @-> returning (void)) x -let flush self = msg_send ~self ~cmd:(selector "flush") ~typ:(returning (void)) -let initWithFIFO x self = msg_send ~self ~cmd:(selector "initWithFIFO:") ~typ:(id @-> returning (id)) x -let nextFIFO self = msg_send ~self ~cmd:(selector "nextFIFO") ~typ:(returning (id)) -let setNextFIFO x self = msg_send ~self ~cmd:(selector "setNextFIFO:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKBHandwritingPointFIFO" + +let clear self = msg_send ~self ~cmd:(selector "clear") ~typ:(returning void) +let flush self = msg_send ~self ~cmd:(selector "flush") ~typ:(returning void) +let initWithFIFO x self = msg_send ~self ~cmd:(selector "initWithFIFO:") ~typ:(id @-> returning id) x +let nextFIFO self = msg_send ~self ~cmd:(selector "nextFIFO") ~typ:(returning id) +let setNextFIFO x self = msg_send ~self ~cmd:(selector "setNextFIFO:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBHandwritingQuadCurvePointFIFO.ml b/uikit_extra/UIKBHandwritingQuadCurvePointFIFO.ml index 68d1a5ee..787198c8 100644 --- a/uikit_extra/UIKBHandwritingQuadCurvePointFIFO.ml +++ b/uikit_extra/UIKBHandwritingQuadCurvePointFIFO.ml @@ -5,17 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBHandwritingQuadCurvePointFIFO" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbhandwritingquadcurvepointfifo?language=objc}UIKBHandwritingQuadCurvePointFIFO} *) -let addPoint x self = msg_send ~self ~cmd:(selector "addPoint:") ~typ:(ptr void @-> returning (void)) x -let clear self = msg_send ~self ~cmd:(selector "clear") ~typ:(returning (void)) +let self = get_class "UIKBHandwritingQuadCurvePointFIFO" + +let clear self = msg_send ~self ~cmd:(selector "clear") ~typ:(returning void) let emissionHandler self = msg_send ~self ~cmd:(selector "emissionHandler") ~typ:(returning (ptr void)) -let flush self = msg_send ~self ~cmd:(selector "flush") ~typ:(returning (void)) -let initWithFIFO x ~scale self = msg_send ~self ~cmd:(selector "initWithFIFO:scale:") ~typ:(id @-> double @-> returning (id)) x scale -let prevPoints self = msg_send ~self ~cmd:(selector "prevPoints") ~typ:(returning (id)) -let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning (double)) -let setEmissionHandler x self = msg_send ~self ~cmd:(selector "setEmissionHandler:") ~typ:(ptr void @-> returning (void)) x -let setLastPoint x self = msg_send ~self ~cmd:(selector "setLastPoint:") ~typ:(ptr void @-> returning (void)) x -let setPrevPoints x self = msg_send ~self ~cmd:(selector "setPrevPoints:") ~typ:(id @-> returning (void)) x -let setScale x self = msg_send ~self ~cmd:(selector "setScale:") ~typ:(double @-> returning (void)) x \ No newline at end of file +let flush self = msg_send ~self ~cmd:(selector "flush") ~typ:(returning void) +let initWithFIFO x ~scale self = msg_send ~self ~cmd:(selector "initWithFIFO:scale:") ~typ:(id @-> double @-> returning id) x scale +let lastPoint self = msg_send ~self ~cmd:(selector "lastPoint") ~typ:(returning void) +let prevPoints self = msg_send ~self ~cmd:(selector "prevPoints") ~typ:(returning id) +let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning double) +let setEmissionHandler x self = msg_send ~self ~cmd:(selector "setEmissionHandler:") ~typ:((ptr void) @-> returning void) x +let setPrevPoints x self = msg_send ~self ~cmd:(selector "setPrevPoints:") ~typ:(id @-> returning void) x +let setScale x self = msg_send ~self ~cmd:(selector "setScale:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBHandwritingStrokePointFIFO.ml b/uikit_extra/UIKBHandwritingStrokePointFIFO.ml index 00c9a7d9..5f3cf298 100644 --- a/uikit_extra/UIKBHandwritingStrokePointFIFO.ml +++ b/uikit_extra/UIKBHandwritingStrokePointFIFO.ml @@ -5,12 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBHandwritingStrokePointFIFO" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbhandwritingstrokepointfifo?language=objc}UIKBHandwritingStrokePointFIFO} *) -let addPoint x self = msg_send ~self ~cmd:(selector "addPoint:") ~typ:(ptr void @-> returning (void)) x -let clear self = msg_send ~self ~cmd:(selector "clear") ~typ:(returning (void)) -let flush self = msg_send ~self ~cmd:(selector "flush") ~typ:(returning (void)) -let initWithFIFO x self = msg_send ~self ~cmd:(selector "initWithFIFO:") ~typ:(id @-> returning (id)) x -let setStrokes x self = msg_send ~self ~cmd:(selector "setStrokes:") ~typ:(id @-> returning (void)) x -let strokes self = msg_send ~self ~cmd:(selector "strokes") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBHandwritingStrokePointFIFO" + +let clear self = msg_send ~self ~cmd:(selector "clear") ~typ:(returning void) +let flush self = msg_send ~self ~cmd:(selector "flush") ~typ:(returning void) +let initWithFIFO x self = msg_send ~self ~cmd:(selector "initWithFIFO:") ~typ:(id @-> returning id) x +let setStrokes x self = msg_send ~self ~cmd:(selector "setStrokes:") ~typ:(id @-> returning void) x +let strokes self = msg_send ~self ~cmd:(selector "strokes") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBHandwritingStrokeView.ml b/uikit_extra/UIKBHandwritingStrokeView.ml index 77b01478..6a1d1299 100644 --- a/uikit_extra/UIKBHandwritingStrokeView.ml +++ b/uikit_extra/UIKBHandwritingStrokeView.ml @@ -5,23 +5,28 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBHandwritingStrokeView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbhandwritingstrokeview?language=objc}UIKBHandwritingStrokeView} *) -let addHandwritingPoint x self = msg_send ~self ~cmd:(selector "addHandwritingPoint:") ~typ:(ptr void @-> returning (void)) x -let addTrapezoidFromFirstPoint x ~secondPoint self = msg_send ~self ~cmd:(selector "addTrapezoidFromFirstPoint:secondPoint:") ~typ:(ptr void @-> ptr void @-> returning (void)) x secondPoint -let aggregateInvalidRect self = msg_send_stret ~self ~cmd:(selector "aggregateInvalidRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let bitmapContext self = msg_send ~self ~cmd:(selector "bitmapContext") ~typ:(returning (id)) -let clearRect x self = msg_send ~self ~cmd:(selector "clearRect:") ~typ:(CGRect.t @-> returning (void)) x -let convertRectToBitmapCoordinates x self = msg_send_stret ~self ~cmd:(selector "convertRectToBitmapCoordinates:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let convertRectToViewCoordinates x self = msg_send_stret ~self ~cmd:(selector "convertRectToViewCoordinates:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let createBitmapIfNeeded self = msg_send ~self ~cmd:(selector "createBitmapIfNeeded") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let displayAggregateInvalidRect self = msg_send ~self ~cmd:(selector "displayAggregateInvalidRect") ~typ:(returning (void)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let handwritingPointToRect x self = msg_send_stret ~self ~cmd:(selector "handwritingPointToRect:") ~typ:(ptr void @-> returning (CGRect.t)) ~return_type:CGRect.t x -let keyView self = msg_send ~self ~cmd:(selector "keyView") ~typ:(returning (id)) -let redrawStrokesInRect x self = msg_send ~self ~cmd:(selector "redrawStrokesInRect:") ~typ:(CGRect.t @-> returning (void)) x -let scaleFactor self = msg_send ~self ~cmd:(selector "scaleFactor") ~typ:(returning (double)) -let setKeyView x self = msg_send ~self ~cmd:(selector "setKeyView:") ~typ:(id @-> returning (void)) x -let updateInkColor self = msg_send ~self ~cmd:(selector "updateInkColor") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIKBHandwritingStrokeView" + +let addHandwritingPoint x self = msg_send ~self ~cmd:(selector "addHandwritingPoint:") ~typ:(void @-> returning void) x +let addTrapezoidFromFirstPoint x ~secondPoint self = msg_send ~self ~cmd:(selector "addTrapezoidFromFirstPoint:secondPoint:") ~typ:(void @-> void @-> returning void) x secondPoint +let aggregateInvalidRect self = msg_send ~self ~cmd:(selector "aggregateInvalidRect") ~typ:(returning CGRect.t) +let bitmapContext self = msg_send ~self ~cmd:(selector "bitmapContext") ~typ:(returning (ptr CGContext.t)) +let clearRect x self = msg_send ~self ~cmd:(selector "clearRect:") ~typ:(CGRect.t @-> returning void) x +let convertRectToBitmapCoordinates x self = msg_send ~self ~cmd:(selector "convertRectToBitmapCoordinates:") ~typ:(CGRect.t @-> returning CGRect.t) x +let convertRectToViewCoordinates x self = msg_send ~self ~cmd:(selector "convertRectToViewCoordinates:") ~typ:(CGRect.t @-> returning CGRect.t) x +let createBitmapIfNeeded self = msg_send ~self ~cmd:(selector "createBitmapIfNeeded") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let displayAggregateInvalidRect self = msg_send ~self ~cmd:(selector "displayAggregateInvalidRect") ~typ:(returning void) +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let handwritingPointToRect x self = msg_send ~self ~cmd:(selector "handwritingPointToRect:") ~typ:(void @-> returning CGRect.t) x +let keyView self = msg_send ~self ~cmd:(selector "keyView") ~typ:(returning id) +let redrawStrokesInRect x self = msg_send ~self ~cmd:(selector "redrawStrokesInRect:") ~typ:(CGRect.t @-> returning void) x +let scaleFactor self = msg_send ~self ~cmd:(selector "scaleFactor") ~typ:(returning double) +let setKeyView x self = msg_send ~self ~cmd:(selector "setKeyView:") ~typ:(id @-> returning void) x +let updateInkColor self = msg_send ~self ~cmd:(selector "updateInkColor") ~typ:(returning void) +let viewPointFromDataPoint x self = msg_send ~self ~cmd:(selector "viewPointFromDataPoint:") ~typ:(void @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBHandwritingView.ml b/uikit_extra/UIKBHandwritingView.ml index d268f97f..7744082c 100644 --- a/uikit_extra/UIKBHandwritingView.ml +++ b/uikit_extra/UIKBHandwritingView.ml @@ -5,71 +5,76 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBHandwritingView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbhandwritingview?language=objc}UIKBHandwritingView} *) -let activeTouches self = msg_send ~self ~cmd:(selector "activeTouches") ~typ:(returning (id)) -let addInkPoint x ~value self = msg_send ~self ~cmd:(selector "addInkPoint:value:") ~typ:(CGPoint.t @-> double @-> returning (void)) x value -let bezierPathFIFO self = msg_send ~self ~cmd:(selector "bezierPathFIFO") ~typ:(returning (id)) -let cancelPageOffsetTimer self = msg_send ~self ~cmd:(selector "cancelPageOffsetTimer") ~typ:(returning (void)) -let cancelTouchTracking self = msg_send ~self ~cmd:(selector "cancelTouchTracking") ~typ:(returning (bool)) -let clearAndNotify x self = msg_send ~self ~cmd:(selector "clearAndNotify:") ~typ:(bool @-> returning (void)) x -let clearTouches self = msg_send ~self ~cmd:(selector "clearTouches") ~typ:(returning (void)) -let currentPath self = msg_send ~self ~cmd:(selector "currentPath") ~typ:(returning (id)) -let currentPoints self = msg_send ~self ~cmd:(selector "currentPoints") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deleteStrokesAtIndexes x self = msg_send ~self ~cmd:(selector "deleteStrokesAtIndexes:") ~typ:(id @-> returning (void)) x -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning (void)) x -let endStrokeWithTouches x ~event self = msg_send ~self ~cmd:(selector "endStrokeWithTouches:event:") ~typ:(id @-> id @-> returning (bool)) x event -let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning (id)) x keyplane key -let initialPointPosted self = msg_send ~self ~cmd:(selector "initialPointPosted") ~typ:(returning (bool)) -let inkColor self = msg_send ~self ~cmd:(selector "inkColor") ~typ:(returning (ptr void)) -let inkMask self = msg_send ~self ~cmd:(selector "inkMask") ~typ:(returning (id)) -let inkWidth self = msg_send ~self ~cmd:(selector "inkWidth") ~typ:(returning (double)) -let inputSpeedModel self = msg_send ~self ~cmd:(selector "inputSpeedModel") ~typ:(returning (id)) -let interpolatedPoints self = msg_send ~self ~cmd:(selector "interpolatedPoints") ~typ:(returning (id)) -let interpolatingFIFO self = msg_send ~self ~cmd:(selector "interpolatingFIFO") ~typ:(returning (id)) -let layerForRenderFlags x self = msg_send ~self ~cmd:(selector "layerForRenderFlags:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let log self = msg_send ~self ~cmd:(selector "log") ~typ:(returning (void)) -let nextPageTimer self = msg_send ~self ~cmd:(selector "nextPageTimer") ~typ:(returning (id)) -let numberOfStrokes self = msg_send ~self ~cmd:(selector "numberOfStrokes") ~typ:(returning (ullong)) -let pageOffset self = msg_send ~self ~cmd:(selector "pageOffset") ~typ:(returning (double)) -let pageOffsetTimerFired self = msg_send ~self ~cmd:(selector "pageOffsetTimerFired") ~typ:(returning (void)) -let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let recreateInkMaskIfNeeded self = msg_send ~self ~cmd:(selector "recreateInkMaskIfNeeded") ~typ:(returning (void)) -let send self = msg_send ~self ~cmd:(selector "send") ~typ:(returning (void)) -let setActiveTouches x self = msg_send ~self ~cmd:(selector "setActiveTouches:") ~typ:(id @-> returning (void)) x -let setBezierPathFIFO x self = msg_send ~self ~cmd:(selector "setBezierPathFIFO:") ~typ:(id @-> returning (void)) x -let setCurrentPath x self = msg_send ~self ~cmd:(selector "setCurrentPath:") ~typ:(id @-> returning (void)) x -let setCurrentPoints x self = msg_send ~self ~cmd:(selector "setCurrentPoints:") ~typ:(id @-> returning (void)) x -let setInitialPointPosted x self = msg_send ~self ~cmd:(selector "setInitialPointPosted:") ~typ:(bool @-> returning (void)) x -let setInkColor x self = msg_send ~self ~cmd:(selector "setInkColor:") ~typ:(ptr void @-> returning (void)) x -let setInkMask x self = msg_send ~self ~cmd:(selector "setInkMask:") ~typ:(id @-> returning (void)) x -let setInkWidth x self = msg_send ~self ~cmd:(selector "setInkWidth:") ~typ:(double @-> returning (void)) x -let setInputSpeedModel x self = msg_send ~self ~cmd:(selector "setInputSpeedModel:") ~typ:(id @-> returning (void)) x -let setInterpolatedPoints x self = msg_send ~self ~cmd:(selector "setInterpolatedPoints:") ~typ:(id @-> returning (void)) x -let setInterpolatingFIFO x self = msg_send ~self ~cmd:(selector "setInterpolatingFIFO:") ~typ:(id @-> returning (void)) x -let setNextPageTimer x self = msg_send ~self ~cmd:(selector "setNextPageTimer:") ~typ:(id @-> returning (void)) x -let setPageOffset x self = msg_send ~self ~cmd:(selector "setPageOffset:") ~typ:(double @-> returning (void)) x -let setPreviousPoint x self = msg_send ~self ~cmd:(selector "setPreviousPoint:") ~typ:(ptr void @-> returning (void)) x -let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning (void)) x -let setSmoothingFIFO x self = msg_send ~self ~cmd:(selector "setSmoothingFIFO:") ~typ:(id @-> returning (void)) x -let setSnapshotView x self = msg_send ~self ~cmd:(selector "setSnapshotView:") ~typ:(id @-> returning (void)) x -let setStrokeFIFO x self = msg_send ~self ~cmd:(selector "setStrokeFIFO:") ~typ:(id @-> returning (void)) x -let setStrokeView x self = msg_send ~self ~cmd:(selector "setStrokeView:") ~typ:(id @-> returning (void)) x -let shouldAllowSelectionGestures x self = msg_send ~self ~cmd:(selector "shouldAllowSelectionGestures:") ~typ:(bool @-> returning (bool)) x -let shouldCache self = msg_send ~self ~cmd:(selector "shouldCache") ~typ:(returning (bool)) -let smoothingFIFO self = msg_send ~self ~cmd:(selector "smoothingFIFO") ~typ:(returning (id)) -let snapshotView self = msg_send ~self ~cmd:(selector "snapshotView") ~typ:(returning (id)) -let startFadeOutAnimation self = msg_send ~self ~cmd:(selector "startFadeOutAnimation") ~typ:(returning (void)) -let strokeFIFO self = msg_send ~self ~cmd:(selector "strokeFIFO") ~typ:(returning (id)) -let strokeView self = msg_send ~self ~cmd:(selector "strokeView") ~typ:(returning (id)) -let touchPageOffsetTimer self = msg_send ~self ~cmd:(selector "touchPageOffsetTimer") ~typ:(returning (void)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let updateForKeyplane x ~key self = msg_send ~self ~cmd:(selector "updateForKeyplane:key:") ~typ:(id @-> id @-> returning (void)) x key -let updateInkColor self = msg_send ~self ~cmd:(selector "updateInkColor") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIKBHandwritingView" + +let activeTouches self = msg_send ~self ~cmd:(selector "activeTouches") ~typ:(returning id) +let addInkPoint x ~value self = msg_send ~self ~cmd:(selector "addInkPoint:value:") ~typ:(CGPoint.t @-> double @-> returning void) x value +let bezierPathFIFO self = msg_send ~self ~cmd:(selector "bezierPathFIFO") ~typ:(returning id) +let cancelPageOffsetTimer self = msg_send ~self ~cmd:(selector "cancelPageOffsetTimer") ~typ:(returning void) +let cancelTouchTracking self = msg_send ~self ~cmd:(selector "cancelTouchTracking") ~typ:(returning bool) +let clearAndNotify x self = msg_send ~self ~cmd:(selector "clearAndNotify:") ~typ:(bool @-> returning void) x +let clearTouches self = msg_send ~self ~cmd:(selector "clearTouches") ~typ:(returning void) +let currentPath self = msg_send ~self ~cmd:(selector "currentPath") ~typ:(returning id) +let currentPoints self = msg_send ~self ~cmd:(selector "currentPoints") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let deleteStrokesAtIndexes x self = msg_send ~self ~cmd:(selector "deleteStrokesAtIndexes:") ~typ:(id @-> returning void) x +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning void) x +let endStrokeWithTouches x ~event self = msg_send ~self ~cmd:(selector "endStrokeWithTouches:event:") ~typ:(id @-> id @-> returning bool) x event +let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning id) x keyplane key +let initialPointPosted self = msg_send ~self ~cmd:(selector "initialPointPosted") ~typ:(returning bool) +let inkColor self = msg_send ~self ~cmd:(selector "inkColor") ~typ:(returning (ptr CGColor.t)) +let inkMask self = msg_send ~self ~cmd:(selector "inkMask") ~typ:(returning (ptr CGImage.t)) +let inkWidth self = msg_send ~self ~cmd:(selector "inkWidth") ~typ:(returning double) +let inputSpeedModel self = msg_send ~self ~cmd:(selector "inputSpeedModel") ~typ:(returning id) +let interpolatedPoints self = msg_send ~self ~cmd:(selector "interpolatedPoints") ~typ:(returning id) +let interpolatingFIFO self = msg_send ~self ~cmd:(selector "interpolatingFIFO") ~typ:(returning id) +let layerForRenderFlags x self = msg_send ~self ~cmd:(selector "layerForRenderFlags:") ~typ:(llong @-> returning id) (LLong.of_int x) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let log self = msg_send ~self ~cmd:(selector "log") ~typ:(returning void) +let nextPageTimer self = msg_send ~self ~cmd:(selector "nextPageTimer") ~typ:(returning id) +let numberOfStrokes self = msg_send ~self ~cmd:(selector "numberOfStrokes") ~typ:(returning ullong) +let pageOffset self = msg_send ~self ~cmd:(selector "pageOffset") ~typ:(returning double) +let pageOffsetTimerFired self = msg_send ~self ~cmd:(selector "pageOffsetTimerFired") ~typ:(returning void) +let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let previousPoint self = msg_send ~self ~cmd:(selector "previousPoint") ~typ:(returning void) +let recreateInkMaskIfNeeded self = msg_send ~self ~cmd:(selector "recreateInkMaskIfNeeded") ~typ:(returning void) +let send self = msg_send ~self ~cmd:(selector "send") ~typ:(returning void) +let setActiveTouches x self = msg_send ~self ~cmd:(selector "setActiveTouches:") ~typ:(id @-> returning void) x +let setBezierPathFIFO x self = msg_send ~self ~cmd:(selector "setBezierPathFIFO:") ~typ:(id @-> returning void) x +let setCurrentPath x self = msg_send ~self ~cmd:(selector "setCurrentPath:") ~typ:(id @-> returning void) x +let setCurrentPoints x self = msg_send ~self ~cmd:(selector "setCurrentPoints:") ~typ:(id @-> returning void) x +let setInitialPointPosted x self = msg_send ~self ~cmd:(selector "setInitialPointPosted:") ~typ:(bool @-> returning void) x +let setInkColor x self = msg_send ~self ~cmd:(selector "setInkColor:") ~typ:((ptr CGColor.t) @-> returning void) x +let setInkMask x self = msg_send ~self ~cmd:(selector "setInkMask:") ~typ:((ptr CGImage.t) @-> returning void) x +let setInkWidth x self = msg_send ~self ~cmd:(selector "setInkWidth:") ~typ:(double @-> returning void) x +let setInputSpeedModel x self = msg_send ~self ~cmd:(selector "setInputSpeedModel:") ~typ:(id @-> returning void) x +let setInterpolatedPoints x self = msg_send ~self ~cmd:(selector "setInterpolatedPoints:") ~typ:(id @-> returning void) x +let setInterpolatingFIFO x self = msg_send ~self ~cmd:(selector "setInterpolatingFIFO:") ~typ:(id @-> returning void) x +let setNextPageTimer x self = msg_send ~self ~cmd:(selector "setNextPageTimer:") ~typ:(id @-> returning void) x +let setPageOffset x self = msg_send ~self ~cmd:(selector "setPageOffset:") ~typ:(double @-> returning void) x +let setPreviousPoint x self = msg_send ~self ~cmd:(selector "setPreviousPoint:") ~typ:(void @-> returning void) x +let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning void) x +let setSmoothingFIFO x self = msg_send ~self ~cmd:(selector "setSmoothingFIFO:") ~typ:(id @-> returning void) x +let setSnapshotView x self = msg_send ~self ~cmd:(selector "setSnapshotView:") ~typ:(id @-> returning void) x +let setStrokeFIFO x self = msg_send ~self ~cmd:(selector "setStrokeFIFO:") ~typ:(id @-> returning void) x +let setStrokeView x self = msg_send ~self ~cmd:(selector "setStrokeView:") ~typ:(id @-> returning void) x +let shouldAllowSelectionGestures x self = msg_send ~self ~cmd:(selector "shouldAllowSelectionGestures:") ~typ:(bool @-> returning bool) x +let shouldCache self = msg_send ~self ~cmd:(selector "shouldCache") ~typ:(returning bool) +let smoothingFIFO self = msg_send ~self ~cmd:(selector "smoothingFIFO") ~typ:(returning id) +let snapshotView self = msg_send ~self ~cmd:(selector "snapshotView") ~typ:(returning id) +let startFadeOutAnimation self = msg_send ~self ~cmd:(selector "startFadeOutAnimation") ~typ:(returning void) +let strokeFIFO self = msg_send ~self ~cmd:(selector "strokeFIFO") ~typ:(returning id) +let strokeView self = msg_send ~self ~cmd:(selector "strokeView") ~typ:(returning id) +let touchPageOffsetTimer self = msg_send ~self ~cmd:(selector "touchPageOffsetTimer") ~typ:(returning void) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let updateForKeyplane x ~key self = msg_send ~self ~cmd:(selector "updateForKeyplane:key:") ~typ:(id @-> id @-> returning void) x key +let updateInkColor self = msg_send ~self ~cmd:(selector "updateInkColor") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKBInputBackdropView.ml b/uikit_extra/UIKBInputBackdropView.ml index ac30d5be..842dfed2 100644 --- a/uikit_extra/UIKBInputBackdropView.ml +++ b/uikit_extra/UIKBInputBackdropView.ml @@ -5,49 +5,49 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBInputBackdropView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbinputbackdropview?language=objc}UIKBInputBackdropView} *) -module C = struct - let requiresConstraintBasedLayout self = msg_send ~self ~cmd:(selector "requiresConstraintBasedLayout") ~typ:(returning (bool)) -end +let self = get_class "UIKBInputBackdropView" -let captureView self = msg_send ~self ~cmd:(selector "captureView") ~typ:(returning (id)) -let createSplitBackdropIfNeeded self = msg_send ~self ~cmd:(selector "createSplitBackdropIfNeeded") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let fullWidthConstraints self = msg_send ~self ~cmd:(selector "fullWidthConstraints") ~typ:(returning (id)) -let heightConstraint self = msg_send ~self ~cmd:(selector "heightConstraint") ~typ:(returning (id)) -let heightDiff self = msg_send ~self ~cmd:(selector "heightDiff") ~typ:(returning (double)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let inputBackdropFullView self = msg_send ~self ~cmd:(selector "inputBackdropFullView") ~typ:(returning (id)) -let inputBackdropLeftView self = msg_send ~self ~cmd:(selector "inputBackdropLeftView") ~typ:(returning (id)) -let inputBackdropRightView self = msg_send ~self ~cmd:(selector "inputBackdropRightView") ~typ:(returning (id)) -let layoutInputBackdropToFullWithRect x self = msg_send ~self ~cmd:(selector "layoutInputBackdropToFullWithRect:") ~typ:(CGRect.t @-> returning (void)) x -let layoutInputBackdropToSplitWithHeight x ~innerCorners self = msg_send ~self ~cmd:(selector "layoutInputBackdropToSplitWithHeight:innerCorners:") ~typ:(double @-> ullong @-> returning (void)) x (ULLong.of_int innerCorners) -let layoutInputBackdropToSplitWithLeftViewRect x ~andRightViewRect ~innerCorners self = msg_send ~self ~cmd:(selector "layoutInputBackdropToSplitWithLeftViewRect:andRightViewRect:innerCorners:") ~typ:(CGRect.t @-> CGRect.t @-> ullong @-> returning (void)) x andRightViewRect (ULLong.of_int innerCorners) -let leftWidthConstraint self = msg_send ~self ~cmd:(selector "leftWidthConstraint") ~typ:(returning (id)) -let leftWidthDiff self = msg_send ~self ~cmd:(selector "leftWidthDiff") ~typ:(returning (double)) -let prepareForSnapshotting self = msg_send ~self ~cmd:(selector "prepareForSnapshotting") ~typ:(returning (void)) -let restoreFromSnapshotting self = msg_send ~self ~cmd:(selector "restoreFromSnapshotting") ~typ:(returning (void)) -let rightWidthConstraint self = msg_send ~self ~cmd:(selector "rightWidthConstraint") ~typ:(returning (id)) -let rightWidthDiff self = msg_send ~self ~cmd:(selector "rightWidthDiff") ~typ:(returning (double)) -let setCaptureView x self = msg_send ~self ~cmd:(selector "setCaptureView:") ~typ:(id @-> returning (void)) x -let setFullWidthConstraints x self = msg_send ~self ~cmd:(selector "setFullWidthConstraints:") ~typ:(id @-> returning (void)) x -let setGestureProgressForSplit x self = msg_send ~self ~cmd:(selector "setGestureProgressForSplit:") ~typ:(double @-> returning (void)) x -let setHeightConstraint x self = msg_send ~self ~cmd:(selector "setHeightConstraint:") ~typ:(id @-> returning (void)) x -let setHeightDiff x self = msg_send ~self ~cmd:(selector "setHeightDiff:") ~typ:(double @-> returning (void)) x -let setInputBackdropFullView x self = msg_send ~self ~cmd:(selector "setInputBackdropFullView:") ~typ:(id @-> returning (void)) x -let setInputBackdropLeftView x self = msg_send ~self ~cmd:(selector "setInputBackdropLeftView:") ~typ:(id @-> returning (void)) x -let setInputBackdropRightView x self = msg_send ~self ~cmd:(selector "setInputBackdropRightView:") ~typ:(id @-> returning (void)) x -let setLeftWidthConstraint x self = msg_send ~self ~cmd:(selector "setLeftWidthConstraint:") ~typ:(id @-> returning (void)) x -let setLeftWidthDiff x self = msg_send ~self ~cmd:(selector "setLeftWidthDiff:") ~typ:(double @-> returning (void)) x -let setProgress x ~withFrame ~innerCorners self = msg_send ~self ~cmd:(selector "setProgress:withFrame:innerCorners:") ~typ:(double @-> CGRect.t @-> ullong @-> returning (void)) x withFrame (ULLong.of_int innerCorners) -let setRightWidthConstraint x self = msg_send ~self ~cmd:(selector "setRightWidthConstraint:") ~typ:(id @-> returning (void)) x -let setRightWidthDiff x self = msg_send ~self ~cmd:(selector "setRightWidthDiff:") ~typ:(double @-> returning (void)) x -let setSplitConstraints x self = msg_send ~self ~cmd:(selector "setSplitConstraints:") ~typ:(id @-> returning (void)) x -let setTallHeight x self = msg_send ~self ~cmd:(selector "setTallHeight:") ~typ:(double @-> returning (void)) x -let splitConstraints self = msg_send ~self ~cmd:(selector "splitConstraints") ~typ:(returning (id)) -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (llong)) -let tallHeight self = msg_send ~self ~cmd:(selector "tallHeight") ~typ:(returning (double)) -let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning (int)) -let transitionToStyle x ~isSplit self = msg_send ~self ~cmd:(selector "transitionToStyle:isSplit:") ~typ:(llong @-> bool @-> returning (void)) (LLong.of_int x) isSplit \ No newline at end of file +let captureView self = msg_send ~self ~cmd:(selector "captureView") ~typ:(returning id) +let createSplitBackdropIfNeeded self = msg_send ~self ~cmd:(selector "createSplitBackdropIfNeeded") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let fullWidthConstraints self = msg_send ~self ~cmd:(selector "fullWidthConstraints") ~typ:(returning id) +let heightConstraint self = msg_send ~self ~cmd:(selector "heightConstraint") ~typ:(returning id) +let heightDiff self = msg_send ~self ~cmd:(selector "heightDiff") ~typ:(returning double) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let inputBackdropFullView self = msg_send ~self ~cmd:(selector "inputBackdropFullView") ~typ:(returning id) +let inputBackdropLeftView self = msg_send ~self ~cmd:(selector "inputBackdropLeftView") ~typ:(returning id) +let inputBackdropRightView self = msg_send ~self ~cmd:(selector "inputBackdropRightView") ~typ:(returning id) +let layoutInputBackdropToFullWithRect x self = msg_send ~self ~cmd:(selector "layoutInputBackdropToFullWithRect:") ~typ:(CGRect.t @-> returning void) x +let layoutInputBackdropToSplitWithHeight x ~innerCorners self = msg_send ~self ~cmd:(selector "layoutInputBackdropToSplitWithHeight:innerCorners:") ~typ:(double @-> ullong @-> returning void) x (ULLong.of_int innerCorners) +let layoutInputBackdropToSplitWithLeftViewRect x ~andRightViewRect ~innerCorners self = msg_send ~self ~cmd:(selector "layoutInputBackdropToSplitWithLeftViewRect:andRightViewRect:innerCorners:") ~typ:(CGRect.t @-> CGRect.t @-> ullong @-> returning void) x andRightViewRect (ULLong.of_int innerCorners) +let leftWidthConstraint self = msg_send ~self ~cmd:(selector "leftWidthConstraint") ~typ:(returning id) +let leftWidthDiff self = msg_send ~self ~cmd:(selector "leftWidthDiff") ~typ:(returning double) +let prepareForSnapshotting self = msg_send ~self ~cmd:(selector "prepareForSnapshotting") ~typ:(returning void) +let restoreFromSnapshotting self = msg_send ~self ~cmd:(selector "restoreFromSnapshotting") ~typ:(returning void) +let rightWidthConstraint self = msg_send ~self ~cmd:(selector "rightWidthConstraint") ~typ:(returning id) +let rightWidthDiff self = msg_send ~self ~cmd:(selector "rightWidthDiff") ~typ:(returning double) +let setCaptureView x self = msg_send ~self ~cmd:(selector "setCaptureView:") ~typ:(id @-> returning void) x +let setFullWidthConstraints x self = msg_send ~self ~cmd:(selector "setFullWidthConstraints:") ~typ:(id @-> returning void) x +let setGestureProgressForSplit x self = msg_send ~self ~cmd:(selector "setGestureProgressForSplit:") ~typ:(double @-> returning void) x +let setHeightConstraint x self = msg_send ~self ~cmd:(selector "setHeightConstraint:") ~typ:(id @-> returning void) x +let setHeightDiff x self = msg_send ~self ~cmd:(selector "setHeightDiff:") ~typ:(double @-> returning void) x +let setInputBackdropFullView x self = msg_send ~self ~cmd:(selector "setInputBackdropFullView:") ~typ:(id @-> returning void) x +let setInputBackdropLeftView x self = msg_send ~self ~cmd:(selector "setInputBackdropLeftView:") ~typ:(id @-> returning void) x +let setInputBackdropRightView x self = msg_send ~self ~cmd:(selector "setInputBackdropRightView:") ~typ:(id @-> returning void) x +let setLeftWidthConstraint x self = msg_send ~self ~cmd:(selector "setLeftWidthConstraint:") ~typ:(id @-> returning void) x +let setLeftWidthDiff x self = msg_send ~self ~cmd:(selector "setLeftWidthDiff:") ~typ:(double @-> returning void) x +let setProgress x ~withFrame ~innerCorners self = msg_send ~self ~cmd:(selector "setProgress:withFrame:innerCorners:") ~typ:(double @-> CGRect.t @-> ullong @-> returning void) x withFrame (ULLong.of_int innerCorners) +let setRightWidthConstraint x self = msg_send ~self ~cmd:(selector "setRightWidthConstraint:") ~typ:(id @-> returning void) x +let setRightWidthDiff x self = msg_send ~self ~cmd:(selector "setRightWidthDiff:") ~typ:(double @-> returning void) x +let setSplitConstraints x self = msg_send ~self ~cmd:(selector "setSplitConstraints:") ~typ:(id @-> returning void) x +let setTallHeight x self = msg_send ~self ~cmd:(selector "setTallHeight:") ~typ:(double @-> returning void) x +let splitConstraints self = msg_send ~self ~cmd:(selector "splitConstraints") ~typ:(returning id) +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let tallHeight self = msg_send ~self ~cmd:(selector "tallHeight") ~typ:(returning double) +let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning int) +let transitionToStyle x ~isSplit self = msg_send ~self ~cmd:(selector "transitionToStyle:isSplit:") ~typ:(llong @-> bool @-> returning void) (LLong.of_int x) isSplit \ No newline at end of file diff --git a/uikit_extra/UIKBInputBackdropViewClass.ml b/uikit_extra/UIKBInputBackdropViewClass.ml new file mode 100644 index 00000000..6396e6b4 --- /dev/null +++ b/uikit_extra/UIKBInputBackdropViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbinputbackdropview?language=objc}UIKBInputBackdropView} *) + +let requiresConstraintBasedLayout self = msg_send ~self ~cmd:(selector "requiresConstraintBasedLayout") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKBInputDelegateManager.ml b/uikit_extra/UIKBInputDelegateManager.ml index f92dbaad..6f7523f2 100644 --- a/uikit_extra/UIKBInputDelegateManager.ml +++ b/uikit_extra/UIKBInputDelegateManager.ml @@ -5,82 +5,82 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBInputDelegateManager" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbinputdelegatemanager?language=objc}UIKBInputDelegateManager} *) -module C = struct - let rangeForTextRange x ~document self = msg_send_stret ~self ~cmd:(selector "rangeForTextRange:document:") ~typ:(id @-> id @-> returning (NSRange.t)) ~return_type:NSRange.t x document -end +let self = get_class "UIKBInputDelegateManager" -let applyAutocorrection x ~toString ~withCompletionHandler self = msg_send ~self ~cmd:(selector "applyAutocorrection:toString:withCompletionHandler:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x toString withCompletionHandler -let asynchronousInputDelegate self = msg_send ~self ~cmd:(selector "asynchronousInputDelegate") ~typ:(returning (id)) -let attributedMarkedText self = msg_send ~self ~cmd:(selector "attributedMarkedText") ~typ:(returning (id)) -let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int inDirection) -let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning (id)) -let callShouldReplaceExtendedRange x ~withText ~includeMarkedText self = msg_send ~self ~cmd:(selector "callShouldReplaceExtendedRange:withText:includeMarkedText:") ~typ:(llong @-> id @-> bool @-> returning (bool)) (LLong.of_int x) withText includeMarkedText -let changedSelection self = msg_send ~self ~cmd:(selector "changedSelection") ~typ:(returning (void)) -let clearDelegate self = msg_send ~self ~cmd:(selector "clearDelegate") ~typ:(returning (void)) -let clearForwardingInputDelegateAndResign x self = msg_send ~self ~cmd:(selector "clearForwardingInputDelegateAndResign:") ~typ:(bool @-> returning (void)) x -let collapseSelectionAndAdjustByOffset x self = msg_send ~self ~cmd:(selector "collapseSelectionAndAdjustByOffset:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning (llong)) x toPosition -let continuousSpellCheckingEnabled self = msg_send ~self ~cmd:(selector "continuousSpellCheckingEnabled") ~typ:(returning (bool)) -let delegateAdoptsWebTextInputPrivate self = msg_send ~self ~cmd:(selector "delegateAdoptsWebTextInputPrivate") ~typ:(returning (bool)) -let delegateAsResponder self = msg_send ~self ~cmd:(selector "delegateAsResponder") ~typ:(returning (id)) -let delegateRespectingForwardingDelegate x self = msg_send ~self ~cmd:(selector "delegateRespectingForwardingDelegate:") ~typ:(bool @-> returning (id)) x -let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning (void)) -let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning (id)) -let forwardingInputDelegate self = msg_send ~self ~cmd:(selector "forwardingInputDelegate") ~typ:(returning (id)) -let handleClearWithInsertBeforeAdvance x self = msg_send ~self ~cmd:(selector "handleClearWithInsertBeforeAdvance:") ~typ:(id @-> returning (void)) x -let handleKeyWebEvent x self = msg_send ~self ~cmd:(selector "handleKeyWebEvent:") ~typ:(id @-> returning (void)) x -let handleKeyWebEvent' x ~withCompletionHandler self = msg_send ~self ~cmd:(selector "handleKeyWebEvent:withCompletionHandler:") ~typ:(id @-> ptr void @-> returning (void)) x withCompletionHandler -let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let inputSystemSourceSession self = msg_send ~self ~cmd:(selector "inputSystemSourceSession") ~typ:(returning (id)) -let insertAttributedText x self = msg_send ~self ~cmd:(selector "insertAttributedText:") ~typ:(id @-> returning (void)) x -let insertSupplementalItem x ~candidate ~replacementRange self = msg_send ~self ~cmd:(selector "insertSupplementalItem:candidate:replacementRange:") ~typ:(id @-> id @-> id @-> returning (bool)) x candidate replacementRange -let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning (void)) x -let insertText1 x ~updateInputSource self = msg_send ~self ~cmd:(selector "insertText:updateInputSource:") ~typ:(id @-> bool @-> returning (void)) x updateInputSource -let insertText2 x ~alternatives ~style self = msg_send ~self ~cmd:(selector "insertText:alternatives:style:") ~typ:(id @-> id @-> llong @-> returning (void)) x alternatives (LLong.of_int style) -let insertTextAfterSelection x self = msg_send ~self ~cmd:(selector "insertTextAfterSelection:") ~typ:(id @-> returning (void)) x -let insertTextSuggestion x self = msg_send ~self ~cmd:(selector "insertTextSuggestion:") ~typ:(id @-> returning (void)) x -let insideKeyInputDelegateCall self = msg_send ~self ~cmd:(selector "insideKeyInputDelegateCall") ~typ:(returning (bool)) -let keyInputDelegate self = msg_send ~self ~cmd:(selector "keyInputDelegate") ~typ:(returning (id)) -let keyboardStateDelegate self = msg_send ~self ~cmd:(selector "keyboardStateDelegate") ~typ:(returning (id)) -let legacyInputDelegate self = msg_send ~self ~cmd:(selector "legacyInputDelegate") ~typ:(returning (id)) -let markedText self = msg_send ~self ~cmd:(selector "markedText") ~typ:(returning (id)) -let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning (id)) -let moveSelectionToEndOfWord self = msg_send ~self ~cmd:(selector "moveSelectionToEndOfWord") ~typ:(returning (void)) -let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int offset) -let privateInputDelegate self = msg_send ~self ~cmd:(selector "privateInputDelegate") ~typ:(returning (id)) -let privateKeyInputDelegate self = msg_send ~self ~cmd:(selector "privateKeyInputDelegate") ~typ:(returning (id)) -let replaceRange x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning (void)) x withText -let replaceRange' x ~withText ~forKeyboardAction self = msg_send ~self ~cmd:(selector "replaceRange:withText:forKeyboardAction:") ~typ:(id @-> id @-> int @-> returning (void)) x withText forKeyboardAction -let requiresKeyEvents self = msg_send ~self ~cmd:(selector "requiresKeyEvents") ~typ:(returning (bool)) -let selectableDelegate self = msg_send ~self ~cmd:(selector "selectableDelegate") ~typ:(returning (id)) -let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning (id)) -let selectionIsEndOfWord self = msg_send ~self ~cmd:(selector "selectionIsEndOfWord") ~typ:(returning (bool)) -let selectionIsWord self = msg_send ~self ~cmd:(selector "selectionIsWord") ~typ:(returning (bool)) -let setAttributedMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setAttributedMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning (void)) x selectedRange -let setBaseWritingDirection x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) forRange -let setContinuousSpellCheckingEnabled x self = msg_send ~self ~cmd:(selector "setContinuousSpellCheckingEnabled:") ~typ:(bool @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setForwardingInputDelegate x self = msg_send ~self ~cmd:(selector "setForwardingInputDelegate:") ~typ:(id @-> returning (void)) x -let setInsideKeyInputDelegateCall x self = msg_send ~self ~cmd:(selector "setInsideKeyInputDelegateCall:") ~typ:(bool @-> returning (void)) x -let setKeyInputDelegate x self = msg_send ~self ~cmd:(selector "setKeyInputDelegate:") ~typ:(id @-> returning (void)) x -let setKeyboardStateDelegate x self = msg_send ~self ~cmd:(selector "setKeyboardStateDelegate:") ~typ:(id @-> returning (void)) x -let setSelectableDelegate x self = msg_send ~self ~cmd:(selector "setSelectableDelegate:") ~typ:(id @-> returning (void)) x -let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning (void)) x -let setShouldRespectForwardingInputDelegate x self = msg_send ~self ~cmd:(selector "setShouldRespectForwardingInputDelegate:") ~typ:(bool @-> returning (void)) x -let setupResponderChangeListeners self = msg_send ~self ~cmd:(selector "setupResponderChangeListeners") ~typ:(returning (void)) -let shouldDeleteForward self = msg_send ~self ~cmd:(selector "shouldDeleteForward") ~typ:(returning (bool)) -let shouldRespectForwardingInputDelegate self = msg_send ~self ~cmd:(selector "shouldRespectForwardingInputDelegate") ~typ:(returning (bool)) -let shouldSuppressUpdateCandidateView self = msg_send ~self ~cmd:(selector "shouldSuppressUpdateCandidateView") ~typ:(returning (bool)) -let storeDelegateConformance self = msg_send ~self ~cmd:(selector "storeDelegateConformance") ~typ:(returning (void)) -let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning (id)) x -let textInputDelegate self = msg_send ~self ~cmd:(selector "textInputDelegate") ~typ:(returning (id)) -let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning (id)) -let textInteractionAssistant self = msg_send ~self ~cmd:(selector "textInteractionAssistant") ~typ:(returning (id)) -let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning (id)) x toPosition -let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning (void)) -let unmarkText' x self = msg_send ~self ~cmd:(selector "unmarkText:") ~typ:(id @-> returning (void)) x -let updateSelectableInputDelegateIfNecessary self = msg_send ~self ~cmd:(selector "updateSelectableInputDelegateIfNecessary") ~typ:(returning (void)) \ No newline at end of file +let applyAutocorrection x ~toString ~withCompletionHandler self = msg_send ~self ~cmd:(selector "applyAutocorrection:toString:withCompletionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x toString withCompletionHandler +let asynchronousInputDelegate self = msg_send ~self ~cmd:(selector "asynchronousInputDelegate") ~typ:(returning id) +let attributedMarkedText self = msg_send ~self ~cmd:(selector "attributedMarkedText") ~typ:(returning id) +let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int inDirection) +let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning id) +let callShouldReplaceExtendedRange x ~withText ~includeMarkedText self = msg_send ~self ~cmd:(selector "callShouldReplaceExtendedRange:withText:includeMarkedText:") ~typ:(llong @-> id @-> bool @-> returning bool) (LLong.of_int x) withText includeMarkedText +let changedSelection self = msg_send ~self ~cmd:(selector "changedSelection") ~typ:(returning void) +let clearDelegate self = msg_send ~self ~cmd:(selector "clearDelegate") ~typ:(returning void) +let clearForwardingInputDelegateAndResign x self = msg_send ~self ~cmd:(selector "clearForwardingInputDelegateAndResign:") ~typ:(bool @-> returning void) x +let collapseSelectionAndAdjustByOffset x self = msg_send ~self ~cmd:(selector "collapseSelectionAndAdjustByOffset:") ~typ:(llong @-> returning void) (LLong.of_int x) +let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning llong) x toPosition +let continuousSpellCheckingEnabled self = msg_send ~self ~cmd:(selector "continuousSpellCheckingEnabled") ~typ:(returning bool) +let delegateAdoptsWebTextInputPrivate self = msg_send ~self ~cmd:(selector "delegateAdoptsWebTextInputPrivate") ~typ:(returning bool) +let delegateAsResponder self = msg_send ~self ~cmd:(selector "delegateAsResponder") ~typ:(returning id) +let delegateRespectingForwardingDelegate x self = msg_send ~self ~cmd:(selector "delegateRespectingForwardingDelegate:") ~typ:(bool @-> returning id) x +let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning void) +let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning id) +let forwardingInputDelegate self = msg_send ~self ~cmd:(selector "forwardingInputDelegate") ~typ:(returning id) +let handleClearWithInsertBeforeAdvance x self = msg_send ~self ~cmd:(selector "handleClearWithInsertBeforeAdvance:") ~typ:(id @-> returning void) x +let handleKeyWebEvent x self = msg_send ~self ~cmd:(selector "handleKeyWebEvent:") ~typ:(id @-> returning void) x +let handleKeyWebEvent' x ~withCompletionHandler self = msg_send ~self ~cmd:(selector "handleKeyWebEvent:withCompletionHandler:") ~typ:(id @-> (ptr void) @-> returning void) x withCompletionHandler +let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let inputSystemSourceSession self = msg_send ~self ~cmd:(selector "inputSystemSourceSession") ~typ:(returning id) +let insertAttributedText x self = msg_send ~self ~cmd:(selector "insertAttributedText:") ~typ:(id @-> returning void) x +let insertSupplementalItem x ~candidate ~replacementRange self = msg_send ~self ~cmd:(selector "insertSupplementalItem:candidate:replacementRange:") ~typ:(id @-> id @-> id @-> returning bool) x candidate replacementRange +let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning void) x +let insertText1 x ~updateInputSource self = msg_send ~self ~cmd:(selector "insertText:updateInputSource:") ~typ:(id @-> bool @-> returning void) x updateInputSource +let insertText2 x ~alternatives ~style self = msg_send ~self ~cmd:(selector "insertText:alternatives:style:") ~typ:(id @-> id @-> llong @-> returning void) x alternatives (LLong.of_int style) +let insertTextAfterSelection x self = msg_send ~self ~cmd:(selector "insertTextAfterSelection:") ~typ:(id @-> returning void) x +let insertTextSuggestion x self = msg_send ~self ~cmd:(selector "insertTextSuggestion:") ~typ:(id @-> returning void) x +let insideKeyInputDelegateCall self = msg_send ~self ~cmd:(selector "insideKeyInputDelegateCall") ~typ:(returning bool) +let keyInputDelegate self = msg_send ~self ~cmd:(selector "keyInputDelegate") ~typ:(returning id) +let keyboardStateDelegate self = msg_send ~self ~cmd:(selector "keyboardStateDelegate") ~typ:(returning id) +let legacyInputDelegate self = msg_send ~self ~cmd:(selector "legacyInputDelegate") ~typ:(returning id) +let markedText self = msg_send ~self ~cmd:(selector "markedText") ~typ:(returning id) +let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning id) +let moveSelectionToEndOfWord self = msg_send ~self ~cmd:(selector "moveSelectionToEndOfWord") ~typ:(returning void) +let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int offset) +let privateInputDelegate self = msg_send ~self ~cmd:(selector "privateInputDelegate") ~typ:(returning id) +let privateKeyInputDelegate self = msg_send ~self ~cmd:(selector "privateKeyInputDelegate") ~typ:(returning id) +let replaceRange x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning void) x withText +let replaceRange' x ~withText ~forKeyboardAction self = msg_send ~self ~cmd:(selector "replaceRange:withText:forKeyboardAction:") ~typ:(id @-> id @-> int @-> returning void) x withText forKeyboardAction +let requiresKeyEvents self = msg_send ~self ~cmd:(selector "requiresKeyEvents") ~typ:(returning bool) +let selectableDelegate self = msg_send ~self ~cmd:(selector "selectableDelegate") ~typ:(returning id) +let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning id) +let selectionIsEndOfWord self = msg_send ~self ~cmd:(selector "selectionIsEndOfWord") ~typ:(returning bool) +let selectionIsWord self = msg_send ~self ~cmd:(selector "selectionIsWord") ~typ:(returning bool) +let setAttributedMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setAttributedMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning void) x selectedRange +let setBaseWritingDirection x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) forRange +let setContinuousSpellCheckingEnabled x self = msg_send ~self ~cmd:(selector "setContinuousSpellCheckingEnabled:") ~typ:(bool @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setForwardingInputDelegate x self = msg_send ~self ~cmd:(selector "setForwardingInputDelegate:") ~typ:(id @-> returning void) x +let setInsideKeyInputDelegateCall x self = msg_send ~self ~cmd:(selector "setInsideKeyInputDelegateCall:") ~typ:(bool @-> returning void) x +let setKeyInputDelegate x self = msg_send ~self ~cmd:(selector "setKeyInputDelegate:") ~typ:(id @-> returning void) x +let setKeyboardStateDelegate x self = msg_send ~self ~cmd:(selector "setKeyboardStateDelegate:") ~typ:(id @-> returning void) x +let setSelectableDelegate x self = msg_send ~self ~cmd:(selector "setSelectableDelegate:") ~typ:(id @-> returning void) x +let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning void) x +let setShouldRespectForwardingInputDelegate x self = msg_send ~self ~cmd:(selector "setShouldRespectForwardingInputDelegate:") ~typ:(bool @-> returning void) x +let setupResponderChangeListeners self = msg_send ~self ~cmd:(selector "setupResponderChangeListeners") ~typ:(returning void) +let shouldDeleteForward self = msg_send ~self ~cmd:(selector "shouldDeleteForward") ~typ:(returning bool) +let shouldRespectForwardingInputDelegate self = msg_send ~self ~cmd:(selector "shouldRespectForwardingInputDelegate") ~typ:(returning bool) +let shouldSuppressUpdateCandidateView self = msg_send ~self ~cmd:(selector "shouldSuppressUpdateCandidateView") ~typ:(returning bool) +let storeDelegateConformance self = msg_send ~self ~cmd:(selector "storeDelegateConformance") ~typ:(returning void) +let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning id) x +let textInputDelegate self = msg_send ~self ~cmd:(selector "textInputDelegate") ~typ:(returning id) +let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning id) +let textInteractionAssistant self = msg_send ~self ~cmd:(selector "textInteractionAssistant") ~typ:(returning id) +let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning id) x toPosition +let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning void) +let unmarkText' x self = msg_send ~self ~cmd:(selector "unmarkText:") ~typ:(id @-> returning void) x +let updateSelectableInputDelegateIfNecessary self = msg_send ~self ~cmd:(selector "updateSelectableInputDelegateIfNecessary") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKBInputDelegateManagerClass.ml b/uikit_extra/UIKBInputDelegateManagerClass.ml new file mode 100644 index 00000000..1ffb477f --- /dev/null +++ b/uikit_extra/UIKBInputDelegateManagerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbinputdelegatemanager?language=objc}UIKBInputDelegateManager} *) + +let rangeForTextRange x ~document self = msg_send ~self ~cmd:(selector "rangeForTextRange:document:") ~typ:(id @-> id @-> returning NSRange.t) x document \ No newline at end of file diff --git a/uikit_extra/UIKBKeyDisplayContents.ml b/uikit_extra/UIKBKeyDisplayContents.ml index cbbbfb89..dc53ae66 100644 --- a/uikit_extra/UIKBKeyDisplayContents.ml +++ b/uikit_extra/UIKBKeyDisplayContents.ml @@ -5,40 +5,40 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBKeyDisplayContents" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbkeydisplaycontents?language=objc}UIKBKeyDisplayContents} *) -module C = struct - let displayContents self = msg_send ~self ~cmd:(selector "displayContents") ~typ:(returning (id)) -end +let self = get_class "UIKBKeyDisplayContents" -let bundlePathOverride self = msg_send ~self ~cmd:(selector "bundlePathOverride") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let displayPathType self = msg_send ~self ~cmd:(selector "displayPathType") ~typ:(returning (llong)) -let displayString self = msg_send ~self ~cmd:(selector "displayString") ~typ:(returning (id)) -let displayStringImage self = msg_send ~self ~cmd:(selector "displayStringImage") ~typ:(returning (id)) -let fallbackContents self = msg_send ~self ~cmd:(selector "fallbackContents") ~typ:(returning (id)) -let fillPath self = msg_send ~self ~cmd:(selector "fillPath") ~typ:(returning (bool)) -let flipImageHorizontally self = msg_send ~self ~cmd:(selector "flipImageHorizontally") ~typ:(returning (bool)) -let force1xImages self = msg_send ~self ~cmd:(selector "force1xImages") ~typ:(returning (bool)) -let forceImageKeycap self = msg_send ~self ~cmd:(selector "forceImageKeycap") ~typ:(returning (bool)) -let highlightedVariantsList self = msg_send ~self ~cmd:(selector "highlightedVariantsList") ~typ:(returning (id)) -let secondaryDisplayStringImages self = msg_send ~self ~cmd:(selector "secondaryDisplayStringImages") ~typ:(returning (id)) -let secondaryDisplayStrings self = msg_send ~self ~cmd:(selector "secondaryDisplayStrings") ~typ:(returning (id)) -let setBundlePathOverride x self = msg_send ~self ~cmd:(selector "setBundlePathOverride:") ~typ:(id @-> returning (void)) x -let setDisplayPathType x self = msg_send ~self ~cmd:(selector "setDisplayPathType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setDisplayString x self = msg_send ~self ~cmd:(selector "setDisplayString:") ~typ:(id @-> returning (void)) x -let setDisplayStringImage x self = msg_send ~self ~cmd:(selector "setDisplayStringImage:") ~typ:(id @-> returning (void)) x -let setFallbackContents x self = msg_send ~self ~cmd:(selector "setFallbackContents:") ~typ:(id @-> returning (void)) x -let setFillPath x self = msg_send ~self ~cmd:(selector "setFillPath:") ~typ:(bool @-> returning (void)) x -let setFlipImageHorizontally x self = msg_send ~self ~cmd:(selector "setFlipImageHorizontally:") ~typ:(bool @-> returning (void)) x -let setForce1xImages x self = msg_send ~self ~cmd:(selector "setForce1xImages:") ~typ:(bool @-> returning (void)) x -let setForceImageKeycap x self = msg_send ~self ~cmd:(selector "setForceImageKeycap:") ~typ:(bool @-> returning (void)) x -let setHighlightedVariantsList x self = msg_send ~self ~cmd:(selector "setHighlightedVariantsList:") ~typ:(id @-> returning (void)) x -let setSecondaryDisplayStringImages x self = msg_send ~self ~cmd:(selector "setSecondaryDisplayStringImages:") ~typ:(id @-> returning (void)) x -let setSecondaryDisplayStrings x self = msg_send ~self ~cmd:(selector "setSecondaryDisplayStrings:") ~typ:(id @-> returning (void)) x -let setStringKeycapOverImage x self = msg_send ~self ~cmd:(selector "setStringKeycapOverImage:") ~typ:(bool @-> returning (void)) x -let setVariantDisplayContents x self = msg_send ~self ~cmd:(selector "setVariantDisplayContents:") ~typ:(id @-> returning (void)) x -let stringKeycapOverImage self = msg_send ~self ~cmd:(selector "stringKeycapOverImage") ~typ:(returning (bool)) -let variantDisplayContents self = msg_send ~self ~cmd:(selector "variantDisplayContents") ~typ:(returning (id)) \ No newline at end of file +let bundlePathOverride self = msg_send ~self ~cmd:(selector "bundlePathOverride") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let displayPathType self = msg_send ~self ~cmd:(selector "displayPathType") ~typ:(returning llong) +let displayString self = msg_send ~self ~cmd:(selector "displayString") ~typ:(returning id) +let displayStringImage self = msg_send ~self ~cmd:(selector "displayStringImage") ~typ:(returning id) +let fallbackContents self = msg_send ~self ~cmd:(selector "fallbackContents") ~typ:(returning id) +let fillPath self = msg_send ~self ~cmd:(selector "fillPath") ~typ:(returning bool) +let flipImageHorizontally self = msg_send ~self ~cmd:(selector "flipImageHorizontally") ~typ:(returning bool) +let force1xImages self = msg_send ~self ~cmd:(selector "force1xImages") ~typ:(returning bool) +let forceImageKeycap self = msg_send ~self ~cmd:(selector "forceImageKeycap") ~typ:(returning bool) +let highlightedVariantsList self = msg_send ~self ~cmd:(selector "highlightedVariantsList") ~typ:(returning id) +let secondaryDisplayStringImages self = msg_send ~self ~cmd:(selector "secondaryDisplayStringImages") ~typ:(returning id) +let secondaryDisplayStrings self = msg_send ~self ~cmd:(selector "secondaryDisplayStrings") ~typ:(returning id) +let setBundlePathOverride x self = msg_send ~self ~cmd:(selector "setBundlePathOverride:") ~typ:(id @-> returning void) x +let setDisplayPathType x self = msg_send ~self ~cmd:(selector "setDisplayPathType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setDisplayString x self = msg_send ~self ~cmd:(selector "setDisplayString:") ~typ:(id @-> returning void) x +let setDisplayStringImage x self = msg_send ~self ~cmd:(selector "setDisplayStringImage:") ~typ:(id @-> returning void) x +let setFallbackContents x self = msg_send ~self ~cmd:(selector "setFallbackContents:") ~typ:(id @-> returning void) x +let setFillPath x self = msg_send ~self ~cmd:(selector "setFillPath:") ~typ:(bool @-> returning void) x +let setFlipImageHorizontally x self = msg_send ~self ~cmd:(selector "setFlipImageHorizontally:") ~typ:(bool @-> returning void) x +let setForce1xImages x self = msg_send ~self ~cmd:(selector "setForce1xImages:") ~typ:(bool @-> returning void) x +let setForceImageKeycap x self = msg_send ~self ~cmd:(selector "setForceImageKeycap:") ~typ:(bool @-> returning void) x +let setHighlightedVariantsList x self = msg_send ~self ~cmd:(selector "setHighlightedVariantsList:") ~typ:(id @-> returning void) x +let setSecondaryDisplayStringImages x self = msg_send ~self ~cmd:(selector "setSecondaryDisplayStringImages:") ~typ:(id @-> returning void) x +let setSecondaryDisplayStrings x self = msg_send ~self ~cmd:(selector "setSecondaryDisplayStrings:") ~typ:(id @-> returning void) x +let setStringKeycapOverImage x self = msg_send ~self ~cmd:(selector "setStringKeycapOverImage:") ~typ:(bool @-> returning void) x +let setVariantDisplayContents x self = msg_send ~self ~cmd:(selector "setVariantDisplayContents:") ~typ:(id @-> returning void) x +let stringKeycapOverImage self = msg_send ~self ~cmd:(selector "stringKeycapOverImage") ~typ:(returning bool) +let variantDisplayContents self = msg_send ~self ~cmd:(selector "variantDisplayContents") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBKeyDisplayContentsClass.ml b/uikit_extra/UIKBKeyDisplayContentsClass.ml new file mode 100644 index 00000000..aac46dd6 --- /dev/null +++ b/uikit_extra/UIKBKeyDisplayContentsClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbkeydisplaycontents?language=objc}UIKBKeyDisplayContents} *) + +let displayContents self = msg_send ~self ~cmd:(selector "displayContents") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBKeyView.ml b/uikit_extra/UIKBKeyView.ml index 7cb90792..7f170c1e 100644 --- a/uikit_extra/UIKBKeyView.ml +++ b/uikit_extra/UIKBKeyView.ml @@ -5,70 +5,71 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBKeyView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbkeyview?language=objc}UIKBKeyView} *) -module C = struct - let wantsScreenTraits self = msg_send ~self ~cmd:(selector "wantsScreenTraits") ~typ:(returning (bool)) -end +let self = get_class "UIKBKeyView" -let allowBackgroundCachingForRenderFlags x self = msg_send ~self ~cmd:(selector "allowBackgroundCachingForRenderFlags:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning (llong)) -let cacheDeferable self = msg_send ~self ~cmd:(selector "cacheDeferable") ~typ:(returning (bool)) -let cacheKey self = msg_send ~self ~cmd:(selector "cacheKey") ~typ:(returning (id)) -let cacheKeysForRenderFlags x self = msg_send ~self ~cmd:(selector "cacheKeysForRenderFlags:") ~typ:(id @-> returning (id)) x -let cachedAnchorCorner self = msg_send ~self ~cmd:(selector "cachedAnchorCorner") ~typ:(returning (ullong)) -let cachedControlKeyRenderingPreference self = msg_send ~self ~cmd:(selector "cachedControlKeyRenderingPreference") ~typ:(returning (bool)) -let cachedRenderFlags self = msg_send ~self ~cmd:(selector "cachedRenderFlags") ~typ:(returning (llong)) -let cachedSelector self = msg_send ~self ~cmd:(selector "cachedSelector") ~typ:(returning (llong)) -let cachedShiftState self = msg_send ~self ~cmd:(selector "cachedShiftState") ~typ:(returning (ullong)) -let cachedTraitsHashString self = msg_send ~self ~cmd:(selector "cachedTraitsHashString") ~typ:(returning (id)) -let cachedWidth self = msg_send ~self ~cmd:(selector "cachedWidth") ~typ:(returning (double)) -let changeBackgroundToActiveIfNecessary self = msg_send ~self ~cmd:(selector "changeBackgroundToActiveIfNecessary") ~typ:(returning (void)) -let changeBackgroundToEnabled self = msg_send ~self ~cmd:(selector "changeBackgroundToEnabled") ~typ:(returning (void)) -let configureBackdropView x ~forRenderConfig self = msg_send ~self ~cmd:(selector "configureBackdropView:forRenderConfig:") ~typ:(id @-> id @-> returning (void)) x forRenderConfig -let contentsKeyView self = msg_send ~self ~cmd:(selector "contentsKeyView") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didInputSubTree x self = msg_send ~self ~cmd:(selector "didInputSubTree:") ~typ:(id @-> returning (llong)) x -let dimKeys x self = msg_send ~self ~cmd:(selector "dimKeys:") ~typ:(id @-> returning (void)) x -let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning (void)) x -let drawContentsOfRenderers x self = msg_send ~self ~cmd:(selector "drawContentsOfRenderers:") ~typ:(id @-> returning (void)) x -let drawFrame self = msg_send_stret ~self ~cmd:(selector "drawFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let endingTransitionDuration self = msg_send ~self ~cmd:(selector "endingTransitionDuration") ~typ:(returning (double)) -let factory self = msg_send ~self ~cmd:(selector "factory") ~typ:(returning (id)) -let focusableVariantCount self = msg_send ~self ~cmd:(selector "focusableVariantCount") ~typ:(returning (ullong)) -let hasRendered self = msg_send ~self ~cmd:(selector "hasRendered") ~typ:(returning (bool)) -let hideKeyCap x self = msg_send ~self ~cmd:(selector "hideKeyCap:") ~typ:(bool @-> returning (void)) x -let imageOrientationForLayer x self = msg_send ~self ~cmd:(selector "imageOrientationForLayer:") ~typ:(id @-> returning (llong)) x -let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning (id)) x keyplane key -let initWithFrame' x ~keyplane ~key ~screenTraits self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:screenTraits:") ~typ:(CGRect.t @-> id @-> id @-> id @-> returning (id)) x keyplane key screenTraits -let keepNonPersistent self = msg_send ~self ~cmd:(selector "keepNonPersistent") ~typ:(returning (bool)) -let key self = msg_send ~self ~cmd:(selector "key") ~typ:(returning (id)) -let keyplane self = msg_send ~self ~cmd:(selector "keyplane") ~typ:(returning (id)) -let layerForRenderFlags x self = msg_send ~self ~cmd:(selector "layerForRenderFlags:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let popupMenu self = msg_send ~self ~cmd:(selector "popupMenu") ~typ:(returning (id)) -let prepareForDisplay self = msg_send ~self ~cmd:(selector "prepareForDisplay") ~typ:(returning (void)) -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let renderAsMask self = msg_send ~self ~cmd:(selector "renderAsMask") ~typ:(returning (bool)) -let renderConfig self = msg_send ~self ~cmd:(selector "renderConfig") ~typ:(returning (id)) -let renderFlagsForTraits x self = msg_send ~self ~cmd:(selector "renderFlagsForTraits:") ~typ:(id @-> returning (id)) x -let requiresSublayers self = msg_send ~self ~cmd:(selector "requiresSublayers") ~typ:(returning (bool)) -let screenTraits self = msg_send ~self ~cmd:(selector "screenTraits") ~typ:(returning (id)) -let setCachedAnchorCorner x self = msg_send ~self ~cmd:(selector "setCachedAnchorCorner:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setCachedControlKeyRenderingPreference x self = msg_send ~self ~cmd:(selector "setCachedControlKeyRenderingPreference:") ~typ:(bool @-> returning (void)) x -let setCachedSelector x self = msg_send ~self ~cmd:(selector "setCachedSelector:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCachedShiftState x self = msg_send ~self ~cmd:(selector "setCachedShiftState:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setCachedTraitsHashString x self = msg_send ~self ~cmd:(selector "setCachedTraitsHashString:") ~typ:(id @-> returning (void)) x -let setDrawFrame x self = msg_send ~self ~cmd:(selector "setDrawFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setEndingTransitionDuration x self = msg_send ~self ~cmd:(selector "setEndingTransitionDuration:") ~typ:(double @-> returning (void)) x -let setFactory x self = msg_send ~self ~cmd:(selector "setFactory:") ~typ:(id @-> returning (void)) x -let setPopupMenu x self = msg_send ~self ~cmd:(selector "setPopupMenu:") ~typ:(id @-> returning (void)) x -let setRenderAsMask x self = msg_send ~self ~cmd:(selector "setRenderAsMask:") ~typ:(bool @-> returning (void)) x -let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning (void)) x -let setScreenTraits x self = msg_send ~self ~cmd:(selector "setScreenTraits:") ~typ:(id @-> returning (void)) x -let subTreeHitTest x self = msg_send ~self ~cmd:(selector "subTreeHitTest:") ~typ:(CGPoint.t @-> returning (id)) x -let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning (int)) -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let updateForKeyplane x ~key self = msg_send ~self ~cmd:(selector "updateForKeyplane:key:") ~typ:(id @-> id @-> returning (void)) x key -let variantFrame self = msg_send_stret ~self ~cmd:(selector "variantFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let willDisplayModalActionView x ~withSubTreeKeyView ~completion self = msg_send ~self ~cmd:(selector "willDisplayModalActionView:withSubTreeKeyView:completion:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x withSubTreeKeyView completion \ No newline at end of file +let allowBackgroundCachingForRenderFlags x self = msg_send ~self ~cmd:(selector "allowBackgroundCachingForRenderFlags:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning llong) +let cacheDeferable self = msg_send ~self ~cmd:(selector "cacheDeferable") ~typ:(returning bool) +let cacheKey self = msg_send ~self ~cmd:(selector "cacheKey") ~typ:(returning id) +let cacheKeysForRenderFlags x self = msg_send ~self ~cmd:(selector "cacheKeysForRenderFlags:") ~typ:(id @-> returning id) x +let cachedAnchorCorner self = msg_send ~self ~cmd:(selector "cachedAnchorCorner") ~typ:(returning ullong) +let cachedControlKeyRenderingPreference self = msg_send ~self ~cmd:(selector "cachedControlKeyRenderingPreference") ~typ:(returning bool) +let cachedRenderFlags self = msg_send ~self ~cmd:(selector "cachedRenderFlags") ~typ:(returning llong) +let cachedSelector self = msg_send ~self ~cmd:(selector "cachedSelector") ~typ:(returning llong) +let cachedShiftState self = msg_send ~self ~cmd:(selector "cachedShiftState") ~typ:(returning ullong) +let cachedTraitsHashString self = msg_send ~self ~cmd:(selector "cachedTraitsHashString") ~typ:(returning id) +let cachedWidth self = msg_send ~self ~cmd:(selector "cachedWidth") ~typ:(returning double) +let changeBackgroundToActiveIfNecessary self = msg_send ~self ~cmd:(selector "changeBackgroundToActiveIfNecessary") ~typ:(returning void) +let changeBackgroundToEnabled self = msg_send ~self ~cmd:(selector "changeBackgroundToEnabled") ~typ:(returning void) +let configureBackdropView x ~forRenderConfig self = msg_send ~self ~cmd:(selector "configureBackdropView:forRenderConfig:") ~typ:(id @-> id @-> returning void) x forRenderConfig +let contentsKeyView self = msg_send ~self ~cmd:(selector "contentsKeyView") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didInputSubTree x self = msg_send ~self ~cmd:(selector "didInputSubTree:") ~typ:(id @-> returning llong) x +let dimKeys x self = msg_send ~self ~cmd:(selector "dimKeys:") ~typ:(id @-> returning void) x +let displayInsets self = msg_send ~self ~cmd:(selector "displayInsets") ~typ:(returning UIEdgeInsets.t) +let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning void) x +let drawContentsOfRenderers x self = msg_send ~self ~cmd:(selector "drawContentsOfRenderers:") ~typ:(id @-> returning void) x +let drawFrame self = msg_send ~self ~cmd:(selector "drawFrame") ~typ:(returning CGRect.t) +let endingTransitionDuration self = msg_send ~self ~cmd:(selector "endingTransitionDuration") ~typ:(returning double) +let factory self = msg_send ~self ~cmd:(selector "factory") ~typ:(returning id) +let focusableVariantCount self = msg_send ~self ~cmd:(selector "focusableVariantCount") ~typ:(returning ullong) +let hasRendered self = msg_send ~self ~cmd:(selector "hasRendered") ~typ:(returning bool) +let hideKeyCap x self = msg_send ~self ~cmd:(selector "hideKeyCap:") ~typ:(bool @-> returning void) x +let imageOrientationForLayer x self = msg_send ~self ~cmd:(selector "imageOrientationForLayer:") ~typ:(id @-> returning llong) x +let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning id) x keyplane key +let initWithFrame' x ~keyplane ~key ~screenTraits self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:screenTraits:") ~typ:(CGRect.t @-> id @-> id @-> id @-> returning id) x keyplane key screenTraits +let keepNonPersistent self = msg_send ~self ~cmd:(selector "keepNonPersistent") ~typ:(returning bool) +let key self = msg_send ~self ~cmd:(selector "key") ~typ:(returning id) +let keyplane self = msg_send ~self ~cmd:(selector "keyplane") ~typ:(returning id) +let layerForRenderFlags x self = msg_send ~self ~cmd:(selector "layerForRenderFlags:") ~typ:(llong @-> returning id) (LLong.of_int x) +let popupMenu self = msg_send ~self ~cmd:(selector "popupMenu") ~typ:(returning id) +let prepareForDisplay self = msg_send ~self ~cmd:(selector "prepareForDisplay") ~typ:(returning void) +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let renderAsMask self = msg_send ~self ~cmd:(selector "renderAsMask") ~typ:(returning bool) +let renderConfig self = msg_send ~self ~cmd:(selector "renderConfig") ~typ:(returning id) +let renderFlagsForTraits x self = msg_send ~self ~cmd:(selector "renderFlagsForTraits:") ~typ:(id @-> returning id) x +let requiresSublayers self = msg_send ~self ~cmd:(selector "requiresSublayers") ~typ:(returning bool) +let screenTraits self = msg_send ~self ~cmd:(selector "screenTraits") ~typ:(returning id) +let setCachedAnchorCorner x self = msg_send ~self ~cmd:(selector "setCachedAnchorCorner:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setCachedControlKeyRenderingPreference x self = msg_send ~self ~cmd:(selector "setCachedControlKeyRenderingPreference:") ~typ:(bool @-> returning void) x +let setCachedSelector x self = msg_send ~self ~cmd:(selector "setCachedSelector:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCachedShiftState x self = msg_send ~self ~cmd:(selector "setCachedShiftState:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setCachedTraitsHashString x self = msg_send ~self ~cmd:(selector "setCachedTraitsHashString:") ~typ:(id @-> returning void) x +let setDrawFrame x self = msg_send ~self ~cmd:(selector "setDrawFrame:") ~typ:(CGRect.t @-> returning void) x +let setEndingTransitionDuration x self = msg_send ~self ~cmd:(selector "setEndingTransitionDuration:") ~typ:(double @-> returning void) x +let setFactory x self = msg_send ~self ~cmd:(selector "setFactory:") ~typ:(id @-> returning void) x +let setPopupMenu x self = msg_send ~self ~cmd:(selector "setPopupMenu:") ~typ:(id @-> returning void) x +let setRenderAsMask x self = msg_send ~self ~cmd:(selector "setRenderAsMask:") ~typ:(bool @-> returning void) x +let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning void) x +let setScreenTraits x self = msg_send ~self ~cmd:(selector "setScreenTraits:") ~typ:(id @-> returning void) x +let subTreeHitTest x self = msg_send ~self ~cmd:(selector "subTreeHitTest:") ~typ:(CGPoint.t @-> returning id) x +let textEffectsVisibilityLevel self = msg_send ~self ~cmd:(selector "textEffectsVisibilityLevel") ~typ:(returning int) +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let updateForKeyplane x ~key self = msg_send ~self ~cmd:(selector "updateForKeyplane:key:") ~typ:(id @-> id @-> returning void) x key +let variantFrame self = msg_send ~self ~cmd:(selector "variantFrame") ~typ:(returning CGRect.t) +let willDisplayModalActionView x ~withSubTreeKeyView ~completion self = msg_send ~self ~cmd:(selector "willDisplayModalActionView:withSubTreeKeyView:completion:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x withSubTreeKeyView completion \ No newline at end of file diff --git a/uikit_extra/UIKBKeyViewAnimator.ml b/uikit_extra/UIKBKeyViewAnimator.ml index 63193f3e..90458cb7 100644 --- a/uikit_extra/UIKBKeyViewAnimator.ml +++ b/uikit_extra/UIKBKeyViewAnimator.ml @@ -5,44 +5,41 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBKeyViewAnimator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbkeyviewanimator?language=objc}UIKBKeyViewAnimator} *) -module C = struct - let normalizedAnimationWithKeyPath x ~fromValue ~toValue self = msg_send ~self ~cmd:(selector "normalizedAnimationWithKeyPath:fromValue:toValue:") ~typ:(id @-> id @-> id @-> returning (id)) x fromValue toValue - let normalizedUnwindAnimationWithKeyPath x ~fromValue ~toValue ~offset self = msg_send ~self ~cmd:(selector "normalizedUnwindAnimationWithKeyPath:fromValue:toValue:offset:") ~typ:(id @-> id @-> id @-> double @-> returning (id)) x fromValue toValue offset - let normalizedUnwindAnimationWithKeyPath' x ~originallyFromValue ~toValue ~offset self = msg_send ~self ~cmd:(selector "normalizedUnwindAnimationWithKeyPath:originallyFromValue:toValue:offset:") ~typ:(id @-> id @-> id @-> double @-> returning (id)) x originallyFromValue toValue offset - let normalizedUnwindOpacityAnimationWithKeyPath x ~originallyFromValue ~toValue ~offset self = msg_send ~self ~cmd:(selector "normalizedUnwindOpacityAnimationWithKeyPath:originallyFromValue:toValue:offset:") ~typ:(id @-> id @-> id @-> double @-> returning (id)) x originallyFromValue toValue offset -end +let self = get_class "UIKBKeyViewAnimator" -let delayedDeactivationTimeForKeyView x self = msg_send ~self ~cmd:(selector "delayedDeactivationTimeForKeyView:") ~typ:(id @-> returning (double)) x -let disabled self = msg_send ~self ~cmd:(selector "disabled") ~typ:(returning (bool)) -let endTransitionForKeyView x self = msg_send ~self ~cmd:(selector "endTransitionForKeyView:") ~typ:(id @-> returning (void)) x -let keyViewClassForKey x ~renderTraits ~screenTraits self = msg_send ~self ~cmd:(selector "keyViewClassForKey:renderTraits:screenTraits:") ~typ:(id @-> id @-> id @-> returning (_Class)) x renderTraits screenTraits -let keycapAlternateDualStringTransform x self = msg_send ~self ~cmd:(selector "keycapAlternateDualStringTransform:") ~typ:(id @-> returning (id)) x -let keycapAlternateTransform x self = msg_send ~self ~cmd:(selector "keycapAlternateTransform:") ~typ:(id @-> returning (id)) x -let keycapLeftSelectLeftTransform self = msg_send ~self ~cmd:(selector "keycapLeftSelectLeftTransform") ~typ:(returning (id)) -let keycapLeftSelectPrimaryTransform self = msg_send ~self ~cmd:(selector "keycapLeftSelectPrimaryTransform") ~typ:(returning (id)) -let keycapLeftSelectRightTransform self = msg_send ~self ~cmd:(selector "keycapLeftSelectRightTransform") ~typ:(returning (id)) -let keycapLeftTransform self = msg_send ~self ~cmd:(selector "keycapLeftTransform") ~typ:(returning (id)) -let keycapMeshTransformFromRect x ~toRect self = msg_send ~self ~cmd:(selector "keycapMeshTransformFromRect:toRect:") ~typ:(CGRect.t @-> CGRect.t @-> returning (id)) x toRect -let keycapNullTransform self = msg_send ~self ~cmd:(selector "keycapNullTransform") ~typ:(returning (id)) -let keycapPrimaryDualStringTransform x self = msg_send ~self ~cmd:(selector "keycapPrimaryDualStringTransform:") ~typ:(id @-> returning (id)) x -let keycapPrimaryExitTransform self = msg_send ~self ~cmd:(selector "keycapPrimaryExitTransform") ~typ:(returning (id)) -let keycapPrimaryTransform self = msg_send ~self ~cmd:(selector "keycapPrimaryTransform") ~typ:(returning (id)) -let keycapRightSelectLeftTransform self = msg_send ~self ~cmd:(selector "keycapRightSelectLeftTransform") ~typ:(returning (id)) -let keycapRightSelectPrimaryTransform self = msg_send ~self ~cmd:(selector "keycapRightSelectPrimaryTransform") ~typ:(returning (id)) -let keycapRightSelectRightTransform self = msg_send ~self ~cmd:(selector "keycapRightSelectRightTransform") ~typ:(returning (id)) -let keycapRightTransform self = msg_send ~self ~cmd:(selector "keycapRightTransform") ~typ:(returning (id)) -let primaryGlyphNormalizedExitRect self = msg_send_stret ~self ~cmd:(selector "primaryGlyphNormalizedExitRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let secondaryGlyphNormalizedExitRect self = msg_send_stret ~self ~cmd:(selector "secondaryGlyphNormalizedExitRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let setDisabled x self = msg_send ~self ~cmd:(selector "setDisabled:") ~typ:(bool @-> returning (void)) x -let shouldAssertCurrentKeyState x self = msg_send ~self ~cmd:(selector "shouldAssertCurrentKeyState:") ~typ:(id @-> returning (bool)) x -let shouldPurgeKeyViews self = msg_send ~self ~cmd:(selector "shouldPurgeKeyViews") ~typ:(returning (bool)) -let shouldTransitionKeyView x ~fromState ~toState self = msg_send ~self ~cmd:(selector "shouldTransitionKeyView:fromState:toState:") ~typ:(id @-> int @-> int @-> returning (bool)) x fromState toState -let transitionEndedForKeyView x ~alternateCount self = msg_send ~self ~cmd:(selector "transitionEndedForKeyView:alternateCount:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int alternateCount) -let transitionKeyView x ~fromState ~toState ~completion self = msg_send ~self ~cmd:(selector "transitionKeyView:fromState:toState:completion:") ~typ:(id @-> int @-> int @-> ptr void @-> returning (void)) x fromState toState completion -let transitionOutKeyView x ~fromState ~toState ~completion self = msg_send ~self ~cmd:(selector "transitionOutKeyView:fromState:toState:completion:") ~typ:(id @-> int @-> int @-> ptr void @-> returning (void)) x fromState toState completion -let transitionStartedForKeyView x ~alternateCount ~toLeft self = msg_send ~self ~cmd:(selector "transitionStartedForKeyView:alternateCount:toLeft:") ~typ:(id @-> ullong @-> bool @-> returning (void)) x (ULLong.of_int alternateCount) toLeft -let updateTransitionForKeyView x ~normalizedDragSize self = msg_send ~self ~cmd:(selector "updateTransitionForKeyView:normalizedDragSize:") ~typ:(id @-> CGSize.t @-> returning (void)) x normalizedDragSize \ No newline at end of file +let delayedDeactivationTimeForKeyView x self = msg_send ~self ~cmd:(selector "delayedDeactivationTimeForKeyView:") ~typ:(id @-> returning double) x +let disabled self = msg_send ~self ~cmd:(selector "disabled") ~typ:(returning bool) +let endTransitionForKeyView x self = msg_send ~self ~cmd:(selector "endTransitionForKeyView:") ~typ:(id @-> returning void) x +let keyViewClassForKey x ~renderTraits ~screenTraits self = msg_send ~self ~cmd:(selector "keyViewClassForKey:renderTraits:screenTraits:") ~typ:(id @-> id @-> id @-> returning _Class) x renderTraits screenTraits +let keycapAlternateDualStringTransform x self = msg_send ~self ~cmd:(selector "keycapAlternateDualStringTransform:") ~typ:(id @-> returning id) x +let keycapAlternateTransform x self = msg_send ~self ~cmd:(selector "keycapAlternateTransform:") ~typ:(id @-> returning id) x +let keycapLeftSelectLeftTransform self = msg_send ~self ~cmd:(selector "keycapLeftSelectLeftTransform") ~typ:(returning id) +let keycapLeftSelectPrimaryTransform self = msg_send ~self ~cmd:(selector "keycapLeftSelectPrimaryTransform") ~typ:(returning id) +let keycapLeftSelectRightTransform self = msg_send ~self ~cmd:(selector "keycapLeftSelectRightTransform") ~typ:(returning id) +let keycapLeftTransform self = msg_send ~self ~cmd:(selector "keycapLeftTransform") ~typ:(returning id) +let keycapMeshTransformFromRect x ~toRect self = msg_send ~self ~cmd:(selector "keycapMeshTransformFromRect:toRect:") ~typ:(CGRect.t @-> CGRect.t @-> returning id) x toRect +let keycapNullTransform self = msg_send ~self ~cmd:(selector "keycapNullTransform") ~typ:(returning id) +let keycapPrimaryDualStringTransform x self = msg_send ~self ~cmd:(selector "keycapPrimaryDualStringTransform:") ~typ:(id @-> returning id) x +let keycapPrimaryExitTransform self = msg_send ~self ~cmd:(selector "keycapPrimaryExitTransform") ~typ:(returning id) +let keycapPrimaryTransform self = msg_send ~self ~cmd:(selector "keycapPrimaryTransform") ~typ:(returning id) +let keycapRightSelectLeftTransform self = msg_send ~self ~cmd:(selector "keycapRightSelectLeftTransform") ~typ:(returning id) +let keycapRightSelectPrimaryTransform self = msg_send ~self ~cmd:(selector "keycapRightSelectPrimaryTransform") ~typ:(returning id) +let keycapRightSelectRightTransform self = msg_send ~self ~cmd:(selector "keycapRightSelectRightTransform") ~typ:(returning id) +let keycapRightTransform self = msg_send ~self ~cmd:(selector "keycapRightTransform") ~typ:(returning id) +let primaryGlyphNormalizedExitRect self = msg_send ~self ~cmd:(selector "primaryGlyphNormalizedExitRect") ~typ:(returning CGRect.t) +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let secondaryGlyphNormalizedExitRect self = msg_send ~self ~cmd:(selector "secondaryGlyphNormalizedExitRect") ~typ:(returning CGRect.t) +let setDisabled x self = msg_send ~self ~cmd:(selector "setDisabled:") ~typ:(bool @-> returning void) x +let shouldAssertCurrentKeyState x self = msg_send ~self ~cmd:(selector "shouldAssertCurrentKeyState:") ~typ:(id @-> returning bool) x +let shouldPurgeKeyViews self = msg_send ~self ~cmd:(selector "shouldPurgeKeyViews") ~typ:(returning bool) +let shouldTransitionKeyView x ~fromState ~toState self = msg_send ~self ~cmd:(selector "shouldTransitionKeyView:fromState:toState:") ~typ:(id @-> int @-> int @-> returning bool) x fromState toState +let transitionEndedForKeyView x ~alternateCount self = msg_send ~self ~cmd:(selector "transitionEndedForKeyView:alternateCount:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int alternateCount) +let transitionKeyView x ~fromState ~toState ~completion self = msg_send ~self ~cmd:(selector "transitionKeyView:fromState:toState:completion:") ~typ:(id @-> int @-> int @-> (ptr void) @-> returning void) x fromState toState completion +let transitionOutKeyView x ~fromState ~toState ~completion self = msg_send ~self ~cmd:(selector "transitionOutKeyView:fromState:toState:completion:") ~typ:(id @-> int @-> int @-> (ptr void) @-> returning void) x fromState toState completion +let transitionStartedForKeyView x ~alternateCount ~toLeft self = msg_send ~self ~cmd:(selector "transitionStartedForKeyView:alternateCount:toLeft:") ~typ:(id @-> ullong @-> bool @-> returning void) x (ULLong.of_int alternateCount) toLeft +let updateTransitionForKeyView x ~normalizedDragSize self = msg_send ~self ~cmd:(selector "updateTransitionForKeyView:normalizedDragSize:") ~typ:(id @-> CGSize.t @-> returning void) x normalizedDragSize \ No newline at end of file diff --git a/uikit_extra/UIKBKeyViewAnimatorClass.ml b/uikit_extra/UIKBKeyViewAnimatorClass.ml new file mode 100644 index 00000000..bb12d0f9 --- /dev/null +++ b/uikit_extra/UIKBKeyViewAnimatorClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbkeyviewanimator?language=objc}UIKBKeyViewAnimator} *) + +let normalizedAnimationWithKeyPath x ~fromValue ~toValue self = msg_send ~self ~cmd:(selector "normalizedAnimationWithKeyPath:fromValue:toValue:") ~typ:(id @-> id @-> id @-> returning id) x fromValue toValue +let normalizedUnwindAnimationWithKeyPath x ~fromValue ~toValue ~offset self = msg_send ~self ~cmd:(selector "normalizedUnwindAnimationWithKeyPath:fromValue:toValue:offset:") ~typ:(id @-> id @-> id @-> double @-> returning id) x fromValue toValue offset +let normalizedUnwindAnimationWithKeyPath' x ~originallyFromValue ~toValue ~offset self = msg_send ~self ~cmd:(selector "normalizedUnwindAnimationWithKeyPath:originallyFromValue:toValue:offset:") ~typ:(id @-> id @-> id @-> double @-> returning id) x originallyFromValue toValue offset +let normalizedUnwindOpacityAnimationWithKeyPath x ~originallyFromValue ~toValue ~offset self = msg_send ~self ~cmd:(selector "normalizedUnwindOpacityAnimationWithKeyPath:originallyFromValue:toValue:offset:") ~typ:(id @-> id @-> id @-> double @-> returning id) x originallyFromValue toValue offset \ No newline at end of file diff --git a/uikit_extra/UIKBKeyViewAnimatorDeveloper.ml b/uikit_extra/UIKBKeyViewAnimatorDeveloper.ml index 94f425c4..2c38293c 100644 --- a/uikit_extra/UIKBKeyViewAnimatorDeveloper.ml +++ b/uikit_extra/UIKBKeyViewAnimatorDeveloper.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBKeyViewAnimatorDeveloper" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbkeyviewanimatordeveloper?language=objc}UIKBKeyViewAnimatorDeveloper} *) -let primaryGlyphNormalizedExitRect self = msg_send ~self ~cmd:(selector "primaryGlyphNormalizedExitRect") ~typ:(returning (CGRect.t)) -let secondaryGlyphNormalizedExitRect self = msg_send ~self ~cmd:(selector "secondaryGlyphNormalizedExitRect") ~typ:(returning (CGRect.t)) \ No newline at end of file +let self = get_class "UIKBKeyViewAnimatorDeveloper" + +let primaryGlyphNormalizedExitRect self = msg_send ~self ~cmd:(selector "primaryGlyphNormalizedExitRect") ~typ:(returning CGRect.t) +let secondaryGlyphNormalizedExitRect self = msg_send ~self ~cmd:(selector "secondaryGlyphNormalizedExitRect") ~typ:(returning CGRect.t) \ No newline at end of file diff --git a/uikit_extra/UIKBKeyViewAnimatorMonolith.ml b/uikit_extra/UIKBKeyViewAnimatorMonolith.ml index 0ae18b86..bd30ba4d 100644 --- a/uikit_extra/UIKBKeyViewAnimatorMonolith.ml +++ b/uikit_extra/UIKBKeyViewAnimatorMonolith.ml @@ -5,21 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBKeyViewAnimatorMonolith" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbkeyviewanimatormonolith?language=objc}UIKBKeyViewAnimatorMonolith} *) -let addTransitionCompletion x ~forKeyName self = msg_send ~self ~cmd:(selector "addTransitionCompletion:forKeyName:") ~typ:(ptr void @-> id @-> returning (void)) x forKeyName -let animateFloatingKeyView x ~toControlState self = msg_send ~self ~cmd:(selector "animateFloatingKeyView:toControlState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int toControlState) -let controlStateForKeyState x self = msg_send ~self ~cmd:(selector "controlStateForKeyState:") ~typ:(int @-> returning (ullong)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let floatingContentView x ~didFinishTransitioningToState self = msg_send ~self ~cmd:(selector "floatingContentView:didFinishTransitioningToState:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int didFinishTransitioningToState) -let floatingContentView' x ~isTransitioningFromState ~toState self = msg_send ~self ~cmd:(selector "floatingContentView:isTransitioningFromState:toState:") ~typ:(id @-> ullong @-> ullong @-> returning (void)) x (ULLong.of_int isTransitioningFromState) (ULLong.of_int toState) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let keyViewClassForKey x ~renderTraits ~screenTraits self = msg_send ~self ~cmd:(selector "keyViewClassForKey:renderTraits:screenTraits:") ~typ:(id @-> id @-> id @-> returning (_Class)) x renderTraits screenTraits -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let shouldAssertCurrentKeyState x self = msg_send ~self ~cmd:(selector "shouldAssertCurrentKeyState:") ~typ:(id @-> returning (bool)) x -let shouldPurgeKeyViews self = msg_send ~self ~cmd:(selector "shouldPurgeKeyViews") ~typ:(returning (bool)) -let shouldTransitionKeyView x ~fromState ~toState self = msg_send ~self ~cmd:(selector "shouldTransitionKeyView:fromState:toState:") ~typ:(id @-> int @-> int @-> returning (bool)) x fromState toState -let transitionFloatingKeyView x ~toState ~completion self = msg_send ~self ~cmd:(selector "transitionFloatingKeyView:toState:completion:") ~typ:(id @-> int @-> ptr void @-> returning (void)) x toState completion -let transitionKeyView x ~fromState ~toState ~completion self = msg_send ~self ~cmd:(selector "transitionKeyView:fromState:toState:completion:") ~typ:(id @-> int @-> int @-> ptr void @-> returning (void)) x fromState toState completion -let transitionOutKeyView x ~fromState ~toState ~completion self = msg_send ~self ~cmd:(selector "transitionOutKeyView:fromState:toState:completion:") ~typ:(id @-> int @-> int @-> ptr void @-> returning (void)) x fromState toState completion \ No newline at end of file +let self = get_class "UIKBKeyViewAnimatorMonolith" + +let addTransitionCompletion x ~forKeyName self = msg_send ~self ~cmd:(selector "addTransitionCompletion:forKeyName:") ~typ:((ptr void) @-> id @-> returning void) x forKeyName +let animateFloatingKeyView x ~toControlState self = msg_send ~self ~cmd:(selector "animateFloatingKeyView:toControlState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int toControlState) +let controlStateForKeyState x self = msg_send ~self ~cmd:(selector "controlStateForKeyState:") ~typ:(int @-> returning ullong) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let floatingContentView x ~didFinishTransitioningToState self = msg_send ~self ~cmd:(selector "floatingContentView:didFinishTransitioningToState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int didFinishTransitioningToState) +let floatingContentView' x ~isTransitioningFromState ~toState self = msg_send ~self ~cmd:(selector "floatingContentView:isTransitioningFromState:toState:") ~typ:(id @-> ullong @-> ullong @-> returning void) x (ULLong.of_int isTransitioningFromState) (ULLong.of_int toState) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let keyViewClassForKey x ~renderTraits ~screenTraits self = msg_send ~self ~cmd:(selector "keyViewClassForKey:renderTraits:screenTraits:") ~typ:(id @-> id @-> id @-> returning _Class) x renderTraits screenTraits +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let shouldAssertCurrentKeyState x self = msg_send ~self ~cmd:(selector "shouldAssertCurrentKeyState:") ~typ:(id @-> returning bool) x +let shouldPurgeKeyViews self = msg_send ~self ~cmd:(selector "shouldPurgeKeyViews") ~typ:(returning bool) +let shouldTransitionKeyView x ~fromState ~toState self = msg_send ~self ~cmd:(selector "shouldTransitionKeyView:fromState:toState:") ~typ:(id @-> int @-> int @-> returning bool) x fromState toState +let transitionFloatingKeyView x ~toState ~completion self = msg_send ~self ~cmd:(selector "transitionFloatingKeyView:toState:completion:") ~typ:(id @-> int @-> (ptr void) @-> returning void) x toState completion +let transitionKeyView x ~fromState ~toState ~completion self = msg_send ~self ~cmd:(selector "transitionKeyView:fromState:toState:completion:") ~typ:(id @-> int @-> int @-> (ptr void) @-> returning void) x fromState toState completion +let transitionOutKeyView x ~fromState ~toState ~completion self = msg_send ~self ~cmd:(selector "transitionOutKeyView:fromState:toState:completion:") ~typ:(id @-> int @-> int @-> (ptr void) @-> returning void) x fromState toState completion \ No newline at end of file diff --git a/uikit_extra/UIKBKeyViewClass.ml b/uikit_extra/UIKBKeyViewClass.ml new file mode 100644 index 00000000..492a03b1 --- /dev/null +++ b/uikit_extra/UIKBKeyViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbkeyview?language=objc}UIKBKeyView} *) + +let wantsScreenTraits self = msg_send ~self ~cmd:(selector "wantsScreenTraits") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKBKeyplaneChangeContext.ml b/uikit_extra/UIKBKeyplaneChangeContext.ml index 584897c9..3fd8f8ee 100644 --- a/uikit_extra/UIKBKeyplaneChangeContext.ml +++ b/uikit_extra/UIKBKeyplaneChangeContext.ml @@ -5,22 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBKeyplaneChangeContext" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbkeyplanechangecontext?language=objc}UIKBKeyplaneChangeContext} *) -module C = struct - let keyplaneChangeContext self = msg_send ~self ~cmd:(selector "keyplaneChangeContext") ~typ:(returning (id)) - let keyplaneChangeContextWithSize x self = msg_send ~self ~cmd:(selector "keyplaneChangeContextWithSize:") ~typ:(CGSize.t @-> returning (id)) x -end +let self = get_class "UIKBKeyplaneChangeContext" -let isSecureTextEntry self = msg_send ~self ~cmd:(selector "isSecureTextEntry") ~typ:(returning (bool)) -let selfSizingChanged self = msg_send ~self ~cmd:(selector "selfSizingChanged") ~typ:(returning (bool)) -let setIsSecureTextEntry x self = msg_send ~self ~cmd:(selector "setIsSecureTextEntry:") ~typ:(bool @-> returning (void)) x -let setSelfSizingChanged x self = msg_send ~self ~cmd:(selector "setSelfSizingChanged:") ~typ:(bool @-> returning (void)) x -let setSize x self = msg_send ~self ~cmd:(selector "setSize:") ~typ:(CGSize.t @-> returning (void)) x -let setSplitWidthsChanged x self = msg_send ~self ~cmd:(selector "setSplitWidthsChanged:") ~typ:(bool @-> returning (void)) x -let setUpdateAssistantView x self = msg_send ~self ~cmd:(selector "setUpdateAssistantView:") ~typ:(bool @-> returning (void)) x -let size self = msg_send_stret ~self ~cmd:(selector "size") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let sizeDidChange self = msg_send ~self ~cmd:(selector "sizeDidChange") ~typ:(returning (bool)) -let splitWidthsChanged self = msg_send ~self ~cmd:(selector "splitWidthsChanged") ~typ:(returning (bool)) -let updateAssistantView self = msg_send ~self ~cmd:(selector "updateAssistantView") ~typ:(returning (bool)) \ No newline at end of file +let isSecureTextEntry self = msg_send ~self ~cmd:(selector "isSecureTextEntry") ~typ:(returning bool) +let selfSizingChanged self = msg_send ~self ~cmd:(selector "selfSizingChanged") ~typ:(returning bool) +let setIsSecureTextEntry x self = msg_send ~self ~cmd:(selector "setIsSecureTextEntry:") ~typ:(bool @-> returning void) x +let setSelfSizingChanged x self = msg_send ~self ~cmd:(selector "setSelfSizingChanged:") ~typ:(bool @-> returning void) x +let setSize x self = msg_send ~self ~cmd:(selector "setSize:") ~typ:(CGSize.t @-> returning void) x +let setSplitWidthsChanged x self = msg_send ~self ~cmd:(selector "setSplitWidthsChanged:") ~typ:(bool @-> returning void) x +let setUpdateAssistantView x self = msg_send ~self ~cmd:(selector "setUpdateAssistantView:") ~typ:(bool @-> returning void) x +let size self = msg_send ~self ~cmd:(selector "size") ~typ:(returning CGSize.t) +let sizeDidChange self = msg_send ~self ~cmd:(selector "sizeDidChange") ~typ:(returning bool) +let splitWidthsChanged self = msg_send ~self ~cmd:(selector "splitWidthsChanged") ~typ:(returning bool) +let updateAssistantView self = msg_send ~self ~cmd:(selector "updateAssistantView") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKBKeyplaneChangeContextClass.ml b/uikit_extra/UIKBKeyplaneChangeContextClass.ml new file mode 100644 index 00000000..7d0477f9 --- /dev/null +++ b/uikit_extra/UIKBKeyplaneChangeContextClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbkeyplanechangecontext?language=objc}UIKBKeyplaneChangeContext} *) + +let keyplaneChangeContext self = msg_send ~self ~cmd:(selector "keyplaneChangeContext") ~typ:(returning id) +let keyplaneChangeContextWithSize x self = msg_send ~self ~cmd:(selector "keyplaneChangeContextWithSize:") ~typ:(CGSize.t @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBKeyplaneTransformationContext.ml b/uikit_extra/UIKBKeyplaneTransformationContext.ml index 4a22e73f..c4f7e685 100644 --- a/uikit_extra/UIKBKeyplaneTransformationContext.ml +++ b/uikit_extra/UIKBKeyplaneTransformationContext.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBKeyplaneTransformationContext" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbkeyplanetransformationcontext?language=objc}UIKBKeyplaneTransformationContext} *) -let activeKeyboard self = msg_send ~self ~cmd:(selector "activeKeyboard") ~typ:(returning (id)) -let activeKeyplane self = msg_send ~self ~cmd:(selector "activeKeyplane") ~typ:(returning (id)) -let currentKeyplaneName self = msg_send ~self ~cmd:(selector "currentKeyplaneName") ~typ:(returning (id)) -let keyboardSize self = msg_send_stret ~self ~cmd:(selector "keyboardSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let resizingOffset self = msg_send ~self ~cmd:(selector "resizingOffset") ~typ:(returning (double)) -let screenTraits self = msg_send ~self ~cmd:(selector "screenTraits") ~typ:(returning (id)) -let setActiveKeyboard x self = msg_send ~self ~cmd:(selector "setActiveKeyboard:") ~typ:(id @-> returning (void)) x -let setActiveKeyplane x self = msg_send ~self ~cmd:(selector "setActiveKeyplane:") ~typ:(id @-> returning (void)) x -let setCurrentKeyplaneName x self = msg_send ~self ~cmd:(selector "setCurrentKeyplaneName:") ~typ:(id @-> returning (void)) x -let setKeyboardSize x self = msg_send ~self ~cmd:(selector "setKeyboardSize:") ~typ:(CGSize.t @-> returning (void)) x -let setResizingOffset x self = msg_send ~self ~cmd:(selector "setResizingOffset:") ~typ:(double @-> returning (void)) x -let setScreenTraits x self = msg_send ~self ~cmd:(selector "setScreenTraits:") ~typ:(id @-> returning (void)) x -let setUsesScriptSwitch x self = msg_send ~self ~cmd:(selector "setUsesScriptSwitch:") ~typ:(bool @-> returning (void)) x -let usesScriptSwitch self = msg_send ~self ~cmd:(selector "usesScriptSwitch") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIKBKeyplaneTransformationContext" + +let activeKeyboard self = msg_send ~self ~cmd:(selector "activeKeyboard") ~typ:(returning id) +let activeKeyplane self = msg_send ~self ~cmd:(selector "activeKeyplane") ~typ:(returning id) +let currentKeyplaneName self = msg_send ~self ~cmd:(selector "currentKeyplaneName") ~typ:(returning id) +let keyboardSize self = msg_send ~self ~cmd:(selector "keyboardSize") ~typ:(returning CGSize.t) +let resizingOffset self = msg_send ~self ~cmd:(selector "resizingOffset") ~typ:(returning double) +let screenTraits self = msg_send ~self ~cmd:(selector "screenTraits") ~typ:(returning id) +let setActiveKeyboard x self = msg_send ~self ~cmd:(selector "setActiveKeyboard:") ~typ:(id @-> returning void) x +let setActiveKeyplane x self = msg_send ~self ~cmd:(selector "setActiveKeyplane:") ~typ:(id @-> returning void) x +let setCurrentKeyplaneName x self = msg_send ~self ~cmd:(selector "setCurrentKeyplaneName:") ~typ:(id @-> returning void) x +let setKeyboardSize x self = msg_send ~self ~cmd:(selector "setKeyboardSize:") ~typ:(CGSize.t @-> returning void) x +let setResizingOffset x self = msg_send ~self ~cmd:(selector "setResizingOffset:") ~typ:(double @-> returning void) x +let setScreenTraits x self = msg_send ~self ~cmd:(selector "setScreenTraits:") ~typ:(id @-> returning void) x +let setUsesScriptSwitch x self = msg_send ~self ~cmd:(selector "setUsesScriptSwitch:") ~typ:(bool @-> returning void) x +let usesScriptSwitch self = msg_send ~self ~cmd:(selector "usesScriptSwitch") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKBKeyplaneView.ml b/uikit_extra/UIKBKeyplaneView.ml index 895d408f..adcec392 100644 --- a/uikit_extra/UIKBKeyplaneView.ml +++ b/uikit_extra/UIKBKeyplaneView.ml @@ -5,79 +5,83 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBKeyplaneView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbkeyplaneview?language=objc}UIKBKeyplaneView} *) -let activateKeys self = msg_send ~self ~cmd:(selector "activateKeys") ~typ:(returning (void)) -let activeKeyViews self = msg_send ~self ~cmd:(selector "activeKeyViews") ~typ:(returning (id)) -let addKeyToDelayedDeactivationSet x self = msg_send ~self ~cmd:(selector "addKeyToDelayedDeactivationSet:") ~typ:(id @-> returning (void)) x -let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning (llong)) -let cacheDeferPriority self = msg_send ~self ~cmd:(selector "cacheDeferPriority") ~typ:(returning (llong)) -let cacheDeferable self = msg_send ~self ~cmd:(selector "cacheDeferable") ~typ:(returning (bool)) -let cacheIdentifierForKey x self = msg_send ~self ~cmd:(selector "cacheIdentifierForKey:") ~typ:(id @-> returning (id)) x -let cacheIdentifierForKey' x ~withState self = msg_send ~self ~cmd:(selector "cacheIdentifierForKey:withState:") ~typ:(id @-> int @-> returning (id)) x withState -let cacheKey self = msg_send ~self ~cmd:(selector "cacheKey") ~typ:(returning (id)) -let cacheKeysForRenderFlags x self = msg_send ~self ~cmd:(selector "cacheKeysForRenderFlags:") ~typ:(id @-> returning (id)) x -let cacheToken self = msg_send ~self ~cmd:(selector "cacheToken") ~typ:(returning (id)) -let cachedWidth self = msg_send ~self ~cmd:(selector "cachedWidth") ~typ:(returning (double)) -let cancelDelayedDeactivation self = msg_send ~self ~cmd:(selector "cancelDelayedDeactivation") ~typ:(returning (void)) -let containingViewForKey x ~withState ~wantsActiveOut self = msg_send ~self ~cmd:(selector "containingViewForKey:withState:wantsActiveOut:") ~typ:(id @-> int @-> ptr (bool) @-> returning (id)) x withState wantsActiveOut -let cornerMaskForKey x ~recursive self = msg_send ~self ~cmd:(selector "cornerMaskForKey:recursive:") ~typ:(id @-> bool @-> returning (ullong)) x recursive -let deactivateAdaptiveKey x self = msg_send ~self ~cmd:(selector "deactivateAdaptiveKey:") ~typ:(id @-> returning (void)) x -let deactivateKey x ~previousState self = msg_send ~self ~cmd:(selector "deactivateKey:previousState:") ~typ:(id @-> int @-> returning (void)) x previousState -let deactivateKeys self = msg_send ~self ~cmd:(selector "deactivateKeys") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultKeyplane self = msg_send ~self ~cmd:(selector "defaultKeyplane") ~typ:(returning (id)) -let defaultKeyplaneCacheToken self = msg_send ~self ~cmd:(selector "defaultKeyplaneCacheToken") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let dimKeys x self = msg_send ~self ~cmd:(selector "dimKeys:") ~typ:(id @-> returning (void)) x -let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning (void)) x -let drawContentsOfRenderers x self = msg_send ~self ~cmd:(selector "drawContentsOfRenderers:") ~typ:(id @-> returning (void)) x -let emojiKeyManager self = msg_send ~self ~cmd:(selector "emojiKeyManager") ~typ:(returning (id)) -let factory self = msg_send ~self ~cmd:(selector "factory") ~typ:(returning (id)) -let hideKeyCaps x self = msg_send ~self ~cmd:(selector "hideKeyCaps:") ~typ:(bool @-> returning (void)) x -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let initWithFrame x ~keyplane self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:") ~typ:(CGRect.t @-> id @-> returning (id)) x keyplane -let isPasscodeStyle self = msg_send ~self ~cmd:(selector "isPasscodeStyle") ~typ:(returning (bool)) -let keepNonPersistent self = msg_send ~self ~cmd:(selector "keepNonPersistent") ~typ:(returning (bool)) -let keyViewAnimator self = msg_send ~self ~cmd:(selector "keyViewAnimator") ~typ:(returning (id)) -let keyplane self = msg_send ~self ~cmd:(selector "keyplane") ~typ:(returning (id)) -let keyplaneMaskView self = msg_send ~self ~cmd:(selector "keyplaneMaskView") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let overrideScreenTraits self = msg_send ~self ~cmd:(selector "overrideScreenTraits") ~typ:(returning (id)) -let prepareForDisplay self = msg_send ~self ~cmd:(selector "prepareForDisplay") ~typ:(returning (void)) -let purgeActiveKeyViews self = msg_send ~self ~cmd:(selector "purgeActiveKeyViews") ~typ:(returning (void)) -let purgeFactory self = msg_send ~self ~cmd:(selector "purgeFactory") ~typ:(returning (void)) -let purgeKeyViews self = msg_send ~self ~cmd:(selector "purgeKeyViews") ~typ:(returning (void)) -let purgeLayerContents self = msg_send ~self ~cmd:(selector "purgeLayerContents") ~typ:(returning (void)) -let purgeSubviews self = msg_send ~self ~cmd:(selector "purgeSubviews") ~typ:(returning (void)) -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let removeKeyFromDelayedDeactivationSet x self = msg_send ~self ~cmd:(selector "removeKeyFromDelayedDeactivationSet:") ~typ:(id @-> returning (void)) x -let renderConfig self = msg_send ~self ~cmd:(selector "renderConfig") ~typ:(returning (id)) -let renderingContext self = msg_send ~self ~cmd:(selector "renderingContext") ~typ:(returning (id)) -let retestForTouchUpSelectedVariantIndexForKey x ~atPoint self = msg_send ~self ~cmd:(selector "retestForTouchUpSelectedVariantIndexForKey:atPoint:") ~typ:(id @-> CGPoint.t @-> returning (void)) x atPoint -let retestSelectedVariantIndexForKey x ~atPoint self = msg_send ~self ~cmd:(selector "retestSelectedVariantIndexForKey:atPoint:") ~typ:(id @-> CGPoint.t @-> returning (void)) x atPoint -let setCacheToken x self = msg_send ~self ~cmd:(selector "setCacheToken:") ~typ:(id @-> returning (void)) x -let setContentScaleFactor x self = msg_send ~self ~cmd:(selector "setContentScaleFactor:") ~typ:(double @-> returning (void)) x -let setDefaultKeyplane x self = msg_send ~self ~cmd:(selector "setDefaultKeyplane:") ~typ:(id @-> returning (void)) x -let setDefaultKeyplaneCacheToken x self = msg_send ~self ~cmd:(selector "setDefaultKeyplaneCacheToken:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setEmojiKeyManager x self = msg_send ~self ~cmd:(selector "setEmojiKeyManager:") ~typ:(id @-> returning (void)) x -let setFactory x self = msg_send ~self ~cmd:(selector "setFactory:") ~typ:(id @-> returning (void)) x -let setKeyViewAnimator x self = msg_send ~self ~cmd:(selector "setKeyViewAnimator:") ~typ:(id @-> returning (void)) x -let setKeyplane x self = msg_send ~self ~cmd:(selector "setKeyplane:") ~typ:(id @-> returning (void)) x -let setOverrideScreenTraits x self = msg_send ~self ~cmd:(selector "setOverrideScreenTraits:") ~typ:(id @-> returning (void)) x -let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning (void)) x -let setRenderingContext x self = msg_send ~self ~cmd:(selector "setRenderingContext:") ~typ:(id @-> returning (void)) x -let setState x ~forKey self = msg_send ~self ~cmd:(selector "setState:forKey:") ~typ:(int @-> id @-> returning (void)) x forKey -let setSuppressDrawing x self = msg_send ~self ~cmd:(selector "setSuppressDrawing:") ~typ:(bool @-> returning (void)) x -let shouldAnimateInKeyView x self = msg_send ~self ~cmd:(selector "shouldAnimateInKeyView:") ~typ:(id @-> returning (bool)) x -let shouldAnimateOutKeyView x self = msg_send ~self ~cmd:(selector "shouldAnimateOutKeyView:") ~typ:(id @-> returning (bool)) x -let stateForKey x self = msg_send ~self ~cmd:(selector "stateForKey:") ~typ:(id @-> returning (int)) x -let suppressDrawing self = msg_send ~self ~cmd:(selector "suppressDrawing") ~typ:(returning (bool)) -let updateFrameForKey x self = msg_send ~self ~cmd:(selector "updateFrameForKey:") ~typ:(id @-> returning (void)) x -let useDefaultKeyplaneCacheTokenForRenderFlags x self = msg_send ~self ~cmd:(selector "useDefaultKeyplaneCacheTokenForRenderFlags:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let validForKeyplane x ~withVisualStyle self = msg_send ~self ~cmd:(selector "validForKeyplane:withVisualStyle:") ~typ:(id @-> int @-> returning (bool)) x withVisualStyle -let viewForKey x self = msg_send ~self ~cmd:(selector "viewForKey:") ~typ:(id @-> returning (id)) x -let viewForKey' x ~state self = msg_send ~self ~cmd:(selector "viewForKey:state:") ~typ:(id @-> int @-> returning (id)) x state -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKBKeyplaneView" + +let activateKeys self = msg_send ~self ~cmd:(selector "activateKeys") ~typ:(returning void) +let activeKeyViews self = msg_send ~self ~cmd:(selector "activeKeyViews") ~typ:(returning id) +let addKeyToDelayedDeactivationSet x self = msg_send ~self ~cmd:(selector "addKeyToDelayedDeactivationSet:") ~typ:(id @-> returning void) x +let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning llong) +let cacheDeferPriority self = msg_send ~self ~cmd:(selector "cacheDeferPriority") ~typ:(returning llong) +let cacheDeferable self = msg_send ~self ~cmd:(selector "cacheDeferable") ~typ:(returning bool) +let cacheIdentifierForKey x self = msg_send ~self ~cmd:(selector "cacheIdentifierForKey:") ~typ:(id @-> returning id) x +let cacheIdentifierForKey' x ~withState self = msg_send ~self ~cmd:(selector "cacheIdentifierForKey:withState:") ~typ:(id @-> int @-> returning id) x withState +let cacheKey self = msg_send ~self ~cmd:(selector "cacheKey") ~typ:(returning id) +let cacheKeysForRenderFlags x self = msg_send ~self ~cmd:(selector "cacheKeysForRenderFlags:") ~typ:(id @-> returning id) x +let cacheToken self = msg_send ~self ~cmd:(selector "cacheToken") ~typ:(returning id) +let cachedWidth self = msg_send ~self ~cmd:(selector "cachedWidth") ~typ:(returning double) +let cancelDelayedDeactivation self = msg_send ~self ~cmd:(selector "cancelDelayedDeactivation") ~typ:(returning void) +let containingViewForKey x ~withState ~wantsActiveOut self = msg_send ~self ~cmd:(selector "containingViewForKey:withState:wantsActiveOut:") ~typ:(id @-> int @-> (ptr bool) @-> returning id) x withState wantsActiveOut +let cornerMaskForKey x ~recursive self = msg_send ~self ~cmd:(selector "cornerMaskForKey:recursive:") ~typ:(id @-> bool @-> returning ullong) x recursive +let deactivateAdaptiveKey x self = msg_send ~self ~cmd:(selector "deactivateAdaptiveKey:") ~typ:(id @-> returning void) x +let deactivateKey x ~previousState self = msg_send ~self ~cmd:(selector "deactivateKey:previousState:") ~typ:(id @-> int @-> returning void) x previousState +let deactivateKeys self = msg_send ~self ~cmd:(selector "deactivateKeys") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultKeyplane self = msg_send ~self ~cmd:(selector "defaultKeyplane") ~typ:(returning id) +let defaultKeyplaneCacheToken self = msg_send ~self ~cmd:(selector "defaultKeyplaneCacheToken") ~typ:(returning id) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let dimKeys x self = msg_send ~self ~cmd:(selector "dimKeys:") ~typ:(id @-> returning void) x +let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning void) x +let drawContentsOfRenderers x self = msg_send ~self ~cmd:(selector "drawContentsOfRenderers:") ~typ:(id @-> returning void) x +let emojiKeyManager self = msg_send ~self ~cmd:(selector "emojiKeyManager") ~typ:(returning id) +let factory self = msg_send ~self ~cmd:(selector "factory") ~typ:(returning id) +let hideKeyCaps x self = msg_send ~self ~cmd:(selector "hideKeyCaps:") ~typ:(bool @-> returning void) x +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let initWithFrame x ~keyplane self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:") ~typ:(CGRect.t @-> id @-> returning id) x keyplane +let isPasscodeStyle self = msg_send ~self ~cmd:(selector "isPasscodeStyle") ~typ:(returning bool) +let keepNonPersistent self = msg_send ~self ~cmd:(selector "keepNonPersistent") ~typ:(returning bool) +let keyViewAnimator self = msg_send ~self ~cmd:(selector "keyViewAnimator") ~typ:(returning id) +let keyplane self = msg_send ~self ~cmd:(selector "keyplane") ~typ:(returning id) +let keyplaneMaskView self = msg_send ~self ~cmd:(selector "keyplaneMaskView") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let overrideScreenTraits self = msg_send ~self ~cmd:(selector "overrideScreenTraits") ~typ:(returning id) +let prepareForDisplay self = msg_send ~self ~cmd:(selector "prepareForDisplay") ~typ:(returning void) +let purgeActiveKeyViews self = msg_send ~self ~cmd:(selector "purgeActiveKeyViews") ~typ:(returning void) +let purgeFactory self = msg_send ~self ~cmd:(selector "purgeFactory") ~typ:(returning void) +let purgeKeyViews self = msg_send ~self ~cmd:(selector "purgeKeyViews") ~typ:(returning void) +let purgeLayerContents self = msg_send ~self ~cmd:(selector "purgeLayerContents") ~typ:(returning void) +let purgeSubviews self = msg_send ~self ~cmd:(selector "purgeSubviews") ~typ:(returning void) +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let removeKeyFromDelayedDeactivationSet x self = msg_send ~self ~cmd:(selector "removeKeyFromDelayedDeactivationSet:") ~typ:(id @-> returning void) x +let renderConfig self = msg_send ~self ~cmd:(selector "renderConfig") ~typ:(returning id) +let renderingContext self = msg_send ~self ~cmd:(selector "renderingContext") ~typ:(returning id) +let retestForTouchUpSelectedVariantIndexForKey x ~atPoint self = msg_send ~self ~cmd:(selector "retestForTouchUpSelectedVariantIndexForKey:atPoint:") ~typ:(id @-> CGPoint.t @-> returning void) x atPoint +let retestSelectedVariantIndexForKey x ~atPoint self = msg_send ~self ~cmd:(selector "retestSelectedVariantIndexForKey:atPoint:") ~typ:(id @-> CGPoint.t @-> returning void) x atPoint +let setCacheToken x self = msg_send ~self ~cmd:(selector "setCacheToken:") ~typ:(id @-> returning void) x +let setContentScaleFactor x self = msg_send ~self ~cmd:(selector "setContentScaleFactor:") ~typ:(double @-> returning void) x +let setDefaultKeyplane x self = msg_send ~self ~cmd:(selector "setDefaultKeyplane:") ~typ:(id @-> returning void) x +let setDefaultKeyplaneCacheToken x self = msg_send ~self ~cmd:(selector "setDefaultKeyplaneCacheToken:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setEmojiKeyManager x self = msg_send ~self ~cmd:(selector "setEmojiKeyManager:") ~typ:(id @-> returning void) x +let setFactory x self = msg_send ~self ~cmd:(selector "setFactory:") ~typ:(id @-> returning void) x +let setKeyViewAnimator x self = msg_send ~self ~cmd:(selector "setKeyViewAnimator:") ~typ:(id @-> returning void) x +let setKeyplane x self = msg_send ~self ~cmd:(selector "setKeyplane:") ~typ:(id @-> returning void) x +let setOverrideScreenTraits x self = msg_send ~self ~cmd:(selector "setOverrideScreenTraits:") ~typ:(id @-> returning void) x +let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning void) x +let setRenderingContext x self = msg_send ~self ~cmd:(selector "setRenderingContext:") ~typ:(id @-> returning void) x +let setState x ~forKey self = msg_send ~self ~cmd:(selector "setState:forKey:") ~typ:(int @-> id @-> returning void) x forKey +let setSuppressDrawing x self = msg_send ~self ~cmd:(selector "setSuppressDrawing:") ~typ:(bool @-> returning void) x +let shouldAnimateInKeyView x self = msg_send ~self ~cmd:(selector "shouldAnimateInKeyView:") ~typ:(id @-> returning bool) x +let shouldAnimateOutKeyView x self = msg_send ~self ~cmd:(selector "shouldAnimateOutKeyView:") ~typ:(id @-> returning bool) x +let stateForKey x self = msg_send ~self ~cmd:(selector "stateForKey:") ~typ:(id @-> returning int) x +let suppressDrawing self = msg_send ~self ~cmd:(selector "suppressDrawing") ~typ:(returning bool) +let updateFrameForKey x self = msg_send ~self ~cmd:(selector "updateFrameForKey:") ~typ:(id @-> returning void) x +let useDefaultKeyplaneCacheTokenForRenderFlags x self = msg_send ~self ~cmd:(selector "useDefaultKeyplaneCacheTokenForRenderFlags:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let validForKeyplane x ~withVisualStyle self = msg_send ~self ~cmd:(selector "validForKeyplane:withVisualStyle:") ~typ:(id @-> int @-> returning bool) x withVisualStyle +let viewForKey x self = msg_send ~self ~cmd:(selector "viewForKey:") ~typ:(id @-> returning id) x +let viewForKey' x ~state self = msg_send ~self ~cmd:(selector "viewForKey:state:") ~typ:(id @-> int @-> returning id) x state +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBLinearCandidateView.ml b/uikit_extra/UIKBLinearCandidateView.ml index 314d83b6..345fedd5 100644 --- a/uikit_extra/UIKBLinearCandidateView.ml +++ b/uikit_extra/UIKBLinearCandidateView.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBLinearCandidateView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikblinearcandidateview?language=objc}UIKBLinearCandidateView} *) -let refreshSelectedCandidate self = msg_send ~self ~cmd:(selector "refreshSelectedCandidate") ~typ:(returning (void)) -let updateCandidateKey self = msg_send ~self ~cmd:(selector "updateCandidateKey") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIKBLinearCandidateView" + +let refreshSelectedCandidate self = msg_send ~self ~cmd:(selector "refreshSelectedCandidate") ~typ:(returning void) +let updateCandidateKey self = msg_send ~self ~cmd:(selector "updateCandidateKey") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKBMergeAction.ml b/uikit_extra/UIKBMergeAction.ml index 5841fddb..3e21de3d 100644 --- a/uikit_extra/UIKBMergeAction.ml +++ b/uikit_extra/UIKBMergeAction.ml @@ -5,20 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBMergeAction" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbmergeaction?language=objc}UIKBMergeAction} *) -module C = struct - let mergeActionWithOrderedKeyList x ~factors self = msg_send ~self ~cmd:(selector "mergeActionWithOrderedKeyList:factors:") ~typ:(id @-> id @-> returning (id)) x factors - let mergeActionWithRemainingKeyName x ~disappearingKeyName ~factors self = msg_send ~self ~cmd:(selector "mergeActionWithRemainingKeyName:disappearingKeyName:factors:") ~typ:(id @-> id @-> id @-> returning (id)) x disappearingKeyName factors -end +let self = get_class "UIKBMergeAction" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let disappearingKeyName self = msg_send ~self ~cmd:(selector "disappearingKeyName") ~typ:(returning (id)) -let factors self = msg_send ~self ~cmd:(selector "factors") ~typ:(returning (id)) -let orderedKeyList self = msg_send ~self ~cmd:(selector "orderedKeyList") ~typ:(returning (id)) -let remainingKeyName self = msg_send ~self ~cmd:(selector "remainingKeyName") ~typ:(returning (id)) -let setDisappearingKeyName x self = msg_send ~self ~cmd:(selector "setDisappearingKeyName:") ~typ:(id @-> returning (void)) x -let setFactors x self = msg_send ~self ~cmd:(selector "setFactors:") ~typ:(id @-> returning (void)) x -let setOrderedKeyList x self = msg_send ~self ~cmd:(selector "setOrderedKeyList:") ~typ:(id @-> returning (void)) x -let setRemainingKeyName x self = msg_send ~self ~cmd:(selector "setRemainingKeyName:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let disappearingKeyName self = msg_send ~self ~cmd:(selector "disappearingKeyName") ~typ:(returning id) +let factors self = msg_send ~self ~cmd:(selector "factors") ~typ:(returning id) +let orderedKeyList self = msg_send ~self ~cmd:(selector "orderedKeyList") ~typ:(returning id) +let remainingKeyName self = msg_send ~self ~cmd:(selector "remainingKeyName") ~typ:(returning id) +let setDisappearingKeyName x self = msg_send ~self ~cmd:(selector "setDisappearingKeyName:") ~typ:(id @-> returning void) x +let setFactors x self = msg_send ~self ~cmd:(selector "setFactors:") ~typ:(id @-> returning void) x +let setOrderedKeyList x self = msg_send ~self ~cmd:(selector "setOrderedKeyList:") ~typ:(id @-> returning void) x +let setRemainingKeyName x self = msg_send ~self ~cmd:(selector "setRemainingKeyName:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBMergeActionClass.ml b/uikit_extra/UIKBMergeActionClass.ml new file mode 100644 index 00000000..216d4df7 --- /dev/null +++ b/uikit_extra/UIKBMergeActionClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbmergeaction?language=objc}UIKBMergeAction} *) + +let mergeActionWithOrderedKeyList x ~factors self = msg_send ~self ~cmd:(selector "mergeActionWithOrderedKeyList:factors:") ~typ:(id @-> id @-> returning id) x factors +let mergeActionWithRemainingKeyName x ~disappearingKeyName ~factors self = msg_send ~self ~cmd:(selector "mergeActionWithRemainingKeyName:disappearingKeyName:factors:") ~typ:(id @-> id @-> id @-> returning id) x disappearingKeyName factors \ No newline at end of file diff --git a/uikit_extra/UIKBNullEffect.ml b/uikit_extra/UIKBNullEffect.ml index 05af0bbf..e86b8b5f 100644 --- a/uikit_extra/UIKBNullEffect.ml +++ b/uikit_extra/UIKBNullEffect.ml @@ -5,19 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBNullEffect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbnulleffect?language=objc}UIKBNullEffect} *) -module C = struct - let nullEffect self = msg_send ~self ~cmd:(selector "nullEffect") ~typ:(returning (id)) -end +let self = get_class "UIKBNullEffect" -let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr void)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let gradient self = msg_send ~self ~cmd:(selector "gradient") ~typ:(returning (id)) -let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning (bool)) -let renderSelector self = msg_send ~self ~cmd:(selector "renderSelector") ~typ:(returning (_SEL)) -let renderUnder self = msg_send ~self ~cmd:(selector "renderUnder") ~typ:(returning (bool)) -let setWeight x self = msg_send ~self ~cmd:(selector "setWeight:") ~typ:(double @-> returning (void)) x -let usesRGBColors self = msg_send ~self ~cmd:(selector "usesRGBColors") ~typ:(returning (bool)) -let weight self = msg_send ~self ~cmd:(selector "weight") ~typ:(returning (double)) \ No newline at end of file +let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr CGColor.t)) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let gradient self = msg_send ~self ~cmd:(selector "gradient") ~typ:(returning id) +let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning bool) +let renderSelector self = msg_send ~self ~cmd:(selector "renderSelector") ~typ:(returning _SEL) +let renderUnder self = msg_send ~self ~cmd:(selector "renderUnder") ~typ:(returning bool) +let setWeight x self = msg_send ~self ~cmd:(selector "setWeight:") ~typ:(double @-> returning void) x +let usesRGBColors self = msg_send ~self ~cmd:(selector "usesRGBColors") ~typ:(returning bool) +let weight self = msg_send ~self ~cmd:(selector "weight") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIKBNullEffectClass.ml b/uikit_extra/UIKBNullEffectClass.ml new file mode 100644 index 00000000..3f9bc9e4 --- /dev/null +++ b/uikit_extra/UIKBNullEffectClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbnulleffect?language=objc}UIKBNullEffect} *) + +let nullEffect self = msg_send ~self ~cmd:(selector "nullEffect") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBPanGestureVelocitySample.ml b/uikit_extra/UIKBPanGestureVelocitySample.ml index 2f2ce7b0..1420ca8b 100644 --- a/uikit_extra/UIKBPanGestureVelocitySample.ml +++ b/uikit_extra/UIKBPanGestureVelocitySample.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBPanGestureVelocitySample" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbpangesturevelocitysample?language=objc}UIKBPanGestureVelocitySample} *) -let dt self = msg_send ~self ~cmd:(selector "dt") ~typ:(returning (double)) -let end_ self = msg_send_stret ~self ~cmd:(selector "end") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let force self = msg_send ~self ~cmd:(selector "force") ~typ:(returning (double)) -let majorRadius self = msg_send ~self ~cmd:(selector "majorRadius") ~typ:(returning (double)) -let pullValuesFrom x self = msg_send ~self ~cmd:(selector "pullValuesFrom:") ~typ:(id @-> returning (void)) x -let resetValues self = msg_send ~self ~cmd:(selector "resetValues") ~typ:(returning (void)) -let setDt x self = msg_send ~self ~cmd:(selector "setDt:") ~typ:(double @-> returning (void)) x -let setEnd x self = msg_send ~self ~cmd:(selector "setEnd:") ~typ:(CGPoint.t @-> returning (void)) x -let setForce x self = msg_send ~self ~cmd:(selector "setForce:") ~typ:(double @-> returning (void)) x -let setMajorRadius x self = msg_send ~self ~cmd:(selector "setMajorRadius:") ~typ:(double @-> returning (void)) x -let setStart x self = msg_send ~self ~cmd:(selector "setStart:") ~typ:(CGPoint.t @-> returning (void)) x -let start self = msg_send_stret ~self ~cmd:(selector "start") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBPanGestureVelocitySample" + +let dt self = msg_send ~self ~cmd:(selector "dt") ~typ:(returning double) +let end_ self = msg_send ~self ~cmd:(selector "end") ~typ:(returning CGPoint.t) +let force self = msg_send ~self ~cmd:(selector "force") ~typ:(returning double) +let majorRadius self = msg_send ~self ~cmd:(selector "majorRadius") ~typ:(returning double) +let pullValuesFrom x self = msg_send ~self ~cmd:(selector "pullValuesFrom:") ~typ:(id @-> returning void) x +let resetValues self = msg_send ~self ~cmd:(selector "resetValues") ~typ:(returning void) +let setDt x self = msg_send ~self ~cmd:(selector "setDt:") ~typ:(double @-> returning void) x +let setEnd x self = msg_send ~self ~cmd:(selector "setEnd:") ~typ:(CGPoint.t @-> returning void) x +let setForce x self = msg_send ~self ~cmd:(selector "setForce:") ~typ:(double @-> returning void) x +let setMajorRadius x self = msg_send ~self ~cmd:(selector "setMajorRadius:") ~typ:(double @-> returning void) x +let setStart x self = msg_send ~self ~cmd:(selector "setStart:") ~typ:(CGPoint.t @-> returning void) x +let start self = msg_send ~self ~cmd:(selector "start") ~typ:(returning CGPoint.t) \ No newline at end of file diff --git a/uikit_extra/UIKBProductivityPanGestureRecognizer.ml b/uikit_extra/UIKBProductivityPanGestureRecognizer.ml index 84103201..d9907f24 100644 --- a/uikit_extra/UIKBProductivityPanGestureRecognizer.ml +++ b/uikit_extra/UIKBProductivityPanGestureRecognizer.ml @@ -5,34 +5,34 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBProductivityPanGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbproductivitypangesturerecognizer?language=objc}UIKBProductivityPanGestureRecognizer} *) -module C = struct - let productivityPanGestureRecognizerWithTarget x ~action ~delegate self = msg_send ~self ~cmd:(selector "productivityPanGestureRecognizerWithTarget:action:delegate:") ~typ:(id @-> _SEL @-> id @-> returning (id)) x action delegate -end +let self = get_class "UIKBProductivityPanGestureRecognizer" -let activeTouches self = msg_send ~self ~cmd:(selector "activeTouches") ~typ:(returning (id)) -let beginPanCentroid self = msg_send_stret ~self ~cmd:(selector "beginPanCentroid") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let beginPanTimestamp self = msg_send ~self ~cmd:(selector "beginPanTimestamp") ~typ:(returning (double)) -let beginTouchLocations self = msg_send ~self ~cmd:(selector "beginTouchLocations") ~typ:(returning (id)) -let centroidOfTouches x self = msg_send_stret ~self ~cmd:(selector "centroidOfTouches:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let isShiftOrMoreKeyForTouch x self = msg_send ~self ~cmd:(selector "isShiftOrMoreKeyForTouch:") ~typ:(id @-> returning (bool)) x -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let setActiveTouches x self = msg_send ~self ~cmd:(selector "setActiveTouches:") ~typ:(id @-> returning (void)) x -let setBeginPanCentroid x self = msg_send ~self ~cmd:(selector "setBeginPanCentroid:") ~typ:(CGPoint.t @-> returning (void)) x -let setBeginPanTimestamp x self = msg_send ~self ~cmd:(selector "setBeginPanTimestamp:") ~typ:(double @-> returning (void)) x -let setBeginTouchLocations x self = msg_send ~self ~cmd:(selector "setBeginTouchLocations:") ~typ:(id @-> returning (void)) x -let setShiftTouches x self = msg_send ~self ~cmd:(selector "setShiftTouches:") ~typ:(id @-> returning (void)) x -let setTooMuchSingleMovement x self = msg_send ~self ~cmd:(selector "setTooMuchSingleMovement:") ~typ:(bool @-> returning (void)) x -let setTransformAnalyzer x self = msg_send ~self ~cmd:(selector "setTransformAnalyzer:") ~typ:(id @-> returning (void)) x -let shiftTouches self = msg_send ~self ~cmd:(selector "shiftTouches") ~typ:(returning (id)) -let shouldBeRequiredToFailByGestureRecognizer x self = msg_send ~self ~cmd:(selector "shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let tooMuchSingleMovement self = msg_send ~self ~cmd:(selector "tooMuchSingleMovement") ~typ:(returning (bool)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let transformAnalyzer self = msg_send ~self ~cmd:(selector "transformAnalyzer") ~typ:(returning (id)) \ No newline at end of file +let activeTouches self = msg_send ~self ~cmd:(selector "activeTouches") ~typ:(returning id) +let beginPanCentroid self = msg_send ~self ~cmd:(selector "beginPanCentroid") ~typ:(returning CGPoint.t) +let beginPanTimestamp self = msg_send ~self ~cmd:(selector "beginPanTimestamp") ~typ:(returning double) +let beginTouchLocations self = msg_send ~self ~cmd:(selector "beginTouchLocations") ~typ:(returning id) +let centroidOfTouches x self = msg_send ~self ~cmd:(selector "centroidOfTouches:") ~typ:(id @-> returning CGPoint.t) x +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let isShiftOrMoreKeyForTouch x self = msg_send ~self ~cmd:(selector "isShiftOrMoreKeyForTouch:") ~typ:(id @-> returning bool) x +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let setActiveTouches x self = msg_send ~self ~cmd:(selector "setActiveTouches:") ~typ:(id @-> returning void) x +let setBeginPanCentroid x self = msg_send ~self ~cmd:(selector "setBeginPanCentroid:") ~typ:(CGPoint.t @-> returning void) x +let setBeginPanTimestamp x self = msg_send ~self ~cmd:(selector "setBeginPanTimestamp:") ~typ:(double @-> returning void) x +let setBeginTouchLocations x self = msg_send ~self ~cmd:(selector "setBeginTouchLocations:") ~typ:(id @-> returning void) x +let setShiftTouches x self = msg_send ~self ~cmd:(selector "setShiftTouches:") ~typ:(id @-> returning void) x +let setTooMuchSingleMovement x self = msg_send ~self ~cmd:(selector "setTooMuchSingleMovement:") ~typ:(bool @-> returning void) x +let setTransformAnalyzer x self = msg_send ~self ~cmd:(selector "setTransformAnalyzer:") ~typ:(id @-> returning void) x +let shiftTouches self = msg_send ~self ~cmd:(selector "shiftTouches") ~typ:(returning id) +let shouldBeRequiredToFailByGestureRecognizer x self = msg_send ~self ~cmd:(selector "shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> returning bool) x +let tooMuchSingleMovement self = msg_send ~self ~cmd:(selector "tooMuchSingleMovement") ~typ:(returning bool) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let transformAnalyzer self = msg_send ~self ~cmd:(selector "transformAnalyzer") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBProductivityPanGestureRecognizerClass.ml b/uikit_extra/UIKBProductivityPanGestureRecognizerClass.ml new file mode 100644 index 00000000..3a633485 --- /dev/null +++ b/uikit_extra/UIKBProductivityPanGestureRecognizerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbproductivitypangesturerecognizer?language=objc}UIKBProductivityPanGestureRecognizer} *) + +let productivityPanGestureRecognizerWithTarget x ~action ~delegate self = msg_send ~self ~cmd:(selector "productivityPanGestureRecognizerWithTarget:action:delegate:") ~typ:(id @-> _SEL @-> id @-> returning id) x action delegate \ No newline at end of file diff --git a/uikit_extra/UIKBProductivityPinchGestureRecognizer.ml b/uikit_extra/UIKBProductivityPinchGestureRecognizer.ml index a9b7bc24..27698d29 100644 --- a/uikit_extra/UIKBProductivityPinchGestureRecognizer.ml +++ b/uikit_extra/UIKBProductivityPinchGestureRecognizer.ml @@ -5,45 +5,45 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBProductivityPinchGestureRecognizer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbproductivitypinchgesturerecognizer?language=objc}UIKBProductivityPinchGestureRecognizer} *) -module C = struct - let productivityPinchGestureRecognizerWithTarget x ~action ~delegate self = msg_send ~self ~cmd:(selector "productivityPinchGestureRecognizerWithTarget:action:delegate:") ~typ:(id @-> _SEL @-> id @-> returning (id)) x action delegate -end +let self = get_class "UIKBProductivityPinchGestureRecognizer" -let activeTouches self = msg_send ~self ~cmd:(selector "activeTouches") ~typ:(returning (id)) -let allowableElapsedTimeForAllRequiredTouches self = msg_send ~self ~cmd:(selector "allowableElapsedTimeForAllRequiredTouches") ~typ:(returning (double)) -let avgDistanceToCentroid x self = msg_send ~self ~cmd:(selector "avgDistanceToCentroid:") ~typ:(id @-> returning (double)) x -let avgTouchesToCentroidDistance self = msg_send ~self ~cmd:(selector "avgTouchesToCentroidDistance") ~typ:(returning (double)) -let beforeReductionTimeInterval self = msg_send ~self ~cmd:(selector "beforeReductionTimeInterval") ~typ:(returning (double)) -let beginCentroid self = msg_send_stret ~self ~cmd:(selector "beginCentroid") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let beginPerimeter self = msg_send ~self ~cmd:(selector "beginPerimeter") ~typ:(returning (double)) -let beginPinchTimestamp self = msg_send ~self ~cmd:(selector "beginPinchTimestamp") ~typ:(returning (double)) -let beginTouchLocations self = msg_send ~self ~cmd:(selector "beginTouchLocations") ~typ:(returning (id)) -let centroidOfTouches x self = msg_send_stret ~self ~cmd:(selector "centroidOfTouches:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let clearMultitouchTimer self = msg_send ~self ~cmd:(selector "clearMultitouchTimer") ~typ:(returning (void)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning (id)) x action -let multitouchExpired x self = msg_send ~self ~cmd:(selector "multitouchExpired:") ~typ:(id @-> returning (void)) x -let perimeterOfTouches x self = msg_send ~self ~cmd:(selector "perimeterOfTouches:") ~typ:(id @-> returning (double)) x -let pinchDirection self = msg_send ~self ~cmd:(selector "pinchDirection") ~typ:(returning (llong)) -let pinchDirectionWithCurrentTime x ~perimeter self = msg_send ~self ~cmd:(selector "pinchDirectionWithCurrentTime:perimeter:") ~typ:(double @-> double @-> returning (llong)) x perimeter -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning (double)) -let setActiveTouches x self = msg_send ~self ~cmd:(selector "setActiveTouches:") ~typ:(id @-> returning (void)) x -let setAllowableElapsedTimeForAllRequiredTouches x self = msg_send ~self ~cmd:(selector "setAllowableElapsedTimeForAllRequiredTouches:") ~typ:(double @-> returning (void)) x -let setBeforeReductionTimeInterval x self = msg_send ~self ~cmd:(selector "setBeforeReductionTimeInterval:") ~typ:(double @-> returning (void)) x -let setBeginCentroid x self = msg_send ~self ~cmd:(selector "setBeginCentroid:") ~typ:(CGPoint.t @-> returning (void)) x -let setBeginPerimeter x self = msg_send ~self ~cmd:(selector "setBeginPerimeter:") ~typ:(double @-> returning (void)) x -let setBeginPinchTimestamp x self = msg_send ~self ~cmd:(selector "setBeginPinchTimestamp:") ~typ:(double @-> returning (void)) x -let setBeginTouchLocations x self = msg_send ~self ~cmd:(selector "setBeginTouchLocations:") ~typ:(id @-> returning (void)) x -let setTooMuchSingleMovement x self = msg_send ~self ~cmd:(selector "setTooMuchSingleMovement:") ~typ:(bool @-> returning (void)) x -let shouldBeRequiredToFailByGestureRecognizer x self = msg_send ~self ~cmd:(selector "shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> returning (bool)) x -let startMultitouchTimer x self = msg_send ~self ~cmd:(selector "startMultitouchTimer:") ~typ:(double @-> returning (void)) x -let sufficientMotionInDirection x ~withLocation ~withScale ~withAngle self = msg_send ~self ~cmd:(selector "sufficientMotionInDirection:withLocation:withScale:withAngle:") ~typ:(llong @-> CGPoint.t @-> double @-> double @-> returning (bool)) (LLong.of_int x) withLocation withScale withAngle -let tooMuchSingleMovement self = msg_send ~self ~cmd:(selector "tooMuchSingleMovement") ~typ:(returning (bool)) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let activeTouches self = msg_send ~self ~cmd:(selector "activeTouches") ~typ:(returning id) +let allowableElapsedTimeForAllRequiredTouches self = msg_send ~self ~cmd:(selector "allowableElapsedTimeForAllRequiredTouches") ~typ:(returning double) +let avgDistanceToCentroid x self = msg_send ~self ~cmd:(selector "avgDistanceToCentroid:") ~typ:(id @-> returning double) x +let avgTouchesToCentroidDistance self = msg_send ~self ~cmd:(selector "avgTouchesToCentroidDistance") ~typ:(returning double) +let beforeReductionTimeInterval self = msg_send ~self ~cmd:(selector "beforeReductionTimeInterval") ~typ:(returning double) +let beginCentroid self = msg_send ~self ~cmd:(selector "beginCentroid") ~typ:(returning CGPoint.t) +let beginPerimeter self = msg_send ~self ~cmd:(selector "beginPerimeter") ~typ:(returning double) +let beginPinchTimestamp self = msg_send ~self ~cmd:(selector "beginPinchTimestamp") ~typ:(returning double) +let beginTouchLocations self = msg_send ~self ~cmd:(selector "beginTouchLocations") ~typ:(returning id) +let centroidOfTouches x self = msg_send ~self ~cmd:(selector "centroidOfTouches:") ~typ:(id @-> returning CGPoint.t) x +let clearMultitouchTimer self = msg_send ~self ~cmd:(selector "clearMultitouchTimer") ~typ:(returning void) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithTarget x ~action self = msg_send ~self ~cmd:(selector "initWithTarget:action:") ~typ:(id @-> _SEL @-> returning id) x action +let multitouchExpired x self = msg_send ~self ~cmd:(selector "multitouchExpired:") ~typ:(id @-> returning void) x +let perimeterOfTouches x self = msg_send ~self ~cmd:(selector "perimeterOfTouches:") ~typ:(id @-> returning double) x +let pinchDirection self = msg_send ~self ~cmd:(selector "pinchDirection") ~typ:(returning llong) +let pinchDirectionWithCurrentTime x ~perimeter self = msg_send ~self ~cmd:(selector "pinchDirectionWithCurrentTime:perimeter:") ~typ:(double @-> double @-> returning llong) x perimeter +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning double) +let setActiveTouches x self = msg_send ~self ~cmd:(selector "setActiveTouches:") ~typ:(id @-> returning void) x +let setAllowableElapsedTimeForAllRequiredTouches x self = msg_send ~self ~cmd:(selector "setAllowableElapsedTimeForAllRequiredTouches:") ~typ:(double @-> returning void) x +let setBeforeReductionTimeInterval x self = msg_send ~self ~cmd:(selector "setBeforeReductionTimeInterval:") ~typ:(double @-> returning void) x +let setBeginCentroid x self = msg_send ~self ~cmd:(selector "setBeginCentroid:") ~typ:(CGPoint.t @-> returning void) x +let setBeginPerimeter x self = msg_send ~self ~cmd:(selector "setBeginPerimeter:") ~typ:(double @-> returning void) x +let setBeginPinchTimestamp x self = msg_send ~self ~cmd:(selector "setBeginPinchTimestamp:") ~typ:(double @-> returning void) x +let setBeginTouchLocations x self = msg_send ~self ~cmd:(selector "setBeginTouchLocations:") ~typ:(id @-> returning void) x +let setTooMuchSingleMovement x self = msg_send ~self ~cmd:(selector "setTooMuchSingleMovement:") ~typ:(bool @-> returning void) x +let shouldBeRequiredToFailByGestureRecognizer x self = msg_send ~self ~cmd:(selector "shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> returning bool) x +let startMultitouchTimer x self = msg_send ~self ~cmd:(selector "startMultitouchTimer:") ~typ:(double @-> returning void) x +let sufficientMotionInDirection x ~withLocation ~withScale ~withAngle self = msg_send ~self ~cmd:(selector "sufficientMotionInDirection:withLocation:withScale:withAngle:") ~typ:(llong @-> CGPoint.t @-> double @-> double @-> returning bool) (LLong.of_int x) withLocation withScale withAngle +let tooMuchSingleMovement self = msg_send ~self ~cmd:(selector "tooMuchSingleMovement") ~typ:(returning bool) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit_extra/UIKBProductivityPinchGestureRecognizerClass.ml b/uikit_extra/UIKBProductivityPinchGestureRecognizerClass.ml new file mode 100644 index 00000000..5c39405f --- /dev/null +++ b/uikit_extra/UIKBProductivityPinchGestureRecognizerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbproductivitypinchgesturerecognizer?language=objc}UIKBProductivityPinchGestureRecognizer} *) + +let productivityPinchGestureRecognizerWithTarget x ~action ~delegate self = msg_send ~self ~cmd:(selector "productivityPinchGestureRecognizerWithTarget:action:delegate:") ~typ:(id @-> _SEL @-> id @-> returning id) x action delegate \ No newline at end of file diff --git a/uikit_extra/UIKBRTIPartner.ml b/uikit_extra/UIKBRTIPartner.ml index 9510bd24..99557bc6 100644 --- a/uikit_extra/UIKBRTIPartner.ml +++ b/uikit_extra/UIKBRTIPartner.ml @@ -5,41 +5,45 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRTIPartner" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrtipartner?language=objc}UIKBRTIPartner} *) -let applicationStateIsActiveForRTI self = msg_send ~self ~cmd:(selector "applicationStateIsActiveForRTI") ~typ:(returning (bool)) -let applyRemoteDocumentStateIfNecessary x ~force self = msg_send ~self ~cmd:(selector "applyRemoteDocumentStateIfNecessary:force:") ~typ:(id @-> bool @-> returning (void)) x force -let applyRemoteDocumentTraitsIfNecessary x ~force self = msg_send ~self ~cmd:(selector "applyRemoteDocumentTraitsIfNecessary:force:") ~typ:(id @-> bool @-> returning (void)) x force -let beginAllowingRemoteTextInput x self = msg_send ~self ~cmd:(selector "beginAllowingRemoteTextInput:") ~typ:(id @-> returning (void)) x -let beginInputSessionWithIdentifier x self = msg_send ~self ~cmd:(selector "beginInputSessionWithIdentifier:") ~typ:(id @-> returning (void)) x -let currentSessionIdentifier self = msg_send ~self ~cmd:(selector "currentSessionIdentifier") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let documentStateChanged self = msg_send ~self ~cmd:(selector "documentStateChanged") ~typ:(returning (void)) -let documentTraitsChanged self = msg_send ~self ~cmd:(selector "documentTraitsChanged") ~typ:(returning (void)) -let endAllowingRemoteTextInput x self = msg_send ~self ~cmd:(selector "endAllowingRemoteTextInput:") ~typ:(id @-> returning (void)) x -let endInputSessionWithIdentifier x self = msg_send ~self ~cmd:(selector "endInputSessionWithIdentifier:") ~typ:(id @-> returning (void)) x -let ensureRTIConnection self = msg_send ~self ~cmd:(selector "ensureRTIConnection") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning (id)) -let inputSession x ~documentStateDidChange self = msg_send ~self ~cmd:(selector "inputSession:documentStateDidChange:") ~typ:(id @-> id @-> returning (void)) x documentStateDidChange -let inputSession' x ~documentTraitsDidChange self = msg_send ~self ~cmd:(selector "inputSession:documentTraitsDidChange:") ~typ:(id @-> id @-> returning (void)) x documentTraitsDidChange -let inputSystemClientEnabled self = msg_send ~self ~cmd:(selector "inputSystemClientEnabled") ~typ:(returning (bool)) -let isNotifyingDelegateOfRemoteOutputOperation self = msg_send ~self ~cmd:(selector "isNotifyingDelegateOfRemoteOutputOperation") ~typ:(returning (bool)) -let partnerDelegate self = msg_send ~self ~cmd:(selector "partnerDelegate") ~typ:(returning (id)) -let performTextOperations x self = msg_send ~self ~cmd:(selector "performTextOperations:") ~typ:(id @-> returning (void)) x -let restartCurrentSession self = msg_send ~self ~cmd:(selector "restartCurrentSession") ~typ:(returning (void)) -let rtiClient self = msg_send ~self ~cmd:(selector "rtiClient") ~typ:(returning (id)) -let rtiDocumentState self = msg_send ~self ~cmd:(selector "rtiDocumentState") ~typ:(returning (id)) -let rtiDocumentTraits self = msg_send ~self ~cmd:(selector "rtiDocumentTraits") ~typ:(returning (id)) -let setApplicationStateIsActiveForRTI x self = msg_send ~self ~cmd:(selector "setApplicationStateIsActiveForRTI:") ~typ:(bool @-> returning (void)) x -let setCurrentSessionIdentifier x self = msg_send ~self ~cmd:(selector "setCurrentSessionIdentifier:") ~typ:(id @-> returning (void)) x -let setInputSystemClientEnabled x self = msg_send ~self ~cmd:(selector "setInputSystemClientEnabled:") ~typ:(bool @-> returning (void)) x -let setPartnerDelegate x self = msg_send ~self ~cmd:(selector "setPartnerDelegate:") ~typ:(id @-> returning (void)) x -let setRtiClient x self = msg_send ~self ~cmd:(selector "setRtiClient:") ~typ:(id @-> returning (void)) x -let setRtiDocumentState x self = msg_send ~self ~cmd:(selector "setRtiDocumentState:") ~typ:(id @-> returning (void)) x -let setRtiDocumentTraits x self = msg_send ~self ~cmd:(selector "setRtiDocumentTraits:") ~typ:(id @-> returning (void)) x -let setViewServiceStateIsActiveForRTI x self = msg_send ~self ~cmd:(selector "setViewServiceStateIsActiveForRTI:") ~typ:(bool @-> returning (void)) x -let updateState self = msg_send ~self ~cmd:(selector "updateState") ~typ:(returning (void)) -let viewServiceStateIsActiveForRTI self = msg_send ~self ~cmd:(selector "viewServiceStateIsActiveForRTI") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIKBRTIPartner" + +let applicationStateIsActiveForRTI self = msg_send ~self ~cmd:(selector "applicationStateIsActiveForRTI") ~typ:(returning bool) +let applyRemoteDocumentStateIfNecessary x ~force self = msg_send ~self ~cmd:(selector "applyRemoteDocumentStateIfNecessary:force:") ~typ:(id @-> bool @-> returning void) x force +let applyRemoteDocumentTraitsIfNecessary x ~force self = msg_send ~self ~cmd:(selector "applyRemoteDocumentTraitsIfNecessary:force:") ~typ:(id @-> bool @-> returning void) x force +let beginAllowingRemoteTextInput x self = msg_send ~self ~cmd:(selector "beginAllowingRemoteTextInput:") ~typ:(id @-> returning void) x +let beginInputSessionWithIdentifier x self = msg_send ~self ~cmd:(selector "beginInputSessionWithIdentifier:") ~typ:(id @-> returning void) x +let currentSessionIdentifier self = msg_send ~self ~cmd:(selector "currentSessionIdentifier") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let documentStateChanged self = msg_send ~self ~cmd:(selector "documentStateChanged") ~typ:(returning void) +let documentTraitsChanged self = msg_send ~self ~cmd:(selector "documentTraitsChanged") ~typ:(returning void) +let endAllowingRemoteTextInput x self = msg_send ~self ~cmd:(selector "endAllowingRemoteTextInput:") ~typ:(id @-> returning void) x +let endInputSessionWithIdentifier x self = msg_send ~self ~cmd:(selector "endInputSessionWithIdentifier:") ~typ:(id @-> returning void) x +let ensureRTIConnection self = msg_send ~self ~cmd:(selector "ensureRTIConnection") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning id) +let inputSession x ~documentStateDidChange self = msg_send ~self ~cmd:(selector "inputSession:documentStateDidChange:") ~typ:(id @-> id @-> returning void) x documentStateDidChange +let inputSession' x ~documentTraitsDidChange self = msg_send ~self ~cmd:(selector "inputSession:documentTraitsDidChange:") ~typ:(id @-> id @-> returning void) x documentTraitsDidChange +let inputSystemClientEnabled self = msg_send ~self ~cmd:(selector "inputSystemClientEnabled") ~typ:(returning bool) +let isNotifyingDelegateOfRemoteOutputOperation self = msg_send ~self ~cmd:(selector "isNotifyingDelegateOfRemoteOutputOperation") ~typ:(returning bool) +let partnerDelegate self = msg_send ~self ~cmd:(selector "partnerDelegate") ~typ:(returning id) +let performTextOperations x self = msg_send ~self ~cmd:(selector "performTextOperations:") ~typ:(id @-> returning void) x +let restartCurrentSession self = msg_send ~self ~cmd:(selector "restartCurrentSession") ~typ:(returning void) +let rtiClient self = msg_send ~self ~cmd:(selector "rtiClient") ~typ:(returning id) +let rtiDocumentState self = msg_send ~self ~cmd:(selector "rtiDocumentState") ~typ:(returning id) +let rtiDocumentTraits self = msg_send ~self ~cmd:(selector "rtiDocumentTraits") ~typ:(returning id) +let setApplicationStateIsActiveForRTI x self = msg_send ~self ~cmd:(selector "setApplicationStateIsActiveForRTI:") ~typ:(bool @-> returning void) x +let setCurrentSessionIdentifier x self = msg_send ~self ~cmd:(selector "setCurrentSessionIdentifier:") ~typ:(id @-> returning void) x +let setInputSystemClientEnabled x self = msg_send ~self ~cmd:(selector "setInputSystemClientEnabled:") ~typ:(bool @-> returning void) x +let setPartnerDelegate x self = msg_send ~self ~cmd:(selector "setPartnerDelegate:") ~typ:(id @-> returning void) x +let setRtiClient x self = msg_send ~self ~cmd:(selector "setRtiClient:") ~typ:(id @-> returning void) x +let setRtiDocumentState x self = msg_send ~self ~cmd:(selector "setRtiDocumentState:") ~typ:(id @-> returning void) x +let setRtiDocumentTraits x self = msg_send ~self ~cmd:(selector "setRtiDocumentTraits:") ~typ:(id @-> returning void) x +let setViewServiceStateIsActiveForRTI x self = msg_send ~self ~cmd:(selector "setViewServiceStateIsActiveForRTI:") ~typ:(bool @-> returning void) x +let updateState self = msg_send ~self ~cmd:(selector "updateState") ~typ:(returning void) +let viewServiceStateIsActiveForRTI self = msg_send ~self ~cmd:(selector "viewServiceStateIsActiveForRTI") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKBRecentInputCell.ml b/uikit_extra/UIKBRecentInputCell.ml index 9177d8a1..4b37b8c9 100644 --- a/uikit_extra/UIKBRecentInputCell.ml +++ b/uikit_extra/UIKBRecentInputCell.ml @@ -5,19 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRecentInputCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrecentinputcell?language=objc}UIKBRecentInputCell} *) -module C = struct - let textColorForRenderConfig x ~isSelected self = msg_send ~self ~cmd:(selector "textColorForRenderConfig:isSelected:") ~typ:(id @-> bool @-> returning (id)) x isSelected - let titleAttributesForRenderConfig x self = msg_send ~self ~cmd:(selector "titleAttributesForRenderConfig:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIKBRecentInputCell" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isFocused self = msg_send ~self ~cmd:(selector "isFocused") ~typ:(returning (bool)) -let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setInputText x self = msg_send ~self ~cmd:(selector "setInputText:") ~typ:(id @-> returning (void)) x -let setLabel x self = msg_send ~self ~cmd:(selector "setLabel:") ~typ:(id @-> returning (void)) x -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isFocused self = msg_send ~self ~cmd:(selector "isFocused") ~typ:(returning bool) +let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setInputText x self = msg_send ~self ~cmd:(selector "setInputText:") ~typ:(id @-> returning void) x +let setLabel x self = msg_send ~self ~cmd:(selector "setLabel:") ~typ:(id @-> returning void) x +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBRecentInputCellClass.ml b/uikit_extra/UIKBRecentInputCellClass.ml new file mode 100644 index 00000000..063721b4 --- /dev/null +++ b/uikit_extra/UIKBRecentInputCellClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrecentinputcell?language=objc}UIKBRecentInputCell} *) + +let textColorForRenderConfig x ~isSelected self = msg_send ~self ~cmd:(selector "textColorForRenderConfig:isSelected:") ~typ:(id @-> bool @-> returning id) x isSelected +let titleAttributesForRenderConfig x self = msg_send ~self ~cmd:(selector "titleAttributesForRenderConfig:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBRecentInputsView.ml b/uikit_extra/UIKBRecentInputsView.ml index f29f4df2..afc92579 100644 --- a/uikit_extra/UIKBRecentInputsView.ml +++ b/uikit_extra/UIKBRecentInputsView.ml @@ -5,25 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRecentInputsView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrecentinputsview?language=objc}UIKBRecentInputsView} *) -let collectionView self = msg_send ~self ~cmd:(selector "collectionView") ~typ:(returning (id)) -let collectionView1 x ~cellForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:cellForItemAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForItemAtIndexPath -let collectionView2 x ~numberOfItemsInSection self = msg_send ~self ~cmd:(selector "collectionView:numberOfItemsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfItemsInSection) -let collectionView3 x ~layout ~sizeForItemAtIndexPath self = msg_send_stret ~self ~cmd:(selector "collectionView:layout:sizeForItemAtIndexPath:") ~typ:(id @-> id @-> id @-> returning (CGSize.t)) ~return_type:CGSize.t x layout sizeForItemAtIndexPath -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning (void)) x -let flowLayout self = msg_send ~self ~cmd:(selector "flowLayout") ~typ:(returning (id)) -let focusableVariantCount self = msg_send ~self ~cmd:(selector "focusableVariantCount") ~typ:(returning (ullong)) -let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning (id)) x keyplane key -let recentInputStrings self = msg_send ~self ~cmd:(selector "recentInputStrings") ~typ:(returning (id)) -let refreshSelectedRecent self = msg_send ~self ~cmd:(selector "refreshSelectedRecent") ~typ:(returning (void)) -let scrollViewDidChangeContentSize x self = msg_send ~self ~cmd:(selector "scrollViewDidChangeContentSize:") ~typ:(id @-> returning (void)) x -let selectedRecentInputString self = msg_send ~self ~cmd:(selector "selectedRecentInputString") ~typ:(returning (id)) -let setCollectionView x self = msg_send ~self ~cmd:(selector "setCollectionView:") ~typ:(id @-> returning (void)) x -let setFlowLayout x self = msg_send ~self ~cmd:(selector "setFlowLayout:") ~typ:(id @-> returning (void)) x -let setRecentInputStrings x self = msg_send ~self ~cmd:(selector "setRecentInputStrings:") ~typ:(id @-> returning (void)) x -let setRecentInputs x self = msg_send ~self ~cmd:(selector "setRecentInputs:") ~typ:(id @-> returning (void)) x -let setVerticalLayout x self = msg_send ~self ~cmd:(selector "setVerticalLayout:") ~typ:(bool @-> returning (void)) x -let setupCollectionView self = msg_send ~self ~cmd:(selector "setupCollectionView") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIKBRecentInputsView" + +let collectionView self = msg_send ~self ~cmd:(selector "collectionView") ~typ:(returning id) +let collectionView1 x ~cellForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:cellForItemAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForItemAtIndexPath +let collectionView2 x ~numberOfItemsInSection self = msg_send ~self ~cmd:(selector "collectionView:numberOfItemsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfItemsInSection) +let collectionView3 x ~layout ~sizeForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:layout:sizeForItemAtIndexPath:") ~typ:(id @-> id @-> id @-> returning CGSize.t) x layout sizeForItemAtIndexPath +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let displayLayer x self = msg_send ~self ~cmd:(selector "displayLayer:") ~typ:(id @-> returning void) x +let flowLayout self = msg_send ~self ~cmd:(selector "flowLayout") ~typ:(returning id) +let focusableVariantCount self = msg_send ~self ~cmd:(selector "focusableVariantCount") ~typ:(returning ullong) +let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning id) x keyplane key +let recentInputStrings self = msg_send ~self ~cmd:(selector "recentInputStrings") ~typ:(returning id) +let refreshSelectedRecent self = msg_send ~self ~cmd:(selector "refreshSelectedRecent") ~typ:(returning void) +let scrollViewDidChangeContentSize x self = msg_send ~self ~cmd:(selector "scrollViewDidChangeContentSize:") ~typ:(id @-> returning void) x +let selectedRecentInputString self = msg_send ~self ~cmd:(selector "selectedRecentInputString") ~typ:(returning id) +let setCollectionView x self = msg_send ~self ~cmd:(selector "setCollectionView:") ~typ:(id @-> returning void) x +let setFlowLayout x self = msg_send ~self ~cmd:(selector "setFlowLayout:") ~typ:(id @-> returning void) x +let setRecentInputStrings x self = msg_send ~self ~cmd:(selector "setRecentInputStrings:") ~typ:(id @-> returning void) x +let setRecentInputs x self = msg_send ~self ~cmd:(selector "setRecentInputs:") ~typ:(id @-> returning void) x +let setVerticalLayout x self = msg_send ~self ~cmd:(selector "setVerticalLayout:") ~typ:(bool @-> returning void) x +let setupCollectionView self = msg_send ~self ~cmd:(selector "setupCollectionView") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderConfig.ml b/uikit_extra/UIKBRenderConfig.ml index a3cc2b21..55436b10 100644 --- a/uikit_extra/UIKBRenderConfig.ml +++ b/uikit_extra/UIKBRenderConfig.ml @@ -5,41 +5,36 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderConfig" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderconfig?language=objc}UIKBRenderConfig} *) -module C = struct - let backdropStyleForStyle x ~quality self = msg_send ~self ~cmd:(selector "backdropStyleForStyle:quality:") ~typ:(llong @-> llong @-> returning (llong)) (LLong.of_int x) (LLong.of_int quality) - let configForAppearance x ~inputMode ~traitEnvironment self = msg_send ~self ~cmd:(selector "configForAppearance:inputMode:traitEnvironment:") ~typ:(llong @-> id @-> id @-> returning (id)) (LLong.of_int x) inputMode traitEnvironment - let darkConfig self = msg_send ~self ~cmd:(selector "darkConfig") ~typ:(returning (id)) - let defaultConfig self = msg_send ~self ~cmd:(selector "defaultConfig") ~typ:(returning (id)) - let defaultEmojiConfig self = msg_send ~self ~cmd:(selector "defaultEmojiConfig") ~typ:(returning (id)) - let lowQualityDarkConfig self = msg_send ~self ~cmd:(selector "lowQualityDarkConfig") ~typ:(returning (id)) -end +let self = get_class "UIKBRenderConfig" -let activatedKeyplaneSwitchControlKeyBackgroundName self = msg_send ~self ~cmd:(selector "activatedKeyplaneSwitchControlKeyBackgroundName") ~typ:(returning (id)) -let backdropStyle self = msg_send ~self ~cmd:(selector "backdropStyle") ~typ:(returning (llong)) -let blurEffectStyle self = msg_send ~self ~cmd:(selector "blurEffectStyle") ~typ:(returning (llong)) -let blurRadius self = msg_send ~self ~cmd:(selector "blurRadius") ~typ:(returning (double)) -let blurSaturation self = msg_send ~self ~cmd:(selector "blurSaturation") ~typ:(returning (double)) -let buttonBarVisualProvider self = msg_send ~self ~cmd:(selector "buttonBarVisualProvider") ~typ:(returning (id)) -let controlKeyBackgroundName self = msg_send ~self ~cmd:(selector "controlKeyBackgroundName") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let forceQuality self = msg_send ~self ~cmd:(selector "forceQuality") ~typ:(returning (llong)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isFloating self = msg_send ~self ~cmd:(selector "isFloating") ~typ:(returning (bool)) -let keycapOpacity self = msg_send ~self ~cmd:(selector "keycapOpacity") ~typ:(returning (double)) -let lightKeyboard self = msg_send ~self ~cmd:(selector "lightKeyboard") ~typ:(returning (bool)) -let lightKeycapOpacity self = msg_send ~self ~cmd:(selector "lightKeycapOpacity") ~typ:(returning (double)) -let setActivatedKeyplaneSwitchControlKeyBackgroundName x self = msg_send ~self ~cmd:(selector "setActivatedKeyplaneSwitchControlKeyBackgroundName:") ~typ:(id @-> returning (void)) x -let setBlurRadius x self = msg_send ~self ~cmd:(selector "setBlurRadius:") ~typ:(double @-> returning (void)) x -let setBlurSaturation x self = msg_send ~self ~cmd:(selector "setBlurSaturation:") ~typ:(double @-> returning (void)) x -let setControlKeyBackgroundName x self = msg_send ~self ~cmd:(selector "setControlKeyBackgroundName:") ~typ:(id @-> returning (void)) x -let setForceQuality x self = msg_send ~self ~cmd:(selector "setForceQuality:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setIsFloating x self = msg_send ~self ~cmd:(selector "setIsFloating:") ~typ:(bool @-> returning (void)) x -let setKeycapOpacity x self = msg_send ~self ~cmd:(selector "setKeycapOpacity:") ~typ:(double @-> returning (void)) x -let setLightKeyboard x self = msg_send ~self ~cmd:(selector "setLightKeyboard:") ~typ:(bool @-> returning (void)) x -let setLightKeycapOpacity x self = msg_send ~self ~cmd:(selector "setLightKeycapOpacity:") ~typ:(double @-> returning (void)) x -let whiteText self = msg_send ~self ~cmd:(selector "whiteText") ~typ:(returning (bool)) \ No newline at end of file +let activatedKeyplaneSwitchControlKeyBackgroundName self = msg_send ~self ~cmd:(selector "activatedKeyplaneSwitchControlKeyBackgroundName") ~typ:(returning id) +let backdropStyle self = msg_send ~self ~cmd:(selector "backdropStyle") ~typ:(returning llong) +let blurEffectStyle self = msg_send ~self ~cmd:(selector "blurEffectStyle") ~typ:(returning llong) +let blurRadius self = msg_send ~self ~cmd:(selector "blurRadius") ~typ:(returning double) +let blurSaturation self = msg_send ~self ~cmd:(selector "blurSaturation") ~typ:(returning double) +let buttonBarVisualProvider self = msg_send ~self ~cmd:(selector "buttonBarVisualProvider") ~typ:(returning id) +let controlKeyBackgroundName self = msg_send ~self ~cmd:(selector "controlKeyBackgroundName") ~typ:(returning id) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let forceQuality self = msg_send ~self ~cmd:(selector "forceQuality") ~typ:(returning llong) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isFloating self = msg_send ~self ~cmd:(selector "isFloating") ~typ:(returning bool) +let keycapOpacity self = msg_send ~self ~cmd:(selector "keycapOpacity") ~typ:(returning double) +let lightKeyboard self = msg_send ~self ~cmd:(selector "lightKeyboard") ~typ:(returning bool) +let lightKeycapOpacity self = msg_send ~self ~cmd:(selector "lightKeycapOpacity") ~typ:(returning double) +let setActivatedKeyplaneSwitchControlKeyBackgroundName x self = msg_send ~self ~cmd:(selector "setActivatedKeyplaneSwitchControlKeyBackgroundName:") ~typ:(id @-> returning void) x +let setBlurRadius x self = msg_send ~self ~cmd:(selector "setBlurRadius:") ~typ:(double @-> returning void) x +let setBlurSaturation x self = msg_send ~self ~cmd:(selector "setBlurSaturation:") ~typ:(double @-> returning void) x +let setControlKeyBackgroundName x self = msg_send ~self ~cmd:(selector "setControlKeyBackgroundName:") ~typ:(id @-> returning void) x +let setForceQuality x self = msg_send ~self ~cmd:(selector "setForceQuality:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setIsFloating x self = msg_send ~self ~cmd:(selector "setIsFloating:") ~typ:(bool @-> returning void) x +let setKeycapOpacity x self = msg_send ~self ~cmd:(selector "setKeycapOpacity:") ~typ:(double @-> returning void) x +let setLightKeyboard x self = msg_send ~self ~cmd:(selector "setLightKeyboard:") ~typ:(bool @-> returning void) x +let setLightKeycapOpacity x self = msg_send ~self ~cmd:(selector "setLightKeycapOpacity:") ~typ:(double @-> returning void) x +let whiteText self = msg_send ~self ~cmd:(selector "whiteText") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderConfigClass.ml b/uikit_extra/UIKBRenderConfigClass.ml new file mode 100644 index 00000000..55b418e8 --- /dev/null +++ b/uikit_extra/UIKBRenderConfigClass.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderconfig?language=objc}UIKBRenderConfig} *) + +let backdropStyleForStyle x ~quality self = msg_send ~self ~cmd:(selector "backdropStyleForStyle:quality:") ~typ:(llong @-> llong @-> returning llong) (LLong.of_int x) (LLong.of_int quality) +let configForAppearance x ~inputMode ~traitEnvironment self = msg_send ~self ~cmd:(selector "configForAppearance:inputMode:traitEnvironment:") ~typ:(llong @-> id @-> id @-> returning id) (LLong.of_int x) inputMode traitEnvironment +let darkConfig self = msg_send ~self ~cmd:(selector "darkConfig") ~typ:(returning id) +let defaultConfig self = msg_send ~self ~cmd:(selector "defaultConfig") ~typ:(returning id) +let defaultEmojiConfig self = msg_send ~self ~cmd:(selector "defaultEmojiConfig") ~typ:(returning id) +let lowQualityDarkConfig self = msg_send ~self ~cmd:(selector "lowQualityDarkConfig") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory.ml b/uikit_extra/UIKBRenderFactory.ml index 661c4916..53b7bf8d 100644 --- a/uikit_extra/UIKBRenderFactory.ml +++ b/uikit_extra/UIKBRenderFactory.ml @@ -5,115 +5,109 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactory" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory?language=objc}UIKBRenderFactory} *) -module C = struct - let cacheKeyForString x ~withRenderFlags ~renderingContext self = msg_send ~self ~cmd:(selector "cacheKeyForString:withRenderFlags:renderingContext:") ~typ:(id @-> llong @-> id @-> returning (id)) x (LLong.of_int withRenderFlags) renderingContext - let couldUseGlyphSelectorForDisplayString x self = msg_send ~self ~cmd:(selector "couldUseGlyphSelectorForDisplayString:") ~typ:(id @-> returning (bool)) x - let factoryClassForVisualStyle x ~renderingContext self = msg_send ~self ~cmd:(selector "factoryClassForVisualStyle:renderingContext:") ~typ:(ptr void @-> id @-> returning (_Class)) x renderingContext - let factoryForVisualStyle x ~renderingContext self = msg_send ~self ~cmd:(selector "factoryForVisualStyle:renderingContext:") ~typ:(ptr void @-> id @-> returning (id)) x renderingContext - let factoryForVisualStyle' x ~renderingContext ~skipLayoutSegments self = msg_send ~self ~cmd:(selector "factoryForVisualStyle:renderingContext:skipLayoutSegments:") ~typ:(ptr void @-> id @-> bool @-> returning (id)) x renderingContext skipLayoutSegments - let lightweightFactoryForVisualStyle x ~renderingContext self = msg_send ~self ~cmd:(selector "lightweightFactoryForVisualStyle:renderingContext:") ~typ:(ptr void @-> id @-> returning (id)) x renderingContext - let segmentedControlColor x self = msg_send ~self ~cmd:(selector "segmentedControlColor:") ~typ:(bool @-> returning (id)) x -end +let self = get_class "UIKBRenderFactory" -let _RivenFactor x self = msg_send ~self ~cmd:(selector "RivenFactor:") ~typ:(double @-> returning (double)) x -let _RivenPointFactor x self = msg_send_stret ~self ~cmd:(selector "RivenPointFactor:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let _ZWNJKeyImageName self = msg_send ~self ~cmd:(selector "ZWNJKeyImageName") ~typ:(returning (id)) -let addLayoutSegment x self = msg_send ~self ~cmd:(selector "addLayoutSegment:") ~typ:(id @-> returning (void)) x -let allowsPaddleForKey x self = msg_send ~self ~cmd:(selector "allowsPaddleForKey:") ~typ:(id @-> returning (bool)) x -let allowsPaddles self = msg_send ~self ~cmd:(selector "allowsPaddles") ~typ:(returning (bool)) -let applyBoldTextForContent x ~withKey self = msg_send ~self ~cmd:(selector "applyBoldTextForContent:withKey:") ~typ:(id @-> id @-> returning (void)) x withKey -let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning (llong)) -let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning (id)) x -let biuKeyImageName self = msg_send ~self ~cmd:(selector "biuKeyImageName") ~typ:(returning (id)) -let boldKeyImageName self = msg_send ~self ~cmd:(selector "boldKeyImageName") ~typ:(returning (id)) -let boldTextEnabled self = msg_send ~self ~cmd:(selector "boldTextEnabled") ~typ:(returning (bool)) -let contentViewClassForPopupKey x self = msg_send ~self ~cmd:(selector "contentViewClassForPopupKey:") ~typ:(id @-> returning (_Class)) x -let controlKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "controlKeyBackgroundColorName") ~typ:(returning (id)) -let controlKeyForegroundColorName self = msg_send ~self ~cmd:(selector "controlKeyForegroundColorName") ~typ:(returning (id)) -let controlKeyShadowColorName self = msg_send ~self ~cmd:(selector "controlKeyShadowColorName") ~typ:(returning (id)) -let copyKeyImageName self = msg_send ~self ~cmd:(selector "copyKeyImageName") ~typ:(returning (id)) -let customizeLanguageIndicatorTraitsForTraits x self = msg_send ~self ~cmd:(selector "customizeLanguageIndicatorTraitsForTraits:") ~typ:(id @-> returning (void)) x -let cutKeyImageName self = msg_send ~self ~cmd:(selector "cutKeyImageName") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "defaultKeyBackgroundColorName") ~typ:(returning (id)) -let defaultKeyShadowColorName self = msg_send ~self ~cmd:(selector "defaultKeyShadowColorName") ~typ:(returning (id)) -let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning (id)) -let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning (id)) -let dictationKeyImageName self = msg_send ~self ~cmd:(selector "dictationKeyImageName") ~typ:(returning (id)) -let dismissKeyImageName self = msg_send ~self ~cmd:(selector "dismissKeyImageName") ~typ:(returning (id)) -let displayContentsForKey x self = msg_send ~self ~cmd:(selector "displayContentsForKey:") ~typ:(id @-> returning (id)) x -let drawsOneHandedAffordance self = msg_send ~self ~cmd:(selector "drawsOneHandedAffordance") ~typ:(returning (bool)) -let dualStringKeyBottomTextOffset x ~keyplane self = msg_send_stret ~self ~cmd:(selector "dualStringKeyBottomTextOffset:keyplane:") ~typ:(id @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x keyplane -let dualStringKeyTopTextOffset x ~keyplane self = msg_send_stret ~self ~cmd:(selector "dualStringKeyTopTextOffset:keyplane:") ~typ:(id @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x keyplane -let emojiPopupDividerKeyOffset self = msg_send ~self ~cmd:(selector "emojiPopupDividerKeyOffset") ~typ:(returning (double)) -let enabledBlendForm self = msg_send ~self ~cmd:(selector "enabledBlendForm") ~typ:(returning (llong)) -let extraPasscodePaddleTraits self = msg_send ~self ~cmd:(selector "extraPasscodePaddleTraits") ~typ:(returning (id)) -let globalEmojiKeyImageName self = msg_send ~self ~cmd:(selector "globalEmojiKeyImageName") ~typ:(returning (id)) -let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning (id)) -let glyphSelectorForDisplayString x self = msg_send ~self ~cmd:(selector "glyphSelectorForDisplayString:") ~typ:(id @-> returning (llong)) x -let handwritingMoreKeyImageName self = msg_send ~self ~cmd:(selector "handwritingMoreKeyImageName") ~typ:(returning (id)) -let hashStringElement self = msg_send ~self ~cmd:(selector "hashStringElement") ~typ:(returning (id)) -let increasedContrastEnabled self = msg_send ~self ~cmd:(selector "increasedContrastEnabled") ~typ:(returning (bool)) -let initWithRenderingContext x ~skipLayoutSegments self = msg_send ~self ~cmd:(selector "initWithRenderingContext:skipLayoutSegments:") ~typ:(id @-> bool @-> returning (id)) x skipLayoutSegments -let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning (double)) -let keyImageNameWithSkinnyVariation x self = msg_send ~self ~cmd:(selector "keyImageNameWithSkinnyVariation:") ~typ:(id @-> returning (id)) x -let keyIsRightToLeftSensitive x self = msg_send ~self ~cmd:(selector "keyIsRightToLeftSensitive:") ~typ:(id @-> returning (bool)) x -let leftArrowKeyImageName self = msg_send ~self ~cmd:(selector "leftArrowKeyImageName") ~typ:(returning (id)) -let lightHighQualityEnabledBlendForm self = msg_send ~self ~cmd:(selector "lightHighQualityEnabledBlendForm") ~typ:(returning (llong)) -let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning (id)) -let lightPadKeycapsFontName self = msg_send ~self ~cmd:(selector "lightPadKeycapsFontName") ~typ:(returning (id)) -let lightTextFontName self = msg_send ~self ~cmd:(selector "lightTextFontName") ~typ:(returning (id)) -let lightweightFactory self = msg_send ~self ~cmd:(selector "lightweightFactory") ~typ:(returning (bool)) -let lowQualityLayeredBackgroundColorName self = msg_send ~self ~cmd:(selector "lowQualityLayeredBackgroundColorName") ~typ:(returning (id)) -let lowQualityTraits x self = msg_send ~self ~cmd:(selector "lowQualityTraits:") ~typ:(id @-> returning (void)) x -let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning (id)) -let modifyKeyTraitsForPasscode x ~forKey ~onKeyplane self = msg_send ~self ~cmd:(selector "modifyKeyTraitsForPasscode:forKey:onKeyplane:") ~typ:(id @-> id @-> id @-> returning (void)) x forKey onKeyplane -let modifyTraitsForDetachedInputSwitcher x ~withKey self = msg_send ~self ~cmd:(selector "modifyTraitsForDetachedInputSwitcher:withKey:") ~typ:(id @-> id @-> returning (void)) x withKey -let modifyTraitsForDividerVariant x ~withKey self = msg_send ~self ~cmd:(selector "modifyTraitsForDividerVariant:withKey:") ~typ:(id @-> id @-> returning (void)) x withKey -let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning (id)) -let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning (id)) -let passcodeActiveControlKeyTraits self = msg_send ~self ~cmd:(selector "passcodeActiveControlKeyTraits") ~typ:(returning (id)) -let passcodeBackgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "passcodeBackgroundTraitsForKeyplane:") ~typ:(id @-> returning (id)) x -let passcodeControlKeyTraits self = msg_send ~self ~cmd:(selector "passcodeControlKeyTraits") ~typ:(returning (id)) -let passcodeEdgeWeight self = msg_send ~self ~cmd:(selector "passcodeEdgeWeight") ~typ:(returning (double)) -let passcodeKeyEdgeColorName self = msg_send ~self ~cmd:(selector "passcodeKeyEdgeColorName") ~typ:(returning (id)) -let passcodeShiftedControlKeyTraits self = msg_send ~self ~cmd:(selector "passcodeShiftedControlKeyTraits") ~typ:(returning (id)) -let pasteKeyImageName self = msg_send ~self ~cmd:(selector "pasteKeyImageName") ~typ:(returning (id)) -let popupKeyUsesCustomKeyContentView x self = msg_send ~self ~cmd:(selector "popupKeyUsesCustomKeyContentView:") ~typ:(id @-> returning (bool)) x -let preferStringKeycapOverImage self = msg_send ~self ~cmd:(selector "preferStringKeycapOverImage") ~typ:(returning (bool)) -let renderConfig self = msg_send ~self ~cmd:(selector "renderConfig") ~typ:(returning (id)) -let renderingContext self = msg_send ~self ~cmd:(selector "renderingContext") ~typ:(returning (id)) -let rightArrowKeyImageName self = msg_send ~self ~cmd:(selector "rightArrowKeyImageName") ~typ:(returning (id)) -let rivenSizeFactor self = msg_send ~self ~cmd:(selector "rivenSizeFactor") ~typ:(returning (double)) -let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning (double)) -let scaleTraits x self = msg_send ~self ~cmd:(selector "scaleTraits:") ~typ:(id @-> returning (void)) x -let segmentTraits self = msg_send ~self ~cmd:(selector "segmentTraits") ~typ:(returning (id)) -let setAllowsPaddles x self = msg_send ~self ~cmd:(selector "setAllowsPaddles:") ~typ:(bool @-> returning (void)) x -let setDrawsOneHandedAffordance x self = msg_send ~self ~cmd:(selector "setDrawsOneHandedAffordance:") ~typ:(bool @-> returning (void)) x -let setIncreasedContrastEnabled x self = msg_send ~self ~cmd:(selector "setIncreasedContrastEnabled:") ~typ:(bool @-> returning (void)) x -let setLightweightFactory x self = msg_send ~self ~cmd:(selector "setLightweightFactory:") ~typ:(bool @-> returning (void)) x -let setPreferStringKeycapOverImage x self = msg_send ~self ~cmd:(selector "setPreferStringKeycapOverImage:") ~typ:(bool @-> returning (void)) x -let setRenderingContext x self = msg_send ~self ~cmd:(selector "setRenderingContext:") ~typ:(id @-> returning (void)) x -let setRivenSizeFactor x self = msg_send ~self ~cmd:(selector "setRivenSizeFactor:") ~typ:(double @-> returning (void)) x -let setScale x self = msg_send ~self ~cmd:(selector "setScale:") ~typ:(double @-> returning (void)) x -let setStretchFactor x self = msg_send ~self ~cmd:(selector "setStretchFactor:") ~typ:(CGSize.t @-> returning (void)) x -let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning (void)) -let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning (id)) -let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning (id)) -let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning (id)) -let shouldClearBaseDisplayStringForVariants x self = msg_send ~self ~cmd:(selector "shouldClearBaseDisplayStringForVariants:") ~typ:(id @-> returning (bool)) x -let skinnyKeyThreshold self = msg_send ~self ~cmd:(selector "skinnyKeyThreshold") ~typ:(returning (double)) -let spaceKeyGrabberHandlesImageName self = msg_send ~self ~cmd:(selector "spaceKeyGrabberHandlesImageName") ~typ:(returning (id)) -let stretchFactor self = msg_send_stret ~self ~cmd:(selector "stretchFactor") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let supportsInputTraits x ~forKeyplane self = msg_send ~self ~cmd:(selector "supportsInputTraits:forKeyplane:") ~typ:(id @-> id @-> returning (bool)) x forKeyplane -let suppressLayoutSegments self = msg_send ~self ~cmd:(selector "suppressLayoutSegments") ~typ:(returning (void)) -let thinKeycapsFontName self = msg_send ~self ~cmd:(selector "thinKeycapsFontName") ~typ:(returning (id)) -let thinTextFontName self = msg_send ~self ~cmd:(selector "thinTextFontName") ~typ:(returning (id)) -let traitsForKey x ~onKeyplane self = msg_send ~self ~cmd:(selector "traitsForKey:onKeyplane:") ~typ:(id @-> id @-> returning (id)) x onKeyplane -let traitsHashStringForKey x ~withGeometry ~withSymbolStyle ~controlOpacities ~blurBlending self = msg_send ~self ~cmd:(selector "traitsHashStringForKey:withGeometry:withSymbolStyle:controlOpacities:blurBlending:") ~typ:(id @-> id @-> id @-> bool @-> bool @-> returning (id)) x withGeometry withSymbolStyle controlOpacities blurBlending -let translucentGapWidth self = msg_send ~self ~cmd:(selector "translucentGapWidth") ~typ:(returning (double)) -let undoKeyImageName self = msg_send ~self ~cmd:(selector "undoKeyImageName") ~typ:(returning (id)) -let useBlueThemingForKey x self = msg_send ~self ~cmd:(selector "useBlueThemingForKey:") ~typ:(id @-> returning (bool)) x \ No newline at end of file +let _RivenFactor x self = msg_send ~self ~cmd:(selector "RivenFactor:") ~typ:(double @-> returning double) x +let _RivenPointFactor x self = msg_send ~self ~cmd:(selector "RivenPointFactor:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let _ZWNJKeyImageName self = msg_send ~self ~cmd:(selector "ZWNJKeyImageName") ~typ:(returning id) +let addLayoutSegment x self = msg_send ~self ~cmd:(selector "addLayoutSegment:") ~typ:(id @-> returning void) x +let allowsPaddleForKey x self = msg_send ~self ~cmd:(selector "allowsPaddleForKey:") ~typ:(id @-> returning bool) x +let allowsPaddles self = msg_send ~self ~cmd:(selector "allowsPaddles") ~typ:(returning bool) +let applyBoldTextForContent x ~withKey self = msg_send ~self ~cmd:(selector "applyBoldTextForContent:withKey:") ~typ:(id @-> id @-> returning void) x withKey +let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning llong) +let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning id) x +let biuKeyImageName self = msg_send ~self ~cmd:(selector "biuKeyImageName") ~typ:(returning id) +let boldKeyImageName self = msg_send ~self ~cmd:(selector "boldKeyImageName") ~typ:(returning id) +let boldTextEnabled self = msg_send ~self ~cmd:(selector "boldTextEnabled") ~typ:(returning bool) +let contentViewClassForPopupKey x self = msg_send ~self ~cmd:(selector "contentViewClassForPopupKey:") ~typ:(id @-> returning _Class) x +let controlKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "controlKeyBackgroundColorName") ~typ:(returning id) +let controlKeyForegroundColorName self = msg_send ~self ~cmd:(selector "controlKeyForegroundColorName") ~typ:(returning id) +let controlKeyShadowColorName self = msg_send ~self ~cmd:(selector "controlKeyShadowColorName") ~typ:(returning id) +let copyKeyImageName self = msg_send ~self ~cmd:(selector "copyKeyImageName") ~typ:(returning id) +let customizeLanguageIndicatorTraitsForTraits x self = msg_send ~self ~cmd:(selector "customizeLanguageIndicatorTraitsForTraits:") ~typ:(id @-> returning void) x +let cutKeyImageName self = msg_send ~self ~cmd:(selector "cutKeyImageName") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "defaultKeyBackgroundColorName") ~typ:(returning id) +let defaultKeyShadowColorName self = msg_send ~self ~cmd:(selector "defaultKeyShadowColorName") ~typ:(returning id) +let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning id) +let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning id) +let dictationKeyImageName self = msg_send ~self ~cmd:(selector "dictationKeyImageName") ~typ:(returning id) +let dismissKeyImageName self = msg_send ~self ~cmd:(selector "dismissKeyImageName") ~typ:(returning id) +let displayContentsForKey x self = msg_send ~self ~cmd:(selector "displayContentsForKey:") ~typ:(id @-> returning id) x +let drawsOneHandedAffordance self = msg_send ~self ~cmd:(selector "drawsOneHandedAffordance") ~typ:(returning bool) +let dualStringKeyBottomTextOffset x ~keyplane self = msg_send ~self ~cmd:(selector "dualStringKeyBottomTextOffset:keyplane:") ~typ:(id @-> id @-> returning CGPoint.t) x keyplane +let dualStringKeyTopTextOffset x ~keyplane self = msg_send ~self ~cmd:(selector "dualStringKeyTopTextOffset:keyplane:") ~typ:(id @-> id @-> returning CGPoint.t) x keyplane +let emojiPopupDividerKeyOffset self = msg_send ~self ~cmd:(selector "emojiPopupDividerKeyOffset") ~typ:(returning double) +let enabledBlendForm self = msg_send ~self ~cmd:(selector "enabledBlendForm") ~typ:(returning llong) +let extraPasscodePaddleTraits self = msg_send ~self ~cmd:(selector "extraPasscodePaddleTraits") ~typ:(returning id) +let globalEmojiKeyImageName self = msg_send ~self ~cmd:(selector "globalEmojiKeyImageName") ~typ:(returning id) +let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning id) +let glyphSelectorForDisplayString x self = msg_send ~self ~cmd:(selector "glyphSelectorForDisplayString:") ~typ:(id @-> returning llong) x +let handwritingMoreKeyImageName self = msg_send ~self ~cmd:(selector "handwritingMoreKeyImageName") ~typ:(returning id) +let hashStringElement self = msg_send ~self ~cmd:(selector "hashStringElement") ~typ:(returning id) +let increasedContrastEnabled self = msg_send ~self ~cmd:(selector "increasedContrastEnabled") ~typ:(returning bool) +let initWithRenderingContext x ~skipLayoutSegments self = msg_send ~self ~cmd:(selector "initWithRenderingContext:skipLayoutSegments:") ~typ:(id @-> bool @-> returning id) x skipLayoutSegments +let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning double) +let keyImageNameWithSkinnyVariation x self = msg_send ~self ~cmd:(selector "keyImageNameWithSkinnyVariation:") ~typ:(id @-> returning id) x +let keyIsRightToLeftSensitive x self = msg_send ~self ~cmd:(selector "keyIsRightToLeftSensitive:") ~typ:(id @-> returning bool) x +let leftArrowKeyImageName self = msg_send ~self ~cmd:(selector "leftArrowKeyImageName") ~typ:(returning id) +let lightHighQualityEnabledBlendForm self = msg_send ~self ~cmd:(selector "lightHighQualityEnabledBlendForm") ~typ:(returning llong) +let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning id) +let lightPadKeycapsFontName self = msg_send ~self ~cmd:(selector "lightPadKeycapsFontName") ~typ:(returning id) +let lightTextFontName self = msg_send ~self ~cmd:(selector "lightTextFontName") ~typ:(returning id) +let lightweightFactory self = msg_send ~self ~cmd:(selector "lightweightFactory") ~typ:(returning bool) +let lowQualityLayeredBackgroundColorName self = msg_send ~self ~cmd:(selector "lowQualityLayeredBackgroundColorName") ~typ:(returning id) +let lowQualityTraits x self = msg_send ~self ~cmd:(selector "lowQualityTraits:") ~typ:(id @-> returning void) x +let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning id) +let modifyKeyTraitsForPasscode x ~forKey ~onKeyplane self = msg_send ~self ~cmd:(selector "modifyKeyTraitsForPasscode:forKey:onKeyplane:") ~typ:(id @-> id @-> id @-> returning void) x forKey onKeyplane +let modifyTraitsForDetachedInputSwitcher x ~withKey self = msg_send ~self ~cmd:(selector "modifyTraitsForDetachedInputSwitcher:withKey:") ~typ:(id @-> id @-> returning void) x withKey +let modifyTraitsForDividerVariant x ~withKey self = msg_send ~self ~cmd:(selector "modifyTraitsForDividerVariant:withKey:") ~typ:(id @-> id @-> returning void) x withKey +let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning id) +let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning id) +let passcodeActiveControlKeyTraits self = msg_send ~self ~cmd:(selector "passcodeActiveControlKeyTraits") ~typ:(returning id) +let passcodeBackgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "passcodeBackgroundTraitsForKeyplane:") ~typ:(id @-> returning id) x +let passcodeControlKeyTraits self = msg_send ~self ~cmd:(selector "passcodeControlKeyTraits") ~typ:(returning id) +let passcodeEdgeWeight self = msg_send ~self ~cmd:(selector "passcodeEdgeWeight") ~typ:(returning double) +let passcodeKeyEdgeColorName self = msg_send ~self ~cmd:(selector "passcodeKeyEdgeColorName") ~typ:(returning id) +let passcodeShiftedControlKeyTraits self = msg_send ~self ~cmd:(selector "passcodeShiftedControlKeyTraits") ~typ:(returning id) +let pasteKeyImageName self = msg_send ~self ~cmd:(selector "pasteKeyImageName") ~typ:(returning id) +let popupKeyUsesCustomKeyContentView x self = msg_send ~self ~cmd:(selector "popupKeyUsesCustomKeyContentView:") ~typ:(id @-> returning bool) x +let preferStringKeycapOverImage self = msg_send ~self ~cmd:(selector "preferStringKeycapOverImage") ~typ:(returning bool) +let renderConfig self = msg_send ~self ~cmd:(selector "renderConfig") ~typ:(returning id) +let renderingContext self = msg_send ~self ~cmd:(selector "renderingContext") ~typ:(returning id) +let rightArrowKeyImageName self = msg_send ~self ~cmd:(selector "rightArrowKeyImageName") ~typ:(returning id) +let rivenSizeFactor self = msg_send ~self ~cmd:(selector "rivenSizeFactor") ~typ:(returning double) +let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning double) +let scaleTraits x self = msg_send ~self ~cmd:(selector "scaleTraits:") ~typ:(id @-> returning void) x +let segmentTraits self = msg_send ~self ~cmd:(selector "segmentTraits") ~typ:(returning id) +let setAllowsPaddles x self = msg_send ~self ~cmd:(selector "setAllowsPaddles:") ~typ:(bool @-> returning void) x +let setDrawsOneHandedAffordance x self = msg_send ~self ~cmd:(selector "setDrawsOneHandedAffordance:") ~typ:(bool @-> returning void) x +let setIncreasedContrastEnabled x self = msg_send ~self ~cmd:(selector "setIncreasedContrastEnabled:") ~typ:(bool @-> returning void) x +let setLightweightFactory x self = msg_send ~self ~cmd:(selector "setLightweightFactory:") ~typ:(bool @-> returning void) x +let setPreferStringKeycapOverImage x self = msg_send ~self ~cmd:(selector "setPreferStringKeycapOverImage:") ~typ:(bool @-> returning void) x +let setRenderingContext x self = msg_send ~self ~cmd:(selector "setRenderingContext:") ~typ:(id @-> returning void) x +let setRivenSizeFactor x self = msg_send ~self ~cmd:(selector "setRivenSizeFactor:") ~typ:(double @-> returning void) x +let setScale x self = msg_send ~self ~cmd:(selector "setScale:") ~typ:(double @-> returning void) x +let setStretchFactor x self = msg_send ~self ~cmd:(selector "setStretchFactor:") ~typ:(CGSize.t @-> returning void) x +let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning void) +let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning id) +let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning id) +let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning id) +let shouldClearBaseDisplayStringForVariants x self = msg_send ~self ~cmd:(selector "shouldClearBaseDisplayStringForVariants:") ~typ:(id @-> returning bool) x +let skinnyKeyThreshold self = msg_send ~self ~cmd:(selector "skinnyKeyThreshold") ~typ:(returning double) +let spaceKeyGrabberHandlesImageName self = msg_send ~self ~cmd:(selector "spaceKeyGrabberHandlesImageName") ~typ:(returning id) +let stretchFactor self = msg_send ~self ~cmd:(selector "stretchFactor") ~typ:(returning CGSize.t) +let supportsInputTraits x ~forKeyplane self = msg_send ~self ~cmd:(selector "supportsInputTraits:forKeyplane:") ~typ:(id @-> id @-> returning bool) x forKeyplane +let suppressLayoutSegments self = msg_send ~self ~cmd:(selector "suppressLayoutSegments") ~typ:(returning void) +let thinKeycapsFontName self = msg_send ~self ~cmd:(selector "thinKeycapsFontName") ~typ:(returning id) +let thinTextFontName self = msg_send ~self ~cmd:(selector "thinTextFontName") ~typ:(returning id) +let traitsForKey x ~onKeyplane self = msg_send ~self ~cmd:(selector "traitsForKey:onKeyplane:") ~typ:(id @-> id @-> returning id) x onKeyplane +let traitsHashStringForKey x ~withGeometry ~withSymbolStyle ~controlOpacities ~blurBlending self = msg_send ~self ~cmd:(selector "traitsHashStringForKey:withGeometry:withSymbolStyle:controlOpacities:blurBlending:") ~typ:(id @-> id @-> id @-> bool @-> bool @-> returning id) x withGeometry withSymbolStyle controlOpacities blurBlending +let translucentGapWidth self = msg_send ~self ~cmd:(selector "translucentGapWidth") ~typ:(returning double) +let undoKeyImageName self = msg_send ~self ~cmd:(selector "undoKeyImageName") ~typ:(returning id) +let useBlueThemingForKey x self = msg_send ~self ~cmd:(selector "useBlueThemingForKey:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory10Key.ml b/uikit_extra/UIKBRenderFactory10Key.ml index a19b1553..c02d3c31 100644 --- a/uikit_extra/UIKBRenderFactory10Key.ml +++ b/uikit_extra/UIKBRenderFactory10Key.ml @@ -5,37 +5,42 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactory10Key" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory10key?language=objc}UIKBRenderFactory10Key} *) -let abcKeyTextOffset self = msg_send_stret ~self ~cmd:(selector "abcKeyTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let activeControlKeyTraits self = msg_send ~self ~cmd:(selector "activeControlKeyTraits") ~typ:(returning (id)) -let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning (llong)) -let capitalAbcSymbolSize self = msg_send ~self ~cmd:(selector "capitalAbcSymbolSize") ~typ:(returning (double)) -let controlKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "controlKeyBackgroundColorName") ~typ:(returning (id)) -let controlKeyDividerColorName self = msg_send ~self ~cmd:(selector "controlKeyDividerColorName") ~typ:(returning (id)) -let controlKeyForegroundColorName self = msg_send ~self ~cmd:(selector "controlKeyForegroundColorName") ~typ:(returning (id)) -let controlKeyTraits self = msg_send ~self ~cmd:(selector "controlKeyTraits") ~typ:(returning (id)) -let defaultKeyDividerColorName self = msg_send ~self ~cmd:(selector "defaultKeyDividerColorName") ~typ:(returning (id)) -let dictationKeyTextOffset self = msg_send_stret ~self ~cmd:(selector "dictationKeyTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let displayContentsForKey x self = msg_send ~self ~cmd:(selector "displayContentsForKey:") ~typ:(id @-> returning (id)) x -let edgesAdjustedForTranslucentGapsForGeometry x ~key ~onKeyplane self = msg_send ~self ~cmd:(selector "edgesAdjustedForTranslucentGapsForGeometry:key:onKeyplane:") ~typ:(id @-> id @-> id @-> returning (ullong)) x key onKeyplane -let globeKeyTextOffset self = msg_send_stret ~self ~cmd:(selector "globeKeyTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let interkeyGapsCenterXOfKeyplaneFrame x self = msg_send ~self ~cmd:(selector "interkeyGapsCenterXOfKeyplaneFrame:") ~typ:(CGRect.t @-> returning (double)) x -let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning (double)) -let lightHighQualityEnabledBlendForm self = msg_send ~self ~cmd:(selector "lightHighQualityEnabledBlendForm") ~typ:(returning (llong)) -let longVowelSignKeyTextOffset self = msg_send_stret ~self ~cmd:(selector "longVowelSignKeyTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let modifyTraitsForDetachedInputSwitcher x ~withKey self = msg_send ~self ~cmd:(selector "modifyTraitsForDetachedInputSwitcher:withKey:") ~typ:(id @-> id @-> returning (void)) x withKey -let numberPadKeyPrimarySymbolSize self = msg_send ~self ~cmd:(selector "numberPadKeyPrimarySymbolSize") ~typ:(returning (double)) -let numberPadKeyPrimaryTextOffset self = msg_send_stret ~self ~cmd:(selector "numberPadKeyPrimaryTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let numberPadKeySecondaryTextOffset self = msg_send_stret ~self ~cmd:(selector "numberPadKeySecondaryTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let numberPadVBarSecondaryTextOffset self = msg_send_stret ~self ~cmd:(selector "numberPadVBarSecondaryTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let roundCornersForKey x ~onKeyplane self = msg_send ~self ~cmd:(selector "roundCornersForKey:onKeyplane:") ~typ:(id @-> id @-> returning (ullong)) x onKeyplane -let setupColumnLayoutSegmentsWithControlWidth x self = msg_send ~self ~cmd:(selector "setupColumnLayoutSegmentsWithControlWidth:") ~typ:(double @-> returning (void)) x -let shiftedControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftedControlKeyTraits") ~typ:(returning (id)) -let shiftedWhiteControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftedWhiteControlKeyTraits") ~typ:(returning (id)) -let shouldShowBottomRowEdge self = msg_send ~self ~cmd:(selector "shouldShowBottomRowEdge") ~typ:(returning (bool)) -let shouldShowTopRowEdge self = msg_send ~self ~cmd:(selector "shouldShowTopRowEdge") ~typ:(returning (bool)) -let symbolImageControlKeyFontSize self = msg_send ~self ~cmd:(selector "symbolImageControlKeyFontSize") ~typ:(returning (double)) -let symbolImageControlKeyOffset self = msg_send_stret ~self ~cmd:(selector "symbolImageControlKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let useRoundCorner self = msg_send ~self ~cmd:(selector "useRoundCorner") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIKBRenderFactory10Key" + +let abcKeyTextOffset self = msg_send ~self ~cmd:(selector "abcKeyTextOffset") ~typ:(returning CGPoint.t) +let activeControlKeyTraits self = msg_send ~self ~cmd:(selector "activeControlKeyTraits") ~typ:(returning id) +let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning llong) +let capitalAbcSymbolSize self = msg_send ~self ~cmd:(selector "capitalAbcSymbolSize") ~typ:(returning double) +let controlKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "controlKeyBackgroundColorName") ~typ:(returning id) +let controlKeyDividerColorName self = msg_send ~self ~cmd:(selector "controlKeyDividerColorName") ~typ:(returning id) +let controlKeyForegroundColorName self = msg_send ~self ~cmd:(selector "controlKeyForegroundColorName") ~typ:(returning id) +let controlKeyTraits self = msg_send ~self ~cmd:(selector "controlKeyTraits") ~typ:(returning id) +let defaultKeyDividerColorName self = msg_send ~self ~cmd:(selector "defaultKeyDividerColorName") ~typ:(returning id) +let dictationKeyTextOffset self = msg_send ~self ~cmd:(selector "dictationKeyTextOffset") ~typ:(returning CGPoint.t) +let displayContentsForKey x self = msg_send ~self ~cmd:(selector "displayContentsForKey:") ~typ:(id @-> returning id) x +let edgesAdjustedForTranslucentGapsForGeometry x ~key ~onKeyplane self = msg_send ~self ~cmd:(selector "edgesAdjustedForTranslucentGapsForGeometry:key:onKeyplane:") ~typ:(id @-> id @-> id @-> returning ullong) x key onKeyplane +let globeKeyTextOffset self = msg_send ~self ~cmd:(selector "globeKeyTextOffset") ~typ:(returning CGPoint.t) +let interkeyGapsCenterXOfKeyplaneFrame x self = msg_send ~self ~cmd:(selector "interkeyGapsCenterXOfKeyplaneFrame:") ~typ:(CGRect.t @-> returning double) x +let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning double) +let lightHighQualityEnabledBlendForm self = msg_send ~self ~cmd:(selector "lightHighQualityEnabledBlendForm") ~typ:(returning llong) +let longVowelSignKeyTextOffset self = msg_send ~self ~cmd:(selector "longVowelSignKeyTextOffset") ~typ:(returning CGPoint.t) +let modifyTraitsForDetachedInputSwitcher x ~withKey self = msg_send ~self ~cmd:(selector "modifyTraitsForDetachedInputSwitcher:withKey:") ~typ:(id @-> id @-> returning void) x withKey +let numberPadKeyPrimarySymbolSize self = msg_send ~self ~cmd:(selector "numberPadKeyPrimarySymbolSize") ~typ:(returning double) +let numberPadKeyPrimaryTextOffset self = msg_send ~self ~cmd:(selector "numberPadKeyPrimaryTextOffset") ~typ:(returning CGPoint.t) +let numberPadKeySecondaryTextOffset self = msg_send ~self ~cmd:(selector "numberPadKeySecondaryTextOffset") ~typ:(returning CGPoint.t) +let numberPadVBarSecondaryTextOffset self = msg_send ~self ~cmd:(selector "numberPadVBarSecondaryTextOffset") ~typ:(returning CGPoint.t) +let roundCornersForKey x ~onKeyplane self = msg_send ~self ~cmd:(selector "roundCornersForKey:onKeyplane:") ~typ:(id @-> id @-> returning ullong) x onKeyplane +let setupColumnLayoutSegmentsWithControlWidth x self = msg_send ~self ~cmd:(selector "setupColumnLayoutSegmentsWithControlWidth:") ~typ:(double @-> returning void) x +let shiftedControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftedControlKeyTraits") ~typ:(returning id) +let shiftedWhiteControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftedWhiteControlKeyTraits") ~typ:(returning id) +let shouldShowBottomRowEdge self = msg_send ~self ~cmd:(selector "shouldShowBottomRowEdge") ~typ:(returning bool) +let shouldShowTopRowEdge self = msg_send ~self ~cmd:(selector "shouldShowTopRowEdge") ~typ:(returning bool) +let symbolImageControlKeyFontSize self = msg_send ~self ~cmd:(selector "symbolImageControlKeyFontSize") ~typ:(returning double) +let symbolImageControlKeyOffset self = msg_send ~self ~cmd:(selector "symbolImageControlKeyOffset") ~typ:(returning CGPoint.t) +let topEdgeAdjustmentInsets self = msg_send ~self ~cmd:(selector "topEdgeAdjustmentInsets") ~typ:(returning UIEdgeInsets.t) +let useRoundCorner self = msg_send ~self ~cmd:(selector "useRoundCorner") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory10Key_Landscape.ml b/uikit_extra/UIKBRenderFactory10Key_Landscape.ml index 42d0ed3a..82e37442 100644 --- a/uikit_extra/UIKBRenderFactory10Key_Landscape.ml +++ b/uikit_extra/UIKBRenderFactory10Key_Landscape.ml @@ -5,16 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactory10Key_Landscape" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory10key_landscape?language=objc}UIKBRenderFactory10Key_Landscape} *) -let abcKeyTextOffset self = msg_send_stret ~self ~cmd:(selector "abcKeyTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let capitalAbcSymbolSize self = msg_send ~self ~cmd:(selector "capitalAbcSymbolSize") ~typ:(returning (double)) -let centerColumnWidthFactor self = msg_send ~self ~cmd:(selector "centerColumnWidthFactor") ~typ:(returning (double)) -let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning (double)) -let longVowelSignKeyTextOffset self = msg_send_stret ~self ~cmd:(selector "longVowelSignKeyTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let numberPadKeyPrimarySymbolSize self = msg_send ~self ~cmd:(selector "numberPadKeyPrimarySymbolSize") ~typ:(returning (double)) -let numberPadKeyPrimaryTextOffset self = msg_send_stret ~self ~cmd:(selector "numberPadKeyPrimaryTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let numberPadKeySecondaryTextOffset self = msg_send_stret ~self ~cmd:(selector "numberPadKeySecondaryTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let numberPadVBarSecondaryTextOffset self = msg_send_stret ~self ~cmd:(selector "numberPadVBarSecondaryTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let setupColumnLayoutSegmentsWithControlWidth x self = msg_send ~self ~cmd:(selector "setupColumnLayoutSegmentsWithControlWidth:") ~typ:(double @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKBRenderFactory10Key_Landscape" + +let abcKeyTextOffset self = msg_send ~self ~cmd:(selector "abcKeyTextOffset") ~typ:(returning CGPoint.t) +let capitalAbcSymbolSize self = msg_send ~self ~cmd:(selector "capitalAbcSymbolSize") ~typ:(returning double) +let centerColumnWidthFactor self = msg_send ~self ~cmd:(selector "centerColumnWidthFactor") ~typ:(returning double) +let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning double) +let longVowelSignKeyTextOffset self = msg_send ~self ~cmd:(selector "longVowelSignKeyTextOffset") ~typ:(returning CGPoint.t) +let numberPadKeyPrimarySymbolSize self = msg_send ~self ~cmd:(selector "numberPadKeyPrimarySymbolSize") ~typ:(returning double) +let numberPadKeyPrimaryTextOffset self = msg_send ~self ~cmd:(selector "numberPadKeyPrimaryTextOffset") ~typ:(returning CGPoint.t) +let numberPadKeySecondaryTextOffset self = msg_send ~self ~cmd:(selector "numberPadKeySecondaryTextOffset") ~typ:(returning CGPoint.t) +let numberPadVBarSecondaryTextOffset self = msg_send ~self ~cmd:(selector "numberPadVBarSecondaryTextOffset") ~typ:(returning CGPoint.t) +let setupColumnLayoutSegmentsWithControlWidth x self = msg_send ~self ~cmd:(selector "setupColumnLayoutSegmentsWithControlWidth:") ~typ:(double @-> returning void) x +let wideShadowPaddleInsets self = msg_send ~self ~cmd:(selector "wideShadowPaddleInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory10Key_LandscapeChoco.ml b/uikit_extra/UIKBRenderFactory10Key_LandscapeChoco.ml index faaed24c..b1d0e2d2 100644 --- a/uikit_extra/UIKBRenderFactory10Key_LandscapeChoco.ml +++ b/uikit_extra/UIKBRenderFactory10Key_LandscapeChoco.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactory10Key_LandscapeChoco" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory10key_landscapechoco?language=objc}UIKBRenderFactory10Key_LandscapeChoco} *) -let centerColumnWidthFactor self = msg_send ~self ~cmd:(selector "centerColumnWidthFactor") ~typ:(returning (double)) -let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIKBRenderFactory10Key_LandscapeChoco" + +let centerColumnWidthFactor self = msg_send ~self ~cmd:(selector "centerColumnWidthFactor") ~typ:(returning double) +let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory10Key_LandscapeTruffle.ml b/uikit_extra/UIKBRenderFactory10Key_LandscapeTruffle.ml index 76b7d404..7a2aec90 100644 --- a/uikit_extra/UIKBRenderFactory10Key_LandscapeTruffle.ml +++ b/uikit_extra/UIKBRenderFactory10Key_LandscapeTruffle.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactory10Key_LandscapeTruffle" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory10key_landscapetruffle?language=objc}UIKBRenderFactory10Key_LandscapeTruffle} *) -let capitalAbcSymbolSize self = msg_send ~self ~cmd:(selector "capitalAbcSymbolSize") ~typ:(returning (double)) -let centerColumnWidthFactor self = msg_send ~self ~cmd:(selector "centerColumnWidthFactor") ~typ:(returning (double)) -let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIKBRenderFactory10Key_LandscapeTruffle" + +let capitalAbcSymbolSize self = msg_send ~self ~cmd:(selector "capitalAbcSymbolSize") ~typ:(returning double) +let centerColumnWidthFactor self = msg_send ~self ~cmd:(selector "centerColumnWidthFactor") ~typ:(returning double) +let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory10Key_Portrait.ml b/uikit_extra/UIKBRenderFactory10Key_Portrait.ml index c2938bac..4a5807af 100644 --- a/uikit_extra/UIKBRenderFactory10Key_Portrait.ml +++ b/uikit_extra/UIKBRenderFactory10Key_Portrait.ml @@ -5,12 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactory10Key_Portrait" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory10key_portrait?language=objc}UIKBRenderFactory10Key_Portrait} *) -let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning (double)) -let dictationKeyTextOffset self = msg_send_stret ~self ~cmd:(selector "dictationKeyTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let globeKeyTextOffset self = msg_send_stret ~self ~cmd:(selector "globeKeyTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning (id)) -let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning (id)) -let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIKBRenderFactory10Key_Portrait" + +let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning double) +let dictationKeyTextOffset self = msg_send ~self ~cmd:(selector "dictationKeyTextOffset") ~typ:(returning CGPoint.t) +let globeKeyTextOffset self = msg_send ~self ~cmd:(selector "globeKeyTextOffset") ~typ:(returning CGPoint.t) +let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning id) +let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning id) +let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning void) +let wideShadowPaddleInsets self = msg_send ~self ~cmd:(selector "wideShadowPaddleInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory10Key_Round.ml b/uikit_extra/UIKBRenderFactory10Key_Round.ml index 28122d9d..600f6f72 100644 --- a/uikit_extra/UIKBRenderFactory10Key_Round.ml +++ b/uikit_extra/UIKBRenderFactory10Key_Round.ml @@ -5,18 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactory10Key_Round" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory10key_round?language=objc}UIKBRenderFactory10Key_Round} *) -let activeControlKeyTraits self = msg_send ~self ~cmd:(selector "activeControlKeyTraits") ~typ:(returning (id)) -let controlKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "controlKeyBackgroundColorName") ~typ:(returning (id)) -let controlKeyShadowColorName self = msg_send ~self ~cmd:(selector "controlKeyShadowColorName") ~typ:(returning (id)) -let controlKeyTraits self = msg_send ~self ~cmd:(selector "controlKeyTraits") ~typ:(returning (id)) -let defaultKeyShadowColorName self = msg_send ~self ~cmd:(selector "defaultKeyShadowColorName") ~typ:(returning (id)) -let edgesWithInsetsForKey x ~onKeyplane self = msg_send ~self ~cmd:(selector "edgesWithInsetsForKey:onKeyplane:") ~typ:(id @-> id @-> returning (ullong)) x onKeyplane -let lightHighQualityEnabledBlendForm self = msg_send ~self ~cmd:(selector "lightHighQualityEnabledBlendForm") ~typ:(returning (llong)) -let roundCornersForKey x ~onKeyplane self = msg_send ~self ~cmd:(selector "roundCornersForKey:onKeyplane:") ~typ:(id @-> id @-> returning (ullong)) x onKeyplane -let shiftLockControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftLockControlKeyTraits") ~typ:(returning (id)) -let shiftedControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftedControlKeyTraits") ~typ:(returning (id)) -let shouldUseRoundCornerForKey x self = msg_send ~self ~cmd:(selector "shouldUseRoundCornerForKey:") ~typ:(id @-> returning (bool)) x -let useRoundCorner self = msg_send ~self ~cmd:(selector "useRoundCorner") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIKBRenderFactory10Key_Round" + +let activeControlKeyTraits self = msg_send ~self ~cmd:(selector "activeControlKeyTraits") ~typ:(returning id) +let controlKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "controlKeyBackgroundColorName") ~typ:(returning id) +let controlKeyShadowColorName self = msg_send ~self ~cmd:(selector "controlKeyShadowColorName") ~typ:(returning id) +let controlKeyTraits self = msg_send ~self ~cmd:(selector "controlKeyTraits") ~typ:(returning id) +let defaultKeyShadowColorName self = msg_send ~self ~cmd:(selector "defaultKeyShadowColorName") ~typ:(returning id) +let edgesWithInsetsForKey x ~onKeyplane self = msg_send ~self ~cmd:(selector "edgesWithInsetsForKey:onKeyplane:") ~typ:(id @-> id @-> returning ullong) x onKeyplane +let lightHighQualityEnabledBlendForm self = msg_send ~self ~cmd:(selector "lightHighQualityEnabledBlendForm") ~typ:(returning llong) +let roundCornersForKey x ~onKeyplane self = msg_send ~self ~cmd:(selector "roundCornersForKey:onKeyplane:") ~typ:(id @-> id @-> returning ullong) x onKeyplane +let shiftLockControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftLockControlKeyTraits") ~typ:(returning id) +let shiftedControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftedControlKeyTraits") ~typ:(returning id) +let shouldUseRoundCornerForKey x self = msg_send ~self ~cmd:(selector "shouldUseRoundCornerForKey:") ~typ:(id @-> returning bool) x +let symbolFrameInsets self = msg_send ~self ~cmd:(selector "symbolFrameInsets") ~typ:(returning UIEdgeInsets.t) +let useRoundCorner self = msg_send ~self ~cmd:(selector "useRoundCorner") ~typ:(returning bool) +let wideShadowPaddleInsets self = msg_send ~self ~cmd:(selector "wideShadowPaddleInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory50On_Landscape.ml b/uikit_extra/UIKBRenderFactory50On_Landscape.ml index a894ffc2..e0aa1599 100644 --- a/uikit_extra/UIKBRenderFactory50On_Landscape.ml +++ b/uikit_extra/UIKBRenderFactory50On_Landscape.ml @@ -5,12 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactory50On_Landscape" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory50on_landscape?language=objc}UIKBRenderFactory50On_Landscape} *) -let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning (double)) -let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning (double)) -let keyplaneSwitchKeyFontSize self = msg_send ~self ~cmd:(selector "keyplaneSwitchKeyFontSize") ~typ:(returning (double)) -let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning (id)) -let returnKeyFontSize self = msg_send ~self ~cmd:(selector "returnKeyFontSize") ~typ:(returning (double)) -let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIKBRenderFactory50On_Landscape" + +let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning double) +let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning double) +let keyplaneSwitchKeyFontSize self = msg_send ~self ~cmd:(selector "keyplaneSwitchKeyFontSize") ~typ:(returning double) +let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning id) +let returnKeyFontSize self = msg_send ~self ~cmd:(selector "returnKeyFontSize") ~typ:(returning double) +let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning double) +let symbolFrameInsets self = msg_send ~self ~cmd:(selector "symbolFrameInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory50On_Portrait.ml b/uikit_extra/UIKBRenderFactory50On_Portrait.ml index d48a554b..d784c810 100644 --- a/uikit_extra/UIKBRenderFactory50On_Portrait.ml +++ b/uikit_extra/UIKBRenderFactory50On_Portrait.ml @@ -5,21 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactory50On_Portrait" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory50on_portrait?language=objc}UIKBRenderFactory50On_Portrait} *) -let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning (llong)) -let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning (double)) -let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning (double)) -let edgesWithInsetsForKey x ~onKeyplane self = msg_send ~self ~cmd:(selector "edgesWithInsetsForKey:onKeyplane:") ~typ:(id @-> id @-> returning (ullong)) x onKeyplane -let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning (double)) -let keyplaneSwitchKeyFontSize self = msg_send ~self ~cmd:(selector "keyplaneSwitchKeyFontSize") ~typ:(returning (double)) -let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning (id)) -let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning (id)) -let returnKeyFontSize self = msg_send ~self ~cmd:(selector "returnKeyFontSize") ~typ:(returning (double)) -let roundCornersForKey x ~onKeyplane self = msg_send ~self ~cmd:(selector "roundCornersForKey:onKeyplane:") ~typ:(id @-> id @-> returning (ullong)) x onKeyplane -let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning (void)) -let shouldShowBottomRowEdge self = msg_send ~self ~cmd:(selector "shouldShowBottomRowEdge") ~typ:(returning (bool)) -let shouldShowTopRowEdge self = msg_send ~self ~cmd:(selector "shouldShowTopRowEdge") ~typ:(returning (bool)) -let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning (double)) -let thinKeycapsFontName self = msg_send ~self ~cmd:(selector "thinKeycapsFontName") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBRenderFactory50On_Portrait" + +let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning llong) +let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning double) +let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning double) +let edgesWithInsetsForKey x ~onKeyplane self = msg_send ~self ~cmd:(selector "edgesWithInsetsForKey:onKeyplane:") ~typ:(id @-> id @-> returning ullong) x onKeyplane +let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning double) +let keyplaneSwitchKeyFontSize self = msg_send ~self ~cmd:(selector "keyplaneSwitchKeyFontSize") ~typ:(returning double) +let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning id) +let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning id) +let returnKeyFontSize self = msg_send ~self ~cmd:(selector "returnKeyFontSize") ~typ:(returning double) +let roundCornersForKey x ~onKeyplane self = msg_send ~self ~cmd:(selector "roundCornersForKey:onKeyplane:") ~typ:(id @-> id @-> returning ullong) x onKeyplane +let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning void) +let shouldShowBottomRowEdge self = msg_send ~self ~cmd:(selector "shouldShowBottomRowEdge") ~typ:(returning bool) +let shouldShowTopRowEdge self = msg_send ~self ~cmd:(selector "shouldShowTopRowEdge") ~typ:(returning bool) +let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning double) +let symbolFrameInsets self = msg_send ~self ~cmd:(selector "symbolFrameInsets") ~typ:(returning UIEdgeInsets.t) +let thinKeycapsFontName self = msg_send ~self ~cmd:(selector "thinKeycapsFontName") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryClass.ml b/uikit_extra/UIKBRenderFactoryClass.ml new file mode 100644 index 00000000..78843a32 --- /dev/null +++ b/uikit_extra/UIKBRenderFactoryClass.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory?language=objc}UIKBRenderFactory} *) + +let cacheKeyForString x ~withRenderFlags ~renderingContext self = msg_send ~self ~cmd:(selector "cacheKeyForString:withRenderFlags:renderingContext:") ~typ:(id @-> llong @-> id @-> returning id) x (LLong.of_int withRenderFlags) renderingContext +let couldUseGlyphSelectorForDisplayString x self = msg_send ~self ~cmd:(selector "couldUseGlyphSelectorForDisplayString:") ~typ:(id @-> returning bool) x +let factoryClassForVisualStyle x ~renderingContext self = msg_send ~self ~cmd:(selector "factoryClassForVisualStyle:renderingContext:") ~typ:(void @-> id @-> returning _Class) x renderingContext +let factoryForVisualStyle x ~renderingContext self = msg_send ~self ~cmd:(selector "factoryForVisualStyle:renderingContext:") ~typ:(void @-> id @-> returning id) x renderingContext +let factoryForVisualStyle' x ~renderingContext ~skipLayoutSegments self = msg_send ~self ~cmd:(selector "factoryForVisualStyle:renderingContext:skipLayoutSegments:") ~typ:(void @-> id @-> bool @-> returning id) x renderingContext skipLayoutSegments +let lightweightFactoryForVisualStyle x ~renderingContext self = msg_send ~self ~cmd:(selector "lightweightFactoryForVisualStyle:renderingContext:") ~typ:(void @-> id @-> returning id) x renderingContext +let segmentedControlColor x self = msg_send ~self ~cmd:(selector "segmentedControlColor:") ~typ:(bool @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryEmoji_iPad.ml b/uikit_extra/UIKBRenderFactoryEmoji_iPad.ml index 5bfe2916..5fbf8727 100644 --- a/uikit_extra/UIKBRenderFactoryEmoji_iPad.ml +++ b/uikit_extra/UIKBRenderFactoryEmoji_iPad.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryEmoji_iPad" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryemoji_ipad?language=objc}UIKBRenderFactoryEmoji_iPad} *) -let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning (llong)) -let emojiInternationalKeyOffset self = msg_send_stret ~self ~cmd:(selector "emojiInternationalKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let emojiInternationalKeySize self = msg_send ~self ~cmd:(selector "emojiInternationalKeySize") ~typ:(returning (double)) -let emojiPopupTextOffset self = msg_send_stret ~self ~cmd:(selector "emojiPopupTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning (double)) -let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning (id)) -let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning (id)) -let shouldClearBaseDisplayStringForVariants x self = msg_send ~self ~cmd:(selector "shouldClearBaseDisplayStringForVariants:") ~typ:(id @-> returning (bool)) x -let thinKeycapsFontName self = msg_send ~self ~cmd:(selector "thinKeycapsFontName") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBRenderFactoryEmoji_iPad" + +let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning llong) +let emojiInternationalKeyOffset self = msg_send ~self ~cmd:(selector "emojiInternationalKeyOffset") ~typ:(returning CGPoint.t) +let emojiInternationalKeySize self = msg_send ~self ~cmd:(selector "emojiInternationalKeySize") ~typ:(returning double) +let emojiPopupTextOffset self = msg_send ~self ~cmd:(selector "emojiPopupTextOffset") ~typ:(returning CGPoint.t) +let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning double) +let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning id) +let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning id) +let shouldClearBaseDisplayStringForVariants x self = msg_send ~self ~cmd:(selector "shouldClearBaseDisplayStringForVariants:") ~typ:(id @-> returning bool) x +let thinKeycapsFontName self = msg_send ~self ~cmd:(selector "thinKeycapsFontName") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryEmoji_iPad_Landscape.ml b/uikit_extra/UIKBRenderFactoryEmoji_iPad_Landscape.ml index 27014c5a..4b98589a 100644 --- a/uikit_extra/UIKBRenderFactoryEmoji_iPad_Landscape.ml +++ b/uikit_extra/UIKBRenderFactoryEmoji_iPad_Landscape.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryEmoji_iPad_Landscape" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryemoji_ipad_landscape?language=objc}UIKBRenderFactoryEmoji_iPad_Landscape} *) -let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning (double)) -let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBRenderFactoryEmoji_iPad_Landscape" + +let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning double) +let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryEmoji_iPad_Split.ml b/uikit_extra/UIKBRenderFactoryEmoji_iPad_Split.ml index 4a823b44..5c7a7d68 100644 --- a/uikit_extra/UIKBRenderFactoryEmoji_iPad_Split.ml +++ b/uikit_extra/UIKBRenderFactoryEmoji_iPad_Split.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryEmoji_iPad_Split" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryemoji_ipad_split?language=objc}UIKBRenderFactoryEmoji_iPad_Split} *) -let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning (llong)) -let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning (id)) x -let emojiInternationalKeyOffset self = msg_send_stret ~self ~cmd:(selector "emojiInternationalKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let emojiInternationalKeySize self = msg_send ~self ~cmd:(selector "emojiInternationalKeySize") ~typ:(returning (double)) -let emojiPopupTextOffset self = msg_send_stret ~self ~cmd:(selector "emojiPopupTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning (double)) -let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning (id)) -let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning (id)) -let shouldClearBaseDisplayStringForVariants x self = msg_send ~self ~cmd:(selector "shouldClearBaseDisplayStringForVariants:") ~typ:(id @-> returning (bool)) x -let thinKeycapsFontName self = msg_send ~self ~cmd:(selector "thinKeycapsFontName") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBRenderFactoryEmoji_iPad_Split" + +let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning llong) +let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning id) x +let emojiInternationalKeyOffset self = msg_send ~self ~cmd:(selector "emojiInternationalKeyOffset") ~typ:(returning CGPoint.t) +let emojiInternationalKeySize self = msg_send ~self ~cmd:(selector "emojiInternationalKeySize") ~typ:(returning double) +let emojiPopupTextOffset self = msg_send ~self ~cmd:(selector "emojiPopupTextOffset") ~typ:(returning CGPoint.t) +let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning double) +let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning id) +let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning id) +let shouldClearBaseDisplayStringForVariants x self = msg_send ~self ~cmd:(selector "shouldClearBaseDisplayStringForVariants:") ~typ:(id @-> returning bool) x +let thinKeycapsFontName self = msg_send ~self ~cmd:(selector "thinKeycapsFontName") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryEmoji_iPhone.ml b/uikit_extra/UIKBRenderFactoryEmoji_iPhone.ml index 22b3d5df..8c138c04 100644 --- a/uikit_extra/UIKBRenderFactoryEmoji_iPhone.ml +++ b/uikit_extra/UIKBRenderFactoryEmoji_iPhone.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryEmoji_iPhone" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryemoji_iphone?language=objc}UIKBRenderFactoryEmoji_iPhone} *) -let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning (llong)) -let emojiInternationalKeyOffset self = msg_send_stret ~self ~cmd:(selector "emojiInternationalKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let emojiInternationalKeySize self = msg_send ~self ~cmd:(selector "emojiInternationalKeySize") ~typ:(returning (double)) -let emojiPopupTextOffset self = msg_send_stret ~self ~cmd:(selector "emojiPopupTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let shouldClearBaseDisplayStringForVariants x self = msg_send ~self ~cmd:(selector "shouldClearBaseDisplayStringForVariants:") ~typ:(id @-> returning (bool)) x -let traitsHashStringForKey x ~withGeometry ~withSymbolStyle ~controlOpacities ~blurBlending self = msg_send ~self ~cmd:(selector "traitsHashStringForKey:withGeometry:withSymbolStyle:controlOpacities:blurBlending:") ~typ:(id @-> id @-> id @-> bool @-> bool @-> returning (id)) x withGeometry withSymbolStyle controlOpacities blurBlending \ No newline at end of file +let self = get_class "UIKBRenderFactoryEmoji_iPhone" + +let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning llong) +let emojiInternationalKeyOffset self = msg_send ~self ~cmd:(selector "emojiInternationalKeyOffset") ~typ:(returning CGPoint.t) +let emojiInternationalKeySize self = msg_send ~self ~cmd:(selector "emojiInternationalKeySize") ~typ:(returning double) +let emojiPopupTextOffset self = msg_send ~self ~cmd:(selector "emojiPopupTextOffset") ~typ:(returning CGPoint.t) +let shouldClearBaseDisplayStringForVariants x self = msg_send ~self ~cmd:(selector "shouldClearBaseDisplayStringForVariants:") ~typ:(id @-> returning bool) x +let traitsHashStringForKey x ~withGeometry ~withSymbolStyle ~controlOpacities ~blurBlending self = msg_send ~self ~cmd:(selector "traitsHashStringForKey:withGeometry:withSymbolStyle:controlOpacities:blurBlending:") ~typ:(id @-> id @-> id @-> bool @-> bool @-> returning id) x withGeometry withSymbolStyle controlOpacities blurBlending \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryHWR_Landscape.ml b/uikit_extra/UIKBRenderFactoryHWR_Landscape.ml index a253beff..e4dd4037 100644 --- a/uikit_extra/UIKBRenderFactoryHWR_Landscape.ml +++ b/uikit_extra/UIKBRenderFactoryHWR_Landscape.ml @@ -5,12 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryHWR_Landscape" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryhwr_landscape?language=objc}UIKBRenderFactoryHWR_Landscape} *) -let deleteGlyphOffset self = msg_send_stret ~self ~cmd:(selector "deleteGlyphOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let edgesAdjustedForTranslucentGapsForGeometry x ~key ~onKeyplane self = msg_send ~self ~cmd:(selector "edgesAdjustedForTranslucentGapsForGeometry:key:onKeyplane:") ~typ:(id @-> id @-> id @-> returning (ullong)) x key onKeyplane -let handwritingGradientStartLocation self = msg_send ~self ~cmd:(selector "handwritingGradientStartLocation") ~typ:(returning (double)) -let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning (void)) -let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning (double)) -let spaceKeyTextOffset self = msg_send_stret ~self ~cmd:(selector "spaceKeyTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBRenderFactoryHWR_Landscape" + +let deleteGlyphOffset self = msg_send ~self ~cmd:(selector "deleteGlyphOffset") ~typ:(returning CGPoint.t) +let edgesAdjustedForTranslucentGapsForGeometry x ~key ~onKeyplane self = msg_send ~self ~cmd:(selector "edgesAdjustedForTranslucentGapsForGeometry:key:onKeyplane:") ~typ:(id @-> id @-> id @-> returning ullong) x key onKeyplane +let handwritingAreaInsets self = msg_send ~self ~cmd:(selector "handwritingAreaInsets") ~typ:(returning UIEdgeInsets.t) +let handwritingGradientStartLocation self = msg_send ~self ~cmd:(selector "handwritingGradientStartLocation") ~typ:(returning double) +let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning void) +let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning double) +let spaceKeyTextOffset self = msg_send ~self ~cmd:(selector "spaceKeyTextOffset") ~typ:(returning CGPoint.t) +let symbolFrameInsets self = msg_send ~self ~cmd:(selector "symbolFrameInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryHWR_Portrait.ml b/uikit_extra/UIKBRenderFactoryHWR_Portrait.ml index 24517a0a..1e9840d8 100644 --- a/uikit_extra/UIKBRenderFactoryHWR_Portrait.ml +++ b/uikit_extra/UIKBRenderFactoryHWR_Portrait.ml @@ -5,14 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryHWR_Portrait" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryhwr_portrait?language=objc}UIKBRenderFactoryHWR_Portrait} *) -let deleteGlyphOffset self = msg_send_stret ~self ~cmd:(selector "deleteGlyphOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let globeKeyTextOffset self = msg_send_stret ~self ~cmd:(selector "globeKeyTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let handwritingGradientStartLocation self = msg_send ~self ~cmd:(selector "handwritingGradientStartLocation") ~typ:(returning (double)) -let moreKeyTextOffset self = msg_send_stret ~self ~cmd:(selector "moreKeyTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning (void)) -let shouldUseRoundCornerForKey x self = msg_send ~self ~cmd:(selector "shouldUseRoundCornerForKey:") ~typ:(id @-> returning (bool)) x -let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning (double)) -let spaceKeyTextOffset self = msg_send_stret ~self ~cmd:(selector "spaceKeyTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBRenderFactoryHWR_Portrait" + +let deleteGlyphOffset self = msg_send ~self ~cmd:(selector "deleteGlyphOffset") ~typ:(returning CGPoint.t) +let globeKeyTextOffset self = msg_send ~self ~cmd:(selector "globeKeyTextOffset") ~typ:(returning CGPoint.t) +let handwritingAreaInsets self = msg_send ~self ~cmd:(selector "handwritingAreaInsets") ~typ:(returning UIEdgeInsets.t) +let handwritingGradientStartLocation self = msg_send ~self ~cmd:(selector "handwritingGradientStartLocation") ~typ:(returning double) +let moreKeyTextOffset self = msg_send ~self ~cmd:(selector "moreKeyTextOffset") ~typ:(returning CGPoint.t) +let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning void) +let shouldUseRoundCornerForKey x self = msg_send ~self ~cmd:(selector "shouldUseRoundCornerForKey:") ~typ:(id @-> returning bool) x +let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning double) +let spaceKeyTextOffset self = msg_send ~self ~cmd:(selector "spaceKeyTextOffset") ~typ:(returning CGPoint.t) +let symbolFrameInsets self = msg_send ~self ~cmd:(selector "symbolFrameInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryHWR_PortraitTruffle.ml b/uikit_extra/UIKBRenderFactoryHWR_PortraitTruffle.ml index 94455bf9..12105db1 100644 --- a/uikit_extra/UIKBRenderFactoryHWR_PortraitTruffle.ml +++ b/uikit_extra/UIKBRenderFactoryHWR_PortraitTruffle.ml @@ -5,8 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryHWR_PortraitTruffle" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryhwr_portraittruffle?language=objc}UIKBRenderFactoryHWR_PortraitTruffle} *) -let globeKeyTextOffset self = msg_send ~self ~cmd:(selector "globeKeyTextOffset") ~typ:(returning (CGPoint.t)) -let moreKeyTextOffset self = msg_send ~self ~cmd:(selector "moreKeyTextOffset") ~typ:(returning (CGPoint.t)) \ No newline at end of file +let self = get_class "UIKBRenderFactoryHWR_PortraitTruffle" + +let globeKeyTextOffset self = msg_send ~self ~cmd:(selector "globeKeyTextOffset") ~typ:(returning CGPoint.t) +let moreKeyTextOffset self = msg_send ~self ~cmd:(selector "moreKeyTextOffset") ~typ:(returning CGPoint.t) +let symbolFrameInsets self = msg_send ~self ~cmd:(selector "symbolFrameInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryLayoutSegment.ml b/uikit_extra/UIKBRenderFactoryLayoutSegment.ml index d9722594..a24af3d0 100644 --- a/uikit_extra/UIKBRenderFactoryLayoutSegment.ml +++ b/uikit_extra/UIKBRenderFactoryLayoutSegment.ml @@ -5,20 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryLayoutSegment" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactorylayoutsegment?language=objc}UIKBRenderFactoryLayoutSegment} *) -module C = struct - let segmentWithTraits x self = msg_send ~self ~cmd:(selector "segmentWithTraits:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIKBRenderFactoryLayoutSegment" -let addLayoutRect x ~asTriangle self = msg_send ~self ~cmd:(selector "addLayoutRect:asTriangle:") ~typ:(CGRect.t @-> ullong @-> returning (void)) x (ULLong.of_int asTriangle) -let addRelativeLayoutRectFromEdge x ~ofCachedKey self = msg_send ~self ~cmd:(selector "addRelativeLayoutRectFromEdge:ofCachedKey:") ~typ:(ullong @-> id @-> returning (void)) (ULLong.of_int x) ofCachedKey -let containsPoint x ~inRect ~withKeyplane self = msg_send ~self ~cmd:(selector "containsPoint:inRect:withKeyplane:") ~typ:(CGPoint.t @-> CGRect.t @-> id @-> returning (bool)) x inRect withKeyplane -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithTraits x self = msg_send ~self ~cmd:(selector "initWithTraits:") ~typ:(id @-> returning (id)) x -let keyStates self = msg_send ~self ~cmd:(selector "keyStates") ~typ:(returning (int)) -let requireAllMatches self = msg_send ~self ~cmd:(selector "requireAllMatches") ~typ:(returning (bool)) -let setKeyStates x self = msg_send ~self ~cmd:(selector "setKeyStates:") ~typ:(int @-> returning (void)) x -let setRequireAllMatches x self = msg_send ~self ~cmd:(selector "setRequireAllMatches:") ~typ:(bool @-> returning (void)) x -let traits self = msg_send ~self ~cmd:(selector "traits") ~typ:(returning (id)) \ No newline at end of file +let addLayoutRect x ~asTriangle self = msg_send ~self ~cmd:(selector "addLayoutRect:asTriangle:") ~typ:(CGRect.t @-> ullong @-> returning void) x (ULLong.of_int asTriangle) +let addRelativeLayoutRectFromEdge x ~ofCachedKey self = msg_send ~self ~cmd:(selector "addRelativeLayoutRectFromEdge:ofCachedKey:") ~typ:(ullong @-> id @-> returning void) (ULLong.of_int x) ofCachedKey +let containsPoint x ~inRect ~withKeyplane self = msg_send ~self ~cmd:(selector "containsPoint:inRect:withKeyplane:") ~typ:(CGPoint.t @-> CGRect.t @-> id @-> returning bool) x inRect withKeyplane +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithTraits x self = msg_send ~self ~cmd:(selector "initWithTraits:") ~typ:(id @-> returning id) x +let keyStates self = msg_send ~self ~cmd:(selector "keyStates") ~typ:(returning int) +let requireAllMatches self = msg_send ~self ~cmd:(selector "requireAllMatches") ~typ:(returning bool) +let setKeyStates x self = msg_send ~self ~cmd:(selector "setKeyStates:") ~typ:(int @-> returning void) x +let setRequireAllMatches x self = msg_send ~self ~cmd:(selector "setRequireAllMatches:") ~typ:(bool @-> returning void) x +let traits self = msg_send ~self ~cmd:(selector "traits") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryLayoutSegmentClass.ml b/uikit_extra/UIKBRenderFactoryLayoutSegmentClass.ml new file mode 100644 index 00000000..c73ac868 --- /dev/null +++ b/uikit_extra/UIKBRenderFactoryLayoutSegmentClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactorylayoutsegment?language=objc}UIKBRenderFactoryLayoutSegment} *) + +let segmentWithTraits x self = msg_send ~self ~cmd:(selector "segmentWithTraits:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryNumberPad.ml b/uikit_extra/UIKBRenderFactoryNumberPad.ml index fa009583..a0a62efd 100644 --- a/uikit_extra/UIKBRenderFactoryNumberPad.ml +++ b/uikit_extra/UIKBRenderFactoryNumberPad.ml @@ -5,24 +5,28 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryNumberPad" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactorynumberpad?language=objc}UIKBRenderFactoryNumberPad} *) -let centerColumnLetterOffset self = msg_send_stret ~self ~cmd:(selector "centerColumnLetterOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let centerColumnNumberOffset self = msg_send_stret ~self ~cmd:(selector "centerColumnNumberOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let controlKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "controlKeyBackgroundColorName") ~typ:(returning (id)) -let controlKeyDividerColorName self = msg_send ~self ~cmd:(selector "controlKeyDividerColorName") ~typ:(returning (id)) -let controlKeyForegroundColorName self = msg_send ~self ~cmd:(selector "controlKeyForegroundColorName") ~typ:(returning (id)) -let defaultKeyDividerColorName self = msg_send ~self ~cmd:(selector "defaultKeyDividerColorName") ~typ:(returning (id)) -let deleteGlyphOffset self = msg_send_stret ~self ~cmd:(selector "deleteGlyphOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dictationGlyphOffset self = msg_send_stret ~self ~cmd:(selector "dictationGlyphOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let leftColumnLetterOffset self = msg_send_stret ~self ~cmd:(selector "leftColumnLetterOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let leftColumnNumberOffset self = msg_send_stret ~self ~cmd:(selector "leftColumnNumberOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let letterFontSize self = msg_send ~self ~cmd:(selector "letterFontSize") ~typ:(returning (double)) -let lightHighQualityEnabledBlendForm self = msg_send ~self ~cmd:(selector "lightHighQualityEnabledBlendForm") ~typ:(returning (llong)) -let loneZeroOffset self = msg_send_stret ~self ~cmd:(selector "loneZeroOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let numberFontSize self = msg_send ~self ~cmd:(selector "numberFontSize") ~typ:(returning (double)) -let rightColumnLetterOffset self = msg_send_stret ~self ~cmd:(selector "rightColumnLetterOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let rightColumnNumberOffset self = msg_send_stret ~self ~cmd:(selector "rightColumnNumberOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning (void)) -let specialSymbolOffset self = msg_send_stret ~self ~cmd:(selector "specialSymbolOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBRenderFactoryNumberPad" + +let centerColumnLetterOffset self = msg_send ~self ~cmd:(selector "centerColumnLetterOffset") ~typ:(returning CGPoint.t) +let centerColumnNumberOffset self = msg_send ~self ~cmd:(selector "centerColumnNumberOffset") ~typ:(returning CGPoint.t) +let controlKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "controlKeyBackgroundColorName") ~typ:(returning id) +let controlKeyDividerColorName self = msg_send ~self ~cmd:(selector "controlKeyDividerColorName") ~typ:(returning id) +let controlKeyForegroundColorName self = msg_send ~self ~cmd:(selector "controlKeyForegroundColorName") ~typ:(returning id) +let defaultKeyDividerColorName self = msg_send ~self ~cmd:(selector "defaultKeyDividerColorName") ~typ:(returning id) +let deleteGlyphOffset self = msg_send ~self ~cmd:(selector "deleteGlyphOffset") ~typ:(returning CGPoint.t) +let dictationGlyphOffset self = msg_send ~self ~cmd:(selector "dictationGlyphOffset") ~typ:(returning CGPoint.t) +let leftColumnLetterOffset self = msg_send ~self ~cmd:(selector "leftColumnLetterOffset") ~typ:(returning CGPoint.t) +let leftColumnNumberOffset self = msg_send ~self ~cmd:(selector "leftColumnNumberOffset") ~typ:(returning CGPoint.t) +let letterFontSize self = msg_send ~self ~cmd:(selector "letterFontSize") ~typ:(returning double) +let lightHighQualityEnabledBlendForm self = msg_send ~self ~cmd:(selector "lightHighQualityEnabledBlendForm") ~typ:(returning llong) +let loneZeroOffset self = msg_send ~self ~cmd:(selector "loneZeroOffset") ~typ:(returning CGPoint.t) +let numberFontSize self = msg_send ~self ~cmd:(selector "numberFontSize") ~typ:(returning double) +let rightColumnLetterOffset self = msg_send ~self ~cmd:(selector "rightColumnLetterOffset") ~typ:(returning CGPoint.t) +let rightColumnNumberOffset self = msg_send ~self ~cmd:(selector "rightColumnNumberOffset") ~typ:(returning CGPoint.t) +let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning void) +let specialSymbolOffset self = msg_send ~self ~cmd:(selector "specialSymbolOffset") ~typ:(returning CGPoint.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryNumberPadLandscape.ml b/uikit_extra/UIKBRenderFactoryNumberPadLandscape.ml index c3239175..0c1604b2 100644 --- a/uikit_extra/UIKBRenderFactoryNumberPadLandscape.ml +++ b/uikit_extra/UIKBRenderFactoryNumberPadLandscape.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryNumberPadLandscape" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactorynumberpadlandscape?language=objc}UIKBRenderFactoryNumberPadLandscape} *) -let centerColumnLetterOffset self = msg_send_stret ~self ~cmd:(selector "centerColumnLetterOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let centerColumnNumberOffset self = msg_send_stret ~self ~cmd:(selector "centerColumnNumberOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let deleteGlyphOffset self = msg_send_stret ~self ~cmd:(selector "deleteGlyphOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dictationGlyphOffset self = msg_send_stret ~self ~cmd:(selector "dictationGlyphOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let leftColumnLetterOffset self = msg_send_stret ~self ~cmd:(selector "leftColumnLetterOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let leftColumnNumberOffset self = msg_send_stret ~self ~cmd:(selector "leftColumnNumberOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let letterFontSize self = msg_send ~self ~cmd:(selector "letterFontSize") ~typ:(returning (double)) -let loneZeroOffset self = msg_send_stret ~self ~cmd:(selector "loneZeroOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let numberFontSize self = msg_send ~self ~cmd:(selector "numberFontSize") ~typ:(returning (double)) -let rightColumnLetterOffset self = msg_send_stret ~self ~cmd:(selector "rightColumnLetterOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let rightColumnNumberOffset self = msg_send_stret ~self ~cmd:(selector "rightColumnNumberOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let specialSymbolOffset self = msg_send_stret ~self ~cmd:(selector "specialSymbolOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBRenderFactoryNumberPadLandscape" + +let centerColumnLetterOffset self = msg_send ~self ~cmd:(selector "centerColumnLetterOffset") ~typ:(returning CGPoint.t) +let centerColumnNumberOffset self = msg_send ~self ~cmd:(selector "centerColumnNumberOffset") ~typ:(returning CGPoint.t) +let deleteGlyphOffset self = msg_send ~self ~cmd:(selector "deleteGlyphOffset") ~typ:(returning CGPoint.t) +let dictationGlyphOffset self = msg_send ~self ~cmd:(selector "dictationGlyphOffset") ~typ:(returning CGPoint.t) +let leftColumnLetterOffset self = msg_send ~self ~cmd:(selector "leftColumnLetterOffset") ~typ:(returning CGPoint.t) +let leftColumnNumberOffset self = msg_send ~self ~cmd:(selector "leftColumnNumberOffset") ~typ:(returning CGPoint.t) +let letterFontSize self = msg_send ~self ~cmd:(selector "letterFontSize") ~typ:(returning double) +let loneZeroOffset self = msg_send ~self ~cmd:(selector "loneZeroOffset") ~typ:(returning CGPoint.t) +let numberFontSize self = msg_send ~self ~cmd:(selector "numberFontSize") ~typ:(returning double) +let rightColumnLetterOffset self = msg_send ~self ~cmd:(selector "rightColumnLetterOffset") ~typ:(returning CGPoint.t) +let rightColumnNumberOffset self = msg_send ~self ~cmd:(selector "rightColumnNumberOffset") ~typ:(returning CGPoint.t) +let specialSymbolOffset self = msg_send ~self ~cmd:(selector "specialSymbolOffset") ~typ:(returning CGPoint.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory_Candidates.ml b/uikit_extra/UIKBRenderFactory_Candidates.ml index f5273988..ab0bff84 100644 --- a/uikit_extra/UIKBRenderFactory_Candidates.ml +++ b/uikit_extra/UIKBRenderFactory_Candidates.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactory_Candidates" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory_candidates?language=objc}UIKBRenderFactory_Candidates} *) -let initWithRenderingContext x self = msg_send ~self ~cmd:(selector "initWithRenderingContext:") ~typ:(id @-> returning (id)) x -let lightHighQualityEnabledBlendForm self = msg_send ~self ~cmd:(selector "lightHighQualityEnabledBlendForm") ~typ:(returning (llong)) -let traitsForHWRCellSize x ~highlighted self = msg_send ~self ~cmd:(selector "traitsForHWRCellSize:highlighted:") ~typ:(CGSize.t @-> bool @-> returning (id)) x highlighted \ No newline at end of file +let self = get_class "UIKBRenderFactory_Candidates" + +let initWithRenderingContext x self = msg_send ~self ~cmd:(selector "initWithRenderingContext:") ~typ:(id @-> returning id) x +let lightHighQualityEnabledBlendForm self = msg_send ~self ~cmd:(selector "lightHighQualityEnabledBlendForm") ~typ:(returning llong) +let traitsForHWRCellSize x ~highlighted self = msg_send ~self ~cmd:(selector "traitsForHWRCellSize:highlighted:") ~typ:(CGSize.t @-> bool @-> returning id) x highlighted \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory_Car.ml b/uikit_extra/UIKBRenderFactory_Car.ml index ad962610..1d38b1b3 100644 --- a/uikit_extra/UIKBRenderFactory_Car.ml +++ b/uikit_extra/UIKBRenderFactory_Car.ml @@ -5,23 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactory_Car" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory_car?language=objc}UIKBRenderFactory_Car} *) -let activeKeyColor self = msg_send ~self ~cmd:(selector "activeKeyColor") ~typ:(returning (id)) -let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning (llong)) -let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning (id)) x -let carScale self = msg_send ~self ~cmd:(selector "carScale") ~typ:(returning (double)) -let customizeLanguageIndicatorTraitsForTraits x self = msg_send ~self ~cmd:(selector "customizeLanguageIndicatorTraitsForTraits:") ~typ:(id @-> returning (void)) x -let defaultKeyFontSize self = msg_send ~self ~cmd:(selector "defaultKeyFontSize") ~typ:(returning (double)) -let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning (id)) -let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning (id)) -let displayContentsForKey x self = msg_send ~self ~cmd:(selector "displayContentsForKey:") ~typ:(id @-> returning (id)) x -let dividerColor self = msg_send ~self ~cmd:(selector "dividerColor") ~typ:(returning (id)) -let enabledKeyColor self = msg_send ~self ~cmd:(selector "enabledKeyColor") ~typ:(returning (id)) -let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning (id)) -let highlightedKeyColor self = msg_send ~self ~cmd:(selector "highlightedKeyColor") ~typ:(returning (id)) -let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning (id)) -let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning (id)) -let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning (id)) -let skinnyKeyThreshold self = msg_send ~self ~cmd:(selector "skinnyKeyThreshold") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIKBRenderFactory_Car" + +let activeKeyColor self = msg_send ~self ~cmd:(selector "activeKeyColor") ~typ:(returning id) +let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning llong) +let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning id) x +let carScale self = msg_send ~self ~cmd:(selector "carScale") ~typ:(returning double) +let customizeLanguageIndicatorTraitsForTraits x self = msg_send ~self ~cmd:(selector "customizeLanguageIndicatorTraitsForTraits:") ~typ:(id @-> returning void) x +let defaultKeyFontSize self = msg_send ~self ~cmd:(selector "defaultKeyFontSize") ~typ:(returning double) +let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning id) +let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning id) +let displayContentsForKey x self = msg_send ~self ~cmd:(selector "displayContentsForKey:") ~typ:(id @-> returning id) x +let dividerColor self = msg_send ~self ~cmd:(selector "dividerColor") ~typ:(returning id) +let enabledKeyColor self = msg_send ~self ~cmd:(selector "enabledKeyColor") ~typ:(returning id) +let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning id) +let highlightedKeyColor self = msg_send ~self ~cmd:(selector "highlightedKeyColor") ~typ:(returning id) +let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning id) +let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning id) +let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning id) +let skinnyKeyThreshold self = msg_send ~self ~cmd:(selector "skinnyKeyThreshold") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory_CarLinear.ml b/uikit_extra/UIKBRenderFactory_CarLinear.ml index f348c8ef..4e5cbb56 100644 --- a/uikit_extra/UIKBRenderFactory_CarLinear.ml +++ b/uikit_extra/UIKBRenderFactory_CarLinear.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactory_CarLinear" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory_carlinear?language=objc}UIKBRenderFactory_CarLinear} *) -let activeLetterFontSize self = msg_send ~self ~cmd:(selector "activeLetterFontSize") ~typ:(returning (double)) -let carKeyRadius self = msg_send ~self ~cmd:(selector "carKeyRadius") ~typ:(returning (double)) -let defaultKeyFontSize self = msg_send ~self ~cmd:(selector "defaultKeyFontSize") ~typ:(returning (double)) -let letterLineFontSize self = msg_send ~self ~cmd:(selector "letterLineFontSize") ~typ:(returning (double)) -let lightTextFontName self = msg_send ~self ~cmd:(selector "lightTextFontName") ~typ:(returning (id)) -let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIKBRenderFactory_CarLinear" + +let activeLetterFontSize self = msg_send ~self ~cmd:(selector "activeLetterFontSize") ~typ:(returning double) +let carKeyRadius self = msg_send ~self ~cmd:(selector "carKeyRadius") ~typ:(returning double) +let defaultKeyFontSize self = msg_send ~self ~cmd:(selector "defaultKeyFontSize") ~typ:(returning double) +let letterLineFontSize self = msg_send ~self ~cmd:(selector "letterLineFontSize") ~typ:(returning double) +let lightTextFontName self = msg_send ~self ~cmd:(selector "lightTextFontName") ~typ:(returning id) +let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory_Composite.ml b/uikit_extra/UIKBRenderFactory_Composite.ml index 93f46546..573718f6 100644 --- a/uikit_extra/UIKBRenderFactory_Composite.ml +++ b/uikit_extra/UIKBRenderFactory_Composite.ml @@ -5,13 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactory_Composite" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory_composite?language=objc}UIKBRenderFactory_Composite} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithRenderingContext x ~skipLayoutSegments self = msg_send ~self ~cmd:(selector "initWithRenderingContext:skipLayoutSegments:") ~typ:(id @-> bool @-> returning (id)) x skipLayoutSegments -let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning (bool)) -let popupFontSize self = msg_send ~self ~cmd:(selector "popupFontSize") ~typ:(returning (double)) -let popupSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantAnnotationTextOffset self = msg_send_stret ~self ~cmd:(selector "variantAnnotationTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBRenderFactory_Composite" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithRenderingContext x ~skipLayoutSegments self = msg_send ~self ~cmd:(selector "initWithRenderingContext:skipLayoutSegments:") ~typ:(id @-> bool @-> returning id) x skipLayoutSegments +let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning bool) +let popupFontSize self = msg_send ~self ~cmd:(selector "popupFontSize") ~typ:(returning double) +let popupSymbolTextOffset self = msg_send ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning CGPoint.t) +let variantAnnotationTextOffset self = msg_send ~self ~cmd:(selector "variantAnnotationTextOffset") ~typ:(returning CGPoint.t) +let variantPaddedFrameInsets self = msg_send ~self ~cmd:(selector "variantPaddedFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantSymbolFrameInsets self = msg_send ~self ~cmd:(selector "variantSymbolFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantSymbolTextOffset self = msg_send ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning CGPoint.t) +let wideShadowPaddleInsets self = msg_send ~self ~cmd:(selector "wideShadowPaddleInsets") ~typ:(returning UIEdgeInsets.t) +let wideShadowPopupMenuInsets self = msg_send ~self ~cmd:(selector "wideShadowPopupMenuInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory_Emoji.ml b/uikit_extra/UIKBRenderFactory_Emoji.ml index aa1514fa..5c1e8b04 100644 --- a/uikit_extra/UIKBRenderFactory_Emoji.ml +++ b/uikit_extra/UIKBRenderFactory_Emoji.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactory_Emoji" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory_emoji?language=objc}UIKBRenderFactory_Emoji} *) -let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning (id)) x -let controlKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "controlKeyBackgroundColorName") ~typ:(returning (id)) -let defaultKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "defaultKeyBackgroundColorName") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBRenderFactory_Emoji" + +let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning id) x +let controlKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "controlKeyBackgroundColorName") ~typ:(returning id) +let defaultKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "defaultKeyBackgroundColorName") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory_Monolith.ml b/uikit_extra/UIKBRenderFactory_Monolith.ml index 9a449f3f..059eaa62 100644 --- a/uikit_extra/UIKBRenderFactory_Monolith.ml +++ b/uikit_extra/UIKBRenderFactory_Monolith.ml @@ -5,40 +5,44 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactory_Monolith" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory_monolith?language=objc}UIKBRenderFactory_Monolith} *) -let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning (llong)) -let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning (id)) x -let configureCornersOnGeometry x ~forKey self = msg_send ~self ~cmd:(selector "configureCornersOnGeometry:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let configureSymbolStyle x ~forActiveKeyplaneSwitchKey self = msg_send ~self ~cmd:(selector "configureSymbolStyle:forActiveKeyplaneSwitchKey:") ~typ:(id @-> id @-> returning (void)) x forActiveKeyplaneSwitchKey -let configureSymbolStyle' x ~forEnabledKeyplaneSwitchKey self = msg_send ~self ~cmd:(selector "configureSymbolStyle:forEnabledKeyplaneSwitchKey:") ~typ:(id @-> id @-> returning (void)) x forEnabledKeyplaneSwitchKey -let configureSymbolStyles x ~forLetterKey self = msg_send ~self ~cmd:(selector "configureSymbolStyles:forLetterKey:") ~typ:(id @-> id @-> returning (void)) x forLetterKey -let disabledTextColor self = msg_send ~self ~cmd:(selector "disabledTextColor") ~typ:(returning (id)) -let displayContentsForKey x self = msg_send ~self ~cmd:(selector "displayContentsForKey:") ~typ:(id @-> returning (id)) x -let enabledTextColor self = msg_send ~self ~cmd:(selector "enabledTextColor") ~typ:(returning (id)) -let forceVariantsInsideKeyplane self = msg_send ~self ~cmd:(selector "forceVariantsInsideKeyplane") ~typ:(returning (bool)) -let highlightedKeyColor self = msg_send ~self ~cmd:(selector "highlightedKeyColor") ~typ:(returning (id)) -let highlightedTextColor self = msg_send ~self ~cmd:(selector "highlightedTextColor") ~typ:(returning (id)) -let highlightedVariantKeyColor self = msg_send ~self ~cmd:(selector "highlightedVariantKeyColor") ~typ:(returning (id)) -let includeDeleteInVariants self = msg_send ~self ~cmd:(selector "includeDeleteInVariants") ~typ:(returning (bool)) -let keyRoundRectRadius self = msg_send ~self ~cmd:(selector "keyRoundRectRadius") ~typ:(returning (double)) -let letterKeyFontSize self = msg_send ~self ~cmd:(selector "letterKeyFontSize") ~typ:(returning (double)) -let letterKeyFontWeight self = msg_send ~self ~cmd:(selector "letterKeyFontWeight") ~typ:(returning (double)) -let letterKeySecondaryFontSize self = msg_send ~self ~cmd:(selector "letterKeySecondaryFontSize") ~typ:(returning (double)) -let letterKeyTwoLineFontSize self = msg_send ~self ~cmd:(selector "letterKeyTwoLineFontSize") ~typ:(returning (double)) -let letterKeyTwoLineFontWeight self = msg_send ~self ~cmd:(selector "letterKeyTwoLineFontWeight") ~typ:(returning (double)) -let lowQualityTraits x self = msg_send ~self ~cmd:(selector "lowQualityTraits:") ~typ:(id @-> returning (void)) x -let preferGlyphForClear self = msg_send ~self ~cmd:(selector "preferGlyphForClear") ~typ:(returning (bool)) -let preferGlyphForDelete self = msg_send ~self ~cmd:(selector "preferGlyphForDelete") ~typ:(returning (bool)) -let shadowRadius self = msg_send ~self ~cmd:(selector "shadowRadius") ~typ:(returning (double)) -let shadowYOffset self = msg_send ~self ~cmd:(selector "shadowYOffset") ~typ:(returning (double)) -let smallTextForSpaceAndClear self = msg_send ~self ~cmd:(selector "smallTextForSpaceAndClear") ~typ:(returning (bool)) -let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning (double)) -let spaceKeyIsPressed self = msg_send ~self ~cmd:(selector "spaceKeyIsPressed") ~typ:(returning (bool)) -let textKeyFontSize self = msg_send ~self ~cmd:(selector "textKeyFontSize") ~typ:(returning (double)) -let textKeyFontWeight self = msg_send ~self ~cmd:(selector "textKeyFontWeight") ~typ:(returning (double)) -let tldKeyFontSize self = msg_send ~self ~cmd:(selector "tldKeyFontSize") ~typ:(returning (double)) -let tldKeyFontWeight self = msg_send ~self ~cmd:(selector "tldKeyFontWeight") ~typ:(returning (double)) -let variantKeyBackgroundColor self = msg_send ~self ~cmd:(selector "variantKeyBackgroundColor") ~typ:(returning (id)) -let variantKeyColor self = msg_send ~self ~cmd:(selector "variantKeyColor") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBRenderFactory_Monolith" + +let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning llong) +let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning id) x +let configureCornersOnGeometry x ~forKey self = msg_send ~self ~cmd:(selector "configureCornersOnGeometry:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let configureSymbolStyle x ~forActiveKeyplaneSwitchKey self = msg_send ~self ~cmd:(selector "configureSymbolStyle:forActiveKeyplaneSwitchKey:") ~typ:(id @-> id @-> returning void) x forActiveKeyplaneSwitchKey +let configureSymbolStyle' x ~forEnabledKeyplaneSwitchKey self = msg_send ~self ~cmd:(selector "configureSymbolStyle:forEnabledKeyplaneSwitchKey:") ~typ:(id @-> id @-> returning void) x forEnabledKeyplaneSwitchKey +let configureSymbolStyles x ~forLetterKey self = msg_send ~self ~cmd:(selector "configureSymbolStyles:forLetterKey:") ~typ:(id @-> id @-> returning void) x forLetterKey +let disabledTextColor self = msg_send ~self ~cmd:(selector "disabledTextColor") ~typ:(returning id) +let displayContentsForKey x self = msg_send ~self ~cmd:(selector "displayContentsForKey:") ~typ:(id @-> returning id) x +let enabledTextColor self = msg_send ~self ~cmd:(selector "enabledTextColor") ~typ:(returning id) +let forceVariantsInsideKeyplane self = msg_send ~self ~cmd:(selector "forceVariantsInsideKeyplane") ~typ:(returning bool) +let highlightedKeyColor self = msg_send ~self ~cmd:(selector "highlightedKeyColor") ~typ:(returning id) +let highlightedTextColor self = msg_send ~self ~cmd:(selector "highlightedTextColor") ~typ:(returning id) +let highlightedVariantKeyColor self = msg_send ~self ~cmd:(selector "highlightedVariantKeyColor") ~typ:(returning id) +let includeDeleteInVariants self = msg_send ~self ~cmd:(selector "includeDeleteInVariants") ~typ:(returning bool) +let keyRoundRectRadius self = msg_send ~self ~cmd:(selector "keyRoundRectRadius") ~typ:(returning double) +let letterKeyFontSize self = msg_send ~self ~cmd:(selector "letterKeyFontSize") ~typ:(returning double) +let letterKeyFontWeight self = msg_send ~self ~cmd:(selector "letterKeyFontWeight") ~typ:(returning double) +let letterKeySecondaryFontSize self = msg_send ~self ~cmd:(selector "letterKeySecondaryFontSize") ~typ:(returning double) +let letterKeyTwoLineFontSize self = msg_send ~self ~cmd:(selector "letterKeyTwoLineFontSize") ~typ:(returning double) +let letterKeyTwoLineFontWeight self = msg_send ~self ~cmd:(selector "letterKeyTwoLineFontWeight") ~typ:(returning double) +let lowQualityTraits x self = msg_send ~self ~cmd:(selector "lowQualityTraits:") ~typ:(id @-> returning void) x +let preferGlyphForClear self = msg_send ~self ~cmd:(selector "preferGlyphForClear") ~typ:(returning bool) +let preferGlyphForDelete self = msg_send ~self ~cmd:(selector "preferGlyphForDelete") ~typ:(returning bool) +let shadowRadius self = msg_send ~self ~cmd:(selector "shadowRadius") ~typ:(returning double) +let shadowYOffset self = msg_send ~self ~cmd:(selector "shadowYOffset") ~typ:(returning double) +let smallTextForSpaceAndClear self = msg_send ~self ~cmd:(selector "smallTextForSpaceAndClear") ~typ:(returning bool) +let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning double) +let spaceKeyIsPressed self = msg_send ~self ~cmd:(selector "spaceKeyIsPressed") ~typ:(returning bool) +let textKeyFontSize self = msg_send ~self ~cmd:(selector "textKeyFontSize") ~typ:(returning double) +let textKeyFontWeight self = msg_send ~self ~cmd:(selector "textKeyFontWeight") ~typ:(returning double) +let tldKeyFontSize self = msg_send ~self ~cmd:(selector "tldKeyFontSize") ~typ:(returning double) +let tldKeyFontWeight self = msg_send ~self ~cmd:(selector "tldKeyFontWeight") ~typ:(returning double) +let variantKeyBackgroundColor self = msg_send ~self ~cmd:(selector "variantKeyBackgroundColor") ~typ:(returning id) +let variantKeyColor self = msg_send ~self ~cmd:(selector "variantKeyColor") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory_MonolithLinear.ml b/uikit_extra/UIKBRenderFactory_MonolithLinear.ml index 7881f5fd..fc08754c 100644 --- a/uikit_extra/UIKBRenderFactory_MonolithLinear.ml +++ b/uikit_extra/UIKBRenderFactory_MonolithLinear.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactory_MonolithLinear" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory_monolithlinear?language=objc}UIKBRenderFactory_MonolithLinear} *) -let forceVariantsInsideKeyplane self = msg_send ~self ~cmd:(selector "forceVariantsInsideKeyplane") ~typ:(returning (bool)) -let includeDeleteInVariants self = msg_send ~self ~cmd:(selector "includeDeleteInVariants") ~typ:(returning (bool)) -let preferGlyphForClear self = msg_send ~self ~cmd:(selector "preferGlyphForClear") ~typ:(returning (bool)) -let preferGlyphForDelete self = msg_send ~self ~cmd:(selector "preferGlyphForDelete") ~typ:(returning (bool)) -let smallTextForSpaceAndClear self = msg_send ~self ~cmd:(selector "smallTextForSpaceAndClear") ~typ:(returning (bool)) -let spaceKeyIsPressed self = msg_send ~self ~cmd:(selector "spaceKeyIsPressed") ~typ:(returning (bool)) -let tldKeyFontSize self = msg_send ~self ~cmd:(selector "tldKeyFontSize") ~typ:(returning (double)) -let tldKeyFontWeight self = msg_send ~self ~cmd:(selector "tldKeyFontWeight") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIKBRenderFactory_MonolithLinear" + +let forceVariantsInsideKeyplane self = msg_send ~self ~cmd:(selector "forceVariantsInsideKeyplane") ~typ:(returning bool) +let includeDeleteInVariants self = msg_send ~self ~cmd:(selector "includeDeleteInVariants") ~typ:(returning bool) +let preferGlyphForClear self = msg_send ~self ~cmd:(selector "preferGlyphForClear") ~typ:(returning bool) +let preferGlyphForDelete self = msg_send ~self ~cmd:(selector "preferGlyphForDelete") ~typ:(returning bool) +let smallTextForSpaceAndClear self = msg_send ~self ~cmd:(selector "smallTextForSpaceAndClear") ~typ:(returning bool) +let spaceKeyIsPressed self = msg_send ~self ~cmd:(selector "spaceKeyIsPressed") ~typ:(returning bool) +let tldKeyFontSize self = msg_send ~self ~cmd:(selector "tldKeyFontSize") ~typ:(returning double) +let tldKeyFontWeight self = msg_send ~self ~cmd:(selector "tldKeyFontWeight") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory_MonolithLinearSlim.ml b/uikit_extra/UIKBRenderFactory_MonolithLinearSlim.ml index 5701e46d..7eed04ce 100644 --- a/uikit_extra/UIKBRenderFactory_MonolithLinearSlim.ml +++ b/uikit_extra/UIKBRenderFactory_MonolithLinearSlim.ml @@ -5,23 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactory_MonolithLinearSlim" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory_monolithlinearslim?language=objc}UIKBRenderFactory_MonolithLinearSlim} *) -let configureCornersOnGeometry x ~forKey self = msg_send ~self ~cmd:(selector "configureCornersOnGeometry:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let configureSymbolStyle x ~forActiveKeyplaneSwitchKey self = msg_send ~self ~cmd:(selector "configureSymbolStyle:forActiveKeyplaneSwitchKey:") ~typ:(id @-> id @-> returning (void)) x forActiveKeyplaneSwitchKey -let configureSymbolStyle' x ~forEnabledKeyplaneSwitchKey self = msg_send ~self ~cmd:(selector "configureSymbolStyle:forEnabledKeyplaneSwitchKey:") ~typ:(id @-> id @-> returning (void)) x forEnabledKeyplaneSwitchKey -let highlightedVariantLayeredBackgroundColor self = msg_send ~self ~cmd:(selector "highlightedVariantLayeredBackgroundColor") ~typ:(returning (id)) -let highlightedVariantPillBackgroundColor self = msg_send ~self ~cmd:(selector "highlightedVariantPillBackgroundColor") ~typ:(returning (id)) -let internationalSymbolFrameFromRect x self = msg_send_stret ~self ~cmd:(selector "internationalSymbolFrameFromRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let keyRoundRectRadius self = msg_send ~self ~cmd:(selector "keyRoundRectRadius") ~typ:(returning (double)) -let pillRoundRectRadius self = msg_send ~self ~cmd:(selector "pillRoundRectRadius") ~typ:(returning (double)) -let spaceDisplayFrameFromRect x self = msg_send_stret ~self ~cmd:(selector "spaceDisplayFrameFromRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let spacePaddedFrameFromRect x self = msg_send_stret ~self ~cmd:(selector "spacePaddedFrameFromRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let spaceSymbolFrameFromRect x self = msg_send_stret ~self ~cmd:(selector "spaceSymbolFrameFromRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let switchPaddedFrameFromRect x self = msg_send_stret ~self ~cmd:(selector "switchPaddedFrameFromRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let switchSymbolFrameFromRect x self = msg_send_stret ~self ~cmd:(selector "switchSymbolFrameFromRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let symbolTextOffset self = msg_send_stret ~self ~cmd:(selector "symbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantBackgroundColor self = msg_send ~self ~cmd:(selector "variantBackgroundColor") ~typ:(returning (id)) -let variantKeyColor self = msg_send ~self ~cmd:(selector "variantKeyColor") ~typ:(returning (id)) -let variantPillBackgroundColor self = msg_send ~self ~cmd:(selector "variantPillBackgroundColor") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBRenderFactory_MonolithLinearSlim" + +let configureCornersOnGeometry x ~forKey self = msg_send ~self ~cmd:(selector "configureCornersOnGeometry:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let configureSymbolStyle x ~forActiveKeyplaneSwitchKey self = msg_send ~self ~cmd:(selector "configureSymbolStyle:forActiveKeyplaneSwitchKey:") ~typ:(id @-> id @-> returning void) x forActiveKeyplaneSwitchKey +let configureSymbolStyle' x ~forEnabledKeyplaneSwitchKey self = msg_send ~self ~cmd:(selector "configureSymbolStyle:forEnabledKeyplaneSwitchKey:") ~typ:(id @-> id @-> returning void) x forEnabledKeyplaneSwitchKey +let highlightedVariantLayeredBackgroundColor self = msg_send ~self ~cmd:(selector "highlightedVariantLayeredBackgroundColor") ~typ:(returning id) +let highlightedVariantPillBackgroundColor self = msg_send ~self ~cmd:(selector "highlightedVariantPillBackgroundColor") ~typ:(returning id) +let internationalSymbolFrameFromRect x self = msg_send ~self ~cmd:(selector "internationalSymbolFrameFromRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let keyRoundRectRadius self = msg_send ~self ~cmd:(selector "keyRoundRectRadius") ~typ:(returning double) +let pillRoundRectRadius self = msg_send ~self ~cmd:(selector "pillRoundRectRadius") ~typ:(returning double) +let spaceDisplayFrameFromRect x self = msg_send ~self ~cmd:(selector "spaceDisplayFrameFromRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let spacePaddedFrameFromRect x self = msg_send ~self ~cmd:(selector "spacePaddedFrameFromRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let spaceSymbolFrameFromRect x self = msg_send ~self ~cmd:(selector "spaceSymbolFrameFromRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let switchPaddedFrameFromRect x self = msg_send ~self ~cmd:(selector "switchPaddedFrameFromRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let switchSymbolFrameFromRect x self = msg_send ~self ~cmd:(selector "switchSymbolFrameFromRect:") ~typ:(CGRect.t @-> returning CGRect.t) x +let symbolTextOffset self = msg_send ~self ~cmd:(selector "symbolTextOffset") ~typ:(returning CGPoint.t) +let variantBackgroundColor self = msg_send ~self ~cmd:(selector "variantBackgroundColor") ~typ:(returning id) +let variantKeyColor self = msg_send ~self ~cmd:(selector "variantKeyColor") ~typ:(returning id) +let variantPillBackgroundColor self = msg_send ~self ~cmd:(selector "variantPillBackgroundColor") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory_iPhoneChocoReachable.ml b/uikit_extra/UIKBRenderFactory_iPhoneChocoReachable.ml new file mode 100644 index 00000000..ace71a31 --- /dev/null +++ b/uikit_extra/UIKBRenderFactory_iPhoneChocoReachable.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory_iphonechocoreachable?language=objc}UIKBRenderFactory_iPhoneChocoReachable} *) + +let self = get_class "UIKBRenderFactory_iPhoneChocoReachable" + +let variantWideShadowWeight self = msg_send ~self ~cmd:(selector "variantWideShadowWeight") ~typ:(returning double) +let wideShadowPaddleInsets self = msg_send ~self ~cmd:(selector "wideShadowPaddleInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactory_iPhoneTruffleReachable.ml b/uikit_extra/UIKBRenderFactory_iPhoneTruffleReachable.ml new file mode 100644 index 00000000..ae113290 --- /dev/null +++ b/uikit_extra/UIKBRenderFactory_iPhoneTruffleReachable.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactory_iphonetrufflereachable?language=objc}UIKBRenderFactory_iPhoneTruffleReachable} *) + +let self = get_class "UIKBRenderFactory_iPhoneTruffleReachable" + +let variantWideShadowWeight self = msg_send ~self ~cmd:(selector "variantWideShadowWeight") ~typ:(returning double) +let wideShadowPaddleInsets self = msg_send ~self ~cmd:(selector "wideShadowPaddleInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPad.ml b/uikit_extra/UIKBRenderFactoryiPad.ml index 9455fd11..e585361b 100644 --- a/uikit_extra/UIKBRenderFactoryiPad.ml +++ b/uikit_extra/UIKBRenderFactoryiPad.ml @@ -5,80 +5,88 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPad" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryipad?language=objc}UIKBRenderFactoryiPad} *) -let _ZWNJKeyImageName self = msg_send ~self ~cmd:(selector "ZWNJKeyImageName") ~typ:(returning (id)) -let _ZWNJKeyOffset self = msg_send_stret ~self ~cmd:(selector "ZWNJKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning (llong)) -let bottomRowDefaultFontSize self = msg_send ~self ~cmd:(selector "bottomRowDefaultFontSize") ~typ:(returning (double)) -let capslockKeyImageName self = msg_send ~self ~cmd:(selector "capslockKeyImageName") ~typ:(returning (id)) -let cornerRadiusForKey x self = msg_send ~self ~cmd:(selector "cornerRadiusForKey:") ~typ:(id @-> returning (double)) x -let defaultPathWeight self = msg_send ~self ~cmd:(selector "defaultPathWeight") ~typ:(returning (double)) -let defaultVariantGeometrySize self = msg_send_stret ~self ~cmd:(selector "defaultVariantGeometrySize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let defaultVariantSizeThreshold self = msg_send ~self ~cmd:(selector "defaultVariantSizeThreshold") ~typ:(returning (double)) -let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning (double)) -let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning (id)) -let deleteKeyOffset self = msg_send_stret ~self ~cmd:(selector "deleteKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning (id)) -let dictationKeyFontSize self = msg_send ~self ~cmd:(selector "dictationKeyFontSize") ~typ:(returning (double)) -let dictationKeyImageName self = msg_send ~self ~cmd:(selector "dictationKeyImageName") ~typ:(returning (id)) -let dictationKeyOffset self = msg_send_stret ~self ~cmd:(selector "dictationKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dismissKeyFontSize self = msg_send ~self ~cmd:(selector "dismissKeyFontSize") ~typ:(returning (double)) -let dismissKeyImageName self = msg_send ~self ~cmd:(selector "dismissKeyImageName") ~typ:(returning (id)) -let dismissKeyOffset self = msg_send_stret ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dismissKeySymbolFrame self = msg_send_stret ~self ~cmd:(selector "dismissKeySymbolFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let displayContentsForKey x self = msg_send ~self ~cmd:(selector "displayContentsForKey:") ~typ:(id @-> returning (id)) x -let dualStringKeyFontSizeAdjustment self = msg_send ~self ~cmd:(selector "dualStringKeyFontSizeAdjustment") ~typ:(returning (double)) -let dualStringKeyOffset self = msg_send_stret ~self ~cmd:(selector "dualStringKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let emailDotKeyFontSize self = msg_send ~self ~cmd:(selector "emailDotKeyFontSize") ~typ:(returning (double)) -let facemarkKeyFontSize self = msg_send ~self ~cmd:(selector "facemarkKeyFontSize") ~typ:(returning (double)) -let fallbackFontSize self = msg_send ~self ~cmd:(selector "fallbackFontSize") ~typ:(returning (double)) -let fontSizeAdjustmentForNonAlphanumericKeycaps self = msg_send ~self ~cmd:(selector "fontSizeAdjustmentForNonAlphanumericKeycaps") ~typ:(returning (double)) -let globalEmojiKeyImageName self = msg_send ~self ~cmd:(selector "globalEmojiKeyImageName") ~typ:(returning (id)) -let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning (id)) -let iPadFudgeLayout self = msg_send ~self ~cmd:(selector "iPadFudgeLayout") ~typ:(returning (bool)) -let iPadSansHomeButtonLayout self = msg_send ~self ~cmd:(selector "iPadSansHomeButtonLayout") ~typ:(returning (bool)) -let insetFrame x ~forKey self = msg_send_stret ~self ~cmd:(selector "insetFrame:forKey:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x forKey -let internationalKeyFontSize self = msg_send ~self ~cmd:(selector "internationalKeyFontSize") ~typ:(returning (double)) -let internationalKeyOffset self = msg_send_stret ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning (double)) -let keyInsetBottom self = msg_send ~self ~cmd:(selector "keyInsetBottom") ~typ:(returning (double)) -let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning (id)) -let lowQualityLayeredBackgroundColorName self = msg_send ~self ~cmd:(selector "lowQualityLayeredBackgroundColorName") ~typ:(returning (id)) -let messagesTypeKeyplanSwitchKeyFontSize self = msg_send ~self ~cmd:(selector "messagesTypeKeyplanSwitchKeyFontSize") ~typ:(returning (double)) -let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning (id)) -let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning (double)) -let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning (id)) -let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning (id)) -let predictiveKeyCornerRadius self = msg_send ~self ~cmd:(selector "predictiveKeyCornerRadius") ~typ:(returning (double)) -let returnKeyImageName self = msg_send ~self ~cmd:(selector "returnKeyImageName") ~typ:(returning (id)) -let returnKeyOffset self = msg_send_stret ~self ~cmd:(selector "returnKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let returnKeySymbolFrameInset self = msg_send ~self ~cmd:(selector "returnKeySymbolFrameInset") ~typ:(returning (double)) -let rowLimitForKey x self = msg_send ~self ~cmd:(selector "rowLimitForKey:") ~typ:(id @-> returning (llong)) x -let secondaryShiftKeyOffset self = msg_send_stret ~self ~cmd:(selector "secondaryShiftKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let setAllowsPaddles x self = msg_send ~self ~cmd:(selector "setAllowsPaddles:") ~typ:(bool @-> returning (void)) x -let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning (void)) -let shiftKeyFontSize self = msg_send ~self ~cmd:(selector "shiftKeyFontSize") ~typ:(returning (double)) -let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning (id)) -let shiftKeyOffset self = msg_send_stret ~self ~cmd:(selector "shiftKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let shiftKeySymbolFrame self = msg_send_stret ~self ~cmd:(selector "shiftKeySymbolFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning (id)) -let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning (id)) -let shouldClearBaseDisplayStringForVariants x self = msg_send ~self ~cmd:(selector "shouldClearBaseDisplayStringForVariants:") ~typ:(id @-> returning (bool)) x -let skinnyKeyThreshold self = msg_send ~self ~cmd:(selector "skinnyKeyThreshold") ~typ:(returning (double)) -let smallKanaKeyFontSize self = msg_send ~self ~cmd:(selector "smallKanaKeyFontSize") ~typ:(returning (double)) -let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning (double)) -let stringKeyFontSize self = msg_send ~self ~cmd:(selector "stringKeyFontSize") ~typ:(returning (double)) -let stringKeyOffset self = msg_send_stret ~self ~cmd:(selector "stringKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let supportsInputTraits x ~forKeyplane self = msg_send ~self ~cmd:(selector "supportsInputTraits:forKeyplane:") ~typ:(id @-> id @-> returning (bool)) x forKeyplane -let symbolFrameInset self = msg_send ~self ~cmd:(selector "symbolFrameInset") ~typ:(returning (double)) -let symbolImageControlKeyFontSize self = msg_send ~self ~cmd:(selector "symbolImageControlKeyFontSize") ~typ:(returning (double)) -let symbolImageControlKeyOffset self = msg_send_stret ~self ~cmd:(selector "symbolImageControlKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let tabKeyImageName self = msg_send ~self ~cmd:(selector "tabKeyImageName") ~typ:(returning (id)) -let thinKeycapsFontName self = msg_send ~self ~cmd:(selector "thinKeycapsFontName") ~typ:(returning (id)) -let tinyPunctuationGlyphFontSize self = msg_send ~self ~cmd:(selector "tinyPunctuationGlyphFontSize") ~typ:(returning (double)) -let tinyPunctuationGlyphOffset self = msg_send_stret ~self ~cmd:(selector "tinyPunctuationGlyphOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantAnnotationTextOffset self = msg_send_stret ~self ~cmd:(selector "variantAnnotationTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantGeometriesForGeometry x ~variantCount ~rowLimit ~annotationIndex self = msg_send ~self ~cmd:(selector "variantGeometriesForGeometry:variantCount:rowLimit:annotationIndex:") ~typ:(id @-> ullong @-> llong @-> ullong @-> returning (id)) x (ULLong.of_int variantCount) (LLong.of_int rowLimit) (ULLong.of_int annotationIndex) -let zhuyinFirstToneKeyFontSize self = msg_send ~self ~cmd:(selector "zhuyinFirstToneKeyFontSize") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPad" + +let _ZWNJKeyImageName self = msg_send ~self ~cmd:(selector "ZWNJKeyImageName") ~typ:(returning id) +let _ZWNJKeyOffset self = msg_send ~self ~cmd:(selector "ZWNJKeyOffset") ~typ:(returning CGPoint.t) +let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning llong) +let bottomRowDefaultFontSize self = msg_send ~self ~cmd:(selector "bottomRowDefaultFontSize") ~typ:(returning double) +let capslockKeyImageName self = msg_send ~self ~cmd:(selector "capslockKeyImageName") ~typ:(returning id) +let cornerRadiusForKey x self = msg_send ~self ~cmd:(selector "cornerRadiusForKey:") ~typ:(id @-> returning double) x +let defaultPathWeight self = msg_send ~self ~cmd:(selector "defaultPathWeight") ~typ:(returning double) +let defaultVariantGeometrySize self = msg_send ~self ~cmd:(selector "defaultVariantGeometrySize") ~typ:(returning CGSize.t) +let defaultVariantSizeThreshold self = msg_send ~self ~cmd:(selector "defaultVariantSizeThreshold") ~typ:(returning double) +let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning double) +let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning id) +let deleteKeyOffset self = msg_send ~self ~cmd:(selector "deleteKeyOffset") ~typ:(returning CGPoint.t) +let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning id) +let dictationKeyFontSize self = msg_send ~self ~cmd:(selector "dictationKeyFontSize") ~typ:(returning double) +let dictationKeyImageName self = msg_send ~self ~cmd:(selector "dictationKeyImageName") ~typ:(returning id) +let dictationKeyOffset self = msg_send ~self ~cmd:(selector "dictationKeyOffset") ~typ:(returning CGPoint.t) +let dismissKeyFontSize self = msg_send ~self ~cmd:(selector "dismissKeyFontSize") ~typ:(returning double) +let dismissKeyImageName self = msg_send ~self ~cmd:(selector "dismissKeyImageName") ~typ:(returning id) +let dismissKeyOffset self = msg_send ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning CGPoint.t) +let dismissKeySymbolFrame self = msg_send ~self ~cmd:(selector "dismissKeySymbolFrame") ~typ:(returning CGRect.t) +let displayContentsForKey x self = msg_send ~self ~cmd:(selector "displayContentsForKey:") ~typ:(id @-> returning id) x +let dualStringKeyFontSizeAdjustment self = msg_send ~self ~cmd:(selector "dualStringKeyFontSizeAdjustment") ~typ:(returning double) +let dualStringKeyOffset self = msg_send ~self ~cmd:(selector "dualStringKeyOffset") ~typ:(returning CGPoint.t) +let emailDotKeyFontSize self = msg_send ~self ~cmd:(selector "emailDotKeyFontSize") ~typ:(returning double) +let facemarkKeyFontSize self = msg_send ~self ~cmd:(selector "facemarkKeyFontSize") ~typ:(returning double) +let fallbackFontSize self = msg_send ~self ~cmd:(selector "fallbackFontSize") ~typ:(returning double) +let fontSizeAdjustmentForNonAlphanumericKeycaps self = msg_send ~self ~cmd:(selector "fontSizeAdjustmentForNonAlphanumericKeycaps") ~typ:(returning double) +let globalEmojiKeyImageName self = msg_send ~self ~cmd:(selector "globalEmojiKeyImageName") ~typ:(returning id) +let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning id) +let iPadFudgeLayout self = msg_send ~self ~cmd:(selector "iPadFudgeLayout") ~typ:(returning bool) +let iPadSansHomeButtonLayout self = msg_send ~self ~cmd:(selector "iPadSansHomeButtonLayout") ~typ:(returning bool) +let insetFrame x ~forKey self = msg_send ~self ~cmd:(selector "insetFrame:forKey:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x forKey +let internationalKeyFontSize self = msg_send ~self ~cmd:(selector "internationalKeyFontSize") ~typ:(returning double) +let internationalKeyOffset self = msg_send ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning CGPoint.t) +let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning double) +let keyInsetBottom self = msg_send ~self ~cmd:(selector "keyInsetBottom") ~typ:(returning double) +let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning id) +let lowQualityLayeredBackgroundColorName self = msg_send ~self ~cmd:(selector "lowQualityLayeredBackgroundColorName") ~typ:(returning id) +let messagesTypeKeyplanSwitchKeyFontSize self = msg_send ~self ~cmd:(selector "messagesTypeKeyplanSwitchKeyFontSize") ~typ:(returning double) +let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning id) +let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning double) +let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning id) +let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning id) +let predictiveKeyCornerRadius self = msg_send ~self ~cmd:(selector "predictiveKeyCornerRadius") ~typ:(returning double) +let returnKeyImageName self = msg_send ~self ~cmd:(selector "returnKeyImageName") ~typ:(returning id) +let returnKeyOffset self = msg_send ~self ~cmd:(selector "returnKeyOffset") ~typ:(returning CGPoint.t) +let returnKeySymbolFrameInset self = msg_send ~self ~cmd:(selector "returnKeySymbolFrameInset") ~typ:(returning double) +let rowLimitForKey x self = msg_send ~self ~cmd:(selector "rowLimitForKey:") ~typ:(id @-> returning llong) x +let secondaryShiftKeyOffset self = msg_send ~self ~cmd:(selector "secondaryShiftKeyOffset") ~typ:(returning CGPoint.t) +let setAllowsPaddles x self = msg_send ~self ~cmd:(selector "setAllowsPaddles:") ~typ:(bool @-> returning void) x +let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning void) +let shiftKeyFontSize self = msg_send ~self ~cmd:(selector "shiftKeyFontSize") ~typ:(returning double) +let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning id) +let shiftKeyOffset self = msg_send ~self ~cmd:(selector "shiftKeyOffset") ~typ:(returning CGPoint.t) +let shiftKeySymbolFrame self = msg_send ~self ~cmd:(selector "shiftKeySymbolFrame") ~typ:(returning CGRect.t) +let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning id) +let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning id) +let shouldClearBaseDisplayStringForVariants x self = msg_send ~self ~cmd:(selector "shouldClearBaseDisplayStringForVariants:") ~typ:(id @-> returning bool) x +let skinnyKeyThreshold self = msg_send ~self ~cmd:(selector "skinnyKeyThreshold") ~typ:(returning double) +let smallKanaKeyFontSize self = msg_send ~self ~cmd:(selector "smallKanaKeyFontSize") ~typ:(returning double) +let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning double) +let stringKeyFontSize self = msg_send ~self ~cmd:(selector "stringKeyFontSize") ~typ:(returning double) +let stringKeyOffset self = msg_send ~self ~cmd:(selector "stringKeyOffset") ~typ:(returning CGPoint.t) +let supportsInputTraits x ~forKeyplane self = msg_send ~self ~cmd:(selector "supportsInputTraits:forKeyplane:") ~typ:(id @-> id @-> returning bool) x forKeyplane +let symbolFrameInset self = msg_send ~self ~cmd:(selector "symbolFrameInset") ~typ:(returning double) +let symbolImageControlKeyFontSize self = msg_send ~self ~cmd:(selector "symbolImageControlKeyFontSize") ~typ:(returning double) +let symbolImageControlKeyOffset self = msg_send ~self ~cmd:(selector "symbolImageControlKeyOffset") ~typ:(returning CGPoint.t) +let tabKeyImageName self = msg_send ~self ~cmd:(selector "tabKeyImageName") ~typ:(returning id) +let thinKeycapsFontName self = msg_send ~self ~cmd:(selector "thinKeycapsFontName") ~typ:(returning id) +let tinyPunctuationGlyphFontSize self = msg_send ~self ~cmd:(selector "tinyPunctuationGlyphFontSize") ~typ:(returning double) +let tinyPunctuationGlyphOffset self = msg_send ~self ~cmd:(selector "tinyPunctuationGlyphOffset") ~typ:(returning CGPoint.t) +let variantAnnotationTextOffset self = msg_send ~self ~cmd:(selector "variantAnnotationTextOffset") ~typ:(returning CGPoint.t) +let variantDisplayFrameInsets self = msg_send ~self ~cmd:(selector "variantDisplayFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantGeometriesForGeometry x ~variantCount ~rowLimit ~annotationIndex self = msg_send ~self ~cmd:(selector "variantGeometriesForGeometry:variantCount:rowLimit:annotationIndex:") ~typ:(id @-> ullong @-> llong @-> ullong @-> returning id) x (ULLong.of_int variantCount) (LLong.of_int rowLimit) (ULLong.of_int annotationIndex) +let variantPaddedFrameInsets self = msg_send ~self ~cmd:(selector "variantPaddedFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantSymbolFrameInsets self = msg_send ~self ~cmd:(selector "variantSymbolFrameInsets") ~typ:(returning UIEdgeInsets.t) +let wideShadowPaddleInsets self = msg_send ~self ~cmd:(selector "wideShadowPaddleInsets") ~typ:(returning UIEdgeInsets.t) +let zhuyinFirstToneKeyFontSize self = msg_send ~self ~cmd:(selector "zhuyinFirstToneKeyFontSize") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPad10Key_Landscape.ml b/uikit_extra/UIKBRenderFactoryiPad10Key_Landscape.ml index a1dad558..6292609b 100644 --- a/uikit_extra/UIKBRenderFactoryiPad10Key_Landscape.ml +++ b/uikit_extra/UIKBRenderFactoryiPad10Key_Landscape.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPad10Key_Landscape" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryipad10key_landscape?language=objc}UIKBRenderFactoryiPad10Key_Landscape} *) -let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning (double)) -let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning (double)) -let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning (id)) -let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning (id)) -let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPad10Key_Landscape" + +let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning double) +let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning double) +let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning id) +let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning id) +let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPad10Key_Portrait.ml b/uikit_extra/UIKBRenderFactoryiPad10Key_Portrait.ml index b294d059..c472ff37 100644 --- a/uikit_extra/UIKBRenderFactoryiPad10Key_Portrait.ml +++ b/uikit_extra/UIKBRenderFactoryiPad10Key_Portrait.ml @@ -5,27 +5,33 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPad10Key_Portrait" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryipad10key_portrait?language=objc}UIKBRenderFactoryiPad10Key_Portrait} *) -let abcKeyTextOffset self = msg_send_stret ~self ~cmd:(selector "abcKeyTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning (llong)) -let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning (id)) x -let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning (double)) -let dictationKeyTextOffset self = msg_send_stret ~self ~cmd:(selector "dictationKeyTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let edgesAdjustedForTranslucentGapsForGeometry x ~key ~onKeyplane self = msg_send ~self ~cmd:(selector "edgesAdjustedForTranslucentGapsForGeometry:key:onKeyplane:") ~typ:(id @-> id @-> id @-> returning (ullong)) x key onKeyplane -let globeKeyTextOffset self = msg_send_stret ~self ~cmd:(selector "globeKeyTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning (double)) -let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning (id)) -let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning (id)) -let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning (id)) -let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning (id)) -let numberPadKeyPrimarySymbolSize self = msg_send ~self ~cmd:(selector "numberPadKeyPrimarySymbolSize") ~typ:(returning (double)) -let numberPadKeyPrimaryTextOffset self = msg_send_stret ~self ~cmd:(selector "numberPadKeyPrimaryTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let numberPadKeySecondaryTextOffset self = msg_send_stret ~self ~cmd:(selector "numberPadKeySecondaryTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let numberPadVBarSecondaryTextOffset self = msg_send_stret ~self ~cmd:(selector "numberPadVBarSecondaryTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning (void)) -let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning (id)) -let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning (id)) -let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning (id)) -let thinKeycapsFontName self = msg_send ~self ~cmd:(selector "thinKeycapsFontName") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPad10Key_Portrait" + +let abcKeyTextOffset self = msg_send ~self ~cmd:(selector "abcKeyTextOffset") ~typ:(returning CGPoint.t) +let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning llong) +let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning id) x +let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning double) +let dictationKeyTextOffset self = msg_send ~self ~cmd:(selector "dictationKeyTextOffset") ~typ:(returning CGPoint.t) +let edgesAdjustedForTranslucentGapsForGeometry x ~key ~onKeyplane self = msg_send ~self ~cmd:(selector "edgesAdjustedForTranslucentGapsForGeometry:key:onKeyplane:") ~typ:(id @-> id @-> id @-> returning ullong) x key onKeyplane +let globeKeyTextOffset self = msg_send ~self ~cmd:(selector "globeKeyTextOffset") ~typ:(returning CGPoint.t) +let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning double) +let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning id) +let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning id) +let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning id) +let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning id) +let numberPadKeyPrimarySymbolSize self = msg_send ~self ~cmd:(selector "numberPadKeyPrimarySymbolSize") ~typ:(returning double) +let numberPadKeyPrimaryTextOffset self = msg_send ~self ~cmd:(selector "numberPadKeyPrimaryTextOffset") ~typ:(returning CGPoint.t) +let numberPadKeySecondaryTextOffset self = msg_send ~self ~cmd:(selector "numberPadKeySecondaryTextOffset") ~typ:(returning CGPoint.t) +let numberPadVBarSecondaryTextOffset self = msg_send ~self ~cmd:(selector "numberPadVBarSecondaryTextOffset") ~typ:(returning CGPoint.t) +let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning void) +let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning id) +let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning id) +let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning id) +let thinKeycapsFontName self = msg_send ~self ~cmd:(selector "thinKeycapsFontName") ~typ:(returning id) +let topEdgeAdjustmentInsets self = msg_send ~self ~cmd:(selector "topEdgeAdjustmentInsets") ~typ:(returning UIEdgeInsets.t) +let wideShadowPaddleInsets self = msg_send ~self ~cmd:(selector "wideShadowPaddleInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPadFudge.ml b/uikit_extra/UIKBRenderFactoryiPadFudge.ml index 51bdad53..c16c1c3a 100644 --- a/uikit_extra/UIKBRenderFactoryiPadFudge.ml +++ b/uikit_extra/UIKBRenderFactoryiPadFudge.ml @@ -5,44 +5,48 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPadFudge" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryipadfudge?language=objc}UIKBRenderFactoryiPadFudge} *) -let capslockKeyImageName self = msg_send ~self ~cmd:(selector "capslockKeyImageName") ~typ:(returning (id)) -let controlKeyFontSize self = msg_send ~self ~cmd:(selector "controlKeyFontSize") ~typ:(returning (double)) -let defaultVariantGeometrySize self = msg_send_stret ~self ~cmd:(selector "defaultVariantGeometrySize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning (double)) -let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning (id)) -let deleteKeyOffset x self = msg_send_stret ~self ~cmd:(selector "deleteKeyOffset:") ~typ:(ullong @-> returning (CGPoint.t)) ~return_type:CGPoint.t (ULLong.of_int x) -let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning (id)) -let dictationKeyImageName self = msg_send ~self ~cmd:(selector "dictationKeyImageName") ~typ:(returning (id)) -let dictationKeyOffset self = msg_send_stret ~self ~cmd:(selector "dictationKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dismissKeyImageName self = msg_send ~self ~cmd:(selector "dismissKeyImageName") ~typ:(returning (id)) -let dismissKeyOffset self = msg_send_stret ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let displayContentsForKey x self = msg_send ~self ~cmd:(selector "displayContentsForKey:") ~typ:(id @-> returning (id)) x -let dualStringKeyBottomFontSize x self = msg_send ~self ~cmd:(selector "dualStringKeyBottomFontSize:") ~typ:(ullong @-> returning (double)) (ULLong.of_int x) -let dualStringKeyBottomTextOffset x self = msg_send_stret ~self ~cmd:(selector "dualStringKeyBottomTextOffset:") ~typ:(ullong @-> returning (CGPoint.t)) ~return_type:CGPoint.t (ULLong.of_int x) -let dualStringKeyBottomTextOffset' x ~keyplane self = msg_send_stret ~self ~cmd:(selector "dualStringKeyBottomTextOffset:keyplane:") ~typ:(id @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x keyplane -let dualStringKeyTopFontSize x self = msg_send ~self ~cmd:(selector "dualStringKeyTopFontSize:") ~typ:(ullong @-> returning (double)) (ULLong.of_int x) -let dualStringKeyTopTextOffset x self = msg_send_stret ~self ~cmd:(selector "dualStringKeyTopTextOffset:") ~typ:(ullong @-> returning (CGPoint.t)) ~return_type:CGPoint.t (ULLong.of_int x) -let dualStringKeyTopTextOffset' x ~keyplane self = msg_send_stret ~self ~cmd:(selector "dualStringKeyTopTextOffset:keyplane:") ~typ:(id @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x keyplane -let globalEmojiKeyImageName self = msg_send ~self ~cmd:(selector "globalEmojiKeyImageName") ~typ:(returning (id)) -let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning (id)) -let iPadFudgeControlKeyOffset self = msg_send_stret ~self ~cmd:(selector "iPadFudgeControlKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let iPadFudgeLayout self = msg_send ~self ~cmd:(selector "iPadFudgeLayout") ~typ:(returning (bool)) -let internationalKeyOffset self = msg_send_stret ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning (id)) -let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning (id)) -let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning (double)) -let moreKeyOffset self = msg_send_stret ~self ~cmd:(selector "moreKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let returnKeyImageName self = msg_send ~self ~cmd:(selector "returnKeyImageName") ~typ:(returning (id)) -let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning (id)) -let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning (id)) -let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning (id)) -let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning (double)) -let stringKeyFontSize x self = msg_send ~self ~cmd:(selector "stringKeyFontSize:") ~typ:(ullong @-> returning (double)) (ULLong.of_int x) -let stringKeyOffset x self = msg_send_stret ~self ~cmd:(selector "stringKeyOffset:") ~typ:(ullong @-> returning (CGPoint.t)) ~return_type:CGPoint.t (ULLong.of_int x) -let supportsInputTraits x ~forKeyplane self = msg_send ~self ~cmd:(selector "supportsInputTraits:forKeyplane:") ~typ:(id @-> id @-> returning (bool)) x forKeyplane -let symbolImageControlKeyFontSize self = msg_send ~self ~cmd:(selector "symbolImageControlKeyFontSize") ~typ:(returning (double)) -let symbolImageControlKeyOffset self = msg_send_stret ~self ~cmd:(selector "symbolImageControlKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let tabKeyImageName self = msg_send ~self ~cmd:(selector "tabKeyImageName") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPadFudge" + +let capslockKeyImageName self = msg_send ~self ~cmd:(selector "capslockKeyImageName") ~typ:(returning id) +let controlKeyFontSize self = msg_send ~self ~cmd:(selector "controlKeyFontSize") ~typ:(returning double) +let defaultVariantGeometrySize self = msg_send ~self ~cmd:(selector "defaultVariantGeometrySize") ~typ:(returning CGSize.t) +let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning double) +let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning id) +let deleteKeyOffset x self = msg_send ~self ~cmd:(selector "deleteKeyOffset:") ~typ:(ullong @-> returning CGPoint.t) (ULLong.of_int x) +let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning id) +let dictationKeyImageName self = msg_send ~self ~cmd:(selector "dictationKeyImageName") ~typ:(returning id) +let dictationKeyOffset self = msg_send ~self ~cmd:(selector "dictationKeyOffset") ~typ:(returning CGPoint.t) +let dismissKeyImageName self = msg_send ~self ~cmd:(selector "dismissKeyImageName") ~typ:(returning id) +let dismissKeyOffset self = msg_send ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning CGPoint.t) +let displayContentsForKey x self = msg_send ~self ~cmd:(selector "displayContentsForKey:") ~typ:(id @-> returning id) x +let dualStringKeyBottomFontSize x self = msg_send ~self ~cmd:(selector "dualStringKeyBottomFontSize:") ~typ:(ullong @-> returning double) (ULLong.of_int x) +let dualStringKeyBottomTextOffset x self = msg_send ~self ~cmd:(selector "dualStringKeyBottomTextOffset:") ~typ:(ullong @-> returning CGPoint.t) (ULLong.of_int x) +let dualStringKeyBottomTextOffset' x ~keyplane self = msg_send ~self ~cmd:(selector "dualStringKeyBottomTextOffset:keyplane:") ~typ:(id @-> id @-> returning CGPoint.t) x keyplane +let dualStringKeyTopFontSize x self = msg_send ~self ~cmd:(selector "dualStringKeyTopFontSize:") ~typ:(ullong @-> returning double) (ULLong.of_int x) +let dualStringKeyTopTextOffset x self = msg_send ~self ~cmd:(selector "dualStringKeyTopTextOffset:") ~typ:(ullong @-> returning CGPoint.t) (ULLong.of_int x) +let dualStringKeyTopTextOffset' x ~keyplane self = msg_send ~self ~cmd:(selector "dualStringKeyTopTextOffset:keyplane:") ~typ:(id @-> id @-> returning CGPoint.t) x keyplane +let globalEmojiKeyImageName self = msg_send ~self ~cmd:(selector "globalEmojiKeyImageName") ~typ:(returning id) +let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning id) +let iPadFudgeControlKeyOffset self = msg_send ~self ~cmd:(selector "iPadFudgeControlKeyOffset") ~typ:(returning CGPoint.t) +let iPadFudgeLayout self = msg_send ~self ~cmd:(selector "iPadFudgeLayout") ~typ:(returning bool) +let internationalKeyOffset self = msg_send ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning CGPoint.t) +let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning id) +let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning id) +let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning double) +let moreKeyOffset self = msg_send ~self ~cmd:(selector "moreKeyOffset") ~typ:(returning CGPoint.t) +let returnKeyImageName self = msg_send ~self ~cmd:(selector "returnKeyImageName") ~typ:(returning id) +let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning id) +let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning id) +let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning id) +let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning double) +let stringKeyFontSize x self = msg_send ~self ~cmd:(selector "stringKeyFontSize:") ~typ:(ullong @-> returning double) (ULLong.of_int x) +let stringKeyOffset x self = msg_send ~self ~cmd:(selector "stringKeyOffset:") ~typ:(ullong @-> returning CGPoint.t) (ULLong.of_int x) +let supportsInputTraits x ~forKeyplane self = msg_send ~self ~cmd:(selector "supportsInputTraits:forKeyplane:") ~typ:(id @-> id @-> returning bool) x forKeyplane +let symbolImageControlKeyFontSize self = msg_send ~self ~cmd:(selector "symbolImageControlKeyFontSize") ~typ:(returning double) +let symbolImageControlKeyOffset self = msg_send ~self ~cmd:(selector "symbolImageControlKeyOffset") ~typ:(returning CGPoint.t) +let tabKeyImageName self = msg_send ~self ~cmd:(selector "tabKeyImageName") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPadFudgeLandscape.ml b/uikit_extra/UIKBRenderFactoryiPadFudgeLandscape.ml index 67844f8b..f08e6236 100644 --- a/uikit_extra/UIKBRenderFactoryiPadFudgeLandscape.ml +++ b/uikit_extra/UIKBRenderFactoryiPadFudgeLandscape.ml @@ -5,35 +5,39 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPadFudgeLandscape" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryipadfudgelandscape?language=objc}UIKBRenderFactoryiPadFudgeLandscape} *) -let controlKeyFontSize self = msg_send ~self ~cmd:(selector "controlKeyFontSize") ~typ:(returning (double)) -let defaultVariantGeometrySize self = msg_send_stret ~self ~cmd:(selector "defaultVariantGeometrySize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning (double)) -let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning (id)) -let deleteKeyOffset x self = msg_send_stret ~self ~cmd:(selector "deleteKeyOffset:") ~typ:(ullong @-> returning (CGPoint.t)) ~return_type:CGPoint.t (ULLong.of_int x) -let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning (id)) -let dictationKeyImageName self = msg_send ~self ~cmd:(selector "dictationKeyImageName") ~typ:(returning (id)) -let dictationKeyOffset self = msg_send_stret ~self ~cmd:(selector "dictationKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dismissKeyImageName self = msg_send ~self ~cmd:(selector "dismissKeyImageName") ~typ:(returning (id)) -let dismissKeyOffset self = msg_send_stret ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dualStringKeyBottomFontSize x self = msg_send ~self ~cmd:(selector "dualStringKeyBottomFontSize:") ~typ:(ullong @-> returning (double)) (ULLong.of_int x) -let dualStringKeyBottomTextOffset x self = msg_send_stret ~self ~cmd:(selector "dualStringKeyBottomTextOffset:") ~typ:(ullong @-> returning (CGPoint.t)) ~return_type:CGPoint.t (ULLong.of_int x) -let dualStringKeyTopFontSize x self = msg_send ~self ~cmd:(selector "dualStringKeyTopFontSize:") ~typ:(ullong @-> returning (double)) (ULLong.of_int x) -let dualStringKeyTopTextOffset x self = msg_send_stret ~self ~cmd:(selector "dualStringKeyTopTextOffset:") ~typ:(ullong @-> returning (CGPoint.t)) ~return_type:CGPoint.t (ULLong.of_int x) -let globalEmojiKeyImageName self = msg_send ~self ~cmd:(selector "globalEmojiKeyImageName") ~typ:(returning (id)) -let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning (id)) -let iPadFudgeControlKeyOffset self = msg_send_stret ~self ~cmd:(selector "iPadFudgeControlKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let internationalKeyOffset self = msg_send_stret ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning (double)) -let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning (id)) -let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning (double)) -let moreKeyOffset self = msg_send_stret ~self ~cmd:(selector "moreKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning (id)) -let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning (id)) -let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning (id)) -let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning (double)) -let stringKeyFontSize x self = msg_send ~self ~cmd:(selector "stringKeyFontSize:") ~typ:(ullong @-> returning (double)) (ULLong.of_int x) -let symbolImageControlKeyFontSize self = msg_send ~self ~cmd:(selector "symbolImageControlKeyFontSize") ~typ:(returning (double)) -let symbolImageControlKeyOffset self = msg_send_stret ~self ~cmd:(selector "symbolImageControlKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPadFudgeLandscape" + +let controlKeyFontSize self = msg_send ~self ~cmd:(selector "controlKeyFontSize") ~typ:(returning double) +let defaultVariantGeometrySize self = msg_send ~self ~cmd:(selector "defaultVariantGeometrySize") ~typ:(returning CGSize.t) +let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning double) +let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning id) +let deleteKeyOffset x self = msg_send ~self ~cmd:(selector "deleteKeyOffset:") ~typ:(ullong @-> returning CGPoint.t) (ULLong.of_int x) +let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning id) +let dictationKeyImageName self = msg_send ~self ~cmd:(selector "dictationKeyImageName") ~typ:(returning id) +let dictationKeyOffset self = msg_send ~self ~cmd:(selector "dictationKeyOffset") ~typ:(returning CGPoint.t) +let dismissKeyImageName self = msg_send ~self ~cmd:(selector "dismissKeyImageName") ~typ:(returning id) +let dismissKeyOffset self = msg_send ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning CGPoint.t) +let dualStringKeyBottomFontSize x self = msg_send ~self ~cmd:(selector "dualStringKeyBottomFontSize:") ~typ:(ullong @-> returning double) (ULLong.of_int x) +let dualStringKeyBottomTextOffset x self = msg_send ~self ~cmd:(selector "dualStringKeyBottomTextOffset:") ~typ:(ullong @-> returning CGPoint.t) (ULLong.of_int x) +let dualStringKeyTopFontSize x self = msg_send ~self ~cmd:(selector "dualStringKeyTopFontSize:") ~typ:(ullong @-> returning double) (ULLong.of_int x) +let dualStringKeyTopTextOffset x self = msg_send ~self ~cmd:(selector "dualStringKeyTopTextOffset:") ~typ:(ullong @-> returning CGPoint.t) (ULLong.of_int x) +let globalEmojiKeyImageName self = msg_send ~self ~cmd:(selector "globalEmojiKeyImageName") ~typ:(returning id) +let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning id) +let iPadFudgeControlKeyOffset self = msg_send ~self ~cmd:(selector "iPadFudgeControlKeyOffset") ~typ:(returning CGPoint.t) +let internationalKeyOffset self = msg_send ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning CGPoint.t) +let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning double) +let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning id) +let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning double) +let moreKeyOffset self = msg_send ~self ~cmd:(selector "moreKeyOffset") ~typ:(returning CGPoint.t) +let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning id) +let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning id) +let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning id) +let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning double) +let stringKeyFontSize x self = msg_send ~self ~cmd:(selector "stringKeyFontSize:") ~typ:(ullong @-> returning double) (ULLong.of_int x) +let symbolImageControlKeyFontSize self = msg_send ~self ~cmd:(selector "symbolImageControlKeyFontSize") ~typ:(returning double) +let symbolImageControlKeyOffset self = msg_send ~self ~cmd:(selector "symbolImageControlKeyOffset") ~typ:(returning CGPoint.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPadFudgeLandscapePasscode.ml b/uikit_extra/UIKBRenderFactoryiPadFudgeLandscapePasscode.ml index 10271c7c..97dceef8 100644 --- a/uikit_extra/UIKBRenderFactoryiPadFudgeLandscapePasscode.ml +++ b/uikit_extra/UIKBRenderFactoryiPadFudgeLandscapePasscode.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPadFudgeLandscapePasscode" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryipadfudgelandscapepasscode?language=objc}UIKBRenderFactoryiPadFudgeLandscapePasscode} *) -let activeControlKeyTraits self = msg_send ~self ~cmd:(selector "activeControlKeyTraits") ~typ:(returning (id)) -let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning (id)) x -let controlKeyTraits self = msg_send ~self ~cmd:(selector "controlKeyTraits") ~typ:(returning (id)) -let defaultKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "defaultKeyBackgroundColorName") ~typ:(returning (id)) -let hashStringElement self = msg_send ~self ~cmd:(selector "hashStringElement") ~typ:(returning (id)) -let passcodeEdgeWeight self = msg_send ~self ~cmd:(selector "passcodeEdgeWeight") ~typ:(returning (double)) -let shiftLockControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftLockControlKeyTraits") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPadFudgeLandscapePasscode" + +let activeControlKeyTraits self = msg_send ~self ~cmd:(selector "activeControlKeyTraits") ~typ:(returning id) +let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning id) x +let controlKeyTraits self = msg_send ~self ~cmd:(selector "controlKeyTraits") ~typ:(returning id) +let defaultKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "defaultKeyBackgroundColorName") ~typ:(returning id) +let hashStringElement self = msg_send ~self ~cmd:(selector "hashStringElement") ~typ:(returning id) +let passcodeEdgeWeight self = msg_send ~self ~cmd:(selector "passcodeEdgeWeight") ~typ:(returning double) +let shiftLockControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftLockControlKeyTraits") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPadFudgePasscode.ml b/uikit_extra/UIKBRenderFactoryiPadFudgePasscode.ml index 9e7259cc..5cf39a53 100644 --- a/uikit_extra/UIKBRenderFactoryiPadFudgePasscode.ml +++ b/uikit_extra/UIKBRenderFactoryiPadFudgePasscode.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPadFudgePasscode" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryipadfudgepasscode?language=objc}UIKBRenderFactoryiPadFudgePasscode} *) -let activeControlKeyTraits self = msg_send ~self ~cmd:(selector "activeControlKeyTraits") ~typ:(returning (id)) -let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning (id)) x -let controlKeyTraits self = msg_send ~self ~cmd:(selector "controlKeyTraits") ~typ:(returning (id)) -let defaultKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "defaultKeyBackgroundColorName") ~typ:(returning (id)) -let hashStringElement self = msg_send ~self ~cmd:(selector "hashStringElement") ~typ:(returning (id)) -let passcodeEdgeWeight self = msg_send ~self ~cmd:(selector "passcodeEdgeWeight") ~typ:(returning (double)) -let shiftLockControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftLockControlKeyTraits") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPadFudgePasscode" + +let activeControlKeyTraits self = msg_send ~self ~cmd:(selector "activeControlKeyTraits") ~typ:(returning id) +let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning id) x +let controlKeyTraits self = msg_send ~self ~cmd:(selector "controlKeyTraits") ~typ:(returning id) +let defaultKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "defaultKeyBackgroundColorName") ~typ:(returning id) +let hashStringElement self = msg_send ~self ~cmd:(selector "hashStringElement") ~typ:(returning id) +let passcodeEdgeWeight self = msg_send ~self ~cmd:(selector "passcodeEdgeWeight") ~typ:(returning double) +let shiftLockControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftLockControlKeyTraits") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPadHWR_Landscape.ml b/uikit_extra/UIKBRenderFactoryiPadHWR_Landscape.ml index 3ccb2047..ac8c9a6c 100644 --- a/uikit_extra/UIKBRenderFactoryiPadHWR_Landscape.ml +++ b/uikit_extra/UIKBRenderFactoryiPadHWR_Landscape.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPadHWR_Landscape" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryipadhwr_landscape?language=objc}UIKBRenderFactoryiPadHWR_Landscape} *) -let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning (double)) -let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning (double)) -let dictationKeyFontSize self = msg_send ~self ~cmd:(selector "dictationKeyFontSize") ~typ:(returning (double)) -let dismissKeyFontSize self = msg_send ~self ~cmd:(selector "dismissKeyFontSize") ~typ:(returning (double)) -let dismissKeyOffset self = msg_send_stret ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let internationalKeyFontSize self = msg_send ~self ~cmd:(selector "internationalKeyFontSize") ~typ:(returning (double)) -let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning (double)) -let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning (id)) -let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning (double)) -let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning (double)) -let spaceReturnKeyTextOffset self = msg_send_stret ~self ~cmd:(selector "spaceReturnKeyTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPadHWR_Landscape" + +let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning double) +let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning double) +let dictationKeyFontSize self = msg_send ~self ~cmd:(selector "dictationKeyFontSize") ~typ:(returning double) +let dismissKeyFontSize self = msg_send ~self ~cmd:(selector "dismissKeyFontSize") ~typ:(returning double) +let dismissKeyOffset self = msg_send ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning CGPoint.t) +let internationalKeyFontSize self = msg_send ~self ~cmd:(selector "internationalKeyFontSize") ~typ:(returning double) +let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning double) +let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning id) +let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning double) +let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning double) +let spaceReturnKeyTextOffset self = msg_send ~self ~cmd:(selector "spaceReturnKeyTextOffset") ~typ:(returning CGPoint.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPadHWR_Portrait.ml b/uikit_extra/UIKBRenderFactoryiPadHWR_Portrait.ml index 89c3f47e..5eadcb42 100644 --- a/uikit_extra/UIKBRenderFactoryiPadHWR_Portrait.ml +++ b/uikit_extra/UIKBRenderFactoryiPadHWR_Portrait.ml @@ -5,22 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPadHWR_Portrait" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryipadhwr_portrait?language=objc}UIKBRenderFactoryiPadHWR_Portrait} *) -let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning (llong)) -let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning (double)) -let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning (double)) -let dictationKeyFontSize self = msg_send ~self ~cmd:(selector "dictationKeyFontSize") ~typ:(returning (double)) -let dismissKeyFontSize self = msg_send ~self ~cmd:(selector "dismissKeyFontSize") ~typ:(returning (double)) -let dismissKeyOffset self = msg_send_stret ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let internationalKeyFontSize self = msg_send ~self ~cmd:(selector "internationalKeyFontSize") ~typ:(returning (double)) -let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning (double)) -let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning (id)) -let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning (id)) -let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning (double)) -let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning (void)) -let shouldUseRoundCornerForKey x self = msg_send ~self ~cmd:(selector "shouldUseRoundCornerForKey:") ~typ:(id @-> returning (bool)) x -let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning (double)) -let spaceReturnKeyTextOffset self = msg_send_stret ~self ~cmd:(selector "spaceReturnKeyTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let thinKeycapsFontName self = msg_send ~self ~cmd:(selector "thinKeycapsFontName") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPadHWR_Portrait" + +let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning llong) +let controlColumnWidthFactor self = msg_send ~self ~cmd:(selector "controlColumnWidthFactor") ~typ:(returning double) +let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning double) +let dictationKeyFontSize self = msg_send ~self ~cmd:(selector "dictationKeyFontSize") ~typ:(returning double) +let dismissKeyFontSize self = msg_send ~self ~cmd:(selector "dismissKeyFontSize") ~typ:(returning double) +let dismissKeyOffset self = msg_send ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning CGPoint.t) +let internationalKeyFontSize self = msg_send ~self ~cmd:(selector "internationalKeyFontSize") ~typ:(returning double) +let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning double) +let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning id) +let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning id) +let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning double) +let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning void) +let shouldUseRoundCornerForKey x self = msg_send ~self ~cmd:(selector "shouldUseRoundCornerForKey:") ~typ:(id @-> returning bool) x +let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning double) +let spaceReturnKeyTextOffset self = msg_send ~self ~cmd:(selector "spaceReturnKeyTextOffset") ~typ:(returning CGPoint.t) +let symbolFrameInsets self = msg_send ~self ~cmd:(selector "symbolFrameInsets") ~typ:(returning UIEdgeInsets.t) +let thinKeycapsFontName self = msg_send ~self ~cmd:(selector "thinKeycapsFontName") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPadLandscape.ml b/uikit_extra/UIKBRenderFactoryiPadLandscape.ml index a6a7f5c3..6135cc3d 100644 --- a/uikit_extra/UIKBRenderFactoryiPadLandscape.ml +++ b/uikit_extra/UIKBRenderFactoryiPadLandscape.ml @@ -5,53 +5,57 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPadLandscape" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryipadlandscape?language=objc}UIKBRenderFactoryiPadLandscape} *) -let _ZWNJKeyImageName self = msg_send ~self ~cmd:(selector "ZWNJKeyImageName") ~typ:(returning (id)) -let bottomRowDefaultFontSize self = msg_send ~self ~cmd:(selector "bottomRowDefaultFontSize") ~typ:(returning (double)) -let capslockKeyImageName self = msg_send ~self ~cmd:(selector "capslockKeyImageName") ~typ:(returning (id)) -let defaultVariantSizeThreshold self = msg_send ~self ~cmd:(selector "defaultVariantSizeThreshold") ~typ:(returning (double)) -let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning (double)) -let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning (id)) -let deleteKeyOffset self = msg_send_stret ~self ~cmd:(selector "deleteKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning (id)) -let dictationKeyFontSize self = msg_send ~self ~cmd:(selector "dictationKeyFontSize") ~typ:(returning (double)) -let dictationKeyImageName self = msg_send ~self ~cmd:(selector "dictationKeyImageName") ~typ:(returning (id)) -let dismissKeyFontSize self = msg_send ~self ~cmd:(selector "dismissKeyFontSize") ~typ:(returning (double)) -let dismissKeyImageName self = msg_send ~self ~cmd:(selector "dismissKeyImageName") ~typ:(returning (id)) -let dismissKeyOffset self = msg_send_stret ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dismissKeySymbolFrame self = msg_send_stret ~self ~cmd:(selector "dismissKeySymbolFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let dualStringKeyFontSizeAdjustment self = msg_send ~self ~cmd:(selector "dualStringKeyFontSizeAdjustment") ~typ:(returning (double)) -let dualStringKeyOffset self = msg_send_stret ~self ~cmd:(selector "dualStringKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let emailDotKeyFontSize self = msg_send ~self ~cmd:(selector "emailDotKeyFontSize") ~typ:(returning (double)) -let facemarkKeyFontSize self = msg_send ~self ~cmd:(selector "facemarkKeyFontSize") ~typ:(returning (double)) -let fallbackFontSize self = msg_send ~self ~cmd:(selector "fallbackFontSize") ~typ:(returning (double)) -let fontSizeAdjustmentForNonAlphanumericKeycaps self = msg_send ~self ~cmd:(selector "fontSizeAdjustmentForNonAlphanumericKeycaps") ~typ:(returning (double)) -let globalEmojiKeyImageName self = msg_send ~self ~cmd:(selector "globalEmojiKeyImageName") ~typ:(returning (id)) -let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning (id)) -let handwritingMoreKeyImageName self = msg_send ~self ~cmd:(selector "handwritingMoreKeyImageName") ~typ:(returning (id)) -let internationalKeyFontSize self = msg_send ~self ~cmd:(selector "internationalKeyFontSize") ~typ:(returning (double)) -let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning (double)) -let messagesTypeKeyplanSwitchKeyFontSize self = msg_send ~self ~cmd:(selector "messagesTypeKeyplanSwitchKeyFontSize") ~typ:(returning (double)) -let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning (id)) -let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning (double)) -let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning (id)) -let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning (id)) -let returnKeyImageName self = msg_send ~self ~cmd:(selector "returnKeyImageName") ~typ:(returning (id)) -let shiftKeyFontSize self = msg_send ~self ~cmd:(selector "shiftKeyFontSize") ~typ:(returning (double)) -let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning (id)) -let shiftKeyOffset self = msg_send_stret ~self ~cmd:(selector "shiftKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let shiftKeySymbolFrame self = msg_send_stret ~self ~cmd:(selector "shiftKeySymbolFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning (id)) -let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning (id)) -let skinnyKeyThreshold self = msg_send ~self ~cmd:(selector "skinnyKeyThreshold") ~typ:(returning (double)) -let smallKanaKeyFontSize self = msg_send ~self ~cmd:(selector "smallKanaKeyFontSize") ~typ:(returning (double)) -let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning (double)) -let stringKeyFontSize self = msg_send ~self ~cmd:(selector "stringKeyFontSize") ~typ:(returning (double)) -let symbolImageControlKeyFontSize self = msg_send ~self ~cmd:(selector "symbolImageControlKeyFontSize") ~typ:(returning (double)) -let symbolImageControlKeyOffset self = msg_send_stret ~self ~cmd:(selector "symbolImageControlKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let tabKeyImageName self = msg_send ~self ~cmd:(selector "tabKeyImageName") ~typ:(returning (id)) -let tinyPunctuationGlyphFontSize self = msg_send ~self ~cmd:(selector "tinyPunctuationGlyphFontSize") ~typ:(returning (double)) -let tinyPunctuationGlyphOffset self = msg_send_stret ~self ~cmd:(selector "tinyPunctuationGlyphOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let zhuyinFirstToneKeyFontSize self = msg_send ~self ~cmd:(selector "zhuyinFirstToneKeyFontSize") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPadLandscape" + +let _ZWNJKeyImageName self = msg_send ~self ~cmd:(selector "ZWNJKeyImageName") ~typ:(returning id) +let bottomRowDefaultFontSize self = msg_send ~self ~cmd:(selector "bottomRowDefaultFontSize") ~typ:(returning double) +let capslockKeyImageName self = msg_send ~self ~cmd:(selector "capslockKeyImageName") ~typ:(returning id) +let defaultVariantSizeThreshold self = msg_send ~self ~cmd:(selector "defaultVariantSizeThreshold") ~typ:(returning double) +let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning double) +let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning id) +let deleteKeyOffset self = msg_send ~self ~cmd:(selector "deleteKeyOffset") ~typ:(returning CGPoint.t) +let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning id) +let dictationKeyFontSize self = msg_send ~self ~cmd:(selector "dictationKeyFontSize") ~typ:(returning double) +let dictationKeyImageName self = msg_send ~self ~cmd:(selector "dictationKeyImageName") ~typ:(returning id) +let dismissKeyFontSize self = msg_send ~self ~cmd:(selector "dismissKeyFontSize") ~typ:(returning double) +let dismissKeyImageName self = msg_send ~self ~cmd:(selector "dismissKeyImageName") ~typ:(returning id) +let dismissKeyOffset self = msg_send ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning CGPoint.t) +let dismissKeySymbolFrame self = msg_send ~self ~cmd:(selector "dismissKeySymbolFrame") ~typ:(returning CGRect.t) +let dualStringKeyFontSizeAdjustment self = msg_send ~self ~cmd:(selector "dualStringKeyFontSizeAdjustment") ~typ:(returning double) +let dualStringKeyOffset self = msg_send ~self ~cmd:(selector "dualStringKeyOffset") ~typ:(returning CGPoint.t) +let emailDotKeyFontSize self = msg_send ~self ~cmd:(selector "emailDotKeyFontSize") ~typ:(returning double) +let facemarkKeyFontSize self = msg_send ~self ~cmd:(selector "facemarkKeyFontSize") ~typ:(returning double) +let fallbackFontSize self = msg_send ~self ~cmd:(selector "fallbackFontSize") ~typ:(returning double) +let fontSizeAdjustmentForNonAlphanumericKeycaps self = msg_send ~self ~cmd:(selector "fontSizeAdjustmentForNonAlphanumericKeycaps") ~typ:(returning double) +let globalEmojiKeyImageName self = msg_send ~self ~cmd:(selector "globalEmojiKeyImageName") ~typ:(returning id) +let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning id) +let handwritingMoreKeyImageName self = msg_send ~self ~cmd:(selector "handwritingMoreKeyImageName") ~typ:(returning id) +let internationalKeyFontSize self = msg_send ~self ~cmd:(selector "internationalKeyFontSize") ~typ:(returning double) +let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning double) +let messagesTypeKeyplanSwitchKeyFontSize self = msg_send ~self ~cmd:(selector "messagesTypeKeyplanSwitchKeyFontSize") ~typ:(returning double) +let messagesWriteboardKeyImageName self = msg_send ~self ~cmd:(selector "messagesWriteboardKeyImageName") ~typ:(returning id) +let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning double) +let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning id) +let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning id) +let returnKeyImageName self = msg_send ~self ~cmd:(selector "returnKeyImageName") ~typ:(returning id) +let shiftKeyFontSize self = msg_send ~self ~cmd:(selector "shiftKeyFontSize") ~typ:(returning double) +let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning id) +let shiftKeyOffset self = msg_send ~self ~cmd:(selector "shiftKeyOffset") ~typ:(returning CGPoint.t) +let shiftKeySymbolFrame self = msg_send ~self ~cmd:(selector "shiftKeySymbolFrame") ~typ:(returning CGRect.t) +let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning id) +let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning id) +let skinnyKeyThreshold self = msg_send ~self ~cmd:(selector "skinnyKeyThreshold") ~typ:(returning double) +let smallKanaKeyFontSize self = msg_send ~self ~cmd:(selector "smallKanaKeyFontSize") ~typ:(returning double) +let spaceKeyFontSize self = msg_send ~self ~cmd:(selector "spaceKeyFontSize") ~typ:(returning double) +let stringKeyFontSize self = msg_send ~self ~cmd:(selector "stringKeyFontSize") ~typ:(returning double) +let symbolImageControlKeyFontSize self = msg_send ~self ~cmd:(selector "symbolImageControlKeyFontSize") ~typ:(returning double) +let symbolImageControlKeyOffset self = msg_send ~self ~cmd:(selector "symbolImageControlKeyOffset") ~typ:(returning CGPoint.t) +let tabKeyImageName self = msg_send ~self ~cmd:(selector "tabKeyImageName") ~typ:(returning id) +let tinyPunctuationGlyphFontSize self = msg_send ~self ~cmd:(selector "tinyPunctuationGlyphFontSize") ~typ:(returning double) +let tinyPunctuationGlyphOffset self = msg_send ~self ~cmd:(selector "tinyPunctuationGlyphOffset") ~typ:(returning CGPoint.t) +let zhuyinFirstToneKeyFontSize self = msg_send ~self ~cmd:(selector "zhuyinFirstToneKeyFontSize") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPadLandscapePasscode.ml b/uikit_extra/UIKBRenderFactoryiPadLandscapePasscode.ml index b19654f1..64a74713 100644 --- a/uikit_extra/UIKBRenderFactoryiPadLandscapePasscode.ml +++ b/uikit_extra/UIKBRenderFactoryiPadLandscapePasscode.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPadLandscapePasscode" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryipadlandscapepasscode?language=objc}UIKBRenderFactoryiPadLandscapePasscode} *) -let activeControlKeyTraits self = msg_send ~self ~cmd:(selector "activeControlKeyTraits") ~typ:(returning (id)) -let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning (id)) x -let controlKeyTraits self = msg_send ~self ~cmd:(selector "controlKeyTraits") ~typ:(returning (id)) -let defaultKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "defaultKeyBackgroundColorName") ~typ:(returning (id)) -let hashStringElement self = msg_send ~self ~cmd:(selector "hashStringElement") ~typ:(returning (id)) -let passcodeEdgeWeight self = msg_send ~self ~cmd:(selector "passcodeEdgeWeight") ~typ:(returning (double)) -let shiftLockControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftLockControlKeyTraits") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPadLandscapePasscode" + +let activeControlKeyTraits self = msg_send ~self ~cmd:(selector "activeControlKeyTraits") ~typ:(returning id) +let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning id) x +let controlKeyTraits self = msg_send ~self ~cmd:(selector "controlKeyTraits") ~typ:(returning id) +let defaultKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "defaultKeyBackgroundColorName") ~typ:(returning id) +let hashStringElement self = msg_send ~self ~cmd:(selector "hashStringElement") ~typ:(returning id) +let passcodeEdgeWeight self = msg_send ~self ~cmd:(selector "passcodeEdgeWeight") ~typ:(returning double) +let shiftLockControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftLockControlKeyTraits") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPadPasscode.ml b/uikit_extra/UIKBRenderFactoryiPadPasscode.ml index dc4d5959..6ed68e51 100644 --- a/uikit_extra/UIKBRenderFactoryiPadPasscode.ml +++ b/uikit_extra/UIKBRenderFactoryiPadPasscode.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPadPasscode" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryipadpasscode?language=objc}UIKBRenderFactoryiPadPasscode} *) -let activeControlKeyTraits self = msg_send ~self ~cmd:(selector "activeControlKeyTraits") ~typ:(returning (id)) -let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning (id)) x -let controlKeyTraits self = msg_send ~self ~cmd:(selector "controlKeyTraits") ~typ:(returning (id)) -let defaultKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "defaultKeyBackgroundColorName") ~typ:(returning (id)) -let hashStringElement self = msg_send ~self ~cmd:(selector "hashStringElement") ~typ:(returning (id)) -let passcodeEdgeWeight self = msg_send ~self ~cmd:(selector "passcodeEdgeWeight") ~typ:(returning (double)) -let shiftLockControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftLockControlKeyTraits") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPadPasscode" + +let activeControlKeyTraits self = msg_send ~self ~cmd:(selector "activeControlKeyTraits") ~typ:(returning id) +let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning id) x +let controlKeyTraits self = msg_send ~self ~cmd:(selector "controlKeyTraits") ~typ:(returning id) +let defaultKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "defaultKeyBackgroundColorName") ~typ:(returning id) +let hashStringElement self = msg_send ~self ~cmd:(selector "hashStringElement") ~typ:(returning id) +let passcodeEdgeWeight self = msg_send ~self ~cmd:(selector "passcodeEdgeWeight") ~typ:(returning double) +let shiftLockControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftLockControlKeyTraits") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPadSansHomeButton.ml b/uikit_extra/UIKBRenderFactoryiPadSansHomeButton.ml index 3f198612..8d9db759 100644 --- a/uikit_extra/UIKBRenderFactoryiPadSansHomeButton.ml +++ b/uikit_extra/UIKBRenderFactoryiPadSansHomeButton.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPadSansHomeButton" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryipadsanshomebutton?language=objc}UIKBRenderFactoryiPadSansHomeButton} *) -let controlKeyFontSize self = msg_send ~self ~cmd:(selector "controlKeyFontSize") ~typ:(returning (double)) -let displayContentsForKey x self = msg_send ~self ~cmd:(selector "displayContentsForKey:") ~typ:(id @-> returning (id)) x -let dualStringKeyBottomFontSize self = msg_send ~self ~cmd:(selector "dualStringKeyBottomFontSize") ~typ:(returning (double)) -let dualStringKeyBottomTextOffset self = msg_send_stret ~self ~cmd:(selector "dualStringKeyBottomTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dualStringKeyTopFontSize self = msg_send ~self ~cmd:(selector "dualStringKeyTopFontSize") ~typ:(returning (double)) -let dualStringKeyTopTextOffset self = msg_send_stret ~self ~cmd:(selector "dualStringKeyTopTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let iPadFudgeControlKeyOffset self = msg_send_stret ~self ~cmd:(selector "iPadFudgeControlKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let iPadSansHomeButtonLayout self = msg_send ~self ~cmd:(selector "iPadSansHomeButtonLayout") ~typ:(returning (bool)) -let symbolImageControlKeyFontSize self = msg_send ~self ~cmd:(selector "symbolImageControlKeyFontSize") ~typ:(returning (double)) -let symbolImageControlKeyOffset self = msg_send_stret ~self ~cmd:(selector "symbolImageControlKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPadSansHomeButton" + +let controlKeyFontSize self = msg_send ~self ~cmd:(selector "controlKeyFontSize") ~typ:(returning double) +let displayContentsForKey x self = msg_send ~self ~cmd:(selector "displayContentsForKey:") ~typ:(id @-> returning id) x +let dualStringKeyBottomFontSize self = msg_send ~self ~cmd:(selector "dualStringKeyBottomFontSize") ~typ:(returning double) +let dualStringKeyBottomTextOffset self = msg_send ~self ~cmd:(selector "dualStringKeyBottomTextOffset") ~typ:(returning CGPoint.t) +let dualStringKeyTopFontSize self = msg_send ~self ~cmd:(selector "dualStringKeyTopFontSize") ~typ:(returning double) +let dualStringKeyTopTextOffset self = msg_send ~self ~cmd:(selector "dualStringKeyTopTextOffset") ~typ:(returning CGPoint.t) +let iPadFudgeControlKeyOffset self = msg_send ~self ~cmd:(selector "iPadFudgeControlKeyOffset") ~typ:(returning CGPoint.t) +let iPadSansHomeButtonLayout self = msg_send ~self ~cmd:(selector "iPadSansHomeButtonLayout") ~typ:(returning bool) +let symbolImageControlKeyFontSize self = msg_send ~self ~cmd:(selector "symbolImageControlKeyFontSize") ~typ:(returning double) +let symbolImageControlKeyOffset self = msg_send ~self ~cmd:(selector "symbolImageControlKeyOffset") ~typ:(returning CGPoint.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPadSansHomeButtonLandscape.ml b/uikit_extra/UIKBRenderFactoryiPadSansHomeButtonLandscape.ml index ac3ea196..91ac97ae 100644 --- a/uikit_extra/UIKBRenderFactoryiPadSansHomeButtonLandscape.ml +++ b/uikit_extra/UIKBRenderFactoryiPadSansHomeButtonLandscape.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPadSansHomeButtonLandscape" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryipadsanshomebuttonlandscape?language=objc}UIKBRenderFactoryiPadSansHomeButtonLandscape} *) -let bottomRowDefaultFontSize self = msg_send ~self ~cmd:(selector "bottomRowDefaultFontSize") ~typ:(returning (double)) -let controlKeyFontSize self = msg_send ~self ~cmd:(selector "controlKeyFontSize") ~typ:(returning (double)) -let dualStringKeyBottomFontSize self = msg_send ~self ~cmd:(selector "dualStringKeyBottomFontSize") ~typ:(returning (double)) -let dualStringKeyBottomTextOffset self = msg_send_stret ~self ~cmd:(selector "dualStringKeyBottomTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dualStringKeyTopFontSize self = msg_send ~self ~cmd:(selector "dualStringKeyTopFontSize") ~typ:(returning (double)) -let dualStringKeyTopTextOffset self = msg_send_stret ~self ~cmd:(selector "dualStringKeyTopTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let fallbackFontSize self = msg_send ~self ~cmd:(selector "fallbackFontSize") ~typ:(returning (double)) -let fontSizeAdjustmentForNonAlphanumericKeycaps self = msg_send ~self ~cmd:(selector "fontSizeAdjustmentForNonAlphanumericKeycaps") ~typ:(returning (double)) -let iPadFudgeControlKeyOffset self = msg_send_stret ~self ~cmd:(selector "iPadFudgeControlKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning (double)) -let messagesTypeKeyplanSwitchKeyFontSize self = msg_send ~self ~cmd:(selector "messagesTypeKeyplanSwitchKeyFontSize") ~typ:(returning (double)) -let stringKeyFontSize self = msg_send ~self ~cmd:(selector "stringKeyFontSize") ~typ:(returning (double)) -let symbolImageControlKeyFontSize self = msg_send ~self ~cmd:(selector "symbolImageControlKeyFontSize") ~typ:(returning (double)) -let symbolImageControlKeyOffset self = msg_send_stret ~self ~cmd:(selector "symbolImageControlKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPadSansHomeButtonLandscape" + +let bottomRowDefaultFontSize self = msg_send ~self ~cmd:(selector "bottomRowDefaultFontSize") ~typ:(returning double) +let controlKeyFontSize self = msg_send ~self ~cmd:(selector "controlKeyFontSize") ~typ:(returning double) +let dualStringKeyBottomFontSize self = msg_send ~self ~cmd:(selector "dualStringKeyBottomFontSize") ~typ:(returning double) +let dualStringKeyBottomTextOffset self = msg_send ~self ~cmd:(selector "dualStringKeyBottomTextOffset") ~typ:(returning CGPoint.t) +let dualStringKeyTopFontSize self = msg_send ~self ~cmd:(selector "dualStringKeyTopFontSize") ~typ:(returning double) +let dualStringKeyTopTextOffset self = msg_send ~self ~cmd:(selector "dualStringKeyTopTextOffset") ~typ:(returning CGPoint.t) +let fallbackFontSize self = msg_send ~self ~cmd:(selector "fallbackFontSize") ~typ:(returning double) +let fontSizeAdjustmentForNonAlphanumericKeycaps self = msg_send ~self ~cmd:(selector "fontSizeAdjustmentForNonAlphanumericKeycaps") ~typ:(returning double) +let iPadFudgeControlKeyOffset self = msg_send ~self ~cmd:(selector "iPadFudgeControlKeyOffset") ~typ:(returning CGPoint.t) +let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning double) +let messagesTypeKeyplanSwitchKeyFontSize self = msg_send ~self ~cmd:(selector "messagesTypeKeyplanSwitchKeyFontSize") ~typ:(returning double) +let stringKeyFontSize self = msg_send ~self ~cmd:(selector "stringKeyFontSize") ~typ:(returning double) +let symbolImageControlKeyFontSize self = msg_send ~self ~cmd:(selector "symbolImageControlKeyFontSize") ~typ:(returning double) +let symbolImageControlKeyOffset self = msg_send ~self ~cmd:(selector "symbolImageControlKeyOffset") ~typ:(returning CGPoint.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPadSplit.ml b/uikit_extra/UIKBRenderFactoryiPadSplit.ml index ff942c16..d7620bc8 100644 --- a/uikit_extra/UIKBRenderFactoryiPadSplit.ml +++ b/uikit_extra/UIKBRenderFactoryiPadSplit.ml @@ -5,31 +5,35 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPadSplit" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryipadsplit?language=objc}UIKBRenderFactoryiPadSplit} *) -let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning (id)) x -let defaultPathWeight self = msg_send ~self ~cmd:(selector "defaultPathWeight") ~typ:(returning (double)) -let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning (id)) -let deleteKeyOffset self = msg_send_stret ~self ~cmd:(selector "deleteKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning (id)) -let dictationKeyImageName self = msg_send ~self ~cmd:(selector "dictationKeyImageName") ~typ:(returning (id)) -let dismissKeyImageName self = msg_send ~self ~cmd:(selector "dismissKeyImageName") ~typ:(returning (id)) -let dismissKeyOffset self = msg_send_stret ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let globalEmojiKeyImageName self = msg_send ~self ~cmd:(selector "globalEmojiKeyImageName") ~typ:(returning (id)) -let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning (id)) -let internationalKeyOffset self = msg_send_stret ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning (double)) -let keyInsetBottom self = msg_send ~self ~cmd:(selector "keyInsetBottom") ~typ:(returning (double)) -let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning (id)) -let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning (id)) -let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning (id)) -let shiftKeyOffset self = msg_send_stret ~self ~cmd:(selector "shiftKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning (id)) -let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning (id)) -let skinnyKeyThreshold self = msg_send ~self ~cmd:(selector "skinnyKeyThreshold") ~typ:(returning (double)) -let supportsInputTraits x ~forKeyplane self = msg_send ~self ~cmd:(selector "supportsInputTraits:forKeyplane:") ~typ:(id @-> id @-> returning (bool)) x forKeyplane -let symbolFrameInset self = msg_send ~self ~cmd:(selector "symbolFrameInset") ~typ:(returning (double)) -let variantAnnotationTextFontSize self = msg_send ~self ~cmd:(selector "variantAnnotationTextFontSize") ~typ:(returning (double)) -let variantAnnotationTextOffset self = msg_send_stret ~self ~cmd:(selector "variantAnnotationTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantGeometriesForGeometry x ~variantCount ~rowLimit ~annotationIndex self = msg_send ~self ~cmd:(selector "variantGeometriesForGeometry:variantCount:rowLimit:annotationIndex:") ~typ:(id @-> ullong @-> llong @-> ullong @-> returning (id)) x (ULLong.of_int variantCount) (LLong.of_int rowLimit) (ULLong.of_int annotationIndex) \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPadSplit" + +let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning id) x +let defaultPathWeight self = msg_send ~self ~cmd:(selector "defaultPathWeight") ~typ:(returning double) +let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning id) +let deleteKeyOffset self = msg_send ~self ~cmd:(selector "deleteKeyOffset") ~typ:(returning CGPoint.t) +let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning id) +let dictationKeyImageName self = msg_send ~self ~cmd:(selector "dictationKeyImageName") ~typ:(returning id) +let dismissKeyImageName self = msg_send ~self ~cmd:(selector "dismissKeyImageName") ~typ:(returning id) +let dismissKeyOffset self = msg_send ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning CGPoint.t) +let globalEmojiKeyImageName self = msg_send ~self ~cmd:(selector "globalEmojiKeyImageName") ~typ:(returning id) +let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning id) +let internationalKeyOffset self = msg_send ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning CGPoint.t) +let keyCornerRadius self = msg_send ~self ~cmd:(selector "keyCornerRadius") ~typ:(returning double) +let keyInsetBottom self = msg_send ~self ~cmd:(selector "keyInsetBottom") ~typ:(returning double) +let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning id) +let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning id) +let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning id) +let shiftKeyOffset self = msg_send ~self ~cmd:(selector "shiftKeyOffset") ~typ:(returning CGPoint.t) +let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning id) +let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning id) +let skinnyKeyThreshold self = msg_send ~self ~cmd:(selector "skinnyKeyThreshold") ~typ:(returning double) +let supportsInputTraits x ~forKeyplane self = msg_send ~self ~cmd:(selector "supportsInputTraits:forKeyplane:") ~typ:(id @-> id @-> returning bool) x forKeyplane +let symbolFrameInset self = msg_send ~self ~cmd:(selector "symbolFrameInset") ~typ:(returning double) +let variantAnnotationTextFontSize self = msg_send ~self ~cmd:(selector "variantAnnotationTextFontSize") ~typ:(returning double) +let variantAnnotationTextOffset self = msg_send ~self ~cmd:(selector "variantAnnotationTextOffset") ~typ:(returning CGPoint.t) +let variantGeometriesForGeometry x ~variantCount ~rowLimit ~annotationIndex self = msg_send ~self ~cmd:(selector "variantGeometriesForGeometry:variantCount:rowLimit:annotationIndex:") ~typ:(id @-> ullong @-> llong @-> ullong @-> returning id) x (ULLong.of_int variantCount) (LLong.of_int rowLimit) (ULLong.of_int annotationIndex) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPhone.ml b/uikit_extra/UIKBRenderFactoryiPhone.ml index 91014374..bce9d4fb 100644 --- a/uikit_extra/UIKBRenderFactoryiPhone.ml +++ b/uikit_extra/UIKBRenderFactoryiPhone.ml @@ -5,70 +5,79 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPhone" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryiphone?language=objc}UIKBRenderFactoryiPhone} *) -let _ZWNJKeyOffset self = msg_send_stret ~self ~cmd:(selector "ZWNJKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let activeControlKeyTraits self = msg_send ~self ~cmd:(selector "activeControlKeyTraits") ~typ:(returning (id)) -let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning (llong)) -let assistKeyFontSize self = msg_send ~self ~cmd:(selector "assistKeyFontSize") ~typ:(returning (double)) -let boldKeyOffset self = msg_send_stret ~self ~cmd:(selector "boldKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let controlKeyTraits self = msg_send ~self ~cmd:(selector "controlKeyTraits") ~typ:(returning (id)) -let copyKeyOffset self = msg_send_stret ~self ~cmd:(selector "copyKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let cutKeyOffset self = msg_send_stret ~self ~cmd:(selector "cutKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning (double)) -let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning (id)) -let deleteKeyOffset self = msg_send_stret ~self ~cmd:(selector "deleteKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning (id)) -let dictationKeyImageName self = msg_send ~self ~cmd:(selector "dictationKeyImageName") ~typ:(returning (id)) -let dictationKeyOffset self = msg_send_stret ~self ~cmd:(selector "dictationKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dismissKeyOffset self = msg_send_stret ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dualStringBottomAdditionalOffsetForDisplayContents x self = msg_send ~self ~cmd:(selector "dualStringBottomAdditionalOffsetForDisplayContents:") ~typ:(id @-> returning (double)) x -let globalEmojiKeyImageName self = msg_send ~self ~cmd:(selector "globalEmojiKeyImageName") ~typ:(returning (id)) -let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning (id)) -let hintNoneKeyFontSize self = msg_send ~self ~cmd:(selector "hintNoneKeyFontSize") ~typ:(returning (double)) -let iPadFudgeLayout self = msg_send ~self ~cmd:(selector "iPadFudgeLayout") ~typ:(returning (bool)) -let iPadSansHomeButtonLayout self = msg_send ~self ~cmd:(selector "iPadSansHomeButtonLayout") ~typ:(returning (bool)) -let internationalKeyOffset self = msg_send_stret ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning (bool)) -let leftArrowKeyOffset self = msg_send_stret ~self ~cmd:(selector "leftArrowKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let lightHighQualityEnabledBlendForm self = msg_send ~self ~cmd:(selector "lightHighQualityEnabledBlendForm") ~typ:(returning (llong)) -let more123KeyOffset self = msg_send_stret ~self ~cmd:(selector "more123KeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let moreABCKeyFontSize self = msg_send ~self ~cmd:(selector "moreABCKeyFontSize") ~typ:(returning (double)) -let moreABCKeyOffset self = msg_send_stret ~self ~cmd:(selector "moreABCKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let moreABCKeyWideCellFontSize self = msg_send ~self ~cmd:(selector "moreABCKeyWideCellFontSize") ~typ:(returning (double)) -let moreABCKeyWideCellOffset self = msg_send_stret ~self ~cmd:(selector "moreABCKeyWideCellOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning (double)) -let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning (id)) -let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning (id)) -let pasteKeyOffset self = msg_send_stret ~self ~cmd:(selector "pasteKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let popupFontSize self = msg_send ~self ~cmd:(selector "popupFontSize") ~typ:(returning (double)) -let popupSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let realEmojiKeyOffset self = msg_send_stret ~self ~cmd:(selector "realEmojiKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let returnKeyFontSize self = msg_send ~self ~cmd:(selector "returnKeyFontSize") ~typ:(returning (double)) -let returnKeyOffset self = msg_send_stret ~self ~cmd:(selector "returnKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let rightArrowKeyOffset self = msg_send_stret ~self ~cmd:(selector "rightArrowKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let rowLimitForKey x self = msg_send ~self ~cmd:(selector "rowLimitForKey:") ~typ:(id @-> returning (llong)) x -let secondaryShiftKeyOffset self = msg_send_stret ~self ~cmd:(selector "secondaryShiftKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning (void)) -let shiftDeleteGlyphTraits self = msg_send ~self ~cmd:(selector "shiftDeleteGlyphTraits") ~typ:(returning (id)) -let shiftKeyFontSize self = msg_send ~self ~cmd:(selector "shiftKeyFontSize") ~typ:(returning (double)) -let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning (id)) -let shiftKeyOffset self = msg_send_stret ~self ~cmd:(selector "shiftKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let shiftLockControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftLockControlKeyTraits") ~typ:(returning (id)) -let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning (id)) -let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning (id)) -let shiftedControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftedControlKeyTraits") ~typ:(returning (id)) -let skinnyKeyThreshold self = msg_send ~self ~cmd:(selector "skinnyKeyThreshold") ~typ:(returning (double)) -let stringKeyFontSize self = msg_send ~self ~cmd:(selector "stringKeyFontSize") ~typ:(returning (double)) -let stringKeyOffset self = msg_send_stret ~self ~cmd:(selector "stringKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let symbolImageControlKeyFontSize self = msg_send ~self ~cmd:(selector "symbolImageControlKeyFontSize") ~typ:(returning (double)) -let symbolImageControlKeyOffset self = msg_send_stret ~self ~cmd:(selector "symbolImageControlKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let undoKeyOffset self = msg_send_stret ~self ~cmd:(selector "undoKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantAnnotationTextFontSize self = msg_send ~self ~cmd:(selector "variantAnnotationTextFontSize") ~typ:(returning (double)) -let variantAnnotationTextOffset self = msg_send_stret ~self ~cmd:(selector "variantAnnotationTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantGeometriesForGeometry x ~variantCount ~rowLimit ~annotationIndex self = msg_send ~self ~cmd:(selector "variantGeometriesForGeometry:variantCount:rowLimit:annotationIndex:") ~typ:(id @-> ullong @-> llong @-> ullong @-> returning (id)) x (ULLong.of_int variantCount) (LLong.of_int rowLimit) (ULLong.of_int annotationIndex) -let variantSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantWideShadowWeight self = msg_send ~self ~cmd:(selector "variantWideShadowWeight") ~typ:(returning (double)) -let zhuyinFirstToneKeyFontSize self = msg_send ~self ~cmd:(selector "zhuyinFirstToneKeyFontSize") ~typ:(returning (double)) -let zhuyinFirstToneKeyOffset self = msg_send_stret ~self ~cmd:(selector "zhuyinFirstToneKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPhone" + +let _ZWNJKeyOffset self = msg_send ~self ~cmd:(selector "ZWNJKeyOffset") ~typ:(returning CGPoint.t) +let activeControlKeyTraits self = msg_send ~self ~cmd:(selector "activeControlKeyTraits") ~typ:(returning id) +let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning llong) +let assistKeyFontSize self = msg_send ~self ~cmd:(selector "assistKeyFontSize") ~typ:(returning double) +let boldKeyOffset self = msg_send ~self ~cmd:(selector "boldKeyOffset") ~typ:(returning CGPoint.t) +let controlKeyTraits self = msg_send ~self ~cmd:(selector "controlKeyTraits") ~typ:(returning id) +let copyKeyOffset self = msg_send ~self ~cmd:(selector "copyKeyOffset") ~typ:(returning CGPoint.t) +let cutKeyOffset self = msg_send ~self ~cmd:(selector "cutKeyOffset") ~typ:(returning CGPoint.t) +let deleteKeyFontSize self = msg_send ~self ~cmd:(selector "deleteKeyFontSize") ~typ:(returning double) +let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning id) +let deleteKeyOffset self = msg_send ~self ~cmd:(selector "deleteKeyOffset") ~typ:(returning CGPoint.t) +let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning id) +let dictationKeyImageName self = msg_send ~self ~cmd:(selector "dictationKeyImageName") ~typ:(returning id) +let dictationKeyOffset self = msg_send ~self ~cmd:(selector "dictationKeyOffset") ~typ:(returning CGPoint.t) +let dismissKeyOffset self = msg_send ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning CGPoint.t) +let dualStringBottomAdditionalOffsetForDisplayContents x self = msg_send ~self ~cmd:(selector "dualStringBottomAdditionalOffsetForDisplayContents:") ~typ:(id @-> returning double) x +let globalEmojiKeyImageName self = msg_send ~self ~cmd:(selector "globalEmojiKeyImageName") ~typ:(returning id) +let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning id) +let hintNoneKeyFontSize self = msg_send ~self ~cmd:(selector "hintNoneKeyFontSize") ~typ:(returning double) +let iPadFudgeLayout self = msg_send ~self ~cmd:(selector "iPadFudgeLayout") ~typ:(returning bool) +let iPadSansHomeButtonLayout self = msg_send ~self ~cmd:(selector "iPadSansHomeButtonLayout") ~typ:(returning bool) +let internationalKeyOffset self = msg_send ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning CGPoint.t) +let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning bool) +let leftArrowKeyOffset self = msg_send ~self ~cmd:(selector "leftArrowKeyOffset") ~typ:(returning CGPoint.t) +let lightHighQualityEnabledBlendForm self = msg_send ~self ~cmd:(selector "lightHighQualityEnabledBlendForm") ~typ:(returning llong) +let more123KeyOffset self = msg_send ~self ~cmd:(selector "more123KeyOffset") ~typ:(returning CGPoint.t) +let moreABCKeyFontSize self = msg_send ~self ~cmd:(selector "moreABCKeyFontSize") ~typ:(returning double) +let moreABCKeyOffset self = msg_send ~self ~cmd:(selector "moreABCKeyOffset") ~typ:(returning CGPoint.t) +let moreABCKeyWideCellFontSize self = msg_send ~self ~cmd:(selector "moreABCKeyWideCellFontSize") ~typ:(returning double) +let moreABCKeyWideCellOffset self = msg_send ~self ~cmd:(selector "moreABCKeyWideCellOffset") ~typ:(returning CGPoint.t) +let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning double) +let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning id) +let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning id) +let pasteKeyOffset self = msg_send ~self ~cmd:(selector "pasteKeyOffset") ~typ:(returning CGPoint.t) +let popupFontSize self = msg_send ~self ~cmd:(selector "popupFontSize") ~typ:(returning double) +let popupSymbolTextOffset self = msg_send ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning CGPoint.t) +let realEmojiKeyOffset self = msg_send ~self ~cmd:(selector "realEmojiKeyOffset") ~typ:(returning CGPoint.t) +let returnKeyFontSize self = msg_send ~self ~cmd:(selector "returnKeyFontSize") ~typ:(returning double) +let returnKeyOffset self = msg_send ~self ~cmd:(selector "returnKeyOffset") ~typ:(returning CGPoint.t) +let rightArrowKeyOffset self = msg_send ~self ~cmd:(selector "rightArrowKeyOffset") ~typ:(returning CGPoint.t) +let rowLimitForKey x self = msg_send ~self ~cmd:(selector "rowLimitForKey:") ~typ:(id @-> returning llong) x +let secondaryShiftKeyOffset self = msg_send ~self ~cmd:(selector "secondaryShiftKeyOffset") ~typ:(returning CGPoint.t) +let setupLayoutSegments self = msg_send ~self ~cmd:(selector "setupLayoutSegments") ~typ:(returning void) +let shiftDeleteGlyphTraits self = msg_send ~self ~cmd:(selector "shiftDeleteGlyphTraits") ~typ:(returning id) +let shiftKeyFontSize self = msg_send ~self ~cmd:(selector "shiftKeyFontSize") ~typ:(returning double) +let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning id) +let shiftKeyOffset self = msg_send ~self ~cmd:(selector "shiftKeyOffset") ~typ:(returning CGPoint.t) +let shiftLockControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftLockControlKeyTraits") ~typ:(returning id) +let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning id) +let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning id) +let shiftedControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftedControlKeyTraits") ~typ:(returning id) +let skinnyKeyThreshold self = msg_send ~self ~cmd:(selector "skinnyKeyThreshold") ~typ:(returning double) +let stringKeyFontSize self = msg_send ~self ~cmd:(selector "stringKeyFontSize") ~typ:(returning double) +let stringKeyOffset self = msg_send ~self ~cmd:(selector "stringKeyOffset") ~typ:(returning CGPoint.t) +let symbolImageControlKeyFontSize self = msg_send ~self ~cmd:(selector "symbolImageControlKeyFontSize") ~typ:(returning double) +let symbolImageControlKeyOffset self = msg_send ~self ~cmd:(selector "symbolImageControlKeyOffset") ~typ:(returning CGPoint.t) +let undoKeyOffset self = msg_send ~self ~cmd:(selector "undoKeyOffset") ~typ:(returning CGPoint.t) +let variantAnnotationTextFontSize self = msg_send ~self ~cmd:(selector "variantAnnotationTextFontSize") ~typ:(returning double) +let variantAnnotationTextOffset self = msg_send ~self ~cmd:(selector "variantAnnotationTextOffset") ~typ:(returning CGPoint.t) +let variantDisplayFrameInsets self = msg_send ~self ~cmd:(selector "variantDisplayFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantGeometriesForGeometry x ~variantCount ~rowLimit ~annotationIndex self = msg_send ~self ~cmd:(selector "variantGeometriesForGeometry:variantCount:rowLimit:annotationIndex:") ~typ:(id @-> ullong @-> llong @-> ullong @-> returning id) x (ULLong.of_int variantCount) (LLong.of_int rowLimit) (ULLong.of_int annotationIndex) +let variantPaddedFrameInsets self = msg_send ~self ~cmd:(selector "variantPaddedFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantSymbolFrameInsets self = msg_send ~self ~cmd:(selector "variantSymbolFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantSymbolTextOffset self = msg_send ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning CGPoint.t) +let variantWideShadowWeight self = msg_send ~self ~cmd:(selector "variantWideShadowWeight") ~typ:(returning double) +let wideShadowPaddleInsets self = msg_send ~self ~cmd:(selector "wideShadowPaddleInsets") ~typ:(returning UIEdgeInsets.t) +let wideShadowPopupMenuInsets self = msg_send ~self ~cmd:(selector "wideShadowPopupMenuInsets") ~typ:(returning UIEdgeInsets.t) +let zhuyinFirstToneKeyFontSize self = msg_send ~self ~cmd:(selector "zhuyinFirstToneKeyFontSize") ~typ:(returning double) +let zhuyinFirstToneKeyOffset self = msg_send ~self ~cmd:(selector "zhuyinFirstToneKeyOffset") ~typ:(returning CGPoint.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPhoneChoco.ml b/uikit_extra/UIKBRenderFactoryiPhoneChoco.ml index 965a7eca..da469932 100644 --- a/uikit_extra/UIKBRenderFactoryiPhoneChoco.ml +++ b/uikit_extra/UIKBRenderFactoryiPhoneChoco.ml @@ -5,18 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPhoneChoco" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryiphonechoco?language=objc}UIKBRenderFactoryiPhoneChoco} *) -let dictationKeyOffset self = msg_send_stret ~self ~cmd:(selector "dictationKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let internationalKeyOffset self = msg_send_stret ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning (bool)) -let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning (id)) -let more123KeyOffset self = msg_send_stret ~self ~cmd:(selector "more123KeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let moreABCKeyFontSize self = msg_send ~self ~cmd:(selector "moreABCKeyFontSize") ~typ:(returning (double)) -let moreABCKeyOffset self = msg_send_stret ~self ~cmd:(selector "moreABCKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning (double)) -let popupSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let returnKeyOffset self = msg_send_stret ~self ~cmd:(selector "returnKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantAnnotationTextOffset self = msg_send_stret ~self ~cmd:(selector "variantAnnotationTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPhoneChoco" + +let dictationKeyOffset self = msg_send ~self ~cmd:(selector "dictationKeyOffset") ~typ:(returning CGPoint.t) +let internationalKeyOffset self = msg_send ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning CGPoint.t) +let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning bool) +let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning id) +let more123KeyOffset self = msg_send ~self ~cmd:(selector "more123KeyOffset") ~typ:(returning CGPoint.t) +let moreABCKeyFontSize self = msg_send ~self ~cmd:(selector "moreABCKeyFontSize") ~typ:(returning double) +let moreABCKeyOffset self = msg_send ~self ~cmd:(selector "moreABCKeyOffset") ~typ:(returning CGPoint.t) +let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning double) +let popupSymbolTextOffset self = msg_send ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning CGPoint.t) +let returnKeyOffset self = msg_send ~self ~cmd:(selector "returnKeyOffset") ~typ:(returning CGPoint.t) +let variantAnnotationTextOffset self = msg_send ~self ~cmd:(selector "variantAnnotationTextOffset") ~typ:(returning CGPoint.t) +let variantSymbolFrameInsets self = msg_send ~self ~cmd:(selector "variantSymbolFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantSymbolTextOffset self = msg_send ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning CGPoint.t) +let wideShadowPaddleInsets self = msg_send ~self ~cmd:(selector "wideShadowPaddleInsets") ~typ:(returning UIEdgeInsets.t) +let wideShadowPopupMenuInsets self = msg_send ~self ~cmd:(selector "wideShadowPopupMenuInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPhoneChocoLandscape.ml b/uikit_extra/UIKBRenderFactoryiPhoneChocoLandscape.ml index bab7623b..8e10c446 100644 --- a/uikit_extra/UIKBRenderFactoryiPhoneChocoLandscape.ml +++ b/uikit_extra/UIKBRenderFactoryiPhoneChocoLandscape.ml @@ -5,24 +5,30 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPhoneChocoLandscape" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryiphonechocolandscape?language=objc}UIKBRenderFactoryiPhoneChocoLandscape} *) -let assistKeyFontSize self = msg_send ~self ~cmd:(selector "assistKeyFontSize") ~typ:(returning (double)) -let dictationKeyOffset self = msg_send_stret ~self ~cmd:(selector "dictationKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dismissKeyOffset self = msg_send_stret ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let internationalKeyOffset self = msg_send_stret ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning (bool)) -let leftArrowKeyOffset self = msg_send_stret ~self ~cmd:(selector "leftArrowKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning (id)) -let moreABCKeyFontSize self = msg_send ~self ~cmd:(selector "moreABCKeyFontSize") ~typ:(returning (double)) -let moreABCKeyOffset self = msg_send_stret ~self ~cmd:(selector "moreABCKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning (double)) -let popupFontSize self = msg_send ~self ~cmd:(selector "popupFontSize") ~typ:(returning (double)) -let popupSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let realEmojiKeyOffset self = msg_send_stret ~self ~cmd:(selector "realEmojiKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let returnKeyOffset self = msg_send_stret ~self ~cmd:(selector "returnKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let rightArrowKeyOffset self = msg_send_stret ~self ~cmd:(selector "rightArrowKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let stringKeyFontSize self = msg_send ~self ~cmd:(selector "stringKeyFontSize") ~typ:(returning (double)) -let undoKeyOffset self = msg_send_stret ~self ~cmd:(selector "undoKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPhoneChocoLandscape" + +let assistKeyFontSize self = msg_send ~self ~cmd:(selector "assistKeyFontSize") ~typ:(returning double) +let dictationKeyOffset self = msg_send ~self ~cmd:(selector "dictationKeyOffset") ~typ:(returning CGPoint.t) +let dismissKeyOffset self = msg_send ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning CGPoint.t) +let internationalKeyOffset self = msg_send ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning CGPoint.t) +let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning bool) +let leftArrowKeyOffset self = msg_send ~self ~cmd:(selector "leftArrowKeyOffset") ~typ:(returning CGPoint.t) +let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning id) +let moreABCKeyFontSize self = msg_send ~self ~cmd:(selector "moreABCKeyFontSize") ~typ:(returning double) +let moreABCKeyOffset self = msg_send ~self ~cmd:(selector "moreABCKeyOffset") ~typ:(returning CGPoint.t) +let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning double) +let popupFontSize self = msg_send ~self ~cmd:(selector "popupFontSize") ~typ:(returning double) +let popupSymbolTextOffset self = msg_send ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning CGPoint.t) +let realEmojiKeyOffset self = msg_send ~self ~cmd:(selector "realEmojiKeyOffset") ~typ:(returning CGPoint.t) +let returnKeyOffset self = msg_send ~self ~cmd:(selector "returnKeyOffset") ~typ:(returning CGPoint.t) +let rightArrowKeyOffset self = msg_send ~self ~cmd:(selector "rightArrowKeyOffset") ~typ:(returning CGPoint.t) +let stringKeyFontSize self = msg_send ~self ~cmd:(selector "stringKeyFontSize") ~typ:(returning double) +let undoKeyOffset self = msg_send ~self ~cmd:(selector "undoKeyOffset") ~typ:(returning CGPoint.t) +let variantSymbolFrameInsets self = msg_send ~self ~cmd:(selector "variantSymbolFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantSymbolTextOffset self = msg_send ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning CGPoint.t) +let wideShadowPopupMenuInsets self = msg_send ~self ~cmd:(selector "wideShadowPopupMenuInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPhoneLandscape.ml b/uikit_extra/UIKBRenderFactoryiPhoneLandscape.ml index aaef3587..020a0c55 100644 --- a/uikit_extra/UIKBRenderFactoryiPhoneLandscape.ml +++ b/uikit_extra/UIKBRenderFactoryiPhoneLandscape.ml @@ -5,36 +5,44 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPhoneLandscape" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryiphonelandscape?language=objc}UIKBRenderFactoryiPhoneLandscape} *) -let biuKeyImageName self = msg_send ~self ~cmd:(selector "biuKeyImageName") ~typ:(returning (id)) -let boldKeyImageName self = msg_send ~self ~cmd:(selector "boldKeyImageName") ~typ:(returning (id)) -let copyKeyImageName self = msg_send ~self ~cmd:(selector "copyKeyImageName") ~typ:(returning (id)) -let cutKeyImageName self = msg_send ~self ~cmd:(selector "cutKeyImageName") ~typ:(returning (id)) -let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning (id)) -let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning (id)) -let dictationKeyImageName self = msg_send ~self ~cmd:(selector "dictationKeyImageName") ~typ:(returning (id)) -let dismissKeyImageName self = msg_send ~self ~cmd:(selector "dismissKeyImageName") ~typ:(returning (id)) -let emojiPopupDividerKeyOffset self = msg_send ~self ~cmd:(selector "emojiPopupDividerKeyOffset") ~typ:(returning (double)) -let globalEmojiKeyImageName self = msg_send ~self ~cmd:(selector "globalEmojiKeyImageName") ~typ:(returning (id)) -let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning (id)) -let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning (bool)) -let leftArrowKeyImageName self = msg_send ~self ~cmd:(selector "leftArrowKeyImageName") ~typ:(returning (id)) -let more123KeyOffset self = msg_send_stret ~self ~cmd:(selector "more123KeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let moreABCKeyFontSize self = msg_send ~self ~cmd:(selector "moreABCKeyFontSize") ~typ:(returning (double)) -let moreABCKeyOffset self = msg_send_stret ~self ~cmd:(selector "moreABCKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning (id)) -let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning (id)) -let pasteKeyImageName self = msg_send ~self ~cmd:(selector "pasteKeyImageName") ~typ:(returning (id)) -let popupFontSize self = msg_send ~self ~cmd:(selector "popupFontSize") ~typ:(returning (double)) -let popupSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let rightArrowKeyImageName self = msg_send ~self ~cmd:(selector "rightArrowKeyImageName") ~typ:(returning (id)) -let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning (id)) -let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning (id)) -let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning (id)) -let skinnyKeyThreshold self = msg_send ~self ~cmd:(selector "skinnyKeyThreshold") ~typ:(returning (double)) -let undoKeyImageName self = msg_send ~self ~cmd:(selector "undoKeyImageName") ~typ:(returning (id)) -let variantAnnotationTextOffset self = msg_send_stret ~self ~cmd:(selector "variantAnnotationTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantGeometriesForGeometry x ~variantCount ~rowLimit ~annotationIndex self = msg_send ~self ~cmd:(selector "variantGeometriesForGeometry:variantCount:rowLimit:annotationIndex:") ~typ:(id @-> ullong @-> llong @-> ullong @-> returning (id)) x (ULLong.of_int variantCount) (LLong.of_int rowLimit) (ULLong.of_int annotationIndex) -let variantSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPhoneLandscape" + +let biuKeyImageName self = msg_send ~self ~cmd:(selector "biuKeyImageName") ~typ:(returning id) +let boldKeyImageName self = msg_send ~self ~cmd:(selector "boldKeyImageName") ~typ:(returning id) +let copyKeyImageName self = msg_send ~self ~cmd:(selector "copyKeyImageName") ~typ:(returning id) +let cutKeyImageName self = msg_send ~self ~cmd:(selector "cutKeyImageName") ~typ:(returning id) +let deleteKeyImageName self = msg_send ~self ~cmd:(selector "deleteKeyImageName") ~typ:(returning id) +let deleteOnKeyImageName self = msg_send ~self ~cmd:(selector "deleteOnKeyImageName") ~typ:(returning id) +let dictationKeyImageName self = msg_send ~self ~cmd:(selector "dictationKeyImageName") ~typ:(returning id) +let dismissKeyImageName self = msg_send ~self ~cmd:(selector "dismissKeyImageName") ~typ:(returning id) +let emojiPopupDividerKeyOffset self = msg_send ~self ~cmd:(selector "emojiPopupDividerKeyOffset") ~typ:(returning double) +let globalEmojiKeyImageName self = msg_send ~self ~cmd:(selector "globalEmojiKeyImageName") ~typ:(returning id) +let globalKeyImageName self = msg_send ~self ~cmd:(selector "globalKeyImageName") ~typ:(returning id) +let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning bool) +let leftArrowKeyImageName self = msg_send ~self ~cmd:(selector "leftArrowKeyImageName") ~typ:(returning id) +let more123KeyOffset self = msg_send ~self ~cmd:(selector "more123KeyOffset") ~typ:(returning CGPoint.t) +let moreABCKeyFontSize self = msg_send ~self ~cmd:(selector "moreABCKeyFontSize") ~typ:(returning double) +let moreABCKeyOffset self = msg_send ~self ~cmd:(selector "moreABCKeyOffset") ~typ:(returning CGPoint.t) +let multitapCompleteKeyImageName self = msg_send ~self ~cmd:(selector "multitapCompleteKeyImageName") ~typ:(returning id) +let muttitapReverseKeyImageName self = msg_send ~self ~cmd:(selector "muttitapReverseKeyImageName") ~typ:(returning id) +let pasteKeyImageName self = msg_send ~self ~cmd:(selector "pasteKeyImageName") ~typ:(returning id) +let popupFontSize self = msg_send ~self ~cmd:(selector "popupFontSize") ~typ:(returning double) +let popupSymbolTextOffset self = msg_send ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning CGPoint.t) +let rightArrowKeyImageName self = msg_send ~self ~cmd:(selector "rightArrowKeyImageName") ~typ:(returning id) +let shiftKeyImageName self = msg_send ~self ~cmd:(selector "shiftKeyImageName") ~typ:(returning id) +let shiftLockImageName self = msg_send ~self ~cmd:(selector "shiftLockImageName") ~typ:(returning id) +let shiftOnKeyImageName self = msg_send ~self ~cmd:(selector "shiftOnKeyImageName") ~typ:(returning id) +let skinnyKeyThreshold self = msg_send ~self ~cmd:(selector "skinnyKeyThreshold") ~typ:(returning double) +let undoKeyImageName self = msg_send ~self ~cmd:(selector "undoKeyImageName") ~typ:(returning id) +let variantAnnotationTextOffset self = msg_send ~self ~cmd:(selector "variantAnnotationTextOffset") ~typ:(returning CGPoint.t) +let variantDisplayFrameInsets self = msg_send ~self ~cmd:(selector "variantDisplayFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantGeometriesForGeometry x ~variantCount ~rowLimit ~annotationIndex self = msg_send ~self ~cmd:(selector "variantGeometriesForGeometry:variantCount:rowLimit:annotationIndex:") ~typ:(id @-> ullong @-> llong @-> ullong @-> returning id) x (ULLong.of_int variantCount) (LLong.of_int rowLimit) (ULLong.of_int annotationIndex) +let variantPaddedFrameInsets self = msg_send ~self ~cmd:(selector "variantPaddedFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantSymbolFrameInsets self = msg_send ~self ~cmd:(selector "variantSymbolFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantSymbolTextOffset self = msg_send ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning CGPoint.t) +let wideShadowPaddleInsets self = msg_send ~self ~cmd:(selector "wideShadowPaddleInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPhonePasscode.ml b/uikit_extra/UIKBRenderFactoryiPhonePasscode.ml index 8cc537da..5bead557 100644 --- a/uikit_extra/UIKBRenderFactoryiPhonePasscode.ml +++ b/uikit_extra/UIKBRenderFactoryiPhonePasscode.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPhonePasscode" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryiphonepasscode?language=objc}UIKBRenderFactoryiPhonePasscode} *) -let activeControlKeyTraits self = msg_send ~self ~cmd:(selector "activeControlKeyTraits") ~typ:(returning (id)) -let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning (id)) x -let controlKeyTraits self = msg_send ~self ~cmd:(selector "controlKeyTraits") ~typ:(returning (id)) -let defaultKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "defaultKeyBackgroundColorName") ~typ:(returning (id)) -let hashStringElement self = msg_send ~self ~cmd:(selector "hashStringElement") ~typ:(returning (id)) -let passcodeEdgeWeight self = msg_send ~self ~cmd:(selector "passcodeEdgeWeight") ~typ:(returning (double)) -let shiftLockControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftLockControlKeyTraits") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPhonePasscode" + +let activeControlKeyTraits self = msg_send ~self ~cmd:(selector "activeControlKeyTraits") ~typ:(returning id) +let backgroundTraitsForKeyplane x self = msg_send ~self ~cmd:(selector "backgroundTraitsForKeyplane:") ~typ:(id @-> returning id) x +let controlKeyTraits self = msg_send ~self ~cmd:(selector "controlKeyTraits") ~typ:(returning id) +let defaultKeyBackgroundColorName self = msg_send ~self ~cmd:(selector "defaultKeyBackgroundColorName") ~typ:(returning id) +let hashStringElement self = msg_send ~self ~cmd:(selector "hashStringElement") ~typ:(returning id) +let passcodeEdgeWeight self = msg_send ~self ~cmd:(selector "passcodeEdgeWeight") ~typ:(returning double) +let shiftLockControlKeyTraits self = msg_send ~self ~cmd:(selector "shiftLockControlKeyTraits") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPhonePasscodeChoco.ml b/uikit_extra/UIKBRenderFactoryiPhonePasscodeChoco.ml index bdc9e678..d408475e 100644 --- a/uikit_extra/UIKBRenderFactoryiPhonePasscodeChoco.ml +++ b/uikit_extra/UIKBRenderFactoryiPhonePasscodeChoco.ml @@ -5,10 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPhonePasscodeChoco" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryiphonepasscodechoco?language=objc}UIKBRenderFactoryiPhonePasscodeChoco} *) -let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning (bool)) -let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning (id)) -let popupSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPhonePasscodeChoco" + +let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning bool) +let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning id) +let popupSymbolTextOffset self = msg_send ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning CGPoint.t) +let variantSymbolFrameInsets self = msg_send ~self ~cmd:(selector "variantSymbolFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantSymbolTextOffset self = msg_send ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning CGPoint.t) +let wideShadowPaddleInsets self = msg_send ~self ~cmd:(selector "wideShadowPaddleInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPhonePasscodeTruffle.ml b/uikit_extra/UIKBRenderFactoryiPhonePasscodeTruffle.ml index d1f20599..a999eb68 100644 --- a/uikit_extra/UIKBRenderFactoryiPhonePasscodeTruffle.ml +++ b/uikit_extra/UIKBRenderFactoryiPhonePasscodeTruffle.ml @@ -5,11 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPhonePasscodeTruffle" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryiphonepasscodetruffle?language=objc}UIKBRenderFactoryiPhonePasscodeTruffle} *) -let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning (bool)) -let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning (id)) -let popupFontSize self = msg_send ~self ~cmd:(selector "popupFontSize") ~typ:(returning (double)) -let popupSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPhonePasscodeTruffle" + +let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning bool) +let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning id) +let popupFontSize self = msg_send ~self ~cmd:(selector "popupFontSize") ~typ:(returning double) +let popupSymbolTextOffset self = msg_send ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning CGPoint.t) +let variantPaddedFrameInsets self = msg_send ~self ~cmd:(selector "variantPaddedFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantSymbolFrameInsets self = msg_send ~self ~cmd:(selector "variantSymbolFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantSymbolTextOffset self = msg_send ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning CGPoint.t) +let wideShadowPaddleInsets self = msg_send ~self ~cmd:(selector "wideShadowPaddleInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPhoneTruffle.ml b/uikit_extra/UIKBRenderFactoryiPhoneTruffle.ml index d8a83b14..e13fce33 100644 --- a/uikit_extra/UIKBRenderFactoryiPhoneTruffle.ml +++ b/uikit_extra/UIKBRenderFactoryiPhoneTruffle.ml @@ -5,20 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPhoneTruffle" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryiphonetruffle?language=objc}UIKBRenderFactoryiPhoneTruffle} *) -let deleteKeyOffset self = msg_send_stret ~self ~cmd:(selector "deleteKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dictationKeyOffset self = msg_send_stret ~self ~cmd:(selector "dictationKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let internationalKeyOffset self = msg_send_stret ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning (bool)) -let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning (id)) -let more123KeyOffset self = msg_send_stret ~self ~cmd:(selector "more123KeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let moreABCKeyFontSize self = msg_send ~self ~cmd:(selector "moreABCKeyFontSize") ~typ:(returning (double)) -let moreABCKeyOffset self = msg_send_stret ~self ~cmd:(selector "moreABCKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let popupFontSize self = msg_send ~self ~cmd:(selector "popupFontSize") ~typ:(returning (double)) -let popupSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let returnKeyOffset self = msg_send_stret ~self ~cmd:(selector "returnKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let stringKeyOffset self = msg_send_stret ~self ~cmd:(selector "stringKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantAnnotationTextOffset self = msg_send_stret ~self ~cmd:(selector "variantAnnotationTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPhoneTruffle" + +let deleteKeyOffset self = msg_send ~self ~cmd:(selector "deleteKeyOffset") ~typ:(returning CGPoint.t) +let dictationKeyOffset self = msg_send ~self ~cmd:(selector "dictationKeyOffset") ~typ:(returning CGPoint.t) +let internationalKeyOffset self = msg_send ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning CGPoint.t) +let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning bool) +let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning id) +let more123KeyOffset self = msg_send ~self ~cmd:(selector "more123KeyOffset") ~typ:(returning CGPoint.t) +let moreABCKeyFontSize self = msg_send ~self ~cmd:(selector "moreABCKeyFontSize") ~typ:(returning double) +let moreABCKeyOffset self = msg_send ~self ~cmd:(selector "moreABCKeyOffset") ~typ:(returning CGPoint.t) +let popupFontSize self = msg_send ~self ~cmd:(selector "popupFontSize") ~typ:(returning double) +let popupSymbolTextOffset self = msg_send ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning CGPoint.t) +let returnKeyOffset self = msg_send ~self ~cmd:(selector "returnKeyOffset") ~typ:(returning CGPoint.t) +let stringKeyOffset self = msg_send ~self ~cmd:(selector "stringKeyOffset") ~typ:(returning CGPoint.t) +let variantAnnotationTextOffset self = msg_send ~self ~cmd:(selector "variantAnnotationTextOffset") ~typ:(returning CGPoint.t) +let variantPaddedFrameInsets self = msg_send ~self ~cmd:(selector "variantPaddedFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantSymbolFrameInsets self = msg_send ~self ~cmd:(selector "variantSymbolFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantSymbolTextOffset self = msg_send ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning CGPoint.t) +let wideShadowPaddleInsets self = msg_send ~self ~cmd:(selector "wideShadowPaddleInsets") ~typ:(returning UIEdgeInsets.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderFactoryiPhoneTruffleLandscape.ml b/uikit_extra/UIKBRenderFactoryiPhoneTruffleLandscape.ml index c822d843..0d8355fc 100644 --- a/uikit_extra/UIKBRenderFactoryiPhoneTruffleLandscape.ml +++ b/uikit_extra/UIKBRenderFactoryiPhoneTruffleLandscape.ml @@ -5,29 +5,34 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderFactoryiPhoneTruffleLandscape" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderfactoryiphonetrufflelandscape?language=objc}UIKBRenderFactoryiPhoneTruffleLandscape} *) -let assistKeyFontSize self = msg_send ~self ~cmd:(selector "assistKeyFontSize") ~typ:(returning (double)) -let boldKeyOffset self = msg_send_stret ~self ~cmd:(selector "boldKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let copyKeyOffset self = msg_send_stret ~self ~cmd:(selector "copyKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let cutKeyOffset self = msg_send_stret ~self ~cmd:(selector "cutKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let deleteKeyOffset self = msg_send_stret ~self ~cmd:(selector "deleteKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dictationKeyOffset self = msg_send_stret ~self ~cmd:(selector "dictationKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dismissKeyOffset self = msg_send_stret ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let internationalKeyOffset self = msg_send_stret ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning (bool)) -let leftArrowKeyOffset self = msg_send_stret ~self ~cmd:(selector "leftArrowKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning (id)) -let moreABCKeyFontSize self = msg_send ~self ~cmd:(selector "moreABCKeyFontSize") ~typ:(returning (double)) -let moreABCKeyOffset self = msg_send_stret ~self ~cmd:(selector "moreABCKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning (double)) -let pasteKeyOffset self = msg_send_stret ~self ~cmd:(selector "pasteKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let popupFontSize self = msg_send ~self ~cmd:(selector "popupFontSize") ~typ:(returning (double)) -let popupSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let realEmojiKeyOffset self = msg_send_stret ~self ~cmd:(selector "realEmojiKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let returnKeyOffset self = msg_send_stret ~self ~cmd:(selector "returnKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let rightArrowKeyOffset self = msg_send_stret ~self ~cmd:(selector "rightArrowKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let stringKeyFontSize self = msg_send ~self ~cmd:(selector "stringKeyFontSize") ~typ:(returning (double)) -let undoKeyOffset self = msg_send_stret ~self ~cmd:(selector "undoKeyOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let variantSymbolTextOffset self = msg_send_stret ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file +let self = get_class "UIKBRenderFactoryiPhoneTruffleLandscape" + +let assistKeyFontSize self = msg_send ~self ~cmd:(selector "assistKeyFontSize") ~typ:(returning double) +let boldKeyOffset self = msg_send ~self ~cmd:(selector "boldKeyOffset") ~typ:(returning CGPoint.t) +let copyKeyOffset self = msg_send ~self ~cmd:(selector "copyKeyOffset") ~typ:(returning CGPoint.t) +let cutKeyOffset self = msg_send ~self ~cmd:(selector "cutKeyOffset") ~typ:(returning CGPoint.t) +let deleteKeyOffset self = msg_send ~self ~cmd:(selector "deleteKeyOffset") ~typ:(returning CGPoint.t) +let dictationKeyOffset self = msg_send ~self ~cmd:(selector "dictationKeyOffset") ~typ:(returning CGPoint.t) +let dismissKeyOffset self = msg_send ~self ~cmd:(selector "dismissKeyOffset") ~typ:(returning CGPoint.t) +let internationalKeyOffset self = msg_send ~self ~cmd:(selector "internationalKeyOffset") ~typ:(returning CGPoint.t) +let isTallPopup self = msg_send ~self ~cmd:(selector "isTallPopup") ~typ:(returning bool) +let leftArrowKeyOffset self = msg_send ~self ~cmd:(selector "leftArrowKeyOffset") ~typ:(returning CGPoint.t) +let lightKeycapsFontName self = msg_send ~self ~cmd:(selector "lightKeycapsFontName") ~typ:(returning id) +let moreABCKeyFontSize self = msg_send ~self ~cmd:(selector "moreABCKeyFontSize") ~typ:(returning double) +let moreABCKeyOffset self = msg_send ~self ~cmd:(selector "moreABCKeyOffset") ~typ:(returning CGPoint.t) +let moreKeyFontSize self = msg_send ~self ~cmd:(selector "moreKeyFontSize") ~typ:(returning double) +let pasteKeyOffset self = msg_send ~self ~cmd:(selector "pasteKeyOffset") ~typ:(returning CGPoint.t) +let popupFontSize self = msg_send ~self ~cmd:(selector "popupFontSize") ~typ:(returning double) +let popupSymbolTextOffset self = msg_send ~self ~cmd:(selector "popupSymbolTextOffset") ~typ:(returning CGPoint.t) +let realEmojiKeyOffset self = msg_send ~self ~cmd:(selector "realEmojiKeyOffset") ~typ:(returning CGPoint.t) +let returnKeyOffset self = msg_send ~self ~cmd:(selector "returnKeyOffset") ~typ:(returning CGPoint.t) +let rightArrowKeyOffset self = msg_send ~self ~cmd:(selector "rightArrowKeyOffset") ~typ:(returning CGPoint.t) +let stringKeyFontSize self = msg_send ~self ~cmd:(selector "stringKeyFontSize") ~typ:(returning double) +let undoKeyOffset self = msg_send ~self ~cmd:(selector "undoKeyOffset") ~typ:(returning CGPoint.t) +let variantSymbolFrameInsets self = msg_send ~self ~cmd:(selector "variantSymbolFrameInsets") ~typ:(returning UIEdgeInsets.t) +let variantSymbolTextOffset self = msg_send ~self ~cmd:(selector "variantSymbolTextOffset") ~typ:(returning CGPoint.t) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderGeometry.ml b/uikit_extra/UIKBRenderGeometry.ml index 9cabb129..b971d771 100644 --- a/uikit_extra/UIKBRenderGeometry.ml +++ b/uikit_extra/UIKBRenderGeometry.ml @@ -5,71 +5,72 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderGeometry" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrendergeometry?language=objc}UIKBRenderGeometry} *) -module C = struct - let geometryWithFrame x ~paddedFrame self = msg_send ~self ~cmd:(selector "geometryWithFrame:paddedFrame:") ~typ:(CGRect.t @-> CGRect.t @-> returning (id)) x paddedFrame - let geometryWithShape x self = msg_send ~self ~cmd:(selector "geometryWithShape:") ~typ:(id @-> returning (id)) x - let sortedGeometries x ~leftToRight self = msg_send ~self ~cmd:(selector "sortedGeometries:leftToRight:") ~typ:(id @-> bool @-> returning (id)) x leftToRight -end +let self = get_class "UIKBRenderGeometry" -let adjustForConsistentGapsWithSize x ~inFrame self = msg_send ~self ~cmd:(selector "adjustForConsistentGapsWithSize:inFrame:") ~typ:(CGSize.t @-> CGRect.t @-> returning (void)) x inFrame -let adjustForTranslucentGapsWithSize x ~inFrame self = msg_send ~self ~cmd:(selector "adjustForTranslucentGapsWithSize:inFrame:") ~typ:(CGSize.t @-> CGRect.t @-> returning (ullong)) x inFrame -let adjustToTopWithInsets x self = msg_send ~self ~cmd:(selector "adjustToTopWithInsets:") ~typ:(ptr void @-> returning (void)) x -let applyInsets x self = msg_send ~self ~cmd:(selector "applyInsets:") ~typ:(ptr void @-> returning (void)) x -let applyOffset x self = msg_send ~self ~cmd:(selector "applyOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let applyShadowInsets x self = msg_send ~self ~cmd:(selector "applyShadowInsets:") ~typ:(ptr void @-> returning (void)) x -let concaveCorner self = msg_send ~self ~cmd:(selector "concaveCorner") ~typ:(returning (ullong)) -let concaveCornerOffset self = msg_send_stret ~self ~cmd:(selector "concaveCornerOffset") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let copyForFlickDirection x ~scale self = msg_send ~self ~cmd:(selector "copyForFlickDirection:scale:") ~typ:(llong @-> double @-> returning (id)) (LLong.of_int x) scale -let copyForPopupDirection x ~scale self = msg_send ~self ~cmd:(selector "copyForPopupDirection:scale:") ~typ:(llong @-> double @-> returning (id)) (LLong.of_int x) scale -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let detachedVariants self = msg_send ~self ~cmd:(selector "detachedVariants") ~typ:(returning (bool)) -let displayFrame self = msg_send_stret ~self ~cmd:(selector "displayFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let flickDirection self = msg_send ~self ~cmd:(selector "flickDirection") ~typ:(returning (llong)) -let frame self = msg_send_stret ~self ~cmd:(selector "frame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let iPadVariantGeometries x ~rowLimit self = msg_send ~self ~cmd:(selector "iPadVariantGeometries:rowLimit:") ~typ:(ullong @-> llong @-> returning (id)) (ULLong.of_int x) (LLong.of_int rowLimit) -let iPhoneVariantGeometries x ~annotationIndex self = msg_send ~self ~cmd:(selector "iPhoneVariantGeometries:annotationIndex:") ~typ:(ullong @-> ullong @-> returning (id)) (ULLong.of_int x) (ULLong.of_int annotationIndex) -let initWithShape x self = msg_send ~self ~cmd:(selector "initWithShape:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let layeredBackgroundPaddedFrame self = msg_send_stret ~self ~cmd:(selector "layeredBackgroundPaddedFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let layeredBackgroundRoundRectRadius self = msg_send ~self ~cmd:(selector "layeredBackgroundRoundRectRadius") ~typ:(returning (double)) -let layeredForegroundPaddedFrame self = msg_send_stret ~self ~cmd:(selector "layeredForegroundPaddedFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let layeredForegroundRoundRectRadius self = msg_send ~self ~cmd:(selector "layeredForegroundRoundRectRadius") ~typ:(returning (double)) -let makeIntegralWithScale x self = msg_send ~self ~cmd:(selector "makeIntegralWithScale:") ~typ:(double @-> returning (void)) x -let overlayWithGeometry x self = msg_send ~self ~cmd:(selector "overlayWithGeometry:") ~typ:(id @-> returning (void)) x -let paddedFrame self = msg_send_stret ~self ~cmd:(selector "paddedFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let popupBias self = msg_send ~self ~cmd:(selector "popupBias") ~typ:(returning (int)) -let popupDirection self = msg_send ~self ~cmd:(selector "popupDirection") ~typ:(returning (llong)) -let popupSource self = msg_send_stret ~self ~cmd:(selector "popupSource") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let roundRectCorners self = msg_send ~self ~cmd:(selector "roundRectCorners") ~typ:(returning (ullong)) -let roundRectRadius self = msg_send ~self ~cmd:(selector "roundRectRadius") ~typ:(returning (double)) -let setConcaveCorner x self = msg_send ~self ~cmd:(selector "setConcaveCorner:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setConcaveCornerOffset x self = msg_send ~self ~cmd:(selector "setConcaveCornerOffset:") ~typ:(CGSize.t @-> returning (void)) x -let setDetachedVariants x self = msg_send ~self ~cmd:(selector "setDetachedVariants:") ~typ:(bool @-> returning (void)) x -let setDisplayFrame x self = msg_send ~self ~cmd:(selector "setDisplayFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setFlickDirection x self = msg_send ~self ~cmd:(selector "setFlickDirection:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setLayeredBackgroundPaddedFrame x self = msg_send ~self ~cmd:(selector "setLayeredBackgroundPaddedFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setLayeredBackgroundRoundRectRadius x self = msg_send ~self ~cmd:(selector "setLayeredBackgroundRoundRectRadius:") ~typ:(double @-> returning (void)) x -let setLayeredForegroundPaddedFrame x self = msg_send ~self ~cmd:(selector "setLayeredForegroundPaddedFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setLayeredForegroundRoundRectRadius x self = msg_send ~self ~cmd:(selector "setLayeredForegroundRoundRectRadius:") ~typ:(double @-> returning (void)) x -let setLayoutMargins x self = msg_send ~self ~cmd:(selector "setLayoutMargins:") ~typ:(ptr void @-> returning (void)) x -let setPaddedFrame x self = msg_send ~self ~cmd:(selector "setPaddedFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setPopupBias x self = msg_send ~self ~cmd:(selector "setPopupBias:") ~typ:(int @-> returning (void)) x -let setPopupDirection x self = msg_send ~self ~cmd:(selector "setPopupDirection:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPopupSource x self = msg_send ~self ~cmd:(selector "setPopupSource:") ~typ:(CGPoint.t @-> returning (void)) x -let setRoundRectCorners x self = msg_send ~self ~cmd:(selector "setRoundRectCorners:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setRoundRectRadius x self = msg_send ~self ~cmd:(selector "setRoundRectRadius:") ~typ:(double @-> returning (void)) x -let setSplitLeftRect x self = msg_send ~self ~cmd:(selector "setSplitLeftRect:") ~typ:(id @-> returning (void)) x -let setSplitRightRect x self = msg_send ~self ~cmd:(selector "setSplitRightRect:") ~typ:(id @-> returning (void)) x -let setSymbolFrame x self = msg_send ~self ~cmd:(selector "setSymbolFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setTallPopup x self = msg_send ~self ~cmd:(selector "setTallPopup:") ~typ:(bool @-> returning (void)) x -let similarShape self = msg_send ~self ~cmd:(selector "similarShape") ~typ:(returning (id)) -let splitLeftRect self = msg_send ~self ~cmd:(selector "splitLeftRect") ~typ:(returning (id)) -let splitRightRect self = msg_send ~self ~cmd:(selector "splitRightRect") ~typ:(returning (id)) -let symbolFrame self = msg_send_stret ~self ~cmd:(selector "symbolFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let tallPopup self = msg_send ~self ~cmd:(selector "tallPopup") ~typ:(returning (bool)) \ No newline at end of file +let adjustForConsistentGapsWithSize x ~inFrame self = msg_send ~self ~cmd:(selector "adjustForConsistentGapsWithSize:inFrame:") ~typ:(CGSize.t @-> CGRect.t @-> returning void) x inFrame +let adjustForTranslucentGapsWithSize x ~inFrame self = msg_send ~self ~cmd:(selector "adjustForTranslucentGapsWithSize:inFrame:") ~typ:(CGSize.t @-> CGRect.t @-> returning ullong) x inFrame +let adjustToTopWithInsets x self = msg_send ~self ~cmd:(selector "adjustToTopWithInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let applyInsets x self = msg_send ~self ~cmd:(selector "applyInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let applyOffset x self = msg_send ~self ~cmd:(selector "applyOffset:") ~typ:(CGPoint.t @-> returning void) x +let applyShadowInsets x self = msg_send ~self ~cmd:(selector "applyShadowInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let concaveCorner self = msg_send ~self ~cmd:(selector "concaveCorner") ~typ:(returning ullong) +let concaveCornerOffset self = msg_send ~self ~cmd:(selector "concaveCornerOffset") ~typ:(returning CGSize.t) +let copyForFlickDirection x ~scale self = msg_send ~self ~cmd:(selector "copyForFlickDirection:scale:") ~typ:(llong @-> double @-> returning id) (LLong.of_int x) scale +let copyForPopupDirection x ~scale self = msg_send ~self ~cmd:(selector "copyForPopupDirection:scale:") ~typ:(llong @-> double @-> returning id) (LLong.of_int x) scale +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let detachedVariants self = msg_send ~self ~cmd:(selector "detachedVariants") ~typ:(returning bool) +let displayFrame self = msg_send ~self ~cmd:(selector "displayFrame") ~typ:(returning CGRect.t) +let displayInsets self = msg_send ~self ~cmd:(selector "displayInsets") ~typ:(returning UIEdgeInsets.t) +let flickDirection self = msg_send ~self ~cmd:(selector "flickDirection") ~typ:(returning llong) +let frame self = msg_send ~self ~cmd:(selector "frame") ~typ:(returning CGRect.t) +let iPadVariantGeometries x ~rowLimit self = msg_send ~self ~cmd:(selector "iPadVariantGeometries:rowLimit:") ~typ:(ullong @-> llong @-> returning id) (ULLong.of_int x) (LLong.of_int rowLimit) +let iPhoneVariantGeometries x ~annotationIndex self = msg_send ~self ~cmd:(selector "iPhoneVariantGeometries:annotationIndex:") ~typ:(ullong @-> ullong @-> returning id) (ULLong.of_int x) (ULLong.of_int annotationIndex) +let initWithShape x self = msg_send ~self ~cmd:(selector "initWithShape:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let layeredBackgroundPaddedFrame self = msg_send ~self ~cmd:(selector "layeredBackgroundPaddedFrame") ~typ:(returning CGRect.t) +let layeredBackgroundRoundRectRadius self = msg_send ~self ~cmd:(selector "layeredBackgroundRoundRectRadius") ~typ:(returning double) +let layeredForegroundPaddedFrame self = msg_send ~self ~cmd:(selector "layeredForegroundPaddedFrame") ~typ:(returning CGRect.t) +let layeredForegroundRoundRectRadius self = msg_send ~self ~cmd:(selector "layeredForegroundRoundRectRadius") ~typ:(returning double) +let layoutMargins self = msg_send ~self ~cmd:(selector "layoutMargins") ~typ:(returning UIEdgeInsets.t) +let makeIntegralWithScale x self = msg_send ~self ~cmd:(selector "makeIntegralWithScale:") ~typ:(double @-> returning void) x +let overlayWithGeometry x self = msg_send ~self ~cmd:(selector "overlayWithGeometry:") ~typ:(id @-> returning void) x +let paddedFrame self = msg_send ~self ~cmd:(selector "paddedFrame") ~typ:(returning CGRect.t) +let paddedInsets self = msg_send ~self ~cmd:(selector "paddedInsets") ~typ:(returning UIEdgeInsets.t) +let popupBias self = msg_send ~self ~cmd:(selector "popupBias") ~typ:(returning int) +let popupDirection self = msg_send ~self ~cmd:(selector "popupDirection") ~typ:(returning llong) +let popupSource self = msg_send ~self ~cmd:(selector "popupSource") ~typ:(returning CGPoint.t) +let roundRectCorners self = msg_send ~self ~cmd:(selector "roundRectCorners") ~typ:(returning ullong) +let roundRectRadius self = msg_send ~self ~cmd:(selector "roundRectRadius") ~typ:(returning double) +let setConcaveCorner x self = msg_send ~self ~cmd:(selector "setConcaveCorner:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setConcaveCornerOffset x self = msg_send ~self ~cmd:(selector "setConcaveCornerOffset:") ~typ:(CGSize.t @-> returning void) x +let setDetachedVariants x self = msg_send ~self ~cmd:(selector "setDetachedVariants:") ~typ:(bool @-> returning void) x +let setDisplayFrame x self = msg_send ~self ~cmd:(selector "setDisplayFrame:") ~typ:(CGRect.t @-> returning void) x +let setFlickDirection x self = msg_send ~self ~cmd:(selector "setFlickDirection:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setLayeredBackgroundPaddedFrame x self = msg_send ~self ~cmd:(selector "setLayeredBackgroundPaddedFrame:") ~typ:(CGRect.t @-> returning void) x +let setLayeredBackgroundRoundRectRadius x self = msg_send ~self ~cmd:(selector "setLayeredBackgroundRoundRectRadius:") ~typ:(double @-> returning void) x +let setLayeredForegroundPaddedFrame x self = msg_send ~self ~cmd:(selector "setLayeredForegroundPaddedFrame:") ~typ:(CGRect.t @-> returning void) x +let setLayeredForegroundRoundRectRadius x self = msg_send ~self ~cmd:(selector "setLayeredForegroundRoundRectRadius:") ~typ:(double @-> returning void) x +let setLayoutMargins x self = msg_send ~self ~cmd:(selector "setLayoutMargins:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setPaddedFrame x self = msg_send ~self ~cmd:(selector "setPaddedFrame:") ~typ:(CGRect.t @-> returning void) x +let setPopupBias x self = msg_send ~self ~cmd:(selector "setPopupBias:") ~typ:(int @-> returning void) x +let setPopupDirection x self = msg_send ~self ~cmd:(selector "setPopupDirection:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPopupSource x self = msg_send ~self ~cmd:(selector "setPopupSource:") ~typ:(CGPoint.t @-> returning void) x +let setRoundRectCorners x self = msg_send ~self ~cmd:(selector "setRoundRectCorners:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setRoundRectRadius x self = msg_send ~self ~cmd:(selector "setRoundRectRadius:") ~typ:(double @-> returning void) x +let setSplitLeftRect x self = msg_send ~self ~cmd:(selector "setSplitLeftRect:") ~typ:(id @-> returning void) x +let setSplitRightRect x self = msg_send ~self ~cmd:(selector "setSplitRightRect:") ~typ:(id @-> returning void) x +let setSymbolFrame x self = msg_send ~self ~cmd:(selector "setSymbolFrame:") ~typ:(CGRect.t @-> returning void) x +let setTallPopup x self = msg_send ~self ~cmd:(selector "setTallPopup:") ~typ:(bool @-> returning void) x +let similarShape self = msg_send ~self ~cmd:(selector "similarShape") ~typ:(returning id) +let splitLeftRect self = msg_send ~self ~cmd:(selector "splitLeftRect") ~typ:(returning id) +let splitRightRect self = msg_send ~self ~cmd:(selector "splitRightRect") ~typ:(returning id) +let symbolFrame self = msg_send ~self ~cmd:(selector "symbolFrame") ~typ:(returning CGRect.t) +let tallPopup self = msg_send ~self ~cmd:(selector "tallPopup") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderGeometryClass.ml b/uikit_extra/UIKBRenderGeometryClass.ml new file mode 100644 index 00000000..bd7eb5d4 --- /dev/null +++ b/uikit_extra/UIKBRenderGeometryClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrendergeometry?language=objc}UIKBRenderGeometry} *) + +let geometryWithFrame x ~paddedFrame self = msg_send ~self ~cmd:(selector "geometryWithFrame:paddedFrame:") ~typ:(CGRect.t @-> CGRect.t @-> returning id) x paddedFrame +let geometryWithShape x self = msg_send ~self ~cmd:(selector "geometryWithShape:") ~typ:(id @-> returning id) x +let sortedGeometries x ~leftToRight self = msg_send ~self ~cmd:(selector "sortedGeometries:leftToRight:") ~typ:(id @-> bool @-> returning id) x leftToRight \ No newline at end of file diff --git a/uikit_extra/UIKBRenderTraits.ml b/uikit_extra/UIKBRenderTraits.ml index 6fc843b6..a4714370 100644 --- a/uikit_extra/UIKBRenderTraits.ml +++ b/uikit_extra/UIKBRenderTraits.ml @@ -5,57 +5,55 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderTraits" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrendertraits?language=objc}UIKBRenderTraits} *) -module C = struct - let emptyTraits self = msg_send ~self ~cmd:(selector "emptyTraits") ~typ:(returning (id)) - let traitsWithGeometry x self = msg_send ~self ~cmd:(selector "traitsWithGeometry:") ~typ:(id @-> returning (id)) x - let traitsWithSymbolStyle x self = msg_send ~self ~cmd:(selector "traitsWithSymbolStyle:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIKBRenderTraits" -let addForegroundRenderEffect x self = msg_send ~self ~cmd:(selector "addForegroundRenderEffect:") ~typ:(id @-> returning (void)) x -let addRenderEffect x self = msg_send ~self ~cmd:(selector "addRenderEffect:") ~typ:(id @-> returning (void)) x -let backgroundGradient self = msg_send ~self ~cmd:(selector "backgroundGradient") ~typ:(returning (id)) -let blendForm self = msg_send ~self ~cmd:(selector "blendForm") ~typ:(returning (llong)) -let blurBlending self = msg_send ~self ~cmd:(selector "blurBlending") ~typ:(returning (bool)) -let controlOpacities self = msg_send ~self ~cmd:(selector "controlOpacities") ~typ:(returning (bool)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let fallbackSymbolStyle self = msg_send ~self ~cmd:(selector "fallbackSymbolStyle") ~typ:(returning (id)) -let foregroundRenderEffects self = msg_send ~self ~cmd:(selector "foregroundRenderEffects") ~typ:(returning (id)) -let geometry self = msg_send ~self ~cmd:(selector "geometry") ~typ:(returning (id)) -let hashString self = msg_send ~self ~cmd:(selector "hashString") ~typ:(returning (id)) -let highlightedVariantTraits self = msg_send ~self ~cmd:(selector "highlightedVariantTraits") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let layeredBackgroundGradient self = msg_send ~self ~cmd:(selector "layeredBackgroundGradient") ~typ:(returning (id)) -let layeredForegroundGradient self = msg_send ~self ~cmd:(selector "layeredForegroundGradient") ~typ:(returning (id)) -let modifyForMasking self = msg_send ~self ~cmd:(selector "modifyForMasking") ~typ:(returning (void)) -let overlayWithTraits x self = msg_send ~self ~cmd:(selector "overlayWithTraits:") ~typ:(id @-> returning (void)) x -let removeAllRenderEffects self = msg_send ~self ~cmd:(selector "removeAllRenderEffects") ~typ:(returning (void)) -let renderEffects self = msg_send ~self ~cmd:(selector "renderEffects") ~typ:(returning (id)) -let renderFlags self = msg_send ~self ~cmd:(selector "renderFlags") ~typ:(returning (id)) -let renderFlagsForAboveEffects self = msg_send ~self ~cmd:(selector "renderFlagsForAboveEffects") ~typ:(returning (llong)) -let renderSecondarySymbolsSeparately self = msg_send ~self ~cmd:(selector "renderSecondarySymbolsSeparately") ~typ:(returning (bool)) -let secondarySymbolStyles self = msg_send ~self ~cmd:(selector "secondarySymbolStyles") ~typ:(returning (id)) -let setBackgroundGradient x self = msg_send ~self ~cmd:(selector "setBackgroundGradient:") ~typ:(id @-> returning (void)) x -let setBlendForm x self = msg_send ~self ~cmd:(selector "setBlendForm:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBlurBlending x self = msg_send ~self ~cmd:(selector "setBlurBlending:") ~typ:(bool @-> returning (void)) x -let setControlOpacities x self = msg_send ~self ~cmd:(selector "setControlOpacities:") ~typ:(bool @-> returning (void)) x -let setFallbackSymbolStyle x self = msg_send ~self ~cmd:(selector "setFallbackSymbolStyle:") ~typ:(id @-> returning (void)) x -let setGeometry x self = msg_send ~self ~cmd:(selector "setGeometry:") ~typ:(id @-> returning (void)) x -let setHashString x self = msg_send ~self ~cmd:(selector "setHashString:") ~typ:(id @-> returning (void)) x -let setHighlightedVariantTraits x self = msg_send ~self ~cmd:(selector "setHighlightedVariantTraits:") ~typ:(id @-> returning (void)) x -let setLayeredBackgroundGradient x self = msg_send ~self ~cmd:(selector "setLayeredBackgroundGradient:") ~typ:(id @-> returning (void)) x -let setLayeredForegroundGradient x self = msg_send ~self ~cmd:(selector "setLayeredForegroundGradient:") ~typ:(id @-> returning (void)) x -let setRenderFlags x self = msg_send ~self ~cmd:(selector "setRenderFlags:") ~typ:(id @-> returning (void)) x -let setRenderFlagsForAboveEffects x self = msg_send ~self ~cmd:(selector "setRenderFlagsForAboveEffects:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setRenderSecondarySymbolsSeparately x self = msg_send ~self ~cmd:(selector "setRenderSecondarySymbolsSeparately:") ~typ:(bool @-> returning (void)) x -let setSecondarySymbolStyles x self = msg_send ~self ~cmd:(selector "setSecondarySymbolStyles:") ~typ:(id @-> returning (void)) x -let setSymbolStyle x self = msg_send ~self ~cmd:(selector "setSymbolStyle:") ~typ:(id @-> returning (void)) x -let setVariantGeometries x self = msg_send ~self ~cmd:(selector "setVariantGeometries:") ~typ:(id @-> returning (void)) x -let setVariantTraits x self = msg_send ~self ~cmd:(selector "setVariantTraits:") ~typ:(id @-> returning (void)) x -let symbolStyle self = msg_send ~self ~cmd:(selector "symbolStyle") ~typ:(returning (id)) -let variantGeometries self = msg_send ~self ~cmd:(selector "variantGeometries") ~typ:(returning (id)) -let variantTraits self = msg_send ~self ~cmd:(selector "variantTraits") ~typ:(returning (id)) \ No newline at end of file +let addForegroundRenderEffect x self = msg_send ~self ~cmd:(selector "addForegroundRenderEffect:") ~typ:(id @-> returning void) x +let addRenderEffect x self = msg_send ~self ~cmd:(selector "addRenderEffect:") ~typ:(id @-> returning void) x +let backgroundGradient self = msg_send ~self ~cmd:(selector "backgroundGradient") ~typ:(returning id) +let blendForm self = msg_send ~self ~cmd:(selector "blendForm") ~typ:(returning llong) +let blurBlending self = msg_send ~self ~cmd:(selector "blurBlending") ~typ:(returning bool) +let controlOpacities self = msg_send ~self ~cmd:(selector "controlOpacities") ~typ:(returning bool) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let fallbackSymbolStyle self = msg_send ~self ~cmd:(selector "fallbackSymbolStyle") ~typ:(returning id) +let foregroundRenderEffects self = msg_send ~self ~cmd:(selector "foregroundRenderEffects") ~typ:(returning id) +let geometry self = msg_send ~self ~cmd:(selector "geometry") ~typ:(returning id) +let hashString self = msg_send ~self ~cmd:(selector "hashString") ~typ:(returning id) +let highlightedVariantTraits self = msg_send ~self ~cmd:(selector "highlightedVariantTraits") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let layeredBackgroundGradient self = msg_send ~self ~cmd:(selector "layeredBackgroundGradient") ~typ:(returning id) +let layeredForegroundGradient self = msg_send ~self ~cmd:(selector "layeredForegroundGradient") ~typ:(returning id) +let modifyForMasking self = msg_send ~self ~cmd:(selector "modifyForMasking") ~typ:(returning void) +let overlayWithTraits x self = msg_send ~self ~cmd:(selector "overlayWithTraits:") ~typ:(id @-> returning void) x +let removeAllRenderEffects self = msg_send ~self ~cmd:(selector "removeAllRenderEffects") ~typ:(returning void) +let renderEffects self = msg_send ~self ~cmd:(selector "renderEffects") ~typ:(returning id) +let renderFlags self = msg_send ~self ~cmd:(selector "renderFlags") ~typ:(returning id) +let renderFlagsForAboveEffects self = msg_send ~self ~cmd:(selector "renderFlagsForAboveEffects") ~typ:(returning llong) +let renderSecondarySymbolsSeparately self = msg_send ~self ~cmd:(selector "renderSecondarySymbolsSeparately") ~typ:(returning bool) +let secondarySymbolStyles self = msg_send ~self ~cmd:(selector "secondarySymbolStyles") ~typ:(returning id) +let setBackgroundGradient x self = msg_send ~self ~cmd:(selector "setBackgroundGradient:") ~typ:(id @-> returning void) x +let setBlendForm x self = msg_send ~self ~cmd:(selector "setBlendForm:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBlurBlending x self = msg_send ~self ~cmd:(selector "setBlurBlending:") ~typ:(bool @-> returning void) x +let setControlOpacities x self = msg_send ~self ~cmd:(selector "setControlOpacities:") ~typ:(bool @-> returning void) x +let setFallbackSymbolStyle x self = msg_send ~self ~cmd:(selector "setFallbackSymbolStyle:") ~typ:(id @-> returning void) x +let setGeometry x self = msg_send ~self ~cmd:(selector "setGeometry:") ~typ:(id @-> returning void) x +let setHashString x self = msg_send ~self ~cmd:(selector "setHashString:") ~typ:(id @-> returning void) x +let setHighlightedVariantTraits x self = msg_send ~self ~cmd:(selector "setHighlightedVariantTraits:") ~typ:(id @-> returning void) x +let setLayeredBackgroundGradient x self = msg_send ~self ~cmd:(selector "setLayeredBackgroundGradient:") ~typ:(id @-> returning void) x +let setLayeredForegroundGradient x self = msg_send ~self ~cmd:(selector "setLayeredForegroundGradient:") ~typ:(id @-> returning void) x +let setRenderFlags x self = msg_send ~self ~cmd:(selector "setRenderFlags:") ~typ:(id @-> returning void) x +let setRenderFlagsForAboveEffects x self = msg_send ~self ~cmd:(selector "setRenderFlagsForAboveEffects:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setRenderSecondarySymbolsSeparately x self = msg_send ~self ~cmd:(selector "setRenderSecondarySymbolsSeparately:") ~typ:(bool @-> returning void) x +let setSecondarySymbolStyles x self = msg_send ~self ~cmd:(selector "setSecondarySymbolStyles:") ~typ:(id @-> returning void) x +let setSymbolStyle x self = msg_send ~self ~cmd:(selector "setSymbolStyle:") ~typ:(id @-> returning void) x +let setVariantGeometries x self = msg_send ~self ~cmd:(selector "setVariantGeometries:") ~typ:(id @-> returning void) x +let setVariantTraits x self = msg_send ~self ~cmd:(selector "setVariantTraits:") ~typ:(id @-> returning void) x +let symbolStyle self = msg_send ~self ~cmd:(selector "symbolStyle") ~typ:(returning id) +let variantGeometries self = msg_send ~self ~cmd:(selector "variantGeometries") ~typ:(returning id) +let variantTraits self = msg_send ~self ~cmd:(selector "variantTraits") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderTraitsClass.ml b/uikit_extra/UIKBRenderTraitsClass.ml new file mode 100644 index 00000000..2375af0a --- /dev/null +++ b/uikit_extra/UIKBRenderTraitsClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrendertraits?language=objc}UIKBRenderTraits} *) + +let emptyTraits self = msg_send ~self ~cmd:(selector "emptyTraits") ~typ:(returning id) +let traitsWithGeometry x self = msg_send ~self ~cmd:(selector "traitsWithGeometry:") ~typ:(id @-> returning id) x +let traitsWithSymbolStyle x self = msg_send ~self ~cmd:(selector "traitsWithSymbolStyle:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBRenderer.ml b/uikit_extra/UIKBRenderer.ml index ac3090f8..e237b46a 100644 --- a/uikit_extra/UIKBRenderer.ml +++ b/uikit_extra/UIKBRenderer.ml @@ -5,65 +5,63 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderer" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderer?language=objc}UIKBRenderer} *) -module C = struct - let clearInternalCaches self = msg_send ~self ~cmd:(selector "clearInternalCaches") ~typ:(returning (void)) - let imageContextWithSize x ~scale ~colorFormat ~opaque ~invert self = msg_send ~self ~cmd:(selector "imageContextWithSize:scale:colorFormat:opaque:invert:") ~typ:(CGSize.t @-> double @-> llong @-> bool @-> bool @-> returning (id)) x scale (LLong.of_int colorFormat) opaque invert - let rendererWithContext x ~withSize ~withScale ~opaque ~renderFlags ~assetIdiom self = msg_send ~self ~cmd:(selector "rendererWithContext:withSize:withScale:opaque:renderFlags:assetIdiom:") ~typ:(id @-> CGSize.t @-> double @-> bool @-> llong @-> llong @-> returning (id)) x withSize withScale opaque (LLong.of_int renderFlags) (LLong.of_int assetIdiom) -end +let self = get_class "UIKBRenderer" -let addPathForFlickGeometry x self = msg_send ~self ~cmd:(selector "addPathForFlickGeometry:") ~typ:(id @-> returning (void)) x -let addPathForFlickPopupGeometries x self = msg_send ~self ~cmd:(selector "addPathForFlickPopupGeometries:") ~typ:(id @-> returning (void)) x -let addPathForRenderGeometry x self = msg_send ~self ~cmd:(selector "addPathForRenderGeometry:") ~typ:(id @-> returning (void)) x -let addPathForSplitGeometry x self = msg_send ~self ~cmd:(selector "addPathForSplitGeometry:") ~typ:(id @-> returning (void)) x -let addPathForTraits x ~displayRect self = msg_send ~self ~cmd:(selector "addPathForTraits:displayRect:") ~typ:(id @-> ptr (CGRect.t) @-> returning (void)) x displayRect -let addRoundRect x ~radius ~corners self = msg_send ~self ~cmd:(selector "addRoundRect:radius:corners:") ~typ:(CGRect.t @-> double @-> ullong @-> returning (void)) x radius (ULLong.of_int corners) -let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning (llong)) -let cacheKey self = msg_send ~self ~cmd:(selector "cacheKey") ~typ:(returning (id)) -let colorDetectMode self = msg_send ~self ~cmd:(selector "colorDetectMode") ~typ:(returning (bool)) -let contentColorFormat self = msg_send ~self ~cmd:(selector "contentColorFormat") ~typ:(returning (llong)) -let context self = msg_send ~self ~cmd:(selector "context") ~typ:(returning (id)) -let contextData self = msg_send ~self ~cmd:(selector "contextData") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultPathForRenderGeometry x self = msg_send ~self ~cmd:(selector "defaultPathForRenderGeometry:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let detectColorsForEffect x self = msg_send ~self ~cmd:(selector "detectColorsForEffect:") ~typ:(id @-> returning (void)) x -let detectColorsForGradient x self = msg_send ~self ~cmd:(selector "detectColorsForGradient:") ~typ:(id @-> returning (void)) x -let detectColorsForNamedColor x self = msg_send ~self ~cmd:(selector "detectColorsForNamedColor:") ~typ:(id @-> returning (void)) x -let disableInternalCaching self = msg_send ~self ~cmd:(selector "disableInternalCaching") ~typ:(returning (bool)) -let drawPath x ~weight ~transform ~color ~fill self = msg_send ~self ~cmd:(selector "drawPath:weight:transform:color:fill:") ~typ:(ptr void @-> double @-> ptr void @-> ptr void @-> bool @-> returning (void)) x weight transform color fill -let drawShiftPath x ~weight ~transform ~color self = msg_send ~self ~cmd:(selector "drawShiftPath:weight:transform:color:") ~typ:(bool @-> double @-> ptr void @-> ptr void @-> returning (void)) x weight transform color -let ensureContext self = msg_send ~self ~cmd:(selector "ensureContext") ~typ:(returning (void)) -let forceColorFormat x self = msg_send ~self ~cmd:(selector "forceColorFormat:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let initWithContext x ~withSize ~withScale ~opaque ~renderFlags ~assetIdiom self = msg_send ~self ~cmd:(selector "initWithContext:withSize:withScale:opaque:renderFlags:assetIdiom:") ~typ:(id @-> CGSize.t @-> double @-> bool @-> llong @-> llong @-> returning (id)) x withSize withScale opaque (LLong.of_int renderFlags) (LLong.of_int assetIdiom) -let loadCachedImageForHashString x self = msg_send ~self ~cmd:(selector "loadCachedImageForHashString:") ~typ:(id @-> returning (bool)) x -let opaque self = msg_send ~self ~cmd:(selector "opaque") ~typ:(returning (bool)) -let pathForConcaveCornerWithGeometry x self = msg_send ~self ~cmd:(selector "pathForConcaveCornerWithGeometry:") ~typ:(id @-> returning (id)) x -let pathForFlickGeometry x self = msg_send ~self ~cmd:(selector "pathForFlickGeometry:") ~typ:(id @-> returning (id)) x -let pathForFlickPopupGeometries x self = msg_send ~self ~cmd:(selector "pathForFlickPopupGeometries:") ~typ:(id @-> returning (id)) x -let pathForFlickWidth x ~height ~handleLength ~keyMiddle ~angle self = msg_send ~self ~cmd:(selector "pathForFlickWidth:height:handleLength:keyMiddle:angle:") ~typ:(double @-> double @-> double @-> CGPoint.t @-> double @-> returning (id)) x height handleLength keyMiddle angle -let pathForRenderGeometry x self = msg_send ~self ~cmd:(selector "pathForRenderGeometry:") ~typ:(id @-> returning (id)) x -let pathForSplitGeometry x self = msg_send ~self ~cmd:(selector "pathForSplitGeometry:") ~typ:(id @-> returning (id)) x -let renderBackgroundTraits x self = msg_send ~self ~cmd:(selector "renderBackgroundTraits:") ~typ:(id @-> returning (void)) x -let renderBackgroundTraits' x ~allowCaching self = msg_send ~self ~cmd:(selector "renderBackgroundTraits:allowCaching:") ~typ:(id @-> bool @-> returning (void)) x allowCaching -let renderDivotEffect x ~withTraits self = msg_send ~self ~cmd:(selector "renderDivotEffect:withTraits:") ~typ:(id @-> id @-> returning (void)) x withTraits -let renderEdgeEffect x ~withTraits self = msg_send ~self ~cmd:(selector "renderEdgeEffect:withTraits:") ~typ:(id @-> id @-> returning (void)) x withTraits -let renderFlags self = msg_send ~self ~cmd:(selector "renderFlags") ~typ:(returning (llong)) -let renderKeyContents x ~withTraits self = msg_send ~self ~cmd:(selector "renderKeyContents:withTraits:") ~typ:(id @-> id @-> returning (void)) x withTraits -let renderKeyImageContents x ~withTraits ~status self = msg_send ~self ~cmd:(selector "renderKeyImageContents:withTraits:status:") ~typ:(id @-> id @-> ullong @-> returning (ullong)) x withTraits (ULLong.of_int status) -let renderKeyPathContents x ~withTraits self = msg_send ~self ~cmd:(selector "renderKeyPathContents:withTraits:") ~typ:(id @-> id @-> returning (bool)) x withTraits -let renderKeyStringContents x ~withTraits ~status self = msg_send ~self ~cmd:(selector "renderKeyStringContents:withTraits:status:") ~typ:(id @-> id @-> ullong @-> returning (ullong)) x withTraits (ULLong.of_int status) -let renderNullEffect x ~withTraits self = msg_send ~self ~cmd:(selector "renderNullEffect:withTraits:") ~typ:(id @-> id @-> returning (void)) x withTraits -let renderShadowEffect x ~withTraits self = msg_send ~self ~cmd:(selector "renderShadowEffect:withTraits:") ~typ:(id @-> id @-> returning (void)) x withTraits -let renderedImage self = msg_send ~self ~cmd:(selector "renderedImage") ~typ:(returning (id)) -let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning (double)) -let setCacheKey x self = msg_send ~self ~cmd:(selector "setCacheKey:") ~typ:(id @-> returning (void)) x -let setColorDetectMode x self = msg_send ~self ~cmd:(selector "setColorDetectMode:") ~typ:(bool @-> returning (void)) x -let setDisableInternalCaching x self = msg_send ~self ~cmd:(selector "setDisableInternalCaching:") ~typ:(bool @-> returning (void)) x -let singleColor self = msg_send ~self ~cmd:(selector "singleColor") ~typ:(returning (id)) -let size self = msg_send_stret ~self ~cmd:(selector "size") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let symbolImageConfigForKey x ~traitCollection self = msg_send ~self ~cmd:(selector "symbolImageConfigForKey:traitCollection:") ~typ:(id @-> id @-> returning (id)) x traitCollection -let symbolImageRenderingModeForIdiom x self = msg_send ~self ~cmd:(selector "symbolImageRenderingModeForIdiom:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let watchPathForRenderGeometry x self = msg_send ~self ~cmd:(selector "watchPathForRenderGeometry:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let addPathForFlickGeometry x self = msg_send ~self ~cmd:(selector "addPathForFlickGeometry:") ~typ:(id @-> returning void) x +let addPathForFlickPopupGeometries x self = msg_send ~self ~cmd:(selector "addPathForFlickPopupGeometries:") ~typ:(id @-> returning void) x +let addPathForRenderGeometry x self = msg_send ~self ~cmd:(selector "addPathForRenderGeometry:") ~typ:(id @-> returning void) x +let addPathForSplitGeometry x self = msg_send ~self ~cmd:(selector "addPathForSplitGeometry:") ~typ:(id @-> returning void) x +let addPathForTraits x ~displayRect self = msg_send ~self ~cmd:(selector "addPathForTraits:displayRect:") ~typ:(id @-> (ptr CGRect.t) @-> returning void) x displayRect +let addRoundRect x ~radius ~corners self = msg_send ~self ~cmd:(selector "addRoundRect:radius:corners:") ~typ:(CGRect.t @-> double @-> ullong @-> returning void) x radius (ULLong.of_int corners) +let assetIdiom self = msg_send ~self ~cmd:(selector "assetIdiom") ~typ:(returning llong) +let cacheKey self = msg_send ~self ~cmd:(selector "cacheKey") ~typ:(returning id) +let colorDetectMode self = msg_send ~self ~cmd:(selector "colorDetectMode") ~typ:(returning bool) +let contentColorFormat self = msg_send ~self ~cmd:(selector "contentColorFormat") ~typ:(returning llong) +let context self = msg_send ~self ~cmd:(selector "context") ~typ:(returning (ptr CGContext.t)) +let contextData self = msg_send ~self ~cmd:(selector "contextData") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultPathForRenderGeometry x self = msg_send ~self ~cmd:(selector "defaultPathForRenderGeometry:") ~typ:(id @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let detectColorsForEffect x self = msg_send ~self ~cmd:(selector "detectColorsForEffect:") ~typ:(id @-> returning void) x +let detectColorsForGradient x self = msg_send ~self ~cmd:(selector "detectColorsForGradient:") ~typ:(id @-> returning void) x +let detectColorsForNamedColor x self = msg_send ~self ~cmd:(selector "detectColorsForNamedColor:") ~typ:(id @-> returning void) x +let disableInternalCaching self = msg_send ~self ~cmd:(selector "disableInternalCaching") ~typ:(returning bool) +let drawPath x ~weight ~transform ~color ~fill self = msg_send ~self ~cmd:(selector "drawPath:weight:transform:color:fill:") ~typ:((ptr CGPath.t) @-> double @-> CGAffineTransform.t @-> (ptr CGColor.t) @-> bool @-> returning void) x weight transform color fill +let drawShiftPath x ~weight ~transform ~color self = msg_send ~self ~cmd:(selector "drawShiftPath:weight:transform:color:") ~typ:(bool @-> double @-> CGAffineTransform.t @-> (ptr CGColor.t) @-> returning void) x weight transform color +let ensureContext self = msg_send ~self ~cmd:(selector "ensureContext") ~typ:(returning void) +let forceColorFormat x self = msg_send ~self ~cmd:(selector "forceColorFormat:") ~typ:(llong @-> returning void) (LLong.of_int x) +let initWithContext x ~withSize ~withScale ~opaque ~renderFlags ~assetIdiom self = msg_send ~self ~cmd:(selector "initWithContext:withSize:withScale:opaque:renderFlags:assetIdiom:") ~typ:((ptr CGContext.t) @-> CGSize.t @-> double @-> bool @-> llong @-> llong @-> returning id) x withSize withScale opaque (LLong.of_int renderFlags) (LLong.of_int assetIdiom) +let loadCachedImageForHashString x self = msg_send ~self ~cmd:(selector "loadCachedImageForHashString:") ~typ:(id @-> returning bool) x +let opaque self = msg_send ~self ~cmd:(selector "opaque") ~typ:(returning bool) +let pathForConcaveCornerWithGeometry x self = msg_send ~self ~cmd:(selector "pathForConcaveCornerWithGeometry:") ~typ:(id @-> returning id) x +let pathForFlickGeometry x self = msg_send ~self ~cmd:(selector "pathForFlickGeometry:") ~typ:(id @-> returning id) x +let pathForFlickPopupGeometries x self = msg_send ~self ~cmd:(selector "pathForFlickPopupGeometries:") ~typ:(id @-> returning id) x +let pathForFlickWidth x ~height ~handleLength ~keyMiddle ~angle self = msg_send ~self ~cmd:(selector "pathForFlickWidth:height:handleLength:keyMiddle:angle:") ~typ:(double @-> double @-> double @-> CGPoint.t @-> double @-> returning id) x height handleLength keyMiddle angle +let pathForRenderGeometry x self = msg_send ~self ~cmd:(selector "pathForRenderGeometry:") ~typ:(id @-> returning id) x +let pathForSplitGeometry x self = msg_send ~self ~cmd:(selector "pathForSplitGeometry:") ~typ:(id @-> returning id) x +let renderBackgroundTraits x self = msg_send ~self ~cmd:(selector "renderBackgroundTraits:") ~typ:(id @-> returning void) x +let renderBackgroundTraits' x ~allowCaching self = msg_send ~self ~cmd:(selector "renderBackgroundTraits:allowCaching:") ~typ:(id @-> bool @-> returning void) x allowCaching +let renderDivotEffect x ~withTraits self = msg_send ~self ~cmd:(selector "renderDivotEffect:withTraits:") ~typ:(id @-> id @-> returning void) x withTraits +let renderEdgeEffect x ~withTraits self = msg_send ~self ~cmd:(selector "renderEdgeEffect:withTraits:") ~typ:(id @-> id @-> returning void) x withTraits +let renderFlags self = msg_send ~self ~cmd:(selector "renderFlags") ~typ:(returning llong) +let renderKeyContents x ~withTraits self = msg_send ~self ~cmd:(selector "renderKeyContents:withTraits:") ~typ:(id @-> id @-> returning void) x withTraits +let renderKeyImageContents x ~withTraits ~status self = msg_send ~self ~cmd:(selector "renderKeyImageContents:withTraits:status:") ~typ:(id @-> id @-> ullong @-> returning ullong) x withTraits (ULLong.of_int status) +let renderKeyPathContents x ~withTraits self = msg_send ~self ~cmd:(selector "renderKeyPathContents:withTraits:") ~typ:(id @-> id @-> returning bool) x withTraits +let renderKeyStringContents x ~withTraits ~status self = msg_send ~self ~cmd:(selector "renderKeyStringContents:withTraits:status:") ~typ:(id @-> id @-> ullong @-> returning ullong) x withTraits (ULLong.of_int status) +let renderNullEffect x ~withTraits self = msg_send ~self ~cmd:(selector "renderNullEffect:withTraits:") ~typ:(id @-> id @-> returning void) x withTraits +let renderShadowEffect x ~withTraits self = msg_send ~self ~cmd:(selector "renderShadowEffect:withTraits:") ~typ:(id @-> id @-> returning void) x withTraits +let renderedImage self = msg_send ~self ~cmd:(selector "renderedImage") ~typ:(returning id) +let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning double) +let setCacheKey x self = msg_send ~self ~cmd:(selector "setCacheKey:") ~typ:(id @-> returning void) x +let setColorDetectMode x self = msg_send ~self ~cmd:(selector "setColorDetectMode:") ~typ:(bool @-> returning void) x +let setDisableInternalCaching x self = msg_send ~self ~cmd:(selector "setDisableInternalCaching:") ~typ:(bool @-> returning void) x +let singleColor self = msg_send ~self ~cmd:(selector "singleColor") ~typ:(returning id) +let size self = msg_send ~self ~cmd:(selector "size") ~typ:(returning CGSize.t) +let symbolImageConfigForKey x ~traitCollection self = msg_send ~self ~cmd:(selector "symbolImageConfigForKey:traitCollection:") ~typ:(id @-> id @-> returning id) x traitCollection +let symbolImageRenderingModeForIdiom x self = msg_send ~self ~cmd:(selector "symbolImageRenderingModeForIdiom:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let watchPathForRenderGeometry x self = msg_send ~self ~cmd:(selector "watchPathForRenderGeometry:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBRendererClass.ml b/uikit_extra/UIKBRendererClass.ml new file mode 100644 index 00000000..cde2e778 --- /dev/null +++ b/uikit_extra/UIKBRendererClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderer?language=objc}UIKBRenderer} *) + +let clearInternalCaches self = msg_send ~self ~cmd:(selector "clearInternalCaches") ~typ:(returning void) +let imageContextWithSize x ~scale ~colorFormat ~opaque ~invert self = msg_send ~self ~cmd:(selector "imageContextWithSize:scale:colorFormat:opaque:invert:") ~typ:(CGSize.t @-> double @-> llong @-> bool @-> bool @-> returning (ptr CGContext.t)) x scale (LLong.of_int colorFormat) opaque invert +let rendererWithContext x ~withSize ~withScale ~opaque ~renderFlags ~assetIdiom self = msg_send ~self ~cmd:(selector "rendererWithContext:withSize:withScale:opaque:renderFlags:assetIdiom:") ~typ:((ptr CGContext.t) @-> CGSize.t @-> double @-> bool @-> llong @-> llong @-> returning id) x withSize withScale opaque (LLong.of_int renderFlags) (LLong.of_int assetIdiom) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderingContext.ml b/uikit_extra/UIKBRenderingContext.ml index b239fbd3..560f4fd3 100644 --- a/uikit_extra/UIKBRenderingContext.ml +++ b/uikit_extra/UIKBRenderingContext.ml @@ -5,24 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBRenderingContext" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderingcontext?language=objc}UIKBRenderingContext} *) -module C = struct - let renderingContextForRenderConfig x self = msg_send ~self ~cmd:(selector "renderingContextForRenderConfig:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIKBRenderingContext" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let handBias self = msg_send ~self ~cmd:(selector "handBias") ~typ:(returning (llong)) -let initWithRenderConfig x self = msg_send ~self ~cmd:(selector "initWithRenderConfig:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isFloating self = msg_send ~self ~cmd:(selector "isFloating") ~typ:(returning (bool)) -let keyboardType self = msg_send ~self ~cmd:(selector "keyboardType") ~typ:(returning (llong)) -let renderConfig self = msg_send ~self ~cmd:(selector "renderConfig") ~typ:(returning (id)) -let setHandBias x self = msg_send ~self ~cmd:(selector "setHandBias:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setIsFloating x self = msg_send ~self ~cmd:(selector "setIsFloating:") ~typ:(bool @-> returning (void)) x -let setKeyboardType x self = msg_send ~self ~cmd:(selector "setKeyboardType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning (void)) x -let setShiftState x self = msg_send ~self ~cmd:(selector "setShiftState:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let shiftState self = msg_send ~self ~cmd:(selector "shiftState") ~typ:(returning (ullong)) \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let handBias self = msg_send ~self ~cmd:(selector "handBias") ~typ:(returning llong) +let initWithRenderConfig x self = msg_send ~self ~cmd:(selector "initWithRenderConfig:") ~typ:(id @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isFloating self = msg_send ~self ~cmd:(selector "isFloating") ~typ:(returning bool) +let keyboardType self = msg_send ~self ~cmd:(selector "keyboardType") ~typ:(returning llong) +let renderConfig self = msg_send ~self ~cmd:(selector "renderConfig") ~typ:(returning id) +let setHandBias x self = msg_send ~self ~cmd:(selector "setHandBias:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setIsFloating x self = msg_send ~self ~cmd:(selector "setIsFloating:") ~typ:(bool @-> returning void) x +let setKeyboardType x self = msg_send ~self ~cmd:(selector "setKeyboardType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning void) x +let setShiftState x self = msg_send ~self ~cmd:(selector "setShiftState:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let shiftState self = msg_send ~self ~cmd:(selector "shiftState") ~typ:(returning ullong) \ No newline at end of file diff --git a/uikit_extra/UIKBRenderingContextClass.ml b/uikit_extra/UIKBRenderingContextClass.ml new file mode 100644 index 00000000..37cf20a1 --- /dev/null +++ b/uikit_extra/UIKBRenderingContextClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbrenderingcontext?language=objc}UIKBRenderingContext} *) + +let renderingContextForRenderConfig x self = msg_send ~self ~cmd:(selector "renderingContextForRenderConfig:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBResizingKeyplaneCoordinator.ml b/uikit_extra/UIKBResizingKeyplaneCoordinator.ml index 3c122ed6..728e4d27 100644 --- a/uikit_extra/UIKBResizingKeyplaneCoordinator.ml +++ b/uikit_extra/UIKBResizingKeyplaneCoordinator.ml @@ -5,27 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBResizingKeyplaneCoordinator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbresizingkeyplanecoordinator?language=objc}UIKBResizingKeyplaneCoordinator} *) -module C = struct - let savedResizingOffset self = msg_send ~self ~cmd:(selector "savedResizingOffset") ~typ:(returning (double)) -end +let self = get_class "UIKBResizingKeyplaneCoordinator" -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let dimKeys x self = msg_send ~self ~cmd:(selector "dimKeys:") ~typ:(id @-> returning (void)) x -let gestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer") ~typ:(returning (id)) -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let handleResizeGesture x self = msg_send ~self ~cmd:(selector "handleResizeGesture:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isResizing self = msg_send ~self ~cmd:(selector "isResizing") ~typ:(returning (bool)) -let reloadResizingOffset self = msg_send ~self ~cmd:(selector "reloadResizingOffset") ~typ:(returning (void)) -let resizeKeyplaneWithOffset x ~andRedraw self = msg_send ~self ~cmd:(selector "resizeKeyplaneWithOffset:andRedraw:") ~typ:(double @-> bool @-> returning (void)) x andRedraw -let resizingOffset self = msg_send ~self ~cmd:(selector "resizingOffset") ~typ:(returning (double)) -let saveResizingStopIndex x self = msg_send ~self ~cmd:(selector "saveResizingStopIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning (void)) x -let stopResizing self = msg_send ~self ~cmd:(selector "stopResizing") ~typ:(returning (void)) -let uninstallGestureRecognizers self = msg_send ~self ~cmd:(selector "uninstallGestureRecognizers") ~typ:(returning (void)) -let updateGestureRecognizers self = msg_send ~self ~cmd:(selector "updateGestureRecognizers") ~typ:(returning (void)) -let updateGrabber self = msg_send ~self ~cmd:(selector "updateGrabber") ~typ:(returning (void)) \ No newline at end of file +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let dimKeys x self = msg_send ~self ~cmd:(selector "dimKeys:") ~typ:(id @-> returning void) x +let gestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer") ~typ:(returning id) +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let handleResizeGesture x self = msg_send ~self ~cmd:(selector "handleResizeGesture:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isResizing self = msg_send ~self ~cmd:(selector "isResizing") ~typ:(returning bool) +let reloadResizingOffset self = msg_send ~self ~cmd:(selector "reloadResizingOffset") ~typ:(returning void) +let resizeKeyplaneWithOffset x ~andRedraw self = msg_send ~self ~cmd:(selector "resizeKeyplaneWithOffset:andRedraw:") ~typ:(double @-> bool @-> returning void) x andRedraw +let resizingOffset self = msg_send ~self ~cmd:(selector "resizingOffset") ~typ:(returning double) +let saveResizingStopIndex x self = msg_send ~self ~cmd:(selector "saveResizingStopIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning void) x +let stopResizing self = msg_send ~self ~cmd:(selector "stopResizing") ~typ:(returning void) +let uninstallGestureRecognizers self = msg_send ~self ~cmd:(selector "uninstallGestureRecognizers") ~typ:(returning void) +let updateGestureRecognizers self = msg_send ~self ~cmd:(selector "updateGestureRecognizers") ~typ:(returning void) +let updateGrabber self = msg_send ~self ~cmd:(selector "updateGrabber") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKBResizingKeyplaneCoordinatorClass.ml b/uikit_extra/UIKBResizingKeyplaneCoordinatorClass.ml new file mode 100644 index 00000000..d3b8fea6 --- /dev/null +++ b/uikit_extra/UIKBResizingKeyplaneCoordinatorClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbresizingkeyplanecoordinator?language=objc}UIKBResizingKeyplaneCoordinator} *) + +let savedResizingOffset self = msg_send ~self ~cmd:(selector "savedResizingOffset") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIKBScreenTraits.ml b/uikit_extra/UIKBScreenTraits.ml index adc3ecfb..c01c2417 100644 --- a/uikit_extra/UIKBScreenTraits.ml +++ b/uikit_extra/UIKBScreenTraits.ml @@ -5,44 +5,39 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBScreenTraits" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbscreentraits?language=objc}UIKBScreenTraits} *) -module C = struct - let fullScreenTraitsWithScreen x ~orientation self = msg_send ~self ~cmd:(selector "fullScreenTraitsWithScreen:orientation:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int orientation) - let setMockIdiom x self = msg_send ~self ~cmd:(selector "setMockIdiom:") ~typ:(llong @-> returning (void)) (LLong.of_int x) - let traitsForInputModeWithScreen x self = msg_send ~self ~cmd:(selector "traitsForInputModeWithScreen:") ~typ:(id @-> returning (id)) x - let traitsForPopoverEmulatingWidth x ~minorEdge ~orientation ~idiom self = msg_send ~self ~cmd:(selector "traitsForPopoverEmulatingWidth:minorEdge:orientation:idiom:") ~typ:(double @-> bool @-> llong @-> llong @-> returning (id)) x minorEdge (LLong.of_int orientation) (LLong.of_int idiom) - let traitsWithScreen x ~orientation self = msg_send ~self ~cmd:(selector "traitsWithScreen:orientation:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int orientation) - let traitsWithScreen' x ~orientation ~ignoreRemoteKeyboard self = msg_send ~self ~cmd:(selector "traitsWithScreen:orientation:ignoreRemoteKeyboard:") ~typ:(id @-> llong @-> bool @-> returning (id)) x (LLong.of_int orientation) ignoreRemoteKeyboard -end +let self = get_class "UIKBScreenTraits" -let bounds self = msg_send_stret ~self ~cmd:(selector "bounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let centerFilled self = msg_send ~self ~cmd:(selector "centerFilled") ~typ:(returning (bool)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let idiom self = msg_send ~self ~cmd:(selector "idiom") ~typ:(returning (llong)) -let initForInputModeWithScreen x self = msg_send ~self ~cmd:(selector "initForInputModeWithScreen:") ~typ:(id @-> returning (id)) x -let initWithScreen x ~orientation ~allowFloating ~ignoreRemoteKeyboard self = msg_send ~self ~cmd:(selector "initWithScreen:orientation:allowFloating:ignoreRemoteKeyboard:") ~typ:(id @-> llong @-> bool @-> bool @-> returning (id)) x (LLong.of_int orientation) allowFloating ignoreRemoteKeyboard -let isFloating self = msg_send ~self ~cmd:(selector "isFloating") ~typ:(returning (bool)) -let isInPopover self = msg_send ~self ~cmd:(selector "isInPopover") ~typ:(returning (bool)) -let isKeyboardMinorEdgeWidth self = msg_send ~self ~cmd:(selector "isKeyboardMinorEdgeWidth") ~typ:(returning (bool)) -let isSplit self = msg_send ~self ~cmd:(selector "isSplit") ~typ:(returning (bool)) -let keyboardBarHeight self = msg_send ~self ~cmd:(selector "keyboardBarHeight") ~typ:(returning (double)) -let keyboardScreenReferenceSize self = msg_send_stret ~self ~cmd:(selector "keyboardScreenReferenceSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let keyboardWidth self = msg_send ~self ~cmd:(selector "keyboardWidth") ~typ:(returning (double)) -let knobInput self = msg_send ~self ~cmd:(selector "knobInput") ~typ:(returning (bool)) -let orientation self = msg_send ~self ~cmd:(selector "orientation") ~typ:(returning (llong)) -let screen self = msg_send ~self ~cmd:(selector "screen") ~typ:(returning (id)) -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setCenterFilled x self = msg_send ~self ~cmd:(selector "setCenterFilled:") ~typ:(bool @-> returning (void)) x -let setIsSplit x self = msg_send ~self ~cmd:(selector "setIsSplit:") ~typ:(bool @-> returning (void)) x -let setKeyboardBarHeight x self = msg_send ~self ~cmd:(selector "setKeyboardBarHeight:") ~typ:(double @-> returning (void)) x -let setKeyboardWidth x self = msg_send ~self ~cmd:(selector "setKeyboardWidth:") ~typ:(double @-> returning (void)) x -let setOrientation x self = msg_send ~self ~cmd:(selector "setOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setStretchFactor x self = msg_send ~self ~cmd:(selector "setStretchFactor:") ~typ:(CGSize.t @-> returning (void)) x -let setSupportsSplit x self = msg_send ~self ~cmd:(selector "setSupportsSplit:") ~typ:(bool @-> returning (void)) x -let stretchFactor self = msg_send_stret ~self ~cmd:(selector "stretchFactor") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let supportsSplit self = msg_send ~self ~cmd:(selector "supportsSplit") ~typ:(returning (bool)) -let touchInput self = msg_send ~self ~cmd:(selector "touchInput") ~typ:(returning (bool)) -let touchpadInput self = msg_send ~self ~cmd:(selector "touchpadInput") ~typ:(returning (bool)) -let updateForTextInputTraits x ~supportedInteractionModel self = msg_send ~self ~cmd:(selector "updateForTextInputTraits:supportedInteractionModel:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int supportedInteractionModel) \ No newline at end of file +let bounds self = msg_send ~self ~cmd:(selector "bounds") ~typ:(returning CGRect.t) +let centerFilled self = msg_send ~self ~cmd:(selector "centerFilled") ~typ:(returning bool) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let idiom self = msg_send ~self ~cmd:(selector "idiom") ~typ:(returning llong) +let initForInputModeWithScreen x self = msg_send ~self ~cmd:(selector "initForInputModeWithScreen:") ~typ:(id @-> returning id) x +let initWithScreen x ~orientation ~allowFloating ~ignoreRemoteKeyboard self = msg_send ~self ~cmd:(selector "initWithScreen:orientation:allowFloating:ignoreRemoteKeyboard:") ~typ:(id @-> llong @-> bool @-> bool @-> returning id) x (LLong.of_int orientation) allowFloating ignoreRemoteKeyboard +let isFloating self = msg_send ~self ~cmd:(selector "isFloating") ~typ:(returning bool) +let isInPopover self = msg_send ~self ~cmd:(selector "isInPopover") ~typ:(returning bool) +let isKeyboardMinorEdgeWidth self = msg_send ~self ~cmd:(selector "isKeyboardMinorEdgeWidth") ~typ:(returning bool) +let isSplit self = msg_send ~self ~cmd:(selector "isSplit") ~typ:(returning bool) +let keyboardBarHeight self = msg_send ~self ~cmd:(selector "keyboardBarHeight") ~typ:(returning double) +let keyboardScreenReferenceSize self = msg_send ~self ~cmd:(selector "keyboardScreenReferenceSize") ~typ:(returning CGSize.t) +let keyboardWidth self = msg_send ~self ~cmd:(selector "keyboardWidth") ~typ:(returning double) +let knobInput self = msg_send ~self ~cmd:(selector "knobInput") ~typ:(returning bool) +let orientation self = msg_send ~self ~cmd:(selector "orientation") ~typ:(returning llong) +let screen self = msg_send ~self ~cmd:(selector "screen") ~typ:(returning id) +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setCenterFilled x self = msg_send ~self ~cmd:(selector "setCenterFilled:") ~typ:(bool @-> returning void) x +let setIsSplit x self = msg_send ~self ~cmd:(selector "setIsSplit:") ~typ:(bool @-> returning void) x +let setKeyboardBarHeight x self = msg_send ~self ~cmd:(selector "setKeyboardBarHeight:") ~typ:(double @-> returning void) x +let setKeyboardWidth x self = msg_send ~self ~cmd:(selector "setKeyboardWidth:") ~typ:(double @-> returning void) x +let setOrientation x self = msg_send ~self ~cmd:(selector "setOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setStretchFactor x self = msg_send ~self ~cmd:(selector "setStretchFactor:") ~typ:(CGSize.t @-> returning void) x +let setSupportsSplit x self = msg_send ~self ~cmd:(selector "setSupportsSplit:") ~typ:(bool @-> returning void) x +let stretchFactor self = msg_send ~self ~cmd:(selector "stretchFactor") ~typ:(returning CGSize.t) +let supportsSplit self = msg_send ~self ~cmd:(selector "supportsSplit") ~typ:(returning bool) +let touchInput self = msg_send ~self ~cmd:(selector "touchInput") ~typ:(returning bool) +let touchpadInput self = msg_send ~self ~cmd:(selector "touchpadInput") ~typ:(returning bool) +let updateForTextInputTraits x ~supportedInteractionModel self = msg_send ~self ~cmd:(selector "updateForTextInputTraits:supportedInteractionModel:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int supportedInteractionModel) \ No newline at end of file diff --git a/uikit_extra/UIKBScreenTraitsClass.ml b/uikit_extra/UIKBScreenTraitsClass.ml new file mode 100644 index 00000000..a717bb60 --- /dev/null +++ b/uikit_extra/UIKBScreenTraitsClass.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbscreentraits?language=objc}UIKBScreenTraits} *) + +let fullScreenTraitsWithScreen x ~orientation self = msg_send ~self ~cmd:(selector "fullScreenTraitsWithScreen:orientation:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int orientation) +let setMockIdiom x self = msg_send ~self ~cmd:(selector "setMockIdiom:") ~typ:(llong @-> returning void) (LLong.of_int x) +let traitsForInputModeWithScreen x self = msg_send ~self ~cmd:(selector "traitsForInputModeWithScreen:") ~typ:(id @-> returning id) x +let traitsForPopoverEmulatingWidth x ~minorEdge ~orientation ~idiom self = msg_send ~self ~cmd:(selector "traitsForPopoverEmulatingWidth:minorEdge:orientation:idiom:") ~typ:(double @-> bool @-> llong @-> llong @-> returning id) x minorEdge (LLong.of_int orientation) (LLong.of_int idiom) +let traitsWithScreen x ~orientation self = msg_send ~self ~cmd:(selector "traitsWithScreen:orientation:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int orientation) +let traitsWithScreen' x ~orientation ~ignoreRemoteKeyboard self = msg_send ~self ~cmd:(selector "traitsWithScreen:orientation:ignoreRemoteKeyboard:") ~typ:(id @-> llong @-> bool @-> returning id) x (LLong.of_int orientation) ignoreRemoteKeyboard \ No newline at end of file diff --git a/uikit_extra/UIKBShadowEffect.ml b/uikit_extra/UIKBShadowEffect.ml index 38cca122..0d2cc7fa 100644 --- a/uikit_extra/UIKBShadowEffect.ml +++ b/uikit_extra/UIKBShadowEffect.ml @@ -5,27 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBShadowEffect" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbshadoweffect?language=objc}UIKBShadowEffect} *) -module C = struct - let effectWithColor x ~offset ~insets ~weight self = msg_send ~self ~cmd:(selector "effectWithColor:offset:insets:weight:") ~typ:(id @-> CGSize.t @-> ptr void @-> double @-> returning (id)) x offset insets weight -end +let self = get_class "UIKBShadowEffect" -let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr void)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let gradient self = msg_send ~self ~cmd:(selector "gradient") ~typ:(returning (id)) -let initWithColor x ~offset ~insets ~weight self = msg_send ~self ~cmd:(selector "initWithColor:offset:insets:weight:") ~typ:(id @-> CGSize.t @-> ptr void @-> double @-> returning (id)) x offset insets weight -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning (bool)) -let offset self = msg_send_stret ~self ~cmd:(selector "offset") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let renderSelector self = msg_send ~self ~cmd:(selector "renderSelector") ~typ:(returning (_SEL)) -let renderUnder self = msg_send ~self ~cmd:(selector "renderUnder") ~typ:(returning (bool)) -let setConcaveInsets x self = msg_send ~self ~cmd:(selector "setConcaveInsets:") ~typ:(ptr void @-> returning (void)) x -let setInsets x self = msg_send ~self ~cmd:(selector "setInsets:") ~typ:(ptr void @-> returning (void)) x -let setOffset x self = msg_send ~self ~cmd:(selector "setOffset:") ~typ:(CGSize.t @-> returning (void)) x -let setWeight x self = msg_send ~self ~cmd:(selector "setWeight:") ~typ:(double @-> returning (void)) x -let usesRGBColors self = msg_send ~self ~cmd:(selector "usesRGBColors") ~typ:(returning (bool)) -let weight self = msg_send ~self ~cmd:(selector "weight") ~typ:(returning (double)) \ No newline at end of file +let _CGColor self = msg_send ~self ~cmd:(selector "CGColor") ~typ:(returning (ptr CGColor.t)) +let concaveInsets self = msg_send ~self ~cmd:(selector "concaveInsets") ~typ:(returning UIEdgeInsets.t) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let gradient self = msg_send ~self ~cmd:(selector "gradient") ~typ:(returning id) +let initWithColor x ~offset ~insets ~weight self = msg_send ~self ~cmd:(selector "initWithColor:offset:insets:weight:") ~typ:(id @-> CGSize.t @-> UIEdgeInsets.t @-> double @-> returning id) x offset insets weight +let insets self = msg_send ~self ~cmd:(selector "insets") ~typ:(returning UIEdgeInsets.t) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isValid self = msg_send ~self ~cmd:(selector "isValid") ~typ:(returning bool) +let offset self = msg_send ~self ~cmd:(selector "offset") ~typ:(returning CGSize.t) +let renderSelector self = msg_send ~self ~cmd:(selector "renderSelector") ~typ:(returning _SEL) +let renderUnder self = msg_send ~self ~cmd:(selector "renderUnder") ~typ:(returning bool) +let setConcaveInsets x self = msg_send ~self ~cmd:(selector "setConcaveInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setInsets x self = msg_send ~self ~cmd:(selector "setInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setOffset x self = msg_send ~self ~cmd:(selector "setOffset:") ~typ:(CGSize.t @-> returning void) x +let setWeight x self = msg_send ~self ~cmd:(selector "setWeight:") ~typ:(double @-> returning void) x +let usesRGBColors self = msg_send ~self ~cmd:(selector "usesRGBColors") ~typ:(returning bool) +let weight self = msg_send ~self ~cmd:(selector "weight") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIKBShadowEffectClass.ml b/uikit_extra/UIKBShadowEffectClass.ml new file mode 100644 index 00000000..d582d966 --- /dev/null +++ b/uikit_extra/UIKBShadowEffectClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbshadoweffect?language=objc}UIKBShadowEffect} *) + +let effectWithColor x ~offset ~insets ~weight self = msg_send ~self ~cmd:(selector "effectWithColor:offset:insets:weight:") ~typ:(id @-> CGSize.t @-> UIEdgeInsets.t @-> double @-> returning id) x offset insets weight \ No newline at end of file diff --git a/uikit_extra/UIKBShape.ml b/uikit_extra/UIKBShape.ml index bcec98af..9cbeadcb 100644 --- a/uikit_extra/UIKBShape.ml +++ b/uikit_extra/UIKBShape.ml @@ -5,47 +5,45 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBShape" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbshape?language=objc}UIKBShape} *) -module C = struct - let shape self = msg_send ~self ~cmd:(selector "shape") ~typ:(returning (id)) - let shapeByCombining x ~withShape self = msg_send ~self ~cmd:(selector "shapeByCombining:withShape:") ~typ:(id @-> id @-> returning (id)) x withShape - let shapeByResizingShape x ~byAmount self = msg_send ~self ~cmd:(selector "shapeByResizingShape:byAmount:") ~typ:(id @-> CGSize.t @-> returning (id)) x byAmount -end +let self = get_class "UIKBShape" -let addRectFrom x self = msg_send ~self ~cmd:(selector "addRectFrom:") ~typ:(id @-> returning (void)) x -let addRectFrom1 x ~mergeActionFactors self = msg_send ~self ~cmd:(selector "addRectFrom:mergeActionFactors:") ~typ:(id @-> id @-> returning (void)) x mergeActionFactors -let addRectFrom2 x ~widthFraction ~heightFraction ~adjustOriginXFactor ~adjustOriginYFactor self = msg_send ~self ~cmd:(selector "addRectFrom:widthFraction:heightFraction:adjustOriginXFactor:adjustOriginYFactor:") ~typ:(id @-> double @-> double @-> double @-> double @-> returning (void)) x widthFraction heightFraction adjustOriginXFactor adjustOriginYFactor -let addRectFrom3 x ~widthFraction ~heightFraction ~adjustOriginXFactor ~adjustOriginYFactor ~absoluteOriginFactors self = msg_send ~self ~cmd:(selector "addRectFrom:widthFraction:heightFraction:adjustOriginXFactor:adjustOriginYFactor:absoluteOriginFactors:") ~typ:(id @-> double @-> double @-> double @-> double @-> bool @-> returning (void)) x widthFraction heightFraction adjustOriginXFactor adjustOriginYFactor absoluteOriginFactors -let concaveCorner self = msg_send ~self ~cmd:(selector "concaveCorner") ~typ:(returning (ullong)) -let concaveCornerOffset self = msg_send_stret ~self ~cmd:(selector "concaveCornerOffset") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let frame self = msg_send_stret ~self ~cmd:(selector "frame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let geometry self = msg_send ~self ~cmd:(selector "geometry") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithGeometry x ~frame ~paddedFrame self = msg_send ~self ~cmd:(selector "initWithGeometry:frame:paddedFrame:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> returning (id)) x frame paddedFrame -let initWithGeometry' x ~frame ~paddedFrame ~concaveCorner ~concaveCornerOffset self = msg_send ~self ~cmd:(selector "initWithGeometry:frame:paddedFrame:concaveCorner:concaveCornerOffset:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> ullong @-> CGSize.t @-> returning (id)) x frame paddedFrame (ULLong.of_int concaveCorner) concaveCornerOffset -let isEmpty self = msg_send ~self ~cmd:(selector "isEmpty") ~typ:(returning (bool)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let makeLikeOther x self = msg_send ~self ~cmd:(selector "makeLikeOther:") ~typ:(id @-> returning (void)) x -let originalShape self = msg_send ~self ~cmd:(selector "originalShape") ~typ:(returning (id)) -let paddedFrame self = msg_send_stret ~self ~cmd:(selector "paddedFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let scaleIfNeeded x ~onlyYAxis self = msg_send ~self ~cmd:(selector "scaleIfNeeded:onlyYAxis:") ~typ:(double @-> bool @-> returning (void)) x onlyYAxis -let scaleWidth x self = msg_send ~self ~cmd:(selector "scaleWidth:") ~typ:(double @-> returning (void)) x -let scaled self = msg_send ~self ~cmd:(selector "scaled") ~typ:(returning (bool)) -let setConcaveCorner x self = msg_send ~self ~cmd:(selector "setConcaveCorner:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setConcaveCornerOffset x self = msg_send ~self ~cmd:(selector "setConcaveCornerOffset:") ~typ:(CGSize.t @-> returning (void)) x -let setConcaveCornerSize x self = msg_send ~self ~cmd:(selector "setConcaveCornerSize:") ~typ:(CGSize.t @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setGeometry x self = msg_send ~self ~cmd:(selector "setGeometry:") ~typ:(id @-> returning (void)) x -let setOriginalShape x self = msg_send ~self ~cmd:(selector "setOriginalShape:") ~typ:(id @-> returning (void)) x -let setPaddedFrame x self = msg_send ~self ~cmd:(selector "setPaddedFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setScaled x self = msg_send ~self ~cmd:(selector "setScaled:") ~typ:(bool @-> returning (void)) x -let shouldUseGeometry self = msg_send ~self ~cmd:(selector "shouldUseGeometry") ~typ:(returning (bool)) -let uid self = msg_send ~self ~cmd:(selector "uid") ~typ:(returning (ullong)) \ No newline at end of file +let addRectFrom x self = msg_send ~self ~cmd:(selector "addRectFrom:") ~typ:(id @-> returning void) x +let addRectFrom1 x ~mergeActionFactors self = msg_send ~self ~cmd:(selector "addRectFrom:mergeActionFactors:") ~typ:(id @-> id @-> returning void) x mergeActionFactors +let addRectFrom2 x ~widthFraction ~heightFraction ~adjustOriginXFactor ~adjustOriginYFactor self = msg_send ~self ~cmd:(selector "addRectFrom:widthFraction:heightFraction:adjustOriginXFactor:adjustOriginYFactor:") ~typ:(id @-> double @-> double @-> double @-> double @-> returning void) x widthFraction heightFraction adjustOriginXFactor adjustOriginYFactor +let addRectFrom3 x ~widthFraction ~heightFraction ~adjustOriginXFactor ~adjustOriginYFactor ~absoluteOriginFactors self = msg_send ~self ~cmd:(selector "addRectFrom:widthFraction:heightFraction:adjustOriginXFactor:adjustOriginYFactor:absoluteOriginFactors:") ~typ:(id @-> double @-> double @-> double @-> double @-> bool @-> returning void) x widthFraction heightFraction adjustOriginXFactor adjustOriginYFactor absoluteOriginFactors +let concaveCorner self = msg_send ~self ~cmd:(selector "concaveCorner") ~typ:(returning ullong) +let concaveCornerOffset self = msg_send ~self ~cmd:(selector "concaveCornerOffset") ~typ:(returning CGSize.t) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let frame self = msg_send ~self ~cmd:(selector "frame") ~typ:(returning CGRect.t) +let geometry self = msg_send ~self ~cmd:(selector "geometry") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let initWithGeometry x ~frame ~paddedFrame self = msg_send ~self ~cmd:(selector "initWithGeometry:frame:paddedFrame:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> returning id) x frame paddedFrame +let initWithGeometry' x ~frame ~paddedFrame ~concaveCorner ~concaveCornerOffset self = msg_send ~self ~cmd:(selector "initWithGeometry:frame:paddedFrame:concaveCorner:concaveCornerOffset:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> ullong @-> CGSize.t @-> returning id) x frame paddedFrame (ULLong.of_int concaveCorner) concaveCornerOffset +let isEmpty self = msg_send ~self ~cmd:(selector "isEmpty") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let makeLikeOther x self = msg_send ~self ~cmd:(selector "makeLikeOther:") ~typ:(id @-> returning void) x +let originalShape self = msg_send ~self ~cmd:(selector "originalShape") ~typ:(returning id) +let paddedFrame self = msg_send ~self ~cmd:(selector "paddedFrame") ~typ:(returning CGRect.t) +let scaleIfNeeded x ~onlyYAxis self = msg_send ~self ~cmd:(selector "scaleIfNeeded:onlyYAxis:") ~typ:(double @-> bool @-> returning void) x onlyYAxis +let scaleWidth x self = msg_send ~self ~cmd:(selector "scaleWidth:") ~typ:(double @-> returning void) x +let scaled self = msg_send ~self ~cmd:(selector "scaled") ~typ:(returning bool) +let setConcaveCorner x self = msg_send ~self ~cmd:(selector "setConcaveCorner:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setConcaveCornerOffset x self = msg_send ~self ~cmd:(selector "setConcaveCornerOffset:") ~typ:(CGSize.t @-> returning void) x +let setConcaveCornerSize x self = msg_send ~self ~cmd:(selector "setConcaveCornerSize:") ~typ:(CGSize.t @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setGeometry x self = msg_send ~self ~cmd:(selector "setGeometry:") ~typ:(id @-> returning void) x +let setOriginalShape x self = msg_send ~self ~cmd:(selector "setOriginalShape:") ~typ:(id @-> returning void) x +let setPaddedFrame x self = msg_send ~self ~cmd:(selector "setPaddedFrame:") ~typ:(CGRect.t @-> returning void) x +let setScaled x self = msg_send ~self ~cmd:(selector "setScaled:") ~typ:(bool @-> returning void) x +let shouldUseGeometry self = msg_send ~self ~cmd:(selector "shouldUseGeometry") ~typ:(returning bool) +let uid self = msg_send ~self ~cmd:(selector "uid") ~typ:(returning ullong) \ No newline at end of file diff --git a/uikit_extra/UIKBShapeClass.ml b/uikit_extra/UIKBShapeClass.ml new file mode 100644 index 00000000..792054fa --- /dev/null +++ b/uikit_extra/UIKBShapeClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbshape?language=objc}UIKBShape} *) + +let shape self = msg_send ~self ~cmd:(selector "shape") ~typ:(returning id) +let shapeByCombining x ~withShape self = msg_send ~self ~cmd:(selector "shapeByCombining:withShape:") ~typ:(id @-> id @-> returning id) x withShape +let shapeByResizingShape x ~byAmount self = msg_send ~self ~cmd:(selector "shapeByResizingShape:byAmount:") ~typ:(id @-> CGSize.t @-> returning id) x byAmount \ No newline at end of file diff --git a/uikit_extra/UIKBShapeOperator.ml b/uikit_extra/UIKBShapeOperator.ml index 310e166f..137e242e 100644 --- a/uikit_extra/UIKBShapeOperator.ml +++ b/uikit_extra/UIKBShapeOperator.ml @@ -5,26 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBShapeOperator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbshapeoperator?language=objc}UIKBShapeOperator} *) -module C = struct - let operatorWithScale x self = msg_send ~self ~cmd:(selector "operatorWithScale:") ~typ:(double @-> returning (id)) x -end +let self = get_class "UIKBShapeOperator" -let geometryByScalingShapeGeometry x ~factor self = msg_send ~self ~cmd:(selector "geometryByScalingShapeGeometry:factor:") ~typ:(id @-> CGSize.t @-> returning (id)) x factor -let offsetForCenteringShapes x ~insideRect self = msg_send_stret ~self ~cmd:(selector "offsetForCenteringShapes:insideRect:") ~typ:(id @-> CGRect.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x insideRect -let rectByScalingRect x ~factor self = msg_send_stret ~self ~cmd:(selector "rectByScalingRect:factor:") ~typ:(CGRect.t @-> CGSize.t @-> returning (CGRect.t)) ~return_type:CGRect.t x factor -let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning (double)) -let setScale x self = msg_send ~self ~cmd:(selector "setScale:") ~typ:(double @-> returning (void)) x -let shapeByScalingShape x ~factor self = msg_send ~self ~cmd:(selector "shapeByScalingShape:factor:") ~typ:(id @-> CGSize.t @-> returning (id)) x factor -let shapesByCenteringShapes x ~insideRect self = msg_send ~self ~cmd:(selector "shapesByCenteringShapes:insideRect:") ~typ:(id @-> CGRect.t @-> returning (id)) x insideRect -let shapesByCenteringShapesPreservingLayout x ~insideRect self = msg_send ~self ~cmd:(selector "shapesByCenteringShapesPreservingLayout:insideRect:") ~typ:(id @-> CGRect.t @-> returning (id)) x insideRect -let shapesByCenteringShapesPreservingLayout' x ~insideRect ~horizontal ~vertical self = msg_send ~self ~cmd:(selector "shapesByCenteringShapesPreservingLayout:insideRect:horizontal:vertical:") ~typ:(id @-> CGRect.t @-> bool @-> bool @-> returning (id)) x insideRect horizontal vertical -let shapesByElaboratingShapes x ~insideShape ~count self = msg_send ~self ~cmd:(selector "shapesByElaboratingShapes:insideShape:count:") ~typ:(id @-> id @-> llong @-> returning (id)) x insideShape (LLong.of_int count) -let shapesByHorizontallyCenteringShapesPreservingLayout x ~insideRect self = msg_send ~self ~cmd:(selector "shapesByHorizontallyCenteringShapesPreservingLayout:insideRect:") ~typ:(id @-> CGRect.t @-> returning (id)) x insideRect -let shapesByInsettingShapes x ~withInsets self = msg_send ~self ~cmd:(selector "shapesByInsettingShapes:withInsets:") ~typ:(id @-> ptr void @-> returning (id)) x withInsets -let shapesByRepositioningShapes x ~withOffset self = msg_send ~self ~cmd:(selector "shapesByRepositioningShapes:withOffset:") ~typ:(id @-> CGPoint.t @-> returning (id)) x withOffset -let shapesByResizingShapes x ~withOffset self = msg_send ~self ~cmd:(selector "shapesByResizingShapes:withOffset:") ~typ:(id @-> CGPoint.t @-> returning (id)) x withOffset -let shapesByScalingShapes x ~factor self = msg_send ~self ~cmd:(selector "shapesByScalingShapes:factor:") ~typ:(id @-> CGSize.t @-> returning (id)) x factor -let shapesByVerticallyCenteringShapesPreservingLayout x ~insideRect self = msg_send ~self ~cmd:(selector "shapesByVerticallyCenteringShapesPreservingLayout:insideRect:") ~typ:(id @-> CGRect.t @-> returning (id)) x insideRect \ No newline at end of file +let geometryByScalingShapeGeometry x ~factor self = msg_send ~self ~cmd:(selector "geometryByScalingShapeGeometry:factor:") ~typ:(id @-> CGSize.t @-> returning id) x factor +let offsetForCenteringShapes x ~insideRect self = msg_send ~self ~cmd:(selector "offsetForCenteringShapes:insideRect:") ~typ:(id @-> CGRect.t @-> returning CGPoint.t) x insideRect +let rectByScalingRect x ~factor self = msg_send ~self ~cmd:(selector "rectByScalingRect:factor:") ~typ:(CGRect.t @-> CGSize.t @-> returning CGRect.t) x factor +let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning double) +let setScale x self = msg_send ~self ~cmd:(selector "setScale:") ~typ:(double @-> returning void) x +let shapeByScalingShape x ~factor self = msg_send ~self ~cmd:(selector "shapeByScalingShape:factor:") ~typ:(id @-> CGSize.t @-> returning id) x factor +let shapesByCenteringShapes x ~insideRect self = msg_send ~self ~cmd:(selector "shapesByCenteringShapes:insideRect:") ~typ:(id @-> CGRect.t @-> returning id) x insideRect +let shapesByCenteringShapesPreservingLayout x ~insideRect self = msg_send ~self ~cmd:(selector "shapesByCenteringShapesPreservingLayout:insideRect:") ~typ:(id @-> CGRect.t @-> returning id) x insideRect +let shapesByCenteringShapesPreservingLayout' x ~insideRect ~horizontal ~vertical self = msg_send ~self ~cmd:(selector "shapesByCenteringShapesPreservingLayout:insideRect:horizontal:vertical:") ~typ:(id @-> CGRect.t @-> bool @-> bool @-> returning id) x insideRect horizontal vertical +let shapesByElaboratingShapes x ~insideShape ~count self = msg_send ~self ~cmd:(selector "shapesByElaboratingShapes:insideShape:count:") ~typ:(id @-> id @-> llong @-> returning id) x insideShape (LLong.of_int count) +let shapesByHorizontallyCenteringShapesPreservingLayout x ~insideRect self = msg_send ~self ~cmd:(selector "shapesByHorizontallyCenteringShapesPreservingLayout:insideRect:") ~typ:(id @-> CGRect.t @-> returning id) x insideRect +let shapesByInsettingShapes x ~withInsets self = msg_send ~self ~cmd:(selector "shapesByInsettingShapes:withInsets:") ~typ:(id @-> UIEdgeInsets.t @-> returning id) x withInsets +let shapesByRepositioningShapes x ~withOffset self = msg_send ~self ~cmd:(selector "shapesByRepositioningShapes:withOffset:") ~typ:(id @-> CGPoint.t @-> returning id) x withOffset +let shapesByResizingShapes x ~withOffset self = msg_send ~self ~cmd:(selector "shapesByResizingShapes:withOffset:") ~typ:(id @-> CGPoint.t @-> returning id) x withOffset +let shapesByScalingShapes x ~factor self = msg_send ~self ~cmd:(selector "shapesByScalingShapes:factor:") ~typ:(id @-> CGSize.t @-> returning id) x factor +let shapesByVerticallyCenteringShapesPreservingLayout x ~insideRect self = msg_send ~self ~cmd:(selector "shapesByVerticallyCenteringShapesPreservingLayout:insideRect:") ~typ:(id @-> CGRect.t @-> returning id) x insideRect \ No newline at end of file diff --git a/uikit_extra/UIKBShapeOperatorClass.ml b/uikit_extra/UIKBShapeOperatorClass.ml new file mode 100644 index 00000000..2815f538 --- /dev/null +++ b/uikit_extra/UIKBShapeOperatorClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbshapeoperator?language=objc}UIKBShapeOperator} *) + +let operatorWithScale x self = msg_send ~self ~cmd:(selector "operatorWithScale:") ~typ:(double @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBSplitImageView.ml b/uikit_extra/UIKBSplitImageView.ml index 9383d79e..5056c4b5 100644 --- a/uikit_extra/UIKBSplitImageView.ml +++ b/uikit_extra/UIKBSplitImageView.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBSplitImageView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbsplitimageview?language=objc}UIKBSplitImageView} *) -let clearImages self = msg_send ~self ~cmd:(selector "clearImages") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let filterType self = msg_send ~self ~cmd:(selector "filterType") ~typ:(returning (id)) -let initWithFrame x ~canStretchAsFullWidth self = msg_send ~self ~cmd:(selector "initWithFrame:canStretchAsFullWidth:") ~typ:(CGRect.t @-> bool @-> returning (id)) x canStretchAsFullWidth -let insertSubviewAtBottom x self = msg_send ~self ~cmd:(selector "insertSubviewAtBottom:") ~typ:(id @-> returning (void)) x -let prepareForDisplay x self = msg_send ~self ~cmd:(selector "prepareForDisplay:") ~typ:(bool @-> returning (void)) x -let setContentsMultiplyColor x self = msg_send ~self ~cmd:(selector "setContentsMultiplyColor:") ~typ:(id @-> returning (void)) x -let setFilterType x self = msg_send ~self ~cmd:(selector "setFilterType:") ~typ:(id @-> returning (void)) x -let setImage x ~cachedWidth ~keyplane self = msg_send ~self ~cmd:(selector "setImage:cachedWidth:keyplane:") ~typ:(id @-> double @-> id @-> returning (void)) x cachedWidth keyplane -let setImage' x ~splitLeft ~splitRight ~keyplane self = msg_send ~self ~cmd:(selector "setImage:splitLeft:splitRight:keyplane:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x splitLeft splitRight keyplane \ No newline at end of file +let self = get_class "UIKBSplitImageView" + +let clearImages self = msg_send ~self ~cmd:(selector "clearImages") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let filterType self = msg_send ~self ~cmd:(selector "filterType") ~typ:(returning id) +let initWithFrame x ~canStretchAsFullWidth self = msg_send ~self ~cmd:(selector "initWithFrame:canStretchAsFullWidth:") ~typ:(CGRect.t @-> bool @-> returning id) x canStretchAsFullWidth +let insertSubviewAtBottom x self = msg_send ~self ~cmd:(selector "insertSubviewAtBottom:") ~typ:(id @-> returning void) x +let prepareForDisplay x self = msg_send ~self ~cmd:(selector "prepareForDisplay:") ~typ:(bool @-> returning void) x +let setContentsMultiplyColor x self = msg_send ~self ~cmd:(selector "setContentsMultiplyColor:") ~typ:(id @-> returning void) x +let setFilterType x self = msg_send ~self ~cmd:(selector "setFilterType:") ~typ:(id @-> returning void) x +let setImage x ~cachedWidth ~keyplane self = msg_send ~self ~cmd:(selector "setImage:cachedWidth:keyplane:") ~typ:(id @-> double @-> id @-> returning void) x cachedWidth keyplane +let setImage' x ~splitLeft ~splitRight ~keyplane self = msg_send ~self ~cmd:(selector "setImage:splitLeft:splitRight:keyplane:") ~typ:(id @-> id @-> id @-> id @-> returning void) x splitLeft splitRight keyplane \ No newline at end of file diff --git a/uikit_extra/UIKBSplitKeyplaneGenerator.ml b/uikit_extra/UIKBSplitKeyplaneGenerator.ml index 04e83337..2b915c6a 100644 --- a/uikit_extra/UIKBSplitKeyplaneGenerator.ml +++ b/uikit_extra/UIKBSplitKeyplaneGenerator.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBSplitKeyplaneGenerator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbsplitkeyplanegenerator?language=objc}UIKBSplitKeyplaneGenerator} *) -let addKey x ~withShape ~forRow ~attribs ~left ~force ~isDefaultWidth self = msg_send ~self ~cmd:(selector "addKey:withShape:forRow:attribs:left:force:isDefaultWidth:") ~typ:(id @-> id @-> id @-> id @-> bool @-> bool @-> bool @-> returning (void)) x withShape forRow attribs left force isDefaultWidth -let addSliceStart x ~end_ ~startToken ~endToken ~left ~normalization ~isDefaultWidth ~row self = msg_send ~self ~cmd:(selector "addSliceStart:end:startToken:endToken:left:normalization:isDefaultWidth:row:") ~typ:(CGRect.t @-> CGRect.t @-> id @-> id @-> bool @-> int @-> bool @-> int @-> returning (void)) x end_ startToken endToken left normalization isDefaultWidth row -let alignSpaceKeyEdges self = msg_send ~self ~cmd:(selector "alignSpaceKeyEdges") ~typ:(returning (void)) -let commitUncommittedSlices self = msg_send ~self ~cmd:(selector "commitUncommittedSlices") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let finalizeSplitKeyplane self = msg_send ~self ~cmd:(selector "finalizeSplitKeyplane") ~typ:(returning (id)) -let generateRivenKeyplaneFromKeyplane x ~forKeyboard self = msg_send ~self ~cmd:(selector "generateRivenKeyplaneFromKeyplane:forKeyboard:") ~typ:(id @-> id @-> returning (id)) x forKeyboard -let hintsForRow x self = msg_send ~self ~cmd:(selector "hintsForRow:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initializeGeneratorForKeyplane x ~name self = msg_send ~self ~cmd:(selector "initializeGeneratorForKeyplane:name:") ~typ:(id @-> id @-> returning (void)) x name -let keysOrderedByPosition self = msg_send ~self ~cmd:(selector "keysOrderedByPosition") ~typ:(returning (id)) -let organizeKeyplaneIntoRows self = msg_send ~self ~cmd:(selector "organizeKeyplaneIntoRows") ~typ:(returning (void)) -let splitRow x self = msg_send ~self ~cmd:(selector "splitRow:") ~typ:(id @-> returning (void)) x -let splitSpaceKey x ~leftSpace ~left ~right self = msg_send ~self ~cmd:(selector "splitSpaceKey:leftSpace:left:right:") ~typ:(id @-> id @-> CGRect.t @-> CGRect.t @-> returning (void)) x leftSpace left right \ No newline at end of file +let self = get_class "UIKBSplitKeyplaneGenerator" + +let addKey x ~withShape ~forRow ~attribs ~left ~force ~isDefaultWidth self = msg_send ~self ~cmd:(selector "addKey:withShape:forRow:attribs:left:force:isDefaultWidth:") ~typ:(id @-> id @-> id @-> id @-> bool @-> bool @-> bool @-> returning void) x withShape forRow attribs left force isDefaultWidth +let addSliceStart x ~end_ ~startToken ~endToken ~left ~normalization ~isDefaultWidth ~row self = msg_send ~self ~cmd:(selector "addSliceStart:end:startToken:endToken:left:normalization:isDefaultWidth:row:") ~typ:(CGRect.t @-> CGRect.t @-> id @-> id @-> bool @-> int @-> bool @-> int @-> returning void) x end_ startToken endToken left normalization isDefaultWidth row +let alignSpaceKeyEdges self = msg_send ~self ~cmd:(selector "alignSpaceKeyEdges") ~typ:(returning void) +let commitUncommittedSlices self = msg_send ~self ~cmd:(selector "commitUncommittedSlices") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let finalizeSplitKeyplane self = msg_send ~self ~cmd:(selector "finalizeSplitKeyplane") ~typ:(returning id) +let generateRivenKeyplaneFromKeyplane x ~forKeyboard self = msg_send ~self ~cmd:(selector "generateRivenKeyplaneFromKeyplane:forKeyboard:") ~typ:(id @-> id @-> returning id) x forKeyboard +let hintsForRow x self = msg_send ~self ~cmd:(selector "hintsForRow:") ~typ:(id @-> returning id) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initializeGeneratorForKeyplane x ~name self = msg_send ~self ~cmd:(selector "initializeGeneratorForKeyplane:name:") ~typ:(id @-> id @-> returning void) x name +let keysOrderedByPosition self = msg_send ~self ~cmd:(selector "keysOrderedByPosition") ~typ:(returning id) +let organizeKeyplaneIntoRows self = msg_send ~self ~cmd:(selector "organizeKeyplaneIntoRows") ~typ:(returning void) +let splitRow x self = msg_send ~self ~cmd:(selector "splitRow:") ~typ:(id @-> returning void) x +let splitSpaceKey x ~leftSpace ~left ~right self = msg_send ~self ~cmd:(selector "splitSpaceKey:leftSpace:left:right:") ~typ:(id @-> id @-> CGRect.t @-> CGRect.t @-> returning void) x leftSpace left right \ No newline at end of file diff --git a/uikit_extra/UIKBSplitRow.ml b/uikit_extra/UIKBSplitRow.ml index c5df29c1..2fddd5d2 100644 --- a/uikit_extra/UIKBSplitRow.ml +++ b/uikit_extra/UIKBSplitRow.ml @@ -5,23 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBSplitRow" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbsplitrow?language=objc}UIKBSplitRow} *) -let addKey x self = msg_send ~self ~cmd:(selector "addKey:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultKeySize self = msg_send_stret ~self ~cmd:(selector "defaultKeySize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let hints self = msg_send ~self ~cmd:(selector "hints") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let keyAtIndex x self = msg_send ~self ~cmd:(selector "keyAtIndex:") ~typ:(int @-> returning (id)) x -let keys self = msg_send ~self ~cmd:(selector "keys") ~typ:(returning (id)) -let listOfType x ~left self = msg_send ~self ~cmd:(selector "listOfType:left:") ~typ:(int @-> bool @-> returning (id)) x left -let rowIndex self = msg_send ~self ~cmd:(selector "rowIndex") ~typ:(returning (bool)) -let rowOffset self = msg_send ~self ~cmd:(selector "rowOffset") ~typ:(returning (double)) -let rowWidth self = msg_send ~self ~cmd:(selector "rowWidth") ~typ:(returning (double)) -let setDefaultKeySize x self = msg_send ~self ~cmd:(selector "setDefaultKeySize:") ~typ:(CGSize.t @-> returning (void)) x -let setHints x self = msg_send ~self ~cmd:(selector "setHints:") ~typ:(id @-> returning (void)) x -let setRowIndex x self = msg_send ~self ~cmd:(selector "setRowIndex:") ~typ:(bool @-> returning (void)) x -let setRowOffset x self = msg_send ~self ~cmd:(selector "setRowOffset:") ~typ:(double @-> returning (void)) x -let setRowWidth x self = msg_send ~self ~cmd:(selector "setRowWidth:") ~typ:(double @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKBSplitRow" + +let addKey x self = msg_send ~self ~cmd:(selector "addKey:") ~typ:(id @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultKeySize self = msg_send ~self ~cmd:(selector "defaultKeySize") ~typ:(returning CGSize.t) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let hints self = msg_send ~self ~cmd:(selector "hints") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let keyAtIndex x self = msg_send ~self ~cmd:(selector "keyAtIndex:") ~typ:(int @-> returning id) x +let keys self = msg_send ~self ~cmd:(selector "keys") ~typ:(returning id) +let listOfType x ~left self = msg_send ~self ~cmd:(selector "listOfType:left:") ~typ:(int @-> bool @-> returning id) x left +let rowIndex self = msg_send ~self ~cmd:(selector "rowIndex") ~typ:(returning uchar) +let rowOffset self = msg_send ~self ~cmd:(selector "rowOffset") ~typ:(returning double) +let rowWidth self = msg_send ~self ~cmd:(selector "rowWidth") ~typ:(returning double) +let setDefaultKeySize x self = msg_send ~self ~cmd:(selector "setDefaultKeySize:") ~typ:(CGSize.t @-> returning void) x +let setHints x self = msg_send ~self ~cmd:(selector "setHints:") ~typ:(id @-> returning void) x +let setRowIndex x self = msg_send ~self ~cmd:(selector "setRowIndex:") ~typ:(uchar @-> returning void) x +let setRowOffset x self = msg_send ~self ~cmd:(selector "setRowOffset:") ~typ:(double @-> returning void) x +let setRowWidth x self = msg_send ~self ~cmd:(selector "setRowWidth:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBSplitTraits.ml b/uikit_extra/UIKBSplitTraits.ml index 2e735384..7d3d1584 100644 --- a/uikit_extra/UIKBSplitTraits.ml +++ b/uikit_extra/UIKBSplitTraits.ml @@ -5,14 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBSplitTraits" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbsplittraits?language=objc}UIKBSplitTraits} *) -module C = struct - let traitsWithLeftFrame x ~rightFrame ~corners self = msg_send ~self ~cmd:(selector "traitsWithLeftFrame:rightFrame:corners:") ~typ:(CGRect.t @-> CGRect.t @-> ullong @-> returning (id)) x rightFrame (ULLong.of_int corners) -end +let self = get_class "UIKBSplitTraits" -let corners self = msg_send ~self ~cmd:(selector "corners") ~typ:(returning (ullong)) -let initWithLeftFrame x ~rightFrame ~corners self = msg_send ~self ~cmd:(selector "initWithLeftFrame:rightFrame:corners:") ~typ:(CGRect.t @-> CGRect.t @-> ullong @-> returning (id)) x rightFrame (ULLong.of_int corners) -let leftFrame self = msg_send_stret ~self ~cmd:(selector "leftFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let rightFrame self = msg_send_stret ~self ~cmd:(selector "rightFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t \ No newline at end of file +let corners self = msg_send ~self ~cmd:(selector "corners") ~typ:(returning ullong) +let initWithLeftFrame x ~rightFrame ~corners self = msg_send ~self ~cmd:(selector "initWithLeftFrame:rightFrame:corners:") ~typ:(CGRect.t @-> CGRect.t @-> ullong @-> returning id) x rightFrame (ULLong.of_int corners) +let leftFrame self = msg_send ~self ~cmd:(selector "leftFrame") ~typ:(returning CGRect.t) +let rightFrame self = msg_send ~self ~cmd:(selector "rightFrame") ~typ:(returning CGRect.t) \ No newline at end of file diff --git a/uikit_extra/UIKBSplitTraitsClass.ml b/uikit_extra/UIKBSplitTraitsClass.ml new file mode 100644 index 00000000..66b3b9cf --- /dev/null +++ b/uikit_extra/UIKBSplitTraitsClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbsplittraits?language=objc}UIKBSplitTraits} *) + +let traitsWithLeftFrame x ~rightFrame ~corners self = msg_send ~self ~cmd:(selector "traitsWithLeftFrame:rightFrame:corners:") ~typ:(CGRect.t @-> CGRect.t @-> ullong @-> returning id) x rightFrame (ULLong.of_int corners) \ No newline at end of file diff --git a/uikit_extra/UIKBStackViewController.ml b/uikit_extra/UIKBStackViewController.ml index c2799e34..fbb7c9a9 100644 --- a/uikit_extra/UIKBStackViewController.ml +++ b/uikit_extra/UIKBStackViewController.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBStackViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbstackviewcontroller?language=objc}UIKBStackViewController} *) -let addChildViewController x self = msg_send ~self ~cmd:(selector "addChildViewController:") ~typ:(id @-> returning (void)) x -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let removeChildViewController x self = msg_send ~self ~cmd:(selector "removeChildViewController:") ~typ:(id @-> returning (void)) x -let stackView self = msg_send ~self ~cmd:(selector "stackView") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBStackViewController" + +let addChildViewController x self = msg_send ~self ~cmd:(selector "addChildViewController:") ~typ:(id @-> returning void) x +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let removeChildViewController x self = msg_send ~self ~cmd:(selector "removeChildViewController:") ~typ:(id @-> returning void) x +let stackView self = msg_send ~self ~cmd:(selector "stackView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBStrokeSample.ml b/uikit_extra/UIKBStrokeSample.ml index 0b739eca..2042630b 100644 --- a/uikit_extra/UIKBStrokeSample.ml +++ b/uikit_extra/UIKBStrokeSample.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBStrokeSample" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbstrokesample?language=objc}UIKBStrokeSample} *) -let initWithPoint x ~timestamp self = msg_send ~self ~cmd:(selector "initWithPoint:timestamp:") ~typ:(CGPoint.t @-> double @-> returning (id)) x timestamp -let point self = msg_send_stret ~self ~cmd:(selector "point") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let setPoint x self = msg_send ~self ~cmd:(selector "setPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let setTimestamp x self = msg_send ~self ~cmd:(selector "setTimestamp:") ~typ:(double @-> returning (void)) x -let timestamp self = msg_send ~self ~cmd:(selector "timestamp") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIKBStrokeSample" + +let initWithPoint x ~timestamp self = msg_send ~self ~cmd:(selector "initWithPoint:timestamp:") ~typ:(CGPoint.t @-> double @-> returning id) x timestamp +let point self = msg_send ~self ~cmd:(selector "point") ~typ:(returning CGPoint.t) +let setPoint x self = msg_send ~self ~cmd:(selector "setPoint:") ~typ:(CGPoint.t @-> returning void) x +let setTimestamp x self = msg_send ~self ~cmd:(selector "setTimestamp:") ~typ:(double @-> returning void) x +let timestamp self = msg_send ~self ~cmd:(selector "timestamp") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIKBStrokeView.ml b/uikit_extra/UIKBStrokeView.ml index 9a992db3..634d9e01 100644 --- a/uikit_extra/UIKBStrokeView.ml +++ b/uikit_extra/UIKBStrokeView.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBStrokeView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbstrokeview?language=objc}UIKBStrokeView} *) -let addStrokePoint x ~withTimestamp self = msg_send ~self ~cmd:(selector "addStrokePoint:withTimestamp:") ~typ:(CGPoint.t @-> double @-> returning (void)) x withTimestamp -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let resetStrokePoints self = msg_send ~self ~cmd:(selector "resetStrokePoints") ~typ:(returning (void)) \ No newline at end of file +let self = get_class "UIKBStrokeView" + +let addStrokePoint x ~withTimestamp self = msg_send ~self ~cmd:(selector "addStrokePoint:withTimestamp:") ~typ:(CGPoint.t @-> double @-> returning void) x withTimestamp +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let resetStrokePoints self = msg_send ~self ~cmd:(selector "resetStrokePoints") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKBSystemLayoutViewController.ml b/uikit_extra/UIKBSystemLayoutViewController.ml index 58f7b945..7fd854c1 100644 --- a/uikit_extra/UIKBSystemLayoutViewController.ml +++ b/uikit_extra/UIKBSystemLayoutViewController.ml @@ -5,19 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBSystemLayoutViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbsystemlayoutviewcontroller?language=objc}UIKBSystemLayoutViewController} *) -module C = struct - let systemLayoutViewControllerWithViewController x self = msg_send ~self ~cmd:(selector "systemLayoutViewControllerWithViewController:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIKBSystemLayoutViewController" -let centeredOffsets self = msg_send_stret ~self ~cmd:(selector "centeredOffsets") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let horizontalLayoutType self = msg_send ~self ~cmd:(selector "horizontalLayoutType") ~typ:(returning (ullong)) -let setCenteredOffsets x self = msg_send ~self ~cmd:(selector "setCenteredOffsets:") ~typ:(CGSize.t @-> returning (void)) x -let setHorizontalLayoutType x self = msg_send ~self ~cmd:(selector "setHorizontalLayoutType:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setMinimumInsets x self = msg_send ~self ~cmd:(selector "setMinimumInsets:") ~typ:(ptr void @-> returning (void)) x -let setVerticalLayoutType x self = msg_send ~self ~cmd:(selector "setVerticalLayoutType:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let updateViewConstraints self = msg_send ~self ~cmd:(selector "updateViewConstraints") ~typ:(returning (void)) -let verticalLayoutType self = msg_send ~self ~cmd:(selector "verticalLayoutType") ~typ:(returning (ullong)) \ No newline at end of file +let centeredOffsets self = msg_send ~self ~cmd:(selector "centeredOffsets") ~typ:(returning CGSize.t) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let horizontalLayoutType self = msg_send ~self ~cmd:(selector "horizontalLayoutType") ~typ:(returning ullong) +let minimumInsets self = msg_send ~self ~cmd:(selector "minimumInsets") ~typ:(returning UIEdgeInsets.t) +let setCenteredOffsets x self = msg_send ~self ~cmd:(selector "setCenteredOffsets:") ~typ:(CGSize.t @-> returning void) x +let setHorizontalLayoutType x self = msg_send ~self ~cmd:(selector "setHorizontalLayoutType:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setMinimumInsets x self = msg_send ~self ~cmd:(selector "setMinimumInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setVerticalLayoutType x self = msg_send ~self ~cmd:(selector "setVerticalLayoutType:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let updateViewConstraints self = msg_send ~self ~cmd:(selector "updateViewConstraints") ~typ:(returning void) +let verticalLayoutType self = msg_send ~self ~cmd:(selector "verticalLayoutType") ~typ:(returning ullong) \ No newline at end of file diff --git a/uikit_extra/UIKBSystemLayoutViewControllerClass.ml b/uikit_extra/UIKBSystemLayoutViewControllerClass.ml new file mode 100644 index 00000000..74f90410 --- /dev/null +++ b/uikit_extra/UIKBSystemLayoutViewControllerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbsystemlayoutviewcontroller?language=objc}UIKBSystemLayoutViewController} *) + +let systemLayoutViewControllerWithViewController x self = msg_send ~self ~cmd:(selector "systemLayoutViewControllerWithViewController:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBTestAutoFillTableViewCellData.ml b/uikit_extra/UIKBTestAutoFillTableViewCellData.ml index ba37b0e5..530ff009 100644 --- a/uikit_extra/UIKBTestAutoFillTableViewCellData.ml +++ b/uikit_extra/UIKBTestAutoFillTableViewCellData.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBTestAutoFillTableViewCellData" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtestautofilltableviewcelldata?language=objc}UIKBTestAutoFillTableViewCellData} *) -let cell self = msg_send ~self ~cmd:(selector "cell") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let height self = msg_send ~self ~cmd:(selector "height") ~typ:(returning (double)) -let initWithCell x ~height self = msg_send ~self ~cmd:(selector "initWithCell:height:") ~typ:(id @-> double @-> returning (id)) x height -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let self = get_class "UIKBTestAutoFillTableViewCellData" + +let cell self = msg_send ~self ~cmd:(selector "cell") ~typ:(returning id) +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let height self = msg_send ~self ~cmd:(selector "height") ~typ:(returning double) +let initWithCell x ~height self = msg_send ~self ~cmd:(selector "initWithCell:height:") ~typ:(id @-> double @-> returning id) x height +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBTextEditingTraits.ml b/uikit_extra/UIKBTextEditingTraits.ml index 61e3cc2f..c511f423 100644 --- a/uikit_extra/UIKBTextEditingTraits.ml +++ b/uikit_extra/UIKBTextEditingTraits.ml @@ -5,26 +5,25 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBTextEditingTraits" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtexteditingtraits?language=objc}UIKBTextEditingTraits} *) -module C = struct - let traitsForEditingInteractionWithFirstResponder x ~canRespondBlock ~keyMaskFlags self = msg_send ~self ~cmd:(selector "traitsForEditingInteractionWithFirstResponder:canRespondBlock:keyMaskFlags:") ~typ:(id @-> ptr void @-> ullong @-> returning (id)) x canRespondBlock (ULLong.of_int keyMaskFlags) - let traitsWithResponder x ~keyMaskFlags self = msg_send ~self ~cmd:(selector "traitsWithResponder:keyMaskFlags:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int keyMaskFlags) -end +let self = get_class "UIKBTextEditingTraits" -let canCopy self = msg_send ~self ~cmd:(selector "canCopy") ~typ:(returning (bool)) -let canCut self = msg_send ~self ~cmd:(selector "canCut") ~typ:(returning (bool)) -let canMoveCursorLeft self = msg_send ~self ~cmd:(selector "canMoveCursorLeft") ~typ:(returning (bool)) -let canMoveCursorRight self = msg_send ~self ~cmd:(selector "canMoveCursorRight") ~typ:(returning (bool)) -let canPaste self = msg_send ~self ~cmd:(selector "canPaste") ~typ:(returning (bool)) -let canToggleBoldface self = msg_send ~self ~cmd:(selector "canToggleBoldface") ~typ:(returning (bool)) -let canToggleItalics self = msg_send ~self ~cmd:(selector "canToggleItalics") ~typ:(returning (bool)) -let canToggleUnderline self = msg_send ~self ~cmd:(selector "canToggleUnderline") ~typ:(returning (bool)) -let firstResponder self = msg_send ~self ~cmd:(selector "firstResponder") ~typ:(returning (id)) -let initWithResponder x ~canRespondBlock ~keyMaskFlags ~sender self = msg_send ~self ~cmd:(selector "initWithResponder:canRespondBlock:keyMaskFlags:sender:") ~typ:(id @-> ptr void @-> ullong @-> id @-> returning (id)) x canRespondBlock (ULLong.of_int keyMaskFlags) sender -let isBold self = msg_send ~self ~cmd:(selector "isBold") ~typ:(returning (bool)) -let isItalicized self = msg_send ~self ~cmd:(selector "isItalicized") ~typ:(returning (bool)) -let isUnderlined self = msg_send ~self ~cmd:(selector "isUnderlined") ~typ:(returning (bool)) -let setCanCut x self = msg_send ~self ~cmd:(selector "setCanCut:") ~typ:(bool @-> returning (void)) x -let supportStyling self = msg_send ~self ~cmd:(selector "supportStyling") ~typ:(returning (bool)) \ No newline at end of file +let canCopy self = msg_send ~self ~cmd:(selector "canCopy") ~typ:(returning bool) +let canCut self = msg_send ~self ~cmd:(selector "canCut") ~typ:(returning bool) +let canMoveCursorLeft self = msg_send ~self ~cmd:(selector "canMoveCursorLeft") ~typ:(returning bool) +let canMoveCursorRight self = msg_send ~self ~cmd:(selector "canMoveCursorRight") ~typ:(returning bool) +let canPaste self = msg_send ~self ~cmd:(selector "canPaste") ~typ:(returning bool) +let canToggleBoldface self = msg_send ~self ~cmd:(selector "canToggleBoldface") ~typ:(returning bool) +let canToggleItalics self = msg_send ~self ~cmd:(selector "canToggleItalics") ~typ:(returning bool) +let canToggleUnderline self = msg_send ~self ~cmd:(selector "canToggleUnderline") ~typ:(returning bool) +let firstResponder self = msg_send ~self ~cmd:(selector "firstResponder") ~typ:(returning id) +let initWithResponder x ~canRespondBlock ~keyMaskFlags ~sender self = msg_send ~self ~cmd:(selector "initWithResponder:canRespondBlock:keyMaskFlags:sender:") ~typ:(id @-> (ptr void) @-> ullong @-> id @-> returning id) x canRespondBlock (ULLong.of_int keyMaskFlags) sender +let isBold self = msg_send ~self ~cmd:(selector "isBold") ~typ:(returning bool) +let isItalicized self = msg_send ~self ~cmd:(selector "isItalicized") ~typ:(returning bool) +let isUnderlined self = msg_send ~self ~cmd:(selector "isUnderlined") ~typ:(returning bool) +let setCanCut x self = msg_send ~self ~cmd:(selector "setCanCut:") ~typ:(bool @-> returning void) x +let supportStyling self = msg_send ~self ~cmd:(selector "supportStyling") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKBTextEditingTraitsClass.ml b/uikit_extra/UIKBTextEditingTraitsClass.ml new file mode 100644 index 00000000..a0a7bb31 --- /dev/null +++ b/uikit_extra/UIKBTextEditingTraitsClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtexteditingtraits?language=objc}UIKBTextEditingTraits} *) + +let traitsForEditingInteractionWithFirstResponder x ~canRespondBlock ~keyMaskFlags self = msg_send ~self ~cmd:(selector "traitsForEditingInteractionWithFirstResponder:canRespondBlock:keyMaskFlags:") ~typ:(id @-> (ptr void) @-> ullong @-> returning id) x canRespondBlock (ULLong.of_int keyMaskFlags) +let traitsWithResponder x ~keyMaskFlags self = msg_send ~self ~cmd:(selector "traitsWithResponder:keyMaskFlags:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int keyMaskFlags) \ No newline at end of file diff --git a/uikit_extra/UIKBTextStyle.ml b/uikit_extra/UIKBTextStyle.ml index 2badcad5..1e1583ec 100644 --- a/uikit_extra/UIKBTextStyle.ml +++ b/uikit_extra/UIKBTextStyle.ml @@ -5,51 +5,50 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBTextStyle" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtextstyle?language=objc}UIKBTextStyle} *) -module C = struct - let styleWithFontName x ~withFontSize self = msg_send ~self ~cmd:(selector "styleWithFontName:withFontSize:") ~typ:(id @-> double @-> returning (id)) x withFontSize - let styleWithTextColor x self = msg_send ~self ~cmd:(selector "styleWithTextColor:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIKBTextStyle" -let alignment self = msg_send ~self ~cmd:(selector "alignment") ~typ:(returning (llong)) -let anchorCorner self = msg_send ~self ~cmd:(selector "anchorCorner") ~typ:(returning (ullong)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let etchColor self = msg_send ~self ~cmd:(selector "etchColor") ~typ:(returning (id)) -let etchOffset self = msg_send_stret ~self ~cmd:(selector "etchOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let fontName self = msg_send ~self ~cmd:(selector "fontName") ~typ:(returning (id)) -let fontSize self = msg_send ~self ~cmd:(selector "fontSize") ~typ:(returning (double)) -let fontWeight self = msg_send ~self ~cmd:(selector "fontWeight") ~typ:(returning (double)) -let ignoreTextMarginOnKey self = msg_send ~self ~cmd:(selector "ignoreTextMarginOnKey") ~typ:(returning (bool)) -let imageScale self = msg_send ~self ~cmd:(selector "imageScale") ~typ:(returning (double)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let kerning self = msg_send ~self ~cmd:(selector "kerning") ~typ:(returning (double)) -let minFontSize self = msg_send ~self ~cmd:(selector "minFontSize") ~typ:(returning (double)) -let overlayWithStyle x self = msg_send ~self ~cmd:(selector "overlayWithStyle:") ~typ:(id @-> returning (void)) x -let pathWeight self = msg_send ~self ~cmd:(selector "pathWeight") ~typ:(returning (double)) -let selector_ self = msg_send ~self ~cmd:(selector "selector") ~typ:(returning (llong)) -let setAlignment x self = msg_send ~self ~cmd:(selector "setAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setAnchorCorner x self = msg_send ~self ~cmd:(selector "setAnchorCorner:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setEtchColor x self = msg_send ~self ~cmd:(selector "setEtchColor:") ~typ:(id @-> returning (void)) x -let setEtchOffset x self = msg_send ~self ~cmd:(selector "setEtchOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let setFontName x self = msg_send ~self ~cmd:(selector "setFontName:") ~typ:(id @-> returning (void)) x -let setFontSize x self = msg_send ~self ~cmd:(selector "setFontSize:") ~typ:(double @-> returning (void)) x -let setFontWeight x self = msg_send ~self ~cmd:(selector "setFontWeight:") ~typ:(double @-> returning (void)) x -let setIgnoreTextMarginOnKey x self = msg_send ~self ~cmd:(selector "setIgnoreTextMarginOnKey:") ~typ:(bool @-> returning (void)) x -let setImageScale x self = msg_send ~self ~cmd:(selector "setImageScale:") ~typ:(double @-> returning (void)) x -let setKerning x self = msg_send ~self ~cmd:(selector "setKerning:") ~typ:(double @-> returning (void)) x -let setMinFontSize x self = msg_send ~self ~cmd:(selector "setMinFontSize:") ~typ:(double @-> returning (void)) x -let setPathWeight x self = msg_send ~self ~cmd:(selector "setPathWeight:") ~typ:(double @-> returning (void)) x -let setSelector x self = msg_send ~self ~cmd:(selector "setSelector:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning (void)) x -let setTextOffset x self = msg_send ~self ~cmd:(selector "setTextOffset:") ~typ:(CGPoint.t @-> returning (void)) x -let setTextOpacity x self = msg_send ~self ~cmd:(selector "setTextOpacity:") ~typ:(double @-> returning (void)) x -let setUsesSymbolImage x self = msg_send ~self ~cmd:(selector "setUsesSymbolImage:") ~typ:(bool @-> returning (void)) x -let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning (id)) -let textOffset self = msg_send_stret ~self ~cmd:(selector "textOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let textOpacity self = msg_send ~self ~cmd:(selector "textOpacity") ~typ:(returning (double)) -let usesSymbolImage self = msg_send ~self ~cmd:(selector "usesSymbolImage") ~typ:(returning (bool)) \ No newline at end of file +let alignment self = msg_send ~self ~cmd:(selector "alignment") ~typ:(returning llong) +let anchorCorner self = msg_send ~self ~cmd:(selector "anchorCorner") ~typ:(returning ullong) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let etchColor self = msg_send ~self ~cmd:(selector "etchColor") ~typ:(returning id) +let etchOffset self = msg_send ~self ~cmd:(selector "etchOffset") ~typ:(returning CGPoint.t) +let fontName self = msg_send ~self ~cmd:(selector "fontName") ~typ:(returning id) +let fontSize self = msg_send ~self ~cmd:(selector "fontSize") ~typ:(returning double) +let fontWeight self = msg_send ~self ~cmd:(selector "fontWeight") ~typ:(returning double) +let ignoreTextMarginOnKey self = msg_send ~self ~cmd:(selector "ignoreTextMarginOnKey") ~typ:(returning bool) +let imageScale self = msg_send ~self ~cmd:(selector "imageScale") ~typ:(returning double) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let kerning self = msg_send ~self ~cmd:(selector "kerning") ~typ:(returning double) +let minFontSize self = msg_send ~self ~cmd:(selector "minFontSize") ~typ:(returning double) +let overlayWithStyle x self = msg_send ~self ~cmd:(selector "overlayWithStyle:") ~typ:(id @-> returning void) x +let pathWeight self = msg_send ~self ~cmd:(selector "pathWeight") ~typ:(returning double) +let selector_ self = msg_send ~self ~cmd:(selector "selector") ~typ:(returning llong) +let setAlignment x self = msg_send ~self ~cmd:(selector "setAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setAnchorCorner x self = msg_send ~self ~cmd:(selector "setAnchorCorner:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setEtchColor x self = msg_send ~self ~cmd:(selector "setEtchColor:") ~typ:(id @-> returning void) x +let setEtchOffset x self = msg_send ~self ~cmd:(selector "setEtchOffset:") ~typ:(CGPoint.t @-> returning void) x +let setFontName x self = msg_send ~self ~cmd:(selector "setFontName:") ~typ:(id @-> returning void) x +let setFontSize x self = msg_send ~self ~cmd:(selector "setFontSize:") ~typ:(double @-> returning void) x +let setFontWeight x self = msg_send ~self ~cmd:(selector "setFontWeight:") ~typ:(double @-> returning void) x +let setIgnoreTextMarginOnKey x self = msg_send ~self ~cmd:(selector "setIgnoreTextMarginOnKey:") ~typ:(bool @-> returning void) x +let setImageScale x self = msg_send ~self ~cmd:(selector "setImageScale:") ~typ:(double @-> returning void) x +let setKerning x self = msg_send ~self ~cmd:(selector "setKerning:") ~typ:(double @-> returning void) x +let setMinFontSize x self = msg_send ~self ~cmd:(selector "setMinFontSize:") ~typ:(double @-> returning void) x +let setPathWeight x self = msg_send ~self ~cmd:(selector "setPathWeight:") ~typ:(double @-> returning void) x +let setSelector x self = msg_send ~self ~cmd:(selector "setSelector:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTextColor x self = msg_send ~self ~cmd:(selector "setTextColor:") ~typ:(id @-> returning void) x +let setTextOffset x self = msg_send ~self ~cmd:(selector "setTextOffset:") ~typ:(CGPoint.t @-> returning void) x +let setTextOpacity x self = msg_send ~self ~cmd:(selector "setTextOpacity:") ~typ:(double @-> returning void) x +let setUsesSymbolImage x self = msg_send ~self ~cmd:(selector "setUsesSymbolImage:") ~typ:(bool @-> returning void) x +let textColor self = msg_send ~self ~cmd:(selector "textColor") ~typ:(returning id) +let textOffset self = msg_send ~self ~cmd:(selector "textOffset") ~typ:(returning CGPoint.t) +let textOpacity self = msg_send ~self ~cmd:(selector "textOpacity") ~typ:(returning double) +let usesSymbolImage self = msg_send ~self ~cmd:(selector "usesSymbolImage") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKBTextStyleClass.ml b/uikit_extra/UIKBTextStyleClass.ml new file mode 100644 index 00000000..dfcbd39a --- /dev/null +++ b/uikit_extra/UIKBTextStyleClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtextstyle?language=objc}UIKBTextStyle} *) + +let styleWithFontName x ~withFontSize self = msg_send ~self ~cmd:(selector "styleWithFontName:withFontSize:") ~typ:(id @-> double @-> returning id) x withFontSize +let styleWithTextColor x self = msg_send ~self ~cmd:(selector "styleWithTextColor:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBTouchOrderedTaskList.ml b/uikit_extra/UIKBTouchOrderedTaskList.ml index 52babf69..75fea7a5 100644 --- a/uikit_extra/UIKBTouchOrderedTaskList.ml +++ b/uikit_extra/UIKBTouchOrderedTaskList.ml @@ -5,24 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBTouchOrderedTaskList" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtouchorderedtasklist?language=objc}UIKBTouchOrderedTaskList} *) -module C = struct - let taskListForTouchUUID x ~withPathIndex self = msg_send ~self ~cmd:(selector "taskListForTouchUUID:withPathIndex:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int withPathIndex) -end +let self = get_class "UIKBTouchOrderedTaskList" -let addTask x self = msg_send ~self ~cmd:(selector "addTask:") ~typ:(id @-> returning (void)) x -let currentTouchPoint self = msg_send ~self ~cmd:(selector "currentTouchPoint") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let executeTasksInView x ~withBlock self = msg_send ~self ~cmd:(selector "executeTasksInView:withBlock:") ~typ:(id @-> ptr void @-> returning (bool)) x withBlock -let firstTouchStateForUITouchPhase x self = msg_send ~self ~cmd:(selector "firstTouchStateForUITouchPhase:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let hasTasks self = msg_send ~self ~cmd:(selector "hasTasks") ~typ:(returning (bool)) -let ignoredOnBegin self = msg_send ~self ~cmd:(selector "ignoredOnBegin") ~typ:(returning (bool)) -let initWithTouchUUID x ~withPathIndex self = msg_send ~self ~cmd:(selector "initWithTouchUUID:withPathIndex:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int withPathIndex) -let isExecutingFirstTask self = msg_send ~self ~cmd:(selector "isExecutingFirstTask") ~typ:(returning (bool)) -let originalStartTime self = msg_send ~self ~cmd:(selector "originalStartTime") ~typ:(returning (double)) -let pathIndex self = msg_send ~self ~cmd:(selector "pathIndex") ~typ:(returning (ullong)) -let removeTasksMatchingFilter x self = msg_send ~self ~cmd:(selector "removeTasksMatchingFilter:") ~typ:(ptr void @-> returning (void)) x -let setIgnoredOnBegin x self = msg_send ~self ~cmd:(selector "setIgnoredOnBegin:") ~typ:(bool @-> returning (void)) x -let touchUUID self = msg_send ~self ~cmd:(selector "touchUUID") ~typ:(returning (id)) \ No newline at end of file +let addTask x self = msg_send ~self ~cmd:(selector "addTask:") ~typ:(id @-> returning void) x +let currentTouchPoint self = msg_send ~self ~cmd:(selector "currentTouchPoint") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let executeTasksInView x ~withBlock self = msg_send ~self ~cmd:(selector "executeTasksInView:withBlock:") ~typ:(id @-> (ptr void) @-> returning bool) x withBlock +let firstTouchStateForUITouchPhase x self = msg_send ~self ~cmd:(selector "firstTouchStateForUITouchPhase:") ~typ:(llong @-> returning id) (LLong.of_int x) +let hasTasks self = msg_send ~self ~cmd:(selector "hasTasks") ~typ:(returning bool) +let ignoredOnBegin self = msg_send ~self ~cmd:(selector "ignoredOnBegin") ~typ:(returning bool) +let initWithTouchUUID x ~withPathIndex self = msg_send ~self ~cmd:(selector "initWithTouchUUID:withPathIndex:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int withPathIndex) +let isExecutingFirstTask self = msg_send ~self ~cmd:(selector "isExecutingFirstTask") ~typ:(returning bool) +let originalStartTime self = msg_send ~self ~cmd:(selector "originalStartTime") ~typ:(returning double) +let pathIndex self = msg_send ~self ~cmd:(selector "pathIndex") ~typ:(returning ullong) +let removeTasksMatchingFilter x self = msg_send ~self ~cmd:(selector "removeTasksMatchingFilter:") ~typ:((ptr void) @-> returning void) x +let setIgnoredOnBegin x self = msg_send ~self ~cmd:(selector "setIgnoredOnBegin:") ~typ:(bool @-> returning void) x +let touchUUID self = msg_send ~self ~cmd:(selector "touchUUID") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBTouchOrderedTaskListClass.ml b/uikit_extra/UIKBTouchOrderedTaskListClass.ml new file mode 100644 index 00000000..1d352967 --- /dev/null +++ b/uikit_extra/UIKBTouchOrderedTaskListClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtouchorderedtasklist?language=objc}UIKBTouchOrderedTaskList} *) + +let taskListForTouchUUID x ~withPathIndex self = msg_send ~self ~cmd:(selector "taskListForTouchUUID:withPathIndex:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int withPathIndex) \ No newline at end of file diff --git a/uikit_extra/UIKBTouchState.ml b/uikit_extra/UIKBTouchState.ml index 55258a60..40b0e535 100644 --- a/uikit_extra/UIKBTouchState.ml +++ b/uikit_extra/UIKBTouchState.ml @@ -5,28 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBTouchState" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtouchstate?language=objc}UIKBTouchState} *) -module C = struct - let releaseUUIDForTouch x self = msg_send ~self ~cmd:(selector "releaseUUIDForTouch:") ~typ:(id @-> returning (void)) x - let touchForTouchUUID x self = msg_send ~self ~cmd:(selector "touchForTouchUUID:") ~typ:(id @-> returning (id)) x - let touchStateForTouch x self = msg_send ~self ~cmd:(selector "touchStateForTouch:") ~typ:(id @-> returning (id)) x - let touchStateForTouchUUID x ~withTimestamp ~phase ~location ~pathIndex ~inView self = msg_send ~self ~cmd:(selector "touchStateForTouchUUID:withTimestamp:phase:location:pathIndex:inView:") ~typ:(id @-> double @-> llong @-> CGPoint.t @-> bool @-> id @-> returning (id)) x withTimestamp (LLong.of_int phase) location pathIndex inView - let touchUUIDForTouch x self = msg_send ~self ~cmd:(selector "touchUUIDForTouch:") ~typ:(id @-> returning (id)) x - let touchUUIDsForTouches x self = msg_send ~self ~cmd:(selector "touchUUIDsForTouches:") ~typ:(id @-> returning (id)) x - let touchesForTouchUUIDs x self = msg_send ~self ~cmd:(selector "touchesForTouchUUIDs:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIKBTouchState" -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let locationInView x self = msg_send_stret ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let locationInWindow self = msg_send_stret ~self ~cmd:(selector "locationInWindow") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let pathIndex self = msg_send ~self ~cmd:(selector "pathIndex") ~typ:(returning (ullong)) -let pathMajorRadius self = msg_send ~self ~cmd:(selector "pathMajorRadius") ~typ:(returning (double)) -let phase self = msg_send ~self ~cmd:(selector "phase") ~typ:(returning (llong)) -let tapCount self = msg_send ~self ~cmd:(selector "tapCount") ~typ:(returning (ullong)) -let timestamp self = msg_send ~self ~cmd:(selector "timestamp") ~typ:(returning (double)) -let touchUUID self = msg_send ~self ~cmd:(selector "touchUUID") ~typ:(returning (id)) -let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning (id)) \ No newline at end of file +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let locationInWindow self = msg_send ~self ~cmd:(selector "locationInWindow") ~typ:(returning CGPoint.t) +let pathIndex self = msg_send ~self ~cmd:(selector "pathIndex") ~typ:(returning ullong) +let pathMajorRadius self = msg_send ~self ~cmd:(selector "pathMajorRadius") ~typ:(returning double) +let phase self = msg_send ~self ~cmd:(selector "phase") ~typ:(returning llong) +let tapCount self = msg_send ~self ~cmd:(selector "tapCount") ~typ:(returning ullong) +let timestamp self = msg_send ~self ~cmd:(selector "timestamp") ~typ:(returning double) +let touchUUID self = msg_send ~self ~cmd:(selector "touchUUID") ~typ:(returning id) +let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBTouchStateClass.ml b/uikit_extra/UIKBTouchStateClass.ml new file mode 100644 index 00000000..b4614cd0 --- /dev/null +++ b/uikit_extra/UIKBTouchStateClass.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtouchstate?language=objc}UIKBTouchState} *) + +let releaseUUIDForTouch x self = msg_send ~self ~cmd:(selector "releaseUUIDForTouch:") ~typ:(id @-> returning void) x +let touchForTouchUUID x self = msg_send ~self ~cmd:(selector "touchForTouchUUID:") ~typ:(id @-> returning id) x +let touchStateForTouch x self = msg_send ~self ~cmd:(selector "touchStateForTouch:") ~typ:(id @-> returning id) x +let touchStateForTouchUUID x ~withTimestamp ~phase ~location ~pathIndex ~inView self = msg_send ~self ~cmd:(selector "touchStateForTouchUUID:withTimestamp:phase:location:pathIndex:inView:") ~typ:(id @-> double @-> llong @-> CGPoint.t @-> uchar @-> id @-> returning id) x withTimestamp (LLong.of_int phase) location pathIndex inView +let touchUUIDForTouch x self = msg_send ~self ~cmd:(selector "touchUUIDForTouch:") ~typ:(id @-> returning id) x +let touchUUIDsForTouches x self = msg_send ~self ~cmd:(selector "touchUUIDsForTouches:") ~typ:(id @-> returning id) x +let touchesForTouchUUIDs x self = msg_send ~self ~cmd:(selector "touchesForTouchUUIDs:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBTouchStateTask.ml b/uikit_extra/UIKBTouchStateTask.ml index 282129d8..e516339c 100644 --- a/uikit_extra/UIKBTouchStateTask.ml +++ b/uikit_extra/UIKBTouchStateTask.ml @@ -5,18 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBTouchStateTask" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtouchstatetask?language=objc}UIKBTouchStateTask} *) -module C = struct - let touchStateTaskForTouchState x ~andTask self = msg_send ~self ~cmd:(selector "touchStateTaskForTouchState:andTask:") ~typ:(id @-> ptr void @-> returning (id)) x andTask -end +let self = get_class "UIKBTouchStateTask" -let compare x self = msg_send ~self ~cmd:(selector "compare:") ~typ:(id @-> returning (llong)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithTouchState x ~andTask self = msg_send ~self ~cmd:(selector "initWithTouchState:andTask:") ~typ:(id @-> ptr void @-> returning (id)) x andTask -let isBusy self = msg_send ~self ~cmd:(selector "isBusy") ~typ:(returning (bool)) -let setIsBusy x self = msg_send ~self ~cmd:(selector "setIsBusy:") ~typ:(bool @-> returning (void)) x +let compare x self = msg_send ~self ~cmd:(selector "compare:") ~typ:(id @-> returning llong) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithTouchState x ~andTask self = msg_send ~self ~cmd:(selector "initWithTouchState:andTask:") ~typ:(id @-> (ptr void) @-> returning id) x andTask +let isBusy self = msg_send ~self ~cmd:(selector "isBusy") ~typ:(returning bool) +let setIsBusy x self = msg_send ~self ~cmd:(selector "setIsBusy:") ~typ:(bool @-> returning void) x let task self = msg_send ~self ~cmd:(selector "task") ~typ:(returning (ptr void)) -let touchState self = msg_send ~self ~cmd:(selector "touchState") ~typ:(returning (id)) \ No newline at end of file +let touchState self = msg_send ~self ~cmd:(selector "touchState") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBTouchStateTaskClass.ml b/uikit_extra/UIKBTouchStateTaskClass.ml new file mode 100644 index 00000000..f9b106c0 --- /dev/null +++ b/uikit_extra/UIKBTouchStateTaskClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtouchstatetask?language=objc}UIKBTouchStateTask} *) + +let touchStateTaskForTouchState x ~andTask self = msg_send ~self ~cmd:(selector "touchStateTaskForTouchState:andTask:") ~typ:(id @-> (ptr void) @-> returning id) x andTask \ No newline at end of file diff --git a/uikit_extra/UIKBTree.ml b/uikit_extra/UIKBTree.ml index 5f2ece6d..301faed4 100644 --- a/uikit_extra/UIKBTree.ml +++ b/uikit_extra/UIKBTree.ml @@ -5,275 +5,270 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBTree" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtree?language=objc}UIKBTree} *) -module C = struct - let key self = msg_send ~self ~cmd:(selector "key") ~typ:(returning (id)) - let keyboard self = msg_send ~self ~cmd:(selector "keyboard") ~typ:(returning (id)) - let mergeStringForKeyName x self = msg_send ~self ~cmd:(selector "mergeStringForKeyName:") ~typ:(id @-> returning (id)) x - let shapesForControlKeyShapes x ~options self = msg_send ~self ~cmd:(selector "shapesForControlKeyShapes:options:") ~typ:(id @-> int @-> returning (id)) x options - let shouldSkipCacheString x self = msg_send ~self ~cmd:(selector "shouldSkipCacheString:") ~typ:(id @-> returning (bool)) x - let stringForType x self = msg_send ~self ~cmd:(selector "stringForType:") ~typ:(int @-> returning (id)) x - let treeOfType x self = msg_send ~self ~cmd:(selector "treeOfType:") ~typ:(int @-> returning (id)) x - let typeIsPersistent x self = msg_send ~self ~cmd:(selector "typeIsPersistent:") ~typ:(int @-> returning (bool)) x - let uniqueName self = msg_send ~self ~cmd:(selector "uniqueName") ~typ:(returning (id)) -end +let self = get_class "UIKBTree" -let activeGeometriesList self = msg_send ~self ~cmd:(selector "activeGeometriesList") ~typ:(returning (id)) -let activeShapesFromOutputShapes x ~inputShapes self = msg_send ~self ~cmd:(selector "activeShapesFromOutputShapes:inputShapes:") ~typ:(id @-> id @-> returning (id)) x inputShapes -let addMessagesWriteboardKeyOrRomanSwitch x self = msg_send ~self ~cmd:(selector "addMessagesWriteboardKeyOrRomanSwitch:") ~typ:(bool @-> returning (bool)) x -let addMessagesWriteboardKeyOrRomanSwitchIfDismissKey x self = msg_send ~self ~cmd:(selector "addMessagesWriteboardKeyOrRomanSwitchIfDismissKey:") ~typ:(bool @-> returning (bool)) x -let addMessagesWriteboardKeyOrRomanSwitchIfNoDismissKey x self = msg_send ~self ~cmd:(selector "addMessagesWriteboardKeyOrRomanSwitchIfNoDismissKey:") ~typ:(bool @-> returning (bool)) x -let addRomanSwitchToCachedKeyListWithShape x ~rendering self = msg_send ~self ~cmd:(selector "addRomanSwitchToCachedKeyListWithShape:rendering:") ~typ:(id @-> int @-> returning (void)) x rendering -let addWriteboardKeyToCachedKeyListWithShape x ~rendering self = msg_send ~self ~cmd:(selector "addWriteboardKeyToCachedKeyListWithShape:rendering:") ~typ:(id @-> int @-> returning (void)) x rendering -let addkeyToCachedKeyList x self = msg_send ~self ~cmd:(selector "addkeyToCachedKeyList:") ~typ:(id @-> returning (void)) x -let allowRetestAfterCommittingDownActions self = msg_send ~self ~cmd:(selector "allowRetestAfterCommittingDownActions") ~typ:(returning (bool)) -let allowsDelayedTapForContinuousPathDisambiguation self = msg_send ~self ~cmd:(selector "allowsDelayedTapForContinuousPathDisambiguation") ~typ:(returning (bool)) -let allowsStartingContinuousPath self = msg_send ~self ~cmd:(selector "allowsStartingContinuousPath") ~typ:(returning (bool)) -let alternateKeyplaneName self = msg_send ~self ~cmd:(selector "alternateKeyplaneName") ~typ:(returning (id)) -let attributeSet x self = msg_send ~self ~cmd:(selector "attributeSet:") ~typ:(bool @-> returning (id)) x -let autolocalizedKeyCacheIterator self = msg_send ~self ~cmd:(selector "autolocalizedKeyCacheIterator") ~typ:(returning (id)) -let avoidAutoDeactivation self = msg_send ~self ~cmd:(selector "avoidAutoDeactivation") ~typ:(returning (bool)) -let avoidsLanguageIndicator self = msg_send ~self ~cmd:(selector "avoidsLanguageIndicator") ~typ:(returning (bool)) -let behavesAsShiftKey self = msg_send ~self ~cmd:(selector "behavesAsShiftKey") ~typ:(returning (bool)) -let boolForProperty x self = msg_send ~self ~cmd:(selector "boolForProperty:") ~typ:(id @-> returning (bool)) x -let cache self = msg_send ~self ~cmd:(selector "cache") ~typ:(returning (id)) -let cacheDisplayString self = msg_send ~self ~cmd:(selector "cacheDisplayString") ~typ:(returning (id)) -let cacheKey x self = msg_send ~self ~cmd:(selector "cacheKey:") ~typ:(id @-> returning (void)) x -let cacheNativeIdiomIfNecessaryForScreenTraits x self = msg_send ~self ~cmd:(selector "cacheNativeIdiomIfNecessaryForScreenTraits:") ~typ:(id @-> returning (void)) x -let cacheSecondaryDisplayString self = msg_send ~self ~cmd:(selector "cacheSecondaryDisplayString") ~typ:(returning (id)) -let cachedGestureLayout self = msg_send ~self ~cmd:(selector "cachedGestureLayout") ~typ:(returning (id)) -let cachedKeysByKeyName x self = msg_send ~self ~cmd:(selector "cachedKeysByKeyName:") ~typ:(id @-> returning (id)) x -let centerHorizontallyWhilePreservingLayoutWithKeys x ~inRect ~scale self = msg_send ~self ~cmd:(selector "centerHorizontallyWhilePreservingLayoutWithKeys:inRect:scale:") ~typ:(id @-> CGRect.t @-> double @-> returning (void)) x inRect scale -let centerKeyplaneInRect x ~scale self = msg_send ~self ~cmd:(selector "centerKeyplaneInRect:scale:") ~typ:(CGRect.t @-> double @-> returning (void)) x scale -let centerKeys x ~inRect ~scale self = msg_send ~self ~cmd:(selector "centerKeys:inRect:scale:") ~typ:(id @-> CGRect.t @-> double @-> returning (void)) x inRect scale -let centerVerticallyWhilePreservingLayoutWithKeys x ~inRect ~scale self = msg_send ~self ~cmd:(selector "centerVerticallyWhilePreservingLayoutWithKeys:inRect:scale:") ~typ:(id @-> CGRect.t @-> double @-> returning (void)) x inRect scale -let centerWhilePreservingLayoutWithKeys x ~inRect ~scale self = msg_send ~self ~cmd:(selector "centerWhilePreservingLayoutWithKeys:inRect:scale:") ~typ:(id @-> CGRect.t @-> double @-> returning (void)) x inRect scale -let clearManualAddedKey self = msg_send ~self ~cmd:(selector "clearManualAddedKey") ~typ:(returning (void)) -let clearTransientCaches self = msg_send ~self ~cmd:(selector "clearTransientCaches") ~typ:(returning (void)) -let clipCorners self = msg_send ~self ~cmd:(selector "clipCorners") ~typ:(returning (ullong)) -let componentName self = msg_send ~self ~cmd:(selector "componentName") ~typ:(returning (id)) -let containsDividerVariant self = msg_send ~self ~cmd:(selector "containsDividerVariant") ~typ:(returning (bool)) -let containsKeyThatIgnoresHandBias self = msg_send ~self ~cmd:(selector "containsKeyThatIgnoresHandBias") ~typ:(returning (bool)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let diacriticForwardCompose self = msg_send ~self ~cmd:(selector "diacriticForwardCompose") ~typ:(returning (bool)) -let disabled self = msg_send ~self ~cmd:(selector "disabled") ~typ:(returning (bool)) -let disablesEdgeSwipe self = msg_send ~self ~cmd:(selector "disablesEdgeSwipe") ~typ:(returning (bool)) -let displayRowHint self = msg_send ~self ~cmd:(selector "displayRowHint") ~typ:(returning (int)) -let displayString self = msg_send ~self ~cmd:(selector "displayString") ~typ:(returning (id)) -let displayType self = msg_send ~self ~cmd:(selector "displayType") ~typ:(returning (int)) -let displayTypeHint self = msg_send ~self ~cmd:(selector "displayTypeHint") ~typ:(returning (int)) -let dragThreshold self = msg_send ~self ~cmd:(selector "dragThreshold") ~typ:(returning (int)) -let dynamicDisplayTypeHint self = msg_send ~self ~cmd:(selector "dynamicDisplayTypeHint") ~typ:(returning (bool)) -let effectiveLayoutTag self = msg_send ~self ~cmd:(selector "effectiveLayoutTag") ~typ:(returning (id)) -let elaborateLayoutWithSize x ~scale self = msg_send ~self ~cmd:(selector "elaborateLayoutWithSize:scale:") ~typ:(CGSize.t @-> double @-> returning (void)) x scale -let elaborateLayoutWithSize' x ~scale ~origin self = msg_send ~self ~cmd:(selector "elaborateLayoutWithSize:scale:origin:") ~typ:(CGSize.t @-> double @-> CGPoint.t @-> returning (void)) x scale origin -let findLeftMoreKey self = msg_send ~self ~cmd:(selector "findLeftMoreKey") ~typ:(returning (id)) -let firstCachedKeyWithName x self = msg_send ~self ~cmd:(selector "firstCachedKeyWithName:") ~typ:(id @-> returning (id)) x -let firstKeyplaneSwitchKey self = msg_send ~self ~cmd:(selector "firstKeyplaneSwitchKey") ~typ:(returning (id)) -let flickDirection self = msg_send ~self ~cmd:(selector "flickDirection") ~typ:(returning (llong)) -let forceMultitap self = msg_send ~self ~cmd:(selector "forceMultitap") ~typ:(returning (bool)) -let frame self = msg_send_stret ~self ~cmd:(selector "frame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let frameForKeylayoutName x self = msg_send_stret ~self ~cmd:(selector "frameForKeylayoutName:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let fullRepresentedString self = msg_send ~self ~cmd:(selector "fullRepresentedString") ~typ:(returning (id)) -let geometries self = msg_send ~self ~cmd:(selector "geometries") ~typ:(returning (id)) -let geometriesList self = msg_send ~self ~cmd:(selector "geometriesList") ~typ:(returning (id)) -let geometriesOrderedByPosition self = msg_send ~self ~cmd:(selector "geometriesOrderedByPosition") ~typ:(returning (id)) -let geometry self = msg_send ~self ~cmd:(selector "geometry") ~typ:(returning (id)) -let geometrySet x self = msg_send ~self ~cmd:(selector "geometrySet:") ~typ:(bool @-> returning (id)) x -let gestureKey self = msg_send ~self ~cmd:(selector "gestureKey") ~typ:(returning (id)) -let gestureKeyplaneName self = msg_send ~self ~cmd:(selector "gestureKeyplaneName") ~typ:(returning (id)) -let ghost self = msg_send ~self ~cmd:(selector "ghost") ~typ:(returning (bool)) -let groupNeighbor self = msg_send ~self ~cmd:(selector "groupNeighbor") ~typ:(returning (ullong)) -let hasLayoutTag x self = msg_send ~self ~cmd:(selector "hasLayoutTag:") ~typ:(id @-> returning (bool)) x -let highlightedVariantIndex self = msg_send ~self ~cmd:(selector "highlightedVariantIndex") ~typ:(returning (llong)) -let highlightedVariantsList self = msg_send ~self ~cmd:(selector "highlightedVariantsList") ~typ:(returning (id)) -let indexOfSubtree x self = msg_send ~self ~cmd:(selector "indexOfSubtree:") ~typ:(id @-> returning (int)) x -let initWithType x self = msg_send ~self ~cmd:(selector "initWithType:") ~typ:(int @-> returning (id)) x -let initWithType' x ~withName ~withProperties ~withSubtrees ~withCache self = msg_send ~self ~cmd:(selector "initWithType:withName:withProperties:withSubtrees:withCache:") ~typ:(int @-> id @-> id @-> id @-> id @-> returning (id)) x withName withProperties withSubtrees withCache -let insertKey x ~withFrame ~andShiftKeys ~scale self = msg_send ~self ~cmd:(selector "insertKey:withFrame:andShiftKeys:scale:") ~typ:(id @-> CGRect.t @-> id @-> double @-> returning (void)) x withFrame andShiftKeys scale -let insetKeys x ~withInsets ~scale self = msg_send ~self ~cmd:(selector "insetKeys:withInsets:scale:") ~typ:(id @-> ptr void @-> double @-> returning (void)) x withInsets scale -let intForProperty x self = msg_send ~self ~cmd:(selector "intForProperty:") ~typ:(id @-> returning (llong)) x -let interactionType self = msg_send ~self ~cmd:(selector "interactionType") ~typ:(returning (int)) -let isAlphabeticPlane self = msg_send ~self ~cmd:(selector "isAlphabeticPlane") ~typ:(returning (bool)) -let isDuplicateOfTree x self = msg_send ~self ~cmd:(selector "isDuplicateOfTree:") ~typ:(id @-> returning (bool)) x -let isEqualToTree x self = msg_send ~self ~cmd:(selector "isEqualToTree:") ~typ:(id @-> returning (bool)) x -let isExemptFromInputManagerHitTesting self = msg_send ~self ~cmd:(selector "isExemptFromInputManagerHitTesting") ~typ:(returning (bool)) -let isExemptFromInputManagerLayout self = msg_send ~self ~cmd:(selector "isExemptFromInputManagerLayout") ~typ:(returning (bool)) -let isFloating self = msg_send ~self ~cmd:(selector "isFloating") ~typ:(returning (bool)) -let isGenerated self = msg_send ~self ~cmd:(selector "isGenerated") ~typ:(returning (bool)) -let isHashed self = msg_send ~self ~cmd:(selector "isHashed") ~typ:(returning (bool)) -let isKanaPlane self = msg_send ~self ~cmd:(selector "isKanaPlane") ~typ:(returning (bool)) -let isLeafType self = msg_send ~self ~cmd:(selector "isLeafType") ~typ:(returning (bool)) -let isLetters self = msg_send ~self ~cmd:(selector "isLetters") ~typ:(returning (bool)) -let isRightToLeftSensitive self = msg_send ~self ~cmd:(selector "isRightToLeftSensitive") ~typ:(returning (bool)) -let isSameAsTree x self = msg_send ~self ~cmd:(selector "isSameAsTree:") ~typ:(id @-> returning (bool)) x -let isShiftKeyPlaneChooser self = msg_send ~self ~cmd:(selector "isShiftKeyPlaneChooser") ~typ:(returning (bool)) -let isShiftKeyplane self = msg_send ~self ~cmd:(selector "isShiftKeyplane") ~typ:(returning (bool)) -let isSplit self = msg_send ~self ~cmd:(selector "isSplit") ~typ:(returning (bool)) -let keyAttributes self = msg_send ~self ~cmd:(selector "keyAttributes") ~typ:(returning (id)) -let keyForString x self = msg_send ~self ~cmd:(selector "keyForString:") ~typ:(id @-> returning (id)) x -let keySet self = msg_send ~self ~cmd:(selector "keySet") ~typ:(returning (id)) -let keyUnionFrame self = msg_send_stret ~self ~cmd:(selector "keyUnionFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let keyUnionFramePadded x self = msg_send_stret ~self ~cmd:(selector "keyUnionFramePadded:") ~typ:(bool @-> returning (CGRect.t)) ~return_type:CGRect.t x -let keyUnionPaddedFrame self = msg_send_stret ~self ~cmd:(selector "keyUnionPaddedFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let keyplaneForKey x self = msg_send ~self ~cmd:(selector "keyplaneForKey:") ~typ:(id @-> returning (id)) x -let keyplaneSwitchKeys self = msg_send ~self ~cmd:(selector "keyplaneSwitchKeys") ~typ:(returning (id)) -let keyplaneSwitchKeysWithoutCurrentKeyplane x self = msg_send ~self ~cmd:(selector "keyplaneSwitchKeysWithoutCurrentKeyplane:") ~typ:(id @-> returning (id)) x -let keys self = msg_send ~self ~cmd:(selector "keys") ~typ:(returning (id)) -let keysByKeyName x self = msg_send ~self ~cmd:(selector "keysByKeyName:") ~typ:(id @-> returning (id)) x -let keysExcludingEmptyKeys self = msg_send ~self ~cmd:(selector "keysExcludingEmptyKeys") ~typ:(returning (id)) -let keysForDisplayRowAtIndex x self = msg_send ~self ~cmd:(selector "keysForDisplayRowAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let keysForMergeConditions self = msg_send ~self ~cmd:(selector "keysForMergeConditions") ~typ:(returning (id)) -let keysOrderedByPosition self = msg_send ~self ~cmd:(selector "keysOrderedByPosition") ~typ:(returning (id)) -let keysOrderedByPositionRTL self = msg_send ~self ~cmd:(selector "keysOrderedByPositionRTL") ~typ:(returning (id)) -let keysOrderedByPositionWithoutZip self = msg_send ~self ~cmd:(selector "keysOrderedByPositionWithoutZip") ~typ:(returning (id)) -let keysWithString x self = msg_send ~self ~cmd:(selector "keysWithString:") ~typ:(id @-> returning (id)) x -let keysetCanContainWriteboardKey self = msg_send ~self ~cmd:(selector "keysetCanContainWriteboardKey") ~typ:(returning (id)) -let layoutName self = msg_send ~self ~cmd:(selector "layoutName") ~typ:(returning (id)) -let layoutTag self = msg_send ~self ~cmd:(selector "layoutTag") ~typ:(returning (id)) -let listShapes self = msg_send ~self ~cmd:(selector "listShapes") ~typ:(returning (id)) -let localizationKey self = msg_send ~self ~cmd:(selector "localizationKey") ~typ:(returning (id)) -let looksExactlyLikeShiftAlternate self = msg_send ~self ~cmd:(selector "looksExactlyLikeShiftAlternate") ~typ:(returning (bool)) -let looksLike x self = msg_send ~self ~cmd:(selector "looksLike:") ~typ:(id @-> returning (bool)) x -let looksLikeShiftAlternate self = msg_send ~self ~cmd:(selector "looksLikeShiftAlternate") ~typ:(returning (bool)) -let mergeAsMoreKey self = msg_send ~self ~cmd:(selector "mergeAsMoreKey") ~typ:(returning (bool)) -let mergeKeyNames x self = msg_send ~self ~cmd:(selector "mergeKeyNames:") ~typ:(id @-> returning (id)) x -let mergeReturnKey x ~withReturnKey self = msg_send ~self ~cmd:(selector "mergeReturnKey:withReturnKey:") ~typ:(id @-> id @-> returning (void)) x withReturnKey -let modifiesKeyplane self = msg_send ~self ~cmd:(selector "modifiesKeyplane") ~typ:(returning (bool)) -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let nameFromAttributes self = msg_send ~self ~cmd:(selector "nameFromAttributes") ~typ:(returning (id)) -let nativeIdiom self = msg_send ~self ~cmd:(selector "nativeIdiom") ~typ:(returning (llong)) -let navigationPointOfKey self = msg_send_stret ~self ~cmd:(selector "navigationPointOfKey") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let noLanguageIndicator self = msg_send ~self ~cmd:(selector "noLanguageIndicator") ~typ:(returning (bool)) -let notUseCandidateSelection self = msg_send ~self ~cmd:(selector "notUseCandidateSelection") ~typ:(returning (bool)) -let numberForProperty x self = msg_send ~self ~cmd:(selector "numberForProperty:") ~typ:(id @-> returning (id)) x -let numberOfRows self = msg_send ~self ~cmd:(selector "numberOfRows") ~typ:(returning (ullong)) -let objectForProperty x self = msg_send ~self ~cmd:(selector "objectForProperty:") ~typ:(id @-> returning (id)) x -let orderVariantKeys x self = msg_send ~self ~cmd:(selector "orderVariantKeys:") ~typ:(bool @-> returning (void)) x -let originalFrame self = msg_send_stret ~self ~cmd:(selector "originalFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let overrideDisplayString self = msg_send ~self ~cmd:(selector "overrideDisplayString") ~typ:(returning (id)) -let paddedFrame self = msg_send_stret ~self ~cmd:(selector "paddedFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let parentKey self = msg_send ~self ~cmd:(selector "parentKey") ~typ:(returning (id)) -let popupDirection self = msg_send ~self ~cmd:(selector "popupDirection") ~typ:(returning (llong)) -let precacheLayoutName x self = msg_send ~self ~cmd:(selector "precacheLayoutName:") ~typ:(id @-> returning (void)) x -let preventPaddle self = msg_send ~self ~cmd:(selector "preventPaddle") ~typ:(returning (bool)) -let primaryKeylayoutOffset self = msg_send ~self ~cmd:(selector "primaryKeylayoutOffset") ~typ:(returning (double)) -let primaryKeylayoutWidthRatio self = msg_send ~self ~cmd:(selector "primaryKeylayoutWidthRatio") ~typ:(returning (double)) -let properties self = msg_send ~self ~cmd:(selector "properties") ~typ:(returning (id)) -let recursiveDescription self = msg_send ~self ~cmd:(selector "recursiveDescription") ~typ:(returning (id)) -let removeKey x self = msg_send ~self ~cmd:(selector "removeKey:") ~typ:(id @-> returning (void)) x -let removeKey' x ~andShiftKeys ~scale self = msg_send ~self ~cmd:(selector "removeKey:andShiftKeys:scale:") ~typ:(id @-> id @-> double @-> returning (void)) x andShiftKeys scale -let removeKeyFromAllCachedLists x self = msg_send ~self ~cmd:(selector "removeKeyFromAllCachedLists:") ~typ:(id @-> returning (void)) x -let removeKeyFromCachedKeyList x self = msg_send ~self ~cmd:(selector "removeKeyFromCachedKeyList:") ~typ:(id @-> returning (void)) x -let renderKeyInKeyplane x self = msg_send ~self ~cmd:(selector "renderKeyInKeyplane:") ~typ:(id @-> returning (bool)) x -let rendering self = msg_send ~self ~cmd:(selector "rendering") ~typ:(returning (int)) -let replaceKey x ~withKey self = msg_send ~self ~cmd:(selector "replaceKey:withKey:") ~typ:(id @-> id @-> returning (void)) x withKey -let repositionKeys x ~withOffset ~scale self = msg_send ~self ~cmd:(selector "repositionKeys:withOffset:scale:") ~typ:(id @-> CGPoint.t @-> double @-> returning (void)) x withOffset scale -let representedString self = msg_send ~self ~cmd:(selector "representedString") ~typ:(returning (id)) -let resizeKeys x ~withOffset ~scale self = msg_send ~self ~cmd:(selector "resizeKeys:withOffset:scale:") ~typ:(id @-> CGPoint.t @-> double @-> returning (void)) x withOffset scale -let resizingOffset self = msg_send ~self ~cmd:(selector "resizingOffset") ~typ:(returning (double)) -let rightSpaceKey self = msg_send ~self ~cmd:(selector "rightSpaceKey") ~typ:(returning (id)) -let scaleKeys x ~withFactor ~scale self = msg_send ~self ~cmd:(selector "scaleKeys:withFactor:scale:") ~typ:(id @-> CGSize.t @-> double @-> returning (void)) x withFactor scale -let scriptSwitchKey self = msg_send ~self ~cmd:(selector "scriptSwitchKey") ~typ:(returning (id)) -let secondaryDisplayStrings self = msg_send ~self ~cmd:(selector "secondaryDisplayStrings") ~typ:(returning (id)) -let secondaryRepresentedStrings self = msg_send ~self ~cmd:(selector "secondaryRepresentedStrings") ~typ:(returning (id)) -let selectedVariantIndex self = msg_send ~self ~cmd:(selector "selectedVariantIndex") ~typ:(returning (llong)) -let selectedVariantIndices self = msg_send ~self ~cmd:(selector "selectedVariantIndices") ~typ:(returning (id)) -let setActiveGeometriesList x self = msg_send ~self ~cmd:(selector "setActiveGeometriesList:") ~typ:(id @-> returning (void)) x -let setAttributes x self = msg_send ~self ~cmd:(selector "setAttributes:") ~typ:(id @-> returning (void)) x -let setCache x self = msg_send ~self ~cmd:(selector "setCache:") ~typ:(id @-> returning (void)) x -let setCachedGestureLayout x self = msg_send ~self ~cmd:(selector "setCachedGestureLayout:") ~typ:(id @-> returning (void)) x -let setClipCorners x self = msg_send ~self ~cmd:(selector "setClipCorners:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDisabled x self = msg_send ~self ~cmd:(selector "setDisabled:") ~typ:(bool @-> returning (void)) x -let setDisplayRowHint x self = msg_send ~self ~cmd:(selector "setDisplayRowHint:") ~typ:(int @-> returning (void)) x -let setDisplayString x self = msg_send ~self ~cmd:(selector "setDisplayString:") ~typ:(id @-> returning (void)) x -let setDisplayType x self = msg_send ~self ~cmd:(selector "setDisplayType:") ~typ:(int @-> returning (void)) x -let setDisplayTypeHint x self = msg_send ~self ~cmd:(selector "setDisplayTypeHint:") ~typ:(int @-> returning (void)) x -let setEffectiveLayoutTag x self = msg_send ~self ~cmd:(selector "setEffectiveLayoutTag:") ~typ:(id @-> returning (void)) x -let setFlickDirection x self = msg_send ~self ~cmd:(selector "setFlickDirection:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setForceMultitap x self = msg_send ~self ~cmd:(selector "setForceMultitap:") ~typ:(bool @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setGeometriesList x self = msg_send ~self ~cmd:(selector "setGeometriesList:") ~typ:(id @-> returning (void)) x -let setGeometry x self = msg_send ~self ~cmd:(selector "setGeometry:") ~typ:(id @-> returning (void)) x -let setGestureKey x self = msg_send ~self ~cmd:(selector "setGestureKey:") ~typ:(id @-> returning (void)) x -let setGhost x self = msg_send ~self ~cmd:(selector "setGhost:") ~typ:(bool @-> returning (void)) x -let setGroupNeighbor x self = msg_send ~self ~cmd:(selector "setGroupNeighbor:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setHighlightedVariantsList x self = msg_send ~self ~cmd:(selector "setHighlightedVariantsList:") ~typ:(id @-> returning (void)) x -let setInteractionType x self = msg_send ~self ~cmd:(selector "setInteractionType:") ~typ:(int @-> returning (void)) x -let setIsFloating x self = msg_send ~self ~cmd:(selector "setIsFloating:") ~typ:(bool @-> returning (void)) x -let setIsGenerated x self = msg_send ~self ~cmd:(selector "setIsGenerated:") ~typ:(bool @-> returning (void)) x -let setLayoutTag x self = msg_send ~self ~cmd:(selector "setLayoutTag:") ~typ:(id @-> returning (void)) x -let setLayoutTag' x ~passingKeyTest self = msg_send ~self ~cmd:(selector "setLayoutTag:passingKeyTest:") ~typ:(id @-> ptr void @-> returning (void)) x passingKeyTest -let setLocalizationKey x self = msg_send ~self ~cmd:(selector "setLocalizationKey:") ~typ:(id @-> returning (void)) x -let setMergeAsMoreKey x self = msg_send ~self ~cmd:(selector "setMergeAsMoreKey:") ~typ:(bool @-> returning (void)) x -let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning (void)) x -let setObject x ~forProperty self = msg_send ~self ~cmd:(selector "setObject:forProperty:") ~typ:(id @-> id @-> returning (bool)) x forProperty -let setOverrideDisplayString x self = msg_send ~self ~cmd:(selector "setOverrideDisplayString:") ~typ:(id @-> returning (void)) x -let setPaddedFrame x self = msg_send ~self ~cmd:(selector "setPaddedFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setParentKey x self = msg_send ~self ~cmd:(selector "setParentKey:") ~typ:(id @-> returning (void)) x -let setPopupDirection x self = msg_send ~self ~cmd:(selector "setPopupDirection:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPreventPaddle x self = msg_send ~self ~cmd:(selector "setPreventPaddle:") ~typ:(bool @-> returning (void)) x -let setProperties x self = msg_send ~self ~cmd:(selector "setProperties:") ~typ:(id @-> returning (void)) x -let setRendering x self = msg_send ~self ~cmd:(selector "setRendering:") ~typ:(int @-> returning (void)) x -let setRepresentedString x self = msg_send ~self ~cmd:(selector "setRepresentedString:") ~typ:(id @-> returning (void)) x -let setResizingOffset x self = msg_send ~self ~cmd:(selector "setResizingOffset:") ~typ:(double @-> returning (void)) x -let setSecondaryDisplayStrings x self = msg_send ~self ~cmd:(selector "setSecondaryDisplayStrings:") ~typ:(id @-> returning (void)) x -let setSecondaryRepresentedStrings x self = msg_send ~self ~cmd:(selector "setSecondaryRepresentedStrings:") ~typ:(id @-> returning (void)) x -let setSelectedVariantIndex x self = msg_send ~self ~cmd:(selector "setSelectedVariantIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSelectedVariantIndices x self = msg_send ~self ~cmd:(selector "setSelectedVariantIndices:") ~typ:(id @-> returning (void)) x -let setShape x self = msg_send ~self ~cmd:(selector "setShape:") ~typ:(id @-> returning (void)) x -let setSplitMode x self = msg_send ~self ~cmd:(selector "setSplitMode:") ~typ:(int @-> returning (void)) x -let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(int @-> returning (void)) x -let setSubtrees x self = msg_send ~self ~cmd:(selector "setSubtrees:") ~typ:(id @-> returning (void)) x -let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(int @-> returning (void)) x -let setVariantPopupBias x self = msg_send ~self ~cmd:(selector "setVariantPopupBias:") ~typ:(id @-> returning (void)) x -let setVariantType x self = msg_send ~self ~cmd:(selector "setVariantType:") ~typ:(int @-> returning (void)) x -let setVisible x self = msg_send ~self ~cmd:(selector "setVisible:") ~typ:(bool @-> returning (void)) x -let setVisualStyle x self = msg_send ~self ~cmd:(selector "setVisualStyle:") ~typ:(int @-> returning (void)) x -let setVisualStyling x self = msg_send ~self ~cmd:(selector "setVisualStyling:") ~typ:(ptr void @-> returning (void)) x -let shape self = msg_send ~self ~cmd:(selector "shape") ~typ:(returning (id)) -let shapeFromFrame x ~leftPadding ~rightPadding self = msg_send ~self ~cmd:(selector "shapeFromFrame:leftPadding:rightPadding:") ~typ:(CGRect.t @-> double @-> double @-> returning (id)) x leftPadding rightPadding -let shapesForKeys x self = msg_send ~self ~cmd:(selector "shapesForKeys:") ~typ:(id @-> returning (id)) x -let shiftAlternateKeyplaneName self = msg_send ~self ~cmd:(selector "shiftAlternateKeyplaneName") ~typ:(returning (id)) -let shiftRowAndResizeLeadingControlKey x ~toSize ~scale self = msg_send ~self ~cmd:(selector "shiftRowAndResizeLeadingControlKey:toSize:scale:") ~typ:(id @-> CGSize.t @-> double @-> returning (void)) x toSize scale -let shouldCacheKey self = msg_send ~self ~cmd:(selector "shouldCacheKey") ~typ:(returning (bool)) -let shouldSkipCandidateSelection self = msg_send ~self ~cmd:(selector "shouldSkipCandidateSelection") ~typ:(returning (bool)) -let shouldSkipCandidateSelectionForVariants self = msg_send ~self ~cmd:(selector "shouldSkipCandidateSelectionForVariants") ~typ:(returning (bool)) -let shouldSuppressDragRetest self = msg_send ~self ~cmd:(selector "shouldSuppressDragRetest") ~typ:(returning (bool)) -let splitMode self = msg_send ~self ~cmd:(selector "splitMode") ~typ:(returning (int)) -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (int)) -let stringForProperty x self = msg_send ~self ~cmd:(selector "stringForProperty:") ~typ:(id @-> returning (id)) x -let subsumeDisappearingKeyName x ~intoKeyName ~factors self = msg_send ~self ~cmd:(selector "subsumeDisappearingKeyName:intoKeyName:factors:") ~typ:(id @-> id @-> id @-> returning (void)) x intoKeyName factors -let subtreeWithName x self = msg_send ~self ~cmd:(selector "subtreeWithName:") ~typ:(id @-> returning (id)) x -let subtreeWithName' x ~rows self = msg_send ~self ~cmd:(selector "subtreeWithName:rows:") ~typ:(id @-> id @-> returning (id)) x rows -let subtreeWithType x self = msg_send ~self ~cmd:(selector "subtreeWithType:") ~typ:(int @-> returning (id)) x -let subtrees self = msg_send ~self ~cmd:(selector "subtrees") ~typ:(returning (id)) -let subtreesAreOrdered self = msg_send ~self ~cmd:(selector "subtreesAreOrdered") ~typ:(returning (bool)) -let subtreesWithProperty x ~value self = msg_send ~self ~cmd:(selector "subtreesWithProperty:value:") ~typ:(id @-> id @-> returning (id)) x value -let supplementaryKeyList self = msg_send ~self ~cmd:(selector "supplementaryKeyList") ~typ:(returning (id)) -let supportsContinuousPath self = msg_send ~self ~cmd:(selector "supportsContinuousPath") ~typ:(returning (bool)) -let supportsType x self = msg_send ~self ~cmd:(selector "supportsType:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning (llong)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (int)) -let unhashedName self = msg_send ~self ~cmd:(selector "unhashedName") ~typ:(returning (id)) -let updateDictationKeyOnNumberPads x self = msg_send ~self ~cmd:(selector "updateDictationKeyOnNumberPads:") ~typ:(bool @-> returning (void)) x -let updateFlickKeycapOnKeys self = msg_send ~self ~cmd:(selector "updateFlickKeycapOnKeys") ~typ:(returning (void)) -let updateMoreAndInternationalKeysWithOptions x self = msg_send ~self ~cmd:(selector "updateMoreAndInternationalKeysWithOptions:") ~typ:(int @-> returning (void)) x -let updateVariantTypeForActions x self = msg_send ~self ~cmd:(selector "updateVariantTypeForActions:") ~typ:(uint @-> returning (void)) x -let usesAdaptiveKeys self = msg_send ~self ~cmd:(selector "usesAdaptiveKeys") ~typ:(returning (bool)) -let usesAutoShift self = msg_send ~self ~cmd:(selector "usesAutoShift") ~typ:(returning (bool)) -let usesKeyCharging self = msg_send ~self ~cmd:(selector "usesKeyCharging") ~typ:(returning (bool)) -let variantDisplayString self = msg_send ~self ~cmd:(selector "variantDisplayString") ~typ:(returning (id)) -let variantPopupBias self = msg_send ~self ~cmd:(selector "variantPopupBias") ~typ:(returning (id)) -let variantType self = msg_send ~self ~cmd:(selector "variantType") ~typ:(returning (int)) -let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning (bool)) -let visualStyle self = msg_send ~self ~cmd:(selector "visualStyle") ~typ:(returning (int)) -let zipAttributes self = msg_send ~self ~cmd:(selector "zipAttributes") ~typ:(returning (void)) -let zipGeometries x ~attributes self = msg_send ~self ~cmd:(selector "zipGeometries:attributes:") ~typ:(bool @-> bool @-> returning (void)) x attributes -let zipGeometrySet self = msg_send ~self ~cmd:(selector "zipGeometrySet") ~typ:(returning (void)) -let zipOnlyGeometrySet self = msg_send ~self ~cmd:(selector "zipOnlyGeometrySet") ~typ:(returning (void)) \ No newline at end of file +let activeGeometriesList self = msg_send ~self ~cmd:(selector "activeGeometriesList") ~typ:(returning id) +let activeShapesFromOutputShapes x ~inputShapes self = msg_send ~self ~cmd:(selector "activeShapesFromOutputShapes:inputShapes:") ~typ:(id @-> id @-> returning id) x inputShapes +let addMessagesWriteboardKeyOrRomanSwitch x self = msg_send ~self ~cmd:(selector "addMessagesWriteboardKeyOrRomanSwitch:") ~typ:(bool @-> returning bool) x +let addMessagesWriteboardKeyOrRomanSwitchIfDismissKey x self = msg_send ~self ~cmd:(selector "addMessagesWriteboardKeyOrRomanSwitchIfDismissKey:") ~typ:(bool @-> returning bool) x +let addMessagesWriteboardKeyOrRomanSwitchIfNoDismissKey x self = msg_send ~self ~cmd:(selector "addMessagesWriteboardKeyOrRomanSwitchIfNoDismissKey:") ~typ:(bool @-> returning bool) x +let addRomanSwitchToCachedKeyListWithShape x ~rendering self = msg_send ~self ~cmd:(selector "addRomanSwitchToCachedKeyListWithShape:rendering:") ~typ:(id @-> int @-> returning void) x rendering +let addWriteboardKeyToCachedKeyListWithShape x ~rendering self = msg_send ~self ~cmd:(selector "addWriteboardKeyToCachedKeyListWithShape:rendering:") ~typ:(id @-> int @-> returning void) x rendering +let addkeyToCachedKeyList x self = msg_send ~self ~cmd:(selector "addkeyToCachedKeyList:") ~typ:(id @-> returning void) x +let allowRetestAfterCommittingDownActions self = msg_send ~self ~cmd:(selector "allowRetestAfterCommittingDownActions") ~typ:(returning bool) +let allowsDelayedTapForContinuousPathDisambiguation self = msg_send ~self ~cmd:(selector "allowsDelayedTapForContinuousPathDisambiguation") ~typ:(returning bool) +let allowsStartingContinuousPath self = msg_send ~self ~cmd:(selector "allowsStartingContinuousPath") ~typ:(returning bool) +let alternateKeyplaneName self = msg_send ~self ~cmd:(selector "alternateKeyplaneName") ~typ:(returning id) +let attributeSet x self = msg_send ~self ~cmd:(selector "attributeSet:") ~typ:(bool @-> returning id) x +let autolocalizedKeyCacheIterator self = msg_send ~self ~cmd:(selector "autolocalizedKeyCacheIterator") ~typ:(returning id) +let avoidAutoDeactivation self = msg_send ~self ~cmd:(selector "avoidAutoDeactivation") ~typ:(returning bool) +let avoidsLanguageIndicator self = msg_send ~self ~cmd:(selector "avoidsLanguageIndicator") ~typ:(returning bool) +let behavesAsShiftKey self = msg_send ~self ~cmd:(selector "behavesAsShiftKey") ~typ:(returning bool) +let boolForProperty x self = msg_send ~self ~cmd:(selector "boolForProperty:") ~typ:(id @-> returning bool) x +let cache self = msg_send ~self ~cmd:(selector "cache") ~typ:(returning id) +let cacheDisplayString self = msg_send ~self ~cmd:(selector "cacheDisplayString") ~typ:(returning id) +let cacheKey x self = msg_send ~self ~cmd:(selector "cacheKey:") ~typ:(id @-> returning void) x +let cacheNativeIdiomIfNecessaryForScreenTraits x self = msg_send ~self ~cmd:(selector "cacheNativeIdiomIfNecessaryForScreenTraits:") ~typ:(id @-> returning void) x +let cacheSecondaryDisplayString self = msg_send ~self ~cmd:(selector "cacheSecondaryDisplayString") ~typ:(returning id) +let cachedGestureLayout self = msg_send ~self ~cmd:(selector "cachedGestureLayout") ~typ:(returning id) +let cachedKeysByKeyName x self = msg_send ~self ~cmd:(selector "cachedKeysByKeyName:") ~typ:(id @-> returning id) x +let centerHorizontallyWhilePreservingLayoutWithKeys x ~inRect ~scale self = msg_send ~self ~cmd:(selector "centerHorizontallyWhilePreservingLayoutWithKeys:inRect:scale:") ~typ:(id @-> CGRect.t @-> double @-> returning void) x inRect scale +let centerKeyplaneInRect x ~scale self = msg_send ~self ~cmd:(selector "centerKeyplaneInRect:scale:") ~typ:(CGRect.t @-> double @-> returning void) x scale +let centerKeys x ~inRect ~scale self = msg_send ~self ~cmd:(selector "centerKeys:inRect:scale:") ~typ:(id @-> CGRect.t @-> double @-> returning void) x inRect scale +let centerVerticallyWhilePreservingLayoutWithKeys x ~inRect ~scale self = msg_send ~self ~cmd:(selector "centerVerticallyWhilePreservingLayoutWithKeys:inRect:scale:") ~typ:(id @-> CGRect.t @-> double @-> returning void) x inRect scale +let centerWhilePreservingLayoutWithKeys x ~inRect ~scale self = msg_send ~self ~cmd:(selector "centerWhilePreservingLayoutWithKeys:inRect:scale:") ~typ:(id @-> CGRect.t @-> double @-> returning void) x inRect scale +let clearManualAddedKey self = msg_send ~self ~cmd:(selector "clearManualAddedKey") ~typ:(returning void) +let clearTransientCaches self = msg_send ~self ~cmd:(selector "clearTransientCaches") ~typ:(returning void) +let clipCorners self = msg_send ~self ~cmd:(selector "clipCorners") ~typ:(returning ullong) +let componentName self = msg_send ~self ~cmd:(selector "componentName") ~typ:(returning id) +let containsDividerVariant self = msg_send ~self ~cmd:(selector "containsDividerVariant") ~typ:(returning bool) +let containsKeyThatIgnoresHandBias self = msg_send ~self ~cmd:(selector "containsKeyThatIgnoresHandBias") ~typ:(returning bool) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let diacriticForwardCompose self = msg_send ~self ~cmd:(selector "diacriticForwardCompose") ~typ:(returning bool) +let disabled self = msg_send ~self ~cmd:(selector "disabled") ~typ:(returning bool) +let disablesEdgeSwipe self = msg_send ~self ~cmd:(selector "disablesEdgeSwipe") ~typ:(returning bool) +let displayRowHint self = msg_send ~self ~cmd:(selector "displayRowHint") ~typ:(returning int) +let displayString self = msg_send ~self ~cmd:(selector "displayString") ~typ:(returning id) +let displayType self = msg_send ~self ~cmd:(selector "displayType") ~typ:(returning int) +let displayTypeHint self = msg_send ~self ~cmd:(selector "displayTypeHint") ~typ:(returning int) +let dragThreshold self = msg_send ~self ~cmd:(selector "dragThreshold") ~typ:(returning int) +let dynamicDisplayTypeHint self = msg_send ~self ~cmd:(selector "dynamicDisplayTypeHint") ~typ:(returning bool) +let effectiveLayoutTag self = msg_send ~self ~cmd:(selector "effectiveLayoutTag") ~typ:(returning id) +let elaborateLayoutWithSize x ~scale self = msg_send ~self ~cmd:(selector "elaborateLayoutWithSize:scale:") ~typ:(CGSize.t @-> double @-> returning void) x scale +let elaborateLayoutWithSize' x ~scale ~origin self = msg_send ~self ~cmd:(selector "elaborateLayoutWithSize:scale:origin:") ~typ:(CGSize.t @-> double @-> CGPoint.t @-> returning void) x scale origin +let findLeftMoreKey self = msg_send ~self ~cmd:(selector "findLeftMoreKey") ~typ:(returning id) +let firstCachedKeyWithName x self = msg_send ~self ~cmd:(selector "firstCachedKeyWithName:") ~typ:(id @-> returning id) x +let firstKeyplaneSwitchKey self = msg_send ~self ~cmd:(selector "firstKeyplaneSwitchKey") ~typ:(returning id) +let flickDirection self = msg_send ~self ~cmd:(selector "flickDirection") ~typ:(returning llong) +let forceMultitap self = msg_send ~self ~cmd:(selector "forceMultitap") ~typ:(returning bool) +let frame self = msg_send ~self ~cmd:(selector "frame") ~typ:(returning CGRect.t) +let frameForKeylayoutName x self = msg_send ~self ~cmd:(selector "frameForKeylayoutName:") ~typ:(id @-> returning CGRect.t) x +let fullRepresentedString self = msg_send ~self ~cmd:(selector "fullRepresentedString") ~typ:(returning id) +let geometries self = msg_send ~self ~cmd:(selector "geometries") ~typ:(returning id) +let geometriesList self = msg_send ~self ~cmd:(selector "geometriesList") ~typ:(returning id) +let geometriesOrderedByPosition self = msg_send ~self ~cmd:(selector "geometriesOrderedByPosition") ~typ:(returning id) +let geometry self = msg_send ~self ~cmd:(selector "geometry") ~typ:(returning id) +let geometrySet x self = msg_send ~self ~cmd:(selector "geometrySet:") ~typ:(bool @-> returning id) x +let gestureKey self = msg_send ~self ~cmd:(selector "gestureKey") ~typ:(returning id) +let gestureKeyplaneName self = msg_send ~self ~cmd:(selector "gestureKeyplaneName") ~typ:(returning id) +let ghost self = msg_send ~self ~cmd:(selector "ghost") ~typ:(returning bool) +let groupNeighbor self = msg_send ~self ~cmd:(selector "groupNeighbor") ~typ:(returning ullong) +let hasLayoutTag x self = msg_send ~self ~cmd:(selector "hasLayoutTag:") ~typ:(id @-> returning bool) x +let highlightedVariantIndex self = msg_send ~self ~cmd:(selector "highlightedVariantIndex") ~typ:(returning llong) +let highlightedVariantsList self = msg_send ~self ~cmd:(selector "highlightedVariantsList") ~typ:(returning id) +let indexOfSubtree x self = msg_send ~self ~cmd:(selector "indexOfSubtree:") ~typ:(id @-> returning int) x +let initWithType x self = msg_send ~self ~cmd:(selector "initWithType:") ~typ:(int @-> returning id) x +let initWithType' x ~withName ~withProperties ~withSubtrees ~withCache self = msg_send ~self ~cmd:(selector "initWithType:withName:withProperties:withSubtrees:withCache:") ~typ:(int @-> id @-> id @-> id @-> id @-> returning id) x withName withProperties withSubtrees withCache +let insertKey x ~withFrame ~andShiftKeys ~scale self = msg_send ~self ~cmd:(selector "insertKey:withFrame:andShiftKeys:scale:") ~typ:(id @-> CGRect.t @-> id @-> double @-> returning void) x withFrame andShiftKeys scale +let insetKeys x ~withInsets ~scale self = msg_send ~self ~cmd:(selector "insetKeys:withInsets:scale:") ~typ:(id @-> UIEdgeInsets.t @-> double @-> returning void) x withInsets scale +let intForProperty x self = msg_send ~self ~cmd:(selector "intForProperty:") ~typ:(id @-> returning llong) x +let interactionType self = msg_send ~self ~cmd:(selector "interactionType") ~typ:(returning int) +let isAlphabeticPlane self = msg_send ~self ~cmd:(selector "isAlphabeticPlane") ~typ:(returning bool) +let isDuplicateOfTree x self = msg_send ~self ~cmd:(selector "isDuplicateOfTree:") ~typ:(id @-> returning bool) x +let isEqualToTree x self = msg_send ~self ~cmd:(selector "isEqualToTree:") ~typ:(id @-> returning bool) x +let isExemptFromInputManagerHitTesting self = msg_send ~self ~cmd:(selector "isExemptFromInputManagerHitTesting") ~typ:(returning bool) +let isExemptFromInputManagerLayout self = msg_send ~self ~cmd:(selector "isExemptFromInputManagerLayout") ~typ:(returning bool) +let isFloating self = msg_send ~self ~cmd:(selector "isFloating") ~typ:(returning bool) +let isGenerated self = msg_send ~self ~cmd:(selector "isGenerated") ~typ:(returning bool) +let isHashed self = msg_send ~self ~cmd:(selector "isHashed") ~typ:(returning bool) +let isKanaPlane self = msg_send ~self ~cmd:(selector "isKanaPlane") ~typ:(returning bool) +let isLeafType self = msg_send ~self ~cmd:(selector "isLeafType") ~typ:(returning bool) +let isLetters self = msg_send ~self ~cmd:(selector "isLetters") ~typ:(returning bool) +let isRightToLeftSensitive self = msg_send ~self ~cmd:(selector "isRightToLeftSensitive") ~typ:(returning bool) +let isSameAsTree x self = msg_send ~self ~cmd:(selector "isSameAsTree:") ~typ:(id @-> returning bool) x +let isShiftKeyPlaneChooser self = msg_send ~self ~cmd:(selector "isShiftKeyPlaneChooser") ~typ:(returning bool) +let isShiftKeyplane self = msg_send ~self ~cmd:(selector "isShiftKeyplane") ~typ:(returning bool) +let isSplit self = msg_send ~self ~cmd:(selector "isSplit") ~typ:(returning bool) +let keyAttributes self = msg_send ~self ~cmd:(selector "keyAttributes") ~typ:(returning id) +let keyForString x self = msg_send ~self ~cmd:(selector "keyForString:") ~typ:(id @-> returning id) x +let keySet self = msg_send ~self ~cmd:(selector "keySet") ~typ:(returning id) +let keyUnionFrame self = msg_send ~self ~cmd:(selector "keyUnionFrame") ~typ:(returning CGRect.t) +let keyUnionFramePadded x self = msg_send ~self ~cmd:(selector "keyUnionFramePadded:") ~typ:(bool @-> returning CGRect.t) x +let keyUnionPaddedFrame self = msg_send ~self ~cmd:(selector "keyUnionPaddedFrame") ~typ:(returning CGRect.t) +let keyplaneForKey x self = msg_send ~self ~cmd:(selector "keyplaneForKey:") ~typ:(id @-> returning id) x +let keyplaneSwitchKeys self = msg_send ~self ~cmd:(selector "keyplaneSwitchKeys") ~typ:(returning id) +let keyplaneSwitchKeysWithoutCurrentKeyplane x self = msg_send ~self ~cmd:(selector "keyplaneSwitchKeysWithoutCurrentKeyplane:") ~typ:(id @-> returning id) x +let keys self = msg_send ~self ~cmd:(selector "keys") ~typ:(returning id) +let keysByKeyName x self = msg_send ~self ~cmd:(selector "keysByKeyName:") ~typ:(id @-> returning id) x +let keysExcludingEmptyKeys self = msg_send ~self ~cmd:(selector "keysExcludingEmptyKeys") ~typ:(returning id) +let keysForDisplayRowAtIndex x self = msg_send ~self ~cmd:(selector "keysForDisplayRowAtIndex:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let keysForMergeConditions self = msg_send ~self ~cmd:(selector "keysForMergeConditions") ~typ:(returning id) +let keysOrderedByPosition self = msg_send ~self ~cmd:(selector "keysOrderedByPosition") ~typ:(returning id) +let keysOrderedByPositionRTL self = msg_send ~self ~cmd:(selector "keysOrderedByPositionRTL") ~typ:(returning id) +let keysOrderedByPositionWithoutZip self = msg_send ~self ~cmd:(selector "keysOrderedByPositionWithoutZip") ~typ:(returning id) +let keysWithString x self = msg_send ~self ~cmd:(selector "keysWithString:") ~typ:(id @-> returning id) x +let keysetCanContainWriteboardKey self = msg_send ~self ~cmd:(selector "keysetCanContainWriteboardKey") ~typ:(returning id) +let layoutName self = msg_send ~self ~cmd:(selector "layoutName") ~typ:(returning id) +let layoutTag self = msg_send ~self ~cmd:(selector "layoutTag") ~typ:(returning id) +let listShapes self = msg_send ~self ~cmd:(selector "listShapes") ~typ:(returning id) +let localizationKey self = msg_send ~self ~cmd:(selector "localizationKey") ~typ:(returning id) +let looksExactlyLikeShiftAlternate self = msg_send ~self ~cmd:(selector "looksExactlyLikeShiftAlternate") ~typ:(returning bool) +let looksLike x self = msg_send ~self ~cmd:(selector "looksLike:") ~typ:(id @-> returning bool) x +let looksLikeShiftAlternate self = msg_send ~self ~cmd:(selector "looksLikeShiftAlternate") ~typ:(returning bool) +let mergeAsMoreKey self = msg_send ~self ~cmd:(selector "mergeAsMoreKey") ~typ:(returning bool) +let mergeKeyNames x self = msg_send ~self ~cmd:(selector "mergeKeyNames:") ~typ:(id @-> returning id) x +let mergeReturnKey x ~withReturnKey self = msg_send ~self ~cmd:(selector "mergeReturnKey:withReturnKey:") ~typ:(id @-> id @-> returning void) x withReturnKey +let modifiesKeyplane self = msg_send ~self ~cmd:(selector "modifiesKeyplane") ~typ:(returning bool) +let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) +let nameFromAttributes self = msg_send ~self ~cmd:(selector "nameFromAttributes") ~typ:(returning id) +let nativeIdiom self = msg_send ~self ~cmd:(selector "nativeIdiom") ~typ:(returning llong) +let navigationPointOfKey self = msg_send ~self ~cmd:(selector "navigationPointOfKey") ~typ:(returning CGPoint.t) +let noLanguageIndicator self = msg_send ~self ~cmd:(selector "noLanguageIndicator") ~typ:(returning bool) +let notUseCandidateSelection self = msg_send ~self ~cmd:(selector "notUseCandidateSelection") ~typ:(returning bool) +let numberForProperty x self = msg_send ~self ~cmd:(selector "numberForProperty:") ~typ:(id @-> returning id) x +let numberOfRows self = msg_send ~self ~cmd:(selector "numberOfRows") ~typ:(returning ullong) +let objectForProperty x self = msg_send ~self ~cmd:(selector "objectForProperty:") ~typ:(id @-> returning id) x +let orderVariantKeys x self = msg_send ~self ~cmd:(selector "orderVariantKeys:") ~typ:(bool @-> returning void) x +let originalFrame self = msg_send ~self ~cmd:(selector "originalFrame") ~typ:(returning CGRect.t) +let overrideDisplayString self = msg_send ~self ~cmd:(selector "overrideDisplayString") ~typ:(returning id) +let paddedFrame self = msg_send ~self ~cmd:(selector "paddedFrame") ~typ:(returning CGRect.t) +let parentKey self = msg_send ~self ~cmd:(selector "parentKey") ~typ:(returning id) +let popupDirection self = msg_send ~self ~cmd:(selector "popupDirection") ~typ:(returning llong) +let precacheLayoutName x self = msg_send ~self ~cmd:(selector "precacheLayoutName:") ~typ:(id @-> returning void) x +let preventPaddle self = msg_send ~self ~cmd:(selector "preventPaddle") ~typ:(returning bool) +let primaryKeylayoutOffset self = msg_send ~self ~cmd:(selector "primaryKeylayoutOffset") ~typ:(returning double) +let primaryKeylayoutWidthRatio self = msg_send ~self ~cmd:(selector "primaryKeylayoutWidthRatio") ~typ:(returning double) +let properties self = msg_send ~self ~cmd:(selector "properties") ~typ:(returning id) +let recursiveDescription self = msg_send ~self ~cmd:(selector "recursiveDescription") ~typ:(returning id) +let removeKey x self = msg_send ~self ~cmd:(selector "removeKey:") ~typ:(id @-> returning void) x +let removeKey' x ~andShiftKeys ~scale self = msg_send ~self ~cmd:(selector "removeKey:andShiftKeys:scale:") ~typ:(id @-> id @-> double @-> returning void) x andShiftKeys scale +let removeKeyFromAllCachedLists x self = msg_send ~self ~cmd:(selector "removeKeyFromAllCachedLists:") ~typ:(id @-> returning void) x +let removeKeyFromCachedKeyList x self = msg_send ~self ~cmd:(selector "removeKeyFromCachedKeyList:") ~typ:(id @-> returning void) x +let renderKeyInKeyplane x self = msg_send ~self ~cmd:(selector "renderKeyInKeyplane:") ~typ:(id @-> returning bool) x +let rendering self = msg_send ~self ~cmd:(selector "rendering") ~typ:(returning int) +let replaceKey x ~withKey self = msg_send ~self ~cmd:(selector "replaceKey:withKey:") ~typ:(id @-> id @-> returning void) x withKey +let repositionKeys x ~withOffset ~scale self = msg_send ~self ~cmd:(selector "repositionKeys:withOffset:scale:") ~typ:(id @-> CGPoint.t @-> double @-> returning void) x withOffset scale +let representedString self = msg_send ~self ~cmd:(selector "representedString") ~typ:(returning id) +let resizeKeys x ~withOffset ~scale self = msg_send ~self ~cmd:(selector "resizeKeys:withOffset:scale:") ~typ:(id @-> CGPoint.t @-> double @-> returning void) x withOffset scale +let resizingOffset self = msg_send ~self ~cmd:(selector "resizingOffset") ~typ:(returning double) +let rightSpaceKey self = msg_send ~self ~cmd:(selector "rightSpaceKey") ~typ:(returning id) +let scaleKeys x ~withFactor ~scale self = msg_send ~self ~cmd:(selector "scaleKeys:withFactor:scale:") ~typ:(id @-> CGSize.t @-> double @-> returning void) x withFactor scale +let scriptSwitchKey self = msg_send ~self ~cmd:(selector "scriptSwitchKey") ~typ:(returning id) +let secondaryDisplayStrings self = msg_send ~self ~cmd:(selector "secondaryDisplayStrings") ~typ:(returning id) +let secondaryRepresentedStrings self = msg_send ~self ~cmd:(selector "secondaryRepresentedStrings") ~typ:(returning id) +let selectedVariantIndex self = msg_send ~self ~cmd:(selector "selectedVariantIndex") ~typ:(returning llong) +let selectedVariantIndices self = msg_send ~self ~cmd:(selector "selectedVariantIndices") ~typ:(returning id) +let setActiveGeometriesList x self = msg_send ~self ~cmd:(selector "setActiveGeometriesList:") ~typ:(id @-> returning void) x +let setAttributes x self = msg_send ~self ~cmd:(selector "setAttributes:") ~typ:(id @-> returning void) x +let setCache x self = msg_send ~self ~cmd:(selector "setCache:") ~typ:(id @-> returning void) x +let setCachedGestureLayout x self = msg_send ~self ~cmd:(selector "setCachedGestureLayout:") ~typ:(id @-> returning void) x +let setClipCorners x self = msg_send ~self ~cmd:(selector "setClipCorners:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setDisabled x self = msg_send ~self ~cmd:(selector "setDisabled:") ~typ:(bool @-> returning void) x +let setDisplayRowHint x self = msg_send ~self ~cmd:(selector "setDisplayRowHint:") ~typ:(int @-> returning void) x +let setDisplayString x self = msg_send ~self ~cmd:(selector "setDisplayString:") ~typ:(id @-> returning void) x +let setDisplayType x self = msg_send ~self ~cmd:(selector "setDisplayType:") ~typ:(int @-> returning void) x +let setDisplayTypeHint x self = msg_send ~self ~cmd:(selector "setDisplayTypeHint:") ~typ:(int @-> returning void) x +let setEffectiveLayoutTag x self = msg_send ~self ~cmd:(selector "setEffectiveLayoutTag:") ~typ:(id @-> returning void) x +let setFlickDirection x self = msg_send ~self ~cmd:(selector "setFlickDirection:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setForceMultitap x self = msg_send ~self ~cmd:(selector "setForceMultitap:") ~typ:(bool @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setGeometriesList x self = msg_send ~self ~cmd:(selector "setGeometriesList:") ~typ:(id @-> returning void) x +let setGeometry x self = msg_send ~self ~cmd:(selector "setGeometry:") ~typ:(id @-> returning void) x +let setGestureKey x self = msg_send ~self ~cmd:(selector "setGestureKey:") ~typ:(id @-> returning void) x +let setGhost x self = msg_send ~self ~cmd:(selector "setGhost:") ~typ:(bool @-> returning void) x +let setGroupNeighbor x self = msg_send ~self ~cmd:(selector "setGroupNeighbor:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setHighlightedVariantsList x self = msg_send ~self ~cmd:(selector "setHighlightedVariantsList:") ~typ:(id @-> returning void) x +let setInteractionType x self = msg_send ~self ~cmd:(selector "setInteractionType:") ~typ:(int @-> returning void) x +let setIsFloating x self = msg_send ~self ~cmd:(selector "setIsFloating:") ~typ:(bool @-> returning void) x +let setIsGenerated x self = msg_send ~self ~cmd:(selector "setIsGenerated:") ~typ:(bool @-> returning void) x +let setLayoutTag x self = msg_send ~self ~cmd:(selector "setLayoutTag:") ~typ:(id @-> returning void) x +let setLayoutTag' x ~passingKeyTest self = msg_send ~self ~cmd:(selector "setLayoutTag:passingKeyTest:") ~typ:(id @-> (ptr void) @-> returning void) x passingKeyTest +let setLocalizationKey x self = msg_send ~self ~cmd:(selector "setLocalizationKey:") ~typ:(id @-> returning void) x +let setMergeAsMoreKey x self = msg_send ~self ~cmd:(selector "setMergeAsMoreKey:") ~typ:(bool @-> returning void) x +let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning void) x +let setObject x ~forProperty self = msg_send ~self ~cmd:(selector "setObject:forProperty:") ~typ:(id @-> id @-> returning bool) x forProperty +let setOverrideDisplayString x self = msg_send ~self ~cmd:(selector "setOverrideDisplayString:") ~typ:(id @-> returning void) x +let setPaddedFrame x self = msg_send ~self ~cmd:(selector "setPaddedFrame:") ~typ:(CGRect.t @-> returning void) x +let setParentKey x self = msg_send ~self ~cmd:(selector "setParentKey:") ~typ:(id @-> returning void) x +let setPopupDirection x self = msg_send ~self ~cmd:(selector "setPopupDirection:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPreventPaddle x self = msg_send ~self ~cmd:(selector "setPreventPaddle:") ~typ:(bool @-> returning void) x +let setProperties x self = msg_send ~self ~cmd:(selector "setProperties:") ~typ:(id @-> returning void) x +let setRendering x self = msg_send ~self ~cmd:(selector "setRendering:") ~typ:(int @-> returning void) x +let setRepresentedString x self = msg_send ~self ~cmd:(selector "setRepresentedString:") ~typ:(id @-> returning void) x +let setResizingOffset x self = msg_send ~self ~cmd:(selector "setResizingOffset:") ~typ:(double @-> returning void) x +let setSecondaryDisplayStrings x self = msg_send ~self ~cmd:(selector "setSecondaryDisplayStrings:") ~typ:(id @-> returning void) x +let setSecondaryRepresentedStrings x self = msg_send ~self ~cmd:(selector "setSecondaryRepresentedStrings:") ~typ:(id @-> returning void) x +let setSelectedVariantIndex x self = msg_send ~self ~cmd:(selector "setSelectedVariantIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSelectedVariantIndices x self = msg_send ~self ~cmd:(selector "setSelectedVariantIndices:") ~typ:(id @-> returning void) x +let setShape x self = msg_send ~self ~cmd:(selector "setShape:") ~typ:(id @-> returning void) x +let setSplitMode x self = msg_send ~self ~cmd:(selector "setSplitMode:") ~typ:(int @-> returning void) x +let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(int @-> returning void) x +let setSubtrees x self = msg_send ~self ~cmd:(selector "setSubtrees:") ~typ:(id @-> returning void) x +let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(int @-> returning void) x +let setVariantPopupBias x self = msg_send ~self ~cmd:(selector "setVariantPopupBias:") ~typ:(id @-> returning void) x +let setVariantType x self = msg_send ~self ~cmd:(selector "setVariantType:") ~typ:(int @-> returning void) x +let setVisible x self = msg_send ~self ~cmd:(selector "setVisible:") ~typ:(bool @-> returning void) x +let setVisualStyle x self = msg_send ~self ~cmd:(selector "setVisualStyle:") ~typ:(int @-> returning void) x +let setVisualStyling x self = msg_send ~self ~cmd:(selector "setVisualStyling:") ~typ:(void @-> returning void) x +let shape self = msg_send ~self ~cmd:(selector "shape") ~typ:(returning id) +let shapeFromFrame x ~leftPadding ~rightPadding self = msg_send ~self ~cmd:(selector "shapeFromFrame:leftPadding:rightPadding:") ~typ:(CGRect.t @-> double @-> double @-> returning id) x leftPadding rightPadding +let shapesForKeys x self = msg_send ~self ~cmd:(selector "shapesForKeys:") ~typ:(id @-> returning id) x +let shiftAlternateKeyplaneName self = msg_send ~self ~cmd:(selector "shiftAlternateKeyplaneName") ~typ:(returning id) +let shiftRowAndResizeLeadingControlKey x ~toSize ~scale self = msg_send ~self ~cmd:(selector "shiftRowAndResizeLeadingControlKey:toSize:scale:") ~typ:(id @-> CGSize.t @-> double @-> returning void) x toSize scale +let shouldCacheKey self = msg_send ~self ~cmd:(selector "shouldCacheKey") ~typ:(returning bool) +let shouldSkipCandidateSelection self = msg_send ~self ~cmd:(selector "shouldSkipCandidateSelection") ~typ:(returning bool) +let shouldSkipCandidateSelectionForVariants self = msg_send ~self ~cmd:(selector "shouldSkipCandidateSelectionForVariants") ~typ:(returning bool) +let shouldSuppressDragRetest self = msg_send ~self ~cmd:(selector "shouldSuppressDragRetest") ~typ:(returning bool) +let splitMode self = msg_send ~self ~cmd:(selector "splitMode") ~typ:(returning int) +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning int) +let stringForProperty x self = msg_send ~self ~cmd:(selector "stringForProperty:") ~typ:(id @-> returning id) x +let stylingFromVisualStyle self = msg_send ~self ~cmd:(selector "stylingFromVisualStyle") ~typ:(returning void) +let subsumeDisappearingKeyName x ~intoKeyName ~factors self = msg_send ~self ~cmd:(selector "subsumeDisappearingKeyName:intoKeyName:factors:") ~typ:(id @-> id @-> id @-> returning void) x intoKeyName factors +let subtreeWithName x self = msg_send ~self ~cmd:(selector "subtreeWithName:") ~typ:(id @-> returning id) x +let subtreeWithName' x ~rows self = msg_send ~self ~cmd:(selector "subtreeWithName:rows:") ~typ:(id @-> id @-> returning id) x rows +let subtreeWithType x self = msg_send ~self ~cmd:(selector "subtreeWithType:") ~typ:(int @-> returning id) x +let subtrees self = msg_send ~self ~cmd:(selector "subtrees") ~typ:(returning id) +let subtreesAreOrdered self = msg_send ~self ~cmd:(selector "subtreesAreOrdered") ~typ:(returning bool) +let subtreesWithProperty x ~value self = msg_send ~self ~cmd:(selector "subtreesWithProperty:value:") ~typ:(id @-> id @-> returning id) x value +let supplementaryKeyList self = msg_send ~self ~cmd:(selector "supplementaryKeyList") ~typ:(returning id) +let supportsContinuousPath self = msg_send ~self ~cmd:(selector "supportsContinuousPath") ~typ:(returning bool) +let supportsType x self = msg_send ~self ~cmd:(selector "supportsType:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning llong) +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning int) +let unhashedName self = msg_send ~self ~cmd:(selector "unhashedName") ~typ:(returning id) +let updateDictationKeyOnNumberPads x self = msg_send ~self ~cmd:(selector "updateDictationKeyOnNumberPads:") ~typ:(bool @-> returning void) x +let updateFlickKeycapOnKeys self = msg_send ~self ~cmd:(selector "updateFlickKeycapOnKeys") ~typ:(returning void) +let updateMoreAndInternationalKeysWithOptions x self = msg_send ~self ~cmd:(selector "updateMoreAndInternationalKeysWithOptions:") ~typ:(int @-> returning void) x +let updateVariantTypeForActions x self = msg_send ~self ~cmd:(selector "updateVariantTypeForActions:") ~typ:(uint @-> returning void) x +let usesAdaptiveKeys self = msg_send ~self ~cmd:(selector "usesAdaptiveKeys") ~typ:(returning bool) +let usesAutoShift self = msg_send ~self ~cmd:(selector "usesAutoShift") ~typ:(returning bool) +let usesKeyCharging self = msg_send ~self ~cmd:(selector "usesKeyCharging") ~typ:(returning bool) +let variantDisplayString self = msg_send ~self ~cmd:(selector "variantDisplayString") ~typ:(returning id) +let variantPopupBias self = msg_send ~self ~cmd:(selector "variantPopupBias") ~typ:(returning id) +let variantType self = msg_send ~self ~cmd:(selector "variantType") ~typ:(returning int) +let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning bool) +let visualStyle self = msg_send ~self ~cmd:(selector "visualStyle") ~typ:(returning int) +let visualStyling self = msg_send ~self ~cmd:(selector "visualStyling") ~typ:(returning void) +let visualStylingForScreenTraits x self = msg_send ~self ~cmd:(selector "visualStylingForScreenTraits:") ~typ:(id @-> returning void) x +let zipAttributes self = msg_send ~self ~cmd:(selector "zipAttributes") ~typ:(returning void) +let zipGeometries x ~attributes self = msg_send ~self ~cmd:(selector "zipGeometries:attributes:") ~typ:(bool @-> bool @-> returning void) x attributes +let zipGeometrySet self = msg_send ~self ~cmd:(selector "zipGeometrySet") ~typ:(returning void) +let zipOnlyGeometrySet self = msg_send ~self ~cmd:(selector "zipOnlyGeometrySet") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKBTreeClass.ml b/uikit_extra/UIKBTreeClass.ml new file mode 100644 index 00000000..fa726bf9 --- /dev/null +++ b/uikit_extra/UIKBTreeClass.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtree?language=objc}UIKBTree} *) + +let key self = msg_send ~self ~cmd:(selector "key") ~typ:(returning id) +let keyboard self = msg_send ~self ~cmd:(selector "keyboard") ~typ:(returning id) +let mergeStringForKeyName x self = msg_send ~self ~cmd:(selector "mergeStringForKeyName:") ~typ:(id @-> returning id) x +let shapesForControlKeyShapes x ~options self = msg_send ~self ~cmd:(selector "shapesForControlKeyShapes:options:") ~typ:(id @-> int @-> returning id) x options +let shouldSkipCacheString x self = msg_send ~self ~cmd:(selector "shouldSkipCacheString:") ~typ:(id @-> returning bool) x +let stringForType x self = msg_send ~self ~cmd:(selector "stringForType:") ~typ:(int @-> returning id) x +let treeOfType x self = msg_send ~self ~cmd:(selector "treeOfType:") ~typ:(int @-> returning id) x +let typeIsPersistent x self = msg_send ~self ~cmd:(selector "typeIsPersistent:") ~typ:(int @-> returning bool) x +let uniqueName self = msg_send ~self ~cmd:(selector "uniqueName") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBTreeLocalizedKeylistEnumerator.ml b/uikit_extra/UIKBTreeLocalizedKeylistEnumerator.ml index e8710b74..8be009ea 100644 --- a/uikit_extra/UIKBTreeLocalizedKeylistEnumerator.ml +++ b/uikit_extra/UIKBTreeLocalizedKeylistEnumerator.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBTreeLocalizedKeylistEnumerator" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtreelocalizedkeylistenumerator?language=objc}UIKBTreeLocalizedKeylistEnumerator} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithKeyplaneCache x self = msg_send ~self ~cmd:(selector "initWithKeyplaneCache:") ~typ:(id @-> returning (id)) x -let nextObject self = msg_send ~self ~cmd:(selector "nextObject") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBTreeLocalizedKeylistEnumerator" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithKeyplaneCache x self = msg_send ~self ~cmd:(selector "initWithKeyplaneCache:") ~typ:(id @-> returning id) x +let nextObject self = msg_send ~self ~cmd:(selector "nextObject") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBTutorialModalDisplay.ml b/uikit_extra/UIKBTutorialModalDisplay.ml index 4cc85fdc..b64ad327 100644 --- a/uikit_extra/UIKBTutorialModalDisplay.ml +++ b/uikit_extra/UIKBTutorialModalDisplay.ml @@ -5,52 +5,57 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBTutorialModalDisplay" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtutorialmodaldisplay?language=objc}UIKBTutorialModalDisplay} *) -let adjustableConstraints self = msg_send ~self ~cmd:(selector "adjustableConstraints") ~typ:(returning (id)) -let appearance self = msg_send ~self ~cmd:(selector "appearance") ~typ:(returning (llong)) -let backgroundBlurView self = msg_send ~self ~cmd:(selector "backgroundBlurView") ~typ:(returning (id)) -let button self = msg_send ~self ~cmd:(selector "button") ~typ:(returning (id)) -let buttonTitle self = msg_send ~self ~cmd:(selector "buttonTitle") ~typ:(returning (id)) -let configBackgroundBlur self = msg_send ~self ~cmd:(selector "configBackgroundBlur") ~typ:(returning (void)) -let configContainerView self = msg_send ~self ~cmd:(selector "configContainerView") ~typ:(returning (void)) -let constructMediaView self = msg_send ~self ~cmd:(selector "constructMediaView") ~typ:(returning (id)) -let containerBottomPadding self = msg_send ~self ~cmd:(selector "containerBottomPadding") ~typ:(returning (double)) -let containerForAlertPresentation self = msg_send ~self ~cmd:(selector "containerForAlertPresentation") ~typ:(returning (void)) -let containerForFullScreenView self = msg_send ~self ~cmd:(selector "containerForFullScreenView") ~typ:(returning (void)) -let containerForKeyboardView self = msg_send ~self ~cmd:(selector "containerForKeyboardView") ~typ:(returning (void)) -let containerTopPadding self = msg_send ~self ~cmd:(selector "containerTopPadding") ~typ:(returning (double)) -let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning (id)) -let containerViewTopConstraits self = msg_send ~self ~cmd:(selector "containerViewTopConstraits") ~typ:(returning (id)) -let extraButtonTapAction self = msg_send ~self ~cmd:(selector "extraButtonTapAction") ~typ:(returning (void)) -let initWithKeyboardAppearance x self = msg_send ~self ~cmd:(selector "initWithKeyboardAppearance:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let isPortrait self = msg_send ~self ~cmd:(selector "isPortrait") ~typ:(returning (bool)) -let largeTitle self = msg_send ~self ~cmd:(selector "largeTitle") ~typ:(returning (id)) -let largeTitleFont self = msg_send ~self ~cmd:(selector "largeTitleFont") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let mediaContents self = msg_send ~self ~cmd:(selector "mediaContents") ~typ:(returning (id)) -let mediaLayoutWidthAdjustment self = msg_send ~self ~cmd:(selector "mediaLayoutWidthAdjustment") ~typ:(returning (double)) -let mediaView self = msg_send ~self ~cmd:(selector "mediaView") ~typ:(returning (id)) -let pagingInterval self = msg_send ~self ~cmd:(selector "pagingInterval") ~typ:(returning (double)) -let presentsFullScreen self = msg_send ~self ~cmd:(selector "presentsFullScreen") ~typ:(returning (bool)) -let restartPagingAnimation self = msg_send ~self ~cmd:(selector "restartPagingAnimation") ~typ:(returning (void)) -let setAdjustableConstraints x self = msg_send ~self ~cmd:(selector "setAdjustableConstraints:") ~typ:(id @-> returning (void)) x -let setAppearance x self = msg_send ~self ~cmd:(selector "setAppearance:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBackgroundBlurView x self = msg_send ~self ~cmd:(selector "setBackgroundBlurView:") ~typ:(id @-> returning (void)) x -let setButton x self = msg_send ~self ~cmd:(selector "setButton:") ~typ:(id @-> returning (void)) x -let setContainerView x self = msg_send ~self ~cmd:(selector "setContainerView:") ~typ:(id @-> returning (void)) x -let setContainerViewTopConstraits x self = msg_send ~self ~cmd:(selector "setContainerViewTopConstraits:") ~typ:(id @-> returning (void)) x -let setMediaView x self = msg_send ~self ~cmd:(selector "setMediaView:") ~typ:(id @-> returning (void)) x -let setStyling x self = msg_send ~self ~cmd:(selector "setStyling:") ~typ:(id @-> returning (void)) x -let setWidthAdjustmentConstraint x self = msg_send ~self ~cmd:(selector "setWidthAdjustmentConstraint:") ~typ:(id @-> returning (void)) x -let sizeForTutorialPageView self = msg_send_stret ~self ~cmd:(selector "sizeForTutorialPageView") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let styling self = msg_send ~self ~cmd:(selector "styling") ~typ:(returning (id)) -let tapInsideButton x self = msg_send ~self ~cmd:(selector "tapInsideButton:") ~typ:(id @-> returning (void)) x -let textBodyDescriptions self = msg_send ~self ~cmd:(selector "textBodyDescriptions") ~typ:(returning (id)) -let textBodyFont self = msg_send ~self ~cmd:(selector "textBodyFont") ~typ:(returning (id)) -let textBodyMaxLines self = msg_send ~self ~cmd:(selector "textBodyMaxLines") ~typ:(returning (llong)) -let textTitleDescriptions self = msg_send ~self ~cmd:(selector "textTitleDescriptions") ~typ:(returning (id)) -let textTitleFont self = msg_send ~self ~cmd:(selector "textTitleFont") ~typ:(returning (id)) -let updateMediaViewTextAndPlacement self = msg_send ~self ~cmd:(selector "updateMediaViewTextAndPlacement") ~typ:(returning (void)) -let widthAdjustmentConstraint self = msg_send ~self ~cmd:(selector "widthAdjustmentConstraint") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBTutorialModalDisplay" + +let adjustableConstraints self = msg_send ~self ~cmd:(selector "adjustableConstraints") ~typ:(returning id) +let appearance self = msg_send ~self ~cmd:(selector "appearance") ~typ:(returning llong) +let backgroundBlurView self = msg_send ~self ~cmd:(selector "backgroundBlurView") ~typ:(returning id) +let button self = msg_send ~self ~cmd:(selector "button") ~typ:(returning id) +let buttonTitle self = msg_send ~self ~cmd:(selector "buttonTitle") ~typ:(returning id) +let configBackgroundBlur self = msg_send ~self ~cmd:(selector "configBackgroundBlur") ~typ:(returning void) +let configContainerView self = msg_send ~self ~cmd:(selector "configContainerView") ~typ:(returning void) +let constructMediaView self = msg_send ~self ~cmd:(selector "constructMediaView") ~typ:(returning id) +let containerBottomPadding self = msg_send ~self ~cmd:(selector "containerBottomPadding") ~typ:(returning double) +let containerForAlertPresentation self = msg_send ~self ~cmd:(selector "containerForAlertPresentation") ~typ:(returning void) +let containerForFullScreenView self = msg_send ~self ~cmd:(selector "containerForFullScreenView") ~typ:(returning void) +let containerForKeyboardView self = msg_send ~self ~cmd:(selector "containerForKeyboardView") ~typ:(returning void) +let containerTopPadding self = msg_send ~self ~cmd:(selector "containerTopPadding") ~typ:(returning double) +let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning id) +let containerViewTopConstraits self = msg_send ~self ~cmd:(selector "containerViewTopConstraits") ~typ:(returning id) +let extraButtonTapAction self = msg_send ~self ~cmd:(selector "extraButtonTapAction") ~typ:(returning void) +let initWithKeyboardAppearance x self = msg_send ~self ~cmd:(selector "initWithKeyboardAppearance:") ~typ:(llong @-> returning id) (LLong.of_int x) +let isPortrait self = msg_send ~self ~cmd:(selector "isPortrait") ~typ:(returning bool) +let largeTitle self = msg_send ~self ~cmd:(selector "largeTitle") ~typ:(returning id) +let largeTitleFont self = msg_send ~self ~cmd:(selector "largeTitleFont") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let mediaContents self = msg_send ~self ~cmd:(selector "mediaContents") ~typ:(returning id) +let mediaLayoutWidthAdjustment self = msg_send ~self ~cmd:(selector "mediaLayoutWidthAdjustment") ~typ:(returning double) +let mediaView self = msg_send ~self ~cmd:(selector "mediaView") ~typ:(returning id) +let pagingInterval self = msg_send ~self ~cmd:(selector "pagingInterval") ~typ:(returning double) +let presentsFullScreen self = msg_send ~self ~cmd:(selector "presentsFullScreen") ~typ:(returning bool) +let restartPagingAnimation self = msg_send ~self ~cmd:(selector "restartPagingAnimation") ~typ:(returning void) +let safeAreaInsets self = msg_send ~self ~cmd:(selector "safeAreaInsets") ~typ:(returning UIEdgeInsets.t) +let setAdjustableConstraints x self = msg_send ~self ~cmd:(selector "setAdjustableConstraints:") ~typ:(id @-> returning void) x +let setAppearance x self = msg_send ~self ~cmd:(selector "setAppearance:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBackgroundBlurView x self = msg_send ~self ~cmd:(selector "setBackgroundBlurView:") ~typ:(id @-> returning void) x +let setButton x self = msg_send ~self ~cmd:(selector "setButton:") ~typ:(id @-> returning void) x +let setContainerView x self = msg_send ~self ~cmd:(selector "setContainerView:") ~typ:(id @-> returning void) x +let setContainerViewTopConstraits x self = msg_send ~self ~cmd:(selector "setContainerViewTopConstraits:") ~typ:(id @-> returning void) x +let setMediaView x self = msg_send ~self ~cmd:(selector "setMediaView:") ~typ:(id @-> returning void) x +let setStyling x self = msg_send ~self ~cmd:(selector "setStyling:") ~typ:(id @-> returning void) x +let setWidthAdjustmentConstraint x self = msg_send ~self ~cmd:(selector "setWidthAdjustmentConstraint:") ~typ:(id @-> returning void) x +let sizeForTutorialPageView self = msg_send ~self ~cmd:(selector "sizeForTutorialPageView") ~typ:(returning CGSize.t) +let styling self = msg_send ~self ~cmd:(selector "styling") ~typ:(returning id) +let tapInsideButton x self = msg_send ~self ~cmd:(selector "tapInsideButton:") ~typ:(id @-> returning void) x +let textBodyDescriptions self = msg_send ~self ~cmd:(selector "textBodyDescriptions") ~typ:(returning id) +let textBodyFont self = msg_send ~self ~cmd:(selector "textBodyFont") ~typ:(returning id) +let textBodyMaxLines self = msg_send ~self ~cmd:(selector "textBodyMaxLines") ~typ:(returning llong) +let textTitleDescriptions self = msg_send ~self ~cmd:(selector "textTitleDescriptions") ~typ:(returning id) +let textTitleFont self = msg_send ~self ~cmd:(selector "textTitleFont") ~typ:(returning id) +let updateMediaViewTextAndPlacement self = msg_send ~self ~cmd:(selector "updateMediaViewTextAndPlacement") ~typ:(returning void) +let widthAdjustmentConstraint self = msg_send ~self ~cmd:(selector "widthAdjustmentConstraint") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBTutorialModalDisplayStyling.ml b/uikit_extra/UIKBTutorialModalDisplayStyling.ml index a25482b7..acc5b188 100644 --- a/uikit_extra/UIKBTutorialModalDisplayStyling.ml +++ b/uikit_extra/UIKBTutorialModalDisplayStyling.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBTutorialModalDisplayStyling" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtutorialmodaldisplaystyling?language=objc}UIKBTutorialModalDisplayStyling} *) -let backgroundBlurEffects x self = msg_send ~self ~cmd:(selector "backgroundBlurEffects:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let backgroundEffects self = msg_send ~self ~cmd:(selector "backgroundEffects") ~typ:(returning (id)) -let buttonTextColor self = msg_send ~self ~cmd:(selector "buttonTextColor") ~typ:(returning (id)) -let initWithKeyboardAppearance x self = msg_send ~self ~cmd:(selector "initWithKeyboardAppearance:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let mainTextColor self = msg_send ~self ~cmd:(selector "mainTextColor") ~typ:(returning (id)) -let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning (void)) x -let setBackgroundEffects x self = msg_send ~self ~cmd:(selector "setBackgroundEffects:") ~typ:(id @-> returning (void)) x -let setButtonTextColor x self = msg_send ~self ~cmd:(selector "setButtonTextColor:") ~typ:(id @-> returning (void)) x -let setMainTextColor x self = msg_send ~self ~cmd:(selector "setMainTextColor:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKBTutorialModalDisplayStyling" + +let backgroundBlurEffects x self = msg_send ~self ~cmd:(selector "backgroundBlurEffects:") ~typ:(llong @-> returning id) (LLong.of_int x) +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let backgroundEffects self = msg_send ~self ~cmd:(selector "backgroundEffects") ~typ:(returning id) +let buttonTextColor self = msg_send ~self ~cmd:(selector "buttonTextColor") ~typ:(returning id) +let initWithKeyboardAppearance x self = msg_send ~self ~cmd:(selector "initWithKeyboardAppearance:") ~typ:(llong @-> returning id) (LLong.of_int x) +let mainTextColor self = msg_send ~self ~cmd:(selector "mainTextColor") ~typ:(returning id) +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setBackgroundEffects x self = msg_send ~self ~cmd:(selector "setBackgroundEffects:") ~typ:(id @-> returning void) x +let setButtonTextColor x self = msg_send ~self ~cmd:(selector "setButtonTextColor:") ~typ:(id @-> returning void) x +let setMainTextColor x self = msg_send ~self ~cmd:(selector "setMainTextColor:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBTutorialMultipageView.ml b/uikit_extra/UIKBTutorialMultipageView.ml index 2d87f1d3..447fe385 100644 --- a/uikit_extra/UIKBTutorialMultipageView.ml +++ b/uikit_extra/UIKBTutorialMultipageView.ml @@ -5,23 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBTutorialMultipageView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtutorialmultipageview?language=objc}UIKBTutorialMultipageView} *) -let configMediaView self = msg_send ~self ~cmd:(selector "configMediaView") ~typ:(returning (void)) -let initWithPageViews x ~pagingInterval self = msg_send ~self ~cmd:(selector "initWithPageViews:pagingInterval:") ~typ:(id @-> double @-> returning (id)) x pagingInterval -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let nextPageScrollTimer self = msg_send ~self ~cmd:(selector "nextPageScrollTimer") ~typ:(returning (id)) -let pageControl self = msg_send ~self ~cmd:(selector "pageControl") ~typ:(returning (id)) -let pageScrollView self = msg_send ~self ~cmd:(selector "pageScrollView") ~typ:(returning (id)) -let pageViews self = msg_send ~self ~cmd:(selector "pageViews") ~typ:(returning (id)) -let pagingInterval self = msg_send ~self ~cmd:(selector "pagingInterval") ~typ:(returning (double)) -let resetPageScrolling self = msg_send ~self ~cmd:(selector "resetPageScrolling") ~typ:(returning (void)) -let scrollToNextPage self = msg_send ~self ~cmd:(selector "scrollToNextPage") ~typ:(returning (void)) -let scrollViewDidScroll x self = msg_send ~self ~cmd:(selector "scrollViewDidScroll:") ~typ:(id @-> returning (void)) x -let scrollViewWillBeginDragging x self = msg_send ~self ~cmd:(selector "scrollViewWillBeginDragging:") ~typ:(id @-> returning (void)) x -let setNextPageScrollTimer x self = msg_send ~self ~cmd:(selector "setNextPageScrollTimer:") ~typ:(id @-> returning (void)) x -let setPageControl x self = msg_send ~self ~cmd:(selector "setPageControl:") ~typ:(id @-> returning (void)) x -let setPageScrollView x self = msg_send ~self ~cmd:(selector "setPageScrollView:") ~typ:(id @-> returning (void)) x -let setPageViews x self = msg_send ~self ~cmd:(selector "setPageViews:") ~typ:(id @-> returning (void)) x -let setPagingInterval x self = msg_send ~self ~cmd:(selector "setPagingInterval:") ~typ:(double @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKBTutorialMultipageView" + +let configMediaView self = msg_send ~self ~cmd:(selector "configMediaView") ~typ:(returning void) +let initWithPageViews x ~pagingInterval self = msg_send ~self ~cmd:(selector "initWithPageViews:pagingInterval:") ~typ:(id @-> double @-> returning id) x pagingInterval +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let nextPageScrollTimer self = msg_send ~self ~cmd:(selector "nextPageScrollTimer") ~typ:(returning id) +let pageControl self = msg_send ~self ~cmd:(selector "pageControl") ~typ:(returning id) +let pageScrollView self = msg_send ~self ~cmd:(selector "pageScrollView") ~typ:(returning id) +let pageViews self = msg_send ~self ~cmd:(selector "pageViews") ~typ:(returning id) +let pagingInterval self = msg_send ~self ~cmd:(selector "pagingInterval") ~typ:(returning double) +let resetPageScrolling self = msg_send ~self ~cmd:(selector "resetPageScrolling") ~typ:(returning void) +let scrollToNextPage self = msg_send ~self ~cmd:(selector "scrollToNextPage") ~typ:(returning void) +let scrollViewDidScroll x self = msg_send ~self ~cmd:(selector "scrollViewDidScroll:") ~typ:(id @-> returning void) x +let scrollViewWillBeginDragging x self = msg_send ~self ~cmd:(selector "scrollViewWillBeginDragging:") ~typ:(id @-> returning void) x +let setNextPageScrollTimer x self = msg_send ~self ~cmd:(selector "setNextPageScrollTimer:") ~typ:(id @-> returning void) x +let setPageControl x self = msg_send ~self ~cmd:(selector "setPageControl:") ~typ:(id @-> returning void) x +let setPageScrollView x self = msg_send ~self ~cmd:(selector "setPageScrollView:") ~typ:(id @-> returning void) x +let setPageViews x self = msg_send ~self ~cmd:(selector "setPageViews:") ~typ:(id @-> returning void) x +let setPagingInterval x self = msg_send ~self ~cmd:(selector "setPagingInterval:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBTutorialSinglePageView.ml b/uikit_extra/UIKBTutorialSinglePageView.ml index 2c5927bc..f6af26b4 100644 --- a/uikit_extra/UIKBTutorialSinglePageView.ml +++ b/uikit_extra/UIKBTutorialSinglePageView.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBTutorialSinglePageView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbtutorialsinglepageview?language=objc}UIKBTutorialSinglePageView} *) -let configPageView self = msg_send ~self ~cmd:(selector "configPageView") ~typ:(returning (void)) -let initWithImageView x self = msg_send ~self ~cmd:(selector "initWithImageView:") ~typ:(id @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setTextBody x self = msg_send ~self ~cmd:(selector "setTextBody:") ~typ:(id @-> returning (void)) x -let setTextTitle x self = msg_send ~self ~cmd:(selector "setTextTitle:") ~typ:(id @-> returning (void)) x -let setUseAlertStyle x self = msg_send ~self ~cmd:(selector "setUseAlertStyle:") ~typ:(bool @-> returning (void)) x -let setVisualDisplayView x self = msg_send ~self ~cmd:(selector "setVisualDisplayView:") ~typ:(id @-> returning (void)) x -let textBody self = msg_send ~self ~cmd:(selector "textBody") ~typ:(returning (id)) -let textTitle self = msg_send ~self ~cmd:(selector "textTitle") ~typ:(returning (id)) -let useAlertStyle self = msg_send ~self ~cmd:(selector "useAlertStyle") ~typ:(returning (bool)) -let visualDisplayView self = msg_send ~self ~cmd:(selector "visualDisplayView") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKBTutorialSinglePageView" + +let configPageView self = msg_send ~self ~cmd:(selector "configPageView") ~typ:(returning void) +let initWithImageView x self = msg_send ~self ~cmd:(selector "initWithImageView:") ~typ:(id @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setTextBody x self = msg_send ~self ~cmd:(selector "setTextBody:") ~typ:(id @-> returning void) x +let setTextTitle x self = msg_send ~self ~cmd:(selector "setTextTitle:") ~typ:(id @-> returning void) x +let setUseAlertStyle x self = msg_send ~self ~cmd:(selector "setUseAlertStyle:") ~typ:(bool @-> returning void) x +let setVisualDisplayView x self = msg_send ~self ~cmd:(selector "setVisualDisplayView:") ~typ:(id @-> returning void) x +let textBody self = msg_send ~self ~cmd:(selector "textBody") ~typ:(returning id) +let textTitle self = msg_send ~self ~cmd:(selector "textTitle") ~typ:(returning id) +let useAlertStyle self = msg_send ~self ~cmd:(selector "useAlertStyle") ~typ:(returning bool) +let visualDisplayView self = msg_send ~self ~cmd:(selector "visualDisplayView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBUndoControl.ml b/uikit_extra/UIKBUndoControl.ml index 0b516aa5..bb3e2f04 100644 --- a/uikit_extra/UIKBUndoControl.ml +++ b/uikit_extra/UIKBUndoControl.ml @@ -5,40 +5,40 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBUndoControl" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbundocontrol?language=objc}UIKBUndoControl} *) -module C = struct - let controlLableTextByType x ~style ~available self = msg_send ~self ~cmd:(selector "controlLableTextByType:style:available:") ~typ:(llong @-> id @-> bool @-> returning (id)) (LLong.of_int x) style available -end +let self = get_class "UIKBUndoControl" -let controlImageByType x self = msg_send ~self ~cmd:(selector "controlImageByType:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let controlLabelImageNameByType x ~isRTL self = msg_send ~self ~cmd:(selector "controlLabelImageNameByType:isRTL:") ~typ:(llong @-> bool @-> returning (id)) (LLong.of_int x) isRTL -let coverConstraintBottomAnchor self = msg_send ~self ~cmd:(selector "coverConstraintBottomAnchor") ~typ:(returning (id)) -let coverConstraintLeftAnchor self = msg_send ~self ~cmd:(selector "coverConstraintLeftAnchor") ~typ:(returning (id)) -let coverConstraintRightAnchor self = msg_send ~self ~cmd:(selector "coverConstraintRightAnchor") ~typ:(returning (id)) -let coverConstraintTopAnchor self = msg_send ~self ~cmd:(selector "coverConstraintTopAnchor") ~typ:(returning (id)) -let icon self = msg_send ~self ~cmd:(selector "icon") ~typ:(returning (id)) -let initWithType x ~andStyling self = msg_send ~self ~cmd:(selector "initWithType:andStyling:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) andStyling -let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning (id)) -let layoutControlForType x ~andStyling self = msg_send ~self ~cmd:(selector "layoutControlForType:andStyling:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) andStyling -let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let securePasteButtonSlotView self = msg_send ~self ~cmd:(selector "securePasteButtonSlotView") ~typ:(returning (id)) -let setCoverConstraintBottomAnchor x self = msg_send ~self ~cmd:(selector "setCoverConstraintBottomAnchor:") ~typ:(id @-> returning (void)) x -let setCoverConstraintLeftAnchor x self = msg_send ~self ~cmd:(selector "setCoverConstraintLeftAnchor:") ~typ:(id @-> returning (void)) x -let setCoverConstraintRightAnchor x self = msg_send ~self ~cmd:(selector "setCoverConstraintRightAnchor:") ~typ:(id @-> returning (void)) x -let setCoverConstraintTopAnchor x self = msg_send ~self ~cmd:(selector "setCoverConstraintTopAnchor:") ~typ:(id @-> returning (void)) x -let setIcon x self = msg_send ~self ~cmd:(selector "setIcon:") ~typ:(id @-> returning (void)) x -let setLabel x self = msg_send ~self ~cmd:(selector "setLabel:") ~typ:(id @-> returning (void)) x -let setSecurePasteButtonSlotView x self = msg_send ~self ~cmd:(selector "setSecurePasteButtonSlotView:") ~typ:(id @-> returning (void)) x -let setSpringCoverView x self = msg_send ~self ~cmd:(selector "setSpringCoverView:") ~typ:(id @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(id @-> returning (void)) x -let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let springCoverView self = msg_send ~self ~cmd:(selector "springCoverView") ~typ:(returning (id)) -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) -let updateCoverWithTavelProcess x ~isRTL self = msg_send ~self ~cmd:(selector "updateCoverWithTavelProcess:isRTL:") ~typ:(double @-> bool @-> returning (void)) x isRTL -let updateUndoControlStyle self = msg_send ~self ~cmd:(selector "updateUndoControlStyle") ~typ:(returning (void)) -let viewForFirstBaselineLayout self = msg_send ~self ~cmd:(selector "viewForFirstBaselineLayout") ~typ:(returning (id)) -let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning (id)) \ No newline at end of file +let controlImageByType x self = msg_send ~self ~cmd:(selector "controlImageByType:") ~typ:(llong @-> returning id) (LLong.of_int x) +let controlLabelImageNameByType x ~isRTL self = msg_send ~self ~cmd:(selector "controlLabelImageNameByType:isRTL:") ~typ:(llong @-> bool @-> returning id) (LLong.of_int x) isRTL +let coverConstraintBottomAnchor self = msg_send ~self ~cmd:(selector "coverConstraintBottomAnchor") ~typ:(returning id) +let coverConstraintLeftAnchor self = msg_send ~self ~cmd:(selector "coverConstraintLeftAnchor") ~typ:(returning id) +let coverConstraintRightAnchor self = msg_send ~self ~cmd:(selector "coverConstraintRightAnchor") ~typ:(returning id) +let coverConstraintTopAnchor self = msg_send ~self ~cmd:(selector "coverConstraintTopAnchor") ~typ:(returning id) +let icon self = msg_send ~self ~cmd:(selector "icon") ~typ:(returning id) +let initWithType x ~andStyling self = msg_send ~self ~cmd:(selector "initWithType:andStyling:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) andStyling +let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) +let layoutControlForType x ~andStyling self = msg_send ~self ~cmd:(selector "layoutControlForType:andStyling:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) andStyling +let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let securePasteButtonSlotView self = msg_send ~self ~cmd:(selector "securePasteButtonSlotView") ~typ:(returning id) +let setCoverConstraintBottomAnchor x self = msg_send ~self ~cmd:(selector "setCoverConstraintBottomAnchor:") ~typ:(id @-> returning void) x +let setCoverConstraintLeftAnchor x self = msg_send ~self ~cmd:(selector "setCoverConstraintLeftAnchor:") ~typ:(id @-> returning void) x +let setCoverConstraintRightAnchor x self = msg_send ~self ~cmd:(selector "setCoverConstraintRightAnchor:") ~typ:(id @-> returning void) x +let setCoverConstraintTopAnchor x self = msg_send ~self ~cmd:(selector "setCoverConstraintTopAnchor:") ~typ:(id @-> returning void) x +let setIcon x self = msg_send ~self ~cmd:(selector "setIcon:") ~typ:(id @-> returning void) x +let setLabel x self = msg_send ~self ~cmd:(selector "setLabel:") ~typ:(id @-> returning void) x +let setSecurePasteButtonSlotView x self = msg_send ~self ~cmd:(selector "setSecurePasteButtonSlotView:") ~typ:(id @-> returning void) x +let setSpringCoverView x self = msg_send ~self ~cmd:(selector "setSpringCoverView:") ~typ:(id @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(id @-> returning void) x +let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let springCoverView self = msg_send ~self ~cmd:(selector "springCoverView") ~typ:(returning id) +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) +let updateCoverWithTavelProcess x ~isRTL self = msg_send ~self ~cmd:(selector "updateCoverWithTavelProcess:isRTL:") ~typ:(double @-> bool @-> returning void) x isRTL +let updateUndoControlStyle self = msg_send ~self ~cmd:(selector "updateUndoControlStyle") ~typ:(returning void) +let viewForFirstBaselineLayout self = msg_send ~self ~cmd:(selector "viewForFirstBaselineLayout") ~typ:(returning id) +let viewForLastBaselineLayout self = msg_send ~self ~cmd:(selector "viewForLastBaselineLayout") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBUndoControlClass.ml b/uikit_extra/UIKBUndoControlClass.ml new file mode 100644 index 00000000..52a2e0cd --- /dev/null +++ b/uikit_extra/UIKBUndoControlClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbundocontrol?language=objc}UIKBUndoControl} *) + +let controlLableTextByType x ~style ~available self = msg_send ~self ~cmd:(selector "controlLableTextByType:style:available:") ~typ:(llong @-> id @-> bool @-> returning id) (LLong.of_int x) style available \ No newline at end of file diff --git a/uikit_extra/UIKBUndoInteractionHUD.ml b/uikit_extra/UIKBUndoInteractionHUD.ml index 5bf6b356..164d4ef1 100644 --- a/uikit_extra/UIKBUndoInteractionHUD.ml +++ b/uikit_extra/UIKBUndoInteractionHUD.ml @@ -5,46 +5,50 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBUndoInteractionHUD" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbundointeractionhud?language=objc}UIKBUndoInteractionHUD} *) -let aCopyButtonView self = msg_send ~self ~cmd:(selector "aCopyButtonView") ~typ:(returning (id)) -let aCutButtonView self = msg_send ~self ~cmd:(selector "aCutButtonView") ~typ:(returning (id)) -let aPasteButtonView self = msg_send ~self ~cmd:(selector "aPasteButtonView") ~typ:(returning (id)) -let actionDelegate self = msg_send ~self ~cmd:(selector "actionDelegate") ~typ:(returning (id)) -let appearanceDate self = msg_send ~self ~cmd:(selector "appearanceDate") ~typ:(returning (id)) -let availableOfControl x self = msg_send ~self ~cmd:(selector "availableOfControl:") ~typ:(id @-> returning (bool)) x -let backgroundEffectView self = msg_send ~self ~cmd:(selector "backgroundEffectView") ~typ:(returning (id)) -let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning (id)) -let controlActionDown x self = msg_send ~self ~cmd:(selector "controlActionDown:") ~typ:(id @-> returning (void)) x -let controlActionUpInside x ~forEvent self = msg_send ~self ~cmd:(selector "controlActionUpInside:forEvent:") ~typ:(id @-> id @-> returning (void)) x forEvent -let controlActionUpOutside x self = msg_send ~self ~cmd:(selector "controlActionUpOutside:") ~typ:(id @-> returning (void)) x -let controlForType x self = msg_send ~self ~cmd:(selector "controlForType:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let createSeparatorView self = msg_send ~self ~cmd:(selector "createSeparatorView") ~typ:(returning (id)) -let initWithKeyboardAppearance x ~isRTL ~mode ~sceneBounds self = msg_send ~self ~cmd:(selector "initWithKeyboardAppearance:isRTL:mode:sceneBounds:") ~typ:(llong @-> bool @-> llong @-> CGRect.t @-> returning (id)) (LLong.of_int x) isRTL (LLong.of_int mode) sceneBounds -let instructionalLabel self = msg_send ~self ~cmd:(selector "instructionalLabel") ~typ:(returning (id)) -let leftButtonView self = msg_send ~self ~cmd:(selector "leftButtonView") ~typ:(returning (id)) -let mode self = msg_send ~self ~cmd:(selector "mode") ~typ:(returning (llong)) -let performDelegateRedoAndUpdateHUDIfNeeded self = msg_send ~self ~cmd:(selector "performDelegateRedoAndUpdateHUDIfNeeded") ~typ:(returning (void)) -let performDelegateUndoAndUpdateHUDIfNeeded self = msg_send ~self ~cmd:(selector "performDelegateUndoAndUpdateHUDIfNeeded") ~typ:(returning (void)) -let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let rightButtonView self = msg_send ~self ~cmd:(selector "rightButtonView") ~typ:(returning (id)) -let setACopyButtonView x self = msg_send ~self ~cmd:(selector "setACopyButtonView:") ~typ:(id @-> returning (void)) x -let setACutButtonView x self = msg_send ~self ~cmd:(selector "setACutButtonView:") ~typ:(id @-> returning (void)) x -let setAPasteButtonView x self = msg_send ~self ~cmd:(selector "setAPasteButtonView:") ~typ:(id @-> returning (void)) x -let setActionDelegate x self = msg_send ~self ~cmd:(selector "setActionDelegate:") ~typ:(id @-> returning (void)) x -let setAppearanceDate x self = msg_send ~self ~cmd:(selector "setAppearanceDate:") ~typ:(id @-> returning (void)) x -let setBackgroundEffectView x self = msg_send ~self ~cmd:(selector "setBackgroundEffectView:") ~typ:(id @-> returning (void)) x -let setContainerView x self = msg_send ~self ~cmd:(selector "setContainerView:") ~typ:(id @-> returning (void)) x -let setInstructionalLabel x self = msg_send ~self ~cmd:(selector "setInstructionalLabel:") ~typ:(id @-> returning (void)) x -let setLeftButtonView x self = msg_send ~self ~cmd:(selector "setLeftButtonView:") ~typ:(id @-> returning (void)) x -let setMode x self = msg_send ~self ~cmd:(selector "setMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setRightButtonView x self = msg_send ~self ~cmd:(selector "setRightButtonView:") ~typ:(id @-> returning (void)) x -let setShadowView x self = msg_send ~self ~cmd:(selector "setShadowView:") ~typ:(id @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(id @-> returning (void)) x -let shadowView self = msg_send ~self ~cmd:(selector "shadowView") ~typ:(returning (id)) -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let updateControlWithDirection x ~travelProgress ~isRTL self = msg_send ~self ~cmd:(selector "updateControlWithDirection:travelProgress:isRTL:") ~typ:(llong @-> double @-> bool @-> returning (void)) (LLong.of_int x) travelProgress isRTL -let updateHUDControlState self = msg_send ~self ~cmd:(selector "updateHUDControlState") ~typ:(returning (void)) -let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKBUndoInteractionHUD" + +let aCopyButtonView self = msg_send ~self ~cmd:(selector "aCopyButtonView") ~typ:(returning id) +let aCutButtonView self = msg_send ~self ~cmd:(selector "aCutButtonView") ~typ:(returning id) +let aPasteButtonView self = msg_send ~self ~cmd:(selector "aPasteButtonView") ~typ:(returning id) +let actionDelegate self = msg_send ~self ~cmd:(selector "actionDelegate") ~typ:(returning id) +let appearanceDate self = msg_send ~self ~cmd:(selector "appearanceDate") ~typ:(returning id) +let availableOfControl x self = msg_send ~self ~cmd:(selector "availableOfControl:") ~typ:(id @-> returning bool) x +let backgroundEffectView self = msg_send ~self ~cmd:(selector "backgroundEffectView") ~typ:(returning id) +let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning id) +let controlActionDown x self = msg_send ~self ~cmd:(selector "controlActionDown:") ~typ:(id @-> returning void) x +let controlActionUpInside x ~forEvent self = msg_send ~self ~cmd:(selector "controlActionUpInside:forEvent:") ~typ:(id @-> id @-> returning void) x forEvent +let controlActionUpOutside x self = msg_send ~self ~cmd:(selector "controlActionUpOutside:") ~typ:(id @-> returning void) x +let controlForType x self = msg_send ~self ~cmd:(selector "controlForType:") ~typ:(llong @-> returning id) (LLong.of_int x) +let createSeparatorView self = msg_send ~self ~cmd:(selector "createSeparatorView") ~typ:(returning id) +let initWithKeyboardAppearance x ~isRTL ~mode ~sceneBounds self = msg_send ~self ~cmd:(selector "initWithKeyboardAppearance:isRTL:mode:sceneBounds:") ~typ:(llong @-> bool @-> llong @-> CGRect.t @-> returning id) (LLong.of_int x) isRTL (LLong.of_int mode) sceneBounds +let instructionalLabel self = msg_send ~self ~cmd:(selector "instructionalLabel") ~typ:(returning id) +let leftButtonView self = msg_send ~self ~cmd:(selector "leftButtonView") ~typ:(returning id) +let mode self = msg_send ~self ~cmd:(selector "mode") ~typ:(returning llong) +let performDelegateRedoAndUpdateHUDIfNeeded self = msg_send ~self ~cmd:(selector "performDelegateRedoAndUpdateHUDIfNeeded") ~typ:(returning void) +let performDelegateUndoAndUpdateHUDIfNeeded self = msg_send ~self ~cmd:(selector "performDelegateUndoAndUpdateHUDIfNeeded") ~typ:(returning void) +let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let rightButtonView self = msg_send ~self ~cmd:(selector "rightButtonView") ~typ:(returning id) +let setACopyButtonView x self = msg_send ~self ~cmd:(selector "setACopyButtonView:") ~typ:(id @-> returning void) x +let setACutButtonView x self = msg_send ~self ~cmd:(selector "setACutButtonView:") ~typ:(id @-> returning void) x +let setAPasteButtonView x self = msg_send ~self ~cmd:(selector "setAPasteButtonView:") ~typ:(id @-> returning void) x +let setActionDelegate x self = msg_send ~self ~cmd:(selector "setActionDelegate:") ~typ:(id @-> returning void) x +let setAppearanceDate x self = msg_send ~self ~cmd:(selector "setAppearanceDate:") ~typ:(id @-> returning void) x +let setBackgroundEffectView x self = msg_send ~self ~cmd:(selector "setBackgroundEffectView:") ~typ:(id @-> returning void) x +let setContainerView x self = msg_send ~self ~cmd:(selector "setContainerView:") ~typ:(id @-> returning void) x +let setInstructionalLabel x self = msg_send ~self ~cmd:(selector "setInstructionalLabel:") ~typ:(id @-> returning void) x +let setLeftButtonView x self = msg_send ~self ~cmd:(selector "setLeftButtonView:") ~typ:(id @-> returning void) x +let setMode x self = msg_send ~self ~cmd:(selector "setMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setRightButtonView x self = msg_send ~self ~cmd:(selector "setRightButtonView:") ~typ:(id @-> returning void) x +let setShadowView x self = msg_send ~self ~cmd:(selector "setShadowView:") ~typ:(id @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(id @-> returning void) x +let shadowView self = msg_send ~self ~cmd:(selector "shadowView") ~typ:(returning id) +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let updateControlWithDirection x ~travelProgress ~isRTL self = msg_send ~self ~cmd:(selector "updateControlWithDirection:travelProgress:isRTL:") ~typ:(llong @-> double @-> bool @-> returning void) (LLong.of_int x) travelProgress isRTL +let updateHUDControlState self = msg_send ~self ~cmd:(selector "updateHUDControlState") ~typ:(returning void) +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKBUndoStateHUD.ml b/uikit_extra/UIKBUndoStateHUD.ml index 7773a414..fe684214 100644 --- a/uikit_extra/UIKBUndoStateHUD.ml +++ b/uikit_extra/UIKBUndoStateHUD.ml @@ -5,23 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBUndoStateHUD" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbundostatehud?language=objc}UIKBUndoStateHUD} *) -let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning (id)) -let controlType self = msg_send ~self ~cmd:(selector "controlType") ~typ:(returning (llong)) -let initWithKeyboardAppearance x self = msg_send ~self ~cmd:(selector "initWithKeyboardAppearance:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let labelView self = msg_send ~self ~cmd:(selector "labelView") ~typ:(returning (id)) -let setContainerView x self = msg_send ~self ~cmd:(selector "setContainerView:") ~typ:(id @-> returning (void)) x -let setControlType x self = msg_send ~self ~cmd:(selector "setControlType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setLabelView x self = msg_send ~self ~cmd:(selector "setLabelView:") ~typ:(id @-> returning (void)) x -let setShadowView x self = msg_send ~self ~cmd:(selector "setShadowView:") ~typ:(id @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(id @-> returning (void)) x -let setUndoStateHUDHeightConstraint x self = msg_send ~self ~cmd:(selector "setUndoStateHUDHeightConstraint:") ~typ:(id @-> returning (void)) x -let setUndoStateHUDWidthConstraint x self = msg_send ~self ~cmd:(selector "setUndoStateHUDWidthConstraint:") ~typ:(id @-> returning (void)) x -let shadowView self = msg_send ~self ~cmd:(selector "shadowView") ~typ:(returning (id)) -let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning (id)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let undoStateHUDHeightConstraint self = msg_send ~self ~cmd:(selector "undoStateHUDHeightConstraint") ~typ:(returning (id)) -let undoStateHUDWidthConstraint self = msg_send ~self ~cmd:(selector "undoStateHUDWidthConstraint") ~typ:(returning (id)) -let updateUndoStateHUDControlType x ~available self = msg_send ~self ~cmd:(selector "updateUndoStateHUDControlType:available:") ~typ:(llong @-> bool @-> returning (void)) (LLong.of_int x) available \ No newline at end of file +let self = get_class "UIKBUndoStateHUD" + +let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning id) +let controlType self = msg_send ~self ~cmd:(selector "controlType") ~typ:(returning llong) +let initWithKeyboardAppearance x self = msg_send ~self ~cmd:(selector "initWithKeyboardAppearance:") ~typ:(llong @-> returning id) (LLong.of_int x) +let labelView self = msg_send ~self ~cmd:(selector "labelView") ~typ:(returning id) +let setContainerView x self = msg_send ~self ~cmd:(selector "setContainerView:") ~typ:(id @-> returning void) x +let setControlType x self = msg_send ~self ~cmd:(selector "setControlType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setLabelView x self = msg_send ~self ~cmd:(selector "setLabelView:") ~typ:(id @-> returning void) x +let setShadowView x self = msg_send ~self ~cmd:(selector "setShadowView:") ~typ:(id @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(id @-> returning void) x +let setUndoStateHUDHeightConstraint x self = msg_send ~self ~cmd:(selector "setUndoStateHUDHeightConstraint:") ~typ:(id @-> returning void) x +let setUndoStateHUDWidthConstraint x self = msg_send ~self ~cmd:(selector "setUndoStateHUDWidthConstraint:") ~typ:(id @-> returning void) x +let shadowView self = msg_send ~self ~cmd:(selector "shadowView") ~typ:(returning id) +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning id) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let undoStateHUDHeightConstraint self = msg_send ~self ~cmd:(selector "undoStateHUDHeightConstraint") ~typ:(returning id) +let undoStateHUDWidthConstraint self = msg_send ~self ~cmd:(selector "undoStateHUDWidthConstraint") ~typ:(returning id) +let updateUndoStateHUDControlType x ~available self = msg_send ~self ~cmd:(selector "updateUndoStateHUDControlType:available:") ~typ:(llong @-> bool @-> returning void) (LLong.of_int x) available \ No newline at end of file diff --git a/uikit_extra/UIKBUndoStyling.ml b/uikit_extra/UIKBUndoStyling.ml index cf2eca01..f5de1468 100644 --- a/uikit_extra/UIKBUndoStyling.ml +++ b/uikit_extra/UIKBUndoStyling.ml @@ -5,44 +5,48 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBUndoStyling" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbundostyling?language=objc}UIKBUndoStyling} *) -let _HUDShadowColor self = msg_send ~self ~cmd:(selector "HUDShadowColor") ~typ:(returning (id)) -let _HUDbackgroundColor self = msg_send ~self ~cmd:(selector "HUDbackgroundColor") ~typ:(returning (id)) -let appearance self = msg_send ~self ~cmd:(selector "appearance") ~typ:(returning (llong)) -let backgroundBlurEffect self = msg_send ~self ~cmd:(selector "backgroundBlurEffect") ~typ:(returning (id)) -let backgroundVibrancyEffect self = msg_send ~self ~cmd:(selector "backgroundVibrancyEffect") ~typ:(returning (id)) -let buttonGlyphColorDisabled self = msg_send ~self ~cmd:(selector "buttonGlyphColorDisabled") ~typ:(returning (id)) -let buttonGlyphColorEnabled self = msg_send ~self ~cmd:(selector "buttonGlyphColorEnabled") ~typ:(returning (id)) -let buttonGlyphColorPressed self = msg_send ~self ~cmd:(selector "buttonGlyphColorPressed") ~typ:(returning (id)) -let createDynamicColors self = msg_send ~self ~cmd:(selector "createDynamicColors") ~typ:(returning (void)) -let cutControlMinWidth self = msg_send ~self ~cmd:(selector "cutControlMinWidth") ~typ:(returning (double)) -let cutCopyPasteIconOnly self = msg_send ~self ~cmd:(selector "cutCopyPasteIconOnly") ~typ:(returning (bool)) -let elementBackgroundColor self = msg_send ~self ~cmd:(selector "elementBackgroundColor") ~typ:(returning (id)) -let elementCoverColor self = msg_send ~self ~cmd:(selector "elementCoverColor") ~typ:(returning (id)) -let initWithKeyboardAppearance x ~isRTL self = msg_send ~self ~cmd:(selector "initWithKeyboardAppearance:isRTL:") ~typ:(llong @-> bool @-> returning (id)) (LLong.of_int x) isRTL -let isRTL self = msg_send ~self ~cmd:(selector "isRTL") ~typ:(returning (bool)) -let setAppearance x self = msg_send ~self ~cmd:(selector "setAppearance:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBackgroundBlurEffect x self = msg_send ~self ~cmd:(selector "setBackgroundBlurEffect:") ~typ:(id @-> returning (void)) x -let setBackgroundVibrancyEffect x self = msg_send ~self ~cmd:(selector "setBackgroundVibrancyEffect:") ~typ:(id @-> returning (void)) x -let setButtonGlyphColorDisabled x self = msg_send ~self ~cmd:(selector "setButtonGlyphColorDisabled:") ~typ:(id @-> returning (void)) x -let setButtonGlyphColorEnabled x self = msg_send ~self ~cmd:(selector "setButtonGlyphColorEnabled:") ~typ:(id @-> returning (void)) x -let setButtonGlyphColorPressed x self = msg_send ~self ~cmd:(selector "setButtonGlyphColorPressed:") ~typ:(id @-> returning (void)) x -let setCutControlMinWidth x self = msg_send ~self ~cmd:(selector "setCutControlMinWidth:") ~typ:(double @-> returning (void)) x -let setCutCopyPasteIconOnly x self = msg_send ~self ~cmd:(selector "setCutCopyPasteIconOnly:") ~typ:(bool @-> returning (void)) x -let setElementBackgroundColor x self = msg_send ~self ~cmd:(selector "setElementBackgroundColor:") ~typ:(id @-> returning (void)) x -let setElementCoverColor x self = msg_send ~self ~cmd:(selector "setElementCoverColor:") ~typ:(id @-> returning (void)) x -let setHUDShadowColor x self = msg_send ~self ~cmd:(selector "setHUDShadowColor:") ~typ:(id @-> returning (void)) x -let setHUDbackgroundColor x self = msg_send ~self ~cmd:(selector "setHUDbackgroundColor:") ~typ:(id @-> returning (void)) x -let setIsRTL x self = msg_send ~self ~cmd:(selector "setIsRTL:") ~typ:(bool @-> returning (void)) x -let setTooSmallForInstructionalText x self = msg_send ~self ~cmd:(selector "setTooSmallForInstructionalText:") ~typ:(bool @-> returning (void)) x -let setUndoControlMinWidth x self = msg_send ~self ~cmd:(selector "setUndoControlMinWidth:") ~typ:(double @-> returning (void)) x -let setUndoRedoIconOnly x self = msg_send ~self ~cmd:(selector "setUndoRedoIconOnly:") ~typ:(bool @-> returning (void)) x -let tooSmallForInstructionalText self = msg_send ~self ~cmd:(selector "tooSmallForInstructionalText") ~typ:(returning (bool)) -let undoControlMinWidth self = msg_send ~self ~cmd:(selector "undoControlMinWidth") ~typ:(returning (double)) -let undoInteractiveControlLabelFont self = msg_send ~self ~cmd:(selector "undoInteractiveControlLabelFont") ~typ:(returning (id)) -let undoRedoIconOnly self = msg_send ~self ~cmd:(selector "undoRedoIconOnly") ~typ:(returning (bool)) -let undoStateControlLabelFont self = msg_send ~self ~cmd:(selector "undoStateControlLabelFont") ~typ:(returning (id)) -let undoStateControlUnavailableLabelFont self = msg_send ~self ~cmd:(selector "undoStateControlUnavailableLabelFont") ~typ:(returning (id)) -let vibrancyEffectForBlur x self = msg_send ~self ~cmd:(selector "vibrancyEffectForBlur:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let self = get_class "UIKBUndoStyling" + +let _HUDShadowColor self = msg_send ~self ~cmd:(selector "HUDShadowColor") ~typ:(returning id) +let _HUDbackgroundColor self = msg_send ~self ~cmd:(selector "HUDbackgroundColor") ~typ:(returning id) +let appearance self = msg_send ~self ~cmd:(selector "appearance") ~typ:(returning llong) +let backgroundBlurEffect self = msg_send ~self ~cmd:(selector "backgroundBlurEffect") ~typ:(returning id) +let backgroundVibrancyEffect self = msg_send ~self ~cmd:(selector "backgroundVibrancyEffect") ~typ:(returning id) +let buttonGlyphColorDisabled self = msg_send ~self ~cmd:(selector "buttonGlyphColorDisabled") ~typ:(returning id) +let buttonGlyphColorEnabled self = msg_send ~self ~cmd:(selector "buttonGlyphColorEnabled") ~typ:(returning id) +let buttonGlyphColorPressed self = msg_send ~self ~cmd:(selector "buttonGlyphColorPressed") ~typ:(returning id) +let createDynamicColors self = msg_send ~self ~cmd:(selector "createDynamicColors") ~typ:(returning void) +let cutControlMinWidth self = msg_send ~self ~cmd:(selector "cutControlMinWidth") ~typ:(returning double) +let cutCopyPasteIconOnly self = msg_send ~self ~cmd:(selector "cutCopyPasteIconOnly") ~typ:(returning bool) +let elementBackgroundColor self = msg_send ~self ~cmd:(selector "elementBackgroundColor") ~typ:(returning id) +let elementCoverColor self = msg_send ~self ~cmd:(selector "elementCoverColor") ~typ:(returning id) +let initWithKeyboardAppearance x ~isRTL self = msg_send ~self ~cmd:(selector "initWithKeyboardAppearance:isRTL:") ~typ:(llong @-> bool @-> returning id) (LLong.of_int x) isRTL +let isRTL self = msg_send ~self ~cmd:(selector "isRTL") ~typ:(returning bool) +let setAppearance x self = msg_send ~self ~cmd:(selector "setAppearance:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBackgroundBlurEffect x self = msg_send ~self ~cmd:(selector "setBackgroundBlurEffect:") ~typ:(id @-> returning void) x +let setBackgroundVibrancyEffect x self = msg_send ~self ~cmd:(selector "setBackgroundVibrancyEffect:") ~typ:(id @-> returning void) x +let setButtonGlyphColorDisabled x self = msg_send ~self ~cmd:(selector "setButtonGlyphColorDisabled:") ~typ:(id @-> returning void) x +let setButtonGlyphColorEnabled x self = msg_send ~self ~cmd:(selector "setButtonGlyphColorEnabled:") ~typ:(id @-> returning void) x +let setButtonGlyphColorPressed x self = msg_send ~self ~cmd:(selector "setButtonGlyphColorPressed:") ~typ:(id @-> returning void) x +let setCutControlMinWidth x self = msg_send ~self ~cmd:(selector "setCutControlMinWidth:") ~typ:(double @-> returning void) x +let setCutCopyPasteIconOnly x self = msg_send ~self ~cmd:(selector "setCutCopyPasteIconOnly:") ~typ:(bool @-> returning void) x +let setElementBackgroundColor x self = msg_send ~self ~cmd:(selector "setElementBackgroundColor:") ~typ:(id @-> returning void) x +let setElementCoverColor x self = msg_send ~self ~cmd:(selector "setElementCoverColor:") ~typ:(id @-> returning void) x +let setHUDShadowColor x self = msg_send ~self ~cmd:(selector "setHUDShadowColor:") ~typ:(id @-> returning void) x +let setHUDbackgroundColor x self = msg_send ~self ~cmd:(selector "setHUDbackgroundColor:") ~typ:(id @-> returning void) x +let setIsRTL x self = msg_send ~self ~cmd:(selector "setIsRTL:") ~typ:(bool @-> returning void) x +let setTooSmallForInstructionalText x self = msg_send ~self ~cmd:(selector "setTooSmallForInstructionalText:") ~typ:(bool @-> returning void) x +let setUndoControlMinWidth x self = msg_send ~self ~cmd:(selector "setUndoControlMinWidth:") ~typ:(double @-> returning void) x +let setUndoRedoIconOnly x self = msg_send ~self ~cmd:(selector "setUndoRedoIconOnly:") ~typ:(bool @-> returning void) x +let tooSmallForInstructionalText self = msg_send ~self ~cmd:(selector "tooSmallForInstructionalText") ~typ:(returning bool) +let undoControlMinWidth self = msg_send ~self ~cmd:(selector "undoControlMinWidth") ~typ:(returning double) +let undoInteractiveControlLabelFont self = msg_send ~self ~cmd:(selector "undoInteractiveControlLabelFont") ~typ:(returning id) +let undoRedoIconOnly self = msg_send ~self ~cmd:(selector "undoRedoIconOnly") ~typ:(returning bool) +let undoStateControlLabelFont self = msg_send ~self ~cmd:(selector "undoStateControlLabelFont") ~typ:(returning id) +let undoStateControlUnavailableLabelFont self = msg_send ~self ~cmd:(selector "undoStateControlUnavailableLabelFont") ~typ:(returning id) +let vibrancyEffectForBlur x self = msg_send ~self ~cmd:(selector "vibrancyEffectForBlur:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKBViewBackedKeyView.ml b/uikit_extra/UIKBViewBackedKeyView.ml index d442eec1..0f333d18 100644 --- a/uikit_extra/UIKBViewBackedKeyView.ml +++ b/uikit_extra/UIKBViewBackedKeyView.ml @@ -5,17 +5,21 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBViewBackedKeyView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbviewbackedkeyview?language=objc}UIKBViewBackedKeyView} *) -let backdropView self = msg_send ~self ~cmd:(selector "backdropView") ~typ:(returning (id)) -let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let renderFlagsForTraits x self = msg_send ~self ~cmd:(selector "renderFlagsForTraits:") ~typ:(id @-> returning (id)) x -let retestForTouchUpSelectedVariantIndexForKey x ~atPoint self = msg_send ~self ~cmd:(selector "retestForTouchUpSelectedVariantIndexForKey:atPoint:") ~typ:(id @-> CGPoint.t @-> returning (void)) x atPoint -let retestSelectedVariantIndexForKey x ~atPoint self = msg_send ~self ~cmd:(selector "retestSelectedVariantIndexForKey:atPoint:") ~typ:(id @-> CGPoint.t @-> returning (void)) x atPoint -let setBackdropView x self = msg_send ~self ~cmd:(selector "setBackdropView:") ~typ:(id @-> returning (void)) x -let setContentView x self = msg_send ~self ~cmd:(selector "setContentView:") ~typ:(id @-> returning (void)) x -let setDrawFrame x self = msg_send ~self ~cmd:(selector "setDrawFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning (void)) x -let updateForKeyplane x ~key self = msg_send ~self ~cmd:(selector "updateForKeyplane:key:") ~typ:(id @-> id @-> returning (void)) x key \ No newline at end of file +let self = get_class "UIKBViewBackedKeyView" + +let backdropView self = msg_send ~self ~cmd:(selector "backdropView") ~typ:(returning id) +let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let renderFlagsForTraits x self = msg_send ~self ~cmd:(selector "renderFlagsForTraits:") ~typ:(id @-> returning id) x +let retestForTouchUpSelectedVariantIndexForKey x ~atPoint self = msg_send ~self ~cmd:(selector "retestForTouchUpSelectedVariantIndexForKey:atPoint:") ~typ:(id @-> CGPoint.t @-> returning void) x atPoint +let retestSelectedVariantIndexForKey x ~atPoint self = msg_send ~self ~cmd:(selector "retestSelectedVariantIndexForKey:atPoint:") ~typ:(id @-> CGPoint.t @-> returning void) x atPoint +let setBackdropView x self = msg_send ~self ~cmd:(selector "setBackdropView:") ~typ:(id @-> returning void) x +let setContentView x self = msg_send ~self ~cmd:(selector "setContentView:") ~typ:(id @-> returning void) x +let setDrawFrame x self = msg_send ~self ~cmd:(selector "setDrawFrame:") ~typ:(CGRect.t @-> returning void) x +let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning void) x +let updateForKeyplane x ~key self = msg_send ~self ~cmd:(selector "updateForKeyplane:key:") ~typ:(id @-> id @-> returning void) x key \ No newline at end of file diff --git a/uikit_extra/UIKBViewForResponderForwarding.ml b/uikit_extra/UIKBViewForResponderForwarding.ml index c27329a6..55f2ca2a 100644 --- a/uikit_extra/UIKBViewForResponderForwarding.ml +++ b/uikit_extra/UIKBViewForResponderForwarding.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBViewForResponderForwarding" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbviewforresponderforwarding?language=objc}UIKBViewForResponderForwarding} *) -let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (bool)) x withEvent -let responderForForwarding self = msg_send ~self ~cmd:(selector "responderForForwarding") ~typ:(returning (id)) -let setResponderForForwarding x self = msg_send ~self ~cmd:(selector "setResponderForForwarding:") ~typ:(id @-> returning (void)) x -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let self = get_class "UIKBViewForResponderForwarding" + +let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let responderForForwarding self = msg_send ~self ~cmd:(selector "responderForForwarding") ~typ:(returning id) +let setResponderForForwarding x self = msg_send ~self ~cmd:(selector "setResponderForForwarding:") ~typ:(id @-> returning void) x +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit_extra/UIKBViewTreeSnapshotter.ml b/uikit_extra/UIKBViewTreeSnapshotter.ml index 6ef75d85..b5f512d8 100644 --- a/uikit_extra/UIKBViewTreeSnapshotter.ml +++ b/uikit_extra/UIKBViewTreeSnapshotter.ml @@ -5,12 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKBViewTreeSnapshotter" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbviewtreesnapshotter?language=objc}UIKBViewTreeSnapshotter} *) -module Class = struct - let snapshotterForKeyboardView x ~afterScreenUpdates self = msg_send ~self ~cmd:(selector "snapshotterForKeyboardView:afterScreenUpdates:") ~typ:(id @-> bool @-> returning (id)) x afterScreenUpdates -end +let self = get_class "UIKBViewTreeSnapshotter" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let snapshotView self = msg_send ~self ~cmd:(selector "snapshotView") ~typ:(returning (id)) \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let snapshotView self = msg_send ~self ~cmd:(selector "snapshotView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKBViewTreeSnapshotterClass.ml b/uikit_extra/UIKBViewTreeSnapshotterClass.ml new file mode 100644 index 00000000..960a1fac --- /dev/null +++ b/uikit_extra/UIKBViewTreeSnapshotterClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikbviewtreesnapshotter?language=objc}UIKBViewTreeSnapshotter} *) + +let snapshotterForKeyboardView x ~afterScreenUpdates self = msg_send ~self ~cmd:(selector "snapshotterForKeyboardView:afterScreenUpdates:") ~typ:(id @-> bool @-> returning id) x afterScreenUpdates \ No newline at end of file diff --git a/uikit_extra/UIKeyCommandDiscoverabilityHUD.ml b/uikit_extra/UIKeyCommandDiscoverabilityHUD.ml index 5cc6ff9d..20cd971e 100644 --- a/uikit_extra/UIKeyCommandDiscoverabilityHUD.ml +++ b/uikit_extra/UIKeyCommandDiscoverabilityHUD.ml @@ -5,14 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyCommandDiscoverabilityHUD" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeycommanddiscoverabilityhud?language=objc}UIKeyCommandDiscoverabilityHUD} *) -module Class = struct - let clearHUDPopTimer self = msg_send ~self ~cmd:(selector "clearHUDPopTimer") ~typ:(returning (void)) - let dismissHUD self = msg_send ~self ~cmd:(selector "dismissHUD") ~typ:(returning (void)) - let sharedKeyCommandDiscoverabilityHUD self = msg_send ~self ~cmd:(selector "sharedKeyCommandDiscoverabilityHUD") ~typ:(returning (id)) -end +let self = get_class "UIKeyCommandDiscoverabilityHUD" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let handlePhysicalKeyboardEvent x self = msg_send ~self ~cmd:(selector "handlePhysicalKeyboardEvent:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let handlePhysicalKeyboardEvent x self = msg_send ~self ~cmd:(selector "handlePhysicalKeyboardEvent:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKeyCommandDiscoverabilityHUDClass.ml b/uikit_extra/UIKeyCommandDiscoverabilityHUDClass.ml new file mode 100644 index 00000000..8821689f --- /dev/null +++ b/uikit_extra/UIKeyCommandDiscoverabilityHUDClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeycommanddiscoverabilityhud?language=objc}UIKeyCommandDiscoverabilityHUD} *) + +let clearHUDPopTimer self = msg_send ~self ~cmd:(selector "clearHUDPopTimer") ~typ:(returning void) +let dismissHUD self = msg_send ~self ~cmd:(selector "dismissHUD") ~typ:(returning void) +let sharedKeyCommandDiscoverabilityHUD self = msg_send ~self ~cmd:(selector "sharedKeyCommandDiscoverabilityHUD") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKeyCommandDiscoverabilityHUDColumnView.ml b/uikit_extra/UIKeyCommandDiscoverabilityHUDColumnView.ml index 874a3791..b38da1c5 100644 --- a/uikit_extra/UIKeyCommandDiscoverabilityHUDColumnView.ml +++ b/uikit_extra/UIKeyCommandDiscoverabilityHUDColumnView.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyCommandDiscoverabilityHUDColumnView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeycommanddiscoverabilityhudcolumnview?language=objc}UIKeyCommandDiscoverabilityHUDColumnView} *) -let fontScaleFactor self = msg_send ~self ~cmd:(selector "fontScaleFactor") ~typ:(returning (double)) -let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning (id)) x -let setFontScaleFactor x self = msg_send ~self ~cmd:(selector "setFontScaleFactor:") ~typ:(double @-> returning (void)) x -let setKeyCommands x ~withVisualStyle self = msg_send ~self ~cmd:(selector "setKeyCommands:withVisualStyle:") ~typ:(id @-> id @-> returning (void)) x withVisualStyle \ No newline at end of file +let self = get_class "UIKeyCommandDiscoverabilityHUDColumnView" + +let fontScaleFactor self = msg_send ~self ~cmd:(selector "fontScaleFactor") ~typ:(returning double) +let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning id) x +let setFontScaleFactor x self = msg_send ~self ~cmd:(selector "setFontScaleFactor:") ~typ:(double @-> returning void) x +let setKeyCommands x ~withVisualStyle self = msg_send ~self ~cmd:(selector "setKeyCommands:withVisualStyle:") ~typ:(id @-> id @-> returning void) x withVisualStyle \ No newline at end of file diff --git a/uikit_extra/UIKeyCommandDiscoverabilityHUDDescriptionView.ml b/uikit_extra/UIKeyCommandDiscoverabilityHUDDescriptionView.ml index d943eb04..8717af0e 100644 --- a/uikit_extra/UIKeyCommandDiscoverabilityHUDDescriptionView.ml +++ b/uikit_extra/UIKeyCommandDiscoverabilityHUDDescriptionView.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyCommandDiscoverabilityHUDDescriptionView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeycommanddiscoverabilityhuddescriptionview?language=objc}UIKeyCommandDiscoverabilityHUDDescriptionView} *) -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let initWithText x ~font ~lineHeight ~lineSpacing ~color ~edgeInsets self = msg_send ~self ~cmd:(selector "initWithText:font:lineHeight:lineSpacing:color:edgeInsets:") ~typ:(id @-> id @-> double @-> double @-> id @-> ptr void @-> returning (id)) x font lineHeight lineSpacing color edgeInsets -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let invalidateIntrinsicContentSize self = msg_send ~self ~cmd:(selector "invalidateIntrinsicContentSize") ~typ:(returning (void)) -let layoutManager x ~didCompleteLayoutForTextContainer ~atEnd self = msg_send ~self ~cmd:(selector "layoutManager:didCompleteLayoutForTextContainer:atEnd:") ~typ:(id @-> id @-> bool @-> returning (void)) x didCompleteLayoutForTextContainer atEnd -let layoutManager1 x ~shouldUseAction ~forControlCharacterAtIndex self = msg_send ~self ~cmd:(selector "layoutManager:shouldUseAction:forControlCharacterAtIndex:") ~typ:(id @-> llong @-> ullong @-> returning (llong)) x (LLong.of_int shouldUseAction) (ULLong.of_int forControlCharacterAtIndex) -let layoutManager2 x ~boundingBoxForControlGlyphAtIndex ~forTextContainer ~proposedLineFragment ~glyphPosition ~characterIndex self = msg_send_stret ~self ~cmd:(selector "layoutManager:boundingBoxForControlGlyphAtIndex:forTextContainer:proposedLineFragment:glyphPosition:characterIndex:") ~typ:(id @-> ullong @-> id @-> CGRect.t @-> CGPoint.t @-> ullong @-> returning (CGRect.t)) ~return_type:CGRect.t x (ULLong.of_int boundingBoxForControlGlyphAtIndex) forTextContainer proposedLineFragment glyphPosition (ULLong.of_int characterIndex) -let layoutManager3 x ~shouldGenerateGlyphs ~properties ~characterIndexes ~font ~forGlyphRange self = msg_send ~self ~cmd:(selector "layoutManager:shouldGenerateGlyphs:properties:characterIndexes:font:forGlyphRange:") ~typ:(id @-> ptr (ushort) @-> ptr (llong) @-> ptr (ullong) @-> id @-> NSRange.t @-> returning (ullong)) x shouldGenerateGlyphs properties characterIndexes font forGlyphRange -let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning (void)) x -let setSpaceWidth x self = msg_send ~self ~cmd:(selector "setSpaceWidth:") ~typ:(double @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let spaceWidth self = msg_send ~self ~cmd:(selector "spaceWidth") ~typ:(returning (double)) -let systemLayoutSizeFittingSize x self = msg_send_stret ~self ~cmd:(selector "systemLayoutSizeFittingSize:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKeyCommandDiscoverabilityHUDDescriptionView" + +let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning id) +let initWithText x ~font ~lineHeight ~lineSpacing ~color ~edgeInsets self = msg_send ~self ~cmd:(selector "initWithText:font:lineHeight:lineSpacing:color:edgeInsets:") ~typ:(id @-> id @-> double @-> double @-> id @-> UIEdgeInsets.t @-> returning id) x font lineHeight lineSpacing color edgeInsets +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let invalidateIntrinsicContentSize self = msg_send ~self ~cmd:(selector "invalidateIntrinsicContentSize") ~typ:(returning void) +let layoutManager x ~didCompleteLayoutForTextContainer ~atEnd self = msg_send ~self ~cmd:(selector "layoutManager:didCompleteLayoutForTextContainer:atEnd:") ~typ:(id @-> id @-> bool @-> returning void) x didCompleteLayoutForTextContainer atEnd +let layoutManager1 x ~shouldUseAction ~forControlCharacterAtIndex self = msg_send ~self ~cmd:(selector "layoutManager:shouldUseAction:forControlCharacterAtIndex:") ~typ:(id @-> llong @-> ullong @-> returning llong) x (LLong.of_int shouldUseAction) (ULLong.of_int forControlCharacterAtIndex) +let layoutManager2 x ~boundingBoxForControlGlyphAtIndex ~forTextContainer ~proposedLineFragment ~glyphPosition ~characterIndex self = msg_send ~self ~cmd:(selector "layoutManager:boundingBoxForControlGlyphAtIndex:forTextContainer:proposedLineFragment:glyphPosition:characterIndex:") ~typ:(id @-> ullong @-> id @-> CGRect.t @-> CGPoint.t @-> ullong @-> returning CGRect.t) x (ULLong.of_int boundingBoxForControlGlyphAtIndex) forTextContainer proposedLineFragment glyphPosition (ULLong.of_int characterIndex) +let layoutManager3 x ~shouldGenerateGlyphs ~properties ~characterIndexes ~font ~forGlyphRange self = msg_send ~self ~cmd:(selector "layoutManager:shouldGenerateGlyphs:properties:characterIndexes:font:forGlyphRange:") ~typ:(id @-> (ptr ushort) @-> (ptr llong) @-> (ptr ullong) @-> id @-> NSRange.t @-> returning ullong) x shouldGenerateGlyphs properties characterIndexes font forGlyphRange +let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning void) x +let setSpaceWidth x self = msg_send ~self ~cmd:(selector "setSpaceWidth:") ~typ:(double @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let spaceWidth self = msg_send ~self ~cmd:(selector "spaceWidth") ~typ:(returning double) +let systemLayoutSizeFittingSize x self = msg_send ~self ~cmd:(selector "systemLayoutSizeFittingSize:") ~typ:(CGSize.t @-> returning CGSize.t) x +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKeyCommandDiscoverabilityHUDView.ml b/uikit_extra/UIKeyCommandDiscoverabilityHUDView.ml index cd9416f8..e0acf35a 100644 --- a/uikit_extra/UIKeyCommandDiscoverabilityHUDView.ml +++ b/uikit_extra/UIKeyCommandDiscoverabilityHUDView.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyCommandDiscoverabilityHUDView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeycommanddiscoverabilityhudview?language=objc}UIKeyCommandDiscoverabilityHUDView} *) -let animateIn self = msg_send ~self ~cmd:(selector "animateIn") ~typ:(returning (void)) -let animateOutWithCompletion x self = msg_send ~self ~cmd:(selector "animateOutWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let collectionView x ~cellForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:cellForItemAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForItemAtIndexPath -let collectionView' x ~numberOfItemsInSection self = msg_send ~self ~cmd:(selector "collectionView:numberOfItemsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfItemsInSection) -let discoverabilityHUDColumnView x ~descriptionStringForKeyCommand self = msg_send ~self ~cmd:(selector "discoverabilityHUDColumnView:descriptionStringForKeyCommand:") ~typ:(id @-> id @-> returning (id)) x descriptionStringForKeyCommand -let discoverabilityHUDColumnView1 x ~inputStringForKeyCommand self = msg_send ~self ~cmd:(selector "discoverabilityHUDColumnView:inputStringForKeyCommand:") ~typ:(id @-> id @-> returning (id)) x inputStringForKeyCommand -let discoverabilityHUDColumnView2 x ~modifiersStringForKeyCommand self = msg_send ~self ~cmd:(selector "discoverabilityHUDColumnView:modifiersStringForKeyCommand:") ~typ:(id @-> id @-> returning (id)) x modifiersStringForKeyCommand -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let initWithKeyCommands x ~keyboard self = msg_send ~self ~cmd:(selector "initWithKeyCommands:keyboard:") ~typ:(id @-> ptr void @-> returning (id)) x keyboard -let recalculatePages self = msg_send ~self ~cmd:(selector "recalculatePages") ~typ:(returning (void)) -let scrollViewDidEndDecelerating x self = msg_send ~self ~cmd:(selector "scrollViewDidEndDecelerating:") ~typ:(id @-> returning (void)) x -let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setVisualStyle x self = msg_send ~self ~cmd:(selector "setVisualStyle:") ~typ:(id @-> returning (void)) x -let visualStyle self = msg_send ~self ~cmd:(selector "visualStyle") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKeyCommandDiscoverabilityHUDView" + +let animateIn self = msg_send ~self ~cmd:(selector "animateIn") ~typ:(returning void) +let animateOutWithCompletion x self = msg_send ~self ~cmd:(selector "animateOutWithCompletion:") ~typ:((ptr void) @-> returning void) x +let collectionView x ~cellForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:cellForItemAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForItemAtIndexPath +let collectionView' x ~numberOfItemsInSection self = msg_send ~self ~cmd:(selector "collectionView:numberOfItemsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfItemsInSection) +let discoverabilityHUDColumnView x ~descriptionStringForKeyCommand self = msg_send ~self ~cmd:(selector "discoverabilityHUDColumnView:descriptionStringForKeyCommand:") ~typ:(id @-> id @-> returning id) x descriptionStringForKeyCommand +let discoverabilityHUDColumnView1 x ~inputStringForKeyCommand self = msg_send ~self ~cmd:(selector "discoverabilityHUDColumnView:inputStringForKeyCommand:") ~typ:(id @-> id @-> returning id) x inputStringForKeyCommand +let discoverabilityHUDColumnView2 x ~modifiersStringForKeyCommand self = msg_send ~self ~cmd:(selector "discoverabilityHUDColumnView:modifiersStringForKeyCommand:") ~typ:(id @-> id @-> returning id) x modifiersStringForKeyCommand +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let initWithKeyCommands x ~keyboard self = msg_send ~self ~cmd:(selector "initWithKeyCommands:keyboard:") ~typ:(id @-> (ptr void) @-> returning id) x keyboard +let recalculatePages self = msg_send ~self ~cmd:(selector "recalculatePages") ~typ:(returning void) +let scrollViewDidEndDecelerating x self = msg_send ~self ~cmd:(selector "scrollViewDidEndDecelerating:") ~typ:(id @-> returning void) x +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setVisualStyle x self = msg_send ~self ~cmd:(selector "setVisualStyle:") ~typ:(id @-> returning void) x +let visualStyle self = msg_send ~self ~cmd:(selector "visualStyle") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKeyCommandDiscoverabilityHUDViewCell.ml b/uikit_extra/UIKeyCommandDiscoverabilityHUDViewCell.ml index 55d67911..ae14d680 100644 --- a/uikit_extra/UIKeyCommandDiscoverabilityHUDViewCell.ml +++ b/uikit_extra/UIKeyCommandDiscoverabilityHUDViewCell.ml @@ -5,14 +5,18 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyCommandDiscoverabilityHUDViewCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeycommanddiscoverabilityhudviewcell?language=objc}UIKeyCommandDiscoverabilityHUDViewCell} *) -let constraints self = msg_send ~self ~cmd:(selector "constraints") ~typ:(returning (id)) -let constraintsForTwoColumns self = msg_send ~self ~cmd:(selector "constraintsForTwoColumns") ~typ:(returning (bool)) -let leftColumnView self = msg_send ~self ~cmd:(selector "leftColumnView") ~typ:(returning (id)) -let rightColumnView self = msg_send ~self ~cmd:(selector "rightColumnView") ~typ:(returning (id)) -let setConstraints x self = msg_send ~self ~cmd:(selector "setConstraints:") ~typ:(id @-> returning (void)) x -let setConstraintsForTwoColumns x self = msg_send ~self ~cmd:(selector "setConstraintsForTwoColumns:") ~typ:(bool @-> returning (void)) x -let setLeftColumnView x self = msg_send ~self ~cmd:(selector "setLeftColumnView:") ~typ:(id @-> returning (void)) x -let setRightColumnView x self = msg_send ~self ~cmd:(selector "setRightColumnView:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKeyCommandDiscoverabilityHUDViewCell" + +let constraints self = msg_send ~self ~cmd:(selector "constraints") ~typ:(returning id) +let constraintsForTwoColumns self = msg_send ~self ~cmd:(selector "constraintsForTwoColumns") ~typ:(returning bool) +let leftColumnView self = msg_send ~self ~cmd:(selector "leftColumnView") ~typ:(returning id) +let rightColumnView self = msg_send ~self ~cmd:(selector "rightColumnView") ~typ:(returning id) +let setConstraints x self = msg_send ~self ~cmd:(selector "setConstraints:") ~typ:(id @-> returning void) x +let setConstraintsForTwoColumns x self = msg_send ~self ~cmd:(selector "setConstraintsForTwoColumns:") ~typ:(bool @-> returning void) x +let setLeftColumnView x self = msg_send ~self ~cmd:(selector "setLeftColumnView:") ~typ:(id @-> returning void) x +let setRightColumnView x self = msg_send ~self ~cmd:(selector "setRightColumnView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKeyCommandDiscoverabilityHUDViewController.ml b/uikit_extra/UIKeyCommandDiscoverabilityHUDViewController.ml index d67598da..8c0c4e57 100644 --- a/uikit_extra/UIKeyCommandDiscoverabilityHUDViewController.ml +++ b/uikit_extra/UIKeyCommandDiscoverabilityHUDViewController.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyCommandDiscoverabilityHUDViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeycommanddiscoverabilityhudviewcontroller?language=objc}UIKeyCommandDiscoverabilityHUDViewController} *) -let animateOutWithCompletion x self = msg_send ~self ~cmd:(selector "animateOutWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithKeyCommands x ~keyboard self = msg_send ~self ~cmd:(selector "initWithKeyCommands:keyboard:") ~typ:(id @-> ptr void @-> returning (id)) x keyboard -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning (void)) x -let viewDidMoveToWindow x ~shouldAppearOrDisappear self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow:shouldAppearOrDisappear:") ~typ:(id @-> bool @-> returning (void)) x shouldAppearOrDisappear -let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIKeyCommandDiscoverabilityHUDViewController" + +let animateOutWithCompletion x self = msg_send ~self ~cmd:(selector "animateOutWithCompletion:") ~typ:((ptr void) @-> returning void) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithKeyCommands x ~keyboard self = msg_send ~self ~cmd:(selector "initWithKeyCommands:keyboard:") ~typ:(id @-> (ptr void) @-> returning id) x keyboard +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let viewDidMoveToWindow x ~shouldAppearOrDisappear self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow:shouldAppearOrDisappear:") ~typ:(id @-> bool @-> returning void) x shouldAppearOrDisappear +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKeyCommandDiscoverabilityHUDVisualStyle.ml b/uikit_extra/UIKeyCommandDiscoverabilityHUDVisualStyle.ml index 0f0ab9b1..6c400b30 100644 --- a/uikit_extra/UIKeyCommandDiscoverabilityHUDVisualStyle.ml +++ b/uikit_extra/UIKeyCommandDiscoverabilityHUDVisualStyle.ml @@ -5,13 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyCommandDiscoverabilityHUDVisualStyle" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeycommanddiscoverabilityhudvisualstyle?language=objc}UIKeyCommandDiscoverabilityHUDVisualStyle} *) -module C = struct - let visualStyleForTraitCollection x self = msg_send ~self ~cmd:(selector "visualStyleForTraitCollection:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIKeyCommandDiscoverabilityHUDVisualStyle" -let columnDividerHeightForHUDHeight x self = msg_send ~self ~cmd:(selector "columnDividerHeightForHUDHeight:") ~typ:(double @-> returning (double)) x -let maxHUDHeightForHeight x self = msg_send ~self ~cmd:(selector "maxHUDHeightForHeight:") ~typ:(double @-> returning (double)) x -let maxHUDWidthForWidth x self = msg_send ~self ~cmd:(selector "maxHUDWidthForWidth:") ~typ:(double @-> returning (double)) x \ No newline at end of file +let columnDividerHeightForHUDHeight x self = msg_send ~self ~cmd:(selector "columnDividerHeightForHUDHeight:") ~typ:(double @-> returning double) x +let maxHUDHeightForHeight x self = msg_send ~self ~cmd:(selector "maxHUDHeightForHeight:") ~typ:(double @-> returning double) x +let maxHUDWidthForWidth x self = msg_send ~self ~cmd:(selector "maxHUDWidthForWidth:") ~typ:(double @-> returning double) x \ No newline at end of file diff --git a/uikit_extra/UIKeyCommandDiscoverabilityHUDVisualStyleClass.ml b/uikit_extra/UIKeyCommandDiscoverabilityHUDVisualStyleClass.ml new file mode 100644 index 00000000..13e99b2a --- /dev/null +++ b/uikit_extra/UIKeyCommandDiscoverabilityHUDVisualStyleClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeycommanddiscoverabilityhudvisualstyle?language=objc}UIKeyCommandDiscoverabilityHUDVisualStyle} *) + +let visualStyleForTraitCollection x self = msg_send ~self ~cmd:(selector "visualStyleForTraitCollection:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKeyCommandDiscoverabilityHUDVisualStyleCompact.ml b/uikit_extra/UIKeyCommandDiscoverabilityHUDVisualStyleCompact.ml index d4ccccc4..da57d05c 100644 --- a/uikit_extra/UIKeyCommandDiscoverabilityHUDVisualStyleCompact.ml +++ b/uikit_extra/UIKeyCommandDiscoverabilityHUDVisualStyleCompact.ml @@ -5,12 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyCommandDiscoverabilityHUDVisualStyleCompact" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeycommanddiscoverabilityhudvisualstylecompact?language=objc}UIKeyCommandDiscoverabilityHUDVisualStyleCompact} *) -let _HUDPageControlBottomMargin self = msg_send ~self ~cmd:(selector "HUDPageControlBottomMargin") ~typ:(returning (double)) -let maxHUDWidthForWidth x self = msg_send ~self ~cmd:(selector "maxHUDWidthForWidth:") ~typ:(double @-> returning (double)) x -let summaryDescriptionToModifiersSpacing self = msg_send ~self ~cmd:(selector "summaryDescriptionToModifiersSpacing") ~typ:(returning (double)) -let summaryFont self = msg_send ~self ~cmd:(selector "summaryFont") ~typ:(returning (id)) -let summaryModifiersSpacing self = msg_send ~self ~cmd:(selector "summaryModifiersSpacing") ~typ:(returning (double)) -let summaryXPadding self = msg_send ~self ~cmd:(selector "summaryXPadding") ~typ:(returning (double)) \ No newline at end of file +let self = get_class "UIKeyCommandDiscoverabilityHUDVisualStyleCompact" + +let _HUDPageControlBottomMargin self = msg_send ~self ~cmd:(selector "HUDPageControlBottomMargin") ~typ:(returning double) +let _HUDViewInsets self = msg_send ~self ~cmd:(selector "HUDViewInsets") ~typ:(returning UIEdgeInsets.t) +let maxHUDWidthForWidth x self = msg_send ~self ~cmd:(selector "maxHUDWidthForWidth:") ~typ:(double @-> returning double) x +let summaryDescriptionToModifiersSpacing self = msg_send ~self ~cmd:(selector "summaryDescriptionToModifiersSpacing") ~typ:(returning double) +let summaryFont self = msg_send ~self ~cmd:(selector "summaryFont") ~typ:(returning id) +let summaryModifiersSpacing self = msg_send ~self ~cmd:(selector "summaryModifiersSpacing") ~typ:(returning double) +let summaryXPadding self = msg_send ~self ~cmd:(selector "summaryXPadding") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIKeyCommandDiscoverabilityHUDVisualStyleRegular.ml b/uikit_extra/UIKeyCommandDiscoverabilityHUDVisualStyleRegular.ml index 5247bb1b..42151098 100644 --- a/uikit_extra/UIKeyCommandDiscoverabilityHUDVisualStyleRegular.ml +++ b/uikit_extra/UIKeyCommandDiscoverabilityHUDVisualStyleRegular.ml @@ -5,26 +5,31 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyCommandDiscoverabilityHUDVisualStyleRegular" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeycommanddiscoverabilityhudvisualstyleregular?language=objc}UIKeyCommandDiscoverabilityHUDVisualStyleRegular} *) -let _HUDPageControlBottomMargin self = msg_send ~self ~cmd:(selector "HUDPageControlBottomMargin") ~typ:(returning (double)) -let columnDividerHeightForHUDHeight x self = msg_send ~self ~cmd:(selector "columnDividerHeightForHUDHeight:") ~typ:(double @-> returning (double)) x -let columnDividerWidth self = msg_send ~self ~cmd:(selector "columnDividerWidth") ~typ:(returning (double)) -let dividerColor self = msg_send ~self ~cmd:(selector "dividerColor") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let inputColor self = msg_send ~self ~cmd:(selector "inputColor") ~typ:(returning (id)) -let maxHUDHeightForHeight x self = msg_send ~self ~cmd:(selector "maxHUDHeightForHeight:") ~typ:(double @-> returning (double)) x -let maxHUDWidthForWidth x self = msg_send ~self ~cmd:(selector "maxHUDWidthForWidth:") ~typ:(double @-> returning (double)) x -let minimumFontScaleBeforeTruncation self = msg_send ~self ~cmd:(selector "minimumFontScaleBeforeTruncation") ~typ:(returning (double)) -let setDividerColor x self = msg_send ~self ~cmd:(selector "setDividerColor:") ~typ:(id @-> returning (void)) x -let setInputColor x self = msg_send ~self ~cmd:(selector "setInputColor:") ~typ:(id @-> returning (void)) x -let setTitleColor x self = msg_send ~self ~cmd:(selector "setTitleColor:") ~typ:(id @-> returning (void)) x -let summaryDescriptionToModifiersSpacing self = msg_send ~self ~cmd:(selector "summaryDescriptionToModifiersSpacing") ~typ:(returning (double)) -let summaryFont self = msg_send ~self ~cmd:(selector "summaryFont") ~typ:(returning (id)) -let summaryLineHeight self = msg_send ~self ~cmd:(selector "summaryLineHeight") ~typ:(returning (double)) -let summaryLineSpacing self = msg_send ~self ~cmd:(selector "summaryLineSpacing") ~typ:(returning (double)) -let summaryModifiersSpacing self = msg_send ~self ~cmd:(selector "summaryModifiersSpacing") ~typ:(returning (double)) -let summaryXPadding self = msg_send ~self ~cmd:(selector "summaryXPadding") ~typ:(returning (double)) -let summaryYPadding self = msg_send ~self ~cmd:(selector "summaryYPadding") ~typ:(returning (double)) -let titleColor self = msg_send ~self ~cmd:(selector "titleColor") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKeyCommandDiscoverabilityHUDVisualStyleRegular" + +let _HUDPageControlBottomMargin self = msg_send ~self ~cmd:(selector "HUDPageControlBottomMargin") ~typ:(returning double) +let _HUDViewInsets self = msg_send ~self ~cmd:(selector "HUDViewInsets") ~typ:(returning UIEdgeInsets.t) +let columnDividerHeightForHUDHeight x self = msg_send ~self ~cmd:(selector "columnDividerHeightForHUDHeight:") ~typ:(double @-> returning double) x +let columnDividerWidth self = msg_send ~self ~cmd:(selector "columnDividerWidth") ~typ:(returning double) +let dividerColor self = msg_send ~self ~cmd:(selector "dividerColor") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let inputColor self = msg_send ~self ~cmd:(selector "inputColor") ~typ:(returning id) +let maxHUDHeightForHeight x self = msg_send ~self ~cmd:(selector "maxHUDHeightForHeight:") ~typ:(double @-> returning double) x +let maxHUDWidthForWidth x self = msg_send ~self ~cmd:(selector "maxHUDWidthForWidth:") ~typ:(double @-> returning double) x +let minimumFontScaleBeforeTruncation self = msg_send ~self ~cmd:(selector "minimumFontScaleBeforeTruncation") ~typ:(returning double) +let setDividerColor x self = msg_send ~self ~cmd:(selector "setDividerColor:") ~typ:(id @-> returning void) x +let setInputColor x self = msg_send ~self ~cmd:(selector "setInputColor:") ~typ:(id @-> returning void) x +let setTitleColor x self = msg_send ~self ~cmd:(selector "setTitleColor:") ~typ:(id @-> returning void) x +let summaryDescriptionToModifiersSpacing self = msg_send ~self ~cmd:(selector "summaryDescriptionToModifiersSpacing") ~typ:(returning double) +let summaryFont self = msg_send ~self ~cmd:(selector "summaryFont") ~typ:(returning id) +let summaryLineHeight self = msg_send ~self ~cmd:(selector "summaryLineHeight") ~typ:(returning double) +let summaryLineSpacing self = msg_send ~self ~cmd:(selector "summaryLineSpacing") ~typ:(returning double) +let summaryModifiersSpacing self = msg_send ~self ~cmd:(selector "summaryModifiersSpacing") ~typ:(returning double) +let summaryXPadding self = msg_send ~self ~cmd:(selector "summaryXPadding") ~typ:(returning double) +let summaryYPadding self = msg_send ~self ~cmd:(selector "summaryYPadding") ~typ:(returning double) +let titleColor self = msg_send ~self ~cmd:(selector "titleColor") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKeyShortcutHUDService.ml b/uikit_extra/UIKeyShortcutHUDService.ml new file mode 100644 index 00000000..818de3bd --- /dev/null +++ b/uikit_extra/UIKeyShortcutHUDService.ml @@ -0,0 +1,42 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyshortcuthudservice?language=objc}UIKeyShortcutHUDService} *) + +let self = get_class "UIKeyShortcutHUDService" + +let beginSearching self = msg_send ~self ~cmd:(selector "beginSearching") ~typ:(returning void) +let cancelScheduledHUDPresentationIfNeeded self = msg_send ~self ~cmd:(selector "cancelScheduledHUDPresentationIfNeeded") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let dismissHUDIfNeeded self = msg_send ~self ~cmd:(selector "dismissHUDIfNeeded") ~typ:(returning void) +let dismissOrCancelHUDPresentationIfNeeded self = msg_send ~self ~cmd:(selector "dismissOrCancelHUDPresentationIfNeeded") ~typ:(returning void) +let handleKeyboardEvent x self = msg_send ~self ~cmd:(selector "handleKeyboardEvent:") ~typ:(id @-> returning void) x +let hudPresentationState self = msg_send ~self ~cmd:(selector "hudPresentationState") ~typ:(returning llong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isHUDVisible self = msg_send ~self ~cmd:(selector "isHUDVisible") ~typ:(returning bool) +let isModifierKeyDownForHUDDismissal self = msg_send ~self ~cmd:(selector "isModifierKeyDownForHUDDismissal") ~typ:(returning bool) +let lastKeyboardEvent self = msg_send ~self ~cmd:(selector "lastKeyboardEvent") ~typ:(returning id) +let modifierKeyListener self = msg_send ~self ~cmd:(selector "modifierKeyListener") ~typ:(returning id) +let modifierKeyListener' x ~didUpdateModifierFlag ~withEvent self = msg_send ~self ~cmd:(selector "modifierKeyListener:didUpdateModifierFlag:withEvent:") ~typ:(id @-> llong @-> id @-> returning void) x (LLong.of_int didUpdateModifierFlag) withEvent +let modifierKeyListenerDidPressNonModifierKey x self = msg_send ~self ~cmd:(selector "modifierKeyListenerDidPressNonModifierKey:") ~typ:(id @-> returning void) x +let presentHUD self = msg_send ~self ~cmd:(selector "presentHUD") ~typ:(returning void) +let presentHUDIfAllowedWithConfiguration x self = msg_send ~self ~cmd:(selector "presentHUDIfAllowedWithConfiguration:") ~typ:(id @-> returning void) x +let preventUnintendedSystemHUDPresentationIfNeeded self = msg_send ~self ~cmd:(selector "preventUnintendedSystemHUDPresentationIfNeeded") ~typ:(returning void) +let scheduleHUDPresentation self = msg_send ~self ~cmd:(selector "scheduleHUDPresentation") ~typ:(returning void) +let scheduledHUDConfiguration self = msg_send ~self ~cmd:(selector "scheduledHUDConfiguration") ~typ:(returning id) +let scheduledHUDHoverGestureRecognizers self = msg_send ~self ~cmd:(selector "scheduledHUDHoverGestureRecognizers") ~typ:(returning id) +let scheduledHUDInitialPointerLocation self = msg_send ~self ~cmd:(selector "scheduledHUDInitialPointerLocation") ~typ:(returning id) +let scheduledHUDTimer self = msg_send ~self ~cmd:(selector "scheduledHUDTimer") ~typ:(returning id) +let setLastKeyboardEvent x self = msg_send ~self ~cmd:(selector "setLastKeyboardEvent:") ~typ:(id @-> returning void) x +let setModifierKeyDownForHUDDismissal x self = msg_send ~self ~cmd:(selector "setModifierKeyDownForHUDDismissal:") ~typ:(bool @-> returning void) x +let setScheduledHUDConfiguration x self = msg_send ~self ~cmd:(selector "setScheduledHUDConfiguration:") ~typ:(id @-> returning void) x +let setScheduledHUDHoverGestureRecognizers x self = msg_send ~self ~cmd:(selector "setScheduledHUDHoverGestureRecognizers:") ~typ:(id @-> returning void) x +let setScheduledHUDInitialPointerLocation x self = msg_send ~self ~cmd:(selector "setScheduledHUDInitialPointerLocation:") ~typ:(id @-> returning void) x +let setScheduledHUDTimer x self = msg_send ~self ~cmd:(selector "setScheduledHUDTimer:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKeyShortcutHUDServiceClass.ml b/uikit_extra/UIKeyShortcutHUDServiceClass.ml new file mode 100644 index 00000000..4fb56a9c --- /dev/null +++ b/uikit_extra/UIKeyShortcutHUDServiceClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyshortcuthudservice?language=objc}UIKeyShortcutHUDService} *) + +let sharedHUDService self = msg_send ~self ~cmd:(selector "sharedHUDService") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardCache.ml b/uikit_extra/UIKeyboardCache.ml new file mode 100644 index 00000000..f9f193a8 --- /dev/null +++ b/uikit_extra/UIKeyboardCache.ml @@ -0,0 +1,29 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardcache?language=objc}UIKeyboardCache} *) + +let self = get_class "UIKeyboardCache" + +let cachedCompositeImageForCacheKeys x ~fromLayout ~opacities self = msg_send ~self ~cmd:(selector "cachedCompositeImageForCacheKeys:fromLayout:opacities:") ~typ:(id @-> id @-> id @-> returning (ptr CGImage.t)) x fromLayout opacities +let cachedImageForKey x ~fromLayout self = msg_send ~self ~cmd:(selector "cachedImageForKey:fromLayout:") ~typ:(id @-> id @-> returning (ptr CGImage.t)) x fromLayout +let clearNonPersistentCache self = msg_send ~self ~cmd:(selector "clearNonPersistentCache") ~typ:(returning void) +let commitTransaction self = msg_send ~self ~cmd:(selector "commitTransaction") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let decrementExpectedRender x self = msg_send ~self ~cmd:(selector "decrementExpectedRender:") ~typ:(id @-> returning void) x +let displayImagesForView x ~fromLayout ~imageFlags self = msg_send ~self ~cmd:(selector "displayImagesForView:fromLayout:imageFlags:") ~typ:(id @-> id @-> id @-> returning id) x fromLayout imageFlags +let drawCachedImage x ~alpha ~inContext self = msg_send ~self ~cmd:(selector "drawCachedImage:alpha:inContext:") ~typ:(id @-> double @-> (ptr CGContext.t) @-> returning void) x alpha inContext +let idleAction self = msg_send ~self ~cmd:(selector "idleAction") ~typ:(returning id) +let incrementExpectedRender x self = msg_send ~self ~cmd:(selector "incrementExpectedRender:") ~typ:(id @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let purge self = msg_send ~self ~cmd:(selector "purge") ~typ:(returning void) +let setIdleAction x self = msg_send ~self ~cmd:(selector "setIdleAction:") ~typ:(id @-> returning void) x +let uniqueLayoutsFromInputModes x self = msg_send ~self ~cmd:(selector "uniqueLayoutsFromInputModes:") ~typ:(id @-> returning id) x +let updateCacheForInputModes x self = msg_send ~self ~cmd:(selector "updateCacheForInputModes:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKeyboardCacheClass.ml b/uikit_extra/UIKeyboardCacheClass.ml new file mode 100644 index 00000000..84c16ec5 --- /dev/null +++ b/uikit_extra/UIKeyboardCacheClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardcache?language=objc}UIKeyboardCache} *) + +let enabled self = msg_send ~self ~cmd:(selector "enabled") ~typ:(returning bool) +let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardCameraBasePresentationController.ml b/uikit_extra/UIKeyboardCameraBasePresentationController.ml index 97693aaa..3fc56c84 100644 --- a/uikit_extra/UIKeyboardCameraBasePresentationController.ml +++ b/uikit_extra/UIKeyboardCameraBasePresentationController.ml @@ -5,11 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardCameraBasePresentationController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardcamerabasepresentationcontroller?language=objc}UIKeyboardCameraBasePresentationController} *) -let postNotificationsForType x ~forStart self = msg_send ~self ~cmd:(selector "postNotificationsForType:forStart:") ~typ:(ullong @-> bool @-> returning (void)) (ULLong.of_int x) forStart -let postNotificationsForType' x ~from ~to_ ~forStart self = msg_send ~self ~cmd:(selector "postNotificationsForType:from:to:forStart:") ~typ:(ullong @-> CGRect.t @-> CGRect.t @-> bool @-> returning (void)) (ULLong.of_int x) from to_ forStart -let presentingOverKeyboard self = msg_send ~self ~cmd:(selector "presentingOverKeyboard") ~typ:(returning (bool)) -let setPresentingOverKeyboard x self = msg_send ~self ~cmd:(selector "setPresentingOverKeyboard:") ~typ:(bool @-> returning (void)) x -let updatesGuideDuringRotation self = msg_send ~self ~cmd:(selector "updatesGuideDuringRotation") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIKeyboardCameraBasePresentationController" + +let postNotificationsForType x ~forStart self = msg_send ~self ~cmd:(selector "postNotificationsForType:forStart:") ~typ:(ullong @-> bool @-> returning void) (ULLong.of_int x) forStart +let postNotificationsForType' x ~from ~to_ ~forStart self = msg_send ~self ~cmd:(selector "postNotificationsForType:from:to:forStart:") ~typ:(ullong @-> CGRect.t @-> CGRect.t @-> bool @-> returning void) (ULLong.of_int x) from to_ forStart +let presentingOverKeyboard self = msg_send ~self ~cmd:(selector "presentingOverKeyboard") ~typ:(returning bool) +let setPresentingOverKeyboard x self = msg_send ~self ~cmd:(selector "setPresentingOverKeyboard:") ~typ:(bool @-> returning void) x +let updatesGuideDuringRotation self = msg_send ~self ~cmd:(selector "updatesGuideDuringRotation") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardCameraOverlayPresentationController.ml b/uikit_extra/UIKeyboardCameraOverlayPresentationController.ml index 0dafb258..a4e78d91 100644 --- a/uikit_extra/UIKeyboardCameraOverlayPresentationController.ml +++ b/uikit_extra/UIKeyboardCameraOverlayPresentationController.ml @@ -5,13 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardCameraOverlayPresentationController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardcameraoverlaypresentationcontroller?language=objc}UIKeyboardCameraOverlayPresentationController} *) -let dismissalTransitionDidEnd x self = msg_send ~self ~cmd:(selector "dismissalTransitionDidEnd:") ~typ:(bool @-> returning (void)) x -let dismissalTransitionWillBegin self = msg_send ~self ~cmd:(selector "dismissalTransitionWillBegin") ~typ:(returning (void)) -let frameOfPresentedViewInContainerView self = msg_send_stret ~self ~cmd:(selector "frameOfPresentedViewInContainerView") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let presentationTransitionDidEnd x self = msg_send ~self ~cmd:(selector "presentationTransitionDidEnd:") ~typ:(bool @-> returning (void)) x -let presentationTransitionWillBegin self = msg_send ~self ~cmd:(selector "presentationTransitionWillBegin") ~typ:(returning (void)) -let updatesGuideDuringRotation self = msg_send ~self ~cmd:(selector "updatesGuideDuringRotation") ~typ:(returning (bool)) -let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning (void)) x withTransitionCoordinator \ No newline at end of file +let self = get_class "UIKeyboardCameraOverlayPresentationController" + +let dismissalTransitionDidEnd x self = msg_send ~self ~cmd:(selector "dismissalTransitionDidEnd:") ~typ:(bool @-> returning void) x +let dismissalTransitionWillBegin self = msg_send ~self ~cmd:(selector "dismissalTransitionWillBegin") ~typ:(returning void) +let frameOfPresentedViewInContainerView self = msg_send ~self ~cmd:(selector "frameOfPresentedViewInContainerView") ~typ:(returning CGRect.t) +let presentationTransitionDidEnd x self = msg_send ~self ~cmd:(selector "presentationTransitionDidEnd:") ~typ:(bool @-> returning void) x +let presentationTransitionWillBegin self = msg_send ~self ~cmd:(selector "presentationTransitionWillBegin") ~typ:(returning void) +let updatesGuideDuringRotation self = msg_send ~self ~cmd:(selector "updatesGuideDuringRotation") ~typ:(returning bool) +let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning void) x withTransitionCoordinator \ No newline at end of file diff --git a/uikit_extra/UIKeyboardCameraPadPresentationController.ml b/uikit_extra/UIKeyboardCameraPadPresentationController.ml index 1c50ce45..ea0b7ad0 100644 --- a/uikit_extra/UIKeyboardCameraPadPresentationController.ml +++ b/uikit_extra/UIKeyboardCameraPadPresentationController.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardCameraPadPresentationController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardcamerapadpresentationcontroller?language=objc}UIKeyboardCameraPadPresentationController} *) -let animateTransition x self = msg_send ~self ~cmd:(selector "animateTransition:") ~typ:(id @-> returning (void)) x -let dimmingViewDelegate self = msg_send ~self ~cmd:(selector "dimmingViewDelegate") ~typ:(returning (id)) -let dismissalTransitionDidEnd x self = msg_send ~self ~cmd:(selector "dismissalTransitionDidEnd:") ~typ:(bool @-> returning (void)) x -let dismissalTransitionWillBegin self = msg_send ~self ~cmd:(selector "dismissalTransitionWillBegin") ~typ:(returning (void)) -let frameOfPresentedViewInContainerView self = msg_send_stret ~self ~cmd:(selector "frameOfPresentedViewInContainerView") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let overrideTextEffectsVisibilityLevelForTransitionView x self = msg_send ~self ~cmd:(selector "overrideTextEffectsVisibilityLevelForTransitionView:") ~typ:(id @-> returning (int)) x -let presentationTransitionDidEnd x self = msg_send ~self ~cmd:(selector "presentationTransitionDidEnd:") ~typ:(bool @-> returning (void)) x -let presentationTransitionWillBegin self = msg_send ~self ~cmd:(selector "presentationTransitionWillBegin") ~typ:(returning (void)) -let setDimmingViewDelegate x self = msg_send ~self ~cmd:(selector "setDimmingViewDelegate:") ~typ:(id @-> returning (void)) x -let transitionDuration x self = msg_send ~self ~cmd:(selector "transitionDuration:") ~typ:(id @-> returning (double)) x -let updatesGuideDuringRotation self = msg_send ~self ~cmd:(selector "updatesGuideDuringRotation") ~typ:(returning (bool)) -let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning (void)) x withTransitionCoordinator \ No newline at end of file +let self = get_class "UIKeyboardCameraPadPresentationController" + +let animateTransition x self = msg_send ~self ~cmd:(selector "animateTransition:") ~typ:(id @-> returning void) x +let dimmingViewDelegate self = msg_send ~self ~cmd:(selector "dimmingViewDelegate") ~typ:(returning id) +let dismissalTransitionDidEnd x self = msg_send ~self ~cmd:(selector "dismissalTransitionDidEnd:") ~typ:(bool @-> returning void) x +let dismissalTransitionWillBegin self = msg_send ~self ~cmd:(selector "dismissalTransitionWillBegin") ~typ:(returning void) +let frameOfPresentedViewInContainerView self = msg_send ~self ~cmd:(selector "frameOfPresentedViewInContainerView") ~typ:(returning CGRect.t) +let overrideTextEffectsVisibilityLevelForTransitionView x self = msg_send ~self ~cmd:(selector "overrideTextEffectsVisibilityLevelForTransitionView:") ~typ:(id @-> returning int) x +let presentationTransitionDidEnd x self = msg_send ~self ~cmd:(selector "presentationTransitionDidEnd:") ~typ:(bool @-> returning void) x +let presentationTransitionWillBegin self = msg_send ~self ~cmd:(selector "presentationTransitionWillBegin") ~typ:(returning void) +let setDimmingViewDelegate x self = msg_send ~self ~cmd:(selector "setDimmingViewDelegate:") ~typ:(id @-> returning void) x +let transitionDuration x self = msg_send ~self ~cmd:(selector "transitionDuration:") ~typ:(id @-> returning double) x +let updatesGuideDuringRotation self = msg_send ~self ~cmd:(selector "updatesGuideDuringRotation") ~typ:(returning bool) +let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning void) x withTransitionCoordinator \ No newline at end of file diff --git a/uikit_extra/UIKeyboardCameraRemoteViewController.ml b/uikit_extra/UIKeyboardCameraRemoteViewController.ml index ede2c033..efe04a8c 100644 --- a/uikit_extra/UIKeyboardCameraRemoteViewController.ml +++ b/uikit_extra/UIKeyboardCameraRemoteViewController.ml @@ -5,16 +5,15 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardCameraRemoteViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardcameraremoteviewcontroller?language=objc}UIKeyboardCameraRemoteViewController} *) -module C = struct - let exportedInterface self = msg_send ~self ~cmd:(selector "exportedInterface") ~typ:(returning (id)) - let serviceViewControllerInterface self = msg_send ~self ~cmd:(selector "serviceViewControllerInterface") ~typ:(returning (id)) -end +let self = get_class "UIKeyboardCameraRemoteViewController" -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let keyboardCameraDidAccept self = msg_send ~self ~cmd:(selector "keyboardCameraDidAccept") ~typ:(returning (void)) -let keyboardCameraDidCancel self = msg_send ~self ~cmd:(selector "keyboardCameraDidCancel") ~typ:(returning (void)) -let keyboardCameraDidUpdateString x self = msg_send ~self ~cmd:(selector "keyboardCameraDidUpdateString:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let keyboardCameraDidAccept self = msg_send ~self ~cmd:(selector "keyboardCameraDidAccept") ~typ:(returning void) +let keyboardCameraDidCancel self = msg_send ~self ~cmd:(selector "keyboardCameraDidCancel") ~typ:(returning void) +let keyboardCameraDidUpdateString x self = msg_send ~self ~cmd:(selector "keyboardCameraDidUpdateString:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKeyboardCameraRemoteViewControllerClass.ml b/uikit_extra/UIKeyboardCameraRemoteViewControllerClass.ml new file mode 100644 index 00000000..41495d36 --- /dev/null +++ b/uikit_extra/UIKeyboardCameraRemoteViewControllerClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardcameraremoteviewcontroller?language=objc}UIKeyboardCameraRemoteViewController} *) + +let exportedInterface self = msg_send ~self ~cmd:(selector "exportedInterface") ~typ:(returning id) +let serviceViewControllerInterface self = msg_send ~self ~cmd:(selector "serviceViewControllerInterface") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardCameraSession.ml b/uikit_extra/UIKeyboardCameraSession.ml index 48704d00..6a1ef116 100644 --- a/uikit_extra/UIKeyboardCameraSession.ml +++ b/uikit_extra/UIKeyboardCameraSession.ml @@ -5,27 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardCameraSession" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardcamerasession?language=objc}UIKeyboardCameraSession} *) -module C = struct - let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) - let keyboardCameraContentTypeForResponder x self = msg_send ~self ~cmd:(selector "keyboardCameraContentTypeForResponder:") ~typ:(id @-> returning (id)) x - let shouldShowTextSuggestionForResponder x self = msg_send ~self ~cmd:(selector "shouldShowTextSuggestionForResponder:") ~typ:(id @-> returning (bool)) x - let showForResponder x ~sender self = msg_send ~self ~cmd:(selector "showForResponder:sender:") ~typ:(id @-> id @-> returning (id)) x sender - let updatesGuideDuringRotation self = msg_send ~self ~cmd:(selector "updatesGuideDuringRotation") ~typ:(returning (bool)) -end +let self = get_class "UIKeyboardCameraSession" -let animationControllerForDismissedController x self = msg_send ~self ~cmd:(selector "animationControllerForDismissedController:") ~typ:(id @-> returning (id)) x -let animationControllerForPresentedController x ~presentingController ~sourceController self = msg_send ~self ~cmd:(selector "animationControllerForPresentedController:presentingController:sourceController:") ~typ:(id @-> id @-> id @-> returning (id)) x presentingController sourceController -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let dimmingViewWasTapped x self = msg_send ~self ~cmd:(selector "dimmingViewWasTapped:") ~typ:(id @-> returning (void)) x +let animationControllerForDismissedController x self = msg_send ~self ~cmd:(selector "animationControllerForDismissedController:") ~typ:(id @-> returning id) x +let animationControllerForPresentedController x ~presentingController ~sourceController self = msg_send ~self ~cmd:(selector "animationControllerForPresentedController:presentingController:sourceController:") ~typ:(id @-> id @-> id @-> returning id) x presentingController sourceController +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let dimmingViewWasTapped x self = msg_send ~self ~cmd:(selector "dimmingViewWasTapped:") ~typ:(id @-> returning void) x let dismissedHandler self = msg_send ~self ~cmd:(selector "dismissedHandler") ~typ:(returning (ptr void)) -let keyboardCameraDidAccept self = msg_send ~self ~cmd:(selector "keyboardCameraDidAccept") ~typ:(returning (void)) -let keyboardCameraDidCancel self = msg_send ~self ~cmd:(selector "keyboardCameraDidCancel") ~typ:(returning (void)) -let keyboardCameraDidUpdateString x self = msg_send ~self ~cmd:(selector "keyboardCameraDidUpdateString:") ~typ:(id @-> returning (void)) x -let presentationControllerDidDismiss x self = msg_send ~self ~cmd:(selector "presentationControllerDidDismiss:") ~typ:(id @-> returning (void)) x -let presentationControllerForPresentedViewController x ~presentingViewController ~sourceViewController self = msg_send ~self ~cmd:(selector "presentationControllerForPresentedViewController:presentingViewController:sourceViewController:") ~typ:(id @-> id @-> id @-> returning (id)) x presentingViewController sourceViewController -let responder self = msg_send ~self ~cmd:(selector "responder") ~typ:(returning (id)) -let sessionAnalytics self = msg_send ~self ~cmd:(selector "sessionAnalytics") ~typ:(returning (id)) -let setDismissedHandler x self = msg_send ~self ~cmd:(selector "setDismissedHandler:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file +let keyboardCameraDidAccept self = msg_send ~self ~cmd:(selector "keyboardCameraDidAccept") ~typ:(returning void) +let keyboardCameraDidCancel self = msg_send ~self ~cmd:(selector "keyboardCameraDidCancel") ~typ:(returning void) +let keyboardCameraDidUpdateString x self = msg_send ~self ~cmd:(selector "keyboardCameraDidUpdateString:") ~typ:(id @-> returning void) x +let presentationControllerDidDismiss x self = msg_send ~self ~cmd:(selector "presentationControllerDidDismiss:") ~typ:(id @-> returning void) x +let presentationControllerForPresentedViewController x ~presentingViewController ~sourceViewController self = msg_send ~self ~cmd:(selector "presentationControllerForPresentedViewController:presentingViewController:sourceViewController:") ~typ:(id @-> id @-> id @-> returning id) x presentingViewController sourceViewController +let responder self = msg_send ~self ~cmd:(selector "responder") ~typ:(returning id) +let sessionAnalytics self = msg_send ~self ~cmd:(selector "sessionAnalytics") ~typ:(returning id) +let setDismissedHandler x self = msg_send ~self ~cmd:(selector "setDismissedHandler:") ~typ:((ptr void) @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKeyboardCameraSessionClass.ml b/uikit_extra/UIKeyboardCameraSessionClass.ml new file mode 100644 index 00000000..60f08574 --- /dev/null +++ b/uikit_extra/UIKeyboardCameraSessionClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardcamerasession?language=objc}UIKeyboardCameraSession} *) + +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let keyboardCameraContentTypeForResponder x self = msg_send ~self ~cmd:(selector "keyboardCameraContentTypeForResponder:") ~typ:(id @-> returning id) x +let shouldShowTextSuggestionForResponder x self = msg_send ~self ~cmd:(selector "shouldShowTextSuggestionForResponder:") ~typ:(id @-> returning bool) x +let showForResponder x ~sender self = msg_send ~self ~cmd:(selector "showForResponder:sender:") ~typ:(id @-> id @-> returning id) x sender +let updatesGuideDuringRotation self = msg_send ~self ~cmd:(selector "updatesGuideDuringRotation") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardCameraViewController.ml b/uikit_extra/UIKeyboardCameraViewController.ml index bf94a0e3..e4985d03 100644 --- a/uikit_extra/UIKeyboardCameraViewController.ml +++ b/uikit_extra/UIKeyboardCameraViewController.ml @@ -5,29 +5,26 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardCameraViewController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardcameraviewcontroller?language=objc}UIKeyboardCameraViewController} *) -module C = struct - let isCameraRestricted self = msg_send ~self ~cmd:(selector "isCameraRestricted") ~typ:(returning (bool)) - let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) - let isLiveTextEnabled self = msg_send ~self ~cmd:(selector "isLiveTextEnabled") ~typ:(returning (bool)) - let isSupportedByDevice self = msg_send ~self ~cmd:(selector "isSupportedByDevice") ~typ:(returning (bool)) -end +let self = get_class "UIKeyboardCameraViewController" -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let extension self = msg_send ~self ~cmd:(selector "extension") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let keyboardCameraDidAccept self = msg_send ~self ~cmd:(selector "keyboardCameraDidAccept") ~typ:(returning (void)) -let keyboardCameraDidCancel self = msg_send ~self ~cmd:(selector "keyboardCameraDidCancel") ~typ:(returning (void)) -let keyboardCameraDidUpdateString x self = msg_send ~self ~cmd:(selector "keyboardCameraDidUpdateString:") ~typ:(id @-> returning (void)) x -let prepareWithCompletion x self = msg_send ~self ~cmd:(selector "prepareWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let remoteViewController self = msg_send ~self ~cmd:(selector "remoteViewController") ~typ:(returning (id)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setExtension x self = msg_send ~self ~cmd:(selector "setExtension:") ~typ:(id @-> returning (void)) x -let setRemoteViewController x self = msg_send ~self ~cmd:(selector "setRemoteViewController:") ~typ:(id @-> returning (void)) x -let setTextContentType x self = msg_send ~self ~cmd:(selector "setTextContentType:") ~typ:(id @-> returning (void)) x -let textContentType self = msg_send ~self ~cmd:(selector "textContentType") ~typ:(returning (id)) -let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning (void)) x -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) \ No newline at end of file +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let extension self = msg_send ~self ~cmd:(selector "extension") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x +let keyboardCameraDidAccept self = msg_send ~self ~cmd:(selector "keyboardCameraDidAccept") ~typ:(returning void) +let keyboardCameraDidCancel self = msg_send ~self ~cmd:(selector "keyboardCameraDidCancel") ~typ:(returning void) +let keyboardCameraDidUpdateString x self = msg_send ~self ~cmd:(selector "keyboardCameraDidUpdateString:") ~typ:(id @-> returning void) x +let prepareWithCompletion x self = msg_send ~self ~cmd:(selector "prepareWithCompletion:") ~typ:((ptr void) @-> returning void) x +let remoteViewController self = msg_send ~self ~cmd:(selector "remoteViewController") ~typ:(returning id) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setExtension x self = msg_send ~self ~cmd:(selector "setExtension:") ~typ:(id @-> returning void) x +let setRemoteViewController x self = msg_send ~self ~cmd:(selector "setRemoteViewController:") ~typ:(id @-> returning void) x +let setTextContentType x self = msg_send ~self ~cmd:(selector "setTextContentType:") ~typ:(id @-> returning void) x +let textContentType self = msg_send ~self ~cmd:(selector "textContentType") ~typ:(returning id) +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardCameraViewControllerClass.ml b/uikit_extra/UIKeyboardCameraViewControllerClass.ml new file mode 100644 index 00000000..9f89c505 --- /dev/null +++ b/uikit_extra/UIKeyboardCameraViewControllerClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardcameraviewcontroller?language=objc}UIKeyboardCameraViewController} *) + +let isCameraRestricted self = msg_send ~self ~cmd:(selector "isCameraRestricted") ~typ:(returning bool) +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let isLiveTextEnabled self = msg_send ~self ~cmd:(selector "isLiveTextEnabled") ~typ:(returning bool) +let isSupportedByDevice self = msg_send ~self ~cmd:(selector "isSupportedByDevice") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardCandidateInlineFloatingView.ml b/uikit_extra/UIKeyboardCandidateInlineFloatingView.ml new file mode 100644 index 00000000..5708f2b3 --- /dev/null +++ b/uikit_extra/UIKeyboardCandidateInlineFloatingView.ml @@ -0,0 +1,48 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardcandidateinlinefloatingview?language=objc}UIKeyboardCandidateInlineFloatingView} *) + +let self = get_class "UIKeyboardCandidateInlineFloatingView" + +let adjustFrameForInlineText x ~inlineRect ~maxX self = msg_send ~self ~cmd:(selector "adjustFrameForInlineText:inlineRect:maxX:") ~typ:(id @-> CGRect.t @-> double @-> returning void) x inlineRect maxX +let adjustMode self = msg_send ~self ~cmd:(selector "adjustMode") ~typ:(returning int) +let adjustedFrameFromDesiredFrame x ~textHeight self = msg_send ~self ~cmd:(selector "adjustedFrameFromDesiredFrame:textHeight:") ~typ:(CGRect.t @-> double @-> returning CGRect.t) x textHeight +let adjustedFrameFromDesiredFrame' x ~textWidth self = msg_send ~self ~cmd:(selector "adjustedFrameFromDesiredFrame:textWidth:") ~typ:(CGRect.t @-> double @-> returning CGRect.t) x textWidth +let adjustedInlineRectFromInlineText x ~inlineRect self = msg_send ~self ~cmd:(selector "adjustedInlineRectFromInlineText:inlineRect:") ~typ:(id @-> CGRect.t @-> returning CGRect.t) x inlineRect +let cellPadding self = msg_send ~self ~cmd:(selector "cellPadding") ~typ:(returning UIEdgeInsets.t) +let extendedStateAdditionalHeight self = msg_send ~self ~cmd:(selector "extendedStateAdditionalHeight") ~typ:(returning double) +let extraInsets self = msg_send ~self ~cmd:(selector "extraInsets") ~typ:(returning UIEdgeInsets.t) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let inlineRect self = msg_send ~self ~cmd:(selector "inlineRect") ~typ:(returning CGRect.t) +let inlineRectIsVertical self = msg_send ~self ~cmd:(selector "inlineRectIsVertical") ~typ:(returning bool) +let inlineText self = msg_send ~self ~cmd:(selector "inlineText") ~typ:(returning id) +let isAcceptableFrame x ~afterScrollBy self = msg_send ~self ~cmd:(selector "isAcceptableFrame:afterScrollBy:") ~typ:(CGRect.t @-> double @-> returning bool) x afterScrollBy +let isReducedWidth self = msg_send ~self ~cmd:(selector "isReducedWidth") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let maxX self = msg_send ~self ~cmd:(selector "maxX") ~typ:(returning double) +let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let position self = msg_send ~self ~cmd:(selector "position") ~typ:(returning int) +let preferredSize self = msg_send ~self ~cmd:(selector "preferredSize") ~typ:(returning CGSize.t) +let previousCollapsedFrame self = msg_send ~self ~cmd:(selector "previousCollapsedFrame") ~typ:(returning CGRect.t) +let setAdjustMode x self = msg_send ~self ~cmd:(selector "setAdjustMode:") ~typ:(int @-> returning void) x +let setCellPadding x self = msg_send ~self ~cmd:(selector "setCellPadding:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setExtendedStateAdditionalHeight x self = msg_send ~self ~cmd:(selector "setExtendedStateAdditionalHeight:") ~typ:(double @-> returning void) x +let setExtraInsets x self = msg_send ~self ~cmd:(selector "setExtraInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setInlineRect x self = msg_send ~self ~cmd:(selector "setInlineRect:") ~typ:(CGRect.t @-> returning void) x +let setInlineRectIsVertical x self = msg_send ~self ~cmd:(selector "setInlineRectIsVertical:") ~typ:(bool @-> returning void) x +let setInlineText x self = msg_send ~self ~cmd:(selector "setInlineText:") ~typ:(id @-> returning void) x +let setInlineText' x ~inlineRect ~maxX ~layout self = msg_send ~self ~cmd:(selector "setInlineText:inlineRect:maxX:layout:") ~typ:(id @-> CGRect.t @-> double @-> bool @-> returning void) x inlineRect maxX layout +let setMaxX x self = msg_send ~self ~cmd:(selector "setMaxX:") ~typ:(double @-> returning void) x +let setPosition x self = msg_send ~self ~cmd:(selector "setPosition:") ~typ:(int @-> returning void) x +let setPreferredSize x self = msg_send ~self ~cmd:(selector "setPreferredSize:") ~typ:(CGSize.t @-> returning void) x +let setPreviousCollapsedFrame x self = msg_send ~self ~cmd:(selector "setPreviousCollapsedFrame:") ~typ:(CGRect.t @-> returning void) x +let shouldExtendUpwards self = msg_send ~self ~cmd:(selector "shouldExtendUpwards") ~typ:(returning bool) +let traitCollection self = msg_send ~self ~cmd:(selector "traitCollection") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardCandidatePocketShadow.ml b/uikit_extra/UIKeyboardCandidatePocketShadow.ml new file mode 100644 index 00000000..6972e247 --- /dev/null +++ b/uikit_extra/UIKeyboardCandidatePocketShadow.ml @@ -0,0 +1,23 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardcandidatepocketshadow?language=objc}UIKeyboardCandidatePocketShadow} *) + +let self = get_class "UIKeyboardCandidatePocketShadow" + +let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning void) x +let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x +let drawsShadow self = msg_send ~self ~cmd:(selector "drawsShadow") ~typ:(returning bool) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let setDrawsShadow x self = msg_send ~self ~cmd:(selector "setDrawsShadow:") ~typ:(bool @-> returning void) x +let setShadowFadesToBottom x self = msg_send ~self ~cmd:(selector "setShadowFadesToBottom:") ~typ:(bool @-> returning void) x +let setShowsInDarkBackground x self = msg_send ~self ~cmd:(selector "setShowsInDarkBackground:") ~typ:(bool @-> returning void) x +let shadowFadesToBottom self = msg_send ~self ~cmd:(selector "shadowFadesToBottom") ~typ:(returning bool) +let showsInDarkBackground self = msg_send ~self ~cmd:(selector "showsInDarkBackground") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardCandidatePocketShadowClass.ml b/uikit_extra/UIKeyboardCandidatePocketShadowClass.ml new file mode 100644 index 00000000..73a57dc2 --- /dev/null +++ b/uikit_extra/UIKeyboardCandidatePocketShadowClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardcandidatepocketshadow?language=objc}UIKeyboardCandidatePocketShadow} *) + +let leftShadowImage self = msg_send ~self ~cmd:(selector "leftShadowImage") ~typ:(returning id) +let widthWithShadow x self = msg_send ~self ~cmd:(selector "widthWithShadow:") ~typ:(bool @-> returning double) x \ No newline at end of file diff --git a/uikit_extra/UIKeyboardCandidatePocketShadowLayoutAttributes.ml b/uikit_extra/UIKeyboardCandidatePocketShadowLayoutAttributes.ml new file mode 100644 index 00000000..901d44ae --- /dev/null +++ b/uikit_extra/UIKeyboardCandidatePocketShadowLayoutAttributes.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardcandidatepocketshadowlayoutattributes?language=objc}UIKeyboardCandidatePocketShadowLayoutAttributes} *) + +let self = get_class "UIKeyboardCandidatePocketShadowLayoutAttributes" + +let drawsShadow self = msg_send ~self ~cmd:(selector "drawsShadow") ~typ:(returning bool) +let setDrawsShadow x self = msg_send ~self ~cmd:(selector "setDrawsShadow:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKeyboardCandidateViewImageRenderer.ml b/uikit_extra/UIKeyboardCandidateViewImageRenderer.ml new file mode 100644 index 00000000..a1c4882b --- /dev/null +++ b/uikit_extra/UIKeyboardCandidateViewImageRenderer.ml @@ -0,0 +1,25 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardcandidateviewimagerenderer?language=objc}UIKeyboardCandidateViewImageRenderer} *) + +let self = get_class "UIKeyboardCandidateViewImageRenderer" + +let drawGradientImage x ~startPoint ~endPoint ~applyScale self = msg_send ~self ~cmd:(selector "drawGradientImage:startPoint:endPoint:applyScale:") ~typ:(CGRect.t @-> CGPoint.t @-> CGPoint.t @-> bool @-> returning id) x startPoint endPoint applyScale +let edgeMaskImageForRightSide x self = msg_send ~self ~cmd:(selector "edgeMaskImageForRightSide:") ~typ:(bool @-> returning id) x +let extensionMaskImage self = msg_send ~self ~cmd:(selector "extensionMaskImage") ~typ:(returning id) +let handwritingCellBackgroundImageForDarkKeyboard x ~highlighted self = msg_send ~self ~cmd:(selector "handwritingCellBackgroundImageForDarkKeyboard:highlighted:") ~typ:(bool @-> bool @-> returning id) x highlighted +let highlightedBarCellBackgroundImageWithColor x ~insets self = msg_send ~self ~cmd:(selector "highlightedBarCellBackgroundImageWithColor:insets:") ~typ:(id @-> UIEdgeInsets.t @-> returning id) x insets +let imageCache self = msg_send ~self ~cmd:(selector "imageCache") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let pocketShadowImageForDarkKeyboard x ~fadesToBottom ~drawShadow ~topPadding ~bottomPadding ~height self = msg_send ~self ~cmd:(selector "pocketShadowImageForDarkKeyboard:fadesToBottom:drawShadow:topPadding:bottomPadding:height:") ~typ:(bool @-> bool @-> bool @-> double @-> double @-> double @-> returning id) x fadesToBottom drawShadow topPadding bottomPadding height +let setImageCache x self = msg_send ~self ~cmd:(selector "setImageCache:") ~typ:(id @-> returning void) x +let setViewForTraitCollection x self = msg_send ~self ~cmd:(selector "setViewForTraitCollection:") ~typ:(id @-> returning void) x +let viewForTraitCollection self = msg_send ~self ~cmd:(selector "viewForTraitCollection") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardCandidateViewImageRendererClass.ml b/uikit_extra/UIKeyboardCandidateViewImageRendererClass.ml new file mode 100644 index 00000000..3e4f2d08 --- /dev/null +++ b/uikit_extra/UIKeyboardCandidateViewImageRendererClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardcandidateviewimagerenderer?language=objc}UIKeyboardCandidateViewImageRenderer} *) + +let sharedImageRenderer self = msg_send ~self ~cmd:(selector "sharedImageRenderer") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmoji.ml b/uikit_extra/UIKeyboardEmoji.ml index 40d38a37..57bf9894 100644 --- a/uikit_extra/UIKeyboardEmoji.ml +++ b/uikit_extra/UIKeyboardEmoji.ml @@ -5,18 +5,17 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmoji" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemoji?language=objc}UIKeyboardEmoji} *) -module C = struct - let emojiWithString x ~withVariantMask self = msg_send ~self ~cmd:(selector "emojiWithString:withVariantMask:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int withVariantMask) - let shouldHighlightEmoji x self = msg_send ~self ~cmd:(selector "shouldHighlightEmoji:") ~typ:(id @-> returning (bool)) x -end +let self = get_class "UIKeyboardEmoji" -let emojiString self = msg_send ~self ~cmd:(selector "emojiString") ~typ:(returning (id)) -let initWithString x ~withVariantMask self = msg_send ~self ~cmd:(selector "initWithString:withVariantMask:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int withVariantMask) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let key self = msg_send ~self ~cmd:(selector "key") ~typ:(returning (id)) -let setEmojiString x self = msg_send ~self ~cmd:(selector "setEmojiString:") ~typ:(id @-> returning (void)) x -let setVariantMask x self = msg_send ~self ~cmd:(selector "setVariantMask:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let variantMask self = msg_send ~self ~cmd:(selector "variantMask") ~typ:(returning (ullong)) \ No newline at end of file +let emojiString self = msg_send ~self ~cmd:(selector "emojiString") ~typ:(returning id) +let initWithString x ~withVariantMask self = msg_send ~self ~cmd:(selector "initWithString:withVariantMask:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int withVariantMask) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let key self = msg_send ~self ~cmd:(selector "key") ~typ:(returning id) +let setEmojiString x self = msg_send ~self ~cmd:(selector "setEmojiString:") ~typ:(id @-> returning void) x +let setVariantMask x self = msg_send ~self ~cmd:(selector "setVariantMask:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let variantMask self = msg_send ~self ~cmd:(selector "variantMask") ~typ:(returning ullong) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiCategory.ml b/uikit_extra/UIKeyboardEmojiCategory.ml index 33386b17..dcd1ea72 100644 --- a/uikit_extra/UIKeyboardEmojiCategory.ml +++ b/uikit_extra/UIKeyboardEmojiCategory.ml @@ -5,37 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmojiCategory" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojicategory?language=objc}UIKeyboardEmojiCategory} *) -module C = struct - let allowedCategoryIndexes self = msg_send ~self ~cmd:(selector "allowedCategoryIndexes") ~typ:(returning (id)) - let categories self = msg_send ~self ~cmd:(selector "categories") ~typ:(returning (id)) - let categoriesByType self = msg_send ~self ~cmd:(selector "categoriesByType") ~typ:(returning (id)) - let categoryForType x self = msg_send ~self ~cmd:(selector "categoryForType:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let categoryIndexForCategoryType x self = msg_send ~self ~cmd:(selector "categoryIndexForCategoryType:") ~typ:(llong @-> returning (ullong)) (LLong.of_int x) - let categoryTypeForCategoryIndex x self = msg_send ~self ~cmd:(selector "categoryTypeForCategoryIndex:") ~typ:(ullong @-> returning (llong)) (ULLong.of_int x) - let displayName x self = msg_send ~self ~cmd:(selector "displayName:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let emojiCategoryStringForCategoryType x self = msg_send ~self ~cmd:(selector "emojiCategoryStringForCategoryType:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let emojiCategoryTypeForCategoryString x self = msg_send ~self ~cmd:(selector "emojiCategoryTypeForCategoryString:") ~typ:(id @-> returning (llong)) x - let emojiRecentsFromPreferences self = msg_send ~self ~cmd:(selector "emojiRecentsFromPreferences") ~typ:(returning (id)) - let enabledCategoryIndexes self = msg_send ~self ~cmd:(selector "enabledCategoryIndexes") ~typ:(returning (id)) - let fallbackDisplayName x self = msg_send ~self ~cmd:(selector "fallbackDisplayName:") ~typ:(llong @-> returning (id)) (LLong.of_int x) - let hasVariantsForEmoji x self = msg_send ~self ~cmd:(selector "hasVariantsForEmoji:") ~typ:(id @-> returning (ullong)) x - let isRTLMode self = msg_send ~self ~cmd:(selector "isRTLMode") ~typ:(returning (bool)) - let loadPrecomputedEmojiFlagCategory self = msg_send ~self ~cmd:(selector "loadPrecomputedEmojiFlagCategory") ~typ:(returning (id)) - let localizedStringForKey x self = msg_send ~self ~cmd:(selector "localizedStringForKey:") ~typ:(id @-> returning (id)) x - let numberOfCategories self = msg_send ~self ~cmd:(selector "numberOfCategories") ~typ:(returning (llong)) - let professionSkinToneEmojiBaseKey x self = msg_send ~self ~cmd:(selector "professionSkinToneEmojiBaseKey:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIKeyboardEmojiCategory" -let categoryType self = msg_send ~self ~cmd:(selector "categoryType") ~typ:(returning (llong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let displaySymbol self = msg_send ~self ~cmd:(selector "displaySymbol") ~typ:(returning (id)) -let emoji self = msg_send ~self ~cmd:(selector "emoji") ~typ:(returning (id)) -let lastVisibleFirstEmojiIndex self = msg_send ~self ~cmd:(selector "lastVisibleFirstEmojiIndex") ~typ:(returning (llong)) -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let releaseCategories self = msg_send ~self ~cmd:(selector "releaseCategories") ~typ:(returning (void)) -let setCategoryType x self = msg_send ~self ~cmd:(selector "setCategoryType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setEmoji x self = msg_send ~self ~cmd:(selector "setEmoji:") ~typ:(id @-> returning (void)) x -let setLastVisibleFirstEmojiIndex x self = msg_send ~self ~cmd:(selector "setLastVisibleFirstEmojiIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file +let categoryType self = msg_send ~self ~cmd:(selector "categoryType") ~typ:(returning llong) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let displaySymbol self = msg_send ~self ~cmd:(selector "displaySymbol") ~typ:(returning id) +let emoji self = msg_send ~self ~cmd:(selector "emoji") ~typ:(returning id) +let lastVisibleFirstEmojiIndex self = msg_send ~self ~cmd:(selector "lastVisibleFirstEmojiIndex") ~typ:(returning llong) +let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) +let releaseCategories self = msg_send ~self ~cmd:(selector "releaseCategories") ~typ:(returning void) +let setCategoryType x self = msg_send ~self ~cmd:(selector "setCategoryType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setEmoji x self = msg_send ~self ~cmd:(selector "setEmoji:") ~typ:(id @-> returning void) x +let setLastVisibleFirstEmojiIndex x self = msg_send ~self ~cmd:(selector "setLastVisibleFirstEmojiIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiCategoryBar.ml b/uikit_extra/UIKeyboardEmojiCategoryBar.ml index 4ce7ff78..9d9cef77 100644 --- a/uikit_extra/UIKeyboardEmojiCategoryBar.ml +++ b/uikit_extra/UIKeyboardEmojiCategoryBar.ml @@ -5,36 +5,36 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmojiCategoryBar" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojicategorybar?language=objc}UIKeyboardEmojiCategoryBar} *) -module C = struct - let wantsScreenTraits self = msg_send ~self ~cmd:(selector "wantsScreenTraits") ~typ:(returning (bool)) -end +let self = get_class "UIKeyboardEmojiCategoryBar" -let animateScrubberToRect x self = msg_send ~self ~cmd:(selector "animateScrubberToRect:") ~typ:(CGRect.t @-> returning (void)) x -let categorySelectedCircleRect x self = msg_send_stret ~self ~cmd:(selector "categorySelectedCircleRect:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let dimKeys x self = msg_send ~self ~cmd:(selector "dimKeys:") ~typ:(id @-> returning (void)) x -let emojiGraphicsTraits self = msg_send ~self ~cmd:(selector "emojiGraphicsTraits") ~typ:(returning (id)) -let flippedIndexForIndex x self = msg_send ~self ~cmd:(selector "flippedIndexForIndex:") ~typ:(ullong @-> returning (ullong)) (ULLong.of_int x) -let frameForDivider x self = msg_send_stret ~self ~cmd:(selector "frameForDivider:") ~typ:(int @-> returning (CGRect.t)) ~return_type:CGRect.t x -let hitTestResponder self = msg_send ~self ~cmd:(selector "hitTestResponder") ~typ:(returning (id)) -let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning (id)) x keyplane key -let initWithFrame' x ~keyplane ~key ~screenTraits self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:screenTraits:") ~typ:(CGRect.t @-> id @-> id @-> id @-> returning (id)) x keyplane key screenTraits -let prepareForDisplay self = msg_send ~self ~cmd:(selector "prepareForDisplay") ~typ:(returning (void)) -let scrubView self = msg_send ~self ~cmd:(selector "scrubView") ~typ:(returning (id)) -let selectedIndex self = msg_send ~self ~cmd:(selector "selectedIndex") ~typ:(returning (ullong)) -let selectedIndexForTouches x self = msg_send ~self ~cmd:(selector "selectedIndexForTouches:") ~typ:(id @-> returning (ullong)) x -let setEmojiGraphicsTraits x self = msg_send ~self ~cmd:(selector "setEmojiGraphicsTraits:") ~typ:(id @-> returning (void)) x -let setHitTestResponder x self = msg_send ~self ~cmd:(selector "setHitTestResponder:") ~typ:(id @-> returning (void)) x -let setScrubView x self = msg_send ~self ~cmd:(selector "setScrubView:") ~typ:(id @-> returning (void)) x -let setSelectedIndex x self = msg_send ~self ~cmd:(selector "setSelectedIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let updateCategory self = msg_send ~self ~cmd:(selector "updateCategory") ~typ:(returning (void)) -let updateCategoryOnBar x self = msg_send ~self ~cmd:(selector "updateCategoryOnBar:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let updateToCategory x self = msg_send ~self ~cmd:(selector "updateToCategory:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file +let animateScrubberToRect x self = msg_send ~self ~cmd:(selector "animateScrubberToRect:") ~typ:(CGRect.t @-> returning void) x +let categorySelectedCircleRect x self = msg_send ~self ~cmd:(selector "categorySelectedCircleRect:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let dimKeys x self = msg_send ~self ~cmd:(selector "dimKeys:") ~typ:(id @-> returning void) x +let emojiGraphicsTraits self = msg_send ~self ~cmd:(selector "emojiGraphicsTraits") ~typ:(returning id) +let flippedIndexForIndex x self = msg_send ~self ~cmd:(selector "flippedIndexForIndex:") ~typ:(ullong @-> returning ullong) (ULLong.of_int x) +let frameForDivider x self = msg_send ~self ~cmd:(selector "frameForDivider:") ~typ:(int @-> returning CGRect.t) x +let hitTestResponder self = msg_send ~self ~cmd:(selector "hitTestResponder") ~typ:(returning id) +let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning id) x keyplane key +let initWithFrame' x ~keyplane ~key ~screenTraits self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:screenTraits:") ~typ:(CGRect.t @-> id @-> id @-> id @-> returning id) x keyplane key screenTraits +let prepareForDisplay self = msg_send ~self ~cmd:(selector "prepareForDisplay") ~typ:(returning void) +let scrubView self = msg_send ~self ~cmd:(selector "scrubView") ~typ:(returning id) +let selectedIndex self = msg_send ~self ~cmd:(selector "selectedIndex") ~typ:(returning ullong) +let selectedIndexForTouches x self = msg_send ~self ~cmd:(selector "selectedIndexForTouches:") ~typ:(id @-> returning ullong) x +let setEmojiGraphicsTraits x self = msg_send ~self ~cmd:(selector "setEmojiGraphicsTraits:") ~typ:(id @-> returning void) x +let setHitTestResponder x self = msg_send ~self ~cmd:(selector "setHitTestResponder:") ~typ:(id @-> returning void) x +let setScrubView x self = msg_send ~self ~cmd:(selector "setScrubView:") ~typ:(id @-> returning void) x +let setSelectedIndex x self = msg_send ~self ~cmd:(selector "setSelectedIndex:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let updateCategory self = msg_send ~self ~cmd:(selector "updateCategory") ~typ:(returning void) +let updateCategoryOnBar x self = msg_send ~self ~cmd:(selector "updateCategoryOnBar:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let updateToCategory x self = msg_send ~self ~cmd:(selector "updateToCategory:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiCategoryBarClass.ml b/uikit_extra/UIKeyboardEmojiCategoryBarClass.ml new file mode 100644 index 00000000..efd9183c --- /dev/null +++ b/uikit_extra/UIKeyboardEmojiCategoryBarClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojicategorybar?language=objc}UIKeyboardEmojiCategoryBar} *) + +let wantsScreenTraits self = msg_send ~self ~cmd:(selector "wantsScreenTraits") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiCategoryClass.ml b/uikit_extra/UIKeyboardEmojiCategoryClass.ml new file mode 100644 index 00000000..650c8501 --- /dev/null +++ b/uikit_extra/UIKeyboardEmojiCategoryClass.ml @@ -0,0 +1,30 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojicategory?language=objc}UIKeyboardEmojiCategory} *) + +let allowedCategoryIndexes self = msg_send ~self ~cmd:(selector "allowedCategoryIndexes") ~typ:(returning id) +let categories self = msg_send ~self ~cmd:(selector "categories") ~typ:(returning id) +let categoriesByType self = msg_send ~self ~cmd:(selector "categoriesByType") ~typ:(returning id) +let categoryForType x self = msg_send ~self ~cmd:(selector "categoryForType:") ~typ:(llong @-> returning id) (LLong.of_int x) +let categoryIndexForCategoryType x self = msg_send ~self ~cmd:(selector "categoryIndexForCategoryType:") ~typ:(llong @-> returning ullong) (LLong.of_int x) +let categoryTypeForCategoryIndex x self = msg_send ~self ~cmd:(selector "categoryTypeForCategoryIndex:") ~typ:(ullong @-> returning llong) (ULLong.of_int x) +let displayName x self = msg_send ~self ~cmd:(selector "displayName:") ~typ:(llong @-> returning id) (LLong.of_int x) +let emojiCategoryStringForCategoryType x self = msg_send ~self ~cmd:(selector "emojiCategoryStringForCategoryType:") ~typ:(llong @-> returning id) (LLong.of_int x) +let emojiCategoryTypeForCategoryString x self = msg_send ~self ~cmd:(selector "emojiCategoryTypeForCategoryString:") ~typ:(id @-> returning llong) x +let emojiRecentsFromPreferences self = msg_send ~self ~cmd:(selector "emojiRecentsFromPreferences") ~typ:(returning id) +let enabledCategoryIndexes self = msg_send ~self ~cmd:(selector "enabledCategoryIndexes") ~typ:(returning id) +let fallbackDisplayName x self = msg_send ~self ~cmd:(selector "fallbackDisplayName:") ~typ:(llong @-> returning id) (LLong.of_int x) +let hasVariantsForEmoji x self = msg_send ~self ~cmd:(selector "hasVariantsForEmoji:") ~typ:(id @-> returning ullong) x +let isRTLMode self = msg_send ~self ~cmd:(selector "isRTLMode") ~typ:(returning bool) +let loadPrecomputedEmojiFlagCategory self = msg_send ~self ~cmd:(selector "loadPrecomputedEmojiFlagCategory") ~typ:(returning id) +let localizedStringForKey x self = msg_send ~self ~cmd:(selector "localizedStringForKey:") ~typ:(id @-> returning id) x +let numberOfCategories self = msg_send ~self ~cmd:(selector "numberOfCategories") ~typ:(returning llong) +let professionSkinToneEmojiBaseKey x self = msg_send ~self ~cmd:(selector "professionSkinToneEmojiBaseKey:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiClass.ml b/uikit_extra/UIKeyboardEmojiClass.ml new file mode 100644 index 00000000..1d5df23c --- /dev/null +++ b/uikit_extra/UIKeyboardEmojiClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemoji?language=objc}UIKeyboardEmoji} *) + +let emojiWithString x ~withVariantMask self = msg_send ~self ~cmd:(selector "emojiWithString:withVariantMask:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int withVariantMask) +let shouldHighlightEmoji x self = msg_send ~self ~cmd:(selector "shouldHighlightEmoji:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiCollectionInputView.ml b/uikit_extra/UIKeyboardEmojiCollectionInputView.ml index a0b5d35b..d9f7f949 100644 --- a/uikit_extra/UIKeyboardEmojiCollectionInputView.ml +++ b/uikit_extra/UIKeyboardEmojiCollectionInputView.ml @@ -5,95 +5,95 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmojiCollectionInputView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojicollectioninputview?language=objc}UIKeyboardEmojiCollectionInputView} *) -module C = struct - let shouldHighlightEmoji x self = msg_send ~self ~cmd:(selector "shouldHighlightEmoji:") ~typ:(id @-> returning (bool)) x - let wantsScreenTraits self = msg_send ~self ~cmd:(selector "wantsScreenTraits") ~typ:(returning (bool)) -end +let self = get_class "UIKeyboardEmojiCollectionInputView" -let baseStringIsCoupleEmoji x self = msg_send ~self ~cmd:(selector "baseStringIsCoupleEmoji:") ~typ:(id @-> returning (bool)) x -let category self = msg_send ~self ~cmd:(selector "category") ~typ:(returning (id)) -let cellShouldScrollWhenSelectedAtIndexPath x self = msg_send ~self ~cmd:(selector "cellShouldScrollWhenSelectedAtIndexPath:") ~typ:(id @-> returning (bool)) x -let collectionView x ~cellForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:cellForItemAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForItemAtIndexPath -let collectionView1 x ~numberOfItemsInSection self = msg_send ~self ~cmd:(selector "collectionView:numberOfItemsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfItemsInSection) -let collectionView2 x ~layout ~minimumInteritemSpacingForSectionAtIndex self = msg_send ~self ~cmd:(selector "collectionView:layout:minimumInteritemSpacingForSectionAtIndex:") ~typ:(id @-> id @-> llong @-> returning (double)) x layout (LLong.of_int minimumInteritemSpacingForSectionAtIndex) -let collectionView3 x ~layout ~minimumLineSpacingForSectionAtIndex self = msg_send ~self ~cmd:(selector "collectionView:layout:minimumLineSpacingForSectionAtIndex:") ~typ:(id @-> id @-> llong @-> returning (double)) x layout (LLong.of_int minimumLineSpacingForSectionAtIndex) -let collectionView4 x ~layout ~sizeForItemAtIndexPath self = msg_send_stret ~self ~cmd:(selector "collectionView:layout:sizeForItemAtIndexPath:") ~typ:(id @-> id @-> id @-> returning (CGSize.t)) ~return_type:CGSize.t x layout sizeForItemAtIndexPath -let collectionView5 x ~viewForSupplementaryElementOfKind ~atIndexPath self = msg_send ~self ~cmd:(selector "collectionView:viewForSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> id @-> returning (id)) x viewForSupplementaryElementOfKind atIndexPath +let baseStringIsCoupleEmoji x self = msg_send ~self ~cmd:(selector "baseStringIsCoupleEmoji:") ~typ:(id @-> returning bool) x +let category self = msg_send ~self ~cmd:(selector "category") ~typ:(returning id) +let cellShouldScrollWhenSelectedAtIndexPath x self = msg_send ~self ~cmd:(selector "cellShouldScrollWhenSelectedAtIndexPath:") ~typ:(id @-> returning bool) x +let collectionView x ~cellForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:cellForItemAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForItemAtIndexPath +let collectionView1 x ~numberOfItemsInSection self = msg_send ~self ~cmd:(selector "collectionView:numberOfItemsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfItemsInSection) +let collectionView2 x ~layout ~insetForSectionAtIndex self = msg_send ~self ~cmd:(selector "collectionView:layout:insetForSectionAtIndex:") ~typ:(id @-> id @-> llong @-> returning UIEdgeInsets.t) x layout (LLong.of_int insetForSectionAtIndex) +let collectionView3 x ~layout ~minimumInteritemSpacingForSectionAtIndex self = msg_send ~self ~cmd:(selector "collectionView:layout:minimumInteritemSpacingForSectionAtIndex:") ~typ:(id @-> id @-> llong @-> returning double) x layout (LLong.of_int minimumInteritemSpacingForSectionAtIndex) +let collectionView4 x ~layout ~minimumLineSpacingForSectionAtIndex self = msg_send ~self ~cmd:(selector "collectionView:layout:minimumLineSpacingForSectionAtIndex:") ~typ:(id @-> id @-> llong @-> returning double) x layout (LLong.of_int minimumLineSpacingForSectionAtIndex) +let collectionView5 x ~layout ~sizeForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:layout:sizeForItemAtIndexPath:") ~typ:(id @-> id @-> id @-> returning CGSize.t) x layout sizeForItemAtIndexPath +let collectionView6 x ~viewForSupplementaryElementOfKind ~atIndexPath self = msg_send ~self ~cmd:(selector "collectionView:viewForSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> id @-> returning id) x viewForSupplementaryElementOfKind atIndexPath let completionBlock self = msg_send ~self ~cmd:(selector "completionBlock") ~typ:(returning (ptr void)) -let currentlyCheckingMemojiPreference self = msg_send ~self ~cmd:(selector "currentlyCheckingMemojiPreference") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didInputSubTree x self = msg_send ~self ~cmd:(selector "didInputSubTree:") ~typ:(id @-> returning (llong)) x -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let dimKeys x self = msg_send ~self ~cmd:(selector "dimKeys:") ~typ:(id @-> returning (void)) x -let emojiBaseFirstCharacterString x self = msg_send ~self ~cmd:(selector "emojiBaseFirstCharacterString:") ~typ:(id @-> returning (id)) x -let emojiBaseString x self = msg_send ~self ~cmd:(selector "emojiBaseString:") ~typ:(id @-> returning (id)) x -let emojiCategoryTypeForSection x self = msg_send ~self ~cmd:(selector "emojiCategoryTypeForSection:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let emojiSearchDidReceiveResults x ~forExactQuery ~autocorrectedQuery self = msg_send ~self ~cmd:(selector "emojiSearchDidReceiveResults:forExactQuery:autocorrectedQuery:") ~typ:(id @-> id @-> id @-> returning (void)) x forExactQuery autocorrectedQuery -let emojiSearchField self = msg_send ~self ~cmd:(selector "emojiSearchField") ~typ:(returning (id)) -let emojiSearchInputViewController self = msg_send ~self ~cmd:(selector "emojiSearchInputViewController") ~typ:(returning (id)) -let emojiSearchTextFieldDidBecomeActive x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldDidBecomeActive:") ~typ:(id @-> returning (void)) x -let emojiSearchTextFieldDidBecomeInactive x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldDidBecomeInactive:") ~typ:(id @-> returning (void)) x -let emojiSearchTextFieldDidReset x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldDidReset:") ~typ:(id @-> returning (void)) x -let emojiSearchTextFieldWillBecomeActive x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldWillBecomeActive:") ~typ:(id @-> returning (void)) x -let emojiSearchTextFieldWillBecomeInactive x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldWillBecomeInactive:") ~typ:(id @-> returning (void)) x -let emojiSearchTextFieldWillClear x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldWillClear:") ~typ:(id @-> returning (void)) x -let firstFullyVisibleHeader self = msg_send ~self ~cmd:(selector "firstFullyVisibleHeader") ~typ:(returning (id)) -let genderEmojiBaseStringNeedVariantSelector x self = msg_send ~self ~cmd:(selector "genderEmojiBaseStringNeedVariantSelector:") ~typ:(id @-> returning (bool)) x -let handleKeyEvent x self = msg_send ~self ~cmd:(selector "handleKeyEvent:") ~typ:(id @-> returning (bool)) x -let handleKeyInputForCollectionViewNavigation x self = msg_send ~self ~cmd:(selector "handleKeyInputForCollectionViewNavigation:") ~typ:(id @-> returning (bool)) x -let handleKeyInputForFamilySelector x self = msg_send ~self ~cmd:(selector "handleKeyInputForFamilySelector:") ~typ:(id @-> returning (bool)) x -let handleKeyInputForVariantSelector x self = msg_send ~self ~cmd:(selector "handleKeyInputForVariantSelector:") ~typ:(id @-> returning (bool)) x -let handleSelectionEvent x self = msg_send ~self ~cmd:(selector "handleSelectionEvent:") ~typ:(id @-> returning (bool)) x -let hasCheckedMemojiPreference self = msg_send ~self ~cmd:(selector "hasCheckedMemojiPreference") ~typ:(returning (bool)) -let hitTestResponder self = msg_send ~self ~cmd:(selector "hitTestResponder") ~typ:(returning (id)) -let indexForPrettyCategoryDisplay x self = msg_send ~self ~cmd:(selector "indexForPrettyCategoryDisplay:") ~typ:(id @-> returning (llong)) x -let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning (id)) x keyplane key -let initWithFrame' x ~keyplane ~key ~screenTraits self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:screenTraits:") ~typ:(CGRect.t @-> id @-> id @-> id @-> returning (id)) x keyplane key screenTraits -let insertSelectedEmoji x ~shouldDismissPopover self = msg_send ~self ~cmd:(selector "insertSelectedEmoji:shouldDismissPopover:") ~typ:(id @-> bool @-> returning (void)) x shouldDismissPopover -let isDraggingInputView self = msg_send ~self ~cmd:(selector "isDraggingInputView") ~typ:(returning (bool)) -let isSearching self = msg_send ~self ~cmd:(selector "isSearching") ~typ:(returning (bool)) -let itemInRect x self = msg_send ~self ~cmd:(selector "itemInRect:") ~typ:(CGRect.t @-> returning (id)) x -let keyCodeForCurrentEnvironmentFromKeyCode x self = msg_send ~self ~cmd:(selector "keyCodeForCurrentEnvironmentFromKeyCode:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let keySupportsVariants x self = msg_send ~self ~cmd:(selector "keySupportsVariants:") ~typ:(id @-> returning (bool)) x -let numberOfSectionsInCollectionView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInCollectionView:") ~typ:(id @-> returning (llong)) x -let preferencesControllerChanged x self = msg_send ~self ~cmd:(selector "preferencesControllerChanged:") ~typ:(id @-> returning (void)) x -let resetSelectionIfNeeded self = msg_send ~self ~cmd:(selector "resetSelectionIfNeeded") ~typ:(returning (void)) -let scrollViewDidEndDecelerating x self = msg_send ~self ~cmd:(selector "scrollViewDidEndDecelerating:") ~typ:(id @-> returning (void)) x -let scrollViewDidScroll x self = msg_send ~self ~cmd:(selector "scrollViewDidScroll:") ~typ:(id @-> returning (void)) x -let scrollViewWillBeginDragging x self = msg_send ~self ~cmd:(selector "scrollViewWillBeginDragging:") ~typ:(id @-> returning (void)) x -let scrollViewWillEndDragging x ~withVelocity ~targetContentOffset self = msg_send ~self ~cmd:(selector "scrollViewWillEndDragging:withVelocity:targetContentOffset:") ~typ:(id @-> CGPoint.t @-> ptr (CGPoint.t) @-> returning (void)) x withVelocity targetContentOffset -let searchResults self = msg_send ~self ~cmd:(selector "searchResults") ~typ:(returning (id)) -let selectedChildSkinToneEmoji x self = msg_send ~self ~cmd:(selector "selectedChildSkinToneEmoji:") ~typ:(id @-> returning (id)) x -let selectedIndexPath self = msg_send ~self ~cmd:(selector "selectedIndexPath") ~typ:(returning (id)) -let setCategory x self = msg_send ~self ~cmd:(selector "setCategory:") ~typ:(id @-> returning (void)) x -let setCompletionBlock x self = msg_send ~self ~cmd:(selector "setCompletionBlock:") ~typ:(ptr void @-> returning (void)) x -let setContentScaleFactor x self = msg_send ~self ~cmd:(selector "setContentScaleFactor:") ~typ:(double @-> returning (void)) x -let setCurrentlyCheckingMemojiPreference x self = msg_send ~self ~cmd:(selector "setCurrentlyCheckingMemojiPreference:") ~typ:(bool @-> returning (void)) x -let setEmojiSearchField x self = msg_send ~self ~cmd:(selector "setEmojiSearchField:") ~typ:(id @-> returning (void)) x -let setEmojiSearchInputViewController x self = msg_send ~self ~cmd:(selector "setEmojiSearchInputViewController:") ~typ:(id @-> returning (void)) x -let setHasCheckedMemojiPreference x self = msg_send ~self ~cmd:(selector "setHasCheckedMemojiPreference:") ~typ:(bool @-> returning (void)) x -let setHitTestResponder x self = msg_send ~self ~cmd:(selector "setHitTestResponder:") ~typ:(id @-> returning (void)) x -let setIsSearching x self = msg_send ~self ~cmd:(selector "setIsSearching:") ~typ:(bool @-> returning (void)) x -let setSearchResults x self = msg_send ~self ~cmd:(selector "setSearchResults:") ~typ:(id @-> returning (void)) x -let setSelectedIndexPath x self = msg_send ~self ~cmd:(selector "setSelectedIndexPath:") ~typ:(id @-> returning (void)) x -let setSupportsMemoji x self = msg_send ~self ~cmd:(selector "setSupportsMemoji:") ~typ:(bool @-> returning (void)) x -let setTappedSkinToneEmoji x self = msg_send ~self ~cmd:(selector "setTappedSkinToneEmoji:") ~typ:(id @-> returning (void)) x -let shouldDismissModalDisplayView x self = msg_send ~self ~cmd:(selector "shouldDismissModalDisplayView:") ~typ:(id @-> returning (void)) x -let showingRecents self = msg_send ~self ~cmd:(selector "showingRecents") ~typ:(returning (bool)) -let skinToneWasUsedForEmoji x self = msg_send ~self ~cmd:(selector "skinToneWasUsedForEmoji:") ~typ:(id @-> returning (bool)) x -let snappedXOffsetForOffset x ~scrubbing self = msg_send ~self ~cmd:(selector "snappedXOffsetForOffset:scrubbing:") ~typ:(double @-> bool @-> returning (double)) x scrubbing -let subTreeHitTest x self = msg_send ~self ~cmd:(selector "subTreeHitTest:") ~typ:(CGPoint.t @-> returning (id)) x -let supportsMemoji self = msg_send ~self ~cmd:(selector "supportsMemoji") ~typ:(returning (bool)) -let tappedSkinToneEmoji self = msg_send ~self ~cmd:(selector "tappedSkinToneEmoji") ~typ:(returning (id)) -let treeForCell x self = msg_send ~self ~cmd:(selector "treeForCell:") ~typ:(id @-> returning (id)) x -let updateHighlightForIndexPath x ~scrollIfNeeded ~animateScroll self = msg_send ~self ~cmd:(selector "updateHighlightForIndexPath:scrollIfNeeded:animateScroll:") ~typ:(id @-> bool @-> bool @-> returning (void)) x scrollIfNeeded animateScroll -let updateLastSeenItemForIndexPath x self = msg_send ~self ~cmd:(selector "updateLastSeenItemForIndexPath:") ~typ:(id @-> returning (void)) x -let updateMemojiPreference self = msg_send ~self ~cmd:(selector "updateMemojiPreference") ~typ:(returning (void)) -let updateOffsetForSearchResults self = msg_send ~self ~cmd:(selector "updateOffsetForSearchResults") ~typ:(returning (void)) -let updatePreferencesForSelectedEmoji x self = msg_send ~self ~cmd:(selector "updatePreferencesForSelectedEmoji:") ~typ:(id @-> returning (void)) x -let updateToCategory x self = msg_send ~self ~cmd:(selector "updateToCategory:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let updateToCategoryWithOffsetPercentage x self = msg_send ~self ~cmd:(selector "updateToCategoryWithOffsetPercentage:") ~typ:(double @-> returning (llong)) x -let willDisplayModalActionView x ~withSubTreeKeyView ~completion self = msg_send ~self ~cmd:(selector "willDisplayModalActionView:withSubTreeKeyView:completion:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x withSubTreeKeyView completion \ No newline at end of file +let currentlyCheckingMemojiPreference self = msg_send ~self ~cmd:(selector "currentlyCheckingMemojiPreference") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didInputSubTree x self = msg_send ~self ~cmd:(selector "didInputSubTree:") ~typ:(id @-> returning llong) x +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let dimKeys x self = msg_send ~self ~cmd:(selector "dimKeys:") ~typ:(id @-> returning void) x +let emojiBaseFirstCharacterString x self = msg_send ~self ~cmd:(selector "emojiBaseFirstCharacterString:") ~typ:(id @-> returning id) x +let emojiBaseString x self = msg_send ~self ~cmd:(selector "emojiBaseString:") ~typ:(id @-> returning id) x +let emojiCategoryTypeForSection x self = msg_send ~self ~cmd:(selector "emojiCategoryTypeForSection:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let emojiSearchDidReceiveResults x ~forExactQuery ~autocorrectedQuery self = msg_send ~self ~cmd:(selector "emojiSearchDidReceiveResults:forExactQuery:autocorrectedQuery:") ~typ:(id @-> id @-> id @-> returning void) x forExactQuery autocorrectedQuery +let emojiSearchField self = msg_send ~self ~cmd:(selector "emojiSearchField") ~typ:(returning id) +let emojiSearchInputViewController self = msg_send ~self ~cmd:(selector "emojiSearchInputViewController") ~typ:(returning id) +let emojiSearchTextFieldDidBecomeActive x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldDidBecomeActive:") ~typ:(id @-> returning void) x +let emojiSearchTextFieldDidBecomeInactive x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldDidBecomeInactive:") ~typ:(id @-> returning void) x +let emojiSearchTextFieldDidReset x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldDidReset:") ~typ:(id @-> returning void) x +let emojiSearchTextFieldWillBecomeActive x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldWillBecomeActive:") ~typ:(id @-> returning void) x +let emojiSearchTextFieldWillBecomeInactive x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldWillBecomeInactive:") ~typ:(id @-> returning void) x +let emojiSearchTextFieldWillClear x self = msg_send ~self ~cmd:(selector "emojiSearchTextFieldWillClear:") ~typ:(id @-> returning void) x +let firstFullyVisibleHeader self = msg_send ~self ~cmd:(selector "firstFullyVisibleHeader") ~typ:(returning id) +let genderEmojiBaseStringNeedVariantSelector x self = msg_send ~self ~cmd:(selector "genderEmojiBaseStringNeedVariantSelector:") ~typ:(id @-> returning bool) x +let handleKeyEvent x self = msg_send ~self ~cmd:(selector "handleKeyEvent:") ~typ:(id @-> returning bool) x +let handleKeyInputForCollectionViewNavigation x self = msg_send ~self ~cmd:(selector "handleKeyInputForCollectionViewNavigation:") ~typ:(id @-> returning bool) x +let handleKeyInputForFamilySelector x self = msg_send ~self ~cmd:(selector "handleKeyInputForFamilySelector:") ~typ:(id @-> returning bool) x +let handleKeyInputForVariantSelector x self = msg_send ~self ~cmd:(selector "handleKeyInputForVariantSelector:") ~typ:(id @-> returning bool) x +let handleSelectionEvent x self = msg_send ~self ~cmd:(selector "handleSelectionEvent:") ~typ:(id @-> returning bool) x +let hasCheckedMemojiPreference self = msg_send ~self ~cmd:(selector "hasCheckedMemojiPreference") ~typ:(returning bool) +let hitTestResponder self = msg_send ~self ~cmd:(selector "hitTestResponder") ~typ:(returning id) +let indexForPrettyCategoryDisplay x self = msg_send ~self ~cmd:(selector "indexForPrettyCategoryDisplay:") ~typ:(id @-> returning llong) x +let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning id) x keyplane key +let initWithFrame' x ~keyplane ~key ~screenTraits self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:screenTraits:") ~typ:(CGRect.t @-> id @-> id @-> id @-> returning id) x keyplane key screenTraits +let insertSelectedEmoji x ~shouldDismissPopover self = msg_send ~self ~cmd:(selector "insertSelectedEmoji:shouldDismissPopover:") ~typ:(id @-> bool @-> returning void) x shouldDismissPopover +let isDraggingInputView self = msg_send ~self ~cmd:(selector "isDraggingInputView") ~typ:(returning bool) +let isSearching self = msg_send ~self ~cmd:(selector "isSearching") ~typ:(returning bool) +let itemInRect x self = msg_send ~self ~cmd:(selector "itemInRect:") ~typ:(CGRect.t @-> returning id) x +let keyCodeForCurrentEnvironmentFromKeyCode x self = msg_send ~self ~cmd:(selector "keyCodeForCurrentEnvironmentFromKeyCode:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let keySupportsVariants x self = msg_send ~self ~cmd:(selector "keySupportsVariants:") ~typ:(id @-> returning bool) x +let numberOfSectionsInCollectionView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInCollectionView:") ~typ:(id @-> returning llong) x +let preferencesControllerChanged x self = msg_send ~self ~cmd:(selector "preferencesControllerChanged:") ~typ:(id @-> returning void) x +let resetSelectionIfNeeded self = msg_send ~self ~cmd:(selector "resetSelectionIfNeeded") ~typ:(returning void) +let scrollViewDidEndDecelerating x self = msg_send ~self ~cmd:(selector "scrollViewDidEndDecelerating:") ~typ:(id @-> returning void) x +let scrollViewDidScroll x self = msg_send ~self ~cmd:(selector "scrollViewDidScroll:") ~typ:(id @-> returning void) x +let scrollViewWillBeginDragging x self = msg_send ~self ~cmd:(selector "scrollViewWillBeginDragging:") ~typ:(id @-> returning void) x +let scrollViewWillEndDragging x ~withVelocity ~targetContentOffset self = msg_send ~self ~cmd:(selector "scrollViewWillEndDragging:withVelocity:targetContentOffset:") ~typ:(id @-> CGPoint.t @-> (ptr CGPoint.t) @-> returning void) x withVelocity targetContentOffset +let searchResults self = msg_send ~self ~cmd:(selector "searchResults") ~typ:(returning id) +let selectedChildSkinToneEmoji x self = msg_send ~self ~cmd:(selector "selectedChildSkinToneEmoji:") ~typ:(id @-> returning id) x +let selectedIndexPath self = msg_send ~self ~cmd:(selector "selectedIndexPath") ~typ:(returning id) +let setCategory x self = msg_send ~self ~cmd:(selector "setCategory:") ~typ:(id @-> returning void) x +let setCompletionBlock x self = msg_send ~self ~cmd:(selector "setCompletionBlock:") ~typ:((ptr void) @-> returning void) x +let setContentScaleFactor x self = msg_send ~self ~cmd:(selector "setContentScaleFactor:") ~typ:(double @-> returning void) x +let setCurrentlyCheckingMemojiPreference x self = msg_send ~self ~cmd:(selector "setCurrentlyCheckingMemojiPreference:") ~typ:(bool @-> returning void) x +let setEmojiSearchField x self = msg_send ~self ~cmd:(selector "setEmojiSearchField:") ~typ:(id @-> returning void) x +let setEmojiSearchInputViewController x self = msg_send ~self ~cmd:(selector "setEmojiSearchInputViewController:") ~typ:(id @-> returning void) x +let setHasCheckedMemojiPreference x self = msg_send ~self ~cmd:(selector "setHasCheckedMemojiPreference:") ~typ:(bool @-> returning void) x +let setHitTestResponder x self = msg_send ~self ~cmd:(selector "setHitTestResponder:") ~typ:(id @-> returning void) x +let setIsSearching x self = msg_send ~self ~cmd:(selector "setIsSearching:") ~typ:(bool @-> returning void) x +let setSearchResults x self = msg_send ~self ~cmd:(selector "setSearchResults:") ~typ:(id @-> returning void) x +let setSelectedIndexPath x self = msg_send ~self ~cmd:(selector "setSelectedIndexPath:") ~typ:(id @-> returning void) x +let setSupportsMemoji x self = msg_send ~self ~cmd:(selector "setSupportsMemoji:") ~typ:(bool @-> returning void) x +let setTappedSkinToneEmoji x self = msg_send ~self ~cmd:(selector "setTappedSkinToneEmoji:") ~typ:(id @-> returning void) x +let shouldDismissModalDisplayView x self = msg_send ~self ~cmd:(selector "shouldDismissModalDisplayView:") ~typ:(id @-> returning void) x +let showingRecents self = msg_send ~self ~cmd:(selector "showingRecents") ~typ:(returning bool) +let skinToneWasUsedForEmoji x self = msg_send ~self ~cmd:(selector "skinToneWasUsedForEmoji:") ~typ:(id @-> returning bool) x +let snappedXOffsetForOffset x ~scrubbing self = msg_send ~self ~cmd:(selector "snappedXOffsetForOffset:scrubbing:") ~typ:(double @-> bool @-> returning double) x scrubbing +let subTreeHitTest x self = msg_send ~self ~cmd:(selector "subTreeHitTest:") ~typ:(CGPoint.t @-> returning id) x +let supportsMemoji self = msg_send ~self ~cmd:(selector "supportsMemoji") ~typ:(returning bool) +let tappedSkinToneEmoji self = msg_send ~self ~cmd:(selector "tappedSkinToneEmoji") ~typ:(returning id) +let treeForCell x self = msg_send ~self ~cmd:(selector "treeForCell:") ~typ:(id @-> returning id) x +let updateHighlightForIndexPath x ~scrollIfNeeded ~animateScroll self = msg_send ~self ~cmd:(selector "updateHighlightForIndexPath:scrollIfNeeded:animateScroll:") ~typ:(id @-> bool @-> bool @-> returning void) x scrollIfNeeded animateScroll +let updateLastSeenItemForIndexPath x self = msg_send ~self ~cmd:(selector "updateLastSeenItemForIndexPath:") ~typ:(id @-> returning void) x +let updateMemojiPreference self = msg_send ~self ~cmd:(selector "updateMemojiPreference") ~typ:(returning void) +let updateOffsetForSearchResults self = msg_send ~self ~cmd:(selector "updateOffsetForSearchResults") ~typ:(returning void) +let updatePreferencesForSelectedEmoji x self = msg_send ~self ~cmd:(selector "updatePreferencesForSelectedEmoji:") ~typ:(id @-> returning void) x +let updateToCategory x self = msg_send ~self ~cmd:(selector "updateToCategory:") ~typ:(llong @-> returning void) (LLong.of_int x) +let updateToCategoryWithOffsetPercentage x self = msg_send ~self ~cmd:(selector "updateToCategoryWithOffsetPercentage:") ~typ:(double @-> returning llong) x +let willDisplayModalActionView x ~withSubTreeKeyView ~completion self = msg_send ~self ~cmd:(selector "willDisplayModalActionView:withSubTreeKeyView:completion:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x withSubTreeKeyView completion \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiCollectionInputViewClass.ml b/uikit_extra/UIKeyboardEmojiCollectionInputViewClass.ml new file mode 100644 index 00000000..5b3934e6 --- /dev/null +++ b/uikit_extra/UIKeyboardEmojiCollectionInputViewClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojicollectioninputview?language=objc}UIKeyboardEmojiCollectionInputView} *) + +let shouldHighlightEmoji x self = msg_send ~self ~cmd:(selector "shouldHighlightEmoji:") ~typ:(id @-> returning bool) x +let wantsScreenTraits self = msg_send ~self ~cmd:(selector "wantsScreenTraits") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiCollectionView.ml b/uikit_extra/UIKeyboardEmojiCollectionView.ml index 19b2d393..df31a4d1 100644 --- a/uikit_extra/UIKeyboardEmojiCollectionView.ml +++ b/uikit_extra/UIKeyboardEmojiCollectionView.ml @@ -5,20 +5,24 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmojiCollectionView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojicollectionview?language=objc}UIKeyboardEmojiCollectionView} *) -let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning (id)) -let closestCellForPoint x self = msg_send ~self ~cmd:(selector "closestCellForPoint:") ~typ:(CGPoint.t @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let emojiGraphicsTraits self = msg_send ~self ~cmd:(selector "emojiGraphicsTraits") ~typ:(returning (id)) -let hitTestResponder self = msg_send ~self ~cmd:(selector "hitTestResponder") ~typ:(returning (id)) -let initWithFrame x ~collectionViewLayout ~emojiGraphicsTraits self = msg_send ~self ~cmd:(selector "initWithFrame:collectionViewLayout:emojiGraphicsTraits:") ~typ:(CGRect.t @-> id @-> id @-> returning (id)) x collectionViewLayout emojiGraphicsTraits -let isInSearchPopover self = msg_send ~self ~cmd:(selector "isInSearchPopover") ~typ:(returning (bool)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setHitTestResponder x self = msg_send ~self ~cmd:(selector "setHitTestResponder:") ~typ:(id @-> returning (void)) x -let setIsInSearchPopover x self = msg_send ~self ~cmd:(selector "setIsInSearchPopover:") ~typ:(bool @-> returning (void)) x -let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent \ No newline at end of file +let self = get_class "UIKeyboardEmojiCollectionView" + +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let closestCellForPoint x self = msg_send ~self ~cmd:(selector "closestCellForPoint:") ~typ:(CGPoint.t @-> returning id) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let emojiGraphicsTraits self = msg_send ~self ~cmd:(selector "emojiGraphicsTraits") ~typ:(returning id) +let hitTestResponder self = msg_send ~self ~cmd:(selector "hitTestResponder") ~typ:(returning id) +let initWithFrame x ~collectionViewLayout ~emojiGraphicsTraits self = msg_send ~self ~cmd:(selector "initWithFrame:collectionViewLayout:emojiGraphicsTraits:") ~typ:(CGRect.t @-> id @-> id @-> returning id) x collectionViewLayout emojiGraphicsTraits +let isInSearchPopover self = msg_send ~self ~cmd:(selector "isInSearchPopover") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setHitTestResponder x self = msg_send ~self ~cmd:(selector "setHitTestResponder:") ~typ:(id @-> returning void) x +let setIsInSearchPopover x self = msg_send ~self ~cmd:(selector "setIsInSearchPopover:") ~typ:(bool @-> returning void) x +let touchesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "touchesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "touchesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let touchesMoved x ~withEvent self = msg_send ~self ~cmd:(selector "touchesMoved:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiCollectionViewCell.ml b/uikit_extra/UIKeyboardEmojiCollectionViewCell.ml index dbfb5010..dcdf500a 100644 --- a/uikit_extra/UIKeyboardEmojiCollectionViewCell.ml +++ b/uikit_extra/UIKeyboardEmojiCollectionViewCell.ml @@ -5,23 +5,27 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmojiCollectionViewCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojicollectionviewcell?language=objc}UIKeyboardEmojiCollectionViewCell} *) -let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning (id)) -let emoji self = msg_send ~self ~cmd:(selector "emoji") ~typ:(returning (id)) -let emojiFontSize self = msg_send ~self ~cmd:(selector "emojiFontSize") ~typ:(returning (llong)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let navigationHighlightView self = msg_send ~self ~cmd:(selector "navigationHighlightView") ~typ:(returning (id)) -let noResultsCell self = msg_send ~self ~cmd:(selector "noResultsCell") ~typ:(returning (bool)) -let noResultsLabel self = msg_send ~self ~cmd:(selector "noResultsLabel") ~typ:(returning (id)) -let setEmoji x self = msg_send ~self ~cmd:(selector "setEmoji:") ~typ:(id @-> returning (void)) x -let setEmojiFontSize x self = msg_send ~self ~cmd:(selector "setEmojiFontSize:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setNavigationHighlightView x self = msg_send ~self ~cmd:(selector "setNavigationHighlightView:") ~typ:(id @-> returning (void)) x -let setNoResultsCell x self = msg_send ~self ~cmd:(selector "setNoResultsCell:") ~typ:(bool @-> returning (void)) x -let setNoResultsLabel x self = msg_send ~self ~cmd:(selector "setNoResultsLabel:") ~typ:(id @-> returning (void)) x -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setUnreleasedBanner x self = msg_send ~self ~cmd:(selector "setUnreleasedBanner:") ~typ:(id @-> returning (void)) x -let setUnreleasedHighlight x self = msg_send ~self ~cmd:(selector "setUnreleasedHighlight:") ~typ:(bool @-> returning (void)) x -let unreleasedBanner self = msg_send ~self ~cmd:(selector "unreleasedBanner") ~typ:(returning (id)) -let unreleasedHighlight self = msg_send ~self ~cmd:(selector "unreleasedHighlight") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIKeyboardEmojiCollectionViewCell" + +let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning id) +let emoji self = msg_send ~self ~cmd:(selector "emoji") ~typ:(returning id) +let emojiFontSize self = msg_send ~self ~cmd:(selector "emojiFontSize") ~typ:(returning llong) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let navigationHighlightView self = msg_send ~self ~cmd:(selector "navigationHighlightView") ~typ:(returning id) +let noResultsCell self = msg_send ~self ~cmd:(selector "noResultsCell") ~typ:(returning bool) +let noResultsLabel self = msg_send ~self ~cmd:(selector "noResultsLabel") ~typ:(returning id) +let setEmoji x self = msg_send ~self ~cmd:(selector "setEmoji:") ~typ:(id @-> returning void) x +let setEmojiFontSize x self = msg_send ~self ~cmd:(selector "setEmojiFontSize:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setNavigationHighlightView x self = msg_send ~self ~cmd:(selector "setNavigationHighlightView:") ~typ:(id @-> returning void) x +let setNoResultsCell x self = msg_send ~self ~cmd:(selector "setNoResultsCell:") ~typ:(bool @-> returning void) x +let setNoResultsLabel x self = msg_send ~self ~cmd:(selector "setNoResultsLabel:") ~typ:(id @-> returning void) x +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setUnreleasedBanner x self = msg_send ~self ~cmd:(selector "setUnreleasedBanner:") ~typ:(id @-> returning void) x +let setUnreleasedHighlight x self = msg_send ~self ~cmd:(selector "setUnreleasedHighlight:") ~typ:(bool @-> returning void) x +let unreleasedBanner self = msg_send ~self ~cmd:(selector "unreleasedBanner") ~typ:(returning id) +let unreleasedHighlight self = msg_send ~self ~cmd:(selector "unreleasedHighlight") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiFamilyConfigurationView.ml b/uikit_extra/UIKeyboardEmojiFamilyConfigurationView.ml index 39375c32..d23d555e 100644 --- a/uikit_extra/UIKeyboardEmojiFamilyConfigurationView.ml +++ b/uikit_extra/UIKeyboardEmojiFamilyConfigurationView.ml @@ -5,42 +5,42 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmojiFamilyConfigurationView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojifamilyconfigurationview?language=objc}UIKeyboardEmojiFamilyConfigurationView} *) -module C = struct - let preferredContentViewSizeForKey x ~withTraits self = msg_send_stret ~self ~cmd:(selector "preferredContentViewSizeForKey:withTraits:") ~typ:(id @-> id @-> returning (CGSize.t)) ~return_type:CGSize.t x withTraits -end +let self = get_class "UIKeyboardEmojiFamilyConfigurationView" -let baseEmojiString self = msg_send ~self ~cmd:(selector "baseEmojiString") ~typ:(returning (id)) -let configuredWellView self = msg_send ~self ~cmd:(selector "configuredWellView") ~typ:(returning (id)) -let familyMemberStackViews self = msg_send ~self ~cmd:(selector "familyMemberStackViews") ~typ:(returning (id)) -let hasSplitFontSupport self = msg_send ~self ~cmd:(selector "hasSplitFontSupport") ~typ:(returning (bool)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let lastSelectedIndexPath self = msg_send ~self ~cmd:(selector "lastSelectedIndexPath") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let neutralWellView self = msg_send ~self ~cmd:(selector "neutralWellView") ~typ:(returning (id)) -let previewWellStackView self = msg_send ~self ~cmd:(selector "previewWellStackView") ~typ:(returning (id)) -let representedKey self = msg_send ~self ~cmd:(selector "representedKey") ~typ:(returning (id)) -let retestForTouchUpSelectedVariantIndexForKey x ~atPoint self = msg_send ~self ~cmd:(selector "retestForTouchUpSelectedVariantIndexForKey:atPoint:") ~typ:(id @-> CGPoint.t @-> returning (void)) x atPoint -let retestSelectedVariantIndexForKey x ~atPoint self = msg_send ~self ~cmd:(selector "retestSelectedVariantIndexForKey:atPoint:") ~typ:(id @-> CGPoint.t @-> returning (void)) x atPoint -let selectedVariantIndices self = msg_send ~self ~cmd:(selector "selectedVariantIndices") ~typ:(returning (id)) -let separatorView self = msg_send ~self ~cmd:(selector "separatorView") ~typ:(returning (id)) -let setBaseEmojiString x self = msg_send ~self ~cmd:(selector "setBaseEmojiString:") ~typ:(id @-> returning (void)) x -let setConfiguredWellView x self = msg_send ~self ~cmd:(selector "setConfiguredWellView:") ~typ:(id @-> returning (void)) x -let setFamilyMemberStackViews x self = msg_send ~self ~cmd:(selector "setFamilyMemberStackViews:") ~typ:(id @-> returning (void)) x -let setHasSplitFontSupport x self = msg_send ~self ~cmd:(selector "setHasSplitFontSupport:") ~typ:(bool @-> returning (void)) x -let setLastSelectedIndexPath x self = msg_send ~self ~cmd:(selector "setLastSelectedIndexPath:") ~typ:(id @-> returning (void)) x -let setNeutralWellView x self = msg_send ~self ~cmd:(selector "setNeutralWellView:") ~typ:(id @-> returning (void)) x -let setPreviewWellStackView x self = msg_send ~self ~cmd:(selector "setPreviewWellStackView:") ~typ:(id @-> returning (void)) x -let setRepresentedKey x self = msg_send ~self ~cmd:(selector "setRepresentedKey:") ~typ:(id @-> returning (void)) x -let setSelectedVariantIndices x self = msg_send ~self ~cmd:(selector "setSelectedVariantIndices:") ~typ:(id @-> returning (void)) x -let setSeparatorView x self = msg_send ~self ~cmd:(selector "setSeparatorView:") ~typ:(id @-> returning (void)) x -let setSkinToneVariantRows x self = msg_send ~self ~cmd:(selector "setSkinToneVariantRows:") ~typ:(id @-> returning (void)) x -let setUsesDarkStyle x self = msg_send ~self ~cmd:(selector "setUsesDarkStyle:") ~typ:(bool @-> returning (void)) x -let setVariantDisplayRows x self = msg_send ~self ~cmd:(selector "setVariantDisplayRows:") ~typ:(id @-> returning (void)) x -let skinToneVariantRows self = msg_send ~self ~cmd:(selector "skinToneVariantRows") ~typ:(returning (id)) -let updateForKeyplane x ~key self = msg_send ~self ~cmd:(selector "updateForKeyplane:key:") ~typ:(id @-> id @-> returning (void)) x key -let updateRenderConfig x self = msg_send ~self ~cmd:(selector "updateRenderConfig:") ~typ:(id @-> returning (void)) x -let usesDarkStyle self = msg_send ~self ~cmd:(selector "usesDarkStyle") ~typ:(returning (bool)) -let variantDisplayRows self = msg_send ~self ~cmd:(selector "variantDisplayRows") ~typ:(returning (id)) \ No newline at end of file +let baseEmojiString self = msg_send ~self ~cmd:(selector "baseEmojiString") ~typ:(returning id) +let configuredWellView self = msg_send ~self ~cmd:(selector "configuredWellView") ~typ:(returning id) +let familyMemberStackViews self = msg_send ~self ~cmd:(selector "familyMemberStackViews") ~typ:(returning id) +let hasSplitFontSupport self = msg_send ~self ~cmd:(selector "hasSplitFontSupport") ~typ:(returning bool) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let lastSelectedIndexPath self = msg_send ~self ~cmd:(selector "lastSelectedIndexPath") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let neutralWellView self = msg_send ~self ~cmd:(selector "neutralWellView") ~typ:(returning id) +let previewWellStackView self = msg_send ~self ~cmd:(selector "previewWellStackView") ~typ:(returning id) +let representedKey self = msg_send ~self ~cmd:(selector "representedKey") ~typ:(returning id) +let retestForTouchUpSelectedVariantIndexForKey x ~atPoint self = msg_send ~self ~cmd:(selector "retestForTouchUpSelectedVariantIndexForKey:atPoint:") ~typ:(id @-> CGPoint.t @-> returning void) x atPoint +let retestSelectedVariantIndexForKey x ~atPoint self = msg_send ~self ~cmd:(selector "retestSelectedVariantIndexForKey:atPoint:") ~typ:(id @-> CGPoint.t @-> returning void) x atPoint +let selectedVariantIndices self = msg_send ~self ~cmd:(selector "selectedVariantIndices") ~typ:(returning id) +let separatorView self = msg_send ~self ~cmd:(selector "separatorView") ~typ:(returning id) +let setBaseEmojiString x self = msg_send ~self ~cmd:(selector "setBaseEmojiString:") ~typ:(id @-> returning void) x +let setConfiguredWellView x self = msg_send ~self ~cmd:(selector "setConfiguredWellView:") ~typ:(id @-> returning void) x +let setFamilyMemberStackViews x self = msg_send ~self ~cmd:(selector "setFamilyMemberStackViews:") ~typ:(id @-> returning void) x +let setHasSplitFontSupport x self = msg_send ~self ~cmd:(selector "setHasSplitFontSupport:") ~typ:(bool @-> returning void) x +let setLastSelectedIndexPath x self = msg_send ~self ~cmd:(selector "setLastSelectedIndexPath:") ~typ:(id @-> returning void) x +let setNeutralWellView x self = msg_send ~self ~cmd:(selector "setNeutralWellView:") ~typ:(id @-> returning void) x +let setPreviewWellStackView x self = msg_send ~self ~cmd:(selector "setPreviewWellStackView:") ~typ:(id @-> returning void) x +let setRepresentedKey x self = msg_send ~self ~cmd:(selector "setRepresentedKey:") ~typ:(id @-> returning void) x +let setSelectedVariantIndices x self = msg_send ~self ~cmd:(selector "setSelectedVariantIndices:") ~typ:(id @-> returning void) x +let setSeparatorView x self = msg_send ~self ~cmd:(selector "setSeparatorView:") ~typ:(id @-> returning void) x +let setSkinToneVariantRows x self = msg_send ~self ~cmd:(selector "setSkinToneVariantRows:") ~typ:(id @-> returning void) x +let setUsesDarkStyle x self = msg_send ~self ~cmd:(selector "setUsesDarkStyle:") ~typ:(bool @-> returning void) x +let setVariantDisplayRows x self = msg_send ~self ~cmd:(selector "setVariantDisplayRows:") ~typ:(id @-> returning void) x +let skinToneVariantRows self = msg_send ~self ~cmd:(selector "skinToneVariantRows") ~typ:(returning id) +let updateForKeyplane x ~key self = msg_send ~self ~cmd:(selector "updateForKeyplane:key:") ~typ:(id @-> id @-> returning void) x key +let updateRenderConfig x self = msg_send ~self ~cmd:(selector "updateRenderConfig:") ~typ:(id @-> returning void) x +let usesDarkStyle self = msg_send ~self ~cmd:(selector "usesDarkStyle") ~typ:(returning bool) +let variantDisplayRows self = msg_send ~self ~cmd:(selector "variantDisplayRows") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiFamilyConfigurationViewClass.ml b/uikit_extra/UIKeyboardEmojiFamilyConfigurationViewClass.ml new file mode 100644 index 00000000..e8439fe3 --- /dev/null +++ b/uikit_extra/UIKeyboardEmojiFamilyConfigurationViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojifamilyconfigurationview?language=objc}UIKeyboardEmojiFamilyConfigurationView} *) + +let preferredContentViewSizeForKey x ~withTraits self = msg_send ~self ~cmd:(selector "preferredContentViewSizeForKey:withTraits:") ~typ:(id @-> id @-> returning CGSize.t) x withTraits \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiGraphicsTraits.ml b/uikit_extra/UIKeyboardEmojiGraphicsTraits.ml index e224cf1d..8a336b35 100644 --- a/uikit_extra/UIKeyboardEmojiGraphicsTraits.ml +++ b/uikit_extra/UIKeyboardEmojiGraphicsTraits.ml @@ -5,30 +5,29 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmojiGraphicsTraits" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojigraphicstraits?language=objc}UIKeyboardEmojiGraphicsTraits} *) -module C = struct - let emojiGraphicsTraitsForCurrentScreenTraits self = msg_send ~self ~cmd:(selector "emojiGraphicsTraitsForCurrentScreenTraits") ~typ:(returning (id)) - let emojiGraphicsTraitsWithScreenTraits x self = msg_send ~self ~cmd:(selector "emojiGraphicsTraitsWithScreenTraits:") ~typ:(id @-> returning (id)) x -end +let self = get_class "UIKeyboardEmojiGraphicsTraits" -let alertTextWidth self = msg_send ~self ~cmd:(selector "alertTextWidth") ~typ:(returning (double)) -let bottomPadding self = msg_send ~self ~cmd:(selector "bottomPadding") ~typ:(returning (double)) -let categoryHeaderFontSize self = msg_send ~self ~cmd:(selector "categoryHeaderFontSize") ~typ:(returning (double)) -let categoryHeaderHeight self = msg_send ~self ~cmd:(selector "categoryHeaderHeight") ~typ:(returning (double)) -let categoryHeaderLeftPadding self = msg_send ~self ~cmd:(selector "categoryHeaderLeftPadding") ~typ:(returning (double)) -let categorySelectedCirWidth self = msg_send ~self ~cmd:(selector "categorySelectedCirWidth") ~typ:(returning (double)) -let columnOffset self = msg_send ~self ~cmd:(selector "columnOffset") ~typ:(returning (double)) -let emojiKeyWidth self = msg_send ~self ~cmd:(selector "emojiKeyWidth") ~typ:(returning (double)) -let fakeEmojiKeySize self = msg_send_stret ~self ~cmd:(selector "fakeEmojiKeySize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let initWithScreenTrait x self = msg_send ~self ~cmd:(selector "initWithScreenTrait:") ~typ:(id @-> returning (id)) x -let inputViewLeftMostPadding self = msg_send ~self ~cmd:(selector "inputViewLeftMostPadding") ~typ:(returning (double)) -let inputViewRightMostPadding self = msg_send ~self ~cmd:(selector "inputViewRightMostPadding") ~typ:(returning (double)) -let minimumInteritemSpacing self = msg_send ~self ~cmd:(selector "minimumInteritemSpacing") ~typ:(returning (double)) -let minimumLineSpacing self = msg_send ~self ~cmd:(selector "minimumLineSpacing") ~typ:(returning (double)) -let prepolulatedRecentCount self = msg_send ~self ~cmd:(selector "prepolulatedRecentCount") ~typ:(returning (llong)) -let rightBiasPercentage self = msg_send ~self ~cmd:(selector "rightBiasPercentage") ~typ:(returning (double)) -let scrollSnapOffset self = msg_send ~self ~cmd:(selector "scrollSnapOffset") ~typ:(returning (double)) -let scrubViewTopPadding self = msg_send ~self ~cmd:(selector "scrubViewTopPadding") ~typ:(returning (double)) -let sectionOffset self = msg_send ~self ~cmd:(selector "sectionOffset") ~typ:(returning (double)) \ No newline at end of file +let alertTextWidth self = msg_send ~self ~cmd:(selector "alertTextWidth") ~typ:(returning double) +let bottomPadding self = msg_send ~self ~cmd:(selector "bottomPadding") ~typ:(returning double) +let categoryHeaderFontSize self = msg_send ~self ~cmd:(selector "categoryHeaderFontSize") ~typ:(returning double) +let categoryHeaderHeight self = msg_send ~self ~cmd:(selector "categoryHeaderHeight") ~typ:(returning double) +let categoryHeaderLeftPadding self = msg_send ~self ~cmd:(selector "categoryHeaderLeftPadding") ~typ:(returning double) +let categorySelectedCirWidth self = msg_send ~self ~cmd:(selector "categorySelectedCirWidth") ~typ:(returning double) +let columnOffset self = msg_send ~self ~cmd:(selector "columnOffset") ~typ:(returning double) +let emojiKeyWidth self = msg_send ~self ~cmd:(selector "emojiKeyWidth") ~typ:(returning double) +let fakeEmojiKeySize self = msg_send ~self ~cmd:(selector "fakeEmojiKeySize") ~typ:(returning CGSize.t) +let initWithScreenTrait x self = msg_send ~self ~cmd:(selector "initWithScreenTrait:") ~typ:(id @-> returning id) x +let inputViewLeftMostPadding self = msg_send ~self ~cmd:(selector "inputViewLeftMostPadding") ~typ:(returning double) +let inputViewRightMostPadding self = msg_send ~self ~cmd:(selector "inputViewRightMostPadding") ~typ:(returning double) +let minimumInteritemSpacing self = msg_send ~self ~cmd:(selector "minimumInteritemSpacing") ~typ:(returning double) +let minimumLineSpacing self = msg_send ~self ~cmd:(selector "minimumLineSpacing") ~typ:(returning double) +let prepolulatedRecentCount self = msg_send ~self ~cmd:(selector "prepolulatedRecentCount") ~typ:(returning llong) +let rightBiasPercentage self = msg_send ~self ~cmd:(selector "rightBiasPercentage") ~typ:(returning double) +let scrollSnapOffset self = msg_send ~self ~cmd:(selector "scrollSnapOffset") ~typ:(returning double) +let scrubViewTopPadding self = msg_send ~self ~cmd:(selector "scrubViewTopPadding") ~typ:(returning double) +let sectionOffset self = msg_send ~self ~cmd:(selector "sectionOffset") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiGraphicsTraitsClass.ml b/uikit_extra/UIKeyboardEmojiGraphicsTraitsClass.ml new file mode 100644 index 00000000..cce6d67b --- /dev/null +++ b/uikit_extra/UIKeyboardEmojiGraphicsTraitsClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojigraphicstraits?language=objc}UIKeyboardEmojiGraphicsTraits} *) + +let emojiGraphicsTraitsForCurrentScreenTraits self = msg_send ~self ~cmd:(selector "emojiGraphicsTraitsForCurrentScreenTraits") ~typ:(returning id) +let emojiGraphicsTraitsWithScreenTraits x self = msg_send ~self ~cmd:(selector "emojiGraphicsTraitsWithScreenTraits:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiKeyDisplayController.ml b/uikit_extra/UIKeyboardEmojiKeyDisplayController.ml index 5989f1e4..67ce87ad 100644 --- a/uikit_extra/UIKeyboardEmojiKeyDisplayController.ml +++ b/uikit_extra/UIKeyboardEmojiKeyDisplayController.ml @@ -5,34 +5,32 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmojiKeyDisplayController" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojikeydisplaycontroller?language=objc}UIKeyboardEmojiKeyDisplayController} *) -module C = struct - let classForCategoryControl x self = msg_send ~self ~cmd:(selector "classForCategoryControl:") ~typ:(llong @-> returning (_Class)) (LLong.of_int x) - let classForInputView x self = msg_send ~self ~cmd:(selector "classForInputView:") ~typ:(llong @-> returning (_Class)) (LLong.of_int x) - let writeEmojiDefaultsAndReleaseActiveInputView self = msg_send ~self ~cmd:(selector "writeEmojiDefaultsAndReleaseActiveInputView") ~typ:(returning (void)) -end +let self = get_class "UIKeyboardEmojiKeyDisplayController" -let categoryView self = msg_send ~self ~cmd:(selector "categoryView") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let emojiUsed x self = msg_send ~self ~cmd:(selector "emojiUsed:") ~typ:(id @-> returning (void)) x -let emojiUsed' x ~language self = msg_send ~self ~cmd:(selector "emojiUsed:language:") ~typ:(id @-> id @-> returning (void)) x language -let emojiWithoutDuplicateRecents x self = msg_send ~self ~cmd:(selector "emojiWithoutDuplicateRecents:") ~typ:(id @-> returning (id)) x -let hasLastUsedVariantForEmojiString x self = msg_send ~self ~cmd:(selector "hasLastUsedVariantForEmojiString:") ~typ:(id @-> returning (bool)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning (id)) -let lastUsedVariantEmojiForEmojiString x self = msg_send ~self ~cmd:(selector "lastUsedVariantEmojiForEmojiString:") ~typ:(id @-> returning (id)) x -let lastViewedCategory self = msg_send ~self ~cmd:(selector "lastViewedCategory") ~typ:(returning (id)) -let lastVisibleFirstEmojiIndexforCategory x self = msg_send ~self ~cmd:(selector "lastVisibleFirstEmojiIndexforCategory:") ~typ:(id @-> returning (llong)) x -let recentEmojiAtIndex x ~size self = msg_send ~self ~cmd:(selector "recentEmojiAtIndex:size:") ~typ:(llong @-> ptr (ullong) @-> returning (id)) (LLong.of_int x) size -let recents self = msg_send ~self ~cmd:(selector "recents") ~typ:(returning (id)) -let reloadCategoryForOffsetPercentage x ~withSender self = msg_send ~self ~cmd:(selector "reloadCategoryForOffsetPercentage:withSender:") ~typ:(double @-> id @-> returning (llong)) x withSender -let reloadForCategory x ~withSender self = msg_send ~self ~cmd:(selector "reloadForCategory:withSender:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) withSender -let setCategoryView x self = msg_send ~self ~cmd:(selector "setCategoryView:") ~typ:(id @-> returning (void)) x -let setInputView x self = msg_send ~self ~cmd:(selector "setInputView:") ~typ:(id @-> returning (void)) x -let setLastViewedCategory x self = msg_send ~self ~cmd:(selector "setLastViewedCategory:") ~typ:(id @-> returning (void)) x -let skinToneBaseKeyPreferences self = msg_send ~self ~cmd:(selector "skinToneBaseKeyPreferences") ~typ:(returning (id)) -let updateEmojiKeyManagerWithKey x ~withKeyView self = msg_send ~self ~cmd:(selector "updateEmojiKeyManagerWithKey:withKeyView:") ~typ:(id @-> id @-> returning (void)) x withKeyView -let updateSkinToneBaseKey x ~variantUsed self = msg_send ~self ~cmd:(selector "updateSkinToneBaseKey:variantUsed:") ~typ:(id @-> id @-> returning (void)) x variantUsed -let userHasSelectedSkinToneEmoji self = msg_send ~self ~cmd:(selector "userHasSelectedSkinToneEmoji") ~typ:(returning (bool)) \ No newline at end of file +let categoryView self = msg_send ~self ~cmd:(selector "categoryView") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let emojiUsed x self = msg_send ~self ~cmd:(selector "emojiUsed:") ~typ:(id @-> returning void) x +let emojiUsed' x ~language self = msg_send ~self ~cmd:(selector "emojiUsed:language:") ~typ:(id @-> id @-> returning void) x language +let emojiWithoutDuplicateRecents x self = msg_send ~self ~cmd:(selector "emojiWithoutDuplicateRecents:") ~typ:(id @-> returning id) x +let hasLastUsedVariantForEmojiString x self = msg_send ~self ~cmd:(selector "hasLastUsedVariantForEmojiString:") ~typ:(id @-> returning bool) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning id) +let lastUsedVariantEmojiForEmojiString x self = msg_send ~self ~cmd:(selector "lastUsedVariantEmojiForEmojiString:") ~typ:(id @-> returning id) x +let lastViewedCategory self = msg_send ~self ~cmd:(selector "lastViewedCategory") ~typ:(returning id) +let lastVisibleFirstEmojiIndexforCategory x self = msg_send ~self ~cmd:(selector "lastVisibleFirstEmojiIndexforCategory:") ~typ:(id @-> returning llong) x +let recentEmojiAtIndex x ~size self = msg_send ~self ~cmd:(selector "recentEmojiAtIndex:size:") ~typ:(llong @-> (ptr ullong) @-> returning id) (LLong.of_int x) size +let recents self = msg_send ~self ~cmd:(selector "recents") ~typ:(returning id) +let reloadCategoryForOffsetPercentage x ~withSender self = msg_send ~self ~cmd:(selector "reloadCategoryForOffsetPercentage:withSender:") ~typ:(double @-> id @-> returning llong) x withSender +let reloadForCategory x ~withSender self = msg_send ~self ~cmd:(selector "reloadForCategory:withSender:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) withSender +let setCategoryView x self = msg_send ~self ~cmd:(selector "setCategoryView:") ~typ:(id @-> returning void) x +let setInputView x self = msg_send ~self ~cmd:(selector "setInputView:") ~typ:(id @-> returning void) x +let setLastViewedCategory x self = msg_send ~self ~cmd:(selector "setLastViewedCategory:") ~typ:(id @-> returning void) x +let skinToneBaseKeyPreferences self = msg_send ~self ~cmd:(selector "skinToneBaseKeyPreferences") ~typ:(returning id) +let updateEmojiKeyManagerWithKey x ~withKeyView self = msg_send ~self ~cmd:(selector "updateEmojiKeyManagerWithKey:withKeyView:") ~typ:(id @-> id @-> returning void) x withKeyView +let updateSkinToneBaseKey x ~variantUsed self = msg_send ~self ~cmd:(selector "updateSkinToneBaseKey:variantUsed:") ~typ:(id @-> id @-> returning void) x variantUsed +let userHasSelectedSkinToneEmoji self = msg_send ~self ~cmd:(selector "userHasSelectedSkinToneEmoji") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiKeyDisplayControllerClass.ml b/uikit_extra/UIKeyboardEmojiKeyDisplayControllerClass.ml new file mode 100644 index 00000000..f4a391f6 --- /dev/null +++ b/uikit_extra/UIKeyboardEmojiKeyDisplayControllerClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojikeydisplaycontroller?language=objc}UIKeyboardEmojiKeyDisplayController} *) + +let classForCategoryControl x self = msg_send ~self ~cmd:(selector "classForCategoryControl:") ~typ:(llong @-> returning _Class) (LLong.of_int x) +let classForInputView x self = msg_send ~self ~cmd:(selector "classForInputView:") ~typ:(llong @-> returning _Class) (LLong.of_int x) +let writeEmojiDefaultsAndReleaseActiveInputView self = msg_send ~self ~cmd:(selector "writeEmojiDefaultsAndReleaseActiveInputView") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiKeyView.ml b/uikit_extra/UIKeyboardEmojiKeyView.ml index 32287689..96db9e8e 100644 --- a/uikit_extra/UIKeyboardEmojiKeyView.ml +++ b/uikit_extra/UIKeyboardEmojiKeyView.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmojiKeyView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojikeyview?language=objc}UIKeyboardEmojiKeyView} *) -let emojiKeyManager self = msg_send ~self ~cmd:(selector "emojiKeyManager") ~typ:(returning (id)) -let setEmojiKeyManager x self = msg_send ~self ~cmd:(selector "setEmojiKeyManager:") ~typ:(id @-> returning (void)) x -let updateToCategory x self = msg_send ~self ~cmd:(selector "updateToCategory:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let updateToCategoryWithOffsetPercentage x self = msg_send ~self ~cmd:(selector "updateToCategoryWithOffsetPercentage:") ~typ:(double @-> returning (llong)) x \ No newline at end of file +let self = get_class "UIKeyboardEmojiKeyView" + +let emojiKeyManager self = msg_send ~self ~cmd:(selector "emojiKeyManager") ~typ:(returning id) +let setEmojiKeyManager x self = msg_send ~self ~cmd:(selector "setEmojiKeyManager:") ~typ:(id @-> returning void) x +let updateToCategory x self = msg_send ~self ~cmd:(selector "updateToCategory:") ~typ:(llong @-> returning void) (LLong.of_int x) +let updateToCategoryWithOffsetPercentage x self = msg_send ~self ~cmd:(selector "updateToCategoryWithOffsetPercentage:") ~typ:(double @-> returning llong) x \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiLayout.ml b/uikit_extra/UIKeyboardEmojiLayout.ml index 3c399e5c..5ef6480d 100644 --- a/uikit_extra/UIKeyboardEmojiLayout.ml +++ b/uikit_extra/UIKeyboardEmojiLayout.ml @@ -5,20 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmojiLayout" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojilayout?language=objc}UIKeyboardEmojiLayout} *) -module C = struct - let invalidationContextClass self = msg_send ~self ~cmd:(selector "invalidationContextClass") ~typ:(returning (_Class)) -end +let self = get_class "UIKeyboardEmojiLayout" -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let flipsHorizontallyInOppositeLayoutDirection self = msg_send ~self ~cmd:(selector "flipsHorizontallyInOppositeLayoutDirection") ~typ:(returning (bool)) -let invalidateLayoutWithContext x self = msg_send ~self ~cmd:(selector "invalidateLayoutWithContext:") ~typ:(id @-> returning (void)) x -let invalidationContextForBoundsChange x self = msg_send ~self ~cmd:(selector "invalidationContextForBoundsChange:") ~typ:(CGRect.t @-> returning (id)) x -let invalidationContextForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "invalidationContextForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning (id)) x withOriginalAttributes -let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning (id)) x -let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning (id)) x atIndexPath -let prepareLayout self = msg_send ~self ~cmd:(selector "prepareLayout") ~typ:(returning (void)) -let shouldInvalidateLayoutForBoundsChange x self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForBoundsChange:") ~typ:(CGRect.t @-> returning (bool)) x -let shouldInvalidateLayoutForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning (bool)) x withOriginalAttributes \ No newline at end of file +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let flipsHorizontallyInOppositeLayoutDirection self = msg_send ~self ~cmd:(selector "flipsHorizontallyInOppositeLayoutDirection") ~typ:(returning bool) +let invalidateLayoutWithContext x self = msg_send ~self ~cmd:(selector "invalidateLayoutWithContext:") ~typ:(id @-> returning void) x +let invalidationContextForBoundsChange x self = msg_send ~self ~cmd:(selector "invalidationContextForBoundsChange:") ~typ:(CGRect.t @-> returning id) x +let invalidationContextForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "invalidationContextForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning id) x withOriginalAttributes +let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning id) x +let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let prepareLayout self = msg_send ~self ~cmd:(selector "prepareLayout") ~typ:(returning void) +let shouldInvalidateLayoutForBoundsChange x self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForBoundsChange:") ~typ:(CGRect.t @-> returning bool) x +let shouldInvalidateLayoutForPreferredLayoutAttributes x ~withOriginalAttributes self = msg_send ~self ~cmd:(selector "shouldInvalidateLayoutForPreferredLayoutAttributes:withOriginalAttributes:") ~typ:(id @-> id @-> returning bool) x withOriginalAttributes \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiLayoutClass.ml b/uikit_extra/UIKeyboardEmojiLayoutClass.ml new file mode 100644 index 00000000..9c547caf --- /dev/null +++ b/uikit_extra/UIKeyboardEmojiLayoutClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojilayout?language=objc}UIKeyboardEmojiLayout} *) + +let invalidationContextClass self = msg_send ~self ~cmd:(selector "invalidationContextClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiPreferences.ml b/uikit_extra/UIKeyboardEmojiPreferences.ml index edddfe13..d3c04554 100644 --- a/uikit_extra/UIKeyboardEmojiPreferences.ml +++ b/uikit_extra/UIKeyboardEmojiPreferences.ml @@ -5,50 +5,50 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmojiPreferences" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojipreferences?language=objc}UIKeyboardEmojiPreferences} *) -module C = struct - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end +let self = get_class "UIKeyboardEmojiPreferences" -let clearEmojiKeyboardPreferenceClient self = msg_send ~self ~cmd:(selector "clearEmojiKeyboardPreferenceClient") ~typ:(returning (void)) -let clearLocalRecentsCache self = msg_send ~self ~cmd:(selector "clearLocalRecentsCache") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deviceSupportsMemoji self = msg_send ~self ~cmd:(selector "deviceSupportsMemoji") ~typ:(returning (bool)) -let didDisplaySkinToneHelp self = msg_send ~self ~cmd:(selector "didDisplaySkinToneHelp") ~typ:(returning (void)) -let emojiCategoryDefaultsIndex x self = msg_send ~self ~cmd:(selector "emojiCategoryDefaultsIndex:") ~typ:(id @-> returning (llong)) x -let emojiPredicted x ~typingName ~language self = msg_send ~self ~cmd:(selector "emojiPredicted:typingName:language:") ~typ:(id @-> id @-> id @-> returning (void)) x typingName language -let emojiUsed x self = msg_send ~self ~cmd:(selector "emojiUsed:") ~typ:(id @-> returning (void)) x -let emojiUsed1 x ~language self = msg_send ~self ~cmd:(selector "emojiUsed:language:") ~typ:(id @-> id @-> returning (void)) x language -let emojiUsed2 x ~language ~completion self = msg_send ~self ~cmd:(selector "emojiUsed:language:completion:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x language completion -let emojiWithoutDuplicateRecents x self = msg_send ~self ~cmd:(selector "emojiWithoutDuplicateRecents:") ~typ:(id @-> returning (id)) x -let handleRead x self = msg_send ~self ~cmd:(selector "handleRead:") ~typ:(id @-> returning (void)) x -let handleSuspend x self = msg_send ~self ~cmd:(selector "handleSuspend:") ~typ:(id @-> returning (void)) x -let handleWrite x self = msg_send ~self ~cmd:(selector "handleWrite:") ~typ:(id @-> returning (void)) x -let hasCheckedMemojiPreference self = msg_send ~self ~cmd:(selector "hasCheckedMemojiPreference") ~typ:(returning (bool)) -let hasDisplayedSkinToneHelp self = msg_send ~self ~cmd:(selector "hasDisplayedSkinToneHelp") ~typ:(returning (bool)) -let hasLastUsedVariantForEmojiString x self = msg_send ~self ~cmd:(selector "hasLastUsedVariantForEmojiString:") ~typ:(id @-> returning (bool)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let lastUsedVariantEmojiForEmojiString x self = msg_send ~self ~cmd:(selector "lastUsedVariantEmojiForEmojiString:") ~typ:(id @-> returning (id)) x -let maximumRecentsCount self = msg_send ~self ~cmd:(selector "maximumRecentsCount") ~typ:(returning (ullong)) -let memojiSettingEnabled self = msg_send ~self ~cmd:(selector "memojiSettingEnabled") ~typ:(returning (bool)) -let preferencesClient self = msg_send ~self ~cmd:(selector "preferencesClient") ~typ:(returning (id)) -let readEmojiDefaults self = msg_send ~self ~cmd:(selector "readEmojiDefaults") ~typ:(returning (void)) -let recentEmojiAtIndex x ~size self = msg_send ~self ~cmd:(selector "recentEmojiAtIndex:size:") ~typ:(llong @-> ptr (ullong) @-> returning (id)) (LLong.of_int x) size -let recents self = msg_send ~self ~cmd:(selector "recents") ~typ:(returning (id)) -let refreshLocalRecents self = msg_send ~self ~cmd:(selector "refreshLocalRecents") ~typ:(returning (void)) -let selectedCategoryType self = msg_send ~self ~cmd:(selector "selectedCategoryType") ~typ:(returning (llong)) -let setEmojiCategoryDefaultsIndex x ~forCategory self = msg_send ~self ~cmd:(selector "setEmojiCategoryDefaultsIndex:forCategory:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) forCategory -let setHasCheckedMemojiPreference x self = msg_send ~self ~cmd:(selector "setHasCheckedMemojiPreference:") ~typ:(bool @-> returning (void)) x -let setMaximumRecentsCount x self = msg_send ~self ~cmd:(selector "setMaximumRecentsCount:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setRecents x self = msg_send ~self ~cmd:(selector "setRecents:") ~typ:(id @-> returning (void)) x -let setSelectedCategoryType x self = msg_send ~self ~cmd:(selector "setSelectedCategoryType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSkinToneBaseKeyPreferences x self = msg_send ~self ~cmd:(selector "setSkinToneBaseKeyPreferences:") ~typ:(id @-> returning (void)) x -let setSupportsMemoji x self = msg_send ~self ~cmd:(selector "setSupportsMemoji:") ~typ:(bool @-> returning (void)) x -let shouldShowRecents self = msg_send ~self ~cmd:(selector "shouldShowRecents") ~typ:(returning (bool)) -let skinToneBaseKeyPreferences self = msg_send ~self ~cmd:(selector "skinToneBaseKeyPreferences") ~typ:(returning (id)) -let supportsMemoji self = msg_send ~self ~cmd:(selector "supportsMemoji") ~typ:(returning (bool)) -let typingNameForEmoji x ~language self = msg_send ~self ~cmd:(selector "typingNameForEmoji:language:") ~typ:(id @-> id @-> returning (id)) x language -let updateSkinToneBaseKey x ~variantUsed self = msg_send ~self ~cmd:(selector "updateSkinToneBaseKey:variantUsed:") ~typ:(id @-> id @-> returning (void)) x variantUsed -let writeEmojiDefaults self = msg_send ~self ~cmd:(selector "writeEmojiDefaults") ~typ:(returning (void)) \ No newline at end of file +let clearEmojiKeyboardPreferenceClient self = msg_send ~self ~cmd:(selector "clearEmojiKeyboardPreferenceClient") ~typ:(returning void) +let clearLocalRecentsCache self = msg_send ~self ~cmd:(selector "clearLocalRecentsCache") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let deviceSupportsMemoji self = msg_send ~self ~cmd:(selector "deviceSupportsMemoji") ~typ:(returning bool) +let didDisplaySkinToneHelp self = msg_send ~self ~cmd:(selector "didDisplaySkinToneHelp") ~typ:(returning void) +let emojiCategoryDefaultsIndex x self = msg_send ~self ~cmd:(selector "emojiCategoryDefaultsIndex:") ~typ:(id @-> returning llong) x +let emojiPredicted x ~typingName ~language self = msg_send ~self ~cmd:(selector "emojiPredicted:typingName:language:") ~typ:(id @-> id @-> id @-> returning void) x typingName language +let emojiUsed x self = msg_send ~self ~cmd:(selector "emojiUsed:") ~typ:(id @-> returning void) x +let emojiUsed1 x ~language self = msg_send ~self ~cmd:(selector "emojiUsed:language:") ~typ:(id @-> id @-> returning void) x language +let emojiUsed2 x ~language ~completion self = msg_send ~self ~cmd:(selector "emojiUsed:language:completion:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x language completion +let emojiWithoutDuplicateRecents x self = msg_send ~self ~cmd:(selector "emojiWithoutDuplicateRecents:") ~typ:(id @-> returning id) x +let handleRead x self = msg_send ~self ~cmd:(selector "handleRead:") ~typ:(id @-> returning void) x +let handleSuspend x self = msg_send ~self ~cmd:(selector "handleSuspend:") ~typ:(id @-> returning void) x +let handleWrite x self = msg_send ~self ~cmd:(selector "handleWrite:") ~typ:(id @-> returning void) x +let hasCheckedMemojiPreference self = msg_send ~self ~cmd:(selector "hasCheckedMemojiPreference") ~typ:(returning bool) +let hasDisplayedSkinToneHelp self = msg_send ~self ~cmd:(selector "hasDisplayedSkinToneHelp") ~typ:(returning bool) +let hasLastUsedVariantForEmojiString x self = msg_send ~self ~cmd:(selector "hasLastUsedVariantForEmojiString:") ~typ:(id @-> returning bool) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let lastUsedVariantEmojiForEmojiString x self = msg_send ~self ~cmd:(selector "lastUsedVariantEmojiForEmojiString:") ~typ:(id @-> returning id) x +let maximumRecentsCount self = msg_send ~self ~cmd:(selector "maximumRecentsCount") ~typ:(returning ullong) +let memojiSettingEnabled self = msg_send ~self ~cmd:(selector "memojiSettingEnabled") ~typ:(returning bool) +let preferencesClient self = msg_send ~self ~cmd:(selector "preferencesClient") ~typ:(returning id) +let readEmojiDefaults self = msg_send ~self ~cmd:(selector "readEmojiDefaults") ~typ:(returning void) +let recentEmojiAtIndex x ~size self = msg_send ~self ~cmd:(selector "recentEmojiAtIndex:size:") ~typ:(llong @-> (ptr ullong) @-> returning id) (LLong.of_int x) size +let recents self = msg_send ~self ~cmd:(selector "recents") ~typ:(returning id) +let refreshLocalRecents self = msg_send ~self ~cmd:(selector "refreshLocalRecents") ~typ:(returning void) +let selectedCategoryType self = msg_send ~self ~cmd:(selector "selectedCategoryType") ~typ:(returning llong) +let setEmojiCategoryDefaultsIndex x ~forCategory self = msg_send ~self ~cmd:(selector "setEmojiCategoryDefaultsIndex:forCategory:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) forCategory +let setHasCheckedMemojiPreference x self = msg_send ~self ~cmd:(selector "setHasCheckedMemojiPreference:") ~typ:(bool @-> returning void) x +let setMaximumRecentsCount x self = msg_send ~self ~cmd:(selector "setMaximumRecentsCount:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setRecents x self = msg_send ~self ~cmd:(selector "setRecents:") ~typ:(id @-> returning void) x +let setSelectedCategoryType x self = msg_send ~self ~cmd:(selector "setSelectedCategoryType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSkinToneBaseKeyPreferences x self = msg_send ~self ~cmd:(selector "setSkinToneBaseKeyPreferences:") ~typ:(id @-> returning void) x +let setSupportsMemoji x self = msg_send ~self ~cmd:(selector "setSupportsMemoji:") ~typ:(bool @-> returning void) x +let shouldShowRecents self = msg_send ~self ~cmd:(selector "shouldShowRecents") ~typ:(returning bool) +let skinToneBaseKeyPreferences self = msg_send ~self ~cmd:(selector "skinToneBaseKeyPreferences") ~typ:(returning id) +let supportsMemoji self = msg_send ~self ~cmd:(selector "supportsMemoji") ~typ:(returning bool) +let typingNameForEmoji x ~language self = msg_send ~self ~cmd:(selector "typingNameForEmoji:language:") ~typ:(id @-> id @-> returning id) x language +let updateSkinToneBaseKey x ~variantUsed self = msg_send ~self ~cmd:(selector "updateSkinToneBaseKey:variantUsed:") ~typ:(id @-> id @-> returning void) x variantUsed +let writeEmojiDefaults self = msg_send ~self ~cmd:(selector "writeEmojiDefaults") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiPreferencesClass.ml b/uikit_extra/UIKeyboardEmojiPreferencesClass.ml new file mode 100644 index 00000000..5cdea3f8 --- /dev/null +++ b/uikit_extra/UIKeyboardEmojiPreferencesClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojipreferences?language=objc}UIKeyboardEmojiPreferences} *) + +let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiSectionHeader.ml b/uikit_extra/UIKeyboardEmojiSectionHeader.ml index 3faebdea..e75a88ff 100644 --- a/uikit_extra/UIKeyboardEmojiSectionHeader.ml +++ b/uikit_extra/UIKeyboardEmojiSectionHeader.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmojiSectionHeader" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojisectionheader?language=objc}UIKeyboardEmojiSectionHeader} *) -let headerFontSize self = msg_send ~self ~cmd:(selector "headerFontSize") ~typ:(returning (double)) -let headerName self = msg_send ~self ~cmd:(selector "headerName") ~typ:(returning (id)) -let headerOpacity self = msg_send ~self ~cmd:(selector "headerOpacity") ~typ:(returning (double)) -let headerTextColor self = msg_send ~self ~cmd:(selector "headerTextColor") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let setHeaderFontSize x self = msg_send ~self ~cmd:(selector "setHeaderFontSize:") ~typ:(double @-> returning (void)) x -let setHeaderName x self = msg_send ~self ~cmd:(selector "setHeaderName:") ~typ:(id @-> returning (void)) x -let setHeaderOpacity x self = msg_send ~self ~cmd:(selector "setHeaderOpacity:") ~typ:(double @-> returning (void)) x -let setHeaderTextColor x self = msg_send ~self ~cmd:(selector "setHeaderTextColor:") ~typ:(id @-> returning (void)) x -let setUseVibrantBlend x self = msg_send ~self ~cmd:(selector "setUseVibrantBlend:") ~typ:(bool @-> returning (void)) x -let useVibrantBlend self = msg_send ~self ~cmd:(selector "useVibrantBlend") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIKeyboardEmojiSectionHeader" + +let headerFontSize self = msg_send ~self ~cmd:(selector "headerFontSize") ~typ:(returning double) +let headerName self = msg_send ~self ~cmd:(selector "headerName") ~typ:(returning id) +let headerOpacity self = msg_send ~self ~cmd:(selector "headerOpacity") ~typ:(returning double) +let headerTextColor self = msg_send ~self ~cmd:(selector "headerTextColor") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setHeaderFontSize x self = msg_send ~self ~cmd:(selector "setHeaderFontSize:") ~typ:(double @-> returning void) x +let setHeaderName x self = msg_send ~self ~cmd:(selector "setHeaderName:") ~typ:(id @-> returning void) x +let setHeaderOpacity x self = msg_send ~self ~cmd:(selector "setHeaderOpacity:") ~typ:(double @-> returning void) x +let setHeaderTextColor x self = msg_send ~self ~cmd:(selector "setHeaderTextColor:") ~typ:(id @-> returning void) x +let setUseVibrantBlend x self = msg_send ~self ~cmd:(selector "setUseVibrantBlend:") ~typ:(bool @-> returning void) x +let useVibrantBlend self = msg_send ~self ~cmd:(selector "useVibrantBlend") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiSplit.ml b/uikit_extra/UIKeyboardEmojiSplit.ml index 0626d4f2..f69baaf1 100644 --- a/uikit_extra/UIKeyboardEmojiSplit.ml +++ b/uikit_extra/UIKeyboardEmojiSplit.ml @@ -5,16 +5,20 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmojiSplit" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojisplit?language=objc}UIKeyboardEmojiSplit} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultIndexPath self = msg_send ~self ~cmd:(selector "defaultIndexPath") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning (llong)) x -let picker self = msg_send ~self ~cmd:(selector "picker") ~typ:(returning (id)) -let shouldCache self = msg_send ~self ~cmd:(selector "shouldCache") ~typ:(returning (bool)) -let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView1 x ~heightForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:heightForRowAtIndexPath:") ~typ:(id @-> id @-> returning (double)) x heightForRowAtIndexPath -let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning (llong)) x (LLong.of_int numberOfRowsInSection) -let tableView3 x ~willDisplayCell ~forRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willDisplayCell:forRowAtIndexPath:") ~typ:(id @-> id @-> id @-> returning (void)) x willDisplayCell forRowAtIndexPath \ No newline at end of file +let self = get_class "UIKeyboardEmojiSplit" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultIndexPath self = msg_send ~self ~cmd:(selector "defaultIndexPath") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let numberOfSectionsInTableView x self = msg_send ~self ~cmd:(selector "numberOfSectionsInTableView:") ~typ:(id @-> returning llong) x +let picker self = msg_send ~self ~cmd:(selector "picker") ~typ:(returning id) +let shouldCache self = msg_send ~self ~cmd:(selector "shouldCache") ~typ:(returning bool) +let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView1 x ~heightForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:heightForRowAtIndexPath:") ~typ:(id @-> id @-> returning double) x heightForRowAtIndexPath +let tableView2 x ~numberOfRowsInSection self = msg_send ~self ~cmd:(selector "tableView:numberOfRowsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfRowsInSection) +let tableView3 x ~willDisplayCell ~forRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:willDisplayCell:forRowAtIndexPath:") ~typ:(id @-> id @-> id @-> returning void) x willDisplayCell forRowAtIndexPath \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiSplitCategoryCell.ml b/uikit_extra/UIKeyboardEmojiSplitCategoryCell.ml index 779711cf..338df8c0 100644 --- a/uikit_extra/UIKeyboardEmojiSplitCategoryCell.ml +++ b/uikit_extra/UIKeyboardEmojiSplitCategoryCell.ml @@ -5,19 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmojiSplitCategoryCell" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojisplitcategorycell?language=objc}UIKeyboardEmojiSplitCategoryCell} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithStyle x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithStyle:reuseIdentifier:") ~typ:(llong @-> id @-> returning (id)) (LLong.of_int x) reuseIdentifier -let selectedCircle self = msg_send ~self ~cmd:(selector "selectedCircle") ~typ:(returning (id)) -let setPressIndicatorHidden x self = msg_send ~self ~cmd:(selector "setPressIndicatorHidden:") ~typ:(bool @-> returning (void)) x -let setSelectedCircle x self = msg_send ~self ~cmd:(selector "setSelectedCircle:") ~typ:(id @-> returning (void)) x -let setSelectedCircleBlendMode x self = msg_send ~self ~cmd:(selector "setSelectedCircleBlendMode:") ~typ:(bool @-> returning (void)) x -let setSymbol x self = msg_send ~self ~cmd:(selector "setSymbol:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setTitleText x self = msg_send ~self ~cmd:(selector "setTitleText:") ~typ:(id @-> returning (void)) x -let symbol self = msg_send ~self ~cmd:(selector "symbol") ~typ:(returning (id)) -let symbolFont self = msg_send ~self ~cmd:(selector "symbolFont") ~typ:(returning (id)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let titleFont self = msg_send ~self ~cmd:(selector "titleFont") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKeyboardEmojiSplitCategoryCell" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithStyle x ~reuseIdentifier self = msg_send ~self ~cmd:(selector "initWithStyle:reuseIdentifier:") ~typ:(llong @-> id @-> returning id) (LLong.of_int x) reuseIdentifier +let selectedCircle self = msg_send ~self ~cmd:(selector "selectedCircle") ~typ:(returning id) +let setPressIndicatorHidden x self = msg_send ~self ~cmd:(selector "setPressIndicatorHidden:") ~typ:(bool @-> returning void) x +let setSelectedCircle x self = msg_send ~self ~cmd:(selector "setSelectedCircle:") ~typ:(id @-> returning void) x +let setSelectedCircleBlendMode x self = msg_send ~self ~cmd:(selector "setSelectedCircleBlendMode:") ~typ:(bool @-> returning void) x +let setSymbol x self = msg_send ~self ~cmd:(selector "setSymbol:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let setTitleText x self = msg_send ~self ~cmd:(selector "setTitleText:") ~typ:(id @-> returning void) x +let symbol self = msg_send ~self ~cmd:(selector "symbol") ~typ:(returning id) +let symbolFont self = msg_send ~self ~cmd:(selector "symbolFont") ~typ:(returning id) +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let titleFont self = msg_send ~self ~cmd:(selector "titleFont") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiSplitCategoryPicker.ml b/uikit_extra/UIKeyboardEmojiSplitCategoryPicker.ml index bfde7e98..6c55bbf4 100644 --- a/uikit_extra/UIKeyboardEmojiSplitCategoryPicker.ml +++ b/uikit_extra/UIKeyboardEmojiSplitCategoryPicker.ml @@ -5,18 +5,22 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmojiSplitCategoryPicker" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojisplitcategorypicker?language=objc}UIKeyboardEmojiSplitCategoryPicker} *) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning (id)) x keyplane key -let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning (void)) x -let setWhiteText x self = msg_send ~self ~cmd:(selector "setWhiteText:") ~typ:(bool @-> returning (void)) x -let symbolForRow x self = msg_send ~self ~cmd:(selector "symbolForRow:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning (id)) x cellForRowAtIndexPath -let tableView' x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning (void)) x didSelectRowAtIndexPath -let titleForRow x ~fallback self = msg_send ~self ~cmd:(selector "titleForRow:fallback:") ~typ:(llong @-> bool @-> returning (id)) (LLong.of_int x) fallback -let updateCategorySelectedIndicator x self = msg_send ~self ~cmd:(selector "updateCategorySelectedIndicator:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let updateToCategory x self = msg_send ~self ~cmd:(selector "updateToCategory:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let whiteText self = msg_send ~self ~cmd:(selector "whiteText") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIKeyboardEmojiSplitCategoryPicker" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning id) x keyplane key +let setRenderConfig x self = msg_send ~self ~cmd:(selector "setRenderConfig:") ~typ:(id @-> returning void) x +let setWhiteText x self = msg_send ~self ~cmd:(selector "setWhiteText:") ~typ:(bool @-> returning void) x +let symbolForRow x self = msg_send ~self ~cmd:(selector "symbolForRow:") ~typ:(llong @-> returning id) (LLong.of_int x) +let tableView x ~cellForRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:cellForRowAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForRowAtIndexPath +let tableView' x ~didSelectRowAtIndexPath self = msg_send ~self ~cmd:(selector "tableView:didSelectRowAtIndexPath:") ~typ:(id @-> id @-> returning void) x didSelectRowAtIndexPath +let titleForRow x ~fallback self = msg_send ~self ~cmd:(selector "titleForRow:fallback:") ~typ:(llong @-> bool @-> returning id) (LLong.of_int x) fallback +let updateCategorySelectedIndicator x self = msg_send ~self ~cmd:(selector "updateCategorySelectedIndicator:") ~typ:(llong @-> returning void) (LLong.of_int x) +let updateToCategory x self = msg_send ~self ~cmd:(selector "updateToCategory:") ~typ:(llong @-> returning void) (LLong.of_int x) +let whiteText self = msg_send ~self ~cmd:(selector "whiteText") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiSplitCharacterPicker.ml b/uikit_extra/UIKeyboardEmojiSplitCharacterPicker.ml index 736fe0a8..12d13ea5 100644 --- a/uikit_extra/UIKeyboardEmojiSplitCharacterPicker.ml +++ b/uikit_extra/UIKeyboardEmojiSplitCharacterPicker.ml @@ -5,18 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmojiSplitCharacterPicker" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojisplitcharacterpicker?language=objc}UIKeyboardEmojiSplitCharacterPicker} *) -module C = struct - let wantsScreenTraits self = msg_send ~self ~cmd:(selector "wantsScreenTraits") ~typ:(returning (bool)) -end +let self = get_class "UIKeyboardEmojiSplitCharacterPicker" -let collectionView x ~layout ~minimumInteritemSpacingForSectionAtIndex self = msg_send ~self ~cmd:(selector "collectionView:layout:minimumInteritemSpacingForSectionAtIndex:") ~typ:(id @-> id @-> llong @-> returning (double)) x layout (LLong.of_int minimumInteritemSpacingForSectionAtIndex) -let collectionView' x ~layout ~minimumLineSpacingForSectionAtIndex self = msg_send ~self ~cmd:(selector "collectionView:layout:minimumLineSpacingForSectionAtIndex:") ~typ:(id @-> id @-> llong @-> returning (double)) x layout (LLong.of_int minimumLineSpacingForSectionAtIndex) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning (void)) -let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning (id)) x keyplane key -let scrollViewWillEndDragging x ~withVelocity ~targetContentOffset self = msg_send ~self ~cmd:(selector "scrollViewWillEndDragging:withVelocity:targetContentOffset:") ~typ:(id @-> CGPoint.t @-> ptr (CGPoint.t) @-> returning (void)) x withVelocity targetContentOffset -let snappedYOffsetForOffset x self = msg_send ~self ~cmd:(selector "snappedYOffsetForOffset:") ~typ:(double @-> returning (double)) x -let updateToCategory x self = msg_send ~self ~cmd:(selector "updateToCategory:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file +let collectionView x ~layout ~insetForSectionAtIndex self = msg_send ~self ~cmd:(selector "collectionView:layout:insetForSectionAtIndex:") ~typ:(id @-> id @-> llong @-> returning UIEdgeInsets.t) x layout (LLong.of_int insetForSectionAtIndex) +let collectionView1 x ~layout ~minimumInteritemSpacingForSectionAtIndex self = msg_send ~self ~cmd:(selector "collectionView:layout:minimumInteritemSpacingForSectionAtIndex:") ~typ:(id @-> id @-> llong @-> returning double) x layout (LLong.of_int minimumInteritemSpacingForSectionAtIndex) +let collectionView2 x ~layout ~minimumLineSpacingForSectionAtIndex self = msg_send ~self ~cmd:(selector "collectionView:layout:minimumLineSpacingForSectionAtIndex:") ~typ:(id @-> id @-> llong @-> returning double) x layout (LLong.of_int minimumLineSpacingForSectionAtIndex) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let initWithFrame x ~keyplane ~key self = msg_send ~self ~cmd:(selector "initWithFrame:keyplane:key:") ~typ:(CGRect.t @-> id @-> id @-> returning id) x keyplane key +let scrollViewWillEndDragging x ~withVelocity ~targetContentOffset self = msg_send ~self ~cmd:(selector "scrollViewWillEndDragging:withVelocity:targetContentOffset:") ~typ:(id @-> CGPoint.t @-> (ptr CGPoint.t) @-> returning void) x withVelocity targetContentOffset +let snappedYOffsetForOffset x self = msg_send ~self ~cmd:(selector "snappedYOffsetForOffset:") ~typ:(double @-> returning double) x +let updateToCategory x self = msg_send ~self ~cmd:(selector "updateToCategory:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiSplitCharacterPickerClass.ml b/uikit_extra/UIKeyboardEmojiSplitCharacterPickerClass.ml new file mode 100644 index 00000000..2e211792 --- /dev/null +++ b/uikit_extra/UIKeyboardEmojiSplitCharacterPickerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojisplitcharacterpicker?language=objc}UIKeyboardEmojiSplitCharacterPicker} *) + +let wantsScreenTraits self = msg_send ~self ~cmd:(selector "wantsScreenTraits") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardEmojiWellView.ml b/uikit_extra/UIKeyboardEmojiWellView.ml index e27a0a67..70c216c8 100644 --- a/uikit_extra/UIKeyboardEmojiWellView.ml +++ b/uikit_extra/UIKeyboardEmojiWellView.ml @@ -5,35 +5,39 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardEmojiWellView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardemojiwellview?language=objc}UIKeyboardEmojiWellView} *) -let associatedIndexPath self = msg_send ~self ~cmd:(selector "associatedIndexPath") ~typ:(returning (id)) -let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning (id)) -let compositeImageRepresentation self = msg_send ~self ~cmd:(selector "compositeImageRepresentation") ~typ:(returning (id)) -let compositeImageSize self = msg_send_stret ~self ~cmd:(selector "compositeImageSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let fontUsingSilhouette x ~size self = msg_send ~self ~cmd:(selector "fontUsingSilhouette:size:") ~typ:(ullong @-> double @-> returning (id)) (ULLong.of_int x) size -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isActiveSelection self = msg_send ~self ~cmd:(selector "isActiveSelection") ~typ:(returning (bool)) -let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning (bool)) -let labelFont self = msg_send ~self ~cmd:(selector "labelFont") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let selectionBackgroundColor self = msg_send ~self ~cmd:(selector "selectionBackgroundColor") ~typ:(returning (id)) -let setActiveSelection x self = msg_send ~self ~cmd:(selector "setActiveSelection:") ~typ:(bool @-> returning (void)) x -let setAssociatedIndexPath x self = msg_send ~self ~cmd:(selector "setAssociatedIndexPath:") ~typ:(id @-> returning (void)) x -let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning (void)) x -let setCompositeImageRepresentation x self = msg_send ~self ~cmd:(selector "setCompositeImageRepresentation:") ~typ:(id @-> returning (void)) x -let setCompositeImageSize x self = msg_send ~self ~cmd:(selector "setCompositeImageSize:") ~typ:(CGSize.t @-> returning (void)) x -let setLabelFont x self = msg_send ~self ~cmd:(selector "setLabelFont:") ~typ:(id @-> returning (void)) x -let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning (void)) x -let setSelectionBackgroundColor x self = msg_send ~self ~cmd:(selector "setSelectionBackgroundColor:") ~typ:(id @-> returning (void)) x -let setStringRepresentation x self = msg_send ~self ~cmd:(selector "setStringRepresentation:") ~typ:(id @-> returning (void)) x -let setStringRepresentation' x ~silhouette self = msg_send ~self ~cmd:(selector "setStringRepresentation:silhouette:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int silhouette) -let setUnreleasedBanner x self = msg_send ~self ~cmd:(selector "setUnreleasedBanner:") ~typ:(id @-> returning (void)) x -let setUnreleasedHighlight x self = msg_send ~self ~cmd:(selector "setUnreleasedHighlight:") ~typ:(bool @-> returning (void)) x -let setWellContentView x self = msg_send ~self ~cmd:(selector "setWellContentView:") ~typ:(id @-> returning (void)) x -let stringRepresentation self = msg_send ~self ~cmd:(selector "stringRepresentation") ~typ:(returning (id)) -let unreleasedBanner self = msg_send ~self ~cmd:(selector "unreleasedBanner") ~typ:(returning (id)) -let unreleasedHighlight self = msg_send ~self ~cmd:(selector "unreleasedHighlight") ~typ:(returning (bool)) -let wellContentView self = msg_send ~self ~cmd:(selector "wellContentView") ~typ:(returning (id)) \ No newline at end of file +let self = get_class "UIKeyboardEmojiWellView" + +let associatedIndexPath self = msg_send ~self ~cmd:(selector "associatedIndexPath") ~typ:(returning id) +let backgroundView self = msg_send ~self ~cmd:(selector "backgroundView") ~typ:(returning id) +let compositeImageRepresentation self = msg_send ~self ~cmd:(selector "compositeImageRepresentation") ~typ:(returning id) +let compositeImageSize self = msg_send ~self ~cmd:(selector "compositeImageSize") ~typ:(returning CGSize.t) +let fontUsingSilhouette x ~size self = msg_send ~self ~cmd:(selector "fontUsingSilhouette:size:") ~typ:(ullong @-> double @-> returning id) (ULLong.of_int x) size +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isActiveSelection self = msg_send ~self ~cmd:(selector "isActiveSelection") ~typ:(returning bool) +let isSelected self = msg_send ~self ~cmd:(selector "isSelected") ~typ:(returning bool) +let labelFont self = msg_send ~self ~cmd:(selector "labelFont") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let selectionBackgroundColor self = msg_send ~self ~cmd:(selector "selectionBackgroundColor") ~typ:(returning id) +let setActiveSelection x self = msg_send ~self ~cmd:(selector "setActiveSelection:") ~typ:(bool @-> returning void) x +let setAssociatedIndexPath x self = msg_send ~self ~cmd:(selector "setAssociatedIndexPath:") ~typ:(id @-> returning void) x +let setBackgroundView x self = msg_send ~self ~cmd:(selector "setBackgroundView:") ~typ:(id @-> returning void) x +let setCompositeImageRepresentation x self = msg_send ~self ~cmd:(selector "setCompositeImageRepresentation:") ~typ:(id @-> returning void) x +let setCompositeImageSize x self = msg_send ~self ~cmd:(selector "setCompositeImageSize:") ~typ:(CGSize.t @-> returning void) x +let setLabelFont x self = msg_send ~self ~cmd:(selector "setLabelFont:") ~typ:(id @-> returning void) x +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let setSelectionBackgroundColor x self = msg_send ~self ~cmd:(selector "setSelectionBackgroundColor:") ~typ:(id @-> returning void) x +let setStringRepresentation x self = msg_send ~self ~cmd:(selector "setStringRepresentation:") ~typ:(id @-> returning void) x +let setStringRepresentation' x ~silhouette self = msg_send ~self ~cmd:(selector "setStringRepresentation:silhouette:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int silhouette) +let setUnreleasedBanner x self = msg_send ~self ~cmd:(selector "setUnreleasedBanner:") ~typ:(id @-> returning void) x +let setUnreleasedHighlight x self = msg_send ~self ~cmd:(selector "setUnreleasedHighlight:") ~typ:(bool @-> returning void) x +let setWellContentView x self = msg_send ~self ~cmd:(selector "setWellContentView:") ~typ:(id @-> returning void) x +let stringRepresentation self = msg_send ~self ~cmd:(selector "stringRepresentation") ~typ:(returning id) +let unreleasedBanner self = msg_send ~self ~cmd:(selector "unreleasedBanner") ~typ:(returning id) +let unreleasedHighlight self = msg_send ~self ~cmd:(selector "unreleasedHighlight") ~typ:(returning bool) +let wellContentView self = msg_send ~self ~cmd:(selector "wellContentView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardFloatingTransitionController.ml b/uikit_extra/UIKeyboardFloatingTransitionController.ml new file mode 100644 index 00000000..810c924b --- /dev/null +++ b/uikit_extra/UIKeyboardFloatingTransitionController.ml @@ -0,0 +1,80 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardfloatingtransitioncontroller?language=objc}UIKeyboardFloatingTransitionController} *) + +let self = get_class "UIKeyboardFloatingTransitionController" + +let addGestureRecognizersToView x self = msg_send ~self ~cmd:(selector "addGestureRecognizersToView:") ~typ:(id @-> returning void) x +let animationBehavior self = msg_send ~self ~cmd:(selector "animationBehavior") ~typ:(returning id) +let beginPanGesture x self = msg_send ~self ~cmd:(selector "beginPanGesture:") ~typ:(id @-> returning void) x +let beginPinchGesture x self = msg_send ~self ~cmd:(selector "beginPinchGesture:") ~typ:(id @-> returning void) x +let beginTransitionAtPoint x ~withScale self = msg_send ~self ~cmd:(selector "beginTransitionAtPoint:withScale:") ~typ:(CGPoint.t @-> double @-> returning void) x withScale +let beginTransitionFromPanGestureRecognizer x self = msg_send ~self ~cmd:(selector "beginTransitionFromPanGestureRecognizer:") ~typ:(id @-> returning void) x +let captureStateForStart x self = msg_send ~self ~cmd:(selector "captureStateForStart:") ~typ:(bool @-> returning void) x +let commonVisibleKeys self = msg_send ~self ~cmd:(selector "commonVisibleKeys") ~typ:(returning id) +let constrainAccessoryViewToBottom self = msg_send ~self ~cmd:(selector "constrainAccessoryViewToBottom") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let endPanGesture x self = msg_send ~self ~cmd:(selector "endPanGesture:") ~typ:(id @-> returning void) x +let endPinchGesture x self = msg_send ~self ~cmd:(selector "endPinchGesture:") ~typ:(id @-> returning void) x +let endState self = msg_send ~self ~cmd:(selector "endState") ~typ:(returning id) +let endTransitionAtPoint x ~withScale self = msg_send ~self ~cmd:(selector "endTransitionAtPoint:withScale:") ~typ:(CGPoint.t @-> double @-> returning void) x withScale +let expandedForDocking self = msg_send ~self ~cmd:(selector "expandedForDocking") ~typ:(returning bool) +let finalizeTransition self = msg_send ~self ~cmd:(selector "finalizeTransition") ~typ:(returning void) +let gestureBeginTime self = msg_send ~self ~cmd:(selector "gestureBeginTime") ~typ:(returning double) +let gestureRecognizer x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldRecognizeSimultaneouslyWithGestureRecognizer +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let handlePanGestureRecognizerAction x self = msg_send ~self ~cmd:(selector "handlePanGestureRecognizerAction:") ~typ:(id @-> returning void) x +let handlePinchGestureRecognizerAction x self = msg_send ~self ~cmd:(selector "handlePinchGestureRecognizerAction:") ~typ:(id @-> returning void) x +let initializeContextAtPoint x self = msg_send ~self ~cmd:(selector "initializeContextAtPoint:") ~typ:(CGPoint.t @-> returning void) x +let inputViewSnapshot x ~withPlatterInsets self = msg_send ~self ~cmd:(selector "inputViewSnapshot:withPlatterInsets:") ~typ:((ptr id) @-> (ptr UIEdgeInsets.t) @-> returning void) x withPlatterInsets +let inputWindowController self = msg_send ~self ~cmd:(selector "inputWindowController") ~typ:(returning id) +let isTransitioning self = msg_send ~self ~cmd:(selector "isTransitioning") ~typ:(returning bool) +let lastGestureCenter self = msg_send ~self ~cmd:(selector "lastGestureCenter") ~typ:(returning CGPoint.t) +let panGestureRecognizer self = msg_send ~self ~cmd:(selector "panGestureRecognizer") ~typ:(returning id) +let pillView self = msg_send ~self ~cmd:(selector "pillView") ~typ:(returning id) +let pinchGestureRecognizer self = msg_send ~self ~cmd:(selector "pinchGestureRecognizer") ~typ:(returning id) +let platterCornerRadiusView self = msg_send ~self ~cmd:(selector "platterCornerRadiusView") ~typ:(returning id) +let platterPopoverBackgroundView self = msg_send ~self ~cmd:(selector "platterPopoverBackgroundView") ~typ:(returning id) +let platterView self = msg_send ~self ~cmd:(selector "platterView") ~typ:(returning id) +let platterVisualEffectView self = msg_send ~self ~cmd:(selector "platterVisualEffectView") ~typ:(returning id) +let progress self = msg_send ~self ~cmd:(selector "progress") ~typ:(returning double) +let removeGestureRecognizers self = msg_send ~self ~cmd:(selector "removeGestureRecognizers") ~typ:(returning void) +let restoreAccessoryViewConstraints self = msg_send ~self ~cmd:(selector "restoreAccessoryViewConstraints") ~typ:(returning void) +let setAnimationBehavior x self = msg_send ~self ~cmd:(selector "setAnimationBehavior:") ~typ:(id @-> returning void) x +let setCommonVisibleKeys x self = msg_send ~self ~cmd:(selector "setCommonVisibleKeys:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setEndState x self = msg_send ~self ~cmd:(selector "setEndState:") ~typ:(id @-> returning void) x +let setExpandedForDocking x self = msg_send ~self ~cmd:(selector "setExpandedForDocking:") ~typ:(bool @-> returning void) x +let setGestureBeginTime x self = msg_send ~self ~cmd:(selector "setGestureBeginTime:") ~typ:(double @-> returning void) x +let setInputWindowController x self = msg_send ~self ~cmd:(selector "setInputWindowController:") ~typ:(id @-> returning void) x +let setIsTransitioning x self = msg_send ~self ~cmd:(selector "setIsTransitioning:") ~typ:(bool @-> returning void) x +let setLastGestureCenter x self = msg_send ~self ~cmd:(selector "setLastGestureCenter:") ~typ:(CGPoint.t @-> returning void) x +let setPanGestureRecognizer x self = msg_send ~self ~cmd:(selector "setPanGestureRecognizer:") ~typ:(id @-> returning void) x +let setPillView x self = msg_send ~self ~cmd:(selector "setPillView:") ~typ:(id @-> returning void) x +let setPinchGestureRecognizer x self = msg_send ~self ~cmd:(selector "setPinchGestureRecognizer:") ~typ:(id @-> returning void) x +let setPlatterCornerRadiusView x self = msg_send ~self ~cmd:(selector "setPlatterCornerRadiusView:") ~typ:(id @-> returning void) x +let setPlatterPopoverBackgroundView x self = msg_send ~self ~cmd:(selector "setPlatterPopoverBackgroundView:") ~typ:(id @-> returning void) x +let setPlatterView x self = msg_send ~self ~cmd:(selector "setPlatterView:") ~typ:(id @-> returning void) x +let setPlatterVisualEffectView x self = msg_send ~self ~cmd:(selector "setPlatterVisualEffectView:") ~typ:(id @-> returning void) x +let setProgress x self = msg_send ~self ~cmd:(selector "setProgress:") ~typ:(double @-> returning void) x +let setStartState x self = msg_send ~self ~cmd:(selector "setStartState:") ~typ:(id @-> returning void) x +let setStartedFromFloating x self = msg_send ~self ~cmd:(selector "setStartedFromFloating:") ~typ:(bool @-> returning void) x +let setWithinDockingRegion x self = msg_send ~self ~cmd:(selector "setWithinDockingRegion:") ~typ:(bool @-> returning void) x +let startState self = msg_send ~self ~cmd:(selector "startState") ~typ:(returning id) +let startedFromFloating self = msg_send ~self ~cmd:(selector "startedFromFloating") ~typ:(returning bool) +let updateAnimationAtScale x self = msg_send ~self ~cmd:(selector "updateAnimationAtScale:") ~typ:(double @-> returning void) x +let updateHysteresisForCurrentFloatingState self = msg_send ~self ~cmd:(selector "updateHysteresisForCurrentFloatingState") ~typ:(returning void) +let updateLayoutGuideForTransitionStart x self = msg_send ~self ~cmd:(selector "updateLayoutGuideForTransitionStart:") ~typ:(bool @-> returning void) x +let updateLayoutGuideFromFrame x self = msg_send ~self ~cmd:(selector "updateLayoutGuideFromFrame:") ~typ:(CGRect.t @-> returning void) x +let updatePanGesture x self = msg_send ~self ~cmd:(selector "updatePanGesture:") ~typ:(id @-> returning void) x +let updatePinchGesture x self = msg_send ~self ~cmd:(selector "updatePinchGesture:") ~typ:(id @-> returning void) x +let updateTransitionAtPoint x ~withScale ~interactive self = msg_send ~self ~cmd:(selector "updateTransitionAtPoint:withScale:interactive:") ~typ:(CGPoint.t @-> double @-> bool @-> returning void) x withScale interactive +let withinDockingRegion self = msg_send ~self ~cmd:(selector "withinDockingRegion") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardFloatingTransitionControllerClass.ml b/uikit_extra/UIKeyboardFloatingTransitionControllerClass.ml new file mode 100644 index 00000000..8af4ccfe --- /dev/null +++ b/uikit_extra/UIKeyboardFloatingTransitionControllerClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardfloatingtransitioncontroller?language=objc}UIKeyboardFloatingTransitionController} *) + +let dockingRegion self = msg_send ~self ~cmd:(selector "dockingRegion") ~typ:(returning CGRect.t) +let isPointWithinDockingRegion x self = msg_send ~self ~cmd:(selector "isPointWithinDockingRegion:") ~typ:(CGPoint.t @-> returning bool) x +let magneticEdgeMargin self = msg_send ~self ~cmd:(selector "magneticEdgeMargin") ~typ:(returning double) +let snapshotOfKeyplaneView x self = msg_send ~self ~cmd:(selector "snapshotOfKeyplaneView:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIKeyboardFloatingTransitionState.ml b/uikit_extra/UIKeyboardFloatingTransitionState.ml new file mode 100644 index 00000000..b5e0db30 --- /dev/null +++ b/uikit_extra/UIKeyboardFloatingTransitionState.ml @@ -0,0 +1,34 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardfloatingtransitionstate?language=objc}UIKeyboardFloatingTransitionState} *) + +let self = get_class "UIKeyboardFloatingTransitionState" + +let borderColor self = msg_send ~self ~cmd:(selector "borderColor") ~typ:(returning id) +let borderWidth self = msg_send ~self ~cmd:(selector "borderWidth") ~typ:(returning double) +let cornerRadius self = msg_send ~self ~cmd:(selector "cornerRadius") ~typ:(returning double) +let finalInputViewTransform self = msg_send ~self ~cmd:(selector "finalInputViewTransform") ~typ:(returning CGAffineTransform.t) +let initialInputViewTransform self = msg_send ~self ~cmd:(selector "initialInputViewTransform") ~typ:(returning CGAffineTransform.t) +let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning id) +let inputViewFrame self = msg_send ~self ~cmd:(selector "inputViewFrame") ~typ:(returning CGRect.t) +let platterInsets self = msg_send ~self ~cmd:(selector "platterInsets") ~typ:(returning UIEdgeInsets.t) +let platterViewFrame self = msg_send ~self ~cmd:(selector "platterViewFrame") ~typ:(returning CGRect.t) +let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning CGPoint.t) +let setBorderColor x self = msg_send ~self ~cmd:(selector "setBorderColor:") ~typ:(id @-> returning void) x +let setBorderWidth x self = msg_send ~self ~cmd:(selector "setBorderWidth:") ~typ:(double @-> returning void) x +let setCornerRadius x self = msg_send ~self ~cmd:(selector "setCornerRadius:") ~typ:(double @-> returning void) x +let setFinalInputViewTransform x self = msg_send ~self ~cmd:(selector "setFinalInputViewTransform:") ~typ:(CGAffineTransform.t @-> returning void) x +let setInitialInputViewTransform x self = msg_send ~self ~cmd:(selector "setInitialInputViewTransform:") ~typ:(CGAffineTransform.t @-> returning void) x +let setInputView x self = msg_send ~self ~cmd:(selector "setInputView:") ~typ:(id @-> returning void) x +let setInputViewFrame x self = msg_send ~self ~cmd:(selector "setInputViewFrame:") ~typ:(CGRect.t @-> returning void) x +let setPlatterInsets x self = msg_send ~self ~cmd:(selector "setPlatterInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setPlatterViewFrame x self = msg_send ~self ~cmd:(selector "setPlatterViewFrame:") ~typ:(CGRect.t @-> returning void) x +let setScale x self = msg_send ~self ~cmd:(selector "setScale:") ~typ:(CGPoint.t @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKeyboardImpl.ml b/uikit_extra/UIKeyboardImpl.ml new file mode 100644 index 00000000..7b0f26e5 --- /dev/null +++ b/uikit_extra/UIKeyboardImpl.ml @@ -0,0 +1,825 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardimpl?language=objc}UIKeyboardImpl} *) + +let self = get_class "UIKeyboardImpl" + +let _UILanguagePreference self = msg_send ~self ~cmd:(selector "UILanguagePreference") ~typ:(returning id) +let acceptAutocorrection self = msg_send ~self ~cmd:(selector "acceptAutocorrection") ~typ:(returning void) +let acceptAutocorrection' x ~executionContextPassingTIKeyboardCandidate self = msg_send ~self ~cmd:(selector "acceptAutocorrection:executionContextPassingTIKeyboardCandidate:") ~typ:(id @-> id @-> returning void) x executionContextPassingTIKeyboardCandidate +let acceptAutocorrectionAndEndComposition self = msg_send ~self ~cmd:(selector "acceptAutocorrectionAndEndComposition") ~typ:(returning void) +let acceptAutocorrectionForWordTerminator x self = msg_send ~self ~cmd:(selector "acceptAutocorrectionForWordTerminator:") ~typ:(id @-> returning id) x +let acceptAutocorrectionForWordTerminator' x ~executionContextPassingTIKeyboardCandidate self = msg_send ~self ~cmd:(selector "acceptAutocorrectionForWordTerminator:executionContextPassingTIKeyboardCandidate:") ~typ:(id @-> id @-> returning void) x executionContextPassingTIKeyboardCandidate +let acceptCandidate x self = msg_send ~self ~cmd:(selector "acceptCandidate:") ~typ:(id @-> returning void) x +let acceptCandidate1 x ~forInput self = msg_send ~self ~cmd:(selector "acceptCandidate:forInput:") ~typ:(id @-> id @-> returning void) x forInput +let acceptCandidate2 x ~forInput ~executionContext self = msg_send ~self ~cmd:(selector "acceptCandidate:forInput:executionContext:") ~typ:(id @-> id @-> id @-> returning void) x forInput executionContext +let acceptCurrentCandidate self = msg_send ~self ~cmd:(selector "acceptCurrentCandidate") ~typ:(returning id) +let acceptCurrentCandidateForInput x self = msg_send ~self ~cmd:(selector "acceptCurrentCandidateForInput:") ~typ:(id @-> returning id) x +let acceptCurrentCandidateIfSelected self = msg_send ~self ~cmd:(selector "acceptCurrentCandidateIfSelected") ~typ:(returning void) +let acceptCurrentCandidateIfSelectedWithExecutionContext x self = msg_send ~self ~cmd:(selector "acceptCurrentCandidateIfSelectedWithExecutionContext:") ~typ:(id @-> returning void) x +let acceptFirstCandidate self = msg_send ~self ~cmd:(selector "acceptFirstCandidate") ~typ:(returning void) +let acceptHandwritingCandidate self = msg_send ~self ~cmd:(selector "acceptHandwritingCandidate") ~typ:(returning void) +let acceptInlineCandidate self = msg_send ~self ~cmd:(selector "acceptInlineCandidate") ~typ:(returning id) +let acceptInlineCandidateForInput x self = msg_send ~self ~cmd:(selector "acceptInlineCandidateForInput:") ~typ:(id @-> returning id) x +let acceptInputString x self = msg_send ~self ~cmd:(selector "acceptInputString:") ~typ:(id @-> returning bool) x +let acceptPredictiveInput x self = msg_send ~self ~cmd:(selector "acceptPredictiveInput:") ~typ:(id @-> returning void) x +let acceptPredictiveInput' x ~executionContext self = msg_send ~self ~cmd:(selector "acceptPredictiveInput:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let acceptRecentInput x self = msg_send ~self ~cmd:(selector "acceptRecentInput:") ~typ:(id @-> returning void) x +let acceptWord x ~firstDelete self = msg_send ~self ~cmd:(selector "acceptWord:firstDelete:") ~typ:(id @-> ullong @-> returning bool) x (ULLong.of_int firstDelete) +let acceptWord' x ~firstDelete ~forInput self = msg_send ~self ~cmd:(selector "acceptWord:firstDelete:forInput:") ~typ:(id @-> ullong @-> id @-> returning bool) x (ULLong.of_int firstDelete) forInput +let accessibilityUsesExtendedKeyboardPredictionsEnabled self = msg_send ~self ~cmd:(selector "accessibilityUsesExtendedKeyboardPredictionsEnabled") ~typ:(returning bool) +let activeLayout self = msg_send ~self ~cmd:(selector "activeLayout") ~typ:(returning id) +let addInputEvent x ~executionContext self = msg_send ~self ~cmd:(selector "addInputEvent:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let addInputObject x self = msg_send ~self ~cmd:(selector "addInputObject:") ~typ:(id @-> returning void) x +let addInputObject' x ~executionContext self = msg_send ~self ~cmd:(selector "addInputObject:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let addInputString x self = msg_send ~self ~cmd:(selector "addInputString:") ~typ:(id @-> returning void) x +let addInputString1 x ~fromVariantKey self = msg_send ~self ~cmd:(selector "addInputString:fromVariantKey:") ~typ:(id @-> bool @-> returning void) x fromVariantKey +let addInputString2 x ~withFlags self = msg_send ~self ~cmd:(selector "addInputString:withFlags:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int withFlags) +let addInputString3 x ~withFlags ~executionContext self = msg_send ~self ~cmd:(selector "addInputString:withFlags:executionContext:") ~typ:(id @-> ullong @-> id @-> returning void) x (ULLong.of_int withFlags) executionContext +let addInputString4 x ~withFlags ~withInputManagerHint self = msg_send ~self ~cmd:(selector "addInputString:withFlags:withInputManagerHint:") ~typ:(id @-> ullong @-> id @-> returning void) x (ULLong.of_int withFlags) withInputManagerHint +let addInputString5 x ~withFlags ~withInputManagerHint ~executionContext self = msg_send ~self ~cmd:(selector "addInputString:withFlags:withInputManagerHint:executionContext:") ~typ:(id @-> ullong @-> id @-> id @-> returning void) x (ULLong.of_int withFlags) withInputManagerHint executionContext +let addSupplementalLexicon x self = msg_send ~self ~cmd:(selector "addSupplementalLexicon:") ~typ:(id @-> returning void) x +let addWordTerminator x ~afterSpace ~afterAcceptingCandidate ~elapsedTime ~executionContext self = msg_send ~self ~cmd:(selector "addWordTerminator:afterSpace:afterAcceptingCandidate:elapsedTime:executionContext:") ~typ:(id @-> bool @-> id @-> double @-> id @-> returning void) x afterSpace afterAcceptingCandidate elapsedTime executionContext +let adjustAutoDeleteTimerForForce x self = msg_send ~self ~cmd:(selector "adjustAutoDeleteTimerForForce:") ~typ:(double @-> returning void) x +let adjustCapsLockDelayOverride self = msg_send ~self ~cmd:(selector "adjustCapsLockDelayOverride") ~typ:(returning void) +let adjustPhraseBoundaryInForwardDirection x ~granularity ~executionContext self = msg_send ~self ~cmd:(selector "adjustPhraseBoundaryInForwardDirection:granularity:executionContext:") ~typ:(bool @-> int @-> id @-> returning void) x granularity executionContext +let adjustSegmentSize x self = msg_send ~self ~cmd:(selector "adjustSegmentSize:") ~typ:(llong @-> returning void) (LLong.of_int x) +let allowsReachableKeyboard self = msg_send ~self ~cmd:(selector "allowsReachableKeyboard") ~typ:(returning bool) +let alternativePredictions self = msg_send ~self ~cmd:(selector "alternativePredictions") ~typ:(returning id) +let animateAutocorrectionToRect x ~fromRect self = msg_send ~self ~cmd:(selector "animateAutocorrectionToRect:fromRect:") ~typ:(CGRect.t @-> CGRect.t @-> returning void) x fromRect +let animateAutocorrectionToText x ~fromRect self = msg_send ~self ~cmd:(selector "animateAutocorrectionToText:fromRect:") ~typ:(id @-> CGRect.t @-> returning void) x fromRect +let animateUpdateBars self = msg_send ~self ~cmd:(selector "animateUpdateBars") ~typ:(returning bool) +let applicationResumed x self = msg_send ~self ~cmd:(selector "applicationResumed:") ~typ:(id @-> returning void) x +let applicationResumedEventsOnly x self = msg_send ~self ~cmd:(selector "applicationResumedEventsOnly:") ~typ:(id @-> returning void) x +let applicationSuspendedEventsOnly x self = msg_send ~self ~cmd:(selector "applicationSuspendedEventsOnly:") ~typ:(id @-> returning void) x +let applyAutocorrection x self = msg_send ~self ~cmd:(selector "applyAutocorrection:") ~typ:(id @-> returning bool) x +let arrowKeyHistory self = msg_send ~self ~cmd:(selector "arrowKeyHistory") ~typ:(returning id) +let assertIntermediateText x self = msg_send ~self ~cmd:(selector "assertIntermediateText:") ~typ:(id @-> returning void) x +let assertTextForRemoteDocument x ~withSelectionRange ~updatingSelection self = msg_send ~self ~cmd:(selector "assertTextForRemoteDocument:withSelectionRange:updatingSelection:") ~typ:(id @-> NSRange.t @-> bool @-> returning void) x withSelectionRange updatingSelection +let asynchronousInputDelegate self = msg_send ~self ~cmd:(selector "asynchronousInputDelegate") ~typ:(returning id) +let attributedText self = msg_send ~self ~cmd:(selector "attributedText") ~typ:(returning id) +let autocapitalizationPreference self = msg_send ~self ~cmd:(selector "autocapitalizationPreference") ~typ:(returning bool) +let autocorrectBubbleContainer self = msg_send ~self ~cmd:(selector "autocorrectBubbleContainer") ~typ:(returning id) +let autocorrectPrompt self = msg_send ~self ~cmd:(selector "autocorrectPrompt") ~typ:(returning id) +let autocorrectPromptRectsForInput x self = msg_send ~self ~cmd:(selector "autocorrectPromptRectsForInput:") ~typ:(id @-> returning id) x +let autocorrectPromptRectsFromFirstDelegateRect x ~lastDelegateRect self = msg_send ~self ~cmd:(selector "autocorrectPromptRectsFromFirstDelegateRect:lastDelegateRect:") ~typ:(CGRect.t @-> CGRect.t @-> returning id) x lastDelegateRect +let autocorrectPromptTask self = msg_send ~self ~cmd:(selector "autocorrectPromptTask") ~typ:(returning id) +let autocorrectSpellingEnabled self = msg_send ~self ~cmd:(selector "autocorrectSpellingEnabled") ~typ:(returning bool) +let autocorrectionAnimationDidStopWithAutocorrectionView x self = msg_send ~self ~cmd:(selector "autocorrectionAnimationDidStopWithAutocorrectionView:") ~typ:(id @-> returning void) x +let autocorrectionController self = msg_send ~self ~cmd:(selector "autocorrectionController") ~typ:(returning id) +let autocorrectionPreference self = msg_send ~self ~cmd:(selector "autocorrectionPreference") ~typ:(returning bool) +let autocorrectionPreferenceForTraits self = msg_send ~self ~cmd:(selector "autocorrectionPreferenceForTraits") ~typ:(returning ullong) +let autocorrectionRecordForWord x self = msg_send ~self ~cmd:(selector "autocorrectionRecordForWord:") ~typ:(id @-> returning id) x +let autocorrectionToAcceptBeforeProgressiveCandidates self = msg_send ~self ~cmd:(selector "autocorrectionToAcceptBeforeProgressiveCandidates") ~typ:(returning id) +let autofillController self = msg_send ~self ~cmd:(selector "autofillController") ~typ:(returning id) +let automaticMinimizationEnabled self = msg_send ~self ~cmd:(selector "automaticMinimizationEnabled") ~typ:(returning bool) +let beginFloatingTransitionFromPanGestureRecognizer x self = msg_send ~self ~cmd:(selector "beginFloatingTransitionFromPanGestureRecognizer:") ~typ:(id @-> returning void) x +let biasedKeyboardWidthRatio self = msg_send ~self ~cmd:(selector "biasedKeyboardWidthRatio") ~typ:(returning double) +let callChanged self = msg_send ~self ~cmd:(selector "callChanged") ~typ:(returning void) +let callLayoutIgnoresShiftState self = msg_send ~self ~cmd:(selector "callLayoutIgnoresShiftState") ~typ:(returning bool) +let callLayoutIsGeometricShiftOrMoreKeyForTouch x self = msg_send ~self ~cmd:(selector "callLayoutIsGeometricShiftOrMoreKeyForTouch:") ~typ:(id @-> returning bool) x +let callLayoutIsShiftKeyBeingHeld self = msg_send ~self ~cmd:(selector "callLayoutIsShiftKeyBeingHeld") ~typ:(returning bool) +let callLayoutIsShiftKeyPlaneChooser self = msg_send ~self ~cmd:(selector "callLayoutIsShiftKeyPlaneChooser") ~typ:(returning bool) +let callLayoutLongPressAction self = msg_send ~self ~cmd:(selector "callLayoutLongPressAction") ~typ:(returning void) +let callLayoutSetAutoshift x self = msg_send ~self ~cmd:(selector "callLayoutSetAutoshift:") ~typ:(bool @-> returning void) x +let callLayoutSetShift x self = msg_send ~self ~cmd:(selector "callLayoutSetShift:") ~typ:(bool @-> returning void) x +let callLayoutUpdateAllLocalizedKeys self = msg_send ~self ~cmd:(selector "callLayoutUpdateAllLocalizedKeys") ~typ:(returning void) +let callLayoutUpdateLocalizedKeys self = msg_send ~self ~cmd:(selector "callLayoutUpdateLocalizedKeys") ~typ:(returning void) +let callLayoutUpdateRecentInputs self = msg_send ~self ~cmd:(selector "callLayoutUpdateRecentInputs") ~typ:(returning void) +let callLayoutUpdateReturnKey self = msg_send ~self ~cmd:(selector "callLayoutUpdateReturnKey") ~typ:(returning void) +let callLayoutUsesAutoShift self = msg_send ~self ~cmd:(selector "callLayoutUsesAutoShift") ~typ:(returning bool) +let callShouldDeleteWithWordCountForRapidDelete x ~characterCountForRapidDelete self = msg_send ~self ~cmd:(selector "callShouldDeleteWithWordCountForRapidDelete:characterCountForRapidDelete:") ~typ:(int @-> int @-> returning bool) x characterCountForRapidDelete +let callShouldInsertText x self = msg_send ~self ~cmd:(selector "callShouldInsertText:") ~typ:(id @-> returning bool) x +let callShouldInsertText' x ~onDelegate self = msg_send ~self ~cmd:(selector "callShouldInsertText:onDelegate:") ~typ:(id @-> id @-> returning bool) x onDelegate +let canHandleDelete self = msg_send ~self ~cmd:(selector "canHandleDelete") ~typ:(returning bool) +let canHandleEvent x self = msg_send ~self ~cmd:(selector "canHandleEvent:") ~typ:(id @-> returning bool) x +let canHandleKeyHitTest self = msg_send ~self ~cmd:(selector "canHandleKeyHitTest") ~typ:(returning bool) +let canPasteImage self = msg_send ~self ~cmd:(selector "canPasteImage") ~typ:(returning bool) +let canPresentEmojiPopover self = msg_send ~self ~cmd:(selector "canPresentEmojiPopover") ~typ:(returning bool) +let canPresentOrDismissEmojiPopover self = msg_send ~self ~cmd:(selector "canPresentOrDismissEmojiPopover") ~typ:(returning bool) +let canShowAppConnections self = msg_send ~self ~cmd:(selector "canShowAppConnections") ~typ:(returning bool) +let canShowPredictionBar self = msg_send ~self ~cmd:(selector "canShowPredictionBar") ~typ:(returning bool) +let canUseCandidateBarAsSupplementToInlineView self = msg_send ~self ~cmd:(selector "canUseCandidateBarAsSupplementToInlineView") ~typ:(returning bool) +let cancelAllKeyEvents self = msg_send ~self ~cmd:(selector "cancelAllKeyEvents") ~typ:(returning void) +let cancelCandidateRequests self = msg_send ~self ~cmd:(selector "cancelCandidateRequests") ~typ:(returning void) +let cancelSplitTransition self = msg_send ~self ~cmd:(selector "cancelSplitTransition") ~typ:(returning void) +let candidateBarDidExtendWithGesture self = msg_send ~self ~cmd:(selector "candidateBarDidExtendWithGesture") ~typ:(returning void) +let candidateController self = msg_send ~self ~cmd:(selector "candidateController") ~typ:(returning id) +let candidateList self = msg_send ~self ~cmd:(selector "candidateList") ~typ:(returning id) +let candidateListAcceptCandidate x self = msg_send ~self ~cmd:(selector "candidateListAcceptCandidate:") ~typ:(id @-> returning void) x +let candidateListInvalidateSelection x self = msg_send ~self ~cmd:(selector "candidateListInvalidateSelection:") ~typ:(id @-> returning void) x +let candidateListSelectionDidChange x self = msg_send ~self ~cmd:(selector "candidateListSelectionDidChange:") ~typ:(id @-> returning void) x +let candidateSelectionPredictionForTraits self = msg_send ~self ~cmd:(selector "candidateSelectionPredictionForTraits") ~typ:(returning bool) +let candidateViewOffset self = msg_send ~self ~cmd:(selector "candidateViewOffset") ~typ:(returning llong) +let capsLockKeyHasLanguageSwitchLabel self = msg_send ~self ~cmd:(selector "capsLockKeyHasLanguageSwitchLabel") ~typ:(returning bool) +let caretBlinks self = msg_send ~self ~cmd:(selector "caretBlinks") ~typ:(returning bool) +let caretVisible self = msg_send ~self ~cmd:(selector "caretVisible") ~typ:(returning bool) +let centerFilled self = msg_send ~self ~cmd:(selector "centerFilled") ~typ:(returning bool) +let changeCount self = msg_send ~self ~cmd:(selector "changeCount") ~typ:(returning int) +let changeNotificationDisabled self = msg_send ~self ~cmd:(selector "changeNotificationDisabled") ~typ:(returning bool) +let changedDelegate self = msg_send ~self ~cmd:(selector "changedDelegate") ~typ:(returning id) +let characterRectsForCharacterRange self = msg_send ~self ~cmd:(selector "characterRectsForCharacterRange") ~typ:(returning id) +let checkSpellingPreference self = msg_send ~self ~cmd:(selector "checkSpellingPreference") ~typ:(returning bool) +let checkSpellingPreferenceForTraits self = msg_send ~self ~cmd:(selector "checkSpellingPreferenceForTraits") ~typ:(returning bool) +let cleanUpBeforeInputModeSwitch self = msg_send ~self ~cmd:(selector "cleanUpBeforeInputModeSwitch") ~typ:(returning void) +let cleanupKeyboardPopover self = msg_send ~self ~cmd:(selector "cleanupKeyboardPopover") ~typ:(returning void) +let clearAnimations self = msg_send ~self ~cmd:(selector "clearAnimations") ~typ:(returning void) +let clearAutoDeleteTimer self = msg_send ~self ~cmd:(selector "clearAutoDeleteTimer") ~typ:(returning void) +let clearAutocorrectPromptTimer self = msg_send ~self ~cmd:(selector "clearAutocorrectPromptTimer") ~typ:(returning void) +let clearAutofillGroup self = msg_send ~self ~cmd:(selector "clearAutofillGroup") ~typ:(returning void) +let clearCapsLockDelayOverrideTimer self = msg_send ~self ~cmd:(selector "clearCapsLockDelayOverrideTimer") ~typ:(returning void) +let clearChangeTimeAndCount self = msg_send ~self ~cmd:(selector "clearChangeTimeAndCount") ~typ:(returning void) +let clearDelayDeleteTimer self = msg_send ~self ~cmd:(selector "clearDelayDeleteTimer") ~typ:(returning void) +let clearDelegate self = msg_send ~self ~cmd:(selector "clearDelegate") ~typ:(returning void) +let clearDetachHardwareKeyboardAction self = msg_send ~self ~cmd:(selector "clearDetachHardwareKeyboardAction") ~typ:(returning void) +let clearExcessKeyboardMemory self = msg_send ~self ~cmd:(selector "clearExcessKeyboardMemory") ~typ:(returning void) +let clearForwardingInputDelegateAndResign x self = msg_send ~self ~cmd:(selector "clearForwardingInputDelegateAndResign:") ~typ:(bool @-> returning void) x +let clearInput self = msg_send ~self ~cmd:(selector "clearInput") ~typ:(returning void) +let clearInputForMarkedText self = msg_send ~self ~cmd:(selector "clearInputForMarkedText") ~typ:(returning void) +let clearInputWithCandidatesCleared x self = msg_send ~self ~cmd:(selector "clearInputWithCandidatesCleared:") ~typ:(bool @-> returning void) x +let clearLanguageIndicator self = msg_send ~self ~cmd:(selector "clearLanguageIndicator") ~typ:(returning void) +let clearLayouts self = msg_send ~self ~cmd:(selector "clearLayouts") ~typ:(returning void) +let clearLongPressTimer self = msg_send ~self ~cmd:(selector "clearLongPressTimer") ~typ:(returning void) +let clearRecentInput self = msg_send ~self ~cmd:(selector "clearRecentInput") ~typ:(returning void) +let clearSelection self = msg_send ~self ~cmd:(selector "clearSelection") ~typ:(returning void) +let clearShiftState self = msg_send ~self ~cmd:(selector "clearShiftState") ~typ:(returning void) +let clearTextAlternativesRange self = msg_send ~self ~cmd:(selector "clearTextAlternativesRange") ~typ:(returning void) +let clearTimers self = msg_send ~self ~cmd:(selector "clearTimers") ~typ:(returning void) +let clearTransientState self = msg_send ~self ~cmd:(selector "clearTransientState") ~typ:(returning void) +let clearUpdateLastUsedInputModeAction self = msg_send ~self ~cmd:(selector "clearUpdateLastUsedInputModeAction") ~typ:(returning void) +let collapseSelection self = msg_send ~self ~cmd:(selector "collapseSelection") ~typ:(returning void) +let committingCandidate self = msg_send ~self ~cmd:(selector "committingCandidate") ~typ:(returning bool) +let completeAcceptCandidate x self = msg_send ~self ~cmd:(selector "completeAcceptCandidate:") ~typ:(id @-> returning void) x +let completeAcceptCandidateBeforeAddingInputObject x ~executionContext self = msg_send ~self ~cmd:(selector "completeAcceptCandidateBeforeAddingInputObject:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let completeAddInputString x self = msg_send ~self ~cmd:(selector "completeAddInputString:") ~typ:(id @-> returning void) x +let completeAddInputString' x ~generateCandidates self = msg_send ~self ~cmd:(selector "completeAddInputString:generateCandidates:") ~typ:(id @-> bool @-> returning void) x generateCandidates +let completeDelete self = msg_send ~self ~cmd:(selector "completeDelete") ~typ:(returning void) +let completeDeleteFromInput self = msg_send ~self ~cmd:(selector "completeDeleteFromInput") ~typ:(returning void) +let completeDeleteOnceFromInputWithCharacterBefore x self = msg_send ~self ~cmd:(selector "completeDeleteOnceFromInputWithCharacterBefore:") ~typ:(uint @-> returning void) x +let completeHandleAutoDelete self = msg_send ~self ~cmd:(selector "completeHandleAutoDelete") ~typ:(returning void) +let completeHandleKeyEvent x self = msg_send ~self ~cmd:(selector "completeHandleKeyEvent:") ~typ:(id @-> returning void) x +let completeUpdateForChangedSelection x self = msg_send ~self ~cmd:(selector "completeUpdateForChangedSelection:") ~typ:(bool @-> returning void) x +let continuousPathUnderway self = msg_send ~self ~cmd:(selector "continuousPathUnderway") ~typ:(returning bool) +let convertForceToGrams x self = msg_send ~self ~cmd:(selector "convertForceToGrams:") ~typ:(double @-> returning double) x +let convertRectToAutocorrectRect x ~delegateView ~container self = msg_send ~self ~cmd:(selector "convertRectToAutocorrectRect:delegateView:container:") ~typ:(CGRect.t @-> id @-> id @-> returning CGRect.t) x delegateView container +let copyOperation self = msg_send ~self ~cmd:(selector "copyOperation") ~typ:(returning void) +let correctionRect self = msg_send ~self ~cmd:(selector "correctionRect") ~typ:(returning CGRect.t) +let createTypoTrackerReport self = msg_send ~self ~cmd:(selector "createTypoTrackerReport") ~typ:(returning void) +let currentCandidateRequest self = msg_send ~self ~cmd:(selector "currentCandidateRequest") ~typ:(returning id) +let currentHandBias self = msg_send ~self ~cmd:(selector "currentHandBias") ~typ:(returning llong) +let currentKey self = msg_send ~self ~cmd:(selector "currentKey") ~typ:(returning id) +let currentKeyboardTraitsAllowCandidateBarWhileIgnoringHidePredictionTrait x self = msg_send ~self ~cmd:(selector "currentKeyboardTraitsAllowCandidateBarWhileIgnoringHidePredictionTrait:") ~typ:(bool @-> returning bool) x +let cursorAssertion self = msg_send ~self ~cmd:(selector "cursorAssertion") ~typ:(returning id) +let cursorIsAtEndOfMarkedText self = msg_send ~self ~cmd:(selector "cursorIsAtEndOfMarkedText") ~typ:(returning bool) +let cutOperation self = msg_send ~self ~cmd:(selector "cutOperation") ~typ:(returning void) +let deactivateLayout self = msg_send ~self ~cmd:(selector "deactivateLayout") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultSizeForInterfaceOrientation x self = msg_send ~self ~cmd:(selector "defaultSizeForInterfaceOrientation:") ~typ:(llong @-> returning CGSize.t) (LLong.of_int x) +let defaultsDidChange self = msg_send ~self ~cmd:(selector "defaultsDidChange") ~typ:(returning void) +let deferredDidSetDelegateAction self = msg_send ~self ~cmd:(selector "deferredDidSetDelegateAction") ~typ:(returning id) +let delayedCandidateList self = msg_send ~self ~cmd:(selector "delayedCandidateList") ~typ:(returning bool) +let delayedCandidateRequest self = msg_send ~self ~cmd:(selector "delayedCandidateRequest") ~typ:(returning id) +let delayedInit self = msg_send ~self ~cmd:(selector "delayedInit") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let delegateAlreadyInAutofillGroup self = msg_send ~self ~cmd:(selector "delegateAlreadyInAutofillGroup") ~typ:(returning bool) +let delegateAsResponder self = msg_send ~self ~cmd:(selector "delegateAsResponder") ~typ:(returning id) +let delegateIsSMSTextView self = msg_send ~self ~cmd:(selector "delegateIsSMSTextView") ~typ:(returning bool) +let delegateRequiresKeyEvents self = msg_send ~self ~cmd:(selector "delegateRequiresKeyEvents") ~typ:(returning bool) +let delegateSuggestionsForCurrentInput self = msg_send ~self ~cmd:(selector "delegateSuggestionsForCurrentInput") ~typ:(returning bool) +let delegateSupportsCorrectionUI self = msg_send ~self ~cmd:(selector "delegateSupportsCorrectionUI") ~typ:(returning bool) +let delegateSupportsImagePaste self = msg_send ~self ~cmd:(selector "delegateSupportsImagePaste") ~typ:(returning bool) +let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning void) +let deleteBackwardAndNotify x self = msg_send ~self ~cmd:(selector "deleteBackwardAndNotify:") ~typ:(bool @-> returning void) x +let deleteForwardAndNotify x self = msg_send ~self ~cmd:(selector "deleteForwardAndNotify:") ~typ:(bool @-> returning bool) x +let deleteFromInput self = msg_send ~self ~cmd:(selector "deleteFromInput") ~typ:(returning void) +let deleteFromInputWithFlags x self = msg_send ~self ~cmd:(selector "deleteFromInputWithFlags:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let deleteFromInputWithFlags' x ~executionContext self = msg_send ~self ~cmd:(selector "deleteFromInputWithFlags:executionContext:") ~typ:(ullong @-> id @-> returning void) (ULLong.of_int x) executionContext +let deleteHandwritingStrokesAtIndexes x self = msg_send ~self ~cmd:(selector "deleteHandwritingStrokesAtIndexes:") ~typ:(id @-> returning void) x +let deleteOnceFromInputWithExecutionContext x self = msg_send ~self ~cmd:(selector "deleteOnceFromInputWithExecutionContext:") ~typ:(id @-> returning void) x +let deleteWordLastDelete self = msg_send ~self ~cmd:(selector "deleteWordLastDelete") ~typ:(returning double) +let deletedString self = msg_send ~self ~cmd:(selector "deletedString") ~typ:(returning id) +let desirableInputModesWithExtensions x self = msg_send ~self ~cmd:(selector "desirableInputModesWithExtensions:") ~typ:(bool @-> returning id) x +let detach self = msg_send ~self ~cmd:(selector "detach") ~typ:(returning void) +let detachHardwareKeyboard self = msg_send ~self ~cmd:(selector "detachHardwareKeyboard") ~typ:(returning void) +let deviceSpecificPaddingForInterfaceOrientation x ~inputMode self = msg_send ~self ~cmd:(selector "deviceSpecificPaddingForInterfaceOrientation:inputMode:") ~typ:(llong @-> id @-> returning UIEdgeInsets.t) (LLong.of_int x) inputMode +let deviceSpecificStaticHitBufferForInterfaceOrientation x ~inputMode self = msg_send ~self ~cmd:(selector "deviceSpecificStaticHitBufferForInterfaceOrientation:inputMode:") ~typ:(llong @-> id @-> returning UIEdgeInsets.t) (LLong.of_int x) inputMode +let didAcceptAutocorrection x ~wordTerminator self = msg_send ~self ~cmd:(selector "didAcceptAutocorrection:wordTerminator:") ~typ:(id @-> id @-> returning void) x wordTerminator +let didApplyAutocorrection x ~autocorrectPromptFrame self = msg_send ~self ~cmd:(selector "didApplyAutocorrection:autocorrectPromptFrame:") ~typ:(id @-> CGRect.t @-> returning void) x autocorrectPromptFrame +let didChangeForwardingInputDelegate x self = msg_send ~self ~cmd:(selector "didChangeForwardingInputDelegate:") ~typ:(id @-> returning void) x +let didChangePhraseBoundary self = msg_send ~self ~cmd:(selector "didChangePhraseBoundary") ~typ:(returning void) +let didClearText self = msg_send ~self ~cmd:(selector "didClearText") ~typ:(returning void) +let didDismissMemojiCard self = msg_send ~self ~cmd:(selector "didDismissMemojiCard") ~typ:(returning void) +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let didPresentMemojiCard self = msg_send ~self ~cmd:(selector "didPresentMemojiCard") ~typ:(returning void) +let didSetDelegate self = msg_send ~self ~cmd:(selector "didSetDelegate") ~typ:(returning void) +let disableInputBars self = msg_send ~self ~cmd:(selector "disableInputBars") ~typ:(returning bool) +let disableSmartInsertDelete self = msg_send ~self ~cmd:(selector "disableSmartInsertDelete") ~typ:(returning bool) +let dismissContinuousPathIntroductionView self = msg_send ~self ~cmd:(selector "dismissContinuousPathIntroductionView") ~typ:(returning void) +let dismissEditingIntroductionView self = msg_send ~self ~cmd:(selector "dismissEditingIntroductionView") ~typ:(returning void) +let dismissKeyboard self = msg_send ~self ~cmd:(selector "dismissKeyboard") ~typ:(returning void) +let dismissKeyboardPopoverBeforeCleanup x ~completion self = msg_send ~self ~cmd:(selector "dismissKeyboardPopoverBeforeCleanup:completion:") ~typ:(bool @-> (ptr void) @-> returning void) x completion +let dismissKeyboardPopoverIfNecessaryWithCompletion x self = msg_send ~self ~cmd:(selector "dismissKeyboardPopoverIfNecessaryWithCompletion:") ~typ:((ptr void) @-> returning void) x +let displaysCandidates self = msg_send ~self ~cmd:(selector "displaysCandidates") ~typ:(returning bool) +let documentIdentifierForInputDelegate x self = msg_send ~self ~cmd:(selector "documentIdentifierForInputDelegate:") ~typ:(id @-> returning id) x +let documentStateFromInputDelegate x self = msg_send ~self ~cmd:(selector "documentStateFromInputDelegate:") ~typ:((ptr void) @-> returning void) x +let dontPushOneTimeCode self = msg_send ~self ~cmd:(selector "dontPushOneTimeCode") ~typ:(returning bool) +let doubleSpacePeriodPreference self = msg_send ~self ~cmd:(selector "doubleSpacePeriodPreference") ~typ:(returning bool) +let dragGestureRectInView x self = msg_send ~self ~cmd:(selector "dragGestureRectInView:") ~typ:(id @-> returning CGRect.t) x +let dynamicCaretList self = msg_send ~self ~cmd:(selector "dynamicCaretList") ~typ:(returning id) +let editingTraitsMarkedDirty self = msg_send ~self ~cmd:(selector "editingTraitsMarkedDirty") ~typ:(returning bool) +let ejectKeyDown self = msg_send ~self ~cmd:(selector "ejectKeyDown") ~typ:(returning void) +let emojiCandidate x self = msg_send ~self ~cmd:(selector "emojiCandidate:") ~typ:(id @-> returning id) x +let emojiSearchWillInsertEmoji x ~forSearchQuery self = msg_send ~self ~cmd:(selector "emojiSearchWillInsertEmoji:forSearchQuery:") ~typ:(id @-> id @-> returning void) x forSearchQuery +let emojiSearchWillInsertEmoji' x ~forSearchQuery ~selectionMethod ~inputType self = msg_send ~self ~cmd:(selector "emojiSearchWillInsertEmoji:forSearchQuery:selectionMethod:inputType:") ~typ:(id @-> id @-> id @-> id @-> returning void) x forSearchQuery selectionMethod inputType +let enable self = msg_send ~self ~cmd:(selector "enable") ~typ:(returning void) +let enableTransientInputDelegateSelectionMode self = msg_send ~self ~cmd:(selector "enableTransientInputDelegateSelectionMode") ~typ:(returning void) +let eventForCurrentWebEvent self = msg_send ~self ~cmd:(selector "eventForCurrentWebEvent") ~typ:(returning id) +let externalTask self = msg_send ~self ~cmd:(selector "externalTask") ~typ:(returning (ptr void)) +let fadeAutocorrectPrompt self = msg_send ~self ~cmd:(selector "fadeAutocorrectPrompt") ~typ:(returning void) +let feedbackGenerator self = msg_send ~self ~cmd:(selector "feedbackGenerator") ~typ:(returning id) +let finishLayoutChangeWithArguments x self = msg_send ~self ~cmd:(selector "finishLayoutChangeWithArguments:") ~typ:(id @-> returning void) x +let finishLayoutToCurrentInterfaceOrientation self = msg_send ~self ~cmd:(selector "finishLayoutToCurrentInterfaceOrientation") ~typ:(returning void) +let finishSetExtensionInputMode x ~didChangeDirection self = msg_send ~self ~cmd:(selector "finishSetExtensionInputMode:didChangeDirection:") ~typ:(id @-> bool @-> returning void) x didChangeDirection +let finishSetInputMode x ~didChangeDirection self = msg_send ~self ~cmd:(selector "finishSetInputMode:didChangeDirection:") ~typ:(id @-> bool @-> returning void) x didChangeDirection +let finishSetInputModeToNextInPreferredListWithExecutionContext x ~withPreviousInputMode self = msg_send ~self ~cmd:(selector "finishSetInputModeToNextInPreferredListWithExecutionContext:withPreviousInputMode:") ~typ:(id @-> id @-> returning void) x withPreviousInputMode +let finishSetKeyboardInputMode x ~previousInputMode ~didChangeDirection self = msg_send ~self ~cmd:(selector "finishSetKeyboardInputMode:previousInputMode:didChangeDirection:") ~typ:(id @-> id @-> bool @-> returning void) x previousInputMode didChangeDirection +let finishSplitTransitionWithProgress x self = msg_send ~self ~cmd:(selector "finishSplitTransitionWithProgress:") ~typ:(double @-> returning void) x +let finishTextChanged self = msg_send ~self ~cmd:(selector "finishTextChanged") ~typ:(returning void) +let floatingForced self = msg_send ~self ~cmd:(selector "floatingForced") ~typ:(returning bool) +let flushDelayedTasks self = msg_send ~self ~cmd:(selector "flushDelayedTasks") ~typ:(returning void) +let flushTouchEventWaitingForKeyInputEventIfNecessary self = msg_send ~self ~cmd:(selector "flushTouchEventWaitingForKeyInputEventIfNecessary") ~typ:(returning void) +let forCustomInputView self = msg_send ~self ~cmd:(selector "forCustomInputView") ~typ:(returning bool) +let forceShiftUpdate self = msg_send ~self ~cmd:(selector "forceShiftUpdate") ~typ:(returning void) +let forceShiftUpdateIfKeyboardStateChanged self = msg_send ~self ~cmd:(selector "forceShiftUpdateIfKeyboardStateChanged") ~typ:(returning void) +let frameForKeylayoutName x self = msg_send ~self ~cmd:(selector "frameForKeylayoutName:") ~typ:(id @-> returning CGRect.t) x +let generateAutocorrectionListForSelectedText self = msg_send ~self ~cmd:(selector "generateAutocorrectionListForSelectedText") ~typ:(returning id) +let generateAutocorrectionReplacements x self = msg_send ~self ~cmd:(selector "generateAutocorrectionReplacements:") ~typ:(id @-> returning id) x +let generateAutocorrectionWithExecutionContext x self = msg_send ~self ~cmd:(selector "generateAutocorrectionWithExecutionContext:") ~typ:(id @-> returning void) x +let generateAutocorrectionsWithCompletionHandler x self = msg_send ~self ~cmd:(selector "generateAutocorrectionsWithCompletionHandler:") ~typ:((ptr void) @-> returning void) x +let generateAutofillCandidate self = msg_send ~self ~cmd:(selector "generateAutofillCandidate") ~typ:(returning void) +let generateAutofillCandidateByAddingTask x self = msg_send ~self ~cmd:(selector "generateAutofillCandidateByAddingTask:") ~typ:(bool @-> returning void) x +let generateCandidates self = msg_send ~self ~cmd:(selector "generateCandidates") ~typ:(returning void) +let generateCandidatesAsynchronously self = msg_send ~self ~cmd:(selector "generateCandidatesAsynchronously") ~typ:(returning void) +let generateCandidatesAsynchronouslyWithRange x ~selectedCandidate self = msg_send ~self ~cmd:(selector "generateCandidatesAsynchronouslyWithRange:selectedCandidate:") ~typ:(NSRange.t @-> id @-> returning void) x selectedCandidate +let generateCandidatesFromReplacements self = msg_send ~self ~cmd:(selector "generateCandidatesFromReplacements") ~typ:(returning void) +let generateCandidatesWithOptions x self = msg_send ~self ~cmd:(selector "generateCandidatesWithOptions:") ~typ:(int @-> returning void) x +let generateReplacementsForString x ~candidatesHandler ~executionContext self = msg_send ~self ~cmd:(selector "generateReplacementsForString:candidatesHandler:executionContext:") ~typ:(id @-> (ptr void) @-> id @-> returning void) x candidatesHandler executionContext +let geometryChangeDone x self = msg_send ~self ~cmd:(selector "geometryChangeDone:") ~typ:(bool @-> returning void) x +let geometryDelegate self = msg_send ~self ~cmd:(selector "geometryDelegate") ~typ:(returning id) +let geometryIsChanging self = msg_send ~self ~cmd:(selector "geometryIsChanging") ~typ:(returning bool) +let getCorrectionRectIsVertical x self = msg_send ~self ~cmd:(selector "getCorrectionRectIsVertical:") ~typ:((ptr bool) @-> returning CGRect.t) x +let globeKeyDisplaysAsEmojiKey self = msg_send ~self ~cmd:(selector "globeKeyDisplaysAsEmojiKey") ~typ:(returning bool) +let handleAcceptedCandidate x ~executionContext self = msg_send ~self ~cmd:(selector "handleAcceptedCandidate:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let handleAutoDeleteWithExecutionContext x self = msg_send ~self ~cmd:(selector "handleAutoDeleteWithExecutionContext:") ~typ:(id @-> returning void) x +let handleAutofillCredentialSaveIfNeeded x self = msg_send ~self ~cmd:(selector "handleAutofillCredentialSaveIfNeeded:") ~typ:(id @-> returning void) x +let handleCandidateListNavigation x ~hasCandidatesForTypedInput ~shiftDown ~keyCommandTypeHandled ~allowRepeat self = msg_send ~self ~cmd:(selector "handleCandidateListNavigation:hasCandidatesForTypedInput:shiftDown:keyCommandTypeHandled:allowRepeat:") ~typ:(uint @-> bool @-> bool @-> (ptr ullong) @-> (ptr bool) @-> returning bool) x hasCandidatesForTypedInput shiftDown keyCommandTypeHandled allowRepeat +let handleClear self = msg_send ~self ~cmd:(selector "handleClear") ~typ:(returning void) +let handleClearWithExecutionContext x self = msg_send ~self ~cmd:(selector "handleClearWithExecutionContext:") ~typ:(id @-> returning void) x +let handleClearWithInsertBeforeAdvance x self = msg_send ~self ~cmd:(selector "handleClearWithInsertBeforeAdvance:") ~typ:(id @-> returning void) x +let handleDelayedActionLongPress x self = msg_send ~self ~cmd:(selector "handleDelayedActionLongPress:") ~typ:(id @-> returning void) x +let handleDelete self = msg_send ~self ~cmd:(selector "handleDelete") ~typ:(returning void) +let handleDeleteAsRepeat x ~executionContext self = msg_send ~self ~cmd:(selector "handleDeleteAsRepeat:executionContext:") ~typ:(bool @-> id @-> returning void) x executionContext +let handleDeleteAutospaceForInputString x ~afterSpace self = msg_send ~self ~cmd:(selector "handleDeleteAutospaceForInputString:afterSpace:") ~typ:(id @-> bool @-> returning id) x afterSpace +let handleDeleteWithExecutionContext x self = msg_send ~self ~cmd:(selector "handleDeleteWithExecutionContext:") ~typ:(id @-> returning void) x +let handleDeleteWordWithExecutionContext x self = msg_send ~self ~cmd:(selector "handleDeleteWordWithExecutionContext:") ~typ:(id @-> returning void) x +let handleDeletionForCandidate x self = msg_send ~self ~cmd:(selector "handleDeletionForCandidate:") ~typ:(id @-> returning void) x +let handleEmojiInput x ~keyboardState self = msg_send ~self ~cmd:(selector "handleEmojiInput:keyboardState:") ~typ:(id @-> id @-> returning void) x keyboardState +let handleEmojiPopoverKeyCommand self = msg_send ~self ~cmd:(selector "handleEmojiPopoverKeyCommand") ~typ:(returning void) +let handleHorizontalArrow x ~shiftDown ~beforePublicKeyCommands ~testOnly ~isVerticalCandidate ~hasCandidatesForTypedInput ~shouldNavigateCandidateList ~canHandleInputDelegateCommand ~savedHistory ~keyCommandTypeHandled self = msg_send ~self ~cmd:(selector "handleHorizontalArrow:shiftDown:beforePublicKeyCommands:testOnly:isVerticalCandidate:hasCandidatesForTypedInput:shouldNavigateCandidateList:canHandleInputDelegateCommand:savedHistory:keyCommandTypeHandled:") ~typ:(bool @-> bool @-> bool @-> bool @-> bool @-> bool @-> bool @-> (ptr void) @-> id @-> (ptr ullong) @-> returning bool) x shiftDown beforePublicKeyCommands testOnly isVerticalCandidate hasCandidatesForTypedInput shouldNavigateCandidateList canHandleInputDelegateCommand savedHistory keyCommandTypeHandled +let handleInputManagerBasedKeybind x ~testOnly self = msg_send ~self ~cmd:(selector "handleInputManagerBasedKeybind:testOnly:") ~typ:(id @-> bool @-> returning bool) x testOnly +let handleKeyAppCommandForCurrentEvent self = msg_send ~self ~cmd:(selector "handleKeyAppCommandForCurrentEvent") ~typ:(returning bool) +let handleKeyCommand x ~repeatOkay ~beforePublicKeyCommands self = msg_send ~self ~cmd:(selector "handleKeyCommand:repeatOkay:beforePublicKeyCommands:") ~typ:(id @-> (ptr bool) @-> bool @-> returning bool) x repeatOkay beforePublicKeyCommands +let handleKeyCommand' x ~repeatOkay ~options self = msg_send ~self ~cmd:(selector "handleKeyCommand:repeatOkay:options:") ~typ:(id @-> (ptr bool) @-> ullong @-> returning ullong) x repeatOkay (ULLong.of_int options) +let handleKeyEvent x self = msg_send ~self ~cmd:(selector "handleKeyEvent:") ~typ:(id @-> returning void) x +let handleKeyEvent' x ~executionContext self = msg_send ~self ~cmd:(selector "handleKeyEvent:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let handleKeyInputMethodCommandForCurrentEvent self = msg_send ~self ~cmd:(selector "handleKeyInputMethodCommandForCurrentEvent") ~typ:(returning bool) +let handleKeyTextCommandForCurrentEvent self = msg_send ~self ~cmd:(selector "handleKeyTextCommandForCurrentEvent") ~typ:(returning bool) +let handleKeyWithString x ~forKeyEvent ~executionContext self = msg_send ~self ~cmd:(selector "handleKeyWithString:forKeyEvent:executionContext:") ~typ:(id @-> id @-> id @-> returning void) x forKeyEvent executionContext +let handleKeyboardInput x ~executionContext self = msg_send ~self ~cmd:(selector "handleKeyboardInput:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let handleModifiersChangeForKeyEvent x ~executionContext self = msg_send ~self ~cmd:(selector "handleModifiersChangeForKeyEvent:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let handleMoveCursorToEndOfLine x ~beforePublicKeyCommands ~testOnly ~savedHistory ~force ~canHandleSelectableInputDelegateCommand self = msg_send ~self ~cmd:(selector "handleMoveCursorToEndOfLine:beforePublicKeyCommands:testOnly:savedHistory:force:canHandleSelectableInputDelegateCommand:") ~typ:(bool @-> bool @-> bool @-> id @-> bool @-> (ptr void) @-> returning bool) x beforePublicKeyCommands testOnly savedHistory force canHandleSelectableInputDelegateCommand +let handleMoveCursorToStartOfLine x ~beforePublicKeyCommands ~testOnly ~savedHistory ~force ~canHandleSelectableInputDelegateCommand self = msg_send ~self ~cmd:(selector "handleMoveCursorToStartOfLine:beforePublicKeyCommands:testOnly:savedHistory:force:canHandleSelectableInputDelegateCommand:") ~typ:(bool @-> bool @-> bool @-> id @-> bool @-> (ptr void) @-> returning bool) x beforePublicKeyCommands testOnly savedHistory force canHandleSelectableInputDelegateCommand +let handleMoveResponderWithShift x self = msg_send ~self ~cmd:(selector "handleMoveResponderWithShift:") ~typ:(bool @-> returning bool) x +let handleObserverCallback self = msg_send ~self ~cmd:(selector "handleObserverCallback") ~typ:(returning void) +let handleReplacement x ~forSpaceAndInput self = msg_send ~self ~cmd:(selector "handleReplacement:forSpaceAndInput:") ~typ:(id @-> id @-> returning id) x forSpaceAndInput +let handleReturnKey x self = msg_send ~self ~cmd:(selector "handleReturnKey:") ~typ:(bool @-> returning bool) x +let handleStringInput x ~withFlags ~withInputManagerHint ~executionContext self = msg_send ~self ~cmd:(selector "handleStringInput:withFlags:withInputManagerHint:executionContext:") ~typ:(id @-> ullong @-> id @-> id @-> returning void) x (ULLong.of_int withFlags) withInputManagerHint executionContext +let handleTabWithShift x self = msg_send ~self ~cmd:(selector "handleTabWithShift:") ~typ:(bool @-> returning bool) x +let handleTabWithShift1 x ~beforePublicKeyCommands self = msg_send ~self ~cmd:(selector "handleTabWithShift:beforePublicKeyCommands:") ~typ:(bool @-> bool @-> returning bool) x beforePublicKeyCommands +let handleTabWithShift2 x ~beforePublicKeyCommands ~isMoveAction ~testOnly self = msg_send ~self ~cmd:(selector "handleTabWithShift:beforePublicKeyCommands:isMoveAction:testOnly:") ~typ:(bool @-> bool @-> bool @-> bool @-> returning bool) x beforePublicKeyCommands isMoveAction testOnly +let handleUpdateLastUsedInputModeAction x self = msg_send ~self ~cmd:(selector "handleUpdateLastUsedInputModeAction:") ~typ:(id @-> returning void) x +let handleVerticalArrow x ~shiftDown ~beforePublicKeyCommands ~testOnly ~isVerticalCandidate ~hasCandidatesForTypedInput ~inputDelegateCommandEnabled ~canHandleInputDelegateCommand ~savedHistory ~keyCommandTypeHandled self = msg_send ~self ~cmd:(selector "handleVerticalArrow:shiftDown:beforePublicKeyCommands:testOnly:isVerticalCandidate:hasCandidatesForTypedInput:inputDelegateCommandEnabled:canHandleInputDelegateCommand:savedHistory:keyCommandTypeHandled:") ~typ:(bool @-> bool @-> bool @-> bool @-> bool @-> bool @-> bool @-> (ptr void) @-> id @-> (ptr ullong) @-> returning bool) x shiftDown beforePublicKeyCommands testOnly isVerticalCandidate hasCandidatesForTypedInput inputDelegateCommandEnabled canHandleInputDelegateCommand savedHistory keyCommandTypeHandled +let handleWebViewCredentialsSaveForWebsiteURL x ~user ~password ~passwordIsAutoGenerated self = msg_send ~self ~cmd:(selector "handleWebViewCredentialsSaveForWebsiteURL:user:password:passwordIsAutoGenerated:") ~typ:(id @-> id @-> id @-> bool @-> returning void) x user password passwordIsAutoGenerated +let handlingKeyCommandFromHardwareKeyboard self = msg_send ~self ~cmd:(selector "handlingKeyCommandFromHardwareKeyboard") ~typ:(returning bool) +let hardwareKeyboardAttached self = msg_send ~self ~cmd:(selector "hardwareKeyboardAttached") ~typ:(returning bool) +let hardwareKeyboardAvailabilityChanged self = msg_send ~self ~cmd:(selector "hardwareKeyboardAvailabilityChanged") ~typ:(returning void) +let hardwareKeyboardAvailabilityDidChange x self = msg_send ~self ~cmd:(selector "hardwareKeyboardAvailabilityDidChange:") ~typ:(id @-> returning void) x +let hardwareKeyboardIsSeen self = msg_send ~self ~cmd:(selector "hardwareKeyboardIsSeen") ~typ:(returning bool) +let hardwareKeyboardsSeenPreference self = msg_send ~self ~cmd:(selector "hardwareKeyboardsSeenPreference") ~typ:(returning id) +let hasDelegate self = msg_send ~self ~cmd:(selector "hasDelegate") ~typ:(returning bool) +let hasEditableMarkedText self = msg_send ~self ~cmd:(selector "hasEditableMarkedText") ~typ:(returning bool) +let hasMarkedText self = msg_send ~self ~cmd:(selector "hasMarkedText") ~typ:(returning bool) +let hideAccessoryViewsDuringSplit self = msg_send ~self ~cmd:(selector "hideAccessoryViewsDuringSplit") ~typ:(returning bool) +let hideInternationalKeyIntroductionIfNeeded self = msg_send ~self ~cmd:(selector "hideInternationalKeyIntroductionIfNeeded") ~typ:(returning void) +let hideKeyboard self = msg_send ~self ~cmd:(selector "hideKeyboard") ~typ:(returning void) +let hideKeyboardIgnoringHardwareLayouts x self = msg_send ~self ~cmd:(selector "hideKeyboardIgnoringHardwareLayouts:") ~typ:(bool @-> returning void) x +let hideKeyboardWithoutPreflightChecks self = msg_send ~self ~cmd:(selector "hideKeyboardWithoutPreflightChecks") ~typ:(returning void) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let implProxy self = msg_send ~self ~cmd:(selector "implProxy") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithFrame' x ~forCustomInputView self = msg_send ~self ~cmd:(selector "initWithFrame:forCustomInputView:") ~typ:(CGRect.t @-> bool @-> returning id) x forCustomInputView +let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning id) +let inputDelegateManager self = msg_send ~self ~cmd:(selector "inputDelegateManager") ~typ:(returning id) +let inputEventForInputString x self = msg_send ~self ~cmd:(selector "inputEventForInputString:") ~typ:(id @-> returning id) x +let inputForMarkedText self = msg_send ~self ~cmd:(selector "inputForMarkedText") ~typ:(returning id) +let inputManager self = msg_send ~self ~cmd:(selector "inputManager") ~typ:(returning id) +let inputManagerDidGenerateAutocorrections x ~executionContext self = msg_send ~self ~cmd:(selector "inputManagerDidGenerateAutocorrections:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let inputManagerDidGenerateAutocorrections' x ~forPredictiveInput ~executionContext self = msg_send ~self ~cmd:(selector "inputManagerDidGenerateAutocorrections:forPredictiveInput:executionContext:") ~typ:(id @-> id @-> id @-> returning void) x forPredictiveInput executionContext +let inputManagerDidGenerateCandidatesForRequest x ~resultSet self = msg_send ~self ~cmd:(selector "inputManagerDidGenerateCandidatesForRequest:resultSet:") ~typ:(id @-> id @-> returning void) x resultSet +let inputManagerState self = msg_send ~self ~cmd:(selector "inputManagerState") ~typ:(returning id) +let inputModeLastUsedPreference self = msg_send ~self ~cmd:(selector "inputModeLastUsedPreference") ~typ:(returning id) +let inputModePreference self = msg_send ~self ~cmd:(selector "inputModePreference") ~typ:(returning id) +let inputOverlayContainer self = msg_send ~self ~cmd:(selector "inputOverlayContainer") ~typ:(returning id) +let inputOverlayContainerForCandidateView x self = msg_send ~self ~cmd:(selector "inputOverlayContainerForCandidateView:") ~typ:(bool @-> returning id) x +let inputStringFromPhraseBoundary self = msg_send ~self ~cmd:(selector "inputStringFromPhraseBoundary") ~typ:(returning id) +let inputSystemSourceSession self = msg_send ~self ~cmd:(selector "inputSystemSourceSession") ~typ:(returning id) +let inputWordForTerminatorAtSelection self = msg_send ~self ~cmd:(selector "inputWordForTerminatorAtSelection") ~typ:(returning id) +let insertAttributedText x self = msg_send ~self ~cmd:(selector "insertAttributedText:") ~typ:(id @-> returning void) x +let insertText x ~withAlternativePredictions self = msg_send ~self ~cmd:(selector "insertText:withAlternativePredictions:") ~typ:(id @-> id @-> returning void) x withAlternativePredictions +let insertTextIfShould x self = msg_send ~self ~cmd:(selector "insertTextIfShould:") ~typ:(id @-> returning bool) x +let insertTextSuggestionCandidate x self = msg_send ~self ~cmd:(selector "insertTextSuggestionCandidate:") ~typ:(id @-> returning void) x +let insertedEmojiFromPopover x ~selectionMethod self = msg_send ~self ~cmd:(selector "insertedEmojiFromPopover:selectionMethod:") ~typ:(id @-> id @-> returning void) x selectionMethod +let insertsSpaceAfterPredictiveInput self = msg_send ~self ~cmd:(selector "insertsSpaceAfterPredictiveInput") ~typ:(returning bool) +let internationalKeyDisplayStringOnEmojiKeyboard self = msg_send ~self ~cmd:(selector "internationalKeyDisplayStringOnEmojiKeyboard") ~typ:(returning id) +let internationalKeyIntroductionView self = msg_send ~self ~cmd:(selector "internationalKeyIntroductionView") ~typ:(returning id) +let isAttachedHardwareKeyboard self = msg_send ~self ~cmd:(selector "isAttachedHardwareKeyboard") ~typ:(returning id) +let isAutoDeleteActive self = msg_send ~self ~cmd:(selector "isAutoDeleteActive") ~typ:(returning bool) +let isAutoFillMode self = msg_send ~self ~cmd:(selector "isAutoFillMode") ~typ:(returning bool) +let isAutoShifted self = msg_send ~self ~cmd:(selector "isAutoShifted") ~typ:(returning bool) +let isAutofillPrediction self = msg_send ~self ~cmd:(selector "isAutofillPrediction") ~typ:(returning bool) +let isCallingInputDelegate self = msg_send ~self ~cmd:(selector "isCallingInputDelegate") ~typ:(returning bool) +let isCallingTextChangedDuringInputModeSwitch self = msg_send ~self ~cmd:(selector "isCallingTextChangedDuringInputModeSwitch") ~typ:(returning bool) +let isCapsLockASCIIToggle self = msg_send ~self ~cmd:(selector "isCapsLockASCIIToggle") ~typ:(returning bool) +let isCapsLockSwitchEnabled self = msg_send ~self ~cmd:(selector "isCapsLockSwitchEnabled") ~typ:(returning bool) +let isCurrentEditResponderInEditingMode self = msg_send ~self ~cmd:(selector "isCurrentEditResponderInEditingMode") ~typ:(returning bool) +let isDefaultPrediction self = msg_send ~self ~cmd:(selector "isDefaultPrediction") ~typ:(returning bool) +let isFloatingLocked self = msg_send ~self ~cmd:(selector "isFloatingLocked") ~typ:(returning bool) +let isInHardwareKeyboardMode self = msg_send ~self ~cmd:(selector "isInHardwareKeyboardMode") ~typ:(returning bool) +let isKeyboardPopoverPresented self = msg_send ~self ~cmd:(selector "isKeyboardPopoverPresented") ~typ:(returning bool) +let isKeyboardPopoverVisibleOrDismissing self = msg_send ~self ~cmd:(selector "isKeyboardPopoverVisibleOrDismissing") ~typ:(returning bool) +let isLongPress self = msg_send ~self ~cmd:(selector "isLongPress") ~typ:(returning bool) +let isMemberOfAutofillGroup x self = msg_send ~self ~cmd:(selector "isMemberOfAutofillGroup:") ~typ:(id @-> returning bool) x +let isMemberOfPossibleAutofillGroup x self = msg_send ~self ~cmd:(selector "isMemberOfPossibleAutofillGroup:") ~typ:(id @-> returning bool) x +let isMinimized self = msg_send ~self ~cmd:(selector "isMinimized") ~typ:(returning bool) +let isOutOfProcess self = msg_send ~self ~cmd:(selector "isOutOfProcess") ~typ:(returning bool) +let isPredictionViewControllerVisible self = msg_send ~self ~cmd:(selector "isPredictionViewControllerVisible") ~typ:(returning bool) +let isRTIClient self = msg_send ~self ~cmd:(selector "isRTIClient") ~typ:(returning bool) +let isRotating self = msg_send ~self ~cmd:(selector "isRotating") ~typ:(returning bool) +let isSelectionAtSentenceAutoshiftBoundary self = msg_send ~self ~cmd:(selector "isSelectionAtSentenceAutoshiftBoundary") ~typ:(returning bool) +let isShiftKeyBeingHeld self = msg_send ~self ~cmd:(selector "isShiftKeyBeingHeld") ~typ:(returning bool) +let isShiftLocked self = msg_send ~self ~cmd:(selector "isShiftLocked") ~typ:(returning bool) +let isShifted self = msg_send ~self ~cmd:(selector "isShifted") ~typ:(returning bool) +let isTrackpadMode self = msg_send ~self ~cmd:(selector "isTrackpadMode") ~typ:(returning bool) +let isUsingDictationLayout self = msg_send ~self ~cmd:(selector "isUsingDictationLayout") ~typ:(returning bool) +let jumpToCompositions self = msg_send ~self ~cmd:(selector "jumpToCompositions") ~typ:(returning void) +let keyActivated self = msg_send ~self ~cmd:(selector "keyActivated") ~typ:(returning void) +let keyDeactivated self = msg_send ~self ~cmd:(selector "keyDeactivated") ~typ:(returning void) +let keyboardDidHide x self = msg_send ~self ~cmd:(selector "keyboardDidHide:") ~typ:(id @-> returning void) x +let keyboardDrawsOpaque self = msg_send ~self ~cmd:(selector "keyboardDrawsOpaque") ~typ:(returning bool) +let keyboardIsKeyPad self = msg_send ~self ~cmd:(selector "keyboardIsKeyPad") ~typ:(returning bool) +let keyboardState self = msg_send ~self ~cmd:(selector "keyboardState") ~typ:(returning id) +let keyboardsExpandedPreference self = msg_send ~self ~cmd:(selector "keyboardsExpandedPreference") ~typ:(returning bool) +let keyplaneView self = msg_send ~self ~cmd:(selector "keyplaneView") ~typ:(returning id) +let lastChooseSupplementalItemToInsertCallbackIdentifier self = msg_send ~self ~cmd:(selector "lastChooseSupplementalItemToInsertCallbackIdentifier") ~typ:(returning ullong) +let lastMatchedSupplementalCandidate self = msg_send ~self ~cmd:(selector "lastMatchedSupplementalCandidate") ~typ:(returning id) +let lastTouchDownTimestamp self = msg_send ~self ~cmd:(selector "lastTouchDownTimestamp") ~typ:(returning double) +let layoutDidResize self = msg_send ~self ~cmd:(selector "layoutDidResize") ~typ:(returning void) +let layoutForKeyHitTest self = msg_send ~self ~cmd:(selector "layoutForKeyHitTest") ~typ:(returning id) +let layoutHasChanged self = msg_send ~self ~cmd:(selector "layoutHasChanged") ~typ:(returning void) +let layoutIsResizing self = msg_send ~self ~cmd:(selector "layoutIsResizing") ~typ:(returning bool) +let layoutState self = msg_send ~self ~cmd:(selector "layoutState") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let liveConversionEnabled self = msg_send ~self ~cmd:(selector "liveConversionEnabled") ~typ:(returning bool) +let logHandwritingData self = msg_send ~self ~cmd:(selector "logHandwritingData") ~typ:(returning void) +let longPressAction self = msg_send ~self ~cmd:(selector "longPressAction") ~typ:(returning void) +let longPressAction' x self = msg_send ~self ~cmd:(selector "longPressAction:") ~typ:(id @-> returning void) x +let lookUpResponderChainForCustomInputView self = msg_send ~self ~cmd:(selector "lookUpResponderChainForCustomInputView") ~typ:(returning void) +let markedText self = msg_send ~self ~cmd:(selector "markedText") ~typ:(returning id) +let markedTextOverlay self = msg_send ~self ~cmd:(selector "markedTextOverlay") ~typ:(returning id) +let maxNumberOfProactiveCells self = msg_send ~self ~cmd:(selector "maxNumberOfProactiveCells") ~typ:(returning ullong) +let maximizing self = msg_send ~self ~cmd:(selector "maximizing") ~typ:(returning bool) +let minimumTouchesForTranslation self = msg_send ~self ~cmd:(selector "minimumTouchesForTranslation") ~typ:(returning ullong) +let moveCursorByAmount x self = msg_send ~self ~cmd:(selector "moveCursorByAmount:") ~typ:(llong @-> returning void) (LLong.of_int x) +let moveCursorLeftShifted x self = msg_send ~self ~cmd:(selector "moveCursorLeftShifted:") ~typ:(bool @-> returning void) x +let moveCursorRightShifted x self = msg_send ~self ~cmd:(selector "moveCursorRightShifted:") ~typ:(bool @-> returning void) x +let movePhraseBoundaryToDirection x ~granularity self = msg_send ~self ~cmd:(selector "movePhraseBoundaryToDirection:granularity:") ~typ:(llong @-> llong @-> returning void) (LLong.of_int x) (LLong.of_int granularity) +let needAutofill self = msg_send ~self ~cmd:(selector "needAutofill") ~typ:(returning llong) +let needAutofillCandidate x self = msg_send ~self ~cmd:(selector "needAutofillCandidate:") ~typ:(id @-> returning llong) x +let needAutofillLogin self = msg_send ~self ~cmd:(selector "needAutofillLogin") ~typ:(returning bool) +let needOneTimeCodeAutofill self = msg_send ~self ~cmd:(selector "needOneTimeCodeAutofill") ~typ:(returning bool) +let needsToDeferUpdateTextCandidateView self = msg_send ~self ~cmd:(selector "needsToDeferUpdateTextCandidateView") ~typ:(returning bool) +let nextCharacterIsWordCharacter self = msg_send ~self ~cmd:(selector "nextCharacterIsWordCharacter") ~typ:(returning bool) +let nextInputWouldStartSentence self = msg_send ~self ~cmd:(selector "nextInputWouldStartSentence") ~typ:(returning bool) +let noContent self = msg_send ~self ~cmd:(selector "noContent") ~typ:(returning bool) +let notifyShiftState self = msg_send ~self ~cmd:(selector "notifyShiftState") ~typ:(returning void) +let pasteOperation self = msg_send ~self ~cmd:(selector "pasteOperation") ~typ:(returning void) +let pendingSupplementalCandidateToInsert self = msg_send ~self ~cmd:(selector "pendingSupplementalCandidateToInsert") ~typ:(returning id) +let performBlockWithTextInputChangesIgnoredForNonMacOS x self = msg_send ~self ~cmd:(selector "performBlockWithTextInputChangesIgnoredForNonMacOS:") ~typ:((ptr void) @-> returning void) x +let performDelete self = msg_send ~self ~cmd:(selector "performDelete") ~typ:(returning void) +let performHitTestForTouchEvent x ~executionContextPassingNSNumber self = msg_send ~self ~cmd:(selector "performHitTestForTouchEvent:executionContextPassingNSNumber:") ~typ:(id @-> id @-> returning void) x executionContextPassingNSNumber +let performHitTestForTouchEvents x ~executionContextPassingNSNumber self = msg_send ~self ~cmd:(selector "performHitTestForTouchEvents:executionContextPassingNSNumber:") ~typ:(id @-> id @-> returning void) x executionContextPassingNSNumber +let performKeyBehaviorCommitInline self = msg_send ~self ~cmd:(selector "performKeyBehaviorCommitInline") ~typ:(returning void) +let performKeyBehaviorConfirm self = msg_send ~self ~cmd:(selector "performKeyBehaviorConfirm") ~typ:(returning void) +let performKeyBehaviorConfirmFirstCandidate self = msg_send ~self ~cmd:(selector "performKeyBehaviorConfirmFirstCandidate") ~typ:(returning void) +let performKeyboardOutput x self = msg_send ~self ~cmd:(selector "performKeyboardOutput:") ~typ:(id @-> returning void) x +let performKeyboardOutput1 x ~checkingDelegate self = msg_send ~self ~cmd:(selector "performKeyboardOutput:checkingDelegate:") ~typ:(id @-> bool @-> returning void) x checkingDelegate +let performKeyboardOutput2 x ~checkingDelegate ~forwardToRemoteInputSource self = msg_send ~self ~cmd:(selector "performKeyboardOutput:checkingDelegate:forwardToRemoteInputSource:") ~typ:(id @-> bool @-> bool @-> returning void) x checkingDelegate forwardToRemoteInputSource +let performKeyboardOutputAsInputViewControllerOutput x self = msg_send ~self ~cmd:(selector "performKeyboardOutputAsInputViewControllerOutput:") ~typ:(id @-> returning void) x +let performKeyboardOutputAsInputViewControllerOutput' x ~textInputSource self = msg_send ~self ~cmd:(selector "performKeyboardOutputAsInputViewControllerOutput:textInputSource:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int textInputSource) +let performKeyboardOutputAsRTIClient x self = msg_send ~self ~cmd:(selector "performKeyboardOutputAsRTIClient:") ~typ:(id @-> returning void) x +let performKeyboardOutputInfo x self = msg_send ~self ~cmd:(selector "performKeyboardOutputInfo:") ~typ:(id @-> returning void) x +let performKeyboardOutputOnInputSourceSession x self = msg_send ~self ~cmd:(selector "performKeyboardOutputOnInputSourceSession:") ~typ:((ptr void) @-> returning void) x +let performOperations x ~withTextInputSource self = msg_send ~self ~cmd:(selector "performOperations:withTextInputSource:") ~typ:((ptr void) @-> llong @-> returning void) x (LLong.of_int withTextInputSource) +let performReturn self = msg_send ~self ~cmd:(selector "performReturn") ~typ:(returning void) +let performSendCurrentLocation self = msg_send ~self ~cmd:(selector "performSendCurrentLocation") ~typ:(returning void) +let performTextOperationActionSelector x self = msg_send ~self ~cmd:(selector "performTextOperationActionSelector:") ~typ:(_SEL @-> returning void) x +let phraseBoundary self = msg_send ~self ~cmd:(selector "phraseBoundary") ~typ:(returning ullong) +let physicalKeyboardEventWithInput x ~inputFlags self = msg_send ~self ~cmd:(selector "physicalKeyboardEventWithInput:inputFlags:") ~typ:(id @-> int @-> returning id) x inputFlags +let playDeleteKeyFeedback x self = msg_send ~self ~cmd:(selector "playDeleteKeyFeedback:") ~typ:(bool @-> returning void) x +let pointInside x ~forEvent self = msg_send ~self ~cmd:(selector "pointInside:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning bool) x forEvent +let pointInside' x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let postInputResponderCapabilitiesChangedNotification self = msg_send ~self ~cmd:(selector "postInputResponderCapabilitiesChangedNotification") ~typ:(returning void) +let postInputViewControllerShouldUpdateNotification x self = msg_send ~self ~cmd:(selector "postInputViewControllerShouldUpdateNotification:") ~typ:(id @-> returning void) x +let predictionFromPreference self = msg_send ~self ~cmd:(selector "predictionFromPreference") ~typ:(returning bool) +let preferFallbackAutofillGroup self = msg_send ~self ~cmd:(selector "preferFallbackAutofillGroup") ~typ:(returning bool) +let preferredCandidateViewTypeForCandidateResultSet x self = msg_send ~self ~cmd:(selector "preferredCandidateViewTypeForCandidateResultSet:") ~typ:(id @-> returning llong) x +let prepareForFloatingTransition x self = msg_send ~self ~cmd:(selector "prepareForFloatingTransition:") ~typ:(bool @-> returning void) x +let prepareForGeometryChange self = msg_send ~self ~cmd:(selector "prepareForGeometryChange") ~typ:(returning void) +let prepareForSelectionChange self = msg_send ~self ~cmd:(selector "prepareForSelectionChange") ~typ:(returning void) +let prepareKeyboardInputModeFromPreferences x self = msg_send ~self ~cmd:(selector "prepareKeyboardInputModeFromPreferences:") ~typ:(id @-> returning void) x +let prepareLayoutForInterfaceOrientation x self = msg_send ~self ~cmd:(selector "prepareLayoutForInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let presentContinuousPathIntroductionView self = msg_send ~self ~cmd:(selector "presentContinuousPathIntroductionView") ~typ:(returning void) +let presentEditingIntroductionView self = msg_send ~self ~cmd:(selector "presentEditingIntroductionView") ~typ:(returning void) +let presentEmojiPopoverViaTrigger x ~completion self = msg_send ~self ~cmd:(selector "presentEmojiPopoverViaTrigger:completion:") ~typ:(id @-> (ptr void) @-> returning void) x completion +let presentKeyboardPopoverWithInputMode x ~completion self = msg_send ~self ~cmd:(selector "presentKeyboardPopoverWithInputMode:completion:") ~typ:(id @-> (ptr void) @-> returning void) x completion +let presentationControllerDidDismiss x self = msg_send ~self ~cmd:(selector "presentationControllerDidDismiss:") ~typ:(id @-> returning void) x +let presentationControllerShouldDismiss x self = msg_send ~self ~cmd:(selector "presentationControllerShouldDismiss:") ~typ:(id @-> returning bool) x +let prewarmsPredictiveCandidates self = msg_send ~self ~cmd:(selector "prewarmsPredictiveCandidates") ~typ:(returning bool) +let proceedShouldReturnIfNeededForASP self = msg_send ~self ~cmd:(selector "proceedShouldReturnIfNeededForASP") ~typ:(returning void) +let processPayloadInfo x self = msg_send ~self ~cmd:(selector "processPayloadInfo:") ~typ:(id @-> returning void) x +let provideAutoFillTypingUpdatesIfNecessary self = msg_send ~self ~cmd:(selector "provideAutoFillTypingUpdatesIfNecessary") ~typ:(returning void) +let pushAutocorrections x ~requestToken self = msg_send ~self ~cmd:(selector "pushAutocorrections:requestToken:") ~typ:(id @-> id @-> returning void) x requestToken +let queueDelayedTask x self = msg_send ~self ~cmd:(selector "queueDelayedTask:") ~typ:((ptr void) @-> returning void) x +let receivedCandidatesInCurrentInputMode self = msg_send ~self ~cmd:(selector "receivedCandidatesInCurrentInputMode") ~typ:(returning bool) +let recomputeActiveInputModesWithExtensions x self = msg_send ~self ~cmd:(selector "recomputeActiveInputModesWithExtensions:") ~typ:(bool @-> returning void) x +let recomputeActiveInputModesWithExtensions' x ~allowNonLinguisticInputModes self = msg_send ~self ~cmd:(selector "recomputeActiveInputModesWithExtensions:allowNonLinguisticInputModes:") ~typ:(bool @-> bool @-> returning void) x allowNonLinguisticInputModes +let refreshAutofillModeIfNecessary self = msg_send ~self ~cmd:(selector "refreshAutofillModeIfNecessary") ~typ:(returning void) +let refreshKeyboardState self = msg_send ~self ~cmd:(selector "refreshKeyboardState") ~typ:(returning void) +let refreshKeyboardStateUpdatingSecureCandidateRenderTraits x self = msg_send ~self ~cmd:(selector "refreshKeyboardStateUpdatingSecureCandidateRenderTraits:") ~typ:(bool @-> returning void) x +let refreshRivenPreferences self = msg_send ~self ~cmd:(selector "refreshRivenPreferences") ~typ:(returning void) +let refreshSecureCandidatesIfNecessary self = msg_send ~self ~cmd:(selector "refreshSecureCandidatesIfNecessary") ~typ:(returning void) +let reinitializeAfterInputModeSwitch x self = msg_send ~self ~cmd:(selector "reinitializeAfterInputModeSwitch:") ~typ:(bool @-> returning void) x +let rejectAutocorrection x self = msg_send ~self ~cmd:(selector "rejectAutocorrection:") ~typ:(id @-> returning void) x +let releaseInputManager self = msg_send ~self ~cmd:(selector "releaseInputManager") ~typ:(returning void) +let releaseInputManagerIfInactive self = msg_send ~self ~cmd:(selector "releaseInputManagerIfInactive") ~typ:(returning void) +let releaseSuppressUpdateCandidateView self = msg_send ~self ~cmd:(selector "releaseSuppressUpdateCandidateView") ~typ:(returning void) +let reloadCurrentInputMode self = msg_send ~self ~cmd:(selector "reloadCurrentInputMode") ~typ:(returning void) +let remoteControlReceivedWithEvent x self = msg_send ~self ~cmd:(selector "remoteControlReceivedWithEvent:") ~typ:(id @-> returning void) x +let remoteTextEditingMetadata self = msg_send ~self ~cmd:(selector "remoteTextEditingMetadata") ~typ:(returning id) +let remoteTextInputPartner self = msg_send ~self ~cmd:(selector "remoteTextInputPartner") ~typ:(returning id) +let removeASPVisualEffectsIfNecessary x self = msg_send ~self ~cmd:(selector "removeASPVisualEffectsIfNecessary:") ~typ:(id @-> returning void) x +let removeAllDynamicDictionaries self = msg_send ~self ~cmd:(selector "removeAllDynamicDictionaries") ~typ:(returning void) +let removeAutocorrectPrompt self = msg_send ~self ~cmd:(selector "removeAutocorrectPrompt") ~typ:(returning void) +let removeAutocorrectPromptAndCandidateList self = msg_send ~self ~cmd:(selector "removeAutocorrectPromptAndCandidateList") ~typ:(returning void) +let removeAutocorrection self = msg_send ~self ~cmd:(selector "removeAutocorrection") ~typ:(returning void) +let removeCandidateList self = msg_send ~self ~cmd:(selector "removeCandidateList") ~typ:(returning void) +let removeCapsLockDelayOverride self = msg_send ~self ~cmd:(selector "removeCapsLockDelayOverride") ~typ:(returning void) +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let removeRecentInput x ~completionHandler self = msg_send ~self ~cmd:(selector "removeRecentInput:completionHandler:") ~typ:(id @-> (ptr void) @-> returning void) x completionHandler +let removeSpaceAfterEmojiForInputString x self = msg_send ~self ~cmd:(selector "removeSpaceAfterEmojiForInputString:") ~typ:(id @-> returning void) x +let removeSupplementalLexicon x self = msg_send ~self ~cmd:(selector "removeSupplementalLexicon:") ~typ:(id @-> returning void) x +let replaceAllTextInResponder x ~withText self = msg_send ~self ~cmd:(selector "replaceAllTextInResponder:withText:") ~typ:(id @-> id @-> returning void) x withText +let replaceText x self = msg_send ~self ~cmd:(selector "replaceText:") ~typ:(id @-> returning void) x +let replacementsFromSelectedText self = msg_send ~self ~cmd:(selector "replacementsFromSelectedText") ~typ:(returning id) +let requestedInteractionModel self = msg_send ~self ~cmd:(selector "requestedInteractionModel") ~typ:(returning ullong) +let resetInputDelegate self = msg_send ~self ~cmd:(selector "resetInputDelegate") ~typ:(returning void) +let responderForSendCurrentLocation self = msg_send ~self ~cmd:(selector "responderForSendCurrentLocation") ~typ:(returning id) +let responderStylingTraitsForceEditingMask x self = msg_send ~self ~cmd:(selector "responderStylingTraitsForceEditingMask:") ~typ:(bool @-> returning id) x +let responseContextDidChange self = msg_send ~self ~cmd:(selector "responseContextDidChange") ~typ:(returning void) +let restoreFocusFromEntryPoint x self = msg_send ~self ~cmd:(selector "restoreFocusFromEntryPoint:") ~typ:(CGPoint.t @-> returning void) x +let returnKeyDisplayName self = msg_send ~self ~cmd:(selector "returnKeyDisplayName") ~typ:(returning id) +let returnKeyEnabled self = msg_send ~self ~cmd:(selector "returnKeyEnabled") ~typ:(returning bool) +let returnKeyType self = msg_send ~self ~cmd:(selector "returnKeyType") ~typ:(returning int) +let revealHiddenCandidates self = msg_send ~self ~cmd:(selector "revealHiddenCandidates") ~typ:(returning void) +let rivenSplitLock self = msg_send ~self ~cmd:(selector "rivenSplitLock") ~typ:(returning bool) +let saveInputModesPreference x self = msg_send ~self ~cmd:(selector "saveInputModesPreference:") ~typ:(id @-> returning void) x +let scaleCurrentForceFrom x ~to_ self = msg_send ~self ~cmd:(selector "scaleCurrentForceFrom:to:") ~typ:(double @-> double @-> returning double) x to_ +let scheduleReplacementsAfterDeletionToEndOfWord self = msg_send ~self ~cmd:(selector "scheduleReplacementsAfterDeletionToEndOfWord") ~typ:(returning void) +let scheduleReplacementsWithOptions x self = msg_send ~self ~cmd:(selector "scheduleReplacementsWithOptions:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let searchStringForMarkedText self = msg_send ~self ~cmd:(selector "searchStringForMarkedText") ~typ:(returning id) +let selectionDidChange x self = msg_send ~self ~cmd:(selector "selectionDidChange:") ~typ:(id @-> returning void) x +let selectionScrolling x self = msg_send ~self ~cmd:(selector "selectionScrolling:") ~typ:(id @-> returning void) x +let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning id) +let selectionWillChange x self = msg_send ~self ~cmd:(selector "selectionWillChange:") ~typ:(id @-> returning void) x +let sendCallbacksForPostCorrectionsRemoval self = msg_send ~self ~cmd:(selector "sendCallbacksForPostCorrectionsRemoval") ~typ:(returning void) +let sendCallbacksForPreCorrectionsDisplay self = msg_send ~self ~cmd:(selector "sendCallbacksForPreCorrectionsDisplay") ~typ:(returning void) +let serviceRole self = msg_send ~self ~cmd:(selector "serviceRole") ~typ:(returning ullong) +let setAlternativePredictions x self = msg_send ~self ~cmd:(selector "setAlternativePredictions:") ~typ:(id @-> returning void) x +let setAnimateUpdateBars x self = msg_send ~self ~cmd:(selector "setAnimateUpdateBars:") ~typ:(bool @-> returning void) x +let setArrowKeyHistory x self = msg_send ~self ~cmd:(selector "setArrowKeyHistory:") ~typ:(id @-> returning void) x +let setAttributedMarkedText x ~selectedRange ~inputString ~searchString self = msg_send ~self ~cmd:(selector "setAttributedMarkedText:selectedRange:inputString:searchString:") ~typ:(id @-> NSRange.t @-> id @-> id @-> returning void) x selectedRange inputString searchString +let setAutocorrectBubbleContainer x self = msg_send ~self ~cmd:(selector "setAutocorrectBubbleContainer:") ~typ:(id @-> returning void) x +let setAutocorrectPromptTask x self = msg_send ~self ~cmd:(selector "setAutocorrectPromptTask:") ~typ:(id @-> returning void) x +let setAutocorrectSpellingEnabled x self = msg_send ~self ~cmd:(selector "setAutocorrectSpellingEnabled:") ~typ:(bool @-> returning void) x +let setAutocorrection x self = msg_send ~self ~cmd:(selector "setAutocorrection:") ~typ:(id @-> returning void) x +let setAutocorrectionList x self = msg_send ~self ~cmd:(selector "setAutocorrectionList:") ~typ:(id @-> returning void) x +let setAutocorrectionToAcceptBeforeProgressiveCandidates x self = msg_send ~self ~cmd:(selector "setAutocorrectionToAcceptBeforeProgressiveCandidates:") ~typ:(id @-> returning void) x +let setAutofillController x self = msg_send ~self ~cmd:(selector "setAutofillController:") ~typ:(id @-> returning void) x +let setAutomaticMinimizationEnabled x self = msg_send ~self ~cmd:(selector "setAutomaticMinimizationEnabled:") ~typ:(bool @-> returning void) x +let setCandidateList x self = msg_send ~self ~cmd:(selector "setCandidateList:") ~typ:(id @-> returning void) x +let setCandidateViewOffset x self = msg_send ~self ~cmd:(selector "setCandidateViewOffset:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCandidates x self = msg_send ~self ~cmd:(selector "setCandidates:") ~typ:(id @-> returning void) x +let setCapsLockIfNeeded self = msg_send ~self ~cmd:(selector "setCapsLockIfNeeded") ~typ:(returning void) +let setCapsLockSign self = msg_send ~self ~cmd:(selector "setCapsLockSign") ~typ:(returning void) +let setCaretBlinks x self = msg_send ~self ~cmd:(selector "setCaretBlinks:") ~typ:(bool @-> returning void) x +let setCaretVisible x self = msg_send ~self ~cmd:(selector "setCaretVisible:") ~typ:(bool @-> returning void) x +let setChangeNotificationDisabled x self = msg_send ~self ~cmd:(selector "setChangeNotificationDisabled:") ~typ:(bool @-> returning void) x +let setChanged self = msg_send ~self ~cmd:(selector "setChanged") ~typ:(returning void) +let setChangedDelegate x self = msg_send ~self ~cmd:(selector "setChangedDelegate:") ~typ:(id @-> returning void) x +let setCharacterRectsForCharacterRange x self = msg_send ~self ~cmd:(selector "setCharacterRectsForCharacterRange:") ~typ:(id @-> returning void) x +let setCommittingCandidate x self = msg_send ~self ~cmd:(selector "setCommittingCandidate:") ~typ:(bool @-> returning void) x +let setCorrectionLearningAllowed x self = msg_send ~self ~cmd:(selector "setCorrectionLearningAllowed:") ~typ:(bool @-> returning void) x +let setCurrentCandidateRequest x self = msg_send ~self ~cmd:(selector "setCurrentCandidateRequest:") ~typ:(id @-> returning void) x +let setCursorAssertion x self = msg_send ~self ~cmd:(selector "setCursorAssertion:") ~typ:(id @-> returning void) x +let setDefaultTextInputTraits x self = msg_send ~self ~cmd:(selector "setDefaultTextInputTraits:") ~typ:(id @-> returning void) x +let setDeferredDidSetDelegateAction x self = msg_send ~self ~cmd:(selector "setDeferredDidSetDelegateAction:") ~typ:(id @-> returning void) x +let setDelayedCandidateRequest x self = msg_send ~self ~cmd:(selector "setDelayedCandidateRequest:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDelegate' x ~force self = msg_send ~self ~cmd:(selector "setDelegate:force:") ~typ:(id @-> bool @-> returning void) x force +let setDeleteWordLastDelete x self = msg_send ~self ~cmd:(selector "setDeleteWordLastDelete:") ~typ:(double @-> returning void) x +let setDeletedString x self = msg_send ~self ~cmd:(selector "setDeletedString:") ~typ:(id @-> returning void) x +let setDisableSmartInsertDelete x self = msg_send ~self ~cmd:(selector "setDisableSmartInsertDelete:") ~typ:(bool @-> returning void) x +let setDocumentState x self = msg_send ~self ~cmd:(selector "setDocumentState:") ~typ:(id @-> returning void) x +let setDocumentStateForAutocorrection x self = msg_send ~self ~cmd:(selector "setDocumentStateForAutocorrection:") ~typ:(id @-> returning void) x +let setEditingTraitsMarkedDirty x self = msg_send ~self ~cmd:(selector "setEditingTraitsMarkedDirty:") ~typ:(bool @-> returning void) x +let setEventForCurrentWebEvent x self = msg_send ~self ~cmd:(selector "setEventForCurrentWebEvent:") ~typ:(id @-> returning void) x +let setExternalTask x self = msg_send ~self ~cmd:(selector "setExternalTask:") ~typ:((ptr void) @-> returning void) x +let setFeedbackGenerator x self = msg_send ~self ~cmd:(selector "setFeedbackGenerator:") ~typ:(id @-> returning void) x +let setFloatingForced x self = msg_send ~self ~cmd:(selector "setFloatingForced:") ~typ:(bool @-> returning void) x +let setForCustomInputView x self = msg_send ~self ~cmd:(selector "setForCustomInputView:") ~typ:(bool @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setGeometryDelegate x self = msg_send ~self ~cmd:(selector "setGeometryDelegate:") ~typ:(id @-> returning void) x +let setGeometryIsChanging x self = msg_send ~self ~cmd:(selector "setGeometryIsChanging:") ~typ:(bool @-> returning void) x +let setHandlingKeyCommandFromHardwareKeyboard x self = msg_send ~self ~cmd:(selector "setHandlingKeyCommandFromHardwareKeyboard:") ~typ:(bool @-> returning void) x +let setHardwareKeyboardIsSeen x self = msg_send ~self ~cmd:(selector "setHardwareKeyboardIsSeen:") ~typ:(bool @-> returning void) x +let setHardwareKeyboardsSeenPreference x self = msg_send ~self ~cmd:(selector "setHardwareKeyboardsSeenPreference:") ~typ:(id @-> returning void) x +let setInHardwareKeyboardMode x self = msg_send ~self ~cmd:(selector "setInHardwareKeyboardMode:") ~typ:(bool @-> returning void) x +let setInHardwareKeyboardMode' x ~forceRebuild self = msg_send ~self ~cmd:(selector "setInHardwareKeyboardMode:forceRebuild:") ~typ:(bool @-> bool @-> returning void) x forceRebuild +let setInSplitKeyboardMode x self = msg_send ~self ~cmd:(selector "setInSplitKeyboardMode:") ~typ:(bool @-> returning void) x +let setInitialDirection self = msg_send ~self ~cmd:(selector "setInitialDirection") ~typ:(returning void) +let setInputDelegateManager x self = msg_send ~self ~cmd:(selector "setInputDelegateManager:") ~typ:(id @-> returning void) x +let setInputManagerFromCurrentInputMode self = msg_send ~self ~cmd:(selector "setInputManagerFromCurrentInputMode") ~typ:(returning void) +let setInputManagerState x self = msg_send ~self ~cmd:(selector "setInputManagerState:") ~typ:(id @-> returning void) x +let setInputMode x self = msg_send ~self ~cmd:(selector "setInputMode:") ~typ:(id @-> returning void) x +let setInputMode1 x ~userInitiated self = msg_send ~self ~cmd:(selector "setInputMode:userInitiated:") ~typ:(id @-> bool @-> returning void) x userInitiated +let setInputMode2 x ~userInitiated ~updateIndicator ~executionContext self = msg_send ~self ~cmd:(selector "setInputMode:userInitiated:updateIndicator:executionContext:") ~typ:(id @-> bool @-> bool @-> id @-> returning void) x userInitiated updateIndicator executionContext +let setInputModeFromPreferences self = msg_send ~self ~cmd:(selector "setInputModeFromPreferences") ~typ:(returning void) +let setInputModeToNextASCIICapableInPreferredList self = msg_send ~self ~cmd:(selector "setInputModeToNextASCIICapableInPreferredList") ~typ:(returning void) +let setInputModeToNextInPreferredListWithExecutionContext x self = msg_send ~self ~cmd:(selector "setInputModeToNextInPreferredListWithExecutionContext:") ~typ:(id @-> returning void) x +let setInputPoint x self = msg_send ~self ~cmd:(selector "setInputPoint:") ~typ:(CGPoint.t @-> returning void) x +let setInternationalKeyIntroductionView x self = msg_send ~self ~cmd:(selector "setInternationalKeyIntroductionView:") ~typ:(id @-> returning void) x +let setIsAttachedHardwareKeyboard x self = msg_send ~self ~cmd:(selector "setIsAttachedHardwareKeyboard:") ~typ:(id @-> returning void) x +let setIsCallingTextChangedDuringInputModeSwitch x self = msg_send ~self ~cmd:(selector "setIsCallingTextChangedDuringInputModeSwitch:") ~typ:(bool @-> returning void) x +let setKeyboardInputMode x ~userInitiated self = msg_send ~self ~cmd:(selector "setKeyboardInputMode:userInitiated:") ~typ:(id @-> bool @-> returning void) x userInitiated +let setKeyboardInputMode' x ~userInitiated ~updateIndicator ~executionContext self = msg_send ~self ~cmd:(selector "setKeyboardInputMode:userInitiated:updateIndicator:executionContext:") ~typ:(id @-> bool @-> bool @-> id @-> returning void) x userInitiated updateIndicator executionContext +let setKeyboardInputModeFromPreferences x self = msg_send ~self ~cmd:(selector "setKeyboardInputModeFromPreferences:") ~typ:(id @-> returning void) x +let setLabel x ~forKey self = msg_send ~self ~cmd:(selector "setLabel:forKey:") ~typ:(id @-> id @-> returning void) x forKey +let setLastChooseSupplementalItemToInsertCallbackIdentifier x self = msg_send ~self ~cmd:(selector "setLastChooseSupplementalItemToInsertCallbackIdentifier:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setLastMatchedSupplementalCandidate x self = msg_send ~self ~cmd:(selector "setLastMatchedSupplementalCandidate:") ~typ:(id @-> returning void) x +let setLayoutAllowsContinuousPath x self = msg_send ~self ~cmd:(selector "setLayoutAllowsContinuousPath:") ~typ:(bool @-> returning void) x +let setLayoutForKeyHitTest x self = msg_send ~self ~cmd:(selector "setLayoutForKeyHitTest:") ~typ:(id @-> returning void) x +let setLayoutRenderConfig x self = msg_send ~self ~cmd:(selector "setLayoutRenderConfig:") ~typ:(id @-> returning void) x +let setLockFloating x self = msg_send ~self ~cmd:(selector "setLockFloating:") ~typ:(bool @-> returning void) x +let setMarkedText x ~selectedRange ~inputString ~searchString ~candidateOffset ~liveConversionSegments ~highlighSegmentIndex self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:inputString:searchString:candidateOffset:liveConversionSegments:highlighSegmentIndex:") ~typ:(id @-> NSRange.t @-> id @-> id @-> llong @-> id @-> ullong @-> returning void) x selectedRange inputString searchString (LLong.of_int candidateOffset) liveConversionSegments (ULLong.of_int highlighSegmentIndex) +let setOverrideTextInputTraits x self = msg_send ~self ~cmd:(selector "setOverrideTextInputTraits:") ~typ:(id @-> returning void) x +let setPendingAutofillIndex x self = msg_send ~self ~cmd:(selector "setPendingAutofillIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPendingSupplementalCandidateToInsert x self = msg_send ~self ~cmd:(selector "setPendingSupplementalCandidateToInsert:") ~typ:(id @-> returning void) x +let setPreviousGlobeKeyEvent x self = msg_send ~self ~cmd:(selector "setPreviousGlobeKeyEvent:") ~typ:(id @-> returning void) x +let setPreviousInputString x self = msg_send ~self ~cmd:(selector "setPreviousInputString:") ~typ:(id @-> returning void) x +let setPrewarmsPredictiveCandidates x self = msg_send ~self ~cmd:(selector "setPrewarmsPredictiveCandidates:") ~typ:(bool @-> returning void) x +let setReceivedCandidatesInCurrentInputMode x self = msg_send ~self ~cmd:(selector "setReceivedCandidatesInCurrentInputMode:") ~typ:(bool @-> returning void) x +let setRequestedInteractionModel x self = msg_send ~self ~cmd:(selector "setRequestedInteractionModel:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setReturnKeyEnabled x self = msg_send ~self ~cmd:(selector "setReturnKeyEnabled:") ~typ:(bool @-> returning void) x +let setRivenSplitLock x self = msg_send ~self ~cmd:(selector "setRivenSplitLock:") ~typ:(bool @-> returning void) x +let setSelectionWithPoint x self = msg_send ~self ~cmd:(selector "setSelectionWithPoint:") ~typ:(CGPoint.t @-> returning void) x +let setServiceRole x self = msg_send ~self ~cmd:(selector "setServiceRole:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setShift x self = msg_send ~self ~cmd:(selector "setShift:") ~typ:(bool @-> returning void) x +let setShift' x ~autoshift self = msg_send ~self ~cmd:(selector "setShift:autoshift:") ~typ:(bool @-> bool @-> returning void) x autoshift +let setShiftLocked x self = msg_send ~self ~cmd:(selector "setShiftLocked:") ~typ:(bool @-> returning void) x +let setShiftLockedForced x self = msg_send ~self ~cmd:(selector "setShiftLockedForced:") ~typ:(bool @-> returning void) x +let setShiftNeedsUpdate self = msg_send ~self ~cmd:(selector "setShiftNeedsUpdate") ~typ:(returning void) +let setShiftOffIfNeeded self = msg_send ~self ~cmd:(selector "setShiftOffIfNeeded") ~typ:(returning void) +let setShiftPreventAutoshift x self = msg_send ~self ~cmd:(selector "setShiftPreventAutoshift:") ~typ:(bool @-> returning void) x +let setShouldIgnoreTextInputChanges x self = msg_send ~self ~cmd:(selector "setShouldIgnoreTextInputChanges:") ~typ:(bool @-> returning void) x +let setShouldSkipCandidateSelection x self = msg_send ~self ~cmd:(selector "setShouldSkipCandidateSelection:") ~typ:(bool @-> returning void) x +let setShouldSkipCandidateSelection' x ~userInitiated self = msg_send ~self ~cmd:(selector "setShouldSkipCandidateSelection:userInitiated:") ~typ:(bool @-> bool @-> returning void) x userInitiated +let setShouldUpdateCacheOnInputModesChange x self = msg_send ~self ~cmd:(selector "setShouldUpdateCacheOnInputModesChange:") ~typ:(bool @-> returning void) x +let setShouldUpdateLayoutAutomatically x self = msg_send ~self ~cmd:(selector "setShouldUpdateLayoutAutomatically:") ~typ:(bool @-> returning void) x +let setShowInputModeIndicator x self = msg_send ~self ~cmd:(selector "setShowInputModeIndicator:") ~typ:(bool @-> returning void) x +let setShowsCandidateBar x self = msg_send ~self ~cmd:(selector "setShowsCandidateBar:") ~typ:(bool @-> returning void) x +let setShowsCandidateInline x self = msg_send ~self ~cmd:(selector "setShowsCandidateInline:") ~typ:(bool @-> returning void) x +let setSplit x ~animated self = msg_send ~self ~cmd:(selector "setSplit:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setSplitProgress x self = msg_send ~self ~cmd:(selector "setSplitProgress:") ~typ:(double @-> returning void) x +let setSuggestions x self = msg_send ~self ~cmd:(selector "setSuggestions:") ~typ:(id @-> returning void) x +let setSuppressUpdateAssistantView x self = msg_send ~self ~cmd:(selector "setSuppressUpdateAssistantView:") ~typ:(bool @-> returning void) x +let setSuppressUpdateLayout x self = msg_send ~self ~cmd:(selector "setSuppressUpdateLayout:") ~typ:(bool @-> returning void) x +let setSuppressUpdateShiftState x self = msg_send ~self ~cmd:(selector "setSuppressUpdateShiftState:") ~typ:(bool @-> returning void) x +let setTextInputChangesIgnored x self = msg_send ~self ~cmd:(selector "setTextInputChangesIgnored:") ~typ:(bool @-> returning void) x +let setTextSelectionController x self = msg_send ~self ~cmd:(selector "setTextSelectionController:") ~typ:(id @-> returning void) x +let setTextSelectionControllerFromDelegate self = msg_send ~self ~cmd:(selector "setTextSelectionControllerFromDelegate") ~typ:(returning void) +let setTouchEventWaitingForKeyInputEvent x self = msg_send ~self ~cmd:(selector "setTouchEventWaitingForKeyInputEvent:") ~typ:(id @-> returning void) x +let setTwoFingerTapTimestamp x self = msg_send ~self ~cmd:(selector "setTwoFingerTapTimestamp:") ~typ:(double @-> returning void) x +let setUpdateCapsLockDelayOverrideForNonTyping x self = msg_send ~self ~cmd:(selector "setUpdateCapsLockDelayOverrideForNonTyping:") ~typ:(id @-> returning void) x +let setUserSelectedCurrentCandidate x self = msg_send ~self ~cmd:(selector "setUserSelectedCurrentCandidate:") ~typ:(bool @-> returning void) x +let setUsesCandidateSelection x self = msg_send ~self ~cmd:(selector "setUsesCandidateSelection:") ~typ:(bool @-> returning void) x +let shiftLockPreference self = msg_send ~self ~cmd:(selector "shiftLockPreference") ~typ:(returning bool) +let shiftLockedEnabled self = msg_send ~self ~cmd:(selector "shiftLockedEnabled") ~typ:(returning bool) +let shouldAcceptCandidate x ~beforeInputString self = msg_send ~self ~cmd:(selector "shouldAcceptCandidate:beforeInputString:") ~typ:(id @-> id @-> returning bool) x beforeInputString +let shouldAcceptContinuousPathConversion x self = msg_send ~self ~cmd:(selector "shouldAcceptContinuousPathConversion:") ~typ:(id @-> returning bool) x +let shouldAllowRepeatEvent x self = msg_send ~self ~cmd:(selector "shouldAllowRepeatEvent:") ~typ:(id @-> returning bool) x +let shouldAllowSelectionGestures x ~atPoint ~toBegin self = msg_send ~self ~cmd:(selector "shouldAllowSelectionGestures:atPoint:toBegin:") ~typ:(bool @-> CGPoint.t @-> bool @-> returning bool) x atPoint toBegin +let shouldAllowTwoFingerSelectionGestureOnView x self = msg_send ~self ~cmd:(selector "shouldAllowTwoFingerSelectionGestureOnView:") ~typ:(id @-> returning bool) x +let shouldApplyAcceptedAutocorrection x self = msg_send ~self ~cmd:(selector "shouldApplyAcceptedAutocorrection:") ~typ:(id @-> returning bool) x +let shouldDeleteAutospaceBeforeTerminator x self = msg_send ~self ~cmd:(selector "shouldDeleteAutospaceBeforeTerminator:") ~typ:(id @-> returning bool) x +let shouldEnableShiftForDeletedCharacter x self = msg_send ~self ~cmd:(selector "shouldEnableShiftForDeletedCharacter:") ~typ:(uint @-> returning bool) x +let shouldExtendLongPressAction x self = msg_send ~self ~cmd:(selector "shouldExtendLongPressAction:") ~typ:(id @-> returning double) x +let shouldForwardInsertSpaceAfterAcceptingPredictiveInput x self = msg_send ~self ~cmd:(selector "shouldForwardInsertSpaceAfterAcceptingPredictiveInput:") ~typ:(id @-> returning bool) x +let shouldGenerateCandidatesAfterSelectionChange self = msg_send ~self ~cmd:(selector "shouldGenerateCandidatesAfterSelectionChange") ~typ:(returning bool) +let shouldIgnoreTextInputChanges self = msg_send ~self ~cmd:(selector "shouldIgnoreTextInputChanges") ~typ:(returning bool) +let shouldLoadAutofillSignUpInputViewController self = msg_send ~self ~cmd:(selector "shouldLoadAutofillSignUpInputViewController") ~typ:(returning bool) +let shouldPrioritizeTextSuggestionsOverCandidateResultSet x self = msg_send ~self ~cmd:(selector "shouldPrioritizeTextSuggestionsOverCandidateResultSet:") ~typ:(id @-> returning bool) x +let shouldRapidDelete self = msg_send ~self ~cmd:(selector "shouldRapidDelete") ~typ:(returning bool) +let shouldRapidDeleteWithDelegate self = msg_send ~self ~cmd:(selector "shouldRapidDeleteWithDelegate") ~typ:(returning bool) +let shouldShowCandidateBar self = msg_send ~self ~cmd:(selector "shouldShowCandidateBar") ~typ:(returning bool) +let shouldShowCandidateBarIfReceivedCandidatesInCurrentInputMode x ~ignoreHidePredictionTrait self = msg_send ~self ~cmd:(selector "shouldShowCandidateBarIfReceivedCandidatesInCurrentInputMode:ignoreHidePredictionTrait:") ~typ:(bool @-> bool @-> returning bool) x ignoreHidePredictionTrait +let shouldShowContinuousPathIntroductionView self = msg_send ~self ~cmd:(selector "shouldShowContinuousPathIntroductionView") ~typ:(returning bool) +let shouldShowDictationKey self = msg_send ~self ~cmd:(selector "shouldShowDictationKey") ~typ:(returning bool) +let shouldShowEditingIntroductionView self = msg_send ~self ~cmd:(selector "shouldShowEditingIntroductionView") ~typ:(returning bool) +let shouldShowInternationalKey self = msg_send ~self ~cmd:(selector "shouldShowInternationalKey") ~typ:(returning bool) +let shouldShowInternationalKeyIntroduction self = msg_send ~self ~cmd:(selector "shouldShowInternationalKeyIntroduction") ~typ:(returning bool) +let shouldShowKeyboardMenu self = msg_send ~self ~cmd:(selector "shouldShowKeyboardMenu") ~typ:(returning bool) +let shouldShowLongPredictionList self = msg_send ~self ~cmd:(selector "shouldShowLongPredictionList") ~typ:(returning bool) +let shouldSkipCandidateSelection self = msg_send ~self ~cmd:(selector "shouldSkipCandidateSelection") ~typ:(returning bool) +let shouldSwitchFromInputManagerMode x ~toInputMode self = msg_send ~self ~cmd:(selector "shouldSwitchFromInputManagerMode:toInputMode:") ~typ:(id @-> id @-> returning bool) x toInputMode +let shouldSwitchInputMode x self = msg_send ~self ~cmd:(selector "shouldSwitchInputMode:") ~typ:(id @-> returning bool) x +let shouldUpdateLayoutAutomatically self = msg_send ~self ~cmd:(selector "shouldUpdateLayoutAutomatically") ~typ:(returning bool) +let shouldUseCarPlayModes self = msg_send ~self ~cmd:(selector "shouldUseCarPlayModes") ~typ:(returning bool) +let shouldUsePinyinStyleRowNavigation self = msg_send ~self ~cmd:(selector "shouldUsePinyinStyleRowNavigation") ~typ:(returning bool) +let showFirstTextAlternativeWithRangeAdjustment x self = msg_send ~self ~cmd:(selector "showFirstTextAlternativeWithRangeAdjustment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let showInputModeIndicator self = msg_send ~self ~cmd:(selector "showInputModeIndicator") ~typ:(returning bool) +let showInternationalKeyIntroductionIfNeededWithPreviousInputMode x self = msg_send ~self ~cmd:(selector "showInternationalKeyIntroductionIfNeededWithPreviousInputMode:") ~typ:(id @-> returning void) x +let showKeyboard self = msg_send ~self ~cmd:(selector "showKeyboard") ~typ:(returning void) +let showKeyboardIfNeeded self = msg_send ~self ~cmd:(selector "showKeyboardIfNeeded") ~typ:(returning void) +let showKeyboardWithoutSuppressionPolicy self = msg_send ~self ~cmd:(selector "showKeyboardWithoutSuppressionPolicy") ~typ:(returning void) +let showNextCandidates self = msg_send ~self ~cmd:(selector "showNextCandidates") ~typ:(returning void) +let showNextPage self = msg_send ~self ~cmd:(selector "showNextPage") ~typ:(returning void) +let showPreviousCandidate self = msg_send ~self ~cmd:(selector "showPreviousCandidate") ~typ:(returning void) +let showSelectionCommands self = msg_send ~self ~cmd:(selector "showSelectionCommands") ~typ:(returning void) +let showTextAlternativesInRange x self = msg_send ~self ~cmd:(selector "showTextAlternativesInRange:") ~typ:(NSRange.t @-> returning void) x +let showsCandidateBar self = msg_send ~self ~cmd:(selector "showsCandidateBar") ~typ:(returning bool) +let showsCandidateInline self = msg_send ~self ~cmd:(selector "showsCandidateInline") ~typ:(returning bool) +let showsDedicatedEmojiKeyAlongsideGlobeButton self = msg_send ~self ~cmd:(selector "showsDedicatedEmojiKeyAlongsideGlobeButton") ~typ:(returning bool) +let skipHitTestForTouchEvent x self = msg_send ~self ~cmd:(selector "skipHitTestForTouchEvent:") ~typ:(id @-> returning void) x +let skipHitTestForTouchEvent' x ~delayed self = msg_send ~self ~cmd:(selector "skipHitTestForTouchEvent:delayed:") ~typ:(id @-> bool @-> returning void) x delayed +let skipHitTestForTouchEvents x self = msg_send ~self ~cmd:(selector "skipHitTestForTouchEvents:") ~typ:(id @-> returning void) x +let smartInsertDeleteIsEnabled self = msg_send ~self ~cmd:(selector "smartInsertDeleteIsEnabled") ~typ:(returning bool) +let smartPunctuationController self = msg_send ~self ~cmd:(selector "smartPunctuationController") ~typ:(returning id) +let smartSelectionForTextInDocument x ~inRange ~options ~completion self = msg_send ~self ~cmd:(selector "smartSelectionForTextInDocument:inRange:options:completion:") ~typ:(id @-> NSRange.t @-> ullong @-> (ptr void) @-> returning void) x inRange (ULLong.of_int options) completion +let splitTransitionInProgress self = msg_send ~self ~cmd:(selector "splitTransitionInProgress") ~typ:(returning bool) +let startAutoDeleteTimer self = msg_send ~self ~cmd:(selector "startAutoDeleteTimer") ~typ:(returning void) +let startAutoDeleteTimerForForce x self = msg_send ~self ~cmd:(selector "startAutoDeleteTimerForForce:") ~typ:(double @-> returning void) x +let startDelayDeleteTimer self = msg_send ~self ~cmd:(selector "startDelayDeleteTimer") ~typ:(returning void) +let stopAutoDelete self = msg_send ~self ~cmd:(selector "stopAutoDelete") ~typ:(returning void) +let subtractKeyboardFrameFromRect x ~inView self = msg_send ~self ~cmd:(selector "subtractKeyboardFrameFromRect:inView:") ~typ:(CGRect.t @-> id @-> returning CGRect.t) x inView +let suppliesCompletions self = msg_send ~self ~cmd:(selector "suppliesCompletions") ~typ:(returning bool) +let supportsNumberKeySelection self = msg_send ~self ~cmd:(selector "supportsNumberKeySelection") ~typ:(returning bool) +let suppressOptOutASPCandidateUpdateForDelegate x self = msg_send ~self ~cmd:(selector "suppressOptOutASPCandidateUpdateForDelegate:") ~typ:(id @-> returning bool) x +let suppressUpdateAssistantView self = msg_send ~self ~cmd:(selector "suppressUpdateAssistantView") ~typ:(returning bool) +let suppressUpdateLayout self = msg_send ~self ~cmd:(selector "suppressUpdateLayout") ~typ:(returning bool) +let suppressUpdateShiftState self = msg_send ~self ~cmd:(selector "suppressUpdateShiftState") ~typ:(returning bool) +let syncDocumentStateToInputDelegate self = msg_send ~self ~cmd:(selector "syncDocumentStateToInputDelegate") ~typ:(returning void) +let syncDocumentStateToInputDelegateWithExecutionContext x self = msg_send ~self ~cmd:(selector "syncDocumentStateToInputDelegateWithExecutionContext:") ~typ:(id @-> returning void) x +let syncInputManagerToAcceptedAutocorrection x ~forInput self = msg_send ~self ~cmd:(selector "syncInputManagerToAcceptedAutocorrection:forInput:") ~typ:(id @-> id @-> returning void) x forInput +let syncInputManagerToKeyboardState self = msg_send ~self ~cmd:(selector "syncInputManagerToKeyboardState") ~typ:(returning void) +let syncInputManagerToKeyboardStateWithExecutionContext x self = msg_send ~self ~cmd:(selector "syncInputManagerToKeyboardStateWithExecutionContext:") ~typ:(id @-> returning void) x +let syncKeyboardToConfiguration x self = msg_send ~self ~cmd:(selector "syncKeyboardToConfiguration:") ~typ:(id @-> returning void) x +let takeTextInputTraitsFromDelegate self = msg_send ~self ~cmd:(selector "takeTextInputTraitsFromDelegate") ~typ:(returning void) +let taskQueue self = msg_send ~self ~cmd:(selector "taskQueue") ~typ:(returning id) +let textAccepted x self = msg_send ~self ~cmd:(selector "textAccepted:") ~typ:(id @-> returning void) x +let textAccepted' x ~executionContext self = msg_send ~self ~cmd:(selector "textAccepted:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let textChanged x self = msg_send ~self ~cmd:(selector "textChanged:") ~typ:(id @-> returning void) x +let textChanged' x ~executionContext self = msg_send ~self ~cmd:(selector "textChanged:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let textDidChange x self = msg_send ~self ~cmd:(selector "textDidChange:") ~typ:(id @-> returning void) x +let textFrameChanged x self = msg_send ~self ~cmd:(selector "textFrameChanged:") ~typ:(id @-> returning void) x +let textInputChangingCount self = msg_send ~self ~cmd:(selector "textInputChangingCount") ~typ:(returning int) +let textInputTraits self = msg_send ~self ~cmd:(selector "textInputTraits") ~typ:(returning id) +let textInputTraitsNeedAutofill self = msg_send ~self ~cmd:(selector "textInputTraitsNeedAutofill") ~typ:(returning bool) +let textInputTraitsNeedAutofillExcludeOneTimeCodeAndContact self = msg_send ~self ~cmd:(selector "textInputTraitsNeedAutofillExcludeOneTimeCodeAndContact") ~typ:(returning bool) +let textInputTraitsNeedContactAutoFill self = msg_send ~self ~cmd:(selector "textInputTraitsNeedContactAutoFill") ~typ:(returning bool) +let textInputTraitsNeedOneTimeCode self = msg_send ~self ~cmd:(selector "textInputTraitsNeedOneTimeCode") ~typ:(returning bool) +let textInputTraitsNeedSignup self = msg_send ~self ~cmd:(selector "textInputTraitsNeedSignup") ~typ:(returning bool) +let textInteractionAssistant self = msg_send ~self ~cmd:(selector "textInteractionAssistant") ~typ:(returning id) +let textSelectionController self = msg_send ~self ~cmd:(selector "textSelectionController") ~typ:(returning id) +let textSelectionControllerForInputDelegate x self = msg_send ~self ~cmd:(selector "textSelectionControllerForInputDelegate:") ~typ:(id @-> returning id) x +let textSuggestionDidChange x self = msg_send ~self ~cmd:(selector "textSuggestionDidChange:") ~typ:(id @-> returning void) x +let textWillChange x self = msg_send ~self ~cmd:(selector "textWillChange:") ~typ:(id @-> returning void) x +let timeoutForCurrentForce self = msg_send ~self ~cmd:(selector "timeoutForCurrentForce") ~typ:(returning double) +let timestampOfLastTouchesEnded self = msg_send ~self ~cmd:(selector "timestampOfLastTouchesEnded") ~typ:(returning double) +let toggleShift self = msg_send ~self ~cmd:(selector "toggleShift") ~typ:(returning void) +let toggleSoftwareKeyboard self = msg_send ~self ~cmd:(selector "toggleSoftwareKeyboard") ~typ:(returning void) +let touchAutoDeleteTimerWithThreshold x ~adjustForPartialCompletion self = msg_send ~self ~cmd:(selector "touchAutoDeleteTimerWithThreshold:adjustForPartialCompletion:") ~typ:(double @-> bool @-> returning void) x adjustForPartialCompletion +let touchAutocorrectPromptTimer self = msg_send ~self ~cmd:(selector "touchAutocorrectPromptTimer") ~typ:(returning void) +let touchDelayDeleteTimerWithThreshold x self = msg_send ~self ~cmd:(selector "touchDelayDeleteTimerWithThreshold:") ~typ:(double @-> returning void) x +let touchEventWaitingForKeyInputEvent self = msg_send ~self ~cmd:(selector "touchEventWaitingForKeyInputEvent") ~typ:(returning id) +let touchLongPressTimer self = msg_send ~self ~cmd:(selector "touchLongPressTimer") ~typ:(returning void) +let touchLongPressTimerWithDelay x self = msg_send ~self ~cmd:(selector "touchLongPressTimerWithDelay:") ~typ:(double @-> returning void) x +let touchLongPressTimerWithDelay' x ~userInfo self = msg_send ~self ~cmd:(selector "touchLongPressTimerWithDelay:userInfo:") ~typ:(double @-> id @-> returning void) x userInfo +let touchUpdateLastUsedInputModeAction self = msg_send ~self ~cmd:(selector "touchUpdateLastUsedInputModeAction") ~typ:(returning void) +let trackResponderForAutofillIfNeeded x self = msg_send ~self ~cmd:(selector "trackResponderForAutofillIfNeeded:") ~typ:(id @-> returning void) x +let trackUsageForAcceptedAutocorrection x ~promptWasShowing self = msg_send ~self ~cmd:(selector "trackUsageForAcceptedAutocorrection:promptWasShowing:") ~typ:(id @-> bool @-> returning void) x promptWasShowing +let trackUsageForCandidateAcceptedAction x self = msg_send ~self ~cmd:(selector "trackUsageForCandidateAcceptedAction:") ~typ:(id @-> returning void) x +let trackUsageForPromptedCorrection x ~inputString ~previousPrompt self = msg_send ~self ~cmd:(selector "trackUsageForPromptedCorrection:inputString:previousPrompt:") ~typ:(id @-> id @-> id @-> returning void) x inputString previousPrompt +let traitCollectionDidChange self = msg_send ~self ~cmd:(selector "traitCollectionDidChange") ~typ:(returning void) +let transitionInProgress self = msg_send ~self ~cmd:(selector "transitionInProgress") ~typ:(returning bool) +let unmarkText x self = msg_send ~self ~cmd:(selector "unmarkText:") ~typ:(id @-> returning void) x +let updateAssistantView self = msg_send ~self ~cmd:(selector "updateAssistantView") ~typ:(returning void) +let updateAutocorrectContainerWithAutocorrection x ~parentView ~correctionRects self = msg_send ~self ~cmd:(selector "updateAutocorrectContainerWithAutocorrection:parentView:correctionRects:") ~typ:(id @-> id @-> id @-> returning void) x parentView correctionRects +let updateAutocorrectPrompt x self = msg_send ~self ~cmd:(selector "updateAutocorrectPrompt:") ~typ:(id @-> returning void) x +let updateAutocorrectPrompt1 x ~correctionRects self = msg_send ~self ~cmd:(selector "updateAutocorrectPrompt:correctionRects:") ~typ:(id @-> id @-> returning void) x correctionRects +let updateAutocorrectPrompt2 x ~executionContext self = msg_send ~self ~cmd:(selector "updateAutocorrectPrompt:executionContext:") ~typ:(id @-> id @-> returning void) x executionContext +let updateCandidateDisplay self = msg_send ~self ~cmd:(selector "updateCandidateDisplay") ~typ:(returning void) +let updateCandidateDisplayAsyncWithCandidateSet x self = msg_send ~self ~cmd:(selector "updateCandidateDisplayAsyncWithCandidateSet:") ~typ:(id @-> returning void) x +let updateCapsLockDelayOverrideForNonTyping self = msg_send ~self ~cmd:(selector "updateCapsLockDelayOverrideForNonTyping") ~typ:(returning id) +let updateChangeTimeAndIncrementCount self = msg_send ~self ~cmd:(selector "updateChangeTimeAndIncrementCount") ~typ:(returning void) +let updateDefaultsWithResults x self = msg_send ~self ~cmd:(selector "updateDefaultsWithResults:") ~typ:((ptr void) @-> returning void) x +let updateDelegatePasteSupport self = msg_send ~self ~cmd:(selector "updateDelegatePasteSupport") ~typ:(returning void) +let updateDoubleSpacePeriodStateForCharacter x self = msg_send ~self ~cmd:(selector "updateDoubleSpacePeriodStateForCharacter:") ~typ:(uint @-> returning void) x +let updateDoubleSpacePeriodStateForString x self = msg_send ~self ~cmd:(selector "updateDoubleSpacePeriodStateForString:") ~typ:(id @-> returning void) x +let updateForChangedSelection self = msg_send ~self ~cmd:(selector "updateForChangedSelection") ~typ:(returning void) +let updateForChangedSelectionWithExecutionContext x self = msg_send ~self ~cmd:(selector "updateForChangedSelectionWithExecutionContext:") ~typ:(id @-> returning void) x +let updateForHandBiasChange self = msg_send ~self ~cmd:(selector "updateForHandBiasChange") ~typ:(returning void) +let updateFromTextInputTraits self = msg_send ~self ~cmd:(selector "updateFromTextInputTraits") ~typ:(returning void) +let updateHardwareKeyboardLayout self = msg_send ~self ~cmd:(selector "updateHardwareKeyboardLayout") ~typ:(returning void) +let updateHardwareKeyboardLayout' x self = msg_send ~self ~cmd:(selector "updateHardwareKeyboardLayout:") ~typ:(bool @-> returning void) x +let updateInputAssistantButtonItems self = msg_send ~self ~cmd:(selector "updateInputAssistantButtonItems") ~typ:(returning void) +let updateInputDelegateForRemoteDocumentStateChange x ~selectedTextRange ~forceSync self = msg_send ~self ~cmd:(selector "updateInputDelegateForRemoteDocumentStateChange:selectedTextRange:forceSync:") ~typ:(id @-> NSRange.t @-> bool @-> returning void) x selectedTextRange forceSync +let updateInputDelegateForRemoteTraitChange x ~forceSync self = msg_send ~self ~cmd:(selector "updateInputDelegateForRemoteTraitChange:forceSync:") ~typ:(id @-> bool @-> returning void) x forceSync +let updateInputManagerAutocapitalizationType self = msg_send ~self ~cmd:(selector "updateInputManagerAutocapitalizationType") ~typ:(returning void) +let updateInputManagerMode self = msg_send ~self ~cmd:(selector "updateInputManagerMode") ~typ:(returning void) +let updateInputModeIndicatorOnSingleKeyOnly x self = msg_send ~self ~cmd:(selector "updateInputModeIndicatorOnSingleKeyOnly:") ~typ:(bool @-> returning void) x +let updateInputModeIndicatorOnSingleKeyOnly' x ~preserveIfPossible self = msg_send ~self ~cmd:(selector "updateInputModeIndicatorOnSingleKeyOnly:preserveIfPossible:") ~typ:(bool @-> bool @-> returning void) x preserveIfPossible +let updateInputModeLastChosenPreference self = msg_send ~self ~cmd:(selector "updateInputModeLastChosenPreference") ~typ:(returning void) +let updateIsAttachedHardwareKeyboard self = msg_send ~self ~cmd:(selector "updateIsAttachedHardwareKeyboard") ~typ:(returning void) +let updateKeyBehaviors x ~withBehaviors ~forState self = msg_send ~self ~cmd:(selector "updateKeyBehaviors:withBehaviors:forState:") ~typ:(id @-> id @-> id @-> returning id) x withBehaviors forState +let updateKeyboardConfigurations self = msg_send ~self ~cmd:(selector "updateKeyboardConfigurations") ~typ:(returning void) +let updateKeyboardEventsLagging x self = msg_send ~self ~cmd:(selector "updateKeyboardEventsLagging:") ~typ:(id @-> returning void) x +let updateKeyboardOutput x ~withInputForSmartPunctuation ~keyboardConfiguration self = msg_send ~self ~cmd:(selector "updateKeyboardOutput:withInputForSmartPunctuation:keyboardConfiguration:") ~typ:(id @-> id @-> id @-> returning void) x withInputForSmartPunctuation keyboardConfiguration +let updateKeyboardStateForDeletion self = msg_send ~self ~cmd:(selector "updateKeyboardStateForDeletion") ~typ:(returning void) +let updateKeyboardStateForInsertion x self = msg_send ~self ~cmd:(selector "updateKeyboardStateForInsertion:") ~typ:(id @-> returning void) x +let updateLayout self = msg_send ~self ~cmd:(selector "updateLayout") ~typ:(returning void) +let updateLayoutAndSetShift self = msg_send ~self ~cmd:(selector "updateLayoutAndSetShift") ~typ:(returning void) +let updateLayoutIfNecessary self = msg_send ~self ~cmd:(selector "updateLayoutIfNecessary") ~typ:(returning void) +let updateLayoutIfNeeded self = msg_send ~self ~cmd:(selector "updateLayoutIfNeeded") ~typ:(returning void) +let updateLayoutToCurrentInterfaceOrientation self = msg_send ~self ~cmd:(selector "updateLayoutToCurrentInterfaceOrientation") ~typ:(returning void) +let updateLegacyAutocorrectPromptWithAutocorrection x ~parentView ~correctionRects self = msg_send ~self ~cmd:(selector "updateLegacyAutocorrectPromptWithAutocorrection:parentView:correctionRects:") ~typ:(id @-> id @-> id @-> returning void) x parentView correctionRects +let updateNoContentViews self = msg_send ~self ~cmd:(selector "updateNoContentViews") ~typ:(returning void) +let updateObserverState self = msg_send ~self ~cmd:(selector "updateObserverState") ~typ:(returning void) +let updateReturnKey self = msg_send ~self ~cmd:(selector "updateReturnKey") ~typ:(returning void) +let updateReturnKey' x self = msg_send ~self ~cmd:(selector "updateReturnKey:") ~typ:(bool @-> returning void) x +let updateSecureCandidateRenderTraits self = msg_send ~self ~cmd:(selector "updateSecureCandidateRenderTraits") ~typ:(returning id) +let updateShiftState self = msg_send ~self ~cmd:(selector "updateShiftState") ~typ:(returning void) +let updateShowCandidateBar self = msg_send ~self ~cmd:(selector "updateShowCandidateBar") ~typ:(returning void) +let updateSmartPunctuationOptionsForLocaleIdentifier x self = msg_send ~self ~cmd:(selector "updateSmartPunctuationOptionsForLocaleIdentifier:") ~typ:(id @-> returning void) x +let updateStylingTraitsIfNeeded self = msg_send ~self ~cmd:(selector "updateStylingTraitsIfNeeded") ~typ:(returning void) +let updateTextCandidateView self = msg_send ~self ~cmd:(selector "updateTextCandidateView") ~typ:(returning void) +let updateTextInputKeyboardSource self = msg_send ~self ~cmd:(selector "updateTextInputKeyboardSource") ~typ:(returning void) +let updatedKeyBehaviors self = msg_send ~self ~cmd:(selector "updatedKeyBehaviors") ~typ:(returning id) +let updatingPreferences self = msg_send ~self ~cmd:(selector "updatingPreferences") ~typ:(returning bool) +let userSelectedCurrentCandidate self = msg_send ~self ~cmd:(selector "userSelectedCurrentCandidate") ~typ:(returning bool) +let usesAutoDeleteWord self = msg_send ~self ~cmd:(selector "usesAutoDeleteWord") ~typ:(returning bool) +let usesAutocorrectionLists self = msg_send ~self ~cmd:(selector "usesAutocorrectionLists") ~typ:(returning bool) +let usesCandidateSelection self = msg_send ~self ~cmd:(selector "usesCandidateSelection") ~typ:(returning bool) +let usesContinuousPath self = msg_send ~self ~cmd:(selector "usesContinuousPath") ~typ:(returning bool) +let usesContinuousPathProgressiveCandidates self = msg_send ~self ~cmd:(selector "usesContinuousPathProgressiveCandidates") ~typ:(returning bool) +let willDoubleSpacePeriodForInputString x ~afterSpace ~elapsedTime self = msg_send ~self ~cmd:(selector "willDoubleSpacePeriodForInputString:afterSpace:elapsedTime:") ~typ:(id @-> bool @-> double @-> returning bool) x afterSpace elapsedTime +let willMoveToWindow x self = msg_send ~self ~cmd:(selector "willMoveToWindow:") ~typ:(id @-> returning void) x +let willReplaceTextInRangedSelectionWithKeyboardInput self = msg_send ~self ~cmd:(selector "willReplaceTextInRangedSelectionWithKeyboardInput") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardImplClass.ml b/uikit_extra/UIKeyboardImplClass.ml new file mode 100644 index 00000000..6d74f731 --- /dev/null +++ b/uikit_extra/UIKeyboardImplClass.ml @@ -0,0 +1,82 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardimpl?language=objc}UIKeyboardImpl} *) + +let activeInstance self = msg_send ~self ~cmd:(selector "activeInstance") ~typ:(returning id) +let additionalInstanceHeight self = msg_send ~self ~cmd:(selector "additionalInstanceHeight") ~typ:(returning double) +let additionalInstanceHeightForInterfaceOrientation x self = msg_send ~self ~cmd:(selector "additionalInstanceHeightForInterfaceOrientation:") ~typ:(llong @-> returning double) (LLong.of_int x) +let additionalInstanceHeightForInterfaceOrientation' x ~hasInputView self = msg_send ~self ~cmd:(selector "additionalInstanceHeightForInterfaceOrientation:hasInputView:") ~typ:(llong @-> bool @-> returning double) (LLong.of_int x) hasInputView +let applicationDidBecomeActive x self = msg_send ~self ~cmd:(selector "applicationDidBecomeActive:") ~typ:(id @-> returning void) x +let applicationDidEnterBackground x self = msg_send ~self ~cmd:(selector "applicationDidEnterBackground:") ~typ:(id @-> returning void) x +let applicationDidReceiveMemoryWarning x self = msg_send ~self ~cmd:(selector "applicationDidReceiveMemoryWarning:") ~typ:(id @-> returning void) x +let applicationWillEnterForeground x self = msg_send ~self ~cmd:(selector "applicationWillEnterForeground:") ~typ:(id @-> returning void) x +let applicationWillResignActive x self = msg_send ~self ~cmd:(selector "applicationWillResignActive:") ~typ:(id @-> returning void) x +let applicationWillSuspend x self = msg_send ~self ~cmd:(selector "applicationWillSuspend:") ~typ:(id @-> returning void) x +let defaultSizeForInterfaceOrientation x self = msg_send ~self ~cmd:(selector "defaultSizeForInterfaceOrientation:") ~typ:(llong @-> returning CGSize.t) (LLong.of_int x) +let defaultUndockedOffsetForFloating x self = msg_send ~self ~cmd:(selector "defaultUndockedOffsetForFloating:") ~typ:(bool @-> returning CGPoint.t) x +let deviceSpecificPaddingForInterfaceOrientation x ~inputMode self = msg_send ~self ~cmd:(selector "deviceSpecificPaddingForInterfaceOrientation:inputMode:") ~typ:(llong @-> id @-> returning UIEdgeInsets.t) (LLong.of_int x) inputMode +let deviceSpecificStaticHitBufferForInterfaceOrientation x ~inputMode self = msg_send ~self ~cmd:(selector "deviceSpecificStaticHitBufferForInterfaceOrientation:inputMode:") ~typ:(llong @-> id @-> returning UIEdgeInsets.t) (LLong.of_int x) inputMode +let floatingHeight self = msg_send ~self ~cmd:(selector "floatingHeight") ~typ:(returning double) +let floatingIdiom self = msg_send ~self ~cmd:(selector "floatingIdiom") ~typ:(returning llong) +let floatingNormalizedPersistentOffset self = msg_send ~self ~cmd:(selector "floatingNormalizedPersistentOffset") ~typ:(returning CGPoint.t) +let floatingPersistentOffset self = msg_send ~self ~cmd:(selector "floatingPersistentOffset") ~typ:(returning CGPoint.t) +let floatingScreenWidthToEmulate self = msg_send ~self ~cmd:(selector "floatingScreenWidthToEmulate") ~typ:(returning double) +let floatingWidth self = msg_send ~self ~cmd:(selector "floatingWidth") ~typ:(returning double) +let isActivatingForeground self = msg_send ~self ~cmd:(selector "isActivatingForeground") ~typ:(returning bool) +let isFloating self = msg_send ~self ~cmd:(selector "isFloating") ~typ:(returning bool) +let isFloatingForced self = msg_send ~self ~cmd:(selector "isFloatingForced") ~typ:(returning bool) +let isHardwareCommandKeyBeingHeld self = msg_send ~self ~cmd:(selector "isHardwareCommandKeyBeingHeld") ~typ:(returning bool) +let isHardwareShiftKeyBeingHeld self = msg_send ~self ~cmd:(selector "isHardwareShiftKeyBeingHeld") ~typ:(returning bool) +let isSplit self = msg_send ~self ~cmd:(selector "isSplit") ~typ:(returning bool) +let keyboardOrientation x ~isEquivalentToOrientation self = msg_send ~self ~cmd:(selector "keyboardOrientation:isEquivalentToOrientation:") ~typ:(llong @-> llong @-> returning bool) (LLong.of_int x) (LLong.of_int isEquivalentToOrientation) +let keyboardScreen self = msg_send ~self ~cmd:(selector "keyboardScreen") ~typ:(returning id) +let keyboardSizeForInterfaceOrientation x self = msg_send ~self ~cmd:(selector "keyboardSizeForInterfaceOrientation:") ~typ:(llong @-> returning CGSize.t) (LLong.of_int x) +let keyboardWidthForScreen x ~withOrientation self = msg_send ~self ~cmd:(selector "keyboardWidthForScreen:withOrientation:") ~typ:(id @-> llong @-> returning double) x (LLong.of_int withOrientation) +let keyboardWindow self = msg_send ~self ~cmd:(selector "keyboardWindow") ~typ:(returning id) +let layoutClassForCurrentInputMode self = msg_send ~self ~cmd:(selector "layoutClassForCurrentInputMode") ~typ:(returning _Class) +let layoutClassForInputMode x ~keyboardType ~screenTraits self = msg_send ~self ~cmd:(selector "layoutClassForInputMode:keyboardType:screenTraits:") ~typ:(id @-> llong @-> id @-> returning _Class) x (LLong.of_int keyboardType) screenTraits +let normalizedInputModesFromPreference self = msg_send ~self ~cmd:(selector "normalizedInputModesFromPreference") ~typ:(returning id) +let normalizedPersistentOffset self = msg_send ~self ~cmd:(selector "normalizedPersistentOffset") ~typ:(returning CGPoint.t) +let normalizedPersistentOffsetIgnoringState self = msg_send ~self ~cmd:(selector "normalizedPersistentOffsetIgnoringState") ~typ:(returning CGPoint.t) +let overrideNativeScreen self = msg_send ~self ~cmd:(selector "overrideNativeScreen") ~typ:(returning bool) +let performWithoutFloatingLock x self = msg_send ~self ~cmd:(selector "performWithoutFloatingLock:") ~typ:((ptr void) @-> returning void) x +let persistentOffset self = msg_send ~self ~cmd:(selector "persistentOffset") ~typ:(returning CGPoint.t) +let persistentSplitProgress self = msg_send ~self ~cmd:(selector "persistentSplitProgress") ~typ:(returning double) +let purgeImageCache self = msg_send ~self ~cmd:(selector "purgeImageCache") ~typ:(returning void) +let refreshRivenStateWithTraits x ~isKeyboard self = msg_send ~self ~cmd:(selector "refreshRivenStateWithTraits:isKeyboard:") ~typ:(id @-> bool @-> returning void) x isKeyboard +let releaseSharedInstance self = msg_send ~self ~cmd:(selector "releaseSharedInstance") ~typ:(returning void) +let requestedFloatingInsets self = msg_send ~self ~cmd:(selector "requestedFloatingInsets") ~typ:(returning UIEdgeInsets.t) +let rivenInstalled self = msg_send ~self ~cmd:(selector "rivenInstalled") ~typ:(returning bool) +let rivenPreference self = msg_send ~self ~cmd:(selector "rivenPreference") ~typ:(returning bool) +let rivenShouldUndock self = msg_send ~self ~cmd:(selector "rivenShouldUndock") ~typ:(returning bool) +let rivenTranslationPreference self = msg_send ~self ~cmd:(selector "rivenTranslationPreference") ~typ:(returning bool) +let sendPerformanceNotification x self = msg_send ~self ~cmd:(selector "sendPerformanceNotification:") ~typ:(id @-> returning void) x +let sendPerformanceNotification' x ~userInfo self = msg_send ~self ~cmd:(selector "sendPerformanceNotification:userInfo:") ~typ:(id @-> id @-> returning void) x userInfo +let setFloating x self = msg_send ~self ~cmd:(selector "setFloating:") ~typ:(bool @-> returning void) x +let setFloating1 x ~positionedAtDefaultOffsetAnimated self = msg_send ~self ~cmd:(selector "setFloating:positionedAtDefaultOffsetAnimated:") ~typ:(bool @-> bool @-> returning void) x positionedAtDefaultOffsetAnimated +let setFloating2 x ~positionedAtOffset ~animated self = msg_send ~self ~cmd:(selector "setFloating:positionedAtOffset:animated:") ~typ:(bool @-> CGPoint.t @-> bool @-> returning void) x positionedAtOffset animated +let setFloatingPersistentOffset x self = msg_send ~self ~cmd:(selector "setFloatingPersistentOffset:") ~typ:(CGPoint.t @-> returning void) x +let setParentTestForProfiling x self = msg_send ~self ~cmd:(selector "setParentTestForProfiling:") ~typ:(id @-> returning void) x +let setPersistentOffset x self = msg_send ~self ~cmd:(selector "setPersistentOffset:") ~typ:(CGPoint.t @-> returning void) x +let setPersistentSplitProgress x self = msg_send ~self ~cmd:(selector "setPersistentSplitProgress:") ~typ:(double @-> returning void) x +let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) +let sharedInstanceForCustomInputView x self = msg_send ~self ~cmd:(selector "sharedInstanceForCustomInputView:") ~typ:(bool @-> returning id) x +let shouldMergeAssistantBarWithKeyboardLayout self = msg_send ~self ~cmd:(selector "shouldMergeAssistantBarWithKeyboardLayout") ~typ:(returning bool) +let showsGlobeAndDictationKeysExternally self = msg_send ~self ~cmd:(selector "showsGlobeAndDictationKeysExternally") ~typ:(returning bool) +let sizeForInterfaceOrientation x self = msg_send ~self ~cmd:(selector "sizeForInterfaceOrientation:") ~typ:(llong @-> returning CGSize.t) (LLong.of_int x) +let sizeForInterfaceOrientation' x ~ignoreInputView self = msg_send ~self ~cmd:(selector "sizeForInterfaceOrientation:ignoreInputView:") ~typ:(llong @-> bool @-> returning CGSize.t) (LLong.of_int x) ignoreInputView +let smartInsertDeleteIsEnabled self = msg_send ~self ~cmd:(selector "smartInsertDeleteIsEnabled") ~typ:(returning bool) +let splitProgress self = msg_send ~self ~cmd:(selector "splitProgress") ~typ:(returning double) +let supportsFloating self = msg_send ~self ~cmd:(selector "supportsFloating") ~typ:(returning bool) +let supportsSplit self = msg_send ~self ~cmd:(selector "supportsSplit") ~typ:(returning bool) +let suppressSetPersistentOffset x self = msg_send ~self ~cmd:(selector "suppressSetPersistentOffset:") ~typ:(bool @-> returning void) x +let topMarginForInterfaceOrientation x self = msg_send ~self ~cmd:(selector "topMarginForInterfaceOrientation:") ~typ:(llong @-> returning double) (LLong.of_int x) +let uniqueNumberPadInputModesFromInputModes x ~forKeyboardType self = msg_send ~self ~cmd:(selector "uniqueNumberPadInputModesFromInputModes:forKeyboardType:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int forKeyboardType) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardInputManagerClientRequest.ml b/uikit_extra/UIKeyboardInputManagerClientRequest.ml new file mode 100644 index 00000000..98671ec0 --- /dev/null +++ b/uikit_extra/UIKeyboardInputManagerClientRequest.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardinputmanagerclientrequest?language=objc}UIKeyboardInputManagerClientRequest} *) + +let self = get_class "UIKeyboardInputManagerClientRequest" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let errorCount self = msg_send ~self ~cmd:(selector "errorCount") ~typ:(returning ullong) +let initWithInvocation x self = msg_send ~self ~cmd:(selector "initWithInvocation:") ~typ:(id @-> returning id) x +let invocation self = msg_send ~self ~cmd:(selector "invocation") ~typ:(returning id) +let setErrorCount x self = msg_send ~self ~cmd:(selector "setErrorCount:") ~typ:(ullong @-> returning void) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardInputManagerClientRequestClass.ml b/uikit_extra/UIKeyboardInputManagerClientRequestClass.ml new file mode 100644 index 00000000..0079456a --- /dev/null +++ b/uikit_extra/UIKeyboardInputManagerClientRequestClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardinputmanagerclientrequest?language=objc}UIKeyboardInputManagerClientRequest} *) + +let untargetedInvocationWithInvocation x ~withCompletion self = msg_send ~self ~cmd:(selector "untargetedInvocationWithInvocation:withCompletion:") ~typ:(id @-> bool @-> returning id) x withCompletion \ No newline at end of file diff --git a/uikit_extra/UIKeyboardInputManagerMux.ml b/uikit_extra/UIKeyboardInputManagerMux.ml new file mode 100644 index 00000000..a10b06c3 --- /dev/null +++ b/uikit_extra/UIKeyboardInputManagerMux.ml @@ -0,0 +1,31 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardinputmanagermux?language=objc}UIKeyboardInputManagerMux} *) + +let self = get_class "UIKeyboardInputManagerMux" + +let addClient x self = msg_send ~self ~cmd:(selector "addClient:") ~typ:(id @-> returning void) x +let conformsToProtocol x self = msg_send ~self ~cmd:(selector "conformsToProtocol:") ~typ:(id @-> returning bool) x +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning void) x +let hasSystemInputManager self = msg_send ~self ~cmd:(selector "hasSystemInputManager") ~typ:(returning bool) +let isKindOfClass x self = msg_send ~self ~cmd:(selector "isKindOfClass:") ~typ:(_Class @-> returning bool) x +let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning id) x +let releaseConnectedClients self = msg_send ~self ~cmd:(selector "releaseConnectedClients") ~typ:(returning void) +let removeAllClients self = msg_send ~self ~cmd:(selector "removeAllClients") ~typ:(returning void) +let removeClient x self = msg_send ~self ~cmd:(selector "removeClient:") ~typ:(id @-> returning void) x +let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning bool) x +let responseDelegate self = msg_send ~self ~cmd:(selector "responseDelegate") ~typ:(returning id) +let setResponseDelegate x self = msg_send ~self ~cmd:(selector "setResponseDelegate:") ~typ:(id @-> returning void) x +let setSystemInputManager x self = msg_send ~self ~cmd:(selector "setSystemInputManager:") ~typ:(id @-> returning void) x +let setSystemInputManagerFromTextInputTraits x ~autofillMode self = msg_send ~self ~cmd:(selector "setSystemInputManagerFromTextInputTraits:autofillMode:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int autofillMode) +let systemInputManager self = msg_send ~self ~cmd:(selector "systemInputManager") ~typ:(returning id) +let updateClientResponseDelegatesWithDelegate x self = msg_send ~self ~cmd:(selector "updateClientResponseDelegatesWithDelegate:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKeyboardInputManagerMuxClass.ml b/uikit_extra/UIKeyboardInputManagerMuxClass.ml new file mode 100644 index 00000000..863c656d --- /dev/null +++ b/uikit_extra/UIKeyboardInputManagerMuxClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardinputmanagermux?language=objc}UIKeyboardInputManagerMux} *) + +let instancesRespondToSelector x self = msg_send ~self ~cmd:(selector "instancesRespondToSelector:") ~typ:(_SEL @-> returning bool) x +let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardMediaServiceRemoteViewController.ml b/uikit_extra/UIKeyboardMediaServiceRemoteViewController.ml new file mode 100644 index 00000000..6b70450e --- /dev/null +++ b/uikit_extra/UIKeyboardMediaServiceRemoteViewController.ml @@ -0,0 +1,23 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardmediaserviceremoteviewcontroller?language=objc}UIKeyboardMediaServiceRemoteViewController} *) + +let self = get_class "UIKeyboardMediaServiceRemoteViewController" + +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let dismissCard self = msg_send ~self ~cmd:(selector "dismissCard") ~typ:(returning void) +let draggedStickerToPoint x self = msg_send ~self ~cmd:(selector "draggedStickerToPoint:") ~typ:(CGPoint.t @-> returning void) x +let pasteImageAtFileHandle x self = msg_send ~self ~cmd:(selector "pasteImageAtFileHandle:") ~typ:(id @-> returning void) x +let presentCard self = msg_send ~self ~cmd:(selector "presentCard") ~typ:(returning void) +let requestInsertionPointCompletion x self = msg_send ~self ~cmd:(selector "requestInsertionPointCompletion:") ~typ:((ptr void) @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let stageStickerWithFileHandle x ~url ~accessibilityLabel self = msg_send ~self ~cmd:(selector "stageStickerWithFileHandle:url:accessibilityLabel:") ~typ:(id @-> id @-> id @-> returning void) x url accessibilityLabel +let viewServiceDidTerminateWithError x self = msg_send ~self ~cmd:(selector "viewServiceDidTerminateWithError:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIKeyboardMediaServiceRemoteViewControllerClass.ml b/uikit_extra/UIKeyboardMediaServiceRemoteViewControllerClass.ml new file mode 100644 index 00000000..5c673b9a --- /dev/null +++ b/uikit_extra/UIKeyboardMediaServiceRemoteViewControllerClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardmediaserviceremoteviewcontroller?language=objc}UIKeyboardMediaServiceRemoteViewController} *) + +let exportedInterface self = msg_send ~self ~cmd:(selector "exportedInterface") ~typ:(returning id) +let requestCardViewControllerWithConnectionHandler x self = msg_send ~self ~cmd:(selector "requestCardViewControllerWithConnectionHandler:") ~typ:((ptr void) @-> returning id) x +let requestInlineViewControllerWithConnectionHandler x self = msg_send ~self ~cmd:(selector "requestInlineViewControllerWithConnectionHandler:") ~typ:((ptr void) @-> returning id) x +let serviceViewControllerInterface self = msg_send ~self ~cmd:(selector "serviceViewControllerInterface") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardSplitControlMenu_Dock.ml b/uikit_extra/UIKeyboardSplitControlMenu_Dock.ml index aa557b72..3f4e77bc 100644 --- a/uikit_extra/UIKeyboardSplitControlMenu_Dock.ml +++ b/uikit_extra/UIKeyboardSplitControlMenu_Dock.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardSplitControlMenu_Dock" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardsplitcontrolmenu_dock?language=objc}UIKeyboardSplitControlMenu_Dock} *) -let actionForMenu x self = msg_send ~self ~cmd:(selector "actionForMenu:") ~typ:(id @-> returning (void)) x -let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning (id)) -let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIKeyboardSplitControlMenu_Dock" + +let actionForMenu x self = msg_send ~self ~cmd:(selector "actionForMenu:") ~typ:(id @-> returning void) x +let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) +let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardSplitControlMenu_DockAndMerge.ml b/uikit_extra/UIKeyboardSplitControlMenu_DockAndMerge.ml index 76b4b12f..3deb8346 100644 --- a/uikit_extra/UIKeyboardSplitControlMenu_DockAndMerge.ml +++ b/uikit_extra/UIKeyboardSplitControlMenu_DockAndMerge.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardSplitControlMenu_DockAndMerge" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardsplitcontrolmenu_dockandmerge?language=objc}UIKeyboardSplitControlMenu_DockAndMerge} *) -let actionForMenu x self = msg_send ~self ~cmd:(selector "actionForMenu:") ~typ:(id @-> returning (void)) x -let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning (id)) -let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIKeyboardSplitControlMenu_DockAndMerge" + +let actionForMenu x self = msg_send ~self ~cmd:(selector "actionForMenu:") ~typ:(id @-> returning void) x +let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) +let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardSplitControlMenu_Floating.ml b/uikit_extra/UIKeyboardSplitControlMenu_Floating.ml index 598f4322..9fdc1fc2 100644 --- a/uikit_extra/UIKeyboardSplitControlMenu_Floating.ml +++ b/uikit_extra/UIKeyboardSplitControlMenu_Floating.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardSplitControlMenu_Floating" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardsplitcontrolmenu_floating?language=objc}UIKeyboardSplitControlMenu_Floating} *) -let actionForMenu x self = msg_send ~self ~cmd:(selector "actionForMenu:") ~typ:(id @-> returning (void)) x -let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning (id)) -let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIKeyboardSplitControlMenu_Floating" + +let actionForMenu x self = msg_send ~self ~cmd:(selector "actionForMenu:") ~typ:(id @-> returning void) x +let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) +let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardSplitControlMenu_Merge.ml b/uikit_extra/UIKeyboardSplitControlMenu_Merge.ml index 3f411384..c1ea3c69 100644 --- a/uikit_extra/UIKeyboardSplitControlMenu_Merge.ml +++ b/uikit_extra/UIKeyboardSplitControlMenu_Merge.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardSplitControlMenu_Merge" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardsplitcontrolmenu_merge?language=objc}UIKeyboardSplitControlMenu_Merge} *) -let actionForMenu x self = msg_send ~self ~cmd:(selector "actionForMenu:") ~typ:(id @-> returning (void)) x -let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning (id)) -let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIKeyboardSplitControlMenu_Merge" + +let actionForMenu x self = msg_send ~self ~cmd:(selector "actionForMenu:") ~typ:(id @-> returning void) x +let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) +let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardSplitControlMenu_Split.ml b/uikit_extra/UIKeyboardSplitControlMenu_Split.ml index a49556d3..7e5b4d19 100644 --- a/uikit_extra/UIKeyboardSplitControlMenu_Split.ml +++ b/uikit_extra/UIKeyboardSplitControlMenu_Split.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardSplitControlMenu_Split" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardsplitcontrolmenu_split?language=objc}UIKeyboardSplitControlMenu_Split} *) -let actionForMenu x self = msg_send ~self ~cmd:(selector "actionForMenu:") ~typ:(id @-> returning (void)) x -let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning (id)) -let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIKeyboardSplitControlMenu_Split" + +let actionForMenu x self = msg_send ~self ~cmd:(selector "actionForMenu:") ~typ:(id @-> returning void) x +let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) +let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardSplitControlMenu_Undock.ml b/uikit_extra/UIKeyboardSplitControlMenu_Undock.ml index c1dae0d6..4c12c472 100644 --- a/uikit_extra/UIKeyboardSplitControlMenu_Undock.ml +++ b/uikit_extra/UIKeyboardSplitControlMenu_Undock.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIKeyboardSplitControlMenu_Undock" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardsplitcontrolmenu_undock?language=objc}UIKeyboardSplitControlMenu_Undock} *) -let actionForMenu x self = msg_send ~self ~cmd:(selector "actionForMenu:") ~typ:(id @-> returning (void)) x -let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning (id)) -let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIKeyboardSplitControlMenu_Undock" + +let actionForMenu x self = msg_send ~self ~cmd:(selector "actionForMenu:") ~typ:(id @-> returning void) x +let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) +let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIKeyboardTypingStyleEstimator.ml b/uikit_extra/UIKeyboardTypingStyleEstimator.ml new file mode 100644 index 00000000..628f0d13 --- /dev/null +++ b/uikit_extra/UIKeyboardTypingStyleEstimator.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uikeyboardtypingstyleestimator?language=objc}UIKeyboardTypingStyleEstimator} *) + +let self = get_class "UIKeyboardTypingStyleEstimator" + +let beganContinuousPath self = msg_send ~self ~cmd:(selector "beganContinuousPath") ~typ:(returning void) +let cancelContinuousPath self = msg_send ~self ~cmd:(selector "cancelContinuousPath") ~typ:(returning void) +let currentTypingStyleEstimation self = msg_send ~self ~cmd:(selector "currentTypingStyleEstimation") ~typ:(returning ullong) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let endedContinuousPath self = msg_send ~self ~cmd:(selector "endedContinuousPath") ~typ:(returning void) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let tapTypedKey self = msg_send ~self ~cmd:(selector "tapTypedKey") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UIKit_PKSubsystem.ml b/uikit_extra/UIKit_PKSubsystem.ml deleted file mode 100644 index 531451d8..00000000 --- a/uikit_extra/UIKit_PKSubsystem.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIKit_PKSubsystem" - -module C = struct - let initForPlugInKit self = msg_send ~self ~cmd:(selector "initForPlugInKit") ~typ:(returning (id)) - let initForPlugInKitWithOptions x self = msg_send ~self ~cmd:(selector "initForPlugInKitWithOptions:") ~typ:(id @-> returning (id)) x - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end - -let beginUsing x ~withBundle self = msg_send ~self ~cmd:(selector "beginUsing:withBundle:") ~typ:(id @-> id @-> returning (void)) x withBundle -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let endUsing x self = msg_send ~self ~cmd:(selector "endUsing:") ~typ:(id @-> returning (void)) x -let infoDictionary self = msg_send ~self ~cmd:(selector "infoDictionary") ~typ:(returning (id)) -let isPlugInKitProcess self = msg_send ~self ~cmd:(selector "isPlugInKitProcess") ~typ:(returning (bool)) -let setInfoDictionary x self = msg_send ~self ~cmd:(selector "setInfoDictionary:") ~typ:(id @-> returning (void)) x -let setPlugInKitProcess x self = msg_send ~self ~cmd:(selector "setPlugInKitProcess:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UILargeContentViewerInteraction.ml b/uikit_extra/UILargeContentViewerInteraction.ml new file mode 100644 index 00000000..6d278b7d --- /dev/null +++ b/uikit_extra/UILargeContentViewerInteraction.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilargecontentviewerinteraction?language=objc}UILargeContentViewerInteraction} *) + +let self = get_class "UILargeContentViewerInteraction" + +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let gestureRecognizerForExclusionRelationship self = msg_send ~self ~cmd:(selector "gestureRecognizerForExclusionRelationship") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning id) x +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UILargeContentViewerInteractionClass.ml b/uikit_extra/UILargeContentViewerInteractionClass.ml new file mode 100644 index 00000000..2dd8fc2c --- /dev/null +++ b/uikit_extra/UILargeContentViewerInteractionClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uilargecontentviewerinteraction?language=objc}UILargeContentViewerInteraction} *) + +let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIMutableApplicationSceneClientSettings.ml b/uikit_extra/UIMutableApplicationSceneClientSettings.ml index 9f990539..a1bc8cb8 100644 --- a/uikit_extra/UIMutableApplicationSceneClientSettings.ml +++ b/uikit_extra/UIMutableApplicationSceneClientSettings.ml @@ -5,99 +5,104 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMutableApplicationSceneClientSettings" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimutableapplicationsceneclientsettings?language=objc}UIMutableApplicationSceneClientSettings} *) -let activationConditionsData self = msg_send ~self ~cmd:(selector "activationConditionsData") ~typ:(returning (id)) -let audioCategoriesDisablingVolumeHUD self = msg_send ~self ~cmd:(selector "audioCategoriesDisablingVolumeHUD") ~typ:(returning (id)) -let backgroundStyle self = msg_send ~self ~cmd:(selector "backgroundStyle") ~typ:(returning (llong)) -let brightnessLevel self = msg_send ~self ~cmd:(selector "brightnessLevel") ~typ:(returning (double)) -let canvasTitle self = msg_send ~self ~cmd:(selector "canvasTitle") ~typ:(returning (id)) -let compatibilityMode self = msg_send ~self ~cmd:(selector "compatibilityMode") ~typ:(returning (llong)) -let controlCenterAmbiguousActivationMargin self = msg_send ~self ~cmd:(selector "controlCenterAmbiguousActivationMargin") ~typ:(returning (double)) -let controlCenterRevealMode self = msg_send ~self ~cmd:(selector "controlCenterRevealMode") ~typ:(returning (llong)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let defaultPNGExpirationTime self = msg_send ~self ~cmd:(selector "defaultPNGExpirationTime") ~typ:(returning (double)) -let defaultPNGName self = msg_send ~self ~cmd:(selector "defaultPNGName") ~typ:(returning (id)) -let defaultStatusBarHidden self = msg_send ~self ~cmd:(selector "defaultStatusBarHidden") ~typ:(returning (bool)) -let defaultStatusBarStyle self = msg_send ~self ~cmd:(selector "defaultStatusBarStyle") ~typ:(returning (llong)) -let deviceOrientationEventsEnabled self = msg_send ~self ~cmd:(selector "deviceOrientationEventsEnabled") ~typ:(returning (bool)) -let disablesMirroring self = msg_send ~self ~cmd:(selector "disablesMirroring") ~typ:(returning (bool)) -let discardSessionOnUserDisconnect self = msg_send ~self ~cmd:(selector "discardSessionOnUserDisconnect") ~typ:(returning (bool)) -let displayConfigurationRequest self = msg_send ~self ~cmd:(selector "displayConfigurationRequest") ~typ:(returning (id)) -let homeIndicatorAutoHidden self = msg_send ~self ~cmd:(selector "homeIndicatorAutoHidden") ~typ:(returning (bool)) -let idleModeVisualEffectsEnabled self = msg_send ~self ~cmd:(selector "idleModeVisualEffectsEnabled") ~typ:(returning (bool)) -let idleTimerDisabled self = msg_send ~self ~cmd:(selector "idleTimerDisabled") ~typ:(returning (bool)) -let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning (llong)) -let interfaceOrientationChangesDisabled self = msg_send ~self ~cmd:(selector "interfaceOrientationChangesDisabled") ~typ:(returning (bool)) -let isReachabilitySupported self = msg_send ~self ~cmd:(selector "isReachabilitySupported") ~typ:(returning (bool)) -let isStatusBarForegroundTransparent self = msg_send ~self ~cmd:(selector "isStatusBarForegroundTransparent") ~typ:(returning (bool)) -let isUISubclass self = msg_send ~self ~cmd:(selector "isUISubclass") ~typ:(returning (bool)) -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let multitaskingDragExclusionRects self = msg_send ~self ~cmd:(selector "multitaskingDragExclusionRects") ~typ:(returning (id)) -let notificationCenterRevealMode self = msg_send ~self ~cmd:(selector "notificationCenterRevealMode") ~typ:(returning (llong)) -let playbackControlsState self = msg_send ~self ~cmd:(selector "playbackControlsState") ~typ:(returning (llong)) -let preferredPointerLockStatus self = msg_send ~self ~cmd:(selector "preferredPointerLockStatus") ~typ:(returning (llong)) -let proximityDetectionModes self = msg_send ~self ~cmd:(selector "proximityDetectionModes") ~typ:(returning (ullong)) -let requestedDisplayMode self = msg_send ~self ~cmd:(selector "requestedDisplayMode") ~typ:(returning (id)) -let sceneActivationBias self = msg_send ~self ~cmd:(selector "sceneActivationBias") ~typ:(returning (llong)) -let screenEdgesDeferringSystemGestures self = msg_send ~self ~cmd:(selector "screenEdgesDeferringSystemGestures") ~typ:(returning (ullong)) -let screenFocusedFrame self = msg_send_stret ~self ~cmd:(selector "screenFocusedFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let setActivationConditionsData x self = msg_send ~self ~cmd:(selector "setActivationConditionsData:") ~typ:(id @-> returning (void)) x -let setAudioCategoriesDisablingVolumeHUD x self = msg_send ~self ~cmd:(selector "setAudioCategoriesDisablingVolumeHUD:") ~typ:(id @-> returning (void)) x -let setBackgroundStyle x self = msg_send ~self ~cmd:(selector "setBackgroundStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setBrightnessLevel x self = msg_send ~self ~cmd:(selector "setBrightnessLevel:") ~typ:(double @-> returning (void)) x -let setCanvasTitle x self = msg_send ~self ~cmd:(selector "setCanvasTitle:") ~typ:(id @-> returning (void)) x -let setCompatibilityMode x self = msg_send ~self ~cmd:(selector "setCompatibilityMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setControlCenterAmbiguousActivationMargin x self = msg_send ~self ~cmd:(selector "setControlCenterAmbiguousActivationMargin:") ~typ:(double @-> returning (void)) x -let setControlCenterRevealMode x self = msg_send ~self ~cmd:(selector "setControlCenterRevealMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setDefaultPNGExpirationTime x self = msg_send ~self ~cmd:(selector "setDefaultPNGExpirationTime:") ~typ:(double @-> returning (void)) x -let setDefaultPNGName x self = msg_send ~self ~cmd:(selector "setDefaultPNGName:") ~typ:(id @-> returning (void)) x -let setDefaultStatusBarHidden x self = msg_send ~self ~cmd:(selector "setDefaultStatusBarHidden:") ~typ:(bool @-> returning (void)) x -let setDefaultStatusBarStyle x self = msg_send ~self ~cmd:(selector "setDefaultStatusBarStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setDeviceOrientationEventsEnabled x self = msg_send ~self ~cmd:(selector "setDeviceOrientationEventsEnabled:") ~typ:(bool @-> returning (void)) x -let setDisablesMirroring x self = msg_send ~self ~cmd:(selector "setDisablesMirroring:") ~typ:(bool @-> returning (void)) x -let setDiscardSessionOnUserDisconnect x self = msg_send ~self ~cmd:(selector "setDiscardSessionOnUserDisconnect:") ~typ:(bool @-> returning (void)) x -let setDisplayConfigurationRequest x self = msg_send ~self ~cmd:(selector "setDisplayConfigurationRequest:") ~typ:(id @-> returning (void)) x -let setHomeIndicatorAutoHidden x self = msg_send ~self ~cmd:(selector "setHomeIndicatorAutoHidden:") ~typ:(bool @-> returning (void)) x -let setIdleModeVisualEffectsEnabled x self = msg_send ~self ~cmd:(selector "setIdleModeVisualEffectsEnabled:") ~typ:(bool @-> returning (void)) x -let setIdleTimerDisabled x self = msg_send ~self ~cmd:(selector "setIdleTimerDisabled:") ~typ:(bool @-> returning (void)) x -let setInterfaceOrientation x self = msg_send ~self ~cmd:(selector "setInterfaceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setInterfaceOrientationChangesDisabled x self = msg_send ~self ~cmd:(selector "setInterfaceOrientationChangesDisabled:") ~typ:(bool @-> returning (void)) x -let setMultitaskingDragExclusionRects x self = msg_send ~self ~cmd:(selector "setMultitaskingDragExclusionRects:") ~typ:(id @-> returning (void)) x -let setNotificationCenterRevealMode x self = msg_send ~self ~cmd:(selector "setNotificationCenterRevealMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPlaybackControlsState x self = msg_send ~self ~cmd:(selector "setPlaybackControlsState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPreferredPointerLockStatus x self = msg_send ~self ~cmd:(selector "setPreferredPointerLockStatus:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPrimaryWindowOverlayInsets x self = msg_send ~self ~cmd:(selector "setPrimaryWindowOverlayInsets:") ~typ:(ptr void @-> returning (void)) x -let setProximityDetectionModes x self = msg_send ~self ~cmd:(selector "setProximityDetectionModes:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setReachabilitySupported x self = msg_send ~self ~cmd:(selector "setReachabilitySupported:") ~typ:(bool @-> returning (void)) x -let setRequestedDisplayMode x self = msg_send ~self ~cmd:(selector "setRequestedDisplayMode:") ~typ:(id @-> returning (void)) x -let setSceneActivationBias x self = msg_send ~self ~cmd:(selector "setSceneActivationBias:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setScreenEdgesDeferringSystemGestures x self = msg_send ~self ~cmd:(selector "setScreenEdgesDeferringSystemGestures:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setScreenFocusedFrame x self = msg_send ~self ~cmd:(selector "setScreenFocusedFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setShouldHideHostWindow x self = msg_send ~self ~cmd:(selector "setShouldHideHostWindow:") ~typ:(bool @-> returning (void)) x -let setStatusBarAlpha x self = msg_send ~self ~cmd:(selector "setStatusBarAlpha:") ~typ:(double @-> returning (void)) x -let setStatusBarContextID x self = msg_send ~self ~cmd:(selector "setStatusBarContextID:") ~typ:(uint @-> returning (void)) x -let setStatusBarForegroundTransparent x self = msg_send ~self ~cmd:(selector "setStatusBarForegroundTransparent:") ~typ:(bool @-> returning (void)) x -let setStatusBarHidden x self = msg_send ~self ~cmd:(selector "setStatusBarHidden:") ~typ:(bool @-> returning (void)) x -let setStatusBarModernStyle x self = msg_send ~self ~cmd:(selector "setStatusBarModernStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setStatusBarPartStyles x self = msg_send ~self ~cmd:(selector "setStatusBarPartStyles:") ~typ:(id @-> returning (void)) x -let setStatusBarStyle x self = msg_send ~self ~cmd:(selector "setStatusBarStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSupportedInterfaceOrientations x self = msg_send ~self ~cmd:(selector "setSupportedInterfaceOrientations:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setUserInterfaceStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setVisibleMiniAlertCount x self = msg_send ~self ~cmd:(selector "setVisibleMiniAlertCount:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setWantsExclusiveForeground x self = msg_send ~self ~cmd:(selector "setWantsExclusiveForeground:") ~typ:(bool @-> returning (void)) x -let setWhitePointAdaptivityStyle x self = msg_send ~self ~cmd:(selector "setWhitePointAdaptivityStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let shouldHideHostWindow self = msg_send ~self ~cmd:(selector "shouldHideHostWindow") ~typ:(returning (bool)) -let statusBarAlpha self = msg_send ~self ~cmd:(selector "statusBarAlpha") ~typ:(returning (double)) -let statusBarContextID self = msg_send ~self ~cmd:(selector "statusBarContextID") ~typ:(returning (uint)) -let statusBarHidden self = msg_send ~self ~cmd:(selector "statusBarHidden") ~typ:(returning (bool)) -let statusBarModernStyle self = msg_send ~self ~cmd:(selector "statusBarModernStyle") ~typ:(returning (llong)) -let statusBarPartStyles self = msg_send ~self ~cmd:(selector "statusBarPartStyles") ~typ:(returning (id)) -let statusBarStyle self = msg_send ~self ~cmd:(selector "statusBarStyle") ~typ:(returning (llong)) -let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning (ullong)) -let userInterfaceStyle self = msg_send ~self ~cmd:(selector "userInterfaceStyle") ~typ:(returning (llong)) -let valueDescriptionForFlag x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning (id)) (LLong.of_int x) object_ (ULLong.of_int ofSetting) -let visibleMiniAlertCount self = msg_send ~self ~cmd:(selector "visibleMiniAlertCount") ~typ:(returning (ullong)) -let wantsExclusiveForeground self = msg_send ~self ~cmd:(selector "wantsExclusiveForeground") ~typ:(returning (bool)) -let whitePointAdaptivityStyle self = msg_send ~self ~cmd:(selector "whitePointAdaptivityStyle") ~typ:(returning (llong)) \ No newline at end of file +let self = get_class "UIMutableApplicationSceneClientSettings" + +let activationConditionsData self = msg_send ~self ~cmd:(selector "activationConditionsData") ~typ:(returning id) +let audioCategoriesDisablingVolumeHUD self = msg_send ~self ~cmd:(selector "audioCategoriesDisablingVolumeHUD") ~typ:(returning id) +let backgroundStyle self = msg_send ~self ~cmd:(selector "backgroundStyle") ~typ:(returning llong) +let brightnessLevel self = msg_send ~self ~cmd:(selector "brightnessLevel") ~typ:(returning double) +let canvasTitle self = msg_send ~self ~cmd:(selector "canvasTitle") ~typ:(returning id) +let compatibilityMode self = msg_send ~self ~cmd:(selector "compatibilityMode") ~typ:(returning llong) +let controlCenterAmbiguousActivationMargin self = msg_send ~self ~cmd:(selector "controlCenterAmbiguousActivationMargin") ~typ:(returning double) +let controlCenterRevealMode self = msg_send ~self ~cmd:(selector "controlCenterRevealMode") ~typ:(returning llong) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let defaultPNGExpirationTime self = msg_send ~self ~cmd:(selector "defaultPNGExpirationTime") ~typ:(returning double) +let defaultPNGName self = msg_send ~self ~cmd:(selector "defaultPNGName") ~typ:(returning id) +let defaultStatusBarHidden self = msg_send ~self ~cmd:(selector "defaultStatusBarHidden") ~typ:(returning bool) +let defaultStatusBarStyle self = msg_send ~self ~cmd:(selector "defaultStatusBarStyle") ~typ:(returning llong) +let deviceOrientationEventsEnabled self = msg_send ~self ~cmd:(selector "deviceOrientationEventsEnabled") ~typ:(returning bool) +let disablesMirroring self = msg_send ~self ~cmd:(selector "disablesMirroring") ~typ:(returning bool) +let discardSessionOnUserDisconnect self = msg_send ~self ~cmd:(selector "discardSessionOnUserDisconnect") ~typ:(returning bool) +let displayConfigurationRequest self = msg_send ~self ~cmd:(selector "displayConfigurationRequest") ~typ:(returning id) +let homeIndicatorAutoHidden self = msg_send ~self ~cmd:(selector "homeIndicatorAutoHidden") ~typ:(returning bool) +let idleModeVisualEffectsEnabled self = msg_send ~self ~cmd:(selector "idleModeVisualEffectsEnabled") ~typ:(returning bool) +let idleTimerDisabled self = msg_send ~self ~cmd:(selector "idleTimerDisabled") ~typ:(returning bool) +let interfaceOrientation self = msg_send ~self ~cmd:(selector "interfaceOrientation") ~typ:(returning llong) +let interfaceOrientationChangesDisabled self = msg_send ~self ~cmd:(selector "interfaceOrientationChangesDisabled") ~typ:(returning bool) +let isReachabilitySupported self = msg_send ~self ~cmd:(selector "isReachabilitySupported") ~typ:(returning bool) +let isStatusBarForegroundTransparent self = msg_send ~self ~cmd:(selector "isStatusBarForegroundTransparent") ~typ:(returning bool) +let isUISubclass self = msg_send ~self ~cmd:(selector "isUISubclass") ~typ:(returning bool) +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let multitaskingDragExclusionRects self = msg_send ~self ~cmd:(selector "multitaskingDragExclusionRects") ~typ:(returning id) +let notificationCenterRevealMode self = msg_send ~self ~cmd:(selector "notificationCenterRevealMode") ~typ:(returning llong) +let playbackControlsState self = msg_send ~self ~cmd:(selector "playbackControlsState") ~typ:(returning llong) +let preferredPointerLockStatus self = msg_send ~self ~cmd:(selector "preferredPointerLockStatus") ~typ:(returning llong) +let primaryWindowOverlayInsets self = msg_send ~self ~cmd:(selector "primaryWindowOverlayInsets") ~typ:(returning UIEdgeInsets.t) +let proximityDetectionModes self = msg_send ~self ~cmd:(selector "proximityDetectionModes") ~typ:(returning ullong) +let requestedDisplayMode self = msg_send ~self ~cmd:(selector "requestedDisplayMode") ~typ:(returning id) +let sceneActivationBias self = msg_send ~self ~cmd:(selector "sceneActivationBias") ~typ:(returning llong) +let screenEdgesDeferringSystemGestures self = msg_send ~self ~cmd:(selector "screenEdgesDeferringSystemGestures") ~typ:(returning ullong) +let screenFocusedFrame self = msg_send ~self ~cmd:(selector "screenFocusedFrame") ~typ:(returning CGRect.t) +let setActivationConditionsData x self = msg_send ~self ~cmd:(selector "setActivationConditionsData:") ~typ:(id @-> returning void) x +let setAudioCategoriesDisablingVolumeHUD x self = msg_send ~self ~cmd:(selector "setAudioCategoriesDisablingVolumeHUD:") ~typ:(id @-> returning void) x +let setBackgroundStyle x self = msg_send ~self ~cmd:(selector "setBackgroundStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setBrightnessLevel x self = msg_send ~self ~cmd:(selector "setBrightnessLevel:") ~typ:(double @-> returning void) x +let setCanvasTitle x self = msg_send ~self ~cmd:(selector "setCanvasTitle:") ~typ:(id @-> returning void) x +let setCompatibilityMode x self = msg_send ~self ~cmd:(selector "setCompatibilityMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setControlCenterAmbiguousActivationMargin x self = msg_send ~self ~cmd:(selector "setControlCenterAmbiguousActivationMargin:") ~typ:(double @-> returning void) x +let setControlCenterRevealMode x self = msg_send ~self ~cmd:(selector "setControlCenterRevealMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setDefaultPNGExpirationTime x self = msg_send ~self ~cmd:(selector "setDefaultPNGExpirationTime:") ~typ:(double @-> returning void) x +let setDefaultPNGName x self = msg_send ~self ~cmd:(selector "setDefaultPNGName:") ~typ:(id @-> returning void) x +let setDefaultStatusBarHidden x self = msg_send ~self ~cmd:(selector "setDefaultStatusBarHidden:") ~typ:(bool @-> returning void) x +let setDefaultStatusBarStyle x self = msg_send ~self ~cmd:(selector "setDefaultStatusBarStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setDeviceOrientationEventsEnabled x self = msg_send ~self ~cmd:(selector "setDeviceOrientationEventsEnabled:") ~typ:(bool @-> returning void) x +let setDisablesMirroring x self = msg_send ~self ~cmd:(selector "setDisablesMirroring:") ~typ:(bool @-> returning void) x +let setDiscardSessionOnUserDisconnect x self = msg_send ~self ~cmd:(selector "setDiscardSessionOnUserDisconnect:") ~typ:(bool @-> returning void) x +let setDisplayConfigurationRequest x self = msg_send ~self ~cmd:(selector "setDisplayConfigurationRequest:") ~typ:(id @-> returning void) x +let setHomeIndicatorAutoHidden x self = msg_send ~self ~cmd:(selector "setHomeIndicatorAutoHidden:") ~typ:(bool @-> returning void) x +let setIdleModeVisualEffectsEnabled x self = msg_send ~self ~cmd:(selector "setIdleModeVisualEffectsEnabled:") ~typ:(bool @-> returning void) x +let setIdleTimerDisabled x self = msg_send ~self ~cmd:(selector "setIdleTimerDisabled:") ~typ:(bool @-> returning void) x +let setInterfaceOrientation x self = msg_send ~self ~cmd:(selector "setInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setInterfaceOrientationChangesDisabled x self = msg_send ~self ~cmd:(selector "setInterfaceOrientationChangesDisabled:") ~typ:(bool @-> returning void) x +let setMultitaskingDragExclusionRects x self = msg_send ~self ~cmd:(selector "setMultitaskingDragExclusionRects:") ~typ:(id @-> returning void) x +let setNotificationCenterRevealMode x self = msg_send ~self ~cmd:(selector "setNotificationCenterRevealMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPlaybackControlsState x self = msg_send ~self ~cmd:(selector "setPlaybackControlsState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPreferredPointerLockStatus x self = msg_send ~self ~cmd:(selector "setPreferredPointerLockStatus:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPrimaryWindowOverlayInsets x self = msg_send ~self ~cmd:(selector "setPrimaryWindowOverlayInsets:") ~typ:(UIEdgeInsets.t @-> returning void) x +let setProximityDetectionModes x self = msg_send ~self ~cmd:(selector "setProximityDetectionModes:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setReachabilitySupported x self = msg_send ~self ~cmd:(selector "setReachabilitySupported:") ~typ:(bool @-> returning void) x +let setRequestedDisplayMode x self = msg_send ~self ~cmd:(selector "setRequestedDisplayMode:") ~typ:(id @-> returning void) x +let setSceneActivationBias x self = msg_send ~self ~cmd:(selector "setSceneActivationBias:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setScreenEdgesDeferringSystemGestures x self = msg_send ~self ~cmd:(selector "setScreenEdgesDeferringSystemGestures:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setScreenFocusedFrame x self = msg_send ~self ~cmd:(selector "setScreenFocusedFrame:") ~typ:(CGRect.t @-> returning void) x +let setShouldHideHostWindow x self = msg_send ~self ~cmd:(selector "setShouldHideHostWindow:") ~typ:(bool @-> returning void) x +let setStatusBarAlpha x self = msg_send ~self ~cmd:(selector "setStatusBarAlpha:") ~typ:(double @-> returning void) x +let setStatusBarContextID x self = msg_send ~self ~cmd:(selector "setStatusBarContextID:") ~typ:(uint @-> returning void) x +let setStatusBarForegroundTransparent x self = msg_send ~self ~cmd:(selector "setStatusBarForegroundTransparent:") ~typ:(bool @-> returning void) x +let setStatusBarHidden x self = msg_send ~self ~cmd:(selector "setStatusBarHidden:") ~typ:(bool @-> returning void) x +let setStatusBarModernStyle x self = msg_send ~self ~cmd:(selector "setStatusBarModernStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setStatusBarPartStyles x self = msg_send ~self ~cmd:(selector "setStatusBarPartStyles:") ~typ:(id @-> returning void) x +let setStatusBarStyle x self = msg_send ~self ~cmd:(selector "setStatusBarStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSupportedInterfaceOrientations x self = msg_send ~self ~cmd:(selector "setSupportedInterfaceOrientations:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setUserInterfaceStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setVisibleMiniAlertCount x self = msg_send ~self ~cmd:(selector "setVisibleMiniAlertCount:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setWantsExclusiveForeground x self = msg_send ~self ~cmd:(selector "setWantsExclusiveForeground:") ~typ:(bool @-> returning void) x +let setWhitePointAdaptivityStyle x self = msg_send ~self ~cmd:(selector "setWhitePointAdaptivityStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let shouldHideHostWindow self = msg_send ~self ~cmd:(selector "shouldHideHostWindow") ~typ:(returning bool) +let statusBarAlpha self = msg_send ~self ~cmd:(selector "statusBarAlpha") ~typ:(returning double) +let statusBarContextID self = msg_send ~self ~cmd:(selector "statusBarContextID") ~typ:(returning uint) +let statusBarHidden self = msg_send ~self ~cmd:(selector "statusBarHidden") ~typ:(returning bool) +let statusBarModernStyle self = msg_send ~self ~cmd:(selector "statusBarModernStyle") ~typ:(returning llong) +let statusBarPartStyles self = msg_send ~self ~cmd:(selector "statusBarPartStyles") ~typ:(returning id) +let statusBarStyle self = msg_send ~self ~cmd:(selector "statusBarStyle") ~typ:(returning llong) +let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning ullong) +let userInterfaceStyle self = msg_send ~self ~cmd:(selector "userInterfaceStyle") ~typ:(returning llong) +let valueDescriptionForFlag x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning id) (LLong.of_int x) object_ (ULLong.of_int ofSetting) +let visibleMiniAlertCount self = msg_send ~self ~cmd:(selector "visibleMiniAlertCount") ~typ:(returning ullong) +let wantsExclusiveForeground self = msg_send ~self ~cmd:(selector "wantsExclusiveForeground") ~typ:(returning bool) +let whitePointAdaptivityStyle self = msg_send ~self ~cmd:(selector "whitePointAdaptivityStyle") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit_extra/UIMutableApplicationSceneSettings.ml b/uikit_extra/UIMutableApplicationSceneSettings.ml deleted file mode 100644 index 33825f0a..00000000 --- a/uikit_extra/UIMutableApplicationSceneSettings.ml +++ /dev/null @@ -1,73 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIMutableApplicationSceneSettings" - -let accessibilityContrast self = msg_send ~self ~cmd:(selector "accessibilityContrast") ~typ:(returning (llong)) -let artworkSubtype self = msg_send ~self ~cmd:(selector "artworkSubtype") ~typ:(returning (ullong)) -let canShowAlerts self = msg_send ~self ~cmd:(selector "canShowAlerts") ~typ:(returning (bool)) -let catalystHostWindowFrame self = msg_send_stret ~self ~cmd:(selector "catalystHostWindowFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let cornerRadiusConfiguration self = msg_send ~self ~cmd:(selector "cornerRadiusConfiguration") ~typ:(returning (id)) -let deactivationReasons self = msg_send ~self ~cmd:(selector "deactivationReasons") ~typ:(returning (ullong)) -let defaultStatusBarHeightForOrientation x self = msg_send ~self ~cmd:(selector "defaultStatusBarHeightForOrientation:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let deviceOrientation self = msg_send ~self ~cmd:(selector "deviceOrientation") ~typ:(returning (llong)) -let deviceOrientationEventsEnabled self = msg_send ~self ~cmd:(selector "deviceOrientationEventsEnabled") ~typ:(returning (bool)) -let forcedStatusBarForegroundTransparent self = msg_send ~self ~cmd:(selector "forcedStatusBarForegroundTransparent") ~typ:(returning (bool)) -let forcedStatusBarStyle self = msg_send ~self ~cmd:(selector "forcedStatusBarStyle") ~typ:(returning (id)) -let homeAffordanceOverlayAllowance self = msg_send ~self ~cmd:(selector "homeAffordanceOverlayAllowance") ~typ:(returning (double)) -let hostContextIdentifierForSnapshotting self = msg_send ~self ~cmd:(selector "hostContextIdentifierForSnapshotting") ~typ:(returning (uint)) -let idleModeEnabled self = msg_send ~self ~cmd:(selector "idleModeEnabled") ~typ:(returning (bool)) -let interfaceOrientationMode self = msg_send ~self ~cmd:(selector "interfaceOrientationMode") ~typ:(returning (llong)) -let isUISubclass self = msg_send ~self ~cmd:(selector "isUISubclass") ~typ:(returning (bool)) -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let persistenceIdentifier self = msg_send ~self ~cmd:(selector "persistenceIdentifier") ~typ:(returning (id)) -let pointerLockStatus self = msg_send ~self ~cmd:(selector "pointerLockStatus") ~typ:(returning (llong)) -let scenePresenterRenderIdentifierForSnapshotting self = msg_send ~self ~cmd:(selector "scenePresenterRenderIdentifierForSnapshotting") ~typ:(returning (ullong)) -let setAccessibilityContrast x self = msg_send ~self ~cmd:(selector "setAccessibilityContrast:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setArtworkSubtype x self = msg_send ~self ~cmd:(selector "setArtworkSubtype:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setCanShowAlerts x self = msg_send ~self ~cmd:(selector "setCanShowAlerts:") ~typ:(bool @-> returning (void)) x -let setCatalystHostWindowFrame x self = msg_send ~self ~cmd:(selector "setCatalystHostWindowFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setCornerRadiusConfiguration x self = msg_send ~self ~cmd:(selector "setCornerRadiusConfiguration:") ~typ:(id @-> returning (void)) x -let setDeactivationReasons x self = msg_send ~self ~cmd:(selector "setDeactivationReasons:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDefaultStatusBarHeight x ~forOrientation self = msg_send ~self ~cmd:(selector "setDefaultStatusBarHeight:forOrientation:") ~typ:(double @-> llong @-> returning (void)) x (LLong.of_int forOrientation) -let setDeviceOrientation x self = msg_send ~self ~cmd:(selector "setDeviceOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setDeviceOrientationEventsEnabled x self = msg_send ~self ~cmd:(selector "setDeviceOrientationEventsEnabled:") ~typ:(bool @-> returning (void)) x -let setForcedStatusBarForegroundTransparent x self = msg_send ~self ~cmd:(selector "setForcedStatusBarForegroundTransparent:") ~typ:(bool @-> returning (void)) x -let setForcedStatusBarStyle x self = msg_send ~self ~cmd:(selector "setForcedStatusBarStyle:") ~typ:(id @-> returning (void)) x -let setHomeAffordanceOverlayAllowance x self = msg_send ~self ~cmd:(selector "setHomeAffordanceOverlayAllowance:") ~typ:(double @-> returning (void)) x -let setHostContextIdentifierForSnapshotting x self = msg_send ~self ~cmd:(selector "setHostContextIdentifierForSnapshotting:") ~typ:(uint @-> returning (void)) x -let setIdleModeEnabled x self = msg_send ~self ~cmd:(selector "setIdleModeEnabled:") ~typ:(bool @-> returning (void)) x -let setInterfaceOrientationMode x self = msg_send ~self ~cmd:(selector "setInterfaceOrientationMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPeripheryInsets x self = msg_send ~self ~cmd:(selector "setPeripheryInsets:") ~typ:(ptr void @-> returning (void)) x -let setPersistenceIdentifier x self = msg_send ~self ~cmd:(selector "setPersistenceIdentifier:") ~typ:(id @-> returning (void)) x -let setPointerLockStatus x self = msg_send ~self ~cmd:(selector "setPointerLockStatus:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSafeAreaInsetsLandscapeLeft x self = msg_send ~self ~cmd:(selector "setSafeAreaInsetsLandscapeLeft:") ~typ:(ptr void @-> returning (void)) x -let setSafeAreaInsetsLandscapeRight x self = msg_send ~self ~cmd:(selector "setSafeAreaInsetsLandscapeRight:") ~typ:(ptr void @-> returning (void)) x -let setSafeAreaInsetsPortrait x self = msg_send ~self ~cmd:(selector "setSafeAreaInsetsPortrait:") ~typ:(ptr void @-> returning (void)) x -let setSafeAreaInsetsPortraitUpsideDown x self = msg_send ~self ~cmd:(selector "setSafeAreaInsetsPortraitUpsideDown:") ~typ:(ptr void @-> returning (void)) x -let setScenePresenterRenderIdentifierForSnapshotting x self = msg_send ~self ~cmd:(selector "setScenePresenterRenderIdentifierForSnapshotting:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setStatusBarAvoidanceFrame x self = msg_send ~self ~cmd:(selector "setStatusBarAvoidanceFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setStatusBarDisabled x self = msg_send ~self ~cmd:(selector "setStatusBarDisabled:") ~typ:(bool @-> returning (void)) x -let setStatusBarHeight x self = msg_send ~self ~cmd:(selector "setStatusBarHeight:") ~typ:(double @-> returning (void)) x -let setStatusBarParts x self = msg_send ~self ~cmd:(selector "setStatusBarParts:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setStatusBarStyleOverridesToSuppress x self = msg_send ~self ~cmd:(selector "setStatusBarStyleOverridesToSuppress:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setSystemMinimumMargin x self = msg_send ~self ~cmd:(selector "setSystemMinimumMargin:") ~typ:(double @-> returning (void)) x -let setTargetOfEventDeferringEnvironments x self = msg_send ~self ~cmd:(selector "setTargetOfEventDeferringEnvironments:") ~typ:(id @-> returning (void)) x -let setUnderLock x self = msg_send ~self ~cmd:(selector "setUnderLock:") ~typ:(bool @-> returning (void)) x -let setUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setUserInterfaceStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let statusBarAvoidanceFrame self = msg_send_stret ~self ~cmd:(selector "statusBarAvoidanceFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let statusBarDisabled self = msg_send ~self ~cmd:(selector "statusBarDisabled") ~typ:(returning (bool)) -let statusBarHeight self = msg_send ~self ~cmd:(selector "statusBarHeight") ~typ:(returning (double)) -let statusBarParts self = msg_send ~self ~cmd:(selector "statusBarParts") ~typ:(returning (llong)) -let statusBarStyleOverridesToSuppress self = msg_send ~self ~cmd:(selector "statusBarStyleOverridesToSuppress") ~typ:(returning (ullong)) -let systemMinimumMargin self = msg_send ~self ~cmd:(selector "systemMinimumMargin") ~typ:(returning (double)) -let targetOfEventDeferringEnvironments self = msg_send ~self ~cmd:(selector "targetOfEventDeferringEnvironments") ~typ:(returning (id)) -let underLock self = msg_send ~self ~cmd:(selector "underLock") ~typ:(returning (bool)) -let userInterfaceStyle self = msg_send ~self ~cmd:(selector "userInterfaceStyle") ~typ:(returning (llong)) -let valueDescriptionForFlag x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning (id)) (LLong.of_int x) object_ (ULLong.of_int ofSetting) \ No newline at end of file diff --git a/uikit_extra/UIMutableCarPlayApplicationSceneSettings.ml b/uikit_extra/UIMutableCarPlayApplicationSceneSettings.ml index 395d8d53..87d6f7dd 100644 --- a/uikit_extra/UIMutableCarPlayApplicationSceneSettings.ml +++ b/uikit_extra/UIMutableCarPlayApplicationSceneSettings.ml @@ -5,9 +5,13 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMutableCarPlayApplicationSceneSettings" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimutablecarplayapplicationscenesettings?language=objc}UIMutableCarPlayApplicationSceneSettings} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let disableFiveRowKeyboards self = msg_send ~self ~cmd:(selector "disableFiveRowKeyboards") ~typ:(returning (bool)) -let setDisableFiveRowKeyboards x self = msg_send ~self ~cmd:(selector "setDisableFiveRowKeyboards:") ~typ:(bool @-> returning (void)) x \ No newline at end of file +let self = get_class "UIMutableCarPlayApplicationSceneSettings" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let disableFiveRowKeyboards self = msg_send ~self ~cmd:(selector "disableFiveRowKeyboards") ~typ:(returning bool) +let setDisableFiveRowKeyboards x self = msg_send ~self ~cmd:(selector "setDisableFiveRowKeyboards:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIMutableSceneAsynchronousRenderingOptions.ml b/uikit_extra/UIMutableSceneAsynchronousRenderingOptions.ml index e03c8653..353274a9 100644 --- a/uikit_extra/UIMutableSceneAsynchronousRenderingOptions.ml +++ b/uikit_extra/UIMutableSceneAsynchronousRenderingOptions.ml @@ -5,10 +5,14 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMutableSceneAsynchronousRenderingOptions" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimutablesceneasynchronousrenderingoptions?language=objc}UIMutableSceneAsynchronousRenderingOptions} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let setRenderMaxAPL x self = msg_send ~self ~cmd:(selector "setRenderMaxAPL:") ~typ:(float @-> returning (void)) x -let setRenderPeriod x self = msg_send ~self ~cmd:(selector "setRenderPeriod:") ~typ:(double @-> returning (void)) x -let setRenderTimes x self = msg_send ~self ~cmd:(selector "setRenderTimes:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIMutableSceneAsynchronousRenderingOptions" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let setRenderMaxAPL x self = msg_send ~self ~cmd:(selector "setRenderMaxAPL:") ~typ:(float @-> returning void) x +let setRenderPeriod x self = msg_send ~self ~cmd:(selector "setRenderPeriod:") ~typ:(double @-> returning void) x +let setRenderTimes x self = msg_send ~self ~cmd:(selector "setRenderTimes:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIMutableScenePresentationContext.ml b/uikit_extra/UIMutableScenePresentationContext.ml index 1c56f6a8..ac82574f 100644 --- a/uikit_extra/UIMutableScenePresentationContext.ml +++ b/uikit_extra/UIMutableScenePresentationContext.ml @@ -5,19 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMutableScenePresentationContext" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimutablescenepresentationcontext?language=objc}UIMutableScenePresentationContext} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let modifyLayerPresentationOverrideContextForLayerTarget x ~block self = msg_send ~self ~cmd:(selector "modifyLayerPresentationOverrideContextForLayerTarget:block:") ~typ:(id @-> ptr void @-> returning (void)) x block -let removeAllLayerPresentationOverrides self = msg_send ~self ~cmd:(selector "removeAllLayerPresentationOverrides") ~typ:(returning (void)) -let removeLayerPresentationOverrideForLayerTarget x self = msg_send ~self ~cmd:(selector "removeLayerPresentationOverrideForLayerTarget:") ~typ:(id @-> returning (void)) x -let resetToDefaults self = msg_send ~self ~cmd:(selector "resetToDefaults") ~typ:(returning (void)) -let setAppearanceStyle x self = msg_send ~self ~cmd:(selector "setAppearanceStyle:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setAsynchronousRenderingOptions x self = msg_send ~self ~cmd:(selector "setAsynchronousRenderingOptions:") ~typ:(id @-> returning (void)) x -let setBackgroundColorWhileHosting x self = msg_send ~self ~cmd:(selector "setBackgroundColorWhileHosting:") ~typ:(id @-> returning (void)) x -let setBackgroundColorWhileNotHosting x self = msg_send ~self ~cmd:(selector "setBackgroundColorWhileNotHosting:") ~typ:(id @-> returning (void)) x -let setClippingDisabled x self = msg_send ~self ~cmd:(selector "setClippingDisabled:") ~typ:(bool @-> returning (void)) x -let setHostTransformer x self = msg_send ~self ~cmd:(selector "setHostTransformer:") ~typ:(id @-> returning (void)) x -let setPresentedLayerTypes x self = msg_send ~self ~cmd:(selector "setPresentedLayerTypes:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setRenderingMode x self = msg_send ~self ~cmd:(selector "setRenderingMode:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) \ No newline at end of file +let self = get_class "UIMutableScenePresentationContext" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let modifyLayerPresentationOverrideContextForLayerTarget x ~block self = msg_send ~self ~cmd:(selector "modifyLayerPresentationOverrideContextForLayerTarget:block:") ~typ:(id @-> (ptr void) @-> returning void) x block +let removeAllLayerPresentationOverrides self = msg_send ~self ~cmd:(selector "removeAllLayerPresentationOverrides") ~typ:(returning void) +let removeLayerPresentationOverrideForLayerTarget x self = msg_send ~self ~cmd:(selector "removeLayerPresentationOverrideForLayerTarget:") ~typ:(id @-> returning void) x +let resetToDefaults self = msg_send ~self ~cmd:(selector "resetToDefaults") ~typ:(returning void) +let setAppearanceStyle x self = msg_send ~self ~cmd:(selector "setAppearanceStyle:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setAsynchronousRenderingOptions x self = msg_send ~self ~cmd:(selector "setAsynchronousRenderingOptions:") ~typ:(id @-> returning void) x +let setBackgroundColorWhileHosting x self = msg_send ~self ~cmd:(selector "setBackgroundColorWhileHosting:") ~typ:(id @-> returning void) x +let setBackgroundColorWhileNotHosting x self = msg_send ~self ~cmd:(selector "setBackgroundColorWhileNotHosting:") ~typ:(id @-> returning void) x +let setClippingDisabled x self = msg_send ~self ~cmd:(selector "setClippingDisabled:") ~typ:(bool @-> returning void) x +let setHostTransformer x self = msg_send ~self ~cmd:(selector "setHostTransformer:") ~typ:(id @-> returning void) x +let setPresentedLayerTypes x self = msg_send ~self ~cmd:(selector "setPresentedLayerTypes:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setRenderingMode x self = msg_send ~self ~cmd:(selector "setRenderingMode:") ~typ:(ullong @-> returning void) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIMutableStatusBarStyleRequest.ml b/uikit_extra/UIMutableStatusBarStyleRequest.ml index 27a2584a..1ade269a 100644 --- a/uikit_extra/UIMutableStatusBarStyleRequest.ml +++ b/uikit_extra/UIMutableStatusBarStyleRequest.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMutableStatusBarStyleRequest" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimutablestatusbarstylerequest?language=objc}UIMutableStatusBarStyleRequest} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let setForegroundAlpha x self = msg_send ~self ~cmd:(selector "setForegroundAlpha:") ~typ:(double @-> returning (void)) x -let setForegroundColor x self = msg_send ~self ~cmd:(selector "setForegroundColor:") ~typ:(id @-> returning (void)) x -let setLegibilityStyle x self = msg_send ~self ~cmd:(selector "setLegibilityStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setOverrideHeight x self = msg_send ~self ~cmd:(selector "setOverrideHeight:") ~typ:(id @-> returning (void)) x -let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file +let self = get_class "UIMutableStatusBarStyleRequest" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let setForegroundAlpha x self = msg_send ~self ~cmd:(selector "setForegroundAlpha:") ~typ:(double @-> returning void) x +let setForegroundColor x self = msg_send ~self ~cmd:(selector "setForegroundColor:") ~typ:(id @-> returning void) x +let setLegibilityStyle x self = msg_send ~self ~cmd:(selector "setLegibilityStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setOverrideHeight x self = msg_send ~self ~cmd:(selector "setOverrideHeight:") ~typ:(id @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIMutableTransformer.ml b/uikit_extra/UIMutableTransformer.ml deleted file mode 100644 index ca4e34d0..00000000 --- a/uikit_extra/UIMutableTransformer.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIMutableTransformer" - -let addTransform x ~reason self = msg_send ~self ~cmd:(selector "addTransform:reason:") ~typ:(id @-> id @-> returning (void)) x reason -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let descriptionBuilderWithMultilinePrefix x self = msg_send ~self ~cmd:(selector "descriptionBuilderWithMultilinePrefix:") ~typ:(id @-> returning (id)) x -let removeAll self = msg_send ~self ~cmd:(selector "removeAll") ~typ:(returning (void)) -let removeTransform x self = msg_send ~self ~cmd:(selector "removeTransform:") ~typ:(id @-> returning (void)) x -let replaceTransform x ~withTransform ~reason self = msg_send ~self ~cmd:(selector "replaceTransform:withTransform:reason:") ~typ:(id @-> id @-> id @-> returning (void)) x withTransform reason \ No newline at end of file diff --git a/uikit_extra/UIMutableUserNotificationActionSettings.ml b/uikit_extra/UIMutableUserNotificationActionSettings.ml index ae4be4e4..f80d28f5 100644 --- a/uikit_extra/UIMutableUserNotificationActionSettings.ml +++ b/uikit_extra/UIMutableUserNotificationActionSettings.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMutableUserNotificationActionSettings" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimutableusernotificationactionsettings?language=objc}UIMutableUserNotificationActionSettings} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let setActions x ~forContext self = msg_send ~self ~cmd:(selector "setActions:forContext:") ~typ:(id @-> ullong @-> returning (void)) x forContext \ No newline at end of file +let self = get_class "UIMutableUserNotificationActionSettings" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let setActions x ~forContext self = msg_send ~self ~cmd:(selector "setActions:forContext:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forContext) \ No newline at end of file diff --git a/uikit_extra/UIMutableUserNotificationCategory.ml b/uikit_extra/UIMutableUserNotificationCategory.ml index 1cc972f7..2c46405d 100644 --- a/uikit_extra/UIMutableUserNotificationCategory.ml +++ b/uikit_extra/UIMutableUserNotificationCategory.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIMutableUserNotificationCategory" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uimutableusernotificationcategory?language=objc}UIMutableUserNotificationCategory} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let setActions x ~forContext self = msg_send ~self ~cmd:(selector "setActions:forContext:") ~typ:(id @-> ullong @-> returning (void)) x forContext \ No newline at end of file +let self = get_class "UIMutableUserNotificationCategory" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let setActions x ~forContext self = msg_send ~self ~cmd:(selector "setActions:forContext:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forContext) \ No newline at end of file diff --git a/uikit_extra/UINSAccessibilityInfo.ml b/uikit_extra/UINSAccessibilityInfo.ml deleted file mode 100644 index 4bc8da94..00000000 --- a/uikit_extra/UINSAccessibilityInfo.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSAccessibilityInfo" - -let accessibilityHint self = msg_send ~self ~cmd:(selector "accessibilityHint") ~typ:(returning (id)) -let accessibilityLabel self = msg_send ~self ~cmd:(selector "accessibilityLabel") ~typ:(returning (id)) -let accessibilityValue self = msg_send ~self ~cmd:(selector "accessibilityValue") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let setAccessibilityHint x self = msg_send ~self ~cmd:(selector "setAccessibilityHint:") ~typ:(id @-> returning (void)) x -let setAccessibilityLabel x self = msg_send ~self ~cmd:(selector "setAccessibilityLabel:") ~typ:(id @-> returning (void)) x -let setAccessibilityValue x self = msg_send ~self ~cmd:(selector "setAccessibilityValue:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSActionGroup.ml b/uikit_extra/UINSActionGroup.ml deleted file mode 100644 index 44325230..00000000 --- a/uikit_extra/UINSActionGroup.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSActionGroup" - -module C = struct - let groupWithActions x ~sourceApplication self = msg_send ~self ~cmd:(selector "groupWithActions:sourceApplication:") ~typ:(id @-> id @-> returning (id)) x sourceApplication -end - -let actions self = msg_send ~self ~cmd:(selector "actions") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let setActions x self = msg_send ~self ~cmd:(selector "setActions:") ~typ:(id @-> returning (void)) x -let setSourceApplication x self = msg_send ~self ~cmd:(selector "setSourceApplication:") ~typ:(id @-> returning (void)) x -let sourceApplication self = msg_send ~self ~cmd:(selector "sourceApplication") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSActivityItemSourceProxy.ml b/uikit_extra/UINSActivityItemSourceProxy.ml deleted file mode 100644 index cdd27ed1..00000000 --- a/uikit_extra/UINSActivityItemSourceProxy.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSActivityItemSourceProxy" - -let initWithItem x self = msg_send ~self ~cmd:(selector "initWithItem:") ~typ:(id @-> returning (id)) x -let item self = msg_send ~self ~cmd:(selector "item") ~typ:(returning (id)) -let operation self = msg_send ~self ~cmd:(selector "operation") ~typ:(returning (id)) -let sharingServicePicker x ~dataTypeIdentifierForSharingServiceName self = msg_send ~self ~cmd:(selector "sharingServicePicker:dataTypeIdentifierForSharingServiceName:") ~typ:(id @-> id @-> returning (id)) x dataTypeIdentifierForSharingServiceName -let sharingServicePicker1 x ~itemForSharingServiceName self = msg_send ~self ~cmd:(selector "sharingServicePicker:itemForSharingServiceName:") ~typ:(id @-> id @-> returning (id)) x itemForSharingServiceName -let sharingServicePicker2 x ~subjectForSharingServiceName self = msg_send ~self ~cmd:(selector "sharingServicePicker:subjectForSharingServiceName:") ~typ:(id @-> id @-> returning (id)) x subjectForSharingServiceName -let sharingServicePicker3 x ~thumbnailImageForSharingServiceName ~suggestedSize self = msg_send ~self ~cmd:(selector "sharingServicePicker:thumbnailImageForSharingServiceName:suggestedSize:") ~typ:(id @-> id @-> CGSize.t @-> returning (id)) x thumbnailImageForSharingServiceName suggestedSize -let sharingServicePickerPlaceholderItem x self = msg_send ~self ~cmd:(selector "sharingServicePickerPlaceholderItem:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit_extra/UINSAlert.ml b/uikit_extra/UINSAlert.ml deleted file mode 100644 index a5fecbf4..00000000 --- a/uikit_extra/UINSAlert.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSAlert" - -let addButton x self = msg_send ~self ~cmd:(selector "addButton:") ~typ:(id @-> returning (void)) x -let beginSheetModalWithCompletion x self = msg_send ~self ~cmd:(selector "beginSheetModalWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let dismissAlert self = msg_send ~self ~cmd:(selector "dismissAlert") ~typ:(returning (void)) -let initWithParentWindow x self = msg_send ~self ~cmd:(selector "initWithParentWindow:") ~typ:(id @-> returning (id)) x -let setAccessoryImage x self = msg_send ~self ~cmd:(selector "setAccessoryImage:") ~typ:(id @-> returning (void)) x -let setAttributedMessage x self = msg_send ~self ~cmd:(selector "setAttributedMessage:") ~typ:(id @-> returning (void)) x -let setAttributedTitle x self = msg_send ~self ~cmd:(selector "setAttributedTitle:") ~typ:(id @-> returning (void)) x -let setIcon x self = msg_send ~self ~cmd:(selector "setIcon:") ~typ:(id @-> returning (void)) x -let setMessage x self = msg_send ~self ~cmd:(selector "setMessage:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let updateButton x self = msg_send ~self ~cmd:(selector "updateButton:") ~typ:(id @-> returning (void)) x -let updateButtonWithIdentifier x ~keyEquivalent self = msg_send ~self ~cmd:(selector "updateButtonWithIdentifier:keyEquivalent:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) keyEquivalent -let updateButtons x self = msg_send ~self ~cmd:(selector "updateButtons:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSAppKitBackgroundingController.ml b/uikit_extra/UINSAppKitBackgroundingController.ml deleted file mode 100644 index 1070adee..00000000 --- a/uikit_extra/UINSAppKitBackgroundingController.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSAppKitBackgroundingController" - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isAppKitBackground self = msg_send ~self ~cmd:(selector "isAppKitBackground") ~typ:(returning (bool)) -let isAppKitHidden self = msg_send ~self ~cmd:(selector "isAppKitHidden") ~typ:(returning (bool)) -let makeAppKitBackground self = msg_send ~self ~cmd:(selector "makeAppKitBackground") ~typ:(returning (bool)) -let makeAppKitBackgroundAndHold self = msg_send ~self ~cmd:(selector "makeAppKitBackgroundAndHold") ~typ:(returning (bool)) -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let setAppKitBackground x self = msg_send ~self ~cmd:(selector "setAppKitBackground:") ~typ:(bool @-> returning (void)) x -let setAppKitHidden x self = msg_send ~self ~cmd:(selector "setAppKitHidden:") ~typ:(bool @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSAppKitTerminationController.ml b/uikit_extra/UINSAppKitTerminationController.ml deleted file mode 100644 index 63d53def..00000000 --- a/uikit_extra/UINSAppKitTerminationController.ml +++ /dev/null @@ -1,41 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSAppKitTerminationController" - -let appShouldTerminate self = msg_send ~self ~cmd:(selector "appShouldTerminate") ~typ:(returning (ullong)) -let cancelAppKitTerminationIfNecessary self = msg_send ~self ~cmd:(selector "cancelAppKitTerminationIfNecessary") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didSetupKVO self = msg_send ~self ~cmd:(selector "didSetupKVO") ~typ:(returning (bool)) -let expeditingCanBeTakenBack self = msg_send ~self ~cmd:(selector "expeditingCanBeTakenBack") ~typ:(returning (bool)) -let finishAppKitTerminationOrExit self = msg_send ~self ~cmd:(selector "finishAppKitTerminationOrExit") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isLaunchComplete self = msg_send ~self ~cmd:(selector "isLaunchComplete") ~typ:(returning (bool)) -let isTerminatingNSApplication self = msg_send ~self ~cmd:(selector "isTerminatingNSApplication") ~typ:(returning (bool)) -let isTerminationCancelable self = msg_send ~self ~cmd:(selector "isTerminationCancelable") ~typ:(returning (bool)) -let isTerminationExplicit self = msg_send ~self ~cmd:(selector "isTerminationExplicit") ~typ:(returning (bool)) -let isTerminationQuitAndCloseAllWindows self = msg_send ~self ~cmd:(selector "isTerminationQuitAndCloseAllWindows") ~typ:(returning (bool)) -let isWaitingForTerminationReply self = msg_send ~self ~cmd:(selector "isWaitingForTerminationReply") ~typ:(returning (bool)) -let launchingDidComplete self = msg_send ~self ~cmd:(selector "launchingDidComplete") ~typ:(returning (bool)) -let markAppKitTerminationSuccessfullyAborted self = msg_send ~self ~cmd:(selector "markAppKitTerminationSuccessfullyAborted") ~typ:(returning (void)) -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDidSetupKVO x self = msg_send ~self ~cmd:(selector "setDidSetupKVO:") ~typ:(bool @-> returning (void)) x -let setExpeditingCanBeTakenBack x self = msg_send ~self ~cmd:(selector "setExpeditingCanBeTakenBack:") ~typ:(bool @-> returning (void)) x -let setIsLaunchComplete x self = msg_send ~self ~cmd:(selector "setIsLaunchComplete:") ~typ:(bool @-> returning (void)) x -let setIsTerminatingNSApplication x self = msg_send ~self ~cmd:(selector "setIsTerminatingNSApplication:") ~typ:(bool @-> returning (void)) x -let setIsTerminationCancelable x self = msg_send ~self ~cmd:(selector "setIsTerminationCancelable:") ~typ:(bool @-> returning (void)) x -let setIsTerminationExplicit x self = msg_send ~self ~cmd:(selector "setIsTerminationExplicit:") ~typ:(bool @-> returning (void)) x -let setIsTerminationQuitAndCloseAllWindows x self = msg_send ~self ~cmd:(selector "setIsTerminationQuitAndCloseAllWindows:") ~typ:(bool @-> returning (void)) x -let setIsWaitingForTerminationReply x self = msg_send ~self ~cmd:(selector "setIsWaitingForTerminationReply:") ~typ:(bool @-> returning (void)) x -let setShouldExpediteNextTermination x self = msg_send ~self ~cmd:(selector "setShouldExpediteNextTermination:") ~typ:(bool @-> returning (void)) x -let setShowedAlertForWindowSizePrefsChange x self = msg_send ~self ~cmd:(selector "setShowedAlertForWindowSizePrefsChange:") ~typ:(bool @-> returning (void)) x -let shouldExpediteNextTermination self = msg_send ~self ~cmd:(selector "shouldExpediteNextTermination") ~typ:(returning (bool)) -let showedAlertForWindowSizePrefsChange self = msg_send ~self ~cmd:(selector "showedAlertForWindowSizePrefsChange") ~typ:(returning (bool)) -let uiKitWantsToTerminateProcessExplicitly self = msg_send ~self ~cmd:(selector "uiKitWantsToTerminateProcessExplicitly") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UINSAppLifecycleState.ml b/uikit_extra/UINSAppLifecycleState.ml deleted file mode 100644 index e8944e90..00000000 --- a/uikit_extra/UINSAppLifecycleState.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSAppLifecycleState" - -module C = struct - let nameForStateIdentifier x self = msg_send ~self ~cmd:(selector "nameForStateIdentifier:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -end - -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let stateIdentifier self = msg_send ~self ~cmd:(selector "stateIdentifier") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit_extra/UINSAppLifecycleStateLaunchingToForeground.ml b/uikit_extra/UINSAppLifecycleStateLaunchingToForeground.ml deleted file mode 100644 index 932da19b..00000000 --- a/uikit_extra/UINSAppLifecycleStateLaunchingToForeground.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSAppLifecycleStateLaunchingToForeground" - -let encounteredSceneStateRestorationCompletion self = msg_send ~self ~cmd:(selector "encounteredSceneStateRestorationCompletion") ~typ:(returning (bool)) -let encounteredUIKitAppForegrounding self = msg_send ~self ~cmd:(selector "encounteredUIKitAppForegrounding") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let setEncounteredSceneStateRestorationCompletion x self = msg_send ~self ~cmd:(selector "setEncounteredSceneStateRestorationCompletion:") ~typ:(bool @-> returning (void)) x -let setEncounteredUIKitAppForegrounding x self = msg_send ~self ~cmd:(selector "setEncounteredUIKitAppForegrounding:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSAppLifecycleStateTerminatingHidingMacGUI.ml b/uikit_extra/UINSAppLifecycleStateTerminatingHidingMacGUI.ml deleted file mode 100644 index 2375c2db..00000000 --- a/uikit_extra/UINSAppLifecycleStateTerminatingHidingMacGUI.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSAppLifecycleStateTerminatingHidingMacGUI" - -let appDidHide self = msg_send ~self ~cmd:(selector "appDidHide") ~typ:(returning (bool)) -let appWentBackgroundOnly self = msg_send ~self ~cmd:(selector "appWentBackgroundOnly") ~typ:(returning (bool)) -let didRequestDefaultWindowState self = msg_send ~self ~cmd:(selector "didRequestDefaultWindowState") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let reachedDefaultWindowState self = msg_send ~self ~cmd:(selector "reachedDefaultWindowState") ~typ:(returning (bool)) -let relaunchRequested self = msg_send ~self ~cmd:(selector "relaunchRequested") ~typ:(returning (bool)) -let setAppDidHide x self = msg_send ~self ~cmd:(selector "setAppDidHide:") ~typ:(bool @-> returning (void)) x -let setAppWentBackgroundOnly x self = msg_send ~self ~cmd:(selector "setAppWentBackgroundOnly:") ~typ:(bool @-> returning (void)) x -let setDidRequestDefaultWindowState x self = msg_send ~self ~cmd:(selector "setDidRequestDefaultWindowState:") ~typ:(bool @-> returning (void)) x -let setReachedDefaultWindowState x self = msg_send ~self ~cmd:(selector "setReachedDefaultWindowState:") ~typ:(bool @-> returning (void)) x -let setRelaunchRequested x self = msg_send ~self ~cmd:(selector "setRelaunchRequested:") ~typ:(bool @-> returning (void)) x -let setWantWindowStateReset x self = msg_send ~self ~cmd:(selector "setWantWindowStateReset:") ~typ:(bool @-> returning (void)) x -let wantWindowStateReset self = msg_send ~self ~cmd:(selector "wantWindowStateReset") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UINSAppLifecycleStateTerminatingPastPointOfNoReturn.ml b/uikit_extra/UINSAppLifecycleStateTerminatingPastPointOfNoReturn.ml deleted file mode 100644 index 45e0b55d..00000000 --- a/uikit_extra/UINSAppLifecycleStateTerminatingPastPointOfNoReturn.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSAppLifecycleStateTerminatingPastPointOfNoReturn" - -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let setStateEntryTime x self = msg_send ~self ~cmd:(selector "setStateEntryTime:") ~typ:(double @-> returning (void)) x -let stateEntryTime self = msg_send ~self ~cmd:(selector "stateEntryTime") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit_extra/UINSAppLifecycleStateTerminatingWaitingForBackgroundTasks.ml b/uikit_extra/UINSAppLifecycleStateTerminatingWaitingForBackgroundTasks.ml deleted file mode 100644 index 0d1d3165..00000000 --- a/uikit_extra/UINSAppLifecycleStateTerminatingWaitingForBackgroundTasks.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSAppLifecycleStateTerminatingWaitingForBackgroundTasks" - -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isActiveState self = msg_send ~self ~cmd:(selector "isActiveState") ~typ:(returning (bool)) -let setIsActiveState x self = msg_send ~self ~cmd:(selector "setIsActiveState:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSApplicationDelegate.ml b/uikit_extra/UINSApplicationDelegate.ml deleted file mode 100644 index 36c08b29..00000000 --- a/uikit_extra/UINSApplicationDelegate.ml +++ /dev/null @@ -1,246 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSApplicationDelegate" - -module C = struct - let restoreWindowWithIdentifier x ~state ~completionHandler self = msg_send ~self ~cmd:(selector "restoreWindowWithIdentifier:state:completionHandler:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x state completionHandler - let runBlockWhenSharedDelegateBecomesAvailable x self = msg_send ~self ~cmd:(selector "runBlockWhenSharedDelegateBecomesAvailable:") ~typ:(ptr void @-> returning (bool)) x - let sharedDelegate self = msg_send ~self ~cmd:(selector "sharedDelegate") ~typ:(returning (id)) -end - -let abortAllToolTips self = msg_send ~self ~cmd:(selector "abortAllToolTips") ~typ:(returning (void)) -let acceptsActivatingTouchCallback self = msg_send ~self ~cmd:(selector "acceptsActivatingTouchCallback") ~typ:(returning (ptr void)) -let activateIgnoringOtherApps x self = msg_send ~self ~cmd:(selector "activateIgnoringOtherApps:") ~typ:(bool @-> returning (void)) x -let activityItemsConfigurationForServicesAndSharing self = msg_send ~self ~cmd:(selector "activityItemsConfigurationForServicesAndSharing") ~typ:(returning (ptr void)) -let almondTouchAlternativesConfigureUIFeatureEnabled self = msg_send ~self ~cmd:(selector "almondTouchAlternativesConfigureUIFeatureEnabled") ~typ:(returning (bool)) -let appIsInBackgroundStateCallback self = msg_send ~self ~cmd:(selector "appIsInBackgroundStateCallback") ~typ:(returning (ptr void)) -let appLifecycleController self = msg_send ~self ~cmd:(selector "appLifecycleController") ~typ:(returning (id)) -let appMenu self = msg_send ~self ~cmd:(selector "appMenu") ~typ:(returning (id)) -let appName self = msg_send ~self ~cmd:(selector "appName") ~typ:(returning (id)) -let appSupportsMultiwindowCallback self = msg_send ~self ~cmd:(selector "appSupportsMultiwindowCallback") ~typ:(returning (ptr void)) -let appSupportsTabbedWindowsCallback self = msg_send ~self ~cmd:(selector "appSupportsTabbedWindowsCallback") ~typ:(returning (ptr void)) -let appWillTerminateCallback self = msg_send ~self ~cmd:(selector "appWillTerminateCallback") ~typ:(returning (ptr void)) -let application x ~delegateHandlesKey self = msg_send ~self ~cmd:(selector "application:delegateHandlesKey:") ~typ:(id @-> id @-> returning (bool)) x delegateHandlesKey -let application1 x ~handlerForIntent self = msg_send ~self ~cmd:(selector "application:handlerForIntent:") ~typ:(id @-> id @-> returning (id)) x handlerForIntent -let application2 x ~openURLs self = msg_send ~self ~cmd:(selector "application:openURLs:") ~typ:(id @-> id @-> returning (void)) x openURLs -let application3 x ~userDidAcceptCloudKitShareWithMetadata self = msg_send ~self ~cmd:(selector "application:userDidAcceptCloudKitShareWithMetadata:") ~typ:(id @-> id @-> returning (void)) x userDidAcceptCloudKitShareWithMetadata -let applicationDidChangeActive x self = msg_send ~self ~cmd:(selector "applicationDidChangeActive:") ~typ:(id @-> returning (void)) x -let applicationDidChangeHidden x self = msg_send ~self ~cmd:(selector "applicationDidChangeHidden:") ~typ:(id @-> returning (void)) x -let applicationDidFinishLaunching x self = msg_send ~self ~cmd:(selector "applicationDidFinishLaunching:") ~typ:(id @-> returning (void)) x -let applicationDockMenu x self = msg_send ~self ~cmd:(selector "applicationDockMenu:") ~typ:(id @-> returning (id)) x -let applicationExplicitlyMarksAppLaunchComplete x self = msg_send ~self ~cmd:(selector "applicationExplicitlyMarksAppLaunchComplete:") ~typ:(id @-> returning (bool)) x -let applicationOrderFrontPreferencesPanel x self = msg_send ~self ~cmd:(selector "applicationOrderFrontPreferencesPanel:") ~typ:(id @-> returning (bool)) x -let applicationShouldAutomaticallyLocalizeKeyEquivalents self = msg_send ~self ~cmd:(selector "applicationShouldAutomaticallyLocalizeKeyEquivalents") ~typ:(returning (bool)) -let applicationShouldAutomaticallyLocalizeKeyEquivalents' x self = msg_send ~self ~cmd:(selector "applicationShouldAutomaticallyLocalizeKeyEquivalents:") ~typ:(id @-> returning (bool)) x -let applicationShouldHandleReopen x ~hasVisibleWindows self = msg_send ~self ~cmd:(selector "applicationShouldHandleReopen:hasVisibleWindows:") ~typ:(id @-> bool @-> returning (bool)) x hasVisibleWindows -let applicationShouldTerminate x self = msg_send ~self ~cmd:(selector "applicationShouldTerminate:") ~typ:(id @-> returning (ullong)) x -let applicationShouldTerminateAfterLastWindowClosed x self = msg_send ~self ~cmd:(selector "applicationShouldTerminateAfterLastWindowClosed:") ~typ:(id @-> returning (bool)) x -let applicationSupportsSecureRestorableState x self = msg_send ~self ~cmd:(selector "applicationSupportsSecureRestorableState:") ~typ:(id @-> returning (bool)) x -let aquaTheme self = msg_send ~self ~cmd:(selector "aquaTheme") ~typ:(returning (id)) -let backgroundTaskCountCallback self = msg_send ~self ~cmd:(selector "backgroundTaskCountCallback") ~typ:(returning (ptr void)) -let backgroundTasksWillExpireCallback self = msg_send ~self ~cmd:(selector "backgroundTasksWillExpireCallback") ~typ:(returning (ptr void)) -let becomeFirstResponderHandler self = msg_send ~self ~cmd:(selector "becomeFirstResponderHandler") ~typ:(returning (ptr void)) -let beginTerminationBackgroundTaskCallback self = msg_send ~self ~cmd:(selector "beginTerminationBackgroundTaskCallback") ~typ:(returning (ptr void)) -let bundle self = msg_send ~self ~cmd:(selector "bundle") ~typ:(returning (id)) -let clearCachedActivityItemsConfigurationForServicesAndSharing self = msg_send ~self ~cmd:(selector "clearCachedActivityItemsConfigurationForServicesAndSharing") ~typ:(returning (void)) -let closeWindowControllerForScene x self = msg_send ~self ~cmd:(selector "closeWindowControllerForScene:") ~typ:(id @-> returning (void)) x -let closeWindowControllerForSceneIdentifier x self = msg_send ~self ~cmd:(selector "closeWindowControllerForSceneIdentifier:") ~typ:(id @-> returning (void)) x -let contextIDsInSceneWithSceneIdentifier x self = msg_send ~self ~cmd:(selector "contextIDsInSceneWithSceneIdentifier:") ~typ:(id @-> returning (id)) x -let contextIDsInSceneWithSceneIdentifierCallback self = msg_send ~self ~cmd:(selector "contextIDsInSceneWithSceneIdentifierCallback") ~typ:(returning (ptr void)) -let copyRegionBlockingWindowDragCallback self = msg_send ~self ~cmd:(selector "copyRegionBlockingWindowDragCallback") ~typ:(returning (ptr void)) -let copyScriptingValue x ~forKey ~withProperties self = msg_send ~self ~cmd:(selector "copyScriptingValue:forKey:withProperties:") ~typ:(id @-> id @-> id @-> returning (id)) x forKey withProperties -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let debugUtilities self = msg_send ~self ~cmd:(selector "debugUtilities") ~typ:(returning (id)) -let didCompleteAllBackgroundTasksAfterBackgrounding self = msg_send ~self ~cmd:(selector "didCompleteAllBackgroundTasksAfterBackgrounding") ~typ:(returning (void)) -let didConfigureWindow self = msg_send ~self ~cmd:(selector "didConfigureWindow") ~typ:(returning (bool)) -let didCreateUIScene x ~transitionContextDictionary self = msg_send ~self ~cmd:(selector "didCreateUIScene:transitionContextDictionary:") ~typ:(id @-> id @-> returning (void)) x transitionContextDictionary -let didOpenURLs x self = msg_send ~self ~cmd:(selector "didOpenURLs:") ~typ:(id @-> returning (void)) x -let didReceiveLaunchActions self = msg_send ~self ~cmd:(selector "didReceiveLaunchActions") ~typ:(returning (void)) -let didRequestSceneWithOptions x ~sceneIdentifier ~orError self = msg_send ~self ~cmd:(selector "didRequestSceneWithOptions:sceneIdentifier:orError:") ~typ:(id @-> id @-> id @-> returning (void)) x sceneIdentifier orError -let discardMarkedText self = msg_send ~self ~cmd:(selector "discardMarkedText") ~typ:(returning (void)) -let discardMarkedTextHandler self = msg_send ~self ~cmd:(selector "discardMarkedTextHandler") ~typ:(returning (ptr void)) -let dismissPrintOrExportPanel self = msg_send ~self ~cmd:(selector "dismissPrintOrExportPanel") ~typ:(returning (void)) -let effectiveActivityItemsConfigurationForServicesAndSharing self = msg_send ~self ~cmd:(selector "effectiveActivityItemsConfigurationForServicesAndSharing") ~typ:(returning (id)) -let endTerminationBackgroundTaskCallback self = msg_send ~self ~cmd:(selector "endTerminationBackgroundTaskCallback") ~typ:(returning (ptr void)) -let ensureBackgroundTaskCountReachedZeroHandlerCallback self = msg_send ~self ~cmd:(selector "ensureBackgroundTaskCountReachedZeroHandlerCallback") ~typ:(returning (ptr void)) -let ensureIdiomScaleFactorIsInitializedCallback self = msg_send ~self ~cmd:(selector "ensureIdiomScaleFactorIsInitializedCallback") ~typ:(returning (ptr void)) -let expansionTextInfoAtPointCallback self = msg_send ~self ~cmd:(selector "expansionTextInfoAtPointCallback") ~typ:(returning (ptr void)) -let expansionTextInfoDrawInRectCallback self = msg_send ~self ~cmd:(selector "expansionTextInfoDrawInRectCallback") ~typ:(returning (ptr void)) -let explicitlyMarksAppLaunchCompleteCallback self = msg_send ~self ~cmd:(selector "explicitlyMarksAppLaunchCompleteCallback") ~typ:(returning (ptr void)) -let handleAppleEvent x ~withReplyEvent self = msg_send ~self ~cmd:(selector "handleAppleEvent:withReplyEvent:") ~typ:(id @-> id @-> returning (void)) x withReplyEvent -let handleEventByInputMethod self = msg_send ~self ~cmd:(selector "handleEventByInputMethod") ~typ:(returning (ptr void)) -let handleMenuItemSelected x self = msg_send ~self ~cmd:(selector "handleMenuItemSelected:") ~typ:(id @-> returning (void)) x -let hasContinuityCameraServicesMenuProvider self = msg_send ~self ~cmd:(selector "hasContinuityCameraServicesMenuProvider") ~typ:(returning (ptr void)) -let hasNonUserSettableSettings self = msg_send ~self ~cmd:(selector "hasNonUserSettableSettings") ~typ:(returning (bool)) -let hasServicesAndSharingMenuProviderForReturnType self = msg_send ~self ~cmd:(selector "hasServicesAndSharingMenuProviderForReturnType") ~typ:(returning (ptr void)) -let hasSystemInfoCreditsFile self = msg_send ~self ~cmd:(selector "hasSystemInfoCreditsFile") ~typ:(returning (bool)) -let hasUserSettableSettings self = msg_send ~self ~cmd:(selector "hasUserSettableSettings") ~typ:(returning (bool)) -let hostWindowDidBecomeKeyWindowHandler self = msg_send ~self ~cmd:(selector "hostWindowDidBecomeKeyWindowHandler") ~typ:(returning (ptr void)) -let hostWindowDidChangeKeyAppearanceHandler self = msg_send ~self ~cmd:(selector "hostWindowDidChangeKeyAppearanceHandler") ~typ:(returning (ptr void)) -let hostWindowDidResizeCallback self = msg_send ~self ~cmd:(selector "hostWindowDidResizeCallback") ~typ:(returning (ptr void)) -let hostWindowForSceneIdentifier x self = msg_send ~self ~cmd:(selector "hostWindowForSceneIdentifier:") ~typ:(id @-> returning (id)) x -let hostWindowForUIWindow x self = msg_send ~self ~cmd:(selector "hostWindowForUIWindow:") ~typ:(id @-> returning (id)) x -let implicitTabbingIdentifierForSceneIdentifier x self = msg_send ~self ~cmd:(selector "implicitTabbingIdentifierForSceneIdentifier:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let insertValue x ~inPropertyWithKey self = msg_send ~self ~cmd:(selector "insertValue:inPropertyWithKey:") ~typ:(id @-> id @-> returning (void)) x inPropertyWithKey -let insertValue' x ~atIndex ~inPropertyWithKey self = msg_send ~self ~cmd:(selector "insertValue:atIndex:inPropertyWithKey:") ~typ:(id @-> ullong @-> id @-> returning (void)) x (ULLong.of_int atIndex) inPropertyWithKey -let installHandleUIKeyCommandEventHandler x self = msg_send ~self ~cmd:(selector "installHandleUIKeyCommandEventHandler:") ~typ:(ptr void @-> returning (void)) x -let installIsUIKeyCommandEventHandler x self = msg_send ~self ~cmd:(selector "installIsUIKeyCommandEventHandler:") ~typ:(ptr void @-> returning (void)) x -let isAppExtension self = msg_send ~self ~cmd:(selector "isAppExtension") ~typ:(returning (bool)) -let isAttemptingTermination self = msg_send ~self ~cmd:(selector "isAttemptingTermination") ~typ:(returning (bool)) -let isUIAppInstancePresent self = msg_send ~self ~cmd:(selector "isUIAppInstancePresent") ~typ:(returning (bool)) -let iterateWindowsForDropSessionWithID x ~reply self = msg_send ~self ~cmd:(selector "iterateWindowsForDropSessionWithID:reply:") ~typ:(uint @-> ptr void @-> returning (void)) x reply -let keyHostWindow self = msg_send ~self ~cmd:(selector "keyHostWindow") ~typ:(returning (id)) -let keyboardDelegateRequiresKeyEvents self = msg_send ~self ~cmd:(selector "keyboardDelegateRequiresKeyEvents") ~typ:(returning (ptr void)) -let keyboardIsActiveForCurrentResponder self = msg_send ~self ~cmd:(selector "keyboardIsActiveForCurrentResponder") ~typ:(returning (ptr void)) -let launchingIsComplete self = msg_send ~self ~cmd:(selector "launchingIsComplete") ~typ:(returning (bool)) -let lockCursorIfNecessaryForUINSWindow x ~shouldWarpCursor self = msg_send ~self ~cmd:(selector "lockCursorIfNecessaryForUINSWindow:shouldWarpCursor:") ~typ:(id @-> bool @-> returning (void)) x shouldWarpCursor -let maximumRecentItemsMenuCount self = msg_send ~self ~cmd:(selector "maximumRecentItemsMenuCount") ~typ:(returning (ullong)) -let menuController self = msg_send ~self ~cmd:(selector "menuController") ~typ:(returning (id)) -let newScriptingObjectOfClass x ~forValueForKey ~withContentsValue ~properties self = msg_send ~self ~cmd:(selector "newScriptingObjectOfClass:forValueForKey:withContentsValue:properties:") ~typ:(_Class @-> id @-> id @-> id @-> returning (id)) x forValueForKey withContentsValue properties -let nextPrintJobShouldExport self = msg_send ~self ~cmd:(selector "nextPrintJobShouldExport") ~typ:(returning (bool)) -let noteNewRecentDocumentURL x self = msg_send ~self ~cmd:(selector "noteNewRecentDocumentURL:") ~typ:(id @-> returning (void)) x -let notifyAppFrontmostChanged self = msg_send ~self ~cmd:(selector "notifyAppFrontmostChanged") ~typ:(returning (void)) -let openRecentItemURL x self = msg_send ~self ~cmd:(selector "openRecentItemURL:") ~typ:(id @-> returning (void)) x -let openURL x self = msg_send ~self ~cmd:(selector "openURL:") ~typ:(id @-> returning (bool)) x -let openURL' x ~options ~completion self = msg_send ~self ~cmd:(selector "openURL:options:completion:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x options completion -let performActionWithCompletionHandler self = msg_send ~self ~cmd:(selector "performActionWithCompletionHandler") ~typ:(returning (ptr void)) -let performClickWithCompletionHandler self = msg_send ~self ~cmd:(selector "performClickWithCompletionHandler") ~typ:(returning (ptr void)) -let performDefaultBehaviorForEvent self = msg_send ~self ~cmd:(selector "performDefaultBehaviorForEvent") ~typ:(returning (ptr void)) -let pid self = msg_send ~self ~cmd:(selector "pid") ~typ:(returning (int)) -let preferredSceneViewSizeForSceneCallback self = msg_send ~self ~cmd:(selector "preferredSceneViewSizeForSceneCallback") ~typ:(returning (ptr void)) -let prefersPointerLockForSceneIdentifierCallback self = msg_send ~self ~cmd:(selector "prefersPointerLockForSceneIdentifierCallback") ~typ:(returning (ptr void)) -let prefersPointerLockForSceneIdentifierCallback' x self = msg_send ~self ~cmd:(selector "prefersPointerLockForSceneIdentifierCallback:") ~typ:(id @-> returning (bool)) x -let printOrExportPanelWasDismissedCallback self = msg_send ~self ~cmd:(selector "printOrExportPanelWasDismissedCallback") ~typ:(returning (ptr void)) -let printingController self = msg_send ~self ~cmd:(selector "printingController") ~typ:(returning (id)) -let printingFinished x self = msg_send ~self ~cmd:(selector "printingFinished:") ~typ:(bool @-> returning (void)) x -let readSelectionFromPasteboardWithName self = msg_send ~self ~cmd:(selector "readSelectionFromPasteboardWithName") ~typ:(returning (ptr void)) -let receivedTestURLCallback self = msg_send ~self ~cmd:(selector "receivedTestURLCallback") ~typ:(returning (ptr void)) -let registeredForAccessibilityNotifications self = msg_send ~self ~cmd:(selector "registeredForAccessibilityNotifications") ~typ:(returning (bool)) -let removeValueAtIndex x ~fromPropertyWithKey self = msg_send ~self ~cmd:(selector "removeValueAtIndex:fromPropertyWithKey:") ~typ:(ullong @-> id @-> returning (void)) (ULLong.of_int x) fromPropertyWithKey -let replaceValueAtIndex x ~inPropertyWithKey ~withValue self = msg_send ~self ~cmd:(selector "replaceValueAtIndex:inPropertyWithKey:withValue:") ~typ:(ullong @-> id @-> id @-> returning (void)) (ULLong.of_int x) inPropertyWithKey withValue -let reportAppLaunchCompleteCallback self = msg_send ~self ~cmd:(selector "reportAppLaunchCompleteCallback") ~typ:(returning (ptr void)) -let requestHostingSceneCreationWithPersistentIdentifierCallback self = msg_send ~self ~cmd:(selector "requestHostingSceneCreationWithPersistentIdentifierCallback") ~typ:(returning (ptr void)) -let requestSceneDestructionForSceneIdentifierCallback self = msg_send ~self ~cmd:(selector "requestSceneDestructionForSceneIdentifierCallback") ~typ:(returning (ptr void)) -let resetApplicationPreservationState self = msg_send ~self ~cmd:(selector "resetApplicationPreservationState") ~typ:(returning (ptr void)) -let resignFirstResponderHandler self = msg_send ~self ~cmd:(selector "resignFirstResponderHandler") ~typ:(returning (ptr void)) -let restoreWindowWithIdentifier x ~state ~completionHandler self = msg_send ~self ~cmd:(selector "restoreWindowWithIdentifier:state:completionHandler:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x state completionHandler -let sceneIdentifierForTargetContentIDCallback self = msg_send ~self ~cmd:(selector "sceneIdentifierForTargetContentIDCallback") ~typ:(returning (ptr void)) -let sceneUtilities self = msg_send ~self ~cmd:(selector "sceneUtilities") ~typ:(returning (id)) -let sceneViewConnectedCallback self = msg_send ~self ~cmd:(selector "sceneViewConnectedCallback") ~typ:(returning (ptr void)) -let sceneViewDidBecomeVisibleCallback self = msg_send ~self ~cmd:(selector "sceneViewDidBecomeVisibleCallback") ~typ:(returning (ptr void)) -let sceneViewDisconnectedCallback self = msg_send ~self ~cmd:(selector "sceneViewDisconnectedCallback") ~typ:(returning (ptr void)) -let sceneWindowControllers self = msg_send ~self ~cmd:(selector "sceneWindowControllers") ~typ:(returning (id)) -let sendFlagsChangedKeyEvent self = msg_send ~self ~cmd:(selector "sendFlagsChangedKeyEvent") ~typ:(returning (ptr void)) -let sendKeyEvent self = msg_send ~self ~cmd:(selector "sendKeyEvent") ~typ:(returning (ptr void)) -let setAcceptsActivatingTouchCallback x self = msg_send ~self ~cmd:(selector "setAcceptsActivatingTouchCallback:") ~typ:(ptr void @-> returning (void)) x -let setActivityItemsConfigurationForServicesAndSharing x self = msg_send ~self ~cmd:(selector "setActivityItemsConfigurationForServicesAndSharing:") ~typ:(ptr void @-> returning (void)) x -let setAppIsInBackgroundStateCallback x self = msg_send ~self ~cmd:(selector "setAppIsInBackgroundStateCallback:") ~typ:(ptr void @-> returning (void)) x -let setAppLifecycleController x self = msg_send ~self ~cmd:(selector "setAppLifecycleController:") ~typ:(id @-> returning (void)) x -let setAppMenu x self = msg_send ~self ~cmd:(selector "setAppMenu:") ~typ:(id @-> returning (void)) x -let setAppSupportsMultiwindowCallback x self = msg_send ~self ~cmd:(selector "setAppSupportsMultiwindowCallback:") ~typ:(ptr void @-> returning (void)) x -let setAppSupportsTabbedWindowsCallback x self = msg_send ~self ~cmd:(selector "setAppSupportsTabbedWindowsCallback:") ~typ:(ptr void @-> returning (void)) x -let setAppWillTerminateCallback x self = msg_send ~self ~cmd:(selector "setAppWillTerminateCallback:") ~typ:(ptr void @-> returning (void)) x -let setApplicationShouldAutomaticallyLocalizeKeyEquivalents x self = msg_send ~self ~cmd:(selector "setApplicationShouldAutomaticallyLocalizeKeyEquivalents:") ~typ:(bool @-> returning (void)) x -let setBackgroundTaskCountCallback x self = msg_send ~self ~cmd:(selector "setBackgroundTaskCountCallback:") ~typ:(ptr void @-> returning (void)) x -let setBackgroundTasksWillExpireCallback x self = msg_send ~self ~cmd:(selector "setBackgroundTasksWillExpireCallback:") ~typ:(ptr void @-> returning (void)) x -let setBecomeFirstResponderHandler x self = msg_send ~self ~cmd:(selector "setBecomeFirstResponderHandler:") ~typ:(ptr void @-> returning (void)) x -let setBeginTerminationBackgroundTaskCallback x self = msg_send ~self ~cmd:(selector "setBeginTerminationBackgroundTaskCallback:") ~typ:(ptr void @-> returning (void)) x -let setCachedActivityItemsConfigurationForServicesAndSharing x self = msg_send ~self ~cmd:(selector "setCachedActivityItemsConfigurationForServicesAndSharing:") ~typ:(id @-> returning (void)) x -let setContextIDsInSceneWithSceneIdentifierCallback x self = msg_send ~self ~cmd:(selector "setContextIDsInSceneWithSceneIdentifierCallback:") ~typ:(ptr void @-> returning (void)) x -let setCopyRegionBlockingWindowDragCallback x self = msg_send ~self ~cmd:(selector "setCopyRegionBlockingWindowDragCallback:") ~typ:(ptr void @-> returning (void)) x -let setDebugUtilities x self = msg_send ~self ~cmd:(selector "setDebugUtilities:") ~typ:(id @-> returning (void)) x -let setDiscardMarkedTextHandler x self = msg_send ~self ~cmd:(selector "setDiscardMarkedTextHandler:") ~typ:(ptr void @-> returning (void)) x -let setEndTerminationBackgroundTaskCallback x self = msg_send ~self ~cmd:(selector "setEndTerminationBackgroundTaskCallback:") ~typ:(ptr void @-> returning (void)) x -let setEnsureBackgroundTaskCountReachedZeroHandlerCallback x self = msg_send ~self ~cmd:(selector "setEnsureBackgroundTaskCountReachedZeroHandlerCallback:") ~typ:(ptr void @-> returning (void)) x -let setEnsureIdiomScaleFactorIsInitializedCallback x self = msg_send ~self ~cmd:(selector "setEnsureIdiomScaleFactorIsInitializedCallback:") ~typ:(ptr void @-> returning (void)) x -let setExpansionTextInfoAtPointCallback x self = msg_send ~self ~cmd:(selector "setExpansionTextInfoAtPointCallback:") ~typ:(ptr void @-> returning (void)) x -let setExpansionTextInfoDrawInRectCallback x self = msg_send ~self ~cmd:(selector "setExpansionTextInfoDrawInRectCallback:") ~typ:(ptr void @-> returning (void)) x -let setExplicitlyMarksAppLaunchCompleteCallback x self = msg_send ~self ~cmd:(selector "setExplicitlyMarksAppLaunchCompleteCallback:") ~typ:(ptr void @-> returning (void)) x -let setHandleEventByInputMethod x self = msg_send ~self ~cmd:(selector "setHandleEventByInputMethod:") ~typ:(ptr void @-> returning (void)) x -let setHasContinuityCameraServicesMenuProvider x self = msg_send ~self ~cmd:(selector "setHasContinuityCameraServicesMenuProvider:") ~typ:(ptr void @-> returning (void)) x -let setHasServicesAndSharingMenuProviderForReturnType x self = msg_send ~self ~cmd:(selector "setHasServicesAndSharingMenuProviderForReturnType:") ~typ:(ptr void @-> returning (void)) x -let setHostWindowDidBecomeKeyWindowHandler x self = msg_send ~self ~cmd:(selector "setHostWindowDidBecomeKeyWindowHandler:") ~typ:(ptr void @-> returning (void)) x -let setHostWindowDidChangeKeyAppearanceHandler x self = msg_send ~self ~cmd:(selector "setHostWindowDidChangeKeyAppearanceHandler:") ~typ:(ptr void @-> returning (void)) x -let setHostWindowDidResizeCallback x self = msg_send ~self ~cmd:(selector "setHostWindowDidResizeCallback:") ~typ:(ptr void @-> returning (void)) x -let setKeyboardDelegateRequiresKeyEvents x self = msg_send ~self ~cmd:(selector "setKeyboardDelegateRequiresKeyEvents:") ~typ:(ptr void @-> returning (void)) x -let setKeyboardIsActiveForCurrentResponder x self = msg_send ~self ~cmd:(selector "setKeyboardIsActiveForCurrentResponder:") ~typ:(ptr void @-> returning (void)) x -let setNextPrintJobShouldExport x self = msg_send ~self ~cmd:(selector "setNextPrintJobShouldExport:") ~typ:(bool @-> returning (void)) x -let setPerformActionWithCompletionHandler x self = msg_send ~self ~cmd:(selector "setPerformActionWithCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let setPerformClickWithCompletionHandler x self = msg_send ~self ~cmd:(selector "setPerformClickWithCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let setPerformDefaultBehaviorForEvent x self = msg_send ~self ~cmd:(selector "setPerformDefaultBehaviorForEvent:") ~typ:(ptr void @-> returning (void)) x -let setPreferredSceneViewSizeForSceneCallback x self = msg_send ~self ~cmd:(selector "setPreferredSceneViewSizeForSceneCallback:") ~typ:(ptr void @-> returning (void)) x -let setPrefersPointerLockForSceneIdentifierCallback x self = msg_send ~self ~cmd:(selector "setPrefersPointerLockForSceneIdentifierCallback:") ~typ:(ptr void @-> returning (void)) x -let setPrintOrExportPanelWasDismissedCallback x self = msg_send ~self ~cmd:(selector "setPrintOrExportPanelWasDismissedCallback:") ~typ:(ptr void @-> returning (void)) x -let setPrintingController x self = msg_send ~self ~cmd:(selector "setPrintingController:") ~typ:(id @-> returning (void)) x -let setReadSelectionFromPasteboardWithName x self = msg_send ~self ~cmd:(selector "setReadSelectionFromPasteboardWithName:") ~typ:(ptr void @-> returning (void)) x -let setReceivedTestURLCallback x self = msg_send ~self ~cmd:(selector "setReceivedTestURLCallback:") ~typ:(ptr void @-> returning (void)) x -let setRegisteredForAccessibilityNotifications x self = msg_send ~self ~cmd:(selector "setRegisteredForAccessibilityNotifications:") ~typ:(bool @-> returning (void)) x -let setReportAppLaunchCompleteCallback x self = msg_send ~self ~cmd:(selector "setReportAppLaunchCompleteCallback:") ~typ:(ptr void @-> returning (void)) x -let setRequestHostingSceneCreationWithPersistentIdentifierCallback x self = msg_send ~self ~cmd:(selector "setRequestHostingSceneCreationWithPersistentIdentifierCallback:") ~typ:(ptr void @-> returning (void)) x -let setRequestSceneDestructionForSceneIdentifierCallback x self = msg_send ~self ~cmd:(selector "setRequestSceneDestructionForSceneIdentifierCallback:") ~typ:(ptr void @-> returning (void)) x -let setResetApplicationPreservationState x self = msg_send ~self ~cmd:(selector "setResetApplicationPreservationState:") ~typ:(ptr void @-> returning (void)) x -let setResignFirstResponderHandler x self = msg_send ~self ~cmd:(selector "setResignFirstResponderHandler:") ~typ:(ptr void @-> returning (void)) x -let setSceneIdentifierForTargetContentIDCallback x self = msg_send ~self ~cmd:(selector "setSceneIdentifierForTargetContentIDCallback:") ~typ:(ptr void @-> returning (void)) x -let setSceneUtilities x self = msg_send ~self ~cmd:(selector "setSceneUtilities:") ~typ:(id @-> returning (void)) x -let setSceneViewConnectedCallback x self = msg_send ~self ~cmd:(selector "setSceneViewConnectedCallback:") ~typ:(ptr void @-> returning (void)) x -let setSceneViewDidBecomeVisibleCallback x self = msg_send ~self ~cmd:(selector "setSceneViewDidBecomeVisibleCallback:") ~typ:(ptr void @-> returning (void)) x -let setSceneViewDisconnectedCallback x self = msg_send ~self ~cmd:(selector "setSceneViewDisconnectedCallback:") ~typ:(ptr void @-> returning (void)) x -let setSceneWindowControllers x self = msg_send ~self ~cmd:(selector "setSceneWindowControllers:") ~typ:(id @-> returning (void)) x -let setSendFlagsChangedKeyEvent x self = msg_send ~self ~cmd:(selector "setSendFlagsChangedKeyEvent:") ~typ:(ptr void @-> returning (void)) x -let setSendKeyEvent x self = msg_send ~self ~cmd:(selector "setSendKeyEvent:") ~typ:(ptr void @-> returning (void)) x -let setShouldEmitApplicationLaunchSignpost x self = msg_send ~self ~cmd:(selector "setShouldEmitApplicationLaunchSignpost:") ~typ:(bool @-> returning (void)) x -let setShouldPreventAppFromAppearingInactive x self = msg_send ~self ~cmd:(selector "setShouldPreventAppFromAppearingInactive:") ~typ:(bool @-> returning (void)) x -let setSubtitleForSceneIdentifierCallback x self = msg_send ~self ~cmd:(selector "setSubtitleForSceneIdentifierCallback:") ~typ:(ptr void @-> returning (void)) x -let setSystemAppearance x self = msg_send ~self ~cmd:(selector "setSystemAppearance:") ~typ:(id @-> returning (void)) x -let setSystemAppearanceDidChangeCallback x self = msg_send ~self ~cmd:(selector "setSystemAppearanceDidChangeCallback:") ~typ:(ptr void @-> returning (void)) x -let setTabbingIdentifierForSceneIdentifierCallback x self = msg_send ~self ~cmd:(selector "setTabbingIdentifierForSceneIdentifierCallback:") ~typ:(ptr void @-> returning (void)) x -let setTargetInUIResponderChainFromFirstResponder x self = msg_send ~self ~cmd:(selector "setTargetInUIResponderChainFromFirstResponder:") ~typ:(ptr void @-> returning (void)) x -let setTargetInUIResponderChainFromInitialTarget x self = msg_send ~self ~cmd:(selector "setTargetInUIResponderChainFromInitialTarget:") ~typ:(ptr void @-> returning (void)) x -let setTargetInUIResponderChainFromUIApplication x self = msg_send ~self ~cmd:(selector "setTargetInUIResponderChainFromUIApplication:") ~typ:(ptr void @-> returning (void)) x -let setTargetInUIResponderChainFromUIWindowRootVC x self = msg_send ~self ~cmd:(selector "setTargetInUIResponderChainFromUIWindowRootVC:") ~typ:(ptr void @-> returning (void)) x -let setTargetInUIResponderChainOfPresenterOfRehostedVC x self = msg_send ~self ~cmd:(selector "setTargetInUIResponderChainOfPresenterOfRehostedVC:") ~typ:(ptr void @-> returning (void)) x -let setTitleForSceneIdentifierCallback x self = msg_send ~self ~cmd:(selector "setTitleForSceneIdentifierCallback:") ~typ:(ptr void @-> returning (void)) x -let setToolTipRectAtPointCallback x self = msg_send ~self ~cmd:(selector "setToolTipRectAtPointCallback:") ~typ:(ptr void @-> returning (void)) x -let setToolTipStringAtPointCallback x self = msg_send ~self ~cmd:(selector "setToolTipStringAtPointCallback:") ~typ:(ptr void @-> returning (void)) x -let setUpdatePointerLockStateForSceneIdentifierCallback x self = msg_send ~self ~cmd:(selector "setUpdatePointerLockStateForSceneIdentifierCallback:") ~typ:(ptr void @-> returning (void)) x -let setValue x ~forKey self = msg_send ~self ~cmd:(selector "setValue:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let shareSheetController self = msg_send ~self ~cmd:(selector "shareSheetController") ~typ:(returning (id)) -let shouldCloseWindowWithScene x self = msg_send ~self ~cmd:(selector "shouldCloseWindowWithScene:") ~typ:(id @-> returning (bool)) x -let shouldEmitApplicationLaunchSignpost self = msg_send ~self ~cmd:(selector "shouldEmitApplicationLaunchSignpost") ~typ:(returning (bool)) -let shouldPreventAppFromAppearingInactive self = msg_send ~self ~cmd:(selector "shouldPreventAppFromAppearingInactive") ~typ:(returning (bool)) -let showAboutPanel x self = msg_send ~self ~cmd:(selector "showAboutPanel:") ~typ:(id @-> returning (void)) x -let showPrintOrExportPanelWithPrintInfo x ~andPDFDocumentGenerator self = msg_send ~self ~cmd:(selector "showPrintOrExportPanelWithPrintInfo:andPDFDocumentGenerator:") ~typ:(id @-> ptr void @-> returning (void)) x andPDFDocumentGenerator -let subtitleForSceneIdentifierCallback self = msg_send ~self ~cmd:(selector "subtitleForSceneIdentifierCallback") ~typ:(returning (ptr void)) -let systemAppearance self = msg_send ~self ~cmd:(selector "systemAppearance") ~typ:(returning (id)) -let systemAppearanceDidChangeCallback self = msg_send ~self ~cmd:(selector "systemAppearanceDidChangeCallback") ~typ:(returning (ptr void)) -let tabbingIdentifierForSceneIdentifierCallback self = msg_send ~self ~cmd:(selector "tabbingIdentifierForSceneIdentifierCallback") ~typ:(returning (ptr void)) -let targetInUIResponderChainFromFirstResponder self = msg_send ~self ~cmd:(selector "targetInUIResponderChainFromFirstResponder") ~typ:(returning (ptr void)) -let targetInUIResponderChainFromInitialTarget self = msg_send ~self ~cmd:(selector "targetInUIResponderChainFromInitialTarget") ~typ:(returning (ptr void)) -let targetInUIResponderChainFromUIApplication self = msg_send ~self ~cmd:(selector "targetInUIResponderChainFromUIApplication") ~typ:(returning (ptr void)) -let targetInUIResponderChainFromUIWindowRootVC self = msg_send ~self ~cmd:(selector "targetInUIResponderChainFromUIWindowRootVC") ~typ:(returning (ptr void)) -let targetInUIResponderChainOfPresenterOfRehostedVC self = msg_send ~self ~cmd:(selector "targetInUIResponderChainOfPresenterOfRehostedVC") ~typ:(returning (ptr void)) -let titleForSceneIdentifierCallback self = msg_send ~self ~cmd:(selector "titleForSceneIdentifierCallback") ~typ:(returning (ptr void)) -let toolTipRectAtPointCallback self = msg_send ~self ~cmd:(selector "toolTipRectAtPointCallback") ~typ:(returning (ptr void)) -let toolTipStringAtPointCallback self = msg_send ~self ~cmd:(selector "toolTipStringAtPointCallback") ~typ:(returning (ptr void)) -let uiKitWantsToExitProcessWithStatus x self = msg_send ~self ~cmd:(selector "uiKitWantsToExitProcessWithStatus:") ~typ:(int @-> returning (void)) x -let uiKitWantsToTerminateProcessExplicitly self = msg_send ~self ~cmd:(selector "uiKitWantsToTerminateProcessExplicitly") ~typ:(returning (void)) -let unlockCursorForUINSWindow x self = msg_send ~self ~cmd:(selector "unlockCursorForUINSWindow:") ~typ:(id @-> returning (void)) x -let unlockCursorIfNecessary self = msg_send ~self ~cmd:(selector "unlockCursorIfNecessary") ~typ:(returning (void)) -let updateMainSceneIdentifier x self = msg_send ~self ~cmd:(selector "updateMainSceneIdentifier:") ~typ:(id @-> returning (void)) x -let updatePointerLockStateForSceneIdentifierCallback self = msg_send ~self ~cmd:(selector "updatePointerLockStateForSceneIdentifierCallback") ~typ:(returning (ptr void)) -let updateSubtitle x ~forWindowController self = msg_send ~self ~cmd:(selector "updateSubtitle:forWindowController:") ~typ:(id @-> id @-> returning (void)) x forWindowController -let updateTitle x ~forWindowController self = msg_send ~self ~cmd:(selector "updateTitle:forWindowController:") ~typ:(id @-> id @-> returning (void)) x forWindowController -let valueAtIndex x ~inPropertyWithKey self = msg_send ~self ~cmd:(selector "valueAtIndex:inPropertyWithKey:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) inPropertyWithKey -let valueForKey x self = msg_send ~self ~cmd:(selector "valueForKey:") ~typ:(id @-> returning (id)) x -let valueWithName x ~inPropertyWithKey self = msg_send ~self ~cmd:(selector "valueWithName:inPropertyWithKey:") ~typ:(id @-> id @-> returning (id)) x inPropertyWithKey -let valueWithUniqueID x ~inPropertyWithKey self = msg_send ~self ~cmd:(selector "valueWithUniqueID:inPropertyWithKey:") ~typ:(id @-> id @-> returning (id)) x inPropertyWithKey -let willDestroyUIScene x self = msg_send ~self ~cmd:(selector "willDestroyUIScene:") ~typ:(id @-> returning (void)) x -let willRequestSceneWithOptions x self = msg_send ~self ~cmd:(selector "willRequestSceneWithOptions:") ~typ:(id @-> returning (void)) x -let windowShouldUnlockCursor x self = msg_send ~self ~cmd:(selector "windowShouldUnlockCursor:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSApplicationLifecycleController.ml b/uikit_extra/UINSApplicationLifecycleController.ml deleted file mode 100644 index 87db0c3a..00000000 --- a/uikit_extra/UINSApplicationLifecycleController.ml +++ /dev/null @@ -1,56 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSApplicationLifecycleController" - -let accelerateTerminationSchedule self = msg_send ~self ~cmd:(selector "accelerateTerminationSchedule") ~typ:(returning (bool)) -let allBackgroundTasksDidFinish self = msg_send ~self ~cmd:(selector "allBackgroundTasksDidFinish") ~typ:(returning (void)) -let allExpectedWindowsDidOpen self = msg_send ~self ~cmd:(selector "allExpectedWindowsDidOpen") ~typ:(returning (void)) -let appDelegate self = msg_send ~self ~cmd:(selector "appDelegate") ~typ:(returning (id)) -let appKitBackgroundingController self = msg_send ~self ~cmd:(selector "appKitBackgroundingController") ~typ:(returning (id)) -let appKitTerminationController self = msg_send ~self ~cmd:(selector "appKitTerminationController") ~typ:(returning (id)) -let appShouldTerminate x self = msg_send ~self ~cmd:(selector "appShouldTerminate:") ~typ:(id @-> returning (ullong)) x -let appTerminationInitiated self = msg_send ~self ~cmd:(selector "appTerminationInitiated") ~typ:(returning (void)) -let applicationReceivedReopenRequest self = msg_send ~self ~cmd:(selector "applicationReceivedReopenRequest") ~typ:(returning (void)) -let currentState self = msg_send ~self ~cmd:(selector "currentState") ~typ:(returning (id)) -let defaultWindowStateReached self = msg_send ~self ~cmd:(selector "defaultWindowStateReached") ~typ:(returning (void)) -let didActivateAppKit self = msg_send ~self ~cmd:(selector "didActivateAppKit") ~typ:(returning (void)) -let didBackgroundAppKit self = msg_send ~self ~cmd:(selector "didBackgroundAppKit") ~typ:(returning (void)) -let didCreateWindowForScene x self = msg_send ~self ~cmd:(selector "didCreateWindowForScene:") ~typ:(id @-> returning (void)) x -let didFinishForceBackgroundingScenes self = msg_send ~self ~cmd:(selector "didFinishForceBackgroundingScenes") ~typ:(returning (void)) -let didFinishRestoringSceneForegroundState self = msg_send ~self ~cmd:(selector "didFinishRestoringSceneForegroundState") ~typ:(returning (void)) -let didForegroundAppKit self = msg_send ~self ~cmd:(selector "didForegroundAppKit") ~typ:(returning (void)) -let didHideAppKit self = msg_send ~self ~cmd:(selector "didHideAppKit") ~typ:(returning (void)) -let initWithAppDelegate x self = msg_send ~self ~cmd:(selector "initWithAppDelegate:") ~typ:(id @-> returning (id)) x -let isAttemptingTermination self = msg_send ~self ~cmd:(selector "isAttemptingTermination") ~typ:(returning (bool)) -let isLaunchComplete self = msg_send ~self ~cmd:(selector "isLaunchComplete") ~typ:(returning (bool)) -let isLaunchedToBackground self = msg_send ~self ~cmd:(selector "isLaunchedToBackground") ~typ:(returning (bool)) -let isLaunchedToBackgroundOnly self = msg_send ~self ~cmd:(selector "isLaunchedToBackgroundOnly") ~typ:(returning (bool)) -let lastWindowDidClose self = msg_send ~self ~cmd:(selector "lastWindowDidClose") ~typ:(returning (void)) -let launchingDidComplete self = msg_send ~self ~cmd:(selector "launchingDidComplete") ~typ:(returning (bool)) -let remainingBackgroundTasksHaveCompleted self = msg_send ~self ~cmd:(selector "remainingBackgroundTasksHaveCompleted") ~typ:(returning (void)) -let remainingBackgroundTasksHaveTimedOut self = msg_send ~self ~cmd:(selector "remainingBackgroundTasksHaveTimedOut") ~typ:(returning (void)) -let requestSceneBackground x self = msg_send ~self ~cmd:(selector "requestSceneBackground:") ~typ:(id @-> returning (void)) x -let requestSceneForegroundActive x self = msg_send ~self ~cmd:(selector "requestSceneForegroundActive:") ~typ:(id @-> returning (void)) x -let requestSceneForegroundInactive x self = msg_send ~self ~cmd:(selector "requestSceneForegroundInactive:") ~typ:(id @-> returning (void)) x -let requestStateChangeFreeze self = msg_send ~self ~cmd:(selector "requestStateChangeFreeze") ~typ:(returning (void)) -let requestStateChangeThaw self = msg_send ~self ~cmd:(selector "requestStateChangeThaw") ~typ:(returning (void)) -let setCurrentState x self = msg_send ~self ~cmd:(selector "setCurrentState:") ~typ:(id @-> returning (void)) x -let shouldCloseWindowWithScene x self = msg_send ~self ~cmd:(selector "shouldCloseWindowWithScene:") ~typ:(id @-> returning (bool)) x -let stateIDsToStates self = msg_send ~self ~cmd:(selector "stateIDsToStates") ~typ:(returning (id)) -let transitionAppThroughBackgroundState self = msg_send ~self ~cmd:(selector "transitionAppThroughBackgroundState") ~typ:(returning (void)) -let transitionToState x self = msg_send ~self ~cmd:(selector "transitionToState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let uiAppDidBackground self = msg_send ~self ~cmd:(selector "uiAppDidBackground") ~typ:(returning (void)) -let uiAppDidForeground self = msg_send ~self ~cmd:(selector "uiAppDidForeground") ~typ:(returning (void)) -let uiAppWouldHaveExitedProcess self = msg_send ~self ~cmd:(selector "uiAppWouldHaveExitedProcess") ~typ:(returning (void)) -let uiKitBackgroundingController self = msg_send ~self ~cmd:(selector "uiKitBackgroundingController") ~typ:(returning (id)) -let uiKitTerminationController self = msg_send ~self ~cmd:(selector "uiKitTerminationController") ~typ:(returning (id)) -let uiKitWantsToExitProcessWithStatus x self = msg_send ~self ~cmd:(selector "uiKitWantsToExitProcessWithStatus:") ~typ:(int @-> returning (void)) x -let uiKitWantsToTerminateProcessExplicitly self = msg_send ~self ~cmd:(selector "uiKitWantsToTerminateProcessExplicitly") ~typ:(returning (void)) -let willCreateWindowForScene x self = msg_send ~self ~cmd:(selector "willCreateWindowForScene:") ~typ:(id @-> returning (void)) x -let windowStateController self = msg_send ~self ~cmd:(selector "windowStateController") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSApplicationSettingsButtonNode.ml b/uikit_extra/UINSApplicationSettingsButtonNode.ml deleted file mode 100644 index 0e58c755..00000000 --- a/uikit_extra/UINSApplicationSettingsButtonNode.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSApplicationSettingsButtonNode" - -let disabledStateKey self = msg_send ~self ~cmd:(selector "disabledStateKey") ~typ:(returning (id)) -let localizedConfirmText self = msg_send ~self ~cmd:(selector "localizedConfirmText") ~typ:(returning (id)) -let localizedConfirmationPrompt self = msg_send ~self ~cmd:(selector "localizedConfirmationPrompt") ~typ:(returning (id)) -let localizedDenyText self = msg_send ~self ~cmd:(selector "localizedDenyText") ~typ:(returning (id)) -let localizedDescription self = msg_send ~self ~cmd:(selector "localizedDescription") ~typ:(returning (id)) -let localizedDisabledDescription self = msg_send ~self ~cmd:(selector "localizedDisabledDescription") ~typ:(returning (id)) -let localizedLabel self = msg_send ~self ~cmd:(selector "localizedLabel") ~typ:(returning (id)) -let selector_ self = msg_send ~self ~cmd:(selector "selector") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSApplicationSettingsMultiValueNode.ml b/uikit_extra/UINSApplicationSettingsMultiValueNode.ml deleted file mode 100644 index 419d6605..00000000 --- a/uikit_extra/UINSApplicationSettingsMultiValueNode.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSApplicationSettingsMultiValueNode" - -let localizedDecoration self = msg_send ~self ~cmd:(selector "localizedDecoration") ~typ:(returning (id)) -let localizedFooter self = msg_send ~self ~cmd:(selector "localizedFooter") ~typ:(returning (id)) -let localizedShortValueTitles self = msg_send ~self ~cmd:(selector "localizedShortValueTitles") ~typ:(returning (id)) -let localizedValueTitles self = msg_send ~self ~cmd:(selector "localizedValueTitles") ~typ:(returning (id)) -let shouldSortByLocalizedTitles self = msg_send ~self ~cmd:(selector "shouldSortByLocalizedTitles") ~typ:(returning (bool)) -let values self = msg_send ~self ~cmd:(selector "values") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSApplicationSettingsNode.ml b/uikit_extra/UINSApplicationSettingsNode.ml deleted file mode 100644 index 1b899012..00000000 --- a/uikit_extra/UINSApplicationSettingsNode.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSApplicationSettingsNode" - -module C = struct - let nodeWithDictionary x ~parentRootNode ~parentNode ~stringsTableName self = msg_send ~self ~cmd:(selector "nodeWithDictionary:parentRootNode:parentNode:stringsTableName:") ~typ:(id @-> id @-> id @-> id @-> returning (id)) x parentRootNode parentNode stringsTableName -end - -let children self = msg_send ~self ~cmd:(selector "children") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let depthFirstTraversalWithBlock x ~postTraversalBlock self = msg_send ~self ~cmd:(selector "depthFirstTraversalWithBlock:postTraversalBlock:") ~typ:(ptr void @-> ptr void @-> returning (void)) x postTraversalBlock -let localizedTitle self = msg_send ~self ~cmd:(selector "localizedTitle") ~typ:(returning (id)) -let rootNode self = msg_send ~self ~cmd:(selector "rootNode") ~typ:(returning (id)) -let setChildren x self = msg_send ~self ~cmd:(selector "setChildren:") ~typ:(id @-> returning (void)) x -let setLocalizedTitle x self = msg_send ~self ~cmd:(selector "setLocalizedTitle:") ~typ:(id @-> returning (void)) x -let setRootNode x self = msg_send ~self ~cmd:(selector "setRootNode:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSApplicationSettingsRadioGroup.ml b/uikit_extra/UINSApplicationSettingsRadioGroup.ml deleted file mode 100644 index 2f060629..00000000 --- a/uikit_extra/UINSApplicationSettingsRadioGroup.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSApplicationSettingsRadioGroup" - -let disabledStateKey self = msg_send ~self ~cmd:(selector "disabledStateKey") ~typ:(returning (id)) -let localizedDescriptions self = msg_send ~self ~cmd:(selector "localizedDescriptions") ~typ:(returning (id)) -let localizedDisabledFooter self = msg_send ~self ~cmd:(selector "localizedDisabledFooter") ~typ:(returning (id)) -let localizedFooter self = msg_send ~self ~cmd:(selector "localizedFooter") ~typ:(returning (id)) -let localizedValueTitles self = msg_send ~self ~cmd:(selector "localizedValueTitles") ~typ:(returning (id)) -let shouldSortByLocalizedTitles self = msg_send ~self ~cmd:(selector "shouldSortByLocalizedTitles") ~typ:(returning (bool)) -let values self = msg_send ~self ~cmd:(selector "values") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSApplicationSettingsRootNode.ml b/uikit_extra/UINSApplicationSettingsRootNode.ml deleted file mode 100644 index daabc0f6..00000000 --- a/uikit_extra/UINSApplicationSettingsRootNode.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSApplicationSettingsRootNode" - -module C = struct - let applicationSettingsRootNode self = msg_send ~self ~cmd:(selector "applicationSettingsRootNode") ~typ:(returning (id)) - let applicationSettingsRootNodeFilteredByFilter x self = msg_send ~self ~cmd:(selector "applicationSettingsRootNodeFilteredByFilter:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -end - -let applicationGroupContainerIdentifier self = msg_send ~self ~cmd:(selector "applicationGroupContainerIdentifier") ~typ:(returning (id)) -let helpAnchorName self = msg_send ~self ~cmd:(selector "helpAnchorName") ~typ:(returning (id)) -let helpBookName self = msg_send ~self ~cmd:(selector "helpBookName") ~typ:(returning (id)) -let preferencePaneSystemSymbolName self = msg_send ~self ~cmd:(selector "preferencePaneSystemSymbolName") ~typ:(returning (id)) -let settingsBundle self = msg_send ~self ~cmd:(selector "settingsBundle") ~typ:(returning (id)) -let stringsTableName self = msg_send ~self ~cmd:(selector "stringsTableName") ~typ:(returning (id)) -let toolbarIconImageName self = msg_send ~self ~cmd:(selector "toolbarIconImageName") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSApplicationSettingsSliderNode.ml b/uikit_extra/UINSApplicationSettingsSliderNode.ml deleted file mode 100644 index 05f83550..00000000 --- a/uikit_extra/UINSApplicationSettingsSliderNode.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSApplicationSettingsSliderNode" - -let maximumValue self = msg_send ~self ~cmd:(selector "maximumValue") ~typ:(returning (id)) -let maximumValueImageName self = msg_send ~self ~cmd:(selector "maximumValueImageName") ~typ:(returning (id)) -let minimumValue self = msg_send ~self ~cmd:(selector "minimumValue") ~typ:(returning (id)) -let minimumValueImageName self = msg_send ~self ~cmd:(selector "minimumValueImageName") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSApplicationSettingsToggleSwitchNode.ml b/uikit_extra/UINSApplicationSettingsToggleSwitchNode.ml deleted file mode 100644 index bf0b3839..00000000 --- a/uikit_extra/UINSApplicationSettingsToggleSwitchNode.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSApplicationSettingsToggleSwitchNode" - -let disabledStateKey self = msg_send ~self ~cmd:(selector "disabledStateKey") ~typ:(returning (id)) -let falseValue self = msg_send ~self ~cmd:(selector "falseValue") ~typ:(returning (id)) -let localizedDescription self = msg_send ~self ~cmd:(selector "localizedDescription") ~typ:(returning (id)) -let localizedDisabledDescription self = msg_send ~self ~cmd:(selector "localizedDisabledDescription") ~typ:(returning (id)) -let localizedFalseConfirmText self = msg_send ~self ~cmd:(selector "localizedFalseConfirmText") ~typ:(returning (id)) -let localizedFalseConfirmationPrompt self = msg_send ~self ~cmd:(selector "localizedFalseConfirmationPrompt") ~typ:(returning (id)) -let localizedFalseDenyText self = msg_send ~self ~cmd:(selector "localizedFalseDenyText") ~typ:(returning (id)) -let localizedTrueConfirmText self = msg_send ~self ~cmd:(selector "localizedTrueConfirmText") ~typ:(returning (id)) -let localizedTrueConfirmationPrompt self = msg_send ~self ~cmd:(selector "localizedTrueConfirmationPrompt") ~typ:(returning (id)) -let localizedTrueDenyText self = msg_send ~self ~cmd:(selector "localizedTrueDenyText") ~typ:(returning (id)) -let trueValue self = msg_send ~self ~cmd:(selector "trueValue") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSApplicationShortcutManager.ml b/uikit_extra/UINSApplicationShortcutManager.ml deleted file mode 100644 index aca07b84..00000000 --- a/uikit_extra/UINSApplicationShortcutManager.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSApplicationShortcutManager" - -module C = struct - let sharedShortcutManager self = msg_send ~self ~cmd:(selector "sharedShortcutManager") ~typ:(returning (id)) -end - -let dynamicShortcutItems self = msg_send ~self ~cmd:(selector "dynamicShortcutItems") ~typ:(returning (id)) -let setDynamicShortcutItems x self = msg_send ~self ~cmd:(selector "setDynamicShortcutItems:") ~typ:(id @-> returning (void)) x -let setStaticShortcutItems x self = msg_send ~self ~cmd:(selector "setStaticShortcutItems:") ~typ:(id @-> returning (void)) x -let staticShortcutItems self = msg_send ~self ~cmd:(selector "staticShortcutItems") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSBlockTextInputDelegate.ml b/uikit_extra/UINSBlockTextInputDelegate.ml deleted file mode 100644 index 6a4a7149..00000000 --- a/uikit_extra/UINSBlockTextInputDelegate.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSBlockTextInputDelegate" - -let addDidUpdateAction x self = msg_send ~self ~cmd:(selector "addDidUpdateAction:") ~typ:(ptr void @-> returning (void)) x -let addWillUpdateAction x self = msg_send ~self ~cmd:(selector "addWillUpdateAction:") ~typ:(ptr void @-> returning (void)) x -let didUpdateConnection self = msg_send ~self ~cmd:(selector "didUpdateConnection") ~typ:(returning (ptr void)) -let setDidUpdateConnection x self = msg_send ~self ~cmd:(selector "setDidUpdateConnection:") ~typ:(ptr void @-> returning (void)) x -let setWillUpdateConnection x self = msg_send ~self ~cmd:(selector "setWillUpdateConnection:") ~typ:(ptr void @-> returning (void)) x -let textInputDidUpdateConnection x self = msg_send ~self ~cmd:(selector "textInputDidUpdateConnection:") ~typ:(id @-> returning (void)) x -let textInputWillUpdateConnection x self = msg_send ~self ~cmd:(selector "textInputWillUpdateConnection:") ~typ:(id @-> returning (void)) x -let willUpdateConnection self = msg_send ~self ~cmd:(selector "willUpdateConnection") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/uikit_extra/UINSBridgedSearchTextField.ml b/uikit_extra/UINSBridgedSearchTextField.ml deleted file mode 100644 index 54f9816d..00000000 --- a/uikit_extra/UINSBridgedSearchTextField.ml +++ /dev/null @@ -1,26 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSBridgedSearchTextField" - -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let controlSize self = msg_send ~self ~cmd:(selector "controlSize") ~typ:(returning (ullong)) -let drawFocusRingMask self = msg_send ~self ~cmd:(selector "drawFocusRingMask") ~typ:(returning (void)) -let focusRingMaskBounds self = msg_send_stret ~self ~cmd:(selector "focusRingMaskBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let focusRingType self = msg_send ~self ~cmd:(selector "focusRingType") ~typ:(returning (ullong)) -let hideFocusRing self = msg_send ~self ~cmd:(selector "hideFocusRing") ~typ:(returning (void)) -let initWithUISearchTextField x self = msg_send ~self ~cmd:(selector "initWithUISearchTextField:") ~typ:(id @-> returning (id)) x -let initWithUIView x self = msg_send ~self ~cmd:(selector "initWithUIView:") ~typ:(id @-> returning (id)) x -let isCurrentlyEditing self = msg_send ~self ~cmd:(selector "isCurrentlyEditing") ~typ:(returning (bool)) -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let mouseDownCanMoveWindow self = msg_send ~self ~cmd:(selector "mouseDownCanMoveWindow") ~typ:(returning (bool)) -let searchTextField self = msg_send ~self ~cmd:(selector "searchTextField") ~typ:(returning (id)) -let selectText x self = msg_send ~self ~cmd:(selector "selectText:") ~typ:(id @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let showFocusRing self = msg_send ~self ~cmd:(selector "showFocusRing") ~typ:(returning (void)) -let stringValue self = msg_send ~self ~cmd:(selector "stringValue") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSButtonToolbarItem.ml b/uikit_extra/UINSButtonToolbarItem.ml deleted file mode 100644 index 4b5c0a46..00000000 --- a/uikit_extra/UINSButtonToolbarItem.ml +++ /dev/null @@ -1,25 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSButtonToolbarItem" - -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (_SEL)) -let action' x self = msg_send ~self ~cmd:(selector "action:") ~typ:(id @-> returning (void)) x -let helperImage self = msg_send ~self ~cmd:(selector "helperImage") ~typ:(returning (id)) -let imageName self = msg_send ~self ~cmd:(selector "imageName") ~typ:(returning (id)) -let initWithIdentifier x self = msg_send ~self ~cmd:(selector "initWithIdentifier:") ~typ:(id @-> returning (id)) x -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let prepareItem self = msg_send ~self ~cmd:(selector "prepareItem") ~typ:(returning (void)) -let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(_SEL @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setHelperImage x self = msg_send ~self ~cmd:(selector "setHelperImage:") ~typ:(id @-> returning (void)) x -let setImageName x self = msg_send ~self ~cmd:(selector "setImageName:") ~typ:(id @-> returning (void)) x -let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning (id)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSCloudSharingController.ml b/uikit_extra/UINSCloudSharingController.ml deleted file mode 100644 index 58a449ab..00000000 --- a/uikit_extra/UINSCloudSharingController.ml +++ /dev/null @@ -1,34 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSCloudSharingController" - -let availablePermissions self = msg_send ~self ~cmd:(selector "availablePermissions") ~typ:(returning (ullong)) -let container self = msg_send ~self ~cmd:(selector "container") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let initWithPreparationHandler x self = msg_send ~self ~cmd:(selector "initWithPreparationHandler:") ~typ:(ptr void @-> returning (id)) x -let initWithShare x ~container self = msg_send ~self ~cmd:(selector "initWithShare:container:") ~typ:(id @-> id @-> returning (id)) x container -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let optionsForSharingService x ~shareProvider self = msg_send ~self ~cmd:(selector "optionsForSharingService:shareProvider:") ~typ:(id @-> id @-> returning (ullong)) x shareProvider -let preparationHandler self = msg_send ~self ~cmd:(selector "preparationHandler") ~typ:(returning (ptr void)) -let present self = msg_send ~self ~cmd:(selector "present") ~typ:(returning (void)) -let setAvailablePermissions x self = msg_send ~self ~cmd:(selector "setAvailablePermissions:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setContainer x self = msg_send ~self ~cmd:(selector "setContainer:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setItems x self = msg_send ~self ~cmd:(selector "setItems:") ~typ:(id @-> returning (void)) x -let setPreparationHandler x self = msg_send ~self ~cmd:(selector "setPreparationHandler:") ~typ:(ptr void @-> returning (void)) x -let setShare x self = msg_send ~self ~cmd:(selector "setShare:") ~typ:(id @-> returning (void)) x -let setSharingService x self = msg_send ~self ~cmd:(selector "setSharingService:") ~typ:(id @-> returning (void)) x -let setWindow x self = msg_send ~self ~cmd:(selector "setWindow:") ~typ:(id @-> returning (void)) x -let share self = msg_send ~self ~cmd:(selector "share") ~typ:(returning (id)) -let sharingService self = msg_send ~self ~cmd:(selector "sharingService") ~typ:(returning (id)) -let sharingService1 x ~didSaveShare self = msg_send ~self ~cmd:(selector "sharingService:didSaveShare:") ~typ:(id @-> id @-> returning (void)) x didSaveShare -let sharingService2 x ~didStopSharing self = msg_send ~self ~cmd:(selector "sharingService:didStopSharing:") ~typ:(id @-> id @-> returning (void)) x didStopSharing -let sharingService3 x ~didCompleteForItems ~error self = msg_send ~self ~cmd:(selector "sharingService:didCompleteForItems:error:") ~typ:(id @-> id @-> id @-> returning (void)) x didCompleteForItems error -let sharingService4 x ~sourceWindowForShareItems ~sharingContentScope self = msg_send ~self ~cmd:(selector "sharingService:sourceWindowForShareItems:sharingContentScope:") ~typ:(id @-> id @-> ptr (llong) @-> returning (id)) x sourceWindowForShareItems sharingContentScope -let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSDocumentBrowserAction.ml b/uikit_extra/UINSDocumentBrowserAction.ml deleted file mode 100644 index ed7a737b..00000000 --- a/uikit_extra/UINSDocumentBrowserAction.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSDocumentBrowserAction" - -let availability self = msg_send ~self ~cmd:(selector "availability") ~typ:(returning (llong)) -let handler self = msg_send ~self ~cmd:(selector "handler") ~typ:(returning (ptr void)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let initWithIdentifier x ~localizedTitle ~availability ~handler self = msg_send ~self ~cmd:(selector "initWithIdentifier:localizedTitle:availability:handler:") ~typ:(id @-> id @-> llong @-> ptr void @-> returning (id)) x localizedTitle (LLong.of_int availability) handler -let localizedTitle self = msg_send ~self ~cmd:(selector "localizedTitle") ~typ:(returning (id)) -let setAvailability x self = msg_send ~self ~cmd:(selector "setAvailability:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:(ptr void @-> returning (void)) x -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let setLocalizedTitle x self = msg_send ~self ~cmd:(selector "setLocalizedTitle:") ~typ:(id @-> returning (void)) x -let setSupportedContentTypes x self = msg_send ~self ~cmd:(selector "setSupportedContentTypes:") ~typ:(id @-> returning (void)) x -let setSupportsMultipleItems x self = msg_send ~self ~cmd:(selector "setSupportsMultipleItems:") ~typ:(bool @-> returning (void)) x -let supportedContentTypes self = msg_send ~self ~cmd:(selector "supportedContentTypes") ~typ:(returning (id)) -let supportsMultipleItems self = msg_send ~self ~cmd:(selector "supportsMultipleItems") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UINSDocumentBrowserViewController.ml b/uikit_extra/UINSDocumentBrowserViewController.ml deleted file mode 100644 index 5ab7dfee..00000000 --- a/uikit_extra/UINSDocumentBrowserViewController.ml +++ /dev/null @@ -1,33 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSDocumentBrowserViewController" - -let allowsDocumentCreation self = msg_send ~self ~cmd:(selector "allowsDocumentCreation") ~typ:(returning (bool)) -let allowsPickingMultipleItems self = msg_send ~self ~cmd:(selector "allowsPickingMultipleItems") ~typ:(returning (bool)) -let customActions self = msg_send ~self ~cmd:(selector "customActions") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let dismiss self = msg_send ~self ~cmd:(selector "dismiss") ~typ:(returning (void)) -let documentTypes self = msg_send ~self ~cmd:(selector "documentTypes") ~typ:(returning (id)) -let importDocumentAtURL x ~nextToDocumentAtURL ~mode ~completionHandler self = msg_send ~self ~cmd:(selector "importDocumentAtURL:nextToDocumentAtURL:mode:completionHandler:") ~typ:(id @-> id @-> ullong @-> ptr void @-> returning (void)) x nextToDocumentAtURL (ULLong.of_int mode) completionHandler -let panel x ~shouldCreateNewDocumentAtURL self = msg_send ~self ~cmd:(selector "panel:shouldCreateNewDocumentAtURL:") ~typ:(id @-> id @-> returning (void)) x shouldCreateNewDocumentAtURL -let panel1 x ~userRequestedCreateNewDocument self = msg_send ~self ~cmd:(selector "panel:userRequestedCreateNewDocument:") ~typ:(id @-> ptr void @-> returning (void)) x userRequestedCreateNewDocument -let panel2 x ~customActionInvoked ~onItems self = msg_send ~self ~cmd:(selector "panel:customActionInvoked:onItems:") ~typ:(id @-> id @-> id @-> returning (void)) x customActionInvoked onItems -let presentWithCompletion x self = msg_send ~self ~cmd:(selector "presentWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let presentWithCompletionHandler x self = msg_send ~self ~cmd:(selector "presentWithCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let propagateCustomActions self = msg_send ~self ~cmd:(selector "propagateCustomActions") ~typ:(returning (void)) -let revealDocumentAtURL x ~importIfNeeded ~completion self = msg_send ~self ~cmd:(selector "revealDocumentAtURL:importIfNeeded:completion:") ~typ:(id @-> bool @-> ptr void @-> returning (void)) x importIfNeeded completion -let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning (id)) -let setAllowsDocumentCreation x self = msg_send ~self ~cmd:(selector "setAllowsDocumentCreation:") ~typ:(bool @-> returning (void)) x -let setAllowsPickingMultipleItems x self = msg_send ~self ~cmd:(selector "setAllowsPickingMultipleItems:") ~typ:(bool @-> returning (void)) x -let setCustomActions x self = msg_send ~self ~cmd:(selector "setCustomActions:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDocumentTypes x self = msg_send ~self ~cmd:(selector "setDocumentTypes:") ~typ:(id @-> returning (void)) x -let setSceneIdentifier x self = msg_send ~self ~cmd:(selector "setSceneIdentifier:") ~typ:(id @-> returning (void)) x -let setWindow x self = msg_send ~self ~cmd:(selector "setWindow:") ~typ:(id @-> returning (void)) x -let window self = msg_send ~self ~cmd:(selector "window") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSDocumentPickerViewController.ml b/uikit_extra/UINSDocumentPickerViewController.ml deleted file mode 100644 index 510d6a1f..00000000 --- a/uikit_extra/UINSDocumentPickerViewController.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSDocumentPickerViewController" - -let beginSheetModalWithCompletion x self = msg_send ~self ~cmd:(selector "beginSheetModalWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let dismiss self = msg_send ~self ~cmd:(selector "dismiss") ~typ:(returning (void)) -let initWithParentWindow x self = msg_send ~self ~cmd:(selector "initWithParentWindow:") ~typ:(id @-> returning (id)) x -let setAllowsMultipleSelection x self = msg_send ~self ~cmd:(selector "setAllowsMultipleSelection:") ~typ:(bool @-> returning (void)) x -let setDirectoryURL x self = msg_send ~self ~cmd:(selector "setDirectoryURL:") ~typ:(id @-> returning (void)) x -let setDocumentPickerMode x self = msg_send ~self ~cmd:(selector "setDocumentPickerMode:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDocumentTypes x self = msg_send ~self ~cmd:(selector "setDocumentTypes:") ~typ:(id @-> returning (void)) x -let setURLs x self = msg_send ~self ~cmd:(selector "setURLs:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSDragImage.ml b/uikit_extra/UINSDragImage.ml deleted file mode 100644 index 5397316a..00000000 --- a/uikit_extra/UINSDragImage.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSDragImage" - -let imageData self = msg_send ~self ~cmd:(selector "imageData") ~typ:(returning (id)) -let initWithImageData x self = msg_send ~self ~cmd:(selector "initWithImageData:") ~typ:(id @-> returning (id)) x -let initWithSlotID x self = msg_send ~self ~cmd:(selector "initWithSlotID:") ~typ:(uint @-> returning (id)) x -let slotID self = msg_send ~self ~cmd:(selector "slotID") ~typ:(returning (uint)) \ No newline at end of file diff --git a/uikit_extra/UINSDragItem.ml b/uikit_extra/UINSDragItem.ml deleted file mode 100644 index caa8fc36..00000000 --- a/uikit_extra/UINSDragItem.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSDragItem" - -let frame self = msg_send_stret ~self ~cmd:(selector "frame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let initWithTypes x ~frame ~preferredPresentationStyle self = msg_send ~self ~cmd:(selector "initWithTypes:frame:preferredPresentationStyle:") ~typ:(id @-> CGRect.t @-> llong @-> returning (id)) x frame (LLong.of_int preferredPresentationStyle) -let preferredPresentationStyle self = msg_send ~self ~cmd:(selector "preferredPresentationStyle") ~typ:(returning (llong)) -let types self = msg_send ~self ~cmd:(selector "types") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSDragManager.ml b/uikit_extra/UINSDragManager.ml deleted file mode 100644 index 384d808b..00000000 --- a/uikit_extra/UINSDragManager.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSDragManager" - -module C = struct - let sharedDragManager self = msg_send ~self ~cmd:(selector "sharedDragManager") ~typ:(returning (id)) -end - -let beginDragInScene x ~withItems ~handler self = msg_send ~self ~cmd:(selector "beginDragInScene:withItems:handler:") ~typ:(id @-> id @-> id @-> returning (void)) x withItems handler -let draggingSession x ~sourceOperationMaskForDraggingContext self = msg_send ~self ~cmd:(selector "draggingSession:sourceOperationMaskForDraggingContext:") ~typ:(id @-> llong @-> returning (ullong)) x (LLong.of_int sourceOperationMaskForDraggingContext) -let draggingSession' x ~endedAtPoint ~operation self = msg_send ~self ~cmd:(selector "draggingSession:endedAtPoint:operation:") ~typ:(id @-> CGPoint.t @-> ullong @-> returning (void)) x endedAtPoint (ULLong.of_int operation) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let sessions self = msg_send ~self ~cmd:(selector "sessions") ~typ:(returning (id)) -let setSessions x self = msg_send ~self ~cmd:(selector "setSessions:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSDragOperationMasks.ml b/uikit_extra/UINSDragOperationMasks.ml deleted file mode 100644 index 934e4c61..00000000 --- a/uikit_extra/UINSDragOperationMasks.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSDragOperationMasks" - -let initWithInsideAppMask x ~outsideAppMask self = msg_send ~self ~cmd:(selector "initWithInsideAppMask:outsideAppMask:") ~typ:(ullong @-> ullong @-> returning (id)) (ULLong.of_int x) (ULLong.of_int outsideAppMask) -let insideAppMask self = msg_send ~self ~cmd:(selector "insideAppMask") ~typ:(returning (ullong)) -let outsideAppMask self = msg_send ~self ~cmd:(selector "outsideAppMask") ~typ:(returning (ullong)) \ No newline at end of file diff --git a/uikit_extra/UINSDragPasteboardDataProvider.ml b/uikit_extra/UINSDragPasteboardDataProvider.ml deleted file mode 100644 index 0eead508..00000000 --- a/uikit_extra/UINSDragPasteboardDataProvider.ml +++ /dev/null @@ -1,31 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSDragPasteboardDataProvider" - -module C = struct - let pasteboardWriterForItem x ~index ~handler self = msg_send ~self ~cmd:(selector "pasteboardWriterForItem:index:handler:") ~typ:(id @-> llong @-> id @-> returning (id)) x (LLong.of_int index) handler -end - -let addData x ~forType self = msg_send ~self ~cmd:(selector "addData:forType:") ~typ:(id @-> id @-> returning (void)) x forType -let additionalData self = msg_send ~self ~cmd:(selector "additionalData") ~typ:(returning (id)) -let filePromiseProvider x ~fileNameForType self = msg_send ~self ~cmd:(selector "filePromiseProvider:fileNameForType:") ~typ:(id @-> id @-> returning (id)) x fileNameForType -let filePromiseProvider' x ~writePromiseToURL ~completionHandler self = msg_send ~self ~cmd:(selector "filePromiseProvider:writePromiseToURL:completionHandler:") ~typ:(id @-> id @-> ptr void @-> returning (void)) x writePromiseToURL completionHandler -let handler self = msg_send ~self ~cmd:(selector "handler") ~typ:(returning (id)) -let index self = msg_send ~self ~cmd:(selector "index") ~typ:(returning (llong)) -let initWithItem x ~index ~handler ~mappedTypes self = msg_send ~self ~cmd:(selector "initWithItem:index:handler:mappedTypes:") ~typ:(id @-> llong @-> id @-> id @-> returning (id)) x (LLong.of_int index) handler mappedTypes -let item self = msg_send ~self ~cmd:(selector "item") ~typ:(returning (id)) -let mappedTypes self = msg_send ~self ~cmd:(selector "mappedTypes") ~typ:(returning (id)) -let operationQueueForFilePromiseProvider x self = msg_send ~self ~cmd:(selector "operationQueueForFilePromiseProvider:") ~typ:(id @-> returning (id)) x -let pasteboard x ~item ~provideDataForType self = msg_send ~self ~cmd:(selector "pasteboard:item:provideDataForType:") ~typ:(id @-> id @-> id @-> returning (void)) x item provideDataForType -let pasteboardFinishedWithDataProvider x self = msg_send ~self ~cmd:(selector "pasteboardFinishedWithDataProvider:") ~typ:(id @-> returning (void)) x -let setAdditionalData x self = msg_send ~self ~cmd:(selector "setAdditionalData:") ~typ:(id @-> returning (void)) x -let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:(id @-> returning (void)) x -let setIndex x self = msg_send ~self ~cmd:(selector "setIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setItem x self = msg_send ~self ~cmd:(selector "setItem:") ~typ:(id @-> returning (void)) x -let setMappedTypes x self = msg_send ~self ~cmd:(selector "setMappedTypes:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSDropFilePromiseReader.ml b/uikit_extra/UINSDropFilePromiseReader.ml deleted file mode 100644 index ab3d6f05..00000000 --- a/uikit_extra/UINSDropFilePromiseReader.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSDropFilePromiseReader" - -let beginReceivingPromises self = msg_send ~self ~cmd:(selector "beginReceivingPromises") ~typ:(returning (void)) -let cancelReceivePromises self = msg_send ~self ~cmd:(selector "cancelReceivePromises") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let filePromiseReceiver self = msg_send ~self ~cmd:(selector "filePromiseReceiver") ~typ:(returning (id)) -let getFileOfType x ~completion self = msg_send ~self ~cmd:(selector "getFileOfType:completion:") ~typ:(id @-> ptr void @-> returning (void)) x completion -let initWithFilePromiseReceiver x ~temporaryDropDirectory self = msg_send ~self ~cmd:(selector "initWithFilePromiseReceiver:temporaryDropDirectory:") ~typ:(id @-> id @-> returning (id)) x temporaryDropDirectory -let touch self = msg_send ~self ~cmd:(selector "touch") ~typ:(returning (void)) -let types self = msg_send ~self ~cmd:(selector "types") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSDropFilePromisedReaderTemporaryDirectory.ml b/uikit_extra/UINSDropFilePromisedReaderTemporaryDirectory.ml deleted file mode 100644 index e97d3e29..00000000 --- a/uikit_extra/UINSDropFilePromisedReaderTemporaryDirectory.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSDropFilePromisedReaderTemporaryDirectory" - -let _URL self = msg_send ~self ~cmd:(selector "URL") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let setURL x self = msg_send ~self ~cmd:(selector "setURL:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSDropItem.ml b/uikit_extra/UINSDropItem.ml deleted file mode 100644 index 4f1cf2d8..00000000 --- a/uikit_extra/UINSDropItem.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSDropItem" - -let initWithItemProvider x self = msg_send ~self ~cmd:(selector "initWithItemProvider:") ~typ:(id @-> returning (id)) x -let itemProvider self = msg_send ~self ~cmd:(selector "itemProvider") ~typ:(returning (id)) -let typeIdentifiers self = msg_send ~self ~cmd:(selector "typeIdentifiers") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSDropSession.ml b/uikit_extra/UINSDropSession.ml deleted file mode 100644 index 236bb928..00000000 --- a/uikit_extra/UINSDropSession.ml +++ /dev/null @@ -1,25 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSDropSession" - -let concludeDragOperation x ~sceneView self = msg_send ~self ~cmd:(selector "concludeDragOperation:sceneView:") ~typ:(id @-> id @-> returning (void)) x sceneView -let draggingEnded x ~sceneView self = msg_send ~self ~cmd:(selector "draggingEnded:sceneView:") ~typ:(id @-> id @-> returning (void)) x sceneView -let draggingEntered x ~sceneView self = msg_send ~self ~cmd:(selector "draggingEntered:sceneView:") ~typ:(id @-> id @-> returning (ullong)) x sceneView -let draggingExited x ~sceneView self = msg_send ~self ~cmd:(selector "draggingExited:sceneView:") ~typ:(id @-> id @-> returning (void)) x sceneView -let draggingUpdated x ~sceneView self = msg_send ~self ~cmd:(selector "draggingUpdated:sceneView:") ~typ:(id @-> id @-> returning (ullong)) x sceneView -let initWithDraggingInfo x ~sessionID ~sceneView self = msg_send ~self ~cmd:(selector "initWithDraggingInfo:sessionID:sceneView:") ~typ:(id @-> uint @-> id @-> returning (id)) x sessionID sceneView -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let operationMask self = msg_send ~self ~cmd:(selector "operationMask") ~typ:(returning (ullong)) -let performDragOperation x ~sceneView self = msg_send ~self ~cmd:(selector "performDragOperation:sceneView:") ~typ:(id @-> id @-> returning (bool)) x sceneView -let prepareForDragOperation x ~sceneView self = msg_send ~self ~cmd:(selector "prepareForDragOperation:sceneView:") ~typ:(id @-> id @-> returning (bool)) x sceneView -let sawDragEndEvent self = msg_send ~self ~cmd:(selector "sawDragEndEvent") ~typ:(returning (void)) -let sessionID self = msg_send ~self ~cmd:(selector "sessionID") ~typ:(returning (uint)) -let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:(id @-> returning (void)) x -let takeHandler x self = msg_send ~self ~cmd:(selector "takeHandler:") ~typ:(id @-> returning (void)) x -let takePotentialDropOperation x self = msg_send ~self ~cmd:(selector "takePotentialDropOperation:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UINSEvent.ml b/uikit_extra/UINSEvent.ml deleted file mode 100644 index 8972c41f..00000000 --- a/uikit_extra/UINSEvent.ml +++ /dev/null @@ -1,26 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSEvent" - -let cgEvent self = msg_send ~self ~cmd:(selector "cgEvent") ~typ:(returning (ptr void)) -let commandModifiedInput self = msg_send ~self ~cmd:(selector "commandModifiedInput") ~typ:(returning (id)) -let contextId self = msg_send ~self ~cmd:(selector "contextId") ~typ:(returning (uint)) -let hidUsageCode self = msg_send ~self ~cmd:(selector "hidUsageCode") ~typ:(returning (llong)) -let initWithNSEvent x ~contextId self = msg_send ~self ~cmd:(selector "initWithNSEvent:contextId:") ~typ:(id @-> uint @-> returning (id)) x contextId -let isDeadKey self = msg_send ~self ~cmd:(selector "isDeadKey") ~typ:(returning (bool)) -let isDown self = msg_send ~self ~cmd:(selector "isDown") ~typ:(returning (bool)) -let modifiedInput self = msg_send ~self ~cmd:(selector "modifiedInput") ~typ:(returning (id)) -let modifierFlags self = msg_send ~self ~cmd:(selector "modifierFlags") ~typ:(returning (llong)) -let nsEvent self = msg_send ~self ~cmd:(selector "nsEvent") ~typ:(returning (id)) -let setIsDown x self = msg_send ~self ~cmd:(selector "setIsDown:") ~typ:(bool @-> returning (void)) x -let setModifierFlags x self = msg_send ~self ~cmd:(selector "setModifierFlags:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let shiftModifiedInput self = msg_send ~self ~cmd:(selector "shiftModifiedInput") ~typ:(returning (id)) -let timestampMachAbs self = msg_send ~self ~cmd:(selector "timestampMachAbs") ~typ:(returning (ullong)) -let unmodifiedInput self = msg_send ~self ~cmd:(selector "unmodifiedInput") ~typ:(returning (id)) -let virtualKeyCode self = msg_send ~self ~cmd:(selector "virtualKeyCode") ~typ:(returning (ushort)) \ No newline at end of file diff --git a/uikit_extra/UINSEventTranslator.ml b/uikit_extra/UINSEventTranslator.ml deleted file mode 100644 index b5e21054..00000000 --- a/uikit_extra/UINSEventTranslator.ml +++ /dev/null @@ -1,54 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSEventTranslator" - -let acceptsFirstMouse x self = msg_send ~self ~cmd:(selector "acceptsFirstMouse:") ~typ:(id @-> returning (bool)) x -let cancelOutstandingUserInput self = msg_send ~self ~cmd:(selector "cancelOutstandingUserInput") ~typ:(returning (bool)) -let contextIdAtWindowLocation x self = msg_send ~self ~cmd:(selector "contextIdAtWindowLocation:") ~typ:(CGPoint.t @-> returning (uint)) x -let convertSceneDeltaToSceneReferenceDelta x self = msg_send_stret ~self ~cmd:(selector "convertSceneDeltaToSceneReferenceDelta:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertSceneLocationToWindowCoordinates x self = msg_send_stret ~self ~cmd:(selector "convertSceneLocationToWindowCoordinates:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertScrollDeltaToSceneDelta x self = msg_send_stret ~self ~cmd:(selector "convertScrollDeltaToSceneDelta:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertScrollDeltaToSceneReferenceDelta x self = msg_send_stret ~self ~cmd:(selector "convertScrollDeltaToSceneReferenceDelta:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertWindowLocationToSceneCoordinates x self = msg_send_stret ~self ~cmd:(selector "convertWindowLocationToSceneCoordinates:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let draggingEnded x self = msg_send ~self ~cmd:(selector "draggingEnded:") ~typ:(id @-> returning (void)) x -let draggingEntered x self = msg_send ~self ~cmd:(selector "draggingEntered:") ~typ:(id @-> returning (void)) x -let draggingExited x self = msg_send ~self ~cmd:(selector "draggingExited:") ~typ:(id @-> returning (void)) x -let draggingUpdated x self = msg_send ~self ~cmd:(selector "draggingUpdated:") ~typ:(id @-> returning (void)) x -let flagsChanged x self = msg_send ~self ~cmd:(selector "flagsChanged:") ~typ:(id @-> returning (void)) x -let hostEnterExitEventWithType x ~sceneLocation self = msg_send ~self ~cmd:(selector "hostEnterExitEventWithType:sceneLocation:") ~typ:(ullong @-> CGPoint.t @-> returning (id)) (ULLong.of_int x) sceneLocation -let hostEventsFromHIDEvent x self = msg_send ~self ~cmd:(selector "hostEventsFromHIDEvent:") ~typ:(ptr void @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let keyDown x self = msg_send ~self ~cmd:(selector "keyDown:") ~typ:(id @-> returning (void)) x -let keyUp x self = msg_send ~self ~cmd:(selector "keyUp:") ~typ:(id @-> returning (void)) x -let magnifyWithEvent x self = msg_send ~self ~cmd:(selector "magnifyWithEvent:") ~typ:(id @-> returning (void)) x -let mouseDown x self = msg_send ~self ~cmd:(selector "mouseDown:") ~typ:(id @-> returning (void)) x -let mouseDragged x self = msg_send ~self ~cmd:(selector "mouseDragged:") ~typ:(id @-> returning (void)) x -let mouseEntered x self = msg_send ~self ~cmd:(selector "mouseEntered:") ~typ:(id @-> returning (void)) x -let mouseExited x self = msg_send ~self ~cmd:(selector "mouseExited:") ~typ:(id @-> returning (void)) x -let mouseMoved x self = msg_send ~self ~cmd:(selector "mouseMoved:") ~typ:(id @-> returning (void)) x -let mouseUp x self = msg_send ~self ~cmd:(selector "mouseUp:") ~typ:(id @-> returning (void)) x -let postLeftClickAtSceneLocation x self = msg_send ~self ~cmd:(selector "postLeftClickAtSceneLocation:") ~typ:(CGPoint.t @-> returning (void)) x -let prepareForDragOperation x self = msg_send ~self ~cmd:(selector "prepareForDragOperation:") ~typ:(id @-> returning (void)) x -let pressureChangeWithEvent x self = msg_send ~self ~cmd:(selector "pressureChangeWithEvent:") ~typ:(id @-> returning (void)) x -let quickLookWithEvent x self = msg_send ~self ~cmd:(selector "quickLookWithEvent:") ~typ:(id @-> returning (void)) x -let rightMouseDown x self = msg_send ~self ~cmd:(selector "rightMouseDown:") ~typ:(id @-> returning (void)) x -let rightMouseDragged x self = msg_send ~self ~cmd:(selector "rightMouseDragged:") ~typ:(id @-> returning (void)) x -let rightMouseUp x self = msg_send ~self ~cmd:(selector "rightMouseUp:") ~typ:(id @-> returning (void)) x -let rotateWithEvent x self = msg_send ~self ~cmd:(selector "rotateWithEvent:") ~typ:(id @-> returning (void)) x -let sceneView self = msg_send ~self ~cmd:(selector "sceneView") ~typ:(returning (id)) -let scrollWheel x self = msg_send ~self ~cmd:(selector "scrollWheel:") ~typ:(id @-> returning (void)) x -let setSceneView x self = msg_send ~self ~cmd:(selector "setSceneView:") ~typ:(id @-> returning (void)) x -let touchesBeganWithEvent x self = msg_send ~self ~cmd:(selector "touchesBeganWithEvent:") ~typ:(id @-> returning (void)) x -let touchesCancelledWithEvent x self = msg_send ~self ~cmd:(selector "touchesCancelledWithEvent:") ~typ:(id @-> returning (void)) x -let touchesEndedWithEvent x self = msg_send ~self ~cmd:(selector "touchesEndedWithEvent:") ~typ:(id @-> returning (void)) x -let touchesMovedWithEvent x self = msg_send ~self ~cmd:(selector "touchesMovedWithEvent:") ~typ:(id @-> returning (void)) x -let translateWithEvent x self = msg_send ~self ~cmd:(selector "translateWithEvent:") ~typ:(id @-> returning (void)) x -let wantsKeyEvents self = msg_send ~self ~cmd:(selector "wantsKeyEvents") ~typ:(returning (bool)) -let wantsRestingTouches self = msg_send ~self ~cmd:(selector "wantsRestingTouches") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UINSEwmaFilter.ml b/uikit_extra/UINSEwmaFilter.ml deleted file mode 100644 index 11ed7925..00000000 --- a/uikit_extra/UINSEwmaFilter.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSEwmaFilter" - -let addValue x ~timeDelta self = msg_send ~self ~cmd:(selector "addValue:timeDelta:") ~typ:(double @-> double @-> returning (void)) x timeDelta -let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(double @-> returning (void)) x -let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit_extra/UINSFixedSpaceToolbarItem.ml b/uikit_extra/UINSFixedSpaceToolbarItem.ml deleted file mode 100644 index 1da18be2..00000000 --- a/uikit_extra/UINSFixedSpaceToolbarItem.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSFixedSpaceToolbarItem" - -let initWithIdentifier x self = msg_send ~self ~cmd:(selector "initWithIdentifier:") ~typ:(id @-> returning (id)) x -let isSeparatorItem self = msg_send ~self ~cmd:(selector "isSeparatorItem") ~typ:(returning (bool)) -let isSpace self = msg_send ~self ~cmd:(selector "isSpace") ~typ:(returning (bool)) -let prepareItem self = msg_send ~self ~cmd:(selector "prepareItem") ~typ:(returning (void)) -let setWidth x self = msg_send ~self ~cmd:(selector "setWidth:") ~typ:(double @-> returning (void)) x -let width self = msg_send ~self ~cmd:(selector "width") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit_extra/UINSFlexibleSpaceToolbarItem.ml b/uikit_extra/UINSFlexibleSpaceToolbarItem.ml deleted file mode 100644 index f87f7889..00000000 --- a/uikit_extra/UINSFlexibleSpaceToolbarItem.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSFlexibleSpaceToolbarItem" - -let isSeparatorItem self = msg_send ~self ~cmd:(selector "isSeparatorItem") ~typ:(returning (bool)) -let isSpace self = msg_send ~self ~cmd:(selector "isSpace") ~typ:(returning (bool)) -let maxSize self = msg_send_stret ~self ~cmd:(selector "maxSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let minSize self = msg_send_stret ~self ~cmd:(selector "minSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let prepareItem self = msg_send ~self ~cmd:(selector "prepareItem") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UINSFocusDoubleRingShapeLayer.ml b/uikit_extra/UINSFocusDoubleRingShapeLayer.ml new file mode 100644 index 00000000..caef68be --- /dev/null +++ b/uikit_extra/UINSFocusDoubleRingShapeLayer.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinsfocusdoubleringshapelayer?language=objc}UINSFocusDoubleRingShapeLayer} *) + +let self = get_class "UINSFocusDoubleRingShapeLayer" + +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let setPath x self = msg_send ~self ~cmd:(selector "setPath:") ~typ:((ptr CGPath.t) @-> returning void) x +let setTopBorderLayer x self = msg_send ~self ~cmd:(selector "setTopBorderLayer:") ~typ:(id @-> returning void) x +let topBorderLayer self = msg_send ~self ~cmd:(selector "topBorderLayer") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UINSFocusRingShapeLayer.ml b/uikit_extra/UINSFocusRingShapeLayer.ml new file mode 100644 index 00000000..223cd3ef --- /dev/null +++ b/uikit_extra/UINSFocusRingShapeLayer.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinsfocusringshapelayer?language=objc}UINSFocusRingShapeLayer} *) + +let self = get_class "UINSFocusRingShapeLayer" + +let bottomBorderLayer self = msg_send ~self ~cmd:(selector "bottomBorderLayer") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let setBottomBorderLayer x self = msg_send ~self ~cmd:(selector "setBottomBorderLayer:") ~typ:(id @-> returning void) x +let setPath x self = msg_send ~self ~cmd:(selector "setPath:") ~typ:((ptr CGPath.t) @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UINSFocusRingShapeLayerClass.ml b/uikit_extra/UINSFocusRingShapeLayerClass.ml new file mode 100644 index 00000000..fd61104b --- /dev/null +++ b/uikit_extra/UINSFocusRingShapeLayerClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uinsfocusringshapelayer?language=objc}UINSFocusRingShapeLayer} *) + +let focusLayerForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "focusLayerForUserInterfaceStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let parentLayerForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "parentLayerForUserInterfaceStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let selectedLayerForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "selectedLayerForUserInterfaceStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let selectedParentLayerForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "selectedParentLayerForUserInterfaceStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UINSFontManager.ml b/uikit_extra/UINSFontManager.ml deleted file mode 100644 index 4facd384..00000000 --- a/uikit_extra/UINSFontManager.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSFontManager" - -module C = struct - let isFontPanelVisible self = msg_send ~self ~cmd:(selector "isFontPanelVisible") ~typ:(returning (bool)) - let sharedFontManager self = msg_send ~self ~cmd:(selector "sharedFontManager") ~typ:(returning (id)) - let toggleFontPanelShown x self = msg_send ~self ~cmd:(selector "toggleFontPanelShown:") ~typ:(id @-> returning (void)) x -end - -let changeAttributes x self = msg_send ~self ~cmd:(selector "changeAttributes:") ~typ:(id @-> returning (void)) x -let changeColor x self = msg_send ~self ~cmd:(selector "changeColor:") ~typ:(id @-> returning (void)) x -let changeColorWithColor x self = msg_send ~self ~cmd:(selector "changeColorWithColor:") ~typ:(id @-> returning (void)) x -let changeFont x self = msg_send ~self ~cmd:(selector "changeFont:") ~typ:(id @-> returning (void)) x -let convertAttributes x self = msg_send ~self ~cmd:(selector "convertAttributes:") ~typ:(id @-> returning (id)) x -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning (id)) x -let setSelectedAttributes x ~isMultiple self = msg_send ~self ~cmd:(selector "setSelectedAttributes:isMultiple:") ~typ:(id @-> bool @-> returning (void)) x isMultiple \ No newline at end of file diff --git a/uikit_extra/UINSFontPickerController.ml b/uikit_extra/UINSFontPickerController.ml deleted file mode 100644 index a74fb7d1..00000000 --- a/uikit_extra/UINSFontPickerController.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSFontPickerController" - -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let initWithInfoClass x ~configuration self = msg_send ~self ~cmd:(selector "initWithInfoClass:configuration:") ~typ:(_Class @-> id @-> returning (id)) x configuration -let presentAtLocation x ~inView self = msg_send ~self ~cmd:(selector "presentAtLocation:inView:") ~typ:(CGPoint.t @-> id @-> returning (void)) x inView -let presentAtLocation' x ~inWindow self = msg_send ~self ~cmd:(selector "presentAtLocation:inWindow:") ~typ:(CGPoint.t @-> id @-> returning (void)) x inWindow -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setSelectedFont x self = msg_send ~self ~cmd:(selector "setSelectedFont:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSFullScreenSceneWindowController.ml b/uikit_extra/UINSFullScreenSceneWindowController.ml deleted file mode 100644 index 8e64ad09..00000000 --- a/uikit_extra/UINSFullScreenSceneWindowController.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSFullScreenSceneWindowController" - -let customWindowsToEnterFullScreenForWindow x ~onScreen self = msg_send ~self ~cmd:(selector "customWindowsToEnterFullScreenForWindow:onScreen:") ~typ:(id @-> id @-> returning (id)) x onScreen -let customWindowsToExitFullScreenForWindow x self = msg_send ~self ~cmd:(selector "customWindowsToExitFullScreenForWindow:") ~typ:(id @-> returning (id)) x -let initWithWindow x self = msg_send ~self ~cmd:(selector "initWithWindow:") ~typ:(id @-> returning (id)) x -let targetFullScreenFrame self = msg_send_stret ~self ~cmd:(selector "targetFullScreenFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let validateUserInterfaceItem x self = msg_send ~self ~cmd:(selector "validateUserInterfaceItem:") ~typ:(id @-> returning (bool)) x -let window x ~startCustomAnimationToExitFullScreenWithDuration self = msg_send ~self ~cmd:(selector "window:startCustomAnimationToExitFullScreenWithDuration:") ~typ:(id @-> double @-> returning (void)) x startCustomAnimationToExitFullScreenWithDuration -let window1 x ~willUseFullScreenContentSize self = msg_send_stret ~self ~cmd:(selector "window:willUseFullScreenContentSize:") ~typ:(id @-> CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x willUseFullScreenContentSize -let window2 x ~startCustomAnimationToEnterFullScreenOnScreen ~withDuration self = msg_send ~self ~cmd:(selector "window:startCustomAnimationToEnterFullScreenOnScreen:withDuration:") ~typ:(id @-> id @-> double @-> returning (void)) x startCustomAnimationToEnterFullScreenOnScreen withDuration -let windowClass self = msg_send ~self ~cmd:(selector "windowClass") ~typ:(returning (_Class)) \ No newline at end of file diff --git a/uikit_extra/UINSFullScreenWindow.ml b/uikit_extra/UINSFullScreenWindow.ml deleted file mode 100644 index 5673e4de..00000000 --- a/uikit_extra/UINSFullScreenWindow.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSFullScreenWindow" - -let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let performZoom x self = msg_send ~self ~cmd:(selector "performZoom:") ~typ:(id @-> returning (void)) x -let setWindowController x self = msg_send ~self ~cmd:(selector "setWindowController:") ~typ:(id @-> returning (void)) x -let validateUserInterfaceItem x self = msg_send ~self ~cmd:(selector "validateUserInterfaceItem:") ~typ:(id @-> returning (bool)) x -let zoom x self = msg_send ~self ~cmd:(selector "zoom:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSGameEventTranslator.ml b/uikit_extra/UINSGameEventTranslator.ml deleted file mode 100644 index 41c83333..00000000 --- a/uikit_extra/UINSGameEventTranslator.ml +++ /dev/null @@ -1,60 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGameEventTranslator" - -module C = struct - let onboardingModuleNames self = msg_send ~self ~cmd:(selector "onboardingModuleNames") ~typ:(returning (id)) - let setOnboardingModuleNames x self = msg_send ~self ~cmd:(selector "setOnboardingModuleNames:") ~typ:(id @-> returning (void)) x -end - -let acceptsFirstMouse x self = msg_send ~self ~cmd:(selector "acceptsFirstMouse:") ~typ:(id @-> returning (bool)) x -let applyUserDefaults self = msg_send ~self ~cmd:(selector "applyUserDefaults") ~typ:(returning (void)) -let cancelOutstandingUserInput self = msg_send ~self ~cmd:(selector "cancelOutstandingUserInput") ~typ:(returning (bool)) -let convertNormalizedLocationToSceneLocation x self = msg_send_stret ~self ~cmd:(selector "convertNormalizedLocationToSceneLocation:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertSceneLocationToNomalizedLocation x self = msg_send_stret ~self ~cmd:(selector "convertSceneLocationToNomalizedLocation:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let draggingEnded x self = msg_send ~self ~cmd:(selector "draggingEnded:") ~typ:(id @-> returning (void)) x -let draggingEntered x self = msg_send ~self ~cmd:(selector "draggingEntered:") ~typ:(id @-> returning (void)) x -let draggingExited x self = msg_send ~self ~cmd:(selector "draggingExited:") ~typ:(id @-> returning (void)) x -let draggingUpdated x self = msg_send ~self ~cmd:(selector "draggingUpdated:") ~typ:(id @-> returning (void)) x -let enabled self = msg_send ~self ~cmd:(selector "enabled") ~typ:(returning (bool)) -let flagsChanged x self = msg_send ~self ~cmd:(selector "flagsChanged:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let keyDown x self = msg_send ~self ~cmd:(selector "keyDown:") ~typ:(id @-> returning (void)) x -let keyUp x self = msg_send ~self ~cmd:(selector "keyUp:") ~typ:(id @-> returning (void)) x -let loadInputAlternativesConfig self = msg_send ~self ~cmd:(selector "loadInputAlternativesConfig") ~typ:(returning (void)) -let magnifyWithEvent x self = msg_send ~self ~cmd:(selector "magnifyWithEvent:") ~typ:(id @-> returning (void)) x -let mouseDown x self = msg_send ~self ~cmd:(selector "mouseDown:") ~typ:(id @-> returning (void)) x -let mouseDragged x self = msg_send ~self ~cmd:(selector "mouseDragged:") ~typ:(id @-> returning (void)) x -let mouseEntered x self = msg_send ~self ~cmd:(selector "mouseEntered:") ~typ:(id @-> returning (void)) x -let mouseExited x self = msg_send ~self ~cmd:(selector "mouseExited:") ~typ:(id @-> returning (void)) x -let mouseMoved x self = msg_send ~self ~cmd:(selector "mouseMoved:") ~typ:(id @-> returning (void)) x -let mouseUp x self = msg_send ~self ~cmd:(selector "mouseUp:") ~typ:(id @-> returning (void)) x -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let prepareForDragOperation x self = msg_send ~self ~cmd:(selector "prepareForDragOperation:") ~typ:(id @-> returning (void)) x -let presentActiveInputAlternativesIfNeeded self = msg_send ~self ~cmd:(selector "presentActiveInputAlternativesIfNeeded") ~typ:(returning (void)) -let pressureChangeWithEvent x self = msg_send ~self ~cmd:(selector "pressureChangeWithEvent:") ~typ:(id @-> returning (void)) x -let quickLookWithEvent x self = msg_send ~self ~cmd:(selector "quickLookWithEvent:") ~typ:(id @-> returning (void)) x -let relenquishExclusiveGameModuleUse x self = msg_send ~self ~cmd:(selector "relenquishExclusiveGameModuleUse:") ~typ:(id @-> returning (bool)) x -let requestExclusiveGameModuleUse x self = msg_send ~self ~cmd:(selector "requestExclusiveGameModuleUse:") ~typ:(id @-> returning (bool)) x -let rightMouseDown x self = msg_send ~self ~cmd:(selector "rightMouseDown:") ~typ:(id @-> returning (void)) x -let rightMouseDragged x self = msg_send ~self ~cmd:(selector "rightMouseDragged:") ~typ:(id @-> returning (void)) x -let rightMouseUp x self = msg_send ~self ~cmd:(selector "rightMouseUp:") ~typ:(id @-> returning (void)) x -let rotateWithEvent x self = msg_send ~self ~cmd:(selector "rotateWithEvent:") ~typ:(id @-> returning (void)) x -let scrollWheel x self = msg_send ~self ~cmd:(selector "scrollWheel:") ~typ:(id @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setSceneView x self = msg_send ~self ~cmd:(selector "setSceneView:") ~typ:(id @-> returning (void)) x -let showConfigurationOverlay self = msg_send ~self ~cmd:(selector "showConfigurationOverlay") ~typ:(returning (void)) -let touchesBeganWithEvent x self = msg_send ~self ~cmd:(selector "touchesBeganWithEvent:") ~typ:(id @-> returning (void)) x -let touchesCancelledWithEvent x self = msg_send ~self ~cmd:(selector "touchesCancelledWithEvent:") ~typ:(id @-> returning (void)) x -let touchesEndedWithEvent x self = msg_send ~self ~cmd:(selector "touchesEndedWithEvent:") ~typ:(id @-> returning (void)) x -let touchesMovedWithEvent x self = msg_send ~self ~cmd:(selector "touchesMovedWithEvent:") ~typ:(id @-> returning (void)) x -let translateWithEvent x self = msg_send ~self ~cmd:(selector "translateWithEvent:") ~typ:(id @-> returning (void)) x -let wantsKeyEvents self = msg_send ~self ~cmd:(selector "wantsKeyEvents") ~typ:(returning (bool)) -let wantsRestingTouches self = msg_send ~self ~cmd:(selector "wantsRestingTouches") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UINSGameModule.ml b/uikit_extra/UINSGameModule.ml deleted file mode 100644 index c23f0283..00000000 --- a/uikit_extra/UINSGameModule.ml +++ /dev/null @@ -1,48 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGameModule" - -module C = struct - let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -end - -let applyUserDefaults self = msg_send ~self ~cmd:(selector "applyUserDefaults") ~typ:(returning (void)) -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let enabled self = msg_send ~self ~cmd:(selector "enabled") ~typ:(returning (bool)) -let flagsChanged x self = msg_send ~self ~cmd:(selector "flagsChanged:") ~typ:(id @-> returning (void)) x -let gameEventTranslator self = msg_send ~self ~cmd:(selector "gameEventTranslator") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithConfiguration x self = msg_send ~self ~cmd:(selector "initWithConfiguration:") ~typ:(id @-> returning (id)) x -let keyDown x self = msg_send ~self ~cmd:(selector "keyDown:") ~typ:(id @-> returning (void)) x -let keyUp x self = msg_send ~self ~cmd:(selector "keyUp:") ~typ:(id @-> returning (void)) x -let logAnalyticsPayload x self = msg_send ~self ~cmd:(selector "logAnalyticsPayload:") ~typ:(id @-> returning (void)) x -let magnifyWithEvent x self = msg_send ~self ~cmd:(selector "magnifyWithEvent:") ~typ:(id @-> returning (void)) x -let mouseDown x self = msg_send ~self ~cmd:(selector "mouseDown:") ~typ:(id @-> returning (void)) x -let mouseDragged x self = msg_send ~self ~cmd:(selector "mouseDragged:") ~typ:(id @-> returning (void)) x -let mouseEntered x self = msg_send ~self ~cmd:(selector "mouseEntered:") ~typ:(id @-> returning (void)) x -let mouseExited x self = msg_send ~self ~cmd:(selector "mouseExited:") ~typ:(id @-> returning (void)) x -let mouseMoved x self = msg_send ~self ~cmd:(selector "mouseMoved:") ~typ:(id @-> returning (void)) x -let mouseUp x self = msg_send ~self ~cmd:(selector "mouseUp:") ~typ:(id @-> returning (void)) x -let pressureChangeWithEvent x self = msg_send ~self ~cmd:(selector "pressureChangeWithEvent:") ~typ:(id @-> returning (void)) x -let quickLookWithEvent x self = msg_send ~self ~cmd:(selector "quickLookWithEvent:") ~typ:(id @-> returning (void)) x -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let rightMouseDown x self = msg_send ~self ~cmd:(selector "rightMouseDown:") ~typ:(id @-> returning (void)) x -let rightMouseDragged x self = msg_send ~self ~cmd:(selector "rightMouseDragged:") ~typ:(id @-> returning (void)) x -let rightMouseUp x self = msg_send ~self ~cmd:(selector "rightMouseUp:") ~typ:(id @-> returning (void)) x -let rotateWithEvent x self = msg_send ~self ~cmd:(selector "rotateWithEvent:") ~typ:(id @-> returning (void)) x -let scrollWheel x self = msg_send ~self ~cmd:(selector "scrollWheel:") ~typ:(id @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setGameEventTranslator x self = msg_send ~self ~cmd:(selector "setGameEventTranslator:") ~typ:(id @-> returning (void)) x -let touchesBeganWithEvent x self = msg_send ~self ~cmd:(selector "touchesBeganWithEvent:") ~typ:(id @-> returning (void)) x -let touchesCancelledWithEvent x self = msg_send ~self ~cmd:(selector "touchesCancelledWithEvent:") ~typ:(id @-> returning (void)) x -let touchesEndedWithEvent x self = msg_send ~self ~cmd:(selector "touchesEndedWithEvent:") ~typ:(id @-> returning (void)) x -let touchesMovedWithEvent x self = msg_send ~self ~cmd:(selector "touchesMovedWithEvent:") ~typ:(id @-> returning (void)) x -let translateWithEvent x self = msg_send ~self ~cmd:(selector "translateWithEvent:") ~typ:(id @-> returning (void)) x -let wantsRestingTouches self = msg_send ~self ~cmd:(selector "wantsRestingTouches") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UINSGameModuleConfigViewController.ml b/uikit_extra/UINSGameModuleConfigViewController.ml deleted file mode 100644 index caadde5f..00000000 --- a/uikit_extra/UINSGameModuleConfigViewController.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGameModuleConfigViewController" - -let configurationParent self = msg_send ~self ~cmd:(selector "configurationParent") ~typ:(returning (id)) -let deleteGameModule x self = msg_send ~self ~cmd:(selector "deleteGameModule:") ~typ:(id @-> returning (void)) x -let gameModule self = msg_send ~self ~cmd:(selector "gameModule") ~typ:(returning (id)) -let initWithNibName x self = msg_send ~self ~cmd:(selector "initWithNibName:") ~typ:(id @-> returning (id)) x -let save x self = msg_send ~self ~cmd:(selector "save:") ~typ:(id @-> returning (void)) x -let setConfigurationParent x self = msg_send ~self ~cmd:(selector "setConfigurationParent:") ~typ:(id @-> returning (void)) x -let setGameModule x self = msg_send ~self ~cmd:(selector "setGameModule:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSGameModuleEducationView.ml b/uikit_extra/UINSGameModuleEducationView.ml deleted file mode 100644 index 64325f83..00000000 --- a/uikit_extra/UINSGameModuleEducationView.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGameModuleEducationView" - -let featureLayers self = msg_send ~self ~cmd:(selector "featureLayers") ~typ:(returning (id)) -let findLabelGuideLayerForFeature x self = msg_send ~self ~cmd:(selector "findLabelGuideLayerForFeature:") ~typ:(id @-> returning (id)) x -let initWithCAPackage x ~pointingDevice self = msg_send ~self ~cmd:(selector "initWithCAPackage:pointingDevice:") ~typ:(id @-> id @-> returning (id)) x pointingDevice -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let layerNamed x self = msg_send ~self ~cmd:(selector "layerNamed:") ~typ:(id @-> returning (id)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setFeatureLayers x self = msg_send ~self ~cmd:(selector "setFeatureLayers:") ~typ:(id @-> returning (void)) x -let updateLayer self = msg_send ~self ~cmd:(selector "updateLayer") ~typ:(returning (void)) -let wantsUpdateLayer self = msg_send ~self ~cmd:(selector "wantsUpdateLayer") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UINSGameModuleJoystick.ml b/uikit_extra/UINSGameModuleJoystick.ml deleted file mode 100644 index a8b4c704..00000000 --- a/uikit_extra/UINSGameModuleJoystick.ml +++ /dev/null @@ -1,32 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGameModuleJoystick" - -module C = struct - let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -end - -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithConfiguration x self = msg_send ~self ~cmd:(selector "initWithConfiguration:") ~typ:(id @-> returning (id)) x -let keyCodeDown self = msg_send ~self ~cmd:(selector "keyCodeDown") ~typ:(returning (llong)) -let keyCodeLeft self = msg_send ~self ~cmd:(selector "keyCodeLeft") ~typ:(returning (llong)) -let keyCodeRight self = msg_send ~self ~cmd:(selector "keyCodeRight") ~typ:(returning (llong)) -let keyCodeUp self = msg_send ~self ~cmd:(selector "keyCodeUp") ~typ:(returning (llong)) -let keyCodes self = msg_send ~self ~cmd:(selector "keyCodes") ~typ:(returning (id)) -let keyDown x self = msg_send ~self ~cmd:(selector "keyDown:") ~typ:(id @-> returning (void)) x -let keyUp x self = msg_send ~self ~cmd:(selector "keyUp:") ~typ:(id @-> returning (void)) x -let logAnalyticsPayload x self = msg_send ~self ~cmd:(selector "logAnalyticsPayload:") ~typ:(id @-> returning (void)) x -let normalizedLocation self = msg_send_stret ~self ~cmd:(selector "normalizedLocation") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let radius self = msg_send ~self ~cmd:(selector "radius") ~typ:(returning (double)) -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let setKeyCodes x self = msg_send ~self ~cmd:(selector "setKeyCodes:") ~typ:(id @-> returning (void)) x -let setNormalizedLocation x self = msg_send ~self ~cmd:(selector "setNormalizedLocation:") ~typ:(CGPoint.t @-> returning (void)) x -let setRadius x self = msg_send ~self ~cmd:(selector "setRadius:") ~typ:(double @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSGameModuleJoystickViewController.ml b/uikit_extra/UINSGameModuleJoystickViewController.ml deleted file mode 100644 index de12552f..00000000 --- a/uikit_extra/UINSGameModuleJoystickViewController.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGameModuleJoystickViewController" - -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let keyDown self = msg_send ~self ~cmd:(selector "keyDown") ~typ:(returning (id)) -let keyLeft self = msg_send ~self ~cmd:(selector "keyLeft") ~typ:(returning (id)) -let keyRight self = msg_send ~self ~cmd:(selector "keyRight") ~typ:(returning (id)) -let keyUp self = msg_send ~self ~cmd:(selector "keyUp") ~typ:(returning (id)) -let radius self = msg_send ~self ~cmd:(selector "radius") ~typ:(returning (id)) -let save x self = msg_send ~self ~cmd:(selector "save:") ~typ:(id @-> returning (void)) x -let setKeyDown x self = msg_send ~self ~cmd:(selector "setKeyDown:") ~typ:(id @-> returning (void)) x -let setKeyLeft x self = msg_send ~self ~cmd:(selector "setKeyLeft:") ~typ:(id @-> returning (void)) x -let setKeyRight x self = msg_send ~self ~cmd:(selector "setKeyRight:") ~typ:(id @-> returning (void)) x -let setKeyUp x self = msg_send ~self ~cmd:(selector "setKeyUp:") ~typ:(id @-> returning (void)) x -let setRadius x self = msg_send ~self ~cmd:(selector "setRadius:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSGameModuleLeftMouseDrag.ml b/uikit_extra/UINSGameModuleLeftMouseDrag.ml deleted file mode 100644 index 9a61404a..00000000 --- a/uikit_extra/UINSGameModuleLeftMouseDrag.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGameModuleLeftMouseDrag" - -module C = struct - let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -end - -let mouseDown x self = msg_send ~self ~cmd:(selector "mouseDown:") ~typ:(id @-> returning (void)) x -let mouseDragged x self = msg_send ~self ~cmd:(selector "mouseDragged:") ~typ:(id @-> returning (void)) x -let mouseUp x self = msg_send ~self ~cmd:(selector "mouseUp:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSGameModuleMotion.ml b/uikit_extra/UINSGameModuleMotion.ml deleted file mode 100644 index ae33f6f0..00000000 --- a/uikit_extra/UINSGameModuleMotion.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGameModuleMotion" - -let gameEventTranslator self = msg_send ~self ~cmd:(selector "gameEventTranslator") ~typ:(returning (id)) -let setGameEventTranslator x self = msg_send ~self ~cmd:(selector "setGameEventTranslator:") ~typ:(id @-> returning (void)) x -let setVirtualMotionDevice x self = msg_send ~self ~cmd:(selector "setVirtualMotionDevice:") ~typ:(id @-> returning (void)) x -let virtualMotionDevice self = msg_send ~self ~cmd:(selector "virtualMotionDevice") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSGameModuleOnboardingController.ml b/uikit_extra/UINSGameModuleOnboardingController.ml deleted file mode 100644 index 638a5df4..00000000 --- a/uikit_extra/UINSGameModuleOnboardingController.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGameModuleOnboardingController" - -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithModules x self = msg_send ~self ~cmd:(selector "initWithModules:") ~typ:(id @-> returning (id)) x -let moduleClasses self = msg_send ~self ~cmd:(selector "moduleClasses") ~typ:(returning (id)) -let okButton self = msg_send ~self ~cmd:(selector "okButton") ~typ:(returning (id)) -let setModuleClasses x self = msg_send ~self ~cmd:(selector "setModuleClasses:") ~typ:(id @-> returning (void)) x -let setOkButton x self = msg_send ~self ~cmd:(selector "setOkButton:") ~typ:(id @-> returning (void)) x -let setShowAllOnboarding x self = msg_send ~self ~cmd:(selector "setShowAllOnboarding:") ~typ:(bool @-> returning (void)) x -let setSubtitleLabel x self = msg_send ~self ~cmd:(selector "setSubtitleLabel:") ~typ:(id @-> returning (void)) x -let setTitleLabel x self = msg_send ~self ~cmd:(selector "setTitleLabel:") ~typ:(id @-> returning (void)) x -let showAllOnboarding self = msg_send ~self ~cmd:(selector "showAllOnboarding") ~typ:(returning (bool)) -let subtitleLabel self = msg_send ~self ~cmd:(selector "subtitleLabel") ~typ:(returning (id)) -let titleLabel self = msg_send ~self ~cmd:(selector "titleLabel") ~typ:(returning (id)) -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UINSGameModuleSlider.ml b/uikit_extra/UINSGameModuleSlider.ml deleted file mode 100644 index e6780885..00000000 --- a/uikit_extra/UINSGameModuleSlider.ml +++ /dev/null @@ -1,30 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGameModuleSlider" - -module C = struct - let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -end - -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithConfiguration x self = msg_send ~self ~cmd:(selector "initWithConfiguration:") ~typ:(id @-> returning (id)) x -let keyCodes self = msg_send ~self ~cmd:(selector "keyCodes") ~typ:(returning (id)) -let keyDown x self = msg_send ~self ~cmd:(selector "keyDown:") ~typ:(id @-> returning (void)) x -let keyUp x self = msg_send ~self ~cmd:(selector "keyUp:") ~typ:(id @-> returning (void)) x -let logAnalyticsPayload x self = msg_send ~self ~cmd:(selector "logAnalyticsPayload:") ~typ:(id @-> returning (void)) x -let normalizedLocationMax self = msg_send_stret ~self ~cmd:(selector "normalizedLocationMax") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let normalizedLocationMin self = msg_send_stret ~self ~cmd:(selector "normalizedLocationMin") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let setKeyCodes x self = msg_send ~self ~cmd:(selector "setKeyCodes:") ~typ:(id @-> returning (void)) x -let setNormalizedLocationMax x self = msg_send ~self ~cmd:(selector "setNormalizedLocationMax:") ~typ:(CGPoint.t @-> returning (void)) x -let setNormalizedLocationMin x self = msg_send ~self ~cmd:(selector "setNormalizedLocationMin:") ~typ:(CGPoint.t @-> returning (void)) x -let setSpeed x self = msg_send ~self ~cmd:(selector "setSpeed:") ~typ:(double @-> returning (void)) x -let speed self = msg_send ~self ~cmd:(selector "speed") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit_extra/UINSGameModuleSliderViewController.ml b/uikit_extra/UINSGameModuleSliderViewController.ml deleted file mode 100644 index 266989fe..00000000 --- a/uikit_extra/UINSGameModuleSliderViewController.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGameModuleSliderViewController" - -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let keyDecrease self = msg_send ~self ~cmd:(selector "keyDecrease") ~typ:(returning (id)) -let keyIncrease self = msg_send ~self ~cmd:(selector "keyIncrease") ~typ:(returning (id)) -let save x self = msg_send ~self ~cmd:(selector "save:") ~typ:(id @-> returning (void)) x -let setKeyDecrease x self = msg_send ~self ~cmd:(selector "setKeyDecrease:") ~typ:(id @-> returning (void)) x -let setKeyIncrease x self = msg_send ~self ~cmd:(selector "setKeyIncrease:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSGameModuleSwipe.ml b/uikit_extra/UINSGameModuleSwipe.ml deleted file mode 100644 index d05009e4..00000000 --- a/uikit_extra/UINSGameModuleSwipe.ml +++ /dev/null @@ -1,27 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGameModuleSwipe" - -module C = struct - let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -end - -let applyUserDefaults self = msg_send ~self ~cmd:(selector "applyUserDefaults") ~typ:(returning (void)) -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) -let distance self = msg_send ~self ~cmd:(selector "distance") ~typ:(returning (double)) -let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning (double)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithConfiguration x self = msg_send ~self ~cmd:(selector "initWithConfiguration:") ~typ:(id @-> returning (id)) x -let keyDown x self = msg_send ~self ~cmd:(selector "keyDown:") ~typ:(id @-> returning (void)) x -let keyUp x self = msg_send ~self ~cmd:(selector "keyUp:") ~typ:(id @-> returning (void)) x -let logAnalyticsPayload x self = msg_send ~self ~cmd:(selector "logAnalyticsPayload:") ~typ:(id @-> returning (void)) x -let normalizedLocation self = msg_send_stret ~self ~cmd:(selector "normalizedLocation") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let setDistance x self = msg_send ~self ~cmd:(selector "setDistance:") ~typ:(double @-> returning (void)) x -let setDuration x self = msg_send ~self ~cmd:(selector "setDuration:") ~typ:(double @-> returning (void)) x -let setNormalizedLocation x self = msg_send ~self ~cmd:(selector "setNormalizedLocation:") ~typ:(CGPoint.t @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSGameModuleSwipeViewController.ml b/uikit_extra/UINSGameModuleSwipeViewController.ml deleted file mode 100644 index 5af84bfa..00000000 --- a/uikit_extra/UINSGameModuleSwipeViewController.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGameModuleSwipeViewController" - -let distanceField self = msg_send ~self ~cmd:(selector "distanceField") ~typ:(returning (id)) -let durationField self = msg_send ~self ~cmd:(selector "durationField") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let save x self = msg_send ~self ~cmd:(selector "save:") ~typ:(id @-> returning (void)) x -let setDistanceField x self = msg_send ~self ~cmd:(selector "setDistanceField:") ~typ:(id @-> returning (void)) x -let setDurationField x self = msg_send ~self ~cmd:(selector "setDurationField:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSGameModuleTap.ml b/uikit_extra/UINSGameModuleTap.ml deleted file mode 100644 index b2337690..00000000 --- a/uikit_extra/UINSGameModuleTap.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGameModuleTap" - -module C = struct - let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -end - -let applyUserDefaults self = msg_send ~self ~cmd:(selector "applyUserDefaults") ~typ:(returning (void)) -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let flagsChanged x self = msg_send ~self ~cmd:(selector "flagsChanged:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithConfiguration x self = msg_send ~self ~cmd:(selector "initWithConfiguration:") ~typ:(id @-> returning (id)) x -let keyCode self = msg_send ~self ~cmd:(selector "keyCode") ~typ:(returning (llong)) -let keyDown x self = msg_send ~self ~cmd:(selector "keyDown:") ~typ:(id @-> returning (void)) x -let keyUp x self = msg_send ~self ~cmd:(selector "keyUp:") ~typ:(id @-> returning (void)) x -let logAnalyticsPayload x self = msg_send ~self ~cmd:(selector "logAnalyticsPayload:") ~typ:(id @-> returning (void)) x -let modifierFlagBit self = msg_send ~self ~cmd:(selector "modifierFlagBit") ~typ:(returning (llong)) -let normalizedLocation self = msg_send_stret ~self ~cmd:(selector "normalizedLocation") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let setKeyCode x self = msg_send ~self ~cmd:(selector "setKeyCode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setModifierFlagBit x self = msg_send ~self ~cmd:(selector "setModifierFlagBit:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setNormalizedLocation x self = msg_send ~self ~cmd:(selector "setNormalizedLocation:") ~typ:(CGPoint.t @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSGameModuleTilt.ml b/uikit_extra/UINSGameModuleTilt.ml deleted file mode 100644 index 13214aae..00000000 --- a/uikit_extra/UINSGameModuleTilt.ml +++ /dev/null @@ -1,31 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGameModuleTilt" - -module C = struct - let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -end - -let applyUserDefaults self = msg_send ~self ~cmd:(selector "applyUserDefaults") ~typ:(returning (void)) -let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithConfiguration x self = msg_send ~self ~cmd:(selector "initWithConfiguration:") ~typ:(id @-> returning (id)) x -let keyDown x self = msg_send ~self ~cmd:(selector "keyDown:") ~typ:(id @-> returning (void)) x -let keyUp x self = msg_send ~self ~cmd:(selector "keyUp:") ~typ:(id @-> returning (void)) x -let pitchMax self = msg_send ~self ~cmd:(selector "pitchMax") ~typ:(returning (double)) -let rate self = msg_send ~self ~cmd:(selector "rate") ~typ:(returning (double)) -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let sensitivity self = msg_send ~self ~cmd:(selector "sensitivity") ~typ:(returning (double)) -let setNeutralQuaternion x self = msg_send ~self ~cmd:(selector "setNeutralQuaternion:") ~typ:(ptr void @-> returning (void)) x -let setPitchMax x self = msg_send ~self ~cmd:(selector "setPitchMax:") ~typ:(double @-> returning (void)) x -let setRate x self = msg_send ~self ~cmd:(selector "setRate:") ~typ:(double @-> returning (void)) x -let setSensitivity x self = msg_send ~self ~cmd:(selector "setSensitivity:") ~typ:(double @-> returning (void)) x -let setVirtualMotionDevice x self = msg_send ~self ~cmd:(selector "setVirtualMotionDevice:") ~typ:(id @-> returning (void)) x -let setYawMax x self = msg_send ~self ~cmd:(selector "setYawMax:") ~typ:(double @-> returning (void)) x -let yawMax self = msg_send ~self ~cmd:(selector "yawMax") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit_extra/UINSGameModuleTiltViewController.ml b/uikit_extra/UINSGameModuleTiltViewController.ml deleted file mode 100644 index 86614837..00000000 --- a/uikit_extra/UINSGameModuleTiltViewController.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGameModuleTiltViewController" - -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let neutralLabel self = msg_send ~self ~cmd:(selector "neutralLabel") ~typ:(returning (id)) -let neutralSlider self = msg_send ~self ~cmd:(selector "neutralSlider") ~typ:(returning (id)) -let neutralSliderChanged x self = msg_send ~self ~cmd:(selector "neutralSliderChanged:") ~typ:(id @-> returning (void)) x -let sensitivityChanged x self = msg_send ~self ~cmd:(selector "sensitivityChanged:") ~typ:(id @-> returning (void)) x -let sensitivitySlider self = msg_send ~self ~cmd:(selector "sensitivitySlider") ~typ:(returning (id)) -let setNeutralLabel x self = msg_send ~self ~cmd:(selector "setNeutralLabel:") ~typ:(id @-> returning (void)) x -let setNeutralSlider x self = msg_send ~self ~cmd:(selector "setNeutralSlider:") ~typ:(id @-> returning (void)) x -let setSensitivitySlider x self = msg_send ~self ~cmd:(selector "setSensitivitySlider:") ~typ:(id @-> returning (void)) x -let setYawRangeSlider x self = msg_send ~self ~cmd:(selector "setYawRangeSlider:") ~typ:(id @-> returning (void)) x -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let yawMaxChanged x self = msg_send ~self ~cmd:(selector "yawMaxChanged:") ~typ:(id @-> returning (void)) x -let yawRangeSlider self = msg_send ~self ~cmd:(selector "yawRangeSlider") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSGameModuleTrackpadCapture.ml b/uikit_extra/UINSGameModuleTrackpadCapture.ml deleted file mode 100644 index 300e3547..00000000 --- a/uikit_extra/UINSGameModuleTrackpadCapture.ml +++ /dev/null @@ -1,25 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGameModuleTrackpadCapture" - -module C = struct - let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -end - -let applyUserDefaults self = msg_send ~self ~cmd:(selector "applyUserDefaults") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let flagsChanged x self = msg_send ~self ~cmd:(selector "flagsChanged:") ~typ:(id @-> returning (void)) x -let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning (void)) -let setTouchVisualizer x self = msg_send ~self ~cmd:(selector "setTouchVisualizer:") ~typ:(id @-> returning (void)) x -let touchVisualizer self = msg_send ~self ~cmd:(selector "touchVisualizer") ~typ:(returning (id)) -let touchesBeganWithEvent x self = msg_send ~self ~cmd:(selector "touchesBeganWithEvent:") ~typ:(id @-> returning (void)) x -let touchesCancelledWithEvent x self = msg_send ~self ~cmd:(selector "touchesCancelledWithEvent:") ~typ:(id @-> returning (void)) x -let touchesEndedWithEvent x self = msg_send ~self ~cmd:(selector "touchesEndedWithEvent:") ~typ:(id @-> returning (void)) x -let touchesMovedWithEvent x self = msg_send ~self ~cmd:(selector "touchesMovedWithEvent:") ~typ:(id @-> returning (void)) x -let wantsRestingTouches self = msg_send ~self ~cmd:(selector "wantsRestingTouches") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UINSGraphicsContext.ml b/uikit_extra/UINSGraphicsContext.ml deleted file mode 100644 index ce9632af..00000000 --- a/uikit_extra/UINSGraphicsContext.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGraphicsContext" - -let auxInfo self = msg_send ~self ~cmd:(selector "auxInfo") ~typ:(returning (ptr (void))) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithCGContext x ~type_ ~auxInfo self = msg_send ~self ~cmd:(selector "initWithCGContext:type:auxInfo:") ~typ:(id @-> int @-> ptr (void) @-> returning (id)) x type_ auxInfo -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (int)) \ No newline at end of file diff --git a/uikit_extra/UINSGraphicsContextStack.ml b/uikit_extra/UINSGraphicsContextStack.ml deleted file mode 100644 index 2c962d32..00000000 --- a/uikit_extra/UINSGraphicsContextStack.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSGraphicsContextStack" - -module C = struct - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end - -let currentContextIsFlipped self = msg_send ~self ~cmd:(selector "currentContextIsFlipped") ~typ:(returning (bool)) -let getCurrentContext x ~type_ ~auxInfo self = msg_send ~self ~cmd:(selector "getCurrentContext:type:auxInfo:") ~typ:(ptr (ptr void) @-> ptr (int) @-> ptr (ptr (void)) @-> returning (bool)) x type_ auxInfo -let popContext self = msg_send ~self ~cmd:(selector "popContext") ~typ:(returning (void)) -let pushContext x ~type_ ~auxInfo self = msg_send ~self ~cmd:(selector "pushContext:type:auxInfo:") ~typ:(id @-> int @-> ptr (void) @-> returning (void)) x type_ auxInfo \ No newline at end of file diff --git a/uikit_extra/UINSHidManager.ml b/uikit_extra/UINSHidManager.ml deleted file mode 100644 index 9519ea4a..00000000 --- a/uikit_extra/UINSHidManager.ml +++ /dev/null @@ -1,25 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSHidManager" - -module C = struct - let sharedHidManager self = msg_send ~self ~cmd:(selector "sharedHidManager") ~typ:(returning (id)) -end - -let doubleClickInterval self = msg_send ~self ~cmd:(selector "doubleClickInterval") ~typ:(returning (double)) -let enqueueHidEvent x ~forSceneView self = msg_send ~self ~cmd:(selector "enqueueHidEvent:forSceneView:") ~typ:(ptr void @-> id @-> returning (void)) x forSceneView -let forceClickPerformsQuickLook self = msg_send ~self ~cmd:(selector "forceClickPerformsQuickLook") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let pingHandler self = msg_send ~self ~cmd:(selector "pingHandler") ~typ:(returning (ptr void)) -let pullNextEventFromQueue self = msg_send ~self ~cmd:(selector "pullNextEventFromQueue") ~typ:(returning (ptr void)) -let queuedEvents self = msg_send ~self ~cmd:(selector "queuedEvents") ~typ:(returning (id)) -let registerEventPingHandler x self = msg_send ~self ~cmd:(selector "registerEventPingHandler:") ~typ:(ptr void @-> returning (void)) x -let setPingHandler x self = msg_send ~self ~cmd:(selector "setPingHandler:") ~typ:(ptr void @-> returning (void)) x -let setQueuedEvents x self = msg_send ~self ~cmd:(selector "setQueuedEvents:") ~typ:(id @-> returning (void)) x -let settings self = msg_send ~self ~cmd:(selector "settings") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSHostMenu.ml b/uikit_extra/UINSHostMenu.ml deleted file mode 100644 index 2e9f686e..00000000 --- a/uikit_extra/UINSHostMenu.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSHostMenu" - -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithProxy x self = msg_send ~self ~cmd:(selector "initWithProxy:") ~typ:(id @-> returning (id)) x -let proxyMenu self = msg_send ~self ~cmd:(selector "proxyMenu") ~typ:(returning (id)) -let setProxyMenu x self = msg_send ~self ~cmd:(selector "setProxyMenu:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSHostedUIWindowRegistry.ml b/uikit_extra/UINSHostedUIWindowRegistry.ml deleted file mode 100644 index ac0a93f8..00000000 --- a/uikit_extra/UINSHostedUIWindowRegistry.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSHostedUIWindowRegistry" - -module C = struct - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end - -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let registerWindow x ~forExtensionIdentifier self = msg_send ~self ~cmd:(selector "registerWindow:forExtensionIdentifier:") ~typ:(id @-> id @-> returning (void)) x forExtensionIdentifier -let registeredWindowSceneWithSceneIdentifier x self = msg_send ~self ~cmd:(selector "registeredWindowSceneWithSceneIdentifier:") ~typ:(id @-> returning (id)) x -let unregisterWindowForExtensionIdentifier x self = msg_send ~self ~cmd:(selector "unregisterWindowForExtensionIdentifier:") ~typ:(id @-> returning (void)) x -let windowWithExtensionIdentifier x self = msg_send ~self ~cmd:(selector "windowWithExtensionIdentifier:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit_extra/UINSInputAlternativesEducationViewController.ml b/uikit_extra/UINSInputAlternativesEducationViewController.ml deleted file mode 100644 index 099fbdc1..00000000 --- a/uikit_extra/UINSInputAlternativesEducationViewController.ml +++ /dev/null @@ -1,28 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSInputAlternativesEducationViewController" - -let addOnboardingWithName x ~title ~description ~guideLayer ~rightAlign self = msg_send ~self ~cmd:(selector "addOnboardingWithName:title:description:guideLayer:rightAlign:") ~typ:(id @-> id @-> id @-> id @-> bool @-> returning (void)) x title description guideLayer rightAlign -let attachedPointingDeviceString self = msg_send ~self ~cmd:(selector "attachedPointingDeviceString") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithModules x self = msg_send ~self ~cmd:(selector "initWithModules:") ~typ:(id @-> returning (id)) x -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let keyboardLayoutName self = msg_send ~self ~cmd:(selector "keyboardLayoutName") ~typ:(returning (id)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let moduleClasses self = msg_send ~self ~cmd:(selector "moduleClasses") ~typ:(returning (id)) -let onboardingAssetsFileName self = msg_send ~self ~cmd:(selector "onboardingAssetsFileName") ~typ:(returning (id)) -let refreshDisplayedOnboarding self = msg_send ~self ~cmd:(selector "refreshDisplayedOnboarding") ~typ:(returning (void)) -let refreshEnabledOnboarding self = msg_send ~self ~cmd:(selector "refreshEnabledOnboarding") ~typ:(returning (void)) -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setModuleClasses x self = msg_send ~self ~cmd:(selector "setModuleClasses:") ~typ:(id @-> returning (void)) x -let setShowAllOnboarding x self = msg_send ~self ~cmd:(selector "setShowAllOnboarding:") ~typ:(bool @-> returning (void)) x -let setupOnboardingViews self = msg_send ~self ~cmd:(selector "setupOnboardingViews") ~typ:(returning (void)) -let showAllOnboarding self = msg_send ~self ~cmd:(selector "showAllOnboarding") ~typ:(returning (bool)) -let toggleVisibility x self = msg_send ~self ~cmd:(selector "toggleVisibility:") ~typ:(id @-> returning (void)) x -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UINSInputView.ml b/uikit_extra/UINSInputView.ml deleted file mode 100644 index 4aee937e..00000000 --- a/uikit_extra/UINSInputView.ml +++ /dev/null @@ -1,125 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSInputView" - -let acceptKeyViewHandoff x self = msg_send ~self ~cmd:(selector "acceptKeyViewHandoff:") ~typ:(bool @-> returning (bool)) x -let acceptsFirstMouse x self = msg_send ~self ~cmd:(selector "acceptsFirstMouse:") ~typ:(id @-> returning (bool)) x -let acceptsFirstResponder self = msg_send ~self ~cmd:(selector "acceptsFirstResponder") ~typ:(returning (bool)) -let accessibilityFocusRingMaskBounds self = msg_send_stret ~self ~cmd:(selector "accessibilityFocusRingMaskBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let accessibilityHitTest x self = msg_send ~self ~cmd:(selector "accessibilityHitTest:") ~typ:(CGPoint.t @-> returning (id)) x -let addLinksInSelection x self = msg_send ~self ~cmd:(selector "addLinksInSelection:") ~typ:(id @-> returning (void)) x -let attributedSubstringForProposedRange x ~actualRange self = msg_send ~self ~cmd:(selector "attributedSubstringForProposedRange:actualRange:") ~typ:(NSRange.t @-> ptr (NSRange.t) @-> returning (id)) x actualRange -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let cancelOutstandingUserInput self = msg_send ~self ~cmd:(selector "cancelOutstandingUserInput") ~typ:(returning (bool)) -let capitalizeWord x self = msg_send ~self ~cmd:(selector "capitalizeWord:") ~typ:(id @-> returning (void)) x -let changeAttributes x self = msg_send ~self ~cmd:(selector "changeAttributes:") ~typ:(id @-> returning (void)) x -let changeColor x self = msg_send ~self ~cmd:(selector "changeColor:") ~typ:(id @-> returning (void)) x -let changeFont x self = msg_send ~self ~cmd:(selector "changeFont:") ~typ:(id @-> returning (void)) x -let characterIndexForPoint x self = msg_send ~self ~cmd:(selector "characterIndexForPoint:") ~typ:(CGPoint.t @-> returning (ullong)) x -let checkSpelling x self = msg_send ~self ~cmd:(selector "checkSpelling:") ~typ:(id @-> returning (void)) x -let convertPointToUnitCoordinates x self = msg_send_stret ~self ~cmd:(selector "convertPointToUnitCoordinates:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertRectFromUnitCoordinates x self = msg_send_stret ~self ~cmd:(selector "convertRectFromUnitCoordinates:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let convertToFullWidth x self = msg_send ~self ~cmd:(selector "convertToFullWidth:") ~typ:(id @-> returning (void)) x -let convertToHalfWidth x self = msg_send ~self ~cmd:(selector "convertToHalfWidth:") ~typ:(id @-> returning (void)) x -let convertToSimplifiedChinese x self = msg_send ~self ~cmd:(selector "convertToSimplifiedChinese:") ~typ:(id @-> returning (void)) x -let convertToTraditionalChinese x self = msg_send ~self ~cmd:(selector "convertToTraditionalChinese:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deleteBackward x self = msg_send ~self ~cmd:(selector "deleteBackward:") ~typ:(id @-> returning (void)) x -let discardMarkedText self = msg_send ~self ~cmd:(selector "discardMarkedText") ~typ:(returning (void)) -let doCommandBySelector x self = msg_send ~self ~cmd:(selector "doCommandBySelector:") ~typ:(_SEL @-> returning (void)) x -let firstRectForCharacterRange x ~actualRange self = msg_send_stret ~self ~cmd:(selector "firstRectForCharacterRange:actualRange:") ~typ:(NSRange.t @-> ptr (NSRange.t) @-> returning (CGRect.t)) ~return_type:CGRect.t x actualRange -let flagsChanged x self = msg_send ~self ~cmd:(selector "flagsChanged:") ~typ:(id @-> returning (void)) x -let focusRingType self = msg_send ~self ~cmd:(selector "focusRingType") ~typ:(returning (ullong)) -let forwardDraggingEnded x self = msg_send ~self ~cmd:(selector "forwardDraggingEnded:") ~typ:(id @-> returning (void)) x -let forwardDraggingEntered x self = msg_send ~self ~cmd:(selector "forwardDraggingEntered:") ~typ:(id @-> returning (ullong)) x -let forwardDraggingExited x self = msg_send ~self ~cmd:(selector "forwardDraggingExited:") ~typ:(id @-> returning (void)) x -let forwardDraggingUpdated x self = msg_send ~self ~cmd:(selector "forwardDraggingUpdated:") ~typ:(id @-> returning (ullong)) x -let forwardPerformDragOperation x self = msg_send ~self ~cmd:(selector "forwardPerformDragOperation:") ~typ:(id @-> returning (bool)) x -let forwardPrepareForDragOperation x self = msg_send ~self ~cmd:(selector "forwardPrepareForDragOperation:") ~typ:(id @-> returning (void)) x -let forwardUINSEventToAppKit x self = msg_send ~self ~cmd:(selector "forwardUINSEventToAppKit:") ~typ:(id @-> returning (void)) x -let handleEventByInputContext x self = msg_send ~self ~cmd:(selector "handleEventByInputContext:") ~typ:(id @-> returning (bool)) x -let handleEventByInputMethod x self = msg_send ~self ~cmd:(selector "handleEventByInputMethod:") ~typ:(id @-> returning (bool)) x -let hasMarkedText self = msg_send ~self ~cmd:(selector "hasMarkedText") ~typ:(returning (bool)) -let hostEnterExitEventWithType x ~sceneLocation self = msg_send ~self ~cmd:(selector "hostEnterExitEventWithType:sceneLocation:") ~typ:(ullong @-> CGPoint.t @-> returning (id)) (ULLong.of_int x) sceneLocation -let hostEventsFromHIDEvent x self = msg_send ~self ~cmd:(selector "hostEventsFromHIDEvent:") ~typ:(ptr void @-> returning (id)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let insertText x ~replacementRange self = msg_send ~self ~cmd:(selector "insertText:replacementRange:") ~typ:(id @-> NSRange.t @-> returning (void)) x replacementRange -let isOpaque self = msg_send ~self ~cmd:(selector "isOpaque") ~typ:(returning (bool)) -let keyDown x self = msg_send ~self ~cmd:(selector "keyDown:") ~typ:(id @-> returning (void)) x -let keyUp x self = msg_send ~self ~cmd:(selector "keyUp:") ~typ:(id @-> returning (void)) x -let lowercaseWord x self = msg_send ~self ~cmd:(selector "lowercaseWord:") ~typ:(id @-> returning (void)) x -let magnifyWithEvent x self = msg_send ~self ~cmd:(selector "magnifyWithEvent:") ~typ:(id @-> returning (void)) x -let markedRange self = msg_send_stret ~self ~cmd:(selector "markedRange") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let mouseDown x self = msg_send ~self ~cmd:(selector "mouseDown:") ~typ:(id @-> returning (void)) x -let mouseDragged x self = msg_send ~self ~cmd:(selector "mouseDragged:") ~typ:(id @-> returning (void)) x -let mouseEntered x self = msg_send ~self ~cmd:(selector "mouseEntered:") ~typ:(id @-> returning (void)) x -let mouseExited x self = msg_send ~self ~cmd:(selector "mouseExited:") ~typ:(id @-> returning (void)) x -let mouseMoved x self = msg_send ~self ~cmd:(selector "mouseMoved:") ~typ:(id @-> returning (void)) x -let mouseUp x self = msg_send ~self ~cmd:(selector "mouseUp:") ~typ:(id @-> returning (void)) x -let moveDown x self = msg_send ~self ~cmd:(selector "moveDown:") ~typ:(id @-> returning (void)) x -let moveLeft x self = msg_send ~self ~cmd:(selector "moveLeft:") ~typ:(id @-> returning (void)) x -let moveRight x self = msg_send ~self ~cmd:(selector "moveRight:") ~typ:(id @-> returning (void)) x -let moveUp x self = msg_send ~self ~cmd:(selector "moveUp:") ~typ:(id @-> returning (void)) x -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let orderFrontSubstitutionsPanel x self = msg_send ~self ~cmd:(selector "orderFrontSubstitutionsPanel:") ~typ:(id @-> returning (void)) x -let performClick x self = msg_send ~self ~cmd:(selector "performClick:") ~typ:(id @-> returning (void)) x -let performDefaultBehaviorForEvent x self = msg_send ~self ~cmd:(selector "performDefaultBehaviorForEvent:") ~typ:(id @-> returning (bool)) x -let performKeyEquivalent x self = msg_send ~self ~cmd:(selector "performKeyEquivalent:") ~typ:(id @-> returning (bool)) x -let pressureChangeWithEvent x self = msg_send ~self ~cmd:(selector "pressureChangeWithEvent:") ~typ:(id @-> returning (void)) x -let quickLookWithEvent x self = msg_send ~self ~cmd:(selector "quickLookWithEvent:") ~typ:(id @-> returning (void)) x -let readSelectionFromPasteboard x self = msg_send ~self ~cmd:(selector "readSelectionFromPasteboard:") ~typ:(id @-> returning (bool)) x -let replaceDashesInSelection x self = msg_send ~self ~cmd:(selector "replaceDashesInSelection:") ~typ:(id @-> returning (void)) x -let replaceQuotesInSelection x self = msg_send ~self ~cmd:(selector "replaceQuotesInSelection:") ~typ:(id @-> returning (void)) x -let replaceTextInSelection x self = msg_send ~self ~cmd:(selector "replaceTextInSelection:") ~typ:(id @-> returning (void)) x -let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning (bool)) -let rightMouseDown x self = msg_send ~self ~cmd:(selector "rightMouseDown:") ~typ:(id @-> returning (void)) x -let rightMouseDragged x self = msg_send ~self ~cmd:(selector "rightMouseDragged:") ~typ:(id @-> returning (void)) x -let rightMouseUp x self = msg_send ~self ~cmd:(selector "rightMouseUp:") ~typ:(id @-> returning (void)) x -let rotateWithEvent x self = msg_send ~self ~cmd:(selector "rotateWithEvent:") ~typ:(id @-> returning (void)) x -let sceneView self = msg_send ~self ~cmd:(selector "sceneView") ~typ:(returning (id)) -let screenRect self = msg_send_stret ~self ~cmd:(selector "screenRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let scrollPageDown x self = msg_send ~self ~cmd:(selector "scrollPageDown:") ~typ:(id @-> returning (void)) x -let scrollPageUp x self = msg_send ~self ~cmd:(selector "scrollPageUp:") ~typ:(id @-> returning (void)) x -let scrollToBeginningOfDocument x self = msg_send ~self ~cmd:(selector "scrollToBeginningOfDocument:") ~typ:(id @-> returning (void)) x -let scrollToEndOfDocument x self = msg_send ~self ~cmd:(selector "scrollToEndOfDocument:") ~typ:(id @-> returning (void)) x -let scrollWheel x self = msg_send ~self ~cmd:(selector "scrollWheel:") ~typ:(id @-> returning (void)) x -let selectNextKeyView x self = msg_send ~self ~cmd:(selector "selectNextKeyView:") ~typ:(id @-> returning (void)) x -let selectPreviousKeyView x self = msg_send ~self ~cmd:(selector "selectPreviousKeyView:") ~typ:(id @-> returning (void)) x -let selectedRange self = msg_send_stret ~self ~cmd:(selector "selectedRange") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let setMarkedText x ~selectedRange ~replacementRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:replacementRange:") ~typ:(id @-> NSRange.t @-> NSRange.t @-> returning (void)) x selectedRange replacementRange -let setSceneView x self = msg_send ~self ~cmd:(selector "setSceneView:") ~typ:(id @-> returning (void)) x -let showGuessPanel x self = msg_send ~self ~cmd:(selector "showGuessPanel:") ~typ:(id @-> returning (void)) x -let showTouchAlternativesOverlay x self = msg_send ~self ~cmd:(selector "showTouchAlternativesOverlay:") ~typ:(id @-> returning (void)) x -let startSpeaking x self = msg_send ~self ~cmd:(selector "startSpeaking:") ~typ:(id @-> returning (void)) x -let stopSpeaking x self = msg_send ~self ~cmd:(selector "stopSpeaking:") ~typ:(id @-> returning (void)) x -let supplementalTargetForAction x ~sender self = msg_send ~self ~cmd:(selector "supplementalTargetForAction:sender:") ~typ:(_SEL @-> id @-> returning (id)) x sender -let tabletPoint x self = msg_send ~self ~cmd:(selector "tabletPoint:") ~typ:(id @-> returning (void)) x -let toggleAutomaticDashSubstitution x self = msg_send ~self ~cmd:(selector "toggleAutomaticDashSubstitution:") ~typ:(id @-> returning (void)) x -let toggleAutomaticLinkDetection x self = msg_send ~self ~cmd:(selector "toggleAutomaticLinkDetection:") ~typ:(id @-> returning (void)) x -let toggleAutomaticQuoteSubstitution x self = msg_send ~self ~cmd:(selector "toggleAutomaticQuoteSubstitution:") ~typ:(id @-> returning (void)) x -let toggleAutomaticSpellingCorrection x self = msg_send ~self ~cmd:(selector "toggleAutomaticSpellingCorrection:") ~typ:(id @-> returning (void)) x -let toggleAutomaticTextReplacement x self = msg_send ~self ~cmd:(selector "toggleAutomaticTextReplacement:") ~typ:(id @-> returning (void)) x -let toggleContinuousSpellChecking x self = msg_send ~self ~cmd:(selector "toggleContinuousSpellChecking:") ~typ:(id @-> returning (void)) x -let toggleGrammarChecking x self = msg_send ~self ~cmd:(selector "toggleGrammarChecking:") ~typ:(id @-> returning (void)) x -let touchesBeganWithEvent x self = msg_send ~self ~cmd:(selector "touchesBeganWithEvent:") ~typ:(id @-> returning (void)) x -let touchesCancelledWithEvent x self = msg_send ~self ~cmd:(selector "touchesCancelledWithEvent:") ~typ:(id @-> returning (void)) x -let touchesEndedWithEvent x self = msg_send ~self ~cmd:(selector "touchesEndedWithEvent:") ~typ:(id @-> returning (void)) x -let touchesMovedWithEvent x self = msg_send ~self ~cmd:(selector "touchesMovedWithEvent:") ~typ:(id @-> returning (void)) x -let translateWithEvent x self = msg_send ~self ~cmd:(selector "translateWithEvent:") ~typ:(id @-> returning (void)) x -let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning (void)) -let uppercaseWord x self = msg_send ~self ~cmd:(selector "uppercaseWord:") ~typ:(id @-> returning (void)) x -let userDefaultsChanged self = msg_send ~self ~cmd:(selector "userDefaultsChanged") ~typ:(returning (void)) -let validAttributesForMarkedText self = msg_send ~self ~cmd:(selector "validAttributesForMarkedText") ~typ:(returning (id)) -let validRequestorForSendType x ~returnType self = msg_send ~self ~cmd:(selector "validRequestorForSendType:returnType:") ~typ:(id @-> id @-> returning (id)) x returnType -let validateMenuItem x self = msg_send ~self ~cmd:(selector "validateMenuItem:") ~typ:(id @-> returning (bool)) x -let viewDidMoveToWindow self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow") ~typ:(returning (void)) -let wantsRestingTouches self = msg_send ~self ~cmd:(selector "wantsRestingTouches") ~typ:(returning (bool)) -let windowLevel self = msg_send ~self ~cmd:(selector "windowLevel") ~typ:(returning (llong)) -let writeSelectionToPasteboard x ~types self = msg_send ~self ~cmd:(selector "writeSelectionToPasteboard:types:") ~typ:(id @-> id @-> returning (bool)) x types \ No newline at end of file diff --git a/uikit_extra/UINSKeyCodeTextField.ml b/uikit_extra/UINSKeyCodeTextField.ml deleted file mode 100644 index d59d6f04..00000000 --- a/uikit_extra/UINSKeyCodeTextField.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSKeyCodeTextField" - -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let keyDown x self = msg_send ~self ~cmd:(selector "keyDown:") ~typ:(id @-> returning (void)) x -let mouseDown x self = msg_send ~self ~cmd:(selector "mouseDown:") ~typ:(id @-> returning (void)) x -let objectValue self = msg_send ~self ~cmd:(selector "objectValue") ~typ:(returning (id)) -let setObjectValue x self = msg_send ~self ~cmd:(selector "setObjectValue:") ~typ:(id @-> returning (void)) x -let string_ self = msg_send ~self ~cmd:(selector "string") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSLabelToolbarItem.ml b/uikit_extra/UINSLabelToolbarItem.ml deleted file mode 100644 index dfe24016..00000000 --- a/uikit_extra/UINSLabelToolbarItem.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSLabelToolbarItem" - -let initWithIdentifier x self = msg_send ~self ~cmd:(selector "initWithIdentifier:") ~typ:(id @-> returning (id)) x -let prepareItem self = msg_send ~self ~cmd:(selector "prepareItem") ~typ:(returning (void)) -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSLifecycleWatchdog.ml b/uikit_extra/UINSLifecycleWatchdog.ml deleted file mode 100644 index 7614b4c1..00000000 --- a/uikit_extra/UINSLifecycleWatchdog.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSLifecycleWatchdog" - -let cancelWatchdog self = msg_send ~self ~cmd:(selector "cancelWatchdog") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let initWithStateIdentifier x ~andTimeout self = msg_send ~self ~cmd:(selector "initWithStateIdentifier:andTimeout:") ~typ:(llong @-> double @-> returning (id)) (LLong.of_int x) andTimeout -let innerWatchdog self = msg_send ~self ~cmd:(selector "innerWatchdog") ~typ:(returning (id)) -let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning (id)) -let setInnerWatchdog x self = msg_send ~self ~cmd:(selector "setInnerWatchdog:") ~typ:(id @-> returning (void)) x -let setName x self = msg_send ~self ~cmd:(selector "setName:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSMenu.ml b/uikit_extra/UINSMenu.ml deleted file mode 100644 index 08299d17..00000000 --- a/uikit_extra/UINSMenu.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSMenu" - -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let items self = msg_send ~self ~cmd:(selector "items") ~typ:(returning (id)) -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let setItems x self = msg_send ~self ~cmd:(selector "setItems:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit_extra/UINSMenuController.ml b/uikit_extra/UINSMenuController.ml deleted file mode 100644 index 6bbb6786..00000000 --- a/uikit_extra/UINSMenuController.ml +++ /dev/null @@ -1,42 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSMenuController" - -module C = struct - let sharedMenuController self = msg_send ~self ~cmd:(selector "sharedMenuController") ~typ:(returning (id)) -end - -let contextMenuDidClose self = msg_send ~self ~cmd:(selector "contextMenuDidClose") ~typ:(returning (ptr void)) -let currentContextMenu self = msg_send ~self ~cmd:(selector "currentContextMenu") ~typ:(returning (id)) -let dismissCurrentContextMenuAnimated x self = msg_send ~self ~cmd:(selector "dismissCurrentContextMenuAnimated:") ~typ:(bool @-> returning (void)) x -let location self = msg_send_stret ~self ~cmd:(selector "location") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let maximumRecentItemsCount self = msg_send ~self ~cmd:(selector "maximumRecentItemsCount") ~typ:(returning (llong)) -let menuDidClose x self = msg_send ~self ~cmd:(selector "menuDidClose:") ~typ:(id @-> returning (void)) x -let menuWillAppear self = msg_send ~self ~cmd:(selector "menuWillAppear") ~typ:(returning (ptr void)) -let menuWillOpen x self = msg_send ~self ~cmd:(selector "menuWillOpen:") ~typ:(id @-> returning (void)) x -let noteNewRecentDocumentURL x self = msg_send ~self ~cmd:(selector "noteNewRecentDocumentURL:") ~typ:(id @-> returning (void)) x -let performItemAction self = msg_send ~self ~cmd:(selector "performItemAction") ~typ:(returning (ptr void)) -let rebuildMenu x self = msg_send ~self ~cmd:(selector "rebuildMenu:") ~typ:(id @-> returning (void)) x -let recentItemsController self = msg_send ~self ~cmd:(selector "recentItemsController") ~typ:(returning (id)) -let replaceItemsInCurrentContextMenuWithItems x self = msg_send ~self ~cmd:(selector "replaceItemsInCurrentContextMenuWithItems:") ~typ:(id @-> returning (void)) x -let setContextMenuDidClose x self = msg_send ~self ~cmd:(selector "setContextMenuDidClose:") ~typ:(ptr void @-> returning (void)) x -let setLocation x self = msg_send ~self ~cmd:(selector "setLocation:") ~typ:(CGPoint.t @-> returning (void)) x -let setMainMenuBar x self = msg_send ~self ~cmd:(selector "setMainMenuBar:") ~typ:(id @-> returning (void)) x -let setMenuWillAppear x self = msg_send ~self ~cmd:(selector "setMenuWillAppear:") ~typ:(ptr void @-> returning (void)) x -let setPerformItemAction x self = msg_send ~self ~cmd:(selector "setPerformItemAction:") ~typ:(ptr void @-> returning (void)) x -let setRecentItemsController x self = msg_send ~self ~cmd:(selector "setRecentItemsController:") ~typ:(id @-> returning (void)) x -let setValidateItem x self = msg_send ~self ~cmd:(selector "setValidateItem:") ~typ:(ptr void @-> returning (void)) x -let sharingServicePicker x ~didChooseSharingService self = msg_send ~self ~cmd:(selector "sharingServicePicker:didChooseSharingService:") ~typ:(id @-> id @-> returning (void)) x didChooseSharingService -let sharingServicePicker' x ~sharingServicesForItems ~proposedSharingServices self = msg_send ~self ~cmd:(selector "sharingServicePicker:sharingServicesForItems:proposedSharingServices:") ~typ:(id @-> id @-> id @-> returning (id)) x sharingServicesForItems proposedSharingServices -let showContextMenu x ~inWindow ~atLocationInWindow ~activityItemsConfiguration self = msg_send ~self ~cmd:(selector "showContextMenu:inWindow:atLocationInWindow:activityItemsConfiguration:") ~typ:(id @-> id @-> CGPoint.t @-> id @-> returning (void)) x inWindow atLocationInWindow activityItemsConfiguration -let showDropdownMenu x ~fromControlRect ~inWindow ~attachmentEdge ~alignmentEdge ~activityItemsConfiguration self = msg_send ~self ~cmd:(selector "showDropdownMenu:fromControlRect:inWindow:attachmentEdge:alignmentEdge:activityItemsConfiguration:") ~typ:(id @-> CGRect.t @-> id @-> ullong @-> ullong @-> id @-> returning (void)) x fromControlRect inWindow (ULLong.of_int attachmentEdge) (ULLong.of_int alignmentEdge) activityItemsConfiguration -let showSharingMenuInNSWindow x ~atLocationInWindow ~activityItemsConfiguration self = msg_send ~self ~cmd:(selector "showSharingMenuInNSWindow:atLocationInWindow:activityItemsConfiguration:") ~typ:(id @-> CGPoint.t @-> id @-> returning (void)) x atLocationInWindow activityItemsConfiguration -let validateItem self = msg_send ~self ~cmd:(selector "validateItem") ~typ:(returning (ptr void)) -let validateMenuItem x self = msg_send ~self ~cmd:(selector "validateMenuItem:") ~typ:(id @-> returning (bool)) x -let validateMenuItem' x ~proxyItem self = msg_send ~self ~cmd:(selector "validateMenuItem:proxyItem:") ~typ:(id @-> id @-> returning (bool)) x proxyItem \ No newline at end of file diff --git a/uikit_extra/UINSMenuItem.ml b/uikit_extra/UINSMenuItem.ml deleted file mode 100644 index 31827048..00000000 --- a/uikit_extra/UINSMenuItem.ml +++ /dev/null @@ -1,51 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSMenuItem" - -module C = struct - let separatorItem self = msg_send ~self ~cmd:(selector "separatorItem") ~typ:(returning (id)) -end - -let actionName self = msg_send ~self ~cmd:(selector "actionName") ~typ:(returning (id)) -let initialTarget self = msg_send ~self ~cmd:(selector "initialTarget") ~typ:(returning (id)) -let initialTargetWasNonNil self = msg_send ~self ~cmd:(selector "initialTargetWasNonNil") ~typ:(returning (bool)) -let isAlternate self = msg_send ~self ~cmd:(selector "isAlternate") ~typ:(returning (bool)) -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let isReplacedBySubmenuItems self = msg_send ~self ~cmd:(selector "isReplacedBySubmenuItems") ~typ:(returning (bool)) -let isSeparatorItem self = msg_send ~self ~cmd:(selector "isSeparatorItem") ~typ:(returning (bool)) -let keyEquivalent self = msg_send ~self ~cmd:(selector "keyEquivalent") ~typ:(returning (id)) -let keyEquivalentModifiers self = msg_send ~self ~cmd:(selector "keyEquivalentModifiers") ~typ:(returning (ullong)) -let parentMenu self = msg_send ~self ~cmd:(selector "parentMenu") ~typ:(returning (id)) -let properties self = msg_send ~self ~cmd:(selector "properties") ~typ:(returning (id)) -let rvHighlighter self = msg_send ~self ~cmd:(selector "rvHighlighter") ~typ:(returning (id)) -let rvItem self = msg_send ~self ~cmd:(selector "rvItem") ~typ:(returning (id)) -let setActionName x self = msg_send ~self ~cmd:(selector "setActionName:") ~typ:(id @-> returning (void)) x -let setAlternate x self = msg_send ~self ~cmd:(selector "setAlternate:") ~typ:(bool @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setInitialTarget x self = msg_send ~self ~cmd:(selector "setInitialTarget:") ~typ:(id @-> returning (void)) x -let setKeyEquivalent x self = msg_send ~self ~cmd:(selector "setKeyEquivalent:") ~typ:(id @-> returning (void)) x -let setKeyEquivalentModifiers x self = msg_send ~self ~cmd:(selector "setKeyEquivalentModifiers:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setParentMenu x self = msg_send ~self ~cmd:(selector "setParentMenu:") ~typ:(id @-> returning (void)) x -let setReplacedBySubmenuItems x self = msg_send ~self ~cmd:(selector "setReplacedBySubmenuItems:") ~typ:(bool @-> returning (void)) x -let setRvHighlighter x self = msg_send ~self ~cmd:(selector "setRvHighlighter:") ~typ:(id @-> returning (void)) x -let setRvItem x self = msg_send ~self ~cmd:(selector "setRvItem:") ~typ:(id @-> returning (void)) x -let setSeparatorItem x self = msg_send ~self ~cmd:(selector "setSeparatorItem:") ~typ:(bool @-> returning (void)) x -let setSourceUIMenuElement x self = msg_send ~self ~cmd:(selector "setSourceUIMenuElement:") ~typ:(id @-> returning (void)) x -let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSubmenu x self = msg_send ~self ~cmd:(selector "setSubmenu:") ~typ:(id @-> returning (void)) x -let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let sourceUIMenuElement self = msg_send ~self ~cmd:(selector "sourceUIMenuElement") ~typ:(returning (id)) -let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning (llong)) -let submenu self = msg_send ~self ~cmd:(selector "submenu") ~typ:(returning (id)) -let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning (id)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) -let validatedProperties self = msg_send ~self ~cmd:(selector "validatedProperties") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSMouseEventTranslator.ml b/uikit_extra/UINSMouseEventTranslator.ml deleted file mode 100644 index 7db17261..00000000 --- a/uikit_extra/UINSMouseEventTranslator.ml +++ /dev/null @@ -1,41 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSMouseEventTranslator" - -let acceptsFirstMouse x self = msg_send ~self ~cmd:(selector "acceptsFirstMouse:") ~typ:(id @-> returning (bool)) x -let cancelOutstandingUserInput self = msg_send ~self ~cmd:(selector "cancelOutstandingUserInput") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let draggingEnded x self = msg_send ~self ~cmd:(selector "draggingEnded:") ~typ:(id @-> returning (void)) x -let draggingEntered x self = msg_send ~self ~cmd:(selector "draggingEntered:") ~typ:(id @-> returning (void)) x -let draggingExited x self = msg_send ~self ~cmd:(selector "draggingExited:") ~typ:(id @-> returning (void)) x -let draggingUpdated x self = msg_send ~self ~cmd:(selector "draggingUpdated:") ~typ:(id @-> returning (void)) x -let flagsChanged x self = msg_send ~self ~cmd:(selector "flagsChanged:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isLeftMouseDown self = msg_send ~self ~cmd:(selector "isLeftMouseDown") ~typ:(returning (bool)) -let magnifyWithEvent x self = msg_send ~self ~cmd:(selector "magnifyWithEvent:") ~typ:(id @-> returning (void)) x -let mouseDown x self = msg_send ~self ~cmd:(selector "mouseDown:") ~typ:(id @-> returning (void)) x -let mouseDragged x self = msg_send ~self ~cmd:(selector "mouseDragged:") ~typ:(id @-> returning (void)) x -let mouseEntered x self = msg_send ~self ~cmd:(selector "mouseEntered:") ~typ:(id @-> returning (void)) x -let mouseExited x self = msg_send ~self ~cmd:(selector "mouseExited:") ~typ:(id @-> returning (void)) x -let mouseMoved x self = msg_send ~self ~cmd:(selector "mouseMoved:") ~typ:(id @-> returning (void)) x -let mouseUp x self = msg_send ~self ~cmd:(selector "mouseUp:") ~typ:(id @-> returning (void)) x -let prepareForDragOperation x self = msg_send ~self ~cmd:(selector "prepareForDragOperation:") ~typ:(id @-> returning (void)) x -let pressureChangeWithEvent x self = msg_send ~self ~cmd:(selector "pressureChangeWithEvent:") ~typ:(id @-> returning (void)) x -let quickLookWithEvent x self = msg_send ~self ~cmd:(selector "quickLookWithEvent:") ~typ:(id @-> returning (void)) x -let rightMouseDown x self = msg_send ~self ~cmd:(selector "rightMouseDown:") ~typ:(id @-> returning (void)) x -let rightMouseDragged x self = msg_send ~self ~cmd:(selector "rightMouseDragged:") ~typ:(id @-> returning (void)) x -let rightMouseUp x self = msg_send ~self ~cmd:(selector "rightMouseUp:") ~typ:(id @-> returning (void)) x -let rotateWithEvent x self = msg_send ~self ~cmd:(selector "rotateWithEvent:") ~typ:(id @-> returning (void)) x -let scrollWheel x self = msg_send ~self ~cmd:(selector "scrollWheel:") ~typ:(id @-> returning (void)) x -let touchesBeganWithEvent x self = msg_send ~self ~cmd:(selector "touchesBeganWithEvent:") ~typ:(id @-> returning (void)) x -let touchesCancelledWithEvent x self = msg_send ~self ~cmd:(selector "touchesCancelledWithEvent:") ~typ:(id @-> returning (void)) x -let touchesEndedWithEvent x self = msg_send ~self ~cmd:(selector "touchesEndedWithEvent:") ~typ:(id @-> returning (void)) x -let touchesMovedWithEvent x self = msg_send ~self ~cmd:(selector "touchesMovedWithEvent:") ~typ:(id @-> returning (void)) x -let translateWithEvent x self = msg_send ~self ~cmd:(selector "translateWithEvent:") ~typ:(id @-> returning (void)) x -let wantsKeyEvents self = msg_send ~self ~cmd:(selector "wantsKeyEvents") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UINSOnboardingTextView.ml b/uikit_extra/UINSOnboardingTextView.ml deleted file mode 100644 index cfa92dfd..00000000 --- a/uikit_extra/UINSOnboardingTextView.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSOnboardingTextView" - -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithTitle x ~description self = msg_send ~self ~cmd:(selector "initWithTitle:description:") ~typ:(id @-> id @-> returning (id)) x description -let isRightAligned self = msg_send ~self ~cmd:(selector "isRightAligned") ~typ:(returning (bool)) -let onboardingDescription self = msg_send ~self ~cmd:(selector "onboardingDescription") ~typ:(returning (id)) -let onboardingTitle self = msg_send ~self ~cmd:(selector "onboardingTitle") ~typ:(returning (id)) -let setIsRightAligned x self = msg_send ~self ~cmd:(selector "setIsRightAligned:") ~typ:(bool @-> returning (void)) x -let setOnboardingDescription x self = msg_send ~self ~cmd:(selector "setOnboardingDescription:") ~typ:(id @-> returning (void)) x -let setOnboardingTitle x self = msg_send ~self ~cmd:(selector "setOnboardingTitle:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSOverlayDatePicker.ml b/uikit_extra/UINSOverlayDatePicker.ml deleted file mode 100644 index af83b37a..00000000 --- a/uikit_extra/UINSOverlayDatePicker.ml +++ /dev/null @@ -1,25 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSOverlayDatePicker" - -let calendar self = msg_send ~self ~cmd:(selector "calendar") ~typ:(returning (id)) -let dateValue self = msg_send ~self ~cmd:(selector "dateValue") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let isSettingDate self = msg_send ~self ~cmd:(selector "isSettingDate") ~typ:(returning (bool)) -let locale self = msg_send ~self ~cmd:(selector "locale") ~typ:(returning (id)) -let overlayView self = msg_send ~self ~cmd:(selector "overlayView") ~typ:(returning (id)) -let setCalendar x self = msg_send ~self ~cmd:(selector "setCalendar:") ~typ:(id @-> returning (void)) x -let setDateValue x self = msg_send ~self ~cmd:(selector "setDateValue:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setIsSettingDate x self = msg_send ~self ~cmd:(selector "setIsSettingDate:") ~typ:(bool @-> returning (void)) x -let setLocale x self = msg_send ~self ~cmd:(selector "setLocale:") ~typ:(id @-> returning (void)) x -let setOverlayView x self = msg_send ~self ~cmd:(selector "setOverlayView:") ~typ:(id @-> returning (void)) x -let setTimeZone x self = msg_send ~self ~cmd:(selector "setTimeZone:") ~typ:(id @-> returning (void)) x -let showOverlayDatePickerWithWindowFrame x ~window ~date ~font ~selectedElement ~mode self = msg_send ~self ~cmd:(selector "showOverlayDatePickerWithWindowFrame:window:date:font:selectedElement:mode:") ~typ:(CGRect.t @-> id @-> id @-> id @-> ullong @-> ullong @-> returning (void)) x window date font (ULLong.of_int selectedElement) (ULLong.of_int mode) -let timeZone self = msg_send ~self ~cmd:(selector "timeZone") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSPDFPrintingView.ml b/uikit_extra/UINSPDFPrintingView.ml deleted file mode 100644 index 3f156424..00000000 --- a/uikit_extra/UINSPDFPrintingView.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSPDFPrintingView" - -let cachedPdfDocument self = msg_send ~self ~cmd:(selector "cachedPdfDocument") ~typ:(returning (id)) -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let imageablePageBounds self = msg_send_stret ~self ~cmd:(selector "imageablePageBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let initWithPDFDocumentGenerator x self = msg_send ~self ~cmd:(selector "initWithPDFDocumentGenerator:") ~typ:(ptr void @-> returning (id)) x -let knowsPageRange x self = msg_send ~self ~cmd:(selector "knowsPageRange:") ~typ:(ptr (NSRange.t) @-> returning (bool)) x -let locationOfPrintRect x self = msg_send_stret ~self ~cmd:(selector "locationOfPrintRect:") ~typ:(CGRect.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let pageToPrint self = msg_send ~self ~cmd:(selector "pageToPrint") ~typ:(returning (llong)) -let paperSize self = msg_send_stret ~self ~cmd:(selector "paperSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let pdfDocument self = msg_send ~self ~cmd:(selector "pdfDocument") ~typ:(returning (id)) -let pdfDocumentGenerator self = msg_send ~self ~cmd:(selector "pdfDocumentGenerator") ~typ:(returning (ptr void)) -let printJobTitle self = msg_send ~self ~cmd:(selector "printJobTitle") ~typ:(returning (id)) -let rectForPage x self = msg_send_stret ~self ~cmd:(selector "rectForPage:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) -let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning (double)) -let setCachedPdfDocument x self = msg_send ~self ~cmd:(selector "setCachedPdfDocument:") ~typ:(id @-> returning (void)) x -let setImageablePageBounds x self = msg_send ~self ~cmd:(selector "setImageablePageBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setPageToPrint x self = msg_send ~self ~cmd:(selector "setPageToPrint:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPaperSize x self = msg_send ~self ~cmd:(selector "setPaperSize:") ~typ:(CGSize.t @-> returning (void)) x -let setPdfDocumentGenerator x self = msg_send ~self ~cmd:(selector "setPdfDocumentGenerator:") ~typ:(ptr void @-> returning (void)) x -let setScale x self = msg_send ~self ~cmd:(selector "setScale:") ~typ:(double @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSPasteboardWritingItemProvider.ml b/uikit_extra/UINSPasteboardWritingItemProvider.ml deleted file mode 100644 index a2e27620..00000000 --- a/uikit_extra/UINSPasteboardWritingItemProvider.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSPasteboardWritingItemProvider" - -let initWithItemProvider x self = msg_send ~self ~cmd:(selector "initWithItemProvider:") ~typ:(id @-> returning (id)) x -let pasteboardPropertyListForType x self = msg_send ~self ~cmd:(selector "pasteboardPropertyListForType:") ~typ:(id @-> returning (id)) x -let writableTypesForPasteboard x self = msg_send ~self ~cmd:(selector "writableTypesForPasteboard:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit_extra/UINSPopoverManager.ml b/uikit_extra/UINSPopoverManager.ml deleted file mode 100644 index ca29eb9c..00000000 --- a/uikit_extra/UINSPopoverManager.ml +++ /dev/null @@ -1,28 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSPopoverManager" - -let closePopoverOnExit self = msg_send ~self ~cmd:(selector "closePopoverOnExit") ~typ:(returning (void)) -let detachFromPoint x ~withCompletionCallback self = msg_send ~self ~cmd:(selector "detachFromPoint:withCompletionCallback:") ~typ:(CGPoint.t @-> ptr void @-> returning (void)) x withCompletionCallback -let dismissPopover self = msg_send ~self ~cmd:(selector "dismissPopover") ~typ:(returning (void)) -let initWithPopoverWindow x ~parentWindow ~respondersToRestore ~sourceRectInParentUIWindow ~contentSize ~permittedArrowDirections ~showsArrow ~windowAppearance ~withDismissalBlock ~setupCompletionHandler self = msg_send ~self ~cmd:(selector "initWithPopoverWindow:parentWindow:respondersToRestore:sourceRectInParentUIWindow:contentSize:permittedArrowDirections:showsArrow:windowAppearance:withDismissalBlock:setupCompletionHandler:") ~typ:(id @-> id @-> id @-> CGRect.t @-> CGSize.t @-> llong @-> bool @-> llong @-> ptr void @-> ptr void @-> returning (id)) x parentWindow respondersToRestore sourceRectInParentUIWindow contentSize (LLong.of_int permittedArrowDirections) showsArrow (LLong.of_int windowAppearance) withDismissalBlock setupCompletionHandler -let popoverDidClose x self = msg_send ~self ~cmd:(selector "popoverDidClose:") ~typ:(id @-> returning (void)) x -let popoverDidDetach x self = msg_send ~self ~cmd:(selector "popoverDidDetach:") ~typ:(id @-> returning (void)) x -let popoverShouldDetach x self = msg_send ~self ~cmd:(selector "popoverShouldDetach:") ~typ:(id @-> returning (bool)) x -let popoverWillShow x self = msg_send ~self ~cmd:(selector "popoverWillShow:") ~typ:(id @-> returning (void)) x -let positioningRect self = msg_send_stret ~self ~cmd:(selector "positioningRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let preferredEdgeForPermittedArrowDirections x self = msg_send ~self ~cmd:(selector "preferredEdgeForPermittedArrowDirections:") ~typ:(llong @-> returning (ullong)) (LLong.of_int x) -let respondersToRestore self = msg_send ~self ~cmd:(selector "respondersToRestore") ~typ:(returning (id)) -let sceneHostingViewControllerDidCreateScene x self = msg_send ~self ~cmd:(selector "sceneHostingViewControllerDidCreateScene:") ~typ:(id @-> returning (void)) x -let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning (id)) -let setSupportsDetach x self = msg_send ~self ~cmd:(selector "setSupportsDetach:") ~typ:(bool @-> returning (void)) x -let setWindowAppearance x self = msg_send ~self ~cmd:(selector "setWindowAppearance:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let supportsDetach self = msg_send ~self ~cmd:(selector "supportsDetach") ~typ:(returning (bool)) -let updateSourceRectInParentUIWindow x ~contentSize ~preferredHorizontalAlignment ~showsArrow ~isRTL self = msg_send ~self ~cmd:(selector "updateSourceRectInParentUIWindow:contentSize:preferredHorizontalAlignment:showsArrow:isRTL:") ~typ:(CGRect.t @-> CGSize.t @-> llong @-> bool @-> bool @-> returning (void)) x contentSize (LLong.of_int preferredHorizontalAlignment) showsArrow isRTL -let windowAppearance self = msg_send ~self ~cmd:(selector "windowAppearance") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit_extra/UINSPopupButtonCell.ml b/uikit_extra/UINSPopupButtonCell.ml deleted file mode 100644 index 05b28519..00000000 --- a/uikit_extra/UINSPopupButtonCell.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSPopupButtonCell" - -let alignmentEdge self = msg_send ~self ~cmd:(selector "alignmentEdge") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let presentMenu x ~attachedToView self = msg_send ~self ~cmd:(selector "presentMenu:attachedToView:") ~typ:(id @-> id @-> returning (void)) x attachedToView -let setAlignmentEdge x self = msg_send ~self ~cmd:(selector "setAlignmentEdge:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSPopupButtonMenuItem.ml b/uikit_extra/UINSPopupButtonMenuItem.ml deleted file mode 100644 index db5da2aa..00000000 --- a/uikit_extra/UINSPopupButtonMenuItem.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSPopupButtonMenuItem" - -let accessibilityInfo self = msg_send ~self ~cmd:(selector "accessibilityInfo") ~typ:(returning (id)) -let helperImage self = msg_send ~self ~cmd:(selector "helperImage") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isChecked self = msg_send ~self ~cmd:(selector "isChecked") ~typ:(returning (bool)) -let setAccessibilityInfo x self = msg_send ~self ~cmd:(selector "setAccessibilityInfo:") ~typ:(id @-> returning (void)) x -let setChecked x self = msg_send ~self ~cmd:(selector "setChecked:") ~typ:(bool @-> returning (void)) x -let setHelperImage x self = msg_send ~self ~cmd:(selector "setHelperImage:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSPopupButtonToolbarItem.ml b/uikit_extra/UINSPopupButtonToolbarItem.ml deleted file mode 100644 index 93c88a0a..00000000 --- a/uikit_extra/UINSPopupButtonToolbarItem.ml +++ /dev/null @@ -1,26 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSPopupButtonToolbarItem" - -let helperImage self = msg_send ~self ~cmd:(selector "helperImage") ~typ:(returning (id)) -let imageName self = msg_send ~self ~cmd:(selector "imageName") ~typ:(returning (id)) -let initWithIdentifier x self = msg_send ~self ~cmd:(selector "initWithIdentifier:") ~typ:(id @-> returning (id)) x -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let menu self = msg_send ~self ~cmd:(selector "menu") ~typ:(returning (id)) -let menuItems self = msg_send ~self ~cmd:(selector "menuItems") ~typ:(returning (id)) -let prepareItem self = msg_send ~self ~cmd:(selector "prepareItem") ~typ:(returning (void)) -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setHelperImage x self = msg_send ~self ~cmd:(selector "setHelperImage:") ~typ:(id @-> returning (void)) x -let setImageName x self = msg_send ~self ~cmd:(selector "setImageName:") ~typ:(id @-> returning (void)) x -let setMenu x self = msg_send ~self ~cmd:(selector "setMenu:") ~typ:(id @-> returning (void)) x -let setMenuItems x self = msg_send ~self ~cmd:(selector "setMenuItems:") ~typ:(id @-> returning (void)) x -let setShowsArrow x self = msg_send ~self ~cmd:(selector "setShowsArrow:") ~typ:(bool @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let showsArrow self = msg_send ~self ~cmd:(selector "showsArrow") ~typ:(returning (bool)) -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSPreferences.ml b/uikit_extra/UINSPreferences.ml deleted file mode 100644 index 8a5749e1..00000000 --- a/uikit_extra/UINSPreferences.ml +++ /dev/null @@ -1,32 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSPreferences" - -module C = struct - let customButtonTarget self = msg_send ~self ~cmd:(selector "customButtonTarget") ~typ:(returning (id)) - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let setCustomButtonTarget x self = msg_send ~self ~cmd:(selector "setCustomButtonTarget:") ~typ:(id @-> returning (void)) x -end - -let addSpacerTo x self = msg_send ~self ~cmd:(selector "addSpacerTo:") ~typ:(id @-> returning (void)) x -let arePreferencesLoaded self = msg_send ~self ~cmd:(selector "arePreferencesLoaded") ~typ:(returning (bool)) -let customButtons self = msg_send ~self ~cmd:(selector "customButtons") ~typ:(returning (id)) -let helpAnchor self = msg_send ~self ~cmd:(selector "helpAnchor") ~typ:(returning (id)) -let helpBook self = msg_send ~self ~cmd:(selector "helpBook") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let loadFromApplicationSettingsBundle self = msg_send ~self ~cmd:(selector "loadFromApplicationSettingsBundle") ~typ:(returning (void)) -let loadPreferences self = msg_send ~self ~cmd:(selector "loadPreferences") ~typ:(returning (void)) -let nodeIsStartOfGroup x self = msg_send ~self ~cmd:(selector "nodeIsStartOfGroup:") ~typ:(id @-> returning (bool)) x -let setHelpAnchor x self = msg_send ~self ~cmd:(selector "setHelpAnchor:") ~typ:(id @-> returning (void)) x -let setHelpBook x self = msg_send ~self ~cmd:(selector "setHelpBook:") ~typ:(id @-> returning (void)) x -let showPreferencesPanelForOwner x self = msg_send ~self ~cmd:(selector "showPreferencesPanelForOwner:") ~typ:(id @-> returning (void)) x -let stretchWrappingText x ~nicelyBasedOnSource self = msg_send ~self ~cmd:(selector "stretchWrappingText:nicelyBasedOnSource:") ~typ:(id @-> id @-> returning (void)) x nicelyBasedOnSource -let usesButtons self = msg_send ~self ~cmd:(selector "usesButtons") ~typ:(returning (bool)) -let windowDidBecomeKey x self = msg_send ~self ~cmd:(selector "windowDidBecomeKey:") ~typ:(id @-> returning (void)) x -let windowShouldClose x self = msg_send ~self ~cmd:(selector "windowShouldClose:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/uikit_extra/UINSPreferencesBaselineView.ml b/uikit_extra/UINSPreferencesBaselineView.ml deleted file mode 100644 index 415ecdeb..00000000 --- a/uikit_extra/UINSPreferencesBaselineView.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSPreferencesBaselineView" - -module C = struct - let decorateView x ~withText self = msg_send ~self ~cmd:(selector "decorateView:withText:") ~typ:(id @-> id @-> returning (id)) x withText -end - -let firstBaselineAnchor self = msg_send ~self ~cmd:(selector "firstBaselineAnchor") ~typ:(returning (id)) -let lastBaselineAnchor self = msg_send ~self ~cmd:(selector "lastBaselineAnchor") ~typ:(returning (id)) -let realBaselineView self = msg_send ~self ~cmd:(selector "realBaselineView") ~typ:(returning (id)) -let setRealBaselineView x self = msg_send ~self ~cmd:(selector "setRealBaselineView:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSPreferencesConfirmableButton.ml b/uikit_extra/UINSPreferencesConfirmableButton.ml deleted file mode 100644 index 6c0022a3..00000000 --- a/uikit_extra/UINSPreferencesConfirmableButton.ml +++ /dev/null @@ -1,32 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSPreferencesConfirmableButton" - -let confirmCheckBox x self = msg_send ~self ~cmd:(selector "confirmCheckBox:") ~typ:(id @-> returning (void)) x -let confirmPushButton x self = msg_send ~self ~cmd:(selector "confirmPushButton:") ~typ:(id @-> returning (void)) x -let confirmationAction self = msg_send ~self ~cmd:(selector "confirmationAction") ~typ:(returning (_SEL)) -let confirmationTarget self = msg_send ~self ~cmd:(selector "confirmationTarget") ~typ:(returning (id)) -let keyPath self = msg_send ~self ~cmd:(selector "keyPath") ~typ:(returning (id)) -let localizedFalseConfirmText self = msg_send ~self ~cmd:(selector "localizedFalseConfirmText") ~typ:(returning (id)) -let localizedFalseConfirmationPrompt self = msg_send ~self ~cmd:(selector "localizedFalseConfirmationPrompt") ~typ:(returning (id)) -let localizedFalseDenyText self = msg_send ~self ~cmd:(selector "localizedFalseDenyText") ~typ:(returning (id)) -let localizedTrueConfirmText self = msg_send ~self ~cmd:(selector "localizedTrueConfirmText") ~typ:(returning (id)) -let localizedTrueConfirmationPrompt self = msg_send ~self ~cmd:(selector "localizedTrueConfirmationPrompt") ~typ:(returning (id)) -let localizedTrueDenyText self = msg_send ~self ~cmd:(selector "localizedTrueDenyText") ~typ:(returning (id)) -let setConfirmationAction x self = msg_send ~self ~cmd:(selector "setConfirmationAction:") ~typ:(_SEL @-> returning (void)) x -let setConfirmationTarget x self = msg_send ~self ~cmd:(selector "setConfirmationTarget:") ~typ:(id @-> returning (void)) x -let setKeyPath x self = msg_send ~self ~cmd:(selector "setKeyPath:") ~typ:(id @-> returning (void)) x -let setLocalizedFalseConfirmText x self = msg_send ~self ~cmd:(selector "setLocalizedFalseConfirmText:") ~typ:(id @-> returning (void)) x -let setLocalizedFalseConfirmationPrompt x self = msg_send ~self ~cmd:(selector "setLocalizedFalseConfirmationPrompt:") ~typ:(id @-> returning (void)) x -let setLocalizedFalseDenyText x self = msg_send ~self ~cmd:(selector "setLocalizedFalseDenyText:") ~typ:(id @-> returning (void)) x -let setLocalizedTrueConfirmText x self = msg_send ~self ~cmd:(selector "setLocalizedTrueConfirmText:") ~typ:(id @-> returning (void)) x -let setLocalizedTrueConfirmationPrompt x self = msg_send ~self ~cmd:(selector "setLocalizedTrueConfirmationPrompt:") ~typ:(id @-> returning (void)) x -let setLocalizedTrueDenyText x self = msg_send ~self ~cmd:(selector "setLocalizedTrueDenyText:") ~typ:(id @-> returning (void)) x -let setUserDefaultsController x self = msg_send ~self ~cmd:(selector "setUserDefaultsController:") ~typ:(id @-> returning (void)) x -let userDefaultsController self = msg_send ~self ~cmd:(selector "userDefaultsController") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSPreferencesKeyedRadioButton.ml b/uikit_extra/UINSPreferencesKeyedRadioButton.ml deleted file mode 100644 index 441f7af6..00000000 --- a/uikit_extra/UINSPreferencesKeyedRadioButton.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSPreferencesKeyedRadioButton" - -let activateRadioAction x self = msg_send ~self ~cmd:(selector "activateRadioAction:") ~typ:(id @-> returning (void)) x -let keyPath self = msg_send ~self ~cmd:(selector "keyPath") ~typ:(returning (id)) -let setKeyPath x self = msg_send ~self ~cmd:(selector "setKeyPath:") ~typ:(id @-> returning (void)) x -let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setUserDefaultsController x self = msg_send ~self ~cmd:(selector "setUserDefaultsController:") ~typ:(id @-> returning (void)) x -let setValueToSet x self = msg_send ~self ~cmd:(selector "setValueToSet:") ~typ:(id @-> returning (void)) x -let useDescription x ~displayedOn self = msg_send ~self ~cmd:(selector "useDescription:displayedOn:") ~typ:(id @-> id @-> returning (void)) x displayedOn -let userDefaultsController self = msg_send ~self ~cmd:(selector "userDefaultsController") ~typ:(returning (id)) -let valueToSet self = msg_send ~self ~cmd:(selector "valueToSet") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSPreferencesModule.ml b/uikit_extra/UINSPreferencesModule.ml deleted file mode 100644 index 79b5acae..00000000 --- a/uikit_extra/UINSPreferencesModule.ml +++ /dev/null @@ -1,27 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSPreferencesModule" - -let helpAnchor self = msg_send ~self ~cmd:(selector "helpAnchor") ~typ:(returning (id)) -let helpBook self = msg_send ~self ~cmd:(selector "helpBook") ~typ:(returning (id)) -let imageForPreferenceNamed x self = msg_send ~self ~cmd:(selector "imageForPreferenceNamed:") ~typ:(id @-> returning (id)) x -let isResizable self = msg_send ~self ~cmd:(selector "isResizable") ~typ:(returning (bool)) -let preferencesNibName self = msg_send ~self ~cmd:(selector "preferencesNibName") ~typ:(returning (id)) -let rootView self = msg_send ~self ~cmd:(selector "rootView") ~typ:(returning (id)) -let setHelpAnchor x self = msg_send ~self ~cmd:(selector "setHelpAnchor:") ~typ:(id @-> returning (void)) x -let setHelpBook x self = msg_send ~self ~cmd:(selector "setHelpBook:") ~typ:(id @-> returning (void)) x -let setRootView x self = msg_send ~self ~cmd:(selector "setRootView:") ~typ:(id @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setToolbarIcon x self = msg_send ~self ~cmd:(selector "setToolbarIcon:") ~typ:(id @-> returning (void)) x -let setUserDefaultsController x self = msg_send ~self ~cmd:(selector "setUserDefaultsController:") ~typ:(id @-> returning (void)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let titleForIdentifier x self = msg_send ~self ~cmd:(selector "titleForIdentifier:") ~typ:(id @-> returning (id)) x -let toolbarIcon self = msg_send ~self ~cmd:(selector "toolbarIcon") ~typ:(returning (id)) -let userDefaultsController self = msg_send ~self ~cmd:(selector "userDefaultsController") ~typ:(returning (id)) -let viewForPreferenceNamed x self = msg_send ~self ~cmd:(selector "viewForPreferenceNamed:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit_extra/UINSPreferencesTitlebarSeparatorUpdatingClipView.ml b/uikit_extra/UINSPreferencesTitlebarSeparatorUpdatingClipView.ml deleted file mode 100644 index 94c2fa9f..00000000 --- a/uikit_extra/UINSPreferencesTitlebarSeparatorUpdatingClipView.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSPreferencesTitlebarSeparatorUpdatingClipView" - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let viewWillMoveToWindow x self = msg_send ~self ~cmd:(selector "viewWillMoveToWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSPrintingController.ml b/uikit_extra/UINSPrintingController.ml deleted file mode 100644 index 06ed6ed1..00000000 --- a/uikit_extra/UINSPrintingController.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSPrintingController" - -let dismissPrintOrExportPanel self = msg_send ~self ~cmd:(selector "dismissPrintOrExportPanel") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning (id)) -let setSceneIdentifier x self = msg_send ~self ~cmd:(selector "setSceneIdentifier:") ~typ:(id @-> returning (void)) x -let showExportPanelWithPrintInfo x ~andPDFDocumentGenerator self = msg_send ~self ~cmd:(selector "showExportPanelWithPrintInfo:andPDFDocumentGenerator:") ~typ:(id @-> ptr void @-> returning (void)) x andPDFDocumentGenerator -let showPrintPanelWithPrintInfo x ~andPDFDocumentGenerator self = msg_send ~self ~cmd:(selector "showPrintPanelWithPrintInfo:andPDFDocumentGenerator:") ~typ:(id @-> ptr void @-> returning (void)) x andPDFDocumentGenerator \ No newline at end of file diff --git a/uikit_extra/UINSRecentItemsMenuController.ml b/uikit_extra/UINSRecentItemsMenuController.ml deleted file mode 100644 index 40431d25..00000000 --- a/uikit_extra/UINSRecentItemsMenuController.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSRecentItemsMenuController" - -module C = struct - let sharedRecentItemsController self = msg_send ~self ~cmd:(selector "sharedRecentItemsController") ~typ:(returning (id)) -end - -let clearRecentFileURLs x self = msg_send ~self ~cmd:(selector "clearRecentFileURLs:") ~typ:(id @-> returning (void)) x -let updateMenu x ~withEvent ~withFlags self = msg_send ~self ~cmd:(selector "updateMenu:withEvent:withFlags:") ~typ:(id @-> id @-> llong @-> returning (bool)) x withEvent (LLong.of_int withFlags) -let validateMenuItem x self = msg_send ~self ~cmd:(selector "validateMenuItem:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/uikit_extra/UINSResponderProxy.ml b/uikit_extra/UINSResponderProxy.ml deleted file mode 100644 index ed2932a4..00000000 --- a/uikit_extra/UINSResponderProxy.ml +++ /dev/null @@ -1,28 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSResponderProxy" - -module C = struct - let responderProxySearchingFromAppWithTargetForAction x ~sender self = msg_send ~self ~cmd:(selector "responderProxySearchingFromAppWithTargetForAction:sender:") ~typ:(_SEL @-> id @-> returning (id)) x sender - let responderProxySearchingFromFirstResponderWithTargetForAction x ~sender ~inputView self = msg_send ~self ~cmd:(selector "responderProxySearchingFromFirstResponderWithTargetForAction:sender:inputView:") ~typ:(_SEL @-> id @-> id @-> returning (id)) x sender inputView - let responderProxySearchingFromWindowWithTargetForAction x ~sender ~window self = msg_send ~self ~cmd:(selector "responderProxySearchingFromWindowWithTargetForAction:sender:window:") ~typ:(_SEL @-> id @-> id @-> returning (id)) x sender window -end - -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (_SEL)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning (void)) x -let forwardingTargetForSelector x self = msg_send ~self ~cmd:(selector "forwardingTargetForSelector:") ~typ:(_SEL @-> returning (id)) x -let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning (id)) x -let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning (bool)) x -let sender self = msg_send ~self ~cmd:(selector "sender") ~typ:(returning (id)) -let validateMenuItem x self = msg_send ~self ~cmd:(selector "validateMenuItem:") ~typ:(id @-> returning (bool)) x -let validateToolbarItem x self = msg_send ~self ~cmd:(selector "validateToolbarItem:") ~typ:(id @-> returning (bool)) x -let validateUserInterfaceItem x self = msg_send ~self ~cmd:(selector "validateUserInterfaceItem:") ~typ:(id @-> returning (bool)) x -let wrappedMenuProxy self = msg_send ~self ~cmd:(selector "wrappedMenuProxy") ~typ:(returning (id)) -let wrappedResponder self = msg_send ~self ~cmd:(selector "wrappedResponder") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSRevealController.ml b/uikit_extra/UINSRevealController.ml deleted file mode 100644 index 02a4f1c8..00000000 --- a/uikit_extra/UINSRevealController.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSRevealController" - -module C = struct - let sharedRevealController self = msg_send ~self ~cmd:(selector "sharedRevealController") ~typ:(returning (id)) -end - -let highlighter self = msg_send ~self ~cmd:(selector "highlighter") ~typ:(returning (id)) -let highlighting self = msg_send ~self ~cmd:(selector "highlighting") ~typ:(returning (bool)) -let menuItemsWithItem x ~locationInWindow ~window ~highlighter self = msg_send ~self ~cmd:(selector "menuItemsWithItem:locationInWindow:window:highlighter:") ~typ:(id @-> CGPoint.t @-> id @-> id @-> returning (id)) x locationInWindow window highlighter -let menuItemsWithItem' x ~locationInWindow ~window ~highlighter ~contextDictionary self = msg_send ~self ~cmd:(selector "menuItemsWithItem:locationInWindow:window:highlighter:contextDictionary:") ~typ:(id @-> CGPoint.t @-> id @-> id @-> id @-> returning (id)) x locationInWindow window highlighter contextDictionary -let revealContext x ~completeHighlightingItem self = msg_send ~self ~cmd:(selector "revealContext:completeHighlightingItem:") ~typ:(id @-> id @-> returning (void)) x completeHighlightingItem -let revealContext1 x ~drawRectsForItem self = msg_send ~self ~cmd:(selector "revealContext:drawRectsForItem:") ~typ:(id @-> id @-> returning (void)) x drawRectsForItem -let revealContext2 x ~highlightRangeChangedForItem self = msg_send ~self ~cmd:(selector "revealContext:highlightRangeChangedForItem:") ~typ:(id @-> id @-> returning (void)) x highlightRangeChangedForItem -let revealContext3 x ~rectsForItem self = msg_send ~self ~cmd:(selector "revealContext:rectsForItem:") ~typ:(id @-> id @-> returning (id)) x rectsForItem -let revealContext4 x ~shouldUseDefaultHighlightForItem self = msg_send ~self ~cmd:(selector "revealContext:shouldUseDefaultHighlightForItem:") ~typ:(id @-> id @-> returning (bool)) x shouldUseDefaultHighlightForItem -let revealContext5 x ~startHighlightingItem self = msg_send ~self ~cmd:(selector "revealContext:startHighlightingItem:") ~typ:(id @-> id @-> returning (void)) x startHighlightingItem -let revealContext6 x ~stopHighlightingItem self = msg_send ~self ~cmd:(selector "revealContext:stopHighlightingItem:") ~typ:(id @-> id @-> returning (void)) x stopHighlightingItem -let revealContext7 x ~highlightItem ~withProgress self = msg_send ~self ~cmd:(selector "revealContext:highlightItem:withProgress:") ~typ:(id @-> id @-> double @-> returning (void)) x highlightItem withProgress -let revealItem x ~locationInWindow ~window ~highlighter self = msg_send ~self ~cmd:(selector "revealItem:locationInWindow:window:highlighter:") ~typ:(id @-> CGPoint.t @-> id @-> id @-> returning (void)) x locationInWindow window highlighter -let revealItem' x ~locationInWindow ~window ~highlighter ~contextDictionary self = msg_send ~self ~cmd:(selector "revealItem:locationInWindow:window:highlighter:contextDictionary:") ~typ:(id @-> CGPoint.t @-> id @-> id @-> id @-> returning (void)) x locationInWindow window highlighter contextDictionary -let setHighlighter x self = msg_send ~self ~cmd:(selector "setHighlighter:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSSceneContainerView.ml b/uikit_extra/UINSSceneContainerView.ml deleted file mode 100644 index 3da255c7..00000000 --- a/uikit_extra/UINSSceneContainerView.ml +++ /dev/null @@ -1,40 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSSceneContainerView" - -module C = struct - let requiresConstraintBasedLayout self = msg_send ~self ~cmd:(selector "requiresConstraintBasedLayout") ~typ:(returning (bool)) -end - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isFullscreenScene self = msg_send ~self ~cmd:(selector "isFullscreenScene") ~typ:(returning (bool)) -let isSceneViewPinned self = msg_send ~self ~cmd:(selector "isSceneViewPinned") ~typ:(returning (bool)) -let isSceneViewZoomEnabled self = msg_send ~self ~cmd:(selector "isSceneViewZoomEnabled") ~typ:(returning (bool)) -let isTransitioningFromFullscreen self = msg_send ~self ~cmd:(selector "isTransitioningFromFullscreen") ~typ:(returning (bool)) -let isTransitioningToFullscreen self = msg_send ~self ~cmd:(selector "isTransitioningToFullscreen") ~typ:(returning (bool)) -let maxContentSizeForScreen self = msg_send_stret ~self ~cmd:(selector "maxContentSizeForScreen") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let sceneCurrentSize self = msg_send_stret ~self ~cmd:(selector "sceneCurrentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let sceneMaxSize self = msg_send_stret ~self ~cmd:(selector "sceneMaxSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let sceneMinSize self = msg_send_stret ~self ~cmd:(selector "sceneMinSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let sceneToSceneViewScaleForLayout self = msg_send ~self ~cmd:(selector "sceneToSceneViewScaleForLayout") ~typ:(returning (double)) -let sceneView self = msg_send ~self ~cmd:(selector "sceneView") ~typ:(returning (id)) -let setFullscreenScene x self = msg_send ~self ~cmd:(selector "setFullscreenScene:") ~typ:(bool @-> returning (void)) x -let setMaxContentSizeForScreen x self = msg_send ~self ~cmd:(selector "setMaxContentSizeForScreen:") ~typ:(CGSize.t @-> returning (void)) x -let setSceneCurrentSize x self = msg_send ~self ~cmd:(selector "setSceneCurrentSize:") ~typ:(CGSize.t @-> returning (void)) x -let setSceneMaxSize x self = msg_send ~self ~cmd:(selector "setSceneMaxSize:") ~typ:(CGSize.t @-> returning (void)) x -let setSceneMinSize x self = msg_send ~self ~cmd:(selector "setSceneMinSize:") ~typ:(CGSize.t @-> returning (void)) x -let setSceneToSceneViewScaleForLayout x self = msg_send ~self ~cmd:(selector "setSceneToSceneViewScaleForLayout:") ~typ:(double @-> returning (void)) x -let setSceneView x self = msg_send ~self ~cmd:(selector "setSceneView:") ~typ:(id @-> returning (void)) x -let setSceneViewPinned x self = msg_send ~self ~cmd:(selector "setSceneViewPinned:") ~typ:(bool @-> returning (void)) x -let setSceneViewZoomEnabled x self = msg_send ~self ~cmd:(selector "setSceneViewZoomEnabled:") ~typ:(bool @-> returning (void)) x -let setTransitioningFromFullscreen x self = msg_send ~self ~cmd:(selector "setTransitioningFromFullscreen:") ~typ:(bool @-> returning (void)) x -let setTransitioningToFullscreen x self = msg_send ~self ~cmd:(selector "setTransitioningToFullscreen:") ~typ:(bool @-> returning (void)) x -let updateConstraints self = msg_send ~self ~cmd:(selector "updateConstraints") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UINSSceneHostingView.ml b/uikit_extra/UINSSceneHostingView.ml deleted file mode 100644 index 8968fbb6..00000000 --- a/uikit_extra/UINSSceneHostingView.ml +++ /dev/null @@ -1,30 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSSceneHostingView" - -let acceptsFirstResponder self = msg_send ~self ~cmd:(selector "acceptsFirstResponder") ~typ:(returning (bool)) -let becomeFirstResponder self = msg_send ~self ~cmd:(selector "becomeFirstResponder") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let hideActiveFirstResponderIndication self = msg_send ~self ~cmd:(selector "hideActiveFirstResponderIndication") ~typ:(returning (void)) -let initWithUIView x self = msg_send ~self ~cmd:(selector "initWithUIView:") ~typ:(id @-> returning (id)) x -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let isHostedInToolbar self = msg_send ~self ~cmd:(selector "isHostedInToolbar") ~typ:(returning (bool)) -let layout self = msg_send ~self ~cmd:(selector "layout") ~typ:(returning (void)) -let layoutSubtreeIfNeeded self = msg_send ~self ~cmd:(selector "layoutSubtreeIfNeeded") ~typ:(returning (void)) -let needsDisplay self = msg_send ~self ~cmd:(selector "needsDisplay") ~typ:(returning (bool)) -let needsLayout self = msg_send ~self ~cmd:(selector "needsLayout") ~typ:(returning (bool)) -let sceneHostingViewControllerDidCreateScene x self = msg_send ~self ~cmd:(selector "sceneHostingViewControllerDidCreateScene:") ~typ:(id @-> returning (void)) x -let setHostedInToolbar x self = msg_send ~self ~cmd:(selector "setHostedInToolbar:") ~typ:(bool @-> returning (void)) x -let setNeedsDisplay x self = msg_send ~self ~cmd:(selector "setNeedsDisplay:") ~typ:(bool @-> returning (void)) x -let setNeedsDisplayInRect x self = msg_send ~self ~cmd:(selector "setNeedsDisplayInRect:") ~typ:(CGRect.t @-> returning (void)) x -let setNeedsLayout x self = msg_send ~self ~cmd:(selector "setNeedsLayout:") ~typ:(bool @-> returning (void)) x -let showActiveFirstResponderIndication self = msg_send ~self ~cmd:(selector "showActiveFirstResponderIndication") ~typ:(returning (void)) -let uiView self = msg_send ~self ~cmd:(selector "uiView") ~typ:(returning (id)) -let viewDidMoveToWindow self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow") ~typ:(returning (void)) -let viewWillMoveToWindow x self = msg_send ~self ~cmd:(selector "viewWillMoveToWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSSceneHostingViewController.ml b/uikit_extra/UINSSceneHostingViewController.ml deleted file mode 100644 index 5da48a3d..00000000 --- a/uikit_extra/UINSSceneHostingViewController.ml +++ /dev/null @@ -1,32 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSSceneHostingViewController" - -let cancelOutstandingUserInputIfNeeded self = msg_send ~self ~cmd:(selector "cancelOutstandingUserInputIfNeeded") ~typ:(returning (bool)) -let closeScene self = msg_send ~self ~cmd:(selector "closeScene") ~typ:(returning (void)) -let convertPointFromScene x self = msg_send_stret ~self ~cmd:(selector "convertPointFromScene:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertPointToScene x self = msg_send_stret ~self ~cmd:(selector "convertPointToScene:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertRectFromScene x self = msg_send_stret ~self ~cmd:(selector "convertRectFromScene:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let convertRectToScene x self = msg_send_stret ~self ~cmd:(selector "convertRectToScene:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let convertSizeFromScene x self = msg_send_stret ~self ~cmd:(selector "convertSizeFromScene:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let convertSizeToScene x self = msg_send_stret ~self ~cmd:(selector "convertSizeToScene:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let initWithSceneSize x self = msg_send ~self ~cmd:(selector "initWithSceneSize:") ~typ:(CGSize.t @-> returning (id)) x -let initWithSceneType x ~size self = msg_send ~self ~cmd:(selector "initWithSceneType:size:") ~typ:(llong @-> CGSize.t @-> returning (id)) (LLong.of_int x) size -let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning (id)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning (id)) -let sceneViewController self = msg_send ~self ~cmd:(selector "sceneViewController") ~typ:(returning (id)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let viewDidDisappear self = msg_send ~self ~cmd:(selector "viewDidDisappear") ~typ:(returning (void)) -let viewWillAppear self = msg_send ~self ~cmd:(selector "viewWillAppear") ~typ:(returning (void)) -let windowScene self = msg_send ~self ~cmd:(selector "windowScene") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSSceneView.ml b/uikit_extra/UINSSceneView.ml deleted file mode 100644 index 08646750..00000000 --- a/uikit_extra/UINSSceneView.ml +++ /dev/null @@ -1,96 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSSceneView" - -module C = struct - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let requiresConstraintBasedLayout self = msg_send ~self ~cmd:(selector "requiresConstraintBasedLayout") ~typ:(returning (bool)) - let setNeedsUpdateDisplayTiming self = msg_send ~self ~cmd:(selector "setNeedsUpdateDisplayTiming") ~typ:(returning (void)) - let updateDisplayTimingReturningRefreshInterval self = msg_send ~self ~cmd:(selector "updateDisplayTimingReturningRefreshInterval") ~typ:(returning (double)) -end - -let accessibilityFocusRingMaskBounds self = msg_send_stret ~self ~cmd:(selector "accessibilityFocusRingMaskBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let appKitHostedServiceUIWindow self = msg_send ~self ~cmd:(selector "appKitHostedServiceUIWindow") ~typ:(returning (id)) -let areImplicitZoomScaleAnimationsEnabled self = msg_send ~self ~cmd:(selector "areImplicitZoomScaleAnimationsEnabled") ~typ:(returning (bool)) -let concludeDragOperation x self = msg_send ~self ~cmd:(selector "concludeDragOperation:") ~typ:(id @-> returning (void)) x -let contextDidChangeHandler self = msg_send ~self ~cmd:(selector "contextDidChangeHandler") ~typ:(returning (ptr void)) -let contextId self = msg_send ~self ~cmd:(selector "contextId") ~typ:(returning (uint)) -let contextIdAtPoint x self = msg_send ~self ~cmd:(selector "contextIdAtPoint:") ~typ:(CGPoint.t @-> returning (uint)) x -let convertPointFromScene x self = msg_send_stret ~self ~cmd:(selector "convertPointFromScene:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertPointToScene x self = msg_send_stret ~self ~cmd:(selector "convertPointToScene:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertRectFromScene x self = msg_send_stret ~self ~cmd:(selector "convertRectFromScene:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let convertRectToScene x self = msg_send_stret ~self ~cmd:(selector "convertRectToScene:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let convertSizeFromScene x self = msg_send_stret ~self ~cmd:(selector "convertSizeFromScene:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let convertSizeToScene x self = msg_send_stret ~self ~cmd:(selector "convertSizeToScene:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let cursorUpdate x self = msg_send ~self ~cmd:(selector "cursorUpdate:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let draggingEnded x self = msg_send ~self ~cmd:(selector "draggingEnded:") ~typ:(id @-> returning (void)) x -let draggingEntered x self = msg_send ~self ~cmd:(selector "draggingEntered:") ~typ:(id @-> returning (ullong)) x -let draggingExited x self = msg_send ~self ~cmd:(selector "draggingExited:") ~typ:(id @-> returning (void)) x -let draggingUpdated x self = msg_send ~self ~cmd:(selector "draggingUpdated:") ~typ:(id @-> returning (ullong)) x -let dropSessions self = msg_send ~self ~cmd:(selector "dropSessions") ~typ:(returning (id)) -let dynamicTooTipRevealoverDrawInView x ~displayInfo self = msg_send ~self ~cmd:(selector "dynamicTooTipRevealoverDrawInView:displayInfo:") ~typ:(id @-> id @-> returning (void)) x displayInfo -let dynamicToolTipRectAtPoint x self = msg_send_stret ~self ~cmd:(selector "dynamicToolTipRectAtPoint:") ~typ:(CGPoint.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let dynamicToolTipRevealoverInfoAtPoint x ~trackingRect self = msg_send ~self ~cmd:(selector "dynamicToolTipRevealoverInfoAtPoint:trackingRect:") ~typ:(CGPoint.t @-> ptr (CGRect.t) @-> returning (id)) x trackingRect -let dynamicToolTipStringAtPoint x ~trackingRect self = msg_send ~self ~cmd:(selector "dynamicToolTipStringAtPoint:trackingRect:") ~typ:(CGPoint.t @-> ptr (CGRect.t) @-> returning (id)) x trackingRect -let enqueuedTimestampOfLastEvent self = msg_send ~self ~cmd:(selector "enqueuedTimestampOfLastEvent") ~typ:(returning (double)) -let externalDropSessionFor x self = msg_send ~self ~cmd:(selector "externalDropSessionFor:") ~typ:(uint @-> returning (id)) x -let fixedBackingScaleFactor self = msg_send ~self ~cmd:(selector "fixedBackingScaleFactor") ~typ:(returning (double)) -let fixedSceneToSceneViewScaleFactor self = msg_send ~self ~cmd:(selector "fixedSceneToSceneViewScaleFactor") ~typ:(returning (double)) -let focusRingType self = msg_send ~self ~cmd:(selector "focusRingType") ~typ:(returning (ullong)) -let hostedServiceUIWindow self = msg_send ~self ~cmd:(selector "hostedServiceUIWindow") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let inputView self = msg_send ~self ~cmd:(selector "inputView") ~typ:(returning (id)) -let isFlipped self = msg_send ~self ~cmd:(selector "isFlipped") ~typ:(returning (bool)) -let isSimAccessibilityEnabled self = msg_send ~self ~cmd:(selector "isSimAccessibilityEnabled") ~typ:(returning (bool)) -let isViewBridgeServiceScene self = msg_send ~self ~cmd:(selector "isViewBridgeServiceScene") ~typ:(returning (bool)) -let keyUIWindow self = msg_send ~self ~cmd:(selector "keyUIWindow") ~typ:(returning (id)) -let layout self = msg_send ~self ~cmd:(selector "layout") ~typ:(returning (void)) -let mouseDownCanMoveWindow self = msg_send ~self ~cmd:(selector "mouseDownCanMoveWindow") ~typ:(returning (bool)) -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let performDragOperation x self = msg_send ~self ~cmd:(selector "performDragOperation:") ~typ:(id @-> returning (bool)) x -let prepareForDragOperation x self = msg_send ~self ~cmd:(selector "prepareForDragOperation:") ~typ:(id @-> returning (bool)) x -let rasterizationScaleFactor self = msg_send ~self ~cmd:(selector "rasterizationScaleFactor") ~typ:(returning (double)) -let resizeBlock self = msg_send ~self ~cmd:(selector "resizeBlock") ~typ:(returning (ptr void)) -let resumeSceneResize self = msg_send ~self ~cmd:(selector "resumeSceneResize") ~typ:(returning (void)) -let scaleRectToScene x self = msg_send_stret ~self ~cmd:(selector "scaleRectToScene:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning (id)) -let sceneSize self = msg_send_stret ~self ~cmd:(selector "sceneSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let sceneToSceneViewScaleFactor self = msg_send ~self ~cmd:(selector "sceneToSceneViewScaleFactor") ~typ:(returning (double)) -let sceneViewController self = msg_send ~self ~cmd:(selector "sceneViewController") ~typ:(returning (id)) -let setAppKitHostedServiceUIWindow x self = msg_send ~self ~cmd:(selector "setAppKitHostedServiceUIWindow:") ~typ:(id @-> returning (void)) x -let setContextDidChangeHandler x self = msg_send ~self ~cmd:(selector "setContextDidChangeHandler:") ~typ:(ptr void @-> returning (void)) x -let setContextId x self = msg_send ~self ~cmd:(selector "setContextId:") ~typ:(uint @-> returning (void)) x -let setCursor x self = msg_send ~self ~cmd:(selector "setCursor:") ~typ:(id @-> returning (void)) x -let setDropSessions x self = msg_send ~self ~cmd:(selector "setDropSessions:") ~typ:(id @-> returning (void)) x -let setEnqueuedTimestampOfLastEvent x self = msg_send ~self ~cmd:(selector "setEnqueuedTimestampOfLastEvent:") ~typ:(double @-> returning (void)) x -let setFixedBackingScaleFactor x self = msg_send ~self ~cmd:(selector "setFixedBackingScaleFactor:") ~typ:(double @-> returning (void)) x -let setFixedSceneToSceneViewScaleFactor x self = msg_send ~self ~cmd:(selector "setFixedSceneToSceneViewScaleFactor:") ~typ:(double @-> returning (void)) x -let setFrameSize x self = msg_send ~self ~cmd:(selector "setFrameSize:") ~typ:(CGSize.t @-> returning (void)) x -let setHostedServiceUIWindow x self = msg_send ~self ~cmd:(selector "setHostedServiceUIWindow:") ~typ:(id @-> returning (void)) x -let setImplicitZoomScaleAnimationsEnabled x self = msg_send ~self ~cmd:(selector "setImplicitZoomScaleAnimationsEnabled:") ~typ:(bool @-> returning (void)) x -let setIsSimAccessibilityEnabled x self = msg_send ~self ~cmd:(selector "setIsSimAccessibilityEnabled:") ~typ:(bool @-> returning (void)) x -let setRasterizationScaleFactor x self = msg_send ~self ~cmd:(selector "setRasterizationScaleFactor:") ~typ:(double @-> returning (void)) x -let setResizeBlock x self = msg_send ~self ~cmd:(selector "setResizeBlock:") ~typ:(ptr void @-> returning (void)) x -let setSceneIdentifier x self = msg_send ~self ~cmd:(selector "setSceneIdentifier:") ~typ:(id @-> returning (void)) x -let setSceneSize x self = msg_send ~self ~cmd:(selector "setSceneSize:") ~typ:(CGSize.t @-> returning (void)) x -let setSceneViewController x self = msg_send ~self ~cmd:(selector "setSceneViewController:") ~typ:(id @-> returning (void)) x -let setShouldHostContent x self = msg_send ~self ~cmd:(selector "setShouldHostContent:") ~typ:(bool @-> returning (void)) x -let setUINSCursor x self = msg_send ~self ~cmd:(selector "setUINSCursor:") ~typ:(id @-> returning (void)) x -let setViewBridgeServiceScene x self = msg_send ~self ~cmd:(selector "setViewBridgeServiceScene:") ~typ:(bool @-> returning (void)) x -let shouldHostContent self = msg_send ~self ~cmd:(selector "shouldHostContent") ~typ:(returning (bool)) -let suppressSceneResize self = msg_send ~self ~cmd:(selector "suppressSceneResize") ~typ:(returning (void)) -let uiWindows self = msg_send ~self ~cmd:(selector "uiWindows") ~typ:(returning (id)) -let updateDragContextRegistrations self = msg_send ~self ~cmd:(selector "updateDragContextRegistrations") ~typ:(returning (void)) -let viewDidChangeBackingProperties self = msg_send ~self ~cmd:(selector "viewDidChangeBackingProperties") ~typ:(returning (void)) -let viewDidMoveToWindow self = msg_send ~self ~cmd:(selector "viewDidMoveToWindow") ~typ:(returning (void)) -let viewWillMoveToWindow x self = msg_send ~self ~cmd:(selector "viewWillMoveToWindow:") ~typ:(id @-> returning (void)) x -let wantsPeriodicDraggingUpdates self = msg_send ~self ~cmd:(selector "wantsPeriodicDraggingUpdates") ~typ:(returning (bool)) -let warpCursorToScene self = msg_send ~self ~cmd:(selector "warpCursorToScene") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UINSSceneViewController.ml b/uikit_extra/UINSSceneViewController.ml deleted file mode 100644 index 94c97e1f..00000000 --- a/uikit_extra/UINSSceneViewController.ml +++ /dev/null @@ -1,54 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSSceneViewController" - -module C = struct - let defaultUIScaleFactorForIdiom self = msg_send ~self ~cmd:(selector "defaultUIScaleFactorForIdiom") ~typ:(returning (double)) - let defaultUIScaleFactorForWindows self = msg_send ~self ~cmd:(selector "defaultUIScaleFactorForWindows") ~typ:(returning (double)) - let downscaleWindowIfNecessary self = msg_send ~self ~cmd:(selector "downscaleWindowIfNecessary") ~typ:(returning (bool)) - let setDefaultUIScaleFactorForIdiom x self = msg_send ~self ~cmd:(selector "setDefaultUIScaleFactorForIdiom:") ~typ:(double @-> returning (void)) x - let setDefaultUIScaleFactorForWindows x self = msg_send ~self ~cmd:(selector "setDefaultUIScaleFactorForWindows:") ~typ:(double @-> returning (void)) x - let setDownscaleWindowIfNecessary x self = msg_send ~self ~cmd:(selector "setDownscaleWindowIfNecessary:") ~typ:(bool @-> returning (void)) x -end - -let _UIScene self = msg_send ~self ~cmd:(selector "UIScene") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let effectiveScaleFactorForExitFullscreenTransition self = msg_send ~self ~cmd:(selector "effectiveScaleFactorForExitFullscreenTransition") ~typ:(returning (double)) -let effectiveScaleFactorForLayout self = msg_send ~self ~cmd:(selector "effectiveScaleFactorForLayout") ~typ:(returning (double)) -let forceUpdateSizeRestrictions self = msg_send ~self ~cmd:(selector "forceUpdateSizeRestrictions") ~typ:(returning (void)) -let hostedContextID self = msg_send ~self ~cmd:(selector "hostedContextID") ~typ:(returning (uint)) -let hostingSceneType self = msg_send ~self ~cmd:(selector "hostingSceneType") ~typ:(returning (llong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithNibName x ~bundle self = msg_send ~self ~cmd:(selector "initWithNibName:bundle:") ~typ:(id @-> id @-> returning (id)) x bundle -let initWithSceneType x self = msg_send ~self ~cmd:(selector "initWithSceneType:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let isSceneViewPinned self = msg_send ~self ~cmd:(selector "isSceneViewPinned") ~typ:(returning (bool)) -let isSceneViewZoomEnabled self = msg_send ~self ~cmd:(selector "isSceneViewZoomEnabled") ~typ:(returning (bool)) -let isTransitioningFromFullscreen self = msg_send ~self ~cmd:(selector "isTransitioningFromFullscreen") ~typ:(returning (bool)) -let isTransitioningToFullscreen self = msg_send ~self ~cmd:(selector "isTransitioningToFullscreen") ~typ:(returning (bool)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let persistentIdentifier self = msg_send ~self ~cmd:(selector "persistentIdentifier") ~typ:(returning (id)) -let providesContentViewToHostWindow self = msg_send ~self ~cmd:(selector "providesContentViewToHostWindow") ~typ:(returning (bool)) -let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning (id)) -let sceneView self = msg_send ~self ~cmd:(selector "sceneView") ~typ:(returning (id)) -let sceneViewMinSize x ~maxSize self = msg_send ~self ~cmd:(selector "sceneViewMinSize:maxSize:") ~typ:(ptr (CGSize.t) @-> ptr (CGSize.t) @-> returning (void)) x maxSize -let setHostedContextID x self = msg_send ~self ~cmd:(selector "setHostedContextID:") ~typ:(uint @-> returning (void)) x -let setNeedsSizeRestrictionsUpdate self = msg_send ~self ~cmd:(selector "setNeedsSizeRestrictionsUpdate") ~typ:(returning (void)) -let setPersistentIdentifier x self = msg_send ~self ~cmd:(selector "setPersistentIdentifier:") ~typ:(id @-> returning (void)) x -let setSceneView x self = msg_send ~self ~cmd:(selector "setSceneView:") ~typ:(id @-> returning (void)) x -let setSceneViewPinned x self = msg_send ~self ~cmd:(selector "setSceneViewPinned:") ~typ:(bool @-> returning (void)) x -let setSceneViewZoomEnabled x self = msg_send ~self ~cmd:(selector "setSceneViewZoomEnabled:") ~typ:(bool @-> returning (void)) x -let setTransitioningFromFullscreen x self = msg_send ~self ~cmd:(selector "setTransitioningFromFullscreen:") ~typ:(bool @-> returning (void)) x -let setTransitioningToFullscreen x self = msg_send ~self ~cmd:(selector "setTransitioningToFullscreen:") ~typ:(bool @-> returning (void)) x -let setUIScene x self = msg_send ~self ~cmd:(selector "setUIScene:") ~typ:(id @-> returning (void)) x -let updateViewConstraints self = msg_send ~self ~cmd:(selector "updateViewConstraints") ~typ:(returning (void)) -let viewDidAppear self = msg_send ~self ~cmd:(selector "viewDidAppear") ~typ:(returning (void)) -let viewDidLoad self = msg_send ~self ~cmd:(selector "viewDidLoad") ~typ:(returning (void)) -let viewWillDisappear self = msg_send ~self ~cmd:(selector "viewWillDisappear") ~typ:(returning (void)) -let windowProxy self = msg_send ~self ~cmd:(selector "windowProxy") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSSceneWindowController.ml b/uikit_extra/UINSSceneWindowController.ml deleted file mode 100644 index fb0ab1a9..00000000 --- a/uikit_extra/UINSSceneWindowController.ml +++ /dev/null @@ -1,33 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSSceneWindowController" - -let _UIScene self = msg_send ~self ~cmd:(selector "UIScene") ~typ:(returning (id)) -let declinedEventMask self = msg_send ~self ~cmd:(selector "declinedEventMask") ~typ:(returning (uint)) -let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning (void)) x -let extensionContext self = msg_send ~self ~cmd:(selector "extensionContext") ~typ:(returning (id)) -let loadWindow self = msg_send ~self ~cmd:(selector "loadWindow") ~typ:(returning (void)) -let persistentIdentifier self = msg_send ~self ~cmd:(selector "persistentIdentifier") ~typ:(returning (id)) -let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning (id)) -let sceneViewController self = msg_send ~self ~cmd:(selector "sceneViewController") ~typ:(returning (id)) -let sceneWindow self = msg_send ~self ~cmd:(selector "sceneWindow") ~typ:(returning (id)) -let setExtensionContext x self = msg_send ~self ~cmd:(selector "setExtensionContext:") ~typ:(id @-> returning (void)) x -let setPersistentIdentifier x self = msg_send ~self ~cmd:(selector "setPersistentIdentifier:") ~typ:(id @-> returning (void)) x -let setUIScene x self = msg_send ~self ~cmd:(selector "setUIScene:") ~typ:(id @-> returning (void)) x -let window x ~willUseFullScreenPresentationOptions self = msg_send ~self ~cmd:(selector "window:willUseFullScreenPresentationOptions:") ~typ:(id @-> ullong @-> returning (ullong)) x (ULLong.of_int willUseFullScreenPresentationOptions) -let windowClass self = msg_send ~self ~cmd:(selector "windowClass") ~typ:(returning (_Class)) -let windowDidEnterFullScreen x self = msg_send ~self ~cmd:(selector "windowDidEnterFullScreen:") ~typ:(id @-> returning (void)) x -let windowDidExitFullScreen x self = msg_send ~self ~cmd:(selector "windowDidExitFullScreen:") ~typ:(id @-> returning (void)) x -let windowDidFailToEnterFullScreen x self = msg_send ~self ~cmd:(selector "windowDidFailToEnterFullScreen:") ~typ:(id @-> returning (void)) x -let windowDidFailToExitFullScreen x self = msg_send ~self ~cmd:(selector "windowDidFailToExitFullScreen:") ~typ:(id @-> returning (void)) x -let windowDidLoad self = msg_send ~self ~cmd:(selector "windowDidLoad") ~typ:(returning (void)) -let windowNibName self = msg_send ~self ~cmd:(selector "windowNibName") ~typ:(returning (id)) -let windowShouldClose x self = msg_send ~self ~cmd:(selector "windowShouldClose:") ~typ:(id @-> returning (bool)) x -let windowWillEnterFullScreen x self = msg_send ~self ~cmd:(selector "windowWillEnterFullScreen:") ~typ:(id @-> returning (void)) x -let windowWillExitFullScreen x self = msg_send ~self ~cmd:(selector "windowWillExitFullScreen:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSScrollState.ml b/uikit_extra/UINSScrollState.ml deleted file mode 100644 index b6abc0dc..00000000 --- a/uikit_extra/UINSScrollState.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSScrollState" - -let addMomentumDelta x ~timestamp self = msg_send ~self ~cmd:(selector "addMomentumDelta:timestamp:") ~typ:(CGPoint.t @-> double @-> returning (void)) x timestamp -let contextId self = msg_send ~self ~cmd:(selector "contextId") ~typ:(returning (uint)) -let gesturePhase self = msg_send ~self ~cmd:(selector "gesturePhase") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let momentumPhase self = msg_send ~self ~cmd:(selector "momentumPhase") ~typ:(returning (ullong)) -let momentumVelocity self = msg_send_stret ~self ~cmd:(selector "momentumVelocity") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let relativePhase self = msg_send ~self ~cmd:(selector "relativePhase") ~typ:(returning (ullong)) -let relativeTimer self = msg_send ~self ~cmd:(selector "relativeTimer") ~typ:(returning (id)) -let resetMomentumVelocity self = msg_send ~self ~cmd:(selector "resetMomentumVelocity") ~typ:(returning (void)) -let setContextId x self = msg_send ~self ~cmd:(selector "setContextId:") ~typ:(uint @-> returning (void)) x -let setGesturePhase x self = msg_send ~self ~cmd:(selector "setGesturePhase:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setMomentumPhase x self = msg_send ~self ~cmd:(selector "setMomentumPhase:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setRelativePhase x self = msg_send ~self ~cmd:(selector "setRelativePhase:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setRelativeTimer x self = msg_send ~self ~cmd:(selector "setRelativeTimer:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSSearchFieldToolbarItem.ml b/uikit_extra/UINSSearchFieldToolbarItem.ml deleted file mode 100644 index eea6ba9d..00000000 --- a/uikit_extra/UINSSearchFieldToolbarItem.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSSearchFieldToolbarItem" - -let action x self = msg_send ~self ~cmd:(selector "action:") ~typ:(id @-> returning (void)) x -let actionHandler self = msg_send ~self ~cmd:(selector "actionHandler") ~typ:(returning (ptr void)) -let initWithIdentifier x self = msg_send ~self ~cmd:(selector "initWithIdentifier:") ~typ:(id @-> returning (id)) x -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let placeholder self = msg_send ~self ~cmd:(selector "placeholder") ~typ:(returning (id)) -let prepareItem self = msg_send ~self ~cmd:(selector "prepareItem") ~typ:(returning (void)) -let setActionHandler x self = msg_send ~self ~cmd:(selector "setActionHandler:") ~typ:(ptr void @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setPlaceholder x self = msg_send ~self ~cmd:(selector "setPlaceholder:") ~typ:(id @-> returning (void)) x -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSSegmentedControlToolbarItem.ml b/uikit_extra/UINSSegmentedControlToolbarItem.ml deleted file mode 100644 index e1f48973..00000000 --- a/uikit_extra/UINSSegmentedControlToolbarItem.ml +++ /dev/null @@ -1,31 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSSegmentedControlToolbarItem" - -let accessibilityInfoSegments self = msg_send ~self ~cmd:(selector "accessibilityInfoSegments") ~typ:(returning (id)) -let action x self = msg_send ~self ~cmd:(selector "action:") ~typ:(id @-> returning (void)) x -let initWithIdentifier x self = msg_send ~self ~cmd:(selector "initWithIdentifier:") ~typ:(id @-> returning (id)) x -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let menuForSegment x self = msg_send ~self ~cmd:(selector "menuForSegment:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let prepareItem self = msg_send ~self ~cmd:(selector "prepareItem") ~typ:(returning (void)) -let propertyObserver self = msg_send ~self ~cmd:(selector "propertyObserver") ~typ:(returning (id)) -let segmentHelperImages self = msg_send ~self ~cmd:(selector "segmentHelperImages") ~typ:(returning (id)) -let segmentImageNames self = msg_send ~self ~cmd:(selector "segmentImageNames") ~typ:(returning (id)) -let segmentTitles self = msg_send ~self ~cmd:(selector "segmentTitles") ~typ:(returning (id)) -let selectedSegment self = msg_send ~self ~cmd:(selector "selectedSegment") ~typ:(returning (llong)) -let setAccessibilityInfoSegments x self = msg_send ~self ~cmd:(selector "setAccessibilityInfoSegments:") ~typ:(id @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let setMenu x ~forSegment self = msg_send ~self ~cmd:(selector "setMenu:forSegment:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forSegment) -let setPropertyObserver x self = msg_send ~self ~cmd:(selector "setPropertyObserver:") ~typ:(id @-> returning (void)) x -let setSegmentHelperImages x self = msg_send ~self ~cmd:(selector "setSegmentHelperImages:") ~typ:(id @-> returning (void)) x -let setSegmentImageNames x self = msg_send ~self ~cmd:(selector "setSegmentImageNames:") ~typ:(id @-> returning (void)) x -let setSegmentTitles x self = msg_send ~self ~cmd:(selector "setSegmentTitles:") ~typ:(id @-> returning (void)) x -let setSelectedSegment x self = msg_send ~self ~cmd:(selector "setSelectedSegment:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTrackingMode x self = msg_send ~self ~cmd:(selector "setTrackingMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let trackingMode self = msg_send ~self ~cmd:(selector "trackingMode") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit_extra/UINSServiceViewController.ml b/uikit_extra/UINSServiceViewController.ml deleted file mode 100644 index 62aa4f0d..00000000 --- a/uikit_extra/UINSServiceViewController.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSServiceViewController" - -module C = struct - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) -end - -let controllerIsMarzipan self = msg_send ~self ~cmd:(selector "controllerIsMarzipan") ~typ:(returning (bool)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let declinedEventMask self = msg_send ~self ~cmd:(selector "declinedEventMask") ~typ:(returning (uint)) -let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning (void)) -let rootUIViewController self = msg_send ~self ~cmd:(selector "rootUIViewController") ~typ:(returning (id)) -let setRootUIViewController x self = msg_send ~self ~cmd:(selector "setRootUIViewController:") ~typ:(id @-> returning (void)) x -let setWindowController x self = msg_send ~self ~cmd:(selector "setWindowController:") ~typ:(id @-> returning (void)) x -let windowController self = msg_send ~self ~cmd:(selector "windowController") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSShadowDatePicker.ml b/uikit_extra/UINSShadowDatePicker.ml deleted file mode 100644 index 6e61f62d..00000000 --- a/uikit_extra/UINSShadowDatePicker.ml +++ /dev/null @@ -1,40 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSShadowDatePicker" - -let backingDatePicker self = msg_send ~self ~cmd:(selector "backingDatePicker") ~typ:(returning (id)) -let backingDatePickerDateValue self = msg_send ~self ~cmd:(selector "backingDatePickerDateValue") ~typ:(returning (id)) -let backingDatePickerHighlightedTextColor self = msg_send ~self ~cmd:(selector "backingDatePickerHighlightedTextColor") ~typ:(returning (id)) -let backingDatePickerSubfieldsFrame self = msg_send_stret ~self ~cmd:(selector "backingDatePickerSubfieldsFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let calendar self = msg_send ~self ~cmd:(selector "calendar") ~typ:(returning (id)) -let calendarValues self = msg_send ~self ~cmd:(selector "calendarValues") ~typ:(returning (id)) -let createBackingDatePickerIfNecessary self = msg_send ~self ~cmd:(selector "createBackingDatePickerIfNecessary") ~typ:(returning (void)) -let datePreferencesDidChange x self = msg_send ~self ~cmd:(selector "datePreferencesDidChange:") ~typ:(id @-> returning (void)) x -let dateValue self = msg_send ~self ~cmd:(selector "dateValue") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let decrememntElement x self = msg_send ~self ~cmd:(selector "decrememntElement:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let finishPendingEdit self = msg_send ~self ~cmd:(selector "finishPendingEdit") ~typ:(returning (void)) -let font self = msg_send ~self ~cmd:(selector "font") ~typ:(returning (id)) -let incrememntElement x self = msg_send ~self ~cmd:(selector "incrememntElement:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isSettingDate self = msg_send ~self ~cmd:(selector "isSettingDate") ~typ:(returning (bool)) -let locale self = msg_send ~self ~cmd:(selector "locale") ~typ:(returning (id)) -let processInputString x ~forElement self = msg_send ~self ~cmd:(selector "processInputString:forElement:") ~typ:(id @-> ullong @-> returning (bool)) x (ULLong.of_int forElement) -let reloadCalendarValues self = msg_send ~self ~cmd:(selector "reloadCalendarValues") ~typ:(returning (void)) -let setBackingDatePicker x self = msg_send ~self ~cmd:(selector "setBackingDatePicker:") ~typ:(id @-> returning (void)) x -let setBackingDatePickerMode x self = msg_send ~self ~cmd:(selector "setBackingDatePickerMode:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setCalendar x self = msg_send ~self ~cmd:(selector "setCalendar:") ~typ:(id @-> returning (void)) x -let setDateValue x self = msg_send ~self ~cmd:(selector "setDateValue:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setFont x self = msg_send ~self ~cmd:(selector "setFont:") ~typ:(id @-> returning (void)) x -let setIsSettingDate x self = msg_send ~self ~cmd:(selector "setIsSettingDate:") ~typ:(bool @-> returning (void)) x -let setLocale x self = msg_send ~self ~cmd:(selector "setLocale:") ~typ:(id @-> returning (void)) x -let setTimeZone x self = msg_send ~self ~cmd:(selector "setTimeZone:") ~typ:(id @-> returning (void)) x -let timeZone self = msg_send ~self ~cmd:(selector "timeZone") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSShadowDatePickerValue.ml b/uikit_extra/UINSShadowDatePickerValue.ml deleted file mode 100644 index 8c16c857..00000000 --- a/uikit_extra/UINSShadowDatePickerValue.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSShadowDatePickerValue" - -let dateFormat self = msg_send ~self ~cmd:(selector "dateFormat") ~typ:(returning (id)) -let element self = msg_send ~self ~cmd:(selector "element") ~typ:(returning (ullong)) -let frame self = msg_send_stret ~self ~cmd:(selector "frame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let setDateFormat x self = msg_send ~self ~cmd:(selector "setDateFormat:") ~typ:(id @-> returning (void)) x -let setElement x self = msg_send ~self ~cmd:(selector "setElement:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setStringValue x self = msg_send ~self ~cmd:(selector "setStringValue:") ~typ:(id @-> returning (void)) x -let setTextAreaRect x self = msg_send ~self ~cmd:(selector "setTextAreaRect:") ~typ:(CGRect.t @-> returning (void)) x -let stringValue self = msg_send ~self ~cmd:(selector "stringValue") ~typ:(returning (id)) -let textAreaRect self = msg_send_stret ~self ~cmd:(selector "textAreaRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t \ No newline at end of file diff --git a/uikit_extra/UINSShadowRemoteViewController.ml b/uikit_extra/UINSShadowRemoteViewController.ml deleted file mode 100644 index 42315cee..00000000 --- a/uikit_extra/UINSShadowRemoteViewController.ml +++ /dev/null @@ -1,26 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSShadowRemoteViewController" - -module C = struct - let maybeReestablishFirstResponderStateForUIWindow x ~uiFirstResponder self = msg_send ~self ~cmd:(selector "maybeReestablishFirstResponderStateForUIWindow:uiFirstResponder:") ~typ:(id @-> id @-> returning (void)) x uiFirstResponder - let remoteViewShouldHaveAccessibilityChildren x self = msg_send ~self ~cmd:(selector "remoteViewShouldHaveAccessibilityChildren:") ~typ:(id @-> returning (bool)) x -end - -let setShowsDebugOverlay x self = msg_send ~self ~cmd:(selector "setShowsDebugOverlay:") ~typ:(bool @-> returning (void)) x -let setTrackedView x self = msg_send ~self ~cmd:(selector "setTrackedView:") ~typ:(id @-> returning (void)) x -let setTrackedViewController x self = msg_send ~self ~cmd:(selector "setTrackedViewController:") ~typ:(id @-> returning (void)) x -let shouldLayerBackRemoteView x self = msg_send ~self ~cmd:(selector "shouldLayerBackRemoteView:") ~typ:(id @-> returning (bool)) x -let showsDebugOverlay self = msg_send ~self ~cmd:(selector "showsDebugOverlay") ~typ:(returning (bool)) -let startTrackingView self = msg_send ~self ~cmd:(selector "startTrackingView") ~typ:(returning (void)) -let trackedView self = msg_send ~self ~cmd:(selector "trackedView") ~typ:(returning (id)) -let trackedViewController self = msg_send ~self ~cmd:(selector "trackedViewController") ~typ:(returning (id)) -let updateTrackedViewPosition x self = msg_send ~self ~cmd:(selector "updateTrackedViewPosition:") ~typ:(id @-> returning (void)) x -let viewDidAppear self = msg_send ~self ~cmd:(selector "viewDidAppear") ~typ:(returning (void)) -let viewWillDisappear self = msg_send ~self ~cmd:(selector "viewWillDisappear") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UINSShareSheetController.ml b/uikit_extra/UINSShareSheetController.ml deleted file mode 100644 index c0c0ed3c..00000000 --- a/uikit_extra/UINSShareSheetController.ml +++ /dev/null @@ -1,41 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSShareSheetController" - -module C = struct - let sharedShareSheetController self = msg_send ~self ~cmd:(selector "sharedShareSheetController") ~typ:(returning (id)) -end - -let activityItemsConfiguration self = msg_send ~self ~cmd:(selector "activityItemsConfiguration") ~typ:(returning (id)) -let activitySelectedHandler self = msg_send ~self ~cmd:(selector "activitySelectedHandler") ~typ:(returning (ptr void)) -let applicationActivities self = msg_send ~self ~cmd:(selector "applicationActivities") ~typ:(returning (id)) -let applicationServices self = msg_send ~self ~cmd:(selector "applicationServices") ~typ:(returning (id)) -let completionWithItemsHandler self = msg_send ~self ~cmd:(selector "completionWithItemsHandler") ~typ:(returning (ptr void)) -let convertRectFromUIWindow x self = msg_send_stret ~self ~cmd:(selector "convertRectFromUIWindow:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let excludedActivityTypes self = msg_send ~self ~cmd:(selector "excludedActivityTypes") ~typ:(returning (id)) -let itemsForSharingServicePickerToolbarItem x self = msg_send ~self ~cmd:(selector "itemsForSharingServicePickerToolbarItem:") ~typ:(id @-> returning (id)) x -let keyHostWindow self = msg_send ~self ~cmd:(selector "keyHostWindow") ~typ:(returning (id)) -let presentShareSheetWithItems x ~atUIWindowRect self = msg_send ~self ~cmd:(selector "presentShareSheetWithItems:atUIWindowRect:") ~typ:(id @-> CGRect.t @-> returning (void)) x atUIWindowRect -let setActivityItemsConfiguration x self = msg_send ~self ~cmd:(selector "setActivityItemsConfiguration:") ~typ:(id @-> returning (void)) x -let setActivitySelectedHandler x self = msg_send ~self ~cmd:(selector "setActivitySelectedHandler:") ~typ:(ptr void @-> returning (void)) x -let setApplicationActivities x self = msg_send ~self ~cmd:(selector "setApplicationActivities:") ~typ:(id @-> returning (void)) x -let setCompletionWithItemsHandler x self = msg_send ~self ~cmd:(selector "setCompletionWithItemsHandler:") ~typ:(ptr void @-> returning (void)) x -let setExcludedActivityTypes x self = msg_send ~self ~cmd:(selector "setExcludedActivityTypes:") ~typ:(id @-> returning (void)) x -let setShareKitInfo x self = msg_send ~self ~cmd:(selector "setShareKitInfo:") ~typ:(id @-> returning (void)) x -let setSharingServicePicker x self = msg_send ~self ~cmd:(selector "setSharingServicePicker:") ~typ:(id @-> returning (void)) x -let setSharingStyle x self = msg_send ~self ~cmd:(selector "setSharingStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let shareKitInfo self = msg_send ~self ~cmd:(selector "shareKitInfo") ~typ:(returning (id)) -let sharingService x ~didShareItems self = msg_send ~self ~cmd:(selector "sharingService:didShareItems:") ~typ:(id @-> id @-> returning (void)) x didShareItems -let sharingService1 x ~didFailToShareItems ~error self = msg_send ~self ~cmd:(selector "sharingService:didFailToShareItems:error:") ~typ:(id @-> id @-> id @-> returning (void)) x didFailToShareItems error -let sharingService2 x ~sourceWindowForShareItems ~sharingContentScope self = msg_send ~self ~cmd:(selector "sharingService:sourceWindowForShareItems:sharingContentScope:") ~typ:(id @-> id @-> ptr (llong) @-> returning (id)) x sourceWindowForShareItems sharingContentScope -let sharingServicePicker self = msg_send ~self ~cmd:(selector "sharingServicePicker") ~typ:(returning (id)) -let sharingServicePicker1 x ~delegateForSharingService self = msg_send ~self ~cmd:(selector "sharingServicePicker:delegateForSharingService:") ~typ:(id @-> id @-> returning (id)) x delegateForSharingService -let sharingServicePicker2 x ~didChooseSharingService self = msg_send ~self ~cmd:(selector "sharingServicePicker:didChooseSharingService:") ~typ:(id @-> id @-> returning (void)) x didChooseSharingService -let sharingServicePicker3 x ~sharingServicesForItems ~proposedSharingServices self = msg_send ~self ~cmd:(selector "sharingServicePicker:sharingServicesForItems:proposedSharingServices:") ~typ:(id @-> id @-> id @-> returning (id)) x sharingServicesForItems proposedSharingServices -let sharingStyle self = msg_send ~self ~cmd:(selector "sharingStyle") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit_extra/UINSShareToolbarItem.ml b/uikit_extra/UINSShareToolbarItem.ml deleted file mode 100644 index 1174ab08..00000000 --- a/uikit_extra/UINSShareToolbarItem.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSShareToolbarItem" - -let action x self = msg_send ~self ~cmd:(selector "action:") ~typ:(id @-> returning (void)) x -let activityItems self = msg_send ~self ~cmd:(selector "activityItems") ~typ:(returning (id)) -let completionWithItemsHandler self = msg_send ~self ~cmd:(selector "completionWithItemsHandler") ~typ:(returning (ptr void)) -let initWithIdentifier x self = msg_send ~self ~cmd:(selector "initWithIdentifier:") ~typ:(id @-> returning (id)) x -let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning (bool)) -let prepareItem self = msg_send ~self ~cmd:(selector "prepareItem") ~typ:(returning (void)) -let setActivityItems x self = msg_send ~self ~cmd:(selector "setActivityItems:") ~typ:(id @-> returning (void)) x -let setCompletionWithItemsHandler x self = msg_send ~self ~cmd:(selector "setCompletionWithItemsHandler:") ~typ:(ptr void @-> returning (void)) x -let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning (void)) x -let sharingService x ~didShareItems self = msg_send ~self ~cmd:(selector "sharingService:didShareItems:") ~typ:(id @-> id @-> returning (void)) x didShareItems -let sharingService1 x ~didFailToShareItems ~error self = msg_send ~self ~cmd:(selector "sharingService:didFailToShareItems:error:") ~typ:(id @-> id @-> id @-> returning (void)) x didFailToShareItems error -let sharingService2 x ~sourceWindowForShareItems ~sharingContentScope self = msg_send ~self ~cmd:(selector "sharingService:sourceWindowForShareItems:sharingContentScope:") ~typ:(id @-> id @-> ptr (llong) @-> returning (id)) x sourceWindowForShareItems sharingContentScope -let sharingServicePicker x ~delegateForSharingService self = msg_send ~self ~cmd:(selector "sharingServicePicker:delegateForSharingService:") ~typ:(id @-> id @-> returning (id)) x delegateForSharingService \ No newline at end of file diff --git a/uikit_extra/UINSSharingDelegateItemSource.ml b/uikit_extra/UINSSharingDelegateItemSource.ml deleted file mode 100644 index 040c9243..00000000 --- a/uikit_extra/UINSSharingDelegateItemSource.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSSharingDelegateItemSource" - -let initWithActivityItemsConfiguration x ~itemAtIndex self = msg_send ~self ~cmd:(selector "initWithActivityItemsConfiguration:itemAtIndex:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int itemAtIndex) -let sharingServicePicker x ~itemForSharingServiceName self = msg_send ~self ~cmd:(selector "sharingServicePicker:itemForSharingServiceName:") ~typ:(id @-> id @-> returning (id)) x itemForSharingServiceName -let sharingServicePicker1 x ~subjectForSharingServiceName self = msg_send ~self ~cmd:(selector "sharingServicePicker:subjectForSharingServiceName:") ~typ:(id @-> id @-> returning (id)) x subjectForSharingServiceName -let sharingServicePicker2 x ~thumbnailImageForSharingServiceName ~suggestedSize self = msg_send ~self ~cmd:(selector "sharingServicePicker:thumbnailImageForSharingServiceName:suggestedSize:") ~typ:(id @-> id @-> CGSize.t @-> returning (id)) x thumbnailImageForSharingServiceName suggestedSize -let sharingServicePickerPlaceholderItem x self = msg_send ~self ~cmd:(selector "sharingServicePickerPlaceholderItem:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit_extra/UINSSharingMenu.ml b/uikit_extra/UINSSharingMenu.ml deleted file mode 100644 index a2a57bb6..00000000 --- a/uikit_extra/UINSSharingMenu.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSSharingMenu" - -let initWithTitle x self = msg_send ~self ~cmd:(selector "initWithTitle:") ~typ:(id @-> returning (id)) x -let menuNeedsUpdate x self = msg_send ~self ~cmd:(selector "menuNeedsUpdate:") ~typ:(id @-> returning (void)) x -let picker self = msg_send ~self ~cmd:(selector "picker") ~typ:(returning (id)) -let setPicker x self = msg_send ~self ~cmd:(selector "setPicker:") ~typ:(id @-> returning (void)) x -let sharingServicePicker x ~didChooseSharingService self = msg_send ~self ~cmd:(selector "sharingServicePicker:didChooseSharingService:") ~typ:(id @-> id @-> returning (void)) x didChooseSharingService -let sharingServicePicker' x ~sharingServicesForItems ~proposedSharingServices self = msg_send ~self ~cmd:(selector "sharingServicePicker:sharingServicesForItems:proposedSharingServices:") ~typ:(id @-> id @-> id @-> returning (id)) x sharingServicesForItems proposedSharingServices \ No newline at end of file diff --git a/uikit_extra/UINSSharingToolbarItem.ml b/uikit_extra/UINSSharingToolbarItem.ml deleted file mode 100644 index c270d546..00000000 --- a/uikit_extra/UINSSharingToolbarItem.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSSharingToolbarItem" - -let initWithItemIdentifier x self = msg_send ~self ~cmd:(selector "initWithItemIdentifier:") ~typ:(id @-> returning (id)) x -let setAction x self = msg_send ~self ~cmd:(selector "setAction:") ~typ:(_SEL @-> returning (void)) x -let setTarget x self = msg_send ~self ~cmd:(selector "setTarget:") ~typ:(id @-> returning (void)) x -let validate self = msg_send ~self ~cmd:(selector "validate") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UINSSheetManager.ml b/uikit_extra/UINSSheetManager.ml deleted file mode 100644 index 0a306c6f..00000000 --- a/uikit_extra/UINSSheetManager.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSSheetManager" - -let dismissSheet self = msg_send ~self ~cmd:(selector "dismissSheet") ~typ:(returning (void)) -let initWithSheetWindow x ~parentWindow ~contentSize ~setupCompletionHandler self = msg_send ~self ~cmd:(selector "initWithSheetWindow:parentWindow:contentSize:setupCompletionHandler:") ~typ:(id @-> id @-> CGSize.t @-> ptr void @-> returning (id)) x parentWindow contentSize setupCompletionHandler -let parentUIWindow self = msg_send ~self ~cmd:(selector "parentUIWindow") ~typ:(returning (id)) -let sceneHostingViewControllerDidCreateScene x self = msg_send ~self ~cmd:(selector "sceneHostingViewControllerDidCreateScene:") ~typ:(id @-> returning (void)) x -let sheetUIWindow self = msg_send ~self ~cmd:(selector "sheetUIWindow") ~typ:(returning (id)) -let updateSheetSize x self = msg_send ~self ~cmd:(selector "updateSheetSize:") ~typ:(CGSize.t @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSSystemAppearance.ml b/uikit_extra/UINSSystemAppearance.ml deleted file mode 100644 index c4b5f1c2..00000000 --- a/uikit_extra/UINSSystemAppearance.ml +++ /dev/null @@ -1,34 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSSystemAppearance" - -let accessibilityDisplayShouldDifferentiateWithoutColor self = msg_send ~self ~cmd:(selector "accessibilityDisplayShouldDifferentiateWithoutColor") ~typ:(returning (bool)) -let accessibilityDisplayShouldIncreaseContrast self = msg_send ~self ~cmd:(selector "accessibilityDisplayShouldIncreaseContrast") ~typ:(returning (bool)) -let accessibilityDisplayShouldInvertColors self = msg_send ~self ~cmd:(selector "accessibilityDisplayShouldInvertColors") ~typ:(returning (bool)) -let accessibilityDisplayShouldReduceMotion self = msg_send ~self ~cmd:(selector "accessibilityDisplayShouldReduceMotion") ~typ:(returning (bool)) -let accessibilityDisplayShouldReduceTransparency self = msg_send ~self ~cmd:(selector "accessibilityDisplayShouldReduceTransparency") ~typ:(returning (bool)) -let accessibilityDisplayShouldUseGrayscale self = msg_send ~self ~cmd:(selector "accessibilityDisplayShouldUseGrayscale") ~typ:(returning (bool)) -let accessibilityIsSwitchControlEnabled self = msg_send ~self ~cmd:(selector "accessibilityIsSwitchControlEnabled") ~typ:(returning (bool)) -let accessibilityIsVoiceOverEnabled self = msg_send ~self ~cmd:(selector "accessibilityIsVoiceOverEnabled") ~typ:(returning (bool)) -let accessibilityIsZoomEnabled self = msg_send ~self ~cmd:(selector "accessibilityIsZoomEnabled") ~typ:(returning (bool)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let encodedDarkKeyboardFocusIndicatorColor self = msg_send ~self ~cmd:(selector "encodedDarkKeyboardFocusIndicatorColor") ~typ:(returning (id)) -let encodedDarkSelectionMaterialTintColor self = msg_send ~self ~cmd:(selector "encodedDarkSelectionMaterialTintColor") ~typ:(returning (id)) -let encodedDarkTableHighlightColor self = msg_send ~self ~cmd:(selector "encodedDarkTableHighlightColor") ~typ:(returning (id)) -let encodedDarkTextHighlightColor self = msg_send ~self ~cmd:(selector "encodedDarkTextHighlightColor") ~typ:(returning (id)) -let encodedDarkUnemphasizedTextHighlightColor self = msg_send ~self ~cmd:(selector "encodedDarkUnemphasizedTextHighlightColor") ~typ:(returning (id)) -let encodedKeyboardFocusIndicatorColor self = msg_send ~self ~cmd:(selector "encodedKeyboardFocusIndicatorColor") ~typ:(returning (id)) -let encodedSelectionMaterialTintColor self = msg_send ~self ~cmd:(selector "encodedSelectionMaterialTintColor") ~typ:(returning (id)) -let encodedTableHighlightColor self = msg_send ~self ~cmd:(selector "encodedTableHighlightColor") ~typ:(returning (id)) -let encodedTextHighlightColor self = msg_send ~self ~cmd:(selector "encodedTextHighlightColor") ~typ:(returning (id)) -let encodedUnemphasizedTextHighlightColor self = msg_send ~self ~cmd:(selector "encodedUnemphasizedTextHighlightColor") ~typ:(returning (id)) -let hasDarkWindowChrome self = msg_send ~self ~cmd:(selector "hasDarkWindowChrome") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let scrollBarClickBehavior self = msg_send ~self ~cmd:(selector "scrollBarClickBehavior") ~typ:(returning (ullong)) -let scrollerStyle self = msg_send ~self ~cmd:(selector "scrollerStyle") ~typ:(returning (ullong)) \ No newline at end of file diff --git a/uikit_extra/UINSSystemPreferencesClient.ml b/uikit_extra/UINSSystemPreferencesClient.ml deleted file mode 100644 index c61f84d2..00000000 --- a/uikit_extra/UINSSystemPreferencesClient.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSSystemPreferencesClient" - -module C = struct - let sharedClient self = msg_send ~self ~cmd:(selector "sharedClient") ~typ:(returning (id)) -end - -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let refreshSettings self = msg_send ~self ~cmd:(selector "refreshSettings") ~typ:(returning (void)) -let refreshSettingsWithCompletionHandler x self = msg_send ~self ~cmd:(selector "refreshSettingsWithCompletionHandler:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSSystemPreferencesRemoteViewController.ml b/uikit_extra/UINSSystemPreferencesRemoteViewController.ml deleted file mode 100644 index e492f146..00000000 --- a/uikit_extra/UINSSystemPreferencesRemoteViewController.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSSystemPreferencesRemoteViewController" - -module C = struct - let remoteViewControllerWithCompletionHandler x self = msg_send ~self ~cmd:(selector "remoteViewControllerWithCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -end - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let viewDidDisappear self = msg_send ~self ~cmd:(selector "viewDidDisappear") ~typ:(returning (void)) -let viewWillAppear self = msg_send ~self ~cmd:(selector "viewWillAppear") ~typ:(returning (void)) -let windowDidBecomeKeyNotification x self = msg_send ~self ~cmd:(selector "windowDidBecomeKeyNotification:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSTextInput.ml b/uikit_extra/UINSTextInput.ml deleted file mode 100644 index 3ad6b973..00000000 --- a/uikit_extra/UINSTextInput.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSTextInput" - -module C = struct - let sharedTextInput self = msg_send ~self ~cmd:(selector "sharedTextInput") ~typ:(returning (id)) -end - -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let isFullKeyboardAccessEnabled self = msg_send ~self ~cmd:(selector "isFullKeyboardAccessEnabled") ~typ:(returning (bool)) -let remoteTextInputEndpoint self = msg_send ~self ~cmd:(selector "remoteTextInputEndpoint") ~typ:(returning (id)) -let revealController self = msg_send ~self ~cmd:(selector "revealController") ~typ:(returning (id)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setRemoteTextInputEndpoint x self = msg_send ~self ~cmd:(selector "setRemoteTextInputEndpoint:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSToolbar.ml b/uikit_extra/UINSToolbar.ml deleted file mode 100644 index dbcb864c..00000000 --- a/uikit_extra/UINSToolbar.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSToolbar" - -let autoHidesToolbarInFullScreen self = msg_send ~self ~cmd:(selector "autoHidesToolbarInFullScreen") ~typ:(returning (bool)) -let backingSceneViewController self = msg_send ~self ~cmd:(selector "backingSceneViewController") ~typ:(returning (id)) -let configureToolbarWithItemIdentifiers x ~centeredItemIdentifier ~templateItems self = msg_send ~self ~cmd:(selector "configureToolbarWithItemIdentifiers:centeredItemIdentifier:templateItems:") ~typ:(id @-> id @-> id @-> returning (void)) x centeredItemIdentifier templateItems -let initWithIdentifier x self = msg_send ~self ~cmd:(selector "initWithIdentifier:") ~typ:(id @-> returning (id)) x -let setAutoHidesToolbarInFullScreen x self = msg_send ~self ~cmd:(selector "setAutoHidesToolbarInFullScreen:") ~typ:(bool @-> returning (void)) x -let setBackingSceneViewController x self = msg_send ~self ~cmd:(selector "setBackingSceneViewController:") ~typ:(id @-> returning (void)) x -let toolbar x ~itemForItemIdentifier ~willBeInsertedIntoToolbar self = msg_send ~self ~cmd:(selector "toolbar:itemForItemIdentifier:willBeInsertedIntoToolbar:") ~typ:(id @-> id @-> bool @-> returning (id)) x itemForItemIdentifier willBeInsertedIntoToolbar -let toolbarAllowedItemIdentifiers x self = msg_send ~self ~cmd:(selector "toolbarAllowedItemIdentifiers:") ~typ:(id @-> returning (id)) x -let toolbarDefaultItemIdentifiers x self = msg_send ~self ~cmd:(selector "toolbarDefaultItemIdentifiers:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit_extra/UINSToolbarItem.ml b/uikit_extra/UINSToolbarItem.ml deleted file mode 100644 index 7298ce6b..00000000 --- a/uikit_extra/UINSToolbarItem.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSToolbarItem" - -let accessibilityInfo self = msg_send ~self ~cmd:(selector "accessibilityInfo") ~typ:(returning (id)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let initWithIdentifier x self = msg_send ~self ~cmd:(selector "initWithIdentifier:") ~typ:(id @-> returning (id)) x -let menuFormRepresentation self = msg_send ~self ~cmd:(selector "menuFormRepresentation") ~typ:(returning (id)) -let prepareItem self = msg_send ~self ~cmd:(selector "prepareItem") ~typ:(returning (void)) -let setAccessibilityInfo x self = msg_send ~self ~cmd:(selector "setAccessibilityInfo:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSTouchAccommodationVisualizer.ml b/uikit_extra/UINSTouchAccommodationVisualizer.ml deleted file mode 100644 index 42025260..00000000 --- a/uikit_extra/UINSTouchAccommodationVisualizer.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSTouchAccommodationVisualizer" - -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isFlipped self = msg_send ~self ~cmd:(selector "isFlipped") ~typ:(returning (bool)) -let removeAllTouches self = msg_send ~self ~cmd:(selector "removeAllTouches") ~typ:(returning (void)) -let removeTouchesWithKeys x self = msg_send ~self ~cmd:(selector "removeTouchesWithKeys:") ~typ:(id @-> returning (void)) x -let sceneView self = msg_send ~self ~cmd:(selector "sceneView") ~typ:(returning (id)) -let setSceneView x self = msg_send ~self ~cmd:(selector "setSceneView:") ~typ:(id @-> returning (void)) x -let touchKeys self = msg_send ~self ~cmd:(selector "touchKeys") ~typ:(returning (id)) -let updateTouchWithKey x ~sceneLocation self = msg_send ~self ~cmd:(selector "updateTouchWithKey:sceneLocation:") ~typ:(id @-> CGPoint.t @-> returning (void)) x sceneLocation \ No newline at end of file diff --git a/uikit_extra/UINSTouchAlternativesConfigurationView.ml b/uikit_extra/UINSTouchAlternativesConfigurationView.ml deleted file mode 100644 index e5e9b5f4..00000000 --- a/uikit_extra/UINSTouchAlternativesConfigurationView.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSTouchAlternativesConfigurationView" - -let addGameModule x self = msg_send ~self ~cmd:(selector "addGameModule:") ~typ:(id @-> returning (void)) x -let beginConfigurationOverlayWithCompletionHandler x self = msg_send ~self ~cmd:(selector "beginConfigurationOverlayWithCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let configureTilt self = msg_send ~self ~cmd:(selector "configureTilt") ~typ:(returning (void)) -let endGameModeOverlay self = msg_send ~self ~cmd:(selector "endGameModeOverlay") ~typ:(returning (void)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let modulesConfiguration self = msg_send ~self ~cmd:(selector "modulesConfiguration") ~typ:(returning (id)) -let removeModule x self = msg_send ~self ~cmd:(selector "removeModule:") ~typ:(id @-> returning (void)) x -let sceneView self = msg_send ~self ~cmd:(selector "sceneView") ~typ:(returning (id)) -let setModulesConfiguration x self = msg_send ~self ~cmd:(selector "setModulesConfiguration:") ~typ:(id @-> returning (void)) x -let setSceneView x self = msg_send ~self ~cmd:(selector "setSceneView:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSTouchBar.ml b/uikit_extra/UINSTouchBar.ml deleted file mode 100644 index 0f0c45f6..00000000 --- a/uikit_extra/UINSTouchBar.ml +++ /dev/null @@ -1,25 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSTouchBar" - -module C = struct - let sharedTouchBar self = msg_send ~self ~cmd:(selector "sharedTouchBar") ~typ:(returning (id)) -end - -let allowsCustomization self = msg_send ~self ~cmd:(selector "allowsCustomization") ~typ:(returning (bool)) -let changeHandler self = msg_send ~self ~cmd:(selector "changeHandler") ~typ:(returning (ptr void)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let itemChangeHandler self = msg_send ~self ~cmd:(selector "itemChangeHandler") ~typ:(returning (ptr void)) -let principalItemIdentifier self = msg_send ~self ~cmd:(selector "principalItemIdentifier") ~typ:(returning (id)) -let setAllowsCustomization x self = msg_send ~self ~cmd:(selector "setAllowsCustomization:") ~typ:(bool @-> returning (void)) x -let setChangeHandler x self = msg_send ~self ~cmd:(selector "setChangeHandler:") ~typ:(ptr void @-> returning (void)) x -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let setItemChangeHandler x self = msg_send ~self ~cmd:(selector "setItemChangeHandler:") ~typ:(ptr void @-> returning (void)) x -let setPrincipalItemIdentifier x self = msg_send ~self ~cmd:(selector "setPrincipalItemIdentifier:") ~typ:(id @-> returning (void)) x -let setTemplateItems x self = msg_send ~self ~cmd:(selector "setTemplateItems:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSTouchBarItem.ml b/uikit_extra/UINSTouchBarItem.ml deleted file mode 100644 index f38669e8..00000000 --- a/uikit_extra/UINSTouchBarItem.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSTouchBarItem" - -let actionHandler self = msg_send ~self ~cmd:(selector "actionHandler") ~typ:(returning (ptr void)) -let changeHandler self = msg_send ~self ~cmd:(selector "changeHandler") ~typ:(returning (ptr void)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let initWithIdentifier x self = msg_send ~self ~cmd:(selector "initWithIdentifier:") ~typ:(id @-> returning (id)) x -let itemDescription self = msg_send ~self ~cmd:(selector "itemDescription") ~typ:(returning (id)) -let representedClass self = msg_send ~self ~cmd:(selector "representedClass") ~typ:(returning (id)) -let setActionHandler x self = msg_send ~self ~cmd:(selector "setActionHandler:") ~typ:(ptr void @-> returning (void)) x -let setChangeHandler x self = msg_send ~self ~cmd:(selector "setChangeHandler:") ~typ:(ptr void @-> returning (void)) x -let setIdentifier x self = msg_send ~self ~cmd:(selector "setIdentifier:") ~typ:(id @-> returning (void)) x -let setItemDescription x self = msg_send ~self ~cmd:(selector "setItemDescription:") ~typ:(id @-> returning (void)) x -let setRepresentedClass x self = msg_send ~self ~cmd:(selector "setRepresentedClass:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSTouchBarSharingDelegate.ml b/uikit_extra/UINSTouchBarSharingDelegate.ml deleted file mode 100644 index 98859cde..00000000 --- a/uikit_extra/UINSTouchBarSharingDelegate.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSTouchBarSharingDelegate" - -let activityItemsConfiguration self = msg_send ~self ~cmd:(selector "activityItemsConfiguration") ~typ:(returning (id)) -let itemsForSharingServicePickerTouchBarItem x self = msg_send ~self ~cmd:(selector "itemsForSharingServicePickerTouchBarItem:") ~typ:(id @-> returning (id)) x -let setActivityItemsConfiguration x self = msg_send ~self ~cmd:(selector "setActivityItemsConfiguration:") ~typ:(id @-> returning (void)) x -let sharingServicePicker x ~didChooseSharingService self = msg_send ~self ~cmd:(selector "sharingServicePicker:didChooseSharingService:") ~typ:(id @-> id @-> returning (void)) x didChooseSharingService -let sharingServicePicker' x ~sharingServicesForItems ~proposedSharingServices self = msg_send ~self ~cmd:(selector "sharingServicePicker:sharingServicesForItems:proposedSharingServices:") ~typ:(id @-> id @-> id @-> returning (id)) x sharingServicesForItems proposedSharingServices \ No newline at end of file diff --git a/uikit_extra/UINSTouchPreferencesModule.ml b/uikit_extra/UINSTouchPreferencesModule.ml deleted file mode 100644 index 98fe955f..00000000 --- a/uikit_extra/UINSTouchPreferencesModule.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSTouchPreferencesModule" - -let awakeFromNib self = msg_send ~self ~cmd:(selector "awakeFromNib") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let setShowFilteredButton x self = msg_send ~self ~cmd:(selector "setShowFilteredButton:") ~typ:(id @-> returning (void)) x -let setShowFilteredLabel x self = msg_send ~self ~cmd:(selector "setShowFilteredLabel:") ~typ:(id @-> returning (void)) x -let setTaLabel x self = msg_send ~self ~cmd:(selector "setTaLabel:") ~typ:(id @-> returning (void)) x -let showFilteredButton self = msg_send ~self ~cmd:(selector "showFilteredButton") ~typ:(returning (id)) -let showFilteredLabel self = msg_send ~self ~cmd:(selector "showFilteredLabel") ~typ:(returning (id)) -let taLabel self = msg_send ~self ~cmd:(selector "taLabel") ~typ:(returning (id)) -let toggleEducationVisibility x self = msg_send ~self ~cmd:(selector "toggleEducationVisibility:") ~typ:(id @-> returning (void)) x -let turnTouchAlternativesOn x self = msg_send ~self ~cmd:(selector "turnTouchAlternativesOn:") ~typ:(id @-> returning (void)) x -let updateEducationViewControllerEnabledState self = msg_send ~self ~cmd:(selector "updateEducationViewControllerEnabledState") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UINSTrackingShadowRemoteViewControllerRegistry.ml b/uikit_extra/UINSTrackingShadowRemoteViewControllerRegistry.ml deleted file mode 100644 index 0bb8ded0..00000000 --- a/uikit_extra/UINSTrackingShadowRemoteViewControllerRegistry.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSTrackingShadowRemoteViewControllerRegistry" - -module C = struct - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end - -let maybeReestablishFirstResponderStateForUIWindow x ~uiFirstResponder ~forceUpdate self = msg_send ~self ~cmd:(selector "maybeReestablishFirstResponderStateForUIWindow:uiFirstResponder:forceUpdate:") ~typ:(id @-> id @-> bool @-> returning (void)) x uiFirstResponder forceUpdate -let registerShadowRemoteViewController x self = msg_send ~self ~cmd:(selector "registerShadowRemoteViewController:") ~typ:(id @-> returning (void)) x -let setShowsDebugOverlay x self = msg_send ~self ~cmd:(selector "setShowsDebugOverlay:") ~typ:(bool @-> returning (void)) x -let showsDebugOverlay self = msg_send ~self ~cmd:(selector "showsDebugOverlay") ~typ:(returning (bool)) -let unregisterShadowRemoteViewController x self = msg_send ~self ~cmd:(selector "unregisterShadowRemoteViewController:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSUIKitBackgroundingController.ml b/uikit_extra/UINSUIKitBackgroundingController.ml deleted file mode 100644 index b36f21ad..00000000 --- a/uikit_extra/UINSUIKitBackgroundingController.ml +++ /dev/null @@ -1,59 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSUIKitBackgroundingController" - -let areSceneStateChangesFrozen self = msg_send ~self ~cmd:(selector "areSceneStateChangesFrozen") ~typ:(returning (bool)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let freezeRequestCount self = msg_send ~self ~cmd:(selector "freezeRequestCount") ~typ:(returning (ullong)) -let hasOngoingBackgroundingBatch self = msg_send ~self ~cmd:(selector "hasOngoingBackgroundingBatch") ~typ:(returning (bool)) -let hasOngoingForegroundingBatch self = msg_send ~self ~cmd:(selector "hasOngoingForegroundingBatch") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isDequeueing self = msg_send ~self ~cmd:(selector "isDequeueing") ~typ:(returning (bool)) -let isForcingAppWideBackgroundState self = msg_send ~self ~cmd:(selector "isForcingAppWideBackgroundState") ~typ:(returning (bool)) -let isLoginSessionInactive self = msg_send ~self ~cmd:(selector "isLoginSessionInactive") ~typ:(returning (bool)) -let knownScenes self = msg_send ~self ~cmd:(selector "knownScenes") ~typ:(returning (id)) -let makeUIAppBackgroundIfNecessary self = msg_send ~self ~cmd:(selector "makeUIAppBackgroundIfNecessary") ~typ:(returning (void)) -let nsAppWideBackgroundingRequestedExplicitly self = msg_send ~self ~cmd:(selector "nsAppWideBackgroundingRequestedExplicitly") ~typ:(returning (bool)) -let requestSceneBackground x self = msg_send ~self ~cmd:(selector "requestSceneBackground:") ~typ:(id @-> returning (void)) x -let requestSceneForegroundActive x self = msg_send ~self ~cmd:(selector "requestSceneForegroundActive:") ~typ:(id @-> returning (void)) x -let requestSceneForegroundInactive x self = msg_send ~self ~cmd:(selector "requestSceneForegroundInactive:") ~typ:(id @-> returning (void)) x -let requestStateChangeFreeze self = msg_send ~self ~cmd:(selector "requestStateChangeFreeze") ~typ:(returning (void)) -let requestStateChangeThaw self = msg_send ~self ~cmd:(selector "requestStateChangeThaw") ~typ:(returning (void)) -let restoreSceneForegroundState self = msg_send ~self ~cmd:(selector "restoreSceneForegroundState") ~typ:(returning (void)) -let sceneStateChangeQueue self = msg_send ~self ~cmd:(selector "sceneStateChangeQueue") ~typ:(returning (id)) -let sceneStates self = msg_send ~self ~cmd:(selector "sceneStates") ~typ:(returning (id)) -let sceneTrackedForTransition self = msg_send ~self ~cmd:(selector "sceneTrackedForTransition") ~typ:(returning (id)) -let sceneTransitionCompletionHandler self = msg_send ~self ~cmd:(selector "sceneTransitionCompletionHandler") ~typ:(returning (ptr void)) -let scenesWeSlammedToBackgroundFromForegroundActive self = msg_send ~self ~cmd:(selector "scenesWeSlammedToBackgroundFromForegroundActive") ~typ:(returning (id)) -let scenesWeSlammedToBackgroundFromForegroundInactive self = msg_send ~self ~cmd:(selector "scenesWeSlammedToBackgroundFromForegroundInactive") ~typ:(returning (id)) -let setAreSceneStateChangesFrozen x self = msg_send ~self ~cmd:(selector "setAreSceneStateChangesFrozen:") ~typ:(bool @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setFreezeRequestCount x self = msg_send ~self ~cmd:(selector "setFreezeRequestCount:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setHasOngoingBackgroundingBatch x self = msg_send ~self ~cmd:(selector "setHasOngoingBackgroundingBatch:") ~typ:(bool @-> returning (void)) x -let setHasOngoingForegroundingBatch x self = msg_send ~self ~cmd:(selector "setHasOngoingForegroundingBatch:") ~typ:(bool @-> returning (void)) x -let setIsDequeueing x self = msg_send ~self ~cmd:(selector "setIsDequeueing:") ~typ:(bool @-> returning (void)) x -let setIsForcingAppWideBackgroundState x self = msg_send ~self ~cmd:(selector "setIsForcingAppWideBackgroundState:") ~typ:(bool @-> returning (void)) x -let setIsLoginSessionInactive x self = msg_send ~self ~cmd:(selector "setIsLoginSessionInactive:") ~typ:(bool @-> returning (void)) x -let setKnownScenes x self = msg_send ~self ~cmd:(selector "setKnownScenes:") ~typ:(id @-> returning (void)) x -let setNsAppWideBackgroundingRequestedExplicitly x self = msg_send ~self ~cmd:(selector "setNsAppWideBackgroundingRequestedExplicitly:") ~typ:(bool @-> returning (void)) x -let setSceneStateChangeQueue x self = msg_send ~self ~cmd:(selector "setSceneStateChangeQueue:") ~typ:(id @-> returning (void)) x -let setSceneStates x self = msg_send ~self ~cmd:(selector "setSceneStates:") ~typ:(id @-> returning (void)) x -let setSceneTrackedForTransition x self = msg_send ~self ~cmd:(selector "setSceneTrackedForTransition:") ~typ:(id @-> returning (void)) x -let setSceneTransitionCompletionHandler x self = msg_send ~self ~cmd:(selector "setSceneTransitionCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let setScenesWeSlammedToBackgroundFromForegroundActive x self = msg_send ~self ~cmd:(selector "setScenesWeSlammedToBackgroundFromForegroundActive:") ~typ:(id @-> returning (void)) x -let setScenesWeSlammedToBackgroundFromForegroundInactive x self = msg_send ~self ~cmd:(selector "setScenesWeSlammedToBackgroundFromForegroundInactive:") ~typ:(id @-> returning (void)) x -let setShadowStates x self = msg_send ~self ~cmd:(selector "setShadowStates:") ~typ:(id @-> returning (void)) x -let setTrackedSceneTargetState x self = msg_send ~self ~cmd:(selector "setTrackedSceneTargetState:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setUiAppIsActive x self = msg_send ~self ~cmd:(selector "setUiAppIsActive:") ~typ:(bool @-> returning (void)) x -let setUiAppIsForeground x self = msg_send ~self ~cmd:(selector "setUiAppIsForeground:") ~typ:(bool @-> returning (void)) x -let shadowStates self = msg_send ~self ~cmd:(selector "shadowStates") ~typ:(returning (id)) -let trackedSceneTargetState self = msg_send ~self ~cmd:(selector "trackedSceneTargetState") ~typ:(returning (llong)) -let transitionUIAppThroughBackgroundStateIfNecessary self = msg_send ~self ~cmd:(selector "transitionUIAppThroughBackgroundStateIfNecessary") ~typ:(returning (void)) -let uiAppIsActive self = msg_send ~self ~cmd:(selector "uiAppIsActive") ~typ:(returning (bool)) -let uiAppIsForeground self = msg_send ~self ~cmd:(selector "uiAppIsForeground") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UINSUIKitTerminationController.ml b/uikit_extra/UINSUIKitTerminationController.ml deleted file mode 100644 index 94df1f93..00000000 --- a/uikit_extra/UINSUIKitTerminationController.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSUIKitTerminationController" - -let allBackgroundTasksDidFinish self = msg_send ~self ~cmd:(selector "allBackgroundTasksDidFinish") ~typ:(returning (void)) -let backgroundTaskCount self = msg_send ~self ~cmd:(selector "backgroundTaskCount") ~typ:(returning (ullong)) -let beginAppTerminationBackgroundTask self = msg_send ~self ~cmd:(selector "beginAppTerminationBackgroundTask") ~typ:(returning (void)) -let beginUIAppTermination self = msg_send ~self ~cmd:(selector "beginUIAppTermination") ~typ:(returning (void)) -let cancelBackgroundTaskTimeoutIfNecessary self = msg_send ~self ~cmd:(selector "cancelBackgroundTaskTimeoutIfNecessary") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let endAppTerminationBackgroundTask self = msg_send ~self ~cmd:(selector "endAppTerminationBackgroundTask") ~typ:(returning (void)) -let ensureBackgroundTaskCountReachedZeroHandlerExists self = msg_send ~self ~cmd:(selector "ensureBackgroundTaskCountReachedZeroHandlerExists") ~typ:(returning (void)) -let letBackgroundTasksCompleteWithTimeout x self = msg_send ~self ~cmd:(selector "letBackgroundTasksCompleteWithTimeout:") ~typ:(double @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let synchronouslyExpireBackgroundTasksIfNecessary self = msg_send ~self ~cmd:(selector "synchronouslyExpireBackgroundTasksIfNecessary") ~typ:(returning (void)) -let uiKitWantsToExitProcessWithStatus x self = msg_send ~self ~cmd:(selector "uiKitWantsToExitProcessWithStatus:") ~typ:(int @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UINSViewBridgeWindowConfiguration.ml b/uikit_extra/UINSViewBridgeWindowConfiguration.ml deleted file mode 100644 index c40e26fe..00000000 --- a/uikit_extra/UINSViewBridgeWindowConfiguration.ml +++ /dev/null @@ -1,28 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSViewBridgeWindowConfiguration" - -let contentRect self = msg_send_stret ~self ~cmd:(selector "contentRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let contextDidChangeHandler self = msg_send ~self ~cmd:(selector "contextDidChangeHandler") ~typ:(returning (ptr void)) -let didCreateContentViewController self = msg_send ~self ~cmd:(selector "didCreateContentViewController") ~typ:(returning (ptr void)) -let extensionIdentifier self = msg_send ~self ~cmd:(selector "extensionIdentifier") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let requiresExtensionContext self = msg_send ~self ~cmd:(selector "requiresExtensionContext") ~typ:(returning (bool)) -let setContentRect x self = msg_send ~self ~cmd:(selector "setContentRect:") ~typ:(CGRect.t @-> returning (void)) x -let setContextDidChangeHandler x self = msg_send ~self ~cmd:(selector "setContextDidChangeHandler:") ~typ:(ptr void @-> returning (void)) x -let setDidCreateContentViewController x self = msg_send ~self ~cmd:(selector "setDidCreateContentViewController:") ~typ:(ptr void @-> returning (void)) x -let setExtensionIdentifier x self = msg_send ~self ~cmd:(selector "setExtensionIdentifier:") ~typ:(id @-> returning (void)) x -let setRequiresExtensionContext x self = msg_send ~self ~cmd:(selector "setRequiresExtensionContext:") ~typ:(bool @-> returning (void)) x -let setStoryboardName x self = msg_send ~self ~cmd:(selector "setStoryboardName:") ~typ:(id @-> returning (void)) x -let setUserInterfaceIdiom x self = msg_send ~self ~cmd:(selector "setUserInterfaceIdiom:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setViewControllerClassName x self = msg_send ~self ~cmd:(selector "setViewControllerClassName:") ~typ:(id @-> returning (void)) x -let storyboardName self = msg_send ~self ~cmd:(selector "storyboardName") ~typ:(returning (id)) -let userInterfaceIdiom self = msg_send ~self ~cmd:(selector "userInterfaceIdiom") ~typ:(returning (llong)) -let viewControllerClassName self = msg_send ~self ~cmd:(selector "viewControllerClassName") ~typ:(returning (id)) -let windowController self = msg_send ~self ~cmd:(selector "windowController") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSViewDynamicToolTipManager.ml b/uikit_extra/UINSViewDynamicToolTipManager.ml deleted file mode 100644 index 80131011..00000000 --- a/uikit_extra/UINSViewDynamicToolTipManager.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSViewDynamicToolTipManager" - -let dynamicToolTipRectAtPoint x self = msg_send_stret ~self ~cmd:(selector "dynamicToolTipRectAtPoint:") ~typ:(CGPoint.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let dynamicToolTipRevealoverInfoAtPoint x ~trackingRect self = msg_send ~self ~cmd:(selector "dynamicToolTipRevealoverInfoAtPoint:trackingRect:") ~typ:(CGPoint.t @-> ptr (CGRect.t) @-> returning (id)) x trackingRect -let dynamicToolTipStringAtPoint x ~trackingRect self = msg_send ~self ~cmd:(selector "dynamicToolTipStringAtPoint:trackingRect:") ~typ:(CGPoint.t @-> ptr (CGRect.t) @-> returning (id)) x trackingRect -let sceneView self = msg_send ~self ~cmd:(selector "sceneView") ~typ:(returning (id)) -let view x ~customToolTip ~drawInView ~displayInfo self = msg_send ~self ~cmd:(selector "view:customToolTip:drawInView:displayInfo:") ~typ:(id @-> llong @-> id @-> id @-> returning (void)) x (LLong.of_int customToolTip) drawInView displayInfo \ No newline at end of file diff --git a/uikit_extra/UINSVirtualDigitizer.ml b/uikit_extra/UINSVirtualDigitizer.ml deleted file mode 100644 index 2dd20bf2..00000000 --- a/uikit_extra/UINSVirtualDigitizer.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSVirtualDigitizer" - -let addVirtualFingerAtLoc x ~forKey self = msg_send ~self ~cmd:(selector "addVirtualFingerAtLoc:forKey:") ~typ:(CGPoint.t @-> id @-> returning (void)) x forKey -let cancelEverything self = msg_send ~self ~cmd:(selector "cancelEverything") ~typ:(returning (bool)) -let contextId self = msg_send ~self ~cmd:(selector "contextId") ~typ:(returning (uint)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let modifyVirtualFingerForKey x ~withBlock self = msg_send ~self ~cmd:(selector "modifyVirtualFingerForKey:withBlock:") ~typ:(id @-> ptr void @-> returning (void)) x withBlock -let setContextId x self = msg_send ~self ~cmd:(selector "setContextId:") ~typ:(uint @-> returning (void)) x -let setTouchVisualizer x self = msg_send ~self ~cmd:(selector "setTouchVisualizer:") ~typ:(id @-> returning (void)) x -let touchVisualizer self = msg_send ~self ~cmd:(selector "touchVisualizer") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSVirtualFinger.ml b/uikit_extra/UINSVirtualFinger.ml deleted file mode 100644 index 8ff23168..00000000 --- a/uikit_extra/UINSVirtualFinger.ml +++ /dev/null @@ -1,30 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSVirtualFinger" - -module C = struct - let virtualFingerWithIndex x ~location self = msg_send ~self ~cmd:(selector "virtualFingerWithIndex:location:") ~typ:(llong @-> CGPoint.t @-> returning (id)) (LLong.of_int x) location -end - -let animationBlock self = msg_send ~self ~cmd:(selector "animationBlock") ~typ:(returning (ptr void)) -let cancelled self = msg_send ~self ~cmd:(selector "cancelled") ~typ:(returning (bool)) -let changed self = msg_send ~self ~cmd:(selector "changed") ~typ:(returning (bool)) -let index self = msg_send ~self ~cmd:(selector "index") ~typ:(returning (llong)) -let initWithIndex x self = msg_send ~self ~cmd:(selector "initWithIndex:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let iohidEvent self = msg_send ~self ~cmd:(selector "iohidEvent") ~typ:(returning (ptr void)) -let liftTouchAfterAnimation self = msg_send ~self ~cmd:(selector "liftTouchAfterAnimation") ~typ:(returning (void)) -let location self = msg_send_stret ~self ~cmd:(selector "location") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let scanWithTimestamp x self = msg_send ~self ~cmd:(selector "scanWithTimestamp:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setAnimationBlock x self = msg_send ~self ~cmd:(selector "setAnimationBlock:") ~typ:(ptr void @-> returning (void)) x -let setCancelled x self = msg_send ~self ~cmd:(selector "setCancelled:") ~typ:(bool @-> returning (void)) x -let setLocation x self = msg_send ~self ~cmd:(selector "setLocation:") ~typ:(CGPoint.t @-> returning (void)) x -let setTouching x self = msg_send ~self ~cmd:(selector "setTouching:") ~typ:(bool @-> returning (void)) x -let swipeInDirection x ~distance ~duration self = msg_send ~self ~cmd:(selector "swipeInDirection:distance:duration:") ~typ:(CGPoint.t @-> double @-> ullong @-> returning (void)) x distance (ULLong.of_int duration) -let swipeInDirection' x ~distance ~duration ~autoLiftTouch self = msg_send ~self ~cmd:(selector "swipeInDirection:distance:duration:autoLiftTouch:") ~typ:(CGPoint.t @-> double @-> ullong @-> bool @-> returning (void)) x distance (ULLong.of_int duration) autoLiftTouch -let touching self = msg_send ~self ~cmd:(selector "touching") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UINSVirtualMotionDevice.ml b/uikit_extra/UINSVirtualMotionDevice.ml deleted file mode 100644 index 332f8622..00000000 --- a/uikit_extra/UINSVirtualMotionDevice.ml +++ /dev/null @@ -1,50 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSVirtualMotionDevice" - -module C = struct - let sharedVirtualMotionDevice self = msg_send ~self ~cmd:(selector "sharedVirtualMotionDevice") ~typ:(returning (id)) -end - -let accelerometerData self = msg_send ~self ~cmd:(selector "accelerometerData") ~typ:(returning (id)) -let accelerometerUpdateInterval self = msg_send ~self ~cmd:(selector "accelerometerUpdateInterval") ~typ:(returning (double)) -let animationBlock self = msg_send ~self ~cmd:(selector "animationBlock") ~typ:(returning (ptr void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deviceMotion self = msg_send ~self ~cmd:(selector "deviceMotion") ~typ:(returning (id)) -let deviceMotionData self = msg_send ~self ~cmd:(selector "deviceMotionData") ~typ:(returning (id)) -let deviceMotionUpdateInterval self = msg_send ~self ~cmd:(selector "deviceMotionUpdateInterval") ~typ:(returning (double)) -let gyroData self = msg_send ~self ~cmd:(selector "gyroData") ~typ:(returning (id)) -let gyroUpdateInterval self = msg_send ~self ~cmd:(selector "gyroUpdateInterval") ~typ:(returning (double)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isAccelerometerActive self = msg_send ~self ~cmd:(selector "isAccelerometerActive") ~typ:(returning (bool)) -let isAccelerometerAvailable self = msg_send ~self ~cmd:(selector "isAccelerometerAvailable") ~typ:(returning (bool)) -let isDeviceMotionActive self = msg_send ~self ~cmd:(selector "isDeviceMotionActive") ~typ:(returning (bool)) -let isDeviceMotionAvailable self = msg_send ~self ~cmd:(selector "isDeviceMotionAvailable") ~typ:(returning (bool)) -let isGyroActive self = msg_send ~self ~cmd:(selector "isGyroActive") ~typ:(returning (bool)) -let isGyroAvailable self = msg_send ~self ~cmd:(selector "isGyroAvailable") ~typ:(returning (bool)) -let orientation self = msg_send ~self ~cmd:(selector "orientation") ~typ:(returning (llong)) -let setAccelerometerUpdateInterval x self = msg_send ~self ~cmd:(selector "setAccelerometerUpdateInterval:") ~typ:(double @-> returning (void)) x -let setAnimationBlock x self = msg_send ~self ~cmd:(selector "setAnimationBlock:") ~typ:(ptr void @-> returning (void)) x -let setDeviceMotionUpdateInterval x self = msg_send ~self ~cmd:(selector "setDeviceMotionUpdateInterval:") ~typ:(double @-> returning (void)) x -let setGyroUpdateInterval x self = msg_send ~self ~cmd:(selector "setGyroUpdateInterval:") ~typ:(double @-> returning (void)) x -let setOrientation x self = msg_send ~self ~cmd:(selector "setOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPortraitDeviceQuaternion x ~timestamp self = msg_send ~self ~cmd:(selector "setPortraitDeviceQuaternion:timestamp:") ~typ:(ptr void @-> double @-> returning (void)) x timestamp -let startAccelerometerUpdates self = msg_send ~self ~cmd:(selector "startAccelerometerUpdates") ~typ:(returning (void)) -let startAccelerometerUpdatesToQueue x ~withHandler self = msg_send ~self ~cmd:(selector "startAccelerometerUpdatesToQueue:withHandler:") ~typ:(id @-> ptr void @-> returning (void)) x withHandler -let startDeviceMotionUpdates self = msg_send ~self ~cmd:(selector "startDeviceMotionUpdates") ~typ:(returning (void)) -let startDeviceMotionUpdatesToQueue x ~withHandler self = msg_send ~self ~cmd:(selector "startDeviceMotionUpdatesToQueue:withHandler:") ~typ:(id @-> ptr void @-> returning (void)) x withHandler -let startDeviceMotionUpdatesUsingReferenceFrame x self = msg_send ~self ~cmd:(selector "startDeviceMotionUpdatesUsingReferenceFrame:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let startDeviceMotionUpdatesUsingReferenceFrame' x ~toQueue ~withHandler self = msg_send ~self ~cmd:(selector "startDeviceMotionUpdatesUsingReferenceFrame:toQueue:withHandler:") ~typ:(ullong @-> id @-> ptr void @-> returning (void)) (ULLong.of_int x) toQueue withHandler -let startGyroUpdates self = msg_send ~self ~cmd:(selector "startGyroUpdates") ~typ:(returning (void)) -let startGyroUpdatesToQueue x ~withHandler self = msg_send ~self ~cmd:(selector "startGyroUpdatesToQueue:withHandler:") ~typ:(id @-> ptr void @-> returning (void)) x withHandler -let stopAccelerometerUpdates self = msg_send ~self ~cmd:(selector "stopAccelerometerUpdates") ~typ:(returning (void)) -let stopDeviceMotionUpdates self = msg_send ~self ~cmd:(selector "stopDeviceMotionUpdates") ~typ:(returning (void)) -let stopGyroUpdates self = msg_send ~self ~cmd:(selector "stopGyroUpdates") ~typ:(returning (void)) -let unsafeClearAnimationBlock self = msg_send ~self ~cmd:(selector "unsafeClearAnimationBlock") ~typ:(returning (void)) -let unsafeSetPortraitDeviceQuaternion x ~timestamp self = msg_send ~self ~cmd:(selector "unsafeSetPortraitDeviceQuaternion:timestamp:") ~typ:(ptr void @-> double @-> returning (void)) x timestamp \ No newline at end of file diff --git a/uikit_extra/UINSWindow.ml b/uikit_extra/UINSWindow.ml deleted file mode 100644 index 6e06d514..00000000 --- a/uikit_extra/UINSWindow.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSWindow" - -module C = struct - let keyPathsForValuesAffectingContentLayoutGuide self = msg_send ~self ~cmd:(selector "keyPathsForValuesAffectingContentLayoutGuide") ~typ:(returning (id)) -end - -let constrainFrameRect x ~toScreen self = msg_send_stret ~self ~cmd:(selector "constrainFrameRect:toScreen:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x toScreen -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let isMovableByWindowBackground self = msg_send ~self ~cmd:(selector "isMovableByWindowBackground") ~typ:(returning (bool)) -let newWindowForTab x self = msg_send ~self ~cmd:(selector "newWindowForTab:") ~typ:(id @-> returning (void)) x -let sceneWindowController self = msg_send ~self ~cmd:(selector "sceneWindowController") ~typ:(returning (id)) -let setInitialOrigin x self = msg_send ~self ~cmd:(selector "setInitialOrigin:") ~typ:(CGPoint.t @-> returning (void)) x -let setInitialSceneContentSize x self = msg_send ~self ~cmd:(selector "setInitialSceneContentSize:") ~typ:(CGSize.t @-> returning (void)) x -let setWindowController x self = msg_send ~self ~cmd:(selector "setWindowController:") ~typ:(id @-> returning (void)) x -let toggleFullScreen x self = msg_send ~self ~cmd:(selector "toggleFullScreen:") ~typ:(id @-> returning (void)) x -let uiWindows self = msg_send ~self ~cmd:(selector "uiWindows") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSWindowProxy.ml b/uikit_extra/UINSWindowProxy.ml deleted file mode 100644 index 57df46dc..00000000 --- a/uikit_extra/UINSWindowProxy.ml +++ /dev/null @@ -1,136 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSWindowProxy" - -module C = struct - let windowProxyWithSceneIdentifier x self = msg_send ~self ~cmd:(selector "windowProxyWithSceneIdentifier:") ~typ:(id @-> returning (id)) x -end - -let _UIScene self = msg_send ~self ~cmd:(selector "UIScene") ~typ:(returning (id)) -let acceptKeyViewHandoff x ~completionQueue ~completionHandler self = msg_send ~self ~cmd:(selector "acceptKeyViewHandoff:completionQueue:completionHandler:") ~typ:(bool @-> id @-> ptr void @-> returning (void)) x completionQueue completionHandler -let activeSpaceDidChange x self = msg_send ~self ~cmd:(selector "activeSpaceDidChange:") ~typ:(id @-> returning (void)) x -let appearsKey self = msg_send ~self ~cmd:(selector "appearsKey") ~typ:(returning (bool)) -let appearsKeyIncludingSheets self = msg_send ~self ~cmd:(selector "appearsKeyIncludingSheets") ~typ:(returning (bool)) -let applicationDidChangeActive x self = msg_send ~self ~cmd:(selector "applicationDidChangeActive:") ~typ:(id @-> returning (void)) x -let applicationDidChangeHidden x self = msg_send ~self ~cmd:(selector "applicationDidChangeHidden:") ~typ:(id @-> returning (void)) x -let applyCursorLock self = msg_send ~self ~cmd:(selector "applyCursorLock") ~typ:(returning (void)) -let attachToWindow x self = msg_send ~self ~cmd:(selector "attachToWindow:") ~typ:(id @-> returning (void)) x -let attachedWindow self = msg_send ~self ~cmd:(selector "attachedWindow") ~typ:(returning (id)) -let autoHidesToolbarInFullScreen self = msg_send ~self ~cmd:(selector "autoHidesToolbarInFullScreen") ~typ:(returning (bool)) -let beginDragWithItems x ~handler self = msg_send ~self ~cmd:(selector "beginDragWithItems:handler:") ~typ:(id @-> id @-> returning (void)) x handler -let beginHostModalSession self = msg_send ~self ~cmd:(selector "beginHostModalSession") ~typ:(returning (void)) -let cancelOutstandingUserInput self = msg_send ~self ~cmd:(selector "cancelOutstandingUserInput") ~typ:(returning (bool)) -let contentMinSize self = msg_send_stret ~self ~cmd:(selector "contentMinSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let convertEdgeInsetsFromUIWindow x ~nsEdgeInsets self = msg_send ~self ~cmd:(selector "convertEdgeInsetsFromUIWindow:nsEdgeInsets:") ~typ:(ptr (void) @-> ptr (void) @-> returning (void)) x nsEdgeInsets -let convertEdgeInsetsToUIWindow x ~uiEdgeInsets self = msg_send ~self ~cmd:(selector "convertEdgeInsetsToUIWindow:uiEdgeInsets:") ~typ:(ptr (void) @-> ptr (void) @-> returning (void)) x uiEdgeInsets -let convertPointFromUIWindow x self = msg_send_stret ~self ~cmd:(selector "convertPointFromUIWindow:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertPointToUIWindow x self = msg_send_stret ~self ~cmd:(selector "convertPointToUIWindow:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertRectFromScreen x self = msg_send_stret ~self ~cmd:(selector "convertRectFromScreen:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let convertRectFromUIWindow x self = msg_send_stret ~self ~cmd:(selector "convertRectFromUIWindow:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let convertRectFromWindowSceneView x self = msg_send_stret ~self ~cmd:(selector "convertRectFromWindowSceneView:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let convertRectToScreen x self = msg_send_stret ~self ~cmd:(selector "convertRectToScreen:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let convertRectToUIWindow x self = msg_send_stret ~self ~cmd:(selector "convertRectToUIWindow:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let convertSizeFromUIWindow x self = msg_send_stret ~self ~cmd:(selector "convertSizeFromUIWindow:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let convertSizeToUIWindow x self = msg_send_stret ~self ~cmd:(selector "convertSizeToUIWindow:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let detachFromWindow x self = msg_send ~self ~cmd:(selector "detachFromWindow:") ~typ:(id @-> returning (void)) x -let drawsBottomDividerWhenTransparent self = msg_send ~self ~cmd:(selector "drawsBottomDividerWhenTransparent") ~typ:(returning (bool)) -let endHostModalSession self = msg_send ~self ~cmd:(selector "endHostModalSession") ~typ:(returning (void)) -let forwardUINSEventToAppKit x self = msg_send ~self ~cmd:(selector "forwardUINSEventToAppKit:") ~typ:(id @-> returning (void)) x -let forwardingTargetForSelector x self = msg_send ~self ~cmd:(selector "forwardingTargetForSelector:") ~typ:(_SEL @-> returning (id)) x -let hasFullSizeContentView self = msg_send ~self ~cmd:(selector "hasFullSizeContentView") ~typ:(returning (bool)) -let hostEnterExitEventWithType x ~sceneLocation self = msg_send ~self ~cmd:(selector "hostEnterExitEventWithType:sceneLocation:") ~typ:(llong @-> CGPoint.t @-> returning (id)) (LLong.of_int x) sceneLocation -let hostEventsFromHIDEvent x self = msg_send ~self ~cmd:(selector "hostEventsFromHIDEvent:") ~typ:(ptr void @-> returning (id)) x -let hostWindowContentFrame self = msg_send_stret ~self ~cmd:(selector "hostWindowContentFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let hostWindowFrame self = msg_send_stret ~self ~cmd:(selector "hostWindowFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let initForSceneViewController x self = msg_send ~self ~cmd:(selector "initForSceneViewController:") ~typ:(id @-> returning (id)) x -let isExcludedFromWindowsMenu self = msg_send ~self ~cmd:(selector "isExcludedFromWindowsMenu") ~typ:(returning (bool)) -let isFullscreen self = msg_send ~self ~cmd:(selector "isFullscreen") ~typ:(returning (bool)) -let isInLiveResize self = msg_send ~self ~cmd:(selector "isInLiveResize") ~typ:(returning (bool)) -let isMovableByWindowBackground self = msg_send ~self ~cmd:(selector "isMovableByWindowBackground") ~typ:(returning (bool)) -let isTitlebarHidden self = msg_send ~self ~cmd:(selector "isTitlebarHidden") ~typ:(returning (bool)) -let isTitlebarTransparent self = msg_send ~self ~cmd:(selector "isTitlebarTransparent") ~typ:(returning (bool)) -let isVisible self = msg_send ~self ~cmd:(selector "isVisible") ~typ:(returning (bool)) -let keyUIWindow self = msg_send ~self ~cmd:(selector "keyUIWindow") ~typ:(returning (id)) -let makeInputViewFirstResponder self = msg_send ~self ~cmd:(selector "makeInputViewFirstResponder") ~typ:(returning (void)) -let makeKeyAndOrderFront x self = msg_send ~self ~cmd:(selector "makeKeyAndOrderFront:") ~typ:(id @-> returning (void)) x -let makeKeyWindow self = msg_send ~self ~cmd:(selector "makeKeyWindow") ~typ:(returning (void)) -let markTouchBarAsDirty self = msg_send ~self ~cmd:(selector "markTouchBarAsDirty") ~typ:(returning (void)) -let newDocumentBrowserViewController self = msg_send ~self ~cmd:(selector "newDocumentBrowserViewController") ~typ:(returning (id)) -let newSheetAlert self = msg_send ~self ~cmd:(selector "newSheetAlert") ~typ:(returning (id)) -let newSheetDocumentPickerViewController self = msg_send ~self ~cmd:(selector "newSheetDocumentPickerViewController") ~typ:(returning (id)) -let noteUIWindowContextsChanged self = msg_send ~self ~cmd:(selector "noteUIWindowContextsChanged") ~typ:(returning (void)) -let notifyIfActualKeyChanged self = msg_send ~self ~cmd:(selector "notifyIfActualKeyChanged") ~typ:(returning (void)) -let notifyIfAppearsKeyChanged self = msg_send ~self ~cmd:(selector "notifyIfAppearsKeyChanged") ~typ:(returning (void)) -let notifyWindowVisibilityChanged self = msg_send ~self ~cmd:(selector "notifyWindowVisibilityChanged") ~typ:(returning (void)) -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let orderFront x self = msg_send ~self ~cmd:(selector "orderFront:") ~typ:(id @-> returning (void)) x -let orderOut x self = msg_send ~self ~cmd:(selector "orderOut:") ~typ:(id @-> returning (void)) x -let performClose x self = msg_send ~self ~cmd:(selector "performClose:") ~typ:(id @-> returning (void)) x -let performResizeTestWithPreTestHandler x ~postTestHandler self = msg_send ~self ~cmd:(selector "performResizeTestWithPreTestHandler:postTestHandler:") ~typ:(ptr void @-> ptr void @-> returning (void)) x postTestHandler -let persistentIdentifier self = msg_send ~self ~cmd:(selector "persistentIdentifier") ~typ:(returning (id)) -let presentContextualMenuForShareableItems x ~atLocation self = msg_send ~self ~cmd:(selector "presentContextualMenuForShareableItems:atLocation:") ~typ:(id @-> CGPoint.t @-> returning (void)) x atLocation -let primarySidebarAdapter self = msg_send ~self ~cmd:(selector "primarySidebarAdapter") ~typ:(returning (id)) -let registerScrollViewSeparatorTrackingAdapter x self = msg_send ~self ~cmd:(selector "registerScrollViewSeparatorTrackingAdapter:") ~typ:(id @-> returning (bool)) x -let removeCursorLock self = msg_send ~self ~cmd:(selector "removeCursorLock") ~typ:(returning (void)) -let representedURL self = msg_send ~self ~cmd:(selector "representedURL") ~typ:(returning (id)) -let respondsToSelector x self = msg_send ~self ~cmd:(selector "respondsToSelector:") ~typ:(_SEL @-> returning (bool)) x -let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning (id)) -let sceneView self = msg_send ~self ~cmd:(selector "sceneView") ~typ:(returning (id)) -let sceneViewController self = msg_send ~self ~cmd:(selector "sceneViewController") ~typ:(returning (id)) -let sendInitialWindowVisibilityChangedNotifications self = msg_send ~self ~cmd:(selector "sendInitialWindowVisibilityChangedNotifications") ~typ:(returning (void)) -let setAutoHidesToolbarInFullScreen x self = msg_send ~self ~cmd:(selector "setAutoHidesToolbarInFullScreen:") ~typ:(bool @-> returning (void)) x -let setContentMinSize x self = msg_send ~self ~cmd:(selector "setContentMinSize:") ~typ:(CGSize.t @-> returning (void)) x -let setCursor x self = msg_send ~self ~cmd:(selector "setCursor:") ~typ:(id @-> returning (void)) x -let setDrawsBottomDividerWhenTransparent x self = msg_send ~self ~cmd:(selector "setDrawsBottomDividerWhenTransparent:") ~typ:(bool @-> returning (void)) x -let setExcludedFromWindowsMenu x self = msg_send ~self ~cmd:(selector "setExcludedFromWindowsMenu:") ~typ:(bool @-> returning (void)) x -let setHostWindowContentFrame x self = msg_send ~self ~cmd:(selector "setHostWindowContentFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setHostWindowFrame x self = msg_send ~self ~cmd:(selector "setHostWindowFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setKeyUIWindow x self = msg_send ~self ~cmd:(selector "setKeyUIWindow:") ~typ:(id @-> returning (void)) x -let setNeedsDragRegionsUpdate self = msg_send ~self ~cmd:(selector "setNeedsDragRegionsUpdate") ~typ:(returning (void)) -let setNeedsSizeRestrictionsUpdate self = msg_send ~self ~cmd:(selector "setNeedsSizeRestrictionsUpdate") ~typ:(returning (void)) -let setPrimarySidebarAdapter x self = msg_send ~self ~cmd:(selector "setPrimarySidebarAdapter:") ~typ:(id @-> returning (void)) x -let setRepresentedURL x self = msg_send ~self ~cmd:(selector "setRepresentedURL:") ~typ:(id @-> returning (void)) x -let setSplitViewItemSeparatorTrackingAdapter x self = msg_send ~self ~cmd:(selector "setSplitViewItemSeparatorTrackingAdapter:") ~typ:(id @-> returning (void)) x -let setSupplementarySidebarAdapter x self = msg_send ~self ~cmd:(selector "setSupplementarySidebarAdapter:") ~typ:(id @-> returning (void)) x -let setTabbingMode x self = msg_send ~self ~cmd:(selector "setTabbingMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setTitlebarAppearsTransparentWhenFullscreen x self = msg_send ~self ~cmd:(selector "setTitlebarAppearsTransparentWhenFullscreen:") ~typ:(bool @-> returning (void)) x -let setTitlebarHidden x self = msg_send ~self ~cmd:(selector "setTitlebarHidden:") ~typ:(bool @-> returning (void)) x -let setTitlebarSeparatorStyle x self = msg_send ~self ~cmd:(selector "setTitlebarSeparatorStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTitlebarTransparent x self = msg_send ~self ~cmd:(selector "setTitlebarTransparent:") ~typ:(bool @-> returning (void)) x -let setToggleFullScreenOverride x self = msg_send ~self ~cmd:(selector "setToggleFullScreenOverride:") ~typ:(ptr void @-> returning (void)) x -let setToolbar x self = msg_send ~self ~cmd:(selector "setToolbar:") ~typ:(id @-> returning (void)) x -let setToolbarStyle x self = msg_send ~self ~cmd:(selector "setToolbarStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTouchBarCoordinator x self = msg_send ~self ~cmd:(selector "setTouchBarCoordinator:") ~typ:(id @-> returning (void)) x -let setUiWindow x self = msg_send ~self ~cmd:(selector "setUiWindow:") ~typ:(id @-> returning (void)) x -let setUiWindows x self = msg_send ~self ~cmd:(selector "setUiWindows:") ~typ:(id @-> returning (void)) x -let setWindowAppearance x self = msg_send ~self ~cmd:(selector "setWindowAppearance:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let splitViewItemSeparatorTrackingAdapter self = msg_send ~self ~cmd:(selector "splitViewItemSeparatorTrackingAdapter") ~typ:(returning (id)) -let supplementarySidebarAdapter self = msg_send ~self ~cmd:(selector "supplementarySidebarAdapter") ~typ:(returning (id)) -let tabbingMode self = msg_send ~self ~cmd:(selector "tabbingMode") ~typ:(returning (llong)) -let takeCursor x self = msg_send ~self ~cmd:(selector "takeCursor:") ~typ:(id @-> returning (void)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let titlebarAppearsTransparentWhenFullscreen self = msg_send ~self ~cmd:(selector "titlebarAppearsTransparentWhenFullscreen") ~typ:(returning (bool)) -let titlebarSeparatorStyle self = msg_send ~self ~cmd:(selector "titlebarSeparatorStyle") ~typ:(returning (llong)) -let toggleFullScreenOverride self = msg_send ~self ~cmd:(selector "toggleFullScreenOverride") ~typ:(returning (ptr void)) -let toolbar self = msg_send ~self ~cmd:(selector "toolbar") ~typ:(returning (id)) -let toolbarStyle self = msg_send ~self ~cmd:(selector "toolbarStyle") ~typ:(returning (llong)) -let touchBarCoordinator self = msg_send ~self ~cmd:(selector "touchBarCoordinator") ~typ:(returning (id)) -let uiWindow self = msg_send ~self ~cmd:(selector "uiWindow") ~typ:(returning (id)) -let uiWindows self = msg_send ~self ~cmd:(selector "uiWindows") ~typ:(returning (id)) -let unregisterScrollViewSeparatorTrackingAdapter x self = msg_send ~self ~cmd:(selector "unregisterScrollViewSeparatorTrackingAdapter:") ~typ:(id @-> returning (void)) x -let updateFullScreenBehavior self = msg_send ~self ~cmd:(selector "updateFullScreenBehavior") ~typ:(returning (void)) -let updatePointerLockState x self = msg_send ~self ~cmd:(selector "updatePointerLockState:") ~typ:(bool @-> returning (void)) x -let warpCursorToScene self = msg_send ~self ~cmd:(selector "warpCursorToScene") ~typ:(returning (void)) -let windowAppearance self = msg_send ~self ~cmd:(selector "windowAppearance") ~typ:(returning (llong)) -let windowDidBecomeKey x self = msg_send ~self ~cmd:(selector "windowDidBecomeKey:") ~typ:(id @-> returning (void)) x -let windowDidChangeOcclusionState x self = msg_send ~self ~cmd:(selector "windowDidChangeOcclusionState:") ~typ:(id @-> returning (void)) x -let windowDidResignKey x self = msg_send ~self ~cmd:(selector "windowDidResignKey:") ~typ:(id @-> returning (void)) x -let windowFullScreenStatusDidChange x self = msg_send ~self ~cmd:(selector "windowFullScreenStatusDidChange:") ~typ:(id @-> returning (void)) x -let windowSupportingPointerLockState self = msg_send ~self ~cmd:(selector "windowSupportingPointerLockState") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSWindowStateController.ml b/uikit_extra/UINSWindowStateController.ml deleted file mode 100644 index aef2960a..00000000 --- a/uikit_extra/UINSWindowStateController.ml +++ /dev/null @@ -1,56 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSWindowStateController" - -let appSupportsMultiwindow self = msg_send ~self ~cmd:(selector "appSupportsMultiwindow") ~typ:(returning (bool)) -let applicationReceivedReopenRequest self = msg_send ~self ~cmd:(selector "applicationReceivedReopenRequest") ~typ:(returning (void)) -let closeAllCompletion self = msg_send ~self ~cmd:(selector "closeAllCompletion") ~typ:(returning (ptr void)) -let closeAllFullScreenWindows self = msg_send ~self ~cmd:(selector "closeAllFullScreenWindows") ~typ:(returning (void)) -let closeOrResetAllRemainingWindows self = msg_send ~self ~cmd:(selector "closeOrResetAllRemainingWindows") ~typ:(returning (void)) -let closingWindowCausedTermination self = msg_send ~self ~cmd:(selector "closingWindowCausedTermination") ~typ:(returning (bool)) -let createAppropriateWindowForUserAppActivation self = msg_send ~self ~cmd:(selector "createAppropriateWindowForUserAppActivation") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didOpenWindowForScene x self = msg_send ~self ~cmd:(selector "didOpenWindowForScene:") ~typ:(id @-> returning (void)) x -let fullScreenWindowsHiddenForTermination self = msg_send ~self ~cmd:(selector "fullScreenWindowsHiddenForTermination") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initialWindowOpeningComplete self = msg_send ~self ~cmd:(selector "initialWindowOpeningComplete") ~typ:(returning (bool)) -let isCreatingWindowForAppActivation self = msg_send ~self ~cmd:(selector "isCreatingWindowForAppActivation") ~typ:(returning (bool)) -let launchingDidComplete self = msg_send ~self ~cmd:(selector "launchingDidComplete") ~typ:(returning (void)) -let miniaturizedWindowsToRestoreInDockOnRelaunch self = msg_send ~self ~cmd:(selector "miniaturizedWindowsToRestoreInDockOnRelaunch") ~typ:(returning (id)) -let restoreWindows self = msg_send ~self ~cmd:(selector "restoreWindows") ~typ:(returning (void)) -let saveWindows self = msg_send ~self ~cmd:(selector "saveWindows") ~typ:(returning (void)) -let sceneIDWeHidInsteadOfClosing self = msg_send ~self ~cmd:(selector "sceneIDWeHidInsteadOfClosing") ~typ:(returning (id)) -let scenesExpectedToClose self = msg_send ~self ~cmd:(selector "scenesExpectedToClose") ~typ:(returning (id)) -let scenesExpectedToOpen self = msg_send ~self ~cmd:(selector "scenesExpectedToOpen") ~typ:(returning (id)) -let scenesKnownToBeOpen self = msg_send ~self ~cmd:(selector "scenesKnownToBeOpen") ~typ:(returning (id)) -let scenesToWindowStates self = msg_send ~self ~cmd:(selector "scenesToWindowStates") ~typ:(returning (id)) -let setCloseAllCompletion x self = msg_send ~self ~cmd:(selector "setCloseAllCompletion:") ~typ:(ptr void @-> returning (void)) x -let setClosingWindowCausedTermination x self = msg_send ~self ~cmd:(selector "setClosingWindowCausedTermination:") ~typ:(bool @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setFullScreenWindowsHiddenForTermination x self = msg_send ~self ~cmd:(selector "setFullScreenWindowsHiddenForTermination:") ~typ:(id @-> returning (void)) x -let setInitialWindowOpeningComplete x self = msg_send ~self ~cmd:(selector "setInitialWindowOpeningComplete:") ~typ:(bool @-> returning (void)) x -let setIsCreatingWindowForAppActivation x self = msg_send ~self ~cmd:(selector "setIsCreatingWindowForAppActivation:") ~typ:(bool @-> returning (void)) x -let setMiniaturizedWindowsToRestoreInDockOnRelaunch x self = msg_send ~self ~cmd:(selector "setMiniaturizedWindowsToRestoreInDockOnRelaunch:") ~typ:(id @-> returning (void)) x -let setSceneIDWeHidInsteadOfClosing x self = msg_send ~self ~cmd:(selector "setSceneIDWeHidInsteadOfClosing:") ~typ:(id @-> returning (void)) x -let setScenesExpectedToClose x self = msg_send ~self ~cmd:(selector "setScenesExpectedToClose:") ~typ:(id @-> returning (void)) x -let setScenesExpectedToOpen x self = msg_send ~self ~cmd:(selector "setScenesExpectedToOpen:") ~typ:(id @-> returning (void)) x -let setScenesKnownToBeOpen x self = msg_send ~self ~cmd:(selector "setScenesKnownToBeOpen:") ~typ:(id @-> returning (void)) x -let setScenesToWindowStates x self = msg_send ~self ~cmd:(selector "setScenesToWindowStates:") ~typ:(id @-> returning (void)) x -let setSystemSceneIdentifiersKnownToBeOpen x self = msg_send ~self ~cmd:(selector "setSystemSceneIdentifiersKnownToBeOpen:") ~typ:(id @-> returning (void)) x -let setSystemSceneIdentifiersToWindowStates x self = msg_send ~self ~cmd:(selector "setSystemSceneIdentifiersToWindowStates:") ~typ:(id @-> returning (void)) x -let setWindowBatchingToken x self = msg_send ~self ~cmd:(selector "setWindowBatchingToken:") ~typ:(int @-> returning (void)) x -let setWindowsDetiledForTermination x self = msg_send ~self ~cmd:(selector "setWindowsDetiledForTermination:") ~typ:(id @-> returning (void)) x -let shouldCloseWindowWithScene x self = msg_send ~self ~cmd:(selector "shouldCloseWindowWithScene:") ~typ:(id @-> returning (bool)) x -let startWindowOrderBatchingIfNecessary self = msg_send ~self ~cmd:(selector "startWindowOrderBatchingIfNecessary") ~typ:(returning (void)) -let stopWindowOrderBatchingIfNecessary self = msg_send ~self ~cmd:(selector "stopWindowOrderBatchingIfNecessary") ~typ:(returning (void)) -let systemSceneIdentifiersKnownToBeOpen self = msg_send ~self ~cmd:(selector "systemSceneIdentifiersKnownToBeOpen") ~typ:(returning (id)) -let systemSceneIdentifiersToWindowStates self = msg_send ~self ~cmd:(selector "systemSceneIdentifiersToWindowStates") ~typ:(returning (id)) -let willOpenWindowForScene x self = msg_send ~self ~cmd:(selector "willOpenWindowForScene:") ~typ:(id @-> returning (void)) x -let windowBatchingToken self = msg_send ~self ~cmd:(selector "windowBatchingToken") ~typ:(returning (int)) -let windowsDetiledForTermination self = msg_send ~self ~cmd:(selector "windowsDetiledForTermination") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UINSWorkspace.ml b/uikit_extra/UINSWorkspace.ml deleted file mode 100644 index d424a004..00000000 --- a/uikit_extra/UINSWorkspace.ml +++ /dev/null @@ -1,32 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINSWorkspace" - -module C = struct - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end - -let application self = msg_send ~self ~cmd:(selector "application") ~typ:(returning (id)) -let destroyScenesWithPersistentIdentifiers x self = msg_send ~self ~cmd:(selector "destroyScenesWithPersistentIdentifiers:") ~typ:(id @-> returning (void)) x -let fbsSceneForSceneIdentifier x ~error self = msg_send ~self ~cmd:(selector "fbsSceneForSceneIdentifier:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let getApplicationSceneUsingPreferredOrder x ~completion self = msg_send ~self ~cmd:(selector "getApplicationSceneUsingPreferredOrder:completion:") ~typ:(id @-> ptr void @-> returning (void)) x completion -let getValue x ~forSafeApertureCompatibilityDefaultsKey self = msg_send ~self ~cmd:(selector "getValue:forSafeApertureCompatibilityDefaultsKey:") ~typ:(ptr (bool) @-> id @-> returning (bool)) x forSafeApertureCompatibilityDefaultsKey -let getValue' x ~forSafeApertureCompatibilityURLResourceKey self = msg_send ~self ~cmd:(selector "getValue:forSafeApertureCompatibilityURLResourceKey:") ~typ:(ptr (bool) @-> id @-> returning (bool)) x forSafeApertureCompatibilityURLResourceKey -let hidManager self = msg_send ~self ~cmd:(selector "hidManager") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initialDisplayID self = msg_send ~self ~cmd:(selector "initialDisplayID") ~typ:(returning (uint)) -let initialScreen self = msg_send ~self ~cmd:(selector "initialScreen") ~typ:(returning (id)) -let initializeWithWorkspace x self = msg_send ~self ~cmd:(selector "initializeWithWorkspace:") ~typ:(id @-> returning (void)) x -let menuBarHeight self = msg_send ~self ~cmd:(selector "menuBarHeight") ~typ:(returning (double)) -let prefersSmallerDisplaySize self = msg_send ~self ~cmd:(selector "prefersSmallerDisplaySize") ~typ:(returning (bool)) -let requestSceneWithOptions x ~completion self = msg_send ~self ~cmd:(selector "requestSceneWithOptions:completion:") ~typ:(id @-> ptr void @-> returning (void)) x completion -let sendActions x self = msg_send ~self ~cmd:(selector "sendActions:") ~typ:(id @-> returning (void)) x -let textInput self = msg_send ~self ~cmd:(selector "textInput") ~typ:(returning (id)) -let usableDisplaySizeHint self = msg_send_stret ~self ~cmd:(selector "usableDisplaySizeHint") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let valueForSafeApertureCompatibilityEnvironmentVariable x self = msg_send ~self ~cmd:(selector "valueForSafeApertureCompatibilityEnvironmentVariable:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit_extra/UINibDecoder.ml b/uikit_extra/UINibDecoder.ml deleted file mode 100644 index 83ba21aa..00000000 --- a/uikit_extra/UINibDecoder.ml +++ /dev/null @@ -1,57 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINibDecoder" - -module C = struct - let unarchiveObjectWithData x self = msg_send ~self ~cmd:(selector "unarchiveObjectWithData:") ~typ:(id @-> returning (id)) x - let unarchiveObjectWithFile x self = msg_send ~self ~cmd:(selector "unarchiveObjectWithFile:") ~typ:(id @-> returning (id)) x -end - -let allowsKeyedCoding self = msg_send ~self ~cmd:(selector "allowsKeyedCoding") ~typ:(returning (bool)) -let containsValueForKey x self = msg_send ~self ~cmd:(selector "containsValueForKey:") ~typ:(id @-> returning (bool)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let decodeArrayOfCGFloats x ~count ~forKey self = msg_send ~self ~cmd:(selector "decodeArrayOfCGFloats:count:forKey:") ~typ:(ptr (double) @-> llong @-> id @-> returning (bool)) x (LLong.of_int count) forKey -let decodeArrayOfDoubles x ~count ~forKey self = msg_send ~self ~cmd:(selector "decodeArrayOfDoubles:count:forKey:") ~typ:(ptr (double) @-> llong @-> id @-> returning (bool)) x (LLong.of_int count) forKey -let decodeArrayOfFloats x ~count ~forKey self = msg_send ~self ~cmd:(selector "decodeArrayOfFloats:count:forKey:") ~typ:(ptr (float) @-> llong @-> id @-> returning (bool)) x (LLong.of_int count) forKey -let decodeArrayOfObjCType x ~count ~at self = msg_send ~self ~cmd:(selector "decodeArrayOfObjCType:count:at:") ~typ:(string @-> ullong @-> ptr (void) @-> returning (void)) x (ULLong.of_int count) at -let decodeBoolForKey x self = msg_send ~self ~cmd:(selector "decodeBoolForKey:") ~typ:(id @-> returning (bool)) x -let decodeBytesForKey x ~returnedLength self = msg_send ~self ~cmd:(selector "decodeBytesForKey:returnedLength:") ~typ:(id @-> ptr (ullong) @-> returning (string)) x returnedLength -let decodeBytesWithReturnedLength x self = msg_send ~self ~cmd:(selector "decodeBytesWithReturnedLength:") ~typ:(ptr (ullong) @-> returning (ptr (void))) x -let decodeCGPointForKey x self = msg_send_stret ~self ~cmd:(selector "decodeCGPointForKey:") ~typ:(id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let decodeCGRectForKey x self = msg_send_stret ~self ~cmd:(selector "decodeCGRectForKey:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let decodeCGSizeForKey x self = msg_send_stret ~self ~cmd:(selector "decodeCGSizeForKey:") ~typ:(id @-> returning (CGSize.t)) ~return_type:CGSize.t x -let decodeDataObject self = msg_send ~self ~cmd:(selector "decodeDataObject") ~typ:(returning (id)) -let decodeDoubleForKey x self = msg_send ~self ~cmd:(selector "decodeDoubleForKey:") ~typ:(id @-> returning (double)) x -let decodeFloatForKey x self = msg_send ~self ~cmd:(selector "decodeFloatForKey:") ~typ:(id @-> returning (float)) x -let decodeInt32ForKey x self = msg_send ~self ~cmd:(selector "decodeInt32ForKey:") ~typ:(id @-> returning (int)) x -let decodeInt64ForKey x self = msg_send ~self ~cmd:(selector "decodeInt64ForKey:") ~typ:(id @-> returning (llong)) x -let decodeIntForKey x self = msg_send ~self ~cmd:(selector "decodeIntForKey:") ~typ:(id @-> returning (int)) x -let decodeIntegerForKey x self = msg_send ~self ~cmd:(selector "decodeIntegerForKey:") ~typ:(id @-> returning (llong)) x -let decodeNXObject self = msg_send ~self ~cmd:(selector "decodeNXObject") ~typ:(returning (id)) -let decodeObject self = msg_send ~self ~cmd:(selector "decodeObject") ~typ:(returning (id)) -let decodeObjectForKey x self = msg_send ~self ~cmd:(selector "decodeObjectForKey:") ~typ:(id @-> returning (id)) x -let decodePropertyList self = msg_send ~self ~cmd:(selector "decodePropertyList") ~typ:(returning (id)) -let decodeValueOfObjCType x ~at self = msg_send ~self ~cmd:(selector "decodeValueOfObjCType:at:") ~typ:(string @-> ptr (void) @-> returning (void)) x at -let decodeValuesOfObjCTypes x self = msg_send ~self ~cmd:(selector "decodeValuesOfObjCTypes:") ~typ:(string @-> returning (void)) x -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let finishDecoding self = msg_send ~self ~cmd:(selector "finishDecoding") ~typ:(returning (void)) -let initForReadingWithData x self = msg_send ~self ~cmd:(selector "initForReadingWithData:") ~typ:(id @-> returning (id)) x -let initForReadingWithData' x ~error self = msg_send ~self ~cmd:(selector "initForReadingWithData:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let isReusable self = msg_send ~self ~cmd:(selector "isReusable") ~typ:(returning (bool)) -let nextGenericKey self = msg_send ~self ~cmd:(selector "nextGenericKey") ~typ:(returning (id)) -let replaceObject x ~withObject self = msg_send ~self ~cmd:(selector "replaceObject:withObject:") ~typ:(id @-> id @-> returning (void)) x withObject -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let systemVersion self = msg_send ~self ~cmd:(selector "systemVersion") ~typ:(returning (uint)) -let uniqueIDForCurrentlyDecodingObject self = msg_send ~self ~cmd:(selector "uniqueIDForCurrentlyDecodingObject") ~typ:(returning (llong)) -let validateAndIndexClasses x ~length self = msg_send ~self ~cmd:(selector "validateAndIndexClasses:length:") ~typ:(ptr (void) @-> ullong @-> returning (bool)) x (ULLong.of_int length) -let validateAndIndexData x ~error self = msg_send ~self ~cmd:(selector "validateAndIndexData:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let validateAndIndexKeys x ~length self = msg_send ~self ~cmd:(selector "validateAndIndexKeys:length:") ~typ:(ptr (void) @-> ullong @-> returning (bool)) x (ULLong.of_int length) -let validateAndIndexObjects x ~length self = msg_send ~self ~cmd:(selector "validateAndIndexObjects:length:") ~typ:(ptr (void) @-> ullong @-> returning (bool)) x (ULLong.of_int length) -let validateAndIndexValues x ~length self = msg_send ~self ~cmd:(selector "validateAndIndexValues:length:") ~typ:(ptr (void) @-> ullong @-> returning (bool)) x (ULLong.of_int length) -let versionForClassName x self = msg_send ~self ~cmd:(selector "versionForClassName:") ~typ:(id @-> returning (llong)) x \ No newline at end of file diff --git a/uikit_extra/UINibEncoder.ml b/uikit_extra/UINibEncoder.ml deleted file mode 100644 index 1c873512..00000000 --- a/uikit_extra/UINibEncoder.ml +++ /dev/null @@ -1,66 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINibEncoder" - -module C = struct - let archiveRootObject x ~toFile self = msg_send ~self ~cmd:(selector "archiveRootObject:toFile:") ~typ:(id @-> id @-> returning (bool)) x toFile - let archivedDataWithRootObject x self = msg_send ~self ~cmd:(selector "archivedDataWithRootObject:") ~typ:(id @-> returning (id)) x -end - -let allowsKeyedCoding self = msg_send ~self ~cmd:(selector "allowsKeyedCoding") ~typ:(returning (bool)) -let appendValue x self = msg_send ~self ~cmd:(selector "appendValue:") ~typ:(id @-> returning (void)) x -let assignObjectIDForObject x self = msg_send ~self ~cmd:(selector "assignObjectIDForObject:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let encodeArrayOfCGFloats x ~count ~forKey self = msg_send ~self ~cmd:(selector "encodeArrayOfCGFloats:count:forKey:") ~typ:(ptr (double) @-> llong @-> id @-> returning (void)) x (LLong.of_int count) forKey -let encodeArrayOfDoubles x ~count ~forKey self = msg_send ~self ~cmd:(selector "encodeArrayOfDoubles:count:forKey:") ~typ:(ptr (double) @-> llong @-> id @-> returning (void)) x (LLong.of_int count) forKey -let encodeArrayOfFloats x ~count ~forKey self = msg_send ~self ~cmd:(selector "encodeArrayOfFloats:count:forKey:") ~typ:(ptr (float) @-> llong @-> id @-> returning (void)) x (LLong.of_int count) forKey -let encodeArrayOfObjCType x ~count ~at self = msg_send ~self ~cmd:(selector "encodeArrayOfObjCType:count:at:") ~typ:(string @-> ullong @-> ptr (void) @-> returning (void)) x (ULLong.of_int count) at -let encodeBool x ~forKey self = msg_send ~self ~cmd:(selector "encodeBool:forKey:") ~typ:(bool @-> id @-> returning (void)) x forKey -let encodeBycopyObject x self = msg_send ~self ~cmd:(selector "encodeBycopyObject:") ~typ:(id @-> returning (void)) x -let encodeByrefObject x self = msg_send ~self ~cmd:(selector "encodeByrefObject:") ~typ:(id @-> returning (void)) x -let encodeBytes x ~length self = msg_send ~self ~cmd:(selector "encodeBytes:length:") ~typ:(ptr (void) @-> ullong @-> returning (void)) x (ULLong.of_int length) -let encodeBytes' x ~length ~forKey self = msg_send ~self ~cmd:(selector "encodeBytes:length:forKey:") ~typ:(string @-> ullong @-> id @-> returning (void)) x (ULLong.of_int length) forKey -let encodeCGAffineTransform x ~forKey self = msg_send ~self ~cmd:(selector "encodeCGAffineTransform:forKey:") ~typ:(ptr void @-> id @-> returning (void)) x forKey -let encodeCGPoint x ~forKey self = msg_send ~self ~cmd:(selector "encodeCGPoint:forKey:") ~typ:(CGPoint.t @-> id @-> returning (void)) x forKey -let encodeCGRect x ~forKey self = msg_send ~self ~cmd:(selector "encodeCGRect:forKey:") ~typ:(CGRect.t @-> id @-> returning (void)) x forKey -let encodeCGSize x ~forKey self = msg_send ~self ~cmd:(selector "encodeCGSize:forKey:") ~typ:(CGSize.t @-> id @-> returning (void)) x forKey -let encodeConditionalObject x self = msg_send ~self ~cmd:(selector "encodeConditionalObject:") ~typ:(id @-> returning (void)) x -let encodeConditionalObject' x ~forKey self = msg_send ~self ~cmd:(selector "encodeConditionalObject:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let encodeDouble x ~forKey self = msg_send ~self ~cmd:(selector "encodeDouble:forKey:") ~typ:(double @-> id @-> returning (void)) x forKey -let encodeFloat x ~forKey self = msg_send ~self ~cmd:(selector "encodeFloat:forKey:") ~typ:(float @-> id @-> returning (void)) x forKey -let encodeInt32 x ~forKey self = msg_send ~self ~cmd:(selector "encodeInt32:forKey:") ~typ:(int @-> id @-> returning (void)) x forKey -let encodeInt64 x ~forKey self = msg_send ~self ~cmd:(selector "encodeInt64:forKey:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) forKey -let encodeInt x ~forKey self = msg_send ~self ~cmd:(selector "encodeInt:forKey:") ~typ:(int @-> id @-> returning (void)) x forKey -let encodeInteger x ~forKey self = msg_send ~self ~cmd:(selector "encodeInteger:forKey:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) forKey -let encodeObject x self = msg_send ~self ~cmd:(selector "encodeObject:") ~typ:(id @-> returning (void)) x -let encodeObject' x ~forKey self = msg_send ~self ~cmd:(selector "encodeObject:forKey:") ~typ:(id @-> id @-> returning (void)) x forKey -let encodeRootObject x self = msg_send ~self ~cmd:(selector "encodeRootObject:") ~typ:(id @-> returning (void)) x -let encodeUIEdgeInsets x ~forKey self = msg_send ~self ~cmd:(selector "encodeUIEdgeInsets:forKey:") ~typ:(ptr void @-> id @-> returning (void)) x forKey -let encodeValueOfObjCType x ~at self = msg_send ~self ~cmd:(selector "encodeValueOfObjCType:at:") ~typ:(string @-> ptr (void) @-> returning (void)) x at -let encodeValuesOfObjCTypes x self = msg_send ~self ~cmd:(selector "encodeValuesOfObjCTypes:") ~typ:(string @-> returning (void)) x -let encodedClassForObject x self = msg_send ~self ~cmd:(selector "encodedClassForObject:") ~typ:(id @-> returning (_Class)) x -let encodedClassNameForClass x self = msg_send ~self ~cmd:(selector "encodedClassNameForClass:") ~typ:(_Class @-> returning (id)) x -let encodedClassNameForObject x self = msg_send ~self ~cmd:(selector "encodedClassNameForObject:") ~typ:(id @-> returning (id)) x -let finishEncoding self = msg_send ~self ~cmd:(selector "finishEncoding") ~typ:(returning (void)) -let initForWritingWithMutableData x self = msg_send ~self ~cmd:(selector "initForWritingWithMutableData:") ~typ:(id @-> returning (id)) x -let nextGenericKey self = msg_send ~self ~cmd:(selector "nextGenericKey") ~typ:(returning (id)) -let object_ x ~encodesAsMemberAndWithCoderOfClass self = msg_send ~self ~cmd:(selector "object:encodesAsMemberAndWithCoderOfClass:") ~typ:(id @-> _Class @-> returning (bool)) x encodesAsMemberAndWithCoderOfClass -let object_' x ~encodesWithCoderFromClass self = msg_send ~self ~cmd:(selector "object:encodesWithCoderFromClass:") ~typ:(id @-> _Class @-> returning (bool)) x encodesWithCoderFromClass -let objectIDForObject x self = msg_send ~self ~cmd:(selector "objectIDForObject:") ~typ:(id @-> returning (id)) x -let previouslyCodedObject x self = msg_send ~self ~cmd:(selector "previouslyCodedObject:") ~typ:(id @-> returning (bool)) x -let replacementObjectForObject x ~forKey self = msg_send ~self ~cmd:(selector "replacementObjectForObject:forKey:") ~typ:(id @-> id @-> returning (id)) x forKey -let serializeArray x self = msg_send ~self ~cmd:(selector "serializeArray:") ~typ:(id @-> returning (void)) x -let serializeDictionary x self = msg_send ~self ~cmd:(selector "serializeDictionary:") ~typ:(id @-> returning (void)) x -let serializeObject x self = msg_send ~self ~cmd:(selector "serializeObject:") ~typ:(id @-> returning (void)) x -let serializeSet x self = msg_send ~self ~cmd:(selector "serializeSet:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let shouldUniqueObjectByValue x self = msg_send ~self ~cmd:(selector "shouldUniqueObjectByValue:") ~typ:(id @-> returning (bool)) x -let systemVersion self = msg_send ~self ~cmd:(selector "systemVersion") ~typ:(returning (uint)) -let versionForClassName x self = msg_send ~self ~cmd:(selector "versionForClassName:") ~typ:(id @-> returning (llong)) x \ No newline at end of file diff --git a/uikit_extra/UINibStringIDTable.ml b/uikit_extra/UINibStringIDTable.ml deleted file mode 100644 index 088493fd..00000000 --- a/uikit_extra/UINibStringIDTable.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UINibStringIDTable" - -let count self = msg_send ~self ~cmd:(selector "count") ~typ:(returning (llong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithKeysTransferingOwnership x ~count self = msg_send ~self ~cmd:(selector "initWithKeysTransferingOwnership:count:") ~typ:(ptr (id) @-> ullong @-> returning (id)) x (ULLong.of_int count) -let lookupKey x ~identifier self = msg_send ~self ~cmd:(selector "lookupKey:identifier:") ~typ:(id @-> ptr (llong) @-> returning (bool)) x identifier \ No newline at end of file diff --git a/uikit_extra/UIOffset.ml b/uikit_extra/UIOffset.ml new file mode 100644 index 00000000..ea3e549b --- /dev/null +++ b/uikit_extra/UIOffset.ml @@ -0,0 +1,26 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation + +let t : [`UIOffset] structure typ = structure "UIOffset" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uioffset?language=objc}UIOffset} *) + +let horizontal = field t "horizontal" double +let vertical = field t "vertical" double + +let () = seal t + +let init + ~horizontal:horizontal_v + ~vertical:vertical_v + = + let t = make t in + setf t horizontal horizontal_v; + setf t vertical vertical_v; + t +let horizontal t = getf t horizontal +let vertical t = getf t vertical diff --git a/uikit_extra/UIPDFAnnotation.ml b/uikit_extra/UIPDFAnnotation.ml deleted file mode 100644 index 838d51d0..00000000 --- a/uikit_extra/UIPDFAnnotation.ml +++ /dev/null @@ -1,66 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFAnnotation" - -module C = struct - let newAnnotationWithPage x ~fromArchive self = msg_send ~self ~cmd:(selector "newAnnotationWithPage:fromArchive:") ~typ:(id @-> id @-> returning (id)) x fromArchive -end - -let _Rect self = msg_send_stret ~self ~cmd:(selector "Rect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let annotationController self = msg_send ~self ~cmd:(selector "annotationController") ~typ:(returning (id)) -let annotationID self = msg_send ~self ~cmd:(selector "annotationID") ~typ:(returning (id)) -let annotationType self = msg_send ~self ~cmd:(selector "annotationType") ~typ:(returning (int)) -let annotationView self = msg_send ~self ~cmd:(selector "annotationView") ~typ:(returning (id)) -let archive self = msg_send ~self ~cmd:(selector "archive") ~typ:(returning (id)) -let associatedAnnotationID self = msg_send ~self ~cmd:(selector "associatedAnnotationID") ~typ:(returning (id)) -let bounds self = msg_send_stret ~self ~cmd:(selector "bounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let color self = msg_send ~self ~cmd:(selector "color") ~typ:(returning (ptr void)) -let containsPoint x self = msg_send ~self ~cmd:(selector "containsPoint:") ~typ:(CGPoint.t @-> returning (bool)) x -let contents self = msg_send ~self ~cmd:(selector "contents") ~typ:(returning (id)) -let data self = msg_send ~self ~cmd:(selector "data") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let descriptionHOLD self = msg_send ~self ~cmd:(selector "descriptionHOLD") ~typ:(returning (id)) -let drawInContext x self = msg_send ~self ~cmd:(selector "drawInContext:") ~typ:(id @-> returning (void)) x -let drawLayer x ~inContext self = msg_send ~self ~cmd:(selector "drawLayer:inContext:") ~typ:(id @-> id @-> returning (void)) x inContext -let drawingLayer self = msg_send ~self ~cmd:(selector "drawingLayer") ~typ:(returning (id)) -let editable self = msg_send ~self ~cmd:(selector "editable") ~typ:(returning (bool)) -let frame self = msg_send_stret ~self ~cmd:(selector "frame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let getImageNamed x ~ofType self = msg_send ~self ~cmd:(selector "getImageNamed:ofType:") ~typ:(id @-> id @-> returning (id)) x ofType -let hasPopUp self = msg_send ~self ~cmd:(selector "hasPopUp") ~typ:(returning (bool)) -let hidden self = msg_send ~self ~cmd:(selector "hidden") ~typ:(returning (bool)) -let index self = msg_send ~self ~cmd:(selector "index") ~typ:(returning (llong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithAnnotationDictionary x self = msg_send ~self ~cmd:(selector "initWithAnnotationDictionary:") ~typ:(ptr void @-> returning (id)) x -let makeQuadpointsFrom x self = msg_send ~self ~cmd:(selector "makeQuadpointsFrom:") ~typ:(id @-> returning (void)) x -let newPathFromQuadPoints self = msg_send ~self ~cmd:(selector "newPathFromQuadPoints") ~typ:(returning (ptr void)) -let newSelection self = msg_send ~self ~cmd:(selector "newSelection") ~typ:(returning (id)) -let page self = msg_send ~self ~cmd:(selector "page") ~typ:(returning (id)) -let pdfContents self = msg_send ~self ~cmd:(selector "pdfContents") ~typ:(returning (string)) -let popUpAnnotationRect self = msg_send_stret ~self ~cmd:(selector "popUpAnnotationRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let popup self = msg_send ~self ~cmd:(selector "popup") ~typ:(returning (id)) -let recognizeGestures self = msg_send ~self ~cmd:(selector "recognizeGestures") ~typ:(returning (bool)) -let rectIn x self = msg_send_stret ~self ~cmd:(selector "rectIn:") ~typ:(ptr void @-> returning (CGRect.t)) ~return_type:CGRect.t x -let selection self = msg_send ~self ~cmd:(selector "selection") ~typ:(returning (id)) -let setAnnotationController x self = msg_send ~self ~cmd:(selector "setAnnotationController:") ~typ:(id @-> returning (void)) x -let setAnnotationID x self = msg_send ~self ~cmd:(selector "setAnnotationID:") ~typ:(id @-> returning (void)) x -let setAnnotationView x self = msg_send ~self ~cmd:(selector "setAnnotationView:") ~typ:(id @-> returning (void)) x -let setAssociatedAnnotationID x self = msg_send ~self ~cmd:(selector "setAssociatedAnnotationID:") ~typ:(id @-> returning (void)) x -let setColor x self = msg_send ~self ~cmd:(selector "setColor:") ~typ:(ptr void @-> returning (void)) x -let setContents x self = msg_send ~self ~cmd:(selector "setContents:") ~typ:(id @-> returning (void)) x -let setData x self = msg_send ~self ~cmd:(selector "setData:") ~typ:(id @-> returning (void)) x -let setDrawingLayer x self = msg_send ~self ~cmd:(selector "setDrawingLayer:") ~typ:(id @-> returning (void)) x -let setEditable x self = msg_send ~self ~cmd:(selector "setEditable:") ~typ:(bool @-> returning (void)) x -let setIndex x self = msg_send ~self ~cmd:(selector "setIndex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPage x self = msg_send ~self ~cmd:(selector "setPage:") ~typ:(id @-> returning (void)) x -let setPageView x self = msg_send ~self ~cmd:(selector "setPageView:") ~typ:(id @-> returning (void)) x -let setPopup x self = msg_send ~self ~cmd:(selector "setPopup:") ~typ:(id @-> returning (void)) x -let setSelection x self = msg_send ~self ~cmd:(selector "setSelection:") ~typ:(id @-> returning (void)) x -let setTag x self = msg_send ~self ~cmd:(selector "setTag:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let tag self = msg_send ~self ~cmd:(selector "tag") ~typ:(returning (ullong)) -let viewClass self = msg_send ~self ~cmd:(selector "viewClass") ~typ:(returning (_Class)) \ No newline at end of file diff --git a/uikit_extra/UIPDFAnnotationController.ml b/uikit_extra/UIPDFAnnotationController.ml deleted file mode 100644 index df1e2245..00000000 --- a/uikit_extra/UIPDFAnnotationController.ml +++ /dev/null @@ -1,76 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFAnnotationController" - -module C = struct - let newAnnotation x ~type_ self = msg_send ~self ~cmd:(selector "newAnnotation:type:") ~typ:(ptr void @-> string @-> returning (id)) x type_ - let newMaskImage x ~size self = msg_send ~self ~cmd:(selector "newMaskImage:size:") ~typ:(ptr void @-> CGSize.t @-> returning (id)) x size - let pageHasAnnotations x self = msg_send ~self ~cmd:(selector "pageHasAnnotations:") ~typ:(id @-> returning (bool)) x -end - -let addAnnotation x self = msg_send ~self ~cmd:(selector "addAnnotation:") ~typ:(id @-> returning (void)) x -let addDrawingSurface x ~view self = msg_send ~self ~cmd:(selector "addDrawingSurface:view:") ~typ:(id @-> id @-> returning (void)) x view -let addLinkAnnotationViews self = msg_send ~self ~cmd:(selector "addLinkAnnotationViews") ~typ:(returning (void)) -let allowEditing self = msg_send ~self ~cmd:(selector "allowEditing") ~typ:(returning (bool)) -let annotatePageSelection self = msg_send ~self ~cmd:(selector "annotatePageSelection") ~typ:(returning (id)) -let annotationAt x self = msg_send ~self ~cmd:(selector "annotationAt:") ~typ:(CGPoint.t @-> returning (id)) x -let annotationBriefPressRecognized x self = msg_send ~self ~cmd:(selector "annotationBriefPressRecognized:") ~typ:(id @-> returning (bool)) x -let annotationLongPressRecognized x self = msg_send ~self ~cmd:(selector "annotationLongPressRecognized:") ~typ:(id @-> returning (bool)) x -let annotationSingleTapRecognized x self = msg_send ~self ~cmd:(selector "annotationSingleTapRecognized:") ~typ:(id @-> returning (bool)) x -let annotationTapRecognized x self = msg_send ~self ~cmd:(selector "annotationTapRecognized:") ~typ:(id @-> returning (void)) x -let convertPoint x ~toSurfaceLayer self = msg_send_stret ~self ~cmd:(selector "convertPoint:toSurfaceLayer:") ~typ:(CGPoint.t @-> id @-> returning (CGPoint.t)) ~return_type:CGPoint.t x toSurfaceLayer -let convertRect x ~toSurfaceLayer self = msg_send_stret ~self ~cmd:(selector "convertRect:toSurfaceLayer:") ~typ:(CGRect.t @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x toSurfaceLayer -let copyAttributesOf x ~to_ self = msg_send ~self ~cmd:(selector "copyAttributesOf:to:") ~typ:(id @-> id @-> returning (void)) x to_ -let currentAnnotation self = msg_send ~self ~cmd:(selector "currentAnnotation") ~typ:(returning (id)) -let currentColor self = msg_send ~self ~cmd:(selector "currentColor") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didEndTrackingAtPoint x self = msg_send ~self ~cmd:(selector "didEndTrackingAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let doubleTapRecognized x self = msg_send ~self ~cmd:(selector "doubleTapRecognized:") ~typ:(id @-> returning (void)) x -let drawAnnotations x self = msg_send ~self ~cmd:(selector "drawAnnotations:") ~typ:(id @-> returning (void)) x -let drawingSurface self = msg_send ~self ~cmd:(selector "drawingSurface") ~typ:(returning (id)) -let endTrackingAtPoint x self = msg_send ~self ~cmd:(selector "endTrackingAtPoint:") ~typ:(CGPoint.t @-> returning (void)) x -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let hostViewDidScroll self = msg_send ~self ~cmd:(selector "hostViewDidScroll") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithPageView x self = msg_send ~self ~cmd:(selector "initWithPageView:") ~typ:(id @-> returning (id)) x -let intersects x ~with_ self = msg_send ~self ~cmd:(selector "intersects:with:") ~typ:(ptr void @-> ptr void @-> returning (bool)) x with_ -let isLinkAnnotationAt x self = msg_send ~self ~cmd:(selector "isLinkAnnotationAt:") ~typ:(CGPoint.t @-> returning (bool)) x -let isSelection x ~equalTo self = msg_send ~self ~cmd:(selector "isSelection:equalTo:") ~typ:(ptr void @-> ptr void @-> returning (bool)) x equalTo -let layoutAnnotationViews x self = msg_send ~self ~cmd:(selector "layoutAnnotationViews:") ~typ:(id @-> returning (void)) x -let linkAnnotationAt x self = msg_send ~self ~cmd:(selector "linkAnnotationAt:") ~typ:(CGPoint.t @-> returning (id)) x -let linkAnnotationShouldBegin x self = msg_send ~self ~cmd:(selector "linkAnnotationShouldBegin:") ~typ:(id @-> returning (bool)) x -let linkPressRecognized x self = msg_send ~self ~cmd:(selector "linkPressRecognized:") ~typ:(id @-> returning (void)) x -let lock self = msg_send ~self ~cmd:(selector "lock") ~typ:(returning (void)) -let madeInstantAnnotation self = msg_send ~self ~cmd:(selector "madeInstantAnnotation") ~typ:(returning (bool)) -let makeUnderlineAnnotation self = msg_send ~self ~cmd:(selector "makeUnderlineAnnotation") ~typ:(returning (bool)) -let marginNoteImage x self = msg_send ~self ~cmd:(selector "marginNoteImage:") ~typ:(id @-> returning (id)) x -let marginNoteImageSize self = msg_send_stret ~self ~cmd:(selector "marginNoteImageSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let mergeSelectionOfAnnotation x self = msg_send ~self ~cmd:(selector "mergeSelectionOfAnnotation:") ~typ:(id @-> returning (void)) x -let newHighlightMaskImageFor x self = msg_send ~self ~cmd:(selector "newHighlightMaskImageFor:") ~typ:(CGRect.t @-> returning (id)) x -let pageView self = msg_send ~self ~cmd:(selector "pageView") ~typ:(returning (id)) -let resetBeingPressedForRecognizer x ~withDelegate ~withAnnotation self = msg_send ~self ~cmd:(selector "resetBeingPressedForRecognizer:withDelegate:withAnnotation:") ~typ:(id @-> id @-> id @-> returning (void)) x withDelegate withAnnotation -let setAllowEditing x self = msg_send ~self ~cmd:(selector "setAllowEditing:") ~typ:(bool @-> returning (void)) x -let setCurrentAnnotation x self = msg_send ~self ~cmd:(selector "setCurrentAnnotation:") ~typ:(id @-> returning (void)) x -let setCurrentColor x self = msg_send ~self ~cmd:(selector "setCurrentColor:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDrawingSurface x self = msg_send ~self ~cmd:(selector "setDrawingSurface:") ~typ:(id @-> returning (void)) x -let setMakeUnderlineAnnotation x self = msg_send ~self ~cmd:(selector "setMakeUnderlineAnnotation:") ~typ:(bool @-> returning (void)) x -let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning (void)) -let setSurfacePosition x self = msg_send ~self ~cmd:(selector "setSurfacePosition:") ~typ:(id @-> returning (void)) x -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let startTracking x self = msg_send ~self ~cmd:(selector "startTracking:") ~typ:(CGPoint.t @-> returning (void)) x -let trackMoved x self = msg_send ~self ~cmd:(selector "trackMoved:") ~typ:(CGPoint.t @-> returning (bool)) x -let tracking self = msg_send ~self ~cmd:(selector "tracking") ~typ:(returning (bool)) -let tracking' x self = msg_send ~self ~cmd:(selector "tracking:") ~typ:(CGPoint.t @-> returning (void)) x -let underlineImageFor x self = msg_send ~self ~cmd:(selector "underlineImageFor:") ~typ:(CGRect.t @-> returning (id)) x -let unlock self = msg_send ~self ~cmd:(selector "unlock") ~typ:(returning (void)) -let willDoSomethingWithTap x self = msg_send ~self ~cmd:(selector "willDoSomethingWithTap:") ~typ:(CGPoint.t @-> returning (bool)) x -let willHandleTouchGestureAtPoint x self = msg_send ~self ~cmd:(selector "willHandleTouchGestureAtPoint:") ~typ:(CGPoint.t @-> returning (bool)) x -let willTrackAtPoint x self = msg_send ~self ~cmd:(selector "willTrackAtPoint:") ~typ:(CGPoint.t @-> returning (bool)) x \ No newline at end of file diff --git a/uikit_extra/UIPDFAnnotationParserDelegate.ml b/uikit_extra/UIPDFAnnotationParserDelegate.ml deleted file mode 100644 index 972efa25..00000000 --- a/uikit_extra/UIPDFAnnotationParserDelegate.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFAnnotationParserDelegate" - -let annotation self = msg_send ~self ~cmd:(selector "annotation") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let parseError self = msg_send ~self ~cmd:(selector "parseError") ~typ:(returning (bool)) -let parser x ~foundCharacters self = msg_send ~self ~cmd:(selector "parser:foundCharacters:") ~typ:(id @-> id @-> returning (void)) x foundCharacters -let parser1 x ~parseErrorOccurred self = msg_send ~self ~cmd:(selector "parser:parseErrorOccurred:") ~typ:(id @-> id @-> returning (void)) x parseErrorOccurred -let parser2 x ~didEndElement ~namespaceURI ~qualifiedName self = msg_send ~self ~cmd:(selector "parser:didEndElement:namespaceURI:qualifiedName:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x didEndElement namespaceURI qualifiedName -let parser3 x ~didStartElement ~namespaceURI ~qualifiedName ~attributes self = msg_send ~self ~cmd:(selector "parser:didStartElement:namespaceURI:qualifiedName:attributes:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (void)) x didStartElement namespaceURI qualifiedName attributes -let parserDidStartDocument x self = msg_send ~self ~cmd:(selector "parserDidStartDocument:") ~typ:(id @-> returning (void)) x -let setAnnotation x self = msg_send ~self ~cmd:(selector "setAnnotation:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UIPDFDocument.ml b/uikit_extra/UIPDFDocument.ml deleted file mode 100644 index 41e26da1..00000000 --- a/uikit_extra/UIPDFDocument.ml +++ /dev/null @@ -1,40 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFDocument" - -module C = struct - let documentNamed x self = msg_send ~self ~cmd:(selector "documentNamed:") ~typ:(id @-> returning (id)) x - let newDocumentWithCGPDFDocument x self = msg_send ~self ~cmd:(selector "newDocumentWithCGPDFDocument:") ~typ:(ptr void @-> returning (id)) x -end - -let _CGDocument self = msg_send ~self ~cmd:(selector "CGDocument") ~typ:(returning (ptr void)) -let allowsCopying self = msg_send ~self ~cmd:(selector "allowsCopying") ~typ:(returning (bool)) -let copyCGPDFDocument self = msg_send ~self ~cmd:(selector "copyCGPDFDocument") ~typ:(returning (ptr void)) -let copyDocumentTo x self = msg_send ~self ~cmd:(selector "copyDocumentTo:") ~typ:(id @-> returning (bool)) x -let copyPageAtIndex x self = msg_send ~self ~cmd:(selector "copyPageAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let documentID self = msg_send ~self ~cmd:(selector "documentID") ~typ:(returning (id)) -let initWithCGPDFDocument x self = msg_send ~self ~cmd:(selector "initWithCGPDFDocument:") ~typ:(ptr void @-> returning (id)) x -let initWithCGPDFDocumentLimitedMemory x self = msg_send ~self ~cmd:(selector "initWithCGPDFDocumentLimitedMemory:") ~typ:(ptr void @-> returning (id)) x -let initWithURL x self = msg_send ~self ~cmd:(selector "initWithURL:") ~typ:(id @-> returning (id)) x -let maxHeight self = msg_send ~self ~cmd:(selector "maxHeight") ~typ:(returning (double)) -let maxWidth self = msg_send ~self ~cmd:(selector "maxWidth") ~typ:(returning (double)) -let numberOfPages self = msg_send ~self ~cmd:(selector "numberOfPages") ~typ:(returning (ullong)) -let pageAtIndex x self = msg_send ~self ~cmd:(selector "pageAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let pageImageCache self = msg_send ~self ~cmd:(selector "pageImageCache") ~typ:(returning (id)) -let purgePagesBefore x self = msg_send ~self ~cmd:(selector "purgePagesBefore:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setImageCacheCount x ~lookAhead ~withResolution self = msg_send ~self ~cmd:(selector "setImageCacheCount:lookAhead:withResolution:") ~typ:(ullong @-> ullong @-> double @-> returning (void)) (ULLong.of_int x) (ULLong.of_int lookAhead) withResolution -let setPageImageCache x self = msg_send ~self ~cmd:(selector "setPageImageCache:") ~typ:(id @-> returning (void)) x -let setThumbnailCache x self = msg_send ~self ~cmd:(selector "setThumbnailCache:") ~typ:(id @-> returning (void)) x -let sumHeight self = msg_send ~self ~cmd:(selector "sumHeight") ~typ:(returning (double)) -let sumWidth self = msg_send ~self ~cmd:(selector "sumWidth") ~typ:(returning (double)) -let thumbnailCache self = msg_send ~self ~cmd:(selector "thumbnailCache") ~typ:(returning (id)) -let updateWidthHeightCache self = msg_send ~self ~cmd:(selector "updateWidthHeightCache") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UIPDFHighlightAnnotation.ml b/uikit_extra/UIPDFHighlightAnnotation.ml deleted file mode 100644 index bd6aeb22..00000000 --- a/uikit_extra/UIPDFHighlightAnnotation.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFHighlightAnnotation" - -let annotationType self = msg_send ~self ~cmd:(selector "annotationType") ~typ:(returning (int)) -let drawInContext x self = msg_send ~self ~cmd:(selector "drawInContext:") ~typ:(id @-> returning (void)) x -let drawLayer x ~inContext self = msg_send ~self ~cmd:(selector "drawLayer:inContext:") ~typ:(id @-> id @-> returning (void)) x inContext -let drawLayerRotated x ~inContext ~selection ~rectangles self = msg_send ~self ~cmd:(selector "drawLayerRotated:inContext:selection:rectangles:") ~typ:(id @-> id @-> id @-> ullong @-> returning (void)) x inContext selection (ULLong.of_int rectangles) -let drawLayerUpright x ~inContext ~selection ~rectangles self = msg_send ~self ~cmd:(selector "drawLayerUpright:inContext:selection:rectangles:") ~typ:(id @-> id @-> id @-> ullong @-> returning (void)) x inContext selection (ULLong.of_int rectangles) -let recognizeGestures self = msg_send ~self ~cmd:(selector "recognizeGestures") ~typ:(returning (bool)) -let viewClass self = msg_send ~self ~cmd:(selector "viewClass") ~typ:(returning (_Class)) \ No newline at end of file diff --git a/uikit_extra/UIPDFHighlightLayer.ml b/uikit_extra/UIPDFHighlightLayer.ml deleted file mode 100644 index 4f256d32..00000000 --- a/uikit_extra/UIPDFHighlightLayer.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFHighlightLayer" - -let borderPath self = msg_send ~self ~cmd:(selector "borderPath") ~typ:(returning (ptr void)) -let clipPath self = msg_send ~self ~cmd:(selector "clipPath") ~typ:(returning (ptr void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let offset self = msg_send_stret ~self ~cmd:(selector "offset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let setBorderPath x self = msg_send ~self ~cmd:(selector "setBorderPath:") ~typ:(ptr void @-> returning (void)) x -let setClipPath x self = msg_send ~self ~cmd:(selector "setClipPath:") ~typ:(ptr void @-> returning (void)) x -let setOffset x self = msg_send ~self ~cmd:(selector "setOffset:") ~typ:(CGPoint.t @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UIPDFHighlighter.ml b/uikit_extra/UIPDFHighlighter.ml deleted file mode 100644 index 9ba8cf99..00000000 --- a/uikit_extra/UIPDFHighlighter.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFHighlighter" - -let addAnimation x self = msg_send ~self ~cmd:(selector "addAnimation:") ~typ:(id @-> returning (void)) x -let addHighlightFor x ~to_ ~animated self = msg_send ~self ~cmd:(selector "addHighlightFor:to:animated:") ~typ:(id @-> id @-> bool @-> returning (void)) x to_ animated -let addHighlightLayerFor x ~atIndex ~to_ ~animated self = msg_send ~self ~cmd:(selector "addHighlightLayerFor:atIndex:to:animated:") ~typ:(id @-> ullong @-> id @-> bool @-> returning (void)) x (ULLong.of_int atIndex) to_ animated -let addRectPath x ~toView ~layer ~rectangle ~upright self = msg_send ~self ~cmd:(selector "addRectPath:toView:layer:rectangle:upright:") ~typ:(ptr void @-> id @-> id @-> ptr void @-> bool @-> returning (void)) x toView layer rectangle upright -let clear self = msg_send ~self ~cmd:(selector "clear") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let drawLayer x ~inContext self = msg_send ~self ~cmd:(selector "drawLayer:inContext:") ~typ:(id @-> id @-> returning (void)) x inContext -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let inset self = msg_send ~self ~cmd:(selector "inset") ~typ:(returning (double)) -let makeTheBorderPath x ~layer ~rectangle ~upright self = msg_send ~self ~cmd:(selector "makeTheBorderPath:layer:rectangle:upright:") ~typ:(id @-> id @-> ptr void @-> bool @-> returning (void)) x layer rectangle upright -let makeTheClipPath x ~layer ~rectangle ~upright self = msg_send ~self ~cmd:(selector "makeTheClipPath:layer:rectangle:upright:") ~typ:(id @-> id @-> ptr void @-> bool @-> returning (void)) x layer rectangle upright -let setInset x self = msg_send ~self ~cmd:(selector "setInset:") ~typ:(double @-> returning (void)) x -let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning (void)) -let unhide self = msg_send ~self ~cmd:(selector "unhide") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UIPDFLinkAnnotation.ml b/uikit_extra/UIPDFLinkAnnotation.ml deleted file mode 100644 index a635b196..00000000 --- a/uikit_extra/UIPDFLinkAnnotation.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFLinkAnnotation" - -let getDestination x self = msg_send ~self ~cmd:(selector "getDestination:") ~typ:(ptr void @-> returning (ullong)) x -let getNamedDestination x self = msg_send ~self ~cmd:(selector "getNamedDestination:") ~typ:(ptr void @-> returning (ullong)) x -let linkRectangle self = msg_send_stret ~self ~cmd:(selector "linkRectangle") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let newBaseURL self = msg_send ~self ~cmd:(selector "newBaseURL") ~typ:(returning (id)) -let pageNumber self = msg_send ~self ~cmd:(selector "pageNumber") ~typ:(returning (ullong)) -let quadPoints x ~within self = msg_send ~self ~cmd:(selector "quadPoints:within:") ~typ:(ptr void @-> CGRect.t @-> returning (bool)) x within -let recognizeGestures self = msg_send ~self ~cmd:(selector "recognizeGestures") ~typ:(returning (bool)) -let shouldRecognizeTapOrPress x self = msg_send ~self ~cmd:(selector "shouldRecognizeTapOrPress:") ~typ:(CGPoint.t @-> returning (bool)) x -let url self = msg_send ~self ~cmd:(selector "url") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UIPDFMagnifierController.ml b/uikit_extra/UIPDFMagnifierController.ml deleted file mode 100644 index 6a48516e..00000000 --- a/uikit_extra/UIPDFMagnifierController.ml +++ /dev/null @@ -1,42 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFMagnifierController" - -let addBling self = msg_send ~self ~cmd:(selector "addBling") ~typ:(returning (void)) -let addTextRangeHandles self = msg_send ~self ~cmd:(selector "addTextRangeHandles") ~typ:(returning (void)) -let convertPointToEnlargedSpace x self = msg_send_stret ~self ~cmd:(selector "convertPointToEnlargedSpace:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertPointToRotatedPage x self = msg_send_stret ~self ~cmd:(selector "convertPointToRotatedPage:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertRectToEnlargedSpace x self = msg_send_stret ~self ~cmd:(selector "convertRectToEnlargedSpace:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let convertRectToRotatedPage x self = msg_send_stret ~self ~cmd:(selector "convertRectToRotatedPage:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let convertViewPointToEnlargedSpace x self = msg_send_stret ~self ~cmd:(selector "convertViewPointToEnlargedSpace:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let drawLayer x ~inContext self = msg_send ~self ~cmd:(selector "drawLayer:inContext:") ~typ:(id @-> id @-> returning (void)) x inContext -let hide self = msg_send ~self ~cmd:(selector "hide") ~typ:(returning (void)) -let imageReceived x ~data self = msg_send ~self ~cmd:(selector "imageReceived:data:") ~typ:(id @-> id @-> returning (id)) x data -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isSelectionUniformlyRotated x self = msg_send ~self ~cmd:(selector "isSelectionUniformlyRotated:") ~typ:(ptr (double) @-> returning (bool)) x -let move self = msg_send ~self ~cmd:(selector "move") ~typ:(returning (void)) -let pageView self = msg_send ~self ~cmd:(selector "pageView") ~typ:(returning (id)) -let placeImage self = msg_send ~self ~cmd:(selector "placeImage") ~typ:(returning (void)) -let pointToMagnifyInPDFSpace self = msg_send_stret ~self ~cmd:(selector "pointToMagnifyInPDFSpace") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let setImageContainerMask self = msg_send ~self ~cmd:(selector "setImageContainerMask") ~typ:(returning (void)) -let setImageContainerPositionLoupe self = msg_send ~self ~cmd:(selector "setImageContainerPositionLoupe") ~typ:(returning (void)) -let setImageContainerPositionMagnifier self = msg_send ~self ~cmd:(selector "setImageContainerPositionMagnifier") ~typ:(returning (void)) -let setLayerPositions self = msg_send ~self ~cmd:(selector "setLayerPositions") ~typ:(returning (void)) -let setPageView x self = msg_send ~self ~cmd:(selector "setPageView:") ~typ:(id @-> returning (void)) x -let setPosition x ~viewPoint self = msg_send ~self ~cmd:(selector "setPosition:viewPoint:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (void)) x viewPoint -let setPower self = msg_send ~self ~cmd:(selector "setPower") ~typ:(returning (void)) -let setSelectionPath self = msg_send ~self ~cmd:(selector "setSelectionPath") ~typ:(returning (void)) -let setSelectionPath' x ~bounds ~transform self = msg_send ~self ~cmd:(selector "setSelectionPath:bounds:transform:") ~typ:(ptr void @-> CGRect.t @-> ptr void @-> returning (void)) x bounds transform -let setTextRangeHandlePositions self = msg_send ~self ~cmd:(selector "setTextRangeHandlePositions") ~typ:(returning (void)) -let showLoupe self = msg_send ~self ~cmd:(selector "showLoupe") ~typ:(returning (void)) -let showMagnifier self = msg_send ~self ~cmd:(selector "showMagnifier") ~typ:(returning (void)) -let tearDownLayers self = msg_send ~self ~cmd:(selector "tearDownLayers") ~typ:(returning (void)) -let viewPointInTextEffectsSpace self = msg_send_stret ~self ~cmd:(selector "viewPointInTextEffectsSpace") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UIPDFPage.ml b/uikit_extra/UIPDFPage.ml deleted file mode 100644 index 318859c8..00000000 --- a/uikit_extra/UIPDFPage.ml +++ /dev/null @@ -1,42 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFPage" - -let _CGPage self = msg_send ~self ~cmd:(selector "CGPage") ~typ:(returning (ptr void)) -let addAnnotation x self = msg_send ~self ~cmd:(selector "addAnnotation:") ~typ:(id @-> returning (void)) x -let annotationIn x ~withIndex self = msg_send ~self ~cmd:(selector "annotationIn:withIndex:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int withIndex) -let annotations self = msg_send ~self ~cmd:(selector "annotations") ~typ:(returning (id)) -let cfCompareFlagsFromNSOptions x self = msg_send ~self ~cmd:(selector "cfCompareFlagsFromNSOptions:") ~typ:(ullong @-> returning (ullong)) (ULLong.of_int x) -let clearAnnotations self = msg_send ~self ~cmd:(selector "clearAnnotations") ~typ:(returning (void)) -let copyPage self = msg_send ~self ~cmd:(selector "copyPage") ~typ:(returning (id)) -let cropBox self = msg_send_stret ~self ~cmd:(selector "cropBox") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let cropBoxAccountForRotation self = msg_send_stret ~self ~cmd:(selector "cropBoxAccountForRotation") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deliverImageWithWidth x ~height ~receiver ~selector_ ~info self = msg_send ~self ~cmd:(selector "deliverImageWithWidth:height:receiver:selector:info:") ~typ:(ullong @-> ullong @-> id @-> _SEL @-> id @-> returning (void)) (ULLong.of_int x) (ULLong.of_int height) receiver selector_ info -let document self = msg_send ~self ~cmd:(selector "document") ~typ:(returning (id)) -let drawInRect x ~context self = msg_send ~self ~cmd:(selector "drawInRect:context:") ~typ:(CGRect.t @-> id @-> returning (void)) x context -let findString x ~fromSelection ~options self = msg_send ~self ~cmd:(selector "findString:fromSelection:options:") ~typ:(id @-> id @-> ullong @-> returning (id)) x fromSelection (ULLong.of_int options) -let getImageIfAvailable self = msg_send ~self ~cmd:(selector "getImageIfAvailable") ~typ:(returning (id)) -let initWithCGPDFPage x self = msg_send ~self ~cmd:(selector "initWithCGPDFPage:") ~typ:(ptr void @-> returning (id)) x -let initWithDocument x ~pageNumber self = msg_send ~self ~cmd:(selector "initWithDocument:pageNumber:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int pageNumber) -let mediaBox self = msg_send_stret ~self ~cmd:(selector "mediaBox") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let mediaBoxAccountForRotation self = msg_send_stret ~self ~cmd:(selector "mediaBoxAccountForRotation") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let pageImage self = msg_send ~self ~cmd:(selector "pageImage") ~typ:(returning (id)) -let pageIndex self = msg_send ~self ~cmd:(selector "pageIndex") ~typ:(returning (ullong)) -let pageNumber self = msg_send ~self ~cmd:(selector "pageNumber") ~typ:(returning (ullong)) -let refresh self = msg_send ~self ~cmd:(selector "refresh") ~typ:(returning (void)) -let removeAllAnnotations self = msg_send ~self ~cmd:(selector "removeAllAnnotations") ~typ:(returning (void)) -let removeAnnotation x self = msg_send ~self ~cmd:(selector "removeAnnotation:") ~typ:(id @-> returning (void)) x -let rotation self = msg_send ~self ~cmd:(selector "rotation") ~typ:(returning (ullong)) -let selection self = msg_send ~self ~cmd:(selector "selection") ~typ:(returning (id)) -let setDocument x self = msg_send ~self ~cmd:(selector "setDocument:") ~typ:(id @-> returning (void)) x -let setPageImage x self = msg_send ~self ~cmd:(selector "setPageImage:") ~typ:(id @-> returning (void)) x -let setSelection x self = msg_send ~self ~cmd:(selector "setSelection:") ~typ:(id @-> returning (void)) x -let size self = msg_send_stret ~self ~cmd:(selector "size") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let string_ self = msg_send ~self ~cmd:(selector "string") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UIPDFPageContentDelegate.ml b/uikit_extra/UIPDFPageContentDelegate.ml deleted file mode 100644 index 5ed4b652..00000000 --- a/uikit_extra/UIPDFPageContentDelegate.ml +++ /dev/null @@ -1,34 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFPageContentDelegate" - -let addRect x ~toPath ~transform ~view ~owner self = msg_send ~self ~cmd:(selector "addRect:toPath:transform:view:owner:") ~typ:(CGRect.t @-> ptr void @-> ptr void @-> id @-> id @-> returning (void)) x toPath transform view owner -let box self = msg_send_stret ~self ~cmd:(selector "box") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let computeTransform self = msg_send ~self ~cmd:(selector "computeTransform") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let document self = msg_send ~self ~cmd:(selector "document") ~typ:(returning (id)) -let drawLayer x ~inContext self = msg_send ~self ~cmd:(selector "drawLayer:inContext:") ~typ:(id @-> id @-> returning (void)) x inContext -let drawSelectionLayer x ~inContext self = msg_send ~self ~cmd:(selector "drawSelectionLayer:inContext:") ~typ:(id @-> id @-> returning (void)) x inContext -let drawSelectionLayerBlockMode x ~inContext self = msg_send ~self ~cmd:(selector "drawSelectionLayerBlockMode:inContext:") ~typ:(id @-> id @-> returning (void)) x inContext -let highlightColor self = msg_send ~self ~cmd:(selector "highlightColor") ~typ:(returning (ptr void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isCancelled self = msg_send ~self ~cmd:(selector "isCancelled") ~typ:(returning (bool)) -let owner self = msg_send ~self ~cmd:(selector "owner") ~typ:(returning (id)) -let pageHasSelection self = msg_send ~self ~cmd:(selector "pageHasSelection") ~typ:(returning (bool)) -let pageIndex self = msg_send ~self ~cmd:(selector "pageIndex") ~typ:(returning (ullong)) -let pageRotation self = msg_send ~self ~cmd:(selector "pageRotation") ~typ:(returning (ullong)) -let setBox x self = msg_send ~self ~cmd:(selector "setBox:") ~typ:(CGRect.t @-> returning (void)) x -let setDocument x self = msg_send ~self ~cmd:(selector "setDocument:") ~typ:(id @-> returning (void)) x -let setHighlightColor x self = msg_send ~self ~cmd:(selector "setHighlightColor:") ~typ:(ptr void @-> returning (void)) x -let setIsCancelled x self = msg_send ~self ~cmd:(selector "setIsCancelled:") ~typ:(bool @-> returning (void)) x -let setOwner x self = msg_send ~self ~cmd:(selector "setOwner:") ~typ:(id @-> returning (void)) x -let setPageIndex x self = msg_send ~self ~cmd:(selector "setPageIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setPageRotation x self = msg_send ~self ~cmd:(selector "setPageRotation:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setView x self = msg_send ~self ~cmd:(selector "setView:") ~typ:(id @-> returning (void)) x -let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UIPDFPageContentLayer.ml b/uikit_extra/UIPDFPageContentLayer.ml deleted file mode 100644 index 23778a58..00000000 --- a/uikit_extra/UIPDFPageContentLayer.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFPageContentLayer" - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let drawLayer x ~inContext self = msg_send ~self ~cmd:(selector "drawLayer:inContext:") ~typ:(id @-> id @-> returning (void)) x inContext -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let layoutSublayers self = msg_send ~self ~cmd:(selector "layoutSublayers") ~typ:(returning (void)) -let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning (void)) -let setSelectionNeedsDisplay self = msg_send ~self ~cmd:(selector "setSelectionNeedsDisplay") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UIPDFPageContentTiledLayer.ml b/uikit_extra/UIPDFPageContentTiledLayer.ml deleted file mode 100644 index a17f6ac0..00000000 --- a/uikit_extra/UIPDFPageContentTiledLayer.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFPageContentTiledLayer" - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let drawLayer x ~inContext self = msg_send ~self ~cmd:(selector "drawLayer:inContext:") ~typ:(id @-> id @-> returning (void)) x inContext -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let layoutSublayers self = msg_send ~self ~cmd:(selector "layoutSublayers") ~typ:(returning (void)) -let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning (void)) -let setSelectionNeedsDisplay self = msg_send ~self ~cmd:(selector "setSelectionNeedsDisplay") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UIPDFPageImageCache.ml b/uikit_extra/UIPDFPageImageCache.ml deleted file mode 100644 index 202a192c..00000000 --- a/uikit_extra/UIPDFPageImageCache.ml +++ /dev/null @@ -1,26 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFPageImageCache" - -let addRenderJob x self = msg_send ~self ~cmd:(selector "addRenderJob:") ~typ:(id @-> returning (void)) x -let cacheImageOfPage x ~maxSize self = msg_send ~self ~cmd:(selector "cacheImageOfPage:maxSize:") ~typ:(ullong @-> CGSize.t @-> returning (void)) (ULLong.of_int x) maxSize -let cancelPendingRenderOperations self = msg_send ~self ~cmd:(selector "cancelPendingRenderOperations") ~typ:(returning (void)) -let cancelPendingRenderOperationsForTarget x self = msg_send ~self ~cmd:(selector "cancelPendingRenderOperationsForTarget:") ~typ:(id @-> returning (void)) x -let clearCache self = msg_send ~self ~cmd:(selector "clearCache") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deliverImageOfPage x ~maxSize ~quality ~receiver ~selector_ ~info self = msg_send ~self ~cmd:(selector "deliverImageOfPage:maxSize:quality:receiver:selector:info:") ~typ:(ullong @-> CGSize.t @-> ptr (bool) @-> id @-> _SEL @-> id @-> returning (void)) (ULLong.of_int x) maxSize quality receiver selector_ info -let didReceiveMemoryWarning x self = msg_send ~self ~cmd:(selector "didReceiveMemoryWarning:") ~typ:(id @-> returning (void)) x -let document self = msg_send ~self ~cmd:(selector "document") ~typ:(returning (id)) -let getImageIfAvailableForPage x self = msg_send ~self ~cmd:(selector "getImageIfAvailableForPage:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let getRenderQueueJobsCount self = msg_send ~self ~cmd:(selector "getRenderQueueJobsCount") ~typ:(returning (int)) -let initWithDocument x self = msg_send ~self ~cmd:(selector "initWithDocument:") ~typ:(id @-> returning (id)) x -let initWithDocument' x ~cacheCount ~lookAhead ~withLookAheadResolution self = msg_send ~self ~cmd:(selector "initWithDocument:cacheCount:lookAhead:withLookAheadResolution:") ~typ:(id @-> ullong @-> ullong @-> double @-> returning (id)) x (ULLong.of_int cacheCount) (ULLong.of_int lookAhead) withLookAheadResolution -let lookAhead self = msg_send ~self ~cmd:(selector "lookAhead") ~typ:(returning (ullong)) -let lookAheadResolution self = msg_send ~self ~cmd:(selector "lookAheadResolution") ~typ:(returning (double)) -let pageCount self = msg_send ~self ~cmd:(selector "pageCount") ~typ:(returning (ullong)) \ No newline at end of file diff --git a/uikit_extra/UIPDFPageRenderJob.ml b/uikit_extra/UIPDFPageRenderJob.ml deleted file mode 100644 index 9f2fd43e..00000000 --- a/uikit_extra/UIPDFPageRenderJob.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFPageRenderJob" - -let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning (void)) -let cancelOperation self = msg_send ~self ~cmd:(selector "cancelOperation") ~typ:(returning (void)) -let cancelOperationForTarget x self = msg_send ~self ~cmd:(selector "cancelOperationForTarget:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let hasPage self = msg_send ~self ~cmd:(selector "hasPage") ~typ:(returning (bool)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let initWithPage x ~maxSize ~queuePriority self = msg_send ~self ~cmd:(selector "initWithPage:maxSize:queuePriority:") ~typ:(id @-> CGSize.t @-> llong @-> returning (id)) x maxSize (LLong.of_int queuePriority) -let operation self = msg_send ~self ~cmd:(selector "operation") ~typ:(returning (id)) -let pageIndex self = msg_send ~self ~cmd:(selector "pageIndex") ~typ:(returning (ullong)) -let priority self = msg_send ~self ~cmd:(selector "priority") ~typ:(returning (llong)) -let releaseOperation self = msg_send ~self ~cmd:(selector "releaseOperation") ~typ:(returning (void)) -let releaseWhenDone self = msg_send ~self ~cmd:(selector "releaseWhenDone") ~typ:(returning (bool)) -let renderImage self = msg_send ~self ~cmd:(selector "renderImage") ~typ:(returning (void)) -let sendImage self = msg_send ~self ~cmd:(selector "sendImage") ~typ:(returning (void)) -let sendImageTo x ~callback ~userData self = msg_send ~self ~cmd:(selector "sendImageTo:callback:userData:") ~typ:(id @-> _SEL @-> id @-> returning (void)) x callback userData -let setOperation x self = msg_send ~self ~cmd:(selector "setOperation:") ~typ:(id @-> returning (void)) x -let setReleaseWhenDone x self = msg_send ~self ~cmd:(selector "setReleaseWhenDone:") ~typ:(bool @-> returning (void)) x -let setTarget x ~callback ~userData self = msg_send ~self ~cmd:(selector "setTarget:callback:userData:") ~typ:(id @-> _SEL @-> id @-> returning (void)) x callback userData -let size self = msg_send_stret ~self ~cmd:(selector "size") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t \ No newline at end of file diff --git a/uikit_extra/UIPDFPageRenderOperation.ml b/uikit_extra/UIPDFPageRenderOperation.ml deleted file mode 100644 index ade47891..00000000 --- a/uikit_extra/UIPDFPageRenderOperation.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFPageRenderOperation" - -let completeOperation self = msg_send ~self ~cmd:(selector "completeOperation") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithJob x self = msg_send ~self ~cmd:(selector "initWithJob:") ~typ:(id @-> returning (id)) x -let isConcurrent self = msg_send ~self ~cmd:(selector "isConcurrent") ~typ:(returning (bool)) -let isExecuting self = msg_send ~self ~cmd:(selector "isExecuting") ~typ:(returning (bool)) -let isFinished self = msg_send ~self ~cmd:(selector "isFinished") ~typ:(returning (bool)) -let job self = msg_send ~self ~cmd:(selector "job") ~typ:(returning (id)) -let main self = msg_send ~self ~cmd:(selector "main") ~typ:(returning (void)) -let setJob x self = msg_send ~self ~cmd:(selector "setJob:") ~typ:(id @-> returning (void)) x -let start self = msg_send ~self ~cmd:(selector "start") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UIPDFPageView.ml b/uikit_extra/UIPDFPageView.ml deleted file mode 100644 index f9030018..00000000 --- a/uikit_extra/UIPDFPageView.ml +++ /dev/null @@ -1,97 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFPageView" - -let addLayers x self = msg_send ~self ~cmd:(selector "addLayers:") ~typ:(bool @-> returning (void)) x -let addPage x self = msg_send ~self ~cmd:(selector "addPage:") ~typ:(id @-> returning (void)) x -let addWidgetToSelection self = msg_send ~self ~cmd:(selector "addWidgetToSelection") ~typ:(returning (void)) -let allowHighlighting self = msg_send ~self ~cmd:(selector "allowHighlighting") ~typ:(returning (bool)) -let allowMenu self = msg_send ~self ~cmd:(selector "allowMenu") ~typ:(returning (bool)) -let allowSelection self = msg_send ~self ~cmd:(selector "allowSelection") ~typ:(returning (bool)) -let allowTwoFingerSelection self = msg_send ~self ~cmd:(selector "allowTwoFingerSelection") ~typ:(returning (bool)) -let animateSetFrame self = msg_send ~self ~cmd:(selector "animateSetFrame") ~typ:(returning (bool)) -let annotationController self = msg_send ~self ~cmd:(selector "annotationController") ~typ:(returning (id)) -let backgroundImage self = msg_send ~self ~cmd:(selector "backgroundImage") ~typ:(returning (id)) -let backingLayerColor self = msg_send ~self ~cmd:(selector "backingLayerColor") ~typ:(returning (id)) -let clearSearchHighlights self = msg_send ~self ~cmd:(selector "clearSearchHighlights") ~typ:(returning (void)) -let clearSelection self = msg_send ~self ~cmd:(selector "clearSelection") ~typ:(returning (void)) -let contentLayer self = msg_send ~self ~cmd:(selector "contentLayer") ~typ:(returning (id)) -let convertPointFromPDFPageSpace x self = msg_send_stret ~self ~cmd:(selector "convertPointFromPDFPageSpace:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertPointToPDFPageSpace x self = msg_send_stret ~self ~cmd:(selector "convertPointToPDFPageSpace:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let convertRectFromPDFPageSpace x self = msg_send_stret ~self ~cmd:(selector "convertRectFromPDFPageSpace:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let convertRectToPDFPageSpace x self = msg_send_stret ~self ~cmd:(selector "convertRectToPDFPageSpace:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let createBackingLayer self = msg_send ~self ~cmd:(selector "createBackingLayer") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let didReceiveMemoryWarning x self = msg_send ~self ~cmd:(selector "didReceiveMemoryWarning:") ~typ:(id @-> returning (void)) x -let didScroll x self = msg_send ~self ~cmd:(selector "didScroll:") ~typ:(id @-> returning (void)) x -let displayContent self = msg_send ~self ~cmd:(selector "displayContent") ~typ:(returning (void)) -let document self = msg_send ~self ~cmd:(selector "document") ~typ:(returning (id)) -let doubleTapAt x self = msg_send ~self ~cmd:(selector "doubleTapAt:") ~typ:(CGPoint.t @-> returning (void)) x -let drawAnnotations x self = msg_send ~self ~cmd:(selector "drawAnnotations:") ~typ:(id @-> returning (void)) x -let effectsLayer self = msg_send ~self ~cmd:(selector "effectsLayer") ~typ:(returning (id)) -let enableLightMemoryFootprint self = msg_send ~self ~cmd:(selector "enableLightMemoryFootprint") ~typ:(returning (void)) -let fitRect x self = msg_send_stret ~self ~cmd:(selector "fitRect:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let fitWidth x ~atVertical self = msg_send_stret ~self ~cmd:(selector "fitWidth:atVertical:") ~typ:(CGRect.t @-> double @-> returning (CGRect.t)) ~return_type:CGRect.t x atVertical -let hasSearchHighlights self = msg_send ~self ~cmd:(selector "hasSearchHighlights") ~typ:(returning (bool)) -let hideSelection self = msg_send ~self ~cmd:(selector "hideSelection") ~typ:(returning (void)) -let highLightColor self = msg_send ~self ~cmd:(selector "highLightColor") ~typ:(returning (ptr void)) -let highlightSearchSelection x ~animated self = msg_send ~self ~cmd:(selector "highlightSearchSelection:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let ignoreTouches x self = msg_send ~self ~cmd:(selector "ignoreTouches:") ~typ:(bool @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithPage x self = msg_send ~self ~cmd:(selector "initWithPage:") ~typ:(id @-> returning (id)) x -let initWithPage' x ~tiledContent self = msg_send ~self ~cmd:(selector "initWithPage:tiledContent:") ~typ:(id @-> bool @-> returning (id)) x tiledContent -let initWithPageLimitedMemory x self = msg_send ~self ~cmd:(selector "initWithPageLimitedMemory:") ~typ:(id @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let layoutTextEffects self = msg_send ~self ~cmd:(selector "layoutTextEffects") ~typ:(returning (void)) -let margin self = msg_send ~self ~cmd:(selector "margin") ~typ:(returning (double)) -let page self = msg_send ~self ~cmd:(selector "page") ~typ:(returning (id)) -let pageIndex self = msg_send ~self ~cmd:(selector "pageIndex") ~typ:(returning (ullong)) -let receiveBackgroundImage x ~info self = msg_send ~self ~cmd:(selector "receiveBackgroundImage:info:") ~typ:(id @-> id @-> returning (id)) x info -let rectangleOfInterestAt x ~kind self = msg_send_stret ~self ~cmd:(selector "rectangleOfInterestAt:kind:") ~typ:(CGPoint.t @-> ptr (int) @-> returning (CGRect.t)) ~return_type:CGRect.t x kind -let removeBackingLayer self = msg_send ~self ~cmd:(selector "removeBackingLayer") ~typ:(returning (void)) -let scheduleBackgroundImage self = msg_send ~self ~cmd:(selector "scheduleBackgroundImage") ~typ:(returning (void)) -let searchHighlightSelectionAt x self = msg_send ~self ~cmd:(selector "searchHighlightSelectionAt:") ~typ:(CGPoint.t @-> returning (id)) x -let selectionController self = msg_send ~self ~cmd:(selector "selectionController") ~typ:(returning (id)) -let setAllowHighlighting x self = msg_send ~self ~cmd:(selector "setAllowHighlighting:") ~typ:(bool @-> returning (void)) x -let setAllowMenu x self = msg_send ~self ~cmd:(selector "setAllowMenu:") ~typ:(bool @-> returning (void)) x -let setAllowSelection x self = msg_send ~self ~cmd:(selector "setAllowSelection:") ~typ:(bool @-> returning (void)) x -let setAllowTwoFingerSelection x self = msg_send ~self ~cmd:(selector "setAllowTwoFingerSelection:") ~typ:(bool @-> returning (void)) x -let setAnimateSetFrame x self = msg_send ~self ~cmd:(selector "setAnimateSetFrame:") ~typ:(bool @-> returning (void)) x -let setBackgroundImage x self = msg_send ~self ~cmd:(selector "setBackgroundImage:") ~typ:(id @-> returning (void)) x -let setBackingLayerColor x self = msg_send ~self ~cmd:(selector "setBackingLayerColor:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDrawingSurfaceLayer x self = msg_send ~self ~cmd:(selector "setDrawingSurfaceLayer:") ~typ:(id @-> returning (void)) x -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setMargin x self = msg_send ~self ~cmd:(selector "setMargin:") ~typ:(double @-> returning (void)) x -let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning (void)) -let setPage x self = msg_send ~self ~cmd:(selector "setPage:") ~typ:(id @-> returning (void)) x -let setSelectionController x self = msg_send ~self ~cmd:(selector "setSelectionController:") ~typ:(id @-> returning (void)) x -let setSelectionNeedsDisplay self = msg_send ~self ~cmd:(selector "setSelectionNeedsDisplay") ~typ:(returning (void)) -let setShowActivityIndicator x self = msg_send ~self ~cmd:(selector "setShowActivityIndicator:") ~typ:(bool @-> returning (void)) x -let setShowAnnotations x self = msg_send ~self ~cmd:(selector "setShowAnnotations:") ~typ:(bool @-> returning (void)) x -let setShowLinkAnnotationUnderline x self = msg_send ~self ~cmd:(selector "setShowLinkAnnotationUnderline:") ~typ:(bool @-> returning (void)) x -let setShowTextAnnotations x self = msg_send ~self ~cmd:(selector "setShowTextAnnotations:") ~typ:(bool @-> returning (void)) x -let setTransforms self = msg_send ~self ~cmd:(selector "setTransforms") ~typ:(returning (void)) -let setUseBackingLayer x self = msg_send ~self ~cmd:(selector "setUseBackingLayer:") ~typ:(bool @-> returning (void)) x -let showActivityIndicator self = msg_send ~self ~cmd:(selector "showActivityIndicator") ~typ:(returning (bool)) -let showAnnotations self = msg_send ~self ~cmd:(selector "showAnnotations") ~typ:(returning (bool)) -let showContent self = msg_send ~self ~cmd:(selector "showContent") ~typ:(returning (void)) -let showLinkAnnotationUnderline self = msg_send ~self ~cmd:(selector "showLinkAnnotationUnderline") ~typ:(returning (bool)) -let showSelection self = msg_send ~self ~cmd:(selector "showSelection") ~typ:(returning (void)) -let showTextAnnotations self = msg_send ~self ~cmd:(selector "showTextAnnotations") ~typ:(returning (bool)) -let singleTapAt x self = msg_send ~self ~cmd:(selector "singleTapAt:") ~typ:(CGPoint.t @-> returning (void)) x -let sizeThatFits x self = msg_send_stret ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning (CGSize.t)) ~return_type:CGSize.t x -let stopActivityIndicator self = msg_send ~self ~cmd:(selector "stopActivityIndicator") ~typ:(returning (void)) -let suspendInstantTouchHighlighting self = msg_send ~self ~cmd:(selector "suspendInstantTouchHighlighting") ~typ:(returning (void)) -let twoFingerDoubleTapAt x self = msg_send ~self ~cmd:(selector "twoFingerDoubleTapAt:") ~typ:(CGPoint.t @-> returning (void)) x -let useBackingLayer self = msg_send ~self ~cmd:(selector "useBackingLayer") ~typ:(returning (bool)) -let viewDidZoom x self = msg_send ~self ~cmd:(selector "viewDidZoom:") ~typ:(id @-> returning (void)) x -let willDoSomethingWithTap x self = msg_send ~self ~cmd:(selector "willDoSomethingWithTap:") ~typ:(CGPoint.t @-> returning (bool)) x -let willMoveToSuperview x self = msg_send ~self ~cmd:(selector "willMoveToSuperview:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UIPDFParagraphWidget.ml b/uikit_extra/UIPDFParagraphWidget.ml deleted file mode 100644 index f5dd511f..00000000 --- a/uikit_extra/UIPDFParagraphWidget.ml +++ /dev/null @@ -1,31 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFParagraphWidget" - -let adjustRect x ~toPoint self = msg_send_stret ~self ~cmd:(selector "adjustRect:toPoint:") ~typ:(CGRect.t @-> CGPoint.t @-> returning (CGRect.t)) ~return_type:CGRect.t x toPoint -let currentSelectionPointOnPage self = msg_send_stret ~self ~cmd:(selector "currentSelectionPointOnPage") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let drawLayer x ~inContext self = msg_send ~self ~cmd:(selector "drawLayer:inContext:") ~typ:(id @-> id @-> returning (void)) x inContext -let endTracking self = msg_send ~self ~cmd:(selector "endTracking") ~typ:(returning (void)) -let hide self = msg_send ~self ~cmd:(selector "hide") ~typ:(returning (void)) -let hitTest x ~fixedPoint ~preceeds self = msg_send ~self ~cmd:(selector "hitTest:fixedPoint:preceeds:") ~typ:(CGPoint.t @-> ptr (CGPoint.t) @-> ptr (bool) @-> returning (bool)) x fixedPoint preceeds -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initialSelectionPointOnPage self = msg_send_stret ~self ~cmd:(selector "initialSelectionPointOnPage") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let layout self = msg_send ~self ~cmd:(selector "layout") ~typ:(returning (void)) -let pageView self = msg_send ~self ~cmd:(selector "pageView") ~typ:(returning (id)) -let remove self = msg_send ~self ~cmd:(selector "remove") ~typ:(returning (void)) -let selectedPointFor x self = msg_send_stret ~self ~cmd:(selector "selectedPointFor:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let selectionBoundsInEffectsSpace self = msg_send_stret ~self ~cmd:(selector "selectionBoundsInEffectsSpace") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let selectionRectangle self = msg_send_stret ~self ~cmd:(selector "selectionRectangle") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let setPageView x self = msg_send ~self ~cmd:(selector "setPageView:") ~typ:(id @-> returning (void)) x -let setSelectedGrabber x self = msg_send ~self ~cmd:(selector "setSelectedGrabber:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setSelectedGrabberPosition x self = msg_send ~self ~cmd:(selector "setSelectedGrabberPosition:") ~typ:(CGRect.t @-> returning (void)) x -let setSelection x self = msg_send ~self ~cmd:(selector "setSelection:") ~typ:(id @-> returning (void)) x -let track x self = msg_send ~self ~cmd:(selector "track:") ~typ:(CGPoint.t @-> returning (void)) x -let viewOffset self = msg_send_stret ~self ~cmd:(selector "viewOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file diff --git a/uikit_extra/UIPDFParserDelegate.ml b/uikit_extra/UIPDFParserDelegate.ml deleted file mode 100644 index 3354dd31..00000000 --- a/uikit_extra/UIPDFParserDelegate.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFParserDelegate" - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let parser x ~parseErrorOccurred self = msg_send ~self ~cmd:(selector "parser:parseErrorOccurred:") ~typ:(id @-> id @-> returning (void)) x parseErrorOccurred -let parser1 x ~didEndElement ~namespaceURI ~qualifiedName self = msg_send ~self ~cmd:(selector "parser:didEndElement:namespaceURI:qualifiedName:") ~typ:(id @-> id @-> id @-> id @-> returning (void)) x didEndElement namespaceURI qualifiedName -let parser2 x ~didStartElement ~namespaceURI ~qualifiedName ~attributes self = msg_send ~self ~cmd:(selector "parser:didStartElement:namespaceURI:qualifiedName:attributes:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning (void)) x didStartElement namespaceURI qualifiedName attributes -let parserDidStartDocument x self = msg_send ~self ~cmd:(selector "parserDidStartDocument:") ~typ:(id @-> returning (void)) x -let parserError self = msg_send ~self ~cmd:(selector "parserError") ~typ:(returning (bool)) -let path self = msg_send ~self ~cmd:(selector "path") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/uikit_extra/UIPDFPlacementController.ml b/uikit_extra/UIPDFPlacementController.ml deleted file mode 100644 index 437c3ba0..00000000 --- a/uikit_extra/UIPDFPlacementController.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFPlacementController" - -let boundsForObjectAtIndex x self = msg_send_stret ~self ~cmd:(selector "boundsForObjectAtIndex:") ~typ:(ullong @-> returning (CGRect.t)) ~return_type:CGRect.t (ULLong.of_int x) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithAnnotations x ~viewSize self = msg_send ~self ~cmd:(selector "initWithAnnotations:viewSize:") ~typ:(id @-> CGSize.t @-> returning (id)) x viewSize -let layoutViews x self = msg_send ~self ~cmd:(selector "layoutViews:") ~typ:(double @-> returning (void)) x -let pageView self = msg_send ~self ~cmd:(selector "pageView") ~typ:(returning (id)) -let setPageView x self = msg_send ~self ~cmd:(selector "setPageView:") ~typ:(id @-> returning (void)) x -let shift x self = msg_send ~self ~cmd:(selector "shift:") ~typ:(double @-> returning (void)) x -let viewAtIndex x self = msg_send ~self ~cmd:(selector "viewAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let yForObjectAtIndex x self = msg_send ~self ~cmd:(selector "yForObjectAtIndex:") ~typ:(ullong @-> returning (double)) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIPDFPopupAnnotation.ml b/uikit_extra/UIPDFPopupAnnotation.ml deleted file mode 100644 index cbda7223..00000000 --- a/uikit_extra/UIPDFPopupAnnotation.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFPopupAnnotation" - -let adjustedBounds self = msg_send_stret ~self ~cmd:(selector "adjustedBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let annotationType self = msg_send ~self ~cmd:(selector "annotationType") ~typ:(returning (int)) -let bounds self = msg_send_stret ~self ~cmd:(selector "bounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithAnnotationDictionary x self = msg_send ~self ~cmd:(selector "initWithAnnotationDictionary:") ~typ:(ptr void @-> returning (id)) x -let parent self = msg_send ~self ~cmd:(selector "parent") ~typ:(returning (id)) -let recognizeGestures self = msg_send ~self ~cmd:(selector "recognizeGestures") ~typ:(returning (bool)) -let setAdjustedBounds x self = msg_send ~self ~cmd:(selector "setAdjustedBounds:") ~typ:(CGRect.t @-> returning (void)) x -let setParent x self = msg_send ~self ~cmd:(selector "setParent:") ~typ:(id @-> returning (void)) x -let viewClass self = msg_send ~self ~cmd:(selector "viewClass") ~typ:(returning (_Class)) \ No newline at end of file diff --git a/uikit_extra/UIPDFSearchHighlightsController.ml b/uikit_extra/UIPDFSearchHighlightsController.ml deleted file mode 100644 index 4e583d6b..00000000 --- a/uikit_extra/UIPDFSearchHighlightsController.ml +++ /dev/null @@ -1,30 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFSearchHighlightsController" - -let addLayer x ~path ~shadowPath ~animated self = msg_send ~self ~cmd:(selector "addLayer:path:shadowPath:animated:") ~typ:(CGRect.t @-> ptr void @-> ptr void @-> bool @-> returning (void)) x path shadowPath animated -let addSearchHighlightForRotatedSelection x ~animated self = msg_send ~self ~cmd:(selector "addSearchHighlightForRotatedSelection:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let addSearchHighlightForSelection x ~animated self = msg_send ~self ~cmd:(selector "addSearchHighlightForSelection:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let clearSearchHighlights self = msg_send ~self ~cmd:(selector "clearSearchHighlights") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let drawLayer x ~inContext self = msg_send ~self ~cmd:(selector "drawLayer:inContext:") ~typ:(id @-> id @-> returning (void)) x inContext -let hasSearchHighlights self = msg_send ~self ~cmd:(selector "hasSearchHighlights") ~typ:(returning (bool)) -let hitTest x self = msg_send ~self ~cmd:(selector "hitTest:") ~typ:(CGPoint.t @-> returning (id)) x -let indexOfColumnBreakStartingAt x self = msg_send ~self ~cmd:(selector "indexOfColumnBreakStartingAt:") ~typ:(ullong @-> returning (ullong)) (ULLong.of_int x) -let initWithPageView x self = msg_send ~self ~cmd:(selector "initWithPageView:") ~typ:(id @-> returning (id)) x -let layoutSublayersOfLayer x self = msg_send ~self ~cmd:(selector "layoutSublayersOfLayer:") ~typ:(id @-> returning (void)) x -let makeType1Path x ~shadowPath self = msg_send ~self ~cmd:(selector "makeType1Path:shadowPath:") ~typ:(ptr void @-> ptr void @-> returning (void)) x shadowPath -let makeType1Shadow x ~rect ~inset self = msg_send ~self ~cmd:(selector "makeType1Shadow:rect:inset:") ~typ:(ptr void @-> CGRect.t @-> CGPoint.t @-> returning (void)) x rect inset -let makeType2Path x ~to_ ~shadowPath self = msg_send ~self ~cmd:(selector "makeType2Path:to:shadowPath:") ~typ:(ptr void @-> ullong @-> ptr void @-> returning (void)) x (ULLong.of_int to_) shadowPath -let makeType2Shadow x ~rect self = msg_send ~self ~cmd:(selector "makeType2Shadow:rect:") ~typ:(ptr void @-> CGRect.t @-> returning (void)) x rect -let makeType3Path x ~from ~to_ ~shadowPath self = msg_send ~self ~cmd:(selector "makeType3Path:from:to:shadowPath:") ~typ:(ptr void @-> ullong @-> ullong @-> ptr void @-> returning (void)) x (ULLong.of_int from) (ULLong.of_int to_) shadowPath -let makeType4Path x ~from ~to_ ~shadowPath self = msg_send ~self ~cmd:(selector "makeType4Path:from:to:shadowPath:") ~typ:(ptr void @-> ullong @-> ullong @-> ptr void @-> returning (void)) x (ULLong.of_int from) (ULLong.of_int to_) shadowPath -let pageDidRender x self = msg_send ~self ~cmd:(selector "pageDidRender:") ~typ:(id @-> returning (void)) x -let setNeedsDisplay self = msg_send ~self ~cmd:(selector "setNeedsDisplay") ~typ:(returning (void)) -let unionFrom x ~to_ self = msg_send_stret ~self ~cmd:(selector "unionFrom:to:") ~typ:(ullong @-> ullong @-> returning (CGRect.t)) ~return_type:CGRect.t (ULLong.of_int x) (ULLong.of_int to_) \ No newline at end of file diff --git a/uikit_extra/UIPDFSelection.ml b/uikit_extra/UIPDFSelection.ml deleted file mode 100644 index 14a0576b..00000000 --- a/uikit_extra/UIPDFSelection.ml +++ /dev/null @@ -1,40 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFSelection" - -let _CGSelection self = msg_send ~self ~cmd:(selector "CGSelection") ~typ:(returning (ptr void)) -let archive self = msg_send ~self ~cmd:(selector "archive") ~typ:(returning (id)) -let attributedStringAtIndex x self = msg_send ~self ~cmd:(selector "attributedStringAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let baseLineAtIndex x self = msg_send ~self ~cmd:(selector "baseLineAtIndex:") ~typ:(ullong @-> returning (double)) (ULLong.of_int x) -let bounds self = msg_send_stret ~self ~cmd:(selector "bounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let containingTextLine self = msg_send ~self ~cmd:(selector "containingTextLine") ~typ:(returning (id)) -let copyToPasteboard self = msg_send ~self ~cmd:(selector "copyToPasteboard") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let endIndex self = msg_send ~self ~cmd:(selector "endIndex") ~typ:(returning (ullong)) -let extendAtEnd x self = msg_send ~self ~cmd:(selector "extendAtEnd:") ~typ:(ullong @-> returning (ullong)) (ULLong.of_int x) -let extendAtStart x self = msg_send ~self ~cmd:(selector "extendAtStart:") ~typ:(ullong @-> returning (ullong)) (ULLong.of_int x) -let extendToParagraph self = msg_send ~self ~cmd:(selector "extendToParagraph") ~typ:(returning (void)) -let getBounds x ~transform ~index self = msg_send ~self ~cmd:(selector "getBounds:transform:index:") ~typ:(ptr (CGRect.t) @-> ptr void @-> ullong @-> returning (bool)) x transform (ULLong.of_int index) -let htmlAtIndex x self = msg_send ~self ~cmd:(selector "htmlAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithPage x ~cgSelection self = msg_send ~self ~cmd:(selector "initWithPage:cgSelection:") ~typ:(id @-> ptr void @-> returning (id)) x cgSelection -let initWithPage1 x ~fromArchive self = msg_send ~self ~cmd:(selector "initWithPage:fromArchive:") ~typ:(id @-> id @-> returning (id)) x fromArchive -let initWithPage2 x ~fromIndex ~toIndex self = msg_send ~self ~cmd:(selector "initWithPage:fromIndex:toIndex:") ~typ:(id @-> ullong @-> ullong @-> returning (id)) x (ULLong.of_int fromIndex) (ULLong.of_int toIndex) -let initWithSelection x self = msg_send ~self ~cmd:(selector "initWithSelection:") ~typ:(id @-> returning (id)) x -let isEmpty self = msg_send ~self ~cmd:(selector "isEmpty") ~typ:(returning (bool)) -let isNonEmpty self = msg_send ~self ~cmd:(selector "isNonEmpty") ~typ:(returning (bool)) -let isWord self = msg_send ~self ~cmd:(selector "isWord") ~typ:(returning (bool)) -let numberOfRectangles self = msg_send ~self ~cmd:(selector "numberOfRectangles") ~typ:(returning (ullong)) -let page self = msg_send ~self ~cmd:(selector "page") ~typ:(returning (id)) -let selectionExtendedToLineBoundaries self = msg_send ~self ~cmd:(selector "selectionExtendedToLineBoundaries") ~typ:(returning (id)) -let setStringRange x self = msg_send ~self ~cmd:(selector "setStringRange:") ~typ:(ptr void @-> returning (void)) x -let startIndex self = msg_send ~self ~cmd:(selector "startIndex") ~typ:(returning (ullong)) -let string_ self = msg_send ~self ~cmd:(selector "string") ~typ:(returning (id)) -let textAtIndex x self = msg_send ~self ~cmd:(selector "textAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIPDFSelectionController.ml b/uikit_extra/UIPDFSelectionController.ml deleted file mode 100644 index c6959964..00000000 --- a/uikit_extra/UIPDFSelectionController.ml +++ /dev/null @@ -1,45 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFSelectionController" - -let addSelectionWidget x self = msg_send ~self ~cmd:(selector "addSelectionWidget:") ~typ:(id @-> returning (void)) x -let adjustSelection x self = msg_send ~self ~cmd:(selector "adjustSelection:") ~typ:(CGPoint.t @-> returning (void)) x -let adjustedPoint self = msg_send_stret ~self ~cmd:(selector "adjustedPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let clearSelection self = msg_send ~self ~cmd:(selector "clearSelection") ~typ:(returning (void)) -let currentSelectionPoint self = msg_send_stret ~self ~cmd:(selector "currentSelectionPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let endTracking x self = msg_send ~self ~cmd:(selector "endTracking:") ~typ:(CGPoint.t @-> returning (void)) x -let extendSelectionToParagraph self = msg_send ~self ~cmd:(selector "extendSelectionToParagraph") ~typ:(returning (void)) -let hideWidget self = msg_send ~self ~cmd:(selector "hideWidget") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initialSelectionPoint self = msg_send_stret ~self ~cmd:(selector "initialSelectionPoint") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let instantHighlightMode self = msg_send ~self ~cmd:(selector "instantHighlightMode") ~typ:(returning (bool)) -let isTracking self = msg_send ~self ~cmd:(selector "isTracking") ~typ:(returning (bool)) -let layoutSelections self = msg_send ~self ~cmd:(selector "layoutSelections") ~typ:(returning (void)) -let pageView self = msg_send ~self ~cmd:(selector "pageView") ~typ:(returning (id)) -let rangeMode self = msg_send ~self ~cmd:(selector "rangeMode") ~typ:(returning (bool)) -let selectedPointOffset self = msg_send_stret ~self ~cmd:(selector "selectedPointOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let selectionHide x self = msg_send ~self ~cmd:(selector "selectionHide:") ~typ:(id @-> returning (void)) x -let selectionHideFromAncestor x self = msg_send ~self ~cmd:(selector "selectionHideFromAncestor:") ~typ:(id @-> returning (void)) x -let selectionShow x self = msg_send ~self ~cmd:(selector "selectionShow:") ~typ:(id @-> returning (void)) x -let selectionShowDelayed x self = msg_send ~self ~cmd:(selector "selectionShowDelayed:") ~typ:(id @-> returning (void)) x -let selectionShowToAncestor x self = msg_send ~self ~cmd:(selector "selectionShowToAncestor:") ~typ:(id @-> returning (void)) x -let selectionWidget self = msg_send ~self ~cmd:(selector "selectionWidget") ~typ:(returning (id)) -let setInstantHighlightMode x self = msg_send ~self ~cmd:(selector "setInstantHighlightMode:") ~typ:(bool @-> returning (void)) x -let setPageView x self = msg_send ~self ~cmd:(selector "setPageView:") ~typ:(id @-> returning (void)) x -let setSelectionFor x self = msg_send ~self ~cmd:(selector "setSelectionFor:") ~typ:(CGPoint.t @-> returning (void)) x -let shouldTrackAt x self = msg_send ~self ~cmd:(selector "shouldTrackAt:") ~typ:(CGPoint.t @-> returning (bool)) x -let startSelectingAt x self = msg_send ~self ~cmd:(selector "startSelectingAt:") ~typ:(CGPoint.t @-> returning (void)) x -let startTracking x ~andPoint self = msg_send ~self ~cmd:(selector "startTracking:andPoint:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (void)) x andPoint -let startTracking' x ~showMagnifier self = msg_send ~self ~cmd:(selector "startTracking:showMagnifier:") ~typ:(CGPoint.t @-> ptr (bool) @-> returning (void)) x showMagnifier -let suspendInstantHighlightMode self = msg_send ~self ~cmd:(selector "suspendInstantHighlightMode") ~typ:(returning (void)) -let tracking x ~andPoint self = msg_send ~self ~cmd:(selector "tracking:andPoint:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning (void)) x andPoint -let tracking' x ~showMagnifier self = msg_send ~self ~cmd:(selector "tracking:showMagnifier:") ~typ:(CGPoint.t @-> ptr (bool) @-> returning (void)) x showMagnifier -let useParagraphMode self = msg_send ~self ~cmd:(selector "useParagraphMode") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UIPDFSquareOrCircleAnnotation.ml b/uikit_extra/UIPDFSquareOrCircleAnnotation.ml deleted file mode 100644 index a6f51cf4..00000000 --- a/uikit_extra/UIPDFSquareOrCircleAnnotation.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFSquareOrCircleAnnotation" - -let drawInContext x self = msg_send ~self ~cmd:(selector "drawInContext:") ~typ:(id @-> returning (void)) x -let initWithAnnotationDictionary x self = msg_send ~self ~cmd:(selector "initWithAnnotationDictionary:") ~typ:(ptr void @-> returning (id)) x -let strokePath x ~inRect self = msg_send ~self ~cmd:(selector "strokePath:inRect:") ~typ:(id @-> CGRect.t @-> returning (void)) x inRect \ No newline at end of file diff --git a/uikit_extra/UIPDFTextRangeWidget.ml b/uikit_extra/UIPDFTextRangeWidget.ml deleted file mode 100644 index db484583..00000000 --- a/uikit_extra/UIPDFTextRangeWidget.ml +++ /dev/null @@ -1,32 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFTextRangeWidget" - -let currentSelectionPointOnPage self = msg_send_stret ~self ~cmd:(selector "currentSelectionPointOnPage") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let drawLayer x ~inContext self = msg_send ~self ~cmd:(selector "drawLayer:inContext:") ~typ:(id @-> id @-> returning (void)) x inContext -let endTracking self = msg_send ~self ~cmd:(selector "endTracking") ~typ:(returning (void)) -let hide self = msg_send ~self ~cmd:(selector "hide") ~typ:(returning (void)) -let hitTest x ~fixedPoint ~preceeds self = msg_send ~self ~cmd:(selector "hitTest:fixedPoint:preceeds:") ~typ:(CGPoint.t @-> ptr (CGPoint.t) @-> ptr (bool) @-> returning (bool)) x fixedPoint preceeds -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initialSelectionPointOnPage self = msg_send_stret ~self ~cmd:(selector "initialSelectionPointOnPage") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t -let layout self = msg_send ~self ~cmd:(selector "layout") ~typ:(returning (void)) -let layoutEndSelectionGrabber x ~transform ~width ~extraHeight ~unitSize self = msg_send ~self ~cmd:(selector "layoutEndSelectionGrabber:transform:width:extraHeight:unitSize:") ~typ:(CGRect.t @-> ptr void @-> double @-> double @-> CGSize.t @-> returning (void)) x transform width extraHeight unitSize -let layoutStartSelectionGrabber x ~transform ~width ~extraHeight ~unitSize self = msg_send ~self ~cmd:(selector "layoutStartSelectionGrabber:transform:width:extraHeight:unitSize:") ~typ:(CGRect.t @-> ptr void @-> double @-> double @-> CGSize.t @-> returning (void)) x transform width extraHeight unitSize -let layoutWidget self = msg_send ~self ~cmd:(selector "layoutWidget") ~typ:(returning (void)) -let pageView self = msg_send ~self ~cmd:(selector "pageView") ~typ:(returning (id)) -let remove self = msg_send ~self ~cmd:(selector "remove") ~typ:(returning (void)) -let selectedPointFor x self = msg_send_stret ~self ~cmd:(selector "selectedPointFor:") ~typ:(CGPoint.t @-> returning (CGPoint.t)) ~return_type:CGPoint.t x -let selectionRectangle self = msg_send_stret ~self ~cmd:(selector "selectionRectangle") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let setPageView x self = msg_send ~self ~cmd:(selector "setPageView:") ~typ:(id @-> returning (void)) x -let setSelectedGrabber x self = msg_send ~self ~cmd:(selector "setSelectedGrabber:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setSelection x self = msg_send ~self ~cmd:(selector "setSelection:") ~typ:(id @-> returning (void)) x -let track x self = msg_send ~self ~cmd:(selector "track:") ~typ:(CGPoint.t @-> returning (void)) x -let viewOffset self = msg_send_stret ~self ~cmd:(selector "viewOffset") ~typ:(returning (CGPoint.t)) ~return_type:CGPoint.t \ No newline at end of file diff --git a/uikit_extra/UIPDFUnderlineAnnotation.ml b/uikit_extra/UIPDFUnderlineAnnotation.ml deleted file mode 100644 index d5b05910..00000000 --- a/uikit_extra/UIPDFUnderlineAnnotation.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFUnderlineAnnotation" - -let annotationType self = msg_send ~self ~cmd:(selector "annotationType") ~typ:(returning (int)) -let drawInContext x self = msg_send ~self ~cmd:(selector "drawInContext:") ~typ:(id @-> returning (void)) x -let drawLayer x ~inContext self = msg_send ~self ~cmd:(selector "drawLayer:inContext:") ~typ:(id @-> id @-> returning (void)) x inContext -let drawLayerRotated x ~inContext ~selection ~rectangles self = msg_send ~self ~cmd:(selector "drawLayerRotated:inContext:selection:rectangles:") ~typ:(id @-> id @-> id @-> ullong @-> returning (void)) x inContext selection (ULLong.of_int rectangles) -let drawLayerUpright x ~inContext ~selection ~rectangles self = msg_send ~self ~cmd:(selector "drawLayerUpright:inContext:selection:rectangles:") ~typ:(id @-> id @-> id @-> ullong @-> returning (void)) x inContext selection (ULLong.of_int rectangles) -let recognizeGestures self = msg_send ~self ~cmd:(selector "recognizeGestures") ~typ:(returning (bool)) -let viewClass self = msg_send ~self ~cmd:(selector "viewClass") ~typ:(returning (_Class)) \ No newline at end of file diff --git a/uikit_extra/UIPDFViewTouchHandler.ml b/uikit_extra/UIPDFViewTouchHandler.ml deleted file mode 100644 index 1d396fd5..00000000 --- a/uikit_extra/UIPDFViewTouchHandler.ml +++ /dev/null @@ -1,38 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFViewTouchHandler" - -module C = struct - let releaseViewManager self = msg_send ~self ~cmd:(selector "releaseViewManager") ~typ:(returning (void)) -end - -let allowMenu self = msg_send ~self ~cmd:(selector "allowMenu") ~typ:(returning (bool)) -let briefPressRecognized x self = msg_send ~self ~cmd:(selector "briefPressRecognized:") ~typ:(id @-> returning (void)) x -let canBecomeFirstResponder self = msg_send ~self ~cmd:(selector "canBecomeFirstResponder") ~typ:(returning (bool)) -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let copy x self = msg_send ~self ~cmd:(selector "copy:") ~typ:(id @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegateGesture x ~kind self = msg_send ~self ~cmd:(selector "delegateGesture:kind:") ~typ:(id @-> int @-> returning (bool)) x kind -let disableRecognizers self = msg_send ~self ~cmd:(selector "disableRecognizers") ~typ:(returning (void)) -let doubleTapRecognized x self = msg_send ~self ~cmd:(selector "doubleTapRecognized:") ~typ:(id @-> returning (void)) x -let enableRecognizers self = msg_send ~self ~cmd:(selector "enableRecognizers") ~typ:(returning (void)) -let gestureRecognizer x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning (bool)) x shouldReceiveTouch -let gestureRecognizer' x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRecognizeSimultaneouslyWithGestureRecognizer -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let hideMenu self = msg_send ~self ~cmd:(selector "hideMenu") ~typ:(returning (void)) -let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning (id)) x -let longPressRecognized x self = msg_send ~self ~cmd:(selector "longPressRecognized:") ~typ:(id @-> returning (void)) x -let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning (id)) -let resignFirstResponder self = msg_send ~self ~cmd:(selector "resignFirstResponder") ~typ:(returning (bool)) -let selectAll x self = msg_send ~self ~cmd:(selector "selectAll:") ~typ:(id @-> returning (void)) x -let setAllowMenu x self = msg_send ~self ~cmd:(selector "setAllowMenu:") ~typ:(bool @-> returning (void)) x -let setFirstTouch self = msg_send ~self ~cmd:(selector "setFirstTouch") ~typ:(returning (void)) -let showMenu self = msg_send ~self ~cmd:(selector "showMenu") ~typ:(returning (void)) -let singleTapRecognized x self = msg_send ~self ~cmd:(selector "singleTapRecognized:") ~typ:(id @-> returning (void)) x -let twoFingerTapRecognized x self = msg_send ~self ~cmd:(selector "twoFingerTapRecognized:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UIPDFWidget.ml b/uikit_extra/UIPDFWidget.ml deleted file mode 100644 index 1b99c379..00000000 --- a/uikit_extra/UIPDFWidget.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPDFWidget" - -let addedPageView x self = msg_send ~self ~cmd:(selector "addedPageView:") ~typ:(int @-> returning (void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didReceiveMemoryWarning x self = msg_send ~self ~cmd:(selector "didReceiveMemoryWarning:") ~typ:(id @-> returning (void)) x -let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning (void)) x -let heartbeat self = msg_send ~self ~cmd:(selector "heartbeat") ~typ:(returning (void)) -let initWithFrame x ~withDocument self = msg_send ~self ~cmd:(selector "initWithFrame:withDocument:") ~typ:(CGRect.t @-> id @-> returning (id)) x withDocument -let removedPageView x self = msg_send ~self ~cmd:(selector "removedPageView:") ~typ:(int @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UIPercentDrivenInteractiveTransition.ml b/uikit_extra/UIPercentDrivenInteractiveTransition.ml new file mode 100644 index 00000000..4bac3912 --- /dev/null +++ b/uikit_extra/UIPercentDrivenInteractiveTransition.ml @@ -0,0 +1,31 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uipercentdriveninteractivetransition?language=objc}UIPercentDrivenInteractiveTransition} *) + +let self = get_class "UIPercentDrivenInteractiveTransition" + +let cancelInteractiveTransition self = msg_send ~self ~cmd:(selector "cancelInteractiveTransition") ~typ:(returning void) +let completionCurve self = msg_send ~self ~cmd:(selector "completionCurve") ~typ:(returning llong) +let completionSpeed self = msg_send ~self ~cmd:(selector "completionSpeed") ~typ:(returning double) +let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning double) +let finishInteractiveTransition self = msg_send ~self ~cmd:(selector "finishInteractiveTransition") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let pauseInteractiveTransition self = msg_send ~self ~cmd:(selector "pauseInteractiveTransition") ~typ:(returning void) +let percentComplete self = msg_send ~self ~cmd:(selector "percentComplete") ~typ:(returning double) +let setCompletionCurve x self = msg_send ~self ~cmd:(selector "setCompletionCurve:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setCompletionSpeed x self = msg_send ~self ~cmd:(selector "setCompletionSpeed:") ~typ:(double @-> returning void) x +let setTimingCurve x self = msg_send ~self ~cmd:(selector "setTimingCurve:") ~typ:(id @-> returning void) x +let setWantsInteractiveStart x self = msg_send ~self ~cmd:(selector "setWantsInteractiveStart:") ~typ:(bool @-> returning void) x +let startInteractiveTransition x self = msg_send ~self ~cmd:(selector "startInteractiveTransition:") ~typ:(id @-> returning void) x +let startInteractiveTransition' x ~containerViews ~animation self = msg_send ~self ~cmd:(selector "startInteractiveTransition:containerViews:animation:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x containerViews animation +let timingCurve self = msg_send ~self ~cmd:(selector "timingCurve") ~typ:(returning id) +let updateInteractiveTransition x self = msg_send ~self ~cmd:(selector "updateInteractiveTransition:") ~typ:(double @-> returning void) x +let wantsInteractiveStart self = msg_send ~self ~cmd:(selector "wantsInteractiveStart") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIPrintFormatter.ml b/uikit_extra/UIPrintFormatter.ml deleted file mode 100644 index 78babd1c..00000000 --- a/uikit_extra/UIPrintFormatter.ml +++ /dev/null @@ -1,28 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPrintFormatter" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let drawInRect x ~forPageAtIndex self = msg_send ~self ~cmd:(selector "drawInRect:forPageAtIndex:") ~typ:(CGRect.t @-> llong @-> returning (void)) x (LLong.of_int forPageAtIndex) -let imagePDFAnnotations self = msg_send ~self ~cmd:(selector "imagePDFAnnotations") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let maximumContentHeight self = msg_send ~self ~cmd:(selector "maximumContentHeight") ~typ:(returning (double)) -let maximumContentWidth self = msg_send ~self ~cmd:(selector "maximumContentWidth") ~typ:(returning (double)) -let pageCount self = msg_send ~self ~cmd:(selector "pageCount") ~typ:(returning (llong)) -let printPageRenderer self = msg_send ~self ~cmd:(selector "printPageRenderer") ~typ:(returning (id)) -let rectForPageAtIndex x self = msg_send_stret ~self ~cmd:(selector "rectForPageAtIndex:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) -let removeFromPrintPageRenderer self = msg_send ~self ~cmd:(selector "removeFromPrintPageRenderer") ~typ:(returning (void)) -let setContentInsets x self = msg_send ~self ~cmd:(selector "setContentInsets:") ~typ:(ptr void @-> returning (void)) x -let setImagePDFAnnotations x self = msg_send ~self ~cmd:(selector "setImagePDFAnnotations:") ~typ:(bool @-> returning (void)) x -let setMaximumContentHeight x self = msg_send ~self ~cmd:(selector "setMaximumContentHeight:") ~typ:(double @-> returning (void)) x -let setMaximumContentWidth x self = msg_send ~self ~cmd:(selector "setMaximumContentWidth:") ~typ:(double @-> returning (void)) x -let setPerPageContentInsets x self = msg_send ~self ~cmd:(selector "setPerPageContentInsets:") ~typ:(ptr void @-> returning (void)) x -let setPrintPageRenderer x self = msg_send ~self ~cmd:(selector "setPrintPageRenderer:") ~typ:(id @-> returning (void)) x -let setStartPage x self = msg_send ~self ~cmd:(selector "setStartPage:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let startPage self = msg_send ~self ~cmd:(selector "startPage") ~typ:(returning (llong)) \ No newline at end of file diff --git a/uikit_extra/UIPrintInfo.ml b/uikit_extra/UIPrintInfo.ml deleted file mode 100644 index ff00128e..00000000 --- a/uikit_extra/UIPrintInfo.ml +++ /dev/null @@ -1,75 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPrintInfo" - -module C = struct - let printInfo self = msg_send ~self ~cmd:(selector "printInfo") ~typ:(returning (id)) - let printInfoWithDictionary x self = msg_send ~self ~cmd:(selector "printInfoWithDictionary:") ~typ:(id @-> returning (id)) x -end - -let coat self = msg_send ~self ~cmd:(selector "coat") ~typ:(returning (llong)) -let copies self = msg_send ~self ~cmd:(selector "copies") ~typ:(returning (llong)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dictionaryRepresentation self = msg_send ~self ~cmd:(selector "dictionaryRepresentation") ~typ:(returning (id)) -let duplex self = msg_send ~self ~cmd:(selector "duplex") ~typ:(returning (llong)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let finishingTemplate self = msg_send ~self ~cmd:(selector "finishingTemplate") ~typ:(returning (id)) -let fold self = msg_send ~self ~cmd:(selector "fold") ~typ:(returning (llong)) -let imagePDFAnnotations self = msg_send ~self ~cmd:(selector "imagePDFAnnotations") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let inputSlot self = msg_send ~self ~cmd:(selector "inputSlot") ~typ:(returning (id)) -let jobAccountID self = msg_send ~self ~cmd:(selector "jobAccountID") ~typ:(returning (id)) -let jobName self = msg_send ~self ~cmd:(selector "jobName") ~typ:(returning (id)) -let laminate self = msg_send ~self ~cmd:(selector "laminate") ~typ:(returning (llong)) -let mediaType self = msg_send ~self ~cmd:(selector "mediaType") ~typ:(returning (id)) -let orientation self = msg_send ~self ~cmd:(selector "orientation") ~typ:(returning (llong)) -let outputBin self = msg_send ~self ~cmd:(selector "outputBin") ~typ:(returning (id)) -let outputType self = msg_send ~self ~cmd:(selector "outputType") ~typ:(returning (llong)) -let pageCount self = msg_send ~self ~cmd:(selector "pageCount") ~typ:(returning (llong)) -let pageRanges self = msg_send ~self ~cmd:(selector "pageRanges") ~typ:(returning (id)) -let pageStackOrder self = msg_send ~self ~cmd:(selector "pageStackOrder") ~typ:(returning (id)) -let pdfAnnotationsAvailable self = msg_send ~self ~cmd:(selector "pdfAnnotationsAvailable") ~typ:(returning (bool)) -let pdfPassword self = msg_send ~self ~cmd:(selector "pdfPassword") ~typ:(returning (id)) -let printerID self = msg_send ~self ~cmd:(selector "printerID") ~typ:(returning (id)) -let punch self = msg_send ~self ~cmd:(selector "punch") ~typ:(returning (llong)) -let quality self = msg_send ~self ~cmd:(selector "quality") ~typ:(returning (llong)) -let scaleDownOnly self = msg_send ~self ~cmd:(selector "scaleDownOnly") ~typ:(returning (bool)) -let scaleToFit self = msg_send ~self ~cmd:(selector "scaleToFit") ~typ:(returning (bool)) -let scaleUp self = msg_send ~self ~cmd:(selector "scaleUp") ~typ:(returning (bool)) -let setCoat x self = msg_send ~self ~cmd:(selector "setCoat:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCopies x self = msg_send ~self ~cmd:(selector "setCopies:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setDuplex x self = msg_send ~self ~cmd:(selector "setDuplex:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setFinishingTemplate x self = msg_send ~self ~cmd:(selector "setFinishingTemplate:") ~typ:(id @-> returning (void)) x -let setFold x self = msg_send ~self ~cmd:(selector "setFold:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setImagePDFAnnotations x self = msg_send ~self ~cmd:(selector "setImagePDFAnnotations:") ~typ:(bool @-> returning (void)) x -let setInputSlot x self = msg_send ~self ~cmd:(selector "setInputSlot:") ~typ:(id @-> returning (void)) x -let setJobAccountID x self = msg_send ~self ~cmd:(selector "setJobAccountID:") ~typ:(id @-> returning (void)) x -let setJobName x self = msg_send ~self ~cmd:(selector "setJobName:") ~typ:(id @-> returning (void)) x -let setLaminate x self = msg_send ~self ~cmd:(selector "setLaminate:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setMediaType x self = msg_send ~self ~cmd:(selector "setMediaType:") ~typ:(id @-> returning (void)) x -let setOrientation x self = msg_send ~self ~cmd:(selector "setOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setOutputBin x self = msg_send ~self ~cmd:(selector "setOutputBin:") ~typ:(id @-> returning (void)) x -let setOutputType x self = msg_send ~self ~cmd:(selector "setOutputType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPageCount x self = msg_send ~self ~cmd:(selector "setPageCount:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPageRanges x self = msg_send ~self ~cmd:(selector "setPageRanges:") ~typ:(id @-> returning (void)) x -let setPageStackOrder x self = msg_send ~self ~cmd:(selector "setPageStackOrder:") ~typ:(id @-> returning (void)) x -let setPdfAnnotationsAvailable x self = msg_send ~self ~cmd:(selector "setPdfAnnotationsAvailable:") ~typ:(bool @-> returning (void)) x -let setPdfPassword x self = msg_send ~self ~cmd:(selector "setPdfPassword:") ~typ:(id @-> returning (void)) x -let setPrinterID x self = msg_send ~self ~cmd:(selector "setPrinterID:") ~typ:(id @-> returning (void)) x -let setPunch x self = msg_send ~self ~cmd:(selector "setPunch:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setQuality x self = msg_send ~self ~cmd:(selector "setQuality:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setScaleDownOnly x self = msg_send ~self ~cmd:(selector "setScaleDownOnly:") ~typ:(bool @-> returning (void)) x -let setScaleToFit x self = msg_send ~self ~cmd:(selector "setScaleToFit:") ~typ:(bool @-> returning (void)) x -let setScaleUp x self = msg_send ~self ~cmd:(selector "setScaleUp:") ~typ:(bool @-> returning (void)) x -let setStaple x self = msg_send ~self ~cmd:(selector "setStaple:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTrim x self = msg_send ~self ~cmd:(selector "setTrim:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let staple self = msg_send ~self ~cmd:(selector "staple") ~typ:(returning (llong)) -let trim self = msg_send ~self ~cmd:(selector "trim") ~typ:(returning (llong)) -let updateWithDictionary x self = msg_send ~self ~cmd:(selector "updateWithDictionary:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UIPrintInfoRequest.ml b/uikit_extra/UIPrintInfoRequest.ml deleted file mode 100644 index ab0de1f5..00000000 --- a/uikit_extra/UIPrintInfoRequest.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPrintInfoRequest" - -module C = struct - let requestInfoForPrinter x self = msg_send ~self ~cmd:(selector "requestInfoForPrinter:") ~typ:(id @-> returning (id)) x -end - -let completionHandler self = msg_send ~self ~cmd:(selector "completionHandler") ~typ:(returning (ptr void)) -let requestPrintInfo self = msg_send ~self ~cmd:(selector "requestPrintInfo") ~typ:(returning (void)) -let requestState self = msg_send ~self ~cmd:(selector "requestState") ~typ:(returning (int)) -let setCompletionHandler x self = msg_send ~self ~cmd:(selector "setCompletionHandler:") ~typ:(ptr void @-> returning (void)) x -let setRequestState x self = msg_send ~self ~cmd:(selector "setRequestState:") ~typ:(int @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UIPrintInteractionController.ml b/uikit_extra/UIPrintInteractionController.ml deleted file mode 100644 index d1b977ed..00000000 --- a/uikit_extra/UIPrintInteractionController.ml +++ /dev/null @@ -1,101 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPrintInteractionController" - -module C = struct - let canPrintData x self = msg_send ~self ~cmd:(selector "canPrintData:") ~typ:(id @-> returning (bool)) x - let canPrintURL x self = msg_send ~self ~cmd:(selector "canPrintURL:") ~typ:(id @-> returning (bool)) x - let isPrintingAvailable self = msg_send ~self ~cmd:(selector "isPrintingAvailable") ~typ:(returning (bool)) - let printableUTIs self = msg_send ~self ~cmd:(selector "printableUTIs") ~typ:(returning (id)) - let sharedPrintController self = msg_send ~self ~cmd:(selector "sharedPrintController") ~typ:(returning (id)) -end - -let activePrintInfo self = msg_send ~self ~cmd:(selector "activePrintInfo") ~typ:(returning (id)) -let currentPage self = msg_send ~self ~cmd:(selector "currentPage") ~typ:(returning (llong)) -let currentRange self = msg_send_stret ~self ~cmd:(selector "currentRange") ~typ:(returning (NSRange.t)) ~return_type:NSRange.t -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let dismissAnimated x self = msg_send ~self ~cmd:(selector "dismissAnimated:") ~typ:(bool @-> returning (void)) x -let drawPagesWithRange x ~withExistsURL ~withPreviewState self = msg_send ~self ~cmd:(selector "drawPagesWithRange:withExistsURL:withPreviewState:") ~typ:(NSRange.t @-> id @-> id @-> returning (id)) x withExistsURL withPreviewState -let formatterRenderer self = msg_send ~self ~cmd:(selector "formatterRenderer") ~typ:(returning (id)) -let hostingWindowScene self = msg_send ~self ~cmd:(selector "hostingWindowScene") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isContentManaged self = msg_send ~self ~cmd:(selector "isContentManaged") ~typ:(returning (bool)) -let manualPrintPageEnabled self = msg_send ~self ~cmd:(selector "manualPrintPageEnabled") ~typ:(returning (bool)) -let pageCount self = msg_send ~self ~cmd:(selector "pageCount") ~typ:(returning (llong)) -let pageCountWithRanges self = msg_send ~self ~cmd:(selector "pageCountWithRanges") ~typ:(returning (llong)) -let pageRanges self = msg_send ~self ~cmd:(selector "pageRanges") ~typ:(returning (id)) -let pagesDrawn self = msg_send ~self ~cmd:(selector "pagesDrawn") ~typ:(returning (llong)) -let paper self = msg_send ~self ~cmd:(selector "paper") ~typ:(returning (id)) -let pdfPassword self = msg_send ~self ~cmd:(selector "pdfPassword") ~typ:(returning (id)) -let presentAnimated x ~completionHandler self = msg_send ~self ~cmd:(selector "presentAnimated:completionHandler:") ~typ:(bool @-> ptr void @-> returning (bool)) x completionHandler -let presentAnimated' x ~hostingScene ~completionHandler self = msg_send ~self ~cmd:(selector "presentAnimated:hostingScene:completionHandler:") ~typ:(bool @-> id @-> ptr void @-> returning (bool)) x hostingScene completionHandler -let presentFromBarButtonItem x ~animated ~completionHandler self = msg_send ~self ~cmd:(selector "presentFromBarButtonItem:animated:completionHandler:") ~typ:(id @-> bool @-> ptr void @-> returning (bool)) x animated completionHandler -let presentFromRect x ~inView ~animated ~completionHandler self = msg_send ~self ~cmd:(selector "presentFromRect:inView:animated:completionHandler:") ~typ:(CGRect.t @-> id @-> bool @-> ptr void @-> returning (bool)) x inView animated completionHandler -let previewStates self = msg_send ~self ~cmd:(selector "previewStates") ~typ:(returning (id)) -let printActivityDelegate self = msg_send ~self ~cmd:(selector "printActivityDelegate") ~typ:(returning (id)) -let printFormatter self = msg_send ~self ~cmd:(selector "printFormatter") ~typ:(returning (id)) -let printInfo self = msg_send ~self ~cmd:(selector "printInfo") ~typ:(returning (id)) -let printInfoState self = msg_send ~self ~cmd:(selector "printInfoState") ~typ:(returning (int)) -let printPageRenderer self = msg_send ~self ~cmd:(selector "printPageRenderer") ~typ:(returning (id)) -let printPanelViewController self = msg_send ~self ~cmd:(selector "printPanelViewController") ~typ:(returning (id)) -let printPaper self = msg_send ~self ~cmd:(selector "printPaper") ~typ:(returning (id)) -let printSettings self = msg_send ~self ~cmd:(selector "printSettings") ~typ:(returning (id)) -let printStateActive self = msg_send ~self ~cmd:(selector "printStateActive") ~typ:(returning (bool)) -let printToPrinter x ~completionHandler self = msg_send ~self ~cmd:(selector "printToPrinter:completionHandler:") ~typ:(id @-> ptr void @-> returning (bool)) x completionHandler -let printer self = msg_send ~self ~cmd:(selector "printer") ~typ:(returning (id)) -let printingItem self = msg_send ~self ~cmd:(selector "printingItem") ~typ:(returning (id)) -let printingItems self = msg_send ~self ~cmd:(selector "printingItems") ~typ:(returning (id)) -let removeFileAtURL x self = msg_send ~self ~cmd:(selector "removeFileAtURL:") ~typ:(id @-> returning (void)) x -let rendererToUse self = msg_send ~self ~cmd:(selector "rendererToUse") ~typ:(returning (id)) -let saveFileURL self = msg_send ~self ~cmd:(selector "saveFileURL") ~typ:(returning (id)) -let savePDFToURL x ~completionHandler self = msg_send ~self ~cmd:(selector "savePDFToURL:completionHandler:") ~typ:(id @-> ptr void @-> returning (bool)) x completionHandler -let savePDFToURL1 x ~showProgress ~completionHandler self = msg_send ~self ~cmd:(selector "savePDFToURL:showProgress:completionHandler:") ~typ:(id @-> bool @-> ptr void @-> returning (bool)) x showProgress completionHandler -let savePDFToURL2 x ~showProgress ~hostingScene ~completionHandler self = msg_send ~self ~cmd:(selector "savePDFToURL:showProgress:hostingScene:completionHandler:") ~typ:(id @-> bool @-> id @-> ptr void @-> returning (bool)) x showProgress hostingScene completionHandler -let setActivePrintInfo x self = msg_send ~self ~cmd:(selector "setActivePrintInfo:") ~typ:(id @-> returning (void)) x -let setCurrentPage x self = msg_send ~self ~cmd:(selector "setCurrentPage:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setCurrentRange x self = msg_send ~self ~cmd:(selector "setCurrentRange:") ~typ:(NSRange.t @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setFormatterRenderer x self = msg_send ~self ~cmd:(selector "setFormatterRenderer:") ~typ:(id @-> returning (void)) x -let setHostingWindowScene x self = msg_send ~self ~cmd:(selector "setHostingWindowScene:") ~typ:(id @-> returning (void)) x -let setIsContentManaged x self = msg_send ~self ~cmd:(selector "setIsContentManaged:") ~typ:(bool @-> returning (void)) x -let setManualPrintPageEnabled x self = msg_send ~self ~cmd:(selector "setManualPrintPageEnabled:") ~typ:(bool @-> returning (void)) x -let setPageCount x self = msg_send ~self ~cmd:(selector "setPageCount:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPageCountWithRanges x self = msg_send ~self ~cmd:(selector "setPageCountWithRanges:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPageRanges x self = msg_send ~self ~cmd:(selector "setPageRanges:") ~typ:(id @-> returning (void)) x -let setPagesDrawn x self = msg_send ~self ~cmd:(selector "setPagesDrawn:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPaper x self = msg_send ~self ~cmd:(selector "setPaper:") ~typ:(id @-> returning (void)) x -let setPdfPassword x self = msg_send ~self ~cmd:(selector "setPdfPassword:") ~typ:(id @-> returning (void)) x -let setPreviewStates x self = msg_send ~self ~cmd:(selector "setPreviewStates:") ~typ:(id @-> returning (void)) x -let setPrintActivityDelegate x self = msg_send ~self ~cmd:(selector "setPrintActivityDelegate:") ~typ:(id @-> returning (void)) x -let setPrintFormatter x self = msg_send ~self ~cmd:(selector "setPrintFormatter:") ~typ:(id @-> returning (void)) x -let setPrintInfo x self = msg_send ~self ~cmd:(selector "setPrintInfo:") ~typ:(id @-> returning (void)) x -let setPrintInfoState x self = msg_send ~self ~cmd:(selector "setPrintInfoState:") ~typ:(int @-> returning (void)) x -let setPrintPageRenderer x self = msg_send ~self ~cmd:(selector "setPrintPageRenderer:") ~typ:(id @-> returning (void)) x -let setPrintPanelViewController x self = msg_send ~self ~cmd:(selector "setPrintPanelViewController:") ~typ:(id @-> returning (void)) x -let setPrintSettings x self = msg_send ~self ~cmd:(selector "setPrintSettings:") ~typ:(id @-> returning (void)) x -let setPrintStateActive x self = msg_send ~self ~cmd:(selector "setPrintStateActive:") ~typ:(bool @-> returning (void)) x -let setPrinter x self = msg_send ~self ~cmd:(selector "setPrinter:") ~typ:(id @-> returning (void)) x -let setPrintingItem x self = msg_send ~self ~cmd:(selector "setPrintingItem:") ~typ:(id @-> returning (void)) x -let setPrintingItems x self = msg_send ~self ~cmd:(selector "setPrintingItems:") ~typ:(id @-> returning (void)) x -let setSaveFileURL x self = msg_send ~self ~cmd:(selector "setSaveFileURL:") ~typ:(id @-> returning (void)) x -let setShowPrintingProgress x self = msg_send ~self ~cmd:(selector "setShowPrintingProgress:") ~typ:(bool @-> returning (void)) x -let setShowsNumberOfCopies x self = msg_send ~self ~cmd:(selector "setShowsNumberOfCopies:") ~typ:(bool @-> returning (void)) x -let setShowsPageRange x self = msg_send ~self ~cmd:(selector "setShowsPageRange:") ~typ:(bool @-> returning (void)) x -let setShowsPaperOrientation x self = msg_send ~self ~cmd:(selector "setShowsPaperOrientation:") ~typ:(bool @-> returning (void)) x -let setShowsPaperSelectionForLoadedPapers x self = msg_send ~self ~cmd:(selector "setShowsPaperSelectionForLoadedPapers:") ~typ:(bool @-> returning (void)) x -let setSupressNotifyDismissed x self = msg_send ~self ~cmd:(selector "setSupressNotifyDismissed:") ~typ:(bool @-> returning (void)) x -let setTempPreviewFileURL x self = msg_send ~self ~cmd:(selector "setTempPreviewFileURL:") ~typ:(id @-> returning (void)) x -let showPrintingProgress self = msg_send ~self ~cmd:(selector "showPrintingProgress") ~typ:(returning (bool)) -let showsNumberOfCopies self = msg_send ~self ~cmd:(selector "showsNumberOfCopies") ~typ:(returning (bool)) -let showsPageRange self = msg_send ~self ~cmd:(selector "showsPageRange") ~typ:(returning (bool)) -let showsPaperOrientation self = msg_send ~self ~cmd:(selector "showsPaperOrientation") ~typ:(returning (bool)) -let showsPaperSelectionForLoadedPapers self = msg_send ~self ~cmd:(selector "showsPaperSelectionForLoadedPapers") ~typ:(returning (bool)) -let supressNotifyDismissed self = msg_send ~self ~cmd:(selector "supressNotifyDismissed") ~typ:(returning (bool)) -let tempPreviewFileURL self = msg_send ~self ~cmd:(selector "tempPreviewFileURL") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UIPrintPageRenderer.ml b/uikit_extra/UIPrintPageRenderer.ml deleted file mode 100644 index 0df50389..00000000 --- a/uikit_extra/UIPrintPageRenderer.ml +++ /dev/null @@ -1,35 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPrintPageRenderer" - -let addPrintFormatter x ~startingAtPageAtIndex self = msg_send ~self ~cmd:(selector "addPrintFormatter:startingAtPageAtIndex:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int startingAtPageAtIndex) -let currentRenderingQuality self = msg_send ~self ~cmd:(selector "currentRenderingQuality") ~typ:(returning (llong)) -let currentRenderingQualityForRequestedRenderingQuality x self = msg_send ~self ~cmd:(selector "currentRenderingQualityForRequestedRenderingQuality:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let drawContentForPageAtIndex x ~inRect self = msg_send ~self ~cmd:(selector "drawContentForPageAtIndex:inRect:") ~typ:(llong @-> CGRect.t @-> returning (void)) (LLong.of_int x) inRect -let drawFooterForPageAtIndex x ~inRect self = msg_send ~self ~cmd:(selector "drawFooterForPageAtIndex:inRect:") ~typ:(llong @-> CGRect.t @-> returning (void)) (LLong.of_int x) inRect -let drawHeaderForPageAtIndex x ~inRect self = msg_send ~self ~cmd:(selector "drawHeaderForPageAtIndex:inRect:") ~typ:(llong @-> CGRect.t @-> returning (void)) (LLong.of_int x) inRect -let drawPageAtIndex x ~inRect self = msg_send ~self ~cmd:(selector "drawPageAtIndex:inRect:") ~typ:(llong @-> CGRect.t @-> returning (void)) (LLong.of_int x) inRect -let drawPrintFormatter x ~forPageAtIndex self = msg_send ~self ~cmd:(selector "drawPrintFormatter:forPageAtIndex:") ~typ:(id @-> llong @-> returning (void)) x (LLong.of_int forPageAtIndex) -let footerHeight self = msg_send ~self ~cmd:(selector "footerHeight") ~typ:(returning (double)) -let headerHeight self = msg_send ~self ~cmd:(selector "headerHeight") ~typ:(returning (double)) -let numberOfPages self = msg_send ~self ~cmd:(selector "numberOfPages") ~typ:(returning (llong)) -let paperRect self = msg_send_stret ~self ~cmd:(selector "paperRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let prepareForDrawingPages x self = msg_send ~self ~cmd:(selector "prepareForDrawingPages:") ~typ:(NSRange.t @-> returning (void)) x -let printFormatters self = msg_send ~self ~cmd:(selector "printFormatters") ~typ:(returning (id)) -let printFormattersForPageAtIndex x self = msg_send ~self ~cmd:(selector "printFormattersForPageAtIndex:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let printableRect self = msg_send_stret ~self ~cmd:(selector "printableRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let requestedRenderingQuality self = msg_send ~self ~cmd:(selector "requestedRenderingQuality") ~typ:(returning (llong)) -let setCurrentRenderingQuality x self = msg_send ~self ~cmd:(selector "setCurrentRenderingQuality:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setFooterHeight x self = msg_send ~self ~cmd:(selector "setFooterHeight:") ~typ:(double @-> returning (void)) x -let setHeaderHeight x self = msg_send ~self ~cmd:(selector "setHeaderHeight:") ~typ:(double @-> returning (void)) x -let setPaperRect x self = msg_send ~self ~cmd:(selector "setPaperRect:") ~typ:(CGRect.t @-> returning (void)) x -let setPrintFormatters x self = msg_send ~self ~cmd:(selector "setPrintFormatters:") ~typ:(id @-> returning (void)) x -let setPrintableRect x self = msg_send ~self ~cmd:(selector "setPrintableRect:") ~typ:(CGRect.t @-> returning (void)) x -let setRequestedRenderingQuality x self = msg_send ~self ~cmd:(selector "setRequestedRenderingQuality:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIPrintPanelViewController.ml b/uikit_extra/UIPrintPanelViewController.ml deleted file mode 100644 index fcae0bf7..00000000 --- a/uikit_extra/UIPrintPanelViewController.ml +++ /dev/null @@ -1,34 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPrintPanelViewController" - -let appPrintExtensionController self = msg_send ~self ~cmd:(selector "appPrintExtensionController") ~typ:(returning (id)) -let cancelPrinting self = msg_send ~self ~cmd:(selector "cancelPrinting") ~typ:(returning (void)) -let dismissAnimated x self = msg_send ~self ~cmd:(selector "dismissAnimated:") ~typ:(bool @-> returning (void)) x -let filtersPrinters self = msg_send ~self ~cmd:(selector "filtersPrinters") ~typ:(returning (bool)) -let initWithPrintInterationController x ~inParentController self = msg_send ~self ~cmd:(selector "initWithPrintInterationController:inParentController:") ~typ:(id @-> id @-> returning (id)) x inParentController -let presentPrintPanelAnimated x ~hostingScene self = msg_send ~self ~cmd:(selector "presentPrintPanelAnimated:hostingScene:") ~typ:(bool @-> id @-> returning (void)) x hostingScene -let presentPrintPanelFromBarButtonItem x ~animated self = msg_send ~self ~cmd:(selector "presentPrintPanelFromBarButtonItem:animated:") ~typ:(id @-> bool @-> returning (void)) x animated -let presentPrintPanelFromRect x ~inView ~animated self = msg_send ~self ~cmd:(selector "presentPrintPanelFromRect:inView:animated:") ~typ:(CGRect.t @-> id @-> bool @-> returning (void)) x inView animated -let printInfo self = msg_send ~self ~cmd:(selector "printInfo") ~typ:(returning (id)) -let printInteractionController self = msg_send ~self ~cmd:(selector "printInteractionController") ~typ:(returning (id)) -let printOptionsNavController self = msg_send ~self ~cmd:(selector "printOptionsNavController") ~typ:(returning (id)) -let printOptionsTableView self = msg_send ~self ~cmd:(selector "printOptionsTableView") ~typ:(returning (id)) -let printPaper self = msg_send ~self ~cmd:(selector "printPaper") ~typ:(returning (id)) -let printer self = msg_send ~self ~cmd:(selector "printer") ~typ:(returning (id)) -let setAppPrintExtensionController x self = msg_send ~self ~cmd:(selector "setAppPrintExtensionController:") ~typ:(id @-> returning (void)) x -let setPrintInfo x self = msg_send ~self ~cmd:(selector "setPrintInfo:") ~typ:(id @-> returning (void)) x -let setPrintInteractionController x self = msg_send ~self ~cmd:(selector "setPrintInteractionController:") ~typ:(id @-> returning (void)) x -let setPrintOptionsNavController x self = msg_send ~self ~cmd:(selector "setPrintOptionsNavController:") ~typ:(id @-> returning (void)) x -let setPrintOptionsTableView x self = msg_send ~self ~cmd:(selector "setPrintOptionsTableView:") ~typ:(id @-> returning (void)) x -let setPrintPaper x self = msg_send ~self ~cmd:(selector "setPrintPaper:") ~typ:(id @-> returning (void)) x -let setPrinter x self = msg_send ~self ~cmd:(selector "setPrinter:") ~typ:(id @-> returning (void)) x -let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let startPrinting self = msg_send ~self ~cmd:(selector "startPrinting") ~typ:(returning (void)) -let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning (ullong)) \ No newline at end of file diff --git a/uikit_extra/UIPrintPaper.ml b/uikit_extra/UIPrintPaper.ml deleted file mode 100644 index fa490a34..00000000 --- a/uikit_extra/UIPrintPaper.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPrintPaper" - -module C = struct - let bestPaperForPageSize x ~withPapersFromArray self = msg_send ~self ~cmd:(selector "bestPaperForPageSize:withPapersFromArray:") ~typ:(CGSize.t @-> id @-> returning (id)) x withPapersFromArray - let bestPaperForPageSize' x ~andContentType ~withPapersFromArray self = msg_send ~self ~cmd:(selector "bestPaperForPageSize:andContentType:withPapersFromArray:") ~typ:(CGSize.t @-> llong @-> id @-> returning (id)) x (LLong.of_int andContentType) withPapersFromArray -end - -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let paperSize self = msg_send_stret ~self ~cmd:(selector "paperSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let printRect self = msg_send_stret ~self ~cmd:(selector "printRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let printableRect self = msg_send_stret ~self ~cmd:(selector "printableRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t \ No newline at end of file diff --git a/uikit_extra/UIPrintPreviewState.ml b/uikit_extra/UIPrintPreviewState.ml deleted file mode 100644 index c93d8d2c..00000000 --- a/uikit_extra/UIPrintPreviewState.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPrintPreviewState" - -let cancelled self = msg_send ~self ~cmd:(selector "cancelled") ~typ:(returning (bool)) -let setCancelled x self = msg_send ~self ~cmd:(selector "setCancelled:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UIPrintServiceExtension.ml b/uikit_extra/UIPrintServiceExtension.ml deleted file mode 100644 index 68505388..00000000 --- a/uikit_extra/UIPrintServiceExtension.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPrintServiceExtension" - -let beginRequestWithExtensionContext x self = msg_send ~self ~cmd:(selector "beginRequestWithExtensionContext:") ~typ:(id @-> returning (void)) x -let extensionContext self = msg_send ~self ~cmd:(selector "extensionContext") ~typ:(returning (id)) -let printerDestinationsForPrintInfo x self = msg_send ~self ~cmd:(selector "printerDestinationsForPrintInfo:") ~typ:(id @-> returning (id)) x -let setExtensionContext x self = msg_send ~self ~cmd:(selector "setExtensionContext:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UIPrintServiceExtensionContext.ml b/uikit_extra/UIPrintServiceExtensionContext.ml deleted file mode 100644 index 05ae2ed1..00000000 --- a/uikit_extra/UIPrintServiceExtensionContext.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPrintServiceExtensionContext" - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UIPrinter.ml b/uikit_extra/UIPrinter.ml deleted file mode 100644 index 5b079b6a..00000000 --- a/uikit_extra/UIPrinter.ml +++ /dev/null @@ -1,34 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPrinter" - -module C = struct - let printerWithURL x self = msg_send ~self ~cmd:(selector "printerWithURL:") ~typ:(id @-> returning (id)) x -end - -let _URL self = msg_send ~self ~cmd:(selector "URL") ~typ:(returning (id)) -let contactPrinter x self = msg_send ~self ~cmd:(selector "contactPrinter:") ~typ:(ptr void @-> returning (void)) x -let displayLocation self = msg_send ~self ~cmd:(selector "displayLocation") ~typ:(returning (id)) -let displayName self = msg_send ~self ~cmd:(selector "displayName") ~typ:(returning (id)) -let finishingTemplates self = msg_send ~self ~cmd:(selector "finishingTemplates") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let jobAccountIDSupport self = msg_send ~self ~cmd:(selector "jobAccountIDSupport") ~typ:(returning (llong)) -let loadedPapers self = msg_send ~self ~cmd:(selector "loadedPapers") ~typ:(returning (id)) -let makeAndModel self = msg_send ~self ~cmd:(selector "makeAndModel") ~typ:(returning (id)) -let outputBins self = msg_send ~self ~cmd:(selector "outputBins") ~typ:(returning (id)) -let printerFinishingOptions self = msg_send ~self ~cmd:(selector "printerFinishingOptions") ~typ:(returning (id)) -let supportedJobTypes self = msg_send ~self ~cmd:(selector "supportedJobTypes") ~typ:(returning (llong)) -let supportedMediaTypes self = msg_send ~self ~cmd:(selector "supportedMediaTypes") ~typ:(returning (id)) -let supportedPapers self = msg_send ~self ~cmd:(selector "supportedPapers") ~typ:(returning (id)) -let supportedPresets self = msg_send ~self ~cmd:(selector "supportedPresets") ~typ:(returning (id)) -let supportedQualities self = msg_send ~self ~cmd:(selector "supportedQualities") ~typ:(returning (id)) -let supportedTrays self = msg_send ~self ~cmd:(selector "supportedTrays") ~typ:(returning (id)) -let supportsColor self = msg_send ~self ~cmd:(selector "supportsColor") ~typ:(returning (bool)) -let supportsDuplex self = msg_send ~self ~cmd:(selector "supportsDuplex") ~typ:(returning (bool)) -let supportsJobAccountID self = msg_send ~self ~cmd:(selector "supportsJobAccountID") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UIPrinterDestination.ml b/uikit_extra/UIPrinterDestination.ml deleted file mode 100644 index 9de45dfb..00000000 --- a/uikit_extra/UIPrinterDestination.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPrinterDestination" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let _URL self = msg_send ~self ~cmd:(selector "URL") ~typ:(returning (id)) -let dictionaryRepresentation self = msg_send ~self ~cmd:(selector "dictionaryRepresentation") ~typ:(returning (id)) -let displayName self = msg_send ~self ~cmd:(selector "displayName") ~typ:(returning (id)) -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 initWithURL x self = msg_send ~self ~cmd:(selector "initWithURL:") ~typ:(id @-> returning (id)) x -let setDisplayName x self = msg_send ~self ~cmd:(selector "setDisplayName:") ~typ:(id @-> returning (void)) x -let setTxtRecord x self = msg_send ~self ~cmd:(selector "setTxtRecord:") ~typ:(id @-> returning (void)) x -let setURL x self = msg_send ~self ~cmd:(selector "setURL:") ~typ:(id @-> returning (void)) x -let txtRecord self = msg_send ~self ~cmd:(selector "txtRecord") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UIPrinterPickerController.ml b/uikit_extra/UIPrinterPickerController.ml deleted file mode 100644 index 8fe47cb6..00000000 --- a/uikit_extra/UIPrinterPickerController.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPrinterPickerController" - -module C = struct - let printerPickerControllerWithInitiallySelectedPrinter x self = msg_send ~self ~cmd:(selector "printerPickerControllerWithInitiallySelectedPrinter:") ~typ:(id @-> returning (id)) x -end - -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let dismissAnimated x self = msg_send ~self ~cmd:(selector "dismissAnimated:") ~typ:(bool @-> returning (void)) x -let initWithInitiallySelectedPrinter x self = msg_send ~self ~cmd:(selector "initWithInitiallySelectedPrinter:") ~typ:(id @-> returning (id)) x -let presentAnimated x ~completionHandler self = msg_send ~self ~cmd:(selector "presentAnimated:completionHandler:") ~typ:(bool @-> ptr void @-> returning (bool)) x completionHandler -let presentAnimated' x ~hostingScene ~completionHandler self = msg_send ~self ~cmd:(selector "presentAnimated:hostingScene:completionHandler:") ~typ:(bool @-> id @-> ptr void @-> returning (bool)) x hostingScene completionHandler -let presentFromBarButtonItem x ~animated ~completionHandler self = msg_send ~self ~cmd:(selector "presentFromBarButtonItem:animated:completionHandler:") ~typ:(id @-> bool @-> ptr void @-> returning (bool)) x animated completionHandler -let presentFromRect x ~inView ~animated ~completionHandler self = msg_send ~self ~cmd:(selector "presentFromRect:inView:animated:completionHandler:") ~typ:(CGRect.t @-> id @-> bool @-> ptr void @-> returning (bool)) x inView animated completionHandler -let selectedPrinter self = msg_send ~self ~cmd:(selector "selectedPrinter") ~typ:(returning (id)) -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setSelectedPrinter x self = msg_send ~self ~cmd:(selector "setSelectedPrinter:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UIPrinterSetupConnectingView.ml b/uikit_extra/UIPrinterSetupConnectingView.ml deleted file mode 100644 index 860eb83b..00000000 --- a/uikit_extra/UIPrinterSetupConnectingView.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPrinterSetupConnectingView" - -let activityIndicator self = msg_send ~self ~cmd:(selector "activityIndicator") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let presentView self = msg_send ~self ~cmd:(selector "presentView") ~typ:(returning (void)) -let presentationTime self = msg_send ~self ~cmd:(selector "presentationTime") ~typ:(returning (double)) -let setActivityIndicator x self = msg_send ~self ~cmd:(selector "setActivityIndicator:") ~typ:(id @-> returning (void)) x -let setLabel x self = msg_send ~self ~cmd:(selector "setLabel:") ~typ:(id @-> returning (void)) x -let setMessage x ~active self = msg_send ~self ~cmd:(selector "setMessage:active:") ~typ:(id @-> bool @-> returning (void)) x active -let setPresentationTime x self = msg_send ~self ~cmd:(selector "setPresentationTime:") ~typ:(double @-> returning (void)) x -let willMoveToSuperview x self = msg_send ~self ~cmd:(selector "willMoveToSuperview:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UIPrintingMessageView.ml b/uikit_extra/UIPrintingMessageView.ml deleted file mode 100644 index 8af437ab..00000000 --- a/uikit_extra/UIPrintingMessageView.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIPrintingMessageView" - -let initInView x ~title self = msg_send ~self ~cmd:(selector "initInView:title:") ~typ:(id @-> id @-> returning (id)) x title -let setMessage x self = msg_send ~self ~cmd:(selector "setMessage:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UIProviderMacHelper.ml b/uikit_extra/UIProviderMacHelper.ml deleted file mode 100644 index c8be3f78..00000000 --- a/uikit_extra/UIProviderMacHelper.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIProviderMacHelper" - -let hostWindow self = msg_send ~self ~cmd:(selector "hostWindow") ~typ:(returning (id)) -let prepareHostWindow x self = msg_send ~self ~cmd:(selector "prepareHostWindow:") ~typ:(id @-> returning (void)) x -let setHostWindow x self = msg_send ~self ~cmd:(selector "setHostWindow:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UIQuickLookInternalSceneSpecification.ml b/uikit_extra/UIQuickLookInternalSceneSpecification.ml new file mode 100644 index 00000000..6c5cff69 --- /dev/null +++ b/uikit_extra/UIQuickLookInternalSceneSpecification.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiquicklookinternalscenespecification?language=objc}UIQuickLookInternalSceneSpecification} *) + +let self = get_class "UIQuickLookInternalSceneSpecification" + +let affectsAppLifecycleIfInternal self = msg_send ~self ~cmd:(selector "affectsAppLifecycleIfInternal") ~typ:(returning bool) +let initialActionHandlers self = msg_send ~self ~cmd:(selector "initialActionHandlers") ~typ:(returning id) +let isInternal self = msg_send ~self ~cmd:(selector "isInternal") ~typ:(returning bool) +let uiSceneSessionRole self = msg_send ~self ~cmd:(selector "uiSceneSessionRole") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIQuickLookSceneConfigurationAction.ml b/uikit_extra/UIQuickLookSceneConfigurationAction.ml new file mode 100644 index 00000000..44ba0d87 --- /dev/null +++ b/uikit_extra/UIQuickLookSceneConfigurationAction.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiquicklooksceneconfigurationaction?language=objc}UIQuickLookSceneConfigurationAction} *) + +let self = get_class "UIQuickLookSceneConfigurationAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let loadSceneConfiguration self = msg_send ~self ~cmd:(selector "loadSceneConfiguration") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIQuickLookSceneConfigurationActionClass.ml b/uikit_extra/UIQuickLookSceneConfigurationActionClass.ml new file mode 100644 index 00000000..5113eada --- /dev/null +++ b/uikit_extra/UIQuickLookSceneConfigurationActionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiquicklooksceneconfigurationaction?language=objc}UIQuickLookSceneConfigurationAction} *) + +let actionWithSceneConfiguration x self = msg_send ~self ~cmd:(selector "actionWithSceneConfiguration:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UISActivityContinuationAction.ml b/uikit_extra/UISActivityContinuationAction.ml deleted file mode 100644 index 87b734f2..00000000 --- a/uikit_extra/UISActivityContinuationAction.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISActivityContinuationAction" - -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let activityType self = msg_send ~self ~cmd:(selector "activityType") ~typ:(returning (id)) -let activityTypeIdentifier self = msg_send ~self ~cmd:(selector "activityTypeIdentifier") ~typ:(returning (id)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let initWithSettings x self = msg_send ~self ~cmd:(selector "initWithSettings:") ~typ:(id @-> returning (id)) x -let isKindOfClass x self = msg_send ~self ~cmd:(selector "isKindOfClass:") ~typ:(_Class @-> returning (bool)) x -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let lastUpdateTime self = msg_send ~self ~cmd:(selector "lastUpdateTime") ~typ:(returning (id)) -let originatingDeviceName self = msg_send ~self ~cmd:(selector "originatingDeviceName") ~typ:(returning (id)) -let originatingDeviceType self = msg_send ~self ~cmd:(selector "originatingDeviceType") ~typ:(returning (id)) -let userActivityData self = msg_send ~self ~cmd:(selector "userActivityData") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UISApplicationInitializationContext.ml b/uikit_extra/UISApplicationInitializationContext.ml deleted file mode 100644 index 7cf1b6ea..00000000 --- a/uikit_extra/UISApplicationInitializationContext.ml +++ /dev/null @@ -1,33 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISApplicationInitializationContext" - -module C = struct - let defaultContext self = msg_send ~self ~cmd:(selector "defaultContext") ~typ:(returning (id)) - let supportsBSXPCSecureCoding self = msg_send ~self ~cmd:(selector "supportsBSXPCSecureCoding") ~typ:(returning (bool)) -end - -let compatibilityContext self = msg_send ~self ~cmd:(selector "compatibilityContext") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let defaultSceneToken self = msg_send ~self ~cmd:(selector "defaultSceneToken") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let deviceContext self = msg_send ~self ~cmd:(selector "deviceContext") ~typ:(returning (id)) -let displayContext self = msg_send ~self ~cmd:(selector "displayContext") ~typ:(returning (id)) -let encodeWithBSXPCCoder x self = msg_send ~self ~cmd:(selector "encodeWithBSXPCCoder:") ~typ:(id @-> returning (void)) x -let encodeWithXPCDictionary x self = msg_send ~self ~cmd:(selector "encodeWithXPCDictionary:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithBSXPCCoder x self = msg_send ~self ~cmd:(selector "initWithBSXPCCoder:") ~typ:(id @-> returning (id)) x -let initWithDisplayContext x ~deviceContext ~persistedSceneIdentifiers self = msg_send ~self ~cmd:(selector "initWithDisplayContext:deviceContext:persistedSceneIdentifiers:") ~typ:(id @-> id @-> id @-> returning (id)) x deviceContext persistedSceneIdentifiers -let initWithDisplayContext' x ~deviceContext ~persistedSceneIdentifiers ~supportAppSceneRequests self = msg_send ~self ~cmd:(selector "initWithDisplayContext:deviceContext:persistedSceneIdentifiers:supportAppSceneRequests:") ~typ:(id @-> id @-> id @-> bool @-> returning (id)) x deviceContext persistedSceneIdentifiers supportAppSceneRequests -let initWithUISApplicationInitializationContext x self = msg_send ~self ~cmd:(selector "initWithUISApplicationInitializationContext:") ~typ:(id @-> returning (id)) x -let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:(id @-> returning (id)) x -let persistedSceneIdentifiers self = msg_send ~self ~cmd:(selector "persistedSceneIdentifiers") ~typ:(returning (id)) -let supportAppSceneRequests self = msg_send ~self ~cmd:(selector "supportAppSceneRequests") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UISApplicationInitializationContextParameters.ml b/uikit_extra/UISApplicationInitializationContextParameters.ml deleted file mode 100644 index 6c980e62..00000000 --- a/uikit_extra/UISApplicationInitializationContextParameters.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISApplicationInitializationContextParameters" - -let deviceFamilies self = msg_send ~self ~cmd:(selector "deviceFamilies") ~typ:(returning (id)) -let encodeWithXPCDictionary x self = msg_send ~self ~cmd:(selector "encodeWithXPCDictionary:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning (id)) x -let initialCGDirectDisplayID self = msg_send ~self ~cmd:(selector "initialCGDirectDisplayID") ~typ:(returning (uint)) -let preferSmallerDisplaySize self = msg_send ~self ~cmd:(selector "preferSmallerDisplaySize") ~typ:(returning (bool)) -let requiresFullScreen self = msg_send ~self ~cmd:(selector "requiresFullScreen") ~typ:(returning (bool)) -let setDeviceFamilies x self = msg_send ~self ~cmd:(selector "setDeviceFamilies:") ~typ:(id @-> returning (void)) x -let setInitialCGDirectDisplayID x self = msg_send ~self ~cmd:(selector "setInitialCGDirectDisplayID:") ~typ:(uint @-> returning (void)) x -let setPreferSmallerDisplaySize x self = msg_send ~self ~cmd:(selector "setPreferSmallerDisplaySize:") ~typ:(bool @-> returning (void)) x -let setRequiresFullScreen x self = msg_send ~self ~cmd:(selector "setRequiresFullScreen:") ~typ:(bool @-> returning (void)) x -let setSupportedInterfaceOrientations x self = msg_send ~self ~cmd:(selector "setSupportedInterfaceOrientations:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setSupportsMultiwindow x self = msg_send ~self ~cmd:(selector "setSupportsMultiwindow:") ~typ:(bool @-> returning (void)) x -let setUsableDisplaySizeHint x self = msg_send ~self ~cmd:(selector "setUsableDisplaySizeHint:") ~typ:(CGSize.t @-> returning (void)) x -let setUseTrueDisplaySize x self = msg_send ~self ~cmd:(selector "setUseTrueDisplaySize:") ~typ:(bool @-> returning (void)) x -let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning (ullong)) -let supportsMultiwindow self = msg_send ~self ~cmd:(selector "supportsMultiwindow") ~typ:(returning (bool)) -let usableDisplaySizeHint self = msg_send_stret ~self ~cmd:(selector "usableDisplaySizeHint") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let useTrueDisplaySize self = msg_send ~self ~cmd:(selector "useTrueDisplaySize") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UISApplicationState.ml b/uikit_extra/UISApplicationState.ml deleted file mode 100644 index edae5fab..00000000 --- a/uikit_extra/UISApplicationState.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISApplicationState" - -let badgeValue self = msg_send ~self ~cmd:(selector "badgeValue") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initForCurrentApplication self = msg_send ~self ~cmd:(selector "initForCurrentApplication") ~typ:(returning (id)) -let initWithBundleIdentifier x self = msg_send ~self ~cmd:(selector "initWithBundleIdentifier:") ~typ:(id @-> returning (id)) x -let setBadgeValue x self = msg_send ~self ~cmd:(selector "setBadgeValue:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UISApplicationStateClient.ml b/uikit_extra/UISApplicationStateClient.ml deleted file mode 100644 index 49872d48..00000000 --- a/uikit_extra/UISApplicationStateClient.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISApplicationStateClient" - -let badgeValue self = msg_send ~self ~cmd:(selector "badgeValue") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithBundleIdentifier x self = msg_send ~self ~cmd:(selector "initWithBundleIdentifier:") ~typ:(id @-> returning (id)) x -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let nextWakeIntervalSinceReferenceDate self = msg_send ~self ~cmd:(selector "nextWakeIntervalSinceReferenceDate") ~typ:(returning (double)) -let setBadgeValue x self = msg_send ~self ~cmd:(selector "setBadgeValue:") ~typ:(id @-> returning (void)) x -let setMinimumBackgroundFetchInterval x self = msg_send ~self ~cmd:(selector "setMinimumBackgroundFetchInterval:") ~typ:(double @-> returning (void)) x -let setNextWakeIntervalSinceReferenceDate x self = msg_send ~self ~cmd:(selector "setNextWakeIntervalSinceReferenceDate:") ~typ:(double @-> returning (void)) x -let setUsesBackgroundNetwork x self = msg_send ~self ~cmd:(selector "setUsesBackgroundNetwork:") ~typ:(bool @-> returning (void)) x -let usesBackgroundNetwork self = msg_send ~self ~cmd:(selector "usesBackgroundNetwork") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UISApplicationStateService.ml b/uikit_extra/UISApplicationStateService.ml deleted file mode 100644 index c47708d6..00000000 --- a/uikit_extra/UISApplicationStateService.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISApplicationStateService" - -let badgeValueWithCompletion x self = msg_send ~self ~cmd:(selector "badgeValueWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCalloutQueue x self = msg_send ~self ~cmd:(selector "initWithCalloutQueue:") ~typ:(id @-> returning (id)) x -let listener x ~didReceiveConnection ~withContext self = msg_send ~self ~cmd:(selector "listener:didReceiveConnection:withContext:") ~typ:(id @-> id @-> id @-> returning (void)) x didReceiveConnection withContext -let nextWakeIntervalSinceReferenceDateWithCompletion x self = msg_send ~self ~cmd:(selector "nextWakeIntervalSinceReferenceDateWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let setBadgeNumber x self = msg_send ~self ~cmd:(selector "setBadgeNumber:") ~typ:(id @-> returning (void)) x -let setBadgeString x self = msg_send ~self ~cmd:(selector "setBadgeString:") ~typ:(id @-> returning (void)) x -let setBadgeValue x self = msg_send ~self ~cmd:(selector "setBadgeValue:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setMinimumBackgroundFetchInterval x self = msg_send ~self ~cmd:(selector "setMinimumBackgroundFetchInterval:") ~typ:(id @-> returning (void)) x -let setNextWakeIntervalSinceReferenceDate x self = msg_send ~self ~cmd:(selector "setNextWakeIntervalSinceReferenceDate:") ~typ:(id @-> returning (void)) x -let setUsesBackgroundNetwork x self = msg_send ~self ~cmd:(selector "setUsesBackgroundNetwork:") ~typ:(id @-> returning (void)) x -let usesBackgroundNetworkWithCompletion x self = msg_send ~self ~cmd:(selector "usesBackgroundNetworkWithCompletion:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UISApplicationSupportClient.ml b/uikit_extra/UISApplicationSupportClient.ml deleted file mode 100644 index fbeb5b7d..00000000 --- a/uikit_extra/UISApplicationSupportClient.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISApplicationSupportClient" - -let applicationInitializationContextWithParameters x self = msg_send ~self ~cmd:(selector "applicationInitializationContextWithParameters:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let destroyScenesWithPersistentIdentifiers x ~animationType ~destroySessions ~completion self = msg_send ~self ~cmd:(selector "destroyScenesWithPersistentIdentifiers:animationType:destroySessions:completion:") ~typ:(id @-> ullong @-> bool @-> ptr void @-> returning (void)) x (ULLong.of_int animationType) destroySessions completion -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning (void)) -let requestPasscodeUnlockUIWithCompletion x self = msg_send ~self ~cmd:(selector "requestPasscodeUnlockUIWithCompletion:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UISApplicationSupportDisplayEdgeInfo.ml b/uikit_extra/UISApplicationSupportDisplayEdgeInfo.ml deleted file mode 100644 index c3acdd48..00000000 --- a/uikit_extra/UISApplicationSupportDisplayEdgeInfo.ml +++ /dev/null @@ -1,33 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISApplicationSupportDisplayEdgeInfo" - -module C = struct - let defaultDisplayEdgeInfo self = msg_send ~self ~cmd:(selector "defaultDisplayEdgeInfo") ~typ:(returning (id)) - let defaultDisplayEdgeInfoForceInsets x self = msg_send ~self ~cmd:(selector "defaultDisplayEdgeInfoForceInsets:") ~typ:(bool @-> returning (id)) x -end - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithXPCDictionary x self = msg_send ~self ~cmd:(selector "encodeWithXPCDictionary:") ~typ:(id @-> returning (void)) x -let homeAffordanceOverlayAllowance self = msg_send ~self ~cmd:(selector "homeAffordanceOverlayAllowance") ~typ:(returning (id)) -let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning (id)) x -let peripheryInsets self = msg_send ~self ~cmd:(selector "peripheryInsets") ~typ:(returning (id)) -let safeAreaInsetsLandscapeLeft self = msg_send ~self ~cmd:(selector "safeAreaInsetsLandscapeLeft") ~typ:(returning (id)) -let safeAreaInsetsLandscapeRight self = msg_send ~self ~cmd:(selector "safeAreaInsetsLandscapeRight") ~typ:(returning (id)) -let safeAreaInsetsPortrait self = msg_send ~self ~cmd:(selector "safeAreaInsetsPortrait") ~typ:(returning (id)) -let safeAreaInsetsPortraitUpsideDown self = msg_send ~self ~cmd:(selector "safeAreaInsetsPortraitUpsideDown") ~typ:(returning (id)) -let setHomeAffordanceOverlayAllowance x self = msg_send ~self ~cmd:(selector "setHomeAffordanceOverlayAllowance:") ~typ:(id @-> returning (void)) x -let setPeripheryInsets x self = msg_send ~self ~cmd:(selector "setPeripheryInsets:") ~typ:(id @-> returning (void)) x -let setSafeAreaInsetsLandscapeLeft x self = msg_send ~self ~cmd:(selector "setSafeAreaInsetsLandscapeLeft:") ~typ:(id @-> returning (void)) x -let setSafeAreaInsetsLandscapeRight x self = msg_send ~self ~cmd:(selector "setSafeAreaInsetsLandscapeRight:") ~typ:(id @-> returning (void)) x -let setSafeAreaInsetsPortrait x self = msg_send ~self ~cmd:(selector "setSafeAreaInsetsPortrait:") ~typ:(id @-> returning (void)) x -let setSafeAreaInsetsPortraitUpsideDown x self = msg_send ~self ~cmd:(selector "setSafeAreaInsetsPortraitUpsideDown:") ~typ:(id @-> returning (void)) x -let setSystemMinimumMargin x self = msg_send ~self ~cmd:(selector "setSystemMinimumMargin:") ~typ:(id @-> returning (void)) x -let systemMinimumMargin self = msg_send ~self ~cmd:(selector "systemMinimumMargin") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UISApplicationSupportDisplayEdgeInsetsWrapper.ml b/uikit_extra/UISApplicationSupportDisplayEdgeInsetsWrapper.ml deleted file mode 100644 index 706103fc..00000000 --- a/uikit_extra/UISApplicationSupportDisplayEdgeInsetsWrapper.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISApplicationSupportDisplayEdgeInsetsWrapper" - -let bottomInset self = msg_send ~self ~cmd:(selector "bottomInset") ~typ:(returning (double)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithXPCDictionary x self = msg_send ~self ~cmd:(selector "encodeWithXPCDictionary:") ~typ:(id @-> returning (void)) x -let initWithTop x ~left ~bottom ~right self = msg_send ~self ~cmd:(selector "initWithTop:left:bottom:right:") ~typ:(double @-> double @-> double @-> double @-> returning (id)) x left bottom right -let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning (id)) x -let leftInset self = msg_send ~self ~cmd:(selector "leftInset") ~typ:(returning (double)) -let rightInset self = msg_send ~self ~cmd:(selector "rightInset") ~typ:(returning (double)) -let setBottomInset x self = msg_send ~self ~cmd:(selector "setBottomInset:") ~typ:(double @-> returning (void)) x -let setLeftInset x self = msg_send ~self ~cmd:(selector "setLeftInset:") ~typ:(double @-> returning (void)) x -let setRightInset x self = msg_send ~self ~cmd:(selector "setRightInset:") ~typ:(double @-> returning (void)) x -let setTopInset x self = msg_send ~self ~cmd:(selector "setTopInset:") ~typ:(double @-> returning (void)) x -let topInset self = msg_send ~self ~cmd:(selector "topInset") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit_extra/UISApplicationSupportService.ml b/uikit_extra/UISApplicationSupportService.ml deleted file mode 100644 index 77daf1d1..00000000 --- a/uikit_extra/UISApplicationSupportService.ml +++ /dev/null @@ -1,27 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISApplicationSupportService" - -module C = struct - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning (id)) -end - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultContext self = msg_send ~self ~cmd:(selector "defaultContext") ~typ:(returning (id)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let destroyScenesPersistentIdentifiers x ~animationType ~destroySessions ~completion self = msg_send ~self ~cmd:(selector "destroyScenesPersistentIdentifiers:animationType:destroySessions:completion:") ~typ:(id @-> id @-> id @-> ptr void @-> returning (void)) x animationType destroySessions completion -let hasFinishedLaunching self = msg_send ~self ~cmd:(selector "hasFinishedLaunching") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCalloutQueue x self = msg_send ~self ~cmd:(selector "initWithCalloutQueue:") ~typ:(id @-> returning (id)) x -let initializeClientWithParameters x ~completion self = msg_send ~self ~cmd:(selector "initializeClientWithParameters:completion:") ~typ:(id @-> ptr void @-> returning (void)) x completion -let listener x ~didReceiveConnection ~withContext self = msg_send ~self ~cmd:(selector "listener:didReceiveConnection:withContext:") ~typ:(id @-> id @-> id @-> returning (void)) x didReceiveConnection withContext -let requestPasscodeUnlockUIWithCompletion x self = msg_send ~self ~cmd:(selector "requestPasscodeUnlockUIWithCompletion:") ~typ:(ptr void @-> returning (void)) x -let setDefaultContext x self = msg_send ~self ~cmd:(selector "setDefaultContext:") ~typ:(id @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let start self = msg_send ~self ~cmd:(selector "start") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UISClickAttribution.ml b/uikit_extra/UISClickAttribution.ml deleted file mode 100644 index bab23996..00000000 --- a/uikit_extra/UISClickAttribution.ml +++ /dev/null @@ -1,27 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISClickAttribution" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let clickAttributionWithReportEndpoint x self = msg_send ~self ~cmd:(selector "clickAttributionWithReportEndpoint:") ~typ:(id @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let destinationURL self = msg_send ~self ~cmd:(selector "destinationURL") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let eventMessage self = msg_send ~self ~cmd:(selector "eventMessage") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithSourceIdentifier x ~destinationURL ~reportEndpoint ~sourceDescription ~purchaser ~eventMessage self = msg_send ~self ~cmd:(selector "initWithSourceIdentifier:destinationURL:reportEndpoint:sourceDescription:purchaser:eventMessage:") ~typ:(bool @-> id @-> id @-> id @-> id @-> id @-> returning (id)) x destinationURL reportEndpoint sourceDescription purchaser eventMessage -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let purchaser self = msg_send ~self ~cmd:(selector "purchaser") ~typ:(returning (id)) -let reportEndpoint self = msg_send ~self ~cmd:(selector "reportEndpoint") ~typ:(returning (id)) -let sourceDescription self = msg_send ~self ~cmd:(selector "sourceDescription") ~typ:(returning (id)) -let sourceIdentifier self = msg_send ~self ~cmd:(selector "sourceIdentifier") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UISCompatibilityContext.ml b/uikit_extra/UISCompatibilityContext.ml deleted file mode 100644 index 74f29b78..00000000 --- a/uikit_extra/UISCompatibilityContext.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISCompatibilityContext" - -module C = struct - let supportsBSXPCSecureCoding self = msg_send ~self ~cmd:(selector "supportsBSXPCSecureCoding") ~typ:(returning (bool)) -end - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithBSXPCCoder x self = msg_send ~self ~cmd:(selector "encodeWithBSXPCCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithBSXPCCoder x self = msg_send ~self ~cmd:(selector "initWithBSXPCCoder:") ~typ:(id @-> returning (id)) x -let initWithSupportedDisplaySizes x self = msg_send ~self ~cmd:(selector "initWithSupportedDisplaySizes:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:(id @-> returning (id)) x -let supportedDisplaySizes self = msg_send ~self ~cmd:(selector "supportedDisplaySizes") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UISDActivityItemData.ml b/uikit_extra/UISDActivityItemData.ml deleted file mode 100644 index e7d8dd39..00000000 --- a/uikit_extra/UISDActivityItemData.ml +++ /dev/null @@ -1,37 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISDActivityItemData" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let addAttachmentName x ~forItem self = msg_send ~self ~cmd:(selector "addAttachmentName:forItem:") ~typ:(id @-> id @-> returning (void)) x forItem -let addDataType x ~forItem self = msg_send ~self ~cmd:(selector "addDataType:forItem:") ~typ:(id @-> id @-> returning (void)) x forItem -let addPreviewImage x ~forItem self = msg_send ~self ~cmd:(selector "addPreviewImage:forItem:") ~typ:(id @-> id @-> returning (void)) x forItem -let addPreviewImageData x ~forItem self = msg_send ~self ~cmd:(selector "addPreviewImageData:forItem:") ~typ:(id @-> id @-> returning (void)) x forItem -let addSubject x ~forItem self = msg_send ~self ~cmd:(selector "addSubject:forItem:") ~typ:(id @-> id @-> returning (void)) x forItem -let attachmentNameForItem x self = msg_send ~self ~cmd:(selector "attachmentNameForItem:") ~typ:(id @-> returning (id)) x -let attachmentNamesByItem self = msg_send ~self ~cmd:(selector "attachmentNamesByItem") ~typ:(returning (id)) -let canAccessFileURL x self = msg_send ~self ~cmd:(selector "canAccessFileURL:") ~typ:(id @-> returning (bool)) x -let dataTypeForItem x self = msg_send ~self ~cmd:(selector "dataTypeForItem:") ~typ:(id @-> returning (id)) x -let dataTypesByItem self = msg_send ~self ~cmd:(selector "dataTypesByItem") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let openURLAnnotationsByURL self = msg_send ~self ~cmd:(selector "openURLAnnotationsByURL") ~typ:(returning (id)) -let previewImageDataByItem self = msg_send ~self ~cmd:(selector "previewImageDataByItem") ~typ:(returning (id)) -let previewImageDataForItem x self = msg_send ~self ~cmd:(selector "previewImageDataForItem:") ~typ:(id @-> returning (id)) x -let previewImageForItem x self = msg_send ~self ~cmd:(selector "previewImageForItem:") ~typ:(id @-> returning (id)) x -let previewImagesByItem self = msg_send ~self ~cmd:(selector "previewImagesByItem") ~typ:(returning (id)) -let securityContexts self = msg_send ~self ~cmd:(selector "securityContexts") ~typ:(returning (id)) -let setOpenURLAnnotationsByURL x self = msg_send ~self ~cmd:(selector "setOpenURLAnnotationsByURL:") ~typ:(id @-> returning (void)) x -let setSecurityContexts x self = msg_send ~self ~cmd:(selector "setSecurityContexts:") ~typ:(id @-> returning (void)) x -let subjectForItem x self = msg_send ~self ~cmd:(selector "subjectForItem:") ~typ:(id @-> returning (id)) x -let subjectsByItem self = msg_send ~self ~cmd:(selector "subjectsByItem") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UISDeviceContext.ml b/uikit_extra/UISDeviceContext.ml deleted file mode 100644 index 711fc8c5..00000000 --- a/uikit_extra/UISDeviceContext.ml +++ /dev/null @@ -1,28 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISDeviceContext" - -module C = struct - let defaultContext self = msg_send ~self ~cmd:(selector "defaultContext") ~typ:(returning (id)) - let supportsBSXPCSecureCoding self = msg_send ~self ~cmd:(selector "supportsBSXPCSecureCoding") ~typ:(returning (bool)) -end - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let deviceInfoBoolValueForKey x self = msg_send ~self ~cmd:(selector "deviceInfoBoolValueForKey:") ~typ:(id @-> returning (bool)) x -let deviceInfoFloatValueForKey x self = msg_send ~self ~cmd:(selector "deviceInfoFloatValueForKey:") ~typ:(id @-> returning (double)) x -let deviceInfoIntegerValueForKey x self = msg_send ~self ~cmd:(selector "deviceInfoIntegerValueForKey:") ~typ:(id @-> returning (llong)) x -let deviceInfoStringValueForKey x self = msg_send ~self ~cmd:(selector "deviceInfoStringValueForKey:") ~typ:(id @-> returning (id)) x -let encodeWithBSXPCCoder x self = msg_send ~self ~cmd:(selector "encodeWithBSXPCCoder:") ~typ:(id @-> returning (void)) x -let hasDeviceInfoValueForKey x self = msg_send ~self ~cmd:(selector "hasDeviceInfoValueForKey:") ~typ:(id @-> returning (bool)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithBSXPCCoder x self = msg_send ~self ~cmd:(selector "initWithBSXPCCoder:") ~typ:(id @-> returning (id)) x -let initWithDeviceInfoValues x self = msg_send ~self ~cmd:(selector "initWithDeviceInfoValues:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit_extra/UISDisplayContext.ml b/uikit_extra/UISDisplayContext.ml deleted file mode 100644 index 1658b7c5..00000000 --- a/uikit_extra/UISDisplayContext.ml +++ /dev/null @@ -1,31 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISDisplayContext" - -module C = struct - let defaultContext self = msg_send ~self ~cmd:(selector "defaultContext") ~typ:(returning (id)) -end - -let artworkSubtype self = msg_send ~self ~cmd:(selector "artworkSubtype") ~typ:(returning (ullong)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let displayConfiguration self = msg_send ~self ~cmd:(selector "displayConfiguration") ~typ:(returning (id)) -let displayEdgeInfo self = msg_send ~self ~cmd:(selector "displayEdgeInfo") ~typ:(returning (id)) -let encodeWithXPCDictionary x self = msg_send ~self ~cmd:(selector "encodeWithXPCDictionary:") ~typ:(id @-> returning (void)) x -let exclusionArea self = msg_send ~self ~cmd:(selector "exclusionArea") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let homeAffordanceOverlayAllowance self = msg_send ~self ~cmd:(selector "homeAffordanceOverlayAllowance") ~typ:(returning (double)) -let initWithDisplayConfiguration x self = msg_send ~self ~cmd:(selector "initWithDisplayConfiguration:") ~typ:(id @-> returning (id)) x -let initWithDisplayConfiguration1 x ~displayEdgeInfo self = msg_send ~self ~cmd:(selector "initWithDisplayConfiguration:displayEdgeInfo:") ~typ:(id @-> id @-> returning (id)) x displayEdgeInfo -let initWithDisplayConfiguration2 x ~displayEdgeInfo ~exclusionArea self = msg_send ~self ~cmd:(selector "initWithDisplayConfiguration:displayEdgeInfo:exclusionArea:") ~typ:(id @-> id @-> id @-> returning (id)) x displayEdgeInfo exclusionArea -let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:(id @-> returning (id)) x -let systemMinimumMargin self = msg_send ~self ~cmd:(selector "systemMinimumMargin") ~typ:(returning (double)) -let userInterfaceStyle self = msg_send ~self ~cmd:(selector "userInterfaceStyle") ~typ:(returning (ullong)) \ No newline at end of file diff --git a/uikit_extra/UISDisplayShape.ml b/uikit_extra/UISDisplayShape.ml deleted file mode 100644 index b23617d7..00000000 --- a/uikit_extra/UISDisplayShape.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISDisplayShape" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let displayShapeName self = msg_send ~self ~cmd:(selector "displayShapeName") ~typ:(returning (id)) -let encodeWithXPCDictionary x self = msg_send ~self ~cmd:(selector "encodeWithXPCDictionary:") ~typ:(id @-> returning (void)) x -let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/uikit_extra/UISDisplaySingleRectShape.ml b/uikit_extra/UISDisplaySingleRectShape.ml deleted file mode 100644 index 904924ee..00000000 --- a/uikit_extra/UISDisplaySingleRectShape.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISDisplaySingleRectShape" - -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let displayShapeName self = msg_send ~self ~cmd:(selector "displayShapeName") ~typ:(returning (id)) -let encodeWithXPCDictionary x self = msg_send ~self ~cmd:(selector "encodeWithXPCDictionary:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithRect x self = msg_send ~self ~cmd:(selector "initWithRect:") ~typ:(CGRect.t @-> returning (id)) x -let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let rect self = msg_send_stret ~self ~cmd:(selector "rect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t \ No newline at end of file diff --git a/uikit_extra/UISFetchContentInBackgroundAction.ml b/uikit_extra/UISFetchContentInBackgroundAction.ml deleted file mode 100644 index 84df790d..00000000 --- a/uikit_extra/UISFetchContentInBackgroundAction.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISFetchContentInBackgroundAction" - -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let initWithHandler x self = msg_send ~self ~cmd:(selector "initWithHandler:") ~typ:(ptr void @-> returning (id)) x -let initWithInfo x ~timeout ~forResponseOnQueue ~withHandler self = msg_send ~self ~cmd:(selector "initWithInfo:timeout:forResponseOnQueue:withHandler:") ~typ:(id @-> double @-> id @-> ptr void @-> returning (id)) x timeout forResponseOnQueue withHandler -let sendResponse x self = msg_send ~self ~cmd:(selector "sendResponse:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UISFetchContentInBackgroundActionResponse.ml b/uikit_extra/UISFetchContentInBackgroundActionResponse.ml deleted file mode 100644 index 5ee09dbb..00000000 --- a/uikit_extra/UISFetchContentInBackgroundActionResponse.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISFetchContentInBackgroundActionResponse" - -module C = struct - let responseWithResult x self = msg_send ~self ~cmd:(selector "responseWithResult:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -end - -let initWithBackgroundFetchResult x self = msg_send ~self ~cmd:(selector "initWithBackgroundFetchResult:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let initWithInfo x ~error self = msg_send ~self ~cmd:(selector "initWithInfo:error:") ~typ:(id @-> id @-> returning (id)) x error -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let result self = msg_send ~self ~cmd:(selector "result") ~typ:(returning (ullong)) \ No newline at end of file diff --git a/uikit_extra/UISHandleApplicationShortcutAction.ml b/uikit_extra/UISHandleApplicationShortcutAction.ml deleted file mode 100644 index 3d0f7145..00000000 --- a/uikit_extra/UISHandleApplicationShortcutAction.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISHandleApplicationShortcutAction" - -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let initWithShortcutItem x self = msg_send ~self ~cmd:(selector "initWithShortcutItem:") ~typ:(id @-> returning (id)) x -let isKindOfClass x self = msg_send ~self ~cmd:(selector "isKindOfClass:") ~typ:(_Class @-> returning (bool)) x -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let uiShortcutItem self = msg_send ~self ~cmd:(selector "uiShortcutItem") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UISHandleBackgroundURLSessionAction.ml b/uikit_extra/UISHandleBackgroundURLSessionAction.ml deleted file mode 100644 index 1ec5fdd6..00000000 --- a/uikit_extra/UISHandleBackgroundURLSessionAction.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISHandleBackgroundURLSessionAction" - -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let initWithInfo x ~timeout ~forResponseOnQueue ~withHandler self = msg_send ~self ~cmd:(selector "initWithInfo:timeout:forResponseOnQueue:withHandler:") ~typ:(id @-> double @-> id @-> ptr void @-> returning (id)) x timeout forResponseOnQueue withHandler -let initWithSessionIdentifier x self = msg_send ~self ~cmd:(selector "initWithSessionIdentifier:") ~typ:(id @-> returning (id)) x -let initWithSessionIdentifier' x ~timeout ~forResponseOnQueue ~withHandler self = msg_send ~self ~cmd:(selector "initWithSessionIdentifier:timeout:forResponseOnQueue:withHandler:") ~typ:(id @-> double @-> id @-> ptr void @-> returning (id)) x timeout forResponseOnQueue withHandler -let isKindOfClass x self = msg_send ~self ~cmd:(selector "isKindOfClass:") ~typ:(_Class @-> returning (bool)) x -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let sessionIdentifier self = msg_send ~self ~cmd:(selector "sessionIdentifier") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UISHandleCloudKitShareAction.ml b/uikit_extra/UISHandleCloudKitShareAction.ml deleted file mode 100644 index e882a3cd..00000000 --- a/uikit_extra/UISHandleCloudKitShareAction.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISHandleCloudKitShareAction" - -module C = struct - let cloudKitShareActionWithShareMetadata x self = msg_send ~self ~cmd:(selector "cloudKitShareActionWithShareMetadata:") ~typ:(id @-> returning (id)) x - let loadCloudKitFramework self = msg_send ~self ~cmd:(selector "loadCloudKitFramework") ~typ:(returning (void)) -end - -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let data self = msg_send ~self ~cmd:(selector "data") ~typ:(returning (id)) -let initWithShareMetadata x self = msg_send ~self ~cmd:(selector "initWithShareMetadata:") ~typ:(id @-> returning (id)) x -let isKindOfClass x self = msg_send ~self ~cmd:(selector "isKindOfClass:") ~typ:(_Class @-> returning (bool)) x -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let shareMetadata self = msg_send ~self ~cmd:(selector "shareMetadata") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UISHandleRemoteNotificationAction.ml b/uikit_extra/UISHandleRemoteNotificationAction.ml deleted file mode 100644 index 9cca208e..00000000 --- a/uikit_extra/UISHandleRemoteNotificationAction.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISHandleRemoteNotificationAction" - -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (ullong)) -let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning (id)) -let initWithInfo x ~timeout ~forResponseOnQueue ~withHandler self = msg_send ~self ~cmd:(selector "initWithInfo:timeout:forResponseOnQueue:withHandler:") ~typ:(id @-> double @-> id @-> ptr void @-> returning (id)) x timeout forResponseOnQueue withHandler -let initWithRemoteNotificationPayload x ~withHandler self = msg_send ~self ~cmd:(selector "initWithRemoteNotificationPayload:withHandler:") ~typ:(id @-> ptr void @-> returning (id)) x withHandler -let initWithRemoteNotificationPayload1 x ~action ~withHandler self = msg_send ~self ~cmd:(selector "initWithRemoteNotificationPayload:action:withHandler:") ~typ:(id @-> id @-> ptr void @-> returning (id)) x action withHandler -let initWithRemoteNotificationPayload2 x ~action ~userResponse ~withHandler self = msg_send ~self ~cmd:(selector "initWithRemoteNotificationPayload:action:userResponse:withHandler:") ~typ:(id @-> id @-> id @-> ptr void @-> returning (id)) x action userResponse withHandler -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let payload self = msg_send ~self ~cmd:(selector "payload") ~typ:(returning (id)) -let sendResponse x self = msg_send ~self ~cmd:(selector "sendResponse:") ~typ:(id @-> returning (void)) x -let userResponse self = msg_send ~self ~cmd:(selector "userResponse") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UISIntentForwardingAction.ml b/uikit_extra/UISIntentForwardingAction.ml deleted file mode 100644 index da363e30..00000000 --- a/uikit_extra/UISIntentForwardingAction.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISIntentForwardingAction" - -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let initWithIntent x ~reply self = msg_send ~self ~cmd:(selector "initWithIntent:reply:") ~typ:(id @-> ptr void @-> returning (id)) x reply -let initWithIntentForwardingAction x ~responseHandler self = msg_send ~self ~cmd:(selector "initWithIntentForwardingAction:responseHandler:") ~typ:(id @-> ptr void @-> returning (id)) x responseHandler -let intent self = msg_send ~self ~cmd:(selector "intent") ~typ:(returning (id)) -let intentForwardingAction self = msg_send ~self ~cmd:(selector "intentForwardingAction") ~typ:(returning (id)) -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UISIntentForwardingActionResponse.ml b/uikit_extra/UISIntentForwardingActionResponse.ml deleted file mode 100644 index fc62216a..00000000 --- a/uikit_extra/UISIntentForwardingActionResponse.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISIntentForwardingActionResponse" - -module C = struct - let responseWithIntentForwardingActionResponse x self = msg_send ~self ~cmd:(selector "responseWithIntentForwardingActionResponse:") ~typ:(id @-> returning (id)) x - let responseWithIntentResponse x self = msg_send ~self ~cmd:(selector "responseWithIntentResponse:") ~typ:(id @-> returning (id)) x -end - -let initWithIntentForwardingActionResponse x self = msg_send ~self ~cmd:(selector "initWithIntentForwardingActionResponse:") ~typ:(id @-> returning (id)) x -let initWithIntentResponse x self = msg_send ~self ~cmd:(selector "initWithIntentResponse:") ~typ:(id @-> returning (id)) x -let intentForwardingActionResponse self = msg_send ~self ~cmd:(selector "intentForwardingActionResponse") ~typ:(returning (id)) -let intentResponse self = msg_send ~self ~cmd:(selector "intentResponse") ~typ:(returning (id)) -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UISMutableApplicationInitializationContext.ml b/uikit_extra/UISMutableApplicationInitializationContext.ml deleted file mode 100644 index b13d7868..00000000 --- a/uikit_extra/UISMutableApplicationInitializationContext.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISMutableApplicationInitializationContext" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let setCompatibilityContext x self = msg_send ~self ~cmd:(selector "setCompatibilityContext:") ~typ:(id @-> returning (void)) x -let setDefaultSceneToken x self = msg_send ~self ~cmd:(selector "setDefaultSceneToken:") ~typ:(id @-> returning (void)) x -let setDeviceContext x self = msg_send ~self ~cmd:(selector "setDeviceContext:") ~typ:(id @-> returning (void)) x -let setDisplayContext x self = msg_send ~self ~cmd:(selector "setDisplayContext:") ~typ:(id @-> returning (void)) x -let setPersistedSceneIdentifiers x self = msg_send ~self ~cmd:(selector "setPersistedSceneIdentifiers:") ~typ:(id @-> returning (void)) x -let setSupportAppSceneRequests x self = msg_send ~self ~cmd:(selector "setSupportAppSceneRequests:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UISMutableDisplayContext.ml b/uikit_extra/UISMutableDisplayContext.ml deleted file mode 100644 index bd27f4cc..00000000 --- a/uikit_extra/UISMutableDisplayContext.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISMutableDisplayContext" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let setArtworkSubtype x self = msg_send ~self ~cmd:(selector "setArtworkSubtype:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDisplayConfiguration x self = msg_send ~self ~cmd:(selector "setDisplayConfiguration:") ~typ:(id @-> returning (void)) x -let setDisplayEdgeInfo x self = msg_send ~self ~cmd:(selector "setDisplayEdgeInfo:") ~typ:(id @-> returning (void)) x -let setExclusionArea x self = msg_send ~self ~cmd:(selector "setExclusionArea:") ~typ:(id @-> returning (void)) x -let setUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setUserInterfaceStyle:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UISMutableSlotStyle.ml b/uikit_extra/UISMutableSlotStyle.ml deleted file mode 100644 index aa0f24e6..00000000 --- a/uikit_extra/UISMutableSlotStyle.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISMutableSlotStyle" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let setAccessibilityButtonShapes x self = msg_send ~self ~cmd:(selector "setAccessibilityButtonShapes:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setAccessibilityContrast x self = msg_send ~self ~cmd:(selector "setAccessibilityContrast:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDisplayRange x self = msg_send ~self ~cmd:(selector "setDisplayRange:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setDisplayScale x self = msg_send ~self ~cmd:(selector "setDisplayScale:") ~typ:(bool @-> returning (void)) x -let setLayoutDirection x self = msg_send ~self ~cmd:(selector "setLayoutDirection:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setLegibilityWeight x self = msg_send ~self ~cmd:(selector "setLegibilityWeight:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setLocalization x self = msg_send ~self ~cmd:(selector "setLocalization:") ~typ:(id @-> returning (void)) x -let setPreferredContentSizeCategory x self = msg_send ~self ~cmd:(selector "setPreferredContentSizeCategory:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(ptr void @-> returning (void)) x -let setUserInterfaceIdiom x self = msg_send ~self ~cmd:(selector "setUserInterfaceIdiom:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "setUserInterfaceStyle:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UISNotificationResponseAction.ml b/uikit_extra/UISNotificationResponseAction.ml deleted file mode 100644 index e23c0e75..00000000 --- a/uikit_extra/UISNotificationResponseAction.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISNotificationResponseAction" - -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let initWithResponse x ~withHandler self = msg_send ~self ~cmd:(selector "initWithResponse:withHandler:") ~typ:(id @-> ptr void @-> returning (id)) x withHandler -let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning (id)) x -let isDefaultAction self = msg_send ~self ~cmd:(selector "isDefaultAction") ~typ:(returning (bool)) -let isKindOfClass x self = msg_send ~self ~cmd:(selector "isKindOfClass:") ~typ:(_Class @-> returning (bool)) x -let isLocal self = msg_send ~self ~cmd:(selector "isLocal") ~typ:(returning (bool)) -let isRemote self = msg_send ~self ~cmd:(selector "isRemote") ~typ:(returning (bool)) -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let response self = msg_send ~self ~cmd:(selector "response") ~typ:(returning (id)) -let valueDescriptionForFlag x ~object_ ~ofSetting self = msg_send ~self ~cmd:(selector "valueDescriptionForFlag:object:ofSetting:") ~typ:(llong @-> id @-> ullong @-> returning (id)) (LLong.of_int x) object_ (ULLong.of_int ofSetting) \ No newline at end of file diff --git a/uikit_extra/UISOpenURLAction.ml b/uikit_extra/UISOpenURLAction.ml deleted file mode 100644 index c1fb3203..00000000 --- a/uikit_extra/UISOpenURLAction.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISOpenURLAction" - -let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning (llong)) -let initWithInfo x ~timeout ~forResponseOnQueue ~withHandler self = msg_send ~self ~cmd:(selector "initWithInfo:timeout:forResponseOnQueue:withHandler:") ~typ:(id @-> double @-> id @-> ptr void @-> returning (id)) x timeout forResponseOnQueue withHandler -let initWithURL x self = msg_send ~self ~cmd:(selector "initWithURL:") ~typ:(id @-> returning (id)) x -let initWithURL' x ~workspaceOriginatingProcess self = msg_send ~self ~cmd:(selector "initWithURL:workspaceOriginatingProcess:") ~typ:(id @-> id @-> returning (id)) x workspaceOriginatingProcess -let isKindOfClass x self = msg_send ~self ~cmd:(selector "isKindOfClass:") ~typ:(_Class @-> returning (bool)) x -let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) -let url self = msg_send ~self ~cmd:(selector "url") ~typ:(returning (id)) -let workspaceOriginatingProcess self = msg_send ~self ~cmd:(selector "workspaceOriginatingProcess") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UISPasteVariant.ml b/uikit_extra/UISPasteVariant.ml deleted file mode 100644 index 1101159c..00000000 --- a/uikit_extra/UISPasteVariant.ml +++ /dev/null @@ -1,26 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISPasteVariant" - -module C = struct - let allVariants self = msg_send ~self ~cmd:(selector "allVariants") ~typ:(returning (id)) - let variantForActionIdentifier x self = msg_send ~self ~cmd:(selector "variantForActionIdentifier:") ~typ:(id @-> returning (id)) x - let variantForIndex x self = msg_send ~self ~cmd:(selector "variantForIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) - let variantForSelector x self = msg_send ~self ~cmd:(selector "variantForSelector:") ~typ:(_SEL @-> returning (id)) x -end - -let actionIdentifier self = msg_send ~self ~cmd:(selector "actionIdentifier") ~typ:(returning (id)) -let glyph self = msg_send ~self ~cmd:(selector "glyph") ~typ:(returning (id)) -let index self = msg_send ~self ~cmd:(selector "index") ~typ:(returning (ullong)) -let initWithIndex x ~selector_ ~actionIdentifier ~localizationKey ~glpyh ~keyInput ~keyModifierFlags self = msg_send ~self ~cmd:(selector "initWithIndex:selector:actionIdentifier:localizationKey:glpyh:keyInput:keyModifierFlags:") ~typ:(ullong @-> _SEL @-> id @-> id @-> id @-> id @-> llong @-> returning (id)) (ULLong.of_int x) selector_ actionIdentifier localizationKey glpyh keyInput (LLong.of_int keyModifierFlags) -let keyInput self = msg_send ~self ~cmd:(selector "keyInput") ~typ:(returning (id)) -let keyModifierFlags self = msg_send ~self ~cmd:(selector "keyModifierFlags") ~typ:(returning (llong)) -let localizationKey self = msg_send ~self ~cmd:(selector "localizationKey") ~typ:(returning (id)) -let localizedStringForLocalization x self = msg_send ~self ~cmd:(selector "localizedStringForLocalization:") ~typ:(id @-> returning (id)) x -let selector_ self = msg_send ~self ~cmd:(selector "selector") ~typ:(returning (_SEL)) \ No newline at end of file diff --git a/uikit_extra/UISSceneRequestOptions.ml b/uikit_extra/UISSceneRequestOptions.ml deleted file mode 100644 index 689343b3..00000000 --- a/uikit_extra/UISSceneRequestOptions.ml +++ /dev/null @@ -1,39 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISSceneRequestOptions" - -module C = struct - let supportsBSXPCSecureCoding self = msg_send ~self ~cmd:(selector "supportsBSXPCSecureCoding") ~typ:(returning (bool)) -end - -let actions self = msg_send ~self ~cmd:(selector "actions") ~typ:(returning (id)) -let encodeWithBSXPCCoder x self = msg_send ~self ~cmd:(selector "encodeWithBSXPCCoder:") ~typ:(id @-> returning (void)) x -let initWithBSXPCCoder x self = msg_send ~self ~cmd:(selector "initWithBSXPCCoder:") ~typ:(id @-> returning (id)) x -let interactionIdentifier self = msg_send ~self ~cmd:(selector "interactionIdentifier") ~typ:(returning (id)) -let isKindOfClass x self = msg_send ~self ~cmd:(selector "isKindOfClass:") ~typ:(_Class @-> returning (bool)) x -let originatingProcess self = msg_send ~self ~cmd:(selector "originatingProcess") ~typ:(returning (id)) -let preserveLayout self = msg_send ~self ~cmd:(selector "preserveLayout") ~typ:(returning (bool)) -let requestBackground self = msg_send ~self ~cmd:(selector "requestBackground") ~typ:(returning (bool)) -let requestCenterSlot self = msg_send ~self ~cmd:(selector "requestCenterSlot") ~typ:(returning (bool)) -let requestFullscreen self = msg_send ~self ~cmd:(selector "requestFullscreen") ~typ:(returning (bool)) -let requestQuickLookScene self = msg_send ~self ~cmd:(selector "requestQuickLookScene") ~typ:(returning (bool)) -let sceneCollectionJoinBehavior self = msg_send ~self ~cmd:(selector "sceneCollectionJoinBehavior") ~typ:(returning (llong)) -let sceneRequestIntent self = msg_send ~self ~cmd:(selector "sceneRequestIntent") ~typ:(returning (llong)) -let setActions x self = msg_send ~self ~cmd:(selector "setActions:") ~typ:(id @-> returning (void)) x -let setInteractionIdentifier x self = msg_send ~self ~cmd:(selector "setInteractionIdentifier:") ~typ:(id @-> returning (void)) x -let setOriginatingProcess x self = msg_send ~self ~cmd:(selector "setOriginatingProcess:") ~typ:(id @-> returning (void)) x -let setPreserveLayout x self = msg_send ~self ~cmd:(selector "setPreserveLayout:") ~typ:(bool @-> returning (void)) x -let setRequestBackground x self = msg_send ~self ~cmd:(selector "setRequestBackground:") ~typ:(bool @-> returning (void)) x -let setRequestCenterSlot x self = msg_send ~self ~cmd:(selector "setRequestCenterSlot:") ~typ:(bool @-> returning (void)) x -let setRequestFullscreen x self = msg_send ~self ~cmd:(selector "setRequestFullscreen:") ~typ:(bool @-> returning (void)) x -let setRequestQuickLookScene x self = msg_send ~self ~cmd:(selector "setRequestQuickLookScene:") ~typ:(bool @-> returning (void)) x -let setSceneCollectionJoinBehavior x self = msg_send ~self ~cmd:(selector "setSceneCollectionJoinBehavior:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSceneRequestIntent x self = msg_send ~self ~cmd:(selector "setSceneRequestIntent:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setSourceIdentifier x self = msg_send ~self ~cmd:(selector "setSourceIdentifier:") ~typ:(id @-> returning (void)) x -let sourceIdentifier self = msg_send ~self ~cmd:(selector "sourceIdentifier") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UISSlotEmptyContent.ml b/uikit_extra/UISSlotEmptyContent.ml deleted file mode 100644 index 5475bebd..00000000 --- a/uikit_extra/UISSlotEmptyContent.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISSlotEmptyContent" - -module C = struct - let contentWithSize x self = msg_send ~self ~cmd:(selector "contentWithSize:") ~typ:(CGSize.t @-> returning (id)) x -end - -let contentScale self = msg_send ~self ~cmd:(selector "contentScale") ~typ:(returning (bool)) -let contentSize self = msg_send_stret ~self ~cmd:(selector "contentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let deleteFromLayerContext x self = msg_send ~self ~cmd:(selector "deleteFromLayerContext:") ~typ:(id @-> returning (void)) x -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let initWithSize x self = msg_send ~self ~cmd:(selector "initWithSize:") ~typ:(CGSize.t @-> returning (id)) x -let isRemote self = msg_send ~self ~cmd:(selector "isRemote") ~typ:(returning (bool)) -let shouldReplaceExistingContent self = msg_send ~self ~cmd:(selector "shouldReplaceExistingContent") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UISSlotLocalContent.ml b/uikit_extra/UISSlotLocalContent.ml deleted file mode 100644 index 2eec9062..00000000 --- a/uikit_extra/UISSlotLocalContent.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISSlotLocalContent" - -module C = struct - let contentWithDrawing x ~scale ~range self = msg_send ~self ~cmd:(selector "contentWithDrawing:scale:range:") ~typ:(id @-> bool @-> ullong @-> returning (id)) x scale (ULLong.of_int range) -end - -let contentScale self = msg_send ~self ~cmd:(selector "contentScale") ~typ:(returning (bool)) -let contentSize self = msg_send_stret ~self ~cmd:(selector "contentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let deleteFromLayerContext x self = msg_send ~self ~cmd:(selector "deleteFromLayerContext:") ~typ:(id @-> returning (void)) x -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let initWithContentSize x ~contentScale ~localImage self = msg_send ~self ~cmd:(selector "initWithContentSize:contentScale:localImage:") ~typ:(CGSize.t @-> bool @-> id @-> returning (id)) x contentScale localImage -let isRemote self = msg_send ~self ~cmd:(selector "isRemote") ~typ:(returning (bool)) -let shouldReplaceExistingContent self = msg_send ~self ~cmd:(selector "shouldReplaceExistingContent") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UISSlotMachine.ml b/uikit_extra/UISSlotMachine.ml deleted file mode 100644 index 4a65add1..00000000 --- a/uikit_extra/UISSlotMachine.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISSlotMachine" - -let allTags self = msg_send ~self ~cmd:(selector "allTags") ~typ:(returning (id)) -let initWithSlotDrawer x ~options self = msg_send ~self ~cmd:(selector "initWithSlotDrawer:options:") ~typ:(id @-> ullong @-> returning (id)) x (ULLong.of_int options) -let remoteContentForLayerContextWithId x ~style ~tag self = msg_send ~self ~cmd:(selector "remoteContentForLayerContextWithId:style:tag:") ~typ:(ullong @-> id @-> id @-> returning (id)) (ULLong.of_int x) style tag -let removeContentForStyle x ~tag self = msg_send ~self ~cmd:(selector "removeContentForStyle:tag:") ~typ:(id @-> id @-> returning (void)) x tag -let removeContentsForTag x self = msg_send ~self ~cmd:(selector "removeContentsForTag:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UISSlotRemoteContent.ml b/uikit_extra/UISSlotRemoteContent.ml deleted file mode 100644 index dcb56fb4..00000000 --- a/uikit_extra/UISSlotRemoteContent.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISSlotRemoteContent" - -module C = struct - let newLayerContext self = msg_send ~self ~cmd:(selector "newLayerContext") ~typ:(returning (id)) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let contentScale self = msg_send ~self ~cmd:(selector "contentScale") ~typ:(returning (bool)) -let contentSize self = msg_send_stret ~self ~cmd:(selector "contentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let deleteFromLayerContext x self = msg_send ~self ~cmd:(selector "deleteFromLayerContext:") ~typ:(id @-> returning (void)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithContentSize x ~contentScale ~localImage ~toLayerContext self = msg_send ~self ~cmd:(selector "initWithContentSize:contentScale:localImage:toLayerContext:") ~typ:(CGSize.t @-> bool @-> id @-> ptr (id) @-> returning (id)) x contentScale localImage toLayerContext -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let isRemote self = msg_send ~self ~cmd:(selector "isRemote") ~typ:(returning (bool)) -let newTouchAuthenticationSpecificationWithAuthenticationMessageContext x ~hitTestInformationMask self = msg_send ~self ~cmd:(selector "newTouchAuthenticationSpecificationWithAuthenticationMessageContext:hitTestInformationMask:") ~typ:(ullong @-> ullong @-> returning (id)) (ULLong.of_int x) (ULLong.of_int hitTestInformationMask) -let shouldReplaceExistingContent self = msg_send ~self ~cmd:(selector "shouldReplaceExistingContent") ~typ:(returning (bool)) -let slotID self = msg_send ~self ~cmd:(selector "slotID") ~typ:(returning (uint)) -let transferFromLayerContext x ~toLayerContextWithId self = msg_send ~self ~cmd:(selector "transferFromLayerContext:toLayerContextWithId:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int toLayerContextWithId) \ No newline at end of file diff --git a/uikit_extra/UISSlotStyle.ml b/uikit_extra/UISSlotStyle.ml deleted file mode 100644 index 91c99f3c..00000000 --- a/uikit_extra/UISSlotStyle.ml +++ /dev/null @@ -1,46 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISSlotStyle" - -module C = struct - let slotStyleWithAccessibilityButtonShapes x ~accessibilityContrast ~displayRange ~displayScale ~layoutDirection ~legibilityWeight ~localization ~preferredContentSizeCategory ~tintColor ~userInterfaceIdiom ~userInterfaceStyle self = msg_send ~self ~cmd:(selector "slotStyleWithAccessibilityButtonShapes:accessibilityContrast:displayRange:displayScale:layoutDirection:legibilityWeight:localization:preferredContentSizeCategory:tintColor:userInterfaceIdiom:userInterfaceStyle:") ~typ:(ullong @-> ullong @-> ullong @-> bool @-> ullong @-> ullong @-> id @-> ullong @-> ptr void @-> ullong @-> ullong @-> returning (id)) (ULLong.of_int x) (ULLong.of_int accessibilityContrast) (ULLong.of_int displayRange) displayScale (ULLong.of_int layoutDirection) (ULLong.of_int legibilityWeight) localization (ULLong.of_int preferredContentSizeCategory) tintColor (ULLong.of_int userInterfaceIdiom) (ULLong.of_int userInterfaceStyle) - let slotStyleWithAccessibilityContrast x ~displayRange ~displayScale ~layoutDirection ~legibilityWeight ~localization ~preferredContentSizeCategory ~tintColor ~userInterfaceIdiom ~userInterfaceStyle self = msg_send ~self ~cmd:(selector "slotStyleWithAccessibilityContrast:displayRange:displayScale:layoutDirection:legibilityWeight:localization:preferredContentSizeCategory:tintColor:userInterfaceIdiom:userInterfaceStyle:") ~typ:(ullong @-> ullong @-> bool @-> ullong @-> ullong @-> id @-> ullong @-> ptr void @-> ullong @-> ullong @-> returning (id)) (ULLong.of_int x) (ULLong.of_int displayRange) displayScale (ULLong.of_int layoutDirection) (ULLong.of_int legibilityWeight) localization (ULLong.of_int preferredContentSizeCategory) tintColor (ULLong.of_int userInterfaceIdiom) (ULLong.of_int userInterfaceStyle) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let accessibilityButtonShapes self = msg_send ~self ~cmd:(selector "accessibilityButtonShapes") ~typ:(returning (ullong)) -let accessibilityContrast self = msg_send ~self ~cmd:(selector "accessibilityContrast") ~typ:(returning (ullong)) -let assetAppearanceNames self = msg_send ~self ~cmd:(selector "assetAppearanceNames") ~typ:(returning (id)) -let assetDeviceIdiom self = msg_send ~self ~cmd:(selector "assetDeviceIdiom") ~typ:(returning (llong)) -let assetLayoutDirection self = msg_send ~self ~cmd:(selector "assetLayoutDirection") ~typ:(returning (llong)) -let assetScaleFactor self = msg_send ~self ~cmd:(selector "assetScaleFactor") ~typ:(returning (double)) -let copyWithChangeBlock x self = msg_send ~self ~cmd:(selector "copyWithChangeBlock:") ~typ:(ptr void @-> returning (id)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let displayRange self = msg_send ~self ~cmd:(selector "displayRange") ~typ:(returning (ullong)) -let displayScale self = msg_send ~self ~cmd:(selector "displayScale") ~typ:(returning (bool)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let fontContentSizeCategory self = msg_send ~self ~cmd:(selector "fontContentSizeCategory") ~typ:(returning (ptr void)) -let fontLegibilityWeight self = msg_send ~self ~cmd:(selector "fontLegibilityWeight") ~typ:(returning (llong)) -let gradeWithOnlyFails x ~allowedLocalizations self = msg_send ~self ~cmd:(selector "gradeWithOnlyFails:allowedLocalizations:") ~typ:(ullong @-> id @-> returning (ullong)) (ULLong.of_int x) allowedLocalizations -let graphicsDisabledAlpha self = msg_send ~self ~cmd:(selector "graphicsDisabledAlpha") ~typ:(returning (double)) -let graphicsForegroundColor self = msg_send ~self ~cmd:(selector "graphicsForegroundColor") ~typ:(returning (ptr void)) -let hasAccessibilityContentSizeCategory self = msg_send ~self ~cmd:(selector "hasAccessibilityContentSizeCategory") ~typ:(returning (bool)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithAccessibilityButtonShapes x ~accessibilityContrast ~displayRange ~displayScale ~layoutDirection ~legibilityWeight ~localization ~preferredContentSizeCategory ~tintColor ~userInterfaceIdiom ~userInterfaceStyle self = msg_send ~self ~cmd:(selector "initWithAccessibilityButtonShapes:accessibilityContrast:displayRange:displayScale:layoutDirection:legibilityWeight:localization:preferredContentSizeCategory:tintColor:userInterfaceIdiom:userInterfaceStyle:") ~typ:(ullong @-> ullong @-> ullong @-> bool @-> ullong @-> ullong @-> id @-> ullong @-> ptr void @-> ullong @-> ullong @-> returning (id)) (ULLong.of_int x) (ULLong.of_int accessibilityContrast) (ULLong.of_int displayRange) displayScale (ULLong.of_int layoutDirection) (ULLong.of_int legibilityWeight) localization (ULLong.of_int preferredContentSizeCategory) tintColor (ULLong.of_int userInterfaceIdiom) (ULLong.of_int userInterfaceStyle) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithStyle x self = msg_send ~self ~cmd:(selector "initWithStyle:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let layoutDirection self = msg_send ~self ~cmd:(selector "layoutDirection") ~typ:(returning (ullong)) -let legibilityWeight self = msg_send ~self ~cmd:(selector "legibilityWeight") ~typ:(returning (ullong)) -let localization self = msg_send ~self ~cmd:(selector "localization") ~typ:(returning (id)) -let preferredContentSizeCategory self = msg_send ~self ~cmd:(selector "preferredContentSizeCategory") ~typ:(returning (ullong)) -let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning (ptr void)) -let userInterfaceIdiom self = msg_send ~self ~cmd:(selector "userInterfaceIdiom") ~typ:(returning (ullong)) -let userInterfaceStyle self = msg_send ~self ~cmd:(selector "userInterfaceStyle") ~typ:(returning (ullong)) \ No newline at end of file diff --git a/uikit_extra/UISTextLineDrawing.ml b/uikit_extra/UISTextLineDrawing.ml deleted file mode 100644 index 26c97a39..00000000 --- a/uikit_extra/UISTextLineDrawing.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISTextLineDrawing" - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let drawInContext x ~atPoint self = msg_send ~self ~cmd:(selector "drawInContext:atPoint:") ~typ:(id @-> CGPoint.t @-> returning (void)) x atPoint -let drawingSize self = msg_send_stret ~self ~cmd:(selector "drawingSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let hasLineBreak self = msg_send ~self ~cmd:(selector "hasLineBreak") ~typ:(returning (bool)) -let initWithAttributedString x ~scale self = msg_send ~self ~cmd:(selector "initWithAttributedString:scale:") ~typ:(ptr void @-> double @-> returning (id)) x scale -let initWithAttributedString1 x ~width ~truncationType ~scale self = msg_send ~self ~cmd:(selector "initWithAttributedString:width:truncationType:scale:") ~typ:(ptr void @-> double @-> uint @-> double @-> returning (id)) x width truncationType scale -let initWithAttributedString2 x ~lineBreakMode ~textAlignment ~width ~scale self = msg_send ~self ~cmd:(selector "initWithAttributedString:lineBreakMode:textAlignment:width:scale:") ~typ:(ptr void @-> bool @-> bool @-> double @-> double @-> returning (id)) x lineBreakMode textAlignment width scale -let initWithNonretainedLine x ~lineBreakMode ~textAlignment ~width ~scale self = msg_send ~self ~cmd:(selector "initWithNonretainedLine:lineBreakMode:textAlignment:width:scale:") ~typ:(ptr void @-> bool @-> bool @-> double @-> double @-> returning (id)) x lineBreakMode textAlignment width scale -let initWithString x ~attributes ~scale self = msg_send ~self ~cmd:(selector "initWithString:attributes:scale:") ~typ:(ptr void @-> ptr void @-> double @-> returning (id)) x attributes scale -let initWithString1 x ~attributes ~width ~truncationType ~scale self = msg_send ~self ~cmd:(selector "initWithString:attributes:width:truncationType:scale:") ~typ:(ptr void @-> ptr void @-> double @-> uint @-> double @-> returning (id)) x attributes width truncationType scale -let initWithString2 x ~attributes ~lineBreakMode ~textAlignment ~width ~scale self = msg_send ~self ~cmd:(selector "initWithString:attributes:lineBreakMode:textAlignment:width:scale:") ~typ:(ptr void @-> ptr void @-> bool @-> bool @-> double @-> double @-> returning (id)) x attributes lineBreakMode textAlignment width scale \ No newline at end of file diff --git a/uikit_extra/UISTextParagraphDrawing.ml b/uikit_extra/UISTextParagraphDrawing.ml deleted file mode 100644 index 8876b794..00000000 --- a/uikit_extra/UISTextParagraphDrawing.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISTextParagraphDrawing" - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let drawInContext x ~atPoint self = msg_send ~self ~cmd:(selector "drawInContext:atPoint:") ~typ:(id @-> CGPoint.t @-> returning (void)) x atPoint -let drawingSize self = msg_send_stret ~self ~cmd:(selector "drawingSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let initWithString x ~attributes ~size ~numberOfLines ~scale self = msg_send ~self ~cmd:(selector "initWithString:attributes:size:numberOfLines:scale:") ~typ:(id @-> ptr void @-> CGSize.t @-> bool @-> double @-> returning (id)) x attributes size numberOfLines scale -let initWithString' x ~attributes ~size ~numberOfLines ~textAlignment self = msg_send ~self ~cmd:(selector "initWithString:attributes:size:numberOfLines:textAlignment:") ~typ:(id @-> ptr void @-> CGSize.t @-> bool @-> bool @-> returning (id)) x attributes size numberOfLines textAlignment -let lineCount self = msg_send ~self ~cmd:(selector "lineCount") ~typ:(returning (bool)) \ No newline at end of file diff --git a/uikit_extra/UISTransform3DGrader.ml b/uikit_extra/UISTransform3DGrader.ml deleted file mode 100644 index 27de491a..00000000 --- a/uikit_extra/UISTransform3DGrader.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISTransform3DGrader" - -let allowRotations x ~count self = msg_send ~self ~cmd:(selector "allowRotations:count:") ~typ:(ptr (double) @-> ullong @-> returning (void)) x (ULLong.of_int count) -let allowRotations' x ~count ~lowerMultiplier ~lowerConstant ~upperMultiplier ~upperConstant self = msg_send ~self ~cmd:(selector "allowRotations:count:lowerMultiplier:lowerConstant:upperMultiplier:upperConstant:") ~typ:(ptr (double) @-> ullong @-> double @-> double @-> double @-> double @-> returning (void)) x (ULLong.of_int count) lowerMultiplier lowerConstant upperMultiplier upperConstant -let allowScales x ~count self = msg_send ~self ~cmd:(selector "allowScales:count:") ~typ:(ptr (double) @-> ullong @-> returning (void)) x (ULLong.of_int count) -let allowScales' x ~count ~lowerMultiplier ~lowerConstant ~upperMultiplier ~upperConstant self = msg_send ~self ~cmd:(selector "allowScales:count:lowerMultiplier:lowerConstant:upperMultiplier:upperConstant:") ~typ:(ptr (double) @-> ullong @-> double @-> double @-> double @-> double @-> returning (void)) x (ULLong.of_int count) lowerMultiplier lowerConstant upperMultiplier upperConstant -let allowSkews x ~count self = msg_send ~self ~cmd:(selector "allowSkews:count:") ~typ:(ptr (double) @-> ullong @-> returning (void)) x (ULLong.of_int count) -let allowSkews' x ~count ~lowerMultiplier ~lowerConstant ~upperMultiplier ~upperConstant self = msg_send ~self ~cmd:(selector "allowSkews:count:lowerMultiplier:lowerConstant:upperMultiplier:upperConstant:") ~typ:(ptr (double) @-> ullong @-> double @-> double @-> double @-> double @-> returning (void)) x (ULLong.of_int count) lowerMultiplier lowerConstant upperMultiplier upperConstant -let gradeTransform3D x self = msg_send ~self ~cmd:(selector "gradeTransform3D:") ~typ:(ptr void @-> returning (ullong)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UISUIActivityExtensionItemData.ml b/uikit_extra/UISUIActivityExtensionItemData.ml deleted file mode 100644 index a5c120fb..00000000 --- a/uikit_extra/UISUIActivityExtensionItemData.ml +++ /dev/null @@ -1,41 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISUIActivityExtensionItemData" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let addAttachmentName x ~forItem self = msg_send ~self ~cmd:(selector "addAttachmentName:forItem:") ~typ:(id @-> id @-> returning (void)) x forItem -let addDataType x ~forItem self = msg_send ~self ~cmd:(selector "addDataType:forItem:") ~typ:(id @-> id @-> returning (void)) x forItem -let addPreviewImage x ~forItem self = msg_send ~self ~cmd:(selector "addPreviewImage:forItem:") ~typ:(id @-> id @-> returning (void)) x forItem -let addPreviewImageData x ~forItem self = msg_send ~self ~cmd:(selector "addPreviewImageData:forItem:") ~typ:(id @-> id @-> returning (void)) x forItem -let addSubject x ~forItem self = msg_send ~self ~cmd:(selector "addSubject:forItem:") ~typ:(id @-> id @-> returning (void)) x forItem -let allDataTypes self = msg_send ~self ~cmd:(selector "allDataTypes") ~typ:(returning (id)) -let attachmentNameForItem x self = msg_send ~self ~cmd:(selector "attachmentNameForItem:") ~typ:(id @-> returning (id)) x -let attachmentNamesByItemUUID self = msg_send ~self ~cmd:(selector "attachmentNamesByItemUUID") ~typ:(returning (id)) -let dataTypeForItem x self = msg_send ~self ~cmd:(selector "dataTypeForItem:") ~typ:(id @-> returning (id)) x -let dataTypesByItemUUID self = msg_send ~self ~cmd:(selector "dataTypesByItemUUID") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let extensionItems self = msg_send ~self ~cmd:(selector "extensionItems") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let itemProviderOrExtensionItemWithMetadataToUUID self = msg_send ~self ~cmd:(selector "itemProviderOrExtensionItemWithMetadataToUUID") ~typ:(returning (ptr void)) -let openURLAnnotationsByURL self = msg_send ~self ~cmd:(selector "openURLAnnotationsByURL") ~typ:(returning (id)) -let prepareForSendingAsCompletionToHostWithAuditToken x self = msg_send ~self ~cmd:(selector "prepareForSendingAsCompletionToHostWithAuditToken:") ~typ:(ptr void @-> returning (void)) x -let prepareForSendingToExtension x self = msg_send ~self ~cmd:(selector "prepareForSendingToExtension:") ~typ:(id @-> returning (void)) x -let previewImageDataByItemUUID self = msg_send ~self ~cmd:(selector "previewImageDataByItemUUID") ~typ:(returning (id)) -let previewImageDataForItem x self = msg_send ~self ~cmd:(selector "previewImageDataForItem:") ~typ:(id @-> returning (id)) x -let previewImageForItem x self = msg_send ~self ~cmd:(selector "previewImageForItem:") ~typ:(id @-> returning (id)) x -let previewImagesByItemUUID self = msg_send ~self ~cmd:(selector "previewImagesByItemUUID") ~typ:(returning (id)) -let setExtensionItems x self = msg_send ~self ~cmd:(selector "setExtensionItems:") ~typ:(id @-> returning (void)) x -let setOpenURLAnnotationsByURL x self = msg_send ~self ~cmd:(selector "setOpenURLAnnotationsByURL:") ~typ:(id @-> returning (void)) x -let subjectForItem x self = msg_send ~self ~cmd:(selector "subjectForItem:") ~typ:(id @-> returning (id)) x -let subjectsByItemUUID self = msg_send ~self ~cmd:(selector "subjectsByItemUUID") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UISUIOpenInByCopySecurityScopedResource.ml b/uikit_extra/UISUIOpenInByCopySecurityScopedResource.ml deleted file mode 100644 index bd5bd7b7..00000000 --- a/uikit_extra/UISUIOpenInByCopySecurityScopedResource.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISUIOpenInByCopySecurityScopedResource" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let bookmarkExportDataEncodedAsString self = msg_send ~self ~cmd:(selector "bookmarkExportDataEncodedAsString") ~typ:(returning (id)) -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 setBookmarkExportDataEncodedAsString x self = msg_send ~self ~cmd:(selector "setBookmarkExportDataEncodedAsString:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/uikit_extra/UISUISecurityContext.ml b/uikit_extra/UISUISecurityContext.ml deleted file mode 100644 index 39a9cef3..00000000 --- a/uikit_extra/UISUISecurityContext.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISUISecurityContext" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let accessibleURLs self = msg_send ~self ~cmd:(selector "accessibleURLs") ~typ:(returning (id)) -let activate self = msg_send ~self ~cmd:(selector "activate") ~typ:(returning (void)) -let deactivate self = msg_send ~self ~cmd:(selector "deactivate") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -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 initWithSecurityScopedResources x self = msg_send ~self ~cmd:(selector "initWithSecurityScopedResources:") ~typ:(id @-> returning (id)) x -let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning (bool)) -let securityScopedResources self = msg_send ~self ~cmd:(selector "securityScopedResources") ~typ:(returning (id)) -let securityScopedResourcesMatchingPredicate x self = msg_send ~self ~cmd:(selector "securityScopedResourcesMatchingPredicate:") ~typ:(ptr void @-> returning (id)) x \ No newline at end of file diff --git a/uikit_extra/UISUISecurityScopedResource.ml b/uikit_extra/UISUISecurityScopedResource.ml deleted file mode 100644 index d21f106e..00000000 --- a/uikit_extra/UISUISecurityScopedResource.ml +++ /dev/null @@ -1,37 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISUISecurityScopedResource" - -module C = struct - let readonlySandboxExtensionClassString self = msg_send ~self ~cmd:(selector "readonlySandboxExtensionClassString") ~typ:(returning (id)) - let readwriteSandboxExtensionClassString self = msg_send ~self ~cmd:(selector "readwriteSandboxExtensionClassString") ~typ:(returning (id)) - let scopedResourceWithAbsolutePath x ~allowedAccess self = msg_send ~self ~cmd:(selector "scopedResourceWithAbsolutePath:allowedAccess:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int allowedAccess) - let scopedResourceWithFileURL x ~allowedAccess self = msg_send ~self ~cmd:(selector "scopedResourceWithFileURL:allowedAccess:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int allowedAccess) - let scopedResourceWithURL x ~allowedAccess self = msg_send ~self ~cmd:(selector "scopedResourceWithURL:allowedAccess:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int allowedAccess) - let scopedResourcesForAncestorsOfItemWithAbsolutePath x ~traversalStopPaths ~allowedAccess self = msg_send ~self ~cmd:(selector "scopedResourcesForAncestorsOfItemWithAbsolutePath:traversalStopPaths:allowedAccess:") ~typ:(id @-> id @-> llong @-> returning (id)) x traversalStopPaths (LLong.of_int allowedAccess) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) - let uniquedSecurityScopedResources x self = msg_send ~self ~cmd:(selector "uniquedSecurityScopedResources:") ~typ:(id @-> returning (id)) x -end - -let allowedAccess self = msg_send ~self ~cmd:(selector "allowedAccess") ~typ:(returning (llong)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hasActiveAccessAssertion self = msg_send ~self ~cmd:(selector "hasActiveAccessAssertion") ~typ:(returning (bool)) -let initWithAbsoluteURL x ~sandboxExtensionWrapper ~allowedAccess self = msg_send ~self ~cmd:(selector "initWithAbsoluteURL:sandboxExtensionWrapper:allowedAccess:") ~typ:(id @-> id @-> llong @-> returning (id)) x sandboxExtensionWrapper (LLong.of_int allowedAccess) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isContentManaged self = msg_send ~self ~cmd:(selector "isContentManaged") ~typ:(returning (bool)) -let sandboxExtensionWrapper self = msg_send ~self ~cmd:(selector "sandboxExtensionWrapper") ~typ:(returning (id)) -let setAllowedAccess x self = msg_send ~self ~cmd:(selector "setAllowedAccess:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setHasActiveAccessAssertion x self = msg_send ~self ~cmd:(selector "setHasActiveAccessAssertion:") ~typ:(bool @-> returning (void)) x -let setSandboxExtensionWrapper x self = msg_send ~self ~cmd:(selector "setSandboxExtensionWrapper:") ~typ:(id @-> returning (void)) x -let setUnderlyingSandboxAssertionHandle x self = msg_send ~self ~cmd:(selector "setUnderlyingSandboxAssertionHandle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let startAccessing self = msg_send ~self ~cmd:(selector "startAccessing") ~typ:(returning (bool)) -let stopAccessing self = msg_send ~self ~cmd:(selector "stopAccessing") ~typ:(returning (void)) -let underlyingSandboxAssertionHandle self = msg_send ~self ~cmd:(selector "underlyingSandboxAssertionHandle") ~typ:(returning (llong)) -let url self = msg_send ~self ~cmd:(selector "url") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UISVectorGlyphDrawing.ml b/uikit_extra/UISVectorGlyphDrawing.ml deleted file mode 100644 index 46bface0..00000000 --- a/uikit_extra/UISVectorGlyphDrawing.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UISVectorGlyphDrawing" - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let drawInContext x ~atPoint self = msg_send ~self ~cmd:(selector "drawInContext:atPoint:") ~typ:(id @-> CGPoint.t @-> returning (void)) x atPoint -let drawingSize self = msg_send_stret ~self ~cmd:(selector "drawingSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let initWithVectorGlyph x ~tintColor self = msg_send ~self ~cmd:(selector "initWithVectorGlyph:tintColor:") ~typ:(id @-> ptr void @-> returning (id)) x tintColor \ No newline at end of file diff --git a/uikit_extra/UISegmentAccessibilityButton.ml b/uikit_extra/UISegmentAccessibilityButton.ml new file mode 100644 index 00000000..4378f562 --- /dev/null +++ b/uikit_extra/UISegmentAccessibilityButton.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisegmentaccessibilitybutton?language=objc}UISegmentAccessibilityButton} *) + +let self = get_class "UISegmentAccessibilityButton" + +let hitTest x ~forEvent self = msg_send ~self ~cmd:(selector "hitTest:forEvent:") ~typ:(CGPoint.t @-> (ptr void) @-> returning id) x forEvent +let hitTest' x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let segment self = msg_send ~self ~cmd:(selector "segment") ~typ:(returning id) +let setSegment x self = msg_send ~self ~cmd:(selector "setSegment:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UISegmentAccessibilityButtonClass.ml b/uikit_extra/UISegmentAccessibilityButtonClass.ml new file mode 100644 index 00000000..6ff406aa --- /dev/null +++ b/uikit_extra/UISegmentAccessibilityButtonClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisegmentaccessibilitybutton?language=objc}UISegmentAccessibilityButton} *) + +let buttonWithSegment x self = msg_send ~self ~cmd:(selector "buttonWithSegment:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UISegmentedControlMacBezelView.ml b/uikit_extra/UISegmentedControlMacBezelView.ml new file mode 100644 index 00000000..da5f925b --- /dev/null +++ b/uikit_extra/UISegmentedControlMacBezelView.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisegmentedcontrolmacbezelview?language=objc}UISegmentedControlMacBezelView} *) + +let self = get_class "UISegmentedControlMacBezelView" + +let contentOffsetForSegment x self = msg_send ~self ~cmd:(selector "contentOffsetForSegment:") ~typ:(id @-> returning CGSize.t) x +let coreUIWidget self = msg_send ~self ~cmd:(selector "coreUIWidget") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setContentScaleFactor x self = msg_send ~self ~cmd:(selector "setContentScaleFactor:") ~typ:(double @-> returning void) x +let setCoreUIWidget x self = msg_send ~self ~cmd:(selector "setCoreUIWidget:") ~typ:(id @-> returning void) x +let updateForSegment x ~inSegmentedControl self = msg_send ~self ~cmd:(selector "updateForSegment:inSegmentedControl:") ~typ:(id @-> id @-> returning void) x inSegmentedControl \ No newline at end of file diff --git a/uikit_extra/UISegmentedControlMacBezelViewClass.ml b/uikit_extra/UISegmentedControlMacBezelViewClass.ml new file mode 100644 index 00000000..360266b0 --- /dev/null +++ b/uikit_extra/UISegmentedControlMacBezelViewClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisegmentedcontrolmacbezelview?language=objc}UISegmentedControlMacBezelView} *) + +let alignmentInsetsForControlSize x ~bounds self = msg_send ~self ~cmd:(selector "alignmentInsetsForControlSize:bounds:") ~typ:(int @-> CGRect.t @-> returning UIEdgeInsets.t) x bounds +let contentInsetsForControlSize x ~position ~bounds self = msg_send ~self ~cmd:(selector "contentInsetsForControlSize:position:bounds:") ~typ:(int @-> uint @-> CGRect.t @-> returning UIEdgeInsets.t) x position bounds +let heightForControlSize x self = msg_send ~self ~cmd:(selector "heightForControlSize:") ~typ:(int @-> returning double) x \ No newline at end of file diff --git a/uikit_extra/UISegmentedControlSpringLoadedEffect.ml b/uikit_extra/UISegmentedControlSpringLoadedEffect.ml new file mode 100644 index 00000000..62c64284 --- /dev/null +++ b/uikit_extra/UISegmentedControlSpringLoadedEffect.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisegmentedcontrolspringloadedeffect?language=objc}UISegmentedControlSpringLoadedEffect} *) + +let self = get_class "UISegmentedControlSpringLoadedEffect" + +let blinkEffect self = msg_send ~self ~cmd:(selector "blinkEffect") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let interaction x ~didChangeWithContext self = msg_send ~self ~cmd:(selector "interaction:didChangeWithContext:") ~typ:(id @-> id @-> returning void) x didChangeWithContext +let setBlinkEffect x self = msg_send ~self ~cmd:(selector "setBlinkEffect:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UISelectionFeedbackGenerator.ml b/uikit_extra/UISelectionFeedbackGenerator.ml new file mode 100644 index 00000000..118606c7 --- /dev/null +++ b/uikit_extra/UISelectionFeedbackGenerator.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiselectionfeedbackgenerator?language=objc}UISelectionFeedbackGenerator} *) + +let self = get_class "UISelectionFeedbackGenerator" + +let lastSelectionChangeTime self = msg_send ~self ~cmd:(selector "lastSelectionChangeTime") ~typ:(returning double) +let selectionChanged self = msg_send ~self ~cmd:(selector "selectionChanged") ~typ:(returning void) +let setLastSelectionChangeTime x self = msg_send ~self ~cmd:(selector "setLastSelectionChangeTime:") ~typ:(double @-> returning void) x +let userInteractionCancelled self = msg_send ~self ~cmd:(selector "userInteractionCancelled") ~typ:(returning void) +let userInteractionEnded self = msg_send ~self ~cmd:(selector "userInteractionEnded") ~typ:(returning void) +let userInteractionStarted self = msg_send ~self ~cmd:(selector "userInteractionStarted") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UISheetPresentationControllerDetent.ml b/uikit_extra/UISheetPresentationControllerDetent.ml new file mode 100644 index 00000000..942d4f1b --- /dev/null +++ b/uikit_extra/UISheetPresentationControllerDetent.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisheetpresentationcontrollerdetent?language=objc}UISheetPresentationControllerDetent} *) + +let self = get_class "UISheetPresentationControllerDetent" + +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +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 initWithType x ~identifier ~internalBlock ~constant self = msg_send ~self ~cmd:(selector "initWithType:identifier:internalBlock:constant:") ~typ:(llong @-> id @-> (ptr void) @-> double @-> returning id) (LLong.of_int x) identifier internalBlock constant +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit_extra/UISheetPresentationControllerDetentClass.ml b/uikit_extra/UISheetPresentationControllerDetentClass.ml new file mode 100644 index 00000000..0ccac6f3 --- /dev/null +++ b/uikit_extra/UISheetPresentationControllerDetentClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisheetpresentationcontrollerdetent?language=objc}UISheetPresentationControllerDetent} *) + +let largeDetent self = msg_send ~self ~cmd:(selector "largeDetent") ~typ:(returning id) +let mediumDetent self = msg_send ~self ~cmd:(selector "mediumDetent") ~typ:(returning id) +let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UISnapshottingAssertionManager.ml b/uikit_extra/UISnapshottingAssertionManager.ml new file mode 100644 index 00000000..a1041f51 --- /dev/null +++ b/uikit_extra/UISnapshottingAssertionManager.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisnapshottingassertionmanager?language=objc}UISnapshottingAssertionManager} *) + +let self = get_class "UISnapshottingAssertionManager" + +let acquireNewAssertion self = msg_send ~self ~cmd:(selector "acquireNewAssertion") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let executeIfNoActiveAssertions x self = msg_send ~self ~cmd:(selector "executeIfNoActiveAssertions:") ~typ:((ptr void) @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let relinquishAssertion x self = msg_send ~self ~cmd:(selector "relinquishAssertion:") ~typ:(id @-> returning void) x +let withLock x self = msg_send ~self ~cmd:(selector "withLock:") ~typ:((ptr void) @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UISnapshottingAssertionManagerClass.ml b/uikit_extra/UISnapshottingAssertionManagerClass.ml new file mode 100644 index 00000000..47dc84ee --- /dev/null +++ b/uikit_extra/UISnapshottingAssertionManagerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisnapshottingassertionmanager?language=objc}UISnapshottingAssertionManager} *) + +let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UISplitViewControllerClassicImpl.ml b/uikit_extra/UISplitViewControllerClassicImpl.ml new file mode 100644 index 00000000..4e381254 --- /dev/null +++ b/uikit_extra/UISplitViewControllerClassicImpl.ml @@ -0,0 +1,87 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisplitviewcontrollerclassicimpl?language=objc}UISplitViewControllerClassicImpl} *) + +let self = get_class "UISplitViewControllerClassicImpl" + +let childViewControllerForStatusBarStyle self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarStyle") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let detailViewController self = msg_send ~self ~cmd:(selector "detailViewController") ~typ:(returning id) +let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let displayMode self = msg_send ~self ~cmd:(selector "displayMode") ~typ:(returning llong) +let displayModeButtonItem self = msg_send ~self ~cmd:(selector "displayModeButtonItem") ~typ:(returning id) +let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let gutterWidth self = msg_send ~self ~cmd:(selector "gutterWidth") ~typ:(returning float) +let hidesMasterViewInLandscape self = msg_send ~self ~cmd:(selector "hidesMasterViewInLandscape") ~typ:(returning bool) +let hidesMasterViewInPortrait self = msg_send ~self ~cmd:(selector "hidesMasterViewInPortrait") ~typ:(returning bool) +let inCollapsingToProposedTopColumnCallback self = msg_send ~self ~cmd:(selector "inCollapsingToProposedTopColumnCallback") ~typ:(returning bool) +let initWithSplitViewController x self = msg_send ~self ~cmd:(selector "initWithSplitViewController:") ~typ:(id @-> returning id) x +let isCollapsed self = msg_send ~self ~cmd:(selector "isCollapsed") ~typ:(returning bool) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let lockedForDelegateCallback self = msg_send ~self ~cmd:(selector "lockedForDelegateCallback") ~typ:(returning bool) +let masterViewController self = msg_send ~self ~cmd:(selector "masterViewController") ~typ:(returning id) +let maximumPrimaryColumnWidth self = msg_send ~self ~cmd:(selector "maximumPrimaryColumnWidth") ~typ:(returning double) +let minimumPrimaryColumnWidth self = msg_send ~self ~cmd:(selector "minimumPrimaryColumnWidth") ~typ:(returning double) +let popoverWillAppear x self = msg_send ~self ~cmd:(selector "popoverWillAppear:") ~typ:(id @-> returning void) x +let preferredCenterStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredCenterStatusBarStyle") ~typ:(returning llong) +let preferredDisplayMode self = msg_send ~self ~cmd:(selector "preferredDisplayMode") ~typ:(returning llong) +let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning id) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let preferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "preferredInterfaceOrientationForPresentation") ~typ:(returning llong) +let preferredLeadingStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredLeadingStatusBarStyle") ~typ:(returning llong) +let preferredPrimaryColumnWidthFraction self = msg_send ~self ~cmd:(selector "preferredPrimaryColumnWidthFraction") ~typ:(returning double) +let preferredTrailingStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredTrailingStatusBarStyle") ~typ:(returning llong) +let prefersOverlayInRegularWidthPhone self = msg_send ~self ~cmd:(selector "prefersOverlayInRegularWidthPhone") ~typ:(returning bool) +let presentsWithGesture self = msg_send ~self ~cmd:(selector "presentsWithGesture") ~typ:(returning bool) +let primaryBackgroundStyle self = msg_send ~self ~cmd:(selector "primaryBackgroundStyle") ~typ:(returning llong) +let primaryColumnWidth self = msg_send ~self ~cmd:(selector "primaryColumnWidth") ~typ:(returning double) +let primaryEdge self = msg_send ~self ~cmd:(selector "primaryEdge") ~typ:(returning llong) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setGutterWidth x self = msg_send ~self ~cmd:(selector "setGutterWidth:") ~typ:(float @-> returning void) x +let setHidesMasterViewInPortrait x self = msg_send ~self ~cmd:(selector "setHidesMasterViewInPortrait:") ~typ:(bool @-> returning void) x +let setMaximumPrimaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMaximumPrimaryColumnWidth:") ~typ:(double @-> returning void) x +let setMinimumPrimaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMinimumPrimaryColumnWidth:") ~typ:(double @-> returning void) x +let setPreferredDisplayMode x self = msg_send ~self ~cmd:(selector "setPreferredDisplayMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPreferredPrimaryColumnWidthFraction x self = msg_send ~self ~cmd:(selector "setPreferredPrimaryColumnWidthFraction:") ~typ:(double @-> returning void) x +let setPrefersOverlayInRegularWidthPhone x self = msg_send ~self ~cmd:(selector "setPrefersOverlayInRegularWidthPhone:") ~typ:(bool @-> returning void) x +let setPresentsWithGesture x self = msg_send ~self ~cmd:(selector "setPresentsWithGesture:") ~typ:(bool @-> returning void) x +let setPrimaryBackgroundStyle x self = msg_send ~self ~cmd:(selector "setPrimaryBackgroundStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPrimaryEdge x self = msg_send ~self ~cmd:(selector "setPrimaryEdge:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setUsesDeviceOverlayPreferences x self = msg_send ~self ~cmd:(selector "setUsesDeviceOverlayPreferences:") ~typ:(bool @-> returning void) x +let setViewControllers x self = msg_send ~self ~cmd:(selector "setViewControllers:") ~typ:(id @-> returning void) x +let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning bool) x +let showDetailViewController x ~sender self = msg_send ~self ~cmd:(selector "showDetailViewController:sender:") ~typ:(id @-> id @-> returning void) x sender +let showViewController x ~sender self = msg_send ~self ~cmd:(selector "showViewController:sender:") ~typ:(id @-> id @-> returning void) x sender +let sizeForChildContentContainer x ~withParentContainerSize self = msg_send ~self ~cmd:(selector "sizeForChildContentContainer:withParentContainerSize:") ~typ:(id @-> CGSize.t @-> returning CGSize.t) x withParentContainerSize +let snapshotAllViews self = msg_send ~self ~cmd:(selector "snapshotAllViews") ~typ:(returning void) +let snapshotForRotationFromInterfaceOrientation x ~toInterfaceOrientation ~masterChange self = msg_send ~self ~cmd:(selector "snapshotForRotationFromInterfaceOrientation:toInterfaceOrientation:masterChange:") ~typ:(llong @-> llong @-> llong @-> returning void) (LLong.of_int x) (LLong.of_int toInterfaceOrientation) (LLong.of_int masterChange) +let snapshotMasterView self = msg_send ~self ~cmd:(selector "snapshotMasterView") ~typ:(returning void) +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning ullong) +let toggleMasterVisible x self = msg_send ~self ~cmd:(selector "toggleMasterVisible:") ~typ:(id @-> returning void) x +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let unloadViewForced x self = msg_send ~self ~cmd:(selector "unloadViewForced:") ~typ:(bool @-> returning void) x +let usesDeviceOverlayPreferences self = msg_send ~self ~cmd:(selector "usesDeviceOverlayPreferences") ~typ:(returning bool) +let viewControllers self = msg_send ~self ~cmd:(selector "viewControllers") ~typ:(returning id) +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning void) x withTransitionCoordinator +let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning void) x withTransitionCoordinator \ No newline at end of file diff --git a/uikit_extra/UISplitViewControllerDisplayModeBarButtonItem.ml b/uikit_extra/UISplitViewControllerDisplayModeBarButtonItem.ml new file mode 100644 index 00000000..16e44f09 --- /dev/null +++ b/uikit_extra/UISplitViewControllerDisplayModeBarButtonItem.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisplitviewcontrollerdisplaymodebarbuttonitem?language=objc}UISplitViewControllerDisplayModeBarButtonItem} *) + +let self = get_class "UISplitViewControllerDisplayModeBarButtonItem" + +let action self = msg_send ~self ~cmd:(selector "action") ~typ:(returning _SEL) +let target self = msg_send ~self ~cmd:(selector "target") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UISplitViewControllerPanelImpl.ml b/uikit_extra/UISplitViewControllerPanelImpl.ml new file mode 100644 index 00000000..5d6e5a1e --- /dev/null +++ b/uikit_extra/UISplitViewControllerPanelImpl.ml @@ -0,0 +1,168 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisplitviewcontrollerpanelimpl?language=objc}UISplitViewControllerPanelImpl} *) + +let self = get_class "UISplitViewControllerPanelImpl" + +let allowedDisplayModeForCurrentSplitBehaviorGivenDisplayMode x self = msg_send ~self ~cmd:(selector "allowedDisplayModeForCurrentSplitBehaviorGivenDisplayMode:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let allowsSecondaryOnlyShortcutButton self = msg_send ~self ~cmd:(selector "allowsSecondaryOnlyShortcutButton") ~typ:(returning bool) +let animateToRequest x self = msg_send ~self ~cmd:(selector "animateToRequest:") ~typ:(id @-> returning void) x +let callDeprecatedWillHideDelegateCallbackIfNecessary self = msg_send ~self ~cmd:(selector "callDeprecatedWillHideDelegateCallbackIfNecessary") ~typ:(returning void) +let callDeprecatedWillShowDelegateCallbackIfNecessary self = msg_send ~self ~cmd:(selector "callDeprecatedWillShowDelegateCallbackIfNecessary") ~typ:(returning void) +let childViewControllerForStatusBarStyle self = msg_send ~self ~cmd:(selector "childViewControllerForStatusBarStyle") ~typ:(returning id) +let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning id) +let currentState self = msg_send ~self ~cmd:(selector "currentState") ~typ:(returning id) +let decodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "decodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let defaultDisplayModeForSize x self = msg_send ~self ~cmd:(selector "defaultDisplayModeForSize:") ~typ:(CGSize.t @-> returning llong) x +let defaultDisplayModeForSplitBehavior x self = msg_send ~self ~cmd:(selector "defaultDisplayModeForSplitBehavior:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let detailViewController self = msg_send ~self ~cmd:(selector "detailViewController") ~typ:(returning id) +let didRotateFromInterfaceOrientation x self = msg_send ~self ~cmd:(selector "didRotateFromInterfaceOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let dimmingViewWasTapped x self = msg_send ~self ~cmd:(selector "dimmingViewWasTapped:") ~typ:(id @-> returning void) x +let displayMode self = msg_send ~self ~cmd:(selector "displayMode") ~typ:(returning llong) +let displayModeButtonItem self = msg_send ~self ~cmd:(selector "displayModeButtonItem") ~typ:(returning id) +let displayModeButtonVisibility self = msg_send ~self ~cmd:(selector "displayModeButtonVisibility") ~typ:(returning llong) +let encodeRestorableStateWithCoder x self = msg_send ~self ~cmd:(selector "encodeRestorableStateWithCoder:") ~typ:(id @-> returning void) x +let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x +let gestureRecognizer x ~shouldBeRequiredToFailByGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldBeRequiredToFailByGestureRecognizer +let gestureRecognizer1 x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning bool) x shouldReceiveTouch +let gestureRecognizer2 x ~shouldRequireFailureOfGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRequireFailureOfGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldRequireFailureOfGestureRecognizer +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let getPrimaryColumnWidth x ~supplementaryColumnWidth ~forSize ~displayMode ~shouldUseOverlay self = msg_send ~self ~cmd:(selector "getPrimaryColumnWidth:supplementaryColumnWidth:forSize:displayMode:shouldUseOverlay:") ~typ:((ptr double) @-> (ptr double) @-> CGSize.t @-> llong @-> bool @-> returning void) x supplementaryColumnWidth forSize (LLong.of_int displayMode) shouldUseOverlay +let getPrimaryColumnWidth' x ~supplementaryColumnWidth ~forSize ~displayMode ~isCompact ~shouldUseOverlay self = msg_send ~self ~cmd:(selector "getPrimaryColumnWidth:supplementaryColumnWidth:forSize:displayMode:isCompact:shouldUseOverlay:") ~typ:((ptr double) @-> (ptr double) @-> CGSize.t @-> llong @-> bool @-> bool @-> returning void) x supplementaryColumnWidth forSize (LLong.of_int displayMode) isCompact shouldUseOverlay +let gutterWidth self = msg_send ~self ~cmd:(selector "gutterWidth") ~typ:(returning float) +let hideColumn x self = msg_send ~self ~cmd:(selector "hideColumn:") ~typ:(llong @-> returning void) (LLong.of_int x) +let hidesMasterViewInPortrait self = msg_send ~self ~cmd:(selector "hidesMasterViewInPortrait") ~typ:(returning bool) +let inCollapsingToProposedTopColumnCallback self = msg_send ~self ~cmd:(selector "inCollapsingToProposedTopColumnCallback") ~typ:(returning bool) +let initWithSplitViewController x self = msg_send ~self ~cmd:(selector "initWithSplitViewController:") ~typ:(id @-> returning id) x +let isCollapsed self = msg_send ~self ~cmd:(selector "isCollapsed") ~typ:(returning bool) +let loadView self = msg_send ~self ~cmd:(selector "loadView") ~typ:(returning void) +let lockedForDelegateCallback self = msg_send ~self ~cmd:(selector "lockedForDelegateCallback") ~typ:(returning bool) +let masterViewController self = msg_send ~self ~cmd:(selector "masterViewController") ~typ:(returning id) +let maximumPrimaryColumnWidth self = msg_send ~self ~cmd:(selector "maximumPrimaryColumnWidth") ~typ:(returning double) +let maximumSupplementaryColumnWidth self = msg_send ~self ~cmd:(selector "maximumSupplementaryColumnWidth") ~typ:(returning double) +let minimumPrimaryColumnWidth self = msg_send ~self ~cmd:(selector "minimumPrimaryColumnWidth") ~typ:(returning double) +let minimumSupplementaryColumnWidth self = msg_send ~self ~cmd:(selector "minimumSupplementaryColumnWidth") ~typ:(returning double) +let panelController self = msg_send ~self ~cmd:(selector "panelController") ~typ:(returning id) +let panelController1 x ~collapseOntoPrimaryViewController self = msg_send ~self ~cmd:(selector "panelController:collapseOntoPrimaryViewController:") ~typ:(id @-> id @-> returning bool) x collapseOntoPrimaryViewController +let panelController2 x ~didEndAnimatedTransitionToStateRequest self = msg_send ~self ~cmd:(selector "panelController:didEndAnimatedTransitionToStateRequest:") ~typ:(id @-> id @-> returning void) x didEndAnimatedTransitionToStateRequest +let panelController3 x ~didEndResizingColumn self = msg_send ~self ~cmd:(selector "panelController:didEndResizingColumn:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int didEndResizingColumn) +let panelController4 x ~expectedWidthForColumnForViewController self = msg_send ~self ~cmd:(selector "panelController:expectedWidthForColumnForViewController:") ~typ:(id @-> id @-> returning double) x expectedWidthForColumnForViewController +let panelController5 x ~navigationBarForViewController self = msg_send ~self ~cmd:(selector "panelController:navigationBarForViewController:") ~typ:(id @-> id @-> returning id) x navigationBarForViewController +let panelController6 x ~separateSecondaryViewControllerFromPrimaryViewController self = msg_send ~self ~cmd:(selector "panelController:separateSecondaryViewControllerFromPrimaryViewController:") ~typ:(id @-> id @-> returning id) x separateSecondaryViewControllerFromPrimaryViewController +let panelController7 x ~separateSupplementaryViewControllerFromPrimaryViewController self = msg_send ~self ~cmd:(selector "panelController:separateSupplementaryViewControllerFromPrimaryViewController:") ~typ:(id @-> id @-> returning id) x separateSupplementaryViewControllerFromPrimaryViewController +let panelController8 x ~unspecifiedStyleSeparateSecondaryViewControllerFromPrimaryViewController self = msg_send ~self ~cmd:(selector "panelController:unspecifiedStyleSeparateSecondaryViewControllerFromPrimaryViewController:") ~typ:(id @-> id @-> returning id) x unspecifiedStyleSeparateSecondaryViewControllerFromPrimaryViewController +let panelController9 x ~willBeginResizingColumn self = msg_send ~self ~cmd:(selector "panelController:willBeginResizingColumn:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int willBeginResizingColumn) +let panelController10 x ~willChangeToState self = msg_send ~self ~cmd:(selector "panelController:willChangeToState:") ~typ:(id @-> id @-> returning void) x willChangeToState +let panelController11 x ~adjustLeadingViewController ~forKeyboardInfo self = msg_send ~self ~cmd:(selector "panelController:adjustLeadingViewController:forKeyboardInfo:") ~typ:(id @-> id @-> id @-> returning void) x adjustLeadingViewController forKeyboardInfo +let panelController12 x ~adjustTrailingViewController ~forKeyboardInfo self = msg_send ~self ~cmd:(selector "panelController:adjustTrailingViewController:forKeyboardInfo:") ~typ:(id @-> id @-> id @-> returning void) x adjustTrailingViewController forKeyboardInfo +let panelController13 x ~didChangeToState ~withSize self = msg_send ~self ~cmd:(selector "panelController:didChangeToState:withSize:") ~typ:(id @-> id @-> CGSize.t @-> returning void) x didChangeToState withSize +let panelController14 x ~requestResizeColumn ~toWidth self = msg_send ~self ~cmd:(selector "panelController:requestResizeColumn:toWidth:") ~typ:(id @-> llong @-> double @-> returning void) x (LLong.of_int requestResizeColumn) toWidth +let panelController15 x ~animateTransitionToStateRequest ~predictedEndState ~predictedDuration self = msg_send ~self ~cmd:(selector "panelController:animateTransitionToStateRequest:predictedEndState:predictedDuration:") ~typ:(id @-> id @-> id @-> double @-> returning void) x animateTransitionToStateRequest predictedEndState predictedDuration +let panelController16 x ~collapsePrimaryViewController ~withFallbackSecondaryViewController ~transitionCoordinator self = msg_send ~self ~cmd:(selector "panelController:collapsePrimaryViewController:withFallbackSecondaryViewController:transitionCoordinator:") ~typ:(id @-> id @-> id @-> id @-> returning void) x collapsePrimaryViewController withFallbackSecondaryViewController transitionCoordinator +let panelController17 x ~willBeginAnimatedTransitionToStateRequest ~predictedEndState ~predictedDuration self = msg_send ~self ~cmd:(selector "panelController:willBeginAnimatedTransitionToStateRequest:predictedEndState:predictedDuration:") ~typ:(id @-> id @-> id @-> double @-> returning void) x willBeginAnimatedTransitionToStateRequest predictedEndState predictedDuration +let panelController18 x ~willBeginAnimationToPrimarySize ~supplementarySize ~secondarySize self = msg_send ~self ~cmd:(selector "panelController:willBeginAnimationToPrimarySize:supplementarySize:secondarySize:") ~typ:(id @-> CGSize.t @-> CGSize.t @-> CGSize.t @-> returning void) x willBeginAnimationToPrimarySize supplementarySize secondarySize +let panelController19 x ~collapsePrimaryViewController ~withFallbackSecondaryViewController ~onTopOfSupplementaryViewController ~transitionCoordinator self = msg_send ~self ~cmd:(selector "panelController:collapsePrimaryViewController:withFallbackSecondaryViewController:onTopOfSupplementaryViewController:transitionCoordinator:") ~typ:(id @-> id @-> id @-> id @-> id @-> returning bool) x collapsePrimaryViewController withFallbackSecondaryViewController onTopOfSupplementaryViewController transitionCoordinator +let panelControllerDidCollapse x self = msg_send ~self ~cmd:(selector "panelControllerDidCollapse:") ~typ:(id @-> returning void) x +let panelControllerDidExpand x self = msg_send ~self ~cmd:(selector "panelControllerDidExpand:") ~typ:(id @-> returning void) x +let panelControllerWillUpdate x self = msg_send ~self ~cmd:(selector "panelControllerWillUpdate:") ~typ:(id @-> returning (ptr void)) x +let possibleStates self = msg_send ~self ~cmd:(selector "possibleStates") ~typ:(returning id) +let preferredCenterStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredCenterStatusBarStyle") ~typ:(returning llong) +let preferredContentSizeDidChangeForChildContentContainer x self = msg_send ~self ~cmd:(selector "preferredContentSizeDidChangeForChildContentContainer:") ~typ:(id @-> returning void) x +let preferredDisplayMode self = msg_send ~self ~cmd:(selector "preferredDisplayMode") ~typ:(returning llong) +let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning id) +let preferredFocusedView self = msg_send ~self ~cmd:(selector "preferredFocusedView") ~typ:(returning id) +let preferredInterfaceOrientationForPresentation self = msg_send ~self ~cmd:(selector "preferredInterfaceOrientationForPresentation") ~typ:(returning llong) +let preferredLeadingStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredLeadingStatusBarStyle") ~typ:(returning llong) +let preferredPrimaryColumnWidth self = msg_send ~self ~cmd:(selector "preferredPrimaryColumnWidth") ~typ:(returning double) +let preferredPrimaryColumnWidthFraction self = msg_send ~self ~cmd:(selector "preferredPrimaryColumnWidthFraction") ~typ:(returning double) +let preferredSplitBehavior self = msg_send ~self ~cmd:(selector "preferredSplitBehavior") ~typ:(returning llong) +let preferredSupplementaryColumnWidth self = msg_send ~self ~cmd:(selector "preferredSupplementaryColumnWidth") ~typ:(returning double) +let preferredSupplementaryColumnWidthFraction self = msg_send ~self ~cmd:(selector "preferredSupplementaryColumnWidthFraction") ~typ:(returning double) +let preferredTrailingStatusBarStyle self = msg_send ~self ~cmd:(selector "preferredTrailingStatusBarStyle") ~typ:(returning llong) +let prefersOverlayInRegularWidthPhone self = msg_send ~self ~cmd:(selector "prefersOverlayInRegularWidthPhone") ~typ:(returning bool) +let preparePanelControllerForCollapse self = msg_send ~self ~cmd:(selector "preparePanelControllerForCollapse") ~typ:(returning void) +let presentsWithGesture self = msg_send ~self ~cmd:(selector "presentsWithGesture") ~typ:(returning bool) +let primaryBackgroundStyle self = msg_send ~self ~cmd:(selector "primaryBackgroundStyle") ~typ:(returning llong) +let primaryColumnWidth self = msg_send ~self ~cmd:(selector "primaryColumnWidth") ~typ:(returning double) +let primaryEdge self = msg_send ~self ~cmd:(selector "primaryEdge") ~typ:(returning llong) +let primaryViewControllerForCollapsingPanelController x self = msg_send ~self ~cmd:(selector "primaryViewControllerForCollapsingPanelController:") ~typ:(id @-> returning id) x +let primaryViewControllerForExpandingPanelController x self = msg_send ~self ~cmd:(selector "primaryViewControllerForExpandingPanelController:") ~typ:(id @-> returning id) x +let removeChildViewController x self = msg_send ~self ~cmd:(selector "removeChildViewController:") ~typ:(id @-> returning void) x +let sendColumnShowHideNotificationsForNewState x ~newDisplayMode ~oldDisplayMode self = msg_send ~self ~cmd:(selector "sendColumnShowHideNotificationsForNewState:newDisplayMode:oldDisplayMode:") ~typ:(id @-> llong @-> llong @-> returning void) x (LLong.of_int newDisplayMode) (LLong.of_int oldDisplayMode) +let sendWillHideColumn x self = msg_send ~self ~cmd:(selector "sendWillHideColumn:") ~typ:(llong @-> returning void) (LLong.of_int x) +let sendWillShowColumn x self = msg_send ~self ~cmd:(selector "sendWillShowColumn:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setConfiguration x self = msg_send ~self ~cmd:(selector "setConfiguration:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setDisplayModeButtonVisibility x self = msg_send ~self ~cmd:(selector "setDisplayModeButtonVisibility:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setGutterWidth x self = msg_send ~self ~cmd:(selector "setGutterWidth:") ~typ:(float @-> returning void) x +let setHidesMasterViewInPortrait x self = msg_send ~self ~cmd:(selector "setHidesMasterViewInPortrait:") ~typ:(bool @-> returning void) x +let setMaximumPrimaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMaximumPrimaryColumnWidth:") ~typ:(double @-> returning void) x +let setMaximumSupplementaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMaximumSupplementaryColumnWidth:") ~typ:(double @-> returning void) x +let setMinimumPrimaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMinimumPrimaryColumnWidth:") ~typ:(double @-> returning void) x +let setMinimumSupplementaryColumnWidth x self = msg_send ~self ~cmd:(selector "setMinimumSupplementaryColumnWidth:") ~typ:(double @-> returning void) x +let setPanelController x self = msg_send ~self ~cmd:(selector "setPanelController:") ~typ:(id @-> returning void) x +let setPreferredDisplayMode x self = msg_send ~self ~cmd:(selector "setPreferredDisplayMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPreferredPrimaryColumnWidth x self = msg_send ~self ~cmd:(selector "setPreferredPrimaryColumnWidth:") ~typ:(double @-> returning void) x +let setPreferredPrimaryColumnWidthFraction x self = msg_send ~self ~cmd:(selector "setPreferredPrimaryColumnWidthFraction:") ~typ:(double @-> returning void) x +let setPreferredSplitBehavior x self = msg_send ~self ~cmd:(selector "setPreferredSplitBehavior:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPreferredSupplementaryColumnWidth x self = msg_send ~self ~cmd:(selector "setPreferredSupplementaryColumnWidth:") ~typ:(double @-> returning void) x +let setPreferredSupplementaryColumnWidthFraction x self = msg_send ~self ~cmd:(selector "setPreferredSupplementaryColumnWidthFraction:") ~typ:(double @-> returning void) x +let setPrefersOverlayInRegularWidthPhone x self = msg_send ~self ~cmd:(selector "setPrefersOverlayInRegularWidthPhone:") ~typ:(bool @-> returning void) x +let setPresentsWithGesture x self = msg_send ~self ~cmd:(selector "setPresentsWithGesture:") ~typ:(bool @-> returning void) x +let setPrimaryBackgroundStyle x self = msg_send ~self ~cmd:(selector "setPrimaryBackgroundStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPrimaryEdge x self = msg_send ~self ~cmd:(selector "setPrimaryEdge:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setShowsSecondaryOnlyButton x self = msg_send ~self ~cmd:(selector "setShowsSecondaryOnlyButton:") ~typ:(bool @-> returning void) x +let setStateRequest x self = msg_send ~self ~cmd:(selector "setStateRequest:") ~typ:(id @-> returning void) x +let setStyle x self = msg_send ~self ~cmd:(selector "setStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setUserGeneratedDisplayMode x self = msg_send ~self ~cmd:(selector "setUserGeneratedDisplayMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setUsesDeviceOverlayPreferences x self = msg_send ~self ~cmd:(selector "setUsesDeviceOverlayPreferences:") ~typ:(bool @-> returning void) x +let setViewController x ~forColumn self = msg_send ~self ~cmd:(selector "setViewController:forColumn:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forColumn) +let setViewControllers x self = msg_send ~self ~cmd:(selector "setViewControllers:") ~typ:(id @-> returning void) x +let shouldAutorotateToInterfaceOrientation x self = msg_send ~self ~cmd:(selector "shouldAutorotateToInterfaceOrientation:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let shouldUpdateFocusInContext x self = msg_send ~self ~cmd:(selector "shouldUpdateFocusInContext:") ~typ:(id @-> returning bool) x +let showColumn x self = msg_send ~self ~cmd:(selector "showColumn:") ~typ:(llong @-> returning void) (LLong.of_int x) +let showDetailViewController x ~sender self = msg_send ~self ~cmd:(selector "showDetailViewController:sender:") ~typ:(id @-> id @-> returning void) x sender +let showViewController x ~sender self = msg_send ~self ~cmd:(selector "showViewController:sender:") ~typ:(id @-> id @-> returning void) x sender +let showsSecondaryOnlyButton self = msg_send ~self ~cmd:(selector "showsSecondaryOnlyButton") ~typ:(returning bool) +let sidebarBlurEffectForPanelController x self = msg_send ~self ~cmd:(selector "sidebarBlurEffectForPanelController:") ~typ:(id @-> returning id) x +let sizeForChildContentContainer x ~withParentContainerSize self = msg_send ~self ~cmd:(selector "sizeForChildContentContainer:withParentContainerSize:") ~typ:(id @-> CGSize.t @-> returning CGSize.t) x withParentContainerSize +let splitBehavior self = msg_send ~self ~cmd:(selector "splitBehavior") ~typ:(returning llong) +let splitBehaviorForSize x self = msg_send ~self ~cmd:(selector "splitBehaviorForSize:") ~typ:(CGSize.t @-> returning llong) x +let splitBehaviorInCurrentEnvironment self = msg_send ~self ~cmd:(selector "splitBehaviorInCurrentEnvironment") ~typ:(returning llong) +let stateRequest self = msg_send ~self ~cmd:(selector "stateRequest") ~typ:(returning id) +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) +let supplementaryColumnWidth self = msg_send ~self ~cmd:(selector "supplementaryColumnWidth") ~typ:(returning double) +let supportedInterfaceOrientations self = msg_send ~self ~cmd:(selector "supportedInterfaceOrientations") ~typ:(returning ullong) +let toggleMasterVisible x self = msg_send ~self ~cmd:(selector "toggleMasterVisible:") ~typ:(id @-> returning void) x +let topColumnForCollapsingPanelController x self = msg_send ~self ~cmd:(selector "topColumnForCollapsingPanelController:") ~typ:(id @-> returning llong) x +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let transitionCoordinator self = msg_send ~self ~cmd:(selector "transitionCoordinator") ~typ:(returning id) +let unloadViewForced x self = msg_send ~self ~cmd:(selector "unloadViewForced:") ~typ:(bool @-> returning void) x +let updateDisplayModeButtonItem self = msg_send ~self ~cmd:(selector "updateDisplayModeButtonItem") ~typ:(returning void) +let updatePanelControllerForViewControllerChangeInColumn x self = msg_send ~self ~cmd:(selector "updatePanelControllerForViewControllerChangeInColumn:") ~typ:(llong @-> returning void) (LLong.of_int x) +let updatePanelControllerForViewControllerChangeInColumn' x ~alwaysAnimate self = msg_send ~self ~cmd:(selector "updatePanelControllerForViewControllerChangeInColumn:alwaysAnimate:") ~typ:(llong @-> bool @-> returning void) (LLong.of_int x) alwaysAnimate +let userGeneratedDisplayMode self = msg_send ~self ~cmd:(selector "userGeneratedDisplayMode") ~typ:(returning llong) +let usesDeviceOverlayPreferences self = msg_send ~self ~cmd:(selector "usesDeviceOverlayPreferences") ~typ:(returning bool) +let validDisplayModeWithAllColumns self = msg_send ~self ~cmd:(selector "validDisplayModeWithAllColumns") ~typ:(returning llong) +let viewClassForPanelController x self = msg_send ~self ~cmd:(selector "viewClassForPanelController:") ~typ:(id @-> returning _Class) x +let viewControllerForColumn x self = msg_send ~self ~cmd:(selector "viewControllerForColumn:") ~typ:(llong @-> returning id) (LLong.of_int x) +let viewControllers self = msg_send ~self ~cmd:(selector "viewControllers") ~typ:(returning id) +let viewDidAppear x self = msg_send ~self ~cmd:(selector "viewDidAppear:") ~typ:(bool @-> returning void) x +let viewDidDisappear x self = msg_send ~self ~cmd:(selector "viewDidDisappear:") ~typ:(bool @-> returning void) x +let viewDidLayoutSubviews self = msg_send ~self ~cmd:(selector "viewDidLayoutSubviews") ~typ:(returning void) +let viewWillAppear x self = msg_send ~self ~cmd:(selector "viewWillAppear:") ~typ:(bool @-> returning void) x +let viewWillDisappear x self = msg_send ~self ~cmd:(selector "viewWillDisappear:") ~typ:(bool @-> returning void) x +let viewWillTransitionToSize x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "viewWillTransitionToSize:withTransitionCoordinator:") ~typ:(CGSize.t @-> id @-> returning void) x withTransitionCoordinator +let willAnimateRotationToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willAnimateRotationToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willRotateToInterfaceOrientation x ~duration self = msg_send ~self ~cmd:(selector "willRotateToInterfaceOrientation:duration:") ~typ:(llong @-> double @-> returning void) (LLong.of_int x) duration +let willTransitionToTraitCollection x ~withTransitionCoordinator self = msg_send ~self ~cmd:(selector "willTransitionToTraitCollection:withTransitionCoordinator:") ~typ:(id @-> id @-> returning void) x withTransitionCoordinator \ No newline at end of file diff --git a/uikit_extra/UISplitViewControllerSeparatorTrackingAdapter.ml b/uikit_extra/UISplitViewControllerSeparatorTrackingAdapter.ml new file mode 100644 index 00000000..8298ea6a --- /dev/null +++ b/uikit_extra/UISplitViewControllerSeparatorTrackingAdapter.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisplitviewcontrollerseparatortrackingadapter?language=objc}UISplitViewControllerSeparatorTrackingAdapter} *) + +let self = get_class "UISplitViewControllerSeparatorTrackingAdapter" + +let initWithSplitViewController x self = msg_send ~self ~cmd:(selector "initWithSplitViewController:") ~typ:(id @-> returning id) x +let isSidebar self = msg_send ~self ~cmd:(selector "isSidebar") ~typ:(returning bool) +let setSplitViewController x self = msg_send ~self ~cmd:(selector "setSplitViewController:") ~typ:(id @-> returning void) x +let splitFrame self = msg_send ~self ~cmd:(selector "splitFrame") ~typ:(returning CGRect.t) +let splitViewController self = msg_send ~self ~cmd:(selector "splitViewController") ~typ:(returning id) +let titlebarSeparatorStyle self = msg_send ~self ~cmd:(selector "titlebarSeparatorStyle") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit_extra/UISpringLoadedInteractionContextImpl.ml b/uikit_extra/UISpringLoadedInteractionContextImpl.ml new file mode 100644 index 00000000..c61dd9e4 --- /dev/null +++ b/uikit_extra/UISpringLoadedInteractionContextImpl.ml @@ -0,0 +1,28 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uispringloadedinteractioncontextimpl?language=objc}UISpringLoadedInteractionContextImpl} *) + +let self = get_class "UISpringLoadedInteractionContextImpl" + +let currentRecognizer self = msg_send ~self ~cmd:(selector "currentRecognizer") ~typ:(returning id) +let dropSession self = msg_send ~self ~cmd:(selector "dropSession") ~typ:(returning id) +let locationInView x self = msg_send ~self ~cmd:(selector "locationInView:") ~typ:(id @-> returning CGPoint.t) x +let overrideTargetItem self = msg_send ~self ~cmd:(selector "overrideTargetItem") ~typ:(returning id) +let overrideTargetView self = msg_send ~self ~cmd:(selector "overrideTargetView") ~typ:(returning id) +let setCurrentRecognizer x self = msg_send ~self ~cmd:(selector "setCurrentRecognizer:") ~typ:(id @-> returning void) x +let setOverrideTargetItem x self = msg_send ~self ~cmd:(selector "setOverrideTargetItem:") ~typ:(id @-> returning void) x +let setOverrideTargetView x self = msg_send ~self ~cmd:(selector "setOverrideTargetView:") ~typ:(id @-> returning void) x +let setState x self = msg_send ~self ~cmd:(selector "setState:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setTargetItem x self = msg_send ~self ~cmd:(selector "setTargetItem:") ~typ:(id @-> returning void) x +let setTargetView x self = msg_send ~self ~cmd:(selector "setTargetView:") ~typ:(id @-> returning void) x +let state self = msg_send ~self ~cmd:(selector "state") ~typ:(returning llong) +let targetItem self = msg_send ~self ~cmd:(selector "targetItem") ~typ:(returning id) +let targetView self = msg_send ~self ~cmd:(selector "targetView") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarActivityItemView.ml b/uikit_extra/UIStatusBarActivityItemView.ml new file mode 100644 index 00000000..218f15a7 --- /dev/null +++ b/uikit_extra/UIStatusBarActivityItemView.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbaractivityitemview?language=objc}UIStatusBarActivityItemView} *) + +let self = get_class "UIStatusBarActivityItemView" + +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let setVisible x self = msg_send ~self ~cmd:(selector "setVisible:") ~typ:(bool @-> returning void) x +let shadowPadding self = msg_send ~self ~cmd:(selector "shadowPadding") ~typ:(returning double) +let updateContentsAndWidth self = msg_send ~self ~cmd:(selector "updateContentsAndWidth") ~typ:(returning double) +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBarAirplaneModeItemView.ml b/uikit_extra/UIStatusBarAirplaneModeItemView.ml new file mode 100644 index 00000000..5f22a59f --- /dev/null +++ b/uikit_extra/UIStatusBarAirplaneModeItemView.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarairplanemodeitemview?language=objc}UIStatusBarAirplaneModeItemView} *) + +let self = get_class "UIStatusBarAirplaneModeItemView" + +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let setVisible x ~frame ~duration self = msg_send ~self ~cmd:(selector "setVisible:frame:duration:") ~typ:(bool @-> CGRect.t @-> double @-> returning void) x frame duration \ No newline at end of file diff --git a/uikit_extra/UIStatusBarAnimationParameters.ml b/uikit_extra/UIStatusBarAnimationParameters.ml new file mode 100644 index 00000000..7737ce33 --- /dev/null +++ b/uikit_extra/UIStatusBarAnimationParameters.ml @@ -0,0 +1,31 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbaranimationparameters?language=objc}UIStatusBarAnimationParameters} *) + +let self = get_class "UIStatusBarAnimationParameters" + +let animationFactory self = msg_send ~self ~cmd:(selector "animationFactory") ~typ:(returning id) +let bsAnimationSettings self = msg_send ~self ~cmd:(selector "bsAnimationSettings") ~typ:(returning id) +let curve self = msg_send ~self ~cmd:(selector "curve") ~typ:(returning llong) +let delay self = msg_send ~self ~cmd:(selector "delay") ~typ:(returning double) +let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning double) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithDefaultParameters self = msg_send ~self ~cmd:(selector "initWithDefaultParameters") ~typ:(returning id) +let initWithEmptyParameters self = msg_send ~self ~cmd:(selector "initWithEmptyParameters") ~typ:(returning id) +let setAnimationFactory x self = msg_send ~self ~cmd:(selector "setAnimationFactory:") ~typ:(id @-> returning void) x +let setCurve x self = msg_send ~self ~cmd:(selector "setCurve:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setDelay x self = msg_send ~self ~cmd:(selector "setDelay:") ~typ:(double @-> returning void) x +let setDuration x self = msg_send ~self ~cmd:(selector "setDuration:") ~typ:(double @-> returning void) x +let setSkipFencing x self = msg_send ~self ~cmd:(selector "setSkipFencing:") ~typ:(bool @-> returning void) x +let setStartTime x self = msg_send ~self ~cmd:(selector "setStartTime:") ~typ:(double @-> returning void) x +let shouldAnimate self = msg_send ~self ~cmd:(selector "shouldAnimate") ~typ:(returning bool) +let skipFencing self = msg_send ~self ~cmd:(selector "skipFencing") ~typ:(returning bool) +let startTime self = msg_send ~self ~cmd:(selector "startTime") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarAnimationParametersClass.ml b/uikit_extra/UIStatusBarAnimationParametersClass.ml new file mode 100644 index 00000000..61e4a152 --- /dev/null +++ b/uikit_extra/UIStatusBarAnimationParametersClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbaranimationparameters?language=objc}UIStatusBarAnimationParameters} *) + +let animateWithParameters x ~animations ~completion self = msg_send ~self ~cmd:(selector "animateWithParameters:animations:completion:") ~typ:(id @-> (ptr void) @-> (ptr void) @-> returning void) x animations completion +let animateWithParameters1 x ~fromCurrentState ~animations ~completion self = msg_send ~self ~cmd:(selector "animateWithParameters:fromCurrentState:animations:completion:") ~typ:(id @-> bool @-> (ptr void) @-> (ptr void) @-> returning void) x fromCurrentState animations completion +let animateWithParameters2 x ~fromCurrentState ~frameInterval ~animations ~completion self = msg_send ~self ~cmd:(selector "animateWithParameters:fromCurrentState:frameInterval:animations:completion:") ~typ:(id @-> bool @-> double @-> (ptr void) @-> (ptr void) @-> returning void) x fromCurrentState frameInterval animations completion +let fencingAnimation self = msg_send ~self ~cmd:(selector "fencingAnimation") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarBackgroundView.ml b/uikit_extra/UIStatusBarBackgroundView.ml new file mode 100644 index 00000000..6d09cda1 --- /dev/null +++ b/uikit_extra/UIStatusBarBackgroundView.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarbackgroundview?language=objc}UIStatusBarBackgroundView} *) + +let self = get_class "UIStatusBarBackgroundView" + +let initWithFrame x ~style ~backgroundColor self = msg_send ~self ~cmd:(selector "initWithFrame:style:backgroundColor:") ~typ:(CGRect.t @-> id @-> id @-> returning id) x style backgroundColor +let setGlowAnimationEnabled x self = msg_send ~self ~cmd:(selector "setGlowAnimationEnabled:") ~typ:(bool @-> returning void) x +let setSuppressesGlow x self = msg_send ~self ~cmd:(selector "setSuppressesGlow:") ~typ:(bool @-> returning void) x +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarBatteryItemView.ml b/uikit_extra/UIStatusBarBatteryItemView.ml new file mode 100644 index 00000000..622158b6 --- /dev/null +++ b/uikit_extra/UIStatusBarBatteryItemView.ml @@ -0,0 +1,33 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarbatteryitemview?language=objc}UIStatusBarBatteryItemView} *) + +let self = get_class "UIStatusBarBatteryItemView" + +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let cachedAXHUDCapacity self = msg_send ~self ~cmd:(selector "cachedAXHUDCapacity") ~typ:(returning int) +let cachedAXHUDImage self = msg_send ~self ~cmd:(selector "cachedAXHUDImage") ~typ:(returning id) +let cachedAXHUDStyle self = msg_send ~self ~cmd:(selector "cachedAXHUDStyle") ~typ:(returning ullong) +let cachedBatteryStyle self = msg_send ~self ~cmd:(selector "cachedBatteryStyle") ~typ:(returning ullong) +let cachedCapacity self = msg_send ~self ~cmd:(selector "cachedCapacity") ~typ:(returning int) +let cachedImageHasAccessoryImage self = msg_send ~self ~cmd:(selector "cachedImageHasAccessoryImage") ~typ:(returning bool) +let cachedImageSet self = msg_send ~self ~cmd:(selector "cachedImageSet") ~typ:(returning id) +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning double) +let legibilityStrength self = msg_send ~self ~cmd:(selector "legibilityStrength") ~typ:(returning double) +let setCachedAXHUDCapacity x self = msg_send ~self ~cmd:(selector "setCachedAXHUDCapacity:") ~typ:(int @-> returning void) x +let setCachedAXHUDImage x self = msg_send ~self ~cmd:(selector "setCachedAXHUDImage:") ~typ:(id @-> returning void) x +let setCachedAXHUDStyle x self = msg_send ~self ~cmd:(selector "setCachedAXHUDStyle:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setCachedBatteryStyle x self = msg_send ~self ~cmd:(selector "setCachedBatteryStyle:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setCachedCapacity x self = msg_send ~self ~cmd:(selector "setCachedCapacity:") ~typ:(int @-> returning void) x +let setCachedImageHasAccessoryImage x self = msg_send ~self ~cmd:(selector "setCachedImageHasAccessoryImage:") ~typ:(bool @-> returning void) x +let setCachedImageSet x self = msg_send ~self ~cmd:(selector "setCachedImageSet:") ~typ:(id @-> returning void) x +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBarBatteryPercentItemView.ml b/uikit_extra/UIStatusBarBatteryPercentItemView.ml new file mode 100644 index 00000000..8d6452a9 --- /dev/null +++ b/uikit_extra/UIStatusBarBatteryPercentItemView.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarbatterypercentitemview?language=objc}UIStatusBarBatteryPercentItemView} *) + +let self = get_class "UIStatusBarBatteryPercentItemView" + +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let animatesDataChange self = msg_send ~self ~cmd:(selector "animatesDataChange") ~typ:(returning bool) +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning double) +let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning llong) +let textStyle self = msg_send ~self ~cmd:(selector "textStyle") ~typ:(returning llong) +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBarBluetoothBatteryItemView.ml b/uikit_extra/UIStatusBarBluetoothBatteryItemView.ml new file mode 100644 index 00000000..81533364 --- /dev/null +++ b/uikit_extra/UIStatusBarBluetoothBatteryItemView.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarbluetoothbatteryitemview?language=objc}UIStatusBarBluetoothBatteryItemView} *) + +let self = get_class "UIStatusBarBluetoothBatteryItemView" + +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let extraLeftPadding self = msg_send ~self ~cmd:(selector "extraLeftPadding") ~typ:(returning double) +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBarBluetoothItemView.ml b/uikit_extra/UIStatusBarBluetoothItemView.ml new file mode 100644 index 00000000..398fb679 --- /dev/null +++ b/uikit_extra/UIStatusBarBluetoothItemView.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarbluetoothitemview?language=objc}UIStatusBarBluetoothItemView} *) + +let self = get_class "UIStatusBarBluetoothItemView" + +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let alphaForConnected x self = msg_send ~self ~cmd:(selector "alphaForConnected:") ~typ:(bool @-> returning double) x +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let performPendedActions self = msg_send ~self ~cmd:(selector "performPendedActions") ~typ:(returning void) +let setVisible x self = msg_send ~self ~cmd:(selector "setVisible:") ~typ:(bool @-> returning void) x +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBarBreadcrumbItemView.ml b/uikit_extra/UIStatusBarBreadcrumbItemView.ml new file mode 100644 index 00000000..f68ee632 --- /dev/null +++ b/uikit_extra/UIStatusBarBreadcrumbItemView.ml @@ -0,0 +1,23 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarbreadcrumbitemview?language=objc}UIStatusBarBreadcrumbItemView} *) + +let self = get_class "UIStatusBarBreadcrumbItemView" + +let destinationText self = msg_send ~self ~cmd:(selector "destinationText") ~typ:(returning id) +let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning double) +let labelLineBreakMode self = msg_send ~self ~cmd:(selector "labelLineBreakMode") ~typ:(returning llong) +let setDestinationText x self = msg_send ~self ~cmd:(selector "setDestinationText:") ~typ:(id @-> returning void) x +let setSystemNavigationAction x self = msg_send ~self ~cmd:(selector "setSystemNavigationAction:") ~typ:(id @-> returning void) x +let shortenedTitleWithCompressionLevel x self = msg_send ~self ~cmd:(selector "shortenedTitleWithCompressionLevel:") ~typ:(int @-> returning id) x +let systemNavigationAction self = msg_send ~self ~cmd:(selector "systemNavigationAction") ~typ:(returning id) +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions +let userDidActivateButton x self = msg_send ~self ~cmd:(selector "userDidActivateButton:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIStatusBarButtonActionItemView.ml b/uikit_extra/UIStatusBarButtonActionItemView.ml new file mode 100644 index 00000000..3f21baab --- /dev/null +++ b/uikit_extra/UIStatusBarButtonActionItemView.ml @@ -0,0 +1,33 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarbuttonactionitemview?language=objc}UIStatusBarButtonActionItemView} *) + +let self = get_class "UIStatusBarButtonActionItemView" + +let allowsUserInteraction self = msg_send ~self ~cmd:(selector "allowsUserInteraction") ~typ:(returning bool) +let buttonType self = msg_send ~self ~cmd:(selector "buttonType") ~typ:(returning llong) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let extendsHitTestingFrame self = msg_send ~self ~cmd:(selector "extendsHitTestingFrame") ~typ:(returning bool) +let highlightImage self = msg_send ~self ~cmd:(selector "highlightImage") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let ringLayer self = msg_send ~self ~cmd:(selector "ringLayer") ~typ:(returning id) +let selected self = msg_send ~self ~cmd:(selector "selected") ~typ:(returning bool) +let setLayerHighlightImage x self = msg_send ~self ~cmd:(selector "setLayerHighlightImage:") ~typ:(id @-> returning void) x +let setRingLayer x self = msg_send ~self ~cmd:(selector "setRingLayer:") ~typ:(id @-> returning void) x +let setSelected x self = msg_send ~self ~cmd:(selector "setSelected:") ~typ:(bool @-> returning void) x +let showsTouchWhenHighlighted self = msg_send ~self ~cmd:(selector "showsTouchWhenHighlighted") ~typ:(returning bool) +let updateContentsAndWidth self = msg_send ~self ~cmd:(selector "updateContentsAndWidth") ~typ:(returning double) +let usesAdvancedActions self = msg_send ~self ~cmd:(selector "usesAdvancedActions") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarCarPlayDockAppItemButton.ml b/uikit_extra/UIStatusBarCarPlayDockAppItemButton.ml index 418f087c..f0ff051b 100644 --- a/uikit_extra/UIStatusBarCarPlayDockAppItemButton.ml +++ b/uikit_extra/UIStatusBarCarPlayDockAppItemButton.ml @@ -5,30 +5,34 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStatusBarCarPlayDockAppItemButton" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarcarplaydockappitembutton?language=objc}UIStatusBarCarPlayDockAppItemButton} *) -let badgeView self = msg_send ~self ~cmd:(selector "badgeView") ~typ:(returning (id)) -let bundleIdentifier self = msg_send ~self ~cmd:(selector "bundleIdentifier") ~typ:(returning (id)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let charge self = msg_send ~self ~cmd:(selector "charge") ~typ:(returning (float)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let hasBadge self = msg_send ~self ~cmd:(selector "hasBadge") ~typ:(returning (bool)) -let iconHighlightImageView self = msg_send ~self ~cmd:(selector "iconHighlightImageView") ~typ:(returning (id)) -let iconImageView self = msg_send ~self ~cmd:(selector "iconImageView") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning (bool)) -let itemHasBundleIdentifier self = msg_send ~self ~cmd:(selector "itemHasBundleIdentifier") ~typ:(returning (bool)) -let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning (void)) x withEvent -let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning (void)) x -let setBadgeHidden x ~animated self = msg_send ~self ~cmd:(selector "setBadgeHidden:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setBadgeView x self = msg_send ~self ~cmd:(selector "setBadgeView:") ~typ:(id @-> returning (void)) x -let setBundleIdentifier x self = msg_send ~self ~cmd:(selector "setBundleIdentifier:") ~typ:(id @-> returning (void)) x -let setCharge x self = msg_send ~self ~cmd:(selector "setCharge:") ~typ:(float @-> returning (void)) x -let setHasBadge x self = msg_send ~self ~cmd:(selector "setHasBadge:") ~typ:(bool @-> returning (void)) x -let setIconHighlightImageView x self = msg_send ~self ~cmd:(selector "setIconHighlightImageView:") ~typ:(id @-> returning (void)) x -let setIconImageView x self = msg_send ~self ~cmd:(selector "setIconImageView:") ~typ:(id @-> returning (void)) x -let shouldShowBadge self = msg_send ~self ~cmd:(selector "shouldShowBadge") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIStatusBarCarPlayDockAppItemButton" + +let badgeView self = msg_send ~self ~cmd:(selector "badgeView") ~typ:(returning id) +let bundleIdentifier self = msg_send ~self ~cmd:(selector "bundleIdentifier") ~typ:(returning id) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let charge self = msg_send ~self ~cmd:(selector "charge") ~typ:(returning float) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let hasBadge self = msg_send ~self ~cmd:(selector "hasBadge") ~typ:(returning bool) +let iconHighlightImageView self = msg_send ~self ~cmd:(selector "iconHighlightImageView") ~typ:(returning id) +let iconImageView self = msg_send ~self ~cmd:(selector "iconImageView") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isActive self = msg_send ~self ~cmd:(selector "isActive") ~typ:(returning bool) +let itemHasBundleIdentifier self = msg_send ~self ~cmd:(selector "itemHasBundleIdentifier") ~typ:(returning bool) +let pressesBegan x ~withEvent self = msg_send ~self ~cmd:(selector "pressesBegan:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesCancelled x ~withEvent self = msg_send ~self ~cmd:(selector "pressesCancelled:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let pressesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "pressesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let setActive x self = msg_send ~self ~cmd:(selector "setActive:") ~typ:(bool @-> returning void) x +let setBadgeHidden x ~animated self = msg_send ~self ~cmd:(selector "setBadgeHidden:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setBadgeView x self = msg_send ~self ~cmd:(selector "setBadgeView:") ~typ:(id @-> returning void) x +let setBundleIdentifier x self = msg_send ~self ~cmd:(selector "setBundleIdentifier:") ~typ:(id @-> returning void) x +let setCharge x self = msg_send ~self ~cmd:(selector "setCharge:") ~typ:(float @-> returning void) x +let setHasBadge x self = msg_send ~self ~cmd:(selector "setHasBadge:") ~typ:(bool @-> returning void) x +let setIconHighlightImageView x self = msg_send ~self ~cmd:(selector "setIconHighlightImageView:") ~typ:(id @-> returning void) x +let setIconImageView x self = msg_send ~self ~cmd:(selector "setIconImageView:") ~typ:(id @-> returning void) x +let shouldShowBadge self = msg_send ~self ~cmd:(selector "shouldShowBadge") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarCarPlayDockItemView.ml b/uikit_extra/UIStatusBarCarPlayDockItemView.ml index 632b6c07..8d34f2e7 100644 --- a/uikit_extra/UIStatusBarCarPlayDockItemView.ml +++ b/uikit_extra/UIStatusBarCarPlayDockItemView.ml @@ -5,37 +5,41 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStatusBarCarPlayDockItemView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarcarplaydockitemview?language=objc}UIStatusBarCarPlayDockItemView} *) -let allowsUserInteraction self = msg_send ~self ~cmd:(selector "allowsUserInteraction") ~typ:(returning (bool)) -let animatesDataChange self = msg_send ~self ~cmd:(selector "animatesDataChange") ~typ:(returning (bool)) -let currentActiveBundleIdentifier self = msg_send ~self ~cmd:(selector "currentActiveBundleIdentifier") ~typ:(returning (id)) -let currentBundleIdentifiers self = msg_send ~self ~cmd:(selector "currentBundleIdentifiers") ~typ:(returning (id)) -let extraLeftPadding self = msg_send ~self ~cmd:(selector "extraLeftPadding") ~typ:(returning (double)) -let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning (double)) -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let inCallDurationLabel self = msg_send ~self ~cmd:(selector "inCallDurationLabel") ~typ:(returning (id)) -let inCallLabelSpacingConstraint self = msg_send ~self ~cmd:(selector "inCallLabelSpacingConstraint") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isShowingCallTimer self = msg_send ~self ~cmd:(selector "isShowingCallTimer") ~typ:(returning (bool)) -let itemOneButton self = msg_send ~self ~cmd:(selector "itemOneButton") ~typ:(returning (id)) -let itemOneTopConstraint self = msg_send ~self ~cmd:(selector "itemOneTopConstraint") ~typ:(returning (id)) -let itemThreeButton self = msg_send ~self ~cmd:(selector "itemThreeButton") ~typ:(returning (id)) -let itemTwoButton self = msg_send ~self ~cmd:(selector "itemTwoButton") ~typ:(returning (id)) -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let neededSizeForImageSet x self = msg_send ~self ~cmd:(selector "neededSizeForImageSet:") ~typ:(id @-> returning (double)) x -let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning (id)) -let preferredItemViewToFocus self = msg_send ~self ~cmd:(selector "preferredItemViewToFocus") ~typ:(returning (id)) -let setCurrentActiveBundleIdentifier x self = msg_send ~self ~cmd:(selector "setCurrentActiveBundleIdentifier:") ~typ:(id @-> returning (void)) x -let setCurrentBundleIdentifiers x self = msg_send ~self ~cmd:(selector "setCurrentBundleIdentifiers:") ~typ:(id @-> returning (void)) x -let setInCallDurationLabel x self = msg_send ~self ~cmd:(selector "setInCallDurationLabel:") ~typ:(id @-> returning (void)) x -let setInCallLabelSpacingConstraint x self = msg_send ~self ~cmd:(selector "setInCallLabelSpacingConstraint:") ~typ:(id @-> returning (void)) x -let setItemOneButton x self = msg_send ~self ~cmd:(selector "setItemOneButton:") ~typ:(id @-> returning (void)) x -let setItemOneTopConstraint x self = msg_send ~self ~cmd:(selector "setItemOneTopConstraint:") ~typ:(id @-> returning (void)) x -let setItemThreeButton x self = msg_send ~self ~cmd:(selector "setItemThreeButton:") ~typ:(id @-> returning (void)) x -let setItemTwoButton x self = msg_send ~self ~cmd:(selector "setItemTwoButton:") ~typ:(id @-> returning (void)) x -let setPreferredItemViewToFocus x self = msg_send ~self ~cmd:(selector "setPreferredItemViewToFocus:") ~typ:(id @-> returning (void)) x -let setShowingCallTimer x self = msg_send ~self ~cmd:(selector "setShowingCallTimer:") ~typ:(bool @-> returning (void)) x -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions -let updateForNewStyle x self = msg_send ~self ~cmd:(selector "updateForNewStyle:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "UIStatusBarCarPlayDockItemView" + +let allowsUserInteraction self = msg_send ~self ~cmd:(selector "allowsUserInteraction") ~typ:(returning bool) +let animatesDataChange self = msg_send ~self ~cmd:(selector "animatesDataChange") ~typ:(returning bool) +let currentActiveBundleIdentifier self = msg_send ~self ~cmd:(selector "currentActiveBundleIdentifier") ~typ:(returning id) +let currentBundleIdentifiers self = msg_send ~self ~cmd:(selector "currentBundleIdentifiers") ~typ:(returning id) +let extraLeftPadding self = msg_send ~self ~cmd:(selector "extraLeftPadding") ~typ:(returning double) +let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning double) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let inCallDurationLabel self = msg_send ~self ~cmd:(selector "inCallDurationLabel") ~typ:(returning id) +let inCallLabelSpacingConstraint self = msg_send ~self ~cmd:(selector "inCallLabelSpacingConstraint") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isShowingCallTimer self = msg_send ~self ~cmd:(selector "isShowingCallTimer") ~typ:(returning bool) +let itemOneButton self = msg_send ~self ~cmd:(selector "itemOneButton") ~typ:(returning id) +let itemOneTopConstraint self = msg_send ~self ~cmd:(selector "itemOneTopConstraint") ~typ:(returning id) +let itemThreeButton self = msg_send ~self ~cmd:(selector "itemThreeButton") ~typ:(returning id) +let itemTwoButton self = msg_send ~self ~cmd:(selector "itemTwoButton") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let neededSizeForImageSet x self = msg_send ~self ~cmd:(selector "neededSizeForImageSet:") ~typ:(id @-> returning double) x +let preferredFocusEnvironments self = msg_send ~self ~cmd:(selector "preferredFocusEnvironments") ~typ:(returning id) +let preferredItemViewToFocus self = msg_send ~self ~cmd:(selector "preferredItemViewToFocus") ~typ:(returning id) +let setCurrentActiveBundleIdentifier x self = msg_send ~self ~cmd:(selector "setCurrentActiveBundleIdentifier:") ~typ:(id @-> returning void) x +let setCurrentBundleIdentifiers x self = msg_send ~self ~cmd:(selector "setCurrentBundleIdentifiers:") ~typ:(id @-> returning void) x +let setInCallDurationLabel x self = msg_send ~self ~cmd:(selector "setInCallDurationLabel:") ~typ:(id @-> returning void) x +let setInCallLabelSpacingConstraint x self = msg_send ~self ~cmd:(selector "setInCallLabelSpacingConstraint:") ~typ:(id @-> returning void) x +let setItemOneButton x self = msg_send ~self ~cmd:(selector "setItemOneButton:") ~typ:(id @-> returning void) x +let setItemOneTopConstraint x self = msg_send ~self ~cmd:(selector "setItemOneTopConstraint:") ~typ:(id @-> returning void) x +let setItemThreeButton x self = msg_send ~self ~cmd:(selector "setItemThreeButton:") ~typ:(id @-> returning void) x +let setItemTwoButton x self = msg_send ~self ~cmd:(selector "setItemTwoButton:") ~typ:(id @-> returning void) x +let setPreferredItemViewToFocus x self = msg_send ~self ~cmd:(selector "setPreferredItemViewToFocus:") ~typ:(id @-> returning void) x +let setShowingCallTimer x self = msg_send ~self ~cmd:(selector "setShowingCallTimer:") ~typ:(bool @-> returning void) x +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions +let updateForNewStyle x self = msg_send ~self ~cmd:(selector "updateForNewStyle:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIStatusBarCarPlayRadarTimeItemView.ml b/uikit_extra/UIStatusBarCarPlayRadarTimeItemView.ml index 16251b2b..e5f28b23 100644 --- a/uikit_extra/UIStatusBarCarPlayRadarTimeItemView.ml +++ b/uikit_extra/UIStatusBarCarPlayRadarTimeItemView.ml @@ -5,15 +5,19 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStatusBarCarPlayRadarTimeItemView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarcarplayradartimeitemview?language=objc}UIStatusBarCarPlayRadarTimeItemView} *) -let allowsUserInteraction self = msg_send ~self ~cmd:(selector "allowsUserInteraction") ~typ:(returning (bool)) -let buttonType self = msg_send ~self ~cmd:(selector "buttonType") ~typ:(returning (llong)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let highlightImage self = msg_send ~self ~cmd:(selector "highlightImage") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let showsTouchWhenHighlighted self = msg_send ~self ~cmd:(selector "showsTouchWhenHighlighted") ~typ:(returning (bool)) -let usesAdvancedActions self = msg_send ~self ~cmd:(selector "usesAdvancedActions") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIStatusBarCarPlayRadarTimeItemView" + +let allowsUserInteraction self = msg_send ~self ~cmd:(selector "allowsUserInteraction") ~typ:(returning bool) +let buttonType self = msg_send ~self ~cmd:(selector "buttonType") ~typ:(returning llong) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let highlightImage self = msg_send ~self ~cmd:(selector "highlightImage") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let showsTouchWhenHighlighted self = msg_send ~self ~cmd:(selector "showsTouchWhenHighlighted") ~typ:(returning bool) +let usesAdvancedActions self = msg_send ~self ~cmd:(selector "usesAdvancedActions") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarCarPlayRecordingTimeItemView.ml b/uikit_extra/UIStatusBarCarPlayRecordingTimeItemView.ml index 183c69bc..95e223bc 100644 --- a/uikit_extra/UIStatusBarCarPlayRecordingTimeItemView.ml +++ b/uikit_extra/UIStatusBarCarPlayRecordingTimeItemView.ml @@ -5,19 +5,23 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStatusBarCarPlayRecordingTimeItemView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarcarplayrecordingtimeitemview?language=objc}UIStatusBarCarPlayRecordingTimeItemView} *) -let allowsUserInteraction self = msg_send ~self ~cmd:(selector "allowsUserInteraction") ~typ:(returning (bool)) -let buttonType self = msg_send ~self ~cmd:(selector "buttonType") ~typ:(returning (llong)) -let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning (bool)) -let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning (void)) x withAnimationCoordinator -let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning (double)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning (void)) -let movedToSuperview x self = msg_send ~self ~cmd:(selector "movedToSuperview:") ~typ:(id @-> returning (void)) x -let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning (void)) -let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning (void)) x -let showsTouchWhenHighlighted self = msg_send ~self ~cmd:(selector "showsTouchWhenHighlighted") ~typ:(returning (bool)) -let textStyle self = msg_send ~self ~cmd:(selector "textStyle") ~typ:(returning (llong)) -let usesAdvancedActions self = msg_send ~self ~cmd:(selector "usesAdvancedActions") ~typ:(returning (bool)) \ No newline at end of file +let self = get_class "UIStatusBarCarPlayRecordingTimeItemView" + +let allowsUserInteraction self = msg_send ~self ~cmd:(selector "allowsUserInteraction") ~typ:(returning bool) +let buttonType self = msg_send ~self ~cmd:(selector "buttonType") ~typ:(returning llong) +let canBecomeFocused self = msg_send ~self ~cmd:(selector "canBecomeFocused") ~typ:(returning bool) +let didUpdateFocusInContext x ~withAnimationCoordinator self = msg_send ~self ~cmd:(selector "didUpdateFocusInContext:withAnimationCoordinator:") ~typ:(id @-> id @-> returning void) x withAnimationCoordinator +let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning double) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let movedToSuperview x self = msg_send ~self ~cmd:(selector "movedToSuperview:") ~typ:(id @-> returning void) x +let removeFromSuperview self = msg_send ~self ~cmd:(selector "removeFromSuperview") ~typ:(returning void) +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let showsTouchWhenHighlighted self = msg_send ~self ~cmd:(selector "showsTouchWhenHighlighted") ~typ:(returning bool) +let textStyle self = msg_send ~self ~cmd:(selector "textStyle") ~typ:(returning llong) +let usesAdvancedActions self = msg_send ~self ~cmd:(selector "usesAdvancedActions") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarCarPlayTimeItemView.ml b/uikit_extra/UIStatusBarCarPlayTimeItemView.ml index d7c8abda..98da2a8a 100644 --- a/uikit_extra/UIStatusBarCarPlayTimeItemView.ml +++ b/uikit_extra/UIStatusBarCarPlayTimeItemView.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStatusBarCarPlayTimeItemView" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarcarplaytimeitemview?language=objc}UIStatusBarCarPlayTimeItemView} *) -let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning (id)) -let extraLeftPadding self = msg_send ~self ~cmd:(selector "extraLeftPadding") ~typ:(returning (double)) -let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning (double)) -let neededSizeForImageSet x self = msg_send ~self ~cmd:(selector "neededSizeForImageSet:") ~typ:(id @-> returning (double)) x -let textStyle self = msg_send ~self ~cmd:(selector "textStyle") ~typ:(returning (llong)) -let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning (bool)) x actions \ No newline at end of file +let self = get_class "UIStatusBarCarPlayTimeItemView" + +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let extraLeftPadding self = msg_send ~self ~cmd:(selector "extraLeftPadding") ~typ:(returning double) +let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning double) +let neededSizeForImageSet x self = msg_send ~self ~cmd:(selector "neededSizeForImageSet:") ~typ:(id @-> returning double) x +let textStyle self = msg_send ~self ~cmd:(selector "textStyle") ~typ:(returning llong) +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBarComposedData.ml b/uikit_extra/UIStatusBarComposedData.ml new file mode 100644 index 00000000..76c91c07 --- /dev/null +++ b/uikit_extra/UIStatusBarComposedData.ml @@ -0,0 +1,25 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarcomposeddata?language=objc}UIStatusBarComposedData} *) + +let self = get_class "UIStatusBarComposedData" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let doubleHeightStatus self = msg_send ~self ~cmd:(selector "doubleHeightStatus") ~typ:(returning id) +let initWithRawData x self = msg_send ~self ~cmd:(selector "initWithRawData:") ~typ:((ptr void) @-> returning id) x +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isItemEnabled x self = msg_send ~self ~cmd:(selector "isItemEnabled:") ~typ:(int @-> returning bool) x +let rawData self = msg_send ~self ~cmd:(selector "rawData") ~typ:(returning (ptr void)) +let setDoubleHeightStatus x self = msg_send ~self ~cmd:(selector "setDoubleHeightStatus:") ~typ:(id @-> returning void) x +let setItem x ~enabled self = msg_send ~self ~cmd:(selector "setItem:enabled:") ~typ:(int @-> bool @-> returning void) x enabled +let setSystemNavigationItem x self = msg_send ~self ~cmd:(selector "setSystemNavigationItem:") ~typ:(id @-> returning void) x +let systemNavigationItem self = msg_send ~self ~cmd:(selector "systemNavigationItem") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarDataNetworkItemView.ml b/uikit_extra/UIStatusBarDataNetworkItemView.ml new file mode 100644 index 00000000..d4cf94d1 --- /dev/null +++ b/uikit_extra/UIStatusBarDataNetworkItemView.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbardatanetworkitemview?language=objc}UIStatusBarDataNetworkItemView} *) + +let self = get_class "UIStatusBarDataNetworkItemView" + +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let extraLeftPadding self = msg_send ~self ~cmd:(selector "extraLeftPadding") ~typ:(returning double) +let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning double) +let maximumOverlap self = msg_send ~self ~cmd:(selector "maximumOverlap") ~typ:(returning double) +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBarDateTimeItemView.ml b/uikit_extra/UIStatusBarDateTimeItemView.ml new file mode 100644 index 00000000..9b8bc56c --- /dev/null +++ b/uikit_extra/UIStatusBarDateTimeItemView.ml @@ -0,0 +1,26 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbardatetimeitemview?language=objc}UIStatusBarDateTimeItemView} *) + +let self = get_class "UIStatusBarDateTimeItemView" + +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let dateTimeString self = msg_send ~self ~cmd:(selector "dateTimeString") ~typ:(returning id) +let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning double) +let setDateTimeString x self = msg_send ~self ~cmd:(selector "setDateTimeString:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setUseCustomFadeAnimation x self = msg_send ~self ~cmd:(selector "setUseCustomFadeAnimation:") ~typ:(bool @-> returning void) x +let setVisible x ~frame ~duration self = msg_send ~self ~cmd:(selector "setVisible:frame:duration:") ~typ:(bool @-> CGRect.t @-> double @-> returning void) x frame duration +let shouldTintContentImage self = msg_send ~self ~cmd:(selector "shouldTintContentImage") ~typ:(returning bool) +let textStyle self = msg_send ~self ~cmd:(selector "textStyle") ~typ:(returning llong) +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions +let useCustomFadeAnimation self = msg_send ~self ~cmd:(selector "useCustomFadeAnimation") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarDoubleHeightItemView.ml b/uikit_extra/UIStatusBarDoubleHeightItemView.ml new file mode 100644 index 00000000..e9c6b936 --- /dev/null +++ b/uikit_extra/UIStatusBarDoubleHeightItemView.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbardoubleheightitemview?language=objc}UIStatusBarDoubleHeightItemView} *) + +let self = get_class "UIStatusBarDoubleHeightItemView" + +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning double) +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBarElectronicTollCollectionItemView.ml b/uikit_extra/UIStatusBarElectronicTollCollectionItemView.ml new file mode 100644 index 00000000..d97e8092 --- /dev/null +++ b/uikit_extra/UIStatusBarElectronicTollCollectionItemView.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarelectronictollcollectionitemview?language=objc}UIStatusBarElectronicTollCollectionItemView} *) + +let self = get_class "UIStatusBarElectronicTollCollectionItemView" + +let alphaForAvailable x self = msg_send ~self ~cmd:(selector "alphaForAvailable:") ~typ:(bool @-> returning double) x +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let setVisible x self = msg_send ~self ~cmd:(selector "setVisible:") ~typ:(bool @-> returning void) x +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBarExternalForegroundStyleAttributes.ml b/uikit_extra/UIStatusBarExternalForegroundStyleAttributes.ml new file mode 100644 index 00000000..5f689543 --- /dev/null +++ b/uikit_extra/UIStatusBarExternalForegroundStyleAttributes.ml @@ -0,0 +1,27 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarexternalforegroundstyleattributes?language=objc}UIStatusBarExternalForegroundStyleAttributes} *) + +let self = get_class "UIStatusBarExternalForegroundStyleAttributes" + +let activityIndicatorStyleWithSyncActivity x self = msg_send ~self ~cmd:(selector "activityIndicatorStyleWithSyncActivity:") ~typ:(bool @-> returning llong) x +let edgeInsetsForBatteryInsides self = msg_send ~self ~cmd:(selector "edgeInsetsForBatteryInsides") ~typ:(returning UIEdgeInsets.t) +let edgeInsetsForBluetoothBatteryInsides self = msg_send ~self ~cmd:(selector "edgeInsetsForBluetoothBatteryInsides") ~typ:(returning UIEdgeInsets.t) +let leftEdgePadding self = msg_send ~self ~cmd:(selector "leftEdgePadding") ~typ:(returning double) +let makeTextFontForStyle x self = msg_send ~self ~cmd:(selector "makeTextFontForStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let middlePadding self = msg_send ~self ~cmd:(selector "middlePadding") ~typ:(returning double) +let rightEdgePadding self = msg_send ~self ~cmd:(selector "rightEdgePadding") ~typ:(returning double) +let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning double) +let standardPadding self = msg_send ~self ~cmd:(selector "standardPadding") ~typ:(returning double) +let textForNetworkType x self = msg_send ~self ~cmd:(selector "textForNetworkType:") ~typ:(int @-> returning id) x +let textOffsetForStyle x self = msg_send ~self ~cmd:(selector "textOffsetForStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let uniqueIdentifier self = msg_send ~self ~cmd:(selector "uniqueIdentifier") ~typ:(returning id) +let usesVerticalLayout self = msg_send ~self ~cmd:(selector "usesVerticalLayout") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarExternalStyleAttributes.ml b/uikit_extra/UIStatusBarExternalStyleAttributes.ml new file mode 100644 index 00000000..63ff95a4 --- /dev/null +++ b/uikit_extra/UIStatusBarExternalStyleAttributes.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarexternalstyleattributes?language=objc}UIStatusBarExternalStyleAttributes} *) + +let self = get_class "UIStatusBarExternalStyleAttributes" + +let backgroundImageName self = msg_send ~self ~cmd:(selector "backgroundImageName") ~typ:(returning id) +let foregroundStyleClass self = msg_send ~self ~cmd:(selector "foregroundStyleClass") ~typ:(returning _Class) +let heightForMetrics x self = msg_send ~self ~cmd:(selector "heightForMetrics:") ~typ:(llong @-> returning double) (LLong.of_int x) +let idiom self = msg_send ~self ~cmd:(selector "idiom") ~typ:(returning llong) +let shouldShowInternalItemType x ~withScreenCapabilities self = msg_send ~self ~cmd:(selector "shouldShowInternalItemType:withScreenCapabilities:") ~typ:(int @-> id @-> returning bool) x withScreenCapabilities +let tapButtonType self = msg_send ~self ~cmd:(selector "tapButtonType") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarForegroundStyleAttributes.ml b/uikit_extra/UIStatusBarForegroundStyleAttributes.ml new file mode 100644 index 00000000..3b303761 --- /dev/null +++ b/uikit_extra/UIStatusBarForegroundStyleAttributes.ml @@ -0,0 +1,69 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarforegroundstyleattributes?language=objc}UIStatusBarForegroundStyleAttributes} *) + +let self = get_class "UIStatusBarForegroundStyleAttributes" + +let accessibilityHUDImageNamed x self = msg_send ~self ~cmd:(selector "accessibilityHUDImageNamed:") ~typ:(id @-> returning id) x +let activityIndicatorStyleWithSyncActivity x self = msg_send ~self ~cmd:(selector "activityIndicatorStyleWithSyncActivity:") ~typ:(bool @-> returning llong) x +let baselineOffsetForStyle x self = msg_send ~self ~cmd:(selector "baselineOffsetForStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let batteryAccessoryMargin self = msg_send ~self ~cmd:(selector "batteryAccessoryMargin") ~typ:(returning double) +let batteryColorForCapacity x ~style ~usingTintColor self = msg_send ~self ~cmd:(selector "batteryColorForCapacity:style:usingTintColor:") ~typ:(int @-> ullong @-> bool @-> returning id) x (ULLong.of_int style) usingTintColor +let bluetoothBatteryColorForCapacity x ~usingTintColor self = msg_send ~self ~cmd:(selector "bluetoothBatteryColorForCapacity:usingTintColor:") ~typ:(double @-> bool @-> returning id) x usingTintColor +let bluetoothBatteryExtraPadding self = msg_send ~self ~cmd:(selector "bluetoothBatteryExtraPadding") ~typ:(returning double) +let bluetoothBatteryImageNameWithCapacity x self = msg_send ~self ~cmd:(selector "bluetoothBatteryImageNameWithCapacity:") ~typ:(double @-> returning id) x +let cacheImage x ~named ~inTempGroup self = msg_send ~self ~cmd:(selector "cacheImage:named:inTempGroup:") ~typ:(id @-> id @-> id @-> returning void) x named inTempGroup +let cachedImageNamed x ~inTempGroup self = msg_send ~self ~cmd:(selector "cachedImageNamed:inTempGroup:") ~typ:(id @-> id @-> returning id) x inTempGroup +let cachedImageWithText x ~forWidth ~lineBreakMode ~letterSpacing ~textAlignment ~style ~itemType self = msg_send ~self ~cmd:(selector "cachedImageWithText:forWidth:lineBreakMode:letterSpacing:textAlignment:style:itemType:") ~typ:(id @-> double @-> llong @-> double @-> llong @-> llong @-> int @-> returning id) x forWidth (LLong.of_int lineBreakMode) letterSpacing (LLong.of_int textAlignment) (LLong.of_int style) itemType +let canShowBreadcrumbs self = msg_send ~self ~cmd:(selector "canShowBreadcrumbs") ~typ:(returning bool) +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let drawBatteryInsidesWithSize x ~capacity ~style self = msg_send ~self ~cmd:(selector "drawBatteryInsidesWithSize:capacity:style:") ~typ:(CGSize.t @-> int @-> ullong @-> returning void) x capacity (ULLong.of_int style) +let drawBatteryInsidesWithSize' x ~capacity ~style ~usingTintColor self = msg_send ~self ~cmd:(selector "drawBatteryInsidesWithSize:capacity:style:usingTintColor:") ~typ:(CGSize.t @-> int @-> ullong @-> bool @-> returning void) x capacity (ULLong.of_int style) usingTintColor +let drawBluetoothBatteryInsidesWithSize x ~capacity self = msg_send ~self ~cmd:(selector "drawBluetoothBatteryInsidesWithSize:capacity:") ~typ:(CGSize.t @-> double @-> returning void) x capacity +let drawText x ~forWidth ~lineBreakMode ~letterSpacing ~textAlignment ~style ~textSize ~textHeight self = msg_send ~self ~cmd:(selector "drawText:forWidth:lineBreakMode:letterSpacing:textAlignment:style:textSize:textHeight:") ~typ:(id @-> double @-> llong @-> double @-> llong @-> llong @-> CGSize.t @-> double @-> returning void) x forWidth (LLong.of_int lineBreakMode) letterSpacing (LLong.of_int textAlignment) (LLong.of_int style) textSize textHeight +let drawTextInRect x ~withColor ~withBlock self = msg_send ~self ~cmd:(selector "drawTextInRect:withColor:withBlock:") ~typ:(CGRect.t @-> id @-> (ptr void) @-> returning void) x withColor withBlock +let edgeInsetsForBatteryInsides self = msg_send ~self ~cmd:(selector "edgeInsetsForBatteryInsides") ~typ:(returning UIEdgeInsets.t) +let edgeInsetsForBluetoothBatteryInsides self = msg_send ~self ~cmd:(selector "edgeInsetsForBluetoothBatteryInsides") ~typ:(returning UIEdgeInsets.t) +let expandedNameForImageName x self = msg_send ~self ~cmd:(selector "expandedNameForImageName:") ~typ:(id @-> returning id) x +let generateUniqueIdentifier self = msg_send ~self ~cmd:(selector "generateUniqueIdentifier") ~typ:(returning id) +let height self = msg_send ~self ~cmd:(selector "height") ~typ:(returning double) +let idiom self = msg_send ~self ~cmd:(selector "idiom") ~typ:(returning llong) +let imageIdWithText x ~forWidth ~lineBreakMode ~letterSpacing ~style self = msg_send ~self ~cmd:(selector "imageIdWithText:forWidth:lineBreakMode:letterSpacing:style:") ~typ:(id @-> double @-> llong @-> double @-> llong @-> returning id) x forWidth (LLong.of_int lineBreakMode) letterSpacing (LLong.of_int style) +let imageNamed x self = msg_send ~self ~cmd:(selector "imageNamed:") ~typ:(id @-> returning id) x +let imageNamed' x ~withLegibilityStyle ~legibilityStrength self = msg_send ~self ~cmd:(selector "imageNamed:withLegibilityStyle:legibilityStrength:") ~typ:(id @-> llong @-> double @-> returning id) x (LLong.of_int withLegibilityStyle) legibilityStrength +let imageWithText x ~ofItemType ~forWidth ~lineBreakMode ~letterSpacing ~textAlignment ~style ~withLegibilityStyle ~legibilityStrength self = msg_send ~self ~cmd:(selector "imageWithText:ofItemType:forWidth:lineBreakMode:letterSpacing:textAlignment:style:withLegibilityStyle:legibilityStrength:") ~typ:(id @-> int @-> double @-> llong @-> double @-> llong @-> llong @-> llong @-> double @-> returning id) x ofItemType forWidth (LLong.of_int lineBreakMode) letterSpacing (LLong.of_int textAlignment) (LLong.of_int style) (LLong.of_int withLegibilityStyle) legibilityStrength +let imageWithText' x ~ofItemType ~forWidth ~lineBreakMode ~letterSpacing ~textAlignment ~style ~withLegibilityStyle ~legibilityStrength ~shouldCache self = msg_send ~self ~cmd:(selector "imageWithText:ofItemType:forWidth:lineBreakMode:letterSpacing:textAlignment:style:withLegibilityStyle:legibilityStrength:shouldCache:") ~typ:(id @-> int @-> double @-> llong @-> double @-> llong @-> llong @-> llong @-> double @-> bool @-> returning id) x ofItemType forWidth (LLong.of_int lineBreakMode) letterSpacing (LLong.of_int textAlignment) (LLong.of_int style) (LLong.of_int withLegibilityStyle) legibilityStrength shouldCache +let initWithHeight x ~legibilityStyle ~tintColor ~hasBusyBackground self = msg_send ~self ~cmd:(selector "initWithHeight:legibilityStyle:tintColor:hasBusyBackground:") ~typ:(double @-> llong @-> id @-> bool @-> returning id) x (LLong.of_int legibilityStyle) tintColor hasBusyBackground +let initWithHeight' x ~legibilityStyle ~tintColor ~hasBusyBackground ~idiom self = msg_send ~self ~cmd:(selector "initWithHeight:legibilityStyle:tintColor:hasBusyBackground:idiom:") ~typ:(double @-> llong @-> id @-> bool @-> llong @-> returning id) x (LLong.of_int legibilityStyle) tintColor hasBusyBackground (LLong.of_int idiom) +let leftEdgePadding self = msg_send ~self ~cmd:(selector "leftEdgePadding") ~typ:(returning double) +let legibilityStyle self = msg_send ~self ~cmd:(selector "legibilityStyle") ~typ:(returning llong) +let makeTextFontForStyle x self = msg_send ~self ~cmd:(selector "makeTextFontForStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let middlePadding self = msg_send ~self ~cmd:(selector "middlePadding") ~typ:(returning double) +let positionForMoonMaskInBounds x self = msg_send ~self ~cmd:(selector "positionForMoonMaskInBounds:") ~typ:(CGRect.t @-> returning CGPoint.t) x +let rightEdgePadding self = msg_send ~self ~cmd:(selector "rightEdgePadding") ~typ:(returning double) +let scale self = msg_send ~self ~cmd:(selector "scale") ~typ:(returning double) +let setCanShowBreadcrumbs x self = msg_send ~self ~cmd:(selector "setCanShowBreadcrumbs:") ~typ:(bool @-> returning void) x +let shadowImageForImage x ~withIdentifier ~forStyle ~withStrength self = msg_send ~self ~cmd:(selector "shadowImageForImage:withIdentifier:forStyle:withStrength:") ~typ:(id @-> id @-> llong @-> double @-> returning id) x withIdentifier (LLong.of_int forStyle) withStrength +let shadowImageForImage1 x ~withIdentifier ~forStyle ~withStrength ~inTempGroup self = msg_send ~self ~cmd:(selector "shadowImageForImage:withIdentifier:forStyle:withStrength:inTempGroup:") ~typ:(id @-> id @-> llong @-> double @-> id @-> returning id) x withIdentifier (LLong.of_int forStyle) withStrength inTempGroup +let shadowImageForImage2 x ~withIdentifier ~forStyle ~withStrength ~inTempGroup ~shouldCache self = msg_send ~self ~cmd:(selector "shadowImageForImage:withIdentifier:forStyle:withStrength:inTempGroup:shouldCache:") ~typ:(id @-> id @-> llong @-> double @-> id @-> bool @-> returning id) x withIdentifier (LLong.of_int forStyle) withStrength inTempGroup shouldCache +let shadowPadding self = msg_send ~self ~cmd:(selector "shadowPadding") ~typ:(returning double) +let sizeForMoonMaskVisible x self = msg_send ~self ~cmd:(selector "sizeForMoonMaskVisible:") ~typ:(bool @-> returning double) x +let standardPadding self = msg_send ~self ~cmd:(selector "standardPadding") ~typ:(returning double) +let supportsShowingBuildVersion self = msg_send ~self ~cmd:(selector "supportsShowingBuildVersion") ~typ:(returning bool) +let textColorForStyle x self = msg_send ~self ~cmd:(selector "textColorForStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let textFontForStyle x self = msg_send ~self ~cmd:(selector "textFontForStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let textForNetworkType x self = msg_send ~self ~cmd:(selector "textForNetworkType:") ~typ:(int @-> returning id) x +let textOffsetForStyle x self = msg_send ~self ~cmd:(selector "textOffsetForStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let tintColor self = msg_send ~self ~cmd:(selector "tintColor") ~typ:(returning id) +let uncachedImageNamed x self = msg_send ~self ~cmd:(selector "uncachedImageNamed:") ~typ:(id @-> returning id) x +let uniqueIdentifier self = msg_send ~self ~cmd:(selector "uniqueIdentifier") ~typ:(returning id) +let untintedImageNamed x self = msg_send ~self ~cmd:(selector "untintedImageNamed:") ~typ:(id @-> returning id) x +let usesVerticalLayout self = msg_send ~self ~cmd:(selector "usesVerticalLayout") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarForegroundView.ml b/uikit_extra/UIStatusBarForegroundView.ml new file mode 100644 index 00000000..8cb6369f --- /dev/null +++ b/uikit_extra/UIStatusBarForegroundView.ml @@ -0,0 +1,42 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarforegroundview?language=objc}UIStatusBarForegroundView} *) + +let self = get_class "UIStatusBarForegroundView" + +let animateUnlock self = msg_send ~self ~cmd:(selector "animateUnlock") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didMoveToWindow self = msg_send ~self ~cmd:(selector "didMoveToWindow") ~typ:(returning void) +let foregroundStyle self = msg_send ~self ~cmd:(selector "foregroundStyle") ~typ:(returning id) +let frameForAllItemsInRegion x self = msg_send ~self ~cmd:(selector "frameForAllItemsInRegion:") ~typ:(int @-> returning CGRect.t) x +let frameForItemOfType x self = msg_send ~self ~cmd:(selector "frameForItemOfType:") ~typ:(int @-> returning CGRect.t) x +let idiom self = msg_send ~self ~cmd:(selector "idiom") ~typ:(returning llong) +let ignoringData self = msg_send ~self ~cmd:(selector "ignoringData") ~typ:(returning bool) +let initWithFrame x ~foregroundStyle ~usesVerticalLayout self = msg_send ~self ~cmd:(selector "initWithFrame:foregroundStyle:usesVerticalLayout:") ~typ:(CGRect.t @-> id @-> bool @-> returning id) x foregroundStyle usesVerticalLayout +let isShowingBreadcrumb self = msg_send ~self ~cmd:(selector "isShowingBreadcrumb") ~typ:(returning bool) +let jiggleLockIcon self = msg_send ~self ~cmd:(selector "jiggleLockIcon") ~typ:(returning void) +let leftEdgePadding self = msg_send ~self ~cmd:(selector "leftEdgePadding") ~typ:(returning double) +let pointInside x ~withEvent self = msg_send ~self ~cmd:(selector "pointInside:withEvent:") ~typ:(CGPoint.t @-> id @-> returning bool) x withEvent +let rectIntersectsBatteryItem x self = msg_send ~self ~cmd:(selector "rectIntersectsBatteryItem:") ~typ:(CGRect.t @-> returning bool) x +let rectIntersectsTimeItem x self = msg_send ~self ~cmd:(selector "rectIntersectsTimeItem:") ~typ:(CGRect.t @-> returning bool) x +let reflowItemViews x self = msg_send ~self ~cmd:(selector "reflowItemViews:") ~typ:(bool @-> returning void) x +let reflowItemViewsCrossfadingCenter x ~duration self = msg_send ~self ~cmd:(selector "reflowItemViewsCrossfadingCenter:duration:") ~typ:(id @-> double @-> returning void) x duration +let reflowItemViewsForgettingEitherSideItemHistory self = msg_send ~self ~cmd:(selector "reflowItemViewsForgettingEitherSideItemHistory") ~typ:(returning void) +let rightEdgePadding self = msg_send ~self ~cmd:(selector "rightEdgePadding") ~typ:(returning double) +let setBounds x self = msg_send ~self ~cmd:(selector "setBounds:") ~typ:(CGRect.t @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let setIdiom x self = msg_send ~self ~cmd:(selector "setIdiom:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPersistentAnimationsEnabled x self = msg_send ~self ~cmd:(selector "setPersistentAnimationsEnabled:") ~typ:(bool @-> returning void) x +let setStatusBarData x ~actions ~animated self = msg_send ~self ~cmd:(selector "setStatusBarData:actions:animated:") ~typ:(id @-> int @-> bool @-> returning void) x actions animated +let startIgnoringData self = msg_send ~self ~cmd:(selector "startIgnoringData") ~typ:(returning void) +let statusBar self = msg_send ~self ~cmd:(selector "statusBar") ~typ:(returning id) +let stopIgnoringData x self = msg_send ~self ~cmd:(selector "stopIgnoringData:") ~typ:(bool @-> returning void) x +let willChangeNavigationItemDisplayWithSystemNavigationAction x self = msg_send ~self ~cmd:(selector "willChangeNavigationItemDisplayWithSystemNavigationAction:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit_extra/UIStatusBarHideAnimationParameters.ml b/uikit_extra/UIStatusBarHideAnimationParameters.ml new file mode 100644 index 00000000..8ea55c01 --- /dev/null +++ b/uikit_extra/UIStatusBarHideAnimationParameters.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarhideanimationparameters?language=objc}UIStatusBarHideAnimationParameters} *) + +let self = get_class "UIStatusBarHideAnimationParameters" + +let additionalSlideHeight self = msg_send ~self ~cmd:(selector "additionalSlideHeight") ~typ:(returning double) +let hideAnimation self = msg_send ~self ~cmd:(selector "hideAnimation") ~typ:(returning int) +let initWithDefaultParameters self = msg_send ~self ~cmd:(selector "initWithDefaultParameters") ~typ:(returning id) +let setAdditionalSlideHeight x self = msg_send ~self ~cmd:(selector "setAdditionalSlideHeight:") ~typ:(double @-> returning void) x +let setHideAnimation x self = msg_send ~self ~cmd:(selector "setHideAnimation:") ~typ:(int @-> returning void) x +let shouldAnimate self = msg_send ~self ~cmd:(selector "shouldAnimate") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarHomeItemView.ml b/uikit_extra/UIStatusBarHomeItemView.ml new file mode 100644 index 00000000..1fc8df02 --- /dev/null +++ b/uikit_extra/UIStatusBarHomeItemView.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarhomeitemview?language=objc}UIStatusBarHomeItemView} *) + +let self = get_class "UIStatusBarHomeItemView" + +let buttonType self = msg_send ~self ~cmd:(selector "buttonType") ~typ:(returning llong) +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let extendsHitTestingFrame self = msg_send ~self ~cmd:(selector "extendsHitTestingFrame") ~typ:(returning bool) +let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning double) +let highlightImage self = msg_send ~self ~cmd:(selector "highlightImage") ~typ:(returning id) +let usesAdvancedActions self = msg_send ~self ~cmd:(selector "usesAdvancedActions") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarHoverRegionAction.ml b/uikit_extra/UIStatusBarHoverRegionAction.ml new file mode 100644 index 00000000..fbc69f35 --- /dev/null +++ b/uikit_extra/UIStatusBarHoverRegionAction.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarhoverregionaction?language=objc}UIStatusBarHoverRegionAction} *) + +let self = get_class "UIStatusBarHoverRegionAction" + +let _UIActionType self = msg_send ~self ~cmd:(selector "UIActionType") ~typ:(returning llong) +let initWithRegion x self = msg_send ~self ~cmd:(selector "initWithRegion:") ~typ:(llong @-> returning id) (LLong.of_int x) +let keyDescriptionForSetting x self = msg_send ~self ~cmd:(selector "keyDescriptionForSetting:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let region self = msg_send ~self ~cmd:(selector "region") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarIndicatorItemView.ml b/uikit_extra/UIStatusBarIndicatorItemView.ml new file mode 100644 index 00000000..df92ed9f --- /dev/null +++ b/uikit_extra/UIStatusBarIndicatorItemView.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarindicatoritemview?language=objc}UIStatusBarIndicatorItemView} *) + +let self = get_class "UIStatusBarIndicatorItemView" + +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarLiquidDetectionItemView.ml b/uikit_extra/UIStatusBarLiquidDetectionItemView.ml new file mode 100644 index 00000000..dd00c947 --- /dev/null +++ b/uikit_extra/UIStatusBarLiquidDetectionItemView.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarliquiddetectionitemview?language=objc}UIStatusBarLiquidDetectionItemView} *) + +let self = get_class "UIStatusBarLiquidDetectionItemView" + +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarLocationItemView.ml b/uikit_extra/UIStatusBarLocationItemView.ml new file mode 100644 index 00000000..50886754 --- /dev/null +++ b/uikit_extra/UIStatusBarLocationItemView.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarlocationitemview?language=objc}UIStatusBarLocationItemView} *) + +let self = get_class "UIStatusBarLocationItemView" + +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBarLockItemView.ml b/uikit_extra/UIStatusBarLockItemView.ml new file mode 100644 index 00000000..e82299fe --- /dev/null +++ b/uikit_extra/UIStatusBarLockItemView.ml @@ -0,0 +1,46 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarlockitemview?language=objc}UIStatusBarLockItemView} *) + +let self = get_class "UIStatusBarLockItemView" + +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let alongsideViewIsBecomingVisible self = msg_send ~self ~cmd:(selector "alongsideViewIsBecomingVisible") ~typ:(returning bool) +let animateUnlockForegroundView x ~timeItemSnapshot ~completionBlock self = msg_send ~self ~cmd:(selector "animateUnlockForegroundView:timeItemSnapshot:completionBlock:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x timeItemSnapshot completionBlock +let animationCompletionBlock self = msg_send ~self ~cmd:(selector "animationCompletionBlock") ~typ:(returning (ptr void)) +let animationCount self = msg_send ~self ~cmd:(selector "animationCount") ~typ:(returning int) +let animationDidStop x ~finished self = msg_send ~self ~cmd:(selector "animationDidStop:finished:") ~typ:(id @-> bool @-> returning void) x finished +let isExclusive self = msg_send ~self ~cmd:(selector "isExclusive") ~typ:(returning bool) +let jiggleCompletionBlock x self = msg_send ~self ~cmd:(selector "jiggleCompletionBlock:") ~typ:((ptr void) @-> returning void) x +let padlockView self = msg_send ~self ~cmd:(selector "padlockView") ~typ:(returning id) +let padlockViewCenterOffsetFromForegroundViewCenter self = msg_send ~self ~cmd:(selector "padlockViewCenterOffsetFromForegroundViewCenter") ~typ:(returning double) +let setAlongsideViewIsBecomingVisible x self = msg_send ~self ~cmd:(selector "setAlongsideViewIsBecomingVisible:") ~typ:(bool @-> returning void) x +let setAnimationCompletionBlock x self = msg_send ~self ~cmd:(selector "setAnimationCompletionBlock:") ~typ:((ptr void) @-> returning void) x +let setAnimationCount x self = msg_send ~self ~cmd:(selector "setAnimationCount:") ~typ:(int @-> returning void) x +let setPadlockView x self = msg_send ~self ~cmd:(selector "setPadlockView:") ~typ:(id @-> returning void) x +let setPadlockViewCenterOffsetFromForegroundViewCenter x self = msg_send ~self ~cmd:(selector "setPadlockViewCenterOffsetFromForegroundViewCenter:") ~typ:(double @-> returning void) x +let setTextClippingView x self = msg_send ~self ~cmd:(selector "setTextClippingView:") ~typ:(id @-> returning void) x +let setTextView x self = msg_send ~self ~cmd:(selector "setTextView:") ~typ:(id @-> returning void) x +let setTimeItemSnapshot x self = msg_send ~self ~cmd:(selector "setTimeItemSnapshot:") ~typ:(id @-> returning void) x +let setTimeItemSnapshotCenterOffsetFromForegroundViewCenter x self = msg_send ~self ~cmd:(selector "setTimeItemSnapshotCenterOffsetFromForegroundViewCenter:") ~typ:(double @-> returning void) x +let setViewToAnimateAlongside x self = msg_send ~self ~cmd:(selector "setViewToAnimateAlongside:") ~typ:(id @-> returning void) x +let setVisible x ~frame ~duration self = msg_send ~self ~cmd:(selector "setVisible:frame:duration:") ~typ:(bool @-> CGRect.t @-> double @-> returning void) x frame duration +let setWidthNeededDuringAnimation x self = msg_send ~self ~cmd:(selector "setWidthNeededDuringAnimation:") ~typ:(double @-> returning void) x +let setWidthNeededForFinalState x self = msg_send ~self ~cmd:(selector "setWidthNeededForFinalState:") ~typ:(double @-> returning void) x +let textClippingView self = msg_send ~self ~cmd:(selector "textClippingView") ~typ:(returning id) +let textView self = msg_send ~self ~cmd:(selector "textView") ~typ:(returning id) +let timeItemSnapshot self = msg_send ~self ~cmd:(selector "timeItemSnapshot") ~typ:(returning id) +let timeItemSnapshotCenterOffsetFromForegroundViewCenter self = msg_send ~self ~cmd:(selector "timeItemSnapshotCenterOffsetFromForegroundViewCenter") ~typ:(returning double) +let updateContentsAndWidth self = msg_send ~self ~cmd:(selector "updateContentsAndWidth") ~typ:(returning double) +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions +let viewToAnimateAlongside self = msg_send ~self ~cmd:(selector "viewToAnimateAlongside") ~typ:(returning id) +let widthNeededDuringAnimation self = msg_send ~self ~cmd:(selector "widthNeededDuringAnimation") ~typ:(returning double) +let widthNeededForFinalState self = msg_send ~self ~cmd:(selector "widthNeededForFinalState") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarLockItemViewClass.ml b/uikit_extra/UIStatusBarLockItemViewClass.ml new file mode 100644 index 00000000..b19ec4e2 --- /dev/null +++ b/uikit_extra/UIStatusBarLockItemViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarlockitemview?language=objc}UIStatusBarLockItemView} *) + +let lockSlideAnimationDuration self = msg_send ~self ~cmd:(selector "lockSlideAnimationDuration") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarLockScreenForegroundStyleAttributes.ml b/uikit_extra/UIStatusBarLockScreenForegroundStyleAttributes.ml new file mode 100644 index 00000000..1add76a0 --- /dev/null +++ b/uikit_extra/UIStatusBarLockScreenForegroundStyleAttributes.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarlockscreenforegroundstyleattributes?language=objc}UIStatusBarLockScreenForegroundStyleAttributes} *) + +let self = get_class "UIStatusBarLockScreenForegroundStyleAttributes" + +let activityIndicatorStyleWithSyncActivity x self = msg_send ~self ~cmd:(selector "activityIndicatorStyleWithSyncActivity:") ~typ:(bool @-> returning llong) x +let edgeInsetsForBatteryInsides self = msg_send ~self ~cmd:(selector "edgeInsetsForBatteryInsides") ~typ:(returning UIEdgeInsets.t) +let expandedNameForImageName x self = msg_send ~self ~cmd:(selector "expandedNameForImageName:") ~typ:(id @-> returning id) x +let makeTextFontForStyle x self = msg_send ~self ~cmd:(selector "makeTextFontForStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let positionForMoonMaskInBounds x self = msg_send ~self ~cmd:(selector "positionForMoonMaskInBounds:") ~typ:(CGRect.t @-> returning CGPoint.t) x +let sizeForMoonMaskVisible x self = msg_send ~self ~cmd:(selector "sizeForMoonMaskVisible:") ~typ:(bool @-> returning double) x +let supportsShowingBuildVersion self = msg_send ~self ~cmd:(selector "supportsShowingBuildVersion") ~typ:(returning bool) +let textOffsetForStyle x self = msg_send ~self ~cmd:(selector "textOffsetForStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarLockScreenStyleAttributes.ml b/uikit_extra/UIStatusBarLockScreenStyleAttributes.ml new file mode 100644 index 00000000..dae6bf9a --- /dev/null +++ b/uikit_extra/UIStatusBarLockScreenStyleAttributes.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarlockscreenstyleattributes?language=objc}UIStatusBarLockScreenStyleAttributes} *) + +let self = get_class "UIStatusBarLockScreenStyleAttributes" + +let foregroundStyleClass self = msg_send ~self ~cmd:(selector "foregroundStyleClass") ~typ:(returning _Class) +let heightForMetrics x self = msg_send ~self ~cmd:(selector "heightForMetrics:") ~typ:(llong @-> returning double) (LLong.of_int x) +let isLockScreen self = msg_send ~self ~cmd:(selector "isLockScreen") ~typ:(returning bool) +let shouldShowInternalItemType x ~withScreenCapabilities self = msg_send ~self ~cmd:(selector "shouldShowInternalItemType:withScreenCapabilities:") ~typ:(int @-> id @-> returning bool) x withScreenCapabilities \ No newline at end of file diff --git a/uikit_extra/UIStatusBarNewUIActionableStyleAttributes.ml b/uikit_extra/UIStatusBarNewUIActionableStyleAttributes.ml new file mode 100644 index 00000000..a3795440 --- /dev/null +++ b/uikit_extra/UIStatusBarNewUIActionableStyleAttributes.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarnewuiactionablestyleattributes?language=objc}UIStatusBarNewUIActionableStyleAttributes} *) + +let self = get_class "UIStatusBarNewUIActionableStyleAttributes" + +let initWithRequest x ~backgroundColor ~foregroundColor ~hasBusyBackground self = msg_send ~self ~cmd:(selector "initWithRequest:backgroundColor:foregroundColor:hasBusyBackground:") ~typ:(id @-> id @-> id @-> bool @-> returning id) x backgroundColor foregroundColor hasBusyBackground +let shouldProduceReturnEvent self = msg_send ~self ~cmd:(selector "shouldProduceReturnEvent") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarNewUIDoubleHeightStyleAttributes.ml b/uikit_extra/UIStatusBarNewUIDoubleHeightStyleAttributes.ml new file mode 100644 index 00000000..662a5d02 --- /dev/null +++ b/uikit_extra/UIStatusBarNewUIDoubleHeightStyleAttributes.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarnewuidoubleheightstyleattributes?language=objc}UIStatusBarNewUIDoubleHeightStyleAttributes} *) + +let self = get_class "UIStatusBarNewUIDoubleHeightStyleAttributes" + +let heightForMetrics x self = msg_send ~self ~cmd:(selector "heightForMetrics:") ~typ:(llong @-> returning double) (LLong.of_int x) +let isDoubleHeight self = msg_send ~self ~cmd:(selector "isDoubleHeight") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarNewUIStyleAttributes.ml b/uikit_extra/UIStatusBarNewUIStyleAttributes.ml new file mode 100644 index 00000000..4100d9d0 --- /dev/null +++ b/uikit_extra/UIStatusBarNewUIStyleAttributes.ml @@ -0,0 +1,26 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarnewuistyleattributes?language=objc}UIStatusBarNewUIStyleAttributes} *) + +let self = get_class "UIStatusBarNewUIStyleAttributes" + +let backgroundColorWithTintColor x self = msg_send ~self ~cmd:(selector "backgroundColorWithTintColor:") ~typ:(id @-> returning id) x +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let foregroundColor self = msg_send ~self ~cmd:(selector "foregroundColor") ~typ:(returning id) +let foregroundStyleClass self = msg_send ~self ~cmd:(selector "foregroundStyleClass") ~typ:(returning _Class) +let initWithRequest x self = msg_send ~self ~cmd:(selector "initWithRequest:") ~typ:(id @-> returning id) x +let initWithRequest1 x ~backgroundColor ~foregroundColor self = msg_send ~self ~cmd:(selector "initWithRequest:backgroundColor:foregroundColor:") ~typ:(id @-> id @-> id @-> returning id) x backgroundColor foregroundColor +let initWithRequest2 x ~backgroundColor ~foregroundColor ~hasBusyBackground self = msg_send ~self ~cmd:(selector "initWithRequest:backgroundColor:foregroundColor:hasBusyBackground:") ~typ:(id @-> id @-> id @-> bool @-> returning id) x backgroundColor foregroundColor hasBusyBackground +let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning bool) +let isTransparent self = msg_send ~self ~cmd:(selector "isTransparent") ~typ:(returning bool) +let legibilityStyle self = msg_send ~self ~cmd:(selector "legibilityStyle") ~typ:(returning llong) +let newForegroundStyleWithHeight x self = msg_send ~self ~cmd:(selector "newForegroundStyleWithHeight:") ~typ:(double @-> returning id) x +let shouldUseVisualAltitude self = msg_send ~self ~cmd:(selector "shouldUseVisualAltitude") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarNotChargingItemView.ml b/uikit_extra/UIStatusBarNotChargingItemView.ml new file mode 100644 index 00000000..b7e570fb --- /dev/null +++ b/uikit_extra/UIStatusBarNotChargingItemView.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarnotchargingitemview?language=objc}UIStatusBarNotChargingItemView} *) + +let self = get_class "UIStatusBarNotChargingItemView" + +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBarOpenInSafariItemView.ml b/uikit_extra/UIStatusBarOpenInSafariItemView.ml new file mode 100644 index 00000000..f837e18f --- /dev/null +++ b/uikit_extra/UIStatusBarOpenInSafariItemView.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbaropeninsafariitemview?language=objc}UIStatusBarOpenInSafariItemView} *) + +let self = get_class "UIStatusBarOpenInSafariItemView" + +let destinationText self = msg_send ~self ~cmd:(selector "destinationText") ~typ:(returning id) +let layoutImageOnTrailingEdge self = msg_send ~self ~cmd:(selector "layoutImageOnTrailingEdge") ~typ:(returning bool) +let setDestinationText x self = msg_send ~self ~cmd:(selector "setDestinationText:") ~typ:(id @-> returning void) x +let setSystemNavigationAction x self = msg_send ~self ~cmd:(selector "setSystemNavigationAction:") ~typ:(id @-> returning void) x +let shortenedTitleWithCompressionLevel x self = msg_send ~self ~cmd:(selector "shortenedTitleWithCompressionLevel:") ~typ:(int @-> returning id) x +let systemNavigationAction self = msg_send ~self ~cmd:(selector "systemNavigationAction") ~typ:(returning id) +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions +let userDidActivateButton x self = msg_send ~self ~cmd:(selector "userDidActivateButton:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIStatusBarOrientationAnimationParameters.ml b/uikit_extra/UIStatusBarOrientationAnimationParameters.ml new file mode 100644 index 00000000..7fe51464 --- /dev/null +++ b/uikit_extra/UIStatusBarOrientationAnimationParameters.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarorientationanimationparameters?language=objc}UIStatusBarOrientationAnimationParameters} *) + +let self = get_class "UIStatusBarOrientationAnimationParameters" + +let initWithDefaultParameters self = msg_send ~self ~cmd:(selector "initWithDefaultParameters") ~typ:(returning id) +let orientationAnimation self = msg_send ~self ~cmd:(selector "orientationAnimation") ~typ:(returning int) +let setOrientationAnimation x self = msg_send ~self ~cmd:(selector "setOrientationAnimation:") ~typ:(int @-> returning void) x +let shouldAnimate self = msg_send ~self ~cmd:(selector "shouldAnimate") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarPersonNameItemView.ml b/uikit_extra/UIStatusBarPersonNameItemView.ml new file mode 100644 index 00000000..4722168a --- /dev/null +++ b/uikit_extra/UIStatusBarPersonNameItemView.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarpersonnameitemview?language=objc}UIStatusBarPersonNameItemView} *) + +let self = get_class "UIStatusBarPersonNameItemView" + +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let addContentOverlap x self = msg_send ~self ~cmd:(selector "addContentOverlap:") ~typ:(double @-> returning double) x +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning double) +let legibilityStyle self = msg_send ~self ~cmd:(selector "legibilityStyle") ~typ:(returning llong) +let resetContentOverlap self = msg_send ~self ~cmd:(selector "resetContentOverlap") ~typ:(returning double) +let standardPadding self = msg_send ~self ~cmd:(selector "standardPadding") ~typ:(returning double) +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBarQuietModeItemView.ml b/uikit_extra/UIStatusBarQuietModeItemView.ml new file mode 100644 index 00000000..3e8bd7c7 --- /dev/null +++ b/uikit_extra/UIStatusBarQuietModeItemView.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarquietmodeitemview?language=objc}UIStatusBarQuietModeItemView} *) + +let self = get_class "UIStatusBarQuietModeItemView" + +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let animationDidStop x ~finished self = msg_send ~self ~cmd:(selector "animationDidStop:finished:") ~typ:(id @-> bool @-> returning void) x finished +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let setVisible x self = msg_send ~self ~cmd:(selector "setVisible:") ~typ:(bool @-> returning void) x +let setVisible' x ~frame ~duration self = msg_send ~self ~cmd:(selector "setVisible:frame:duration:") ~typ:(bool @-> CGRect.t @-> double @-> returning void) x frame duration +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBarRadarItemView.ml b/uikit_extra/UIStatusBarRadarItemView.ml new file mode 100644 index 00000000..7681f1ca --- /dev/null +++ b/uikit_extra/UIStatusBarRadarItemView.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarradaritemview?language=objc}UIStatusBarRadarItemView} *) + +let self = get_class "UIStatusBarRadarItemView" + +let buttonType self = msg_send ~self ~cmd:(selector "buttonType") ~typ:(returning llong) +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning double) +let highlightImage self = msg_send ~self ~cmd:(selector "highlightImage") ~typ:(returning id) +let usesAdvancedActions self = msg_send ~self ~cmd:(selector "usesAdvancedActions") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarSecondarySignalStrengthItemView.ml b/uikit_extra/UIStatusBarSecondarySignalStrengthItemView.ml new file mode 100644 index 00000000..aa2d3f5c --- /dev/null +++ b/uikit_extra/UIStatusBarSecondarySignalStrengthItemView.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarsecondarysignalstrengthitemview?language=objc}UIStatusBarSecondarySignalStrengthItemView} *) + +let self = get_class "UIStatusBarSecondarySignalStrengthItemView" + +let extraLeftPadding self = msg_send ~self ~cmd:(selector "extraLeftPadding") ~typ:(returning double) +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBarServer.ml b/uikit_extra/UIStatusBarServer.ml new file mode 100644 index 00000000..94ce529d --- /dev/null +++ b/uikit_extra/UIStatusBarServer.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarserver?language=objc}UIStatusBarServer} *) + +let self = get_class "UIStatusBarServer" + +let initWithStatusBar x self = msg_send ~self ~cmd:(selector "initWithStatusBar:") ~typ:(id @-> returning id) x +let setStatusBar x self = msg_send ~self ~cmd:(selector "setStatusBar:") ~typ:(id @-> returning void) x +let statusBar self = msg_send ~self ~cmd:(selector "statusBar") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarServerClass.ml b/uikit_extra/UIStatusBarServerClass.ml new file mode 100644 index 00000000..f0a50dea --- /dev/null +++ b/uikit_extra/UIStatusBarServerClass.ml @@ -0,0 +1,29 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarserver?language=objc}UIStatusBarServer} *) + +let addStatusBarItem x self = msg_send ~self ~cmd:(selector "addStatusBarItem:") ~typ:(int @-> returning void) x +let addStyleOverrides x self = msg_send ~self ~cmd:(selector "addStyleOverrides:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let getDoubleHeightStatusStringForStyle x self = msg_send ~self ~cmd:(selector "getDoubleHeightStatusStringForStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let getGlowAnimationEndTimeForStyle x self = msg_send ~self ~cmd:(selector "getGlowAnimationEndTimeForStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let getGlowAnimationStateForStyle x self = msg_send ~self ~cmd:(selector "getGlowAnimationStateForStyle:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let getStatusBarData self = msg_send ~self ~cmd:(selector "getStatusBarData") ~typ:(returning (ptr void)) +let getStatusBarOverrideData self = msg_send ~self ~cmd:(selector "getStatusBarOverrideData") ~typ:(returning (ptr void)) +let getStyleOverrides self = msg_send ~self ~cmd:(selector "getStyleOverrides") ~typ:(returning ullong) +let permanentizeStatusBarOverrideData self = msg_send ~self ~cmd:(selector "permanentizeStatusBarOverrideData") ~typ:(returning void) +let postDoubleHeightStatusString x ~forStyle self = msg_send ~self ~cmd:(selector "postDoubleHeightStatusString:forStyle:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int forStyle) +let postGlowAnimationState x ~forStyle self = msg_send ~self ~cmd:(selector "postGlowAnimationState:forStyle:") ~typ:(bool @-> llong @-> returning void) x (LLong.of_int forStyle) +let postStatusBarData x ~withActions self = msg_send ~self ~cmd:(selector "postStatusBarData:withActions:") ~typ:((ptr void) @-> int @-> returning void) x withActions +let postStatusBarOverrideData x self = msg_send ~self ~cmd:(selector "postStatusBarOverrideData:") ~typ:((ptr void) @-> returning void) x +let removeStatusBarItem x self = msg_send ~self ~cmd:(selector "removeStatusBarItem:") ~typ:(int @-> returning void) x +let removeStyleOverrides x self = msg_send ~self ~cmd:(selector "removeStyleOverrides:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let runServer self = msg_send ~self ~cmd:(selector "runServer") ~typ:(returning void) +let serviceName self = msg_send ~self ~cmd:(selector "serviceName") ~typ:(returning string) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarServiceItemView.ml b/uikit_extra/UIStatusBarServiceItemView.ml new file mode 100644 index 00000000..893c3b2b --- /dev/null +++ b/uikit_extra/UIStatusBarServiceItemView.ml @@ -0,0 +1,27 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarserviceitemview?language=objc}UIStatusBarServiceItemView} *) + +let self = get_class "UIStatusBarServiceItemView" + +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let addContentOverlap x self = msg_send ~self ~cmd:(selector "addContentOverlap:") ~typ:(double @-> returning double) x +let animatesDataChange self = msg_send ~self ~cmd:(selector "animatesDataChange") ~typ:(returning bool) +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning double) +let legibilityStyle self = msg_send ~self ~cmd:(selector "legibilityStyle") ~typ:(returning llong) +let performPendedActions self = msg_send ~self ~cmd:(selector "performPendedActions") ~typ:(returning void) +let resetContentOverlap self = msg_send ~self ~cmd:(selector "resetContentOverlap") ~typ:(returning double) +let setVisible x ~frame ~duration self = msg_send ~self ~cmd:(selector "setVisible:frame:duration:") ~typ:(bool @-> CGRect.t @-> double @-> returning void) x frame duration +let standardPadding self = msg_send ~self ~cmd:(selector "standardPadding") ~typ:(returning double) +let updateContentsAndWidth self = msg_send ~self ~cmd:(selector "updateContentsAndWidth") ~typ:(returning double) +let updateForContentType x ~serviceString ~serviceCrossfadeString ~maxWidth ~actions self = msg_send ~self ~cmd:(selector "updateForContentType:serviceString:serviceCrossfadeString:maxWidth:actions:") ~typ:(int @-> id @-> id @-> double @-> int @-> returning bool) x serviceString serviceCrossfadeString maxWidth actions +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBarSignalStrengthItemView.ml b/uikit_extra/UIStatusBarSignalStrengthItemView.ml new file mode 100644 index 00000000..03fa6862 --- /dev/null +++ b/uikit_extra/UIStatusBarSignalStrengthItemView.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarsignalstrengthitemview?language=objc}UIStatusBarSignalStrengthItemView} *) + +let self = get_class "UIStatusBarSignalStrengthItemView" + +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let extraLeftPadding self = msg_send ~self ~cmd:(selector "extraLeftPadding") ~typ:(returning double) +let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning double) +let touchesEnded x ~withEvent self = msg_send ~self ~cmd:(selector "touchesEnded:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBarStyleAnimationParameters.ml b/uikit_extra/UIStatusBarStyleAnimationParameters.ml new file mode 100644 index 00000000..94b3e9f9 --- /dev/null +++ b/uikit_extra/UIStatusBarStyleAnimationParameters.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarstyleanimationparameters?language=objc}UIStatusBarStyleAnimationParameters} *) + +let self = get_class "UIStatusBarStyleAnimationParameters" + +let initWithDefaultParameters self = msg_send ~self ~cmd:(selector "initWithDefaultParameters") ~typ:(returning id) +let setStyleAnimation x self = msg_send ~self ~cmd:(selector "setStyleAnimation:") ~typ:(int @-> returning void) x +let shouldAnimate self = msg_send ~self ~cmd:(selector "shouldAnimate") ~typ:(returning bool) +let styleAnimation self = msg_send ~self ~cmd:(selector "styleAnimation") ~typ:(returning int) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarStyleRequest.ml b/uikit_extra/UIStatusBarStyleRequest.ml new file mode 100644 index 00000000..e847ee6b --- /dev/null +++ b/uikit_extra/UIStatusBarStyleRequest.ml @@ -0,0 +1,33 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarstylerequest?language=objc}UIStatusBarStyleRequest} *) + +let self = get_class "UIStatusBarStyleRequest" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let foregroundAlpha self = msg_send ~self ~cmd:(selector "foregroundAlpha") ~typ:(returning double) +let foregroundColor self = msg_send ~self ~cmd:(selector "foregroundColor") ~typ:(returning id) +let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let initWithStyle x ~legibilityStyle ~foregroundColor self = msg_send ~self ~cmd:(selector "initWithStyle:legibilityStyle:foregroundColor:") ~typ:(llong @-> llong @-> id @-> returning id) (LLong.of_int x) (LLong.of_int legibilityStyle) foregroundColor +let initWithStyle1 x ~legacy ~legibilityStyle ~foregroundColor self = msg_send ~self ~cmd:(selector "initWithStyle:legacy:legibilityStyle:foregroundColor:") ~typ:(llong @-> bool @-> llong @-> id @-> returning id) (LLong.of_int x) legacy (LLong.of_int legibilityStyle) foregroundColor +let initWithStyle2 x ~legibilityStyle ~foregroundColor ~foregroundAlpha self = msg_send ~self ~cmd:(selector "initWithStyle:legibilityStyle:foregroundColor:foregroundAlpha:") ~typ:(llong @-> llong @-> id @-> double @-> returning id) (LLong.of_int x) (LLong.of_int legibilityStyle) foregroundColor foregroundAlpha +let initWithStyle3 x ~legibilityStyle ~foregroundColor ~overrideHeight self = msg_send ~self ~cmd:(selector "initWithStyle:legibilityStyle:foregroundColor:overrideHeight:") ~typ:(llong @-> llong @-> id @-> id @-> returning id) (LLong.of_int x) (LLong.of_int legibilityStyle) foregroundColor overrideHeight +let initWithStyle4 x ~legacy ~legibilityStyle ~foregroundColor ~foregroundAlpha self = msg_send ~self ~cmd:(selector "initWithStyle:legacy:legibilityStyle:foregroundColor:foregroundAlpha:") ~typ:(llong @-> bool @-> llong @-> id @-> double @-> returning id) (LLong.of_int x) legacy (LLong.of_int legibilityStyle) foregroundColor foregroundAlpha +let initWithStyle5 x ~legibilityStyle ~foregroundColor ~foregroundAlpha ~overrideHeight self = msg_send ~self ~cmd:(selector "initWithStyle:legibilityStyle:foregroundColor:foregroundAlpha:overrideHeight:") ~typ:(llong @-> llong @-> id @-> double @-> id @-> returning id) (LLong.of_int x) (LLong.of_int legibilityStyle) foregroundColor foregroundAlpha overrideHeight +let isDoubleHeight self = msg_send ~self ~cmd:(selector "isDoubleHeight") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let isLegacy self = msg_send ~self ~cmd:(selector "isLegacy") ~typ:(returning bool) +let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning bool) +let legibilityStyle self = msg_send ~self ~cmd:(selector "legibilityStyle") ~typ:(returning llong) +let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:((ptr void) @-> returning id) x +let overrideHeight self = msg_send ~self ~cmd:(selector "overrideHeight") ~typ:(returning id) +let style self = msg_send ~self ~cmd:(selector "style") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit_extra/UIStatusBarSystemNavigationItemView.ml b/uikit_extra/UIStatusBarSystemNavigationItemView.ml new file mode 100644 index 00000000..be2b45a4 --- /dev/null +++ b/uikit_extra/UIStatusBarSystemNavigationItemView.ml @@ -0,0 +1,32 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarsystemnavigationitemview?language=objc}UIStatusBarSystemNavigationItemView} *) + +let self = get_class "UIStatusBarSystemNavigationItemView" + +let accessibilityHUDRepresentation self = msg_send ~self ~cmd:(selector "accessibilityHUDRepresentation") ~typ:(returning id) +let addContentOverlap x self = msg_send ~self ~cmd:(selector "addContentOverlap:") ~typ:(double @-> returning double) x +let button self = msg_send ~self ~cmd:(selector "button") ~typ:(returning id) +let currentLabelCompressionLevel self = msg_send ~self ~cmd:(selector "currentLabelCompressionLevel") ~typ:(returning int) +let extraLeftPadding self = msg_send ~self ~cmd:(selector "extraLeftPadding") ~typ:(returning double) +let extraRightPadding self = msg_send ~self ~cmd:(selector "extraRightPadding") ~typ:(returning double) +let labelLineBreakMode self = msg_send ~self ~cmd:(selector "labelLineBreakMode") ~typ:(returning llong) +let layoutImageOnTrailingEdge self = msg_send ~self ~cmd:(selector "layoutImageOnTrailingEdge") ~typ:(returning bool) +let maxWidth self = msg_send ~self ~cmd:(selector "maxWidth") ~typ:(returning double) +let resetContentOverlap self = msg_send ~self ~cmd:(selector "resetContentOverlap") ~typ:(returning double) +let setButton x self = msg_send ~self ~cmd:(selector "setButton:") ~typ:(id @-> returning void) x +let setCurrentLabelCompressionLevel x self = msg_send ~self ~cmd:(selector "setCurrentLabelCompressionLevel:") ~typ:(int @-> returning void) x +let setMaxWidth x self = msg_send ~self ~cmd:(selector "setMaxWidth:") ~typ:(double @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let shortenedTitleWithCompressionLevel x self = msg_send ~self ~cmd:(selector "shortenedTitleWithCompressionLevel:") ~typ:(int @-> returning id) x +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) +let updateContentsAndWidth self = msg_send ~self ~cmd:(selector "updateContentsAndWidth") ~typ:(returning double) +let userDidActivateButton x self = msg_send ~self ~cmd:(selector "userDidActivateButton:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIStatusBarTetheringItemView.ml b/uikit_extra/UIStatusBarTetheringItemView.ml new file mode 100644 index 00000000..5b6a680a --- /dev/null +++ b/uikit_extra/UIStatusBarTetheringItemView.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbartetheringitemview?language=objc}UIStatusBarTetheringItemView} *) + +let self = get_class "UIStatusBarTetheringItemView" + +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBarThermalColorItemView.ml b/uikit_extra/UIStatusBarThermalColorItemView.ml new file mode 100644 index 00000000..00ab2059 --- /dev/null +++ b/uikit_extra/UIStatusBarThermalColorItemView.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbarthermalcoloritemview?language=objc}UIStatusBarThermalColorItemView} *) + +let self = get_class "UIStatusBarThermalColorItemView" + +let contentsImage self = msg_send ~self ~cmd:(selector "contentsImage") ~typ:(returning id) +let updateForNewData x ~actions self = msg_send ~self ~cmd:(selector "updateForNewData:actions:") ~typ:(id @-> int @-> returning bool) x actions \ No newline at end of file diff --git a/uikit_extra/UIStatusBar_Base.ml b/uikit_extra/UIStatusBar_Base.ml index d937aa59..bb5e9270 100644 --- a/uikit_extra/UIStatusBar_Base.ml +++ b/uikit_extra/UIStatusBar_Base.ml @@ -5,115 +5,115 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStatusBar_Base" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbar_base?language=objc}UIStatusBar_Base} *) -module C = struct - let heightForStyle x ~orientation self = msg_send ~self ~cmd:(selector "heightForStyle:orientation:") ~typ:(llong @-> llong @-> returning (double)) (LLong.of_int x) (LLong.of_int orientation) - let heightForStyle1 x ~orientation ~inWindow self = msg_send ~self ~cmd:(selector "heightForStyle:orientation:inWindow:") ~typ:(llong @-> llong @-> id @-> returning (double)) (LLong.of_int x) (LLong.of_int orientation) inWindow - let heightForStyle2 x ~orientation ~inWindow ~isAzulBLinked self = msg_send ~self ~cmd:(selector "heightForStyle:orientation:inWindow:isAzulBLinked:") ~typ:(llong @-> llong @-> id @-> bool @-> returning (double)) (LLong.of_int x) (LLong.of_int orientation) inWindow isAzulBLinked -end +let self = get_class "UIStatusBar_Base" -let actionForPartWithIdentifier x self = msg_send ~self ~cmd:(selector "actionForPartWithIdentifier:") ~typ:(id @-> returning (id)) x -let activeStyleOverride self = msg_send ~self ~cmd:(selector "activeStyleOverride") ~typ:(returning (ullong)) -let activeTintColor self = msg_send ~self ~cmd:(selector "activeTintColor") ~typ:(returning (id)) -let alphaForPartWithIdentifier x self = msg_send ~self ~cmd:(selector "alphaForPartWithIdentifier:") ~typ:(id @-> returning (double)) x -let animateUnlock self = msg_send ~self ~cmd:(selector "animateUnlock") ~typ:(returning (void)) -let avoidanceFrame self = msg_send_stret ~self ~cmd:(selector "avoidanceFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let currentFrame self = msg_send_stret ~self ~cmd:(selector "currentFrame") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let currentHeight self = msg_send ~self ~cmd:(selector "currentHeight") ~typ:(returning (double)) -let currentStyle self = msg_send ~self ~cmd:(selector "currentStyle") ~typ:(returning (llong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let defaultDoubleHeight self = msg_send ~self ~cmd:(selector "defaultDoubleHeight") ~typ:(returning (double)) -let defaultHeight self = msg_send ~self ~cmd:(selector "defaultHeight") ~typ:(returning (double)) -let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning (void)) -let disablesRasterization self = msg_send ~self ~cmd:(selector "disablesRasterization") ~typ:(returning (bool)) -let dockDataProvider self = msg_send ~self ~cmd:(selector "dockDataProvider") ~typ:(returning (id)) -let enabledPartIdentifiers self = msg_send ~self ~cmd:(selector "enabledPartIdentifiers") ~typ:(returning (id)) -let forceUpdate x self = msg_send ~self ~cmd:(selector "forceUpdate:") ~typ:(bool @-> returning (void)) x -let forceUpdateData x self = msg_send ~self ~cmd:(selector "forceUpdateData:") ~typ:(bool @-> returning (void)) x -let forceUpdateDoubleHeightStatus self = msg_send ~self ~cmd:(selector "forceUpdateDoubleHeightStatus") ~typ:(returning (void)) -let forceUpdateStyleOverrides x self = msg_send ~self ~cmd:(selector "forceUpdateStyleOverrides:") ~typ:(bool @-> returning (void)) x -let forceUpdateToData x ~animated self = msg_send ~self ~cmd:(selector "forceUpdateToData:animated:") ~typ:(ptr void @-> bool @-> returning (void)) x animated -let foreground self = msg_send ~self ~cmd:(selector "foreground") ~typ:(returning (bool)) -let foregroundColor self = msg_send ~self ~cmd:(selector "foregroundColor") ~typ:(returning (id)) -let forgetEitherSideHistory self = msg_send ~self ~cmd:(selector "forgetEitherSideHistory") ~typ:(returning (void)) -let frameForOrientation x self = msg_send_stret ~self ~cmd:(selector "frameForOrientation:") ~typ:(llong @-> returning (CGRect.t)) ~return_type:CGRect.t (LLong.of_int x) -let frameForPartWithIdentifier x self = msg_send_stret ~self ~cmd:(selector "frameForPartWithIdentifier:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let heightForOrientation x self = msg_send ~self ~cmd:(selector "heightForOrientation:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let heightForOrientation' x ~isAzulBLinked self = msg_send ~self ~cmd:(selector "heightForOrientation:isAzulBLinked:") ~typ:(llong @-> bool @-> returning (double)) (LLong.of_int x) isAzulBLinked -let hidden self = msg_send ~self ~cmd:(selector "hidden") ~typ:(returning (bool)) -let homeItemsDisabled self = msg_send ~self ~cmd:(selector "homeItemsDisabled") ~typ:(returning (bool)) -let inProcessStateProvider self = msg_send ~self ~cmd:(selector "inProcessStateProvider") ~typ:(returning (id)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let initWithFrame1 x ~showForegroundView self = msg_send ~self ~cmd:(selector "initWithFrame:showForegroundView:") ~typ:(CGRect.t @-> bool @-> returning (id)) x showForegroundView -let initWithFrame2 x ~showForegroundView ~inProcessStateProvider self = msg_send ~self ~cmd:(selector "initWithFrame:showForegroundView:inProcessStateProvider:") ~typ:(CGRect.t @-> bool @-> id @-> returning (id)) x showForegroundView inProcessStateProvider -let intrinsicContentSize self = msg_send_stret ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let isDoubleHeight self = msg_send ~self ~cmd:(selector "isDoubleHeight") ~typ:(returning (bool)) -let isHidden self = msg_send ~self ~cmd:(selector "isHidden") ~typ:(returning (bool)) -let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning (bool)) -let jiggleLockIcon self = msg_send ~self ~cmd:(selector "jiggleLockIcon") ~typ:(returning (void)) -let legibilityStyle self = msg_send ~self ~cmd:(selector "legibilityStyle") ~typ:(returning (llong)) -let manager self = msg_send ~self ~cmd:(selector "manager") ~typ:(returning (id)) -let mode self = msg_send ~self ~cmd:(selector "mode") ~typ:(returning (llong)) -let orientation self = msg_send ~self ~cmd:(selector "orientation") ~typ:(returning (llong)) -let persistentAnimationsEnabled self = msg_send ~self ~cmd:(selector "persistentAnimationsEnabled") ~typ:(returning (bool)) -let registered self = msg_send ~self ~cmd:(selector "registered") ~typ:(returning (bool)) -let requestStyle x self = msg_send ~self ~cmd:(selector "requestStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let requestStyle1 x ~animated self = msg_send ~self ~cmd:(selector "requestStyle:animated:") ~typ:(llong @-> bool @-> returning (void)) (LLong.of_int x) animated -let requestStyle2 x ~animationParameters self = msg_send ~self ~cmd:(selector "requestStyle:animationParameters:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) animationParameters -let requestStyle3 x ~animated ~forced self = msg_send ~self ~cmd:(selector "requestStyle:animated:forced:") ~typ:(llong @-> bool @-> bool @-> returning (void)) (LLong.of_int x) animated forced -let requestStyle4 x ~animationParameters ~forced self = msg_send ~self ~cmd:(selector "requestStyle:animationParameters:forced:") ~typ:(llong @-> id @-> bool @-> returning (void)) (LLong.of_int x) animationParameters forced -let requestStyle5 x ~partStyles ~animationParameters ~forced self = msg_send ~self ~cmd:(selector "requestStyle:partStyles:animationParameters:forced:") ~typ:(llong @-> id @-> id @-> bool @-> returning (void)) (LLong.of_int x) partStyles animationParameters forced -let requestStyle6 x ~animation ~startTime ~duration ~curve self = msg_send ~self ~cmd:(selector "requestStyle:animation:startTime:duration:curve:") ~typ:(llong @-> int @-> double @-> double @-> llong @-> returning (void)) (LLong.of_int x) animation startTime duration (LLong.of_int curve) -let sensorActivityIndicator self = msg_send ~self ~cmd:(selector "sensorActivityIndicator") ~typ:(returning (id)) -let serverUpdatesDisabled self = msg_send ~self ~cmd:(selector "serverUpdatesDisabled") ~typ:(returning (bool)) -let setAction x ~forPartWithIdentifier self = msg_send ~self ~cmd:(selector "setAction:forPartWithIdentifier:") ~typ:(id @-> id @-> returning (void)) x forPartWithIdentifier -let setActiveStyleOverride x self = msg_send ~self ~cmd:(selector "setActiveStyleOverride:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setAlpha x self = msg_send ~self ~cmd:(selector "setAlpha:") ~typ:(double @-> returning (void)) x -let setAlpha' x ~forPartWithIdentifier self = msg_send ~self ~cmd:(selector "setAlpha:forPartWithIdentifier:") ~typ:(double @-> id @-> returning (void)) x forPartWithIdentifier -let setAvoidanceFrame x self = msg_send ~self ~cmd:(selector "setAvoidanceFrame:") ~typ:(CGRect.t @-> returning (void)) x -let setDockDataProvider x self = msg_send ~self ~cmd:(selector "setDockDataProvider:") ~typ:(id @-> returning (void)) x -let setEnabledCenterItems x ~duration self = msg_send ~self ~cmd:(selector "setEnabledCenterItems:duration:") ~typ:(id @-> double @-> returning (void)) x duration -let setEnabledPartIdentifiers x self = msg_send ~self ~cmd:(selector "setEnabledPartIdentifiers:") ~typ:(id @-> returning (void)) x -let setForeground x self = msg_send ~self ~cmd:(selector "setForeground:") ~typ:(bool @-> returning (void)) x -let setForegroundAlpha x ~animationParameters self = msg_send ~self ~cmd:(selector "setForegroundAlpha:animationParameters:") ~typ:(double @-> id @-> returning (void)) x animationParameters -let setForegroundColor x self = msg_send ~self ~cmd:(selector "setForegroundColor:") ~typ:(id @-> returning (void)) x -let setForegroundColor' x ~animationParameters self = msg_send ~self ~cmd:(selector "setForegroundColor:animationParameters:") ~typ:(id @-> id @-> returning (void)) x animationParameters -let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning (void)) x -let setHidden1 x ~animated self = msg_send ~self ~cmd:(selector "setHidden:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let setHidden2 x ~animationParameters self = msg_send ~self ~cmd:(selector "setHidden:animationParameters:") ~typ:(bool @-> id @-> returning (void)) x animationParameters -let setHomeItemsDisabled x self = msg_send ~self ~cmd:(selector "setHomeItemsDisabled:") ~typ:(bool @-> returning (void)) x -let setInProcessStateProvider x self = msg_send ~self ~cmd:(selector "setInProcessStateProvider:") ~typ:(id @-> returning (void)) x -let setLegibilityStyle x self = msg_send ~self ~cmd:(selector "setLegibilityStyle:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setLegibilityStyle' x ~animationParameters self = msg_send ~self ~cmd:(selector "setLegibilityStyle:animationParameters:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) animationParameters -let setLocalDataOverrides x self = msg_send ~self ~cmd:(selector "setLocalDataOverrides:") ~typ:(ptr void @-> returning (void)) x -let setManager x self = msg_send ~self ~cmd:(selector "setManager:") ~typ:(id @-> returning (void)) x -let setMode x self = msg_send ~self ~cmd:(selector "setMode:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setOffset x ~forPartWithIdentifier self = msg_send ~self ~cmd:(selector "setOffset:forPartWithIdentifier:") ~typ:(ptr void @-> id @-> returning (void)) x forPartWithIdentifier -let setOrientation x self = msg_send ~self ~cmd:(selector "setOrientation:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setPersistentAnimationsEnabled x self = msg_send ~self ~cmd:(selector "setPersistentAnimationsEnabled:") ~typ:(bool @-> returning (void)) x -let setRegistered x self = msg_send ~self ~cmd:(selector "setRegistered:") ~typ:(bool @-> returning (void)) x -let setSensorActivityIndicator x self = msg_send ~self ~cmd:(selector "setSensorActivityIndicator:") ~typ:(id @-> returning (void)) x -let setServerUpdatesDisabled x self = msg_send ~self ~cmd:(selector "setServerUpdatesDisabled:") ~typ:(bool @-> returning (void)) x -let setShowsOnlyCenterItems x self = msg_send ~self ~cmd:(selector "setShowsOnlyCenterItems:") ~typ:(bool @-> returning (void)) x -let setStatusBarServer x self = msg_send ~self ~cmd:(selector "setStatusBarServer:") ~typ:(id @-> returning (void)) x -let setStyleDelegate x self = msg_send ~self ~cmd:(selector "setStyleDelegate:") ~typ:(id @-> returning (void)) x -let setStyleRequest x self = msg_send ~self ~cmd:(selector "setStyleRequest:") ~typ:(id @-> returning (void)) x -let setStyleRequest' x ~animationParameters self = msg_send ~self ~cmd:(selector "setStyleRequest:animationParameters:") ~typ:(id @-> id @-> returning (void)) x animationParameters -let setSuppressesHiddenSideEffects x self = msg_send ~self ~cmd:(selector "setSuppressesHiddenSideEffects:") ~typ:(bool @-> returning (void)) x -let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning (void)) x -let setTintColor' x ~withDuration self = msg_send ~self ~cmd:(selector "setTintColor:withDuration:") ~typ:(id @-> double @-> returning (void)) x withDuration -let showsContentsOnScreen self = msg_send ~self ~cmd:(selector "showsContentsOnScreen") ~typ:(returning (bool)) -let statusBarServer self = msg_send ~self ~cmd:(selector "statusBarServer") ~typ:(returning (id)) -let statusBarServer1 x ~didReceiveStyleOverrides self = msg_send ~self ~cmd:(selector "statusBarServer:didReceiveStyleOverrides:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int didReceiveStyleOverrides) -let statusBarServer2 x ~didReceiveDoubleHeightStatusString ~forStyle self = msg_send ~self ~cmd:(selector "statusBarServer:didReceiveDoubleHeightStatusString:forStyle:") ~typ:(id @-> id @-> llong @-> returning (void)) x didReceiveDoubleHeightStatusString (LLong.of_int forStyle) -let statusBarServer3 x ~didReceiveGlowAnimationState ~forStyle self = msg_send ~self ~cmd:(selector "statusBarServer:didReceiveGlowAnimationState:forStyle:") ~typ:(id @-> bool @-> llong @-> returning (void)) x didReceiveGlowAnimationState (LLong.of_int forStyle) -let statusBarServer4 x ~didReceiveStatusBarData ~withActions self = msg_send ~self ~cmd:(selector "statusBarServer:didReceiveStatusBarData:withActions:") ~typ:(id @-> ptr void @-> int @-> returning (void)) x didReceiveStatusBarData withActions -let statusBarStateProvider x ~didPostStatusBarData ~withActions self = msg_send ~self ~cmd:(selector "statusBarStateProvider:didPostStatusBarData:withActions:") ~typ:(id @-> ptr void @-> int @-> returning (void)) x didPostStatusBarData withActions -let statusBarWindow self = msg_send ~self ~cmd:(selector "statusBarWindow") ~typ:(returning (id)) -let styleDelegate self = msg_send ~self ~cmd:(selector "styleDelegate") ~typ:(returning (id)) -let styleForRequestedStyle x self = msg_send ~self ~cmd:(selector "styleForRequestedStyle:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let styleOverrides self = msg_send ~self ~cmd:(selector "styleOverrides") ~typ:(returning (ullong)) -let styleRequest self = msg_send ~self ~cmd:(selector "styleRequest") ~typ:(returning (id)) -let suppressesHiddenSideEffects self = msg_send ~self ~cmd:(selector "suppressesHiddenSideEffects") ~typ:(returning (bool)) \ No newline at end of file +let actionForPartWithIdentifier x self = msg_send ~self ~cmd:(selector "actionForPartWithIdentifier:") ~typ:(id @-> returning id) x +let activeStyleOverride self = msg_send ~self ~cmd:(selector "activeStyleOverride") ~typ:(returning ullong) +let activeTintColor self = msg_send ~self ~cmd:(selector "activeTintColor") ~typ:(returning id) +let alphaForPartWithIdentifier x self = msg_send ~self ~cmd:(selector "alphaForPartWithIdentifier:") ~typ:(id @-> returning double) x +let animateUnlock self = msg_send ~self ~cmd:(selector "animateUnlock") ~typ:(returning void) +let avoidanceFrame self = msg_send ~self ~cmd:(selector "avoidanceFrame") ~typ:(returning CGRect.t) +let currentFrame self = msg_send ~self ~cmd:(selector "currentFrame") ~typ:(returning CGRect.t) +let currentHeight self = msg_send ~self ~cmd:(selector "currentHeight") ~typ:(returning double) +let currentStyle self = msg_send ~self ~cmd:(selector "currentStyle") ~typ:(returning llong) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let defaultDoubleHeight self = msg_send ~self ~cmd:(selector "defaultDoubleHeight") ~typ:(returning double) +let defaultHeight self = msg_send ~self ~cmd:(selector "defaultHeight") ~typ:(returning double) +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let disablesRasterization self = msg_send ~self ~cmd:(selector "disablesRasterization") ~typ:(returning bool) +let dockDataProvider self = msg_send ~self ~cmd:(selector "dockDataProvider") ~typ:(returning id) +let enabledPartIdentifiers self = msg_send ~self ~cmd:(selector "enabledPartIdentifiers") ~typ:(returning id) +let forceUpdate x self = msg_send ~self ~cmd:(selector "forceUpdate:") ~typ:(bool @-> returning void) x +let forceUpdateData x self = msg_send ~self ~cmd:(selector "forceUpdateData:") ~typ:(bool @-> returning void) x +let forceUpdateDoubleHeightStatus self = msg_send ~self ~cmd:(selector "forceUpdateDoubleHeightStatus") ~typ:(returning void) +let forceUpdateStyleOverrides x self = msg_send ~self ~cmd:(selector "forceUpdateStyleOverrides:") ~typ:(bool @-> returning void) x +let forceUpdateToData x ~animated self = msg_send ~self ~cmd:(selector "forceUpdateToData:animated:") ~typ:((ptr void) @-> bool @-> returning void) x animated +let foreground self = msg_send ~self ~cmd:(selector "foreground") ~typ:(returning bool) +let foregroundColor self = msg_send ~self ~cmd:(selector "foregroundColor") ~typ:(returning id) +let forgetEitherSideHistory self = msg_send ~self ~cmd:(selector "forgetEitherSideHistory") ~typ:(returning void) +let frameForOrientation x self = msg_send ~self ~cmd:(selector "frameForOrientation:") ~typ:(llong @-> returning CGRect.t) (LLong.of_int x) +let frameForPartWithIdentifier x self = msg_send ~self ~cmd:(selector "frameForPartWithIdentifier:") ~typ:(id @-> returning CGRect.t) x +let heightForOrientation x self = msg_send ~self ~cmd:(selector "heightForOrientation:") ~typ:(llong @-> returning double) (LLong.of_int x) +let heightForOrientation' x ~isAzulBLinked self = msg_send ~self ~cmd:(selector "heightForOrientation:isAzulBLinked:") ~typ:(llong @-> bool @-> returning double) (LLong.of_int x) isAzulBLinked +let hidden self = msg_send ~self ~cmd:(selector "hidden") ~typ:(returning bool) +let homeItemsDisabled self = msg_send ~self ~cmd:(selector "homeItemsDisabled") ~typ:(returning bool) +let inProcessStateProvider self = msg_send ~self ~cmd:(selector "inProcessStateProvider") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let initWithFrame1 x ~showForegroundView self = msg_send ~self ~cmd:(selector "initWithFrame:showForegroundView:") ~typ:(CGRect.t @-> bool @-> returning id) x showForegroundView +let initWithFrame2 x ~showForegroundView ~inProcessStateProvider self = msg_send ~self ~cmd:(selector "initWithFrame:showForegroundView:inProcessStateProvider:") ~typ:(CGRect.t @-> bool @-> id @-> returning id) x showForegroundView inProcessStateProvider +let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) +let isDoubleHeight self = msg_send ~self ~cmd:(selector "isDoubleHeight") ~typ:(returning bool) +let isHidden self = msg_send ~self ~cmd:(selector "isHidden") ~typ:(returning bool) +let isTranslucent self = msg_send ~self ~cmd:(selector "isTranslucent") ~typ:(returning bool) +let jiggleLockIcon self = msg_send ~self ~cmd:(selector "jiggleLockIcon") ~typ:(returning void) +let legibilityStyle self = msg_send ~self ~cmd:(selector "legibilityStyle") ~typ:(returning llong) +let localDataOverrides self = msg_send ~self ~cmd:(selector "localDataOverrides") ~typ:(returning (ptr void)) +let manager self = msg_send ~self ~cmd:(selector "manager") ~typ:(returning id) +let mode self = msg_send ~self ~cmd:(selector "mode") ~typ:(returning llong) +let offsetForPartWithIdentifier x self = msg_send ~self ~cmd:(selector "offsetForPartWithIdentifier:") ~typ:(id @-> returning UIOffset.t) x +let orientation self = msg_send ~self ~cmd:(selector "orientation") ~typ:(returning llong) +let persistentAnimationsEnabled self = msg_send ~self ~cmd:(selector "persistentAnimationsEnabled") ~typ:(returning bool) +let registered self = msg_send ~self ~cmd:(selector "registered") ~typ:(returning bool) +let requestStyle x self = msg_send ~self ~cmd:(selector "requestStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let requestStyle1 x ~animated self = msg_send ~self ~cmd:(selector "requestStyle:animated:") ~typ:(llong @-> bool @-> returning void) (LLong.of_int x) animated +let requestStyle2 x ~animationParameters self = msg_send ~self ~cmd:(selector "requestStyle:animationParameters:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) animationParameters +let requestStyle3 x ~animated ~forced self = msg_send ~self ~cmd:(selector "requestStyle:animated:forced:") ~typ:(llong @-> bool @-> bool @-> returning void) (LLong.of_int x) animated forced +let requestStyle4 x ~animationParameters ~forced self = msg_send ~self ~cmd:(selector "requestStyle:animationParameters:forced:") ~typ:(llong @-> id @-> bool @-> returning void) (LLong.of_int x) animationParameters forced +let requestStyle5 x ~partStyles ~animationParameters ~forced self = msg_send ~self ~cmd:(selector "requestStyle:partStyles:animationParameters:forced:") ~typ:(llong @-> id @-> id @-> bool @-> returning void) (LLong.of_int x) partStyles animationParameters forced +let requestStyle6 x ~animation ~startTime ~duration ~curve self = msg_send ~self ~cmd:(selector "requestStyle:animation:startTime:duration:curve:") ~typ:(llong @-> int @-> double @-> double @-> llong @-> returning void) (LLong.of_int x) animation startTime duration (LLong.of_int curve) +let sensorActivityIndicator self = msg_send ~self ~cmd:(selector "sensorActivityIndicator") ~typ:(returning id) +let serverUpdatesDisabled self = msg_send ~self ~cmd:(selector "serverUpdatesDisabled") ~typ:(returning bool) +let setAction x ~forPartWithIdentifier self = msg_send ~self ~cmd:(selector "setAction:forPartWithIdentifier:") ~typ:(id @-> id @-> returning void) x forPartWithIdentifier +let setActiveStyleOverride x self = msg_send ~self ~cmd:(selector "setActiveStyleOverride:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setAlpha x self = msg_send ~self ~cmd:(selector "setAlpha:") ~typ:(double @-> returning void) x +let setAlpha' x ~forPartWithIdentifier self = msg_send ~self ~cmd:(selector "setAlpha:forPartWithIdentifier:") ~typ:(double @-> id @-> returning void) x forPartWithIdentifier +let setAvoidanceFrame x self = msg_send ~self ~cmd:(selector "setAvoidanceFrame:") ~typ:(CGRect.t @-> returning void) x +let setDockDataProvider x self = msg_send ~self ~cmd:(selector "setDockDataProvider:") ~typ:(id @-> returning void) x +let setEnabledCenterItems x ~duration self = msg_send ~self ~cmd:(selector "setEnabledCenterItems:duration:") ~typ:(id @-> double @-> returning void) x duration +let setEnabledPartIdentifiers x self = msg_send ~self ~cmd:(selector "setEnabledPartIdentifiers:") ~typ:(id @-> returning void) x +let setForeground x self = msg_send ~self ~cmd:(selector "setForeground:") ~typ:(bool @-> returning void) x +let setForegroundAlpha x ~animationParameters self = msg_send ~self ~cmd:(selector "setForegroundAlpha:animationParameters:") ~typ:(double @-> id @-> returning void) x animationParameters +let setForegroundColor x self = msg_send ~self ~cmd:(selector "setForegroundColor:") ~typ:(id @-> returning void) x +let setForegroundColor' x ~animationParameters self = msg_send ~self ~cmd:(selector "setForegroundColor:animationParameters:") ~typ:(id @-> id @-> returning void) x animationParameters +let setHidden x self = msg_send ~self ~cmd:(selector "setHidden:") ~typ:(bool @-> returning void) x +let setHidden1 x ~animated self = msg_send ~self ~cmd:(selector "setHidden:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setHidden2 x ~animationParameters self = msg_send ~self ~cmd:(selector "setHidden:animationParameters:") ~typ:(bool @-> id @-> returning void) x animationParameters +let setHomeItemsDisabled x self = msg_send ~self ~cmd:(selector "setHomeItemsDisabled:") ~typ:(bool @-> returning void) x +let setInProcessStateProvider x self = msg_send ~self ~cmd:(selector "setInProcessStateProvider:") ~typ:(id @-> returning void) x +let setLegibilityStyle x self = msg_send ~self ~cmd:(selector "setLegibilityStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setLegibilityStyle' x ~animationParameters self = msg_send ~self ~cmd:(selector "setLegibilityStyle:animationParameters:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) animationParameters +let setLocalDataOverrides x self = msg_send ~self ~cmd:(selector "setLocalDataOverrides:") ~typ:((ptr void) @-> returning void) x +let setManager x self = msg_send ~self ~cmd:(selector "setManager:") ~typ:(id @-> returning void) x +let setMode x self = msg_send ~self ~cmd:(selector "setMode:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setOffset x ~forPartWithIdentifier self = msg_send ~self ~cmd:(selector "setOffset:forPartWithIdentifier:") ~typ:(UIOffset.t @-> id @-> returning void) x forPartWithIdentifier +let setOrientation x self = msg_send ~self ~cmd:(selector "setOrientation:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setPersistentAnimationsEnabled x self = msg_send ~self ~cmd:(selector "setPersistentAnimationsEnabled:") ~typ:(bool @-> returning void) x +let setRegistered x self = msg_send ~self ~cmd:(selector "setRegistered:") ~typ:(bool @-> returning void) x +let setSensorActivityIndicator x self = msg_send ~self ~cmd:(selector "setSensorActivityIndicator:") ~typ:(id @-> returning void) x +let setServerUpdatesDisabled x self = msg_send ~self ~cmd:(selector "setServerUpdatesDisabled:") ~typ:(bool @-> returning void) x +let setShowsOnlyCenterItems x self = msg_send ~self ~cmd:(selector "setShowsOnlyCenterItems:") ~typ:(bool @-> returning void) x +let setStatusBarServer x self = msg_send ~self ~cmd:(selector "setStatusBarServer:") ~typ:(id @-> returning void) x +let setStyleDelegate x self = msg_send ~self ~cmd:(selector "setStyleDelegate:") ~typ:(id @-> returning void) x +let setStyleRequest x self = msg_send ~self ~cmd:(selector "setStyleRequest:") ~typ:(id @-> returning void) x +let setStyleRequest' x ~animationParameters self = msg_send ~self ~cmd:(selector "setStyleRequest:animationParameters:") ~typ:(id @-> id @-> returning void) x animationParameters +let setSuppressesHiddenSideEffects x self = msg_send ~self ~cmd:(selector "setSuppressesHiddenSideEffects:") ~typ:(bool @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let setTintColor' x ~withDuration self = msg_send ~self ~cmd:(selector "setTintColor:withDuration:") ~typ:(id @-> double @-> returning void) x withDuration +let showsContentsOnScreen self = msg_send ~self ~cmd:(selector "showsContentsOnScreen") ~typ:(returning bool) +let statusBarServer self = msg_send ~self ~cmd:(selector "statusBarServer") ~typ:(returning id) +let statusBarServer1 x ~didReceiveStyleOverrides self = msg_send ~self ~cmd:(selector "statusBarServer:didReceiveStyleOverrides:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int didReceiveStyleOverrides) +let statusBarServer2 x ~didReceiveDoubleHeightStatusString ~forStyle self = msg_send ~self ~cmd:(selector "statusBarServer:didReceiveDoubleHeightStatusString:forStyle:") ~typ:(id @-> id @-> llong @-> returning void) x didReceiveDoubleHeightStatusString (LLong.of_int forStyle) +let statusBarServer3 x ~didReceiveGlowAnimationState ~forStyle self = msg_send ~self ~cmd:(selector "statusBarServer:didReceiveGlowAnimationState:forStyle:") ~typ:(id @-> bool @-> llong @-> returning void) x didReceiveGlowAnimationState (LLong.of_int forStyle) +let statusBarServer4 x ~didReceiveStatusBarData ~withActions self = msg_send ~self ~cmd:(selector "statusBarServer:didReceiveStatusBarData:withActions:") ~typ:(id @-> (ptr void) @-> int @-> returning void) x didReceiveStatusBarData withActions +let statusBarStateProvider x ~didPostStatusBarData ~withActions self = msg_send ~self ~cmd:(selector "statusBarStateProvider:didPostStatusBarData:withActions:") ~typ:(id @-> (ptr void) @-> int @-> returning void) x didPostStatusBarData withActions +let statusBarWindow self = msg_send ~self ~cmd:(selector "statusBarWindow") ~typ:(returning id) +let styleDelegate self = msg_send ~self ~cmd:(selector "styleDelegate") ~typ:(returning id) +let styleForRequestedStyle x self = msg_send ~self ~cmd:(selector "styleForRequestedStyle:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let styleOverrides self = msg_send ~self ~cmd:(selector "styleOverrides") ~typ:(returning ullong) +let styleRequest self = msg_send ~self ~cmd:(selector "styleRequest") ~typ:(returning id) +let suppressesHiddenSideEffects self = msg_send ~self ~cmd:(selector "suppressesHiddenSideEffects") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStatusBar_BaseClass.ml b/uikit_extra/UIStatusBar_BaseClass.ml new file mode 100644 index 00000000..7a58b8ef --- /dev/null +++ b/uikit_extra/UIStatusBar_BaseClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbar_base?language=objc}UIStatusBar_Base} *) + +let heightForStyle x ~orientation self = msg_send ~self ~cmd:(selector "heightForStyle:orientation:") ~typ:(llong @-> llong @-> returning double) (LLong.of_int x) (LLong.of_int orientation) +let heightForStyle1 x ~orientation ~inWindow self = msg_send ~self ~cmd:(selector "heightForStyle:orientation:inWindow:") ~typ:(llong @-> llong @-> id @-> returning double) (LLong.of_int x) (LLong.of_int orientation) inWindow +let heightForStyle2 x ~orientation ~inWindow ~isAzulBLinked self = msg_send ~self ~cmd:(selector "heightForStyle:orientation:inWindow:isAzulBLinked:") ~typ:(llong @-> llong @-> id @-> bool @-> returning double) (LLong.of_int x) (LLong.of_int orientation) inWindow isAzulBLinked \ No newline at end of file diff --git a/uikit_extra/UIStatusBar_Placeholder.ml b/uikit_extra/UIStatusBar_Placeholder.ml index 69efc0f7..b4661014 100644 --- a/uikit_extra/UIStatusBar_Placeholder.ml +++ b/uikit_extra/UIStatusBar_Placeholder.ml @@ -5,12 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UIStatusBar_Placeholder" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistatusbar_placeholder?language=objc}UIStatusBar_Placeholder} *) -let currentStyle self = msg_send ~self ~cmd:(selector "currentStyle") ~typ:(returning (llong)) -let defaultDoubleHeight self = msg_send ~self ~cmd:(selector "defaultDoubleHeight") ~typ:(returning (double)) -let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning (id)) x withEvent -let setForegroundColor x ~animationParameters self = msg_send ~self ~cmd:(selector "setForegroundColor:animationParameters:") ~typ:(id @-> id @-> returning (void)) x animationParameters -let setLegibilityStyle x ~animationParameters self = msg_send ~self ~cmd:(selector "setLegibilityStyle:animationParameters:") ~typ:(llong @-> id @-> returning (void)) (LLong.of_int x) animationParameters -let setStyleRequest x ~animationParameters self = msg_send ~self ~cmd:(selector "setStyleRequest:animationParameters:") ~typ:(id @-> id @-> returning (void)) x animationParameters \ No newline at end of file +let self = get_class "UIStatusBar_Placeholder" + +let currentStyle self = msg_send ~self ~cmd:(selector "currentStyle") ~typ:(returning llong) +let defaultDoubleHeight self = msg_send ~self ~cmd:(selector "defaultDoubleHeight") ~typ:(returning double) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let setForegroundColor x ~animationParameters self = msg_send ~self ~cmd:(selector "setForegroundColor:animationParameters:") ~typ:(id @-> id @-> returning void) x animationParameters +let setLegibilityStyle x ~animationParameters self = msg_send ~self ~cmd:(selector "setLegibilityStyle:animationParameters:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) animationParameters +let setStyleRequest x ~animationParameters self = msg_send ~self ~cmd:(selector "setStyleRequest:animationParameters:") ~typ:(id @-> id @-> returning void) x animationParameters \ No newline at end of file diff --git a/uikit_extra/UIStepperMacVisualElement.ml b/uikit_extra/UIStepperMacVisualElement.ml new file mode 100644 index 00000000..6b2a6ded --- /dev/null +++ b/uikit_extra/UIStepperMacVisualElement.ml @@ -0,0 +1,49 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisteppermacvisualelement?language=objc}UIStepperMacVisualElement} *) + +let self = get_class "UIStepperMacVisualElement" + +let alignmentRectInsetsForControl x self = msg_send ~self ~cmd:(selector "alignmentRectInsetsForControl:") ~typ:(id @-> returning UIEdgeInsets.t) x +let autorepeat self = msg_send ~self ~cmd:(selector "autorepeat") ~typ:(returning bool) +let backgroundImageForState x self = msg_send ~self ~cmd:(selector "backgroundImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let cancelTrackingWithEvent x self = msg_send ~self ~cmd:(selector "cancelTrackingWithEvent:") ~typ:(id @-> returning void) x +let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let decrementImageForState x self = msg_send ~self ~cmd:(selector "decrementImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let dividerImageForLeftSegmentState x ~rightSegmentState self = msg_send ~self ~cmd:(selector "dividerImageForLeftSegmentState:rightSegmentState:") ~typ:(ullong @-> ullong @-> returning id) (ULLong.of_int x) (ULLong.of_int rightSegmentState) +let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let incrementImageForState x self = msg_send ~self ~cmd:(selector "incrementImageForState:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let intrinsicSizeWithinSize x ~forControl self = msg_send ~self ~cmd:(selector "intrinsicSizeWithinSize:forControl:") ~typ:(CGSize.t @-> id @-> returning CGSize.t) x forControl +let isContinuous self = msg_send ~self ~cmd:(selector "isContinuous") ~typ:(returning bool) +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let layoutSublayersOfLayer x self = msg_send ~self ~cmd:(selector "layoutSublayersOfLayer:") ~typ:(id @-> returning void) x +let maximumValue self = msg_send ~self ~cmd:(selector "maximumValue") ~typ:(returning double) +let minimumValue self = msg_send ~self ~cmd:(selector "minimumValue") ~typ:(returning double) +let setAutorepeat x self = msg_send ~self ~cmd:(selector "setAutorepeat:") ~typ:(bool @-> returning void) x +let setBackgroundImage x ~forState self = msg_send ~self ~cmd:(selector "setBackgroundImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setContinuous x self = msg_send ~self ~cmd:(selector "setContinuous:") ~typ:(bool @-> returning void) x +let setDecrementImage x ~forState self = msg_send ~self ~cmd:(selector "setDecrementImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setDividerImage x ~forLeftSegmentState ~rightSegmentState self = msg_send ~self ~cmd:(selector "setDividerImage:forLeftSegmentState:rightSegmentState:") ~typ:(id @-> ullong @-> ullong @-> returning void) x (ULLong.of_int forLeftSegmentState) (ULLong.of_int rightSegmentState) +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setIncrementImage x ~forState self = msg_send ~self ~cmd:(selector "setIncrementImage:forState:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int forState) +let setMaximumValue x self = msg_send ~self ~cmd:(selector "setMaximumValue:") ~typ:(double @-> returning void) x +let setMinimumValue x self = msg_send ~self ~cmd:(selector "setMinimumValue:") ~typ:(double @-> returning void) x +let setStepValue x self = msg_send ~self ~cmd:(selector "setStepValue:") ~typ:(double @-> returning void) x +let setStepperControl x self = msg_send ~self ~cmd:(selector "setStepperControl:") ~typ:(id @-> returning void) x +let setValue x self = msg_send ~self ~cmd:(selector "setValue:") ~typ:(double @-> returning void) x +let setWraps x self = msg_send ~self ~cmd:(selector "setWraps:") ~typ:(bool @-> returning void) x +let sizeThatFits x ~forControl self = msg_send ~self ~cmd:(selector "sizeThatFits:forControl:") ~typ:(CGSize.t @-> id @-> returning CGSize.t) x forControl +let stepValue self = msg_send ~self ~cmd:(selector "stepValue") ~typ:(returning double) +let stepperControl self = msg_send ~self ~cmd:(selector "stepperControl") ~typ:(returning id) +let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning double) +let wraps self = msg_send ~self ~cmd:(selector "wraps") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStepperMacVisualElementClass.ml b/uikit_extra/UIStepperMacVisualElementClass.ml new file mode 100644 index 00000000..76acb1bd --- /dev/null +++ b/uikit_extra/UIStepperMacVisualElementClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisteppermacvisualelement?language=objc}UIStepperMacVisualElement} *) + +let initialAlignmentRectInsets self = msg_send ~self ~cmd:(selector "initialAlignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let initialIntrinsicSize self = msg_send ~self ~cmd:(selector "initialIntrinsicSize") ~typ:(returning CGSize.t) +let initialSize self = msg_send ~self ~cmd:(selector "initialSize") ~typ:(returning CGSize.t) \ No newline at end of file diff --git a/uikit_extra/UIStoryboardDecodingContext.ml b/uikit_extra/UIStoryboardDecodingContext.ml new file mode 100644 index 00000000..608a4a4f --- /dev/null +++ b/uikit_extra/UIStoryboardDecodingContext.ml @@ -0,0 +1,26 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboarddecodingcontext?language=objc}UIStoryboardDecodingContext} *) + +let self = get_class "UIStoryboardDecodingContext" + +let childViewControllerIndex self = msg_send ~self ~cmd:(selector "childViewControllerIndex") ~typ:(returning llong) +let classSwapperTemplate self = msg_send ~self ~cmd:(selector "classSwapperTemplate") ~typ:(returning id) +let creator self = msg_send ~self ~cmd:(selector "creator") ~typ:(returning (ptr void)) +let parentViewController self = msg_send ~self ~cmd:(selector "parentViewController") ~typ:(returning id) +let sender self = msg_send ~self ~cmd:(selector "sender") ~typ:(returning id) +let setChildViewControllerIndex x self = msg_send ~self ~cmd:(selector "setChildViewControllerIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setClassSwapperTemplate x self = msg_send ~self ~cmd:(selector "setClassSwapperTemplate:") ~typ:(id @-> returning void) x +let setCreator x self = msg_send ~self ~cmd:(selector "setCreator:") ~typ:((ptr void) @-> returning void) x +let setParentViewController x self = msg_send ~self ~cmd:(selector "setParentViewController:") ~typ:(id @-> returning void) x +let setSender x self = msg_send ~self ~cmd:(selector "setSender:") ~typ:(id @-> returning void) x +let setSourceSegueTemplate x self = msg_send ~self ~cmd:(selector "setSourceSegueTemplate:") ~typ:(id @-> returning void) x +let sourceSegueTemplate self = msg_send ~self ~cmd:(selector "sourceSegueTemplate") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIStoryboardEmbedSegueTemplate.ml b/uikit_extra/UIStoryboardEmbedSegueTemplate.ml new file mode 100644 index 00000000..37e04efa --- /dev/null +++ b/uikit_extra/UIStoryboardEmbedSegueTemplate.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboardembedseguetemplate?language=objc}UIStoryboardEmbedSegueTemplate} *) + +let self = get_class "UIStoryboardEmbedSegueTemplate" + +let containerView self = msg_send ~self ~cmd:(selector "containerView") ~typ:(returning id) +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 newDefaultPerformHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPerformHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x +let setContainerView x self = msg_send ~self ~cmd:(selector "setContainerView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIStoryboardModalSegueTemplate.ml b/uikit_extra/UIStoryboardModalSegueTemplate.ml new file mode 100644 index 00000000..66779f56 --- /dev/null +++ b/uikit_extra/UIStoryboardModalSegueTemplate.ml @@ -0,0 +1,25 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboardmodalseguetemplate?language=objc}UIStoryboardModalSegueTemplate} *) + +let self = get_class "UIStoryboardModalSegueTemplate" + +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 modalPresentationStyle self = msg_send ~self ~cmd:(selector "modalPresentationStyle") ~typ:(returning llong) +let modalTransitionStyle self = msg_send ~self ~cmd:(selector "modalTransitionStyle") ~typ:(returning llong) +let newDefaultPerformHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPerformHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x +let setModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setModalPresentationStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setModalTransitionStyle x self = msg_send ~self ~cmd:(selector "setModalTransitionStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setUseDefaultModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setUseDefaultModalPresentationStyle:") ~typ:(bool @-> returning void) x +let setUseDefaultModalTransitionStyle x self = msg_send ~self ~cmd:(selector "setUseDefaultModalTransitionStyle:") ~typ:(bool @-> returning void) x +let useDefaultModalPresentationStyle self = msg_send ~self ~cmd:(selector "useDefaultModalPresentationStyle") ~typ:(returning bool) +let useDefaultModalTransitionStyle self = msg_send ~self ~cmd:(selector "useDefaultModalTransitionStyle") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStoryboardPopoverPresentationSegueTemplate.ml b/uikit_extra/UIStoryboardPopoverPresentationSegueTemplate.ml new file mode 100644 index 00000000..5c150205 --- /dev/null +++ b/uikit_extra/UIStoryboardPopoverPresentationSegueTemplate.ml @@ -0,0 +1,26 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboardpopoverpresentationseguetemplate?language=objc}UIStoryboardPopoverPresentationSegueTemplate} *) + +let self = get_class "UIStoryboardPopoverPresentationSegueTemplate" + +let anchorBarButtonItem self = msg_send ~self ~cmd:(selector "anchorBarButtonItem") ~typ:(returning id) +let anchorView self = msg_send ~self ~cmd:(selector "anchorView") ~typ:(returning id) +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 newDefaultPerformHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPerformHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x +let newDefaultPrepareHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPrepareHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x +let passthroughViews self = msg_send ~self ~cmd:(selector "passthroughViews") ~typ:(returning id) +let permittedArrowDirections self = msg_send ~self ~cmd:(selector "permittedArrowDirections") ~typ:(returning ullong) +let setAnchorBarButtonItem x self = msg_send ~self ~cmd:(selector "setAnchorBarButtonItem:") ~typ:(id @-> returning void) x +let setAnchorView x self = msg_send ~self ~cmd:(selector "setAnchorView:") ~typ:(id @-> returning void) x +let setPassthroughViews x self = msg_send ~self ~cmd:(selector "setPassthroughViews:") ~typ:(id @-> returning void) x +let setPermittedArrowDirections x self = msg_send ~self ~cmd:(selector "setPermittedArrowDirections:") ~typ:(ullong @-> returning void) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIStoryboardPopoverSegue.ml b/uikit_extra/UIStoryboardPopoverSegue.ml new file mode 100644 index 00000000..ce679d61 --- /dev/null +++ b/uikit_extra/UIStoryboardPopoverSegue.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboardpopoversegue?language=objc}UIStoryboardPopoverSegue} *) + +let self = get_class "UIStoryboardPopoverSegue" + +let perform self = msg_send ~self ~cmd:(selector "perform") ~typ:(returning void) +let popoverController self = msg_send ~self ~cmd:(selector "popoverController") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIStoryboardPopoverSegueTemplate.ml b/uikit_extra/UIStoryboardPopoverSegueTemplate.ml new file mode 100644 index 00000000..9d0f80fa --- /dev/null +++ b/uikit_extra/UIStoryboardPopoverSegueTemplate.ml @@ -0,0 +1,25 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboardpopoverseguetemplate?language=objc}UIStoryboardPopoverSegueTemplate} *) + +let self = get_class "UIStoryboardPopoverSegueTemplate" + +let anchorBarButtonItem self = msg_send ~self ~cmd:(selector "anchorBarButtonItem") ~typ:(returning id) +let anchorView self = msg_send ~self ~cmd:(selector "anchorView") ~typ:(returning id) +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 passthroughViews self = msg_send ~self ~cmd:(selector "passthroughViews") ~typ:(returning id) +let permittedArrowDirections self = msg_send ~self ~cmd:(selector "permittedArrowDirections") ~typ:(returning ullong) +let segueWithDestinationViewController x self = msg_send ~self ~cmd:(selector "segueWithDestinationViewController:") ~typ:(id @-> returning id) x +let setAnchorBarButtonItem x self = msg_send ~self ~cmd:(selector "setAnchorBarButtonItem:") ~typ:(id @-> returning void) x +let setAnchorView x self = msg_send ~self ~cmd:(selector "setAnchorView:") ~typ:(id @-> returning void) x +let setPassthroughViews x self = msg_send ~self ~cmd:(selector "setPassthroughViews:") ~typ:(id @-> returning void) x +let setPermittedArrowDirections x self = msg_send ~self ~cmd:(selector "setPermittedArrowDirections:") ~typ:(ullong @-> returning void) (ULLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UIStoryboardPresentationSegueTemplate.ml b/uikit_extra/UIStoryboardPresentationSegueTemplate.ml new file mode 100644 index 00000000..c94cea70 --- /dev/null +++ b/uikit_extra/UIStoryboardPresentationSegueTemplate.ml @@ -0,0 +1,26 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboardpresentationseguetemplate?language=objc}UIStoryboardPresentationSegueTemplate} *) + +let self = get_class "UIStoryboardPresentationSegueTemplate" + +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 modalPresentationStyle self = msg_send ~self ~cmd:(selector "modalPresentationStyle") ~typ:(returning llong) +let modalTransitionStyle self = msg_send ~self ~cmd:(selector "modalTransitionStyle") ~typ:(returning llong) +let newDefaultPerformHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPerformHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x +let newDefaultPrepareHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPrepareHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x +let setModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setModalPresentationStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setModalTransitionStyle x self = msg_send ~self ~cmd:(selector "setModalTransitionStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setUseDefaultModalPresentationStyle x self = msg_send ~self ~cmd:(selector "setUseDefaultModalPresentationStyle:") ~typ:(bool @-> returning void) x +let setUseDefaultModalTransitionStyle x self = msg_send ~self ~cmd:(selector "setUseDefaultModalTransitionStyle:") ~typ:(bool @-> returning void) x +let useDefaultModalPresentationStyle self = msg_send ~self ~cmd:(selector "useDefaultModalPresentationStyle") ~typ:(returning bool) +let useDefaultModalTransitionStyle self = msg_send ~self ~cmd:(selector "useDefaultModalTransitionStyle") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIStoryboardPreviewingRegistrant.ml b/uikit_extra/UIStoryboardPreviewingRegistrant.ml new file mode 100644 index 00000000..0b6239dd --- /dev/null +++ b/uikit_extra/UIStoryboardPreviewingRegistrant.ml @@ -0,0 +1,24 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboardpreviewingregistrant?language=objc}UIStoryboardPreviewingRegistrant} *) + +let self = get_class "UIStoryboardPreviewingRegistrant" + +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 previewingContext x ~commitViewController self = msg_send ~self ~cmd:(selector "previewingContext:commitViewController:") ~typ:(id @-> id @-> returning void) x commitViewController +let previewingContext' x ~viewControllerForLocation self = msg_send ~self ~cmd:(selector "previewingContext:viewControllerForLocation:") ~typ:(id @-> CGPoint.t @-> returning id) x viewControllerForLocation +let registerForPreviewing self = msg_send ~self ~cmd:(selector "registerForPreviewing") ~typ:(returning void) +let setSourceView x self = msg_send ~self ~cmd:(selector "setSourceView:") ~typ:(id @-> returning void) x +let setViewController x self = msg_send ~self ~cmd:(selector "setViewController:") ~typ:(id @-> returning void) x +let sourceView self = msg_send ~self ~cmd:(selector "sourceView") ~typ:(returning id) +let unregisterForPreviewing self = msg_send ~self ~cmd:(selector "unregisterForPreviewing") ~typ:(returning void) +let viewController self = msg_send ~self ~cmd:(selector "viewController") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIStoryboardPreviewingSegueTemplateStorage.ml b/uikit_extra/UIStoryboardPreviewingSegueTemplateStorage.ml new file mode 100644 index 00000000..b10f7bbe --- /dev/null +++ b/uikit_extra/UIStoryboardPreviewingSegueTemplateStorage.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboardpreviewingseguetemplatestorage?language=objc}UIStoryboardPreviewingSegueTemplateStorage} *) + +let self = get_class "UIStoryboardPreviewingSegueTemplateStorage" + +let commitTemplate self = msg_send ~self ~cmd:(selector "commitTemplate") ~typ:(returning id) +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 previewTemplate self = msg_send ~self ~cmd:(selector "previewTemplate") ~typ:(returning id) +let sender self = msg_send ~self ~cmd:(selector "sender") ~typ:(returning id) +let setCommitTemplate x self = msg_send ~self ~cmd:(selector "setCommitTemplate:") ~typ:(id @-> returning void) x +let setPreviewTemplate x self = msg_send ~self ~cmd:(selector "setPreviewTemplate:") ~typ:(id @-> returning void) x +let setSender x self = msg_send ~self ~cmd:(selector "setSender:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIStoryboardPushSegueTemplate.ml b/uikit_extra/UIStoryboardPushSegueTemplate.ml new file mode 100644 index 00000000..705351ee --- /dev/null +++ b/uikit_extra/UIStoryboardPushSegueTemplate.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboardpushseguetemplate?language=objc}UIStoryboardPushSegueTemplate} *) + +let self = get_class "UIStoryboardPushSegueTemplate" + +let destinationContainmentContext self = msg_send ~self ~cmd:(selector "destinationContainmentContext") ~typ:(returning llong) +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 newDefaultPerformHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPerformHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x +let setDestinationContainmentContext x self = msg_send ~self ~cmd:(selector "setDestinationContainmentContext:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSplitViewControllerIndex x self = msg_send ~self ~cmd:(selector "setSplitViewControllerIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let splitViewControllerIndex self = msg_send ~self ~cmd:(selector "splitViewControllerIndex") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit_extra/UIStoryboardReplaceSegueTemplate.ml b/uikit_extra/UIStoryboardReplaceSegueTemplate.ml new file mode 100644 index 00000000..76ecb4ba --- /dev/null +++ b/uikit_extra/UIStoryboardReplaceSegueTemplate.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uistoryboardreplaceseguetemplate?language=objc}UIStoryboardReplaceSegueTemplate} *) + +let self = get_class "UIStoryboardReplaceSegueTemplate" + +let destinationContainmentContext self = msg_send ~self ~cmd:(selector "destinationContainmentContext") ~typ:(returning llong) +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 newDefaultPerformHandlerForSegue x self = msg_send ~self ~cmd:(selector "newDefaultPerformHandlerForSegue:") ~typ:(id @-> returning (ptr void)) x +let setDestinationContainmentContext x self = msg_send ~self ~cmd:(selector "setDestinationContainmentContext:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSplitViewControllerIndex x self = msg_send ~self ~cmd:(selector "setSplitViewControllerIndex:") ~typ:(llong @-> returning void) (LLong.of_int x) +let splitViewControllerIndex self = msg_send ~self ~cmd:(selector "splitViewControllerIndex") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit_extra/UISwitchMVEGestureTrackingSession.ml b/uikit_extra/UISwitchMVEGestureTrackingSession.ml new file mode 100644 index 00000000..19659aa8 --- /dev/null +++ b/uikit_extra/UISwitchMVEGestureTrackingSession.ml @@ -0,0 +1,33 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswitchmvegesturetrackingsession?language=objc}UISwitchMVEGestureTrackingSession} *) + +let self = get_class "UISwitchMVEGestureTrackingSession" + +let applyPendingDisplayedOnValueAndSendActions self = msg_send ~self ~cmd:(selector "applyPendingDisplayedOnValueAndSendActions") ~typ:(returning void) +let applyPendingDisplayedOnValueWithoutSendingActions self = msg_send ~self ~cmd:(selector "applyPendingDisplayedOnValueWithoutSendingActions") ~typ:(returning void) +let canApplyPendingOnValueForGesture x self = msg_send ~self ~cmd:(selector "canApplyPendingOnValueForGesture:") ~typ:(id @-> returning bool) x +let displayedOnValue self = msg_send ~self ~cmd:(selector "displayedOnValue") ~typ:(returning bool) +let initWithVisualElement x self = msg_send ~self ~cmd:(selector "initWithVisualElement:") ~typ:(id @-> returning id) x +let invalidatePendingOnValue self = msg_send ~self ~cmd:(selector "invalidatePendingOnValue") ~typ:(returning void) +let lastCommitedOnValue self = msg_send ~self ~cmd:(selector "lastCommitedOnValue") ~typ:(returning bool) +let movementVectorForPanInitiatedChangeTargetOnValue self = msg_send ~self ~cmd:(selector "movementVectorForPanInitiatedChangeTargetOnValue") ~typ:(returning double) +let movementVectorForPanInitiatedChangeY self = msg_send ~self ~cmd:(selector "movementVectorForPanInitiatedChangeY") ~typ:(returning double) +let naturalLayoutDirection self = msg_send ~self ~cmd:(selector "naturalLayoutDirection") ~typ:(returning double) +let pendingDisplayedOnValue self = msg_send ~self ~cmd:(selector "pendingDisplayedOnValue") ~typ:(returning bool) +let pendingDisplayedOnValueInitiatingGesture self = msg_send ~self ~cmd:(selector "pendingDisplayedOnValueInitiatingGesture") ~typ:(returning id) +let pendingDisplayedOnValueIsValid self = msg_send ~self ~cmd:(selector "pendingDisplayedOnValueIsValid") ~typ:(returning bool) +let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) +let setDisplayedOnValue x self = msg_send ~self ~cmd:(selector "setDisplayedOnValue:") ~typ:(bool @-> returning void) x +let setPendingDisplayedOnValue x ~forGesture self = msg_send ~self ~cmd:(selector "setPendingDisplayedOnValue:forGesture:") ~typ:(bool @-> id @-> returning void) x forGesture +let setVisualElement x self = msg_send ~self ~cmd:(selector "setVisualElement:") ~typ:(id @-> returning void) x +let updatePendingDisplayedOnValueIfMovementIsEnoughToInitiateChange x ~forGesture self = msg_send ~self ~cmd:(selector "updatePendingDisplayedOnValueIfMovementIsEnoughToInitiateChange:forGesture:") ~typ:(double @-> id @-> returning bool) x forGesture +let visualElement self = msg_send ~self ~cmd:(selector "visualElement") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UISwitchMVEGestureTrackingSessionClass.ml b/uikit_extra/UISwitchMVEGestureTrackingSessionClass.ml new file mode 100644 index 00000000..7620c767 --- /dev/null +++ b/uikit_extra/UISwitchMVEGestureTrackingSessionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswitchmvegesturetrackingsession?language=objc}UISwitchMVEGestureTrackingSession} *) + +let gestureIsInEndState x self = msg_send ~self ~cmd:(selector "gestureIsInEndState:") ~typ:(llong @-> returning bool) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UISwitchMacCheckboxVisualElement.ml b/uikit_extra/UISwitchMacCheckboxVisualElement.ml new file mode 100644 index 00000000..2e70824c --- /dev/null +++ b/uikit_extra/UISwitchMacCheckboxVisualElement.ml @@ -0,0 +1,23 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswitchmaccheckboxvisualelement?language=objc}UISwitchMacCheckboxVisualElement} *) + +let self = get_class "UISwitchMacCheckboxVisualElement" + +let accessibilityActivationPoint self = msg_send ~self ~cmd:(selector "accessibilityActivationPoint") ~typ:(returning CGPoint.t) +let alignmentRectInsets self = msg_send ~self ~cmd:(selector "alignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let didSwitch x self = msg_send ~self ~cmd:(selector "didSwitch:") ~typ:(id @-> returning void) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setOn x ~animated self = msg_send ~self ~cmd:(selector "setOn:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UISwitchMacCheckboxVisualElementClass.ml b/uikit_extra/UISwitchMacCheckboxVisualElementClass.ml new file mode 100644 index 00000000..44faab0d --- /dev/null +++ b/uikit_extra/UISwitchMacCheckboxVisualElementClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswitchmaccheckboxvisualelement?language=objc}UISwitchMacCheckboxVisualElement} *) + +let isFixedSize self = msg_send ~self ~cmd:(selector "isFixedSize") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UISwitchMacVisualElement.ml b/uikit_extra/UISwitchMacVisualElement.ml new file mode 100644 index 00000000..30b6dbff --- /dev/null +++ b/uikit_extra/UISwitchMacVisualElement.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswitchmacvisualelement?language=objc}UISwitchMacVisualElement} *) + +let self = get_class "UISwitchMacVisualElement" + +let didSwitch x self = msg_send ~self ~cmd:(selector "didSwitch:") ~typ:(id @-> returning void) x +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool) +let setEnabled x self = msg_send ~self ~cmd:(selector "setEnabled:") ~typ:(bool @-> returning void) x +let setOn x ~animated self = msg_send ~self ~cmd:(selector "setOn:animated:") ~typ:(bool @-> bool @-> returning void) x animated \ No newline at end of file diff --git a/uikit_extra/UISwitchMacVisualElementClass.ml b/uikit_extra/UISwitchMacVisualElementClass.ml new file mode 100644 index 00000000..fa921304 --- /dev/null +++ b/uikit_extra/UISwitchMacVisualElementClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswitchmacvisualelement?language=objc}UISwitchMacVisualElement} *) + +let preferredAlignmentRectInsets self = msg_send ~self ~cmd:(selector "preferredAlignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let preferredContentSize self = msg_send ~self ~cmd:(selector "preferredContentSize") ~typ:(returning CGSize.t) \ No newline at end of file diff --git a/uikit_extra/UISwitchModernVisualElement.ml b/uikit_extra/UISwitchModernVisualElement.ml new file mode 100644 index 00000000..171c4d1c --- /dev/null +++ b/uikit_extra/UISwitchModernVisualElement.ml @@ -0,0 +1,52 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswitchmodernvisualelement?language=objc}UISwitchModernVisualElement} *) + +let self = get_class "UISwitchModernVisualElement" + +let animationDidStop x ~finished self = msg_send ~self ~cmd:(selector "animationDidStop:finished:") ~typ:(id @-> bool @-> returning void) x finished +let displayedOn self = msg_send ~self ~cmd:(selector "displayedOn") ~typ:(returning bool) +let gestureRecognizer x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldRecognizeSimultaneouslyWithGestureRecognizer +let gestureRecognizer' x ~shouldRequireFailureOfGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRequireFailureOfGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldRequireFailureOfGestureRecognizer +let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let gestureTrackingSession self = msg_send ~self ~cmd:(selector "gestureTrackingSession") ~typ:(returning id) +let hitTest x ~withEvent self = msg_send ~self ~cmd:(selector "hitTest:withEvent:") ~typ:(CGPoint.t @-> id @-> returning id) x withEvent +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let interactiveChangeToDisplayedOn x self = msg_send ~self ~cmd:(selector "interactiveChangeToDisplayedOn:") ~typ:(bool @-> returning void) x +let longPress self = msg_send ~self ~cmd:(selector "longPress") ~typ:(returning id) +let offImage self = msg_send ~self ~cmd:(selector "offImage") ~typ:(returning id) +let on self = msg_send ~self ~cmd:(selector "on") ~typ:(returning bool) +let onImage self = msg_send ~self ~cmd:(selector "onImage") ~typ:(returning id) +let pan self = msg_send ~self ~cmd:(selector "pan") ~typ:(returning id) +let performStateChangeFeedback self = msg_send ~self ~cmd:(selector "performStateChangeFeedback") ~typ:(returning void) +let pointerInteraction x ~styleForRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:styleForRegion:") ~typ:(id @-> id @-> returning id) x styleForRegion +let pointerInteraction' x ~regionForRequest ~defaultRegion self = msg_send ~self ~cmd:(selector "pointerInteraction:regionForRequest:defaultRegion:") ~typ:(id @-> id @-> id @-> returning id) x regionForRequest defaultRegion +let pressed self = msg_send ~self ~cmd:(selector "pressed") ~typ:(returning bool) +let selectGestureRecognizer self = msg_send ~self ~cmd:(selector "selectGestureRecognizer") ~typ:(returning id) +let sendStateChangeActions self = msg_send ~self ~cmd:(selector "sendStateChangeActions") ~typ:(returning void) +let setGestureTrackingSession x self = msg_send ~self ~cmd:(selector "setGestureTrackingSession:") ~typ:(id @-> returning void) x +let setLongPress x self = msg_send ~self ~cmd:(selector "setLongPress:") ~typ:(id @-> returning void) x +let setOffImage x self = msg_send ~self ~cmd:(selector "setOffImage:") ~typ:(id @-> returning void) x +let setOn x self = msg_send ~self ~cmd:(selector "setOn:") ~typ:(bool @-> returning void) x +let setOn' x ~animated self = msg_send ~self ~cmd:(selector "setOn:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setOnImage x self = msg_send ~self ~cmd:(selector "setOnImage:") ~typ:(id @-> returning void) x +let setOnTintColor x self = msg_send ~self ~cmd:(selector "setOnTintColor:") ~typ:(id @-> returning void) x +let setPan x self = msg_send ~self ~cmd:(selector "setPan:") ~typ:(id @-> returning void) x +let setPressed x self = msg_send ~self ~cmd:(selector "setPressed:") ~typ:(bool @-> returning void) x +let setSelectGestureRecognizer x self = msg_send ~self ~cmd:(selector "setSelectGestureRecognizer:") ~typ:(id @-> returning void) x +let setSemanticContentAttribute x self = msg_send ~self ~cmd:(selector "setSemanticContentAttribute:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setShowsOnOffLabel x self = msg_send ~self ~cmd:(selector "setShowsOnOffLabel:") ~typ:(bool @-> returning void) x +let setSwitchControl x self = msg_send ~self ~cmd:(selector "setSwitchControl:") ~typ:(id @-> returning void) x +let setThumbTintColor x self = msg_send ~self ~cmd:(selector "setThumbTintColor:") ~typ:(id @-> returning void) x +let setTintColor x self = msg_send ~self ~cmd:(selector "setTintColor:") ~typ:(id @-> returning void) x +let showsOnOffLabel self = msg_send ~self ~cmd:(selector "showsOnOffLabel") ~typ:(returning bool) +let thumbTintColor self = msg_send ~self ~cmd:(selector "thumbTintColor") ~typ:(returning id) +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UISwitchModernVisualElementClass.ml b/uikit_extra/UISwitchModernVisualElementClass.ml new file mode 100644 index 00000000..6bed8375 --- /dev/null +++ b/uikit_extra/UISwitchModernVisualElementClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiswitchmodernvisualelement?language=objc}UISwitchModernVisualElement} *) + +let preferredAlignmentRectInsets self = msg_send ~self ~cmd:(selector "preferredAlignmentRectInsets") ~typ:(returning UIEdgeInsets.t) +let preferredContentSize self = msg_send ~self ~cmd:(selector "preferredContentSize") ~typ:(returning CGSize.t) \ No newline at end of file diff --git a/uikit_extra/UISystemDefaultTextInputAssistantItem.ml b/uikit_extra/UISystemDefaultTextInputAssistantItem.ml new file mode 100644 index 00000000..d31d5eeb --- /dev/null +++ b/uikit_extra/UISystemDefaultTextInputAssistantItem.ml @@ -0,0 +1,42 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisystemdefaulttextinputassistantitem?language=objc}UISystemDefaultTextInputAssistantItem} *) + +let self = get_class "UISystemDefaultTextInputAssistantItem" + +let analyticsDispatchWithActionStyle x self = msg_send ~self ~cmd:(selector "analyticsDispatchWithActionStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let assistantBold self = msg_send ~self ~cmd:(selector "assistantBold") ~typ:(returning void) +let assistantCopy self = msg_send ~self ~cmd:(selector "assistantCopy") ~typ:(returning void) +let assistantCut self = msg_send ~self ~cmd:(selector "assistantCut") ~typ:(returning void) +let assistantDictation self = msg_send ~self ~cmd:(selector "assistantDictation") ~typ:(returning void) +let assistantDismiss self = msg_send ~self ~cmd:(selector "assistantDismiss") ~typ:(returning void) +let assistantEmoji self = msg_send ~self ~cmd:(selector "assistantEmoji") ~typ:(returning void) +let assistantExpand self = msg_send ~self ~cmd:(selector "assistantExpand") ~typ:(returning void) +let assistantItalic self = msg_send ~self ~cmd:(selector "assistantItalic") ~typ:(returning void) +let assistantPaste x ~forEvent self = msg_send ~self ~cmd:(selector "assistantPaste:forEvent:") ~typ:(id @-> id @-> returning void) x forEvent +let assistantRedo self = msg_send ~self ~cmd:(selector "assistantRedo") ~typ:(returning void) +let assistantShowKeyboard self = msg_send ~self ~cmd:(selector "assistantShowKeyboard") ~typ:(returning void) +let assistantUnderline self = msg_send ~self ~cmd:(selector "assistantUnderline") ~typ:(returning void) +let assistantUndo self = msg_send ~self ~cmd:(selector "assistantUndo") ~typ:(returning void) +let assistantWriteboard self = msg_send ~self ~cmd:(selector "assistantWriteboard") ~typ:(returning void) +let canPerformSystemButtonActionForStyle x self = msg_send ~self ~cmd:(selector "canPerformSystemButtonActionForStyle:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let defaultSystemLeadingBarButtonGroups self = msg_send ~self ~cmd:(selector "defaultSystemLeadingBarButtonGroups") ~typ:(returning id) +let defaultSystemTrailingBarButtonGroups self = msg_send ~self ~cmd:(selector "defaultSystemTrailingBarButtonGroups") ~typ:(returning id) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isKeyboardCameraItem self = msg_send ~self ~cmd:(selector "isKeyboardCameraItem") ~typ:(returning bool) +let performSystemButtonActionForStyle x self = msg_send ~self ~cmd:(selector "performSystemButtonActionForStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setDefaultSystemLeadingBarButtonGroups x self = msg_send ~self ~cmd:(selector "setDefaultSystemLeadingBarButtonGroups:") ~typ:(id @-> returning void) x +let setDefaultSystemTrailingBarButtonGroups x self = msg_send ~self ~cmd:(selector "setDefaultSystemTrailingBarButtonGroups:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setLeadingBarButtonGroups x self = msg_send ~self ~cmd:(selector "setLeadingBarButtonGroups:") ~typ:(id @-> returning void) x +let setSystemItem x self = msg_send ~self ~cmd:(selector "setSystemItem:") ~typ:(bool @-> returning void) x +let setTrailingBarButtonGroups x self = msg_send ~self ~cmd:(selector "setTrailingBarButtonGroups:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UISystemNavigationActionDestinationContext.ml b/uikit_extra/UISystemNavigationActionDestinationContext.ml new file mode 100644 index 00000000..e85b7a10 --- /dev/null +++ b/uikit_extra/UISystemNavigationActionDestinationContext.ml @@ -0,0 +1,25 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisystemnavigationactiondestinationcontext?language=objc}UISystemNavigationActionDestinationContext} *) + +let self = get_class "UISystemNavigationActionDestinationContext" + +let _URL self = msg_send ~self ~cmd:(selector "URL") ~typ:(returning id) +let bundleId self = msg_send ~self ~cmd:(selector "bundleId") ~typ:(returning id) +let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning id) +let encodeWithXPCDictionary x self = msg_send ~self ~cmd:(selector "encodeWithXPCDictionary:") ~typ:(id @-> returning void) x +let initWithXPCDictionary x self = msg_send ~self ~cmd:(selector "initWithXPCDictionary:") ~typ:(id @-> returning id) x +let sceneIdentifier self = msg_send ~self ~cmd:(selector "sceneIdentifier") ~typ:(returning id) +let setBundleId x self = msg_send ~self ~cmd:(selector "setBundleId:") ~typ:(id @-> returning void) x +let setSceneIdentifier x self = msg_send ~self ~cmd:(selector "setSceneIdentifier:") ~typ:(id @-> returning void) x +let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning void) x +let setURL x self = msg_send ~self ~cmd:(selector "setURL:") ~typ:(id @-> returning void) x +let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UISystemNavigationActionDestinationContextClass.ml b/uikit_extra/UISystemNavigationActionDestinationContextClass.ml new file mode 100644 index 00000000..d05ed0b7 --- /dev/null +++ b/uikit_extra/UISystemNavigationActionDestinationContextClass.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uisystemnavigationactiondestinationcontext?language=objc}UISystemNavigationActionDestinationContext} *) + +let systemNavigationActionContextWithTitle x ~andURL self = msg_send ~self ~cmd:(selector "systemNavigationActionContextWithTitle:andURL:") ~typ:(id @-> id @-> returning id) x andURL +let systemNavigationActionContextWithTitle1 x ~bundleId self = msg_send ~self ~cmd:(selector "systemNavigationActionContextWithTitle:bundleId:") ~typ:(id @-> id @-> returning id) x bundleId +let systemNavigationActionContextWithTitle2 x ~sceneIdentifier self = msg_send ~self ~cmd:(selector "systemNavigationActionContextWithTitle:sceneIdentifier:") ~typ:(id @-> id @-> returning id) x sceneIdentifier +let systemNavigationActionContextWithURL x self = msg_send ~self ~cmd:(selector "systemNavigationActionContextWithURL:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UITableConstants_CarPlay.ml b/uikit_extra/UITableConstants_CarPlay.ml index 3eb9e22f..80995815 100644 --- a/uikit_extra/UITableConstants_CarPlay.ml +++ b/uikit_extra/UITableConstants_CarPlay.ml @@ -5,100 +5,107 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableConstants_CarPlay" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableconstants_carplay?language=objc}UITableConstants_CarPlay} *) -module C = struct - let sharedConstants self = msg_send ~self ~cmd:(selector "sharedConstants") ~typ:(returning (id)) -end +let self = get_class "UITableConstants_CarPlay" -let contentClipCornersForCell x ~inTableView self = msg_send ~self ~cmd:(selector "contentClipCornersForCell:inTableView:") ~typ:(id @-> id @-> returning (ullong)) x inTableView -let defaultAccessoryBackgroundColorForAccessorySystemType x ~header ~sidebarStyle ~cellConfigurationState ~traitCollection self = msg_send ~self ~cmd:(selector "defaultAccessoryBackgroundColorForAccessorySystemType:header:sidebarStyle:cellConfigurationState:traitCollection:") ~typ:(llong @-> bool @-> bool @-> id @-> id @-> returning (id)) (LLong.of_int x) header sidebarStyle cellConfigurationState traitCollection -let defaultAccessoryColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultAccessoryColorForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultAccessoryTintColorForAccessorySystemType x ~header ~sidebarStyle ~cellConfigurationState ~traitCollection ~inheritedTintColor self = msg_send ~self ~cmd:(selector "defaultAccessoryTintColorForAccessorySystemType:header:sidebarStyle:cellConfigurationState:traitCollection:inheritedTintColor:") ~typ:(llong @-> bool @-> bool @-> id @-> id @-> id @-> returning (id)) (LLong.of_int x) header sidebarStyle cellConfigurationState traitCollection inheritedTintColor -let defaultAlphaForDraggingCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultAlphaForDraggingCell:inTableView:") ~typ:(id @-> id @-> returning (double)) x inTableView -let defaultAlphaForReorderingCell self = msg_send ~self ~cmd:(selector "defaultAlphaForReorderingCell") ~typ:(returning (double)) -let defaultBackgroundColorForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultBackgroundColorForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultBackgroundEffectsForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultBackgroundEffectsForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultCellContentLeadingPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultCellContentLeadingPaddingForSidebar:") ~typ:(bool @-> returning (double)) x -let defaultCellContentTrailingPadding self = msg_send ~self ~cmd:(selector "defaultCellContentTrailingPadding") ~typ:(returning (double)) -let defaultCellCornerRadius self = msg_send ~self ~cmd:(selector "defaultCellCornerRadius") ~typ:(returning (double)) -let defaultCheckmarkImageForCell x self = msg_send ~self ~cmd:(selector "defaultCheckmarkImageForCell:") ~typ:(id @-> returning (id)) x -let defaultContentAccessoryPadding self = msg_send ~self ~cmd:(selector "defaultContentAccessoryPadding") ~typ:(returning (double)) -let defaultContentEditPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultContentEditPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning (double)) x inTableView -let defaultContentReorderPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultContentReorderPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning (double)) x inTableView -let defaultDeleteImageForCell x self = msg_send ~self ~cmd:(selector "defaultDeleteImageForCell:") ~typ:(id @-> returning (id)) x -let defaultDeleteImageWithTintColor x ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultDeleteImageWithTintColor:backgroundColor:") ~typ:(id @-> id @-> returning (id)) x backgroundColor -let defaultDeleteMinusRectForCell x ~inTableView self = msg_send_stret ~self ~cmd:(selector "defaultDeleteMinusRectForCell:inTableView:") ~typ:(id @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x inTableView -let defaultDetailTextColorForCellStyle x ~traitCollection ~state self = msg_send ~self ~cmd:(selector "defaultDetailTextColorForCellStyle:traitCollection:state:") ~typ:(llong @-> id @-> id @-> returning (id)) (LLong.of_int x) traitCollection state -let defaultDetailTextFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultDetailTextFontForCellStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultDetailTextLabelFontSizeForCellStyle x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontSizeForCellStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let defaultDisclosureImageForCell x ~withAccessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultDisclosureImageForCell:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning (id)) x withAccessoryBaseColor -let defaultDisclosureLayoutWidthForView x self = msg_send ~self ~cmd:(selector "defaultDisclosureLayoutWidthForView:") ~typ:(id @-> returning (double)) x -let defaultEditAndUpdateAnimationDuration self = msg_send ~self ~cmd:(selector "defaultEditAndUpdateAnimationDuration") ~typ:(returning (double)) -let defaultEditControlPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultEditControlPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning (double)) x inTableView -let defaultEditControlSizeForCell x ~inTableView self = msg_send_stret ~self ~cmd:(selector "defaultEditControlSizeForCell:inTableView:") ~typ:(id @-> id @-> returning (CGSize.t)) ~return_type:CGSize.t x inTableView -let defaultFocusedAccessoryColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedAccessoryColorForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultFocusedCheckmarkImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedCheckmarkImageForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultFocusedDetailTextColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedDetailTextColorForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultFocusedDisclosureImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedDisclosureImageForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultFocusedHorizontalOutsetForTableView x self = msg_send ~self ~cmd:(selector "defaultFocusedHorizontalOutsetForTableView:") ~typ:(id @-> returning (double)) x -let defaultFocusedShadowRadiusForTableView x self = msg_send ~self ~cmd:(selector "defaultFocusedShadowRadiusForTableView:") ~typ:(id @-> returning (double)) x -let defaultFocusedTextColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedTextColorForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultFooterFontForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultFooterFontForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultFooterTextColorForTableViewStyle x ~focused self = msg_send ~self ~cmd:(selector "defaultFooterTextColorForTableViewStyle:focused:") ~typ:(llong @-> bool @-> returning (id)) (LLong.of_int x) focused -let defaultGroupedFooterHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultGroupedFooterHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultGroupedHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultGroupedHeaderHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultHeaderFontForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFontForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultHeaderTextColorForTableViewStyle x ~focused self = msg_send ~self ~cmd:(selector "defaultHeaderTextColorForTableViewStyle:focused:") ~typ:(llong @-> bool @-> returning (id)) (LLong.of_int x) focused -let defaultImageSymbolConfigurationForTraitCollection x self = msg_send ~self ~cmd:(selector "defaultImageSymbolConfigurationForTraitCollection:") ~typ:(id @-> returning (id)) x -let defaultImageTintColorForState x self = msg_send ~self ~cmd:(selector "defaultImageTintColorForState:") ~typ:(id @-> returning (id)) x -let defaultImageToTextPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultImageToTextPaddingForSidebar:") ~typ:(bool @-> returning (double)) x -let defaultImageViewSymbolImageAndAccessoryLayoutWidthForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultImageViewSymbolImageAndAccessoryLayoutWidthForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning (double)) x traitCollection -let defaultImageViewSymbolImageLayoutHeightForTraitCollection x self = msg_send ~self ~cmd:(selector "defaultImageViewSymbolImageLayoutHeightForTraitCollection:") ~typ:(id @-> returning (double)) x -let defaultIndentationWidthForSidebarStyle x self = msg_send ~self ~cmd:(selector "defaultIndentationWidthForSidebarStyle:") ~typ:(bool @-> returning (double)) x -let defaultInsertImageForCell x self = msg_send ~self ~cmd:(selector "defaultInsertImageForCell:") ~typ:(id @-> returning (id)) x -let defaultInsertImageWithTintColor x ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultInsertImageWithTintColor:backgroundColor:") ~typ:(id @-> id @-> returning (id)) x backgroundColor -let defaultInterAccessoryPaddingForCell x ~trailingAccessoryGroup self = msg_send ~self ~cmd:(selector "defaultInterAccessoryPaddingForCell:trailingAccessoryGroup:") ~typ:(id @-> bool @-> returning (double)) x trailingAccessoryGroup -let defaultLabelAllowsTighteningForTruncationForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelAllowsTighteningForTruncationForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning (bool)) x traitCollection -let defaultLabelMinimumScaleFactorForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelMinimumScaleFactorForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning (double)) x traitCollection -let defaultLabelNumberOfLinesForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelNumberOfLinesForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning (llong)) x traitCollection -let defaultLeadingCellMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultLeadingCellMarginWidthForTableView:") ~typ:(id @-> returning (double)) x -let defaultMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultMarginWidthForTableView:") ~typ:(id @-> returning (double)) x -let defaultMaskGradientHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultMaskGradientHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultMultiSelectBackgroundColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultMultiSelectBackgroundColorForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultMultiSelectNotSelectedImageForCellStyle x ~traitCollection ~accessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultMultiSelectNotSelectedImageForCellStyle:traitCollection:accessoryBaseColor:") ~typ:(llong @-> id @-> id @-> returning (id)) (LLong.of_int x) traitCollection accessoryBaseColor -let defaultMultiSelectSelectedImageForCellStyle x ~traitCollection ~checkmarkColor ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultMultiSelectSelectedImageForCellStyle:traitCollection:checkmarkColor:backgroundColor:") ~typ:(llong @-> id @-> id @-> id @-> returning (id)) (LLong.of_int x) traitCollection checkmarkColor backgroundColor -let defaultPaddingAboveSectionHeadersForTableStyle x self = msg_send ~self ~cmd:(selector "defaultPaddingAboveSectionHeadersForTableStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let defaultPaddingBetweenHeaderAndRows self = msg_send ~self ~cmd:(selector "defaultPaddingBetweenHeaderAndRows") ~typ:(returning (double)) -let defaultPaddingBetweenRows self = msg_send ~self ~cmd:(selector "defaultPaddingBetweenRows") ~typ:(returning (double)) -let defaultPlainFirstSectionHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultPlainFirstSectionHeaderHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultPlainHeaderLabelYPositionForTableView x ~headerBounds ~textRect ~isHeader self = msg_send ~self ~cmd:(selector "defaultPlainHeaderLabelYPositionForTableView:headerBounds:textRect:isHeader:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> bool @-> returning (double)) x headerBounds textRect isHeader -let defaultReorderControlImageForTraitCollection x ~withAccessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultReorderControlImageForTraitCollection:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning (id)) x withAccessoryBaseColor -let defaultReorderControlSizeForCell x ~withAccessoryBaseColor self = msg_send_stret ~self ~cmd:(selector "defaultReorderControlSizeForCell:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning (CGSize.t)) ~return_type:CGSize.t x withAccessoryBaseColor -let defaultRowHeightDependsOnCellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightDependsOnCellStyle") ~typ:(returning (bool)) -let defaultRowHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultRowHeightForTableView' x ~cellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:cellStyle:") ~typ:(id @-> llong @-> returning (double)) x (LLong.of_int cellStyle) -let defaultSectionFooterHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultSectionFooterHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultSectionFooterHeightForTableViewStyle x ~screen self = msg_send ~self ~cmd:(selector "defaultSectionFooterHeightForTableViewStyle:screen:") ~typ:(llong @-> id @-> returning (double)) (LLong.of_int x) screen -let defaultSectionHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultSectionHeaderHeightForTableViewStyle x ~screen self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeightForTableViewStyle:screen:") ~typ:(llong @-> id @-> returning (double)) (LLong.of_int x) screen -let defaultSeparatorColorForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultSeparatorColorForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultSeparatorStyleForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultSeparatorStyleForTableViewStyle:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let defaultSidebarPlainMultiSelectSeparatorColor self = msg_send ~self ~cmd:(selector "defaultSidebarPlainMultiSelectSeparatorColor") ~typ:(returning (id)) -let defaultSpaceBetweenEditAndReorderControlsForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultSpaceBetweenEditAndReorderControlsForCell:inTableView:") ~typ:(id @-> id @-> returning (double)) x inTableView -let defaultTextColorForCellStyle x ~traitCollection ~tintColor ~state self = msg_send ~self ~cmd:(selector "defaultTextColorForCellStyle:traitCollection:tintColor:state:") ~typ:(llong @-> id @-> id @-> id @-> returning (id)) (LLong.of_int x) traitCollection tintColor state -let defaultTextLabelFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontForCellStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultTextLabelFontSizeForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontSizeForCellStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let defaultTextToSubtitlePaddingForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextToSubtitlePaddingForCellStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let defaultTrailingCellMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultTrailingCellMarginWidthForTableView:") ~typ:(id @-> returning (double)) x -let imageViewOffsetByLayoutMarginsForCell x ~inTableView self = msg_send ~self ~cmd:(selector "imageViewOffsetByLayoutMarginsForCell:inTableView:") ~typ:(id @-> id @-> returning (bool)) x inTableView -let interspaceBetweenInnerAccessoryIdentifier x ~outerAccessoryIdentifier ~forCell ~trailingAccessoryGroup self = msg_send ~self ~cmd:(selector "interspaceBetweenInnerAccessoryIdentifier:outerAccessoryIdentifier:forCell:trailingAccessoryGroup:") ~typ:(id @-> id @-> id @-> bool @-> returning (double)) x outerAccessoryIdentifier forCell trailingAccessoryGroup -let minimumContentViewHeightForFont x ~traitCollection self = msg_send ~self ~cmd:(selector "minimumContentViewHeightForFont:traitCollection:") ~typ:(id @-> id @-> returning (double)) x traitCollection -let reorderingCellWantsShadows self = msg_send ~self ~cmd:(selector "reorderingCellWantsShadows") ~typ:(returning (bool)) -let shouldUppercaseHeaderFooterTextForTableStyle x ~isHeader self = msg_send ~self ~cmd:(selector "shouldUppercaseHeaderFooterTextForTableStyle:isHeader:") ~typ:(llong @-> bool @-> returning (bool)) (LLong.of_int x) isHeader -let shouldUseDefaultTableLayoutMarginsAsContentInsets self = msg_send ~self ~cmd:(selector "shouldUseDefaultTableLayoutMarginsAsContentInsets") ~typ:(returning (bool)) -let sidebarVariant self = msg_send ~self ~cmd:(selector "sidebarVariant") ~typ:(returning (id)) -let supportsUserInterfaceStyles self = msg_send ~self ~cmd:(selector "supportsUserInterfaceStyles") ~typ:(returning (bool)) -let useChromelessSectionHeadersAndFootersForTableStyle x self = msg_send ~self ~cmd:(selector "useChromelessSectionHeadersAndFootersForTableStyle:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let variantForActive x self = msg_send ~self ~cmd:(selector "variantForActive:") ~typ:(bool @-> returning (id)) x \ No newline at end of file +let contentClipCornersForCell x ~inTableView self = msg_send ~self ~cmd:(selector "contentClipCornersForCell:inTableView:") ~typ:(id @-> id @-> returning ullong) x inTableView +let defaultAccessoryBackgroundColorForAccessorySystemType x ~header ~sidebarStyle ~cellConfigurationState ~traitCollection self = msg_send ~self ~cmd:(selector "defaultAccessoryBackgroundColorForAccessorySystemType:header:sidebarStyle:cellConfigurationState:traitCollection:") ~typ:(llong @-> bool @-> bool @-> id @-> id @-> returning id) (LLong.of_int x) header sidebarStyle cellConfigurationState traitCollection +let defaultAccessoryColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultAccessoryColorForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultAccessoryTintColorForAccessorySystemType x ~header ~sidebarStyle ~cellConfigurationState ~traitCollection ~inheritedTintColor self = msg_send ~self ~cmd:(selector "defaultAccessoryTintColorForAccessorySystemType:header:sidebarStyle:cellConfigurationState:traitCollection:inheritedTintColor:") ~typ:(llong @-> bool @-> bool @-> id @-> id @-> id @-> returning id) (LLong.of_int x) header sidebarStyle cellConfigurationState traitCollection inheritedTintColor +let defaultAlphaForDraggingCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultAlphaForDraggingCell:inTableView:") ~typ:(id @-> id @-> returning double) x inTableView +let defaultAlphaForReorderingCell self = msg_send ~self ~cmd:(selector "defaultAlphaForReorderingCell") ~typ:(returning double) +let defaultBackgroundColorForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultBackgroundColorForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultBackgroundEffectsForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultBackgroundEffectsForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultCellContentLeadingPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultCellContentLeadingPaddingForSidebar:") ~typ:(bool @-> returning double) x +let defaultCellContentTrailingPadding self = msg_send ~self ~cmd:(selector "defaultCellContentTrailingPadding") ~typ:(returning double) +let defaultCellCornerRadius self = msg_send ~self ~cmd:(selector "defaultCellCornerRadius") ~typ:(returning double) +let defaultCellLayoutMarginsForStyle x ~textLabelFont ~rawLayoutMargins self = msg_send ~self ~cmd:(selector "defaultCellLayoutMarginsForStyle:textLabelFont:rawLayoutMargins:") ~typ:(llong @-> id @-> UIEdgeInsets.t @-> returning UIEdgeInsets.t) (LLong.of_int x) textLabelFont rawLayoutMargins +let defaultCheckmarkImageForCell x self = msg_send ~self ~cmd:(selector "defaultCheckmarkImageForCell:") ~typ:(id @-> returning id) x +let defaultContentAccessoryPadding self = msg_send ~self ~cmd:(selector "defaultContentAccessoryPadding") ~typ:(returning double) +let defaultContentEditPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultContentEditPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning double) x inTableView +let defaultContentReorderPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultContentReorderPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning double) x inTableView +let defaultDeleteImageForCell x self = msg_send ~self ~cmd:(selector "defaultDeleteImageForCell:") ~typ:(id @-> returning id) x +let defaultDeleteImageWithTintColor x ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultDeleteImageWithTintColor:backgroundColor:") ~typ:(id @-> id @-> returning id) x backgroundColor +let defaultDeleteMinusRectForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultDeleteMinusRectForCell:inTableView:") ~typ:(id @-> id @-> returning CGRect.t) x inTableView +let defaultDetailTextColorForCellStyle x ~traitCollection ~state self = msg_send ~self ~cmd:(selector "defaultDetailTextColorForCellStyle:traitCollection:state:") ~typ:(llong @-> id @-> id @-> returning id) (LLong.of_int x) traitCollection state +let defaultDetailTextFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultDetailTextFontForCellStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultDetailTextLabelFontSizeForCellStyle x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontSizeForCellStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let defaultDisclosureImageForCell x ~withAccessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultDisclosureImageForCell:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning id) x withAccessoryBaseColor +let defaultDisclosureLayoutWidthForView x self = msg_send ~self ~cmd:(selector "defaultDisclosureLayoutWidthForView:") ~typ:(id @-> returning double) x +let defaultEditAndUpdateAnimationDuration self = msg_send ~self ~cmd:(selector "defaultEditAndUpdateAnimationDuration") ~typ:(returning double) +let defaultEditControlPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultEditControlPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning double) x inTableView +let defaultEditControlSizeForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultEditControlSizeForCell:inTableView:") ~typ:(id @-> id @-> returning CGSize.t) x inTableView +let defaultFocusedAccessoryColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedAccessoryColorForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultFocusedCheckmarkImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedCheckmarkImageForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultFocusedDetailTextColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedDetailTextColorForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultFocusedDisclosureImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedDisclosureImageForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultFocusedHorizontalOutsetForTableView x self = msg_send ~self ~cmd:(selector "defaultFocusedHorizontalOutsetForTableView:") ~typ:(id @-> returning double) x +let defaultFocusedShadowRadiusForTableView x self = msg_send ~self ~cmd:(selector "defaultFocusedShadowRadiusForTableView:") ~typ:(id @-> returning double) x +let defaultFocusedTextColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedTextColorForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultFooterFontForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultFooterFontForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultFooterTextColorForTableViewStyle x ~focused self = msg_send ~self ~cmd:(selector "defaultFooterTextColorForTableViewStyle:focused:") ~typ:(llong @-> bool @-> returning id) (LLong.of_int x) focused +let defaultGroupedFooterHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultGroupedFooterHeightForTableView:") ~typ:(id @-> returning double) x +let defaultGroupedHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultGroupedHeaderHeightForTableView:") ~typ:(id @-> returning double) x +let defaultHeaderFontForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFontForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultHeaderFooterLayoutMarginsForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFooterLayoutMarginsForTableViewStyle:") ~typ:(llong @-> returning UIEdgeInsets.t) (LLong.of_int x) +let defaultHeaderTextColorForTableViewStyle x ~focused self = msg_send ~self ~cmd:(selector "defaultHeaderTextColorForTableViewStyle:focused:") ~typ:(llong @-> bool @-> returning id) (LLong.of_int x) focused +let defaultImageSymbolConfigurationForTraitCollection x self = msg_send ~self ~cmd:(selector "defaultImageSymbolConfigurationForTraitCollection:") ~typ:(id @-> returning id) x +let defaultImageTintColorForState x self = msg_send ~self ~cmd:(selector "defaultImageTintColorForState:") ~typ:(id @-> returning id) x +let defaultImageToTextPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultImageToTextPaddingForSidebar:") ~typ:(bool @-> returning double) x +let defaultImageViewSymbolImageAndAccessoryLayoutWidthForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultImageViewSymbolImageAndAccessoryLayoutWidthForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning double) x traitCollection +let defaultImageViewSymbolImageLayoutHeightForTraitCollection x self = msg_send ~self ~cmd:(selector "defaultImageViewSymbolImageLayoutHeightForTraitCollection:") ~typ:(id @-> returning double) x +let defaultIndentationWidthForSidebarStyle x self = msg_send ~self ~cmd:(selector "defaultIndentationWidthForSidebarStyle:") ~typ:(bool @-> returning double) x +let defaultInsertImageForCell x self = msg_send ~self ~cmd:(selector "defaultInsertImageForCell:") ~typ:(id @-> returning id) x +let defaultInsertImageWithTintColor x ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultInsertImageWithTintColor:backgroundColor:") ~typ:(id @-> id @-> returning id) x backgroundColor +let defaultInterAccessoryPaddingForCell x ~trailingAccessoryGroup self = msg_send ~self ~cmd:(selector "defaultInterAccessoryPaddingForCell:trailingAccessoryGroup:") ~typ:(id @-> bool @-> returning double) x trailingAccessoryGroup +let defaultLabelAllowsTighteningForTruncationForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelAllowsTighteningForTruncationForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning bool) x traitCollection +let defaultLabelMinimumScaleFactorForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelMinimumScaleFactorForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning double) x traitCollection +let defaultLabelNumberOfLinesForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelNumberOfLinesForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning llong) x traitCollection +let defaultLayoutMarginsForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultLayoutMarginsForCell:inTableView:") ~typ:(id @-> id @-> returning UIEdgeInsets.t) x inTableView +let defaultLayoutMarginsForTableView x self = msg_send ~self ~cmd:(selector "defaultLayoutMarginsForTableView:") ~typ:(id @-> returning UIEdgeInsets.t) x +let defaultLeadingCellMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultLeadingCellMarginWidthForTableView:") ~typ:(id @-> returning double) x +let defaultMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultMarginWidthForTableView:") ~typ:(id @-> returning double) x +let defaultMaskGradientHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultMaskGradientHeightForTableView:") ~typ:(id @-> returning double) x +let defaultMultiSelectBackgroundColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultMultiSelectBackgroundColorForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultMultiSelectNotSelectedImageForCellStyle x ~traitCollection ~accessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultMultiSelectNotSelectedImageForCellStyle:traitCollection:accessoryBaseColor:") ~typ:(llong @-> id @-> id @-> returning id) (LLong.of_int x) traitCollection accessoryBaseColor +let defaultMultiSelectSelectedImageForCellStyle x ~traitCollection ~checkmarkColor ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultMultiSelectSelectedImageForCellStyle:traitCollection:checkmarkColor:backgroundColor:") ~typ:(llong @-> id @-> id @-> id @-> returning id) (LLong.of_int x) traitCollection checkmarkColor backgroundColor +let defaultPaddingAboveSectionHeadersForTableStyle x self = msg_send ~self ~cmd:(selector "defaultPaddingAboveSectionHeadersForTableStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let defaultPaddingBetweenHeaderAndRows self = msg_send ~self ~cmd:(selector "defaultPaddingBetweenHeaderAndRows") ~typ:(returning double) +let defaultPaddingBetweenRows self = msg_send ~self ~cmd:(selector "defaultPaddingBetweenRows") ~typ:(returning double) +let defaultPlainFirstSectionHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultPlainFirstSectionHeaderHeightForTableView:") ~typ:(id @-> returning double) x +let defaultPlainHeaderLabelYPositionForTableView x ~headerBounds ~textRect ~isHeader self = msg_send ~self ~cmd:(selector "defaultPlainHeaderLabelYPositionForTableView:headerBounds:textRect:isHeader:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> bool @-> returning double) x headerBounds textRect isHeader +let defaultReorderControlImageForTraitCollection x ~withAccessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultReorderControlImageForTraitCollection:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning id) x withAccessoryBaseColor +let defaultReorderControlSizeForCell x ~withAccessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultReorderControlSizeForCell:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning CGSize.t) x withAccessoryBaseColor +let defaultRowHeightDependsOnCellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightDependsOnCellStyle") ~typ:(returning bool) +let defaultRowHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:") ~typ:(id @-> returning double) x +let defaultRowHeightForTableView' x ~cellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:cellStyle:") ~typ:(id @-> llong @-> returning double) x (LLong.of_int cellStyle) +let defaultSectionContentInsetsForTableStyle x self = msg_send ~self ~cmd:(selector "defaultSectionContentInsetsForTableStyle:") ~typ:(llong @-> returning UIEdgeInsets.t) (LLong.of_int x) +let defaultSectionFooterHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultSectionFooterHeightForTableView:") ~typ:(id @-> returning double) x +let defaultSectionFooterHeightForTableViewStyle x ~screen self = msg_send ~self ~cmd:(selector "defaultSectionFooterHeightForTableViewStyle:screen:") ~typ:(llong @-> id @-> returning double) (LLong.of_int x) screen +let defaultSectionHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeightForTableView:") ~typ:(id @-> returning double) x +let defaultSectionHeaderHeightForTableViewStyle x ~screen self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeightForTableViewStyle:screen:") ~typ:(llong @-> id @-> returning double) (LLong.of_int x) screen +let defaultSeparatorColorForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultSeparatorColorForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultSeparatorStyleForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultSeparatorStyleForTableViewStyle:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let defaultSidebarPlainMultiSelectSeparatorColor self = msg_send ~self ~cmd:(selector "defaultSidebarPlainMultiSelectSeparatorColor") ~typ:(returning id) +let defaultSpaceBetweenEditAndReorderControlsForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultSpaceBetweenEditAndReorderControlsForCell:inTableView:") ~typ:(id @-> id @-> returning double) x inTableView +let defaultTableLayoutMarginsForScreen x ~size ~tableStyle self = msg_send ~self ~cmd:(selector "defaultTableLayoutMarginsForScreen:size:tableStyle:") ~typ:(id @-> CGSize.t @-> llong @-> returning UIEdgeInsets.t) x size (LLong.of_int tableStyle) +let defaultTextColorForCellStyle x ~traitCollection ~tintColor ~state self = msg_send ~self ~cmd:(selector "defaultTextColorForCellStyle:traitCollection:tintColor:state:") ~typ:(llong @-> id @-> id @-> id @-> returning id) (LLong.of_int x) traitCollection tintColor state +let defaultTextLabelFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontForCellStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultTextLabelFontSizeForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontSizeForCellStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let defaultTextToSubtitlePaddingForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextToSubtitlePaddingForCellStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let defaultTrailingCellMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultTrailingCellMarginWidthForTableView:") ~typ:(id @-> returning double) x +let headerFooterOffsetFromContentInsetForTableView x self = msg_send ~self ~cmd:(selector "headerFooterOffsetFromContentInsetForTableView:") ~typ:(id @-> returning UIEdgeInsets.t) x +let imageViewOffsetByLayoutMarginsForCell x ~inTableView self = msg_send ~self ~cmd:(selector "imageViewOffsetByLayoutMarginsForCell:inTableView:") ~typ:(id @-> id @-> returning bool) x inTableView +let interspaceBetweenInnerAccessoryIdentifier x ~outerAccessoryIdentifier ~forCell ~trailingAccessoryGroup self = msg_send ~self ~cmd:(selector "interspaceBetweenInnerAccessoryIdentifier:outerAccessoryIdentifier:forCell:trailingAccessoryGroup:") ~typ:(id @-> id @-> id @-> bool @-> returning double) x outerAccessoryIdentifier forCell trailingAccessoryGroup +let minimumContentViewHeightForFont x ~traitCollection self = msg_send ~self ~cmd:(selector "minimumContentViewHeightForFont:traitCollection:") ~typ:(id @-> id @-> returning double) x traitCollection +let reorderingCellWantsShadows self = msg_send ~self ~cmd:(selector "reorderingCellWantsShadows") ~typ:(returning bool) +let shouldUppercaseHeaderFooterTextForTableStyle x ~isHeader self = msg_send ~self ~cmd:(selector "shouldUppercaseHeaderFooterTextForTableStyle:isHeader:") ~typ:(llong @-> bool @-> returning bool) (LLong.of_int x) isHeader +let shouldUseDefaultTableLayoutMarginsAsContentInsets self = msg_send ~self ~cmd:(selector "shouldUseDefaultTableLayoutMarginsAsContentInsets") ~typ:(returning bool) +let sidebarVariant self = msg_send ~self ~cmd:(selector "sidebarVariant") ~typ:(returning id) +let supportsUserInterfaceStyles self = msg_send ~self ~cmd:(selector "supportsUserInterfaceStyles") ~typ:(returning bool) +let useChromelessSectionHeadersAndFootersForTableStyle x self = msg_send ~self ~cmd:(selector "useChromelessSectionHeadersAndFootersForTableStyle:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let variantForActive x self = msg_send ~self ~cmd:(selector "variantForActive:") ~typ:(bool @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UITableConstants_CarPlayClass.ml b/uikit_extra/UITableConstants_CarPlayClass.ml new file mode 100644 index 00000000..038146aa --- /dev/null +++ b/uikit_extra/UITableConstants_CarPlayClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableconstants_carplay?language=objc}UITableConstants_CarPlay} *) + +let sharedConstants self = msg_send ~self ~cmd:(selector "sharedConstants") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UITableConstants_IOS.ml b/uikit_extra/UITableConstants_IOS.ml index d2961b93..ddc8891f 100644 --- a/uikit_extra/UITableConstants_IOS.ml +++ b/uikit_extra/UITableConstants_IOS.ml @@ -5,95 +5,103 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableConstants_IOS" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableconstants_ios?language=objc}UITableConstants_IOS} *) -module C = struct - let sharedConstants self = msg_send ~self ~cmd:(selector "sharedConstants") ~typ:(returning (id)) -end +let self = get_class "UITableConstants_IOS" -let defaultAccessoryBackgroundColorForAccessorySystemType x ~header ~sidebarStyle ~cellConfigurationState ~traitCollection self = msg_send ~self ~cmd:(selector "defaultAccessoryBackgroundColorForAccessorySystemType:header:sidebarStyle:cellConfigurationState:traitCollection:") ~typ:(llong @-> bool @-> bool @-> id @-> id @-> returning (id)) (LLong.of_int x) header sidebarStyle cellConfigurationState traitCollection -let defaultAccessoryTintColorForAccessorySystemType x ~header ~sidebarStyle ~cellConfigurationState ~traitCollection ~inheritedTintColor self = msg_send ~self ~cmd:(selector "defaultAccessoryTintColorForAccessorySystemType:header:sidebarStyle:cellConfigurationState:traitCollection:inheritedTintColor:") ~typ:(llong @-> bool @-> bool @-> id @-> id @-> id @-> returning (id)) (LLong.of_int x) header sidebarStyle cellConfigurationState traitCollection inheritedTintColor -let defaultAlphaForDraggingCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultAlphaForDraggingCell:inTableView:") ~typ:(id @-> id @-> returning (double)) x inTableView -let defaultAlphaForReorderingCell self = msg_send ~self ~cmd:(selector "defaultAlphaForReorderingCell") ~typ:(returning (double)) -let defaultBackgroundColorForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultBackgroundColorForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultBackgroundEffectsForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultBackgroundEffectsForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultCellContentLeadingPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultCellContentLeadingPaddingForSidebar:") ~typ:(bool @-> returning (double)) x -let defaultCellContentTrailingPadding self = msg_send ~self ~cmd:(selector "defaultCellContentTrailingPadding") ~typ:(returning (double)) -let defaultCellCornerRadius self = msg_send ~self ~cmd:(selector "defaultCellCornerRadius") ~typ:(returning (double)) -let defaultCheckmarkImageForCell x self = msg_send ~self ~cmd:(selector "defaultCheckmarkImageForCell:") ~typ:(id @-> returning (id)) x -let defaultContentAccessoryPadding self = msg_send ~self ~cmd:(selector "defaultContentAccessoryPadding") ~typ:(returning (double)) -let defaultContentEditPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultContentEditPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning (double)) x inTableView -let defaultContentReorderPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultContentReorderPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning (double)) x inTableView -let defaultDeleteImageForCell x self = msg_send ~self ~cmd:(selector "defaultDeleteImageForCell:") ~typ:(id @-> returning (id)) x -let defaultDeleteImageWithTintColor x ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultDeleteImageWithTintColor:backgroundColor:") ~typ:(id @-> id @-> returning (id)) x backgroundColor -let defaultDeleteMinusRectForCell x ~inTableView self = msg_send_stret ~self ~cmd:(selector "defaultDeleteMinusRectForCell:inTableView:") ~typ:(id @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x inTableView -let defaultDetailTextColorForCellStyle x ~traitCollection ~state self = msg_send ~self ~cmd:(selector "defaultDetailTextColorForCellStyle:traitCollection:state:") ~typ:(llong @-> id @-> id @-> returning (id)) (LLong.of_int x) traitCollection state -let defaultDetailTextFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultDetailTextFontForCellStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultDetailTextLabelFontSizeForCellStyle x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontSizeForCellStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let defaultDisclosureImageForCell x ~withAccessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultDisclosureImageForCell:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning (id)) x withAccessoryBaseColor -let defaultDisclosureLayoutWidthForView x self = msg_send ~self ~cmd:(selector "defaultDisclosureLayoutWidthForView:") ~typ:(id @-> returning (double)) x -let defaultEditAndUpdateAnimationDuration self = msg_send ~self ~cmd:(selector "defaultEditAndUpdateAnimationDuration") ~typ:(returning (double)) -let defaultEditControlPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultEditControlPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning (double)) x inTableView -let defaultEditControlSizeForCell x ~inTableView self = msg_send_stret ~self ~cmd:(selector "defaultEditControlSizeForCell:inTableView:") ~typ:(id @-> id @-> returning (CGSize.t)) ~return_type:CGSize.t x inTableView -let defaultFocusedHorizontalOutsetForTableView x self = msg_send ~self ~cmd:(selector "defaultFocusedHorizontalOutsetForTableView:") ~typ:(id @-> returning (double)) x -let defaultFocusedShadowRadiusForTableView x self = msg_send ~self ~cmd:(selector "defaultFocusedShadowRadiusForTableView:") ~typ:(id @-> returning (double)) x -let defaultFooterFontForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultFooterFontForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultFooterTextColorForTableViewStyle x ~focused self = msg_send ~self ~cmd:(selector "defaultFooterTextColorForTableViewStyle:focused:") ~typ:(llong @-> bool @-> returning (id)) (LLong.of_int x) focused -let defaultHeaderFontForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFontForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultHeaderTextColorForTableViewStyle x ~focused self = msg_send ~self ~cmd:(selector "defaultHeaderTextColorForTableViewStyle:focused:") ~typ:(llong @-> bool @-> returning (id)) (LLong.of_int x) focused -let defaultImageSymbolConfigurationForTraitCollection x self = msg_send ~self ~cmd:(selector "defaultImageSymbolConfigurationForTraitCollection:") ~typ:(id @-> returning (id)) x -let defaultImageTintColorForState x self = msg_send ~self ~cmd:(selector "defaultImageTintColorForState:") ~typ:(id @-> returning (id)) x -let defaultImageToTextPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultImageToTextPaddingForSidebar:") ~typ:(bool @-> returning (double)) x -let defaultImageViewSymbolImageAndAccessoryLayoutWidthForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultImageViewSymbolImageAndAccessoryLayoutWidthForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning (double)) x traitCollection -let defaultImageViewSymbolImageLayoutHeightForTraitCollection x self = msg_send ~self ~cmd:(selector "defaultImageViewSymbolImageLayoutHeightForTraitCollection:") ~typ:(id @-> returning (double)) x -let defaultIndentationWidthForSidebarStyle x self = msg_send ~self ~cmd:(selector "defaultIndentationWidthForSidebarStyle:") ~typ:(bool @-> returning (double)) x -let defaultInsertImageForCell x self = msg_send ~self ~cmd:(selector "defaultInsertImageForCell:") ~typ:(id @-> returning (id)) x -let defaultInsertImageWithTintColor x ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultInsertImageWithTintColor:backgroundColor:") ~typ:(id @-> id @-> returning (id)) x backgroundColor -let defaultInsetGroupedHeaderFontForExtraProminentStyle x ~secondaryText self = msg_send ~self ~cmd:(selector "defaultInsetGroupedHeaderFontForExtraProminentStyle:secondaryText:") ~typ:(bool @-> bool @-> returning (id)) x secondaryText -let defaultInterAccessoryPaddingForCell x ~trailingAccessoryGroup self = msg_send ~self ~cmd:(selector "defaultInterAccessoryPaddingForCell:trailingAccessoryGroup:") ~typ:(id @-> bool @-> returning (double)) x trailingAccessoryGroup -let defaultLabelAllowsTighteningForTruncationForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelAllowsTighteningForTruncationForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning (bool)) x traitCollection -let defaultLabelMinimumScaleFactorForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelMinimumScaleFactorForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning (double)) x traitCollection -let defaultLabelNumberOfLinesForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelNumberOfLinesForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning (llong)) x traitCollection -let defaultLeadingCellMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultLeadingCellMarginWidthForTableView:") ~typ:(id @-> returning (double)) x -let defaultMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultMarginWidthForTableView:") ~typ:(id @-> returning (double)) x -let defaultMaskGradientHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultMaskGradientHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultMultiSelectBackgroundColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultMultiSelectBackgroundColorForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultMultiSelectNotSelectedImageForCellStyle x ~traitCollection ~accessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultMultiSelectNotSelectedImageForCellStyle:traitCollection:accessoryBaseColor:") ~typ:(llong @-> id @-> id @-> returning (id)) (LLong.of_int x) traitCollection accessoryBaseColor -let defaultMultiSelectSelectedImageForCellStyle x ~traitCollection ~checkmarkColor ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultMultiSelectSelectedImageForCellStyle:traitCollection:checkmarkColor:backgroundColor:") ~typ:(llong @-> id @-> id @-> id @-> returning (id)) (LLong.of_int x) traitCollection checkmarkColor backgroundColor -let defaultOutlineDisclosureImageForView x self = msg_send ~self ~cmd:(selector "defaultOutlineDisclosureImageForView:") ~typ:(id @-> returning (id)) x -let defaultPaddingAboveSectionHeadersForTableStyle x self = msg_send ~self ~cmd:(selector "defaultPaddingAboveSectionHeadersForTableStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let defaultPaddingBetweenHeaderAndRows self = msg_send ~self ~cmd:(selector "defaultPaddingBetweenHeaderAndRows") ~typ:(returning (double)) -let defaultPaddingBetweenRows self = msg_send ~self ~cmd:(selector "defaultPaddingBetweenRows") ~typ:(returning (double)) -let defaultPlainFirstSectionHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultPlainFirstSectionHeaderHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultPlainHeaderFooterFont self = msg_send ~self ~cmd:(selector "defaultPlainHeaderFooterFont") ~typ:(returning (id)) -let defaultPlainHeaderLabelYPositionForTableView x ~headerBounds ~textRect ~isHeader self = msg_send ~self ~cmd:(selector "defaultPlainHeaderLabelYPositionForTableView:headerBounds:textRect:isHeader:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> bool @-> returning (double)) x headerBounds textRect isHeader -let defaultReorderControlImageForTraitCollection x ~withAccessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultReorderControlImageForTraitCollection:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning (id)) x withAccessoryBaseColor -let defaultReorderControlSizeForCell x ~withAccessoryBaseColor self = msg_send_stret ~self ~cmd:(selector "defaultReorderControlSizeForCell:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning (CGSize.t)) ~return_type:CGSize.t x withAccessoryBaseColor -let defaultRowHeightDependsOnCellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightDependsOnCellStyle") ~typ:(returning (bool)) -let defaultRowHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultRowHeightForTableView' x ~cellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:cellStyle:") ~typ:(id @-> llong @-> returning (double)) x (LLong.of_int cellStyle) -let defaultSectionFooterHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultSectionFooterHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultSectionFooterHeightForTableViewStyle x ~screen self = msg_send ~self ~cmd:(selector "defaultSectionFooterHeightForTableViewStyle:screen:") ~typ:(llong @-> id @-> returning (double)) (LLong.of_int x) screen -let defaultSectionHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultSectionHeaderHeightForTableViewStyle x ~screen self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeightForTableViewStyle:screen:") ~typ:(llong @-> id @-> returning (double)) (LLong.of_int x) screen -let defaultSeparatorColorForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultSeparatorColorForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultSeparatorStyleForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultSeparatorStyleForTableViewStyle:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let defaultSidebarHeaderFont self = msg_send ~self ~cmd:(selector "defaultSidebarHeaderFont") ~typ:(returning (id)) -let defaultSidebarPlainMultiSelectSeparatorColor self = msg_send ~self ~cmd:(selector "defaultSidebarPlainMultiSelectSeparatorColor") ~typ:(returning (id)) -let defaultSpaceBetweenEditAndReorderControlsForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultSpaceBetweenEditAndReorderControlsForCell:inTableView:") ~typ:(id @-> id @-> returning (double)) x inTableView -let defaultTextColorForCellStyle x ~traitCollection ~tintColor ~state self = msg_send ~self ~cmd:(selector "defaultTextColorForCellStyle:traitCollection:tintColor:state:") ~typ:(llong @-> id @-> id @-> id @-> returning (id)) (LLong.of_int x) traitCollection tintColor state -let defaultTextLabelFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontForCellStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultTextLabelFontSizeForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontSizeForCellStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let defaultTextToSubtitlePaddingForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextToSubtitlePaddingForCellStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let defaultTrailingCellMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultTrailingCellMarginWidthForTableView:") ~typ:(id @-> returning (double)) x -let imageViewOffsetByLayoutMarginsForCell x ~inTableView self = msg_send ~self ~cmd:(selector "imageViewOffsetByLayoutMarginsForCell:inTableView:") ~typ:(id @-> id @-> returning (bool)) x inTableView -let interspaceBetweenInnerAccessoryIdentifier x ~outerAccessoryIdentifier ~forCell ~trailingAccessoryGroup self = msg_send ~self ~cmd:(selector "interspaceBetweenInnerAccessoryIdentifier:outerAccessoryIdentifier:forCell:trailingAccessoryGroup:") ~typ:(id @-> id @-> id @-> bool @-> returning (double)) x outerAccessoryIdentifier forCell trailingAccessoryGroup -let minimumContentViewHeightForFont x ~traitCollection self = msg_send ~self ~cmd:(selector "minimumContentViewHeightForFont:traitCollection:") ~typ:(id @-> id @-> returning (double)) x traitCollection -let reorderingCellWantsShadows self = msg_send ~self ~cmd:(selector "reorderingCellWantsShadows") ~typ:(returning (bool)) -let shouldUppercaseHeaderFooterTextForTableStyle x ~isHeader self = msg_send ~self ~cmd:(selector "shouldUppercaseHeaderFooterTextForTableStyle:isHeader:") ~typ:(llong @-> bool @-> returning (bool)) (LLong.of_int x) isHeader -let shouldUseDefaultTableLayoutMarginsAsContentInsets self = msg_send ~self ~cmd:(selector "shouldUseDefaultTableLayoutMarginsAsContentInsets") ~typ:(returning (bool)) -let sidebarVariant self = msg_send ~self ~cmd:(selector "sidebarVariant") ~typ:(returning (id)) -let supportsUserInterfaceStyles self = msg_send ~self ~cmd:(selector "supportsUserInterfaceStyles") ~typ:(returning (bool)) -let useChromelessSectionHeadersAndFootersForTableStyle x self = msg_send ~self ~cmd:(selector "useChromelessSectionHeadersAndFootersForTableStyle:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let variantForActive x self = msg_send ~self ~cmd:(selector "variantForActive:") ~typ:(bool @-> returning (id)) x \ No newline at end of file +let defaultAccessoryBackgroundColorForAccessorySystemType x ~header ~sidebarStyle ~cellConfigurationState ~traitCollection self = msg_send ~self ~cmd:(selector "defaultAccessoryBackgroundColorForAccessorySystemType:header:sidebarStyle:cellConfigurationState:traitCollection:") ~typ:(llong @-> bool @-> bool @-> id @-> id @-> returning id) (LLong.of_int x) header sidebarStyle cellConfigurationState traitCollection +let defaultAccessoryTintColorForAccessorySystemType x ~header ~sidebarStyle ~cellConfigurationState ~traitCollection ~inheritedTintColor self = msg_send ~self ~cmd:(selector "defaultAccessoryTintColorForAccessorySystemType:header:sidebarStyle:cellConfigurationState:traitCollection:inheritedTintColor:") ~typ:(llong @-> bool @-> bool @-> id @-> id @-> id @-> returning id) (LLong.of_int x) header sidebarStyle cellConfigurationState traitCollection inheritedTintColor +let defaultAlphaForDraggingCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultAlphaForDraggingCell:inTableView:") ~typ:(id @-> id @-> returning double) x inTableView +let defaultAlphaForReorderingCell self = msg_send ~self ~cmd:(selector "defaultAlphaForReorderingCell") ~typ:(returning double) +let defaultBackgroundColorForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultBackgroundColorForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultBackgroundEffectsForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultBackgroundEffectsForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultCellContentLeadingPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultCellContentLeadingPaddingForSidebar:") ~typ:(bool @-> returning double) x +let defaultCellContentTrailingPadding self = msg_send ~self ~cmd:(selector "defaultCellContentTrailingPadding") ~typ:(returning double) +let defaultCellCornerRadius self = msg_send ~self ~cmd:(selector "defaultCellCornerRadius") ~typ:(returning double) +let defaultCellLayoutMarginsForStyle x ~textLabelFont ~rawLayoutMargins self = msg_send ~self ~cmd:(selector "defaultCellLayoutMarginsForStyle:textLabelFont:rawLayoutMargins:") ~typ:(llong @-> id @-> UIEdgeInsets.t @-> returning UIEdgeInsets.t) (LLong.of_int x) textLabelFont rawLayoutMargins +let defaultCheckmarkImageForCell x self = msg_send ~self ~cmd:(selector "defaultCheckmarkImageForCell:") ~typ:(id @-> returning id) x +let defaultContentAccessoryPadding self = msg_send ~self ~cmd:(selector "defaultContentAccessoryPadding") ~typ:(returning double) +let defaultContentEditPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultContentEditPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning double) x inTableView +let defaultContentReorderPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultContentReorderPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning double) x inTableView +let defaultDeleteImageForCell x self = msg_send ~self ~cmd:(selector "defaultDeleteImageForCell:") ~typ:(id @-> returning id) x +let defaultDeleteImageWithTintColor x ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultDeleteImageWithTintColor:backgroundColor:") ~typ:(id @-> id @-> returning id) x backgroundColor +let defaultDeleteMinusRectForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultDeleteMinusRectForCell:inTableView:") ~typ:(id @-> id @-> returning CGRect.t) x inTableView +let defaultDetailTextColorForCellStyle x ~traitCollection ~state self = msg_send ~self ~cmd:(selector "defaultDetailTextColorForCellStyle:traitCollection:state:") ~typ:(llong @-> id @-> id @-> returning id) (LLong.of_int x) traitCollection state +let defaultDetailTextFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultDetailTextFontForCellStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultDetailTextLabelFontSizeForCellStyle x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontSizeForCellStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let defaultDisclosureImageForCell x ~withAccessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultDisclosureImageForCell:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning id) x withAccessoryBaseColor +let defaultDisclosureLayoutWidthForView x self = msg_send ~self ~cmd:(selector "defaultDisclosureLayoutWidthForView:") ~typ:(id @-> returning double) x +let defaultEditAndUpdateAnimationDuration self = msg_send ~self ~cmd:(selector "defaultEditAndUpdateAnimationDuration") ~typ:(returning double) +let defaultEditControlPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultEditControlPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning double) x inTableView +let defaultEditControlSizeForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultEditControlSizeForCell:inTableView:") ~typ:(id @-> id @-> returning CGSize.t) x inTableView +let defaultFocusedHorizontalOutsetForTableView x self = msg_send ~self ~cmd:(selector "defaultFocusedHorizontalOutsetForTableView:") ~typ:(id @-> returning double) x +let defaultFocusedShadowRadiusForTableView x self = msg_send ~self ~cmd:(selector "defaultFocusedShadowRadiusForTableView:") ~typ:(id @-> returning double) x +let defaultFooterFontForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultFooterFontForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultFooterTextColorForTableViewStyle x ~focused self = msg_send ~self ~cmd:(selector "defaultFooterTextColorForTableViewStyle:focused:") ~typ:(llong @-> bool @-> returning id) (LLong.of_int x) focused +let defaultHeaderFontForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFontForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultHeaderFooterLayoutMarginsForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFooterLayoutMarginsForTableViewStyle:") ~typ:(llong @-> returning UIEdgeInsets.t) (LLong.of_int x) +let defaultHeaderTextColorForTableViewStyle x ~focused self = msg_send ~self ~cmd:(selector "defaultHeaderTextColorForTableViewStyle:focused:") ~typ:(llong @-> bool @-> returning id) (LLong.of_int x) focused +let defaultImageSymbolConfigurationForTraitCollection x self = msg_send ~self ~cmd:(selector "defaultImageSymbolConfigurationForTraitCollection:") ~typ:(id @-> returning id) x +let defaultImageTintColorForState x self = msg_send ~self ~cmd:(selector "defaultImageTintColorForState:") ~typ:(id @-> returning id) x +let defaultImageToTextPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultImageToTextPaddingForSidebar:") ~typ:(bool @-> returning double) x +let defaultImageViewSymbolImageAndAccessoryLayoutWidthForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultImageViewSymbolImageAndAccessoryLayoutWidthForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning double) x traitCollection +let defaultImageViewSymbolImageLayoutHeightForTraitCollection x self = msg_send ~self ~cmd:(selector "defaultImageViewSymbolImageLayoutHeightForTraitCollection:") ~typ:(id @-> returning double) x +let defaultIndentationWidthForSidebarStyle x self = msg_send ~self ~cmd:(selector "defaultIndentationWidthForSidebarStyle:") ~typ:(bool @-> returning double) x +let defaultInsertImageForCell x self = msg_send ~self ~cmd:(selector "defaultInsertImageForCell:") ~typ:(id @-> returning id) x +let defaultInsertImageWithTintColor x ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultInsertImageWithTintColor:backgroundColor:") ~typ:(id @-> id @-> returning id) x backgroundColor +let defaultInsetGroupedHeaderFontForExtraProminentStyle x ~secondaryText self = msg_send ~self ~cmd:(selector "defaultInsetGroupedHeaderFontForExtraProminentStyle:secondaryText:") ~typ:(bool @-> bool @-> returning id) x secondaryText +let defaultInsetGroupedHeaderLayoutMarginsForExtraProminentStyle x self = msg_send ~self ~cmd:(selector "defaultInsetGroupedHeaderLayoutMarginsForExtraProminentStyle:") ~typ:(bool @-> returning NSDirectionalEdgeInsets.t) x +let defaultInterAccessoryPaddingForCell x ~trailingAccessoryGroup self = msg_send ~self ~cmd:(selector "defaultInterAccessoryPaddingForCell:trailingAccessoryGroup:") ~typ:(id @-> bool @-> returning double) x trailingAccessoryGroup +let defaultLabelAllowsTighteningForTruncationForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelAllowsTighteningForTruncationForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning bool) x traitCollection +let defaultLabelMinimumScaleFactorForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelMinimumScaleFactorForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning double) x traitCollection +let defaultLabelNumberOfLinesForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelNumberOfLinesForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning llong) x traitCollection +let defaultLayoutMarginsForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultLayoutMarginsForCell:inTableView:") ~typ:(id @-> id @-> returning UIEdgeInsets.t) x inTableView +let defaultLayoutMarginsForTableView x self = msg_send ~self ~cmd:(selector "defaultLayoutMarginsForTableView:") ~typ:(id @-> returning UIEdgeInsets.t) x +let defaultLeadingCellMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultLeadingCellMarginWidthForTableView:") ~typ:(id @-> returning double) x +let defaultMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultMarginWidthForTableView:") ~typ:(id @-> returning double) x +let defaultMaskGradientHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultMaskGradientHeightForTableView:") ~typ:(id @-> returning double) x +let defaultMultiSelectBackgroundColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultMultiSelectBackgroundColorForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultMultiSelectNotSelectedImageForCellStyle x ~traitCollection ~accessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultMultiSelectNotSelectedImageForCellStyle:traitCollection:accessoryBaseColor:") ~typ:(llong @-> id @-> id @-> returning id) (LLong.of_int x) traitCollection accessoryBaseColor +let defaultMultiSelectSelectedImageForCellStyle x ~traitCollection ~checkmarkColor ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultMultiSelectSelectedImageForCellStyle:traitCollection:checkmarkColor:backgroundColor:") ~typ:(llong @-> id @-> id @-> id @-> returning id) (LLong.of_int x) traitCollection checkmarkColor backgroundColor +let defaultOutlineDisclosureImageForView x self = msg_send ~self ~cmd:(selector "defaultOutlineDisclosureImageForView:") ~typ:(id @-> returning id) x +let defaultPaddingAboveSectionHeadersForTableStyle x self = msg_send ~self ~cmd:(selector "defaultPaddingAboveSectionHeadersForTableStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let defaultPaddingBetweenHeaderAndRows self = msg_send ~self ~cmd:(selector "defaultPaddingBetweenHeaderAndRows") ~typ:(returning double) +let defaultPaddingBetweenRows self = msg_send ~self ~cmd:(selector "defaultPaddingBetweenRows") ~typ:(returning double) +let defaultPlainFirstSectionHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultPlainFirstSectionHeaderHeightForTableView:") ~typ:(id @-> returning double) x +let defaultPlainHeaderFooterFont self = msg_send ~self ~cmd:(selector "defaultPlainHeaderFooterFont") ~typ:(returning id) +let defaultPlainHeaderLabelYPositionForTableView x ~headerBounds ~textRect ~isHeader self = msg_send ~self ~cmd:(selector "defaultPlainHeaderLabelYPositionForTableView:headerBounds:textRect:isHeader:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> bool @-> returning double) x headerBounds textRect isHeader +let defaultReorderControlImageForTraitCollection x ~withAccessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultReorderControlImageForTraitCollection:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning id) x withAccessoryBaseColor +let defaultReorderControlSizeForCell x ~withAccessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultReorderControlSizeForCell:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning CGSize.t) x withAccessoryBaseColor +let defaultRowHeightDependsOnCellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightDependsOnCellStyle") ~typ:(returning bool) +let defaultRowHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:") ~typ:(id @-> returning double) x +let defaultRowHeightForTableView' x ~cellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:cellStyle:") ~typ:(id @-> llong @-> returning double) x (LLong.of_int cellStyle) +let defaultSectionContentInsetsForTableStyle x self = msg_send ~self ~cmd:(selector "defaultSectionContentInsetsForTableStyle:") ~typ:(llong @-> returning UIEdgeInsets.t) (LLong.of_int x) +let defaultSectionFooterHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultSectionFooterHeightForTableView:") ~typ:(id @-> returning double) x +let defaultSectionFooterHeightForTableViewStyle x ~screen self = msg_send ~self ~cmd:(selector "defaultSectionFooterHeightForTableViewStyle:screen:") ~typ:(llong @-> id @-> returning double) (LLong.of_int x) screen +let defaultSectionHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeightForTableView:") ~typ:(id @-> returning double) x +let defaultSectionHeaderHeightForTableViewStyle x ~screen self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeightForTableViewStyle:screen:") ~typ:(llong @-> id @-> returning double) (LLong.of_int x) screen +let defaultSeparatorColorForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultSeparatorColorForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultSeparatorStyleForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultSeparatorStyleForTableViewStyle:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let defaultSidebarHeaderFont self = msg_send ~self ~cmd:(selector "defaultSidebarHeaderFont") ~typ:(returning id) +let defaultSidebarLayoutMarginsForElementsInsideSection self = msg_send ~self ~cmd:(selector "defaultSidebarLayoutMarginsForElementsInsideSection") ~typ:(returning UIEdgeInsets.t) +let defaultSidebarPlainMultiSelectSeparatorColor self = msg_send ~self ~cmd:(selector "defaultSidebarPlainMultiSelectSeparatorColor") ~typ:(returning id) +let defaultSpaceBetweenEditAndReorderControlsForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultSpaceBetweenEditAndReorderControlsForCell:inTableView:") ~typ:(id @-> id @-> returning double) x inTableView +let defaultTableLayoutMarginsForScreen x ~size ~tableStyle self = msg_send ~self ~cmd:(selector "defaultTableLayoutMarginsForScreen:size:tableStyle:") ~typ:(id @-> CGSize.t @-> llong @-> returning UIEdgeInsets.t) x size (LLong.of_int tableStyle) +let defaultTextColorForCellStyle x ~traitCollection ~tintColor ~state self = msg_send ~self ~cmd:(selector "defaultTextColorForCellStyle:traitCollection:tintColor:state:") ~typ:(llong @-> id @-> id @-> id @-> returning id) (LLong.of_int x) traitCollection tintColor state +let defaultTextLabelFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontForCellStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultTextLabelFontSizeForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontSizeForCellStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let defaultTextToSubtitlePaddingForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextToSubtitlePaddingForCellStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let defaultTrailingCellMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultTrailingCellMarginWidthForTableView:") ~typ:(id @-> returning double) x +let imageViewOffsetByLayoutMarginsForCell x ~inTableView self = msg_send ~self ~cmd:(selector "imageViewOffsetByLayoutMarginsForCell:inTableView:") ~typ:(id @-> id @-> returning bool) x inTableView +let interspaceBetweenInnerAccessoryIdentifier x ~outerAccessoryIdentifier ~forCell ~trailingAccessoryGroup self = msg_send ~self ~cmd:(selector "interspaceBetweenInnerAccessoryIdentifier:outerAccessoryIdentifier:forCell:trailingAccessoryGroup:") ~typ:(id @-> id @-> id @-> bool @-> returning double) x outerAccessoryIdentifier forCell trailingAccessoryGroup +let minimumContentViewHeightForFont x ~traitCollection self = msg_send ~self ~cmd:(selector "minimumContentViewHeightForFont:traitCollection:") ~typ:(id @-> id @-> returning double) x traitCollection +let reorderingCellWantsShadows self = msg_send ~self ~cmd:(selector "reorderingCellWantsShadows") ~typ:(returning bool) +let shouldUppercaseHeaderFooterTextForTableStyle x ~isHeader self = msg_send ~self ~cmd:(selector "shouldUppercaseHeaderFooterTextForTableStyle:isHeader:") ~typ:(llong @-> bool @-> returning bool) (LLong.of_int x) isHeader +let shouldUseDefaultTableLayoutMarginsAsContentInsets self = msg_send ~self ~cmd:(selector "shouldUseDefaultTableLayoutMarginsAsContentInsets") ~typ:(returning bool) +let sidebarVariant self = msg_send ~self ~cmd:(selector "sidebarVariant") ~typ:(returning id) +let supportsUserInterfaceStyles self = msg_send ~self ~cmd:(selector "supportsUserInterfaceStyles") ~typ:(returning bool) +let useChromelessSectionHeadersAndFootersForTableStyle x self = msg_send ~self ~cmd:(selector "useChromelessSectionHeadersAndFootersForTableStyle:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let variantForActive x self = msg_send ~self ~cmd:(selector "variantForActive:") ~typ:(bool @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UITableConstants_IOSClass.ml b/uikit_extra/UITableConstants_IOSClass.ml new file mode 100644 index 00000000..a22bc314 --- /dev/null +++ b/uikit_extra/UITableConstants_IOSClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableconstants_ios?language=objc}UITableConstants_IOS} *) + +let sharedConstants self = msg_send ~self ~cmd:(selector "sharedConstants") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UITableConstants_Mac.ml b/uikit_extra/UITableConstants_Mac.ml index 5783d555..b9c17d0a 100644 --- a/uikit_extra/UITableConstants_Mac.ml +++ b/uikit_extra/UITableConstants_Mac.ml @@ -5,31 +5,34 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableConstants_Mac" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableconstants_mac?language=objc}UITableConstants_Mac} *) -module C = struct - let sharedConstants self = msg_send ~self ~cmd:(selector "sharedConstants") ~typ:(returning (id)) -end +let self = get_class "UITableConstants_Mac" -let defaultAccessoryTintColorForAccessorySystemType x ~header ~sidebarStyle ~cellConfigurationState ~traitCollection ~inheritedTintColor self = msg_send ~self ~cmd:(selector "defaultAccessoryTintColorForAccessorySystemType:header:sidebarStyle:cellConfigurationState:traitCollection:inheritedTintColor:") ~typ:(llong @-> bool @-> bool @-> id @-> id @-> id @-> returning (id)) (LLong.of_int x) header sidebarStyle cellConfigurationState traitCollection inheritedTintColor -let defaultCellContentLeadingPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultCellContentLeadingPaddingForSidebar:") ~typ:(bool @-> returning (double)) x -let defaultCellContentTrailingPadding self = msg_send ~self ~cmd:(selector "defaultCellContentTrailingPadding") ~typ:(returning (double)) -let defaultHeaderFontForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFontForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultHeaderFooterBackgroundViewClassForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFooterBackgroundViewClassForTableViewStyle:") ~typ:(llong @-> returning (_Class)) (LLong.of_int x) -let defaultHeaderTextColorForTableViewStyle x ~focused self = msg_send ~self ~cmd:(selector "defaultHeaderTextColorForTableViewStyle:focused:") ~typ:(llong @-> bool @-> returning (id)) (LLong.of_int x) focused -let defaultImageSymbolConfigurationForTraitCollection x self = msg_send ~self ~cmd:(selector "defaultImageSymbolConfigurationForTraitCollection:") ~typ:(id @-> returning (id)) x -let defaultImageToTextPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultImageToTextPaddingForSidebar:") ~typ:(bool @-> returning (double)) x -let defaultIndentationWidthForSidebarStyle x self = msg_send ~self ~cmd:(selector "defaultIndentationWidthForSidebarStyle:") ~typ:(bool @-> returning (double)) x -let defaultOutlineDisclosureImageForView x self = msg_send ~self ~cmd:(selector "defaultOutlineDisclosureImageForView:") ~typ:(id @-> returning (id)) x -let defaultPaddingAboveSectionHeadersForTableStyle x self = msg_send ~self ~cmd:(selector "defaultPaddingAboveSectionHeadersForTableStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let defaultRowHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultRowHeightForTableView' x ~cellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:cellStyle:") ~typ:(id @-> llong @-> returning (double)) x (LLong.of_int cellStyle) -let defaultSectionHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultSeparatorStyleForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultSeparatorStyleForTableViewStyle:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let defaultSidebarPlainMultiSelectSeparatorColor self = msg_send ~self ~cmd:(selector "defaultSidebarPlainMultiSelectSeparatorColor") ~typ:(returning (id)) -let defaultTextLabelFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontForCellStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let minimumContentViewHeightForFont x ~traitCollection self = msg_send ~self ~cmd:(selector "minimumContentViewHeightForFont:traitCollection:") ~typ:(id @-> id @-> returning (double)) x traitCollection -let shouldUppercaseHeaderFooterTextForTableStyle x ~isHeader self = msg_send ~self ~cmd:(selector "shouldUppercaseHeaderFooterTextForTableStyle:isHeader:") ~typ:(llong @-> bool @-> returning (bool)) (LLong.of_int x) isHeader -let sidebarVariant self = msg_send ~self ~cmd:(selector "sidebarVariant") ~typ:(returning (id)) -let useChromelessSectionHeadersAndFootersForTableStyle x self = msg_send ~self ~cmd:(selector "useChromelessSectionHeadersAndFootersForTableStyle:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) \ No newline at end of file +let defaultAccessoryTintColorForAccessorySystemType x ~header ~sidebarStyle ~cellConfigurationState ~traitCollection ~inheritedTintColor self = msg_send ~self ~cmd:(selector "defaultAccessoryTintColorForAccessorySystemType:header:sidebarStyle:cellConfigurationState:traitCollection:inheritedTintColor:") ~typ:(llong @-> bool @-> bool @-> id @-> id @-> id @-> returning id) (LLong.of_int x) header sidebarStyle cellConfigurationState traitCollection inheritedTintColor +let defaultCellContentLeadingPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultCellContentLeadingPaddingForSidebar:") ~typ:(bool @-> returning double) x +let defaultCellContentTrailingPadding self = msg_send ~self ~cmd:(selector "defaultCellContentTrailingPadding") ~typ:(returning double) +let defaultCellLayoutMarginsForStyle x ~textLabelFont ~rawLayoutMargins self = msg_send ~self ~cmd:(selector "defaultCellLayoutMarginsForStyle:textLabelFont:rawLayoutMargins:") ~typ:(llong @-> id @-> UIEdgeInsets.t @-> returning UIEdgeInsets.t) (LLong.of_int x) textLabelFont rawLayoutMargins +let defaultHeaderFontForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFontForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultHeaderFooterBackgroundViewClassForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFooterBackgroundViewClassForTableViewStyle:") ~typ:(llong @-> returning _Class) (LLong.of_int x) +let defaultHeaderFooterLayoutMarginsForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFooterLayoutMarginsForTableViewStyle:") ~typ:(llong @-> returning UIEdgeInsets.t) (LLong.of_int x) +let defaultHeaderTextColorForTableViewStyle x ~focused self = msg_send ~self ~cmd:(selector "defaultHeaderTextColorForTableViewStyle:focused:") ~typ:(llong @-> bool @-> returning id) (LLong.of_int x) focused +let defaultImageSymbolConfigurationForTraitCollection x self = msg_send ~self ~cmd:(selector "defaultImageSymbolConfigurationForTraitCollection:") ~typ:(id @-> returning id) x +let defaultImageToTextPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultImageToTextPaddingForSidebar:") ~typ:(bool @-> returning double) x +let defaultIndentationWidthForSidebarStyle x self = msg_send ~self ~cmd:(selector "defaultIndentationWidthForSidebarStyle:") ~typ:(bool @-> returning double) x +let defaultLayoutMarginsForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultLayoutMarginsForCell:inTableView:") ~typ:(id @-> id @-> returning UIEdgeInsets.t) x inTableView +let defaultOutlineDisclosureImageForView x self = msg_send ~self ~cmd:(selector "defaultOutlineDisclosureImageForView:") ~typ:(id @-> returning id) x +let defaultPaddingAboveSectionHeadersForTableStyle x self = msg_send ~self ~cmd:(selector "defaultPaddingAboveSectionHeadersForTableStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let defaultRowHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:") ~typ:(id @-> returning double) x +let defaultRowHeightForTableView' x ~cellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:cellStyle:") ~typ:(id @-> llong @-> returning double) x (LLong.of_int cellStyle) +let defaultSectionHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeightForTableView:") ~typ:(id @-> returning double) x +let defaultSeparatorStyleForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultSeparatorStyleForTableViewStyle:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let defaultSidebarPlainMultiSelectSeparatorColor self = msg_send ~self ~cmd:(selector "defaultSidebarPlainMultiSelectSeparatorColor") ~typ:(returning id) +let defaultTextLabelFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontForCellStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let minimumContentViewHeightForFont x ~traitCollection self = msg_send ~self ~cmd:(selector "minimumContentViewHeightForFont:traitCollection:") ~typ:(id @-> id @-> returning double) x traitCollection +let shouldUppercaseHeaderFooterTextForTableStyle x ~isHeader self = msg_send ~self ~cmd:(selector "shouldUppercaseHeaderFooterTextForTableStyle:isHeader:") ~typ:(llong @-> bool @-> returning bool) (LLong.of_int x) isHeader +let sidebarVariant self = msg_send ~self ~cmd:(selector "sidebarVariant") ~typ:(returning id) +let useChromelessSectionHeadersAndFootersForTableStyle x self = msg_send ~self ~cmd:(selector "useChromelessSectionHeadersAndFootersForTableStyle:") ~typ:(llong @-> returning bool) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UITableConstants_MacClass.ml b/uikit_extra/UITableConstants_MacClass.ml new file mode 100644 index 00000000..e73ea61a --- /dev/null +++ b/uikit_extra/UITableConstants_MacClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableconstants_mac?language=objc}UITableConstants_Mac} *) + +let sharedConstants self = msg_send ~self ~cmd:(selector "sharedConstants") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UITableConstants_MacSidebar.ml b/uikit_extra/UITableConstants_MacSidebar.ml index c0d66fa2..4926e2c8 100644 --- a/uikit_extra/UITableConstants_MacSidebar.ml +++ b/uikit_extra/UITableConstants_MacSidebar.ml @@ -5,40 +5,43 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableConstants_MacSidebar" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableconstants_macsidebar?language=objc}UITableConstants_MacSidebar} *) -module C = struct - let sharedConstants self = msg_send ~self ~cmd:(selector "sharedConstants") ~typ:(returning (id)) -end +let self = get_class "UITableConstants_MacSidebar" -let defaultAlphaForDraggingCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultAlphaForDraggingCell:inTableView:") ~typ:(id @-> id @-> returning (double)) x inTableView -let defaultBackgroundColorForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultBackgroundColorForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultCellContentLeadingPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultCellContentLeadingPaddingForSidebar:") ~typ:(bool @-> returning (double)) x -let defaultCellContentTrailingPadding self = msg_send ~self ~cmd:(selector "defaultCellContentTrailingPadding") ~typ:(returning (double)) -let defaultCellCornerRadius self = msg_send ~self ~cmd:(selector "defaultCellCornerRadius") ~typ:(returning (double)) -let defaultHeaderFontForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFontForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultHeaderFooterBackgroundViewClassForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFooterBackgroundViewClassForTableViewStyle:") ~typ:(llong @-> returning (_Class)) (LLong.of_int x) -let defaultHeaderTextColorForTableViewStyle x ~focused self = msg_send ~self ~cmd:(selector "defaultHeaderTextColorForTableViewStyle:focused:") ~typ:(llong @-> bool @-> returning (id)) (LLong.of_int x) focused -let defaultImageTintColorForState x self = msg_send ~self ~cmd:(selector "defaultImageTintColorForState:") ~typ:(id @-> returning (id)) x -let defaultImageToTextPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultImageToTextPaddingForSidebar:") ~typ:(bool @-> returning (double)) x -let defaultImageViewSymbolImageAndAccessoryLayoutWidthForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultImageViewSymbolImageAndAccessoryLayoutWidthForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning (double)) x traitCollection -let defaultIndentationWidthForSidebarStyle x self = msg_send ~self ~cmd:(selector "defaultIndentationWidthForSidebarStyle:") ~typ:(bool @-> returning (double)) x -let defaultLabelAllowsTighteningForTruncationForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelAllowsTighteningForTruncationForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning (bool)) x traitCollection -let defaultLabelMinimumScaleFactorForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelMinimumScaleFactorForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning (double)) x traitCollection -let defaultLabelNumberOfLinesForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelNumberOfLinesForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning (llong)) x traitCollection -let defaultMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultMarginWidthForTableView:") ~typ:(id @-> returning (double)) x -let defaultPaddingBetweenHeaderAndRows self = msg_send ~self ~cmd:(selector "defaultPaddingBetweenHeaderAndRows") ~typ:(returning (double)) -let defaultPaddingBetweenRows self = msg_send ~self ~cmd:(selector "defaultPaddingBetweenRows") ~typ:(returning (double)) -let defaultRowHeightDependsOnCellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightDependsOnCellStyle") ~typ:(returning (bool)) -let defaultRowHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultSectionHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultSeparatorStyleForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultSeparatorStyleForTableViewStyle:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let defaultTextColorForCellStyle x ~traitCollection ~tintColor ~state self = msg_send ~self ~cmd:(selector "defaultTextColorForCellStyle:traitCollection:tintColor:state:") ~typ:(llong @-> id @-> id @-> id @-> returning (id)) (LLong.of_int x) traitCollection tintColor state -let defaultTextLabelFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontForCellStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let minimumContentViewHeightForFont x ~traitCollection self = msg_send ~self ~cmd:(selector "minimumContentViewHeightForFont:traitCollection:") ~typ:(id @-> id @-> returning (double)) x traitCollection -let shouldUseDefaultTableLayoutMarginsAsContentInsets self = msg_send ~self ~cmd:(selector "shouldUseDefaultTableLayoutMarginsAsContentInsets") ~typ:(returning (bool)) -let sidebarStateForFocused x self = msg_send ~self ~cmd:(selector "sidebarStateForFocused:") ~typ:(bool @-> returning (int)) x -let supportsUserInterfaceStyles self = msg_send ~self ~cmd:(selector "supportsUserInterfaceStyles") ~typ:(returning (bool)) +let defaultAlphaForDraggingCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultAlphaForDraggingCell:inTableView:") ~typ:(id @-> id @-> returning double) x inTableView +let defaultBackgroundColorForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultBackgroundColorForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultCellContentLeadingPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultCellContentLeadingPaddingForSidebar:") ~typ:(bool @-> returning double) x +let defaultCellContentTrailingPadding self = msg_send ~self ~cmd:(selector "defaultCellContentTrailingPadding") ~typ:(returning double) +let defaultCellCornerRadius self = msg_send ~self ~cmd:(selector "defaultCellCornerRadius") ~typ:(returning double) +let defaultHeaderFontForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFontForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultHeaderFooterBackgroundViewClassForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFooterBackgroundViewClassForTableViewStyle:") ~typ:(llong @-> returning _Class) (LLong.of_int x) +let defaultHeaderTextColorForTableViewStyle x ~focused self = msg_send ~self ~cmd:(selector "defaultHeaderTextColorForTableViewStyle:focused:") ~typ:(llong @-> bool @-> returning id) (LLong.of_int x) focused +let defaultImageTintColorForState x self = msg_send ~self ~cmd:(selector "defaultImageTintColorForState:") ~typ:(id @-> returning id) x +let defaultImageToTextPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultImageToTextPaddingForSidebar:") ~typ:(bool @-> returning double) x +let defaultImageViewSymbolImageAndAccessoryLayoutWidthForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultImageViewSymbolImageAndAccessoryLayoutWidthForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning double) x traitCollection +let defaultIndentationWidthForSidebarStyle x self = msg_send ~self ~cmd:(selector "defaultIndentationWidthForSidebarStyle:") ~typ:(bool @-> returning double) x +let defaultLabelAllowsTighteningForTruncationForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelAllowsTighteningForTruncationForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning bool) x traitCollection +let defaultLabelMinimumScaleFactorForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelMinimumScaleFactorForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning double) x traitCollection +let defaultLabelNumberOfLinesForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelNumberOfLinesForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning llong) x traitCollection +let defaultMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultMarginWidthForTableView:") ~typ:(id @-> returning double) x +let defaultPaddingBetweenHeaderAndRows self = msg_send ~self ~cmd:(selector "defaultPaddingBetweenHeaderAndRows") ~typ:(returning double) +let defaultPaddingBetweenRows self = msg_send ~self ~cmd:(selector "defaultPaddingBetweenRows") ~typ:(returning double) +let defaultRowHeightDependsOnCellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightDependsOnCellStyle") ~typ:(returning bool) +let defaultRowHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:") ~typ:(id @-> returning double) x +let defaultSectionContentInsetsForTableStyle x self = msg_send ~self ~cmd:(selector "defaultSectionContentInsetsForTableStyle:") ~typ:(llong @-> returning UIEdgeInsets.t) (LLong.of_int x) +let defaultSectionHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeightForTableView:") ~typ:(id @-> returning double) x +let defaultSeparatorStyleForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultSeparatorStyleForTableViewStyle:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let defaultSidebarLayoutMarginsForElementsInsideSection self = msg_send ~self ~cmd:(selector "defaultSidebarLayoutMarginsForElementsInsideSection") ~typ:(returning UIEdgeInsets.t) +let defaultTableLayoutMarginsForScreen x ~size ~tableStyle self = msg_send ~self ~cmd:(selector "defaultTableLayoutMarginsForScreen:size:tableStyle:") ~typ:(id @-> CGSize.t @-> llong @-> returning UIEdgeInsets.t) x size (LLong.of_int tableStyle) +let defaultTextColorForCellStyle x ~traitCollection ~tintColor ~state self = msg_send ~self ~cmd:(selector "defaultTextColorForCellStyle:traitCollection:tintColor:state:") ~typ:(llong @-> id @-> id @-> id @-> returning id) (LLong.of_int x) traitCollection tintColor state +let defaultTextLabelFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontForCellStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let minimumContentViewHeightForFont x ~traitCollection self = msg_send ~self ~cmd:(selector "minimumContentViewHeightForFont:traitCollection:") ~typ:(id @-> id @-> returning double) x traitCollection +let shouldUseDefaultTableLayoutMarginsAsContentInsets self = msg_send ~self ~cmd:(selector "shouldUseDefaultTableLayoutMarginsAsContentInsets") ~typ:(returning bool) +let sidebarStateForFocused x self = msg_send ~self ~cmd:(selector "sidebarStateForFocused:") ~typ:(bool @-> returning int) x +let supportsUserInterfaceStyles self = msg_send ~self ~cmd:(selector "supportsUserInterfaceStyles") ~typ:(returning bool) let tintFilterGeneratorForTemplateImageForState x self = msg_send ~self ~cmd:(selector "tintFilterGeneratorForTemplateImageForState:") ~typ:(id @-> returning (ptr void)) x -let variantForActive x self = msg_send ~self ~cmd:(selector "variantForActive:") ~typ:(bool @-> returning (id)) x \ No newline at end of file +let variantForActive x self = msg_send ~self ~cmd:(selector "variantForActive:") ~typ:(bool @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UITableConstants_MacSidebarClass.ml b/uikit_extra/UITableConstants_MacSidebarClass.ml new file mode 100644 index 00000000..d4ba7bce --- /dev/null +++ b/uikit_extra/UITableConstants_MacSidebarClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableconstants_macsidebar?language=objc}UITableConstants_MacSidebar} *) + +let sharedConstants self = msg_send ~self ~cmd:(selector "sharedConstants") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UITableConstants_Pad.ml b/uikit_extra/UITableConstants_Pad.ml index 22e44ae8..535b6c1b 100644 --- a/uikit_extra/UITableConstants_Pad.ml +++ b/uikit_extra/UITableConstants_Pad.ml @@ -5,15 +5,16 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableConstants_Pad" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableconstants_pad?language=objc}UITableConstants_Pad} *) -module C = struct - let sharedConstants self = msg_send ~self ~cmd:(selector "sharedConstants") ~typ:(returning (id)) -end +let self = get_class "UITableConstants_Pad" -let defaultRowHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultRowHeightForTableView' x ~cellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:cellStyle:") ~typ:(id @-> llong @-> returning (double)) x (LLong.of_int cellStyle) -let minimumContentViewHeightForFont x ~traitCollection self = msg_send ~self ~cmd:(selector "minimumContentViewHeightForFont:traitCollection:") ~typ:(id @-> id @-> returning (double)) x traitCollection -let sidebarVariant self = msg_send ~self ~cmd:(selector "sidebarVariant") ~typ:(returning (id)) -let supportsUserInterfaceStyles self = msg_send ~self ~cmd:(selector "supportsUserInterfaceStyles") ~typ:(returning (bool)) \ No newline at end of file +let defaultLayoutMarginsForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultLayoutMarginsForCell:inTableView:") ~typ:(id @-> id @-> returning UIEdgeInsets.t) x inTableView +let defaultRowHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:") ~typ:(id @-> returning double) x +let defaultRowHeightForTableView' x ~cellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:cellStyle:") ~typ:(id @-> llong @-> returning double) x (LLong.of_int cellStyle) +let minimumContentViewHeightForFont x ~traitCollection self = msg_send ~self ~cmd:(selector "minimumContentViewHeightForFont:traitCollection:") ~typ:(id @-> id @-> returning double) x traitCollection +let sidebarVariant self = msg_send ~self ~cmd:(selector "sidebarVariant") ~typ:(returning id) +let supportsUserInterfaceStyles self = msg_send ~self ~cmd:(selector "supportsUserInterfaceStyles") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UITableConstants_PadClass.ml b/uikit_extra/UITableConstants_PadClass.ml new file mode 100644 index 00000000..32c34513 --- /dev/null +++ b/uikit_extra/UITableConstants_PadClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableconstants_pad?language=objc}UITableConstants_Pad} *) + +let sharedConstants self = msg_send ~self ~cmd:(selector "sharedConstants") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UITableConstants_TV.ml b/uikit_extra/UITableConstants_TV.ml index 5c2d374e..eda47f80 100644 --- a/uikit_extra/UITableConstants_TV.ml +++ b/uikit_extra/UITableConstants_TV.ml @@ -5,104 +5,110 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableConstants_TV" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableconstants_tv?language=objc}UITableConstants_TV} *) -module C = struct - let sharedConstants self = msg_send ~self ~cmd:(selector "sharedConstants") ~typ:(returning (id)) -end +let self = get_class "UITableConstants_TV" -let defaultAccessoryBackgroundColorForAccessorySystemType x ~header ~sidebarStyle ~cellConfigurationState ~traitCollection self = msg_send ~self ~cmd:(selector "defaultAccessoryBackgroundColorForAccessorySystemType:header:sidebarStyle:cellConfigurationState:traitCollection:") ~typ:(llong @-> bool @-> bool @-> id @-> id @-> returning (id)) (LLong.of_int x) header sidebarStyle cellConfigurationState traitCollection -let defaultAccessoryTintColorForAccessorySystemType x ~header ~sidebarStyle ~cellConfigurationState ~traitCollection ~inheritedTintColor self = msg_send ~self ~cmd:(selector "defaultAccessoryTintColorForAccessorySystemType:header:sidebarStyle:cellConfigurationState:traitCollection:inheritedTintColor:") ~typ:(llong @-> bool @-> bool @-> id @-> id @-> id @-> returning (id)) (LLong.of_int x) header sidebarStyle cellConfigurationState traitCollection inheritedTintColor -let defaultAlphaForDraggingCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultAlphaForDraggingCell:inTableView:") ~typ:(id @-> id @-> returning (double)) x inTableView -let defaultAlphaForReorderingCell self = msg_send ~self ~cmd:(selector "defaultAlphaForReorderingCell") ~typ:(returning (double)) -let defaultBackgroundColorForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultBackgroundColorForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultBackgroundEffectsForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultBackgroundEffectsForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultCellContentLeadingPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultCellContentLeadingPaddingForSidebar:") ~typ:(bool @-> returning (double)) x -let defaultCellContentTrailingPadding self = msg_send ~self ~cmd:(selector "defaultCellContentTrailingPadding") ~typ:(returning (double)) -let defaultCellCornerRadius self = msg_send ~self ~cmd:(selector "defaultCellCornerRadius") ~typ:(returning (double)) -let defaultCheckmarkImageForCell x self = msg_send ~self ~cmd:(selector "defaultCheckmarkImageForCell:") ~typ:(id @-> returning (id)) x -let defaultContentAccessoryPadding self = msg_send ~self ~cmd:(selector "defaultContentAccessoryPadding") ~typ:(returning (double)) -let defaultContentEditPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultContentEditPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning (double)) x inTableView -let defaultContentReorderPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultContentReorderPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning (double)) x inTableView -let defaultDeleteImageForCell x self = msg_send ~self ~cmd:(selector "defaultDeleteImageForCell:") ~typ:(id @-> returning (id)) x -let defaultDeleteImageForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "defaultDeleteImageForUserInterfaceStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultDeleteImageWithTintColor x ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultDeleteImageWithTintColor:backgroundColor:") ~typ:(id @-> id @-> returning (id)) x backgroundColor -let defaultDeleteMinusRectForCell x ~inTableView self = msg_send_stret ~self ~cmd:(selector "defaultDeleteMinusRectForCell:inTableView:") ~typ:(id @-> id @-> returning (CGRect.t)) ~return_type:CGRect.t x inTableView -let defaultDetailTextColorForCellStyle x ~traitCollection ~state self = msg_send ~self ~cmd:(selector "defaultDetailTextColorForCellStyle:traitCollection:state:") ~typ:(llong @-> id @-> id @-> returning (id)) (LLong.of_int x) traitCollection state -let defaultDetailTextColorForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "defaultDetailTextColorForUserInterfaceStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultDetailTextFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultDetailTextFontForCellStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultDetailTextLabelFontSizeForCellStyle x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontSizeForCellStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let defaultDisclosureImageForCell x ~withAccessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultDisclosureImageForCell:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning (id)) x withAccessoryBaseColor -let defaultDisclosureLayoutWidthForView x self = msg_send ~self ~cmd:(selector "defaultDisclosureLayoutWidthForView:") ~typ:(id @-> returning (double)) x -let defaultEditAndUpdateAnimationDuration self = msg_send ~self ~cmd:(selector "defaultEditAndUpdateAnimationDuration") ~typ:(returning (double)) -let defaultEditControlPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultEditControlPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning (double)) x inTableView -let defaultEditControlSizeForCell x ~inTableView self = msg_send_stret ~self ~cmd:(selector "defaultEditControlSizeForCell:inTableView:") ~typ:(id @-> id @-> returning (CGSize.t)) ~return_type:CGSize.t x inTableView -let defaultFocusedCheckmarkImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedCheckmarkImageForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultFocusedDeleteImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedDeleteImageForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultFocusedDetailTextColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedDetailTextColorForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultFocusedDisclosureImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedDisclosureImageForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultFocusedHorizontalOutsetForTableView x self = msg_send ~self ~cmd:(selector "defaultFocusedHorizontalOutsetForTableView:") ~typ:(id @-> returning (double)) x -let defaultFocusedInsertImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedInsertImageForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultFocusedMultiSelectNotSelectedImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedMultiSelectNotSelectedImageForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultFocusedMultiSelectSelectedImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedMultiSelectSelectedImageForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultFocusedReorderControlImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedReorderControlImageForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultFocusedShadowRadiusForTableView x self = msg_send ~self ~cmd:(selector "defaultFocusedShadowRadiusForTableView:") ~typ:(id @-> returning (double)) x -let defaultFocusedTextColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedTextColorForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultFooterFontForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultFooterFontForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultFooterTextColorForTableViewStyle x ~focused self = msg_send ~self ~cmd:(selector "defaultFooterTextColorForTableViewStyle:focused:") ~typ:(llong @-> bool @-> returning (id)) (LLong.of_int x) focused -let defaultHeaderFontForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFontForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultHeaderTextColorForTableViewStyle x ~focused self = msg_send ~self ~cmd:(selector "defaultHeaderTextColorForTableViewStyle:focused:") ~typ:(llong @-> bool @-> returning (id)) (LLong.of_int x) focused -let defaultHeaderTextColorForTableViewStyle' x ~userInterfaceStyle self = msg_send ~self ~cmd:(selector "defaultHeaderTextColorForTableViewStyle:userInterfaceStyle:") ~typ:(llong @-> llong @-> returning (id)) (LLong.of_int x) (LLong.of_int userInterfaceStyle) -let defaultImageSymbolConfigurationForTraitCollection x self = msg_send ~self ~cmd:(selector "defaultImageSymbolConfigurationForTraitCollection:") ~typ:(id @-> returning (id)) x -let defaultImageTintColorForState x self = msg_send ~self ~cmd:(selector "defaultImageTintColorForState:") ~typ:(id @-> returning (id)) x -let defaultImageToTextPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultImageToTextPaddingForSidebar:") ~typ:(bool @-> returning (double)) x -let defaultImageViewSymbolImageAndAccessoryLayoutWidthForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultImageViewSymbolImageAndAccessoryLayoutWidthForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning (double)) x traitCollection -let defaultImageViewSymbolImageLayoutHeightForTraitCollection x self = msg_send ~self ~cmd:(selector "defaultImageViewSymbolImageLayoutHeightForTraitCollection:") ~typ:(id @-> returning (double)) x -let defaultIndentationWidthForSidebarStyle x self = msg_send ~self ~cmd:(selector "defaultIndentationWidthForSidebarStyle:") ~typ:(bool @-> returning (double)) x -let defaultInsertImageForCell x self = msg_send ~self ~cmd:(selector "defaultInsertImageForCell:") ~typ:(id @-> returning (id)) x -let defaultInsertImageWithTintColor x ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultInsertImageWithTintColor:backgroundColor:") ~typ:(id @-> id @-> returning (id)) x backgroundColor -let defaultInterAccessoryPaddingForCell x ~trailingAccessoryGroup self = msg_send ~self ~cmd:(selector "defaultInterAccessoryPaddingForCell:trailingAccessoryGroup:") ~typ:(id @-> bool @-> returning (double)) x trailingAccessoryGroup -let defaultLabelAllowsTighteningForTruncationForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelAllowsTighteningForTruncationForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning (bool)) x traitCollection -let defaultLabelMinimumScaleFactorForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelMinimumScaleFactorForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning (double)) x traitCollection -let defaultLabelNumberOfLinesForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelNumberOfLinesForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning (llong)) x traitCollection -let defaultLeadingCellMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultLeadingCellMarginWidthForTableView:") ~typ:(id @-> returning (double)) x -let defaultMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultMarginWidthForTableView:") ~typ:(id @-> returning (double)) x -let defaultMaskGradientHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultMaskGradientHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultMultiSelectBackgroundColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultMultiSelectBackgroundColorForCell:inTableView:") ~typ:(id @-> id @-> returning (id)) x inTableView -let defaultMultiSelectNotSelectedImageForCellStyle x ~traitCollection ~accessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultMultiSelectNotSelectedImageForCellStyle:traitCollection:accessoryBaseColor:") ~typ:(llong @-> id @-> id @-> returning (id)) (LLong.of_int x) traitCollection accessoryBaseColor -let defaultMultiSelectSelectedImageForCellStyle x ~traitCollection ~checkmarkColor ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultMultiSelectSelectedImageForCellStyle:traitCollection:checkmarkColor:backgroundColor:") ~typ:(llong @-> id @-> id @-> id @-> returning (id)) (LLong.of_int x) traitCollection checkmarkColor backgroundColor -let defaultPaddingAboveSectionHeadersForTableStyle x self = msg_send ~self ~cmd:(selector "defaultPaddingAboveSectionHeadersForTableStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let defaultPaddingBetweenHeaderAndRows self = msg_send ~self ~cmd:(selector "defaultPaddingBetweenHeaderAndRows") ~typ:(returning (double)) -let defaultPaddingBetweenRows self = msg_send ~self ~cmd:(selector "defaultPaddingBetweenRows") ~typ:(returning (double)) -let defaultPlainFirstSectionHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultPlainFirstSectionHeaderHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultPlainHeaderLabelYPositionForTableView x ~headerBounds ~textRect ~isHeader self = msg_send ~self ~cmd:(selector "defaultPlainHeaderLabelYPositionForTableView:headerBounds:textRect:isHeader:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> bool @-> returning (double)) x headerBounds textRect isHeader -let defaultReorderControlImageForTraitCollection x ~withAccessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultReorderControlImageForTraitCollection:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning (id)) x withAccessoryBaseColor -let defaultReorderControlSizeForCell x ~withAccessoryBaseColor self = msg_send_stret ~self ~cmd:(selector "defaultReorderControlSizeForCell:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning (CGSize.t)) ~return_type:CGSize.t x withAccessoryBaseColor -let defaultRowHeightDependsOnCellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightDependsOnCellStyle") ~typ:(returning (bool)) -let defaultRowHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultRowHeightForTableView' x ~cellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:cellStyle:") ~typ:(id @-> llong @-> returning (double)) x (LLong.of_int cellStyle) -let defaultSectionFooterHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultSectionFooterHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultSectionFooterHeightForTableViewStyle x ~screen self = msg_send ~self ~cmd:(selector "defaultSectionFooterHeightForTableViewStyle:screen:") ~typ:(llong @-> id @-> returning (double)) (LLong.of_int x) screen -let defaultSectionHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeightForTableView:") ~typ:(id @-> returning (double)) x -let defaultSectionHeaderHeightForTableViewStyle x ~screen self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeightForTableViewStyle:screen:") ~typ:(llong @-> id @-> returning (double)) (LLong.of_int x) screen -let defaultSeparatorColorForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultSeparatorColorForTableViewStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultSeparatorStyleForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultSeparatorStyleForTableViewStyle:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) -let defaultSpaceBetweenEditAndReorderControlsForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultSpaceBetweenEditAndReorderControlsForCell:inTableView:") ~typ:(id @-> id @-> returning (double)) x inTableView -let defaultTextColorForCellStyle x ~traitCollection ~tintColor ~state self = msg_send ~self ~cmd:(selector "defaultTextColorForCellStyle:traitCollection:tintColor:state:") ~typ:(llong @-> id @-> id @-> id @-> returning (id)) (LLong.of_int x) traitCollection tintColor state -let defaultTextColorForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "defaultTextColorForUserInterfaceStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultTextLabelFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontForCellStyle:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let defaultTextLabelFontSizeForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontSizeForCellStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let defaultTextToSubtitlePaddingForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextToSubtitlePaddingForCellStyle:") ~typ:(llong @-> returning (double)) (LLong.of_int x) -let defaultTrailingCellMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultTrailingCellMarginWidthForTableView:") ~typ:(id @-> returning (double)) x -let imageViewOffsetByLayoutMarginsForCell x ~inTableView self = msg_send ~self ~cmd:(selector "imageViewOffsetByLayoutMarginsForCell:inTableView:") ~typ:(id @-> id @-> returning (bool)) x inTableView -let interspaceBetweenInnerAccessoryIdentifier x ~outerAccessoryIdentifier ~forCell ~trailingAccessoryGroup self = msg_send ~self ~cmd:(selector "interspaceBetweenInnerAccessoryIdentifier:outerAccessoryIdentifier:forCell:trailingAccessoryGroup:") ~typ:(id @-> id @-> id @-> bool @-> returning (double)) x outerAccessoryIdentifier forCell trailingAccessoryGroup -let minimumContentViewHeightForFont x ~traitCollection self = msg_send ~self ~cmd:(selector "minimumContentViewHeightForFont:traitCollection:") ~typ:(id @-> id @-> returning (double)) x traitCollection -let reorderingCellWantsShadows self = msg_send ~self ~cmd:(selector "reorderingCellWantsShadows") ~typ:(returning (bool)) -let shouldUppercaseHeaderFooterTextForTableStyle x ~isHeader self = msg_send ~self ~cmd:(selector "shouldUppercaseHeaderFooterTextForTableStyle:isHeader:") ~typ:(llong @-> bool @-> returning (bool)) (LLong.of_int x) isHeader -let shouldUseDefaultTableLayoutMarginsAsContentInsets self = msg_send ~self ~cmd:(selector "shouldUseDefaultTableLayoutMarginsAsContentInsets") ~typ:(returning (bool)) -let shouldUseRoundedGroupsForTableViewStyle x ~backgroundInsets self = msg_send ~self ~cmd:(selector "shouldUseRoundedGroupsForTableViewStyle:backgroundInsets:") ~typ:(llong @-> ptr void @-> returning (bool)) (LLong.of_int x) backgroundInsets -let sidebarVariant self = msg_send ~self ~cmd:(selector "sidebarVariant") ~typ:(returning (id)) -let supportsUserInterfaceStyles self = msg_send ~self ~cmd:(selector "supportsUserInterfaceStyles") ~typ:(returning (bool)) -let useChromelessSectionHeadersAndFootersForTableStyle x self = msg_send ~self ~cmd:(selector "useChromelessSectionHeadersAndFootersForTableStyle:") ~typ:(llong @-> returning (bool)) (LLong.of_int x) -let variantForActive x self = msg_send ~self ~cmd:(selector "variantForActive:") ~typ:(bool @-> returning (id)) x \ No newline at end of file +let defaultAccessoryBackgroundColorForAccessorySystemType x ~header ~sidebarStyle ~cellConfigurationState ~traitCollection self = msg_send ~self ~cmd:(selector "defaultAccessoryBackgroundColorForAccessorySystemType:header:sidebarStyle:cellConfigurationState:traitCollection:") ~typ:(llong @-> bool @-> bool @-> id @-> id @-> returning id) (LLong.of_int x) header sidebarStyle cellConfigurationState traitCollection +let defaultAccessoryTintColorForAccessorySystemType x ~header ~sidebarStyle ~cellConfigurationState ~traitCollection ~inheritedTintColor self = msg_send ~self ~cmd:(selector "defaultAccessoryTintColorForAccessorySystemType:header:sidebarStyle:cellConfigurationState:traitCollection:inheritedTintColor:") ~typ:(llong @-> bool @-> bool @-> id @-> id @-> id @-> returning id) (LLong.of_int x) header sidebarStyle cellConfigurationState traitCollection inheritedTintColor +let defaultAlphaForDraggingCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultAlphaForDraggingCell:inTableView:") ~typ:(id @-> id @-> returning double) x inTableView +let defaultAlphaForReorderingCell self = msg_send ~self ~cmd:(selector "defaultAlphaForReorderingCell") ~typ:(returning double) +let defaultBackgroundColorForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultBackgroundColorForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultBackgroundEffectsForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultBackgroundEffectsForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultCellContentLeadingPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultCellContentLeadingPaddingForSidebar:") ~typ:(bool @-> returning double) x +let defaultCellContentTrailingPadding self = msg_send ~self ~cmd:(selector "defaultCellContentTrailingPadding") ~typ:(returning double) +let defaultCellCornerRadius self = msg_send ~self ~cmd:(selector "defaultCellCornerRadius") ~typ:(returning double) +let defaultCellLayoutMarginsForStyle x ~textLabelFont ~rawLayoutMargins self = msg_send ~self ~cmd:(selector "defaultCellLayoutMarginsForStyle:textLabelFont:rawLayoutMargins:") ~typ:(llong @-> id @-> UIEdgeInsets.t @-> returning UIEdgeInsets.t) (LLong.of_int x) textLabelFont rawLayoutMargins +let defaultCheckmarkImageForCell x self = msg_send ~self ~cmd:(selector "defaultCheckmarkImageForCell:") ~typ:(id @-> returning id) x +let defaultContentAccessoryPadding self = msg_send ~self ~cmd:(selector "defaultContentAccessoryPadding") ~typ:(returning double) +let defaultContentEditPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultContentEditPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning double) x inTableView +let defaultContentReorderPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultContentReorderPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning double) x inTableView +let defaultDeleteImageForCell x self = msg_send ~self ~cmd:(selector "defaultDeleteImageForCell:") ~typ:(id @-> returning id) x +let defaultDeleteImageForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "defaultDeleteImageForUserInterfaceStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultDeleteImageWithTintColor x ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultDeleteImageWithTintColor:backgroundColor:") ~typ:(id @-> id @-> returning id) x backgroundColor +let defaultDeleteMinusRectForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultDeleteMinusRectForCell:inTableView:") ~typ:(id @-> id @-> returning CGRect.t) x inTableView +let defaultDetailTextColorForCellStyle x ~traitCollection ~state self = msg_send ~self ~cmd:(selector "defaultDetailTextColorForCellStyle:traitCollection:state:") ~typ:(llong @-> id @-> id @-> returning id) (LLong.of_int x) traitCollection state +let defaultDetailTextColorForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "defaultDetailTextColorForUserInterfaceStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultDetailTextFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultDetailTextFontForCellStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultDetailTextLabelFontSizeForCellStyle x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontSizeForCellStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let defaultDisclosureImageForCell x ~withAccessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultDisclosureImageForCell:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning id) x withAccessoryBaseColor +let defaultDisclosureLayoutWidthForView x self = msg_send ~self ~cmd:(selector "defaultDisclosureLayoutWidthForView:") ~typ:(id @-> returning double) x +let defaultEditAndUpdateAnimationDuration self = msg_send ~self ~cmd:(selector "defaultEditAndUpdateAnimationDuration") ~typ:(returning double) +let defaultEditControlPaddingForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultEditControlPaddingForCell:inTableView:") ~typ:(id @-> id @-> returning double) x inTableView +let defaultEditControlSizeForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultEditControlSizeForCell:inTableView:") ~typ:(id @-> id @-> returning CGSize.t) x inTableView +let defaultFocusedCheckmarkImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedCheckmarkImageForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultFocusedDeleteImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedDeleteImageForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultFocusedDetailTextColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedDetailTextColorForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultFocusedDisclosureImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedDisclosureImageForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultFocusedHorizontalOutsetForTableView x self = msg_send ~self ~cmd:(selector "defaultFocusedHorizontalOutsetForTableView:") ~typ:(id @-> returning double) x +let defaultFocusedInsertImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedInsertImageForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultFocusedMultiSelectNotSelectedImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedMultiSelectNotSelectedImageForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultFocusedMultiSelectSelectedImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedMultiSelectSelectedImageForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultFocusedReorderControlImageForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedReorderControlImageForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultFocusedShadowRadiusForTableView x self = msg_send ~self ~cmd:(selector "defaultFocusedShadowRadiusForTableView:") ~typ:(id @-> returning double) x +let defaultFocusedTextColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultFocusedTextColorForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultFooterFontForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultFooterFontForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultFooterTextColorForTableViewStyle x ~focused self = msg_send ~self ~cmd:(selector "defaultFooterTextColorForTableViewStyle:focused:") ~typ:(llong @-> bool @-> returning id) (LLong.of_int x) focused +let defaultHeaderFontForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFontForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultHeaderFooterLayoutMarginsForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultHeaderFooterLayoutMarginsForTableViewStyle:") ~typ:(llong @-> returning UIEdgeInsets.t) (LLong.of_int x) +let defaultHeaderTextColorForTableViewStyle x ~focused self = msg_send ~self ~cmd:(selector "defaultHeaderTextColorForTableViewStyle:focused:") ~typ:(llong @-> bool @-> returning id) (LLong.of_int x) focused +let defaultHeaderTextColorForTableViewStyle' x ~userInterfaceStyle self = msg_send ~self ~cmd:(selector "defaultHeaderTextColorForTableViewStyle:userInterfaceStyle:") ~typ:(llong @-> llong @-> returning id) (LLong.of_int x) (LLong.of_int userInterfaceStyle) +let defaultImageSymbolConfigurationForTraitCollection x self = msg_send ~self ~cmd:(selector "defaultImageSymbolConfigurationForTraitCollection:") ~typ:(id @-> returning id) x +let defaultImageTintColorForState x self = msg_send ~self ~cmd:(selector "defaultImageTintColorForState:") ~typ:(id @-> returning id) x +let defaultImageToTextPaddingForSidebar x self = msg_send ~self ~cmd:(selector "defaultImageToTextPaddingForSidebar:") ~typ:(bool @-> returning double) x +let defaultImageViewSymbolImageAndAccessoryLayoutWidthForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultImageViewSymbolImageAndAccessoryLayoutWidthForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning double) x traitCollection +let defaultImageViewSymbolImageLayoutHeightForTraitCollection x self = msg_send ~self ~cmd:(selector "defaultImageViewSymbolImageLayoutHeightForTraitCollection:") ~typ:(id @-> returning double) x +let defaultIndentationWidthForSidebarStyle x self = msg_send ~self ~cmd:(selector "defaultIndentationWidthForSidebarStyle:") ~typ:(bool @-> returning double) x +let defaultInsertImageForCell x self = msg_send ~self ~cmd:(selector "defaultInsertImageForCell:") ~typ:(id @-> returning id) x +let defaultInsertImageWithTintColor x ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultInsertImageWithTintColor:backgroundColor:") ~typ:(id @-> id @-> returning id) x backgroundColor +let defaultInterAccessoryPaddingForCell x ~trailingAccessoryGroup self = msg_send ~self ~cmd:(selector "defaultInterAccessoryPaddingForCell:trailingAccessoryGroup:") ~typ:(id @-> bool @-> returning double) x trailingAccessoryGroup +let defaultLabelAllowsTighteningForTruncationForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelAllowsTighteningForTruncationForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning bool) x traitCollection +let defaultLabelMinimumScaleFactorForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelMinimumScaleFactorForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning double) x traitCollection +let defaultLabelNumberOfLinesForSidebar x ~traitCollection self = msg_send ~self ~cmd:(selector "defaultLabelNumberOfLinesForSidebar:traitCollection:") ~typ:(bool @-> id @-> returning llong) x traitCollection +let defaultLayoutMarginsForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultLayoutMarginsForCell:inTableView:") ~typ:(id @-> id @-> returning UIEdgeInsets.t) x inTableView +let defaultLayoutMarginsForTableView x self = msg_send ~self ~cmd:(selector "defaultLayoutMarginsForTableView:") ~typ:(id @-> returning UIEdgeInsets.t) x +let defaultLeadingCellMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultLeadingCellMarginWidthForTableView:") ~typ:(id @-> returning double) x +let defaultMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultMarginWidthForTableView:") ~typ:(id @-> returning double) x +let defaultMaskGradientHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultMaskGradientHeightForTableView:") ~typ:(id @-> returning double) x +let defaultMultiSelectBackgroundColorForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultMultiSelectBackgroundColorForCell:inTableView:") ~typ:(id @-> id @-> returning id) x inTableView +let defaultMultiSelectNotSelectedImageForCellStyle x ~traitCollection ~accessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultMultiSelectNotSelectedImageForCellStyle:traitCollection:accessoryBaseColor:") ~typ:(llong @-> id @-> id @-> returning id) (LLong.of_int x) traitCollection accessoryBaseColor +let defaultMultiSelectSelectedImageForCellStyle x ~traitCollection ~checkmarkColor ~backgroundColor self = msg_send ~self ~cmd:(selector "defaultMultiSelectSelectedImageForCellStyle:traitCollection:checkmarkColor:backgroundColor:") ~typ:(llong @-> id @-> id @-> id @-> returning id) (LLong.of_int x) traitCollection checkmarkColor backgroundColor +let defaultPaddingAboveSectionHeadersForTableStyle x self = msg_send ~self ~cmd:(selector "defaultPaddingAboveSectionHeadersForTableStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let defaultPaddingBetweenHeaderAndRows self = msg_send ~self ~cmd:(selector "defaultPaddingBetweenHeaderAndRows") ~typ:(returning double) +let defaultPaddingBetweenRows self = msg_send ~self ~cmd:(selector "defaultPaddingBetweenRows") ~typ:(returning double) +let defaultPlainFirstSectionHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultPlainFirstSectionHeaderHeightForTableView:") ~typ:(id @-> returning double) x +let defaultPlainHeaderLabelYPositionForTableView x ~headerBounds ~textRect ~isHeader self = msg_send ~self ~cmd:(selector "defaultPlainHeaderLabelYPositionForTableView:headerBounds:textRect:isHeader:") ~typ:(id @-> CGRect.t @-> CGRect.t @-> bool @-> returning double) x headerBounds textRect isHeader +let defaultReorderControlImageForTraitCollection x ~withAccessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultReorderControlImageForTraitCollection:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning id) x withAccessoryBaseColor +let defaultReorderControlSizeForCell x ~withAccessoryBaseColor self = msg_send ~self ~cmd:(selector "defaultReorderControlSizeForCell:withAccessoryBaseColor:") ~typ:(id @-> id @-> returning CGSize.t) x withAccessoryBaseColor +let defaultRowHeightDependsOnCellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightDependsOnCellStyle") ~typ:(returning bool) +let defaultRowHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:") ~typ:(id @-> returning double) x +let defaultRowHeightForTableView' x ~cellStyle self = msg_send ~self ~cmd:(selector "defaultRowHeightForTableView:cellStyle:") ~typ:(id @-> llong @-> returning double) x (LLong.of_int cellStyle) +let defaultSectionContentInsetsForTableStyle x self = msg_send ~self ~cmd:(selector "defaultSectionContentInsetsForTableStyle:") ~typ:(llong @-> returning UIEdgeInsets.t) (LLong.of_int x) +let defaultSectionFooterHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultSectionFooterHeightForTableView:") ~typ:(id @-> returning double) x +let defaultSectionFooterHeightForTableViewStyle x ~screen self = msg_send ~self ~cmd:(selector "defaultSectionFooterHeightForTableViewStyle:screen:") ~typ:(llong @-> id @-> returning double) (LLong.of_int x) screen +let defaultSectionHeaderHeightForTableView x self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeightForTableView:") ~typ:(id @-> returning double) x +let defaultSectionHeaderHeightForTableViewStyle x ~screen self = msg_send ~self ~cmd:(selector "defaultSectionHeaderHeightForTableViewStyle:screen:") ~typ:(llong @-> id @-> returning double) (LLong.of_int x) screen +let defaultSeparatorColorForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultSeparatorColorForTableViewStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultSeparatorStyleForTableViewStyle x self = msg_send ~self ~cmd:(selector "defaultSeparatorStyleForTableViewStyle:") ~typ:(llong @-> returning llong) (LLong.of_int x) +let defaultSpaceBetweenEditAndReorderControlsForCell x ~inTableView self = msg_send ~self ~cmd:(selector "defaultSpaceBetweenEditAndReorderControlsForCell:inTableView:") ~typ:(id @-> id @-> returning double) x inTableView +let defaultTableLayoutMarginsForScreen x ~size ~tableStyle self = msg_send ~self ~cmd:(selector "defaultTableLayoutMarginsForScreen:size:tableStyle:") ~typ:(id @-> CGSize.t @-> llong @-> returning UIEdgeInsets.t) x size (LLong.of_int tableStyle) +let defaultTextColorForCellStyle x ~traitCollection ~tintColor ~state self = msg_send ~self ~cmd:(selector "defaultTextColorForCellStyle:traitCollection:tintColor:state:") ~typ:(llong @-> id @-> id @-> id @-> returning id) (LLong.of_int x) traitCollection tintColor state +let defaultTextColorForUserInterfaceStyle x self = msg_send ~self ~cmd:(selector "defaultTextColorForUserInterfaceStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultTextLabelFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontForCellStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultTextLabelFontSizeForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontSizeForCellStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let defaultTextToSubtitlePaddingForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextToSubtitlePaddingForCellStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let defaultTrailingCellMarginWidthForTableView x self = msg_send ~self ~cmd:(selector "defaultTrailingCellMarginWidthForTableView:") ~typ:(id @-> returning double) x +let imageViewOffsetByLayoutMarginsForCell x ~inTableView self = msg_send ~self ~cmd:(selector "imageViewOffsetByLayoutMarginsForCell:inTableView:") ~typ:(id @-> id @-> returning bool) x inTableView +let interspaceBetweenInnerAccessoryIdentifier x ~outerAccessoryIdentifier ~forCell ~trailingAccessoryGroup self = msg_send ~self ~cmd:(selector "interspaceBetweenInnerAccessoryIdentifier:outerAccessoryIdentifier:forCell:trailingAccessoryGroup:") ~typ:(id @-> id @-> id @-> bool @-> returning double) x outerAccessoryIdentifier forCell trailingAccessoryGroup +let minimumContentViewHeightForFont x ~traitCollection self = msg_send ~self ~cmd:(selector "minimumContentViewHeightForFont:traitCollection:") ~typ:(id @-> id @-> returning double) x traitCollection +let reorderingCellWantsShadows self = msg_send ~self ~cmd:(selector "reorderingCellWantsShadows") ~typ:(returning bool) +let shouldUppercaseHeaderFooterTextForTableStyle x ~isHeader self = msg_send ~self ~cmd:(selector "shouldUppercaseHeaderFooterTextForTableStyle:isHeader:") ~typ:(llong @-> bool @-> returning bool) (LLong.of_int x) isHeader +let shouldUseDefaultTableLayoutMarginsAsContentInsets self = msg_send ~self ~cmd:(selector "shouldUseDefaultTableLayoutMarginsAsContentInsets") ~typ:(returning bool) +let shouldUseRoundedGroupsForTableViewStyle x ~backgroundInsets self = msg_send ~self ~cmd:(selector "shouldUseRoundedGroupsForTableViewStyle:backgroundInsets:") ~typ:(llong @-> UIEdgeInsets.t @-> returning bool) (LLong.of_int x) backgroundInsets +let sidebarVariant self = msg_send ~self ~cmd:(selector "sidebarVariant") ~typ:(returning id) +let supportsUserInterfaceStyles self = msg_send ~self ~cmd:(selector "supportsUserInterfaceStyles") ~typ:(returning bool) +let useChromelessSectionHeadersAndFootersForTableStyle x self = msg_send ~self ~cmd:(selector "useChromelessSectionHeadersAndFootersForTableStyle:") ~typ:(llong @-> returning bool) (LLong.of_int x) +let variantForActive x self = msg_send ~self ~cmd:(selector "variantForActive:") ~typ:(bool @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UITableConstants_TVClass.ml b/uikit_extra/UITableConstants_TVClass.ml new file mode 100644 index 00000000..d0a6b94c --- /dev/null +++ b/uikit_extra/UITableConstants_TVClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableconstants_tv?language=objc}UITableConstants_TV} *) + +let sharedConstants self = msg_send ~self ~cmd:(selector "sharedConstants") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UITableConstants_Watch.ml b/uikit_extra/UITableConstants_Watch.ml index da7cef89..254653fb 100644 --- a/uikit_extra/UITableConstants_Watch.ml +++ b/uikit_extra/UITableConstants_Watch.ml @@ -5,12 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITableConstants_Watch" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableconstants_watch?language=objc}UITableConstants_Watch} *) -module Class = struct - let sharedConstants self = msg_send ~self ~cmd:(selector "sharedConstants") ~typ:(returning (id)) -end +let self = get_class "UITableConstants_Watch" -let defaultCheckmarkImageForCell x self = msg_send ~self ~cmd:(selector "defaultCheckmarkImageForCell:") ~typ:(id @-> returning (id)) x -let useChromelessSectionHeadersAndFootersForTableStyle x self = msg_send ~self ~cmd:(selector "useChromelessSectionHeadersAndFootersForTableStyle:") ~typ:(llong @-> returning (bool)) x \ No newline at end of file +let defaultCheckmarkImageForCell x self = msg_send ~self ~cmd:(selector "defaultCheckmarkImageForCell:") ~typ:(id @-> returning id) x +let useChromelessSectionHeadersAndFootersForTableStyle x self = msg_send ~self ~cmd:(selector "useChromelessSectionHeadersAndFootersForTableStyle:") ~typ:(llong @-> returning bool) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UITableConstants_WatchClass.ml b/uikit_extra/UITableConstants_WatchClass.ml new file mode 100644 index 00000000..f9895ea6 --- /dev/null +++ b/uikit_extra/UITableConstants_WatchClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableconstants_watch?language=objc}UITableConstants_Watch} *) + +let sharedConstants self = msg_send ~self ~cmd:(selector "sharedConstants") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UITableViewCellLayoutManagerEditable1.ml b/uikit_extra/UITableViewCellLayoutManagerEditable1.ml new file mode 100644 index 00000000..e362f329 --- /dev/null +++ b/uikit_extra/UITableViewCellLayoutManagerEditable1.ml @@ -0,0 +1,23 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcelllayoutmanagereditable1?language=objc}UITableViewCellLayoutManagerEditable1} *) + +let self = get_class "UITableViewCellLayoutManagerEditable1" + +let defaultTextFieldFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultTextFieldFontSizeForCell:") ~typ:(id @-> returning double) x +let detailTextLabelForCell x self = msg_send ~self ~cmd:(selector "detailTextLabelForCell:") ~typ:(id @-> returning id) x +let editableTextFieldForCell x self = msg_send ~self ~cmd:(selector "editableTextFieldForCell:") ~typ:(id @-> returning id) x +let intrinsicContentSizeForCell x ~rowWidth self = msg_send ~self ~cmd:(selector "intrinsicContentSizeForCell:rowWidth:") ~typ:(id @-> double @-> returning CGSize.t) x rowWidth +let layoutSubviewsOfCell x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfCell:") ~typ:(id @-> returning void) x +let textFieldDidBeginEditing x self = msg_send ~self ~cmd:(selector "textFieldDidBeginEditing:") ~typ:(id @-> returning void) x +let textFieldDidEndEditing x self = msg_send ~self ~cmd:(selector "textFieldDidEndEditing:") ~typ:(id @-> returning void) x +let textFieldShouldBeginEditing x self = msg_send ~self ~cmd:(selector "textFieldShouldBeginEditing:") ~typ:(id @-> returning bool) x +let textFieldShouldReturn x self = msg_send ~self ~cmd:(selector "textFieldShouldReturn:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit_extra/UITableViewCellLayoutManagerSourceList.ml b/uikit_extra/UITableViewCellLayoutManagerSourceList.ml new file mode 100644 index 00000000..f1a4275d --- /dev/null +++ b/uikit_extra/UITableViewCellLayoutManagerSourceList.ml @@ -0,0 +1,33 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcelllayoutmanagersourcelist?language=objc}UITableViewCellLayoutManagerSourceList} *) + +let self = get_class "UITableViewCellLayoutManagerSourceList" + +let accessoryShouldAppearForCell x self = msg_send ~self ~cmd:(selector "accessoryShouldAppearForCell:") ~typ:(id @-> returning bool) x +let accessoryShouldFadeForCell x self = msg_send ~self ~cmd:(selector "accessoryShouldFadeForCell:") ~typ:(id @-> returning bool) x +let defaultImageViewForCell x self = msg_send ~self ~cmd:(selector "defaultImageViewForCell:") ~typ:(id @-> returning id) x +let defaultTextLabelFontForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontForCellStyle:") ~typ:(llong @-> returning id) (LLong.of_int x) +let defaultTextLabelFontSizeForCellStyle x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontSizeForCellStyle:") ~typ:(llong @-> returning double) (LLong.of_int x) +let editControlShouldAppearForCell x self = msg_send ~self ~cmd:(selector "editControlShouldAppearForCell:") ~typ:(id @-> returning bool) x +let editControlShouldFadeForCell x self = msg_send ~self ~cmd:(selector "editControlShouldFadeForCell:") ~typ:(id @-> returning bool) x +let editableTextFieldForCell x self = msg_send ~self ~cmd:(selector "editableTextFieldForCell:") ~typ:(id @-> returning id) x +let editingAccessoryShouldAppearForCell x self = msg_send ~self ~cmd:(selector "editingAccessoryShouldAppearForCell:") ~typ:(id @-> returning bool) x +let editingAccessoryShouldFadeForCell x self = msg_send ~self ~cmd:(selector "editingAccessoryShouldFadeForCell:") ~typ:(id @-> returning bool) x +let intrinsicContentSizeForCell x ~rowWidth self = msg_send ~self ~cmd:(selector "intrinsicContentSizeForCell:rowWidth:") ~typ:(id @-> double @-> returning CGSize.t) x rowWidth +let layoutSubviewsOfCell x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfCell:") ~typ:(id @-> returning void) x +let prepareCellForReuse x self = msg_send ~self ~cmd:(selector "prepareCellForReuse:") ~typ:(id @-> returning void) x +let reorderControlShouldAppearForCell x self = msg_send ~self ~cmd:(selector "reorderControlShouldAppearForCell:") ~typ:(id @-> returning bool) x +let reorderControlShouldFadeForCell x self = msg_send ~self ~cmd:(selector "reorderControlShouldFadeForCell:") ~typ:(id @-> returning bool) x +let reorderSeparatorShouldAppearForCell x self = msg_send ~self ~cmd:(selector "reorderSeparatorShouldAppearForCell:") ~typ:(id @-> returning bool) x +let reorderSeparatorShouldFadeForCell x self = msg_send ~self ~cmd:(selector "reorderSeparatorShouldFadeForCell:") ~typ:(id @-> returning bool) x +let standardLayoutImageViewFrameForCell x ~forSizing self = msg_send ~self ~cmd:(selector "standardLayoutImageViewFrameForCell:forSizing:") ~typ:(id @-> bool @-> returning CGRect.t) x forSizing +let textRectForCell x ~rowWidth ~forSizing self = msg_send ~self ~cmd:(selector "textRectForCell:rowWidth:forSizing:") ~typ:(id @-> double @-> bool @-> returning CGRect.t) x rowWidth forSizing \ No newline at end of file diff --git a/uikit_extra/UITableViewCellLayoutManagerSourceListClass.ml b/uikit_extra/UITableViewCellLayoutManagerSourceListClass.ml new file mode 100644 index 00000000..ae0a6e6e --- /dev/null +++ b/uikit_extra/UITableViewCellLayoutManagerSourceListClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcelllayoutmanagersourcelist?language=objc}UITableViewCellLayoutManagerSourceList} *) + +let sharedLayoutManager self = msg_send ~self ~cmd:(selector "sharedLayoutManager") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UITableViewCellLayoutManagerSubtitle.ml b/uikit_extra/UITableViewCellLayoutManagerSubtitle.ml new file mode 100644 index 00000000..416ab57e --- /dev/null +++ b/uikit_extra/UITableViewCellLayoutManagerSubtitle.ml @@ -0,0 +1,23 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcelllayoutmanagersubtitle?language=objc}UITableViewCellLayoutManagerSubtitle} *) + +let self = get_class "UITableViewCellLayoutManagerSubtitle" + +let defaultDetailTextLabelFontForCell x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontForCell:") ~typ:(id @-> returning id) x +let defaultDetailTextLabelFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontSizeForCell:") ~typ:(id @-> returning double) x +let defaultTextLabelFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontSizeForCell:") ~typ:(id @-> returning double) x +let detailTextLabelForCell x self = msg_send ~self ~cmd:(selector "detailTextLabelForCell:") ~typ:(id @-> returning id) x +let getTextLabelRect x ~detailTextLabelRect ~forCell ~rowWidth ~forSizing self = msg_send ~self ~cmd:(selector "getTextLabelRect:detailTextLabelRect:forCell:rowWidth:forSizing:") ~typ:((ptr CGRect.t) @-> (ptr CGRect.t) @-> id @-> double @-> bool @-> returning void) x detailTextLabelRect forCell rowWidth forSizing +let imageViewForCell x self = msg_send ~self ~cmd:(selector "imageViewForCell:") ~typ:(id @-> returning id) x +let intrinsicContentSizeForCell x ~rowWidth self = msg_send ~self ~cmd:(selector "intrinsicContentSizeForCell:rowWidth:") ~typ:(id @-> double @-> returning CGSize.t) x rowWidth +let layoutSubviewsOfCell x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfCell:") ~typ:(id @-> returning void) x +let textLabelForCell x self = msg_send ~self ~cmd:(selector "textLabelForCell:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UITableViewCellLayoutManagerValue1.ml b/uikit_extra/UITableViewCellLayoutManagerValue1.ml new file mode 100644 index 00000000..e713ef6d --- /dev/null +++ b/uikit_extra/UITableViewCellLayoutManagerValue1.ml @@ -0,0 +1,23 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcelllayoutmanagervalue1?language=objc}UITableViewCellLayoutManagerValue1} *) + +let self = get_class "UITableViewCellLayoutManagerValue1" + +let defaultDetailTextLabelFontForCell x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontForCell:") ~typ:(id @-> returning id) x +let defaultDetailTextLabelFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontSizeForCell:") ~typ:(id @-> returning double) x +let defaultTextLabelFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontSizeForCell:") ~typ:(id @-> returning double) x +let detailTextLabelForCell x self = msg_send ~self ~cmd:(selector "detailTextLabelForCell:") ~typ:(id @-> returning id) x +let getTextLabelRect x ~detailTextLabelRect ~forCell ~rowWidth ~forSizing self = msg_send ~self ~cmd:(selector "getTextLabelRect:detailTextLabelRect:forCell:rowWidth:forSizing:") ~typ:((ptr CGRect.t) @-> (ptr CGRect.t) @-> id @-> double @-> bool @-> returning void) x detailTextLabelRect forCell rowWidth forSizing +let imageViewForCell x self = msg_send ~self ~cmd:(selector "imageViewForCell:") ~typ:(id @-> returning id) x +let intrinsicContentSizeForCell x ~rowWidth self = msg_send ~self ~cmd:(selector "intrinsicContentSizeForCell:rowWidth:") ~typ:(id @-> double @-> returning CGSize.t) x rowWidth +let layoutSubviewsOfCell x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfCell:") ~typ:(id @-> returning void) x +let textLabelForCell x self = msg_send ~self ~cmd:(selector "textLabelForCell:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UITableViewCellLayoutManagerValue2.ml b/uikit_extra/UITableViewCellLayoutManagerValue2.ml new file mode 100644 index 00000000..4a0c8d05 --- /dev/null +++ b/uikit_extra/UITableViewCellLayoutManagerValue2.ml @@ -0,0 +1,23 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcelllayoutmanagervalue2?language=objc}UITableViewCellLayoutManagerValue2} *) + +let self = get_class "UITableViewCellLayoutManagerValue2" + +let defaultDetailTextLabelFontForCell x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontForCell:") ~typ:(id @-> returning id) x +let defaultDetailTextLabelFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultDetailTextLabelFontSizeForCell:") ~typ:(id @-> returning double) x +let defaultTextLabelFontSizeForCell x self = msg_send ~self ~cmd:(selector "defaultTextLabelFontSizeForCell:") ~typ:(id @-> returning double) x +let detailTextLabelForCell x self = msg_send ~self ~cmd:(selector "detailTextLabelForCell:") ~typ:(id @-> returning id) x +let getTextLabelRect x ~detailTextLabelRect ~forCell ~rowWidth ~forSizing self = msg_send ~self ~cmd:(selector "getTextLabelRect:detailTextLabelRect:forCell:rowWidth:forSizing:") ~typ:((ptr CGRect.t) @-> (ptr CGRect.t) @-> id @-> double @-> bool @-> returning void) x detailTextLabelRect forCell rowWidth forSizing +let imageViewForCell x self = msg_send ~self ~cmd:(selector "imageViewForCell:") ~typ:(id @-> returning id) x +let intrinsicContentSizeForCell x ~rowWidth self = msg_send ~self ~cmd:(selector "intrinsicContentSizeForCell:rowWidth:") ~typ:(id @-> double @-> returning CGSize.t) x rowWidth +let layoutSubviewsOfCell x self = msg_send ~self ~cmd:(selector "layoutSubviewsOfCell:") ~typ:(id @-> returning void) x +let textLabelForCell x self = msg_send ~self ~cmd:(selector "textLabelForCell:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UITableViewCellReorderControl.ml b/uikit_extra/UITableViewCellReorderControl.ml new file mode 100644 index 00000000..ffc3d834 --- /dev/null +++ b/uikit_extra/UITableViewCellReorderControl.ml @@ -0,0 +1,28 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcellreordercontrol?language=objc}UITableViewCellReorderControl} *) + +let self = get_class "UITableViewCellReorderControl" + +let accessoryTintColor self = msg_send ~self ~cmd:(selector "accessoryTintColor") ~typ:(returning id) +let adjustLayoutForFocalRect x self = msg_send ~self ~cmd:(selector "adjustLayoutForFocalRect:") ~typ:(CGRect.t @-> returning void) x +let beginTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "beginTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let cancelTrackingWithEvent x self = msg_send ~self ~cmd:(selector "cancelTrackingWithEvent:") ~typ:(id @-> returning void) x +let continueTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "continueTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning bool) x withEvent +let endTrackingWithTouch x ~withEvent self = msg_send ~self ~cmd:(selector "endTrackingWithTouch:withEvent:") ~typ:(id @-> id @-> returning void) x withEvent +let grabberImage self = msg_send ~self ~cmd:(selector "grabberImage") ~typ:(returning id) +let initWithTableViewCell x self = msg_send ~self ~cmd:(selector "initWithTableViewCell:") ~typ:(id @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setAccessoryTintColor x self = msg_send ~self ~cmd:(selector "setAccessoryTintColor:") ~typ:(id @-> returning void) x +let setFrame x self = msg_send ~self ~cmd:(selector "setFrame:") ~typ:(CGRect.t @-> returning void) x +let shouldTrack self = msg_send ~self ~cmd:(selector "shouldTrack") ~typ:(returning bool) +let sizeThatFits x self = msg_send ~self ~cmd:(selector "sizeThatFits:") ~typ:(CGSize.t @-> returning CGSize.t) x +let wantsMaskingWhileAnimatingDisabled self = msg_send ~self ~cmd:(selector "wantsMaskingWhileAnimatingDisabled") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UITableViewCellSelectedBackground.ml b/uikit_extra/UITableViewCellSelectedBackground.ml new file mode 100644 index 00000000..044b4489 --- /dev/null +++ b/uikit_extra/UITableViewCellSelectedBackground.ml @@ -0,0 +1,29 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcellselectedbackground?language=objc}UITableViewCellSelectedBackground} *) + +let self = get_class "UITableViewCellSelectedBackground" + +let isMultiselect self = msg_send ~self ~cmd:(selector "isMultiselect") ~typ:(returning bool) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let multiselectBackgroundColor self = msg_send ~self ~cmd:(selector "multiselectBackgroundColor") ~typ:(returning id) +let noneStyleBackgroundColor self = msg_send ~self ~cmd:(selector "noneStyleBackgroundColor") ~typ:(returning id) +let selectionEffects self = msg_send ~self ~cmd:(selector "selectionEffects") ~typ:(returning id) +let selectionStyle self = msg_send ~self ~cmd:(selector "selectionStyle") ~typ:(returning llong) +let selectionTintColor self = msg_send ~self ~cmd:(selector "selectionTintColor") ~typ:(returning id) +let setMultiselect x self = msg_send ~self ~cmd:(selector "setMultiselect:") ~typ:(bool @-> returning void) x +let setMultiselectBackgroundColor x self = msg_send ~self ~cmd:(selector "setMultiselectBackgroundColor:") ~typ:(id @-> returning void) x +let setNoneStyleBackgroundColor x self = msg_send ~self ~cmd:(selector "setNoneStyleBackgroundColor:") ~typ:(id @-> returning void) x +let setSelectionEffects x self = msg_send ~self ~cmd:(selector "setSelectionEffects:") ~typ:(id @-> returning void) x +let setSelectionStyle x self = msg_send ~self ~cmd:(selector "setSelectionStyle:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setSelectionTintColor x self = msg_send ~self ~cmd:(selector "setSelectionTintColor:") ~typ:(id @-> returning void) x +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) +let updateBackgroundColor self = msg_send ~self ~cmd:(selector "updateBackgroundColor") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UITableViewCellUnhighlightedState.ml b/uikit_extra/UITableViewCellUnhighlightedState.ml new file mode 100644 index 00000000..5d63b67e --- /dev/null +++ b/uikit_extra/UITableViewCellUnhighlightedState.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewcellunhighlightedstate?language=objc}UITableViewCellUnhighlightedState} *) + +let self = get_class "UITableViewCellUnhighlightedState" + +let backgroundColor self = msg_send ~self ~cmd:(selector "backgroundColor") ~typ:(returning id) +let highlighted self = msg_send ~self ~cmd:(selector "highlighted") ~typ:(returning bool) +let opaque self = msg_send ~self ~cmd:(selector "opaque") ~typ:(returning bool) +let setBackgroundColor x self = msg_send ~self ~cmd:(selector "setBackgroundColor:") ~typ:(id @-> returning void) x +let setHighlighted x self = msg_send ~self ~cmd:(selector "setHighlighted:") ~typ:(bool @-> returning void) x +let setOpaque x self = msg_send ~self ~cmd:(selector "setOpaque:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UITableViewIndexOverlayIndicatorView.ml b/uikit_extra/UITableViewIndexOverlayIndicatorView.ml new file mode 100644 index 00000000..50013dfd --- /dev/null +++ b/uikit_extra/UITableViewIndexOverlayIndicatorView.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewindexoverlayindicatorview?language=objc}UITableViewIndexOverlayIndicatorView} *) + +let self = get_class "UITableViewIndexOverlayIndicatorView" + +let currentText self = msg_send ~self ~cmd:(selector "currentText") ~typ:(returning id) +let initWithTable x self = msg_send ~self ~cmd:(selector "initWithTable:") ~typ:(id @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let setCurrentText x self = msg_send ~self ~cmd:(selector "setCurrentText:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UITableViewIndexOverlaySelectionView.ml b/uikit_extra/UITableViewIndexOverlaySelectionView.ml new file mode 100644 index 00000000..000b3eb3 --- /dev/null +++ b/uikit_extra/UITableViewIndexOverlaySelectionView.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewindexoverlayselectionview?language=objc}UITableViewIndexOverlaySelectionView} *) + +let self = get_class "UITableViewIndexOverlaySelectionView" + +let collectionView x ~cellForItemAtIndexPath self = msg_send ~self ~cmd:(selector "collectionView:cellForItemAtIndexPath:") ~typ:(id @-> id @-> returning id) x cellForItemAtIndexPath +let collectionView1 x ~numberOfItemsInSection self = msg_send ~self ~cmd:(selector "collectionView:numberOfItemsInSection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int numberOfItemsInSection) +let collectionView2 x ~viewForSupplementaryElementOfKind ~atIndexPath self = msg_send ~self ~cmd:(selector "collectionView:viewForSupplementaryElementOfKind:atIndexPath:") ~typ:(id @-> id @-> id @-> returning id) x viewForSupplementaryElementOfKind atIndexPath +let initWithTable x self = msg_send ~self ~cmd:(selector "initWithTable:") ~typ:(id @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let reloadData self = msg_send ~self ~cmd:(selector "reloadData") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UITableViewIndexOverlaySelectionViewCollectionViewCell.ml b/uikit_extra/UITableViewIndexOverlaySelectionViewCollectionViewCell.ml new file mode 100644 index 00000000..cdac84f9 --- /dev/null +++ b/uikit_extra/UITableViewIndexOverlaySelectionViewCollectionViewCell.ml @@ -0,0 +1,26 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewindexoverlayselectionviewcollectionviewcell?language=objc}UITableViewIndexOverlaySelectionViewCollectionViewCell} *) + +let self = get_class "UITableViewIndexOverlaySelectionViewCollectionViewCell" + +let applyLayoutAttributes x self = msg_send ~self ~cmd:(selector "applyLayoutAttributes:") ~typ:(id @-> returning void) x +let button self = msg_send ~self ~cmd:(selector "button") ~typ:(returning id) +let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x +let label self = msg_send ~self ~cmd:(selector "label") ~typ:(returning id) +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let rightMargin self = msg_send ~self ~cmd:(selector "rightMargin") ~typ:(returning double) +let setRightMargin x self = msg_send ~self ~cmd:(selector "setRightMargin:") ~typ:(double @-> returning void) x +let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning void) x +let setTextAlignment x self = msg_send ~self ~cmd:(selector "setTextAlignment:") ~typ:(llong @-> returning void) (LLong.of_int x) +let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) +let textAlignment self = msg_send ~self ~cmd:(selector "textAlignment") ~typ:(returning llong) +let tintColorDidChange self = msg_send ~self ~cmd:(selector "tintColorDidChange") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UITableViewIndexOverlaySelectionViewCollectionViewFlowLayout.ml b/uikit_extra/UITableViewIndexOverlaySelectionViewCollectionViewFlowLayout.ml new file mode 100644 index 00000000..53055311 --- /dev/null +++ b/uikit_extra/UITableViewIndexOverlaySelectionViewCollectionViewFlowLayout.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewindexoverlayselectionviewcollectionviewflowlayout?language=objc}UITableViewIndexOverlaySelectionViewCollectionViewFlowLayout} *) + +let self = get_class "UITableViewIndexOverlaySelectionViewCollectionViewFlowLayout" + +let frameForDoneButton self = msg_send ~self ~cmd:(selector "frameForDoneButton") ~typ:(returning CGRect.t) +let layoutAttributesForElementsInRect x self = msg_send ~self ~cmd:(selector "layoutAttributesForElementsInRect:") ~typ:(CGRect.t @-> returning id) x +let layoutAttributesForSupplementaryViewOfKind x ~atIndexPath self = msg_send ~self ~cmd:(selector "layoutAttributesForSupplementaryViewOfKind:atIndexPath:") ~typ:(id @-> id @-> returning id) x atIndexPath +let rightMarginForDoneButton self = msg_send ~self ~cmd:(selector "rightMarginForDoneButton") ~typ:(returning double) +let setFrameForDoneButton x self = msg_send ~self ~cmd:(selector "setFrameForDoneButton:") ~typ:(CGRect.t @-> returning void) x +let setRightMarginForDoneButton x self = msg_send ~self ~cmd:(selector "setRightMarginForDoneButton:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UITableViewIndexOverlaySelectionViewCollectionViewFlowLayoutClass.ml b/uikit_extra/UITableViewIndexOverlaySelectionViewCollectionViewFlowLayoutClass.ml new file mode 100644 index 00000000..13a806f2 --- /dev/null +++ b/uikit_extra/UITableViewIndexOverlaySelectionViewCollectionViewFlowLayoutClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewindexoverlayselectionviewcollectionviewflowlayout?language=objc}UITableViewIndexOverlaySelectionViewCollectionViewFlowLayout} *) + +let layoutAttributesClass self = msg_send ~self ~cmd:(selector "layoutAttributesClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/uikit_extra/UITableViewIndexOverlaySelectionViewCollectionViewLayoutAttributes.ml b/uikit_extra/UITableViewIndexOverlaySelectionViewCollectionViewLayoutAttributes.ml new file mode 100644 index 00000000..9e624083 --- /dev/null +++ b/uikit_extra/UITableViewIndexOverlaySelectionViewCollectionViewLayoutAttributes.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitableviewindexoverlayselectionviewcollectionviewlayoutattributes?language=objc}UITableViewIndexOverlaySelectionViewCollectionViewLayoutAttributes} *) + +let self = get_class "UITableViewIndexOverlaySelectionViewCollectionViewLayoutAttributes" + +let rightMargin self = msg_send ~self ~cmd:(selector "rightMargin") ~typ:(returning double) +let setRightMargin x self = msg_send ~self ~cmd:(selector "setRightMargin:") ~typ:(double @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UITallPDFPrintFormatter.ml b/uikit_extra/UITallPDFPrintFormatter.ml new file mode 100644 index 00000000..6867db10 --- /dev/null +++ b/uikit_extra/UITallPDFPrintFormatter.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitallpdfprintformatter?language=objc}UITallPDFPrintFormatter} *) + +let self = get_class "UITallPDFPrintFormatter" + +let drawInRect x ~forPageAtIndex self = msg_send ~self ~cmd:(selector "drawInRect:forPageAtIndex:") ~typ:(CGRect.t @-> llong @-> returning void) x (LLong.of_int forPageAtIndex) +let initWithPDFData x self = msg_send ~self ~cmd:(selector "initWithPDFData:") ~typ:(id @-> returning id) x +let initWithPDFURL x self = msg_send ~self ~cmd:(selector "initWithPDFURL:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UITextDraggableGeometrySameViewDropOperationResult.ml b/uikit_extra/UITextDraggableGeometrySameViewDropOperationResult.ml new file mode 100644 index 00000000..cf9db039 --- /dev/null +++ b/uikit_extra/UITextDraggableGeometrySameViewDropOperationResult.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextdraggablegeometrysameviewdropoperationresult?language=objc}UITextDraggableGeometrySameViewDropOperationResult} *) + +let self = get_class "UITextDraggableGeometrySameViewDropOperationResult" + +let initWithRange x ~targetedPreviewProvider self = msg_send ~self ~cmd:(selector "initWithRange:targetedPreviewProvider:") ~typ:(id @-> (ptr void) @-> returning id) x targetedPreviewProvider +let resultRange self = msg_send ~self ~cmd:(selector "resultRange") ~typ:(returning id) +let targetedPreviewProvider self = msg_send ~self ~cmd:(selector "targetedPreviewProvider") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/uikit_extra/UITextDraggableGeometrySameViewDropOperationResultClass.ml b/uikit_extra/UITextDraggableGeometrySameViewDropOperationResultClass.ml new file mode 100644 index 00000000..e5492596 --- /dev/null +++ b/uikit_extra/UITextDraggableGeometrySameViewDropOperationResultClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextdraggablegeometrysameviewdropoperationresult?language=objc}UITextDraggableGeometrySameViewDropOperationResult} *) + +let resultWithRange x ~targetedPreviewProvider self = msg_send ~self ~cmd:(selector "resultWithRange:targetedPreviewProvider:") ~typ:(id @-> (ptr void) @-> returning id) x targetedPreviewProvider \ No newline at end of file diff --git a/uikit_extra/UITextInputSessionActionAnalytics.ml b/uikit_extra/UITextInputSessionActionAnalytics.ml new file mode 100644 index 00000000..dc9f35cd --- /dev/null +++ b/uikit_extra/UITextInputSessionActionAnalytics.ml @@ -0,0 +1,36 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinputsessionactionanalytics?language=objc}UITextInputSessionActionAnalytics} *) + +let self = get_class "UITextInputSessionActionAnalytics" + +let addAccumulator x self = msg_send ~self ~cmd:(selector "addAccumulator:") ~typ:(id @-> returning void) x +let addEfficacyAccumulator x self = msg_send ~self ~cmd:(selector "addEfficacyAccumulator:") ~typ:(id @-> returning void) x +let allAccumulatorNames self = msg_send ~self ~cmd:(selector "allAccumulatorNames") ~typ:(returning id) +let allEfficacyAccumulatorNames self = msg_send ~self ~cmd:(selector "allEfficacyAccumulatorNames") ~typ:(returning id) +let beginTrackingSessionDurationIfNecessary self = msg_send ~self ~cmd:(selector "beginTrackingSessionDurationIfNecessary") ~typ:(returning void) +let delegateSource self = msg_send ~self ~cmd:(selector "delegateSource") ~typ:(returning id) +let didBegin self = msg_send ~self ~cmd:(selector "didBegin") ~typ:(returning void) +let didChangeToSelection x ~relativeRangeBefore self = msg_send ~self ~cmd:(selector "didChangeToSelection:relativeRangeBefore:") ~typ:(NSRange.t @-> NSRange.t @-> returning void) x relativeRangeBefore +let didDeleteBackward x ~relativeRangeBefore self = msg_send ~self ~cmd:(selector "didDeleteBackward:relativeRangeBefore:") ~typ:(ullong @-> NSRange.t @-> returning void) (ULLong.of_int x) relativeRangeBefore +let didDictationBegin x self = msg_send ~self ~cmd:(selector "didDictationBegin:") ~typ:(bool @-> returning void) x +let didInsertText x ~relativeRangeBefore self = msg_send ~self ~cmd:(selector "didInsertText:relativeRangeBefore:") ~typ:(id @-> NSRange.t @-> returning void) x relativeRangeBefore +let didOther self = msg_send ~self ~cmd:(selector "didOther") ~typ:(returning void) +let didRedo self = msg_send ~self ~cmd:(selector "didRedo") ~typ:(returning void) +let didUndo self = msg_send ~self ~cmd:(selector "didUndo") ~typ:(returning void) +let enumerateAnalytics x self = msg_send ~self ~cmd:(selector "enumerateAnalytics:") ~typ:((ptr void) @-> returning void) x +let enumerateEfficacyAnalytics x self = msg_send ~self ~cmd:(selector "enumerateEfficacyAnalytics:") ~typ:((ptr void) @-> returning void) x +let enumerateSeparateCycleAnalytics x self = msg_send ~self ~cmd:(selector "enumerateSeparateCycleAnalytics:") ~typ:((ptr void) @-> returning void) x +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let sessionIdentifier self = msg_send ~self ~cmd:(selector "sessionIdentifier") ~typ:(returning id) +let setDelegateSource x self = msg_send ~self ~cmd:(selector "setDelegateSource:") ~typ:(id @-> returning void) x +let setSessionIdentifier x self = msg_send ~self ~cmd:(selector "setSessionIdentifier:") ~typ:(id @-> returning void) x +let writeAnalytics self = msg_send ~self ~cmd:(selector "writeAnalytics") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UITextInputSessionActionAnalyticsClass.ml b/uikit_extra/UITextInputSessionActionAnalyticsClass.ml new file mode 100644 index 00000000..c9d985ad --- /dev/null +++ b/uikit_extra/UITextInputSessionActionAnalyticsClass.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinputsessionactionanalytics?language=objc}UITextInputSessionActionAnalytics} *) + +let addEndingObserver x self = msg_send ~self ~cmd:(selector "addEndingObserver:") ~typ:(id @-> returning void) x +let addObserver x self = msg_send ~self ~cmd:(selector "addObserver:") ~typ:(id @-> returning void) x +let allowedValuesForTextInputSource self = msg_send ~self ~cmd:(selector "allowedValuesForTextInputSource") ~typ:(returning id) +let removeEndingObserver x self = msg_send ~self ~cmd:(selector "removeEndingObserver:") ~typ:(id @-> returning void) x +let removeObserver x self = msg_send ~self ~cmd:(selector "removeObserver:") ~typ:(id @-> returning void) x +let sharedPunctuationCharacterSet self = msg_send ~self ~cmd:(selector "sharedPunctuationCharacterSet") ~typ:(returning id) +let stringValueForSource x self = msg_send ~self ~cmd:(selector "stringValueForSource:") ~typ:(llong @-> returning id) (LLong.of_int x) \ No newline at end of file diff --git a/uikit_extra/UITextInteractionSelectableInputDelegate.ml b/uikit_extra/UITextInteractionSelectableInputDelegate.ml new file mode 100644 index 00000000..dcbd8b22 --- /dev/null +++ b/uikit_extra/UITextInteractionSelectableInputDelegate.ml @@ -0,0 +1,49 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinteractionselectableinputdelegate?language=objc}UITextInteractionSelectableInputDelegate} *) + +let self = get_class "UITextInteractionSelectableInputDelegate" + +let baseWritingDirectionForPosition x ~inDirection self = msg_send ~self ~cmd:(selector "baseWritingDirectionForPosition:inDirection:") ~typ:(id @-> llong @-> returning llong) x (LLong.of_int inDirection) +let beginningOfDocument self = msg_send ~self ~cmd:(selector "beginningOfDocument") ~typ:(returning id) +let caretRectForPosition x self = msg_send ~self ~cmd:(selector "caretRectForPosition:") ~typ:(id @-> returning CGRect.t) x +let characterRangeAtPoint x self = msg_send ~self ~cmd:(selector "characterRangeAtPoint:") ~typ:(CGPoint.t @-> returning id) x +let characterRangeByExtendingPosition x ~inDirection self = msg_send ~self ~cmd:(selector "characterRangeByExtendingPosition:inDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int inDirection) +let closestPositionToPoint x self = msg_send ~self ~cmd:(selector "closestPositionToPoint:") ~typ:(CGPoint.t @-> returning id) x +let closestPositionToPoint' x ~withinRange self = msg_send ~self ~cmd:(selector "closestPositionToPoint:withinRange:") ~typ:(CGPoint.t @-> id @-> returning id) x withinRange +let comparePosition x ~toPosition self = msg_send ~self ~cmd:(selector "comparePosition:toPosition:") ~typ:(id @-> id @-> returning llong) x toPosition +let deleteBackward self = msg_send ~self ~cmd:(selector "deleteBackward") ~typ:(returning void) +let endOfDocument self = msg_send ~self ~cmd:(selector "endOfDocument") ~typ:(returning id) +let firstRectForRange x self = msg_send ~self ~cmd:(selector "firstRectForRange:") ~typ:(id @-> returning CGRect.t) x +let hasText self = msg_send ~self ~cmd:(selector "hasText") ~typ:(returning bool) +let inputDelegate self = msg_send ~self ~cmd:(selector "inputDelegate") ~typ:(returning id) +let insertText x self = msg_send ~self ~cmd:(selector "insertText:") ~typ:(id @-> returning void) x +let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning id) +let markedTextStyle self = msg_send ~self ~cmd:(selector "markedTextStyle") ~typ:(returning id) +let nextResponder self = msg_send ~self ~cmd:(selector "nextResponder") ~typ:(returning id) +let offsetFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "offsetFromPosition:toPosition:") ~typ:(id @-> id @-> returning llong) x toPosition +let positionFromPosition x ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:offset:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int offset) +let positionFromPosition' x ~inDirection ~offset self = msg_send ~self ~cmd:(selector "positionFromPosition:inDirection:offset:") ~typ:(id @-> llong @-> llong @-> returning id) x (LLong.of_int inDirection) (LLong.of_int offset) +let positionWithinRange x ~farthestInDirection self = msg_send ~self ~cmd:(selector "positionWithinRange:farthestInDirection:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int farthestInDirection) +let replaceRange x ~withText self = msg_send ~self ~cmd:(selector "replaceRange:withText:") ~typ:(id @-> id @-> returning void) x withText +let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning id) +let selectionRectsForRange x self = msg_send ~self ~cmd:(selector "selectionRectsForRange:") ~typ:(id @-> returning id) x +let setBaseWritingDirection x ~forRange self = msg_send ~self ~cmd:(selector "setBaseWritingDirection:forRange:") ~typ:(llong @-> id @-> returning void) (LLong.of_int x) forRange +let setInputDelegate x self = msg_send ~self ~cmd:(selector "setInputDelegate:") ~typ:(id @-> returning void) x +let setMarkedText x ~selectedRange self = msg_send ~self ~cmd:(selector "setMarkedText:selectedRange:") ~typ:(id @-> NSRange.t @-> returning void) x selectedRange +let setMarkedTextStyle x self = msg_send ~self ~cmd:(selector "setMarkedTextStyle:") ~typ:(id @-> returning void) x +let setSelectedTextRange x self = msg_send ~self ~cmd:(selector "setSelectedTextRange:") ~typ:(id @-> returning void) x +let textInRange x self = msg_send ~self ~cmd:(selector "textInRange:") ~typ:(id @-> returning id) x +let textInput self = msg_send ~self ~cmd:(selector "textInput") ~typ:(returning id) +let textRangeFromPosition x ~toPosition self = msg_send ~self ~cmd:(selector "textRangeFromPosition:toPosition:") ~typ:(id @-> id @-> returning id) x toPosition +let tokenizer self = msg_send ~self ~cmd:(selector "tokenizer") ~typ:(returning id) +let unmarkText self = msg_send ~self ~cmd:(selector "unmarkText") ~typ:(returning void) +let updateSelectionRects self = msg_send ~self ~cmd:(selector "updateSelectionRects") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UITextInteractionSelectableInputDelegateClass.ml b/uikit_extra/UITextInteractionSelectableInputDelegateClass.ml new file mode 100644 index 00000000..29782953 --- /dev/null +++ b/uikit_extra/UITextInteractionSelectableInputDelegateClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextinteractionselectableinputdelegate?language=objc}UITextInteractionSelectableInputDelegate} *) + +let selectableInputDelegateWithTextInput x self = msg_send ~self ~cmd:(selector "selectableInputDelegateWithTextInput:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UITextLoupeInteraction_CustomHighlighter.ml b/uikit_extra/UITextLoupeInteraction_CustomHighlighter.ml index 1c35ba65..793fdaac 100644 --- a/uikit_extra/UITextLoupeInteraction_CustomHighlighter.ml +++ b/uikit_extra/UITextLoupeInteraction_CustomHighlighter.ml @@ -5,8 +5,12 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreAnimation +open CoreText -let _class_ = get_class "UITextLoupeInteraction_CustomHighlighter" +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextloupeinteraction_customhighlighter?language=objc}UITextLoupeInteraction_CustomHighlighter} *) -let doesControlDelegate self = msg_send ~self ~cmd:(selector "doesControlDelegate") ~typ:(returning (bool)) -let initWithLongPressGesture x self = msg_send ~self ~cmd:(selector "initWithLongPressGesture:") ~typ:(id @-> returning (id)) x \ No newline at end of file +let self = get_class "UITextLoupeInteraction_CustomHighlighter" + +let doesControlDelegate self = msg_send ~self ~cmd:(selector "doesControlDelegate") ~typ:(returning bool) +let initWithLongPressGesture x self = msg_send ~self ~cmd:(selector "initWithLongPressGesture:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UITextMagnifierCaret.ml b/uikit_extra/UITextMagnifierCaret.ml new file mode 100644 index 00000000..5048e8ae --- /dev/null +++ b/uikit_extra/UITextMagnifierCaret.ml @@ -0,0 +1,27 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextmagnifiercaret?language=objc}UITextMagnifierCaret} *) + +let self = get_class "UITextMagnifierCaret" + +let animationPoint self = msg_send ~self ~cmd:(selector "animationPoint") ~typ:(returning CGPoint.t) +let beginMagnifyingTarget x ~text ~magnificationPoint ~offset ~animated self = msg_send ~self ~cmd:(selector "beginMagnifyingTarget:text:magnificationPoint:offset:animated:") ~typ:(id @-> id @-> CGPoint.t @-> CGPoint.t @-> bool @-> returning void) x text magnificationPoint offset animated +let initWithFrame self = msg_send ~self ~cmd:(selector "initWithFrame") ~typ:(returning id) +let isHorizontal self = msg_send ~self ~cmd:(selector "isHorizontal") ~typ:(returning bool) +let offset self = msg_send ~self ~cmd:(selector "offset") ~typ:(returning CGPoint.t) +let offsetFromMagnificationPoint self = msg_send ~self ~cmd:(selector "offsetFromMagnificationPoint") ~typ:(returning double) +let remove self = msg_send ~self ~cmd:(selector "remove") ~typ:(returning void) +let setAnimationPoint x self = msg_send ~self ~cmd:(selector "setAnimationPoint:") ~typ:(CGPoint.t @-> returning void) x +let setOffset x self = msg_send ~self ~cmd:(selector "setOffset:") ~typ:(CGPoint.t @-> returning void) x +let terminalPointPlacedCarefully self = msg_send ~self ~cmd:(selector "terminalPointPlacedCarefully") ~typ:(returning bool) +let updateFrameAndOffset self = msg_send ~self ~cmd:(selector "updateFrameAndOffset") ~typ:(returning void) +let zoomDownAnimation self = msg_send ~self ~cmd:(selector "zoomDownAnimation") ~typ:(returning void) +let zoomUpAnimation self = msg_send ~self ~cmd:(selector "zoomUpAnimation") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UITextMagnifierCaretClass.ml b/uikit_extra/UITextMagnifierCaretClass.ml new file mode 100644 index 00000000..7ba5c6f5 --- /dev/null +++ b/uikit_extra/UITextMagnifierCaretClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextmagnifiercaret?language=objc}UITextMagnifierCaret} *) + +let activeCaretMagnifier self = msg_send ~self ~cmd:(selector "activeCaretMagnifier") ~typ:(returning id) +let renderClass self = msg_send ~self ~cmd:(selector "renderClass") ~typ:(returning _Class) +let sharedCaretMagnifier self = msg_send ~self ~cmd:(selector "sharedCaretMagnifier") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UITextMagnifierCommonRenderer.ml b/uikit_extra/UITextMagnifierCommonRenderer.ml new file mode 100644 index 00000000..b4dd996e --- /dev/null +++ b/uikit_extra/UITextMagnifierCommonRenderer.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextmagnifiercommonrenderer?language=objc}UITextMagnifierCommonRenderer} *) + +let self = get_class "UITextMagnifierCommonRenderer" + +let backgroundColourIfNecessary self = msg_send ~self ~cmd:(selector "backgroundColourIfNecessary") ~typ:(returning id) +let didMoveToSuperview self = msg_send ~self ~cmd:(selector "didMoveToSuperview") ~typ:(returning void) +let loadImages self = msg_send ~self ~cmd:(selector "loadImages") ~typ:(returning void) +let magnifier self = msg_send ~self ~cmd:(selector "magnifier") ~typ:(returning id) +let performOperations x self = msg_send ~self ~cmd:(selector "performOperations:") ~typ:((ptr void) @-> returning void) x +let update self = msg_send ~self ~cmd:(selector "update") ~typ:(returning void) +let visualsForMagnifier self = msg_send ~self ~cmd:(selector "visualsForMagnifier") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UITextMagnifierRanged.ml b/uikit_extra/UITextMagnifierRanged.ml new file mode 100644 index 00000000..ee735c86 --- /dev/null +++ b/uikit_extra/UITextMagnifierRanged.ml @@ -0,0 +1,31 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextmagnifierranged?language=objc}UITextMagnifierRanged} *) + +let self = get_class "UITextMagnifierRanged" + +let adjustMagnificationPoint x self = msg_send ~self ~cmd:(selector "adjustMagnificationPoint:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let beginMagnifyingTarget x ~text ~magnificationPoint ~offset ~animated self = msg_send ~self ~cmd:(selector "beginMagnifyingTarget:text:magnificationPoint:offset:animated:") ~typ:(id @-> id @-> CGPoint.t @-> CGPoint.t @-> bool @-> returning void) x text magnificationPoint offset animated +let caretRectClosestToPoint x self = msg_send ~self ~cmd:(selector "caretRectClosestToPoint:") ~typ:(CGPoint.t @-> returning CGRect.t) x +let clipPoint x ~inRect self = msg_send ~self ~cmd:(selector "clipPoint:inRect:") ~typ:(CGPoint.t @-> CGRect.t @-> returning CGPoint.t) x inRect +let horizontalMovement self = msg_send ~self ~cmd:(selector "horizontalMovement") ~typ:(returning int) +let horizontalMovementAtTime x self = msg_send ~self ~cmd:(selector "horizontalMovementAtTime:") ~typ:(double @-> returning int) x +let initWithFrame self = msg_send ~self ~cmd:(selector "initWithFrame") ~typ:(returning id) +let isHorizontal self = msg_send ~self ~cmd:(selector "isHorizontal") ~typ:(returning bool) +let offsetFromMagnificationPoint self = msg_send ~self ~cmd:(selector "offsetFromMagnificationPoint") ~typ:(returning double) +let setIsHorizontal x self = msg_send ~self ~cmd:(selector "setIsHorizontal:") ~typ:(bool @-> returning void) x +let setMagnificationPoint x self = msg_send ~self ~cmd:(selector "setMagnificationPoint:") ~typ:(CGPoint.t @-> returning void) x +let stopMagnifying x self = msg_send ~self ~cmd:(selector "stopMagnifying:") ~typ:(bool @-> returning void) x +let terminalPointPlacedCarefully self = msg_send ~self ~cmd:(selector "terminalPointPlacedCarefully") ~typ:(returning bool) +let updateFrameAndOffset self = msg_send ~self ~cmd:(selector "updateFrameAndOffset") ~typ:(returning void) +let wasPlacedCarefullyAtTime x self = msg_send ~self ~cmd:(selector "wasPlacedCarefullyAtTime:") ~typ:(double @-> returning bool) x +let zoomDownAnimation self = msg_send ~self ~cmd:(selector "zoomDownAnimation") ~typ:(returning void) +let zoomUpAnimation self = msg_send ~self ~cmd:(selector "zoomUpAnimation") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/UITextMagnifierRangedClass.ml b/uikit_extra/UITextMagnifierRangedClass.ml new file mode 100644 index 00000000..ad4ec315 --- /dev/null +++ b/uikit_extra/UITextMagnifierRangedClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextmagnifierranged?language=objc}UITextMagnifierRanged} *) + +let activeRangedMagnifier self = msg_send ~self ~cmd:(selector "activeRangedMagnifier") ~typ:(returning id) +let renderClass self = msg_send ~self ~cmd:(selector "renderClass") ~typ:(returning _Class) +let sharedRangedMagnifier self = msg_send ~self ~cmd:(selector "sharedRangedMagnifier") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UITextMagnifierTimeWeightedPoint.ml b/uikit_extra/UITextMagnifierTimeWeightedPoint.ml new file mode 100644 index 00000000..a3320aca --- /dev/null +++ b/uikit_extra/UITextMagnifierTimeWeightedPoint.ml @@ -0,0 +1,23 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextmagnifiertimeweightedpoint?language=objc}UITextMagnifierTimeWeightedPoint} *) + +let self = get_class "UITextMagnifierTimeWeightedPoint" + +let clearHistory self = msg_send ~self ~cmd:(selector "clearHistory") ~typ:(returning void) +let diffFromLastPoint self = msg_send ~self ~cmd:(selector "diffFromLastPoint") ~typ:(returning CGPoint.t) +let displacementInInterval x self = msg_send ~self ~cmd:(selector "displacementInInterval:") ~typ:(double @-> returning CGSize.t) x +let displacementInInterval' x ~priorTo self = msg_send ~self ~cmd:(selector "displacementInInterval:priorTo:") ~typ:(double @-> double @-> returning CGSize.t) x priorTo +let distanceCoveredInInterval x self = msg_send ~self ~cmd:(selector "distanceCoveredInInterval:") ~typ:(double @-> returning float) x +let distanceCoveredInInterval' x ~priorTo self = msg_send ~self ~cmd:(selector "distanceCoveredInInterval:priorTo:") ~typ:(double @-> double @-> returning float) x priorTo +let historyCovers x self = msg_send ~self ~cmd:(selector "historyCovers:") ~typ:(double @-> returning bool) x +let isPlacedCarefully self = msg_send ~self ~cmd:(selector "isPlacedCarefully") ~typ:(returning bool) +let weightedPoint self = msg_send ~self ~cmd:(selector "weightedPoint") ~typ:(returning CGPoint.t) \ No newline at end of file diff --git a/uikit_extra/UITextModernLoupeSession.ml b/uikit_extra/UITextModernLoupeSession.ml new file mode 100644 index 00000000..6315fca9 --- /dev/null +++ b/uikit_extra/UITextModernLoupeSession.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextmodernloupesession?language=objc}UITextModernLoupeSession} *) + +let self = get_class "UITextModernLoupeSession" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didMoveToPoint x ~withCaretRect ~tracksCaret self = msg_send ~self ~cmd:(selector "didMoveToPoint:withCaretRect:tracksCaret:") ~typ:(CGPoint.t @-> CGRect.t @-> bool @-> returning void) x withCaretRect tracksCaret +let gestureTuning self = msg_send ~self ~cmd:(selector "gestureTuning") ~typ:(returning id) +let interactionView self = msg_send ~self ~cmd:(selector "interactionView") ~typ:(returning id) +let loupeView self = msg_send ~self ~cmd:(selector "loupeView") ~typ:(returning id) +let setGestureTuning x self = msg_send ~self ~cmd:(selector "setGestureTuning:") ~typ:(id @-> returning void) x +let setInteractionView x self = msg_send ~self ~cmd:(selector "setInteractionView:") ~typ:(id @-> returning void) x +let setLoupeView x self = msg_send ~self ~cmd:(selector "setLoupeView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UITextModernLoupeSessionClass.ml b/uikit_extra/UITextModernLoupeSessionClass.ml new file mode 100644 index 00000000..79367245 --- /dev/null +++ b/uikit_extra/UITextModernLoupeSessionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextmodernloupesession?language=objc}UITextModernLoupeSession} *) + +let beginLoupeSessionAtPoint x ~withCaretRect ~fromView self = msg_send ~self ~cmd:(selector "beginLoupeSessionAtPoint:withCaretRect:fromView:") ~typ:(CGPoint.t @-> CGRect.t @-> id @-> returning id) x withCaretRect fromView \ No newline at end of file diff --git a/uikit_extra/UITextModernLoupeView.ml b/uikit_extra/UITextModernLoupeView.ml new file mode 100644 index 00000000..df59ab6b --- /dev/null +++ b/uikit_extra/UITextModernLoupeView.ml @@ -0,0 +1,30 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextmodernloupeview?language=objc}UITextModernLoupeView} *) + +let self = get_class "UITextModernLoupeView" + +let backgroundColorIfNecessary self = msg_send ~self ~cmd:(selector "backgroundColorIfNecessary") ~typ:(returning id) +let containerCoordinateSpace self = msg_send ~self ~cmd:(selector "containerCoordinateSpace") ~typ:(returning id) +let initWithSourceView x self = msg_send ~self ~cmd:(selector "initWithSourceView:") ~typ:(id @-> returning id) x +let layoutSubviews self = msg_send ~self ~cmd:(selector "layoutSubviews") ~typ:(returning void) +let modelPosition self = msg_send ~self ~cmd:(selector "modelPosition") ~typ:(returning CGPoint.t) +let preferredSize self = msg_send ~self ~cmd:(selector "preferredSize") ~typ:(returning CGSize.t) +let setModelPosition x self = msg_send ~self ~cmd:(selector "setModelPosition:") ~typ:(CGPoint.t @-> returning void) x +let setStatusBarHidden x self = msg_send ~self ~cmd:(selector "setStatusBarHidden:") ~typ:(bool @-> returning void) x +let setVisible x self = msg_send ~self ~cmd:(selector "setVisible:") ~typ:(bool @-> returning void) x +let setVisible1 x ~animated self = msg_send ~self ~cmd:(selector "setVisible:animated:") ~typ:(bool @-> bool @-> returning void) x animated +let setVisible2 x ~animated ~removeWhenComplete self = msg_send ~self ~cmd:(selector "setVisible:animated:removeWhenComplete:") ~typ:(bool @-> bool @-> bool @-> returning void) x animated removeWhenComplete +let setVisualOffset x self = msg_send ~self ~cmd:(selector "setVisualOffset:") ~typ:(double @-> returning void) x +let statusBarHidden self = msg_send ~self ~cmd:(selector "statusBarHidden") ~typ:(returning bool) +let traitCollectionDidChange x self = msg_send ~self ~cmd:(selector "traitCollectionDidChange:") ~typ:(id @-> returning void) x +let visible self = msg_send ~self ~cmd:(selector "visible") ~typ:(returning bool) +let visualOffset self = msg_send ~self ~cmd:(selector "visualOffset") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UITextModernLoupeViewClass.ml b/uikit_extra/UITextModernLoupeViewClass.ml new file mode 100644 index 00000000..e9592c88 --- /dev/null +++ b/uikit_extra/UITextModernLoupeViewClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextmodernloupeview?language=objc}UITextModernLoupeView} *) + +let isModernLoupeEnabled self = msg_send ~self ~cmd:(selector "isModernLoupeEnabled") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UITextPhraseBoundaryInteraction.ml b/uikit_extra/UITextPhraseBoundaryInteraction.ml new file mode 100644 index 00000000..78c0b7a2 --- /dev/null +++ b/uikit_extra/UITextPhraseBoundaryInteraction.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextphraseboundaryinteraction?language=objc}UITextPhraseBoundaryInteraction} *) + +let self = get_class "UITextPhraseBoundaryInteraction" + +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let initWithTextInput x self = msg_send ~self ~cmd:(selector "initWithTextInput:") ~typ:(id @-> returning id) x +let pointIfPlacedCarefully x self = msg_send ~self ~cmd:(selector "pointIfPlacedCarefully:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let touchAlignedPointForPoint x ~translation self = msg_send ~self ~cmd:(selector "touchAlignedPointForPoint:translation:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning CGPoint.t) x translation +let updateVisibilityOffsetForGesture x self = msg_send ~self ~cmd:(selector "updateVisibilityOffsetForGesture:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UITextPositionImpl.ml b/uikit_extra/UITextPositionImpl.ml new file mode 100644 index 00000000..fa65c698 --- /dev/null +++ b/uikit_extra/UITextPositionImpl.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextpositionimpl?language=objc}UITextPositionImpl} *) + +let self = get_class "UITextPositionImpl" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let setWebVisiblePosition x self = msg_send ~self ~cmd:(selector "setWebVisiblePosition:") ~typ:(id @-> returning void) x +let webVisiblePosition self = msg_send ~self ~cmd:(selector "webVisiblePosition") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UITextPositionImplClass.ml b/uikit_extra/UITextPositionImplClass.ml new file mode 100644 index 00000000..5d74923c --- /dev/null +++ b/uikit_extra/UITextPositionImplClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextpositionimpl?language=objc}UITextPositionImpl} *) + +let wrapWebVisiblePosition x self = msg_send ~self ~cmd:(selector "wrapWebVisiblePosition:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UITextRangeAdjustmentInteraction.ml b/uikit_extra/UITextRangeAdjustmentInteraction.ml new file mode 100644 index 00000000..1469de55 --- /dev/null +++ b/uikit_extra/UITextRangeAdjustmentInteraction.ml @@ -0,0 +1,44 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextrangeadjustmentinteraction?language=objc}UITextRangeAdjustmentInteraction} *) + +let self = get_class "UITextRangeAdjustmentInteraction" + +let activeTouch self = msg_send ~self ~cmd:(selector "activeTouch") ~typ:(returning id) +let adjustmentGestureRecognizer self = msg_send ~self ~cmd:(selector "adjustmentGestureRecognizer") ~typ:(returning id) +let applyTouchOffset x self = msg_send ~self ~cmd:(selector "applyTouchOffset:") ~typ:(CGPoint.t @-> returning CGPoint.t) x +let baseIsStart self = msg_send ~self ~cmd:(selector "baseIsStart") ~typ:(returning bool) +let basePoint self = msg_send ~self ~cmd:(selector "basePoint") ~typ:(returning CGPoint.t) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let didMoveToView x self = msg_send ~self ~cmd:(selector "didMoveToView:") ~typ:(id @-> returning void) x +let extentPoint self = msg_send ~self ~cmd:(selector "extentPoint") ~typ:(returning CGPoint.t) +let firstMovedTime self = msg_send ~self ~cmd:(selector "firstMovedTime") ~typ:(returning double) +let gestureRecognizer x ~shouldBeRequiredToFailByGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldBeRequiredToFailByGestureRecognizer +let gestureRecognizer' x ~shouldRequireFailureOfGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRequireFailureOfGestureRecognizer:") ~typ:(id @-> id @-> returning bool) x shouldRequireFailureOfGestureRecognizer +let initialBasePoint self = msg_send ~self ~cmd:(selector "initialBasePoint") ~typ:(returning CGPoint.t) +let initialDistance self = msg_send ~self ~cmd:(selector "initialDistance") ~typ:(returning double) +let initialExtentPoint self = msg_send ~self ~cmd:(selector "initialExtentPoint") ~typ:(returning CGPoint.t) +let initialPoint self = msg_send ~self ~cmd:(selector "initialPoint") ~typ:(returning CGPoint.t) +let manuallyUpdateInteractionWithGestureState x ~location ~locationOfFirstTouch ~forTouchType self = msg_send ~self ~cmd:(selector "manuallyUpdateInteractionWithGestureState:location:locationOfFirstTouch:forTouchType:") ~typ:(llong @-> CGPoint.t @-> CGPoint.t @-> llong @-> returning void) (LLong.of_int x) location locationOfFirstTouch (LLong.of_int forTouchType) +let setActiveTouch x self = msg_send ~self ~cmd:(selector "setActiveTouch:") ~typ:(id @-> returning void) x +let setBaseIsStart x self = msg_send ~self ~cmd:(selector "setBaseIsStart:") ~typ:(bool @-> returning void) x +let setBasePoint x self = msg_send ~self ~cmd:(selector "setBasePoint:") ~typ:(CGPoint.t @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setExtentPoint x self = msg_send ~self ~cmd:(selector "setExtentPoint:") ~typ:(CGPoint.t @-> returning void) x +let setFirstMovedTime x self = msg_send ~self ~cmd:(selector "setFirstMovedTime:") ~typ:(double @-> returning void) x +let setInitialBasePoint x self = msg_send ~self ~cmd:(selector "setInitialBasePoint:") ~typ:(CGPoint.t @-> returning void) x +let setInitialDistance x self = msg_send ~self ~cmd:(selector "setInitialDistance:") ~typ:(double @-> returning void) x +let setInitialPoint x self = msg_send ~self ~cmd:(selector "setInitialPoint:") ~typ:(CGPoint.t @-> returning void) x +let setTouchOffset x self = msg_send ~self ~cmd:(selector "setTouchOffset:") ~typ:(CGPoint.t @-> returning void) x +let touchOffset self = msg_send ~self ~cmd:(selector "touchOffset") ~typ:(returning CGPoint.t) +let updateBaseAndExtentPointsFromEdges self = msg_send ~self ~cmd:(selector "updateBaseAndExtentPointsFromEdges") ~typ:(returning void) +let view self = msg_send ~self ~cmd:(selector "view") ~typ:(returning id) +let willMoveToView x self = msg_send ~self ~cmd:(selector "willMoveToView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UITextRangeImpl.ml b/uikit_extra/UITextRangeImpl.ml new file mode 100644 index 00000000..f13278cf --- /dev/null +++ b/uikit_extra/UITextRangeImpl.ml @@ -0,0 +1,25 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextrangeimpl?language=objc}UITextRangeImpl} *) + +let self = get_class "UITextRangeImpl" + +let adjustAffinityOfPosition x ~isStart self = msg_send ~self ~cmd:(selector "adjustAffinityOfPosition:isStart:") ~typ:(id @-> bool @-> returning void) x isStart +let affinity self = msg_send ~self ~cmd:(selector "affinity") ~typ:(returning llong) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) +let domRange self = msg_send ~self ~cmd:(selector "domRange") ~typ:(returning id) +let end_ self = msg_send ~self ~cmd:(selector "end") ~typ:(returning id) +let isEmpty self = msg_send ~self ~cmd:(selector "isEmpty") ~typ:(returning bool) +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let setAffinity x self = msg_send ~self ~cmd:(selector "setAffinity:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setDomRange x self = msg_send ~self ~cmd:(selector "setDomRange:") ~typ:(id @-> returning void) x +let start self = msg_send ~self ~cmd:(selector "start") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UITextRangeImplClass.ml b/uikit_extra/UITextRangeImplClass.ml new file mode 100644 index 00000000..ec563c03 --- /dev/null +++ b/uikit_extra/UITextRangeImplClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextrangeimpl?language=objc}UITextRangeImpl} *) + +let wrapDOMRange x self = msg_send ~self ~cmd:(selector "wrapDOMRange:") ~typ:(id @-> returning id) x +let wrapDOMRange' x ~withAffinity self = msg_send ~self ~cmd:(selector "wrapDOMRange:withAffinity:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int withAffinity) \ No newline at end of file diff --git a/uikit_extra/UITextReplacementGenerator.ml b/uikit_extra/UITextReplacementGenerator.ml new file mode 100644 index 00000000..3e096e1d --- /dev/null +++ b/uikit_extra/UITextReplacementGenerator.ml @@ -0,0 +1,23 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextreplacementgenerator?language=objc}UITextReplacementGenerator} *) + +let self = get_class "UITextReplacementGenerator" + +let addPlaceholderForEmptyReplacements x self = msg_send ~self ~cmd:(selector "addPlaceholderForEmptyReplacements:") ~typ:(id @-> returning void) x +let isStringToReplaceMisspelled self = msg_send ~self ~cmd:(selector "isStringToReplaceMisspelled") ~typ:(returning bool) +let replacementRange self = msg_send ~self ~cmd:(selector "replacementRange") ~typ:(returning id) +let replacementWithText x self = msg_send ~self ~cmd:(selector "replacementWithText:") ~typ:(id @-> returning id) x +let replacements self = msg_send ~self ~cmd:(selector "replacements") ~typ:(returning id) +let setReplacementRange x self = msg_send ~self ~cmd:(selector "setReplacementRange:") ~typ:(id @-> returning void) x +let setStringToReplace x self = msg_send ~self ~cmd:(selector "setStringToReplace:") ~typ:(id @-> returning void) x +let shouldAllowString x ~intoReplacements self = msg_send ~self ~cmd:(selector "shouldAllowString:intoReplacements:") ~typ:(id @-> id @-> returning bool) x intoReplacements +let stringToReplace self = msg_send ~self ~cmd:(selector "stringToReplace") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UITextReplacementGeneratorForCorrections.ml b/uikit_extra/UITextReplacementGeneratorForCorrections.ml new file mode 100644 index 00000000..06b26185 --- /dev/null +++ b/uikit_extra/UITextReplacementGeneratorForCorrections.ml @@ -0,0 +1,38 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextreplacementgeneratorforcorrections?language=objc}UITextReplacementGeneratorForCorrections} *) + +let self = get_class "UITextReplacementGeneratorForCorrections" + +let addAutocorrectionGuessesToReplacements x self = msg_send ~self ~cmd:(selector "addAutocorrectionGuessesToReplacements:") ~typ:(id @-> returning void) x +let addPreviouslySuggestedAutocorrectionToReplacements x self = msg_send ~self ~cmd:(selector "addPreviouslySuggestedAutocorrectionToReplacements:") ~typ:(id @-> returning void) x +let addReplacementRevertingAutocorrectionToReplacements x self = msg_send ~self ~cmd:(selector "addReplacementRevertingAutocorrectionToReplacements:") ~typ:(id @-> returning id) x +let addSpellingGuessesForString x ~_ToReplacements self = msg_send ~self ~cmd:(selector "addSpellingGuessesForString:ToReplacements:") ~typ:(id @-> id @-> returning void) x _ToReplacements +let autocorrectionRecord self = msg_send ~self ~cmd:(selector "autocorrectionRecord") ~typ:(returning id) +let forceAutocorrectionGuesses self = msg_send ~self ~cmd:(selector "forceAutocorrectionGuesses") ~typ:(returning bool) +let forceHistoryReplacement self = msg_send ~self ~cmd:(selector "forceHistoryReplacement") ~typ:(returning bool) +let forceSpellingGuesses self = msg_send ~self ~cmd:(selector "forceSpellingGuesses") ~typ:(returning bool) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isStringMisspelled x self = msg_send ~self ~cmd:(selector "isStringMisspelled:") ~typ:(id @-> returning bool) x +let isStringToReplaceMisspelled self = msg_send ~self ~cmd:(selector "isStringToReplaceMisspelled") ~typ:(returning bool) +let maxCountAfterAutocorrectionGuesses self = msg_send ~self ~cmd:(selector "maxCountAfterAutocorrectionGuesses") ~typ:(returning ullong) +let maxCountAfterSpellingGuesses self = msg_send ~self ~cmd:(selector "maxCountAfterSpellingGuesses") ~typ:(returning ullong) +let maxEditDistance self = msg_send ~self ~cmd:(selector "maxEditDistance") ~typ:(returning ullong) +let replacements self = msg_send ~self ~cmd:(selector "replacements") ~typ:(returning id) +let setAutocorrectionRecord x self = msg_send ~self ~cmd:(selector "setAutocorrectionRecord:") ~typ:(id @-> returning void) x +let setForceAutocorrectionGuesses x self = msg_send ~self ~cmd:(selector "setForceAutocorrectionGuesses:") ~typ:(bool @-> returning void) x +let setForceHistoryReplacement x self = msg_send ~self ~cmd:(selector "setForceHistoryReplacement:") ~typ:(bool @-> returning void) x +let setForceSpellingGuesses x self = msg_send ~self ~cmd:(selector "setForceSpellingGuesses:") ~typ:(bool @-> returning void) x +let setMaxCountAfterAutocorrectionGuesses x self = msg_send ~self ~cmd:(selector "setMaxCountAfterAutocorrectionGuesses:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setMaxCountAfterSpellingGuesses x self = msg_send ~self ~cmd:(selector "setMaxCountAfterSpellingGuesses:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setMaxEditDistance x self = msg_send ~self ~cmd:(selector "setMaxEditDistance:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setTextChecker x self = msg_send ~self ~cmd:(selector "setTextChecker:") ~typ:(id @-> returning void) x +let textChecker self = msg_send ~self ~cmd:(selector "textChecker") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UITextReplacementGeneratorForDictation.ml b/uikit_extra/UITextReplacementGeneratorForDictation.ml new file mode 100644 index 00000000..13325e16 --- /dev/null +++ b/uikit_extra/UITextReplacementGeneratorForDictation.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextreplacementgeneratorfordictation?language=objc}UITextReplacementGeneratorForDictation} *) + +let self = get_class "UITextReplacementGeneratorForDictation" + +let alternatives self = msg_send ~self ~cmd:(selector "alternatives") ~typ:(returning id) +let initWithAlternatives x ~stringToReplace ~replacementRange self = msg_send ~self ~cmd:(selector "initWithAlternatives:stringToReplace:replacementRange:") ~typ:(id @-> id @-> id @-> returning id) x stringToReplace replacementRange +let replacements self = msg_send ~self ~cmd:(selector "replacements") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UITextSelectionGrabberSuppressionAssertion.ml b/uikit_extra/UITextSelectionGrabberSuppressionAssertion.ml new file mode 100644 index 00000000..21d0dc53 --- /dev/null +++ b/uikit_extra/UITextSelectionGrabberSuppressionAssertion.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextselectiongrabbersuppressionassertion?language=objc}UITextSelectionGrabberSuppressionAssertion} *) + +let self = get_class "UITextSelectionGrabberSuppressionAssertion" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithSelectionView x self = msg_send ~self ~cmd:(selector "initWithSelectionView:") ~typ:(id @-> returning id) x +let selectionView self = msg_send ~self ~cmd:(selector "selectionView") ~typ:(returning id) +let setSelectionView x self = msg_send ~self ~cmd:(selector "setSelectionView:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UITextSelectionRectImpl.ml b/uikit_extra/UITextSelectionRectImpl.ml new file mode 100644 index 00000000..e36550a2 --- /dev/null +++ b/uikit_extra/UITextSelectionRectImpl.ml @@ -0,0 +1,24 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextselectionrectimpl?language=objc}UITextSelectionRectImpl} *) + +let self = get_class "UITextSelectionRectImpl" + +let containsEnd self = msg_send ~self ~cmd:(selector "containsEnd") ~typ:(returning bool) +let containsStart self = msg_send ~self ~cmd:(selector "containsStart") ~typ:(returning bool) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithWebRect x self = msg_send ~self ~cmd:(selector "initWithWebRect:") ~typ:(id @-> returning id) x +let isVertical self = msg_send ~self ~cmd:(selector "isVertical") ~typ:(returning bool) +let range self = msg_send ~self ~cmd:(selector "range") ~typ:(returning id) +let rect self = msg_send ~self ~cmd:(selector "rect") ~typ:(returning CGRect.t) +let setWebRect x self = msg_send ~self ~cmd:(selector "setWebRect:") ~typ:(id @-> returning void) x +let webRect self = msg_send ~self ~cmd:(selector "webRect") ~typ:(returning id) +let writingDirection self = msg_send ~self ~cmd:(selector "writingDirection") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit_extra/UITextSelectionRectImplClass.ml b/uikit_extra/UITextSelectionRectImplClass.ml new file mode 100644 index 00000000..f08b488a --- /dev/null +++ b/uikit_extra/UITextSelectionRectImplClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextselectionrectimpl?language=objc}UITextSelectionRectImpl} *) + +let rectWithWebRect x self = msg_send ~self ~cmd:(selector "rectWithWebRect:") ~typ:(id @-> returning id) x +let rectsWithWebRects x self = msg_send ~self ~cmd:(selector "rectsWithWebRects:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UITextSelectionWindowAveragedValue.ml b/uikit_extra/UITextSelectionWindowAveragedValue.ml new file mode 100644 index 00000000..cc312d13 --- /dev/null +++ b/uikit_extra/UITextSelectionWindowAveragedValue.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uitextselectionwindowaveragedvalue?language=objc}UITextSelectionWindowAveragedValue} *) + +let self = get_class "UITextSelectionWindowAveragedValue" + +let addValue x self = msg_send ~self ~cmd:(selector "addValue:") ~typ:(double @-> returning void) x +let flushValues self = msg_send ~self ~cmd:(selector "flushValues") ~typ:(returning void) +let initWithDepth x self = msg_send ~self ~cmd:(selector "initWithDepth:") ~typ:(ullong @-> returning id) (ULLong.of_int x) +let windowAveragedValue self = msg_send ~self ~cmd:(selector "windowAveragedValue") ~typ:(returning double) \ No newline at end of file diff --git a/uikit_extra/UITextViewDrawingInfo.ml b/uikit_extra/UITextViewDrawingInfo.ml deleted file mode 100644 index 3c048f21..00000000 --- a/uikit_extra/UITextViewDrawingInfo.ml +++ /dev/null @@ -1,28 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UITextViewDrawingInfo" - -let addBottomPadding self = msg_send ~self ~cmd:(selector "addBottomPadding") ~typ:(returning (bool)) -let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning (id)) -let drawingClass self = msg_send ~self ~cmd:(selector "drawingClass") ~typ:(returning (_Class)) -let gestureRecognizer x ~shouldBeRequiredToFailByGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldBeRequiredToFailByGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldBeRequiredToFailByGestureRecognizer -let gestureRecognizer' x ~shouldRecognizeSimultaneouslyWithGestureRecognizer self = msg_send ~self ~cmd:(selector "gestureRecognizer:shouldRecognizeSimultaneouslyWithGestureRecognizer:") ~typ:(id @-> id @-> returning (bool)) x shouldRecognizeSimultaneouslyWithGestureRecognizer -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let initForTextView x self = msg_send ~self ~cmd:(selector "initForTextView:") ~typ:(id @-> returning (id)) x -let insertLongPressGestureRecognizer self = msg_send ~self ~cmd:(selector "insertLongPressGestureRecognizer") ~typ:(returning (id)) -let rulerEnabled self = msg_send ~self ~cmd:(selector "rulerEnabled") ~typ:(returning (bool)) -let setAddBottomPadding x self = msg_send ~self ~cmd:(selector "setAddBottomPadding:") ~typ:(bool @-> returning (void)) x -let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning (void)) x -let setDrawingClass x self = msg_send ~self ~cmd:(selector "setDrawingClass:") ~typ:(_Class @-> returning (void)) x -let setInsertLongPressGestureRecognizer x self = msg_send ~self ~cmd:(selector "setInsertLongPressGestureRecognizer:") ~typ:(id @-> returning (void)) x -let setRulerEnabled x self = msg_send ~self ~cmd:(selector "setRulerEnabled:") ~typ:(bool @-> returning (void)) x -let setTextView x self = msg_send ~self ~cmd:(selector "setTextView:") ~typ:(id @-> returning (void)) x -let setTiledView x self = msg_send ~self ~cmd:(selector "setTiledView:") ~typ:(id @-> returning (void)) x -let textView self = msg_send ~self ~cmd:(selector "textView") ~typ:(returning (id)) -let tiledView self = msg_send ~self ~cmd:(selector "tiledView") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UIViewBlockBasedCAAction.ml b/uikit_extra/UIViewBlockBasedCAAction.ml new file mode 100644 index 00000000..75924c6c --- /dev/null +++ b/uikit_extra/UIViewBlockBasedCAAction.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewblockbasedcaaction?language=objc}UIViewBlockBasedCAAction} *) + +let self = get_class "UIViewBlockBasedCAAction" + +let initWithActionBlock x self = msg_send ~self ~cmd:(selector "initWithActionBlock:") ~typ:((ptr void) @-> returning id) x +let initWithEmptyBlock x self = msg_send ~self ~cmd:(selector "initWithEmptyBlock:") ~typ:((ptr void) @-> returning id) x +let runActionForKey x ~object_ ~arguments self = msg_send ~self ~cmd:(selector "runActionForKey:object:arguments:") ~typ:(id @-> id @-> id @-> returning void) x object_ arguments \ No newline at end of file diff --git a/uikit_extra/UIViewControllerBuiltinTransitionViewAnimator.ml b/uikit_extra/UIViewControllerBuiltinTransitionViewAnimator.ml new file mode 100644 index 00000000..11ff0f88 --- /dev/null +++ b/uikit_extra/UIViewControllerBuiltinTransitionViewAnimator.ml @@ -0,0 +1,35 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewcontrollerbuiltintransitionviewanimator?language=objc}UIViewControllerBuiltinTransitionViewAnimator} *) + +let self = get_class "UIViewControllerBuiltinTransitionViewAnimator" + +let animateTransition x self = msg_send ~self ~cmd:(selector "animateTransition:") ~typ:(id @-> returning void) x +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let durationForTransition x self = msg_send ~self ~cmd:(selector "durationForTransition:") ~typ:(int @-> returning double) x +let fromView self = msg_send ~self ~cmd:(selector "fromView") ~typ:(returning id) +let initWithTransition x self = msg_send ~self ~cmd:(selector "initWithTransition:") ~typ:(int @-> returning id) x +let removeFromView self = msg_send ~self ~cmd:(selector "removeFromView") ~typ:(returning bool) +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setFromView x self = msg_send ~self ~cmd:(selector "setFromView:") ~typ:(id @-> returning void) x +let setRemoveFromView x self = msg_send ~self ~cmd:(selector "setRemoveFromView:") ~typ:(bool @-> returning void) x +let setToView x self = msg_send ~self ~cmd:(selector "setToView:") ~typ:(id @-> returning void) x +let setTransition x self = msg_send ~self ~cmd:(selector "setTransition:") ~typ:(int @-> returning void) x +let toView self = msg_send ~self ~cmd:(selector "toView") ~typ:(returning id) +let transition self = msg_send ~self ~cmd:(selector "transition") ~typ:(returning int) +let transitionDuration x self = msg_send ~self ~cmd:(selector "transitionDuration:") ~typ:(id @-> returning double) x +let transitionView x ~startCustomTransitionWithDuration self = msg_send ~self ~cmd:(selector "transitionView:startCustomTransitionWithDuration:") ~typ:(id @-> double @-> returning void) x startCustomTransitionWithDuration +let transitionView1 x ~beginOriginForToView ~forTransition ~defaultOrigin self = msg_send ~self ~cmd:(selector "transitionView:beginOriginForToView:forTransition:defaultOrigin:") ~typ:(id @-> id @-> int @-> CGPoint.t @-> returning CGPoint.t) x beginOriginForToView forTransition defaultOrigin +let transitionView2 x ~endOriginForFromView ~forTransition ~defaultOrigin self = msg_send ~self ~cmd:(selector "transitionView:endOriginForFromView:forTransition:defaultOrigin:") ~typ:(id @-> id @-> int @-> CGPoint.t @-> returning CGPoint.t) x endOriginForFromView forTransition defaultOrigin +let transitionView3 x ~endOriginForToView ~forTransition ~defaultOrigin self = msg_send ~self ~cmd:(selector "transitionView:endOriginForToView:forTransition:defaultOrigin:") ~typ:(id @-> id @-> int @-> CGPoint.t @-> returning CGPoint.t) x endOriginForToView forTransition defaultOrigin +let transitionViewDidComplete x ~fromView ~toView ~removeFromView self = msg_send ~self ~cmd:(selector "transitionViewDidComplete:fromView:toView:removeFromView:") ~typ:(id @-> id @-> id @-> bool @-> returning void) x fromView toView removeFromView +let transitionViewDidStart x self = msg_send ~self ~cmd:(selector "transitionViewDidStart:") ~typ:(id @-> returning void) x +let transitionViewShouldUseViewControllerCallbacks self = msg_send ~self ~cmd:(selector "transitionViewShouldUseViewControllerCallbacks") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIViewControllerBuiltinTransitionViewAnimatorIOSMac.ml b/uikit_extra/UIViewControllerBuiltinTransitionViewAnimatorIOSMac.ml new file mode 100644 index 00000000..d3840195 --- /dev/null +++ b/uikit_extra/UIViewControllerBuiltinTransitionViewAnimatorIOSMac.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewcontrollerbuiltintransitionviewanimatoriosmac?language=objc}UIViewControllerBuiltinTransitionViewAnimatorIOSMac} *) + +let self = get_class "UIViewControllerBuiltinTransitionViewAnimatorIOSMac" + +let animateTransition x self = msg_send ~self ~cmd:(selector "animateTransition:") ~typ:(id @-> returning void) x +let durationForTransition x self = msg_send ~self ~cmd:(selector "durationForTransition:") ~typ:(int @-> returning double) x +let isPresenting self = msg_send ~self ~cmd:(selector "isPresenting") ~typ:(returning bool) +let setPresenting x self = msg_send ~self ~cmd:(selector "setPresenting:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIViewInProcessAnimationManager.ml b/uikit_extra/UIViewInProcessAnimationManager.ml new file mode 100644 index 00000000..6962a2ba --- /dev/null +++ b/uikit_extra/UIViewInProcessAnimationManager.ml @@ -0,0 +1,38 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewinprocessanimationmanager?language=objc}UIViewInProcessAnimationManager} *) + +let self = get_class "UIViewInProcessAnimationManager" + +let addEntry x self = msg_send ~self ~cmd:(selector "addEntry:") ~typ:(id @-> returning void) x +let advancingOnCommitDisabled self = msg_send ~self ~cmd:(selector "advancingOnCommitDisabled") ~typ:(returning bool) +let animationThread self = msg_send ~self ~cmd:(selector "animationThread") ~typ:(returning id) +let animationThreadKeepAliveSemaphore self = msg_send ~self ~cmd:(selector "animationThreadKeepAliveSemaphore") ~typ:(returning id) +let animationThreadRunLoop self = msg_send ~self ~cmd:(selector "animationThreadRunLoop") ~typ:(returning id) +let currentTickThread self = msg_send ~self ~cmd:(selector "currentTickThread") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let executionMode self = msg_send ~self ~cmd:(selector "executionMode") ~typ:(returning ullong) +let finishAdvancingAnimationManager self = msg_send ~self ~cmd:(selector "finishAdvancingAnimationManager") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let performAfterTick x self = msg_send ~self ~cmd:(selector "performAfterTick:") ~typ:((ptr void) @-> returning void) x +let performBeforeExiting x self = msg_send ~self ~cmd:(selector "performBeforeExiting:") ~typ:((ptr void) @-> returning void) x +let refreshInterval self = msg_send ~self ~cmd:(selector "refreshInterval") ~typ:(returning double) +let scheduleAnimatorAdvancerToStart self = msg_send ~self ~cmd:(selector "scheduleAnimatorAdvancerToStart") ~typ:(returning void) +let setAdvancingOnCommitDisabled x self = msg_send ~self ~cmd:(selector "setAdvancingOnCommitDisabled:") ~typ:(bool @-> returning void) x +let setAnimationThread x self = msg_send ~self ~cmd:(selector "setAnimationThread:") ~typ:(id @-> returning void) x +let setAnimationThreadKeepAliveSemaphore x self = msg_send ~self ~cmd:(selector "setAnimationThreadKeepAliveSemaphore:") ~typ:(id @-> returning void) x +let setAnimationThreadRunLoop x self = msg_send ~self ~cmd:(selector "setAnimationThreadRunLoop:") ~typ:(id @-> returning void) x +let setCurrentTickThread x self = msg_send ~self ~cmd:(selector "setCurrentTickThread:") ~typ:(id @-> returning void) x +let setExecutionMode x self = msg_send ~self ~cmd:(selector "setExecutionMode:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let setUsesMainThreadExecution x self = msg_send ~self ~cmd:(selector "setUsesMainThreadExecution:") ~typ:(bool @-> returning void) x +let startAdvancingAnimationManager x self = msg_send ~self ~cmd:(selector "startAdvancingAnimationManager:") ~typ:(id @-> returning void) x +let startAnimationAdvancerIfNeeded self = msg_send ~self ~cmd:(selector "startAnimationAdvancerIfNeeded") ~typ:(returning void) +let usesMainThreadExecution self = msg_send ~self ~cmd:(selector "usesMainThreadExecution") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIViewInProcessAnimationManagerClass.ml b/uikit_extra/UIViewInProcessAnimationManagerClass.ml new file mode 100644 index 00000000..e94279e8 --- /dev/null +++ b/uikit_extra/UIViewInProcessAnimationManagerClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewinprocessanimationmanager?language=objc}UIViewInProcessAnimationManager} *) + +let sharedManager self = msg_send ~self ~cmd:(selector "sharedManager") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIViewInProcessAnimationState.ml b/uikit_extra/UIViewInProcessAnimationState.ml new file mode 100644 index 00000000..6b1e518b --- /dev/null +++ b/uikit_extra/UIViewInProcessAnimationState.ml @@ -0,0 +1,27 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewinprocessanimationstate?language=objc}UIViewInProcessAnimationState} *) + +let self = get_class "UIViewInProcessAnimationState" + +let actionForLayer x ~forKey ~forView self = msg_send ~self ~cmd:(selector "actionForLayer:forKey:forView:") ~typ:(id @-> id @-> id @-> returning id) x forKey forView +let animatePropertyWithCurrentValue x ~targetValue ~preTickShouldRemoveCallback ~newValueCallback ~removedCallback ~animatableProperty self = msg_send ~self ~cmd:(selector "animatePropertyWithCurrentValue:targetValue:preTickShouldRemoveCallback:newValueCallback:removedCallback:animatableProperty:") ~typ:(id @-> id @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> id @-> returning void) x targetValue preTickShouldRemoveCallback newValueCallback removedCallback animatableProperty +let animatePropertyWithKey x ~view ~forceNew ~currentValue ~targetValue ~preTickShouldRemoveCallback ~newValueCallback ~removedCallback self = msg_send ~self ~cmd:(selector "animatePropertyWithKey:view:forceNew:currentValue:targetValue:preTickShouldRemoveCallback:newValueCallback:removedCallback:") ~typ:(id @-> id @-> bool @-> id @-> id @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> returning void) x view forceNew currentValue targetValue preTickShouldRemoveCallback newValueCallback removedCallback +let animationAndComposerGetter self = msg_send ~self ~cmd:(selector "animationAndComposerGetter") ~typ:(returning (ptr void)) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let isKeySupported x self = msg_send ~self ~cmd:(selector "isKeySupported:") ~typ:(id @-> returning bool) x +let retargeted self = msg_send ~self ~cmd:(selector "retargeted") ~typ:(returning bool) +let setAnimationAndComposerGetter x self = msg_send ~self ~cmd:(selector "setAnimationAndComposerGetter:") ~typ:((ptr void) @-> returning void) x +let setRetargeted x self = msg_send ~self ~cmd:(selector "setRetargeted:") ~typ:(bool @-> returning void) x +let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setupWithDuration x ~delay ~view ~options ~factory ~parentState ~start ~completion self = msg_send ~self ~cmd:(selector "setupWithDuration:delay:view:options:factory:parentState:start:completion:") ~typ:(double @-> double @-> id @-> ullong @-> id @-> id @-> (ptr void) @-> (ptr void) @-> returning void) x delay view (ULLong.of_int options) factory parentState start completion +let shouldAnimatePropertyWithKey x self = msg_send ~self ~cmd:(selector "shouldAnimatePropertyWithKey:") ~typ:(id @-> returning bool) x +let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit_extra/UIViewInProcessAnimationTickEntry.ml b/uikit_extra/UIViewInProcessAnimationTickEntry.ml new file mode 100644 index 00000000..e3647b5b --- /dev/null +++ b/uikit_extra/UIViewInProcessAnimationTickEntry.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewinprocessanimationtickentry?language=objc}UIViewInProcessAnimationTickEntry} *) + +let self = get_class "UIViewInProcessAnimationTickEntry" + +let callback self = msg_send ~self ~cmd:(selector "callback") ~typ:(returning (ptr void)) +let initWithCallback x self = msg_send ~self ~cmd:(selector "initWithCallback:") ~typ:((ptr void) @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIViewInstaneouslyStableAnimation.ml b/uikit_extra/UIViewInstaneouslyStableAnimation.ml new file mode 100644 index 00000000..c3ba98e9 --- /dev/null +++ b/uikit_extra/UIViewInstaneouslyStableAnimation.ml @@ -0,0 +1,21 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewinstaneouslystableanimation?language=objc}UIViewInstaneouslyStableAnimation} *) + +let self = get_class "UIViewInstaneouslyStableAnimation" + +let initWithTargetValue x ~velocity self = msg_send ~self ~cmd:(selector "initWithTargetValue:velocity:") ~typ:(id @-> id @-> returning id) x velocity +let isStable self = msg_send ~self ~cmd:(selector "isStable") ~typ:(returning bool) +let setTargetValue x self = msg_send ~self ~cmd:(selector "setTargetValue:") ~typ:(id @-> returning void) x +let stepWithDelta x self = msg_send ~self ~cmd:(selector "stepWithDelta:") ~typ:(double @-> returning id) x +let targetValue self = msg_send ~self ~cmd:(selector "targetValue") ~typ:(returning id) +let value self = msg_send ~self ~cmd:(selector "value") ~typ:(returning id) +let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIViewKeyframeAnimationState.ml b/uikit_extra/UIViewKeyframeAnimationState.ml new file mode 100644 index 00000000..07efbc44 --- /dev/null +++ b/uikit_extra/UIViewKeyframeAnimationState.ml @@ -0,0 +1,20 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewkeyframeanimationstate?language=objc}UIViewKeyframeAnimationState} *) + +let self = get_class "UIViewKeyframeAnimationState" + +let addKeyframeWithRelativeStartTime x ~relativeDuration ~animations self = msg_send ~self ~cmd:(selector "addKeyframeWithRelativeStartTime:relativeDuration:animations:") ~typ:(double @-> double @-> (ptr void) @-> returning void) x relativeDuration animations +let animationForLayer x ~forKey ~forView self = msg_send ~self ~cmd:(selector "animationForLayer:forKey:forView:") ~typ:(id @-> id @-> id @-> returning id) x forKey forView +let cleanupTrackedLayers self = msg_send ~self ~cmd:(selector "cleanupTrackedLayers") ~typ:(returning void) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let pop self = msg_send ~self ~cmd:(selector "pop") ~typ:(returning void) +let setupWithDuration x ~delay ~view ~options ~factory ~parentState ~start ~completion self = msg_send ~self ~cmd:(selector "setupWithDuration:delay:view:options:factory:parentState:start:completion:") ~typ:(double @-> double @-> id @-> ullong @-> id @-> id @-> (ptr void) @-> (ptr void) @-> returning void) x delay view (ULLong.of_int options) factory parentState start completion \ No newline at end of file diff --git a/uikit_extra/UIViewSpringAnimationBehavior.ml b/uikit_extra/UIViewSpringAnimationBehavior.ml new file mode 100644 index 00000000..a965963f --- /dev/null +++ b/uikit_extra/UIViewSpringAnimationBehavior.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewspringanimationbehavior?language=objc}UIViewSpringAnimationBehavior} *) + +let self = get_class "UIViewSpringAnimationBehavior" + +let inertialProjectionDeceleration self = msg_send ~self ~cmd:(selector "inertialProjectionDeceleration") ~typ:(returning double) +let inertialTargetSmoothing self = msg_send ~self ~cmd:(selector "inertialTargetSmoothing") ~typ:(returning double) +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let parametersForTransitionFromState x ~toState self = msg_send ~self ~cmd:(selector "parametersForTransitionFromState:toState:") ~typ:(int @-> int @-> returning void) x toState +let setDampingRatio x ~response self = msg_send ~self ~cmd:(selector "setDampingRatio:response:") ~typ:(double @-> double @-> returning void) x response +let setInertialProjectionDeceleration x self = msg_send ~self ~cmd:(selector "setInertialProjectionDeceleration:") ~typ:(double @-> returning void) x +let setInertialTargetSmoothing x self = msg_send ~self ~cmd:(selector "setInertialTargetSmoothing:") ~typ:(double @-> returning void) x +let setTrackingDampingRatio x ~response ~dampingRatioSmoothing ~responseSmoothing self = msg_send ~self ~cmd:(selector "setTrackingDampingRatio:response:dampingRatioSmoothing:responseSmoothing:") ~typ:(double @-> double @-> double @-> double @-> returning void) x response dampingRatioSmoothing responseSmoothing \ No newline at end of file diff --git a/uikit_extra/UIViewSpringAnimationBehaviorClass.ml b/uikit_extra/UIViewSpringAnimationBehaviorClass.ml new file mode 100644 index 00000000..cd5d33f7 --- /dev/null +++ b/uikit_extra/UIViewSpringAnimationBehaviorClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewspringanimationbehavior?language=objc}UIViewSpringAnimationBehavior} *) + +let behaviorWithDampingRatio x ~response self = msg_send ~self ~cmd:(selector "behaviorWithDampingRatio:response:") ~typ:(double @-> double @-> returning id) x response \ No newline at end of file diff --git a/uikit_extra/UIViewSpringAnimationDescription.ml b/uikit_extra/UIViewSpringAnimationDescription.ml new file mode 100644 index 00000000..164a6952 --- /dev/null +++ b/uikit_extra/UIViewSpringAnimationDescription.ml @@ -0,0 +1,22 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewspringanimationdescription?language=objc}UIViewSpringAnimationDescription} *) + +let self = get_class "UIViewSpringAnimationDescription" + +let friction self = msg_send ~self ~cmd:(selector "friction") ~typ:(returning double) +let parameters self = msg_send ~self ~cmd:(selector "parameters") ~typ:(returning void) +let setFriction x self = msg_send ~self ~cmd:(selector "setFriction:") ~typ:(double @-> returning void) x +let setParameters x self = msg_send ~self ~cmd:(selector "setParameters:") ~typ:(void @-> returning void) x +let setTension x self = msg_send ~self ~cmd:(selector "setTension:") ~typ:(double @-> returning void) x +let setUsesDampingRatioAndResponse x self = msg_send ~self ~cmd:(selector "setUsesDampingRatioAndResponse:") ~typ:(bool @-> returning void) x +let tension self = msg_send ~self ~cmd:(selector "tension") ~typ:(returning double) +let usesDampingRatioAndResponse self = msg_send ~self ~cmd:(selector "usesDampingRatioAndResponse") ~typ:(returning bool) \ No newline at end of file diff --git a/uikit_extra/UIViewSpringAnimationDescriptionClass.ml b/uikit_extra/UIViewSpringAnimationDescriptionClass.ml new file mode 100644 index 00000000..d0cf727d --- /dev/null +++ b/uikit_extra/UIViewSpringAnimationDescriptionClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewspringanimationdescription?language=objc}UIViewSpringAnimationDescription} *) + +let descriptionWithSpringAnimationParameters x self = msg_send ~self ~cmd:(selector "descriptionWithSpringAnimationParameters:") ~typ:(void @-> returning id) x +let descriptionWithTension x ~friction self = msg_send ~self ~cmd:(selector "descriptionWithTension:friction:") ~typ:(double @-> double @-> returning id) x friction \ No newline at end of file diff --git a/uikit_extra/UIViewSpringAnimationState.ml b/uikit_extra/UIViewSpringAnimationState.ml new file mode 100644 index 00000000..c0f12f12 --- /dev/null +++ b/uikit_extra/UIViewSpringAnimationState.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewspringanimationstate?language=objc}UIViewSpringAnimationState} *) + +let self = get_class "UIViewSpringAnimationState" + +let animationForLayer x ~forKey ~forView self = msg_send ~self ~cmd:(selector "animationForLayer:forKey:forView:") ~typ:(id @-> id @-> id @-> returning id) x forKey forView +let generateSpringPropertiesForDuration x ~damping ~velocity self = msg_send ~self ~cmd:(selector "generateSpringPropertiesForDuration:damping:velocity:") ~typ:(double @-> double @-> double @-> returning void) x damping velocity +let setupWithDuration x ~delay ~view ~options ~factory ~parentState ~start ~completion self = msg_send ~self ~cmd:(selector "setupWithDuration:delay:view:options:factory:parentState:start:completion:") ~typ:(double @-> double @-> id @-> ullong @-> id @-> id @-> (ptr void) @-> (ptr void) @-> returning void) x delay view (ULLong.of_int options) factory parentState start completion \ No newline at end of file diff --git a/uikit_extra/UIViewSpringAnimationStateClass.ml b/uikit_extra/UIViewSpringAnimationStateClass.ml new file mode 100644 index 00000000..59f13eac --- /dev/null +++ b/uikit_extra/UIViewSpringAnimationStateClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewspringanimationstate?language=objc}UIViewSpringAnimationState} *) + +let computeDerivedSpringParameters x ~zeta ~mass ~velocity ~epsilon ~stiffness ~damping self = msg_send ~self ~cmd:(selector "computeDerivedSpringParameters:zeta:mass:velocity:epsilon:stiffness:damping:") ~typ:(double @-> double @-> double @-> double @-> double @-> (ptr double) @-> (ptr double) @-> returning void) x zeta mass velocity epsilon stiffness damping +let computeDerivedSpringParameters' x ~zeta ~mass ~velocity ~epsilon ~stiffness ~damping ~debugging self = msg_send ~self ~cmd:(selector "computeDerivedSpringParameters:zeta:mass:velocity:epsilon:stiffness:damping:debugging:") ~typ:(double @-> double @-> double @-> double @-> double @-> (ptr double) @-> (ptr double) @-> (ptr id) @-> returning void) x zeta mass velocity epsilon stiffness damping debugging +let defaultSpringAnimationForKey x ~mass ~stiffness ~damping ~velocity self = msg_send ~self ~cmd:(selector "defaultSpringAnimationForKey:mass:stiffness:damping:velocity:") ~typ:(id @-> double @-> double @-> double @-> double @-> returning id) x mass stiffness damping velocity \ No newline at end of file diff --git a/uikit_extra/UIViewUpdateVelocityAnimationDescription.ml b/uikit_extra/UIViewUpdateVelocityAnimationDescription.ml new file mode 100644 index 00000000..ee7932e3 --- /dev/null +++ b/uikit_extra/UIViewUpdateVelocityAnimationDescription.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewupdatevelocityanimationdescription?language=objc}UIViewUpdateVelocityAnimationDescription} *) + +let self = get_class "UIViewUpdateVelocityAnimationDescription" + +let initWithVelocity x ~targetVelocity self = msg_send ~self ~cmd:(selector "initWithVelocity:targetVelocity:") ~typ:(id @-> id @-> returning id) x targetVelocity +let setTargetVelocity x self = msg_send ~self ~cmd:(selector "setTargetVelocity:") ~typ:(id @-> returning void) x +let targetVelocity self = msg_send ~self ~cmd:(selector "targetVelocity") ~typ:(returning id) +let velocity self = msg_send ~self ~cmd:(selector "velocity") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIViewUpdateVelocityAnimationDescriptionClass.ml b/uikit_extra/UIViewUpdateVelocityAnimationDescriptionClass.ml new file mode 100644 index 00000000..0103a8bb --- /dev/null +++ b/uikit_extra/UIViewUpdateVelocityAnimationDescriptionClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiviewupdatevelocityanimationdescription?language=objc}UIViewUpdateVelocityAnimationDescription} *) + +let descriptionWithVelocity x ~targetVelocity self = msg_send ~self ~cmd:(selector "descriptionWithVelocity:targetVelocity:") ~typ:(id @-> id @-> returning id) x targetVelocity \ No newline at end of file diff --git a/uikit_extra/UIWKAutocorrectionContext.ml b/uikit_extra/UIWKAutocorrectionContext.ml new file mode 100644 index 00000000..17e44152 --- /dev/null +++ b/uikit_extra/UIWKAutocorrectionContext.ml @@ -0,0 +1,25 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwkautocorrectioncontext?language=objc}UIWKAutocorrectionContext} *) + +let self = get_class "UIWKAutocorrectionContext" + +let contextAfterSelection self = msg_send ~self ~cmd:(selector "contextAfterSelection") ~typ:(returning id) +let contextBeforeSelection self = msg_send ~self ~cmd:(selector "contextBeforeSelection") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let markedText self = msg_send ~self ~cmd:(selector "markedText") ~typ:(returning id) +let rangeInMarkedText self = msg_send ~self ~cmd:(selector "rangeInMarkedText") ~typ:(returning NSRange.t) +let selectedText self = msg_send ~self ~cmd:(selector "selectedText") ~typ:(returning id) +let setContextAfterSelection x self = msg_send ~self ~cmd:(selector "setContextAfterSelection:") ~typ:(id @-> returning void) x +let setContextBeforeSelection x self = msg_send ~self ~cmd:(selector "setContextBeforeSelection:") ~typ:(id @-> returning void) x +let setMarkedText x self = msg_send ~self ~cmd:(selector "setMarkedText:") ~typ:(id @-> returning void) x +let setRangeInMarkedText x self = msg_send ~self ~cmd:(selector "setRangeInMarkedText:") ~typ:(NSRange.t @-> returning void) x +let setSelectedText x self = msg_send ~self ~cmd:(selector "setSelectedText:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIWKAutocorrectionRects.ml b/uikit_extra/UIWKAutocorrectionRects.ml new file mode 100644 index 00000000..b0fe14b7 --- /dev/null +++ b/uikit_extra/UIWKAutocorrectionRects.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwkautocorrectionrects?language=objc}UIWKAutocorrectionRects} *) + +let self = get_class "UIWKAutocorrectionRects" + +let firstRect self = msg_send ~self ~cmd:(selector "firstRect") ~typ:(returning CGRect.t) +let lastRect self = msg_send ~self ~cmd:(selector "lastRect") ~typ:(returning CGRect.t) +let setFirstRect x self = msg_send ~self ~cmd:(selector "setFirstRect:") ~typ:(CGRect.t @-> returning void) x +let setLastRect x self = msg_send ~self ~cmd:(selector "setLastRect:") ~typ:(CGRect.t @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIWKDocumentContext.ml b/uikit_extra/UIWKDocumentContext.ml new file mode 100644 index 00000000..ba0b4c1b --- /dev/null +++ b/uikit_extra/UIWKDocumentContext.ml @@ -0,0 +1,40 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwkdocumentcontext?language=objc}UIWKDocumentContext} *) + +let self = get_class "UIWKDocumentContext" + +let addTextRect x ~forCharacterRange self = msg_send ~self ~cmd:(selector "addTextRect:forCharacterRange:") ~typ:(CGRect.t @-> NSRange.t @-> returning void) x forCharacterRange +let annotatedText self = msg_send ~self ~cmd:(selector "annotatedText") ~typ:(returning id) +let characterRectsForCharacterRange x self = msg_send ~self ~cmd:(selector "characterRectsForCharacterRange:") ~typ:(NSRange.t @-> returning id) x +let closestCharacterIndexForPoint x self = msg_send ~self ~cmd:(selector "closestCharacterIndexForPoint:") ~typ:(CGPoint.t @-> returning ullong) x +let contextAfter self = msg_send ~self ~cmd:(selector "contextAfter") ~typ:(returning id) +let contextBefore self = msg_send ~self ~cmd:(selector "contextBefore") ~typ:(returning id) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let deltaForSelectionRange x self = msg_send ~self ~cmd:(selector "deltaForSelectionRange:") ~typ:(NSRange.t @-> returning NSRange.t) x +let enumerateLayoutRects x self = msg_send ~self ~cmd:(selector "enumerateLayoutRects:") ~typ:((ptr void) @-> returning void) x +let enumerateLayoutRectsWithOptions x ~characterRange ~block self = msg_send ~self ~cmd:(selector "enumerateLayoutRectsWithOptions:characterRange:block:") ~typ:(ullong @-> NSRange.t @-> (ptr void) @-> returning void) (ULLong.of_int x) characterRange block +let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) +let markedText self = msg_send ~self ~cmd:(selector "markedText") ~typ:(returning id) +let markedTextRange self = msg_send ~self ~cmd:(selector "markedTextRange") ~typ:(returning NSRange.t) +let rangeContainedWithinRect x self = msg_send ~self ~cmd:(selector "rangeContainedWithinRect:") ~typ:(CGRect.t @-> returning NSRange.t) x +let resetTextRects self = msg_send ~self ~cmd:(selector "resetTextRects") ~typ:(returning void) +let selectedRangeInMarkedText self = msg_send ~self ~cmd:(selector "selectedRangeInMarkedText") ~typ:(returning NSRange.t) +let selectedText self = msg_send ~self ~cmd:(selector "selectedText") ~typ:(returning id) +let selectedTextRange self = msg_send ~self ~cmd:(selector "selectedTextRange") ~typ:(returning NSRange.t) +let setAnnotatedText x self = msg_send ~self ~cmd:(selector "setAnnotatedText:") ~typ:(id @-> returning void) x +let setContextAfter x self = msg_send ~self ~cmd:(selector "setContextAfter:") ~typ:(id @-> returning void) x +let setContextBefore x self = msg_send ~self ~cmd:(selector "setContextBefore:") ~typ:(id @-> returning void) x +let setMarkedText x self = msg_send ~self ~cmd:(selector "setMarkedText:") ~typ:(id @-> returning void) x +let setSelectedRangeInMarkedText x self = msg_send ~self ~cmd:(selector "setSelectedRangeInMarkedText:") ~typ:(NSRange.t @-> returning void) x +let setSelectedText x self = msg_send ~self ~cmd:(selector "setSelectedText:") ~typ:(id @-> returning void) x +let sortTextRectsByCharacterRange self = msg_send ~self ~cmd:(selector "sortTextRectsByCharacterRange") ~typ:(returning void) +let stringContainedWithinRect x self = msg_send ~self ~cmd:(selector "stringContainedWithinRect:") ~typ:(CGRect.t @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIWKDocumentRequest.ml b/uikit_extra/UIWKDocumentRequest.ml new file mode 100644 index 00000000..10ef091a --- /dev/null +++ b/uikit_extra/UIWKDocumentRequest.ml @@ -0,0 +1,25 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwkdocumentrequest?language=objc}UIWKDocumentRequest} *) + +let self = get_class "UIWKDocumentRequest" + +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let documentRect self = msg_send ~self ~cmd:(selector "documentRect") ~typ:(returning CGRect.t) +let flags self = msg_send ~self ~cmd:(selector "flags") ~typ:(returning llong) +let granularityCount self = msg_send ~self ~cmd:(selector "granularityCount") ~typ:(returning llong) +let inputElementIdentifier self = msg_send ~self ~cmd:(selector "inputElementIdentifier") ~typ:(returning id) +let setDocumentRect x self = msg_send ~self ~cmd:(selector "setDocumentRect:") ~typ:(CGRect.t @-> returning void) x +let setFlags x self = msg_send ~self ~cmd:(selector "setFlags:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setGranularityCount x self = msg_send ~self ~cmd:(selector "setGranularityCount:") ~typ:(llong @-> returning void) (LLong.of_int x) +let setInputElementIdentifier x self = msg_send ~self ~cmd:(selector "setInputElementIdentifier:") ~typ:(id @-> returning void) x +let setSurroundingGranularity x self = msg_send ~self ~cmd:(selector "setSurroundingGranularity:") ~typ:(llong @-> returning void) (LLong.of_int x) +let surroundingGranularity self = msg_send ~self ~cmd:(selector "surroundingGranularity") ~typ:(returning llong) \ No newline at end of file diff --git a/uikit_extra/UIWKTextInteractionAssistant.ml b/uikit_extra/UIWKTextInteractionAssistant.ml new file mode 100644 index 00000000..2b300e4f --- /dev/null +++ b/uikit_extra/UIWKTextInteractionAssistant.ml @@ -0,0 +1,70 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwktextinteractionassistant?language=objc}UIWKTextInteractionAssistant} *) + +let self = get_class "UIWKTextInteractionAssistant" + +let addGestureRecognizersToView x self = msg_send ~self ~cmd:(selector "addGestureRecognizersToView:") ~typ:(id @-> returning void) x +let caretBeforeTap self = msg_send ~self ~cmd:(selector "caretBeforeTap") ~typ:(returning CGRect.t) +let containerAllowsSelection self = msg_send ~self ~cmd:(selector "containerAllowsSelection") ~typ:(returning bool) +let containerAllowsSelectionTintOnly self = msg_send ~self ~cmd:(selector "containerAllowsSelectionTintOnly") ~typ:(returning bool) +let containerIsAtom self = msg_send ~self ~cmd:(selector "containerIsAtom") ~typ:(returning bool) +let containerIsBrowserView self = msg_send ~self ~cmd:(selector "containerIsBrowserView") ~typ:(returning bool) +let currentCursorBehavior self = msg_send ~self ~cmd:(selector "currentCursorBehavior") ~typ:(returning llong) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let didEndScrollingOverflow self = msg_send ~self ~cmd:(selector "didEndScrollingOverflow") ~typ:(returning void) +let hadCaretSelectionBeforeTap self = msg_send ~self ~cmd:(selector "hadCaretSelectionBeforeTap") ~typ:(returning bool) +let hideTextStyleOptions self = msg_send ~self ~cmd:(selector "hideTextStyleOptions") ~typ:(returning void) +let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning id) x +let lookup x ~fromRect self = msg_send ~self ~cmd:(selector "lookup:fromRect:") ~typ:(id @-> CGRect.t @-> returning void) x fromRect +let lookup' x ~withRange ~fromRect self = msg_send ~self ~cmd:(selector "lookup:withRange:fromRect:") ~typ:(id @-> NSRange.t @-> CGRect.t @-> returning void) x withRange fromRect +let overrideGestureRecognizer x ~shouldReceiveTouch self = msg_send ~self ~cmd:(selector "overrideGestureRecognizer:shouldReceiveTouch:") ~typ:(id @-> id @-> returning bool) x shouldReceiveTouch +let overrideGestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "overrideGestureRecognizerShouldBegin:") ~typ:(id @-> returning bool) x +let rangeSelectionCanceled self = msg_send ~self ~cmd:(selector "rangeSelectionCanceled") ~typ:(returning void) +let rangeSelectionEnded x self = msg_send ~self ~cmd:(selector "rangeSelectionEnded:") ~typ:(CGPoint.t @-> returning void) x +let rangeSelectionMoved x ~withTouchPoint self = msg_send ~self ~cmd:(selector "rangeSelectionMoved:withTouchPoint:") ~typ:(CGPoint.t @-> CGPoint.t @-> returning void) x withTouchPoint +let rangeSelectionStarted x self = msg_send ~self ~cmd:(selector "rangeSelectionStarted:") ~typ:(CGPoint.t @-> returning void) x +let requiresImmediateUpdate self = msg_send ~self ~cmd:(selector "requiresImmediateUpdate") ~typ:(returning bool) +let scheduleChineseTransliterationForText x self = msg_send ~self ~cmd:(selector "scheduleChineseTransliterationForText:") ~typ:(id @-> returning void) x +let scheduleReplacementsForText x self = msg_send ~self ~cmd:(selector "scheduleReplacementsForText:") ~typ:(id @-> returning void) x +let scheduleReplacementsForText' x ~withOptions self = msg_send ~self ~cmd:(selector "scheduleReplacementsForText:withOptions:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int withOptions) +let scheduleReplacementsWithOptions x self = msg_send ~self ~cmd:(selector "scheduleReplacementsWithOptions:") ~typ:(ullong @-> returning void) (ULLong.of_int x) +let scrollSelectionToVisible x self = msg_send ~self ~cmd:(selector "scrollSelectionToVisible:") ~typ:(bool @-> returning void) x +let selectAll x self = msg_send ~self ~cmd:(selector "selectAll:") ~typ:(id @-> returning void) x +let selectTextForReplacement x ~withOptions self = msg_send ~self ~cmd:(selector "selectTextForReplacement:withOptions:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int withOptions) +let selectWord self = msg_send ~self ~cmd:(selector "selectWord") ~typ:(returning void) +let selectionChanged self = msg_send ~self ~cmd:(selector "selectionChanged") ~typ:(returning void) +let selectionChangedWithGestureAt x ~withGesture ~withState ~withFlags self = msg_send ~self ~cmd:(selector "selectionChangedWithGestureAt:withGesture:withState:withFlags:") ~typ:(CGPoint.t @-> llong @-> llong @-> llong @-> returning void) x (LLong.of_int withGesture) (LLong.of_int withState) (LLong.of_int withFlags) +let selectionChangedWithTouchAt x ~withSelectionTouch ~withFlags self = msg_send ~self ~cmd:(selector "selectionChangedWithTouchAt:withSelectionTouch:withFlags:") ~typ:(CGPoint.t @-> llong @-> llong @-> returning void) x (LLong.of_int withSelectionTouch) (LLong.of_int withFlags) +let selectionInteractionClass self = msg_send ~self ~cmd:(selector "selectionInteractionClass") ~typ:(returning _Class) +let setCaretBeforeTap x self = msg_send ~self ~cmd:(selector "setCaretBeforeTap:") ~typ:(CGRect.t @-> returning void) x +let setHadCaretSelectionBeforeTap x self = msg_send ~self ~cmd:(selector "setHadCaretSelectionBeforeTap:") ~typ:(bool @-> returning void) x +let setShouldDelayActivatingSelectionView x self = msg_send ~self ~cmd:(selector "setShouldDelayActivatingSelectionView:") ~typ:(bool @-> returning void) x +let setWordBeforeTap x self = msg_send ~self ~cmd:(selector "setWordBeforeTap:") ~typ:(id @-> returning void) x +let shouldDelayActivatingSelectionView self = msg_send ~self ~cmd:(selector "shouldDelayActivatingSelectionView") ~typ:(returning bool) +let shouldSuppressSelectionCommands self = msg_send ~self ~cmd:(selector "shouldSuppressSelectionCommands") ~typ:(returning bool) +let shouldTryReplacementsForText x ~withOptions self = msg_send ~self ~cmd:(selector "shouldTryReplacementsForText:withOptions:") ~typ:(id @-> ullong @-> returning bool) x (ULLong.of_int withOptions) +let showDictionaryFor x ~fromRect self = msg_send ~self ~cmd:(selector "showDictionaryFor:fromRect:") ~typ:(id @-> CGRect.t @-> returning void) x fromRect +let showReplacementsForText x ~withOptions self = msg_send ~self ~cmd:(selector "showReplacementsForText:withOptions:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int withOptions) +let showSelectionView self = msg_send ~self ~cmd:(selector "showSelectionView") ~typ:(returning void) +let showShareSheetFor x ~fromRect self = msg_send ~self ~cmd:(selector "showShareSheetFor:fromRect:") ~typ:(id @-> CGRect.t @-> returning void) x fromRect +let showTextServiceFor x ~fromRect self = msg_send ~self ~cmd:(selector "showTextServiceFor:fromRect:") ~typ:(id @-> CGRect.t @-> returning void) x fromRect +let showTextStyleOptions self = msg_send ~self ~cmd:(selector "showTextStyleOptions") ~typ:(returning void) +let textChecker self = msg_send ~self ~cmd:(selector "textChecker") ~typ:(returning id) +let translate x ~fromRect self = msg_send ~self ~cmd:(selector "translate:fromRect:") ~typ:(id @-> CGRect.t @-> returning void) x fromRect +let updateActivatingSelectionView self = msg_send ~self ~cmd:(selector "updateActivatingSelectionView") ~typ:(returning void) +let updateSelectionWithPoint x self = msg_send ~self ~cmd:(selector "updateSelectionWithPoint:") ~typ:(CGPoint.t @-> returning void) x +let updateWithMagnifierTerminalPoint x self = msg_send ~self ~cmd:(selector "updateWithMagnifierTerminalPoint:") ~typ:(bool @-> returning void) x +let usesAsynchronousSelectionController self = msg_send ~self ~cmd:(selector "usesAsynchronousSelectionController") ~typ:(returning bool) +let wantsLinkInteraction self = msg_send ~self ~cmd:(selector "wantsLinkInteraction") ~typ:(returning bool) +let willChangeSelection self = msg_send ~self ~cmd:(selector "willChangeSelection") ~typ:(returning void) +let willStartScrollingOverflow self = msg_send ~self ~cmd:(selector "willStartScrollingOverflow") ~typ:(returning void) +let wordBeforeTap self = msg_send ~self ~cmd:(selector "wordBeforeTap") ~typ:(returning id) \ No newline at end of file diff --git a/uikit_extra/UIWKTextSelectionInteraction.ml b/uikit_extra/UIWKTextSelectionInteraction.ml new file mode 100644 index 00000000..f86f696b --- /dev/null +++ b/uikit_extra/UIWKTextSelectionInteraction.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwktextselectioninteraction?language=objc}UIWKTextSelectionInteraction} *) + +let self = get_class "UIWKTextSelectionInteraction" + +let didUpdateSelectionWithGesture x self = msg_send ~self ~cmd:(selector "didUpdateSelectionWithGesture:") ~typ:(id @-> returning void) x +let twoFingerRangedSelectGesture x self = msg_send ~self ~cmd:(selector "twoFingerRangedSelectGesture:") ~typ:(id @-> returning void) x +let willUpdateSelectionWithGesture x self = msg_send ~self ~cmd:(selector "willUpdateSelectionWithGesture:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIWebBrowserFindOnPageHighlighter.ml b/uikit_extra/UIWebBrowserFindOnPageHighlighter.ml new file mode 100644 index 00000000..f9ad1651 --- /dev/null +++ b/uikit_extra/UIWebBrowserFindOnPageHighlighter.ml @@ -0,0 +1,36 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebbrowserfindonpagehighlighter?language=objc}UIWebBrowserFindOnPageHighlighter} *) + +let self = get_class "UIWebBrowserFindOnPageHighlighter" + +let clearBrowserView self = msg_send ~self ~cmd:(selector "clearBrowserView") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) +let findOnPageOptions self = msg_send ~self ~cmd:(selector "findOnPageOptions") ~typ:(returning ullong) +let highlightNextMatch self = msg_send ~self ~cmd:(selector "highlightNextMatch") ~typ:(returning void) +let highlightPreviousMatch self = msg_send ~self ~cmd:(selector "highlightPreviousMatch") ~typ:(returning void) +let highlightedMatchIndex self = msg_send ~self ~cmd:(selector "highlightedMatchIndex") ~typ:(returning ullong) +let initWithBrowserView x self = msg_send ~self ~cmd:(selector "initWithBrowserView:") ~typ:(id @-> returning id) x +let initWithPDFViewHandler x self = msg_send ~self ~cmd:(selector "initWithPDFViewHandler:") ~typ:(id @-> returning id) x +let numberOfMatches self = msg_send ~self ~cmd:(selector "numberOfMatches") ~typ:(returning ullong) +let search x ~hasPartialResults self = msg_send ~self ~cmd:(selector "search:hasPartialResults:") ~typ:(id @-> id @-> returning void) x hasPartialResults +let searchDidBegin x self = msg_send ~self ~cmd:(selector "searchDidBegin:") ~typ:(id @-> returning void) x +let searchDidFinish x self = msg_send ~self ~cmd:(selector "searchDidFinish:") ~typ:(id @-> returning void) x +let searchDidTimeOut x self = msg_send ~self ~cmd:(selector "searchDidTimeOut:") ~typ:(id @-> returning void) x +let searchLimitHit x self = msg_send ~self ~cmd:(selector "searchLimitHit:") ~typ:(id @-> returning void) x +let searchText self = msg_send ~self ~cmd:(selector "searchText") ~typ:(returning id) +let searchWasCancelled x self = msg_send ~self ~cmd:(selector "searchWasCancelled:") ~typ:(id @-> returning void) x +let setDelegate x self = msg_send ~self ~cmd:(selector "setDelegate:") ~typ:(id @-> returning void) x +let setSearchText x ~matchLimit self = msg_send ~self ~cmd:(selector "setSearchText:matchLimit:") ~typ:(id @-> ullong @-> returning void) x (ULLong.of_int matchLimit) +let setSelectionRect x ~textRects ~contentImage ~wobble self = msg_send ~self ~cmd:(selector "setSelectionRect:textRects:contentImage:wobble:") ~typ:(CGRect.t @-> id @-> (ptr CGImage.t) @-> bool @-> returning void) x textRects contentImage wobble +let setSelectionRect' x ~textRects ~contentViews ~wobble self = msg_send ~self ~cmd:(selector "setSelectionRect:textRects:contentViews:wobble:") ~typ:(CGRect.t @-> id @-> id @-> bool @-> returning void) x textRects contentViews wobble +let updateHighlightBubbleWobble x self = msg_send ~self ~cmd:(selector "updateHighlightBubbleWobble:") ~typ:(bool @-> returning bool) x \ No newline at end of file diff --git a/uikit_extra/UIWebBrowserFindOnPageHighlighterClass.ml b/uikit_extra/UIWebBrowserFindOnPageHighlighterClass.ml new file mode 100644 index 00000000..08f22846 --- /dev/null +++ b/uikit_extra/UIWebBrowserFindOnPageHighlighterClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebbrowserfindonpagehighlighter?language=objc}UIWebBrowserFindOnPageHighlighter} *) + +let expandedRectsWouldIntersect x self = msg_send ~self ~cmd:(selector "expandedRectsWouldIntersect:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/uikit_extra/UIWebFormDateTimePeripheral.ml b/uikit_extra/UIWebFormDateTimePeripheral.ml new file mode 100644 index 00000000..7aab07a3 --- /dev/null +++ b/uikit_extra/UIWebFormDateTimePeripheral.ml @@ -0,0 +1,19 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebformdatetimeperipheral?language=objc}UIWebFormDateTimePeripheral} *) + +let self = get_class "UIWebFormDateTimePeripheral" + +let assistantView self = msg_send ~self ~cmd:(selector "assistantView") ~typ:(returning id) +let beginEditing self = msg_send ~self ~cmd:(selector "beginEditing") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let endEditing self = msg_send ~self ~cmd:(selector "endEditing") ~typ:(returning void) +let initWithDOMHTMLInputElement x self = msg_send ~self ~cmd:(selector "initWithDOMHTMLInputElement:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIWebFormDateTimePeripheralClass.ml b/uikit_extra/UIWebFormDateTimePeripheralClass.ml new file mode 100644 index 00000000..d4ff0bf3 --- /dev/null +++ b/uikit_extra/UIWebFormDateTimePeripheralClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebformdatetimeperipheral?language=objc}UIWebFormDateTimePeripheral} *) + +let createPeripheralWithDOMHTMLInputElement x self = msg_send ~self ~cmd:(selector "createPeripheralWithDOMHTMLInputElement:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/UIWebFormRotatingAccessoryPopover.ml b/uikit_extra/UIWebFormRotatingAccessoryPopover.ml new file mode 100644 index 00000000..07df7d8c --- /dev/null +++ b/uikit_extra/UIWebFormRotatingAccessoryPopover.ml @@ -0,0 +1,18 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwebformrotatingaccessorypopover?language=objc}UIWebFormRotatingAccessoryPopover} *) + +let self = get_class "UIWebFormRotatingAccessoryPopover" + +let accessoryDone self = msg_send ~self ~cmd:(selector "accessoryDone") ~typ:(returning void) +let initWithDOMNode x self = msg_send ~self ~cmd:(selector "initWithDOMNode:") ~typ:(id @-> returning id) x +let popoverArrowDirections self = msg_send ~self ~cmd:(selector "popoverArrowDirections") ~typ:(returning ullong) +let popoverWasDismissed x self = msg_send ~self ~cmd:(selector "popoverWasDismissed:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/uikit_extra/UIWebPDFLabelView.ml b/uikit_extra/UIWebPDFLabelView.ml deleted file mode 100644 index 65919518..00000000 --- a/uikit_extra/UIWebPDFLabelView.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIWebPDFLabelView" - -let clearTimer self = msg_send ~self ~cmd:(selector "clearTimer") ~typ:(returning (void)) -let currentPageIndex self = msg_send ~self ~cmd:(selector "currentPageIndex") ~typ:(returning (ullong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let fadeOut self = msg_send ~self ~cmd:(selector "fadeOut") ~typ:(returning (void)) -let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning (id)) x -let isTimerInstalled self = msg_send ~self ~cmd:(selector "isTimerInstalled") ~typ:(returning (bool)) -let setCurrentPageIndex x self = msg_send ~self ~cmd:(selector "setCurrentPageIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setText x self = msg_send ~self ~cmd:(selector "setText:") ~typ:(id @-> returning (void)) x -let showNowInSuperView x ~atOrigin ~withText ~animated self = msg_send ~self ~cmd:(selector "showNowInSuperView:atOrigin:withText:animated:") ~typ:(id @-> CGPoint.t @-> id @-> bool @-> returning (void)) x atOrigin withText animated -let sizeToFit self = msg_send ~self ~cmd:(selector "sizeToFit") ~typ:(returning (void)) \ No newline at end of file diff --git a/uikit_extra/UIWebPDFLinkAction.ml b/uikit_extra/UIWebPDFLinkAction.ml deleted file mode 100644 index cbc9daeb..00000000 --- a/uikit_extra/UIWebPDFLinkAction.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIWebPDFLinkAction" - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let handler self = msg_send ~self ~cmd:(selector "handler") ~typ:(returning (ptr void)) -let setHandler x self = msg_send ~self ~cmd:(selector "setHandler:") ~typ:(ptr void @-> returning (void)) x -let setTitle x self = msg_send ~self ~cmd:(selector "setTitle:") ~typ:(id @-> returning (void)) x -let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(int @-> returning (void)) x -let title self = msg_send ~self ~cmd:(selector "title") ~typ:(returning (id)) -let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (int)) \ No newline at end of file diff --git a/uikit_extra/UIWebPDFSearchController.ml b/uikit_extra/UIWebPDFSearchController.ml deleted file mode 100644 index 9ab85902..00000000 --- a/uikit_extra/UIWebPDFSearchController.ml +++ /dev/null @@ -1,38 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIWebPDFSearchController" - -let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let documentScale self = msg_send ~self ~cmd:(selector "documentScale") ~typ:(returning (double)) -let documentToSearch self = msg_send ~self ~cmd:(selector "documentToSearch") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let pause self = msg_send ~self ~cmd:(selector "pause") ~typ:(returning (void)) -let paused self = msg_send ~self ~cmd:(selector "paused") ~typ:(returning (bool)) -let resultLimit self = msg_send ~self ~cmd:(selector "resultLimit") ~typ:(returning (ullong)) -let results self = msg_send ~self ~cmd:(selector "results") ~typ:(returning (id)) -let resume self = msg_send ~self ~cmd:(selector "resume") ~typ:(returning (void)) -let search x self = msg_send ~self ~cmd:(selector "search:") ~typ:(id @-> returning (void)) x -let search' x ~hasPartialResults self = msg_send ~self ~cmd:(selector "search:hasPartialResults:") ~typ:(id @-> id @-> returning (void)) x hasPartialResults -let searchDelegate self = msg_send ~self ~cmd:(selector "searchDelegate") ~typ:(returning (id)) -let searchDidBegin x self = msg_send ~self ~cmd:(selector "searchDidBegin:") ~typ:(id @-> returning (void)) x -let searchDidFinish x self = msg_send ~self ~cmd:(selector "searchDidFinish:") ~typ:(id @-> returning (void)) x -let searchDidTimeOut x self = msg_send ~self ~cmd:(selector "searchDidTimeOut:") ~typ:(id @-> returning (void)) x -let searchLimitHit x self = msg_send ~self ~cmd:(selector "searchLimitHit:") ~typ:(id @-> returning (void)) x -let searchString self = msg_send ~self ~cmd:(selector "searchString") ~typ:(returning (id)) -let searchWasCancelled x self = msg_send ~self ~cmd:(selector "searchWasCancelled:") ~typ:(id @-> returning (void)) x -let searching self = msg_send ~self ~cmd:(selector "searching") ~typ:(returning (bool)) -let setDocumentScale x self = msg_send ~self ~cmd:(selector "setDocumentScale:") ~typ:(double @-> returning (void)) x -let setDocumentToSearch x self = msg_send ~self ~cmd:(selector "setDocumentToSearch:") ~typ:(id @-> returning (void)) x -let setResultLimit x self = msg_send ~self ~cmd:(selector "setResultLimit:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setResults x self = msg_send ~self ~cmd:(selector "setResults:") ~typ:(id @-> returning (void)) x -let setSearchDelegate x self = msg_send ~self ~cmd:(selector "setSearchDelegate:") ~typ:(id @-> returning (void)) x -let setSearchString x self = msg_send ~self ~cmd:(selector "setSearchString:") ~typ:(id @-> returning (void)) x -let setStartingPageIndex x self = msg_send ~self ~cmd:(selector "setStartingPageIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let startingPageIndex self = msg_send ~self ~cmd:(selector "startingPageIndex") ~typ:(returning (ullong)) \ No newline at end of file diff --git a/uikit_extra/UIWebPDFSearchOperation.ml b/uikit_extra/UIWebPDFSearchOperation.ml deleted file mode 100644 index 914d9aa2..00000000 --- a/uikit_extra/UIWebPDFSearchOperation.ml +++ /dev/null @@ -1,31 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIWebPDFSearchOperation" - -let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning (void)) -let currentPageIndex self = msg_send ~self ~cmd:(selector "currentPageIndex") ~typ:(returning (ullong)) -let currentPageResultCount self = msg_send ~self ~cmd:(selector "currentPageResultCount") ~typ:(returning (ullong)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let documentScale self = msg_send ~self ~cmd:(selector "documentScale") ~typ:(returning (double)) -let documentToSearch self = msg_send ~self ~cmd:(selector "documentToSearch") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let main self = msg_send ~self ~cmd:(selector "main") ~typ:(returning (void)) -let numberOfResultsToSkip self = msg_send ~self ~cmd:(selector "numberOfResultsToSkip") ~typ:(returning (ullong)) -let resultLimit self = msg_send ~self ~cmd:(selector "resultLimit") ~typ:(returning (ullong)) -let sanitizedAttributedStringForAttributedString x self = msg_send ~self ~cmd:(selector "sanitizedAttributedStringForAttributedString:") ~typ:(id @-> returning (id)) x -let searchDelegate self = msg_send ~self ~cmd:(selector "searchDelegate") ~typ:(returning (id)) -let searchString self = msg_send ~self ~cmd:(selector "searchString") ~typ:(returning (id)) -let setDocumentScale x self = msg_send ~self ~cmd:(selector "setDocumentScale:") ~typ:(double @-> returning (void)) x -let setDocumentToSearch x self = msg_send ~self ~cmd:(selector "setDocumentToSearch:") ~typ:(id @-> returning (void)) x -let setNumberOfResultsToSkip x self = msg_send ~self ~cmd:(selector "setNumberOfResultsToSkip:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setResultLimit x self = msg_send ~self ~cmd:(selector "setResultLimit:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setSearchDelegate x self = msg_send ~self ~cmd:(selector "setSearchDelegate:") ~typ:(id @-> returning (void)) x -let setSearchString x self = msg_send ~self ~cmd:(selector "setSearchString:") ~typ:(id @-> returning (void)) x -let setStartingPageIndex x self = msg_send ~self ~cmd:(selector "setStartingPageIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let startingPageIndex self = msg_send ~self ~cmd:(selector "startingPageIndex") ~typ:(returning (ullong)) \ No newline at end of file diff --git a/uikit_extra/UIWebPDFSearchResult.ml b/uikit_extra/UIWebPDFSearchResult.ml deleted file mode 100644 index 73182a2d..00000000 --- a/uikit_extra/UIWebPDFSearchResult.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIWebPDFSearchResult" - -let boundingBox self = msg_send_stret ~self ~cmd:(selector "boundingBox") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let pageIndex self = msg_send ~self ~cmd:(selector "pageIndex") ~typ:(returning (ullong)) -let rects self = msg_send ~self ~cmd:(selector "rects") ~typ:(returning (id)) -let rotationAngles self = msg_send ~self ~cmd:(selector "rotationAngles") ~typ:(returning (id)) -let setBoundingBox x self = msg_send ~self ~cmd:(selector "setBoundingBox:") ~typ:(CGRect.t @-> returning (void)) x -let setPageIndex x self = msg_send ~self ~cmd:(selector "setPageIndex:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setRects x self = msg_send ~self ~cmd:(selector "setRects:") ~typ:(id @-> returning (void)) x -let setRotationAngles x self = msg_send ~self ~cmd:(selector "setRotationAngles:") ~typ:(id @-> returning (void)) x -let setString x self = msg_send ~self ~cmd:(selector "setString:") ~typ:(id @-> returning (void)) x -let setStrings x self = msg_send ~self ~cmd:(selector "setStrings:") ~typ:(id @-> returning (void)) x -let string_ self = msg_send ~self ~cmd:(selector "string") ~typ:(returning (id)) -let strings self = msg_send ~self ~cmd:(selector "strings") ~typ:(returning (id)) \ No newline at end of file diff --git a/uikit_extra/UIWebPDFView.ml b/uikit_extra/UIWebPDFView.ml deleted file mode 100644 index f0bf536a..00000000 --- a/uikit_extra/UIWebPDFView.ml +++ /dev/null @@ -1,72 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIWebPDFView" - -module C = struct - let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning (void)) - let setAsPDFDocRepAndView self = msg_send ~self ~cmd:(selector "setAsPDFDocRepAndView") ~typ:(returning (void)) -end - -let annotation x ~isBeingPressedAtPoint ~controller self = msg_send ~self ~cmd:(selector "annotation:isBeingPressedAtPoint:controller:") ~typ:(id @-> CGPoint.t @-> id @-> returning (void)) x isBeingPressedAtPoint controller -let annotation' x ~wasTouchedAtPoint ~controller self = msg_send ~self ~cmd:(selector "annotation:wasTouchedAtPoint:controller:") ~typ:(id @-> CGPoint.t @-> id @-> returning (void)) x wasTouchedAtPoint controller -let backgroundColorForUnRenderedContent self = msg_send ~self ~cmd:(selector "backgroundColorForUnRenderedContent") ~typ:(returning (id)) -let canPerformAction x ~withSender self = msg_send ~self ~cmd:(selector "canPerformAction:withSender:") ~typ:(_SEL @-> id @-> returning (bool)) x withSender -let cgPDFDocument self = msg_send ~self ~cmd:(selector "cgPDFDocument") ~typ:(returning (ptr void)) -let clearSelection self = msg_send ~self ~cmd:(selector "clearSelection") ~typ:(returning (void)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didCompleteLayout self = msg_send ~self ~cmd:(selector "didCompleteLayout") ~typ:(returning (void)) -let didReceiveMemoryWarning x self = msg_send ~self ~cmd:(selector "didReceiveMemoryWarning:") ~typ:(id @-> returning (void)) x -let didRotate x self = msg_send ~self ~cmd:(selector "didRotate:") ~typ:(id @-> returning (void)) x -let didZoom x self = msg_send ~self ~cmd:(selector "didZoom:") ~typ:(id @-> returning (void)) x -let document self = msg_send ~self ~cmd:(selector "document") ~typ:(returning (id)) -let documentBounds self = msg_send_stret ~self ~cmd:(selector "documentBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let documentData self = msg_send ~self ~cmd:(selector "documentData") ~typ:(returning (id)) -let documentPassword self = msg_send ~self ~cmd:(selector "documentPassword") ~typ:(returning (id)) -let documentScale self = msg_send ~self ~cmd:(selector "documentScale") ~typ:(returning (double)) -let documentURL self = msg_send ~self ~cmd:(selector "documentURL") ~typ:(returning (id)) -let ensureCorrectPagesAreInstalled x self = msg_send ~self ~cmd:(selector "ensureCorrectPagesAreInstalled:") ~typ:(bool @-> returning (void)) x -let firstVisiblePageNumber self = msg_send ~self ~cmd:(selector "firstVisiblePageNumber") ~typ:(returning (ullong)) -let gestureRecognizerShouldBegin x self = msg_send ~self ~cmd:(selector "gestureRecognizerShouldBegin:") ~typ:(id @-> returning (bool)) x -let hideActivityIndicatorForUnRenderedContent self = msg_send ~self ~cmd:(selector "hideActivityIndicatorForUnRenderedContent") ~typ:(returning (bool)) -let hidePageViewsUntilReadyToRender self = msg_send ~self ~cmd:(selector "hidePageViewsUntilReadyToRender") ~typ:(returning (bool)) -let ignoreContentOffsetChanges self = msg_send ~self ~cmd:(selector "ignoreContentOffsetChanges") ~typ:(returning (llong)) -let imageForContactRect x ~onPageInViewRect ~destinationRect self = msg_send ~self ~cmd:(selector "imageForContactRect:onPageInViewRect:destinationRect:") ~typ:(CGRect.t @-> CGRect.t @-> CGRect.t @-> returning (id)) x onPageInViewRect destinationRect -let initWithWebPDFViewPlaceholder x self = msg_send ~self ~cmd:(selector "initWithWebPDFViewPlaceholder:") ~typ:(id @-> returning (id)) x -let initialZoomScale self = msg_send ~self ~cmd:(selector "initialZoomScale") ~typ:(returning (double)) -let observeValueForKeyPath x ~ofObject ~change ~context self = msg_send ~self ~cmd:(selector "observeValueForKeyPath:ofObject:change:context:") ~typ:(id @-> id @-> id @-> ptr (void) @-> returning (void)) x ofObject change context -let pageMinYs self = msg_send ~self ~cmd:(selector "pageMinYs") ~typ:(returning (id)) -let pageRects self = msg_send ~self ~cmd:(selector "pageRects") ~typ:(returning (id)) -let pdfDelegate self = msg_send ~self ~cmd:(selector "pdfDelegate") ~typ:(returning (id)) -let pdfPlaceHolderView self = msg_send ~self ~cmd:(selector "pdfPlaceHolderView") ~typ:(returning (id)) -let prepareForSnapshot x self = msg_send ~self ~cmd:(selector "prepareForSnapshot:") ~typ:(bool @-> returning (void)) x -let readyForSnapshot self = msg_send ~self ~cmd:(selector "readyForSnapshot") ~typ:(returning (bool)) -let resetZoom x self = msg_send ~self ~cmd:(selector "resetZoom:") ~typ:(id @-> returning (void)) x -let setBackgroundColorForUnRenderedContent x self = msg_send ~self ~cmd:(selector "setBackgroundColorForUnRenderedContent:") ~typ:(id @-> returning (void)) x -let setDocumentPassword x self = msg_send ~self ~cmd:(selector "setDocumentPassword:") ~typ:(id @-> returning (void)) x -let setDocumentTransform x self = msg_send ~self ~cmd:(selector "setDocumentTransform:") ~typ:(ptr void @-> returning (void)) x -let setDocumentURL x self = msg_send ~self ~cmd:(selector "setDocumentURL:") ~typ:(id @-> returning (void)) x -let setHideActivityIndicatorForUnRenderedContent x self = msg_send ~self ~cmd:(selector "setHideActivityIndicatorForUnRenderedContent:") ~typ:(bool @-> returning (void)) x -let setHidePageViewsUntilReadyToRender x self = msg_send ~self ~cmd:(selector "setHidePageViewsUntilReadyToRender:") ~typ:(bool @-> returning (void)) x -let setIgnoreContentOffsetChanges x self = msg_send ~self ~cmd:(selector "setIgnoreContentOffsetChanges:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setInitialZoomScale x self = msg_send ~self ~cmd:(selector "setInitialZoomScale:") ~typ:(double @-> returning (void)) x -let setPageMinYs x self = msg_send ~self ~cmd:(selector "setPageMinYs:") ~typ:(id @-> returning (void)) x -let setPageRects x self = msg_send ~self ~cmd:(selector "setPageRects:") ~typ:(id @-> returning (void)) x -let setPdfDelegate x self = msg_send ~self ~cmd:(selector "setPdfDelegate:") ~typ:(id @-> returning (void)) x -let setPdfPlaceHolderView x self = msg_send ~self ~cmd:(selector "setPdfPlaceHolderView:") ~typ:(id @-> returning (void)) x -let setReadyForSnapshot x self = msg_send ~self ~cmd:(selector "setReadyForSnapshot:") ~typ:(bool @-> returning (void)) x -let snapshotComplete self = msg_send ~self ~cmd:(selector "snapshotComplete") ~typ:(returning (void)) -let totalPages self = msg_send ~self ~cmd:(selector "totalPages") ~typ:(returning (ullong)) -let uiPDFDocument self = msg_send ~self ~cmd:(selector "uiPDFDocument") ~typ:(returning (id)) -let viewAtIndex x self = msg_send ~self ~cmd:(selector "viewAtIndex:") ~typ:(llong @-> returning (id)) (LLong.of_int x) -let viewWillClose self = msg_send ~self ~cmd:(selector "viewWillClose") ~typ:(returning (void)) -let viewportView self = msg_send ~self ~cmd:(selector "viewportView") ~typ:(returning (id)) -let willRotate x self = msg_send ~self ~cmd:(selector "willRotate:") ~typ:(id @-> returning (void)) x -let willScroll x self = msg_send ~self ~cmd:(selector "willScroll:") ~typ:(id @-> returning (void)) x -let willZoom x self = msg_send ~self ~cmd:(selector "willZoom:") ~typ:(id @-> returning (void)) x -let zoom x ~to_ ~atPoint ~kind self = msg_send ~self ~cmd:(selector "zoom:to:atPoint:kind:") ~typ:(id @-> CGRect.t @-> CGPoint.t @-> int @-> returning (void)) x to_ atPoint kind \ No newline at end of file diff --git a/uikit_extra/UIWebPDFViewHandler.ml b/uikit_extra/UIWebPDFViewHandler.ml deleted file mode 100644 index 366afec7..00000000 --- a/uikit_extra/UIWebPDFViewHandler.ml +++ /dev/null @@ -1,82 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "UIWebPDFViewHandler" - -let activeRectForRectOfInterest x self = msg_send_stret ~self ~cmd:(selector "activeRectForRectOfInterest:") ~typ:(CGRect.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let adjustZoomScalesForScrollView self = msg_send ~self ~cmd:(selector "adjustZoomScalesForScrollView") ~typ:(returning (void)) -let backgroundColorForUnRenderedContent self = msg_send ~self ~cmd:(selector "backgroundColorForUnRenderedContent") ~typ:(returning (id)) -let clearActionSheet self = msg_send ~self ~cmd:(selector "clearActionSheet") ~typ:(returning (void)) -let clearAllViews self = msg_send ~self ~cmd:(selector "clearAllViews") ~typ:(returning (void)) -let clearLinkHighlight self = msg_send ~self ~cmd:(selector "clearLinkHighlight") ~typ:(returning (void)) -let clearPageLabel self = msg_send ~self ~cmd:(selector "clearPageLabel") ~typ:(returning (void)) -let clearSearchControllerForHighlighter x self = msg_send ~self ~cmd:(selector "clearSearchControllerForHighlighter:") ~typ:(id @-> returning (void)) x -let considerHeightForDoubleTap self = msg_send ~self ~cmd:(selector "considerHeightForDoubleTap") ~typ:(returning (bool)) -let considerHeightOfRectOfInterestForRotation self = msg_send ~self ~cmd:(selector "considerHeightOfRectOfInterestForRotation") ~typ:(returning (bool)) -let contentView self = msg_send ~self ~cmd:(selector "contentView") ~typ:(returning (id)) -let createLinkHighlight self = msg_send ~self ~cmd:(selector "createLinkHighlight") ~typ:(returning (id)) -let createPageLabel self = msg_send ~self ~cmd:(selector "createPageLabel") ~typ:(returning (id)) -let currentDocumentScale self = msg_send ~self ~cmd:(selector "currentDocumentScale") ~typ:(returning (double)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let didBeginEditingPassword x ~inView self = msg_send ~self ~cmd:(selector "didBeginEditingPassword:inView:") ~typ:(id @-> id @-> returning (void)) x inView -let didDetermineDocumentBounds x self = msg_send ~self ~cmd:(selector "didDetermineDocumentBounds:") ~typ:(id @-> returning (void)) x -let didEndEditingPassword x ~inView self = msg_send ~self ~cmd:(selector "didEndEditingPassword:inView:") ~typ:(id @-> id @-> returning (void)) x inView -let didReceiveMemoryWarning x self = msg_send ~self ~cmd:(selector "didReceiveMemoryWarning:") ~typ:(id @-> returning (void)) x -let didScroll x self = msg_send ~self ~cmd:(selector "didScroll:") ~typ:(id @-> returning (void)) x -let enclosingScrollView self = msg_send ~self ~cmd:(selector "enclosingScrollView") ~typ:(returning (id)) -let ensureCorrectPagesAreInstalled x self = msg_send ~self ~cmd:(selector "ensureCorrectPagesAreInstalled:") ~typ:(bool @-> returning (void)) x -let findOnPageHighlighter self = msg_send ~self ~cmd:(selector "findOnPageHighlighter") ~typ:(returning (id)) -let frontView self = msg_send ~self ~cmd:(selector "frontView") ~typ:(returning (id)) -let handleLinkClick x ~inRect self = msg_send ~self ~cmd:(selector "handleLinkClick:inRect:") ~typ:(id @-> CGRect.t @-> returning (void)) x inRect -let handleLongPressOnLink x ~atPoint ~inRect ~contentRect self = msg_send ~self ~cmd:(selector "handleLongPressOnLink:atPoint:inRect:contentRect:") ~typ:(id @-> CGPoint.t @-> CGRect.t @-> CGRect.t @-> returning (void)) x atPoint inRect contentRect -let handleScrollToAnchor x self = msg_send ~self ~cmd:(selector "handleScrollToAnchor:") ~typ:(id @-> returning (void)) x -let heightToKeepVisible self = msg_send ~self ~cmd:(selector "heightToKeepVisible") ~typ:(returning (double)) -let hideActivityIndicatorForUnRenderedContent self = msg_send ~self ~cmd:(selector "hideActivityIndicatorForUnRenderedContent") ~typ:(returning (bool)) -let hidePageViewsUntilReadyToRender self = msg_send ~self ~cmd:(selector "hidePageViewsUntilReadyToRender") ~typ:(returning (bool)) -let highlightRect x self = msg_send ~self ~cmd:(selector "highlightRect:") ~typ:(CGRect.t @-> returning (void)) x -let hostViewForSheet x self = msg_send ~self ~cmd:(selector "hostViewForSheet:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initialPresentationRectInHostViewForSheet x self = msg_send_stret ~self ~cmd:(selector "initialPresentationRectInHostViewForSheet:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let minimumScaleForSize x self = msg_send ~self ~cmd:(selector "minimumScaleForSize:") ~typ:(CGSize.t @-> returning (double)) x -let minimumVerticalContentOffset self = msg_send ~self ~cmd:(selector "minimumVerticalContentOffset") ~typ:(returning (double)) -let passwordForPDFView x self = msg_send ~self ~cmd:(selector "passwordForPDFView:") ~typ:(id @-> returning (id)) x -let pdfHandlerDelegate self = msg_send ~self ~cmd:(selector "pdfHandlerDelegate") ~typ:(returning (id)) -let pdfView self = msg_send ~self ~cmd:(selector "pdfView") ~typ:(returning (id)) -let pdfView' x ~zoomToRect ~forPoint ~considerHeight self = msg_send ~self ~cmd:(selector "pdfView:zoomToRect:forPoint:considerHeight:") ~typ:(id @-> CGRect.t @-> CGPoint.t @-> bool @-> returning (void)) x zoomToRect forPoint considerHeight -let performAction x ~fromAlertController self = msg_send ~self ~cmd:(selector "performAction:fromAlertController:") ~typ:(id @-> id @-> returning (void)) x fromAlertController -let presentationRectInHostViewForSheet x self = msg_send_stret ~self ~cmd:(selector "presentationRectInHostViewForSheet:") ~typ:(id @-> returning (CGRect.t)) ~return_type:CGRect.t x -let rectOfInterestForPoint x self = msg_send_stret ~self ~cmd:(selector "rectOfInterestForPoint:") ~typ:(CGPoint.t @-> returning (CGRect.t)) ~return_type:CGRect.t x -let rectOfInterestForRotation self = msg_send_stret ~self ~cmd:(selector "rectOfInterestForRotation") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let removeViewFromSuperview self = msg_send ~self ~cmd:(selector "removeViewFromSuperview") ~typ:(returning (void)) -let resetZoom x self = msg_send ~self ~cmd:(selector "resetZoom:") ~typ:(id @-> returning (void)) x -let restoreStateFromHistoryItem x ~forWebView self = msg_send ~self ~cmd:(selector "restoreStateFromHistoryItem:forWebView:") ~typ:(id @-> id @-> returning (void)) x forWebView -let restoreStateFromPendingHistoryItem self = msg_send ~self ~cmd:(selector "restoreStateFromPendingHistoryItem") ~typ:(returning (void)) -let revealSearchResult x ~andZoomIn self = msg_send ~self ~cmd:(selector "revealSearchResult:andZoomIn:") ~typ:(id @-> bool @-> returning (void)) x andZoomIn -let rotateEnclosingScrollViewToFrame x self = msg_send ~self ~cmd:(selector "rotateEnclosingScrollViewToFrame:") ~typ:(CGRect.t @-> returning (void)) x -let saveStateToHistoryItem x ~forWebView self = msg_send ~self ~cmd:(selector "saveStateToHistoryItem:forWebView:") ~typ:(id @-> id @-> returning (void)) x forWebView -let scalesPageToFit self = msg_send ~self ~cmd:(selector "scalesPageToFit") ~typ:(returning (bool)) -let scrollToPageNumber x ~animate self = msg_send ~self ~cmd:(selector "scrollToPageNumber:animate:") ~typ:(llong @-> bool @-> returning (void)) (LLong.of_int x) animate -let searchControllerForHighlighter x self = msg_send ~self ~cmd:(selector "searchControllerForHighlighter:") ~typ:(id @-> returning (id)) x -let setBackgroundColorForUnRenderedContent x self = msg_send ~self ~cmd:(selector "setBackgroundColorForUnRenderedContent:") ~typ:(id @-> returning (void)) x -let setHideActivityIndicatorForUnRenderedContent x self = msg_send ~self ~cmd:(selector "setHideActivityIndicatorForUnRenderedContent:") ~typ:(bool @-> returning (void)) x -let setHidePageViewsUntilReadyToRender x self = msg_send ~self ~cmd:(selector "setHidePageViewsUntilReadyToRender:") ~typ:(bool @-> returning (void)) x -let setPdfHandlerDelegate x self = msg_send ~self ~cmd:(selector "setPdfHandlerDelegate:") ~typ:(id @-> returning (void)) x -let setScalesPageToFit x self = msg_send ~self ~cmd:(selector "setScalesPageToFit:") ~typ:(bool @-> returning (void)) x -let setShowPageLabels x self = msg_send ~self ~cmd:(selector "setShowPageLabels:") ~typ:(bool @-> returning (void)) x -let showPageLabels self = msg_send ~self ~cmd:(selector "showPageLabels") ~typ:(returning (bool)) -let updateBoundariesOfScrollView x ~withScales self = msg_send ~self ~cmd:(selector "updateBoundariesOfScrollView:withScales:") ~typ:(id @-> ptr void @-> returning (void)) x withScales -let updatePageNumberLabelWithUserScrolling x ~animated self = msg_send ~self ~cmd:(selector "updatePageNumberLabelWithUserScrolling:animated:") ~typ:(bool @-> bool @-> returning (void)) x animated -let updateViewHierarchyForDocumentViewLoadComplete x self = msg_send ~self ~cmd:(selector "updateViewHierarchyForDocumentViewLoadComplete:") ~typ:(id @-> returning (void)) x -let updateViewHierarchyForDocumentViewNewLoad x self = msg_send ~self ~cmd:(selector "updateViewHierarchyForDocumentViewNewLoad:") ~typ:(id @-> returning (void)) x -let updateViewHierarchyForDocumentViewTabSwitch x self = msg_send ~self ~cmd:(selector "updateViewHierarchyForDocumentViewTabSwitch:") ~typ:(id @-> returning (void)) x -let updateViewHierarchyForDocumentViewTabSwitch' x ~restoringZoomScale ~andScrollPt self = msg_send ~self ~cmd:(selector "updateViewHierarchyForDocumentViewTabSwitch:restoringZoomScale:andScrollPt:") ~typ:(id @-> double @-> CGPoint.t @-> returning (void)) x restoringZoomScale andScrollPt -let updateViewHierarchyForFirstNonEmptyLayoutInFrame x self = msg_send ~self ~cmd:(selector "updateViewHierarchyForFirstNonEmptyLayoutInFrame:") ~typ:(id @-> returning (void)) x -let updateViewSettings self = msg_send ~self ~cmd:(selector "updateViewSettings") ~typ:(returning (void)) -let userDidEnterPassword x ~forPasswordView self = msg_send ~self ~cmd:(selector "userDidEnterPassword:forPasswordView:") ~typ:(id @-> id @-> returning (void)) x forPasswordView -let visibleContentRect self = msg_send_stret ~self ~cmd:(selector "visibleContentRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let zoomedDocumentScale self = msg_send ~self ~cmd:(selector "zoomedDocumentScale") ~typ:(returning (double)) \ No newline at end of file diff --git a/uikit_extra/UIWindowSceneTouchCancellationOnRotationAssertion.ml b/uikit_extra/UIWindowSceneTouchCancellationOnRotationAssertion.ml new file mode 100644 index 00000000..111e1339 --- /dev/null +++ b/uikit_extra/UIWindowSceneTouchCancellationOnRotationAssertion.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/uiwindowscenetouchcancellationonrotationassertion?language=objc}UIWindowSceneTouchCancellationOnRotationAssertion} *) + +let self = get_class "UIWindowSceneTouchCancellationOnRotationAssertion" + +let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning void) +let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) +let initWithWindowScene x self = msg_send ~self ~cmd:(selector "initWithWindowScene:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/uikit_extra/WebThreadSafeUndoManager.ml b/uikit_extra/WebThreadSafeUndoManager.ml new file mode 100644 index 00000000..0f31de3c --- /dev/null +++ b/uikit_extra/WebThreadSafeUndoManager.ml @@ -0,0 +1,16 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreAnimation +open CoreText + +(** Apple docs: {{:https://developer.apple.com/documentation/uikit/webthreadsafeundomanager?language=objc}WebThreadSafeUndoManager} *) + +let self = get_class "WebThreadSafeUndoManager" + +let redo self = msg_send ~self ~cmd:(selector "redo") ~typ:(returning void) +let undo self = msg_send ~self ~cmd:(selector "undo") ~typ:(returning void) \ No newline at end of file diff --git a/uikit_extra/dune b/uikit_extra/dune index 776a5947..33782365 100644 --- a/uikit_extra/dune +++ b/uikit_extra/dune @@ -1,6 +1,6 @@ (library - (name uikit_extra) - (public_name camlkit-gui.uikit-extra) + (name UIKit_extra) + (public_name camlkit-gui.UIKit_extra) (enabled_if (or (= %{context_name} default.ios) (= %{context_name} device.ios) @@ -8,6 +8,9 @@ (= %{context_name} simulator-arm.ios) (= %{context_name} catalyst.ios))) ; (flags :standard -ccopt "-framework UIKit") - (libraries camlkit-base.Foundation)) + (libraries + camlkit-base.Foundation + camlkit-base.CoreAnimation + camlkit-gui.CoreText)) (documentation (package camlkit-gui)) \ No newline at end of file